%� *******************************
� Read ADFS sectors
� Original BASIC version
(� By R.A.Waddilove
2� Electron User June 1989
<%� M/coded by R.A.Dimond July 1996
F"� Drive change added Sept 1997
P%� *******************************
Z
� Q% &500
d
�assem
n-�"SAVE ADFSE "+�~Q%+" "+�~O%+" 2000 2000"
x�
���assem
� os=&FFE3:osw=&FFF1:osr=&FFE0
�Kaddr=&70:inc=&74:temp=&78:temp2=&79:y=&7A:byte=&7B:count=&7C:count2=&7D
�buff=&82
��pass=4�6�2
�P%=&2000:O%=Q%
�[OPTpass
�
.start
�$LDA#8:LDX#d �256:LDY#d �256:JSRp
�JSRtitle
�'LDA#19:LDX#dc �256:LDY#dc �256:JSRp
�.rdch JSR&FFE0
�CMP#48:BCCrdch

CMP#50:BCSrdch

JSRos:STAmou+5

&LDX#mou �256:LDY#mou �256:JSR&FFF7

"'LDA#22:LDX#d2 �256:LDY#d2 �256:JSRp

,JSR&FFE0

6JSRinput

@
.mainloop

J+LDAdadd:STAblock+8:LDAdadd+1:STAblock+7

T0LDA#&72:LDX#block �256:LDY#block �256:JSRosw

^LDA#0:STAbyte

h#LDA#0:STAbuff:LDA#&30:STAbuff+1

rLDA#2:STAcount2:.loop2

|JSRtitle

�JSR&FFE7

�'LDA#14:LDX#da �256:LDY#da �256:JSRp

�JSRdaprt

�%LDAdadd:STAtrk:LDAdadd+1:STAtrk+1

�LSRtrk+1:RORtrk

�LSRtrk+1:RORtrk

�LSRtrk+1:RORtrk

�LSRtrk+1:RORtrk

�&LDA#9:LDX#tk �256:LDY#tk �256:JSRp

�LDAtrk:JSRdecprt

�'LDA#10:LDX#se �256:LDY#se �256:JSRp

�LDAdadd:�#&0F:STAsec

�LDAsec:JSRdecprt
-LDA#43:LDX#head2 �256:LDY#head2 �256:JSRp
LDA#16:STAcount:.loop
KLDAbyte:CMP#10:BCSnu10:LDX#3:JMPcon:.nu10:CMP#100:BCSnu100:LDX#2:JMPcon
&N.nu100:LDX#1:.con LDA#&20:JSRos:DEX:BNEcon:LDAbyte:JSRdecprt:LDA#&3A:JSRos
0FLDY#0:.llp LDA#&20:JSR&FFEE:LDA(buff),Y:JSRhexprt:INY:CPY#8:BNEllp
:LDA#&20:JSRos:JSRos
DLDY#0:.llp2 LDA(buff),Y
N>CMP#&20:BCCnpt:CMP#&7F:BCSnpt:JMPpp:.npt LDA#&2E:.pp JSRos
XINY:CPY#8:BNEllp2
b7CLC:LDAbuff:ADC#8:STAbuff:LDAbuff+1:ADC#0:STAbuff+1
lCLC:LDAbyte:ADC#8:STAbyte
vJSR&FFE7
�DECcount:BNEloop
�'LDA#17:LDX#ky �256:LDY#ky �256:JSRp
�JSRosr:BCSrts
�DECcount2:BEQnxt
�.LDA#&80:STAbuff:LDA#&30:STAbuff+1:JMPloop2
�..nxt LDA#24:LDX#kys �256:LDY#kys �256:JSRp
�+LDA#26:LDX#kys2 �256:LDY#kys2 �256:JSRp
�.rch JSRosr:BCSrts
�	�#&DF
�)CMP#&46:BNEn1:INCdadd:BNEn1:INCdadd+1
�=.n1 CMP#&42:BNEn2:DECdadd:LDAdadd:CMP#&FF:BNEn2:DECdadd+1
�.n2 CMP#&52:BEQst
�JMPmainloop
.st JMPstart
.rts RTS
".p STXaddr:STYaddr+1:TAX:LDY#0
 +.lp LDA(addr),Y:JSRos:INY:DEX:BNElp:RTS
*6.title LDA#52:LDX#title2 �256:LDY#title2 �256:JMPp
4K.input LDX#table3 �256:LDY#table3 �256:LDA#4:STAtable3+2:LDA#0:JSR&FFF1
>�.move LDAtable4+4:CMP#&D:BEQinp2:LDAtable4+3:STAtable4+4:LDAtable4+2:STAtable4+3:LDAtable4+1:STAtable4+2:LDAtable4:STAtable4+1:LDA#48:STAtable4:JMPmove 
H	.inp2
R1LDX#table4 �256:LDY#table4 �256:STX&F2:STY&F3
\JSR&FFE7
fjLDY#0:JSRnum:STAdadd+1:INY:JSRnum:STAdadd:LDA#0:STAinc:.clr LDY#4:.lo STAtable4,Y:DEY:BPLlo:STAinc:RTS
pf.num LDA(&F2),Y:JSRinstr:CLC:ASLA:ASLA:ASLA:ASLA:STAtemp2:INY:LDA(&F2),Y:JSRinstr:CLC:ADCtemp2:RTS
zo.instr STYy:STAtemp:LDY#0:.loop LDA Idata,Y:CMPtemp:BEQendins:INY:CPY#16:BNEloop:LDY#0:.endins TYA:LDYy:RTS
�P.daprt LDAdadd+1:BEQnop:JSRhexprt2:LDAdadd:JMPhexprt:.nop LDAdadd:JMPhexprt2
�?.hexprt PHA:LSR A:LSR A:LSR A:LSR A:�#&0F:JSRhprt:PLA:�#&0F
�2.hprt CMP#&0A:BCCover:ADC#6:.over ADC#48:JMPos
�R.hexprt2 PHA:LSR A:LSR A:LSR A:LSR A:�#&0F:BEQnp:JSRhprt:.np PLA:�#&0F:JMPhprt
� .decprt STA&80:CMP#10:BCCone
�/CMP#200:BCCp100:SBC#200:STAtemp:LDA#2:JMPpt
�..p100 CMP#100:BCCtwo:SBC#100:STAtemp:LDA#1
�.pt JSRprt:LDAtemp
�.two LDX#0
�*.lp SEC:SBC#10:BCCpr:INX:STAtemp:JMPlp
�.pr TXA:JSRprt
�LDAtemp:JSRprt
�RTS
.one LDA&80
.prt CLC:ADC#48:JMPos
 
$!.Idata EQUS"0123456789ABCDEF"
.B.table3 EQUB table4 �256:EQUB table4 �256:EQUB2:EQUB32:EQUB127
8.table4 EQUS"00000"
B8.d EQUB22:EQUB6:EQUB19:EQUB0:EQUB4:EQUB0:EQUB0:EQUB0
L�.title2 EQUB12:EQUB17:EQUB129:EQUB17:EQUB0:EQUB31:EQUB0:EQUB1:EQUS"**********ADFS Disc  Explorer **********":EQUB17:EQUB128:EQUB17:EQUB1
V-.dc EQUB13:EQUB13:EQUS"Drive no. (0,1)? "
`.mou EQUS"*MOU. ":EQUB13
j0.d2 EQUB13:EQUB13:EQUS"Enter disc address:&"
tN.block EQUB0:EQUD&3000:EQUB8:EQUB0:EQUBdadd �256:EQUBdadd �256:EQUB1:EQUB0
~%.dadd EQUD0:.trk EQUW0:.sec EQUB0
�E.da EQUS"Disc address=&":.tk EQUS" / Track=":.se EQUS" / Sector="
�L.head2 EQUB31:EQUB0:EQUB5:EQUS"-Byte-------Hexadecimal--------Ascii----"
�1.ky EQUB31:EQUB10:EQUB23:EQUS"Press a key..."
�8.kys EQUB31:EQUB8:EQUB23:EQUS"B=Back      F=Forward"
�;.kys2 EQUB31:EQUB8:EQUB24:EQUS"R=Re-run    ESCAPE=Quit"
�]
��
��
�

00000000  0d 00 0a 25 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...%. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 2a 2a 0d 00 14  17 f4 20 52 65 61 64 20  |*****..... Read |
00000030  41 44 46 53 20 73 65 63  74 6f 72 73 0d 00 1e 1c  |ADFS sectors....|
00000040  f4 20 4f 72 69 67 69 6e  61 6c 20 42 41 53 49 43  |. Original BASIC|
00000050  20 76 65 72 73 69 6f 6e  0d 00 28 16 f4 20 42 79  | version..(.. By|
00000060  20 52 2e 41 2e 57 61 64  64 69 6c 6f 76 65 0d 00  | R.A.Waddilove..|
00000070  32 1d f4 20 45 6c 65 63  74 72 6f 6e 20 55 73 65  |2.. Electron Use|
00000080  72 20 4a 75 6e 65 20 31  39 38 39 0d 00 3c 25 f4  |r June 1989..<%.|
00000090  20 4d 2f 63 6f 64 65 64  20 62 79 20 52 2e 41 2e  | M/coded by R.A.|
000000a0  44 69 6d 6f 6e 64 20 4a  75 6c 79 20 31 39 39 36  |Dimond July 1996|
000000b0  0d 00 46 22 f4 20 44 72  69 76 65 20 63 68 61 6e  |..F". Drive chan|
000000c0  67 65 20 61 64 64 65 64  20 53 65 70 74 20 31 39  |ge added Sept 19|
000000d0  39 37 0d 00 50 25 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |97..P%. ********|
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000f0  2a 2a 2a 2a 2a 2a 2a 0d  00 5a 0d de 20 51 25 20  |*******..Z.. Q% |
00000100  26 35 30 30 0d 00 64 0a  f2 61 73 73 65 6d 0d 00  |&500..d..assem..|
00000110  6e 2d ff 22 53 41 56 45  20 41 44 46 53 45 20 22  |n-."SAVE ADFSE "|
00000120  2b c3 7e 51 25 2b 22 20  22 2b c3 7e 4f 25 2b 22  |+.~Q%+" "+.~O%+"|
00000130  20 32 30 30 30 20 32 30  30 30 22 0d 00 78 05 e0  | 2000 2000"..x..|
00000140  0d 00 82 0b dd f2 61 73  73 65 6d 0d 00 8c 20 6f  |......assem... o|
00000150  73 3d 26 46 46 45 33 3a  6f 73 77 3d 26 46 46 46  |s=&FFE3:osw=&FFF|
00000160  31 3a 6f 73 72 3d 26 46  46 45 30 0d 00 96 4b 61  |1:osr=&FFE0...Ka|
00000170  64 64 72 3d 26 37 30 3a  69 6e 63 3d 26 37 34 3a  |ddr=&70:inc=&74:|
00000180  74 65 6d 70 3d 26 37 38  3a 74 65 6d 70 32 3d 26  |temp=&78:temp2=&|
00000190  37 39 3a 79 3d 26 37 41  3a 62 79 74 65 3d 26 37  |79:y=&7A:byte=&7|
000001a0  42 3a 63 6f 75 6e 74 3d  26 37 43 3a 63 6f 75 6e  |B:count=&7C:coun|
000001b0  74 32 3d 26 37 44 0d 00  a0 0c 62 75 66 66 3d 26  |t2=&7D....buff=&|
000001c0  38 32 0d 00 aa 0f e3 70  61 73 73 3d 34 b8 36 88  |82.....pass=4.6.|
000001d0  32 0d 00 b4 12 50 25 3d  26 32 30 30 30 3a 4f 25  |2....P%=&2000:O%|
000001e0  3d 51 25 0d 00 be 0c 5b  4f 50 54 70 61 73 73 0d  |=Q%....[OPTpass.|
000001f0  00 c8 0a 2e 73 74 61 72  74 0d 00 d2 24 4c 44 41  |....start...$LDA|
00000200  23 38 3a 4c 44 58 23 64  20 83 32 35 36 3a 4c 44  |#8:LDX#d .256:LD|
00000210  59 23 64 20 81 32 35 36  3a 4a 53 52 70 0d 00 dc  |Y#d .256:JSRp...|
00000220  0c 4a 53 52 74 69 74 6c  65 0d 00 e6 27 4c 44 41  |.JSRtitle...'LDA|
00000230  23 31 39 3a 4c 44 58 23  64 63 20 83 32 35 36 3a  |#19:LDX#dc .256:|
00000240  4c 44 59 23 64 63 20 81  32 35 36 3a 4a 53 52 70  |LDY#dc .256:JSRp|
00000250  0d 00 f0 12 2e 72 64 63  68 20 4a 53 52 26 46 46  |.....rdch JSR&FF|
00000260  45 30 0d 00 fa 12 43 4d  50 23 34 38 3a 42 43 43  |E0....CMP#48:BCC|
00000270  72 64 63 68 0d 01 04 12  43 4d 50 23 35 30 3a 42  |rdch....CMP#50:B|
00000280  43 53 72 64 63 68 0d 01  0e 12 4a 53 52 6f 73 3a  |CSrdch....JSRos:|
00000290  53 54 41 6d 6f 75 2b 35  0d 01 18 26 4c 44 58 23  |STAmou+5...&LDX#|
000002a0  6d 6f 75 20 83 32 35 36  3a 4c 44 59 23 6d 6f 75  |mou .256:LDY#mou|
000002b0  20 81 32 35 36 3a 4a 53  52 26 46 46 46 37 0d 01  | .256:JSR&FFF7..|
000002c0  22 27 4c 44 41 23 32 32  3a 4c 44 58 23 64 32 20  |"'LDA#22:LDX#d2 |
000002d0  83 32 35 36 3a 4c 44 59  23 64 32 20 81 32 35 36  |.256:LDY#d2 .256|
000002e0  3a 4a 53 52 70 0d 01 2c  0c 4a 53 52 26 46 46 45  |:JSRp..,.JSR&FFE|
000002f0  30 0d 01 36 0c 4a 53 52  69 6e 70 75 74 0d 01 40  |0..6.JSRinput..@|
00000300  0d 2e 6d 61 69 6e 6c 6f  6f 70 0d 01 4a 2b 4c 44  |..mainloop..J+LD|
00000310  41 64 61 64 64 3a 53 54  41 62 6c 6f 63 6b 2b 38  |Adadd:STAblock+8|
00000320  3a 4c 44 41 64 61 64 64  2b 31 3a 53 54 41 62 6c  |:LDAdadd+1:STAbl|
00000330  6f 63 6b 2b 37 0d 01 54  30 4c 44 41 23 26 37 32  |ock+7..T0LDA#&72|
00000340  3a 4c 44 58 23 62 6c 6f  63 6b 20 83 32 35 36 3a  |:LDX#block .256:|
00000350  4c 44 59 23 62 6c 6f 63  6b 20 81 32 35 36 3a 4a  |LDY#block .256:J|
00000360  53 52 6f 73 77 0d 01 5e  11 4c 44 41 23 30 3a 53  |SRosw..^.LDA#0:S|
00000370  54 41 62 79 74 65 0d 01  68 23 4c 44 41 23 30 3a  |TAbyte..h#LDA#0:|
00000380  53 54 41 62 75 66 66 3a  4c 44 41 23 26 33 30 3a  |STAbuff:LDA#&30:|
00000390  53 54 41 62 75 66 66 2b  31 0d 01 72 1a 4c 44 41  |STAbuff+1..r.LDA|
000003a0  23 32 3a 53 54 41 63 6f  75 6e 74 32 3a 2e 6c 6f  |#2:STAcount2:.lo|
000003b0  6f 70 32 0d 01 7c 0c 4a  53 52 74 69 74 6c 65 0d  |op2..|.JSRtitle.|
000003c0  01 86 0c 4a 53 52 26 46  46 45 37 0d 01 90 27 4c  |...JSR&FFE7...'L|
000003d0  44 41 23 31 34 3a 4c 44  58 23 64 61 20 83 32 35  |DA#14:LDX#da .25|
000003e0  36 3a 4c 44 59 23 64 61  20 81 32 35 36 3a 4a 53  |6:LDY#da .256:JS|
000003f0  52 70 0d 01 9a 0c 4a 53  52 64 61 70 72 74 0d 01  |Rp....JSRdaprt..|
00000400  a4 25 4c 44 41 64 61 64  64 3a 53 54 41 74 72 6b  |.%LDAdadd:STAtrk|
00000410  3a 4c 44 41 64 61 64 64  2b 31 3a 53 54 41 74 72  |:LDAdadd+1:STAtr|
00000420  6b 2b 31 0d 01 ae 13 4c  53 52 74 72 6b 2b 31 3a  |k+1....LSRtrk+1:|
00000430  52 4f 52 74 72 6b 0d 01  b8 13 4c 53 52 74 72 6b  |RORtrk....LSRtrk|
00000440  2b 31 3a 52 4f 52 74 72  6b 0d 01 c2 13 4c 53 52  |+1:RORtrk....LSR|
00000450  74 72 6b 2b 31 3a 52 4f  52 74 72 6b 0d 01 cc 13  |trk+1:RORtrk....|
00000460  4c 53 52 74 72 6b 2b 31  3a 52 4f 52 74 72 6b 0d  |LSRtrk+1:RORtrk.|
00000470  01 d6 26 4c 44 41 23 39  3a 4c 44 58 23 74 6b 20  |..&LDA#9:LDX#tk |
00000480  83 32 35 36 3a 4c 44 59  23 74 6b 20 81 32 35 36  |.256:LDY#tk .256|
00000490  3a 4a 53 52 70 0d 01 e0  14 4c 44 41 74 72 6b 3a  |:JSRp....LDAtrk:|
000004a0  4a 53 52 64 65 63 70 72  74 0d 01 ea 27 4c 44 41  |JSRdecprt...'LDA|
000004b0  23 31 30 3a 4c 44 58 23  73 65 20 83 32 35 36 3a  |#10:LDX#se .256:|
000004c0  4c 44 59 23 73 65 20 81  32 35 36 3a 4a 53 52 70  |LDY#se .256:JSRp|
000004d0  0d 01 f4 18 4c 44 41 64  61 64 64 3a 80 23 26 30  |....LDAdadd:.#&0|
000004e0  46 3a 53 54 41 73 65 63  0d 01 fe 14 4c 44 41 73  |F:STAsec....LDAs|
000004f0  65 63 3a 4a 53 52 64 65  63 70 72 74 0d 02 08 2d  |ec:JSRdecprt...-|
00000500  4c 44 41 23 34 33 3a 4c  44 58 23 68 65 61 64 32  |LDA#43:LDX#head2|
00000510  20 83 32 35 36 3a 4c 44  59 23 68 65 61 64 32 20  | .256:LDY#head2 |
00000520  81 32 35 36 3a 4a 53 52  70 0d 02 12 19 4c 44 41  |.256:JSRp....LDA|
00000530  23 31 36 3a 53 54 41 63  6f 75 6e 74 3a 2e 6c 6f  |#16:STAcount:.lo|
00000540  6f 70 0d 02 1c 4b 4c 44  41 62 79 74 65 3a 43 4d  |op...KLDAbyte:CM|
00000550  50 23 31 30 3a 42 43 53  6e 75 31 30 3a 4c 44 58  |P#10:BCSnu10:LDX|
00000560  23 33 3a 4a 4d 50 63 6f  6e 3a 2e 6e 75 31 30 3a  |#3:JMPcon:.nu10:|
00000570  43 4d 50 23 31 30 30 3a  42 43 53 6e 75 31 30 30  |CMP#100:BCSnu100|
00000580  3a 4c 44 58 23 32 3a 4a  4d 50 63 6f 6e 0d 02 26  |:LDX#2:JMPcon..&|
00000590  4e 2e 6e 75 31 30 30 3a  4c 44 58 23 31 3a 2e 63  |N.nu100:LDX#1:.c|
000005a0  6f 6e 20 4c 44 41 23 26  32 30 3a 4a 53 52 6f 73  |on LDA#&20:JSRos|
000005b0  3a 44 45 58 3a 42 4e 45  63 6f 6e 3a 4c 44 41 62  |:DEX:BNEcon:LDAb|
000005c0  79 74 65 3a 4a 53 52 64  65 63 70 72 74 3a 4c 44  |yte:JSRdecprt:LD|
000005d0  41 23 26 33 41 3a 4a 53  52 6f 73 0d 02 30 46 4c  |A#&3A:JSRos..0FL|
000005e0  44 59 23 30 3a 2e 6c 6c  70 20 4c 44 41 23 26 32  |DY#0:.llp LDA#&2|
000005f0  30 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 28 62  |0:JSR&FFEE:LDA(b|
00000600  75 66 66 29 2c 59 3a 4a  53 52 68 65 78 70 72 74  |uff),Y:JSRhexprt|
00000610  3a 49 4e 59 3a 43 50 59  23 38 3a 42 4e 45 6c 6c  |:INY:CPY#8:BNEll|
00000620  70 0d 02 3a 17 4c 44 41  23 26 32 30 3a 4a 53 52  |p..:.LDA#&20:JSR|
00000630  6f 73 3a 4a 53 52 6f 73  0d 02 44 1b 4c 44 59 23  |os:JSRos..D.LDY#|
00000640  30 3a 2e 6c 6c 70 32 20  4c 44 41 28 62 75 66 66  |0:.llp2 LDA(buff|
00000650  29 2c 59 0d 02 4e 3e 43  4d 50 23 26 32 30 3a 42  |),Y..N>CMP#&20:B|
00000660  43 43 6e 70 74 3a 43 4d  50 23 26 37 46 3a 42 43  |CCnpt:CMP#&7F:BC|
00000670  53 6e 70 74 3a 4a 4d 50  70 70 3a 2e 6e 70 74 20  |Snpt:JMPpp:.npt |
00000680  4c 44 41 23 26 32 45 3a  2e 70 70 20 4a 53 52 6f  |LDA#&2E:.pp JSRo|
00000690  73 0d 02 58 15 49 4e 59  3a 43 50 59 23 38 3a 42  |s..X.INY:CPY#8:B|
000006a0  4e 45 6c 6c 70 32 0d 02  62 37 43 4c 43 3a 4c 44  |NEllp2..b7CLC:LD|
000006b0  41 62 75 66 66 3a 41 44  43 23 38 3a 53 54 41 62  |Abuff:ADC#8:STAb|
000006c0  75 66 66 3a 4c 44 41 62  75 66 66 2b 31 3a 41 44  |uff:LDAbuff+1:AD|
000006d0  43 23 30 3a 53 54 41 62  75 66 66 2b 31 0d 02 6c  |C#0:STAbuff+1..l|
000006e0  1d 43 4c 43 3a 4c 44 41  62 79 74 65 3a 41 44 43  |.CLC:LDAbyte:ADC|
000006f0  23 38 3a 53 54 41 62 79  74 65 0d 02 76 0c 4a 53  |#8:STAbyte..v.JS|
00000700  52 26 46 46 45 37 0d 02  80 14 44 45 43 63 6f 75  |R&FFE7....DECcou|
00000710  6e 74 3a 42 4e 45 6c 6f  6f 70 0d 02 8a 27 4c 44  |nt:BNEloop...'LD|
00000720  41 23 31 37 3a 4c 44 58  23 6b 79 20 83 32 35 36  |A#17:LDX#ky .256|
00000730  3a 4c 44 59 23 6b 79 20  81 32 35 36 3a 4a 53 52  |:LDY#ky .256:JSR|
00000740  70 0d 02 94 11 4a 53 52  6f 73 72 3a 42 43 53 72  |p....JSRosr:BCSr|
00000750  74 73 0d 02 9e 14 44 45  43 63 6f 75 6e 74 32 3a  |ts....DECcount2:|
00000760  42 45 51 6e 78 74 0d 02  a8 2e 4c 44 41 23 26 38  |BEQnxt....LDA#&8|
00000770  30 3a 53 54 41 62 75 66  66 3a 4c 44 41 23 26 33  |0:STAbuff:LDA#&3|
00000780  30 3a 53 54 41 62 75 66  66 2b 31 3a 4a 4d 50 6c  |0:STAbuff+1:JMPl|
00000790  6f 6f 70 32 0d 02 b2 2e  2e 6e 78 74 20 4c 44 41  |oop2.....nxt LDA|
000007a0  23 32 34 3a 4c 44 58 23  6b 79 73 20 83 32 35 36  |#24:LDX#kys .256|
000007b0  3a 4c 44 59 23 6b 79 73  20 81 32 35 36 3a 4a 53  |:LDY#kys .256:JS|
000007c0  52 70 0d 02 bc 2b 4c 44  41 23 32 36 3a 4c 44 58  |Rp...+LDA#26:LDX|
000007d0  23 6b 79 73 32 20 83 32  35 36 3a 4c 44 59 23 6b  |#kys2 .256:LDY#k|
000007e0  79 73 32 20 81 32 35 36  3a 4a 53 52 70 0d 02 c6  |ys2 .256:JSRp...|
000007f0  16 2e 72 63 68 20 4a 53  52 6f 73 72 3a 42 43 53  |..rch JSRosr:BCS|
00000800  72 74 73 0d 02 d0 09 80  23 26 44 46 0d 02 da 29  |rts.....#&DF...)|
00000810  43 4d 50 23 26 34 36 3a  42 4e 45 6e 31 3a 49 4e  |CMP#&46:BNEn1:IN|
00000820  43 64 61 64 64 3a 42 4e  45 6e 31 3a 49 4e 43 64  |Cdadd:BNEn1:INCd|
00000830  61 64 64 2b 31 0d 02 e4  3d 2e 6e 31 20 43 4d 50  |add+1...=.n1 CMP|
00000840  23 26 34 32 3a 42 4e 45  6e 32 3a 44 45 43 64 61  |#&42:BNEn2:DECda|
00000850  64 64 3a 4c 44 41 64 61  64 64 3a 43 4d 50 23 26  |dd:LDAdadd:CMP#&|
00000860  46 46 3a 42 4e 45 6e 32  3a 44 45 43 64 61 64 64  |FF:BNEn2:DECdadd|
00000870  2b 31 0d 02 ee 15 2e 6e  32 20 43 4d 50 23 26 35  |+1.....n2 CMP#&5|
00000880  32 3a 42 45 51 73 74 0d  02 f8 0f 4a 4d 50 6d 61  |2:BEQst....JMPma|
00000890  69 6e 6c 6f 6f 70 0d 03  02 10 2e 73 74 20 4a 4d  |inloop.....st JM|
000008a0  50 73 74 61 72 74 0d 03  0c 0c 2e 72 74 73 20 52  |Pstart.....rts R|
000008b0  54 53 0d 03 16 22 2e 70  20 53 54 58 61 64 64 72  |TS...".p STXaddr|
000008c0  3a 53 54 59 61 64 64 72  2b 31 3a 54 41 58 3a 4c  |:STYaddr+1:TAX:L|
000008d0  44 59 23 30 0d 03 20 2b  2e 6c 70 20 4c 44 41 28  |DY#0.. +.lp LDA(|
000008e0  61 64 64 72 29 2c 59 3a  4a 53 52 6f 73 3a 49 4e  |addr),Y:JSRos:IN|
000008f0  59 3a 44 45 58 3a 42 4e  45 6c 70 3a 52 54 53 0d  |Y:DEX:BNElp:RTS.|
00000900  03 2a 36 2e 74 69 74 6c  65 20 4c 44 41 23 35 32  |.*6.title LDA#52|
00000910  3a 4c 44 58 23 74 69 74  6c 65 32 20 83 32 35 36  |:LDX#title2 .256|
00000920  3a 4c 44 59 23 74 69 74  6c 65 32 20 81 32 35 36  |:LDY#title2 .256|
00000930  3a 4a 4d 50 70 0d 03 34  4b 2e 69 6e 70 75 74 20  |:JMPp..4K.input |
00000940  4c 44 58 23 74 61 62 6c  65 33 20 83 32 35 36 3a  |LDX#table3 .256:|
00000950  4c 44 59 23 74 61 62 6c  65 33 20 81 32 35 36 3a  |LDY#table3 .256:|
00000960  4c 44 41 23 34 3a 53 54  41 74 61 62 6c 65 33 2b  |LDA#4:STAtable3+|
00000970  32 3a 4c 44 41 23 30 3a  4a 53 52 26 46 46 46 31  |2:LDA#0:JSR&FFF1|
00000980  0d 03 3e 9c 2e 6d 6f 76  65 20 4c 44 41 74 61 62  |..>..move LDAtab|
00000990  6c 65 34 2b 34 3a 43 4d  50 23 26 44 3a 42 45 51  |le4+4:CMP#&D:BEQ|
000009a0  69 6e 70 32 3a 4c 44 41  74 61 62 6c 65 34 2b 33  |inp2:LDAtable4+3|
000009b0  3a 53 54 41 74 61 62 6c  65 34 2b 34 3a 4c 44 41  |:STAtable4+4:LDA|
000009c0  74 61 62 6c 65 34 2b 32  3a 53 54 41 74 61 62 6c  |table4+2:STAtabl|
000009d0  65 34 2b 33 3a 4c 44 41  74 61 62 6c 65 34 2b 31  |e4+3:LDAtable4+1|
000009e0  3a 53 54 41 74 61 62 6c  65 34 2b 32 3a 4c 44 41  |:STAtable4+2:LDA|
000009f0  74 61 62 6c 65 34 3a 53  54 41 74 61 62 6c 65 34  |table4:STAtable4|
00000a00  2b 31 3a 4c 44 41 23 34  38 3a 53 54 41 74 61 62  |+1:LDA#48:STAtab|
00000a10  6c 65 34 3a 4a 4d 50 6d  6f 76 65 20 0d 03 48 09  |le4:JMPmove ..H.|
00000a20  2e 69 6e 70 32 0d 03 52  31 4c 44 58 23 74 61 62  |.inp2..R1LDX#tab|
00000a30  6c 65 34 20 83 32 35 36  3a 4c 44 59 23 74 61 62  |le4 .256:LDY#tab|
00000a40  6c 65 34 20 81 32 35 36  3a 53 54 58 26 46 32 3a  |le4 .256:STX&F2:|
00000a50  53 54 59 26 46 33 0d 03  5c 0c 4a 53 52 26 46 46  |STY&F3..\.JSR&FF|
00000a60  45 37 0d 03 66 6a 4c 44  59 23 30 3a 4a 53 52 6e  |E7..fjLDY#0:JSRn|
00000a70  75 6d 3a 53 54 41 64 61  64 64 2b 31 3a 49 4e 59  |um:STAdadd+1:INY|
00000a80  3a 4a 53 52 6e 75 6d 3a  53 54 41 64 61 64 64 3a  |:JSRnum:STAdadd:|
00000a90  4c 44 41 23 30 3a 53 54  41 69 6e 63 3a 2e 63 6c  |LDA#0:STAinc:.cl|
00000aa0  72 20 4c 44 59 23 34 3a  2e 6c 6f 20 53 54 41 74  |r LDY#4:.lo STAt|
00000ab0  61 62 6c 65 34 2c 59 3a  44 45 59 3a 42 50 4c 6c  |able4,Y:DEY:BPLl|
00000ac0  6f 3a 53 54 41 69 6e 63  3a 52 54 53 0d 03 70 66  |o:STAinc:RTS..pf|
00000ad0  2e 6e 75 6d 20 4c 44 41  28 26 46 32 29 2c 59 3a  |.num LDA(&F2),Y:|
00000ae0  4a 53 52 69 6e 73 74 72  3a 43 4c 43 3a 41 53 4c  |JSRinstr:CLC:ASL|
00000af0  41 3a 41 53 4c 41 3a 41  53 4c 41 3a 41 53 4c 41  |A:ASLA:ASLA:ASLA|
00000b00  3a 53 54 41 74 65 6d 70  32 3a 49 4e 59 3a 4c 44  |:STAtemp2:INY:LD|
00000b10  41 28 26 46 32 29 2c 59  3a 4a 53 52 69 6e 73 74  |A(&F2),Y:JSRinst|
00000b20  72 3a 43 4c 43 3a 41 44  43 74 65 6d 70 32 3a 52  |r:CLC:ADCtemp2:R|
00000b30  54 53 0d 03 7a 6f 2e 69  6e 73 74 72 20 53 54 59  |TS..zo.instr STY|
00000b40  79 3a 53 54 41 74 65 6d  70 3a 4c 44 59 23 30 3a  |y:STAtemp:LDY#0:|
00000b50  2e 6c 6f 6f 70 20 4c 44  41 20 49 64 61 74 61 2c  |.loop LDA Idata,|
00000b60  59 3a 43 4d 50 74 65 6d  70 3a 42 45 51 65 6e 64  |Y:CMPtemp:BEQend|
00000b70  69 6e 73 3a 49 4e 59 3a  43 50 59 23 31 36 3a 42  |ins:INY:CPY#16:B|
00000b80  4e 45 6c 6f 6f 70 3a 4c  44 59 23 30 3a 2e 65 6e  |NEloop:LDY#0:.en|
00000b90  64 69 6e 73 20 54 59 41  3a 4c 44 59 79 3a 52 54  |dins TYA:LDYy:RT|
00000ba0  53 0d 03 84 50 2e 64 61  70 72 74 20 4c 44 41 64  |S...P.daprt LDAd|
00000bb0  61 64 64 2b 31 3a 42 45  51 6e 6f 70 3a 4a 53 52  |add+1:BEQnop:JSR|
00000bc0  68 65 78 70 72 74 32 3a  4c 44 41 64 61 64 64 3a  |hexprt2:LDAdadd:|
00000bd0  4a 4d 50 68 65 78 70 72  74 3a 2e 6e 6f 70 20 4c  |JMPhexprt:.nop L|
00000be0  44 41 64 61 64 64 3a 4a  4d 50 68 65 78 70 72 74  |DAdadd:JMPhexprt|
00000bf0  32 0d 03 8e 3f 2e 68 65  78 70 72 74 20 50 48 41  |2...?.hexprt PHA|
00000c00  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000c10  20 41 3a 4c 53 52 20 41  3a 80 23 26 30 46 3a 4a  | A:LSR A:.#&0F:J|
00000c20  53 52 68 70 72 74 3a 50  4c 41 3a 80 23 26 30 46  |SRhprt:PLA:.#&0F|
00000c30  0d 03 98 32 2e 68 70 72  74 20 43 4d 50 23 26 30  |...2.hprt CMP#&0|
00000c40  41 3a 42 43 43 6f 76 65  72 3a 41 44 43 23 36 3a  |A:BCCover:ADC#6:|
00000c50  2e 6f 76 65 72 20 41 44  43 23 34 38 3a 4a 4d 50  |.over ADC#48:JMP|
00000c60  6f 73 0d 03 a2 52 2e 68  65 78 70 72 74 32 20 50  |os...R.hexprt2 P|
00000c70  48 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 4c  |HA:LSR A:LSR A:L|
00000c80  53 52 20 41 3a 4c 53 52  20 41 3a 80 23 26 30 46  |SR A:LSR A:.#&0F|
00000c90  3a 42 45 51 6e 70 3a 4a  53 52 68 70 72 74 3a 2e  |:BEQnp:JSRhprt:.|
00000ca0  6e 70 20 50 4c 41 3a 80  23 26 30 46 3a 4a 4d 50  |np PLA:.#&0F:JMP|
00000cb0  68 70 72 74 0d 03 ac 20  2e 64 65 63 70 72 74 20  |hprt... .decprt |
00000cc0  53 54 41 26 38 30 3a 43  4d 50 23 31 30 3a 42 43  |STA&80:CMP#10:BC|
00000cd0  43 6f 6e 65 0d 03 b6 2f  43 4d 50 23 32 30 30 3a  |Cone.../CMP#200:|
00000ce0  42 43 43 70 31 30 30 3a  53 42 43 23 32 30 30 3a  |BCCp100:SBC#200:|
00000cf0  53 54 41 74 65 6d 70 3a  4c 44 41 23 32 3a 4a 4d  |STAtemp:LDA#2:JM|
00000d00  50 70 74 0d 03 c0 2e 2e  70 31 30 30 20 43 4d 50  |Ppt.....p100 CMP|
00000d10  23 31 30 30 3a 42 43 43  74 77 6f 3a 53 42 43 23  |#100:BCCtwo:SBC#|
00000d20  31 30 30 3a 53 54 41 74  65 6d 70 3a 4c 44 41 23  |100:STAtemp:LDA#|
00000d30  31 0d 03 ca 16 2e 70 74  20 4a 53 52 70 72 74 3a  |1.....pt JSRprt:|
00000d40  4c 44 41 74 65 6d 70 0d  03 d4 0e 2e 74 77 6f 20  |LDAtemp.....two |
00000d50  4c 44 58 23 30 0d 03 de  2a 2e 6c 70 20 53 45 43  |LDX#0...*.lp SEC|
00000d60  3a 53 42 43 23 31 30 3a  42 43 43 70 72 3a 49 4e  |:SBC#10:BCCpr:IN|
00000d70  58 3a 53 54 41 74 65 6d  70 3a 4a 4d 50 6c 70 0d  |X:STAtemp:JMPlp.|
00000d80  03 e8 12 2e 70 72 20 54  58 41 3a 4a 53 52 70 72  |....pr TXA:JSRpr|
00000d90  74 0d 03 f2 12 4c 44 41  74 65 6d 70 3a 4a 53 52  |t....LDAtemp:JSR|
00000da0  70 72 74 0d 03 fc 07 52  54 53 0d 04 06 0f 2e 6f  |prt....RTS.....o|
00000db0  6e 65 20 4c 44 41 26 38  30 0d 04 10 19 2e 70 72  |ne LDA&80.....pr|
00000dc0  74 20 43 4c 43 3a 41 44  43 23 34 38 3a 4a 4d 50  |t CLC:ADC#48:JMP|
00000dd0  6f 73 0d 04 1a 05 20 0d  04 24 21 2e 49 64 61 74  |os.... ..$!.Idat|
00000de0  61 20 45 51 55 53 22 30  31 32 33 34 35 36 37 38  |a EQUS"012345678|
00000df0  39 41 42 43 44 45 46 22  0d 04 2e 42 2e 74 61 62  |9ABCDEF"...B.tab|
00000e00  6c 65 33 20 45 51 55 42  20 74 61 62 6c 65 34 20  |le3 EQUB table4 |
00000e10  83 32 35 36 3a 45 51 55  42 20 74 61 62 6c 65 34  |.256:EQUB table4|
00000e20  20 81 32 35 36 3a 45 51  55 42 32 3a 45 51 55 42  | .256:EQUB2:EQUB|
00000e30  33 32 3a 45 51 55 42 31  32 37 0d 04 38 17 2e 74  |32:EQUB127..8..t|
00000e40  61 62 6c 65 34 20 45 51  55 53 22 30 30 30 30 30  |able4 EQUS"00000|
00000e50  22 0d 04 42 38 2e 64 20  45 51 55 42 32 32 3a 45  |"..B8.d EQUB22:E|
00000e60  51 55 42 36 3a 45 51 55  42 31 39 3a 45 51 55 42  |QUB6:EQUB19:EQUB|
00000e70  30 3a 45 51 55 42 34 3a  45 51 55 42 30 3a 45 51  |0:EQUB4:EQUB0:EQ|
00000e80  55 42 30 3a 45 51 55 42  30 0d 04 4c 8c 2e 74 69  |UB0:EQUB0..L..ti|
00000e90  74 6c 65 32 20 45 51 55  42 31 32 3a 45 51 55 42  |tle2 EQUB12:EQUB|
00000ea0  31 37 3a 45 51 55 42 31  32 39 3a 45 51 55 42 31  |17:EQUB129:EQUB1|
00000eb0  37 3a 45 51 55 42 30 3a  45 51 55 42 33 31 3a 45  |7:EQUB0:EQUB31:E|
00000ec0  51 55 42 30 3a 45 51 55  42 31 3a 45 51 55 53 22  |QUB0:EQUB1:EQUS"|
00000ed0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 41 44 46 53 20 44  |**********ADFS D|
00000ee0  69 73 63 20 20 45 78 70  6c 6f 72 65 72 20 2a 2a  |isc  Explorer **|
00000ef0  2a 2a 2a 2a 2a 2a 2a 2a  22 3a 45 51 55 42 31 37  |********":EQUB17|
00000f00  3a 45 51 55 42 31 32 38  3a 45 51 55 42 31 37 3a  |:EQUB128:EQUB17:|
00000f10  45 51 55 42 31 0d 04 56  2d 2e 64 63 20 45 51 55  |EQUB1..V-.dc EQU|
00000f20  42 31 33 3a 45 51 55 42  31 33 3a 45 51 55 53 22  |B13:EQUB13:EQUS"|
00000f30  44 72 69 76 65 20 6e 6f  2e 20 28 30 2c 31 29 3f  |Drive no. (0,1)?|
00000f40  20 22 0d 04 60 1c 2e 6d  6f 75 20 45 51 55 53 22  | "..`..mou EQUS"|
00000f50  2a 4d 4f 55 2e 20 22 3a  45 51 55 42 31 33 0d 04  |*MOU. ":EQUB13..|
00000f60  6a 30 2e 64 32 20 45 51  55 42 31 33 3a 45 51 55  |j0.d2 EQUB13:EQU|
00000f70  42 31 33 3a 45 51 55 53  22 45 6e 74 65 72 20 64  |B13:EQUS"Enter d|
00000f80  69 73 63 20 61 64 64 72  65 73 73 3a 26 22 0d 04  |isc address:&"..|
00000f90  74 4e 2e 62 6c 6f 63 6b  20 45 51 55 42 30 3a 45  |tN.block EQUB0:E|
00000fa0  51 55 44 26 33 30 30 30  3a 45 51 55 42 38 3a 45  |QUD&3000:EQUB8:E|
00000fb0  51 55 42 30 3a 45 51 55  42 64 61 64 64 20 81 32  |QUB0:EQUBdadd .2|
00000fc0  35 36 3a 45 51 55 42 64  61 64 64 20 83 32 35 36  |56:EQUBdadd .256|
00000fd0  3a 45 51 55 42 31 3a 45  51 55 42 30 0d 04 7e 25  |:EQUB1:EQUB0..~%|
00000fe0  2e 64 61 64 64 20 45 51  55 44 30 3a 2e 74 72 6b  |.dadd EQUD0:.trk|
00000ff0  20 45 51 55 57 30 3a 2e  73 65 63 20 45 51 55 42  | EQUW0:.sec EQUB|
00001000  30 0d 04 88 45 2e 64 61  20 45 51 55 53 22 44 69  |0...E.da EQUS"Di|
00001010  73 63 20 61 64 64 72 65  73 73 3d 26 22 3a 2e 74  |sc address=&":.t|
00001020  6b 20 45 51 55 53 22 20  2f 20 54 72 61 63 6b 3d  |k EQUS" / Track=|
00001030  22 3a 2e 73 65 20 45 51  55 53 22 20 2f 20 53 65  |":.se EQUS" / Se|
00001040  63 74 6f 72 3d 22 0d 04  92 4c 2e 68 65 61 64 32  |ctor="...L.head2|
00001050  20 45 51 55 42 33 31 3a  45 51 55 42 30 3a 45 51  | EQUB31:EQUB0:EQ|
00001060  55 42 35 3a 45 51 55 53  22 2d 42 79 74 65 2d 2d  |UB5:EQUS"-Byte--|
00001070  2d 2d 2d 2d 2d 48 65 78  61 64 65 63 69 6d 61 6c  |-----Hexadecimal|
00001080  2d 2d 2d 2d 2d 2d 2d 2d  41 73 63 69 69 2d 2d 2d  |--------Ascii---|
00001090  2d 22 0d 04 9c 31 2e 6b  79 20 45 51 55 42 33 31  |-"...1.ky EQUB31|
000010a0  3a 45 51 55 42 31 30 3a  45 51 55 42 32 33 3a 45  |:EQUB10:EQUB23:E|
000010b0  51 55 53 22 50 72 65 73  73 20 61 20 6b 65 79 2e  |QUS"Press a key.|
000010c0  2e 2e 22 0d 04 a6 38 2e  6b 79 73 20 45 51 55 42  |.."...8.kys EQUB|
000010d0  33 31 3a 45 51 55 42 38  3a 45 51 55 42 32 33 3a  |31:EQUB8:EQUB23:|
000010e0  45 51 55 53 22 42 3d 42  61 63 6b 20 20 20 20 20  |EQUS"B=Back     |
000010f0  20 46 3d 46 6f 72 77 61  72 64 22 0d 04 b0 3b 2e  | F=Forward"...;.|
00001100  6b 79 73 32 20 45 51 55  42 33 31 3a 45 51 55 42  |kys2 EQUB31:EQUB|
00001110  38 3a 45 51 55 42 32 34  3a 45 51 55 53 22 52 3d  |8:EQUB24:EQUS"R=|
00001120  52 65 2d 72 75 6e 20 20  20 20 45 53 43 41 50 45  |Re-run    ESCAPE|
00001130  3d 51 75 69 74 22 0d 04  ba 05 5d 0d 04 c4 05 ed  |=Quit"....].....|
00001140  0d 04 ce 05 e1 0d ff                              |.......|
00001147