Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_51.ADF » U/R_INFI
U/R_INFI
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_51.ADF |
| Filename: | U/R_INFI |
| Read OK: | ✔ |
| File size: | 02F3 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10MODE6:FOR I%=0 TO 2 STEP 2:P%=900:[OPT I%
20.pass:LDX #0:.dloop:TXA:CLC:ADC #50:JSR &FFEE:LDA #41:JSR &FFEE:LDA #32:JSR &FFEE:TXA:PHA:JSR calcpass:LDY #0:.ploop:LDA bytes8,Y:JSR &FFEE:INY:CPY #8:BNE ploop:JSR &FFE7:PLA:TAX:INX:CPX #3:BNE dloop:RTS
30.calcpass:ASL A:CLC:ADC #&5E:TAX:STX whichtwo+2:INX:STX whichtwo+5:LDA #0:LDY #8:.clrpass:STA bytes8-1,Y:DEY:BNE clrpass:.passloop:LDX #7:.passloop2:LDA bytes8,X
40.whichtwo:EOR &BB80,Y:EOR &CC60,Y:STA bytes8,X:INY:DEX:BPL passloop2:CPY #0:BNE passloop:LDX #7
50.toascii:LDA bytes8,X:.subasc:SEC:SBC #26:CMP #26:BCS subasc:ADC #65:STA bytes8,X:DEX:BPL toascii:RTS:.bytes5:EQUD 0:EQUD 0:.bytes8:EQUD 0:EQUD 0
60]NEXT:PRINT"Repton Infinity Password Printer"
70REPEAT:INPUT'"Filename eM."n$':OSCLI("LOAD eM."+n$+" 5E70"):CALLpass:UNTIL0
$�6:� I%=0 � 2 � 2:P%=900:[OPT I%
�.pass:LDX #0:.dloop:TXA:CLC:ADC #50:JSR &FFEE:LDA #41:JSR &FFEE:LDA #32:JSR &FFEE:TXA:PHA:JSR calcpass:LDY #0:.ploop:LDA bytes8,Y:JSR &FFEE:INY:CPY #8:BNE ploop:JSR &FFE7:PLA:TAX:INX:CPX #3:BNE dloop:RTS
�.calcpass:ASL A:CLC:ADC #&5E:TAX:STX whichtwo+2:INX:STX whichtwo+5:LDA #0:LDY #8:.clrpass:STA bytes8-1,Y:DEY:BNE clrpass:.passloop:LDX #7:.passloop2:LDA bytes8,X
(_.whichtwo:� &BB80,Y:� &CC60,Y:STA bytes8,X:INY:DEX:BPL passloop2:CPY #0:BNE passloop:LDX #7
2�.toascii:LDA bytes8,X:.subasc:SEC:SBC #26:CMP #26:BCS subasc:ADC #65:STA bytes8,X:DEX:BPL toascii:RTS:.bytes5:EQUD 0:EQUD 0:.bytes8:EQUD 0:EQUD 0
<*]�:�"Repton Infinity Password Printer"
F;�:�'"Filename eM."n$':�("LOAD eM."+n$+" 5E70"):�pass:�0
� 00000000 0d 00 0a 24 eb 36 3a e3 20 49 25 3d 30 20 b8 20 |...$.6:. I%=0 . |
00000010 32 20 88 20 32 3a 50 25 3d 39 30 30 3a 5b 4f 50 |2 . 2:P%=900:[OP|
00000020 54 20 49 25 0d 00 14 cf 2e 70 61 73 73 3a 4c 44 |T I%.....pass:LD|
00000030 58 20 23 30 3a 2e 64 6c 6f 6f 70 3a 54 58 41 3a |X #0:.dloop:TXA:|
00000040 43 4c 43 3a 41 44 43 20 23 35 30 3a 4a 53 52 20 |CLC:ADC #50:JSR |
00000050 26 46 46 45 45 3a 4c 44 41 20 23 34 31 3a 4a 53 |&FFEE:LDA #41:JS|
00000060 52 20 26 46 46 45 45 3a 4c 44 41 20 23 33 32 3a |R &FFEE:LDA #32:|
00000070 4a 53 52 20 26 46 46 45 45 3a 54 58 41 3a 50 48 |JSR &FFEE:TXA:PH|
00000080 41 3a 4a 53 52 20 63 61 6c 63 70 61 73 73 3a 4c |A:JSR calcpass:L|
00000090 44 59 20 23 30 3a 2e 70 6c 6f 6f 70 3a 4c 44 41 |DY #0:.ploop:LDA|
000000a0 20 62 79 74 65 73 38 2c 59 3a 4a 53 52 20 26 46 | bytes8,Y:JSR &F|
000000b0 46 45 45 3a 49 4e 59 3a 43 50 59 20 23 38 3a 42 |FEE:INY:CPY #8:B|
000000c0 4e 45 20 70 6c 6f 6f 70 3a 4a 53 52 20 26 46 46 |NE ploop:JSR &FF|
000000d0 45 37 3a 50 4c 41 3a 54 41 58 3a 49 4e 58 3a 43 |E7:PLA:TAX:INX:C|
000000e0 50 58 20 23 33 3a 42 4e 45 20 64 6c 6f 6f 70 3a |PX #3:BNE dloop:|
000000f0 52 54 53 0d 00 1e a5 2e 63 61 6c 63 70 61 73 73 |RTS.....calcpass|
00000100 3a 41 53 4c 20 41 3a 43 4c 43 3a 41 44 43 20 23 |:ASL A:CLC:ADC #|
00000110 26 35 45 3a 54 41 58 3a 53 54 58 20 77 68 69 63 |&5E:TAX:STX whic|
00000120 68 74 77 6f 2b 32 3a 49 4e 58 3a 53 54 58 20 77 |htwo+2:INX:STX w|
00000130 68 69 63 68 74 77 6f 2b 35 3a 4c 44 41 20 23 30 |hichtwo+5:LDA #0|
00000140 3a 4c 44 59 20 23 38 3a 2e 63 6c 72 70 61 73 73 |:LDY #8:.clrpass|
00000150 3a 53 54 41 20 62 79 74 65 73 38 2d 31 2c 59 3a |:STA bytes8-1,Y:|
00000160 44 45 59 3a 42 4e 45 20 63 6c 72 70 61 73 73 3a |DEY:BNE clrpass:|
00000170 2e 70 61 73 73 6c 6f 6f 70 3a 4c 44 58 20 23 37 |.passloop:LDX #7|
00000180 3a 2e 70 61 73 73 6c 6f 6f 70 32 3a 4c 44 41 20 |:.passloop2:LDA |
00000190 62 79 74 65 73 38 2c 58 0d 00 28 5f 2e 77 68 69 |bytes8,X..(_.whi|
000001a0 63 68 74 77 6f 3a 82 20 26 42 42 38 30 2c 59 3a |chtwo:. &BB80,Y:|
000001b0 82 20 26 43 43 36 30 2c 59 3a 53 54 41 20 62 79 |. &CC60,Y:STA by|
000001c0 74 65 73 38 2c 58 3a 49 4e 59 3a 44 45 58 3a 42 |tes8,X:INY:DEX:B|
000001d0 50 4c 20 70 61 73 73 6c 6f 6f 70 32 3a 43 50 59 |PL passloop2:CPY|
000001e0 20 23 30 3a 42 4e 45 20 70 61 73 73 6c 6f 6f 70 | #0:BNE passloop|
000001f0 3a 4c 44 58 20 23 37 0d 00 32 95 2e 74 6f 61 73 |:LDX #7..2..toas|
00000200 63 69 69 3a 4c 44 41 20 62 79 74 65 73 38 2c 58 |cii:LDA bytes8,X|
00000210 3a 2e 73 75 62 61 73 63 3a 53 45 43 3a 53 42 43 |:.subasc:SEC:SBC|
00000220 20 23 32 36 3a 43 4d 50 20 23 32 36 3a 42 43 53 | #26:CMP #26:BCS|
00000230 20 73 75 62 61 73 63 3a 41 44 43 20 23 36 35 3a | subasc:ADC #65:|
00000240 53 54 41 20 62 79 74 65 73 38 2c 58 3a 44 45 58 |STA bytes8,X:DEX|
00000250 3a 42 50 4c 20 74 6f 61 73 63 69 69 3a 52 54 53 |:BPL toascii:RTS|
00000260 3a 2e 62 79 74 65 73 35 3a 45 51 55 44 20 30 3a |:.bytes5:EQUD 0:|
00000270 45 51 55 44 20 30 3a 2e 62 79 74 65 73 38 3a 45 |EQUD 0:.bytes8:E|
00000280 51 55 44 20 30 3a 45 51 55 44 20 30 0d 00 3c 2a |QUD 0:EQUD 0..<*|
00000290 5d ed 3a f1 22 52 65 70 74 6f 6e 20 49 6e 66 69 |].:."Repton Infi|
000002a0 6e 69 74 79 20 50 61 73 73 77 6f 72 64 20 50 72 |nity Password Pr|
000002b0 69 6e 74 65 72 22 0d 00 46 3b f5 3a e8 27 22 46 |inter"..F;.:.'"F|
000002c0 69 6c 65 6e 61 6d 65 20 65 4d 2e 22 6e 24 27 3a |ilename eM."n$':|
000002d0 ff 28 22 4c 4f 41 44 20 65 4d 2e 22 2b 6e 24 2b |.("LOAD eM."+n$+|
000002e0 22 20 35 45 37 30 22 29 3a d6 70 61 73 73 3a fd |" 5E70"):.pass:.|
000002f0 30 0d ff |0..|
000002f3 
U/R_INFI.m0
U/R_INFI.m1
U/R_INFI.m2
U/R_INFI.m4
U/R_INFI.m5
.