vulcan-cryptanalysis

F707 : 7E F9 10 "~ " jmp $F910 display "beep?"
----------------------------------------------
F70A : C6 03 " " ldab #$03 get 1 digit of key & put in buffer
. . . . . . . . . . . . . . . .
F70C : A6 00 " " ldaa $00,x get oct key digit
. . . . . . . . . . . . . . . .
F70E : 46 "F" rora we shift digit right (lsb 1st)
F70F : 24 03 "$ " bcc $F714
F711 : 73 00 00 "s " com $0000 toggle parity if bit is 1
. . . . . . . . . . . . . . . .
F714 : BD F7 26 " &" jsr $F726 put key bit into 51.58
F717 : 5A "Z" decb
F718 : 26 F4 "& " bne $F70E
F71A : 39 "9" rts
----------------------------------------------
F71B : 08 " " inx get leftover oct key digits
F71C : A6 00 " " ldaa $00,x
. . . . . . . . . . . . . . . .
F71E : 46 "F" rora
F71F : 24 01 "$ " bcc $F722
F721 : 5C "\" incb count 1s in b for parity
. . . . . . . . . . . . . . . .
F722 : 76 00 65 "v e" ror $0065 put them in 65
F725 : 39 "9" rts
----------------------------------------------
F726 : 76 00 51 "v Q" ror $0051 >> bit into 64-bit fifo 51.58
F729 : 76 00 52 "v R" ror $0052
F72C : 76 00 53 "v S" ror $0053
F72F : 76 00 54 "v T" ror $0054
F732 : 76 00 55 "v U" ror $0055
F735 : 76 00 56 "v V" ror $0056
F738 : 76 00 57 "v W" ror $0057
F73B : 76 00 58 "v X" ror $0058
F73E : 39 "9" rts oldest bit in c
----------------------------------------------
F73F : 74 00 59 "t Y" lsr $0059 >> 0 into 64-bit fifo 59.60
F742 : 76 00 5A "v Z" ror $005A
F745 : 76 00 5B "v [" ror $005B
F748 : 76 00 5C "v \" ror $005C
F74B : 76 00 5D "v ]" ror $005D
F74E : 76 00 5E "v ^" ror $005E
F751 : 76 00 5F "v _" ror $005F
F754 : 76 00 60 "v ‘" ror $0060
F757 : 39 "9" rts oldest bit in c
----------------------------------------------
F758 : 9F 61 " a" sts $0061 interleave key/par into data bytes
F75A : 9E 63 " c" lds $0063 load table addr
. . . . . . . . . . . . . . . .
F75C : 86 08 " " ldaa #$08 bit count
F75E : 97 66 " f" staa $0066 66