%� *******************************
� Read DFS sectors
!� Original BASIC ADFS version
(� By R.A.Waddilove
2� Electron User June 1989
<� Modified for DFS use and
F%� M/coded by R.A.Dimond Sept 1997
P%� *******************************
Z
� Q% &500
d
�assem
n,�"SAVE DFSE "+�~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
�tmp1=&80:tmp2=&81:buff=&82
��pass=4�6�2
�P%=&2000:O%=Q%
�[OPTpass
�
.start
�$LDA#8:LDX#d �256:LDY#d �256:JSRp
�JSRtitle
�$LDX#dc �256:LDY#dc �256:JSR&FFF7
�'LDA#23:LDX#dr �256:LDY#dr �256:JSRp
�.rdch JSR&FFE0

CMP#48:BCCrdch

CMP#52:BCSrdch

	JSRos

"SEC:SBC#48:STAblock

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

6JSRinput

@
.mainloop

JJSRsplit

T0LDA#&7F:LDX#block �256:LDY#block �256:JSRosw

^CLDAblock+10:BEQcont:LDA#12:LDX#derr �256:LDY#derr �256:JSRp:RTS

h.cont LDA#0:STAbyte

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

|LDA#2:STAcount2:.loop2

�JSRtitle

�JSR&FFE7

�-LDA#14:LDX#head1 �256:LDY#head1 �256:JSRp

�JSRdaprt

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

�LDAtrk:JSRdecprt

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

�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
07CLC:LDAbuff:ADC#8:STAbuff:LDAbuff+1:ADC#0:STAbuff+1
:CLC:LDAbyte:ADC#8:STAbyte
DJSR&FFE7
NDECcount:BNEloop
X'LDA#17:LDX#ky �256:LDY#ky �256:JSRp
bJSRosr:BCSrts
lDECcount2:BEQnxt
v.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
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
4jLDY#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
Ho.instr STYy:STAtemp:LDY#0:.loop LDA Idata,Y:CMPtemp:BEQendins:INY:CPY#16:BNEloop:LDY#0:.endins TYA:LDYy:RTS
RP.daprt LDAdadd+1:BEQnop:JSRhexprt2:LDAdadd:JMPhexprt:.nop LDAdadd:JMPhexprt2
\?.hexprt PHA:LSR A:LSR A:LSR A:LSR A:�#&0F:JSRhprt:PLA:�#&0F
f2.hprt CMP#&0A:BCCover:ADC#6:.over ADC#48:JMPos
pR.hexprt2 PHA:LSR A:LSR A:LSR A:LSR A:�#&0F:BEQnp:JSRhprt:.np PLA:�#&0F:JMPhprt
z .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
�
.split
�LDA dadd:STA da
�LDA dadd+1:STA da+1
	LDX#4
.shlp1 ASL da:ROL da+1
DEX:BNE shlp1
$LDA da+1:STA tmp1
.
JSR dvide
8LDA tmp1:STA trk
BLDA tmp2:STA da+1
L	LDX#4
V.shlp2 LSR da+1:ROR da
`DEX:BNE shlp2
jLDA da:STA tmp1
t
JSR dvide
~CLDA trk:ASL A:ASL A:ASL A:ASL A:CLC:ADC tmp1:STA trk:STAblock+7
�LDA tmp2:STA sec:STAblock+8
�RTS
�
.dvide
�	LDX#8
�	LDA#0
�	.dvlp
�ASL tmp1
�	ROL A
�
CMP#10
�
BCC over2
�
SBC#10
�INC tmp1

.over2

DEX
BNE dvlp
STA tmp2
(RTS
2!.Idata EQUS"0123456789ABCDEF"
<B.table3 EQUB table4 �256:EQUB table4 �256:EQUB2:EQUB32:EQUB127
F.table4 EQUS"00000"
P8.d EQUB22:EQUB6:EQUB19:EQUB0:EQUB4:EQUB0:EQUB0:EQUB0
Z�.title2 EQUB12:EQUB17:EQUB129:EQUB17:EQUB0:EQUB31:EQUB0:EQUB1:EQUS"********** DFS Disc  Explorer **********":EQUB17:EQUB128:EQUB17:EQUB1
d.dc EQUS"*DISC"
n1.dr EQUB13:EQUB13:EQUS"Drive no. (0,1,2,3)? "
x0.d2 EQUB13:EQUB13:EQUS"Enter disc address:&"
�P.block EQUB0:EQUD&3000:EQUB3:EQUB&53:EQUBdadd �10:EQUBdadd �10:EQUB&21:EQUB0
�/.dadd EQUD0:.da EQUD0:.trk EQUW0:.sec EQUB0
�H.head1 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"
�(.derr EQUB13:EQUB13:EQUS"Disc error"
�]
��
��
�

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  16 f4 20 52 65 61 64 20  |*****..... Read |
00000030  44 46 53 20 73 65 63 74  6f 72 73 0d 00 1e 21 f4  |DFS sectors...!.|
00000040  20 4f 72 69 67 69 6e 61  6c 20 42 41 53 49 43 20  | Original BASIC |
00000050  41 44 46 53 20 76 65 72  73 69 6f 6e 0d 00 28 16  |ADFS version..(.|
00000060  f4 20 42 79 20 52 2e 41  2e 57 61 64 64 69 6c 6f  |. By R.A.Waddilo|
00000070  76 65 0d 00 32 1d f4 20  45 6c 65 63 74 72 6f 6e  |ve..2.. Electron|
00000080  20 55 73 65 72 20 4a 75  6e 65 20 31 39 38 39 0d  | User June 1989.|
00000090  00 3c 1e f4 20 4d 6f 64  69 66 69 65 64 20 66 6f  |.<.. Modified fo|
000000a0  72 20 44 46 53 20 75 73  65 20 61 6e 64 0d 00 46  |r DFS use and..F|
000000b0  25 f4 20 4d 2f 63 6f 64  65 64 20 62 79 20 52 2e  |%. M/coded by R.|
000000c0  41 2e 44 69 6d 6f 6e 64  20 53 65 70 74 20 31 39  |A.Dimond 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 2c ff 22 53 41 56 45  20 44 46 53 45 20 22 2b  |n,."SAVE DFSE "+|
00000120  c3 7e 51 25 2b 22 20 22  2b c3 7e 4f 25 2b 22 20  |.~Q%+" "+.~O%+" |
00000130  32 30 30 30 20 32 30 30  30 22 0d 00 78 05 e0 0d  |2000 2000"..x...|
00000140  00 82 0b dd f2 61 73 73  65 6d 0d 00 8c 20 6f 73  |.....assem... os|
00000150  3d 26 46 46 45 33 3a 6f  73 77 3d 26 46 46 46 31  |=&FFE3:osw=&FFF1|
00000160  3a 6f 73 72 3d 26 46 46  45 30 0d 00 96 4b 61 64  |:osr=&FFE0...Kad|
00000170  64 72 3d 26 37 30 3a 69  6e 63 3d 26 37 34 3a 74  |dr=&70:inc=&74:t|
00000180  65 6d 70 3d 26 37 38 3a  74 65 6d 70 32 3d 26 37  |emp=&78:temp2=&7|
00000190  39 3a 79 3d 26 37 41 3a  62 79 74 65 3d 26 37 42  |9:y=&7A:byte=&7B|
000001a0  3a 63 6f 75 6e 74 3d 26  37 43 3a 63 6f 75 6e 74  |:count=&7C:count|
000001b0  32 3d 26 37 44 0d 00 a0  1e 74 6d 70 31 3d 26 38  |2=&7D....tmp1=&8|
000001c0  30 3a 74 6d 70 32 3d 26  38 31 3a 62 75 66 66 3d  |0:tmp2=&81:buff=|
000001d0  26 38 32 0d 00 aa 0f e3  70 61 73 73 3d 34 b8 36  |&82.....pass=4.6|
000001e0  88 32 0d 00 b4 12 50 25  3d 26 32 30 30 30 3a 4f  |.2....P%=&2000:O|
000001f0  25 3d 51 25 0d 00 be 0c  5b 4f 50 54 70 61 73 73  |%=Q%....[OPTpass|
00000200  0d 00 c8 0a 2e 73 74 61  72 74 0d 00 d2 24 4c 44  |.....start...$LD|
00000210  41 23 38 3a 4c 44 58 23  64 20 83 32 35 36 3a 4c  |A#8:LDX#d .256:L|
00000220  44 59 23 64 20 81 32 35  36 3a 4a 53 52 70 0d 00  |DY#d .256:JSRp..|
00000230  dc 0c 4a 53 52 74 69 74  6c 65 0d 00 e6 24 4c 44  |..JSRtitle...$LD|
00000240  58 23 64 63 20 83 32 35  36 3a 4c 44 59 23 64 63  |X#dc .256:LDY#dc|
00000250  20 81 32 35 36 3a 4a 53  52 26 46 46 46 37 0d 00  | .256:JSR&FFF7..|
00000260  f0 27 4c 44 41 23 32 33  3a 4c 44 58 23 64 72 20  |.'LDA#23:LDX#dr |
00000270  83 32 35 36 3a 4c 44 59  23 64 72 20 81 32 35 36  |.256:LDY#dr .256|
00000280  3a 4a 53 52 70 0d 00 fa  12 2e 72 64 63 68 20 4a  |:JSRp.....rdch J|
00000290  53 52 26 46 46 45 30 0d  01 04 12 43 4d 50 23 34  |SR&FFE0....CMP#4|
000002a0  38 3a 42 43 43 72 64 63  68 0d 01 0e 12 43 4d 50  |8:BCCrdch....CMP|
000002b0  23 35 32 3a 42 43 53 72  64 63 68 0d 01 18 09 4a  |#52:BCSrdch....J|
000002c0  53 52 6f 73 0d 01 22 17  53 45 43 3a 53 42 43 23  |SRos..".SEC:SBC#|
000002d0  34 38 3a 53 54 41 62 6c  6f 63 6b 0d 01 2c 27 4c  |48:STAblock..,'L|
000002e0  44 41 23 32 32 3a 4c 44  58 23 64 32 20 83 32 35  |DA#22:LDX#d2 .25|
000002f0  36 3a 4c 44 59 23 64 32  20 81 32 35 36 3a 4a 53  |6:LDY#d2 .256:JS|
00000300  52 70 0d 01 36 0c 4a 53  52 69 6e 70 75 74 0d 01  |Rp..6.JSRinput..|
00000310  40 0d 2e 6d 61 69 6e 6c  6f 6f 70 0d 01 4a 0c 4a  |@..mainloop..J.J|
00000320  53 52 73 70 6c 69 74 0d  01 54 30 4c 44 41 23 26  |SRsplit..T0LDA#&|
00000330  37 46 3a 4c 44 58 23 62  6c 6f 63 6b 20 83 32 35  |7F:LDX#block .25|
00000340  36 3a 4c 44 59 23 62 6c  6f 63 6b 20 81 32 35 36  |6:LDY#block .256|
00000350  3a 4a 53 52 6f 73 77 0d  01 5e 43 4c 44 41 62 6c  |:JSRosw..^CLDAbl|
00000360  6f 63 6b 2b 31 30 3a 42  45 51 63 6f 6e 74 3a 4c  |ock+10:BEQcont:L|
00000370  44 41 23 31 32 3a 4c 44  58 23 64 65 72 72 20 83  |DA#12:LDX#derr .|
00000380  32 35 36 3a 4c 44 59 23  64 65 72 72 20 81 32 35  |256:LDY#derr .25|
00000390  36 3a 4a 53 52 70 3a 52  54 53 0d 01 68 17 2e 63  |6:JSRp:RTS..h..c|
000003a0  6f 6e 74 20 4c 44 41 23  30 3a 53 54 41 62 79 74  |ont LDA#0:STAbyt|
000003b0  65 0d 01 72 23 4c 44 41  23 30 3a 53 54 41 62 75  |e..r#LDA#0:STAbu|
000003c0  66 66 3a 4c 44 41 23 26  33 30 3a 53 54 41 62 75  |ff:LDA#&30:STAbu|
000003d0  66 66 2b 31 0d 01 7c 1a  4c 44 41 23 32 3a 53 54  |ff+1..|.LDA#2:ST|
000003e0  41 63 6f 75 6e 74 32 3a  2e 6c 6f 6f 70 32 0d 01  |Acount2:.loop2..|
000003f0  86 0c 4a 53 52 74 69 74  6c 65 0d 01 90 0c 4a 53  |..JSRtitle....JS|
00000400  52 26 46 46 45 37 0d 01  9a 2d 4c 44 41 23 31 34  |R&FFE7...-LDA#14|
00000410  3a 4c 44 58 23 68 65 61  64 31 20 83 32 35 36 3a  |:LDX#head1 .256:|
00000420  4c 44 59 23 68 65 61 64  31 20 81 32 35 36 3a 4a  |LDY#head1 .256:J|
00000430  53 52 70 0d 01 a4 0c 4a  53 52 64 61 70 72 74 0d  |SRp....JSRdaprt.|
00000440  01 ae 26 4c 44 41 23 39  3a 4c 44 58 23 74 6b 20  |..&LDA#9:LDX#tk |
00000450  83 32 35 36 3a 4c 44 59  23 74 6b 20 81 32 35 36  |.256:LDY#tk .256|
00000460  3a 4a 53 52 70 0d 01 b8  14 4c 44 41 74 72 6b 3a  |:JSRp....LDAtrk:|
00000470  4a 53 52 64 65 63 70 72  74 0d 01 c2 27 4c 44 41  |JSRdecprt...'LDA|
00000480  23 31 30 3a 4c 44 58 23  73 65 20 83 32 35 36 3a  |#10:LDX#se .256:|
00000490  4c 44 59 23 73 65 20 81  32 35 36 3a 4a 53 52 70  |LDY#se .256:JSRp|
000004a0  0d 01 cc 14 4c 44 41 73  65 63 3a 4a 53 52 64 65  |....LDAsec:JSRde|
000004b0  63 70 72 74 0d 01 d6 2d  4c 44 41 23 34 33 3a 4c  |cprt...-LDA#43:L|
000004c0  44 58 23 68 65 61 64 32  20 83 32 35 36 3a 4c 44  |DX#head2 .256:LD|
000004d0  59 23 68 65 61 64 32 20  81 32 35 36 3a 4a 53 52  |Y#head2 .256:JSR|
000004e0  70 0d 01 e0 19 4c 44 41  23 31 36 3a 53 54 41 63  |p....LDA#16:STAc|
000004f0  6f 75 6e 74 3a 2e 6c 6f  6f 70 0d 01 ea 4b 4c 44  |ount:.loop...KLD|
00000500  41 62 79 74 65 3a 43 4d  50 23 31 30 3a 42 43 53  |Abyte:CMP#10:BCS|
00000510  6e 75 31 30 3a 4c 44 58  23 33 3a 4a 4d 50 63 6f  |nu10:LDX#3:JMPco|
00000520  6e 3a 2e 6e 75 31 30 3a  43 4d 50 23 31 30 30 3a  |n:.nu10:CMP#100:|
00000530  42 43 53 6e 75 31 30 30  3a 4c 44 58 23 32 3a 4a  |BCSnu100:LDX#2:J|
00000540  4d 50 63 6f 6e 0d 01 f4  4e 2e 6e 75 31 30 30 3a  |MPcon...N.nu100:|
00000550  4c 44 58 23 31 3a 2e 63  6f 6e 20 4c 44 41 23 26  |LDX#1:.con LDA#&|
00000560  32 30 3a 4a 53 52 6f 73  3a 44 45 58 3a 42 4e 45  |20:JSRos:DEX:BNE|
00000570  63 6f 6e 3a 4c 44 41 62  79 74 65 3a 4a 53 52 64  |con:LDAbyte:JSRd|
00000580  65 63 70 72 74 3a 4c 44  41 23 26 33 41 3a 4a 53  |ecprt:LDA#&3A:JS|
00000590  52 6f 73 0d 01 fe 46 4c  44 59 23 30 3a 2e 6c 6c  |Ros...FLDY#0:.ll|
000005a0  70 20 4c 44 41 23 26 32  30 3a 4a 53 52 26 46 46  |p LDA#&20:JSR&FF|
000005b0  45 45 3a 4c 44 41 28 62  75 66 66 29 2c 59 3a 4a  |EE:LDA(buff),Y:J|
000005c0  53 52 68 65 78 70 72 74  3a 49 4e 59 3a 43 50 59  |SRhexprt:INY:CPY|
000005d0  23 38 3a 42 4e 45 6c 6c  70 0d 02 08 17 4c 44 41  |#8:BNEllp....LDA|
000005e0  23 26 32 30 3a 4a 53 52  6f 73 3a 4a 53 52 6f 73  |#&20:JSRos:JSRos|
000005f0  0d 02 12 1b 4c 44 59 23  30 3a 2e 6c 6c 70 32 20  |....LDY#0:.llp2 |
00000600  4c 44 41 28 62 75 66 66  29 2c 59 0d 02 1c 3e 43  |LDA(buff),Y...>C|
00000610  4d 50 23 26 32 30 3a 42  43 43 6e 70 74 3a 43 4d  |MP#&20:BCCnpt:CM|
00000620  50 23 26 37 46 3a 42 43  53 6e 70 74 3a 4a 4d 50  |P#&7F:BCSnpt:JMP|
00000630  70 70 3a 2e 6e 70 74 20  4c 44 41 23 26 32 45 3a  |pp:.npt LDA#&2E:|
00000640  2e 70 70 20 4a 53 52 6f  73 0d 02 26 15 49 4e 59  |.pp JSRos..&.INY|
00000650  3a 43 50 59 23 38 3a 42  4e 45 6c 6c 70 32 0d 02  |:CPY#8:BNEllp2..|
00000660  30 37 43 4c 43 3a 4c 44  41 62 75 66 66 3a 41 44  |07CLC:LDAbuff:AD|
00000670  43 23 38 3a 53 54 41 62  75 66 66 3a 4c 44 41 62  |C#8:STAbuff:LDAb|
00000680  75 66 66 2b 31 3a 41 44  43 23 30 3a 53 54 41 62  |uff+1:ADC#0:STAb|
00000690  75 66 66 2b 31 0d 02 3a  1d 43 4c 43 3a 4c 44 41  |uff+1..:.CLC:LDA|
000006a0  62 79 74 65 3a 41 44 43  23 38 3a 53 54 41 62 79  |byte:ADC#8:STAby|
000006b0  74 65 0d 02 44 0c 4a 53  52 26 46 46 45 37 0d 02  |te..D.JSR&FFE7..|
000006c0  4e 14 44 45 43 63 6f 75  6e 74 3a 42 4e 45 6c 6f  |N.DECcount:BNElo|
000006d0  6f 70 0d 02 58 27 4c 44  41 23 31 37 3a 4c 44 58  |op..X'LDA#17:LDX|
000006e0  23 6b 79 20 83 32 35 36  3a 4c 44 59 23 6b 79 20  |#ky .256:LDY#ky |
000006f0  81 32 35 36 3a 4a 53 52  70 0d 02 62 11 4a 53 52  |.256:JSRp..b.JSR|
00000700  6f 73 72 3a 42 43 53 72  74 73 0d 02 6c 14 44 45  |osr:BCSrts..l.DE|
00000710  43 63 6f 75 6e 74 32 3a  42 45 51 6e 78 74 0d 02  |Ccount2:BEQnxt..|
00000720  76 2e 4c 44 41 23 26 38  30 3a 53 54 41 62 75 66  |v.LDA#&80:STAbuf|
00000730  66 3a 4c 44 41 23 26 33  30 3a 53 54 41 62 75 66  |f:LDA#&30:STAbuf|
00000740  66 2b 31 3a 4a 4d 50 6c  6f 6f 70 32 0d 02 80 2e  |f+1:JMPloop2....|
00000750  2e 6e 78 74 20 4c 44 41  23 32 34 3a 4c 44 58 23  |.nxt LDA#24:LDX#|
00000760  6b 79 73 20 83 32 35 36  3a 4c 44 59 23 6b 79 73  |kys .256:LDY#kys|
00000770  20 81 32 35 36 3a 4a 53  52 70 0d 02 8a 2b 4c 44  | .256:JSRp...+LD|
00000780  41 23 32 36 3a 4c 44 58  23 6b 79 73 32 20 83 32  |A#26:LDX#kys2 .2|
00000790  35 36 3a 4c 44 59 23 6b  79 73 32 20 81 32 35 36  |56:LDY#kys2 .256|
000007a0  3a 4a 53 52 70 0d 02 94  16 2e 72 63 68 20 4a 53  |:JSRp.....rch JS|
000007b0  52 6f 73 72 3a 42 43 53  72 74 73 0d 02 9e 09 80  |Rosr:BCSrts.....|
000007c0  23 26 44 46 0d 02 a8 29  43 4d 50 23 26 34 36 3a  |#&DF...)CMP#&46:|
000007d0  42 4e 45 6e 31 3a 49 4e  43 64 61 64 64 3a 42 4e  |BNEn1:INCdadd:BN|
000007e0  45 6e 31 3a 49 4e 43 64  61 64 64 2b 31 0d 02 b2  |En1:INCdadd+1...|
000007f0  3d 2e 6e 31 20 43 4d 50  23 26 34 32 3a 42 4e 45  |=.n1 CMP#&42:BNE|
00000800  6e 32 3a 44 45 43 64 61  64 64 3a 4c 44 41 64 61  |n2:DECdadd:LDAda|
00000810  64 64 3a 43 4d 50 23 26  46 46 3a 42 4e 45 6e 32  |dd:CMP#&FF:BNEn2|
00000820  3a 44 45 43 64 61 64 64  2b 31 0d 02 bc 15 2e 6e  |:DECdadd+1.....n|
00000830  32 20 43 4d 50 23 26 35  32 3a 42 45 51 73 74 0d  |2 CMP#&52:BEQst.|
00000840  02 c6 0f 4a 4d 50 6d 61  69 6e 6c 6f 6f 70 0d 02  |...JMPmainloop..|
00000850  d0 10 2e 73 74 20 4a 4d  50 73 74 61 72 74 0d 02  |...st JMPstart..|
00000860  da 0c 2e 72 74 73 20 52  54 53 0d 02 e4 22 2e 70  |...rts RTS...".p|
00000870  20 53 54 58 61 64 64 72  3a 53 54 59 61 64 64 72  | STXaddr:STYaddr|
00000880  2b 31 3a 54 41 58 3a 4c  44 59 23 30 0d 02 ee 2b  |+1:TAX:LDY#0...+|
00000890  2e 6c 70 20 4c 44 41 28  61 64 64 72 29 2c 59 3a  |.lp LDA(addr),Y:|
000008a0  4a 53 52 6f 73 3a 49 4e  59 3a 44 45 58 3a 42 4e  |JSRos:INY:DEX:BN|
000008b0  45 6c 70 3a 52 54 53 0d  02 f8 36 2e 74 69 74 6c  |Elp:RTS...6.titl|
000008c0  65 20 4c 44 41 23 35 32  3a 4c 44 58 23 74 69 74  |e LDA#52:LDX#tit|
000008d0  6c 65 32 20 83 32 35 36  3a 4c 44 59 23 74 69 74  |le2 .256:LDY#tit|
000008e0  6c 65 32 20 81 32 35 36  3a 4a 4d 50 70 0d 03 02  |le2 .256:JMPp...|
000008f0  4b 2e 69 6e 70 75 74 20  4c 44 58 23 74 61 62 6c  |K.input LDX#tabl|
00000900  65 33 20 83 32 35 36 3a  4c 44 59 23 74 61 62 6c  |e3 .256:LDY#tabl|
00000910  65 33 20 81 32 35 36 3a  4c 44 41 23 34 3a 53 54  |e3 .256:LDA#4:ST|
00000920  41 74 61 62 6c 65 33 2b  32 3a 4c 44 41 23 30 3a  |Atable3+2:LDA#0:|
00000930  4a 53 52 26 46 46 46 31  0d 03 0c 9c 2e 6d 6f 76  |JSR&FFF1.....mov|
00000940  65 20 4c 44 41 74 61 62  6c 65 34 2b 34 3a 43 4d  |e LDAtable4+4:CM|
00000950  50 23 26 44 3a 42 45 51  69 6e 70 32 3a 4c 44 41  |P#&D:BEQinp2:LDA|
00000960  74 61 62 6c 65 34 2b 33  3a 53 54 41 74 61 62 6c  |table4+3:STAtabl|
00000970  65 34 2b 34 3a 4c 44 41  74 61 62 6c 65 34 2b 32  |e4+4:LDAtable4+2|
00000980  3a 53 54 41 74 61 62 6c  65 34 2b 33 3a 4c 44 41  |:STAtable4+3:LDA|
00000990  74 61 62 6c 65 34 2b 31  3a 53 54 41 74 61 62 6c  |table4+1:STAtabl|
000009a0  65 34 2b 32 3a 4c 44 41  74 61 62 6c 65 34 3a 53  |e4+2:LDAtable4:S|
000009b0  54 41 74 61 62 6c 65 34  2b 31 3a 4c 44 41 23 34  |TAtable4+1:LDA#4|
000009c0  38 3a 53 54 41 74 61 62  6c 65 34 3a 4a 4d 50 6d  |8:STAtable4:JMPm|
000009d0  6f 76 65 20 0d 03 16 09  2e 69 6e 70 32 0d 03 20  |ove .....inp2.. |
000009e0  31 4c 44 58 23 74 61 62  6c 65 34 20 83 32 35 36  |1LDX#table4 .256|
000009f0  3a 4c 44 59 23 74 61 62  6c 65 34 20 81 32 35 36  |:LDY#table4 .256|
00000a00  3a 53 54 58 26 46 32 3a  53 54 59 26 46 33 0d 03  |:STX&F2:STY&F3..|
00000a10  2a 0c 4a 53 52 26 46 46  45 37 0d 03 34 6a 4c 44  |*.JSR&FFE7..4jLD|
00000a20  59 23 30 3a 4a 53 52 6e  75 6d 3a 53 54 41 64 61  |Y#0:JSRnum:STAda|
00000a30  64 64 2b 31 3a 49 4e 59  3a 4a 53 52 6e 75 6d 3a  |dd+1:INY:JSRnum:|
00000a40  53 54 41 64 61 64 64 3a  4c 44 41 23 30 3a 53 54  |STAdadd:LDA#0:ST|
00000a50  41 69 6e 63 3a 2e 63 6c  72 20 4c 44 59 23 34 3a  |Ainc:.clr LDY#4:|
00000a60  2e 6c 6f 20 53 54 41 74  61 62 6c 65 34 2c 59 3a  |.lo STAtable4,Y:|
00000a70  44 45 59 3a 42 50 4c 6c  6f 3a 53 54 41 69 6e 63  |DEY:BPLlo:STAinc|
00000a80  3a 52 54 53 0d 03 3e 66  2e 6e 75 6d 20 4c 44 41  |:RTS..>f.num LDA|
00000a90  28 26 46 32 29 2c 59 3a  4a 53 52 69 6e 73 74 72  |(&F2),Y:JSRinstr|
00000aa0  3a 43 4c 43 3a 41 53 4c  41 3a 41 53 4c 41 3a 41  |:CLC:ASLA:ASLA:A|
00000ab0  53 4c 41 3a 41 53 4c 41  3a 53 54 41 74 65 6d 70  |SLA:ASLA:STAtemp|
00000ac0  32 3a 49 4e 59 3a 4c 44  41 28 26 46 32 29 2c 59  |2:INY:LDA(&F2),Y|
00000ad0  3a 4a 53 52 69 6e 73 74  72 3a 43 4c 43 3a 41 44  |:JSRinstr:CLC:AD|
00000ae0  43 74 65 6d 70 32 3a 52  54 53 0d 03 48 6f 2e 69  |Ctemp2:RTS..Ho.i|
00000af0  6e 73 74 72 20 53 54 59  79 3a 53 54 41 74 65 6d  |nstr STYy:STAtem|
00000b00  70 3a 4c 44 59 23 30 3a  2e 6c 6f 6f 70 20 4c 44  |p:LDY#0:.loop LD|
00000b10  41 20 49 64 61 74 61 2c  59 3a 43 4d 50 74 65 6d  |A Idata,Y:CMPtem|
00000b20  70 3a 42 45 51 65 6e 64  69 6e 73 3a 49 4e 59 3a  |p:BEQendins:INY:|
00000b30  43 50 59 23 31 36 3a 42  4e 45 6c 6f 6f 70 3a 4c  |CPY#16:BNEloop:L|
00000b40  44 59 23 30 3a 2e 65 6e  64 69 6e 73 20 54 59 41  |DY#0:.endins TYA|
00000b50  3a 4c 44 59 79 3a 52 54  53 0d 03 52 50 2e 64 61  |:LDYy:RTS..RP.da|
00000b60  70 72 74 20 4c 44 41 64  61 64 64 2b 31 3a 42 45  |prt LDAdadd+1:BE|
00000b70  51 6e 6f 70 3a 4a 53 52  68 65 78 70 72 74 32 3a  |Qnop:JSRhexprt2:|
00000b80  4c 44 41 64 61 64 64 3a  4a 4d 50 68 65 78 70 72  |LDAdadd:JMPhexpr|
00000b90  74 3a 2e 6e 6f 70 20 4c  44 41 64 61 64 64 3a 4a  |t:.nop LDAdadd:J|
00000ba0  4d 50 68 65 78 70 72 74  32 0d 03 5c 3f 2e 68 65  |MPhexprt2..\?.he|
00000bb0  78 70 72 74 20 50 48 41  3a 4c 53 52 20 41 3a 4c  |xprt PHA:LSR A:L|
00000bc0  53 52 20 41 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |SR A:LSR A:LSR A|
00000bd0  3a 80 23 26 30 46 3a 4a  53 52 68 70 72 74 3a 50  |:.#&0F:JSRhprt:P|
00000be0  4c 41 3a 80 23 26 30 46  0d 03 66 32 2e 68 70 72  |LA:.#&0F..f2.hpr|
00000bf0  74 20 43 4d 50 23 26 30  41 3a 42 43 43 6f 76 65  |t CMP#&0A:BCCove|
00000c00  72 3a 41 44 43 23 36 3a  2e 6f 76 65 72 20 41 44  |r:ADC#6:.over AD|
00000c10  43 23 34 38 3a 4a 4d 50  6f 73 0d 03 70 52 2e 68  |C#48:JMPos..pR.h|
00000c20  65 78 70 72 74 32 20 50  48 41 3a 4c 53 52 20 41  |exprt2 PHA:LSR A|
00000c30  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000c40  20 41 3a 80 23 26 30 46  3a 42 45 51 6e 70 3a 4a  | A:.#&0F:BEQnp:J|
00000c50  53 52 68 70 72 74 3a 2e  6e 70 20 50 4c 41 3a 80  |SRhprt:.np PLA:.|
00000c60  23 26 30 46 3a 4a 4d 50  68 70 72 74 0d 03 7a 20  |#&0F:JMPhprt..z |
00000c70  2e 64 65 63 70 72 74 20  53 54 41 26 38 30 3a 43  |.decprt STA&80:C|
00000c80  4d 50 23 31 30 3a 42 43  43 6f 6e 65 0d 03 84 2f  |MP#10:BCCone.../|
00000c90  43 4d 50 23 32 30 30 3a  42 43 43 70 31 30 30 3a  |CMP#200:BCCp100:|
00000ca0  53 42 43 23 32 30 30 3a  53 54 41 74 65 6d 70 3a  |SBC#200:STAtemp:|
00000cb0  4c 44 41 23 32 3a 4a 4d  50 70 74 0d 03 8e 2e 2e  |LDA#2:JMPpt.....|
00000cc0  70 31 30 30 20 43 4d 50  23 31 30 30 3a 42 43 43  |p100 CMP#100:BCC|
00000cd0  74 77 6f 3a 53 42 43 23  31 30 30 3a 53 54 41 74  |two:SBC#100:STAt|
00000ce0  65 6d 70 3a 4c 44 41 23  31 0d 03 98 16 2e 70 74  |emp:LDA#1.....pt|
00000cf0  20 4a 53 52 70 72 74 3a  4c 44 41 74 65 6d 70 0d  | JSRprt:LDAtemp.|
00000d00  03 a2 0e 2e 74 77 6f 20  4c 44 58 23 30 0d 03 ac  |....two LDX#0...|
00000d10  2a 2e 6c 70 20 53 45 43  3a 53 42 43 23 31 30 3a  |*.lp SEC:SBC#10:|
00000d20  42 43 43 70 72 3a 49 4e  58 3a 53 54 41 74 65 6d  |BCCpr:INX:STAtem|
00000d30  70 3a 4a 4d 50 6c 70 0d  03 b6 12 2e 70 72 20 54  |p:JMPlp.....pr T|
00000d40  58 41 3a 4a 53 52 70 72  74 0d 03 c0 12 4c 44 41  |XA:JSRprt....LDA|
00000d50  74 65 6d 70 3a 4a 53 52  70 72 74 0d 03 ca 07 52  |temp:JSRprt....R|
00000d60  54 53 0d 03 d4 0f 2e 6f  6e 65 20 4c 44 41 26 38  |TS.....one LDA&8|
00000d70  30 0d 03 de 19 2e 70 72  74 20 43 4c 43 3a 41 44  |0.....prt CLC:AD|
00000d80  43 23 34 38 3a 4a 4d 50  6f 73 0d 03 e8 0a 2e 73  |C#48:JMPos.....s|
00000d90  70 6c 69 74 0d 03 f2 13  4c 44 41 20 64 61 64 64  |plit....LDA dadd|
00000da0  3a 53 54 41 20 64 61 0d  03 fc 17 4c 44 41 20 64  |:STA da....LDA d|
00000db0  61 64 64 2b 31 3a 53 54  41 20 64 61 2b 31 0d 04  |add+1:STA da+1..|
00000dc0  06 09 4c 44 58 23 34 0d  04 10 1a 2e 73 68 6c 70  |..LDX#4.....shlp|
00000dd0  31 20 41 53 4c 20 64 61  3a 52 4f 4c 20 64 61 2b  |1 ASL da:ROL da+|
00000de0  31 0d 04 1a 11 44 45 58  3a 42 4e 45 20 73 68 6c  |1....DEX:BNE shl|
00000df0  70 31 0d 04 24 15 4c 44  41 20 64 61 2b 31 3a 53  |p1..$.LDA da+1:S|
00000e00  54 41 20 74 6d 70 31 0d  04 2e 0d 4a 53 52 20 64  |TA tmp1....JSR d|
00000e10  76 69 64 65 0d 04 38 14  4c 44 41 20 74 6d 70 31  |vide..8.LDA tmp1|
00000e20  3a 53 54 41 20 74 72 6b  0d 04 42 15 4c 44 41 20  |:STA trk..B.LDA |
00000e30  74 6d 70 32 3a 53 54 41  20 64 61 2b 31 0d 04 4c  |tmp2:STA da+1..L|
00000e40  09 4c 44 58 23 34 0d 04  56 1a 2e 73 68 6c 70 32  |.LDX#4..V..shlp2|
00000e50  20 4c 53 52 20 64 61 2b  31 3a 52 4f 52 20 64 61  | LSR da+1:ROR da|
00000e60  0d 04 60 11 44 45 58 3a  42 4e 45 20 73 68 6c 70  |..`.DEX:BNE shlp|
00000e70  32 0d 04 6a 13 4c 44 41  20 64 61 3a 53 54 41 20  |2..j.LDA da:STA |
00000e80  74 6d 70 31 0d 04 74 0d  4a 53 52 20 64 76 69 64  |tmp1..t.JSR dvid|
00000e90  65 0d 04 7e 43 4c 44 41  20 74 72 6b 3a 41 53 4c  |e..~CLDA trk:ASL|
00000ea0  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00000eb0  53 4c 20 41 3a 43 4c 43  3a 41 44 43 20 74 6d 70  |SL A:CLC:ADC tmp|
00000ec0  31 3a 53 54 41 20 74 72  6b 3a 53 54 41 62 6c 6f  |1:STA trk:STAblo|
00000ed0  63 6b 2b 37 0d 04 88 1f  4c 44 41 20 74 6d 70 32  |ck+7....LDA tmp2|
00000ee0  3a 53 54 41 20 73 65 63  3a 53 54 41 62 6c 6f 63  |:STA sec:STAbloc|
00000ef0  6b 2b 38 0d 04 92 07 52  54 53 0d 04 9c 0a 2e 64  |k+8....RTS.....d|
00000f00  76 69 64 65 0d 04 a6 09  4c 44 58 23 38 0d 04 b0  |vide....LDX#8...|
00000f10  09 4c 44 41 23 30 0d 04  ba 09 2e 64 76 6c 70 0d  |.LDA#0.....dvlp.|
00000f20  04 c4 0c 41 53 4c 20 74  6d 70 31 0d 04 ce 09 52  |...ASL tmp1....R|
00000f30  4f 4c 20 41 0d 04 d8 0a  43 4d 50 23 31 30 0d 04  |OL A....CMP#10..|
00000f40  e2 0d 42 43 43 20 6f 76  65 72 32 0d 04 ec 0a 53  |..BCC over2....S|
00000f50  42 43 23 31 30 0d 04 f6  0c 49 4e 43 20 74 6d 70  |BC#10....INC tmp|
00000f60  31 0d 05 00 0a 2e 6f 76  65 72 32 0d 05 0a 07 44  |1.....over2....D|
00000f70  45 58 0d 05 14 0c 42 4e  45 20 64 76 6c 70 0d 05  |EX....BNE dvlp..|
00000f80  1e 0c 53 54 41 20 74 6d  70 32 0d 05 28 07 52 54  |..STA tmp2..(.RT|
00000f90  53 0d 05 32 21 2e 49 64  61 74 61 20 45 51 55 53  |S..2!.Idata EQUS|
00000fa0  22 30 31 32 33 34 35 36  37 38 39 41 42 43 44 45  |"0123456789ABCDE|
00000fb0  46 22 0d 05 3c 42 2e 74  61 62 6c 65 33 20 45 51  |F"..<B.table3 EQ|
00000fc0  55 42 20 74 61 62 6c 65  34 20 83 32 35 36 3a 45  |UB table4 .256:E|
00000fd0  51 55 42 20 74 61 62 6c  65 34 20 81 32 35 36 3a  |QUB table4 .256:|
00000fe0  45 51 55 42 32 3a 45 51  55 42 33 32 3a 45 51 55  |EQUB2:EQUB32:EQU|
00000ff0  42 31 32 37 0d 05 46 17  2e 74 61 62 6c 65 34 20  |B127..F..table4 |
00001000  45 51 55 53 22 30 30 30  30 30 22 0d 05 50 38 2e  |EQUS"00000"..P8.|
00001010  64 20 45 51 55 42 32 32  3a 45 51 55 42 36 3a 45  |d EQUB22:EQUB6:E|
00001020  51 55 42 31 39 3a 45 51  55 42 30 3a 45 51 55 42  |QUB19:EQUB0:EQUB|
00001030  34 3a 45 51 55 42 30 3a  45 51 55 42 30 3a 45 51  |4:EQUB0:EQUB0:EQ|
00001040  55 42 30 0d 05 5a 8c 2e  74 69 74 6c 65 32 20 45  |UB0..Z..title2 E|
00001050  51 55 42 31 32 3a 45 51  55 42 31 37 3a 45 51 55  |QUB12:EQUB17:EQU|
00001060  42 31 32 39 3a 45 51 55  42 31 37 3a 45 51 55 42  |B129:EQUB17:EQUB|
00001070  30 3a 45 51 55 42 33 31  3a 45 51 55 42 30 3a 45  |0:EQUB31:EQUB0:E|
00001080  51 55 42 31 3a 45 51 55  53 22 2a 2a 2a 2a 2a 2a  |QUB1:EQUS"******|
00001090  2a 2a 2a 2a 20 44 46 53  20 44 69 73 63 20 20 45  |**** DFS Disc  E|
000010a0  78 70 6c 6f 72 65 72 20  2a 2a 2a 2a 2a 2a 2a 2a  |xplorer ********|
000010b0  2a 2a 22 3a 45 51 55 42  31 37 3a 45 51 55 42 31  |**":EQUB17:EQUB1|
000010c0  32 38 3a 45 51 55 42 31  37 3a 45 51 55 42 31 0d  |28:EQUB17:EQUB1.|
000010d0  05 64 13 2e 64 63 20 45  51 55 53 22 2a 44 49 53  |.d..dc EQUS"*DIS|
000010e0  43 22 0d 05 6e 31 2e 64  72 20 45 51 55 42 31 33  |C"..n1.dr EQUB13|
000010f0  3a 45 51 55 42 31 33 3a  45 51 55 53 22 44 72 69  |:EQUB13:EQUS"Dri|
00001100  76 65 20 6e 6f 2e 20 28  30 2c 31 2c 32 2c 33 29  |ve no. (0,1,2,3)|
00001110  3f 20 22 0d 05 78 30 2e  64 32 20 45 51 55 42 31  |? "..x0.d2 EQUB1|
00001120  33 3a 45 51 55 42 31 33  3a 45 51 55 53 22 45 6e  |3:EQUB13:EQUS"En|
00001130  74 65 72 20 64 69 73 63  20 61 64 64 72 65 73 73  |ter disc address|
00001140  3a 26 22 0d 05 82 50 2e  62 6c 6f 63 6b 20 45 51  |:&"...P.block EQ|
00001150  55 42 30 3a 45 51 55 44  26 33 30 30 30 3a 45 51  |UB0:EQUD&3000:EQ|
00001160  55 42 33 3a 45 51 55 42  26 35 33 3a 45 51 55 42  |UB3:EQUB&53:EQUB|
00001170  64 61 64 64 20 81 31 30  3a 45 51 55 42 64 61 64  |dadd .10:EQUBdad|
00001180  64 20 83 31 30 3a 45 51  55 42 26 32 31 3a 45 51  |d .10:EQUB&21:EQ|
00001190  55 42 30 0d 05 8c 2f 2e  64 61 64 64 20 45 51 55  |UB0.../.dadd EQU|
000011a0  44 30 3a 2e 64 61 20 45  51 55 44 30 3a 2e 74 72  |D0:.da EQUD0:.tr|
000011b0  6b 20 45 51 55 57 30 3a  2e 73 65 63 20 45 51 55  |k EQUW0:.sec EQU|
000011c0  42 30 0d 05 96 48 2e 68  65 61 64 31 20 45 51 55  |B0...H.head1 EQU|
000011d0  53 22 44 69 73 63 20 61  64 64 72 65 73 73 3d 26  |S"Disc address=&|
000011e0  22 3a 2e 74 6b 20 45 51  55 53 22 20 2f 20 54 72  |":.tk EQUS" / Tr|
000011f0  61 63 6b 3d 22 3a 2e 73  65 20 45 51 55 53 22 20  |ack=":.se EQUS" |
00001200  2f 20 53 65 63 74 6f 72  3d 22 0d 05 a0 4c 2e 68  |/ Sector="...L.h|
00001210  65 61 64 32 20 45 51 55  42 33 31 3a 45 51 55 42  |ead2 EQUB31:EQUB|
00001220  30 3a 45 51 55 42 35 3a  45 51 55 53 22 2d 42 79  |0:EQUB5:EQUS"-By|
00001230  74 65 2d 2d 2d 2d 2d 2d  2d 48 65 78 61 64 65 63  |te-------Hexadec|
00001240  69 6d 61 6c 2d 2d 2d 2d  2d 2d 2d 2d 41 73 63 69  |imal--------Asci|
00001250  69 2d 2d 2d 2d 22 0d 05  aa 31 2e 6b 79 20 45 51  |i----"...1.ky EQ|
00001260  55 42 33 31 3a 45 51 55  42 31 30 3a 45 51 55 42  |UB31:EQUB10:EQUB|
00001270  32 33 3a 45 51 55 53 22  50 72 65 73 73 20 61 20  |23:EQUS"Press a |
00001280  6b 65 79 2e 2e 2e 22 0d  05 b4 38 2e 6b 79 73 20  |key..."...8.kys |
00001290  45 51 55 42 33 31 3a 45  51 55 42 38 3a 45 51 55  |EQUB31:EQUB8:EQU|
000012a0  42 32 33 3a 45 51 55 53  22 42 3d 42 61 63 6b 20  |B23:EQUS"B=Back |
000012b0  20 20 20 20 20 46 3d 46  6f 72 77 61 72 64 22 0d  |     F=Forward".|
000012c0  05 be 3b 2e 6b 79 73 32  20 45 51 55 42 33 31 3a  |..;.kys2 EQUB31:|
000012d0  45 51 55 42 38 3a 45 51  55 42 32 34 3a 45 51 55  |EQUB8:EQUB24:EQU|
000012e0  53 22 52 3d 52 65 2d 72  75 6e 20 20 20 20 45 53  |S"R=Re-run    ES|
000012f0  43 41 50 45 3d 51 75 69  74 22 0d 05 c8 28 2e 64  |CAPE=Quit"...(.d|
00001300  65 72 72 20 45 51 55 42  31 33 3a 45 51 55 42 31  |err EQUB13:EQUB1|
00001310  33 3a 45 51 55 53 22 44  69 73 63 20 65 72 72 6f  |3:EQUS"Disc erro|
00001320  72 22 0d 05 d2 05 5d 0d  05 dc 05 ed 0d 05 e6 05  |r"....].........|
00001330  e1 0d ff                                          |...|
00001333