� CODE6 assembler
� by Richard Dimond 
� May 1997
(� 
2�assem 
<�"SAVE $.CODE6 900 "+�~P%
F�
P:
Z��assem 
d!addr=&70:style=&72:prtflg=&78
n*bdflg=&7A:itflg=&7B:?bdflg=0:?itflg=0 
xDlines=&80:skiplines=&81:skip=&82:count=&83:modeflag=&84:temp=&85
�!?lines=6:?skiplines=3:?skip=0
�?count=?lines
�block=&CF7:himem=&06
�boldcd=&1C:italcd=&1D
�:
�bold$=�27+�69+�27+�50 
�ital$=�27+�52+�27+�50 
�norm$=�27+�53+�27+�70 
�:
�
�i=0�2�2 
�P%=&900 
�
[OPTi 
�JMPclear
�JMPprint

JMP&9999    \reserved

JMP&9999    \reserved

:

"
.clear

,LDAhimem:STAaddr

6LDAhimem+1:STAaddr+1

@.clrlp1 LDY#0

J.clrlp2 LDA#0:STA(addr),Y

TINY:BNE clrlp2

^
INCaddr+1

h
LDAaddr+1

rCMP#&40:BNE clrlp1

|RTS 

�:

�.print 

�LDA#0:STAbdflg:STAitflg

�LDA#&87:JSR&FFF4

�CPY#3:BNEmm

�LDA#0:STAmodeflag:JMPm

�.mm LDA#255:STAmodeflag

�.m LDA#&75:JSR&FFF4

�TXA:�#1

�STAprtflg 

�+BEQnprt:LDA#bold �256:STAstyle+1:.nprt 

�LDAhimem:STAaddr

�LDAhimem+1:STAaddr+1
LDAmodeflag:BNEline
.prtlp1 LDY#0
.prtlp2 LDA(addr),Y
&CMP#0:BEQrts 
0CMP#&0D:BEQnewl
:
JSRprt
D.ct BNE prtlp2
NINCaddr+1:JMP prtlp1
X
.rts RTS 
b=.newl JSR&FFE7:LDAskip:BEQnotskp:JMPskp:.notskp:INY:JMPct
lg.skp DECcount:BNEinc:LDAskiplines:STAcount:.skp1 JSR&FFE7:DECcount:BNEskp1:LDAlines:STAcount:JMPinc
vF.prt CMP#boldcd:BNEnotbold:LDAbdflg:�#&FF:STAbdflg:JMPinc:.notbold
�ACMP#italcd:BNEnotital:LDAitflg:�#&FF:STAitflg:JMPinc:.notital
�CMP#&20:BCCinc
�\STAblock:LDAbdflg:BEQnotbd:JMPbd:.notbd LDAitflg:BEQnotit:JMPit:.notit LDAblock:JSR&FFEE
�.inc INY:JMPprtlp2
�	.line
�LDY#0:LDA#39:STAcnt+1
�8.spl LDA(addr),Y:CMP#�" ":BNEnsp:INY:INCcnt+1:JMPspl
�.nsp
�.linelp LDA(addr),Y
�CMP#0:BEQrts1
�CMP#&0D:BEQtest
�
JSRprt
�.cnt CPY#39:BEQnext
JMP linelp

.rts1 RTS
.test INY:LDA(addr),Y
 JSRchkchr:BCSok2
*CMP#&0D:BEQok4
4CMP#&20:BEQok2
>DEY:DEY:LDA(addr),Y
HJSRchkchr:BCSok1
RCMP#&0D:BEQok3
\INY
fCMP#&20:BCCnn
p,LDA&318:BEQnospc:LDA#&20:JSR&FFEE:.nospc
z.nn INY:JMP cnt
�.ok1 INY:INY
�.ok2 JMPnewline
�.ok3 INY:INY
�.ok4 JSR&FFE7:JMPnewline
�.next LDA(addr),Y
�JSRchkchr:BEQskipchr
�CMP#&20:BEQnewline
� .delete DEY:LDA#&7F:JSR&FFEE
�LDA(addr),Y
�CMP#&20:BNEdelete
�.newline JSR&FFE7
�.incaddr CLC
�TYA:ADCaddr:STAaddr
LDAaddr+1:ADC#0:STAaddr+1
JMPline
.skipchr INY:LDA(addr),Y
$JSRchkchr:BEQskipchr
.JMPincaddr
8.chkchr
BLDA(addr),Y
LCMP#&2A:BEQchrok
VCMP#&7E:BEQchrok
`CMP#&3D:BEQchrok
jCLC:RTS
t.chrok SEC:RTS
~.bd TXA:PHA:TYA:PHA
�LDAprtflg 
�BEQnoprt1 
�LDA#bold �256 
�JSRprinter 
�.noprt1 
�JSRgetdef 
�
LDX#1 
�.loop1 
�LDAblock,X 
�
ASL A 
��Ablock,X 
�STAblock,X 
INX 


CPX#9 

BNEloop1 
JSRmakchar
(.newchr 
2LDAprtflg 
<BNEprtrenab 
FLDA#255 
PBNEnewchrend 
Z.prtrenab 
dLDA#1:JSR&FFEE 
nLDAblock:JSR&FFEE 
xLDA#3:JSR&FFEE 
�LDA#255:JSR&FFEE 
�
LDA#2 
�.newchrend 
�
JSR&FFEE 
�LDAprtflg 
�
BEQntprt 
�LDA#norm �256 
�JSRprinter 
�.ntprt 
�PLA:TAY:PLA:TAX 
�JMPinc 
�.it TXA:PHA:TYA:PHA
�LDAprtflg 
BEQnoprt2 
LDA#ital �256 
JSRprinter 
".noprt2 
,JSRgetdef 
6LSR block+1 
@LSR block+2 
JASL block+6 
TASL block+7 
^JSRmakchar
hJMPnewchr 
r.makchar
|$LDA#23:JSR&FFEE:LDA#255:JSR&FFEE
�	LDX#1
�.chlp LDAblock,X
�JSR&FFEE
�INX:CPX#9:BNEchlp
�RTS
�.getdef LDA#&0A 
�LDX#block �256 
�LDY#block �256 
�
JMP&FFF1 
�: 
�
.printer 
�
CMPstyle 
�BEQprtend 

STAstyle 

LDY#0 

.prtloop 
&
LDA#1 
0
JSR&FFEE 
:LDA(style),Y 
D
JSR&FFEE 
NINY 
X
CPY#4 
bBNEprtloop 
l.prtend 
vRTS 
�: 
�.bold EQUS bold$ 
�.ital EQUS ital$ 
�.norm EQUS norm$ 
�] 
�� 
�� 
�

00000000  0d 00 0a 15 f4 20 43 4f  44 45 36 20 61 73 73 65  |..... CODE6 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  0e f4 20 4d 61 79 20 31  39 39 37 0d 00 28 06 f4  |.. May 1997..(..|
00000040  20 0d 00 32 0b f2 61 73  73 65 6d 20 0d 00 3c 1d  | ..2..assem ..<.|
00000050  ff 22 53 41 56 45 20 24  2e 43 4f 44 45 36 20 39  |."SAVE $.CODE6 9|
00000060  30 30 20 22 2b c3 7e 50  25 0d 00 46 05 e0 0d 00  |00 "+.~P%..F....|
00000070  50 05 3a 0d 00 5a 0c dd  f2 61 73 73 65 6d 20 0d  |P.:..Z...assem .|
00000080  00 64 21 61 64 64 72 3d  26 37 30 3a 73 74 79 6c  |.d!addr=&70:styl|
00000090  65 3d 26 37 32 3a 70 72  74 66 6c 67 3d 26 37 38  |e=&72:prtflg=&78|
000000a0  0d 00 6e 2a 62 64 66 6c  67 3d 26 37 41 3a 69 74  |..n*bdflg=&7A:it|
000000b0  66 6c 67 3d 26 37 42 3a  3f 62 64 66 6c 67 3d 30  |flg=&7B:?bdflg=0|
000000c0  3a 3f 69 74 66 6c 67 3d  30 20 0d 00 78 44 6c 69  |:?itflg=0 ..xDli|
000000d0  6e 65 73 3d 26 38 30 3a  73 6b 69 70 6c 69 6e 65  |nes=&80:skipline|
000000e0  73 3d 26 38 31 3a 73 6b  69 70 3d 26 38 32 3a 63  |s=&81:skip=&82:c|
000000f0  6f 75 6e 74 3d 26 38 33  3a 6d 6f 64 65 66 6c 61  |ount=&83:modefla|
00000100  67 3d 26 38 34 3a 74 65  6d 70 3d 26 38 35 0d 00  |g=&84:temp=&85..|
00000110  82 21 3f 6c 69 6e 65 73  3d 36 3a 3f 73 6b 69 70  |.!?lines=6:?skip|
00000120  6c 69 6e 65 73 3d 33 3a  3f 73 6b 69 70 3d 30 0d  |lines=3:?skip=0.|
00000130  00 87 11 3f 63 6f 75 6e  74 3d 3f 6c 69 6e 65 73  |...?count=?lines|
00000140  0d 00 8c 18 62 6c 6f 63  6b 3d 26 43 46 37 3a 68  |....block=&CF7:h|
00000150  69 6d 65 6d 3d 26 30 36  0d 00 96 19 62 6f 6c 64  |imem=&06....bold|
00000160  63 64 3d 26 31 43 3a 69  74 61 6c 63 64 3d 26 31  |cd=&1C:italcd=&1|
00000170  44 0d 00 a0 05 3a 0d 00  aa 1a 62 6f 6c 64 24 3d  |D....:....bold$=|
00000180  bd 32 37 2b bd 36 39 2b  bd 32 37 2b bd 35 30 20  |.27+.69+.27+.50 |
00000190  0d 00 b4 1a 69 74 61 6c  24 3d bd 32 37 2b bd 35  |....ital$=.27+.5|
000001a0  32 2b bd 32 37 2b bd 35  30 20 0d 00 be 1a 6e 6f  |2+.27+.50 ....no|
000001b0  72 6d 24 3d bd 32 37 2b  bd 35 33 2b bd 32 37 2b  |rm$=.27+.53+.27+|
000001c0  bd 37 30 20 0d 00 c8 05  3a 0d 00 d2 0d e3 69 3d  |.70 ....:.....i=|
000001d0  30 b8 32 88 32 20 0d 00  dc 0c 50 25 3d 26 39 30  |0.2.2 ....P%=&90|
000001e0  30 20 0d 00 e6 0a 5b 4f  50 54 69 20 0d 00 f0 0c  |0 ....[OPTi ....|
000001f0  4a 4d 50 63 6c 65 61 72  0d 00 fa 0c 4a 4d 50 70  |JMPclear....JMPp|
00000200  72 69 6e 74 0d 01 04 19  4a 4d 50 26 39 39 39 39  |rint....JMP&9999|
00000210  20 20 20 20 5c 72 65 73  65 72 76 65 64 0d 01 0e  |    \reserved...|
00000220  19 4a 4d 50 26 39 39 39  39 20 20 20 20 5c 72 65  |.JMP&9999    \re|
00000230  73 65 72 76 65 64 0d 01  18 05 3a 0d 01 22 0a 2e  |served....:.."..|
00000240  63 6c 65 61 72 0d 01 2c  14 4c 44 41 68 69 6d 65  |clear..,.LDAhime|
00000250  6d 3a 53 54 41 61 64 64  72 0d 01 36 18 4c 44 41  |m:STAaddr..6.LDA|
00000260  68 69 6d 65 6d 2b 31 3a  53 54 41 61 64 64 72 2b  |himem+1:STAaddr+|
00000270  31 0d 01 40 11 2e 63 6c  72 6c 70 31 20 4c 44 59  |1..@..clrlp1 LDY|
00000280  23 30 0d 01 4a 1d 2e 63  6c 72 6c 70 32 20 4c 44  |#0..J..clrlp2 LD|
00000290  41 23 30 3a 53 54 41 28  61 64 64 72 29 2c 59 0d  |A#0:STA(addr),Y.|
000002a0  01 54 12 49 4e 59 3a 42  4e 45 20 63 6c 72 6c 70  |.T.INY:BNE clrlp|
000002b0  32 0d 01 5e 0d 49 4e 43  61 64 64 72 2b 31 0d 01  |2..^.INCaddr+1..|
000002c0  68 0d 4c 44 41 61 64 64  72 2b 31 0d 01 72 16 43  |h.LDAaddr+1..r.C|
000002d0  4d 50 23 26 34 30 3a 42  4e 45 20 63 6c 72 6c 70  |MP#&40:BNE clrlp|
000002e0  31 0d 01 7c 08 52 54 53  20 0d 01 86 05 3a 0d 01  |1..|.RTS ....:..|
000002f0  90 0b 2e 70 72 69 6e 74  20 0d 01 9a 1b 4c 44 41  |...print ....LDA|
00000300  23 30 3a 53 54 41 62 64  66 6c 67 3a 53 54 41 69  |#0:STAbdflg:STAi|
00000310  74 66 6c 67 0d 01 a4 14  4c 44 41 23 26 38 37 3a  |tflg....LDA#&87:|
00000320  4a 53 52 26 46 46 46 34  0d 01 ae 0f 43 50 59 23  |JSR&FFF4....CPY#|
00000330  33 3a 42 4e 45 6d 6d 0d  01 b8 1a 4c 44 41 23 30  |3:BNEmm....LDA#0|
00000340  3a 53 54 41 6d 6f 64 65  66 6c 61 67 3a 4a 4d 50  |:STAmodeflag:JMP|
00000350  6d 0d 01 c2 1b 2e 6d 6d  20 4c 44 41 23 32 35 35  |m.....mm LDA#255|
00000360  3a 53 54 41 6d 6f 64 65  66 6c 61 67 0d 01 cc 17  |:STAmodeflag....|
00000370  2e 6d 20 4c 44 41 23 26  37 35 3a 4a 53 52 26 46  |.m LDA#&75:JSR&F|
00000380  46 46 34 0d 01 d6 0b 54  58 41 3a 80 23 31 0d 01  |FF4....TXA:.#1..|
00000390  e0 0e 53 54 41 70 72 74  66 6c 67 20 0d 01 ea 2b  |..STAprtflg ...+|
000003a0  42 45 51 6e 70 72 74 3a  4c 44 41 23 62 6f 6c 64  |BEQnprt:LDA#bold|
000003b0  20 81 32 35 36 3a 53 54  41 73 74 79 6c 65 2b 31  | .256:STAstyle+1|
000003c0  3a 2e 6e 70 72 74 20 0d  01 f4 14 4c 44 41 68 69  |:.nprt ....LDAhi|
000003d0  6d 65 6d 3a 53 54 41 61  64 64 72 0d 01 fe 18 4c  |mem:STAaddr....L|
000003e0  44 41 68 69 6d 65 6d 2b  31 3a 53 54 41 61 64 64  |DAhimem+1:STAadd|
000003f0  72 2b 31 0d 02 08 17 4c  44 41 6d 6f 64 65 66 6c  |r+1....LDAmodefl|
00000400  61 67 3a 42 4e 45 6c 69  6e 65 0d 02 12 11 2e 70  |ag:BNEline.....p|
00000410  72 74 6c 70 31 20 4c 44  59 23 30 0d 02 1c 17 2e  |rtlp1 LDY#0.....|
00000420  70 72 74 6c 70 32 20 4c  44 41 28 61 64 64 72 29  |prtlp2 LDA(addr)|
00000430  2c 59 0d 02 26 11 43 4d  50 23 30 3a 42 45 51 72  |,Y..&.CMP#0:BEQr|
00000440  74 73 20 0d 02 30 13 43  4d 50 23 26 30 44 3a 42  |ts ..0.CMP#&0D:B|
00000450  45 51 6e 65 77 6c 0d 02  3a 0a 4a 53 52 70 72 74  |EQnewl..:.JSRprt|
00000460  0d 02 44 12 2e 63 74 20  42 4e 45 20 70 72 74 6c  |..D..ct BNE prtl|
00000470  70 32 0d 02 4e 18 49 4e  43 61 64 64 72 2b 31 3a  |p2..N.INCaddr+1:|
00000480  4a 4d 50 20 70 72 74 6c  70 31 0d 02 58 0d 2e 72  |JMP prtlp1..X..r|
00000490  74 73 20 52 54 53 20 0d  02 62 3d 2e 6e 65 77 6c  |ts RTS ..b=.newl|
000004a0  20 4a 53 52 26 46 46 45  37 3a 4c 44 41 73 6b 69  | JSR&FFE7:LDAski|
000004b0  70 3a 42 45 51 6e 6f 74  73 6b 70 3a 4a 4d 50 73  |p:BEQnotskp:JMPs|
000004c0  6b 70 3a 2e 6e 6f 74 73  6b 70 3a 49 4e 59 3a 4a  |kp:.notskp:INY:J|
000004d0  4d 50 63 74 0d 02 6c 67  2e 73 6b 70 20 44 45 43  |MPct..lg.skp DEC|
000004e0  63 6f 75 6e 74 3a 42 4e  45 69 6e 63 3a 4c 44 41  |count:BNEinc:LDA|
000004f0  73 6b 69 70 6c 69 6e 65  73 3a 53 54 41 63 6f 75  |skiplines:STAcou|
00000500  6e 74 3a 2e 73 6b 70 31  20 4a 53 52 26 46 46 45  |nt:.skp1 JSR&FFE|
00000510  37 3a 44 45 43 63 6f 75  6e 74 3a 42 4e 45 73 6b  |7:DECcount:BNEsk|
00000520  70 31 3a 4c 44 41 6c 69  6e 65 73 3a 53 54 41 63  |p1:LDAlines:STAc|
00000530  6f 75 6e 74 3a 4a 4d 50  69 6e 63 0d 02 76 46 2e  |ount:JMPinc..vF.|
00000540  70 72 74 20 43 4d 50 23  62 6f 6c 64 63 64 3a 42  |prt CMP#boldcd:B|
00000550  4e 45 6e 6f 74 62 6f 6c  64 3a 4c 44 41 62 64 66  |NEnotbold:LDAbdf|
00000560  6c 67 3a 82 23 26 46 46  3a 53 54 41 62 64 66 6c  |lg:.#&FF:STAbdfl|
00000570  67 3a 4a 4d 50 69 6e 63  3a 2e 6e 6f 74 62 6f 6c  |g:JMPinc:.notbol|
00000580  64 0d 02 80 41 43 4d 50  23 69 74 61 6c 63 64 3a  |d...ACMP#italcd:|
00000590  42 4e 45 6e 6f 74 69 74  61 6c 3a 4c 44 41 69 74  |BNEnotital:LDAit|
000005a0  66 6c 67 3a 82 23 26 46  46 3a 53 54 41 69 74 66  |flg:.#&FF:STAitf|
000005b0  6c 67 3a 4a 4d 50 69 6e  63 3a 2e 6e 6f 74 69 74  |lg:JMPinc:.notit|
000005c0  61 6c 0d 02 8a 12 43 4d  50 23 26 32 30 3a 42 43  |al....CMP#&20:BC|
000005d0  43 69 6e 63 0d 02 94 5c  53 54 41 62 6c 6f 63 6b  |Cinc...\STAblock|
000005e0  3a 4c 44 41 62 64 66 6c  67 3a 42 45 51 6e 6f 74  |:LDAbdflg:BEQnot|
000005f0  62 64 3a 4a 4d 50 62 64  3a 2e 6e 6f 74 62 64 20  |bd:JMPbd:.notbd |
00000600  4c 44 41 69 74 66 6c 67  3a 42 45 51 6e 6f 74 69  |LDAitflg:BEQnoti|
00000610  74 3a 4a 4d 50 69 74 3a  2e 6e 6f 74 69 74 20 4c  |t:JMPit:.notit L|
00000620  44 41 62 6c 6f 63 6b 3a  4a 53 52 26 46 46 45 45  |DAblock:JSR&FFEE|
00000630  0d 02 9e 16 2e 69 6e 63  20 49 4e 59 3a 4a 4d 50  |.....inc INY:JMP|
00000640  70 72 74 6c 70 32 0d 02  a8 09 2e 6c 69 6e 65 0d  |prtlp2.....line.|
00000650  02 b2 19 4c 44 59 23 30  3a 4c 44 41 23 33 39 3a  |...LDY#0:LDA#39:|
00000660  53 54 41 63 6e 74 2b 31  0d 02 bc 38 2e 73 70 6c  |STAcnt+1...8.spl|
00000670  20 4c 44 41 28 61 64 64  72 29 2c 59 3a 43 4d 50  | LDA(addr),Y:CMP|
00000680  23 97 22 20 22 3a 42 4e  45 6e 73 70 3a 49 4e 59  |#." ":BNEnsp:INY|
00000690  3a 49 4e 43 63 6e 74 2b  31 3a 4a 4d 50 73 70 6c  |:INCcnt+1:JMPspl|
000006a0  0d 02 c6 08 2e 6e 73 70  0d 02 d0 17 2e 6c 69 6e  |.....nsp.....lin|
000006b0  65 6c 70 20 4c 44 41 28  61 64 64 72 29 2c 59 0d  |elp LDA(addr),Y.|
000006c0  02 da 11 43 4d 50 23 30  3a 42 45 51 72 74 73 31  |...CMP#0:BEQrts1|
000006d0  0d 02 e4 13 43 4d 50 23  26 30 44 3a 42 45 51 74  |....CMP#&0D:BEQt|
000006e0  65 73 74 0d 02 ee 0a 4a  53 52 70 72 74 0d 02 f8  |est....JSRprt...|
000006f0  17 2e 63 6e 74 20 43 50  59 23 33 39 3a 42 45 51  |..cnt CPY#39:BEQ|
00000700  6e 65 78 74 0d 03 02 0e  4a 4d 50 20 6c 69 6e 65  |next....JMP line|
00000710  6c 70 0d 03 0c 0d 2e 72  74 73 31 20 52 54 53 0d  |lp.....rts1 RTS.|
00000720  03 16 19 2e 74 65 73 74  20 49 4e 59 3a 4c 44 41  |....test INY:LDA|
00000730  28 61 64 64 72 29 2c 59  0d 03 20 14 4a 53 52 63  |(addr),Y.. .JSRc|
00000740  68 6b 63 68 72 3a 42 43  53 6f 6b 32 0d 03 2a 12  |hkchr:BCSok2..*.|
00000750  43 4d 50 23 26 30 44 3a  42 45 51 6f 6b 34 0d 03  |CMP#&0D:BEQok4..|
00000760  34 12 43 4d 50 23 26 32  30 3a 42 45 51 6f 6b 32  |4.CMP#&20:BEQok2|
00000770  0d 03 3e 17 44 45 59 3a  44 45 59 3a 4c 44 41 28  |..>.DEY:DEY:LDA(|
00000780  61 64 64 72 29 2c 59 0d  03 48 14 4a 53 52 63 68  |addr),Y..H.JSRch|
00000790  6b 63 68 72 3a 42 43 53  6f 6b 31 0d 03 52 12 43  |kchr:BCSok1..R.C|
000007a0  4d 50 23 26 30 44 3a 42  45 51 6f 6b 33 0d 03 5c  |MP#&0D:BEQok3..\|
000007b0  07 49 4e 59 0d 03 66 11  43 4d 50 23 26 32 30 3a  |.INY..f.CMP#&20:|
000007c0  42 43 43 6e 6e 0d 03 70  2c 4c 44 41 26 33 31 38  |BCCnn..p,LDA&318|
000007d0  3a 42 45 51 6e 6f 73 70  63 3a 4c 44 41 23 26 32  |:BEQnospc:LDA#&2|
000007e0  30 3a 4a 53 52 26 46 46  45 45 3a 2e 6e 6f 73 70  |0:JSR&FFEE:.nosp|
000007f0  63 0d 03 7a 13 2e 6e 6e  20 49 4e 59 3a 4a 4d 50  |c..z..nn INY:JMP|
00000800  20 63 6e 74 0d 03 84 10  2e 6f 6b 31 20 49 4e 59  | cnt.....ok1 INY|
00000810  3a 49 4e 59 0d 03 8e 13  2e 6f 6b 32 20 4a 4d 50  |:INY.....ok2 JMP|
00000820  6e 65 77 6c 69 6e 65 0d  03 98 10 2e 6f 6b 33 20  |newline.....ok3 |
00000830  49 4e 59 3a 49 4e 59 0d  03 a2 1c 2e 6f 6b 34 20  |INY:INY.....ok4 |
00000840  4a 53 52 26 46 46 45 37  3a 4a 4d 50 6e 65 77 6c  |JSR&FFE7:JMPnewl|
00000850  69 6e 65 0d 03 ac 15 2e  6e 65 78 74 20 4c 44 41  |ine.....next LDA|
00000860  28 61 64 64 72 29 2c 59  0d 03 b6 18 4a 53 52 63  |(addr),Y....JSRc|
00000870  68 6b 63 68 72 3a 42 45  51 73 6b 69 70 63 68 72  |hkchr:BEQskipchr|
00000880  0d 03 c0 16 43 4d 50 23  26 32 30 3a 42 45 51 6e  |....CMP#&20:BEQn|
00000890  65 77 6c 69 6e 65 0d 03  ca 20 2e 64 65 6c 65 74  |ewline... .delet|
000008a0  65 20 44 45 59 3a 4c 44  41 23 26 37 46 3a 4a 53  |e DEY:LDA#&7F:JS|
000008b0  52 26 46 46 45 45 0d 03  d4 0f 4c 44 41 28 61 64  |R&FFEE....LDA(ad|
000008c0  64 72 29 2c 59 0d 03 de  15 43 4d 50 23 26 32 30  |dr),Y....CMP#&20|
000008d0  3a 42 4e 45 64 65 6c 65  74 65 0d 03 e8 15 2e 6e  |:BNEdelete.....n|
000008e0  65 77 6c 69 6e 65 20 4a  53 52 26 46 46 45 37 0d  |ewline JSR&FFE7.|
000008f0  03 f2 10 2e 69 6e 63 61  64 64 72 20 43 4c 43 0d  |....incaddr CLC.|
00000900  03 fc 17 54 59 41 3a 41  44 43 61 64 64 72 3a 53  |...TYA:ADCaddr:S|
00000910  54 41 61 64 64 72 0d 04  06 1d 4c 44 41 61 64 64  |TAaddr....LDAadd|
00000920  72 2b 31 3a 41 44 43 23  30 3a 53 54 41 61 64 64  |r+1:ADC#0:STAadd|
00000930  72 2b 31 0d 04 10 0b 4a  4d 50 6c 69 6e 65 0d 04  |r+1....JMPline..|
00000940  1a 1c 2e 73 6b 69 70 63  68 72 20 49 4e 59 3a 4c  |...skipchr INY:L|
00000950  44 41 28 61 64 64 72 29  2c 59 0d 04 24 18 4a 53  |DA(addr),Y..$.JS|
00000960  52 63 68 6b 63 68 72 3a  42 45 51 73 6b 69 70 63  |Rchkchr:BEQskipc|
00000970  68 72 0d 04 2e 0e 4a 4d  50 69 6e 63 61 64 64 72  |hr....JMPincaddr|
00000980  0d 04 38 0b 2e 63 68 6b  63 68 72 0d 04 42 0f 4c  |..8..chkchr..B.L|
00000990  44 41 28 61 64 64 72 29  2c 59 0d 04 4c 14 43 4d  |DA(addr),Y..L.CM|
000009a0  50 23 26 32 41 3a 42 45  51 63 68 72 6f 6b 0d 04  |P#&2A:BEQchrok..|
000009b0  56 14 43 4d 50 23 26 37  45 3a 42 45 51 63 68 72  |V.CMP#&7E:BEQchr|
000009c0  6f 6b 0d 04 60 14 43 4d  50 23 26 33 44 3a 42 45  |ok..`.CMP#&3D:BE|
000009d0  51 63 68 72 6f 6b 0d 04  6a 0b 43 4c 43 3a 52 54  |Qchrok..j.CLC:RT|
000009e0  53 0d 04 74 12 2e 63 68  72 6f 6b 20 53 45 43 3a  |S..t..chrok SEC:|
000009f0  52 54 53 0d 04 7e 17 2e  62 64 20 54 58 41 3a 50  |RTS..~..bd TXA:P|
00000a00  48 41 3a 54 59 41 3a 50  48 41 0d 04 88 0e 4c 44  |HA:TYA:PHA....LD|
00000a10  41 70 72 74 66 6c 67 20  0d 04 92 0e 42 45 51 6e  |Aprtflg ....BEQn|
00000a20  6f 70 72 74 31 20 0d 04  9c 12 4c 44 41 23 62 6f  |oprt1 ....LDA#bo|
00000a30  6c 64 20 83 32 35 36 20  0d 04 a6 0f 4a 53 52 70  |ld .256 ....JSRp|
00000a40  72 69 6e 74 65 72 20 0d  04 b0 0c 2e 6e 6f 70 72  |rinter .....nopr|
00000a50  74 31 20 0d 04 ba 0e 4a  53 52 67 65 74 64 65 66  |t1 ....JSRgetdef|
00000a60  20 0d 04 c4 0a 4c 44 58  23 31 20 0d 04 ce 0b 2e  | ....LDX#1 .....|
00000a70  6c 6f 6f 70 31 20 0d 04  d8 0f 4c 44 41 62 6c 6f  |loop1 ....LDAblo|
00000a80  63 6b 2c 58 20 0d 04 e2  0a 41 53 4c 20 41 20 0d  |ck,X ....ASL A .|
00000a90  04 ec 0e 84 41 62 6c 6f  63 6b 2c 58 20 0d 04 f6  |....Ablock,X ...|
00000aa0  0f 53 54 41 62 6c 6f 63  6b 2c 58 20 0d 05 00 08  |.STAblock,X ....|
00000ab0  49 4e 58 20 0d 05 0a 0a  43 50 58 23 39 20 0d 05  |INX ....CPX#9 ..|
00000ac0  14 0d 42 4e 45 6c 6f 6f  70 31 20 0d 05 1e 0e 4a  |..BNEloop1 ....J|
00000ad0  53 52 6d 61 6b 63 68 61  72 0d 05 28 0c 2e 6e 65  |SRmakchar..(..ne|
00000ae0  77 63 68 72 20 0d 05 32  0e 4c 44 41 70 72 74 66  |wchr ..2.LDAprtf|
00000af0  6c 67 20 0d 05 3c 10 42  4e 45 70 72 74 72 65 6e  |lg ..<.BNEprtren|
00000b00  61 62 20 0d 05 46 0c 4c  44 41 23 32 35 35 20 0d  |ab ..F.LDA#255 .|
00000b10  05 50 11 42 4e 45 6e 65  77 63 68 72 65 6e 64 20  |.P.BNEnewchrend |
00000b20  0d 05 5a 0e 2e 70 72 74  72 65 6e 61 62 20 0d 05  |..Z..prtrenab ..|
00000b30  64 13 4c 44 41 23 31 3a  4a 53 52 26 46 46 45 45  |d.LDA#1:JSR&FFEE|
00000b40  20 0d 05 6e 16 4c 44 41  62 6c 6f 63 6b 3a 4a 53  | ..n.LDAblock:JS|
00000b50  52 26 46 46 45 45 20 0d  05 78 13 4c 44 41 23 33  |R&FFEE ..x.LDA#3|
00000b60  3a 4a 53 52 26 46 46 45  45 20 0d 05 82 15 4c 44  |:JSR&FFEE ....LD|
00000b70  41 23 32 35 35 3a 4a 53  52 26 46 46 45 45 20 0d  |A#255:JSR&FFEE .|
00000b80  05 8c 0a 4c 44 41 23 32  20 0d 05 96 0f 2e 6e 65  |...LDA#2 .....ne|
00000b90  77 63 68 72 65 6e 64 20  0d 05 a0 0d 4a 53 52 26  |wchrend ....JSR&|
00000ba0  46 46 45 45 20 0d 05 aa  0e 4c 44 41 70 72 74 66  |FFEE ....LDAprtf|
00000bb0  6c 67 20 0d 05 b4 0d 42  45 51 6e 74 70 72 74 20  |lg ....BEQntprt |
00000bc0  0d 05 be 12 4c 44 41 23  6e 6f 72 6d 20 83 32 35  |....LDA#norm .25|
00000bd0  36 20 0d 05 c8 0f 4a 53  52 70 72 69 6e 74 65 72  |6 ....JSRprinter|
00000be0  20 0d 05 d2 0b 2e 6e 74  70 72 74 20 0d 05 dc 14  | .....ntprt ....|
00000bf0  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 20  |PLA:TAY:PLA:TAX |
00000c00  0d 05 e6 0b 4a 4d 50 69  6e 63 20 0d 05 f0 17 2e  |....JMPinc .....|
00000c10  69 74 20 54 58 41 3a 50  48 41 3a 54 59 41 3a 50  |it TXA:PHA:TYA:P|
00000c20  48 41 0d 05 fa 0e 4c 44  41 70 72 74 66 6c 67 20  |HA....LDAprtflg |
00000c30  0d 06 04 0e 42 45 51 6e  6f 70 72 74 32 20 0d 06  |....BEQnoprt2 ..|
00000c40  0e 12 4c 44 41 23 69 74  61 6c 20 83 32 35 36 20  |..LDA#ital .256 |
00000c50  0d 06 18 0f 4a 53 52 70  72 69 6e 74 65 72 20 0d  |....JSRprinter .|
00000c60  06 22 0c 2e 6e 6f 70 72  74 32 20 0d 06 2c 0e 4a  |."..noprt2 ..,.J|
00000c70  53 52 67 65 74 64 65 66  20 0d 06 36 10 4c 53 52  |SRgetdef ..6.LSR|
00000c80  20 62 6c 6f 63 6b 2b 31  20 0d 06 40 10 4c 53 52  | block+1 ..@.LSR|
00000c90  20 62 6c 6f 63 6b 2b 32  20 0d 06 4a 10 41 53 4c  | block+2 ..J.ASL|
00000ca0  20 62 6c 6f 63 6b 2b 36  20 0d 06 54 10 41 53 4c  | block+6 ..T.ASL|
00000cb0  20 62 6c 6f 63 6b 2b 37  20 0d 06 5e 0e 4a 53 52  | block+7 ..^.JSR|
00000cc0  6d 61 6b 63 68 61 72 0d  06 68 0e 4a 4d 50 6e 65  |makchar..h.JMPne|
00000cd0  77 63 68 72 20 0d 06 72  0c 2e 6d 61 6b 63 68 61  |wchr ..r..makcha|
00000ce0  72 0d 06 7c 24 4c 44 41  23 32 33 3a 4a 53 52 26  |r..|$LDA#23:JSR&|
00000cf0  46 46 45 45 3a 4c 44 41  23 32 35 35 3a 4a 53 52  |FFEE:LDA#255:JSR|
00000d00  26 46 46 45 45 0d 06 86  09 4c 44 58 23 31 0d 06  |&FFEE....LDX#1..|
00000d10  90 14 2e 63 68 6c 70 20  4c 44 41 62 6c 6f 63 6b  |...chlp LDAblock|
00000d20  2c 58 0d 06 9a 0c 4a 53  52 26 46 46 45 45 0d 06  |,X....JSR&FFEE..|
00000d30  a4 15 49 4e 58 3a 43 50  58 23 39 3a 42 4e 45 63  |..INX:CPX#9:BNEc|
00000d40  68 6c 70 0d 06 ae 07 52  54 53 0d 06 b8 14 2e 67  |hlp....RTS.....g|
00000d50  65 74 64 65 66 20 4c 44  41 23 26 30 41 20 0d 06  |etdef LDA#&0A ..|
00000d60  c2 13 4c 44 58 23 62 6c  6f 63 6b 20 83 32 35 36  |..LDX#block .256|
00000d70  20 0d 06 cc 13 4c 44 59  23 62 6c 6f 63 6b 20 81  | ....LDY#block .|
00000d80  32 35 36 20 0d 06 d6 0d  4a 4d 50 26 46 46 46 31  |256 ....JMP&FFF1|
00000d90  20 0d 06 e0 06 3a 20 0d  06 ea 0d 2e 70 72 69 6e  | ....: .....prin|
00000da0  74 65 72 20 0d 06 f4 0d  43 4d 50 73 74 79 6c 65  |ter ....CMPstyle|
00000db0  20 0d 06 fe 0e 42 45 51  70 72 74 65 6e 64 20 0d  | ....BEQprtend .|
00000dc0  07 08 0d 53 54 41 73 74  79 6c 65 20 0d 07 12 0a  |...STAstyle ....|
00000dd0  4c 44 59 23 30 20 0d 07  1c 0d 2e 70 72 74 6c 6f  |LDY#0 .....prtlo|
00000de0  6f 70 20 0d 07 26 0a 4c  44 41 23 31 20 0d 07 30  |op ..&.LDA#1 ..0|
00000df0  0d 4a 53 52 26 46 46 45  45 20 0d 07 3a 11 4c 44  |.JSR&FFEE ..:.LD|
00000e00  41 28 73 74 79 6c 65 29  2c 59 20 0d 07 44 0d 4a  |A(style),Y ..D.J|
00000e10  53 52 26 46 46 45 45 20  0d 07 4e 08 49 4e 59 20  |SR&FFEE ..N.INY |
00000e20  0d 07 58 0a 43 50 59 23  34 20 0d 07 62 0f 42 4e  |..X.CPY#4 ..b.BN|
00000e30  45 70 72 74 6c 6f 6f 70  20 0d 07 6c 0c 2e 70 72  |Eprtloop ..l..pr|
00000e40  74 65 6e 64 20 0d 07 76  08 52 54 53 20 0d 07 80  |tend ..v.RTS ...|
00000e50  06 3a 20 0d 07 8a 15 2e  62 6f 6c 64 20 45 51 55  |.: .....bold EQU|
00000e60  53 20 62 6f 6c 64 24 20  0d 07 94 15 2e 69 74 61  |S bold$ .....ita|
00000e70  6c 20 45 51 55 53 20 69  74 61 6c 24 20 0d 07 9e  |l EQUS ital$ ...|
00000e80  15 2e 6e 6f 72 6d 20 45  51 55 53 20 6e 6f 72 6d  |..norm EQUS norm|
00000e90  24 20 0d 07 a8 06 5d 20  0d 07 b2 06 ed 20 0d 07  |$ ....] ..... ..|
00000ea0  bc 06 e1 20 0d ff                                 |... ..|
00000ea6