� 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=60:?skiplines=12:?skip=0 
�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
lh.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:RTS
�	.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 1b  | ..2..assem ..<.|
00000050  ff 22 53 41 56 45 20 43  4f 44 45 36 20 39 30 30  |."SAVE CODE6 900|
00000060  20 22 2b c3 7e 50 25 0d  00 46 05 e0 0d 00 50 05  | "+.~P%..F....P.|
00000070  3a 0d 00 5a 0c dd f2 61  73 73 65 6d 20 0d 00 64  |:..Z...assem ..d|
00000080  21 61 64 64 72 3d 26 37  30 3a 73 74 79 6c 65 3d  |!addr=&70:style=|
00000090  26 37 32 3a 70 72 74 66  6c 67 3d 26 37 38 0d 00  |&72:prtflg=&78..|
000000a0  6e 2a 62 64 66 6c 67 3d  26 37 41 3a 69 74 66 6c  |n*bdflg=&7A:itfl|
000000b0  67 3d 26 37 42 3a 3f 62  64 66 6c 67 3d 30 3a 3f  |g=&7B:?bdflg=0:?|
000000c0  69 74 66 6c 67 3d 30 20  0d 00 78 44 6c 69 6e 65  |itflg=0 ..xDline|
000000d0  73 3d 26 38 30 3a 73 6b  69 70 6c 69 6e 65 73 3d  |s=&80:skiplines=|
000000e0  26 38 31 3a 73 6b 69 70  3d 26 38 32 3a 63 6f 75  |&81:skip=&82:cou|
000000f0  6e 74 3d 26 38 33 3a 6d  6f 64 65 66 6c 61 67 3d  |nt=&83:modeflag=|
00000100  26 38 34 3a 74 65 6d 70  3d 26 38 35 0d 00 82 24  |&84:temp=&85...$|
00000110  3f 6c 69 6e 65 73 3d 36  30 3a 3f 73 6b 69 70 6c  |?lines=60:?skipl|
00000120  69 6e 65 73 3d 31 32 3a  3f 73 6b 69 70 3d 30 20  |ines=12:?skip=0 |
00000130  0d 00 8c 18 62 6c 6f 63  6b 3d 26 43 46 37 3a 68  |....block=&CF7:h|
00000140  69 6d 65 6d 3d 26 30 36  0d 00 96 19 62 6f 6c 64  |imem=&06....bold|
00000150  63 64 3d 26 31 43 3a 69  74 61 6c 63 64 3d 26 31  |cd=&1C:italcd=&1|
00000160  44 0d 00 a0 05 3a 0d 00  aa 1a 62 6f 6c 64 24 3d  |D....:....bold$=|
00000170  bd 32 37 2b bd 36 39 2b  bd 32 37 2b bd 35 30 20  |.27+.69+.27+.50 |
00000180  0d 00 b4 1a 69 74 61 6c  24 3d bd 32 37 2b bd 35  |....ital$=.27+.5|
00000190  32 2b bd 32 37 2b bd 35  30 20 0d 00 be 1a 6e 6f  |2+.27+.50 ....no|
000001a0  72 6d 24 3d bd 32 37 2b  bd 35 33 2b bd 32 37 2b  |rm$=.27+.53+.27+|
000001b0  bd 37 30 20 0d 00 c8 05  3a 0d 00 d2 0d e3 69 3d  |.70 ....:.....i=|
000001c0  30 b8 32 88 32 20 0d 00  dc 0c 50 25 3d 26 39 30  |0.2.2 ....P%=&90|
000001d0  30 20 0d 00 e6 0a 5b 4f  50 54 69 20 0d 00 f0 0c  |0 ....[OPTi ....|
000001e0  4a 4d 50 63 6c 65 61 72  0d 00 fa 0c 4a 4d 50 70  |JMPclear....JMPp|
000001f0  72 69 6e 74 0d 01 04 19  4a 4d 50 26 39 39 39 39  |rint....JMP&9999|
00000200  20 20 20 20 5c 72 65 73  65 72 76 65 64 0d 01 0e  |    \reserved...|
00000210  19 4a 4d 50 26 39 39 39  39 20 20 20 20 5c 72 65  |.JMP&9999    \re|
00000220  73 65 72 76 65 64 0d 01  18 05 3a 0d 01 22 0a 2e  |served....:.."..|
00000230  63 6c 65 61 72 0d 01 2c  14 4c 44 41 68 69 6d 65  |clear..,.LDAhime|
00000240  6d 3a 53 54 41 61 64 64  72 0d 01 36 18 4c 44 41  |m:STAaddr..6.LDA|
00000250  68 69 6d 65 6d 2b 31 3a  53 54 41 61 64 64 72 2b  |himem+1:STAaddr+|
00000260  31 0d 01 40 11 2e 63 6c  72 6c 70 31 20 4c 44 59  |1..@..clrlp1 LDY|
00000270  23 30 0d 01 4a 1d 2e 63  6c 72 6c 70 32 20 4c 44  |#0..J..clrlp2 LD|
00000280  41 23 30 3a 53 54 41 28  61 64 64 72 29 2c 59 0d  |A#0:STA(addr),Y.|
00000290  01 54 12 49 4e 59 3a 42  4e 45 20 63 6c 72 6c 70  |.T.INY:BNE clrlp|
000002a0  32 0d 01 5e 0d 49 4e 43  61 64 64 72 2b 31 0d 01  |2..^.INCaddr+1..|
000002b0  68 0d 4c 44 41 61 64 64  72 2b 31 0d 01 72 16 43  |h.LDAaddr+1..r.C|
000002c0  4d 50 23 26 34 30 3a 42  4e 45 20 63 6c 72 6c 70  |MP#&40:BNE clrlp|
000002d0  31 0d 01 7c 08 52 54 53  20 0d 01 86 05 3a 0d 01  |1..|.RTS ....:..|
000002e0  90 0b 2e 70 72 69 6e 74  20 0d 01 9a 1b 4c 44 41  |...print ....LDA|
000002f0  23 30 3a 53 54 41 62 64  66 6c 67 3a 53 54 41 69  |#0:STAbdflg:STAi|
00000300  74 66 6c 67 0d 01 a4 14  4c 44 41 23 26 38 37 3a  |tflg....LDA#&87:|
00000310  4a 53 52 26 46 46 46 34  0d 01 ae 0f 43 50 59 23  |JSR&FFF4....CPY#|
00000320  33 3a 42 4e 45 6d 6d 0d  01 b8 1a 4c 44 41 23 30  |3:BNEmm....LDA#0|
00000330  3a 53 54 41 6d 6f 64 65  66 6c 61 67 3a 4a 4d 50  |:STAmodeflag:JMP|
00000340  6d 0d 01 c2 1b 2e 6d 6d  20 4c 44 41 23 32 35 35  |m.....mm LDA#255|
00000350  3a 53 54 41 6d 6f 64 65  66 6c 61 67 0d 01 cc 17  |:STAmodeflag....|
00000360  2e 6d 20 4c 44 41 23 26  37 35 3a 4a 53 52 26 46  |.m LDA#&75:JSR&F|
00000370  46 46 34 0d 01 d6 0b 54  58 41 3a 80 23 31 0d 01  |FF4....TXA:.#1..|
00000380  e0 0e 53 54 41 70 72 74  66 6c 67 20 0d 01 ea 2b  |..STAprtflg ...+|
00000390  42 45 51 6e 70 72 74 3a  4c 44 41 23 62 6f 6c 64  |BEQnprt:LDA#bold|
000003a0  20 81 32 35 36 3a 53 54  41 73 74 79 6c 65 2b 31  | .256:STAstyle+1|
000003b0  3a 2e 6e 70 72 74 20 0d  01 f4 14 4c 44 41 68 69  |:.nprt ....LDAhi|
000003c0  6d 65 6d 3a 53 54 41 61  64 64 72 0d 01 fe 18 4c  |mem:STAaddr....L|
000003d0  44 41 68 69 6d 65 6d 2b  31 3a 53 54 41 61 64 64  |DAhimem+1:STAadd|
000003e0  72 2b 31 0d 02 08 17 4c  44 41 6d 6f 64 65 66 6c  |r+1....LDAmodefl|
000003f0  61 67 3a 42 4e 45 6c 69  6e 65 0d 02 12 11 2e 70  |ag:BNEline.....p|
00000400  72 74 6c 70 31 20 4c 44  59 23 30 0d 02 1c 17 2e  |rtlp1 LDY#0.....|
00000410  70 72 74 6c 70 32 20 4c  44 41 28 61 64 64 72 29  |prtlp2 LDA(addr)|
00000420  2c 59 0d 02 26 11 43 4d  50 23 30 3a 42 45 51 72  |,Y..&.CMP#0:BEQr|
00000430  74 73 20 0d 02 30 13 43  4d 50 23 26 30 44 3a 42  |ts ..0.CMP#&0D:B|
00000440  45 51 6e 65 77 6c 0d 02  3a 0a 4a 53 52 70 72 74  |EQnewl..:.JSRprt|
00000450  0d 02 44 12 2e 63 74 20  42 4e 45 20 70 72 74 6c  |..D..ct BNE prtl|
00000460  70 32 0d 02 4e 18 49 4e  43 61 64 64 72 2b 31 3a  |p2..N.INCaddr+1:|
00000470  4a 4d 50 20 70 72 74 6c  70 31 0d 02 58 0d 2e 72  |JMP prtlp1..X..r|
00000480  74 73 20 52 54 53 20 0d  02 62 3d 2e 6e 65 77 6c  |ts RTS ..b=.newl|
00000490  20 4a 53 52 26 46 46 45  37 3a 4c 44 41 73 6b 69  | JSR&FFE7:LDAski|
000004a0  70 3a 42 45 51 6e 6f 74  73 6b 70 3a 4a 4d 50 73  |p:BEQnotskp:JMPs|
000004b0  6b 70 3a 2e 6e 6f 74 73  6b 70 3a 49 4e 59 3a 4a  |kp:.notskp:INY:J|
000004c0  4d 50 63 74 0d 02 6c 68  2e 73 6b 70 20 44 45 43  |MPct..lh.skp DEC|
000004d0  63 6f 75 6e 74 3a 42 4e  45 69 6e 63 3a 4c 44 41  |count:BNEinc:LDA|
000004e0  73 6b 69 70 6c 69 6e 65  73 3a 53 54 41 63 6f 75  |skiplines:STAcou|
000004f0  6e 74 3a 2e 73 6b 70 31  20 4a 53 52 26 46 46 45  |nt:.skp1 JSR&FFE|
00000500  37 3a 44 45 43 63 6f 75  6e 74 3a 42 4e 45 73 6b  |7:DECcount:BNEsk|
00000510  70 31 3a 4c 44 41 6c 69  6e 65 73 3a 53 54 41 63  |p1:LDAlines:STAc|
00000520  6f 75 6e 74 3a 4a 4d 50  69 6e 63 20 0d 02 76 46  |ount:JMPinc ..vF|
00000530  2e 70 72 74 20 43 4d 50  23 62 6f 6c 64 63 64 3a  |.prt CMP#boldcd:|
00000540  42 4e 45 6e 6f 74 62 6f  6c 64 3a 4c 44 41 62 64  |BNEnotbold:LDAbd|
00000550  66 6c 67 3a 82 23 26 46  46 3a 53 54 41 62 64 66  |flg:.#&FF:STAbdf|
00000560  6c 67 3a 4a 4d 50 69 6e  63 3a 2e 6e 6f 74 62 6f  |lg:JMPinc:.notbo|
00000570  6c 64 0d 02 80 41 43 4d  50 23 69 74 61 6c 63 64  |ld...ACMP#italcd|
00000580  3a 42 4e 45 6e 6f 74 69  74 61 6c 3a 4c 44 41 69  |:BNEnotital:LDAi|
00000590  74 66 6c 67 3a 82 23 26  46 46 3a 53 54 41 69 74  |tflg:.#&FF:STAit|
000005a0  66 6c 67 3a 4a 4d 50 69  6e 63 3a 2e 6e 6f 74 69  |flg:JMPinc:.noti|
000005b0  74 61 6c 0d 02 8a 12 43  4d 50 23 26 32 30 3a 42  |tal....CMP#&20:B|
000005c0  43 43 69 6e 63 0d 02 94  5c 53 54 41 62 6c 6f 63  |CCinc...\STAbloc|
000005d0  6b 3a 4c 44 41 62 64 66  6c 67 3a 42 45 51 6e 6f  |k:LDAbdflg:BEQno|
000005e0  74 62 64 3a 4a 4d 50 62  64 3a 2e 6e 6f 74 62 64  |tbd:JMPbd:.notbd|
000005f0  20 4c 44 41 69 74 66 6c  67 3a 42 45 51 6e 6f 74  | LDAitflg:BEQnot|
00000600  69 74 3a 4a 4d 50 69 74  3a 2e 6e 6f 74 69 74 20  |it:JMPit:.notit |
00000610  4c 44 41 62 6c 6f 63 6b  3a 4a 53 52 26 46 46 45  |LDAblock:JSR&FFE|
00000620  45 0d 02 9e 10 2e 69 6e  63 20 49 4e 59 3a 52 54  |E.....inc INY:RT|
00000630  53 0d 02 a8 09 2e 6c 69  6e 65 0d 02 b2 19 4c 44  |S.....line....LD|
00000640  59 23 30 3a 4c 44 41 23  33 39 3a 53 54 41 63 6e  |Y#0:LDA#39:STAcn|
00000650  74 2b 31 0d 02 bc 38 2e  73 70 6c 20 4c 44 41 28  |t+1...8.spl LDA(|
00000660  61 64 64 72 29 2c 59 3a  43 4d 50 23 97 22 20 22  |addr),Y:CMP#." "|
00000670  3a 42 4e 45 6e 73 70 3a  49 4e 59 3a 49 4e 43 63  |:BNEnsp:INY:INCc|
00000680  6e 74 2b 31 3a 4a 4d 50  73 70 6c 0d 02 c6 08 2e  |nt+1:JMPspl.....|
00000690  6e 73 70 0d 02 d0 17 2e  6c 69 6e 65 6c 70 20 4c  |nsp.....linelp L|
000006a0  44 41 28 61 64 64 72 29  2c 59 0d 02 da 11 43 4d  |DA(addr),Y....CM|
000006b0  50 23 30 3a 42 45 51 72  74 73 31 0d 02 e4 13 43  |P#0:BEQrts1....C|
000006c0  4d 50 23 26 30 44 3a 42  45 51 74 65 73 74 0d 02  |MP#&0D:BEQtest..|
000006d0  ee 0a 4a 53 52 70 72 74  0d 02 f8 17 2e 63 6e 74  |..JSRprt.....cnt|
000006e0  20 43 50 59 23 33 39 3a  42 45 51 6e 65 78 74 0d  | CPY#39:BEQnext.|
000006f0  03 02 0e 4a 4d 50 20 6c  69 6e 65 6c 70 0d 03 0c  |...JMP linelp...|
00000700  0d 2e 72 74 73 31 20 52  54 53 0d 03 16 19 2e 74  |..rts1 RTS.....t|
00000710  65 73 74 20 49 4e 59 3a  4c 44 41 28 61 64 64 72  |est INY:LDA(addr|
00000720  29 2c 59 0d 03 20 14 4a  53 52 63 68 6b 63 68 72  |),Y.. .JSRchkchr|
00000730  3a 42 43 53 6f 6b 32 0d  03 2a 12 43 4d 50 23 26  |:BCSok2..*.CMP#&|
00000740  30 44 3a 42 45 51 6f 6b  34 0d 03 34 12 43 4d 50  |0D:BEQok4..4.CMP|
00000750  23 26 32 30 3a 42 45 51  6f 6b 32 0d 03 3e 17 44  |#&20:BEQok2..>.D|
00000760  45 59 3a 44 45 59 3a 4c  44 41 28 61 64 64 72 29  |EY:DEY:LDA(addr)|
00000770  2c 59 0d 03 48 14 4a 53  52 63 68 6b 63 68 72 3a  |,Y..H.JSRchkchr:|
00000780  42 43 53 6f 6b 31 0d 03  52 12 43 4d 50 23 26 30  |BCSok1..R.CMP#&0|
00000790  44 3a 42 45 51 6f 6b 33  0d 03 5c 07 49 4e 59 0d  |D:BEQok3..\.INY.|
000007a0  03 66 11 43 4d 50 23 26  32 30 3a 42 43 43 6e 6e  |.f.CMP#&20:BCCnn|
000007b0  0d 03 70 2c 4c 44 41 26  33 31 38 3a 42 45 51 6e  |..p,LDA&318:BEQn|
000007c0  6f 73 70 63 3a 4c 44 41  23 26 32 30 3a 4a 53 52  |ospc:LDA#&20:JSR|
000007d0  26 46 46 45 45 3a 2e 6e  6f 73 70 63 0d 03 7a 13  |&FFEE:.nospc..z.|
000007e0  2e 6e 6e 20 49 4e 59 3a  4a 4d 50 20 63 6e 74 0d  |.nn INY:JMP cnt.|
000007f0  03 84 10 2e 6f 6b 31 20  49 4e 59 3a 49 4e 59 0d  |....ok1 INY:INY.|
00000800  03 8e 13 2e 6f 6b 32 20  4a 4d 50 6e 65 77 6c 69  |....ok2 JMPnewli|
00000810  6e 65 0d 03 98 10 2e 6f  6b 33 20 49 4e 59 3a 49  |ne.....ok3 INY:I|
00000820  4e 59 0d 03 a2 1c 2e 6f  6b 34 20 4a 53 52 26 46  |NY.....ok4 JSR&F|
00000830  46 45 37 3a 4a 4d 50 6e  65 77 6c 69 6e 65 0d 03  |FE7:JMPnewline..|
00000840  ac 15 2e 6e 65 78 74 20  4c 44 41 28 61 64 64 72  |...next LDA(addr|
00000850  29 2c 59 0d 03 b6 18 4a  53 52 63 68 6b 63 68 72  |),Y....JSRchkchr|
00000860  3a 42 45 51 73 6b 69 70  63 68 72 0d 03 c0 16 43  |:BEQskipchr....C|
00000870  4d 50 23 26 32 30 3a 42  45 51 6e 65 77 6c 69 6e  |MP#&20:BEQnewlin|
00000880  65 0d 03 ca 20 2e 64 65  6c 65 74 65 20 44 45 59  |e... .delete DEY|
00000890  3a 4c 44 41 23 26 37 46  3a 4a 53 52 26 46 46 45  |:LDA#&7F:JSR&FFE|
000008a0  45 0d 03 d4 0f 4c 44 41  28 61 64 64 72 29 2c 59  |E....LDA(addr),Y|
000008b0  0d 03 de 15 43 4d 50 23  26 32 30 3a 42 4e 45 64  |....CMP#&20:BNEd|
000008c0  65 6c 65 74 65 0d 03 e8  15 2e 6e 65 77 6c 69 6e  |elete.....newlin|
000008d0  65 20 4a 53 52 26 46 46  45 37 0d 03 f2 10 2e 69  |e JSR&FFE7.....i|
000008e0  6e 63 61 64 64 72 20 43  4c 43 0d 03 fc 17 54 59  |ncaddr CLC....TY|
000008f0  41 3a 41 44 43 61 64 64  72 3a 53 54 41 61 64 64  |A:ADCaddr:STAadd|
00000900  72 0d 04 06 1d 4c 44 41  61 64 64 72 2b 31 3a 41  |r....LDAaddr+1:A|
00000910  44 43 23 30 3a 53 54 41  61 64 64 72 2b 31 0d 04  |DC#0:STAaddr+1..|
00000920  10 0b 4a 4d 50 6c 69 6e  65 0d 04 1a 1c 2e 73 6b  |..JMPline.....sk|
00000930  69 70 63 68 72 20 49 4e  59 3a 4c 44 41 28 61 64  |ipchr INY:LDA(ad|
00000940  64 72 29 2c 59 0d 04 24  18 4a 53 52 63 68 6b 63  |dr),Y..$.JSRchkc|
00000950  68 72 3a 42 45 51 73 6b  69 70 63 68 72 0d 04 2e  |hr:BEQskipchr...|
00000960  0e 4a 4d 50 69 6e 63 61  64 64 72 0d 04 38 0b 2e  |.JMPincaddr..8..|
00000970  63 68 6b 63 68 72 0d 04  42 0f 4c 44 41 28 61 64  |chkchr..B.LDA(ad|
00000980  64 72 29 2c 59 0d 04 4c  14 43 4d 50 23 26 32 41  |dr),Y..L.CMP#&2A|
00000990  3a 42 45 51 63 68 72 6f  6b 0d 04 56 14 43 4d 50  |:BEQchrok..V.CMP|
000009a0  23 26 37 45 3a 42 45 51  63 68 72 6f 6b 0d 04 60  |#&7E:BEQchrok..`|
000009b0  14 43 4d 50 23 26 33 44  3a 42 45 51 63 68 72 6f  |.CMP#&3D:BEQchro|
000009c0  6b 0d 04 6a 0b 43 4c 43  3a 52 54 53 0d 04 74 12  |k..j.CLC:RTS..t.|
000009d0  2e 63 68 72 6f 6b 20 53  45 43 3a 52 54 53 0d 04  |.chrok SEC:RTS..|
000009e0  7e 17 2e 62 64 20 54 58  41 3a 50 48 41 3a 54 59  |~..bd TXA:PHA:TY|
000009f0  41 3a 50 48 41 0d 04 88  0e 4c 44 41 70 72 74 66  |A:PHA....LDAprtf|
00000a00  6c 67 20 0d 04 92 0e 42  45 51 6e 6f 70 72 74 31  |lg ....BEQnoprt1|
00000a10  20 0d 04 9c 12 4c 44 41  23 62 6f 6c 64 20 83 32  | ....LDA#bold .2|
00000a20  35 36 20 0d 04 a6 0f 4a  53 52 70 72 69 6e 74 65  |56 ....JSRprinte|
00000a30  72 20 0d 04 b0 0c 2e 6e  6f 70 72 74 31 20 0d 04  |r .....noprt1 ..|
00000a40  ba 0e 4a 53 52 67 65 74  64 65 66 20 0d 04 c4 0a  |..JSRgetdef ....|
00000a50  4c 44 58 23 31 20 0d 04  ce 0b 2e 6c 6f 6f 70 31  |LDX#1 .....loop1|
00000a60  20 0d 04 d8 0f 4c 44 41  62 6c 6f 63 6b 2c 58 20  | ....LDAblock,X |
00000a70  0d 04 e2 0a 41 53 4c 20  41 20 0d 04 ec 0e 84 41  |....ASL A .....A|
00000a80  62 6c 6f 63 6b 2c 58 20  0d 04 f6 0f 53 54 41 62  |block,X ....STAb|
00000a90  6c 6f 63 6b 2c 58 20 0d  05 00 08 49 4e 58 20 0d  |lock,X ....INX .|
00000aa0  05 0a 0a 43 50 58 23 39  20 0d 05 14 0d 42 4e 45  |...CPX#9 ....BNE|
00000ab0  6c 6f 6f 70 31 20 0d 05  1e 0e 4a 53 52 6d 61 6b  |loop1 ....JSRmak|
00000ac0  63 68 61 72 0d 05 28 0c  2e 6e 65 77 63 68 72 20  |char..(..newchr |
00000ad0  0d 05 32 0e 4c 44 41 70  72 74 66 6c 67 20 0d 05  |..2.LDAprtflg ..|
00000ae0  3c 10 42 4e 45 70 72 74  72 65 6e 61 62 20 0d 05  |<.BNEprtrenab ..|
00000af0  46 0c 4c 44 41 23 32 35  35 20 0d 05 50 11 42 4e  |F.LDA#255 ..P.BN|
00000b00  45 6e 65 77 63 68 72 65  6e 64 20 0d 05 5a 0e 2e  |Enewchrend ..Z..|
00000b10  70 72 74 72 65 6e 61 62  20 0d 05 64 13 4c 44 41  |prtrenab ..d.LDA|
00000b20  23 31 3a 4a 53 52 26 46  46 45 45 20 0d 05 6e 16  |#1:JSR&FFEE ..n.|
00000b30  4c 44 41 62 6c 6f 63 6b  3a 4a 53 52 26 46 46 45  |LDAblock:JSR&FFE|
00000b40  45 20 0d 05 78 13 4c 44  41 23 33 3a 4a 53 52 26  |E ..x.LDA#3:JSR&|
00000b50  46 46 45 45 20 0d 05 82  15 4c 44 41 23 32 35 35  |FFEE ....LDA#255|
00000b60  3a 4a 53 52 26 46 46 45  45 20 0d 05 8c 0a 4c 44  |:JSR&FFEE ....LD|
00000b70  41 23 32 20 0d 05 96 0f  2e 6e 65 77 63 68 72 65  |A#2 .....newchre|
00000b80  6e 64 20 0d 05 a0 0d 4a  53 52 26 46 46 45 45 20  |nd ....JSR&FFEE |
00000b90  0d 05 aa 0e 4c 44 41 70  72 74 66 6c 67 20 0d 05  |....LDAprtflg ..|
00000ba0  b4 0d 42 45 51 6e 74 70  72 74 20 0d 05 be 12 4c  |..BEQntprt ....L|
00000bb0  44 41 23 6e 6f 72 6d 20  83 32 35 36 20 0d 05 c8  |DA#norm .256 ...|
00000bc0  0f 4a 53 52 70 72 69 6e  74 65 72 20 0d 05 d2 0b  |.JSRprinter ....|
00000bd0  2e 6e 74 70 72 74 20 0d  05 dc 14 50 4c 41 3a 54  |.ntprt ....PLA:T|
00000be0  41 59 3a 50 4c 41 3a 54  41 58 20 0d 05 e6 0b 4a  |AY:PLA:TAX ....J|
00000bf0  4d 50 69 6e 63 20 0d 05  f0 17 2e 69 74 20 54 58  |MPinc .....it TX|
00000c00  41 3a 50 48 41 3a 54 59  41 3a 50 48 41 0d 05 fa  |A:PHA:TYA:PHA...|
00000c10  0e 4c 44 41 70 72 74 66  6c 67 20 0d 06 04 0e 42  |.LDAprtflg ....B|
00000c20  45 51 6e 6f 70 72 74 32  20 0d 06 0e 12 4c 44 41  |EQnoprt2 ....LDA|
00000c30  23 69 74 61 6c 20 83 32  35 36 20 0d 06 18 0f 4a  |#ital .256 ....J|
00000c40  53 52 70 72 69 6e 74 65  72 20 0d 06 22 0c 2e 6e  |SRprinter .."..n|
00000c50  6f 70 72 74 32 20 0d 06  2c 0e 4a 53 52 67 65 74  |oprt2 ..,.JSRget|
00000c60  64 65 66 20 0d 06 36 10  4c 53 52 20 62 6c 6f 63  |def ..6.LSR bloc|
00000c70  6b 2b 31 20 0d 06 40 10  4c 53 52 20 62 6c 6f 63  |k+1 ..@.LSR bloc|
00000c80  6b 2b 32 20 0d 06 4a 10  41 53 4c 20 62 6c 6f 63  |k+2 ..J.ASL bloc|
00000c90  6b 2b 36 20 0d 06 54 10  41 53 4c 20 62 6c 6f 63  |k+6 ..T.ASL bloc|
00000ca0  6b 2b 37 20 0d 06 5e 0e  4a 53 52 6d 61 6b 63 68  |k+7 ..^.JSRmakch|
00000cb0  61 72 0d 06 68 0e 4a 4d  50 6e 65 77 63 68 72 20  |ar..h.JMPnewchr |
00000cc0  0d 06 72 0c 2e 6d 61 6b  63 68 61 72 0d 06 7c 24  |..r..makchar..|$|
00000cd0  4c 44 41 23 32 33 3a 4a  53 52 26 46 46 45 45 3a  |LDA#23:JSR&FFEE:|
00000ce0  4c 44 41 23 32 35 35 3a  4a 53 52 26 46 46 45 45  |LDA#255:JSR&FFEE|
00000cf0  0d 06 86 09 4c 44 58 23  31 0d 06 90 14 2e 63 68  |....LDX#1.....ch|
00000d00  6c 70 20 4c 44 41 62 6c  6f 63 6b 2c 58 0d 06 9a  |lp LDAblock,X...|
00000d10  0c 4a 53 52 26 46 46 45  45 0d 06 a4 15 49 4e 58  |.JSR&FFEE....INX|
00000d20  3a 43 50 58 23 39 3a 42  4e 45 63 68 6c 70 0d 06  |:CPX#9:BNEchlp..|
00000d30  ae 07 52 54 53 0d 06 b8  14 2e 67 65 74 64 65 66  |..RTS.....getdef|
00000d40  20 4c 44 41 23 26 30 41  20 0d 06 c2 13 4c 44 58  | LDA#&0A ....LDX|
00000d50  23 62 6c 6f 63 6b 20 83  32 35 36 20 0d 06 cc 13  |#block .256 ....|
00000d60  4c 44 59 23 62 6c 6f 63  6b 20 81 32 35 36 20 0d  |LDY#block .256 .|
00000d70  06 d6 0d 4a 4d 50 26 46  46 46 31 20 0d 06 e0 06  |...JMP&FFF1 ....|
00000d80  3a 20 0d 06 ea 0d 2e 70  72 69 6e 74 65 72 20 0d  |: .....printer .|
00000d90  06 f4 0d 43 4d 50 73 74  79 6c 65 20 0d 06 fe 0e  |...CMPstyle ....|
00000da0  42 45 51 70 72 74 65 6e  64 20 0d 07 08 0d 53 54  |BEQprtend ....ST|
00000db0  41 73 74 79 6c 65 20 0d  07 12 0a 4c 44 59 23 30  |Astyle ....LDY#0|
00000dc0  20 0d 07 1c 0d 2e 70 72  74 6c 6f 6f 70 20 0d 07  | .....prtloop ..|
00000dd0  26 0a 4c 44 41 23 31 20  0d 07 30 0d 4a 53 52 26  |&.LDA#1 ..0.JSR&|
00000de0  46 46 45 45 20 0d 07 3a  11 4c 44 41 28 73 74 79  |FFEE ..:.LDA(sty|
00000df0  6c 65 29 2c 59 20 0d 07  44 0d 4a 53 52 26 46 46  |le),Y ..D.JSR&FF|
00000e00  45 45 20 0d 07 4e 08 49  4e 59 20 0d 07 58 0a 43  |EE ..N.INY ..X.C|
00000e10  50 59 23 34 20 0d 07 62  0f 42 4e 45 70 72 74 6c  |PY#4 ..b.BNEprtl|
00000e20  6f 6f 70 20 0d 07 6c 0c  2e 70 72 74 65 6e 64 20  |oop ..l..prtend |
00000e30  0d 07 76 08 52 54 53 20  0d 07 80 06 3a 20 0d 07  |..v.RTS ....: ..|
00000e40  8a 15 2e 62 6f 6c 64 20  45 51 55 53 20 62 6f 6c  |...bold EQUS bol|
00000e50  64 24 20 0d 07 94 15 2e  69 74 61 6c 20 45 51 55  |d$ .....ital EQU|
00000e60  53 20 69 74 61 6c 24 20  0d 07 9e 15 2e 6e 6f 72  |S ital$ .....nor|
00000e70  6d 20 45 51 55 53 20 6e  6f 72 6d 24 20 0d 07 a8  |m EQUS norm$ ...|
00000e80  06 5d 20 0d 07 b2 06 ed  20 0d 07 bc 06 e1 20 0d  |.] ..... ..... .|
00000e90  ff                                                |.|
00000e91