shirriff

# Disable password protection on an Alto disk by zeroing out the password flag in sys.boot

import sys
import subprocess

diskContents = None

# Get word at the word offset in the disk file
def getWord(wordOffset):
  return ord(diskContents[2 * wordOffset]) + ord(diskContents[2 * wordOffset + 1]) * 256

shirriff

# Process font file to generate FPGA code

# Font from https://github.com/dhepper/font8x8/blob/master/font8x8_basic.h

import re

chars = []
for line in open('font8x8_basic.h').readlines():
  m = re.search('{([\s0-9A-Fa-fx,]*)}', line)
  if m:

shirriff

# Process font file to generate FPGA code

# Font from https://github.com/dhepper/font8x8/blob/master/font8x8_basic.h

import re

chars = []
for line in open('font8x8_basic.h').readlines():
  m = re.search('{([\s0-9A-Fa-fx,]*)}', line)
  if m:

shirriff

               job  card.s
               ctl  6641
               org  087
     X1        dcw  000  * Index 1, pointer to text
               dc   00
               org  333
     start     sw   1
               sbr  x1, buf+80
     rloop     r                   * Read cards into page buffer
               bce  rhs, 1, -

shirriff

               job  prime1.s
     * Compute primes 2-255 for toggle challenge
     * Ken Shirriff  http://righto.com
               ctl  6641
     
               org  201             * Start of print buffer
     num       dcw  002             * Current number

               org  333             * Start of code memory
     outer     mcw  @002@, factor   * Start with factor 2

shirriff

# Crack Xerox Alto disk passwords using math.

import sys

def findPasswd(passvec):
  # a and b are the salt values
  a = (passvec[1] << 16) + passvec[2]
  b = (passvec[3] << 16) + passvec[4]
  if a == 0 or b == 0:
    print 'No password'

shirriff

// Loads a PRU text.bin (and optionally data.bin) file,
// executes it, and waits for completion.
//
// Usage:
// $ ./loader text.bin [data.bin]
//
// Compile with:
// gcc -o loader loader.c -lprussdrv
//
// Based on https://credentiality2.blogspot.com/2015/09/beaglebone-pru-gpio-example.html

shirriff

; blink.p: demonstration of PRU on the BeagleBone Black
; blink LED connected to P8_11 ten times
.origin 0
.entrypoint TOP
TOP:
  MOV r1, 10 ; blink counter
BLINK:
  SET r30, r30, 15 ; set GPIO output 15
  MOV r0, 0x00a00000 ; delay counter
DELAY:

shirriff

87 00000                                # X0
92 00000                                # X1
97 000                                  # X2
100 ,001       set wordmark  1          # Start
104 /000       clear storage  0         # Wraps to top of memory?
108 H099       store B*  99             # Top of memory - 100? into X2
112 L/49089    load  1149 89            # X1 = 0
119 L/49094    load  1149 94            # X2 = 0
126 1          read                     # READNOTE: Read first card
127 C003/53    compare  3 1153          # Card has END?

shirriff

,008015,022033L067135,1050291001/099H104C104135B101/,0011/001199199    0001MUSIC
,109116,121125,126133/101099                                           0002MUSIC
,008015,022029,036040,047054,061068,072/061039              ,00100110400003MUSIC
0000000000000,001/000H099L/49089       L032118,092097,100104,10811210400004MUSIC
L/490941C003/53B334SM0996J5B165DL/54354L039157,126127,134139,14615110400005MUSIC
M0756J1A/56094M0660?0H0991L0660?0H099  L037194,165172,179183,18419110400006MUSIC
A/57089C089/59B126U.100                L023217,202209,214040,04004010400007MUSIC
M585099/332/,0052011N372M002005        L031364,341345,346353,35435810400008MUSIC
M/60002B564001XB353001 B503001RL/49089 L038402,372380,388396,04004010400009MUSIC
C0036/1B438SA/56089C089094B403U.100    L035437,410415,422429,43404010400010MUSIC