A� Lines 1 to 6 to be deleted before using prog. Added by Gus.
�3
�:�:�:�
J�"THE PROGRAM FOR THE SOURCE OF CODE6 IS LOADED. ENTER LIST TO SEE IT"
�

� CODE6 assembler
� by Richard Dimond 
� May 1997
(� 
2�assem 
<$� OSCLI"SAVE CODE6 900 "+STR$~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 01 41 f4 20 4c 69  6e 65 73 20 31 20 74 6f  |...A. Lines 1 to|
00000010  20 36 20 74 6f 20 62 65  20 64 65 6c 65 74 65 64  | 6 to be deleted|
00000020  20 62 65 66 6f 72 65 20  75 73 69 6e 67 20 70 72  | before using pr|
00000030  6f 67 2e 20 41 64 64 65  64 20 62 79 20 47 75 73  |og. Added by Gus|
00000040  2e 0d 00 02 06 eb 33 0d  00 03 0b f1 3a f1 3a f1  |......3.....:.:.|
00000050  3a f1 0d 00 04 4a f1 22  54 48 45 20 50 52 4f 47  |:....J."THE PROG|
00000060  52 41 4d 20 46 4f 52 20  54 48 45 20 53 4f 55 52  |RAM FOR THE SOUR|
00000070  43 45 20 4f 46 20 43 4f  44 45 36 20 49 53 20 4c  |CE OF CODE6 IS L|
00000080  4f 41 44 45 44 2e 20 45  4e 54 45 52 20 4c 49 53  |OADED. ENTER LIS|
00000090  54 20 54 4f 20 53 45 45  20 49 54 22 0d 00 05 05  |T TO SEE IT"....|
000000a0  e0 0d 00 0a 15 f4 20 43  4f 44 45 36 20 61 73 73  |...... CODE6 ass|
000000b0  65 6d 62 6c 65 72 0d 00  14 18 f4 20 62 79 20 52  |embler..... by R|
000000c0  69 63 68 61 72 64 20 44  69 6d 6f 6e 64 20 0d 00  |ichard Dimond ..|
000000d0  1e 0e f4 20 4d 61 79 20  31 39 39 37 0d 00 28 06  |... May 1997..(.|
000000e0  f4 20 0d 00 32 0b f2 61  73 73 65 6d 20 0d 00 3c  |. ..2..assem ..<|
000000f0  24 f4 20 4f 53 43 4c 49  22 53 41 56 45 20 43 4f  |$. OSCLI"SAVE CO|
00000100  44 45 36 20 39 30 30 20  22 2b 53 54 52 24 7e 50  |DE6 900 "+STR$~P|
00000110  25 0d 00 46 05 e0 0d 00  50 05 3a 0d 00 5a 0c dd  |%..F....P.:..Z..|
00000120  f2 61 73 73 65 6d 20 0d  00 64 21 61 64 64 72 3d  |.assem ..d!addr=|
00000130  26 37 30 3a 73 74 79 6c  65 3d 26 37 32 3a 70 72  |&70:style=&72:pr|
00000140  74 66 6c 67 3d 26 37 38  0d 00 6e 2a 62 64 66 6c  |tflg=&78..n*bdfl|
00000150  67 3d 26 37 41 3a 69 74  66 6c 67 3d 26 37 42 3a  |g=&7A:itflg=&7B:|
00000160  3f 62 64 66 6c 67 3d 30  3a 3f 69 74 66 6c 67 3d  |?bdflg=0:?itflg=|
00000170  30 20 0d 00 78 44 6c 69  6e 65 73 3d 26 38 30 3a  |0 ..xDlines=&80:|
00000180  73 6b 69 70 6c 69 6e 65  73 3d 26 38 31 3a 73 6b  |skiplines=&81:sk|
00000190  69 70 3d 26 38 32 3a 63  6f 75 6e 74 3d 26 38 33  |ip=&82:count=&83|
000001a0  3a 6d 6f 64 65 66 6c 61  67 3d 26 38 34 3a 74 65  |:modeflag=&84:te|
000001b0  6d 70 3d 26 38 35 0d 00  82 24 3f 6c 69 6e 65 73  |mp=&85...$?lines|
000001c0  3d 36 30 3a 3f 73 6b 69  70 6c 69 6e 65 73 3d 31  |=60:?skiplines=1|
000001d0  32 3a 3f 73 6b 69 70 3d  30 20 0d 00 8c 18 62 6c  |2:?skip=0 ....bl|
000001e0  6f 63 6b 3d 26 43 46 37  3a 68 69 6d 65 6d 3d 26  |ock=&CF7:himem=&|
000001f0  30 36 0d 00 96 19 62 6f  6c 64 63 64 3d 26 31 43  |06....boldcd=&1C|
00000200  3a 69 74 61 6c 63 64 3d  26 31 44 0d 00 a0 05 3a  |:italcd=&1D....:|
00000210  0d 00 aa 1a 62 6f 6c 64  24 3d bd 32 37 2b bd 36  |....bold$=.27+.6|
00000220  39 2b bd 32 37 2b bd 35  30 20 0d 00 b4 1a 69 74  |9+.27+.50 ....it|
00000230  61 6c 24 3d bd 32 37 2b  bd 35 32 2b bd 32 37 2b  |al$=.27+.52+.27+|
00000240  bd 35 30 20 0d 00 be 1a  6e 6f 72 6d 24 3d bd 32  |.50 ....norm$=.2|
00000250  37 2b bd 35 33 2b bd 32  37 2b bd 37 30 20 0d 00  |7+.53+.27+.70 ..|
00000260  c8 05 3a 0d 00 d2 0d e3  69 3d 30 b8 32 88 32 20  |..:.....i=0.2.2 |
00000270  0d 00 dc 0c 50 25 3d 26  39 30 30 20 0d 00 e6 0a  |....P%=&900 ....|
00000280  5b 4f 50 54 69 20 0d 00  f0 0c 4a 4d 50 63 6c 65  |[OPTi ....JMPcle|
00000290  61 72 0d 00 fa 0c 4a 4d  50 70 72 69 6e 74 0d 01  |ar....JMPprint..|
000002a0  04 19 4a 4d 50 26 39 39  39 39 20 20 20 20 5c 72  |..JMP&9999    \r|
000002b0  65 73 65 72 76 65 64 0d  01 0e 19 4a 4d 50 26 39  |eserved....JMP&9|
000002c0  39 39 39 20 20 20 20 5c  72 65 73 65 72 76 65 64  |999    \reserved|
000002d0  0d 01 18 05 3a 0d 01 22  0a 2e 63 6c 65 61 72 0d  |....:.."..clear.|
000002e0  01 2c 14 4c 44 41 68 69  6d 65 6d 3a 53 54 41 61  |.,.LDAhimem:STAa|
000002f0  64 64 72 0d 01 36 18 4c  44 41 68 69 6d 65 6d 2b  |ddr..6.LDAhimem+|
00000300  31 3a 53 54 41 61 64 64  72 2b 31 0d 01 40 11 2e  |1:STAaddr+1..@..|
00000310  63 6c 72 6c 70 31 20 4c  44 59 23 30 0d 01 4a 1d  |clrlp1 LDY#0..J.|
00000320  2e 63 6c 72 6c 70 32 20  4c 44 41 23 30 3a 53 54  |.clrlp2 LDA#0:ST|
00000330  41 28 61 64 64 72 29 2c  59 0d 01 54 12 49 4e 59  |A(addr),Y..T.INY|
00000340  3a 42 4e 45 20 63 6c 72  6c 70 32 0d 01 5e 0d 49  |:BNE clrlp2..^.I|
00000350  4e 43 61 64 64 72 2b 31  0d 01 68 0d 4c 44 41 61  |NCaddr+1..h.LDAa|
00000360  64 64 72 2b 31 0d 01 72  16 43 4d 50 23 26 34 30  |ddr+1..r.CMP#&40|
00000370  3a 42 4e 45 20 63 6c 72  6c 70 31 0d 01 7c 08 52  |:BNE clrlp1..|.R|
00000380  54 53 20 0d 01 86 05 3a  0d 01 90 0b 2e 70 72 69  |TS ....:.....pri|
00000390  6e 74 20 0d 01 9a 1b 4c  44 41 23 30 3a 53 54 41  |nt ....LDA#0:STA|
000003a0  62 64 66 6c 67 3a 53 54  41 69 74 66 6c 67 0d 01  |bdflg:STAitflg..|
000003b0  a4 14 4c 44 41 23 26 38  37 3a 4a 53 52 26 46 46  |..LDA#&87:JSR&FF|
000003c0  46 34 0d 01 ae 0f 43 50  59 23 33 3a 42 4e 45 6d  |F4....CPY#3:BNEm|
000003d0  6d 0d 01 b8 1a 4c 44 41  23 30 3a 53 54 41 6d 6f  |m....LDA#0:STAmo|
000003e0  64 65 66 6c 61 67 3a 4a  4d 50 6d 0d 01 c2 1b 2e  |deflag:JMPm.....|
000003f0  6d 6d 20 4c 44 41 23 32  35 35 3a 53 54 41 6d 6f  |mm LDA#255:STAmo|
00000400  64 65 66 6c 61 67 0d 01  cc 17 2e 6d 20 4c 44 41  |deflag.....m LDA|
00000410  23 26 37 35 3a 4a 53 52  26 46 46 46 34 0d 01 d6  |#&75:JSR&FFF4...|
00000420  0b 54 58 41 3a 80 23 31  0d 01 e0 0e 53 54 41 70  |.TXA:.#1....STAp|
00000430  72 74 66 6c 67 20 0d 01  ea 2b 42 45 51 6e 70 72  |rtflg ...+BEQnpr|
00000440  74 3a 4c 44 41 23 62 6f  6c 64 20 81 32 35 36 3a  |t:LDA#bold .256:|
00000450  53 54 41 73 74 79 6c 65  2b 31 3a 2e 6e 70 72 74  |STAstyle+1:.nprt|
00000460  20 0d 01 f4 14 4c 44 41  68 69 6d 65 6d 3a 53 54  | ....LDAhimem:ST|
00000470  41 61 64 64 72 0d 01 fe  18 4c 44 41 68 69 6d 65  |Aaddr....LDAhime|
00000480  6d 2b 31 3a 53 54 41 61  64 64 72 2b 31 0d 02 08  |m+1:STAaddr+1...|
00000490  17 4c 44 41 6d 6f 64 65  66 6c 61 67 3a 42 4e 45  |.LDAmodeflag:BNE|
000004a0  6c 69 6e 65 0d 02 12 11  2e 70 72 74 6c 70 31 20  |line.....prtlp1 |
000004b0  4c 44 59 23 30 0d 02 1c  17 2e 70 72 74 6c 70 32  |LDY#0.....prtlp2|
000004c0  20 4c 44 41 28 61 64 64  72 29 2c 59 0d 02 26 11  | LDA(addr),Y..&.|
000004d0  43 4d 50 23 30 3a 42 45  51 72 74 73 20 0d 02 30  |CMP#0:BEQrts ..0|
000004e0  13 43 4d 50 23 26 30 44  3a 42 45 51 6e 65 77 6c  |.CMP#&0D:BEQnewl|
000004f0  0d 02 3a 0a 4a 53 52 70  72 74 0d 02 44 12 2e 63  |..:.JSRprt..D..c|
00000500  74 20 42 4e 45 20 70 72  74 6c 70 32 0d 02 4e 18  |t BNE prtlp2..N.|
00000510  49 4e 43 61 64 64 72 2b  31 3a 4a 4d 50 20 70 72  |INCaddr+1:JMP pr|
00000520  74 6c 70 31 0d 02 58 0d  2e 72 74 73 20 52 54 53  |tlp1..X..rts RTS|
00000530  20 0d 02 62 3d 2e 6e 65  77 6c 20 4a 53 52 26 46  | ..b=.newl JSR&F|
00000540  46 45 37 3a 4c 44 41 73  6b 69 70 3a 42 45 51 6e  |FE7:LDAskip:BEQn|
00000550  6f 74 73 6b 70 3a 4a 4d  50 73 6b 70 3a 2e 6e 6f  |otskp:JMPskp:.no|
00000560  74 73 6b 70 3a 49 4e 59  3a 4a 4d 50 63 74 0d 02  |tskp:INY:JMPct..|
00000570  6c 68 2e 73 6b 70 20 44  45 43 63 6f 75 6e 74 3a  |lh.skp DECcount:|
00000580  42 4e 45 69 6e 63 3a 4c  44 41 73 6b 69 70 6c 69  |BNEinc:LDAskipli|
00000590  6e 65 73 3a 53 54 41 63  6f 75 6e 74 3a 2e 73 6b  |nes:STAcount:.sk|
000005a0  70 31 20 4a 53 52 26 46  46 45 37 3a 44 45 43 63  |p1 JSR&FFE7:DECc|
000005b0  6f 75 6e 74 3a 42 4e 45  73 6b 70 31 3a 4c 44 41  |ount:BNEskp1:LDA|
000005c0  6c 69 6e 65 73 3a 53 54  41 63 6f 75 6e 74 3a 4a  |lines:STAcount:J|
000005d0  4d 50 69 6e 63 20 0d 02  76 46 2e 70 72 74 20 43  |MPinc ..vF.prt C|
000005e0  4d 50 23 62 6f 6c 64 63  64 3a 42 4e 45 6e 6f 74  |MP#boldcd:BNEnot|
000005f0  62 6f 6c 64 3a 4c 44 41  62 64 66 6c 67 3a 82 23  |bold:LDAbdflg:.#|
00000600  26 46 46 3a 53 54 41 62  64 66 6c 67 3a 4a 4d 50  |&FF:STAbdflg:JMP|
00000610  69 6e 63 3a 2e 6e 6f 74  62 6f 6c 64 0d 02 80 41  |inc:.notbold...A|
00000620  43 4d 50 23 69 74 61 6c  63 64 3a 42 4e 45 6e 6f  |CMP#italcd:BNEno|
00000630  74 69 74 61 6c 3a 4c 44  41 69 74 66 6c 67 3a 82  |tital:LDAitflg:.|
00000640  23 26 46 46 3a 53 54 41  69 74 66 6c 67 3a 4a 4d  |#&FF:STAitflg:JM|
00000650  50 69 6e 63 3a 2e 6e 6f  74 69 74 61 6c 0d 02 8a  |Pinc:.notital...|
00000660  12 43 4d 50 23 26 32 30  3a 42 43 43 69 6e 63 0d  |.CMP#&20:BCCinc.|
00000670  02 94 5c 53 54 41 62 6c  6f 63 6b 3a 4c 44 41 62  |..\STAblock:LDAb|
00000680  64 66 6c 67 3a 42 45 51  6e 6f 74 62 64 3a 4a 4d  |dflg:BEQnotbd:JM|
00000690  50 62 64 3a 2e 6e 6f 74  62 64 20 4c 44 41 69 74  |Pbd:.notbd LDAit|
000006a0  66 6c 67 3a 42 45 51 6e  6f 74 69 74 3a 4a 4d 50  |flg:BEQnotit:JMP|
000006b0  69 74 3a 2e 6e 6f 74 69  74 20 4c 44 41 62 6c 6f  |it:.notit LDAblo|
000006c0  63 6b 3a 4a 53 52 26 46  46 45 45 0d 02 9e 10 2e  |ck:JSR&FFEE.....|
000006d0  69 6e 63 20 49 4e 59 3a  52 54 53 0d 02 a8 09 2e  |inc INY:RTS.....|
000006e0  6c 69 6e 65 0d 02 b2 19  4c 44 59 23 30 3a 4c 44  |line....LDY#0:LD|
000006f0  41 23 33 39 3a 53 54 41  63 6e 74 2b 31 0d 02 bc  |A#39:STAcnt+1...|
00000700  38 2e 73 70 6c 20 4c 44  41 28 61 64 64 72 29 2c  |8.spl LDA(addr),|
00000710  59 3a 43 4d 50 23 97 22  20 22 3a 42 4e 45 6e 73  |Y:CMP#." ":BNEns|
00000720  70 3a 49 4e 59 3a 49 4e  43 63 6e 74 2b 31 3a 4a  |p:INY:INCcnt+1:J|
00000730  4d 50 73 70 6c 0d 02 c6  08 2e 6e 73 70 0d 02 d0  |MPspl.....nsp...|
00000740  17 2e 6c 69 6e 65 6c 70  20 4c 44 41 28 61 64 64  |..linelp LDA(add|
00000750  72 29 2c 59 0d 02 da 11  43 4d 50 23 30 3a 42 45  |r),Y....CMP#0:BE|
00000760  51 72 74 73 31 0d 02 e4  13 43 4d 50 23 26 30 44  |Qrts1....CMP#&0D|
00000770  3a 42 45 51 74 65 73 74  0d 02 ee 0a 4a 53 52 70  |:BEQtest....JSRp|
00000780  72 74 0d 02 f8 17 2e 63  6e 74 20 43 50 59 23 33  |rt.....cnt CPY#3|
00000790  39 3a 42 45 51 6e 65 78  74 0d 03 02 0e 4a 4d 50  |9:BEQnext....JMP|
000007a0  20 6c 69 6e 65 6c 70 0d  03 0c 0d 2e 72 74 73 31  | linelp.....rts1|
000007b0  20 52 54 53 0d 03 16 19  2e 74 65 73 74 20 49 4e  | RTS.....test IN|
000007c0  59 3a 4c 44 41 28 61 64  64 72 29 2c 59 0d 03 20  |Y:LDA(addr),Y.. |
000007d0  14 4a 53 52 63 68 6b 63  68 72 3a 42 43 53 6f 6b  |.JSRchkchr:BCSok|
000007e0  32 0d 03 2a 12 43 4d 50  23 26 30 44 3a 42 45 51  |2..*.CMP#&0D:BEQ|
000007f0  6f 6b 34 0d 03 34 12 43  4d 50 23 26 32 30 3a 42  |ok4..4.CMP#&20:B|
00000800  45 51 6f 6b 32 0d 03 3e  17 44 45 59 3a 44 45 59  |EQok2..>.DEY:DEY|
00000810  3a 4c 44 41 28 61 64 64  72 29 2c 59 0d 03 48 14  |:LDA(addr),Y..H.|
00000820  4a 53 52 63 68 6b 63 68  72 3a 42 43 53 6f 6b 31  |JSRchkchr:BCSok1|
00000830  0d 03 52 12 43 4d 50 23  26 30 44 3a 42 45 51 6f  |..R.CMP#&0D:BEQo|
00000840  6b 33 0d 03 5c 07 49 4e  59 0d 03 66 11 43 4d 50  |k3..\.INY..f.CMP|
00000850  23 26 32 30 3a 42 43 43  6e 6e 0d 03 70 2c 4c 44  |#&20:BCCnn..p,LD|
00000860  41 26 33 31 38 3a 42 45  51 6e 6f 73 70 63 3a 4c  |A&318:BEQnospc:L|
00000870  44 41 23 26 32 30 3a 4a  53 52 26 46 46 45 45 3a  |DA#&20:JSR&FFEE:|
00000880  2e 6e 6f 73 70 63 0d 03  7a 13 2e 6e 6e 20 49 4e  |.nospc..z..nn IN|
00000890  59 3a 4a 4d 50 20 63 6e  74 0d 03 84 10 2e 6f 6b  |Y:JMP cnt.....ok|
000008a0  31 20 49 4e 59 3a 49 4e  59 0d 03 8e 13 2e 6f 6b  |1 INY:INY.....ok|
000008b0  32 20 4a 4d 50 6e 65 77  6c 69 6e 65 0d 03 98 10  |2 JMPnewline....|
000008c0  2e 6f 6b 33 20 49 4e 59  3a 49 4e 59 0d 03 a2 1c  |.ok3 INY:INY....|
000008d0  2e 6f 6b 34 20 4a 53 52  26 46 46 45 37 3a 4a 4d  |.ok4 JSR&FFE7:JM|
000008e0  50 6e 65 77 6c 69 6e 65  0d 03 ac 15 2e 6e 65 78  |Pnewline.....nex|
000008f0  74 20 4c 44 41 28 61 64  64 72 29 2c 59 0d 03 b6  |t LDA(addr),Y...|
00000900  18 4a 53 52 63 68 6b 63  68 72 3a 42 45 51 73 6b  |.JSRchkchr:BEQsk|
00000910  69 70 63 68 72 0d 03 c0  16 43 4d 50 23 26 32 30  |ipchr....CMP#&20|
00000920  3a 42 45 51 6e 65 77 6c  69 6e 65 0d 03 ca 20 2e  |:BEQnewline... .|
00000930  64 65 6c 65 74 65 20 44  45 59 3a 4c 44 41 23 26  |delete DEY:LDA#&|
00000940  37 46 3a 4a 53 52 26 46  46 45 45 0d 03 d4 0f 4c  |7F:JSR&FFEE....L|
00000950  44 41 28 61 64 64 72 29  2c 59 0d 03 de 15 43 4d  |DA(addr),Y....CM|
00000960  50 23 26 32 30 3a 42 4e  45 64 65 6c 65 74 65 0d  |P#&20:BNEdelete.|
00000970  03 e8 15 2e 6e 65 77 6c  69 6e 65 20 4a 53 52 26  |....newline JSR&|
00000980  46 46 45 37 0d 03 f2 10  2e 69 6e 63 61 64 64 72  |FFE7.....incaddr|
00000990  20 43 4c 43 0d 03 fc 17  54 59 41 3a 41 44 43 61  | CLC....TYA:ADCa|
000009a0  64 64 72 3a 53 54 41 61  64 64 72 0d 04 06 1d 4c  |ddr:STAaddr....L|
000009b0  44 41 61 64 64 72 2b 31  3a 41 44 43 23 30 3a 53  |DAaddr+1:ADC#0:S|
000009c0  54 41 61 64 64 72 2b 31  0d 04 10 0b 4a 4d 50 6c  |TAaddr+1....JMPl|
000009d0  69 6e 65 0d 04 1a 1c 2e  73 6b 69 70 63 68 72 20  |ine.....skipchr |
000009e0  49 4e 59 3a 4c 44 41 28  61 64 64 72 29 2c 59 0d  |INY:LDA(addr),Y.|
000009f0  04 24 18 4a 53 52 63 68  6b 63 68 72 3a 42 45 51  |.$.JSRchkchr:BEQ|
00000a00  73 6b 69 70 63 68 72 0d  04 2e 0e 4a 4d 50 69 6e  |skipchr....JMPin|
00000a10  63 61 64 64 72 0d 04 38  0b 2e 63 68 6b 63 68 72  |caddr..8..chkchr|
00000a20  0d 04 42 0f 4c 44 41 28  61 64 64 72 29 2c 59 0d  |..B.LDA(addr),Y.|
00000a30  04 4c 14 43 4d 50 23 26  32 41 3a 42 45 51 63 68  |.L.CMP#&2A:BEQch|
00000a40  72 6f 6b 0d 04 56 14 43  4d 50 23 26 37 45 3a 42  |rok..V.CMP#&7E:B|
00000a50  45 51 63 68 72 6f 6b 0d  04 60 14 43 4d 50 23 26  |EQchrok..`.CMP#&|
00000a60  33 44 3a 42 45 51 63 68  72 6f 6b 0d 04 6a 0b 43  |3D:BEQchrok..j.C|
00000a70  4c 43 3a 52 54 53 0d 04  74 12 2e 63 68 72 6f 6b  |LC:RTS..t..chrok|
00000a80  20 53 45 43 3a 52 54 53  0d 04 7e 17 2e 62 64 20  | SEC:RTS..~..bd |
00000a90  54 58 41 3a 50 48 41 3a  54 59 41 3a 50 48 41 0d  |TXA:PHA:TYA:PHA.|
00000aa0  04 88 0e 4c 44 41 70 72  74 66 6c 67 20 0d 04 92  |...LDAprtflg ...|
00000ab0  0e 42 45 51 6e 6f 70 72  74 31 20 0d 04 9c 12 4c  |.BEQnoprt1 ....L|
00000ac0  44 41 23 62 6f 6c 64 20  83 32 35 36 20 0d 04 a6  |DA#bold .256 ...|
00000ad0  0f 4a 53 52 70 72 69 6e  74 65 72 20 0d 04 b0 0c  |.JSRprinter ....|
00000ae0  2e 6e 6f 70 72 74 31 20  0d 04 ba 0e 4a 53 52 67  |.noprt1 ....JSRg|
00000af0  65 74 64 65 66 20 0d 04  c4 0a 4c 44 58 23 31 20  |etdef ....LDX#1 |
00000b00  0d 04 ce 0b 2e 6c 6f 6f  70 31 20 0d 04 d8 0f 4c  |.....loop1 ....L|
00000b10  44 41 62 6c 6f 63 6b 2c  58 20 0d 04 e2 0a 41 53  |DAblock,X ....AS|
00000b20  4c 20 41 20 0d 04 ec 0e  84 41 62 6c 6f 63 6b 2c  |L A .....Ablock,|
00000b30  58 20 0d 04 f6 0f 53 54  41 62 6c 6f 63 6b 2c 58  |X ....STAblock,X|
00000b40  20 0d 05 00 08 49 4e 58  20 0d 05 0a 0a 43 50 58  | ....INX ....CPX|
00000b50  23 39 20 0d 05 14 0d 42  4e 45 6c 6f 6f 70 31 20  |#9 ....BNEloop1 |
00000b60  0d 05 1e 0e 4a 53 52 6d  61 6b 63 68 61 72 0d 05  |....JSRmakchar..|
00000b70  28 0c 2e 6e 65 77 63 68  72 20 0d 05 32 0e 4c 44  |(..newchr ..2.LD|
00000b80  41 70 72 74 66 6c 67 20  0d 05 3c 10 42 4e 45 70  |Aprtflg ..<.BNEp|
00000b90  72 74 72 65 6e 61 62 20  0d 05 46 0c 4c 44 41 23  |rtrenab ..F.LDA#|
00000ba0  32 35 35 20 0d 05 50 11  42 4e 45 6e 65 77 63 68  |255 ..P.BNEnewch|
00000bb0  72 65 6e 64 20 0d 05 5a  0e 2e 70 72 74 72 65 6e  |rend ..Z..prtren|
00000bc0  61 62 20 0d 05 64 13 4c  44 41 23 31 3a 4a 53 52  |ab ..d.LDA#1:JSR|
00000bd0  26 46 46 45 45 20 0d 05  6e 16 4c 44 41 62 6c 6f  |&FFEE ..n.LDAblo|
00000be0  63 6b 3a 4a 53 52 26 46  46 45 45 20 0d 05 78 13  |ck:JSR&FFEE ..x.|
00000bf0  4c 44 41 23 33 3a 4a 53  52 26 46 46 45 45 20 0d  |LDA#3:JSR&FFEE .|
00000c00  05 82 15 4c 44 41 23 32  35 35 3a 4a 53 52 26 46  |...LDA#255:JSR&F|
00000c10  46 45 45 20 0d 05 8c 0a  4c 44 41 23 32 20 0d 05  |FEE ....LDA#2 ..|
00000c20  96 0f 2e 6e 65 77 63 68  72 65 6e 64 20 0d 05 a0  |...newchrend ...|
00000c30  0d 4a 53 52 26 46 46 45  45 20 0d 05 aa 0e 4c 44  |.JSR&FFEE ....LD|
00000c40  41 70 72 74 66 6c 67 20  0d 05 b4 0d 42 45 51 6e  |Aprtflg ....BEQn|
00000c50  74 70 72 74 20 0d 05 be  12 4c 44 41 23 6e 6f 72  |tprt ....LDA#nor|
00000c60  6d 20 83 32 35 36 20 0d  05 c8 0f 4a 53 52 70 72  |m .256 ....JSRpr|
00000c70  69 6e 74 65 72 20 0d 05  d2 0b 2e 6e 74 70 72 74  |inter .....ntprt|
00000c80  20 0d 05 dc 14 50 4c 41  3a 54 41 59 3a 50 4c 41  | ....PLA:TAY:PLA|
00000c90  3a 54 41 58 20 0d 05 e6  0b 4a 4d 50 69 6e 63 20  |:TAX ....JMPinc |
00000ca0  0d 05 f0 17 2e 69 74 20  54 58 41 3a 50 48 41 3a  |.....it TXA:PHA:|
00000cb0  54 59 41 3a 50 48 41 0d  05 fa 0e 4c 44 41 70 72  |TYA:PHA....LDApr|
00000cc0  74 66 6c 67 20 0d 06 04  0e 42 45 51 6e 6f 70 72  |tflg ....BEQnopr|
00000cd0  74 32 20 0d 06 0e 12 4c  44 41 23 69 74 61 6c 20  |t2 ....LDA#ital |
00000ce0  83 32 35 36 20 0d 06 18  0f 4a 53 52 70 72 69 6e  |.256 ....JSRprin|
00000cf0  74 65 72 20 0d 06 22 0c  2e 6e 6f 70 72 74 32 20  |ter .."..noprt2 |
00000d00  0d 06 2c 0e 4a 53 52 67  65 74 64 65 66 20 0d 06  |..,.JSRgetdef ..|
00000d10  36 10 4c 53 52 20 62 6c  6f 63 6b 2b 31 20 0d 06  |6.LSR block+1 ..|
00000d20  40 10 4c 53 52 20 62 6c  6f 63 6b 2b 32 20 0d 06  |@.LSR block+2 ..|
00000d30  4a 10 41 53 4c 20 62 6c  6f 63 6b 2b 36 20 0d 06  |J.ASL block+6 ..|
00000d40  54 10 41 53 4c 20 62 6c  6f 63 6b 2b 37 20 0d 06  |T.ASL block+7 ..|
00000d50  5e 0e 4a 53 52 6d 61 6b  63 68 61 72 0d 06 68 0e  |^.JSRmakchar..h.|
00000d60  4a 4d 50 6e 65 77 63 68  72 20 0d 06 72 0c 2e 6d  |JMPnewchr ..r..m|
00000d70  61 6b 63 68 61 72 0d 06  7c 24 4c 44 41 23 32 33  |akchar..|$LDA#23|
00000d80  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 32 35  |:JSR&FFEE:LDA#25|
00000d90  35 3a 4a 53 52 26 46 46  45 45 0d 06 86 09 4c 44  |5:JSR&FFEE....LD|
00000da0  58 23 31 0d 06 90 14 2e  63 68 6c 70 20 4c 44 41  |X#1.....chlp LDA|
00000db0  62 6c 6f 63 6b 2c 58 0d  06 9a 0c 4a 53 52 26 46  |block,X....JSR&F|
00000dc0  46 45 45 0d 06 a4 15 49  4e 58 3a 43 50 58 23 39  |FEE....INX:CPX#9|
00000dd0  3a 42 4e 45 63 68 6c 70  0d 06 ae 07 52 54 53 0d  |:BNEchlp....RTS.|
00000de0  06 b8 14 2e 67 65 74 64  65 66 20 4c 44 41 23 26  |....getdef LDA#&|
00000df0  30 41 20 0d 06 c2 13 4c  44 58 23 62 6c 6f 63 6b  |0A ....LDX#block|
00000e00  20 83 32 35 36 20 0d 06  cc 13 4c 44 59 23 62 6c  | .256 ....LDY#bl|
00000e10  6f 63 6b 20 81 32 35 36  20 0d 06 d6 0d 4a 4d 50  |ock .256 ....JMP|
00000e20  26 46 46 46 31 20 0d 06  e0 06 3a 20 0d 06 ea 0d  |&FFF1 ....: ....|
00000e30  2e 70 72 69 6e 74 65 72  20 0d 06 f4 0d 43 4d 50  |.printer ....CMP|
00000e40  73 74 79 6c 65 20 0d 06  fe 0e 42 45 51 70 72 74  |style ....BEQprt|
00000e50  65 6e 64 20 0d 07 08 0d  53 54 41 73 74 79 6c 65  |end ....STAstyle|
00000e60  20 0d 07 12 0a 4c 44 59  23 30 20 0d 07 1c 0d 2e  | ....LDY#0 .....|
00000e70  70 72 74 6c 6f 6f 70 20  0d 07 26 0a 4c 44 41 23  |prtloop ..&.LDA#|
00000e80  31 20 0d 07 30 0d 4a 53  52 26 46 46 45 45 20 0d  |1 ..0.JSR&FFEE .|
00000e90  07 3a 11 4c 44 41 28 73  74 79 6c 65 29 2c 59 20  |.:.LDA(style),Y |
00000ea0  0d 07 44 0d 4a 53 52 26  46 46 45 45 20 0d 07 4e  |..D.JSR&FFEE ..N|
00000eb0  08 49 4e 59 20 0d 07 58  0a 43 50 59 23 34 20 0d  |.INY ..X.CPY#4 .|
00000ec0  07 62 0f 42 4e 45 70 72  74 6c 6f 6f 70 20 0d 07  |.b.BNEprtloop ..|
00000ed0  6c 0c 2e 70 72 74 65 6e  64 20 0d 07 76 08 52 54  |l..prtend ..v.RT|
00000ee0  53 20 0d 07 80 06 3a 20  0d 07 8a 15 2e 62 6f 6c  |S ....: .....bol|
00000ef0  64 20 45 51 55 53 20 62  6f 6c 64 24 20 0d 07 94  |d EQUS bold$ ...|
00000f00  15 2e 69 74 61 6c 20 45  51 55 53 20 69 74 61 6c  |..ital EQUS ital|
00000f10  24 20 0d 07 9e 15 2e 6e  6f 72 6d 20 45 51 55 53  |$ .....norm EQUS|
00000f20  20 6e 6f 72 6d 24 20 0d  07 a8 06 5d 20 0d 07 b2  | norm$ ....] ...|
00000f30  06 ed 20 0d 07 bc 06 e1  20 0d ff                 |.. ..... ..|
00000f3b