%� *******************************
� Read ADFS sectors
� Original BASIC version
(� By R.A.Waddilove
2� Electron User June 1989
<%� M/coded by R.A.Dimond July 1996
F%� *******************************
P
� Q% &500
Z
�assem
d-�"SAVE DEXAM "+�~Q%+" "+�~O%+" 2000 2000"
n�
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#23:LDX#d2 �256:LDY#d2 �256:JSRp
�JSRinput
�
.mainloop
�+LDAdadd:STAblock+8:LDAdadd+1:STAblock+7

0LDA#&72:LDX#block �256:LDY#block �256:JSRosw

LDA#0:STAbyte

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

"LDA#2:STAcount2:.loop2

,JSRtitle

6JSR&FFE7

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

JJSRdaprt

T%LDAdadd:STAtrk:LDAdadd+1:STAtrk+1

^LSRtrk+1:RORtrk

hLSRtrk+1:RORtrk

rLSRtrk+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

�FLDY#0:.llp LDA#&20:JSR&FFEE:LDA(buff),Y:JSRhexprt:INY:CPY#8:BNEllp

�LDA#&20:JSRos:JSRos

�LDY#0:.llp2 LDA(buff),Y

�>CMP#&20:BCCnpt:CMP#&7F:BCSnpt:JMPpp:.npt LDA#&2E:.pp JSRos
INY:CPY#8:BNEllp2
7CLC:LDAbuff:ADC#8:STAbuff:LDAbuff+1:ADC#0:STAbuff+1
CLC:LDAbyte:ADC#8:STAbyte
&JSR&FFE7
0DECcount:BNEloop
:'LDA#17:LDX#ky �256:LDY#ky �256:JSRp
DJSRosr:BCSrts
NDECcount2:BEQnxt
X.LDA#&80:STAbuff:LDA#&30:STAbuff+1:JMPloop2
b..nxt LDA#24:LDX#kys �256:LDY#kys �256:JSRp
l+LDA#26:LDX#kys2 �256:LDY#kys2 �256:JSRp
v.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
�K.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 
�	.inp2
1LDX#table4 �256:LDY#table4 �256:STX&F2:STY&F3
JSR&FFE7
jLDY#0:JSRnum:STAdadd+1:INY:JSRnum:STAdadd:LDA#0:STAinc:.clr LDY#4:.lo STAtable4,Y:DEY:BPLlo:STAinc:RTS
 f.num LDA(&F2),Y:JSRinstr:CLC:ASLA:ASLA:ASLA:ASLA:STAtemp2:INY:LDA(&F2),Y:JSRinstr:CLC:ADCtemp2:RTS
*o.instr STYy:STAtemp:LDY#0:.loop LDA Idata,Y:CMPtemp:BEQendins:INY:CPY#16:BNEloop:LDY#0:.endins TYA:LDYy:RTS
4P.daprt LDAdadd+1:BEQnop:JSRhexprt2:LDAdadd:JMPhexprt:.nop LDAdadd:JMPhexprt2
>?.hexprt PHA:LSR A:LSR A:LSR A:LSR A:�#&0F:JSRhprt:PLA:�#&0F
H2.hprt CMP#&0A:BCCover:ADC#6:.over ADC#48:JMPos
RR.hexprt2 PHA:LSR A:LSR A:LSR A:LSR A:�#&0F:BEQnp:JSRhprt:.np PLA:�#&0F:JMPhprt
\ .decprt STA&80:CMP#10:BCCone
f/CMP#200:BCCp100:SBC#200:STAtemp:LDA#2:JMPpt
p..p100 CMP#100:BCCtwo:SBC#100:STAtemp:LDA#1
z.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
�.table4 EQUS"00000"
�8.d EQUB22:EQUB6:EQUB19:EQUB0:EQUB4:EQUB0:EQUB0:EQUB0
��.title2 EQUB12:EQUB17:EQUB129:EQUB17:EQUB0:EQUB31:EQUB0:EQUB1:EQUS"************ Disc  Explorer ************":EQUB17:EQUB128:EQUB17:EQUB1
5.d2 EQUB31:EQUB0:EQUB4:EQUS"Enter disc address:&"
N.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----"
81.ky EQUB31:EQUB10:EQUB23:EQUS"Press a key..."
B8.kys EQUB31:EQUB8:EQUB23:EQUS"B=Back      F=Forward"
L;.kys2 EQUB31:EQUB8:EQUB24:EQUS"R=Re-run    ESCAPE=Quit"
V]
`�
j�
�

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 25 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..F%. **********|
000000c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000d0  2a 2a 2a 2a 2a 0d 00 50  0d de 20 51 25 20 26 35  |*****..P.. Q% &5|
000000e0  30 30 0d 00 5a 0a f2 61  73 73 65 6d 0d 00 64 2d  |00..Z..assem..d-|
000000f0  ff 22 53 41 56 45 20 44  45 58 41 4d 20 22 2b c3  |."SAVE DEXAM "+.|
00000100  7e 51 25 2b 22 20 22 2b  c3 7e 4f 25 2b 22 20 32  |~Q%+" "+.~O%+" 2|
00000110  30 30 30 20 32 30 30 30  22 0d 00 6e 05 e0 0d 00  |000 2000"..n....|
00000120  78 0b dd f2 61 73 73 65  6d 0d 00 82 20 6f 73 3d  |x...assem... os=|
00000130  26 46 46 45 33 3a 6f 73  77 3d 26 46 46 46 31 3a  |&FFE3:osw=&FFF1:|
00000140  6f 73 72 3d 26 46 46 45  30 0d 00 8c 4b 61 64 64  |osr=&FFE0...Kadd|
00000150  72 3d 26 37 30 3a 69 6e  63 3d 26 37 34 3a 74 65  |r=&70:inc=&74:te|
00000160  6d 70 3d 26 37 38 3a 74  65 6d 70 32 3d 26 37 39  |mp=&78:temp2=&79|
00000170  3a 79 3d 26 37 41 3a 62  79 74 65 3d 26 37 42 3a  |:y=&7A:byte=&7B:|
00000180  63 6f 75 6e 74 3d 26 37  43 3a 63 6f 75 6e 74 32  |count=&7C:count2|
00000190  3d 26 37 44 0d 00 96 0c  62 75 66 66 3d 26 38 32  |=&7D....buff=&82|
000001a0  0d 00 a0 0f e3 70 61 73  73 3d 34 b8 36 88 32 0d  |.....pass=4.6.2.|
000001b0  00 aa 12 50 25 3d 26 32  30 30 30 3a 4f 25 3d 51  |...P%=&2000:O%=Q|
000001c0  25 0d 00 b4 0c 5b 4f 50  54 70 61 73 73 0d 00 be  |%....[OPTpass...|
000001d0  0a 2e 73 74 61 72 74 0d  00 c8 24 4c 44 41 23 38  |..start...$LDA#8|
000001e0  3a 4c 44 58 23 64 20 83  32 35 36 3a 4c 44 59 23  |:LDX#d .256:LDY#|
000001f0  64 20 81 32 35 36 3a 4a  53 52 70 0d 00 d2 0c 4a  |d .256:JSRp....J|
00000200  53 52 74 69 74 6c 65 0d  00 dc 27 4c 44 41 23 32  |SRtitle...'LDA#2|
00000210  33 3a 4c 44 58 23 64 32  20 83 32 35 36 3a 4c 44  |3:LDX#d2 .256:LD|
00000220  59 23 64 32 20 81 32 35  36 3a 4a 53 52 70 0d 00  |Y#d2 .256:JSRp..|
00000230  e6 0c 4a 53 52 69 6e 70  75 74 0d 00 f0 0d 2e 6d  |..JSRinput.....m|
00000240  61 69 6e 6c 6f 6f 70 0d  00 fa 2b 4c 44 41 64 61  |ainloop...+LDAda|
00000250  64 64 3a 53 54 41 62 6c  6f 63 6b 2b 38 3a 4c 44  |dd:STAblock+8:LD|
00000260  41 64 61 64 64 2b 31 3a  53 54 41 62 6c 6f 63 6b  |Adadd+1:STAblock|
00000270  2b 37 0d 01 04 30 4c 44  41 23 26 37 32 3a 4c 44  |+7...0LDA#&72:LD|
00000280  58 23 62 6c 6f 63 6b 20  83 32 35 36 3a 4c 44 59  |X#block .256:LDY|
00000290  23 62 6c 6f 63 6b 20 81  32 35 36 3a 4a 53 52 6f  |#block .256:JSRo|
000002a0  73 77 0d 01 0e 11 4c 44  41 23 30 3a 53 54 41 62  |sw....LDA#0:STAb|
000002b0  79 74 65 0d 01 18 23 4c  44 41 23 30 3a 53 54 41  |yte...#LDA#0:STA|
000002c0  62 75 66 66 3a 4c 44 41  23 26 33 30 3a 53 54 41  |buff:LDA#&30:STA|
000002d0  62 75 66 66 2b 31 0d 01  22 1a 4c 44 41 23 32 3a  |buff+1..".LDA#2:|
000002e0  53 54 41 63 6f 75 6e 74  32 3a 2e 6c 6f 6f 70 32  |STAcount2:.loop2|
000002f0  0d 01 2c 0c 4a 53 52 74  69 74 6c 65 0d 01 36 0c  |..,.JSRtitle..6.|
00000300  4a 53 52 26 46 46 45 37  0d 01 40 27 4c 44 41 23  |JSR&FFE7..@'LDA#|
00000310  31 34 3a 4c 44 58 23 64  61 20 83 32 35 36 3a 4c  |14:LDX#da .256:L|
00000320  44 59 23 64 61 20 81 32  35 36 3a 4a 53 52 70 0d  |DY#da .256:JSRp.|
00000330  01 4a 0c 4a 53 52 64 61  70 72 74 0d 01 54 25 4c  |.J.JSRdaprt..T%L|
00000340  44 41 64 61 64 64 3a 53  54 41 74 72 6b 3a 4c 44  |DAdadd:STAtrk:LD|
00000350  41 64 61 64 64 2b 31 3a  53 54 41 74 72 6b 2b 31  |Adadd+1:STAtrk+1|
00000360  0d 01 5e 13 4c 53 52 74  72 6b 2b 31 3a 52 4f 52  |..^.LSRtrk+1:ROR|
00000370  74 72 6b 0d 01 68 13 4c  53 52 74 72 6b 2b 31 3a  |trk..h.LSRtrk+1:|
00000380  52 4f 52 74 72 6b 0d 01  72 13 4c 53 52 74 72 6b  |RORtrk..r.LSRtrk|
00000390  2b 31 3a 52 4f 52 74 72  6b 0d 01 7c 13 4c 53 52  |+1:RORtrk..|.LSR|
000003a0  74 72 6b 2b 31 3a 52 4f  52 74 72 6b 0d 01 86 26  |trk+1:RORtrk...&|
000003b0  4c 44 41 23 39 3a 4c 44  58 23 74 6b 20 83 32 35  |LDA#9:LDX#tk .25|
000003c0  36 3a 4c 44 59 23 74 6b  20 81 32 35 36 3a 4a 53  |6:LDY#tk .256:JS|
000003d0  52 70 0d 01 90 14 4c 44  41 74 72 6b 3a 4a 53 52  |Rp....LDAtrk:JSR|
000003e0  64 65 63 70 72 74 0d 01  9a 27 4c 44 41 23 31 30  |decprt...'LDA#10|
000003f0  3a 4c 44 58 23 73 65 20  83 32 35 36 3a 4c 44 59  |:LDX#se .256:LDY|
00000400  23 73 65 20 81 32 35 36  3a 4a 53 52 70 0d 01 a4  |#se .256:JSRp...|
00000410  18 4c 44 41 64 61 64 64  3a 80 23 26 30 46 3a 53  |.LDAdadd:.#&0F:S|
00000420  54 41 73 65 63 0d 01 ae  14 4c 44 41 73 65 63 3a  |TAsec....LDAsec:|
00000430  4a 53 52 64 65 63 70 72  74 0d 01 b8 2d 4c 44 41  |JSRdecprt...-LDA|
00000440  23 34 33 3a 4c 44 58 23  68 65 61 64 32 20 83 32  |#43:LDX#head2 .2|
00000450  35 36 3a 4c 44 59 23 68  65 61 64 32 20 81 32 35  |56:LDY#head2 .25|
00000460  36 3a 4a 53 52 70 0d 01  c2 19 4c 44 41 23 31 36  |6:JSRp....LDA#16|
00000470  3a 53 54 41 63 6f 75 6e  74 3a 2e 6c 6f 6f 70 0d  |:STAcount:.loop.|
00000480  01 cc 4b 4c 44 41 62 79  74 65 3a 43 4d 50 23 31  |..KLDAbyte:CMP#1|
00000490  30 3a 42 43 53 6e 75 31  30 3a 4c 44 58 23 33 3a  |0:BCSnu10:LDX#3:|
000004a0  4a 4d 50 63 6f 6e 3a 2e  6e 75 31 30 3a 43 4d 50  |JMPcon:.nu10:CMP|
000004b0  23 31 30 30 3a 42 43 53  6e 75 31 30 30 3a 4c 44  |#100:BCSnu100:LD|
000004c0  58 23 32 3a 4a 4d 50 63  6f 6e 0d 01 d6 4e 2e 6e  |X#2:JMPcon...N.n|
000004d0  75 31 30 30 3a 4c 44 58  23 31 3a 2e 63 6f 6e 20  |u100:LDX#1:.con |
000004e0  4c 44 41 23 26 32 30 3a  4a 53 52 6f 73 3a 44 45  |LDA#&20:JSRos:DE|
000004f0  58 3a 42 4e 45 63 6f 6e  3a 4c 44 41 62 79 74 65  |X:BNEcon:LDAbyte|
00000500  3a 4a 53 52 64 65 63 70  72 74 3a 4c 44 41 23 26  |:JSRdecprt:LDA#&|
00000510  33 41 3a 4a 53 52 6f 73  0d 01 e0 46 4c 44 59 23  |3A:JSRos...FLDY#|
00000520  30 3a 2e 6c 6c 70 20 4c  44 41 23 26 32 30 3a 4a  |0:.llp LDA#&20:J|
00000530  53 52 26 46 46 45 45 3a  4c 44 41 28 62 75 66 66  |SR&FFEE:LDA(buff|
00000540  29 2c 59 3a 4a 53 52 68  65 78 70 72 74 3a 49 4e  |),Y:JSRhexprt:IN|
00000550  59 3a 43 50 59 23 38 3a  42 4e 45 6c 6c 70 0d 01  |Y:CPY#8:BNEllp..|
00000560  ea 17 4c 44 41 23 26 32  30 3a 4a 53 52 6f 73 3a  |..LDA#&20:JSRos:|
00000570  4a 53 52 6f 73 0d 01 f4  1b 4c 44 59 23 30 3a 2e  |JSRos....LDY#0:.|
00000580  6c 6c 70 32 20 4c 44 41  28 62 75 66 66 29 2c 59  |llp2 LDA(buff),Y|
00000590  0d 01 fe 3e 43 4d 50 23  26 32 30 3a 42 43 43 6e  |...>CMP#&20:BCCn|
000005a0  70 74 3a 43 4d 50 23 26  37 46 3a 42 43 53 6e 70  |pt:CMP#&7F:BCSnp|
000005b0  74 3a 4a 4d 50 70 70 3a  2e 6e 70 74 20 4c 44 41  |t:JMPpp:.npt LDA|
000005c0  23 26 32 45 3a 2e 70 70  20 4a 53 52 6f 73 0d 02  |#&2E:.pp JSRos..|
000005d0  08 15 49 4e 59 3a 43 50  59 23 38 3a 42 4e 45 6c  |..INY:CPY#8:BNEl|
000005e0  6c 70 32 0d 02 12 37 43  4c 43 3a 4c 44 41 62 75  |lp2...7CLC:LDAbu|
000005f0  66 66 3a 41 44 43 23 38  3a 53 54 41 62 75 66 66  |ff:ADC#8:STAbuff|
00000600  3a 4c 44 41 62 75 66 66  2b 31 3a 41 44 43 23 30  |:LDAbuff+1:ADC#0|
00000610  3a 53 54 41 62 75 66 66  2b 31 0d 02 1c 1d 43 4c  |:STAbuff+1....CL|
00000620  43 3a 4c 44 41 62 79 74  65 3a 41 44 43 23 38 3a  |C:LDAbyte:ADC#8:|
00000630  53 54 41 62 79 74 65 0d  02 26 0c 4a 53 52 26 46  |STAbyte..&.JSR&F|
00000640  46 45 37 0d 02 30 14 44  45 43 63 6f 75 6e 74 3a  |FE7..0.DECcount:|
00000650  42 4e 45 6c 6f 6f 70 0d  02 3a 27 4c 44 41 23 31  |BNEloop..:'LDA#1|
00000660  37 3a 4c 44 58 23 6b 79  20 83 32 35 36 3a 4c 44  |7:LDX#ky .256:LD|
00000670  59 23 6b 79 20 81 32 35  36 3a 4a 53 52 70 0d 02  |Y#ky .256:JSRp..|
00000680  44 11 4a 53 52 6f 73 72  3a 42 43 53 72 74 73 0d  |D.JSRosr:BCSrts.|
00000690  02 4e 14 44 45 43 63 6f  75 6e 74 32 3a 42 45 51  |.N.DECcount2:BEQ|
000006a0  6e 78 74 0d 02 58 2e 4c  44 41 23 26 38 30 3a 53  |nxt..X.LDA#&80:S|
000006b0  54 41 62 75 66 66 3a 4c  44 41 23 26 33 30 3a 53  |TAbuff:LDA#&30:S|
000006c0  54 41 62 75 66 66 2b 31  3a 4a 4d 50 6c 6f 6f 70  |TAbuff+1:JMPloop|
000006d0  32 0d 02 62 2e 2e 6e 78  74 20 4c 44 41 23 32 34  |2..b..nxt LDA#24|
000006e0  3a 4c 44 58 23 6b 79 73  20 83 32 35 36 3a 4c 44  |:LDX#kys .256:LD|
000006f0  59 23 6b 79 73 20 81 32  35 36 3a 4a 53 52 70 0d  |Y#kys .256:JSRp.|
00000700  02 6c 2b 4c 44 41 23 32  36 3a 4c 44 58 23 6b 79  |.l+LDA#26:LDX#ky|
00000710  73 32 20 83 32 35 36 3a  4c 44 59 23 6b 79 73 32  |s2 .256:LDY#kys2|
00000720  20 81 32 35 36 3a 4a 53  52 70 0d 02 76 16 2e 72  | .256:JSRp..v..r|
00000730  63 68 20 4a 53 52 6f 73  72 3a 42 43 53 72 74 73  |ch JSRosr:BCSrts|
00000740  0d 02 80 09 80 23 26 44  46 0d 02 8a 29 43 4d 50  |.....#&DF...)CMP|
00000750  23 26 34 36 3a 42 4e 45  6e 31 3a 49 4e 43 64 61  |#&46:BNEn1:INCda|
00000760  64 64 3a 42 4e 45 6e 31  3a 49 4e 43 64 61 64 64  |dd:BNEn1:INCdadd|
00000770  2b 31 0d 02 94 3d 2e 6e  31 20 43 4d 50 23 26 34  |+1...=.n1 CMP#&4|
00000780  32 3a 42 4e 45 6e 32 3a  44 45 43 64 61 64 64 3a  |2:BNEn2:DECdadd:|
00000790  4c 44 41 64 61 64 64 3a  43 4d 50 23 26 46 46 3a  |LDAdadd:CMP#&FF:|
000007a0  42 4e 45 6e 32 3a 44 45  43 64 61 64 64 2b 31 0d  |BNEn2:DECdadd+1.|
000007b0  02 9e 15 2e 6e 32 20 43  4d 50 23 26 35 32 3a 42  |....n2 CMP#&52:B|
000007c0  45 51 73 74 0d 02 a8 0f  4a 4d 50 6d 61 69 6e 6c  |EQst....JMPmainl|
000007d0  6f 6f 70 0d 02 b2 10 2e  73 74 20 4a 4d 50 73 74  |oop.....st JMPst|
000007e0  61 72 74 0d 02 bc 0c 2e  72 74 73 20 52 54 53 0d  |art.....rts RTS.|
000007f0  02 c6 22 2e 70 20 53 54  58 61 64 64 72 3a 53 54  |..".p STXaddr:ST|
00000800  59 61 64 64 72 2b 31 3a  54 41 58 3a 4c 44 59 23  |Yaddr+1:TAX:LDY#|
00000810  30 0d 02 d0 2b 2e 6c 70  20 4c 44 41 28 61 64 64  |0...+.lp LDA(add|
00000820  72 29 2c 59 3a 4a 53 52  6f 73 3a 49 4e 59 3a 44  |r),Y:JSRos:INY:D|
00000830  45 58 3a 42 4e 45 6c 70  3a 52 54 53 0d 02 da 36  |EX:BNElp:RTS...6|
00000840  2e 74 69 74 6c 65 20 4c  44 41 23 35 32 3a 4c 44  |.title LDA#52:LD|
00000850  58 23 74 69 74 6c 65 32  20 83 32 35 36 3a 4c 44  |X#title2 .256:LD|
00000860  59 23 74 69 74 6c 65 32  20 81 32 35 36 3a 4a 4d  |Y#title2 .256:JM|
00000870  50 70 0d 02 e4 4b 2e 69  6e 70 75 74 20 4c 44 58  |Pp...K.input LDX|
00000880  23 74 61 62 6c 65 33 20  83 32 35 36 3a 4c 44 59  |#table3 .256:LDY|
00000890  23 74 61 62 6c 65 33 20  81 32 35 36 3a 4c 44 41  |#table3 .256:LDA|
000008a0  23 34 3a 53 54 41 74 61  62 6c 65 33 2b 32 3a 4c  |#4:STAtable3+2:L|
000008b0  44 41 23 30 3a 4a 53 52  26 46 46 46 31 0d 02 ee  |DA#0:JSR&FFF1...|
000008c0  9c 2e 6d 6f 76 65 20 4c  44 41 74 61 62 6c 65 34  |..move LDAtable4|
000008d0  2b 34 3a 43 4d 50 23 26  44 3a 42 45 51 69 6e 70  |+4:CMP#&D:BEQinp|
000008e0  32 3a 4c 44 41 74 61 62  6c 65 34 2b 33 3a 53 54  |2:LDAtable4+3:ST|
000008f0  41 74 61 62 6c 65 34 2b  34 3a 4c 44 41 74 61 62  |Atable4+4:LDAtab|
00000900  6c 65 34 2b 32 3a 53 54  41 74 61 62 6c 65 34 2b  |le4+2:STAtable4+|
00000910  33 3a 4c 44 41 74 61 62  6c 65 34 2b 31 3a 53 54  |3:LDAtable4+1:ST|
00000920  41 74 61 62 6c 65 34 2b  32 3a 4c 44 41 74 61 62  |Atable4+2:LDAtab|
00000930  6c 65 34 3a 53 54 41 74  61 62 6c 65 34 2b 31 3a  |le4:STAtable4+1:|
00000940  4c 44 41 23 34 38 3a 53  54 41 74 61 62 6c 65 34  |LDA#48:STAtable4|
00000950  3a 4a 4d 50 6d 6f 76 65  20 0d 02 f8 09 2e 69 6e  |:JMPmove .....in|
00000960  70 32 0d 03 02 31 4c 44  58 23 74 61 62 6c 65 34  |p2...1LDX#table4|
00000970  20 83 32 35 36 3a 4c 44  59 23 74 61 62 6c 65 34  | .256:LDY#table4|
00000980  20 81 32 35 36 3a 53 54  58 26 46 32 3a 53 54 59  | .256:STX&F2:STY|
00000990  26 46 33 0d 03 0c 0c 4a  53 52 26 46 46 45 37 0d  |&F3....JSR&FFE7.|
000009a0  03 16 6a 4c 44 59 23 30  3a 4a 53 52 6e 75 6d 3a  |..jLDY#0:JSRnum:|
000009b0  53 54 41 64 61 64 64 2b  31 3a 49 4e 59 3a 4a 53  |STAdadd+1:INY:JS|
000009c0  52 6e 75 6d 3a 53 54 41  64 61 64 64 3a 4c 44 41  |Rnum:STAdadd:LDA|
000009d0  23 30 3a 53 54 41 69 6e  63 3a 2e 63 6c 72 20 4c  |#0:STAinc:.clr L|
000009e0  44 59 23 34 3a 2e 6c 6f  20 53 54 41 74 61 62 6c  |DY#4:.lo STAtabl|
000009f0  65 34 2c 59 3a 44 45 59  3a 42 50 4c 6c 6f 3a 53  |e4,Y:DEY:BPLlo:S|
00000a00  54 41 69 6e 63 3a 52 54  53 0d 03 20 66 2e 6e 75  |TAinc:RTS.. f.nu|
00000a10  6d 20 4c 44 41 28 26 46  32 29 2c 59 3a 4a 53 52  |m LDA(&F2),Y:JSR|
00000a20  69 6e 73 74 72 3a 43 4c  43 3a 41 53 4c 41 3a 41  |instr:CLC:ASLA:A|
00000a30  53 4c 41 3a 41 53 4c 41  3a 41 53 4c 41 3a 53 54  |SLA:ASLA:ASLA:ST|
00000a40  41 74 65 6d 70 32 3a 49  4e 59 3a 4c 44 41 28 26  |Atemp2:INY:LDA(&|
00000a50  46 32 29 2c 59 3a 4a 53  52 69 6e 73 74 72 3a 43  |F2),Y:JSRinstr:C|
00000a60  4c 43 3a 41 44 43 74 65  6d 70 32 3a 52 54 53 0d  |LC:ADCtemp2:RTS.|
00000a70  03 2a 6f 2e 69 6e 73 74  72 20 53 54 59 79 3a 53  |.*o.instr STYy:S|
00000a80  54 41 74 65 6d 70 3a 4c  44 59 23 30 3a 2e 6c 6f  |TAtemp:LDY#0:.lo|
00000a90  6f 70 20 4c 44 41 20 49  64 61 74 61 2c 59 3a 43  |op LDA Idata,Y:C|
00000aa0  4d 50 74 65 6d 70 3a 42  45 51 65 6e 64 69 6e 73  |MPtemp:BEQendins|
00000ab0  3a 49 4e 59 3a 43 50 59  23 31 36 3a 42 4e 45 6c  |:INY:CPY#16:BNEl|
00000ac0  6f 6f 70 3a 4c 44 59 23  30 3a 2e 65 6e 64 69 6e  |oop:LDY#0:.endin|
00000ad0  73 20 54 59 41 3a 4c 44  59 79 3a 52 54 53 0d 03  |s TYA:LDYy:RTS..|
00000ae0  34 50 2e 64 61 70 72 74  20 4c 44 41 64 61 64 64  |4P.daprt LDAdadd|
00000af0  2b 31 3a 42 45 51 6e 6f  70 3a 4a 53 52 68 65 78  |+1:BEQnop:JSRhex|
00000b00  70 72 74 32 3a 4c 44 41  64 61 64 64 3a 4a 4d 50  |prt2:LDAdadd:JMP|
00000b10  68 65 78 70 72 74 3a 2e  6e 6f 70 20 4c 44 41 64  |hexprt:.nop LDAd|
00000b20  61 64 64 3a 4a 4d 50 68  65 78 70 72 74 32 0d 03  |add:JMPhexprt2..|
00000b30  3e 3f 2e 68 65 78 70 72  74 20 50 48 41 3a 4c 53  |>?.hexprt PHA:LS|
00000b40  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
00000b50  4c 53 52 20 41 3a 80 23  26 30 46 3a 4a 53 52 68  |LSR A:.#&0F:JSRh|
00000b60  70 72 74 3a 50 4c 41 3a  80 23 26 30 46 0d 03 48  |prt:PLA:.#&0F..H|
00000b70  32 2e 68 70 72 74 20 43  4d 50 23 26 30 41 3a 42  |2.hprt CMP#&0A:B|
00000b80  43 43 6f 76 65 72 3a 41  44 43 23 36 3a 2e 6f 76  |CCover:ADC#6:.ov|
00000b90  65 72 20 41 44 43 23 34  38 3a 4a 4d 50 6f 73 0d  |er ADC#48:JMPos.|
00000ba0  03 52 52 2e 68 65 78 70  72 74 32 20 50 48 41 3a  |.RR.hexprt2 PHA:|
00000bb0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 4c 53 52 20  |LSR A:LSR A:LSR |
00000bc0  41 3a 4c 53 52 20 41 3a  80 23 26 30 46 3a 42 45  |A:LSR A:.#&0F:BE|
00000bd0  51 6e 70 3a 4a 53 52 68  70 72 74 3a 2e 6e 70 20  |Qnp:JSRhprt:.np |
00000be0  50 4c 41 3a 80 23 26 30  46 3a 4a 4d 50 68 70 72  |PLA:.#&0F:JMPhpr|
00000bf0  74 0d 03 5c 20 2e 64 65  63 70 72 74 20 53 54 41  |t..\ .decprt STA|
00000c00  26 38 30 3a 43 4d 50 23  31 30 3a 42 43 43 6f 6e  |&80:CMP#10:BCCon|
00000c10  65 0d 03 66 2f 43 4d 50  23 32 30 30 3a 42 43 43  |e..f/CMP#200:BCC|
00000c20  70 31 30 30 3a 53 42 43  23 32 30 30 3a 53 54 41  |p100:SBC#200:STA|
00000c30  74 65 6d 70 3a 4c 44 41  23 32 3a 4a 4d 50 70 74  |temp:LDA#2:JMPpt|
00000c40  0d 03 70 2e 2e 70 31 30  30 20 43 4d 50 23 31 30  |..p..p100 CMP#10|
00000c50  30 3a 42 43 43 74 77 6f  3a 53 42 43 23 31 30 30  |0:BCCtwo:SBC#100|
00000c60  3a 53 54 41 74 65 6d 70  3a 4c 44 41 23 31 0d 03  |:STAtemp:LDA#1..|
00000c70  7a 16 2e 70 74 20 4a 53  52 70 72 74 3a 4c 44 41  |z..pt JSRprt:LDA|
00000c80  74 65 6d 70 0d 03 84 0e  2e 74 77 6f 20 4c 44 58  |temp.....two LDX|
00000c90  23 30 0d 03 8e 2a 2e 6c  70 20 53 45 43 3a 53 42  |#0...*.lp SEC:SB|
00000ca0  43 23 31 30 3a 42 43 43  70 72 3a 49 4e 58 3a 53  |C#10:BCCpr:INX:S|
00000cb0  54 41 74 65 6d 70 3a 4a  4d 50 6c 70 0d 03 98 12  |TAtemp:JMPlp....|
00000cc0  2e 70 72 20 54 58 41 3a  4a 53 52 70 72 74 0d 03  |.pr TXA:JSRprt..|
00000cd0  a2 12 4c 44 41 74 65 6d  70 3a 4a 53 52 70 72 74  |..LDAtemp:JSRprt|
00000ce0  0d 03 ac 07 52 54 53 0d  03 b6 0f 2e 6f 6e 65 20  |....RTS.....one |
00000cf0  4c 44 41 26 38 30 0d 03  c0 19 2e 70 72 74 20 43  |LDA&80.....prt C|
00000d00  4c 43 3a 41 44 43 23 34  38 3a 4a 4d 50 6f 73 0d  |LC:ADC#48:JMPos.|
00000d10  03 ca 05 20 0d 03 d4 21  2e 49 64 61 74 61 20 45  |... ...!.Idata E|
00000d20  51 55 53 22 30 31 32 33  34 35 36 37 38 39 41 42  |QUS"0123456789AB|
00000d30  43 44 45 46 22 0d 03 de  42 2e 74 61 62 6c 65 33  |CDEF"...B.table3|
00000d40  20 45 51 55 42 20 74 61  62 6c 65 34 20 83 32 35  | EQUB table4 .25|
00000d50  36 3a 45 51 55 42 20 74  61 62 6c 65 34 20 81 32  |6:EQUB table4 .2|
00000d60  35 36 3a 45 51 55 42 32  3a 45 51 55 42 33 32 3a  |56:EQUB2:EQUB32:|
00000d70  45 51 55 42 31 32 37 0d  03 e8 17 2e 74 61 62 6c  |EQUB127.....tabl|
00000d80  65 34 20 45 51 55 53 22  30 30 30 30 30 22 0d 03  |e4 EQUS"00000"..|
00000d90  f2 38 2e 64 20 45 51 55  42 32 32 3a 45 51 55 42  |.8.d EQUB22:EQUB|
00000da0  36 3a 45 51 55 42 31 39  3a 45 51 55 42 30 3a 45  |6:EQUB19:EQUB0:E|
00000db0  51 55 42 34 3a 45 51 55  42 30 3a 45 51 55 42 30  |QUB4:EQUB0:EQUB0|
00000dc0  3a 45 51 55 42 30 0d 03  fc 8c 2e 74 69 74 6c 65  |:EQUB0.....title|
00000dd0  32 20 45 51 55 42 31 32  3a 45 51 55 42 31 37 3a  |2 EQUB12:EQUB17:|
00000de0  45 51 55 42 31 32 39 3a  45 51 55 42 31 37 3a 45  |EQUB129:EQUB17:E|
00000df0  51 55 42 30 3a 45 51 55  42 33 31 3a 45 51 55 42  |QUB0:EQUB31:EQUB|
00000e00  30 3a 45 51 55 42 31 3a  45 51 55 53 22 2a 2a 2a  |0:EQUB1:EQUS"***|
00000e10  2a 2a 2a 2a 2a 2a 2a 2a  2a 20 44 69 73 63 20 20  |********* Disc  |
00000e20  45 78 70 6c 6f 72 65 72  20 2a 2a 2a 2a 2a 2a 2a  |Explorer *******|
00000e30  2a 2a 2a 2a 2a 22 3a 45  51 55 42 31 37 3a 45 51  |*****":EQUB17:EQ|
00000e40  55 42 31 32 38 3a 45 51  55 42 31 37 3a 45 51 55  |UB128:EQUB17:EQU|
00000e50  42 31 0d 04 06 35 2e 64  32 20 45 51 55 42 33 31  |B1...5.d2 EQUB31|
00000e60  3a 45 51 55 42 30 3a 45  51 55 42 34 3a 45 51 55  |:EQUB0:EQUB4:EQU|
00000e70  53 22 45 6e 74 65 72 20  64 69 73 63 20 61 64 64  |S"Enter disc add|
00000e80  72 65 73 73 3a 26 22 0d  04 10 4e 2e 62 6c 6f 63  |ress:&"...N.bloc|
00000e90  6b 20 45 51 55 42 30 3a  45 51 55 44 26 33 30 30  |k EQUB0:EQUD&300|
00000ea0  30 3a 45 51 55 42 38 3a  45 51 55 42 30 3a 45 51  |0:EQUB8:EQUB0:EQ|
00000eb0  55 42 64 61 64 64 20 81  32 35 36 3a 45 51 55 42  |UBdadd .256:EQUB|
00000ec0  64 61 64 64 20 83 32 35  36 3a 45 51 55 42 31 3a  |dadd .256:EQUB1:|
00000ed0  45 51 55 42 30 0d 04 1a  25 2e 64 61 64 64 20 45  |EQUB0...%.dadd E|
00000ee0  51 55 44 30 3a 2e 74 72  6b 20 45 51 55 57 30 3a  |QUD0:.trk EQUW0:|
00000ef0  2e 73 65 63 20 45 51 55  42 30 0d 04 24 45 2e 64  |.sec EQUB0..$E.d|
00000f00  61 20 45 51 55 53 22 44  69 73 63 20 61 64 64 72  |a EQUS"Disc addr|
00000f10  65 73 73 3d 26 22 3a 2e  74 6b 20 45 51 55 53 22  |ess=&":.tk EQUS"|
00000f20  20 2f 20 54 72 61 63 6b  3d 22 3a 2e 73 65 20 45  | / Track=":.se E|
00000f30  51 55 53 22 20 2f 20 53  65 63 74 6f 72 3d 22 0d  |QUS" / Sector=".|
00000f40  04 2e 4c 2e 68 65 61 64  32 20 45 51 55 42 33 31  |..L.head2 EQUB31|
00000f50  3a 45 51 55 42 30 3a 45  51 55 42 35 3a 45 51 55  |:EQUB0:EQUB5:EQU|
00000f60  53 22 2d 42 79 74 65 2d  2d 2d 2d 2d 2d 2d 48 65  |S"-Byte-------He|
00000f70  78 61 64 65 63 69 6d 61  6c 2d 2d 2d 2d 2d 2d 2d  |xadecimal-------|
00000f80  2d 41 73 63 69 69 2d 2d  2d 2d 22 0d 04 38 31 2e  |-Ascii----"..81.|
00000f90  6b 79 20 45 51 55 42 33  31 3a 45 51 55 42 31 30  |ky EQUB31:EQUB10|
00000fa0  3a 45 51 55 42 32 33 3a  45 51 55 53 22 50 72 65  |:EQUB23:EQUS"Pre|
00000fb0  73 73 20 61 20 6b 65 79  2e 2e 2e 22 0d 04 42 38  |ss a key..."..B8|
00000fc0  2e 6b 79 73 20 45 51 55  42 33 31 3a 45 51 55 42  |.kys EQUB31:EQUB|
00000fd0  38 3a 45 51 55 42 32 33  3a 45 51 55 53 22 42 3d  |8:EQUB23:EQUS"B=|
00000fe0  42 61 63 6b 20 20 20 20  20 20 46 3d 46 6f 72 77  |Back      F=Forw|
00000ff0  61 72 64 22 0d 04 4c 3b  2e 6b 79 73 32 20 45 51  |ard"..L;.kys2 EQ|
00001000  55 42 33 31 3a 45 51 55  42 38 3a 45 51 55 42 32  |UB31:EQUB8:EQUB2|
00001010  34 3a 45 51 55 53 22 52  3d 52 65 2d 72 75 6e 20  |4:EQUS"R=Re-run |
00001020  20 20 20 45 53 43 41 50  45 3d 51 75 69 74 22 0d  |   ESCAPE=Quit".|
00001030  04 56 05 5d 0d 04 60 05  ed 0d 04 6a 05 e1 0d ff  |.V.]..`....j....|
00001040