% � Repton 2 DFS Loader by M. Ford
 oscli=&FFF7:oswrch=&FFEE
& � pass=0 � 2 � 2:P%=&B00:[OPTpass
(- LDX#(load �256):LDY#(load �256):JSRoscli
2C LDA#&19:STA&71:LDA#&82:STA&70:LDA#0:STA&72:LDA#&C:STA&73:LDY#0
<T .loop LDA&71:BMIend:LDA(&70),Y:JSRinc0:CMP#0:BEQzero:STA(&72),Y:JSRinc1:JMPloop
FV .zero LDA(&70),Y:JSRinc0:TAX:LDA#0:.zloop STA(&72),Y:JSRinc1:DEX:BNEzloop:BEQloop
P# .inc0 INC&70:BNEret:INC&71:RTS
Z( .inc1 INC&72:BNEret:INC&73:.ret RTS
dT .end LDY#0:.vloop LDAvdu,Y:CMP#&FF:BNEcont:JMP&CA0:.cont JSRoswrch:INY:BNEvloop
n) .load EQUS"LOAD REP2cpr 1982":EQUB13
x> .vdu EQUW&113:EQUD1:EQUW&213:EQUD3:EQUW&313:EQUD7:EQUB&FF
� ]:�
�F � 22,5,23,0,10,32,0;0;0;28,9,22,18,16,19,1,0;0;19,2,0;0;19,3,0;0;
� *FX4,0
�
 *FX200,3
�
 �&B00
�

00000000  0d 00 0a 25 20 f4 20 52  65 70 74 6f 6e 20 32 20  |...% . Repton 2 |
00000010  44 46 53 20 4c 6f 61 64  65 72 20 62 79 20 4d 2e  |DFS Loader by M.|
00000020  20 46 6f 72 64 0d 00 14  1d 20 6f 73 63 6c 69 3d  | Ford.... oscli=|
00000030  26 46 46 46 37 3a 6f 73  77 72 63 68 3d 26 46 46  |&FFF7:oswrch=&FF|
00000040  45 45 0d 00 1e 26 20 e3  20 70 61 73 73 3d 30 20  |EE...& . pass=0 |
00000050  b8 20 32 20 88 20 32 3a  50 25 3d 26 42 30 30 3a  |. 2 . 2:P%=&B00:|
00000060  5b 4f 50 54 70 61 73 73  0d 00 28 2d 20 4c 44 58  |[OPTpass..(- LDX|
00000070  23 28 6c 6f 61 64 20 83  32 35 36 29 3a 4c 44 59  |#(load .256):LDY|
00000080  23 28 6c 6f 61 64 20 81  32 35 36 29 3a 4a 53 52  |#(load .256):JSR|
00000090  6f 73 63 6c 69 0d 00 32  43 20 4c 44 41 23 26 31  |oscli..2C LDA#&1|
000000a0  39 3a 53 54 41 26 37 31  3a 4c 44 41 23 26 38 32  |9:STA&71:LDA#&82|
000000b0  3a 53 54 41 26 37 30 3a  4c 44 41 23 30 3a 53 54  |:STA&70:LDA#0:ST|
000000c0  41 26 37 32 3a 4c 44 41  23 26 43 3a 53 54 41 26  |A&72:LDA#&C:STA&|
000000d0  37 33 3a 4c 44 59 23 30  0d 00 3c 54 20 2e 6c 6f  |73:LDY#0..<T .lo|
000000e0  6f 70 20 4c 44 41 26 37  31 3a 42 4d 49 65 6e 64  |op LDA&71:BMIend|
000000f0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 4a 53 52 69  |:LDA(&70),Y:JSRi|
00000100  6e 63 30 3a 43 4d 50 23  30 3a 42 45 51 7a 65 72  |nc0:CMP#0:BEQzer|
00000110  6f 3a 53 54 41 28 26 37  32 29 2c 59 3a 4a 53 52  |o:STA(&72),Y:JSR|
00000120  69 6e 63 31 3a 4a 4d 50  6c 6f 6f 70 0d 00 46 56  |inc1:JMPloop..FV|
00000130  20 2e 7a 65 72 6f 20 4c  44 41 28 26 37 30 29 2c  | .zero LDA(&70),|
00000140  59 3a 4a 53 52 69 6e 63  30 3a 54 41 58 3a 4c 44  |Y:JSRinc0:TAX:LD|
00000150  41 23 30 3a 2e 7a 6c 6f  6f 70 20 53 54 41 28 26  |A#0:.zloop STA(&|
00000160  37 32 29 2c 59 3a 4a 53  52 69 6e 63 31 3a 44 45  |72),Y:JSRinc1:DE|
00000170  58 3a 42 4e 45 7a 6c 6f  6f 70 3a 42 45 51 6c 6f  |X:BNEzloop:BEQlo|
00000180  6f 70 0d 00 50 23 20 2e  69 6e 63 30 20 49 4e 43  |op..P# .inc0 INC|
00000190  26 37 30 3a 42 4e 45 72  65 74 3a 49 4e 43 26 37  |&70:BNEret:INC&7|
000001a0  31 3a 52 54 53 0d 00 5a  28 20 2e 69 6e 63 31 20  |1:RTS..Z( .inc1 |
000001b0  49 4e 43 26 37 32 3a 42  4e 45 72 65 74 3a 49 4e  |INC&72:BNEret:IN|
000001c0  43 26 37 33 3a 2e 72 65  74 20 52 54 53 0d 00 64  |C&73:.ret RTS..d|
000001d0  54 20 2e 65 6e 64 20 4c  44 59 23 30 3a 2e 76 6c  |T .end LDY#0:.vl|
000001e0  6f 6f 70 20 4c 44 41 76  64 75 2c 59 3a 43 4d 50  |oop LDAvdu,Y:CMP|
000001f0  23 26 46 46 3a 42 4e 45  63 6f 6e 74 3a 4a 4d 50  |#&FF:BNEcont:JMP|
00000200  26 43 41 30 3a 2e 63 6f  6e 74 20 4a 53 52 6f 73  |&CA0:.cont JSRos|
00000210  77 72 63 68 3a 49 4e 59  3a 42 4e 45 76 6c 6f 6f  |wrch:INY:BNEvloo|
00000220  70 0d 00 6e 29 20 2e 6c  6f 61 64 20 45 51 55 53  |p..n) .load EQUS|
00000230  22 4c 4f 41 44 20 52 45  50 32 63 70 72 20 31 39  |"LOAD REP2cpr 19|
00000240  38 32 22 3a 45 51 55 42  31 33 0d 00 78 3e 20 2e  |82":EQUB13..x> .|
00000250  76 64 75 20 45 51 55 57  26 31 31 33 3a 45 51 55  |vdu EQUW&113:EQU|
00000260  44 31 3a 45 51 55 57 26  32 31 33 3a 45 51 55 44  |D1:EQUW&213:EQUD|
00000270  33 3a 45 51 55 57 26 33  31 33 3a 45 51 55 44 37  |3:EQUW&313:EQUD7|
00000280  3a 45 51 55 42 26 46 46  0d 00 82 08 20 5d 3a ed  |:EQUB&FF.... ]:.|
00000290  0d 00 8c 46 20 ef 20 32  32 2c 35 2c 32 33 2c 30  |...F . 22,5,23,0|
000002a0  2c 31 30 2c 33 32 2c 30  3b 30 3b 30 3b 32 38 2c  |,10,32,0;0;0;28,|
000002b0  39 2c 32 32 2c 31 38 2c  31 36 2c 31 39 2c 31 2c  |9,22,18,16,19,1,|
000002c0  30 3b 30 3b 31 39 2c 32  2c 30 3b 30 3b 31 39 2c  |0;0;19,2,0;0;19,|
000002d0  33 2c 30 3b 30 3b 0d 00  96 0b 20 2a 46 58 34 2c  |3,0;0;.... *FX4,|
000002e0  30 0d 00 a0 0d 20 2a 46  58 32 30 30 2c 33 0d 00  |0.... *FX200,3..|
000002f0  aa 0a 20 d6 26 42 30 30  0d ff                    |.. .&B00..|
000002fa