� ***********************
� FNPROC Lister Assembler
� (c) R.A.Dimond
(� Revised 1993
2� ***********************
<�6
Flnaddr=&70
Pdataddr=&72
Z
ytemp=&76
doswrch=&FFEE
nosnewl=&FFE7
xpage=&18
�top=&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


.mainloop

%JSRlinechk   \Check line for ݤ/�

"JLDY#3:CLC:LDA(lnaddr),Y:ADClnaddr:STAlnaddr   \Set lnaddr to next line

,BCCover

6INClnaddr+1

@	.over

J<LDAtop2:CMPlnaddr:BNEmainloop  \Check for end of program

T%LDAtop2+1:CMPlnaddr+1:BNEmainloop

^RTS

h.linechk

r	LDY#3

|/JSRspaces:CMP#221:BNEret \Check for � token

�/JSRspaces:CMP#164:BEQfn  \Check for � token

�&CMP#242:BEQproc \Check for � token

�.ret RTS

�.fdat EQUS" DEFFN"

�.pdat EQUS" DEFPROC"

�.fn

�JSRlineno:STYytemp

�LDX#fdat �256

�LDY#fdat �256

�LDA#6:JSRprt:LDYytemp

�.fnlp LDA(lnaddr),Y

�(CMP#41:BEQnl  \If ")" then next line

�'INY:LDA(lnaddr),Y  \Check next byte
,CMP#58:BEQnl  \If a colon then next line
)CMP#13:BEQnl  \If CRet then next line
(CMP#32:BEQnl  \If " " then next line
&(CMP#61:BEQnl  \If "=" then next line
0JSRoswrch:JMPfnlp
:.nl JMPosnewl
D	.proc
NJSRlineno:STYytemp
XLDX#pdat �256
bLDY#pdat �256
lLDA#8:JSRprt:LDYytemp
v.prlp LDA(lnaddr),Y
�(CMP#41:BEQnl  \If ")" then next line
�'INY:LDA(lnaddr),Y  \Check next byte
�,CMP#58:BEQnl  \If a colon then next line
�)CMP#13:BEQnl  \If CRet then next line
�(CMP#32:BEQnl  \If " " then next line
�JSRoswrch:JMPprlp
�.lineno STYytemp
�	LDY#0
�INY
�LDA(lnaddr),Y:STAhex+1
�INY
�LDA(lnaddr),Y:STAhex
�JSRprtlno:LDYytemp
RTS
.prtlno

.reset
 
LDA #0
*STA decimal+0:STA decimal+1
4STA decimal+2:STA decimal+3
>STA decimal+4:STA decimal+5
H.convert
R
LDA #0
\STA work:STA work+1
fCLC:LDX #16
p	.loop
zROL 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
�	.less
�DEX:BNE loop
�ROL hex:ROL hex+1
�CLC:LDA work
�ADC #48
�JSR concatenate
�LDA hex:�A hex+1
BNE convert
JSRshift
LDX decimal
$
LDY #1
.
.print
8LDA decimal,Y
BJSR oswrch
LINY:DEX
V
BNE print
`RTS
j.concatenate
tPHA:LDY decimal
~BEQ zero
�	.move
�LDA decimal,Y
�STA decimal+1,Y
�DEY:BNE move
�	.zero
�PLA
�STA decimal+1
�INC decimal
�RTS
�
.shift
�#SEC:LDA#5:SBCdecimal:BEQnospace
� TAX:.sploop LDA#32:JSRoswrch
DEX:BNEsploop

.nospace RTS
.prt
STXdataddr
(STYdataddr+1
2TAX
<	LDY#0
F.plp
PLDA(dataddr),Y:JSRoswrch
ZINY
dDEX
n
BNEplp
xRTS
�.spaces INY:LDA(lnaddr),Y
�CMP#32:BEQspaces
�RTS
�]
��
� �"Press RETURN to save code"
�
���=13
�#�"SAVE $.FPL "+�~code%+" "+�~P%
�

00000000  0d 00 0a 1d 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 0d 00 14  |*************...|
00000020  1d f4 20 46 4e 50 52 4f  43 20 4c 69 73 74 65 72  |.. FNPROC Lister|
00000030  20 41 73 73 65 6d 62 6c  65 72 0d 00 1e 14 f4 20  | Assembler..... |
00000040  28 63 29 20 52 2e 41 2e  44 69 6d 6f 6e 64 0d 00  |(c) R.A.Dimond..|
00000050  28 12 f4 20 52 65 76 69  73 65 64 20 31 39 39 33  |(.. Revised 1993|
00000060  0d 00 32 1d f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..2.. **********|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 00 3c  |*************..<|
00000080  06 eb 36 0d 00 46 0e 6c  6e 61 64 64 72 3d 26 37  |..6..F.lnaddr=&7|
00000090  30 0d 00 50 0f 64 61 74  61 64 64 72 3d 26 37 32  |0..P.dataddr=&72|
000000a0  0d 00 5a 0d 79 74 65 6d  70 3d 26 37 36 0d 00 64  |..Z.ytemp=&76..d|
000000b0  10 6f 73 77 72 63 68 3d  26 46 46 45 45 0d 00 6e  |.oswrch=&FFEE..n|
000000c0  10 6f 73 6e 65 77 6c 3d  26 46 46 45 37 0d 00 78  |.osnewl=&FFE7..x|
000000d0  0c 70 61 67 65 3d 26 31  38 0d 00 82 0b 74 6f 70  |.page=&18....top|
000000e0  3d 26 31 32 0d 00 8c 0c  74 6f 70 32 3d 26 37 34  |=&12....top2=&74|
000000f0  0d 00 96 14 68 65 78 3d  26 38 30 3a 77 6f 72 6b  |....hex=&80:work|
00000100  3d 26 38 32 0d 00 a0 0f  64 65 63 69 6d 61 6c 3d  |=&82....decimal=|
00000110  26 38 34 0d 00 aa 0e 63  6f 64 65 25 3d 26 39 30  |&84....code%=&90|
00000120  30 0d 00 b4 0f e3 70 61  73 73 3d 30 b8 32 88 32  |0.....pass=0.2.2|
00000130  0d 00 be 0c 50 25 3d 63  6f 64 65 25 0d 00 c8 0c  |....P%=code%....|
00000140  5b 4f 50 54 70 61 73 73  0d 00 d2 0a 2e 73 74 61  |[OPTpass.....sta|
00000150  72 74 0d 00 dc 21 4c 44  41 23 31 34 3a 4a 53 52  |rt...!LDA#14:JSR|
00000160  6f 73 77 72 63 68 20 20  5c 50 61 67 65 64 20 6d  |oswrch  \Paged m|
00000170  6f 64 65 0d 00 e6 24 4c  44 41 23 30 3a 53 54 41  |ode...$LDA#0:STA|
00000180  6c 6e 61 64 64 72 20 20  20 5c 49 6e 69 74 69 61  |lnaddr   \Initia|
00000190  74 65 20 6c 69 6e 65 0d  00 f0 22 4c 44 41 70 61  |te line..."LDApa|
000001a0  67 65 3a 53 54 41 6c 6e  61 64 64 72 2b 31 20 5c  |ge:STAlnaddr+1 \|
000001b0  61 64 64 72 20 74 6f 20  90 0d 00 fa 2f 53 45 43  |addr to ..../SEC|
000001c0  3a 4c 44 41 74 6f 70 3a  53 42 43 23 32 3a 53 54  |:LDAtop:SBC#2:ST|
000001d0  41 74 6f 70 32 20 20 5c  53 65 74 20 74 6f 70 32  |Atop2  \Set top2|
000001e0  20 74 6f 20 b8 50 2d 32  0d 01 04 1c 4c 44 41 74  | to .P-2....LDAt|
000001f0  6f 70 2b 31 3a 53 42 43  23 30 3a 53 54 41 74 6f  |op+1:SBC#0:STAto|
00000200  70 32 2b 31 0d 01 0e 0d  2e 6d 61 69 6e 6c 6f 6f  |p2+1.....mainloo|
00000210  70 0d 01 18 25 4a 53 52  6c 69 6e 65 63 68 6b 20  |p...%JSRlinechk |
00000220  20 20 5c 43 68 65 63 6b  20 6c 69 6e 65 20 66 6f  |  \Check line fo|
00000230  72 20 dd a4 2f f2 0d 01  22 4a 4c 44 59 23 33 3a  |r ../..."JLDY#3:|
00000240  43 4c 43 3a 4c 44 41 28  6c 6e 61 64 64 72 29 2c  |CLC:LDA(lnaddr),|
00000250  59 3a 41 44 43 6c 6e 61  64 64 72 3a 53 54 41 6c  |Y:ADClnaddr:STAl|
00000260  6e 61 64 64 72 20 20 20  5c 53 65 74 20 6c 6e 61  |naddr   \Set lna|
00000270  64 64 72 20 74 6f 20 6e  65 78 74 20 6c 69 6e 65  |ddr to next line|
00000280  0d 01 2c 0b 42 43 43 6f  76 65 72 0d 01 36 0f 49  |..,.BCCover..6.I|
00000290  4e 43 6c 6e 61 64 64 72  2b 31 0d 01 40 09 2e 6f  |NClnaddr+1..@..o|
000002a0  76 65 72 0d 01 4a 3c 4c  44 41 74 6f 70 32 3a 43  |ver..J<LDAtop2:C|
000002b0  4d 50 6c 6e 61 64 64 72  3a 42 4e 45 6d 61 69 6e  |MPlnaddr:BNEmain|
000002c0  6c 6f 6f 70 20 20 5c 43  68 65 63 6b 20 66 6f 72  |loop  \Check for|
000002d0  20 65 6e 64 20 6f 66 20  70 72 6f 67 72 61 6d 0d  | end of program.|
000002e0  01 54 25 4c 44 41 74 6f  70 32 2b 31 3a 43 4d 50  |.T%LDAtop2+1:CMP|
000002f0  6c 6e 61 64 64 72 2b 31  3a 42 4e 45 6d 61 69 6e  |lnaddr+1:BNEmain|
00000300  6c 6f 6f 70 0d 01 5e 07  52 54 53 0d 01 68 0c 2e  |loop..^.RTS..h..|
00000310  6c 69 6e 65 63 68 6b 0d  01 72 09 4c 44 59 23 33  |linechk..r.LDY#3|
00000320  0d 01 7c 2f 4a 53 52 73  70 61 63 65 73 3a 43 4d  |..|/JSRspaces:CM|
00000330  50 23 32 32 31 3a 42 4e  45 72 65 74 20 5c 43 68  |P#221:BNEret \Ch|
00000340  65 63 6b 20 66 6f 72 20  dd 20 74 6f 6b 65 6e 0d  |eck for . token.|
00000350  01 86 2f 4a 53 52 73 70  61 63 65 73 3a 43 4d 50  |../JSRspaces:CMP|
00000360  23 31 36 34 3a 42 45 51  66 6e 20 20 5c 43 68 65  |#164:BEQfn  \Che|
00000370  63 6b 20 66 6f 72 20 a4  20 74 6f 6b 65 6e 0d 01  |ck for . token..|
00000380  90 26 43 4d 50 23 32 34  32 3a 42 45 51 70 72 6f  |.&CMP#242:BEQpro|
00000390  63 20 5c 43 68 65 63 6b  20 66 6f 72 20 f2 20 74  |c \Check for . t|
000003a0  6f 6b 65 6e 0d 01 9a 0c  2e 72 65 74 20 52 54 53  |oken.....ret RTS|
000003b0  0d 01 a4 16 2e 66 64 61  74 20 45 51 55 53 22 20  |.....fdat EQUS" |
000003c0  44 45 46 46 4e 22 0d 01  ae 18 2e 70 64 61 74 20  |DEFFN".....pdat |
000003d0  45 51 55 53 22 20 44 45  46 50 52 4f 43 22 0d 01  |EQUS" DEFPROC"..|
000003e0  b8 07 2e 66 6e 0d 01 c2  16 4a 53 52 6c 69 6e 65  |...fn....JSRline|
000003f0  6e 6f 3a 53 54 59 79 74  65 6d 70 0d 01 cc 11 4c  |no:STYytemp....L|
00000400  44 58 23 66 64 61 74 20  83 32 35 36 0d 01 d6 11  |DX#fdat .256....|
00000410  4c 44 59 23 66 64 61 74  20 81 32 35 36 0d 01 e0  |LDY#fdat .256...|
00000420  19 4c 44 41 23 36 3a 4a  53 52 70 72 74 3a 4c 44  |.LDA#6:JSRprt:LD|
00000430  59 79 74 65 6d 70 0d 01  ea 17 2e 66 6e 6c 70 20  |Yytemp.....fnlp |
00000440  4c 44 41 28 6c 6e 61 64  64 72 29 2c 59 0d 01 f4  |LDA(lnaddr),Y...|
00000450  28 43 4d 50 23 34 31 3a  42 45 51 6e 6c 20 20 5c  |(CMP#41:BEQnl  \|
00000460  49 66 20 22 29 22 20 74  68 65 6e 20 6e 65 78 74  |If ")" then next|
00000470  20 6c 69 6e 65 0d 01 fe  27 49 4e 59 3a 4c 44 41  | line...'INY:LDA|
00000480  28 6c 6e 61 64 64 72 29  2c 59 20 20 5c 43 68 65  |(lnaddr),Y  \Che|
00000490  63 6b 20 6e 65 78 74 20  62 79 74 65 0d 02 08 2c  |ck next byte...,|
000004a0  43 4d 50 23 35 38 3a 42  45 51 6e 6c 20 20 5c 49  |CMP#58:BEQnl  \I|
000004b0  66 20 61 20 63 6f 6c 6f  6e 20 74 68 65 6e 20 6e  |f a colon then n|
000004c0  65 78 74 20 6c 69 6e 65  0d 02 12 29 43 4d 50 23  |ext line...)CMP#|
000004d0  31 33 3a 42 45 51 6e 6c  20 20 5c 49 66 20 43 52  |13:BEQnl  \If CR|
000004e0  65 74 20 74 68 65 6e 20  6e 65 78 74 20 6c 69 6e  |et then next lin|
000004f0  65 0d 02 1c 28 43 4d 50  23 33 32 3a 42 45 51 6e  |e...(CMP#32:BEQn|
00000500  6c 20 20 5c 49 66 20 22  20 22 20 74 68 65 6e 20  |l  \If " " then |
00000510  6e 65 78 74 20 6c 69 6e  65 0d 02 26 28 43 4d 50  |next line..&(CMP|
00000520  23 36 31 3a 42 45 51 6e  6c 20 20 5c 49 66 20 22  |#61:BEQnl  \If "|
00000530  3d 22 20 74 68 65 6e 20  6e 65 78 74 20 6c 69 6e  |=" then next lin|
00000540  65 0d 02 30 15 4a 53 52  6f 73 77 72 63 68 3a 4a  |e..0.JSRoswrch:J|
00000550  4d 50 66 6e 6c 70 0d 02  3a 11 2e 6e 6c 20 4a 4d  |MPfnlp..:..nl JM|
00000560  50 6f 73 6e 65 77 6c 0d  02 44 09 2e 70 72 6f 63  |Posnewl..D..proc|
00000570  0d 02 4e 16 4a 53 52 6c  69 6e 65 6e 6f 3a 53 54  |..N.JSRlineno:ST|
00000580  59 79 74 65 6d 70 0d 02  58 11 4c 44 58 23 70 64  |Yytemp..X.LDX#pd|
00000590  61 74 20 83 32 35 36 0d  02 62 11 4c 44 59 23 70  |at .256..b.LDY#p|
000005a0  64 61 74 20 81 32 35 36  0d 02 6c 19 4c 44 41 23  |dat .256..l.LDA#|
000005b0  38 3a 4a 53 52 70 72 74  3a 4c 44 59 79 74 65 6d  |8:JSRprt:LDYytem|
000005c0  70 0d 02 76 17 2e 70 72  6c 70 20 4c 44 41 28 6c  |p..v..prlp LDA(l|
000005d0  6e 61 64 64 72 29 2c 59  0d 02 80 28 43 4d 50 23  |naddr),Y...(CMP#|
000005e0  34 31 3a 42 45 51 6e 6c  20 20 5c 49 66 20 22 29  |41:BEQnl  \If ")|
000005f0  22 20 74 68 65 6e 20 6e  65 78 74 20 6c 69 6e 65  |" then next line|
00000600  0d 02 8a 27 49 4e 59 3a  4c 44 41 28 6c 6e 61 64  |...'INY:LDA(lnad|
00000610  64 72 29 2c 59 20 20 5c  43 68 65 63 6b 20 6e 65  |dr),Y  \Check ne|
00000620  78 74 20 62 79 74 65 0d  02 94 2c 43 4d 50 23 35  |xt byte...,CMP#5|
00000630  38 3a 42 45 51 6e 6c 20  20 5c 49 66 20 61 20 63  |8:BEQnl  \If a c|
00000640  6f 6c 6f 6e 20 74 68 65  6e 20 6e 65 78 74 20 6c  |olon then next l|
00000650  69 6e 65 0d 02 9e 29 43  4d 50 23 31 33 3a 42 45  |ine...)CMP#13:BE|
00000660  51 6e 6c 20 20 5c 49 66  20 43 52 65 74 20 74 68  |Qnl  \If CRet th|
00000670  65 6e 20 6e 65 78 74 20  6c 69 6e 65 0d 02 a8 28  |en next line...(|
00000680  43 4d 50 23 33 32 3a 42  45 51 6e 6c 20 20 5c 49  |CMP#32:BEQnl  \I|
00000690  66 20 22 20 22 20 74 68  65 6e 20 6e 65 78 74 20  |f " " then next |
000006a0  6c 69 6e 65 0d 02 b2 15  4a 53 52 6f 73 77 72 63  |line....JSRoswrc|
000006b0  68 3a 4a 4d 50 70 72 6c  70 0d 02 bc 14 2e 6c 69  |h:JMPprlp.....li|
000006c0  6e 65 6e 6f 20 53 54 59  79 74 65 6d 70 0d 02 c6  |neno STYytemp...|
000006d0  09 4c 44 59 23 30 0d 02  d0 07 49 4e 59 0d 02 da  |.LDY#0....INY...|
000006e0  1a 4c 44 41 28 6c 6e 61  64 64 72 29 2c 59 3a 53  |.LDA(lnaddr),Y:S|
000006f0  54 41 68 65 78 2b 31 0d  02 e4 07 49 4e 59 0d 02  |TAhex+1....INY..|
00000700  ee 18 4c 44 41 28 6c 6e  61 64 64 72 29 2c 59 3a  |..LDA(lnaddr),Y:|
00000710  53 54 41 68 65 78 0d 02  f8 16 4a 53 52 70 72 74  |STAhex....JSRprt|
00000720  6c 6e 6f 3a 4c 44 59 79  74 65 6d 70 0d 03 02 07  |lno:LDYytemp....|
00000730  52 54 53 0d 03 0c 0b 2e  70 72 74 6c 6e 6f 0d 03  |RTS.....prtlno..|
00000740  16 0a 2e 72 65 73 65 74  0d 03 20 0a 4c 44 41 20  |...reset.. .LDA |
00000750  23 30 0d 03 2a 1f 53 54  41 20 64 65 63 69 6d 61  |#0..*.STA decima|
00000760  6c 2b 30 3a 53 54 41 20  64 65 63 69 6d 61 6c 2b  |l+0:STA decimal+|
00000770  31 0d 03 34 1f 53 54 41  20 64 65 63 69 6d 61 6c  |1..4.STA decimal|
00000780  2b 32 3a 53 54 41 20 64  65 63 69 6d 61 6c 2b 33  |+2:STA decimal+3|
00000790  0d 03 3e 1f 53 54 41 20  64 65 63 69 6d 61 6c 2b  |..>.STA decimal+|
000007a0  34 3a 53 54 41 20 64 65  63 69 6d 61 6c 2b 35 0d  |4:STA decimal+5.|
000007b0  03 48 0c 2e 63 6f 6e 76  65 72 74 0d 03 52 0a 4c  |.H..convert..R.L|
000007c0  44 41 20 23 30 0d 03 5c  17 53 54 41 20 77 6f 72  |DA #0..\.STA wor|
000007d0  6b 3a 53 54 41 20 77 6f  72 6b 2b 31 0d 03 66 0f  |k:STA work+1..f.|
000007e0  43 4c 43 3a 4c 44 58 20  23 31 36 0d 03 70 09 2e  |CLC:LDX #16..p..|
000007f0  6c 6f 6f 70 0d 03 7a 15  52 4f 4c 20 68 65 78 3a  |loop..z.ROL hex:|
00000800  52 4f 4c 20 68 65 78 2b  31 0d 03 84 17 52 4f 4c  |ROL hex+1....ROL|
00000810  20 77 6f 72 6b 3a 52 4f  4c 20 77 6f 72 6b 2b 31  | work:ROL work+1|
00000820  0d 03 8e 10 53 45 43 3a  4c 44 41 20 77 6f 72 6b  |....SEC:LDA work|
00000830  0d 03 98 0f 53 42 43 20  23 31 30 3a 54 41 59 0d  |....SBC #10:TAY.|
00000840  03 a2 0e 4c 44 41 20 77  6f 72 6b 2b 31 0d 03 ac  |...LDA work+1...|
00000850  13 53 42 43 20 23 30 3a  42 43 43 20 6c 65 73 73  |.SBC #0:BCC less|
00000860  0d 03 b6 17 53 54 59 20  77 6f 72 6b 3a 53 54 41  |....STY work:STA|
00000870  20 77 6f 72 6b 2b 31 0d  03 c0 09 2e 6c 65 73 73  | work+1.....less|
00000880  0d 03 ca 10 44 45 58 3a  42 4e 45 20 6c 6f 6f 70  |....DEX:BNE loop|
00000890  0d 03 d4 15 52 4f 4c 20  68 65 78 3a 52 4f 4c 20  |....ROL hex:ROL |
000008a0  68 65 78 2b 31 0d 03 de  10 43 4c 43 3a 4c 44 41  |hex+1....CLC:LDA|
000008b0  20 77 6f 72 6b 0d 03 e8  0b 41 44 43 20 23 34 38  | work....ADC #48|
000008c0  0d 03 f2 13 4a 53 52 20  63 6f 6e 63 61 74 65 6e  |....JSR concaten|
000008d0  61 74 65 0d 03 fc 14 4c  44 41 20 68 65 78 3a 84  |ate....LDA hex:.|
000008e0  41 20 68 65 78 2b 31 0d  04 06 0f 42 4e 45 20 63  |A hex+1....BNE c|
000008f0  6f 6e 76 65 72 74 0d 04  10 0c 4a 53 52 73 68 69  |onvert....JSRshi|
00000900  66 74 0d 04 1a 0f 4c 44  58 20 64 65 63 69 6d 61  |ft....LDX decima|
00000910  6c 0d 04 24 0a 4c 44 59  20 23 31 0d 04 2e 0a 2e  |l..$.LDY #1.....|
00000920  70 72 69 6e 74 0d 04 38  11 4c 44 41 20 64 65 63  |print..8.LDA dec|
00000930  69 6d 61 6c 2c 59 0d 04  42 0e 4a 53 52 20 6f 73  |imal,Y..B.JSR os|
00000940  77 72 63 68 0d 04 4c 0b  49 4e 59 3a 44 45 58 0d  |wrch..L.INY:DEX.|
00000950  04 56 0d 42 4e 45 20 70  72 69 6e 74 0d 04 60 07  |.V.BNE print..`.|
00000960  52 54 53 0d 04 6a 10 2e  63 6f 6e 63 61 74 65 6e  |RTS..j..concaten|
00000970  61 74 65 0d 04 74 13 50  48 41 3a 4c 44 59 20 64  |ate..t.PHA:LDY d|
00000980  65 63 69 6d 61 6c 0d 04  7e 0c 42 45 51 20 7a 65  |ecimal..~.BEQ ze|
00000990  72 6f 0d 04 88 09 2e 6d  6f 76 65 0d 04 92 11 4c  |ro.....move....L|
000009a0  44 41 20 64 65 63 69 6d  61 6c 2c 59 0d 04 9c 13  |DA decimal,Y....|
000009b0  53 54 41 20 64 65 63 69  6d 61 6c 2b 31 2c 59 0d  |STA decimal+1,Y.|
000009c0  04 a6 10 44 45 59 3a 42  4e 45 20 6d 6f 76 65 0d  |...DEY:BNE move.|
000009d0  04 b0 09 2e 7a 65 72 6f  0d 04 ba 07 50 4c 41 0d  |....zero....PLA.|
000009e0  04 c4 11 53 54 41 20 64  65 63 69 6d 61 6c 2b 31  |...STA decimal+1|
000009f0  0d 04 ce 0f 49 4e 43 20  64 65 63 69 6d 61 6c 0d  |....INC decimal.|
00000a00  04 d8 07 52 54 53 0d 04  e2 0a 2e 73 68 69 66 74  |...RTS.....shift|
00000a10  0d 04 ec 23 53 45 43 3a  4c 44 41 23 35 3a 53 42  |...#SEC:LDA#5:SB|
00000a20  43 64 65 63 69 6d 61 6c  3a 42 45 51 6e 6f 73 70  |Cdecimal:BEQnosp|
00000a30  61 63 65 0d 04 f6 20 54  41 58 3a 2e 73 70 6c 6f  |ace... TAX:.splo|
00000a40  6f 70 20 4c 44 41 23 33  32 3a 4a 53 52 6f 73 77  |op LDA#32:JSRosw|
00000a50  72 63 68 0d 05 00 11 44  45 58 3a 42 4e 45 73 70  |rch....DEX:BNEsp|
00000a60  6c 6f 6f 70 0d 05 0a 10  2e 6e 6f 73 70 61 63 65  |loop.....nospace|
00000a70  20 52 54 53 0d 05 14 08  2e 70 72 74 0d 05 1e 0e  | RTS.....prt....|
00000a80  53 54 58 64 61 74 61 64  64 72 0d 05 28 10 53 54  |STXdataddr..(.ST|
00000a90  59 64 61 74 61 64 64 72  2b 31 0d 05 32 07 54 41  |Ydataddr+1..2.TA|
00000aa0  58 0d 05 3c 09 4c 44 59  23 30 0d 05 46 08 2e 70  |X..<.LDY#0..F..p|
00000ab0  6c 70 0d 05 50 1c 4c 44  41 28 64 61 74 61 64 64  |lp..P.LDA(datadd|
00000ac0  72 29 2c 59 3a 4a 53 52  6f 73 77 72 63 68 0d 05  |r),Y:JSRoswrch..|
00000ad0  5a 07 49 4e 59 0d 05 64  07 44 45 58 0d 05 6e 0a  |Z.INY..d.DEX..n.|
00000ae0  42 4e 45 70 6c 70 0d 05  78 07 52 54 53 0d 05 82  |BNEplp..x.RTS...|
00000af0  1d 2e 73 70 61 63 65 73  20 49 4e 59 3a 4c 44 41  |..spaces INY:LDA|
00000b00  28 6c 6e 61 64 64 72 29  2c 59 0d 05 8c 14 43 4d  |(lnaddr),Y....CM|
00000b10  50 23 33 32 3a 42 45 51  73 70 61 63 65 73 0d 05  |P#32:BEQspaces..|
00000b20  96 07 52 54 53 0d 05 a0  05 5d 0d 05 aa 05 ed 0d  |..RTS....]......|
00000b30  05 b4 20 f1 22 50 72 65  73 73 20 52 45 54 55 52  |.. ."Press RETUR|
00000b40  4e 20 74 6f 20 73 61 76  65 20 63 6f 64 65 22 0d  |N to save code".|
00000b50  05 be 0a f5 fd a5 3d 31  33 0d 05 c8 23 ff 22 53  |......=13...#."S|
00000b60  41 56 45 20 24 2e 46 50  4c 20 22 2b c3 7e 63 6f  |AVE $.FPL "+.~co|
00000b70  64 65 25 2b 22 20 22 2b  c3 7e 50 25 0d ff        |de%+" "+.~P%..|
00000b7e