� **************************
 � M/C Label Lister Assembler
� (c) R.A.Dimond
(� Revised 1993
2 � **************************
<�6
Flnaddr=&70
P
ytemp=&76
Zoswrch=&FFEE
dosnewl=&FFE7
npage=&18
xtop=&12
�top2=&74
�hex=&80:work=&82
�decimal=&84
�code%=&900
��pass=0�2�2
�P%=code%
�[OPTpass
�
.start
�!LDA#14:JSRoswrch  \Paged mode
�$LDA#0:STAlnaddr   \Initiate line
�"LDApage:STAlnaddr+1 \addr to �
�/SEC:LDAtop:SBC#2:STAtop2  \Set top2 to �P-2
�LDAtop+1:SBC#0:STAtop2+1

\

'.chkstart \Check for [ start of m/c

	LDY#4

"G.loop LDA(lnaddr),Y:CMP#91:BEQlabchk:CMP#13:BEQnextline:INY:JMPloop

,\

6.labchk \Check for label

@	LDY#4

JG.loop2 LDA(lnaddr),Y:CMP#46:BEQlabprt:CMP#13:BEQchkend:INY:JMPloop2

T\

^:.labprt JSRlineno:LDA#32:JSRoswrch:JSRprt \Print label

hE.loop3 LDA(lnaddr),Y:CMP#13:BEQchkend:CMP#46:BEQlab2:INY:JMPloop3

r>.lab2 LDX#6:.lp LDA#32:JSRoswrch:DEX:BNElp:JSRprt:JMPloop3

|\

�#.chkend \Check for ] end of m/c

�	LDY#3

�T.loop4 INY:LDA(lnaddr),Y:CMP#93:BEQnextline:CMP#13:BNEloop4:JSRnewline:JMPlabchk

�\

�
.nextline

�-JSRnewline \Next line addr check for �P-2

�!LDAtop2:CMPlnaddr:BNEchkstart

�%LDAtop2+1:CMPlnaddr+1:BNEchkstart

�RTS

�\

�.newline

�/LDY#3:CLC:LDA(lnaddr),Y:ADClnaddr:STAlnaddr

�BCCover
INClnaddr+1

.over RTS
\
&.lineno STYytemp
0	LDY#0
:INY
DLDA(lnaddr),Y:STAhex+1
NINY
XLDA(lnaddr),Y:STAhex
bJSRprtlno:LDYytemp
lRTS
v\
�.prtlno
� .reset
� LDA #0
�  STA decimal+0:STA decimal+1
�  STA decimal+2:STA decimal+3
�  STA decimal+4:STA decimal+5
�
 .convert
� LDA #0
� STA work:STA work+1
� CLC:LDX #16
�
 .loop
� ROL hex:ROL hex+1
� ROL work:ROL work+1
 SEC:LDA work
 SBC #10:TAY
 LDA work+1
  SBC #0:BCC less
* STY work:STA work+1
4
 .less
> DEX:BNE loop
H ROL hex:ROL hex+1
R CLC:LDA work
\ ADC #48
f JSR concatenate
p LDA hex:�A hex+1
z BNE convert
�JSRshift
� LDX decimal
� LDY #1
� .print
� LDA decimal,Y
� JSR oswrch
� INY:DEX
� BNE print
� RTS
� .concatenate
� PHA:LDY decimal
�
 BEQ zero
�
 .move
 LDA decimal,Y
 STA decimal+1,Y
 DEY:BNE move
$
 .zero
. PLA
8 STA decimal+1
B INC decimal
L RTS
V
.shift
`#SEC:LDA#5:SBCdecimal:BEQnospace
j TAX:.sploop LDA#32:JSRoswrch
tDEX:BNEsploop
~.nospace RTS
�\
�U.prt INY:LDA(lnaddr),Y:CMP#32:BEQret:CMP#58:BEQret:CMP#13:BEQret:JSRoswrch:JMPprt
�.ret JMPosnewl
�]
��
� �"Press RETURN to save Code"
�
���=13
�#�"SAVE $.LBL "+�~code%+" "+�~P%
�

00000000  0d 00 0a 20 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  0d 00 14 20 f4 20 4d 2f  43 20 4c 61 62 65 6c 20  |... . M/C Label |
00000030  4c 69 73 74 65 72 20 41  73 73 65 6d 62 6c 65 72  |Lister Assembler|
00000040  0d 00 1e 14 f4 20 28 63  29 20 52 2e 41 2e 44 69  |..... (c) R.A.Di|
00000050  6d 6f 6e 64 0d 00 28 12  f4 20 52 65 76 69 73 65  |mond..(.. Revise|
00000060  64 20 31 39 39 33 0d 00  32 20 f4 20 2a 2a 2a 2a  |d 1993..2 . ****|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000080  2a 2a 2a 2a 2a 2a 0d 00  3c 06 eb 36 0d 00 46 0e  |******..<..6..F.|
00000090  6c 6e 61 64 64 72 3d 26  37 30 0d 00 50 0d 79 74  |lnaddr=&70..P.yt|
000000a0  65 6d 70 3d 26 37 36 0d  00 5a 10 6f 73 77 72 63  |emp=&76..Z.oswrc|
000000b0  68 3d 26 46 46 45 45 0d  00 64 10 6f 73 6e 65 77  |h=&FFEE..d.osnew|
000000c0  6c 3d 26 46 46 45 37 0d  00 6e 0c 70 61 67 65 3d  |l=&FFE7..n.page=|
000000d0  26 31 38 0d 00 78 0b 74  6f 70 3d 26 31 32 0d 00  |&18..x.top=&12..|
000000e0  82 0c 74 6f 70 32 3d 26  37 34 0d 00 8c 14 68 65  |..top2=&74....he|
000000f0  78 3d 26 38 30 3a 77 6f  72 6b 3d 26 38 32 0d 00  |x=&80:work=&82..|
00000100  96 0f 64 65 63 69 6d 61  6c 3d 26 38 34 0d 00 a0  |..decimal=&84...|
00000110  0e 63 6f 64 65 25 3d 26  39 30 30 0d 00 aa 0f e3  |.code%=&900.....|
00000120  70 61 73 73 3d 30 b8 32  88 32 0d 00 b4 0c 50 25  |pass=0.2.2....P%|
00000130  3d 63 6f 64 65 25 0d 00  be 0c 5b 4f 50 54 70 61  |=code%....[OPTpa|
00000140  73 73 0d 00 c8 0a 2e 73  74 61 72 74 0d 00 d2 21  |ss.....start...!|
00000150  4c 44 41 23 31 34 3a 4a  53 52 6f 73 77 72 63 68  |LDA#14:JSRoswrch|
00000160  20 20 5c 50 61 67 65 64  20 6d 6f 64 65 0d 00 dc  |  \Paged mode...|
00000170  24 4c 44 41 23 30 3a 53  54 41 6c 6e 61 64 64 72  |$LDA#0:STAlnaddr|
00000180  20 20 20 5c 49 6e 69 74  69 61 74 65 20 6c 69 6e  |   \Initiate lin|
00000190  65 0d 00 e6 22 4c 44 41  70 61 67 65 3a 53 54 41  |e..."LDApage:STA|
000001a0  6c 6e 61 64 64 72 2b 31  20 5c 61 64 64 72 20 74  |lnaddr+1 \addr t|
000001b0  6f 20 90 0d 00 f0 2f 53  45 43 3a 4c 44 41 74 6f  |o ..../SEC:LDAto|
000001c0  70 3a 53 42 43 23 32 3a  53 54 41 74 6f 70 32 20  |p:SBC#2:STAtop2 |
000001d0  20 5c 53 65 74 20 74 6f  70 32 20 74 6f 20 b8 50  | \Set top2 to .P|
000001e0  2d 32 0d 00 fa 1c 4c 44  41 74 6f 70 2b 31 3a 53  |-2....LDAtop+1:S|
000001f0  42 43 23 30 3a 53 54 41  74 6f 70 32 2b 31 0d 01  |BC#0:STAtop2+1..|
00000200  04 05 5c 0d 01 0e 27 2e  63 68 6b 73 74 61 72 74  |..\...'.chkstart|
00000210  20 5c 43 68 65 63 6b 20  66 6f 72 20 5b 20 73 74  | \Check for [ st|
00000220  61 72 74 20 6f 66 20 6d  2f 63 0d 01 18 09 4c 44  |art of m/c....LD|
00000230  59 23 34 0d 01 22 47 2e  6c 6f 6f 70 20 4c 44 41  |Y#4.."G.loop LDA|
00000240  28 6c 6e 61 64 64 72 29  2c 59 3a 43 4d 50 23 39  |(lnaddr),Y:CMP#9|
00000250  31 3a 42 45 51 6c 61 62  63 68 6b 3a 43 4d 50 23  |1:BEQlabchk:CMP#|
00000260  31 33 3a 42 45 51 6e 65  78 74 6c 69 6e 65 3a 49  |13:BEQnextline:I|
00000270  4e 59 3a 4a 4d 50 6c 6f  6f 70 0d 01 2c 05 5c 0d  |NY:JMPloop..,.\.|
00000280  01 36 1c 2e 6c 61 62 63  68 6b 20 5c 43 68 65 63  |.6..labchk \Chec|
00000290  6b 20 66 6f 72 20 6c 61  62 65 6c 0d 01 40 09 4c  |k for label..@.L|
000002a0  44 59 23 34 0d 01 4a 47  2e 6c 6f 6f 70 32 20 4c  |DY#4..JG.loop2 L|
000002b0  44 41 28 6c 6e 61 64 64  72 29 2c 59 3a 43 4d 50  |DA(lnaddr),Y:CMP|
000002c0  23 34 36 3a 42 45 51 6c  61 62 70 72 74 3a 43 4d  |#46:BEQlabprt:CM|
000002d0  50 23 31 33 3a 42 45 51  63 68 6b 65 6e 64 3a 49  |P#13:BEQchkend:I|
000002e0  4e 59 3a 4a 4d 50 6c 6f  6f 70 32 0d 01 54 05 5c  |NY:JMPloop2..T.\|
000002f0  0d 01 5e 3a 2e 6c 61 62  70 72 74 20 4a 53 52 6c  |..^:.labprt JSRl|
00000300  69 6e 65 6e 6f 3a 4c 44  41 23 33 32 3a 4a 53 52  |ineno:LDA#32:JSR|
00000310  6f 73 77 72 63 68 3a 4a  53 52 70 72 74 20 5c 50  |oswrch:JSRprt \P|
00000320  72 69 6e 74 20 6c 61 62  65 6c 0d 01 68 45 2e 6c  |rint label..hE.l|
00000330  6f 6f 70 33 20 4c 44 41  28 6c 6e 61 64 64 72 29  |oop3 LDA(lnaddr)|
00000340  2c 59 3a 43 4d 50 23 31  33 3a 42 45 51 63 68 6b  |,Y:CMP#13:BEQchk|
00000350  65 6e 64 3a 43 4d 50 23  34 36 3a 42 45 51 6c 61  |end:CMP#46:BEQla|
00000360  62 32 3a 49 4e 59 3a 4a  4d 50 6c 6f 6f 70 33 0d  |b2:INY:JMPloop3.|
00000370  01 72 3e 2e 6c 61 62 32  20 4c 44 58 23 36 3a 2e  |.r>.lab2 LDX#6:.|
00000380  6c 70 20 4c 44 41 23 33  32 3a 4a 53 52 6f 73 77  |lp LDA#32:JSRosw|
00000390  72 63 68 3a 44 45 58 3a  42 4e 45 6c 70 3a 4a 53  |rch:DEX:BNElp:JS|
000003a0  52 70 72 74 3a 4a 4d 50  6c 6f 6f 70 33 0d 01 7c  |Rprt:JMPloop3..||
000003b0  05 5c 0d 01 86 23 2e 63  68 6b 65 6e 64 20 5c 43  |.\...#.chkend \C|
000003c0  68 65 63 6b 20 66 6f 72  20 5d 20 65 6e 64 20 6f  |heck for ] end o|
000003d0  66 20 6d 2f 63 0d 01 90  09 4c 44 59 23 33 0d 01  |f m/c....LDY#3..|
000003e0  9a 54 2e 6c 6f 6f 70 34  20 49 4e 59 3a 4c 44 41  |.T.loop4 INY:LDA|
000003f0  28 6c 6e 61 64 64 72 29  2c 59 3a 43 4d 50 23 39  |(lnaddr),Y:CMP#9|
00000400  33 3a 42 45 51 6e 65 78  74 6c 69 6e 65 3a 43 4d  |3:BEQnextline:CM|
00000410  50 23 31 33 3a 42 4e 45  6c 6f 6f 70 34 3a 4a 53  |P#13:BNEloop4:JS|
00000420  52 6e 65 77 6c 69 6e 65  3a 4a 4d 50 6c 61 62 63  |Rnewline:JMPlabc|
00000430  68 6b 0d 01 a4 05 5c 0d  01 ae 0d 2e 6e 65 78 74  |hk....\.....next|
00000440  6c 69 6e 65 0d 01 b8 2d  4a 53 52 6e 65 77 6c 69  |line...-JSRnewli|
00000450  6e 65 20 5c 4e 65 78 74  20 6c 69 6e 65 20 61 64  |ne \Next line ad|
00000460  64 72 20 63 68 65 63 6b  20 66 6f 72 20 b8 50 2d  |dr check for .P-|
00000470  32 0d 01 c2 21 4c 44 41  74 6f 70 32 3a 43 4d 50  |2...!LDAtop2:CMP|
00000480  6c 6e 61 64 64 72 3a 42  4e 45 63 68 6b 73 74 61  |lnaddr:BNEchksta|
00000490  72 74 0d 01 cc 25 4c 44  41 74 6f 70 32 2b 31 3a  |rt...%LDAtop2+1:|
000004a0  43 4d 50 6c 6e 61 64 64  72 2b 31 3a 42 4e 45 63  |CMPlnaddr+1:BNEc|
000004b0  68 6b 73 74 61 72 74 0d  01 d6 07 52 54 53 0d 01  |hkstart....RTS..|
000004c0  e0 05 5c 0d 01 ea 0c 2e  6e 65 77 6c 69 6e 65 0d  |..\.....newline.|
000004d0  01 f4 2f 4c 44 59 23 33  3a 43 4c 43 3a 4c 44 41  |../LDY#3:CLC:LDA|
000004e0  28 6c 6e 61 64 64 72 29  2c 59 3a 41 44 43 6c 6e  |(lnaddr),Y:ADCln|
000004f0  61 64 64 72 3a 53 54 41  6c 6e 61 64 64 72 0d 01  |addr:STAlnaddr..|
00000500  fe 0b 42 43 43 6f 76 65  72 0d 02 08 0f 49 4e 43  |..BCCover....INC|
00000510  6c 6e 61 64 64 72 2b 31  0d 02 12 0d 2e 6f 76 65  |lnaddr+1.....ove|
00000520  72 20 52 54 53 0d 02 1c  05 5c 0d 02 26 14 2e 6c  |r RTS....\..&..l|
00000530  69 6e 65 6e 6f 20 53 54  59 79 74 65 6d 70 0d 02  |ineno STYytemp..|
00000540  30 09 4c 44 59 23 30 0d  02 3a 07 49 4e 59 0d 02  |0.LDY#0..:.INY..|
00000550  44 1a 4c 44 41 28 6c 6e  61 64 64 72 29 2c 59 3a  |D.LDA(lnaddr),Y:|
00000560  53 54 41 68 65 78 2b 31  0d 02 4e 07 49 4e 59 0d  |STAhex+1..N.INY.|
00000570  02 58 18 4c 44 41 28 6c  6e 61 64 64 72 29 2c 59  |.X.LDA(lnaddr),Y|
00000580  3a 53 54 41 68 65 78 0d  02 62 16 4a 53 52 70 72  |:STAhex..b.JSRpr|
00000590  74 6c 6e 6f 3a 4c 44 59  79 74 65 6d 70 0d 02 6c  |tlno:LDYytemp..l|
000005a0  07 52 54 53 0d 02 76 05  5c 0d 02 80 0b 2e 70 72  |.RTS..v.\.....pr|
000005b0  74 6c 6e 6f 0d 02 8a 0b  20 2e 72 65 73 65 74 0d  |tlno.... .reset.|
000005c0  02 94 0b 20 4c 44 41 20  23 30 0d 02 9e 20 20 53  |... LDA #0...  S|
000005d0  54 41 20 64 65 63 69 6d  61 6c 2b 30 3a 53 54 41  |TA decimal+0:STA|
000005e0  20 64 65 63 69 6d 61 6c  2b 31 0d 02 a8 20 20 53  | decimal+1...  S|
000005f0  54 41 20 64 65 63 69 6d  61 6c 2b 32 3a 53 54 41  |TA decimal+2:STA|
00000600  20 64 65 63 69 6d 61 6c  2b 33 0d 02 b2 20 20 53  | decimal+3...  S|
00000610  54 41 20 64 65 63 69 6d  61 6c 2b 34 3a 53 54 41  |TA decimal+4:STA|
00000620  20 64 65 63 69 6d 61 6c  2b 35 0d 02 bc 0d 20 2e  | decimal+5.... .|
00000630  63 6f 6e 76 65 72 74 0d  02 c6 0b 20 4c 44 41 20  |convert.... LDA |
00000640  23 30 0d 02 d0 18 20 53  54 41 20 77 6f 72 6b 3a  |#0.... STA work:|
00000650  53 54 41 20 77 6f 72 6b  2b 31 0d 02 da 10 20 43  |STA work+1.... C|
00000660  4c 43 3a 4c 44 58 20 23  31 36 0d 02 e4 0a 20 2e  |LC:LDX #16.... .|
00000670  6c 6f 6f 70 0d 02 ee 16  20 52 4f 4c 20 68 65 78  |loop.... ROL hex|
00000680  3a 52 4f 4c 20 68 65 78  2b 31 0d 02 f8 18 20 52  |:ROL hex+1.... R|
00000690  4f 4c 20 77 6f 72 6b 3a  52 4f 4c 20 77 6f 72 6b  |OL work:ROL work|
000006a0  2b 31 0d 03 02 11 20 53  45 43 3a 4c 44 41 20 77  |+1.... SEC:LDA w|
000006b0  6f 72 6b 0d 03 0c 10 20  53 42 43 20 23 31 30 3a  |ork.... SBC #10:|
000006c0  54 41 59 0d 03 16 0f 20  4c 44 41 20 77 6f 72 6b  |TAY.... LDA work|
000006d0  2b 31 0d 03 20 14 20 53  42 43 20 23 30 3a 42 43  |+1.. . SBC #0:BC|
000006e0  43 20 6c 65 73 73 0d 03  2a 18 20 53 54 59 20 77  |C less..*. STY w|
000006f0  6f 72 6b 3a 53 54 41 20  77 6f 72 6b 2b 31 0d 03  |ork:STA work+1..|
00000700  34 0a 20 2e 6c 65 73 73  0d 03 3e 11 20 44 45 58  |4. .less..>. DEX|
00000710  3a 42 4e 45 20 6c 6f 6f  70 0d 03 48 16 20 52 4f  |:BNE loop..H. RO|
00000720  4c 20 68 65 78 3a 52 4f  4c 20 68 65 78 2b 31 0d  |L hex:ROL hex+1.|
00000730  03 52 11 20 43 4c 43 3a  4c 44 41 20 77 6f 72 6b  |.R. CLC:LDA work|
00000740  0d 03 5c 0c 20 41 44 43  20 23 34 38 0d 03 66 14  |..\. ADC #48..f.|
00000750  20 4a 53 52 20 63 6f 6e  63 61 74 65 6e 61 74 65  | JSR concatenate|
00000760  0d 03 70 15 20 4c 44 41  20 68 65 78 3a 84 41 20  |..p. LDA hex:.A |
00000770  68 65 78 2b 31 0d 03 7a  10 20 42 4e 45 20 63 6f  |hex+1..z. BNE co|
00000780  6e 76 65 72 74 0d 03 84  0c 4a 53 52 73 68 69 66  |nvert....JSRshif|
00000790  74 0d 03 8e 10 20 4c 44  58 20 64 65 63 69 6d 61  |t.... LDX decima|
000007a0  6c 0d 03 98 0b 20 4c 44  59 20 23 31 0d 03 a2 0b  |l.... LDY #1....|
000007b0  20 2e 70 72 69 6e 74 0d  03 ac 12 20 4c 44 41 20  | .print.... LDA |
000007c0  64 65 63 69 6d 61 6c 2c  59 0d 03 b6 0f 20 4a 53  |decimal,Y.... JS|
000007d0  52 20 6f 73 77 72 63 68  0d 03 c0 0c 20 49 4e 59  |R oswrch.... INY|
000007e0  3a 44 45 58 0d 03 ca 0e  20 42 4e 45 20 70 72 69  |:DEX.... BNE pri|
000007f0  6e 74 0d 03 d4 08 20 52  54 53 0d 03 de 11 20 2e  |nt.... RTS.... .|
00000800  63 6f 6e 63 61 74 65 6e  61 74 65 0d 03 e8 14 20  |concatenate.... |
00000810  50 48 41 3a 4c 44 59 20  64 65 63 69 6d 61 6c 0d  |PHA:LDY decimal.|
00000820  03 f2 0d 20 42 45 51 20  7a 65 72 6f 0d 03 fc 0a  |... BEQ zero....|
00000830  20 2e 6d 6f 76 65 0d 04  06 12 20 4c 44 41 20 64  | .move.... LDA d|
00000840  65 63 69 6d 61 6c 2c 59  0d 04 10 14 20 53 54 41  |ecimal,Y.... STA|
00000850  20 64 65 63 69 6d 61 6c  2b 31 2c 59 0d 04 1a 11  | decimal+1,Y....|
00000860  20 44 45 59 3a 42 4e 45  20 6d 6f 76 65 0d 04 24  | DEY:BNE move..$|
00000870  0a 20 2e 7a 65 72 6f 0d  04 2e 08 20 50 4c 41 0d  |. .zero.... PLA.|
00000880  04 38 12 20 53 54 41 20  64 65 63 69 6d 61 6c 2b  |.8. STA decimal+|
00000890  31 0d 04 42 10 20 49 4e  43 20 64 65 63 69 6d 61  |1..B. INC decima|
000008a0  6c 0d 04 4c 08 20 52 54  53 0d 04 56 0a 2e 73 68  |l..L. RTS..V..sh|
000008b0  69 66 74 0d 04 60 23 53  45 43 3a 4c 44 41 23 35  |ift..`#SEC:LDA#5|
000008c0  3a 53 42 43 64 65 63 69  6d 61 6c 3a 42 45 51 6e  |:SBCdecimal:BEQn|
000008d0  6f 73 70 61 63 65 0d 04  6a 20 54 41 58 3a 2e 73  |ospace..j TAX:.s|
000008e0  70 6c 6f 6f 70 20 4c 44  41 23 33 32 3a 4a 53 52  |ploop LDA#32:JSR|
000008f0  6f 73 77 72 63 68 0d 04  74 11 44 45 58 3a 42 4e  |oswrch..t.DEX:BN|
00000900  45 73 70 6c 6f 6f 70 0d  04 7e 10 2e 6e 6f 73 70  |Esploop..~..nosp|
00000910  61 63 65 20 52 54 53 0d  04 88 05 5c 0d 04 92 55  |ace RTS....\...U|
00000920  2e 70 72 74 20 49 4e 59  3a 4c 44 41 28 6c 6e 61  |.prt INY:LDA(lna|
00000930  64 64 72 29 2c 59 3a 43  4d 50 23 33 32 3a 42 45  |ddr),Y:CMP#32:BE|
00000940  51 72 65 74 3a 43 4d 50  23 35 38 3a 42 45 51 72  |Qret:CMP#58:BEQr|
00000950  65 74 3a 43 4d 50 23 31  33 3a 42 45 51 72 65 74  |et:CMP#13:BEQret|
00000960  3a 4a 53 52 6f 73 77 72  63 68 3a 4a 4d 50 70 72  |:JSRoswrch:JMPpr|
00000970  74 0d 04 9c 12 2e 72 65  74 20 4a 4d 50 6f 73 6e  |t.....ret JMPosn|
00000980  65 77 6c 0d 04 a6 05 5d  0d 04 b0 05 ed 0d 04 ba  |ewl....]........|
00000990  20 f1 22 50 72 65 73 73  20 52 45 54 55 52 4e 20  | ."Press RETURN |
000009a0  74 6f 20 73 61 76 65 20  43 6f 64 65 22 0d 04 c4  |to save Code"...|
000009b0  0a f5 fd a5 3d 31 33 0d  04 ce 23 ff 22 53 41 56  |....=13...#."SAV|
000009c0  45 20 24 2e 4c 42 4c 20  22 2b c3 7e 63 6f 64 65  |E $.LBL "+.~code|
000009d0  25 2b 22 20 22 2b c3 7e  50 25 0d ff              |%+" "+.~P%..|
000009dc