� CODE5 assembler
� by Richard Dimond 
� March 1995
(� 
2�assem 
<�"SAVE CODE5 900 "+�~P%
F�
P��assem 
Z<lines=&80:skiplines=&81:skip=&82:count=&83:modeflag=&84 
d*bdflg=&7A:itflg=&7B:?bdflg=0:?itflg=0 
n$?lines=60:?skiplines=12:?skip=0 
x$block=&CF7:style=&72:prtflg=&78 
�bold$=�27+�69+�27+�50 
�ital$=�27+�52+�27+�50 
�norm$=�27+�53+�27+�70 
�
�i=0�2�2 
�P%=&900 
�
[OPTi 
�
.clear
�LDA&06:STA&70
�LDA&07:STA&71
�
.L3 LDY#0
�.L4 LDA#0:STA(&70),Y
�INY:BNE L4
�
INC&71


LDA&71

CMP#&40:BNE L3

RTS 

".bd TXA:PHA:TYA:PHA

,LDAprtflg 

6BEQnoprt1 

@LDA#bold �256 

JJSRprinter 

T.noprt1 

^JSRgetdef 

h
LDX#1 

r.loop1 

|LDAblock,X 

�
ASL A 

��Ablock,X 

�STAblock,X 

�INX 

�
CPX#9 

�
BNEloop1 

�JSRmakchar

�.newchr 

�LDAprtflg 

�BNEprtrenab 

�LDA#255 

�BNEnewchrend 

�.prtrenab 

�LDA#1:JSR&FFEE 
LDAblock:JSR&FFEE 
LDA#3:JSR&FFEE 
LDA#255:JSR&FFEE 
&
LDA#2 
0.newchrend 
:
JSR&FFEE 
DLDAprtflg 
N
BEQntprt 
XLDA#norm �256 
bJSRprinter 
l.ntprt 
vPLA:TAY:PLA:TAX 
�JMPinc 
�.it TXA:PHA:TYA:PHA
�LDAprtflg 
�BEQnoprt2 
�LDA#ital �256 
�JSRprinter 
�.noprt2 
�JSRgetdef 
�LSR block+1 
�LSR block+2 
�ASL block+6 
�ASL block+7 
�JSRmakchar
�JMPnewchr 
�.makchar
�$LDA#23:JSR&FFEE:LDA#255:JSR&FFEE
�	LDX#1
�.chlp LDAblock,X
�JSR&FFEE
�INX:CPX#9:BNEchlp
�RTS
.print 
LDA#0:STAbdflg:STAitflg
LDA#&87:JSR&FFF4
CPY#3:BNEmm
 LDA#0:STAmodeflag:JMPm
*.mm LDA#255:STAmodeflag
4.m LDA#&75:JSR&FFF4
>TXA:�#1
HSTAprtflg 
R+BEQnprt:LDA#bold �256:STAstyle+1:.nprt 
\LDA&06:STA&70  
fLDA&07:STA&71  
p.L1 LDY#0 
z.L2 LDA(&70),Y 
�CMP#0:BEQrts 
�;CMP#&1C:BNEnot1C:LDAbdflg:�#&FF:STAbdflg:JMPinc:.not1C 
�;CMP#&1D:BNEnot1D:LDAitflg:�#&FF:STAitflg:JMPinc:.not1D 
�"CMP#&10:BNEnot10:JMPinc:.not10
�#CMP#&1A:BNEnot1A:JMPinc:.not1A 
�PHA:LDAmodeflag:BNEm6 
�PLA:CMP#&0D:BEQnewl 
�JMPprt 
�.m6 PLA:CMP#&0D:BEQtest 
�CMP#&20:BEQspace 
�w.prt CMP#&0D:BEQprt1:STAblock:LDAbdflg:BEQnotbd:JMPbd:.notbd LDAitflg:BEQnotit:JMPit:.notit LDAblock:.prt1 JSR&FFE3
�.inc INY:BNE L2 
�INC&71:JMP L1 

.rts RTS 
;.newl JSR&FFE7:LDAskip:BEQnotskp:JMPskp:.notskp:JMPinc 
h.skp DECcount:BNEinc:LDAskiplines:STAcount:.skp1 JSR&FFE7:DECcount:BNEskp1:LDAlines:STAcount:JMPinc 
$O.space LDA&318:BEQsp:LDA#30:CMP&318:BCCnl:LDA#&20:JMPprt:.nl LDA#&0D:JMPprt
.(.test INY:LDA(&70),Y:CMP#&7E:BEQok1 
8"CMP#&0D:BEQok1:CMP#&20:BEQok1 
B&DEY:DEY:LDA(&70),Y:CMP#&7E:BEQok2 
L&CMP#&0D:BEQok2:INY:LDA#&20:JMPprt 
V4.ok1 DEY:LDA#&0D:JMPprt:.ok2:INY:LDA#&0D:JMPprt 
`I.sp LDA(&70),Y:CMP#&20:BEQsp1:JMPprt:.sp1 INY:BNEov:INC&71:.ov JMPsp 
j.getdef LDA#&0A 
tLDX#block �256 
~LDY#block �256 
�
JMP&FFF1 
�: 
�
.printer 
�
CMPstyle 
�BEQprtend 
�
STAstyle 
�
LDY#0 
�
.prtloop 
�
LDA#1 
�
JSR&FFEE 
�LDA(style),Y 
�
JSR&FFEE 
INY 


CPY#4 
BNEprtloop 
.prtend 
(RTS 
2: 
<.bold EQUS bold$ 
F.ital EQUS ital$ 
P.norm EQUS norm$ 
Z] 
d� 
n� 
�

00000000  0d 00 0a 15 f4 20 43 4f  44 45 35 20 61 73 73 65  |..... CODE5 asse|
00000010  6d 62 6c 65 72 0d 00 14  18 f4 20 62 79 20 52 69  |mbler..... by Ri|
00000020  63 68 61 72 64 20 44 69  6d 6f 6e 64 20 0d 00 1e  |chard Dimond ...|
00000030  10 f4 20 4d 61 72 63 68  20 31 39 39 35 0d 00 28  |.. March 1995..(|
00000040  06 f4 20 0d 00 32 0b f2  61 73 73 65 6d 20 0d 00  |.. ..2..assem ..|
00000050  3c 1b ff 22 53 41 56 45  20 43 4f 44 45 35 20 39  |<.."SAVE CODE5 9|
00000060  30 30 20 22 2b c3 7e 50  25 0d 00 46 05 e0 0d 00  |00 "+.~P%..F....|
00000070  50 0c dd f2 61 73 73 65  6d 20 0d 00 5a 3c 6c 69  |P...assem ..Z<li|
00000080  6e 65 73 3d 26 38 30 3a  73 6b 69 70 6c 69 6e 65  |nes=&80:skipline|
00000090  73 3d 26 38 31 3a 73 6b  69 70 3d 26 38 32 3a 63  |s=&81:skip=&82:c|
000000a0  6f 75 6e 74 3d 26 38 33  3a 6d 6f 64 65 66 6c 61  |ount=&83:modefla|
000000b0  67 3d 26 38 34 20 0d 00  64 2a 62 64 66 6c 67 3d  |g=&84 ..d*bdflg=|
000000c0  26 37 41 3a 69 74 66 6c  67 3d 26 37 42 3a 3f 62  |&7A:itflg=&7B:?b|
000000d0  64 66 6c 67 3d 30 3a 3f  69 74 66 6c 67 3d 30 20  |dflg=0:?itflg=0 |
000000e0  0d 00 6e 24 3f 6c 69 6e  65 73 3d 36 30 3a 3f 73  |..n$?lines=60:?s|
000000f0  6b 69 70 6c 69 6e 65 73  3d 31 32 3a 3f 73 6b 69  |kiplines=12:?ski|
00000100  70 3d 30 20 0d 00 78 24  62 6c 6f 63 6b 3d 26 43  |p=0 ..x$block=&C|
00000110  46 37 3a 73 74 79 6c 65  3d 26 37 32 3a 70 72 74  |F7:style=&72:prt|
00000120  66 6c 67 3d 26 37 38 20  0d 00 82 1a 62 6f 6c 64  |flg=&78 ....bold|
00000130  24 3d bd 32 37 2b bd 36  39 2b bd 32 37 2b bd 35  |$=.27+.69+.27+.5|
00000140  30 20 0d 00 8c 1a 69 74  61 6c 24 3d bd 32 37 2b  |0 ....ital$=.27+|
00000150  bd 35 32 2b bd 32 37 2b  bd 35 30 20 0d 00 96 1a  |.52+.27+.50 ....|
00000160  6e 6f 72 6d 24 3d bd 32  37 2b bd 35 33 2b bd 32  |norm$=.27+.53+.2|
00000170  37 2b bd 37 30 20 0d 00  a0 0d e3 69 3d 30 b8 32  |7+.70 .....i=0.2|
00000180  88 32 20 0d 00 aa 0c 50  25 3d 26 39 30 30 20 0d  |.2 ....P%=&900 .|
00000190  00 b4 0a 5b 4f 50 54 69  20 0d 00 be 0a 2e 63 6c  |...[OPTi .....cl|
000001a0  65 61 72 0d 00 c8 11 4c  44 41 26 30 36 3a 53 54  |ear....LDA&06:ST|
000001b0  41 26 37 30 0d 00 d2 11  4c 44 41 26 30 37 3a 53  |A&70....LDA&07:S|
000001c0  54 41 26 37 31 0d 00 dc  0d 2e 4c 33 20 4c 44 59  |TA&71.....L3 LDY|
000001d0  23 30 0d 00 e6 18 2e 4c  34 20 4c 44 41 23 30 3a  |#0.....L4 LDA#0:|
000001e0  53 54 41 28 26 37 30 29  2c 59 0d 00 f0 0e 49 4e  |STA(&70),Y....IN|
000001f0  59 3a 42 4e 45 20 4c 34  0d 00 fa 0a 49 4e 43 26  |Y:BNE L4....INC&|
00000200  37 31 0d 01 04 0a 4c 44  41 26 37 31 0d 01 0e 12  |71....LDA&71....|
00000210  43 4d 50 23 26 34 30 3a  42 4e 45 20 4c 33 0d 01  |CMP#&40:BNE L3..|
00000220  18 08 52 54 53 20 0d 01  22 17 2e 62 64 20 54 58  |..RTS .."..bd TX|
00000230  41 3a 50 48 41 3a 54 59  41 3a 50 48 41 0d 01 2c  |A:PHA:TYA:PHA..,|
00000240  0e 4c 44 41 70 72 74 66  6c 67 20 0d 01 36 0e 42  |.LDAprtflg ..6.B|
00000250  45 51 6e 6f 70 72 74 31  20 0d 01 40 12 4c 44 41  |EQnoprt1 ..@.LDA|
00000260  23 62 6f 6c 64 20 83 32  35 36 20 0d 01 4a 0f 4a  |#bold .256 ..J.J|
00000270  53 52 70 72 69 6e 74 65  72 20 0d 01 54 0c 2e 6e  |SRprinter ..T..n|
00000280  6f 70 72 74 31 20 0d 01  5e 0e 4a 53 52 67 65 74  |oprt1 ..^.JSRget|
00000290  64 65 66 20 0d 01 68 0a  4c 44 58 23 31 20 0d 01  |def ..h.LDX#1 ..|
000002a0  72 0b 2e 6c 6f 6f 70 31  20 0d 01 7c 0f 4c 44 41  |r..loop1 ..|.LDA|
000002b0  62 6c 6f 63 6b 2c 58 20  0d 01 86 0a 41 53 4c 20  |block,X ....ASL |
000002c0  41 20 0d 01 90 0e 84 41  62 6c 6f 63 6b 2c 58 20  |A .....Ablock,X |
000002d0  0d 01 9a 0f 53 54 41 62  6c 6f 63 6b 2c 58 20 0d  |....STAblock,X .|
000002e0  01 a4 08 49 4e 58 20 0d  01 ae 0a 43 50 58 23 39  |...INX ....CPX#9|
000002f0  20 0d 01 b8 0d 42 4e 45  6c 6f 6f 70 31 20 0d 01  | ....BNEloop1 ..|
00000300  bd 0e 4a 53 52 6d 61 6b  63 68 61 72 0d 01 c2 0c  |..JSRmakchar....|
00000310  2e 6e 65 77 63 68 72 20  0d 01 cc 0e 4c 44 41 70  |.newchr ....LDAp|
00000320  72 74 66 6c 67 20 0d 01  d6 10 42 4e 45 70 72 74  |rtflg ....BNEprt|
00000330  72 65 6e 61 62 20 0d 01  e0 0c 4c 44 41 23 32 35  |renab ....LDA#25|
00000340  35 20 0d 01 ea 11 42 4e  45 6e 65 77 63 68 72 65  |5 ....BNEnewchre|
00000350  6e 64 20 0d 01 f4 0e 2e  70 72 74 72 65 6e 61 62  |nd .....prtrenab|
00000360  20 0d 01 fe 13 4c 44 41  23 31 3a 4a 53 52 26 46  | ....LDA#1:JSR&F|
00000370  46 45 45 20 0d 02 08 16  4c 44 41 62 6c 6f 63 6b  |FEE ....LDAblock|
00000380  3a 4a 53 52 26 46 46 45  45 20 0d 02 12 13 4c 44  |:JSR&FFEE ....LD|
00000390  41 23 33 3a 4a 53 52 26  46 46 45 45 20 0d 02 1c  |A#3:JSR&FFEE ...|
000003a0  15 4c 44 41 23 32 35 35  3a 4a 53 52 26 46 46 45  |.LDA#255:JSR&FFE|
000003b0  45 20 0d 02 26 0a 4c 44  41 23 32 20 0d 02 30 0f  |E ..&.LDA#2 ..0.|
000003c0  2e 6e 65 77 63 68 72 65  6e 64 20 0d 02 3a 0d 4a  |.newchrend ..:.J|
000003d0  53 52 26 46 46 45 45 20  0d 02 44 0e 4c 44 41 70  |SR&FFEE ..D.LDAp|
000003e0  72 74 66 6c 67 20 0d 02  4e 0d 42 45 51 6e 74 70  |rtflg ..N.BEQntp|
000003f0  72 74 20 0d 02 58 12 4c  44 41 23 6e 6f 72 6d 20  |rt ..X.LDA#norm |
00000400  83 32 35 36 20 0d 02 62  0f 4a 53 52 70 72 69 6e  |.256 ..b.JSRprin|
00000410  74 65 72 20 0d 02 6c 0b  2e 6e 74 70 72 74 20 0d  |ter ..l..ntprt .|
00000420  02 76 14 50 4c 41 3a 54  41 59 3a 50 4c 41 3a 54  |.v.PLA:TAY:PLA:T|
00000430  41 58 20 0d 02 80 0b 4a  4d 50 69 6e 63 20 0d 02  |AX ....JMPinc ..|
00000440  8a 17 2e 69 74 20 54 58  41 3a 50 48 41 3a 54 59  |...it TXA:PHA:TY|
00000450  41 3a 50 48 41 0d 02 94  0e 4c 44 41 70 72 74 66  |A:PHA....LDAprtf|
00000460  6c 67 20 0d 02 9e 0e 42  45 51 6e 6f 70 72 74 32  |lg ....BEQnoprt2|
00000470  20 0d 02 a8 12 4c 44 41  23 69 74 61 6c 20 83 32  | ....LDA#ital .2|
00000480  35 36 20 0d 02 b2 0f 4a  53 52 70 72 69 6e 74 65  |56 ....JSRprinte|
00000490  72 20 0d 02 bc 0c 2e 6e  6f 70 72 74 32 20 0d 02  |r .....noprt2 ..|
000004a0  c6 0e 4a 53 52 67 65 74  64 65 66 20 0d 02 d0 10  |..JSRgetdef ....|
000004b0  4c 53 52 20 62 6c 6f 63  6b 2b 31 20 0d 02 da 10  |LSR block+1 ....|
000004c0  4c 53 52 20 62 6c 6f 63  6b 2b 32 20 0d 02 e4 10  |LSR block+2 ....|
000004d0  41 53 4c 20 62 6c 6f 63  6b 2b 36 20 0d 02 ee 10  |ASL block+6 ....|
000004e0  41 53 4c 20 62 6c 6f 63  6b 2b 37 20 0d 02 f3 0e  |ASL block+7 ....|
000004f0  4a 53 52 6d 61 6b 63 68  61 72 0d 02 f8 0e 4a 4d  |JSRmakchar....JM|
00000500  50 6e 65 77 63 68 72 20  0d 02 f9 0c 2e 6d 61 6b  |Pnewchr .....mak|
00000510  63 68 61 72 0d 02 fa 24  4c 44 41 23 32 33 3a 4a  |char...$LDA#23:J|
00000520  53 52 26 46 46 45 45 3a  4c 44 41 23 32 35 35 3a  |SR&FFEE:LDA#255:|
00000530  4a 53 52 26 46 46 45 45  0d 02 fb 09 4c 44 58 23  |JSR&FFEE....LDX#|
00000540  31 0d 02 fc 14 2e 63 68  6c 70 20 4c 44 41 62 6c  |1.....chlp LDAbl|
00000550  6f 63 6b 2c 58 0d 02 fd  0c 4a 53 52 26 46 46 45  |ock,X....JSR&FFE|
00000560  45 0d 02 fe 15 49 4e 58  3a 43 50 58 23 39 3a 42  |E....INX:CPX#9:B|
00000570  4e 45 63 68 6c 70 0d 02  ff 07 52 54 53 0d 03 02  |NEchlp....RTS...|
00000580  0b 2e 70 72 69 6e 74 20  0d 03 07 1b 4c 44 41 23  |..print ....LDA#|
00000590  30 3a 53 54 41 62 64 66  6c 67 3a 53 54 41 69 74  |0:STAbdflg:STAit|
000005a0  66 6c 67 0d 03 0c 14 4c  44 41 23 26 38 37 3a 4a  |flg....LDA#&87:J|
000005b0  53 52 26 46 46 46 34 0d  03 16 0f 43 50 59 23 33  |SR&FFF4....CPY#3|
000005c0  3a 42 4e 45 6d 6d 0d 03  20 1a 4c 44 41 23 30 3a  |:BNEmm.. .LDA#0:|
000005d0  53 54 41 6d 6f 64 65 66  6c 61 67 3a 4a 4d 50 6d  |STAmodeflag:JMPm|
000005e0  0d 03 2a 1b 2e 6d 6d 20  4c 44 41 23 32 35 35 3a  |..*..mm LDA#255:|
000005f0  53 54 41 6d 6f 64 65 66  6c 61 67 0d 03 34 17 2e  |STAmodeflag..4..|
00000600  6d 20 4c 44 41 23 26 37  35 3a 4a 53 52 26 46 46  |m LDA#&75:JSR&FF|
00000610  46 34 0d 03 3e 0b 54 58  41 3a 80 23 31 0d 03 48  |F4..>.TXA:.#1..H|
00000620  0e 53 54 41 70 72 74 66  6c 67 20 0d 03 52 2b 42  |.STAprtflg ..R+B|
00000630  45 51 6e 70 72 74 3a 4c  44 41 23 62 6f 6c 64 20  |EQnprt:LDA#bold |
00000640  81 32 35 36 3a 53 54 41  73 74 79 6c 65 2b 31 3a  |.256:STAstyle+1:|
00000650  2e 6e 70 72 74 20 0d 03  5c 13 4c 44 41 26 30 36  |.nprt ..\.LDA&06|
00000660  3a 53 54 41 26 37 30 20  20 0d 03 66 13 4c 44 41  |:STA&70  ..f.LDA|
00000670  26 30 37 3a 53 54 41 26  37 31 20 20 0d 03 70 0e  |&07:STA&71  ..p.|
00000680  2e 4c 31 20 4c 44 59 23  30 20 0d 03 7a 13 2e 4c  |.L1 LDY#0 ..z..L|
00000690  32 20 4c 44 41 28 26 37  30 29 2c 59 20 0d 03 84  |2 LDA(&70),Y ...|
000006a0  11 43 4d 50 23 30 3a 42  45 51 72 74 73 20 0d 03  |.CMP#0:BEQrts ..|
000006b0  8e 3b 43 4d 50 23 26 31  43 3a 42 4e 45 6e 6f 74  |.;CMP#&1C:BNEnot|
000006c0  31 43 3a 4c 44 41 62 64  66 6c 67 3a 82 23 26 46  |1C:LDAbdflg:.#&F|
000006d0  46 3a 53 54 41 62 64 66  6c 67 3a 4a 4d 50 69 6e  |F:STAbdflg:JMPin|
000006e0  63 3a 2e 6e 6f 74 31 43  20 0d 03 98 3b 43 4d 50  |c:.not1C ...;CMP|
000006f0  23 26 31 44 3a 42 4e 45  6e 6f 74 31 44 3a 4c 44  |#&1D:BNEnot1D:LD|
00000700  41 69 74 66 6c 67 3a 82  23 26 46 46 3a 53 54 41  |Aitflg:.#&FF:STA|
00000710  69 74 66 6c 67 3a 4a 4d  50 69 6e 63 3a 2e 6e 6f  |itflg:JMPinc:.no|
00000720  74 31 44 20 0d 03 a2 22  43 4d 50 23 26 31 30 3a  |t1D ..."CMP#&10:|
00000730  42 4e 45 6e 6f 74 31 30  3a 4a 4d 50 69 6e 63 3a  |BNEnot10:JMPinc:|
00000740  2e 6e 6f 74 31 30 0d 03  ac 23 43 4d 50 23 26 31  |.not10...#CMP#&1|
00000750  41 3a 42 4e 45 6e 6f 74  31 41 3a 4a 4d 50 69 6e  |A:BNEnot1A:JMPin|
00000760  63 3a 2e 6e 6f 74 31 41  20 0d 03 b6 1a 50 48 41  |c:.not1A ....PHA|
00000770  3a 4c 44 41 6d 6f 64 65  66 6c 61 67 3a 42 4e 45  |:LDAmodeflag:BNE|
00000780  6d 36 20 0d 03 c0 18 50  4c 41 3a 43 4d 50 23 26  |m6 ....PLA:CMP#&|
00000790  30 44 3a 42 45 51 6e 65  77 6c 20 0d 03 ca 0b 4a  |0D:BEQnewl ....J|
000007a0  4d 50 70 72 74 20 0d 03  d4 1c 2e 6d 36 20 50 4c  |MPprt .....m6 PL|
000007b0  41 3a 43 4d 50 23 26 30  44 3a 42 45 51 74 65 73  |A:CMP#&0D:BEQtes|
000007c0  74 20 0d 03 de 15 43 4d  50 23 26 32 30 3a 42 45  |t ....CMP#&20:BE|
000007d0  51 73 70 61 63 65 20 0d  03 e8 77 2e 70 72 74 20  |Qspace ...w.prt |
000007e0  43 4d 50 23 26 30 44 3a  42 45 51 70 72 74 31 3a  |CMP#&0D:BEQprt1:|
000007f0  53 54 41 62 6c 6f 63 6b  3a 4c 44 41 62 64 66 6c  |STAblock:LDAbdfl|
00000800  67 3a 42 45 51 6e 6f 74  62 64 3a 4a 4d 50 62 64  |g:BEQnotbd:JMPbd|
00000810  3a 2e 6e 6f 74 62 64 20  4c 44 41 69 74 66 6c 67  |:.notbd LDAitflg|
00000820  3a 42 45 51 6e 6f 74 69  74 3a 4a 4d 50 69 74 3a  |:BEQnotit:JMPit:|
00000830  2e 6e 6f 74 69 74 20 4c  44 41 62 6c 6f 63 6b 3a  |.notit LDAblock:|
00000840  2e 70 72 74 31 20 4a 53  52 26 46 46 45 33 0d 03  |.prt1 JSR&FFE3..|
00000850  f2 14 2e 69 6e 63 20 49  4e 59 3a 42 4e 45 20 4c  |...inc INY:BNE L|
00000860  32 20 0d 03 fc 12 49 4e  43 26 37 31 3a 4a 4d 50  |2 ....INC&71:JMP|
00000870  20 4c 31 20 0d 04 06 0d  2e 72 74 73 20 52 54 53  | L1 .....rts RTS|
00000880  20 0d 04 10 3b 2e 6e 65  77 6c 20 4a 53 52 26 46  | ...;.newl JSR&F|
00000890  46 45 37 3a 4c 44 41 73  6b 69 70 3a 42 45 51 6e  |FE7:LDAskip:BEQn|
000008a0  6f 74 73 6b 70 3a 4a 4d  50 73 6b 70 3a 2e 6e 6f  |otskp:JMPskp:.no|
000008b0  74 73 6b 70 3a 4a 4d 50  69 6e 63 20 0d 04 1a 68  |tskp:JMPinc ...h|
000008c0  2e 73 6b 70 20 44 45 43  63 6f 75 6e 74 3a 42 4e  |.skp DECcount:BN|
000008d0  45 69 6e 63 3a 4c 44 41  73 6b 69 70 6c 69 6e 65  |Einc:LDAskipline|
000008e0  73 3a 53 54 41 63 6f 75  6e 74 3a 2e 73 6b 70 31  |s:STAcount:.skp1|
000008f0  20 4a 53 52 26 46 46 45  37 3a 44 45 43 63 6f 75  | JSR&FFE7:DECcou|
00000900  6e 74 3a 42 4e 45 73 6b  70 31 3a 4c 44 41 6c 69  |nt:BNEskp1:LDAli|
00000910  6e 65 73 3a 53 54 41 63  6f 75 6e 74 3a 4a 4d 50  |nes:STAcount:JMP|
00000920  69 6e 63 20 0d 04 24 4f  2e 73 70 61 63 65 20 4c  |inc ..$O.space L|
00000930  44 41 26 33 31 38 3a 42  45 51 73 70 3a 4c 44 41  |DA&318:BEQsp:LDA|
00000940  23 33 30 3a 43 4d 50 26  33 31 38 3a 42 43 43 6e  |#30:CMP&318:BCCn|
00000950  6c 3a 4c 44 41 23 26 32  30 3a 4a 4d 50 70 72 74  |l:LDA#&20:JMPprt|
00000960  3a 2e 6e 6c 20 4c 44 41  23 26 30 44 3a 4a 4d 50  |:.nl LDA#&0D:JMP|
00000970  70 72 74 0d 04 2e 28 2e  74 65 73 74 20 49 4e 59  |prt...(.test INY|
00000980  3a 4c 44 41 28 26 37 30  29 2c 59 3a 43 4d 50 23  |:LDA(&70),Y:CMP#|
00000990  26 37 45 3a 42 45 51 6f  6b 31 20 0d 04 38 22 43  |&7E:BEQok1 ..8"C|
000009a0  4d 50 23 26 30 44 3a 42  45 51 6f 6b 31 3a 43 4d  |MP#&0D:BEQok1:CM|
000009b0  50 23 26 32 30 3a 42 45  51 6f 6b 31 20 0d 04 42  |P#&20:BEQok1 ..B|
000009c0  26 44 45 59 3a 44 45 59  3a 4c 44 41 28 26 37 30  |&DEY:DEY:LDA(&70|
000009d0  29 2c 59 3a 43 4d 50 23  26 37 45 3a 42 45 51 6f  |),Y:CMP#&7E:BEQo|
000009e0  6b 32 20 0d 04 4c 26 43  4d 50 23 26 30 44 3a 42  |k2 ..L&CMP#&0D:B|
000009f0  45 51 6f 6b 32 3a 49 4e  59 3a 4c 44 41 23 26 32  |EQok2:INY:LDA#&2|
00000a00  30 3a 4a 4d 50 70 72 74  20 0d 04 56 34 2e 6f 6b  |0:JMPprt ..V4.ok|
00000a10  31 20 44 45 59 3a 4c 44  41 23 26 30 44 3a 4a 4d  |1 DEY:LDA#&0D:JM|
00000a20  50 70 72 74 3a 2e 6f 6b  32 3a 49 4e 59 3a 4c 44  |Pprt:.ok2:INY:LD|
00000a30  41 23 26 30 44 3a 4a 4d  50 70 72 74 20 0d 04 60  |A#&0D:JMPprt ..`|
00000a40  49 2e 73 70 20 4c 44 41  28 26 37 30 29 2c 59 3a  |I.sp LDA(&70),Y:|
00000a50  43 4d 50 23 26 32 30 3a  42 45 51 73 70 31 3a 4a  |CMP#&20:BEQsp1:J|
00000a60  4d 50 70 72 74 3a 2e 73  70 31 20 49 4e 59 3a 42  |MPprt:.sp1 INY:B|
00000a70  4e 45 6f 76 3a 49 4e 43  26 37 31 3a 2e 6f 76 20  |NEov:INC&71:.ov |
00000a80  4a 4d 50 73 70 20 0d 04  6a 14 2e 67 65 74 64 65  |JMPsp ..j..getde|
00000a90  66 20 4c 44 41 23 26 30  41 20 0d 04 74 13 4c 44  |f LDA#&0A ..t.LD|
00000aa0  58 23 62 6c 6f 63 6b 20  83 32 35 36 20 0d 04 7e  |X#block .256 ..~|
00000ab0  13 4c 44 59 23 62 6c 6f  63 6b 20 81 32 35 36 20  |.LDY#block .256 |
00000ac0  0d 04 88 0d 4a 4d 50 26  46 46 46 31 20 0d 04 92  |....JMP&FFF1 ...|
00000ad0  06 3a 20 0d 04 9c 0d 2e  70 72 69 6e 74 65 72 20  |.: .....printer |
00000ae0  0d 04 a6 0d 43 4d 50 73  74 79 6c 65 20 0d 04 b0  |....CMPstyle ...|
00000af0  0e 42 45 51 70 72 74 65  6e 64 20 0d 04 ba 0d 53  |.BEQprtend ....S|
00000b00  54 41 73 74 79 6c 65 20  0d 04 c4 0a 4c 44 59 23  |TAstyle ....LDY#|
00000b10  30 20 0d 04 ce 0d 2e 70  72 74 6c 6f 6f 70 20 0d  |0 .....prtloop .|
00000b20  04 d8 0a 4c 44 41 23 31  20 0d 04 e2 0d 4a 53 52  |...LDA#1 ....JSR|
00000b30  26 46 46 45 45 20 0d 04  ec 11 4c 44 41 28 73 74  |&FFEE ....LDA(st|
00000b40  79 6c 65 29 2c 59 20 0d  04 f6 0d 4a 53 52 26 46  |yle),Y ....JSR&F|
00000b50  46 45 45 20 0d 05 00 08  49 4e 59 20 0d 05 0a 0a  |FEE ....INY ....|
00000b60  43 50 59 23 34 20 0d 05  14 0f 42 4e 45 70 72 74  |CPY#4 ....BNEprt|
00000b70  6c 6f 6f 70 20 0d 05 1e  0c 2e 70 72 74 65 6e 64  |loop .....prtend|
00000b80  20 0d 05 28 08 52 54 53  20 0d 05 32 06 3a 20 0d  | ..(.RTS ..2.: .|
00000b90  05 3c 15 2e 62 6f 6c 64  20 45 51 55 53 20 62 6f  |.<..bold EQUS bo|
00000ba0  6c 64 24 20 0d 05 46 15  2e 69 74 61 6c 20 45 51  |ld$ ..F..ital EQ|
00000bb0  55 53 20 69 74 61 6c 24  20 0d 05 50 15 2e 6e 6f  |US ital$ ..P..no|
00000bc0  72 6d 20 45 51 55 53 20  6e 6f 72 6d 24 20 0d 05  |rm EQUS norm$ ..|
00000bd0  5a 06 5d 20 0d 05 64 06  ed 20 0d 05 6e 06 e1 20  |Z.] ..d.. ..n.. |
00000be0  0d ff                                             |..|
00000be2