� CODE8 assembler
� by Richard Dimond 
� V.2 Oct 1998
(� 
2�6
<�assem 
F�"SAVE CODE8 900 "+�~P%
P�
Z:
d��assem 
n!addr=&70:style=&72:prtflg=&78
x*bdflg=&7A:itflg=&7B:?bdflg=0:?itflg=0 
�Dlines=&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     \zero all memory bytes

6LDAhimem:STAaddr

@LDAhimem+1:STAaddr+1

J.clrlp1 LDY#0

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

^INY:BNE clrlp2

h
INCaddr+1

r
LDAaddr+1

|CMP#&40:BNE clrlp1

�RTS 

�:

�.print 

�'LDA#0:STAbdflg:STAitflg \zero flags

�#LDA#&87:JSR&FFF4 \check � numbr

�CPY#3:BNEmm

�LDA#0:STAmodeflag:JMPm

�4.mm LDA#255:STAmodeflag \set flag if �6 selected

�$.m LDA#&75:JSR&FFF4 \check if �2

�TXA:�#1   \printer enabled

�$STAprtflg   \set to 1 if enabled

�JBEQnprt:LDA#bold �256:STAstyle+1:.nprt  \set for font change if enaled

�LDAhimem:STAaddr
LDAhimem+1:STAaddr+1
<LDAmodeflag:BNEline \if flag set go to 40 column routine
.prtlp1 LDY#0
&.prtlp2 LDA(addr),Y
0&CMP#0:BEQrts \if 0 return to BASIC
:CMP#&0D:BEQnewl
D
JMPprt
N.ct BNE prtlp2
XINCaddr+1:JMP prtlp1
b
.rts RTS 
l=.newl JSR&FFE7:LDAskip:BEQnotskp:JMPskp:.notskp:INY:JMPct
vh.skp DECcount:BNEinc:LDAskiplines:STAcount:.skp1 JSR&FFE7:DECcount:BNEskp1:LDAlines:STAcount:JMPinc 
�F.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
�N.inc LDAmodeflag:BNEr:INY:JMPct:.r INY:RTS \in 80 col mode JMP, 40 col RTS
�	.line
�LDY#0:LDA#39:STAcnt+1
�G.spl LDA(addr),Y:CMP#�" ":BNEnsp:INY:INCcnt+1:JMPspl \delete spaces
�.nsp
�.linelp LDA(addr),Y
�'CMP#0:BEQrts1 \if 0 return to BASIC
�CMP#&0D:BEQtest
�
JSRprt
A.cnt CPY#39:BEQnext \if end of line jump to word wrap routine
JMP linelp

.rts1 RTS
 %.test   \check if new line needed
*%INY:LDA(addr),Y \check next char.
4JSRchkchr:BCSok2
>CMP#&0D:BEQok4
HCMP#&20:BEQok2
R.DEY:DEY:LDA(addr),Y \check the char before
\JSRchkchr:BCSok1
fCMP#&0D:BEQok3
pINY
zCMP#&20:BCCnn
�,LDA&318:BEQnospc:LDA#&20:JSR&FFEE:.nospc
�.nn INY:JMP cnt
�.ok1 INY:INY
�.ok2 JMPnewline
�.ok3 INY:INY
�.ok4 JSR&FFE7:JMPnewline
�.next LDA(addr),Y
�JSRchkchr:BEQskipchr
�JSRchkchr2:BCSnewln
� .delete DEY:LDA#&7F:JSR&FFEE
�!LDA(addr),Y \delete part word
�JSRchkchr2:BCCdelete
�$.newln JSR&FFEE:INY \print char.
.newline JSR&FFE7
9.incaddr CLC \increase address to  start of next line
TYA:ADCaddr:STAaddr
$LDAaddr+1:ADC#0:STAaddr+1
.JMPline
8.skipchr INY:LDA(addr),Y
BJSRchkchr:BEQskipchr
LJMPincaddr
V&.chkchr \checks for underlne chars
`CMP#�"*":BEQchrok
jCMP#�"~":BEQchrok
tCMP#�"=":BEQchrok
~CMP#�"-":BEQchrok
�CMP#�"_":BEQchrok
�CLC:RTS
�.chrok SEC:RTS
�'.chkchr2 \checks chars for wordwrap
�(CMP#�" ":BCCnotok:CMP#�"0":BCCchrok2
�(CMP#�":":BCCnotok:CMP#�"A":BCCchrok2
�(CMP#�"{":BCCnotok:CMP#�"a":BCCchrok2
�'CMP#�"z":BCCnotok:CMP#127:BCCchrok2
�.notok CLC:RTS
�K.chrok2 CMP#�"'":BEQnotok:CMP#�"/":BEQnotok \stops wordwrap for ' and /
�SEC:RTS
�#.bd TXA:PHA:TYA:PHA \bold print
LDAprtflg 

BEQnoprt1 
LDA#bold �256 
JSRprinter 
(.noprt1 
2JSRgetdef 
<
LDX#1 
F.loop1 
PLDAblock,X 
Z
ASL A 
d�Ablock,X 
nSTAblock,X 
xINX 
�
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 
.newchrend 

JSR&FFEE 
"LDAprtflg 
,
BEQntprt 
6LDA#norm �256 
@JSRprinter 
J.ntprt 
TPLA:TAY:PLA:TAX 
^JMPinc 
h&.it TXA:PHA:TYA:PHA \italics print
rLDAprtflg 
|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
0.getdef LDA#&0A 
:LDX#block �256 
DLDY#block �256 
N
JMP&FFF1 
X: 
b
.printer 
l
CMPstyle 
vBEQprtend 
�
STAstyle 
�
LDY#0 
�
.prtloop 
�
LDA#1 
�
JSR&FFEE 
�LDA(style),Y 
�
JSR&FFEE 
�INY 
�
CPY#4 
�BNEprtloop 
�.prtend 
�RTS 
�: 
.bold EQUS bold$ 
.ital EQUS ital$ 
.norm EQUS norm$ 
 ]
*�:�
�

00000000  0d 00 0a 15 f4 20 43 4f  44 45 38 20 61 73 73 65  |..... CODE8 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  12 f4 20 56 2e 32 20 4f  63 74 20 31 39 39 38 0d  |.. V.2 Oct 1998.|
00000040  00 28 06 f4 20 0d 00 32  06 eb 36 0d 00 3c 0b f2  |.(.. ..2..6..<..|
00000050  61 73 73 65 6d 20 0d 00  46 1b ff 22 53 41 56 45  |assem ..F.."SAVE|
00000060  20 43 4f 44 45 38 20 39  30 30 20 22 2b c3 7e 50  | CODE8 900 "+.~P|
00000070  25 0d 00 50 05 e0 0d 00  5a 05 3a 0d 00 64 0c dd  |%..P....Z.:..d..|
00000080  f2 61 73 73 65 6d 20 0d  00 6e 21 61 64 64 72 3d  |.assem ..n!addr=|
00000090  26 37 30 3a 73 74 79 6c  65 3d 26 37 32 3a 70 72  |&70:style=&72:pr|
000000a0  74 66 6c 67 3d 26 37 38  0d 00 78 2a 62 64 66 6c  |tflg=&78..x*bdfl|
000000b0  67 3d 26 37 41 3a 69 74  66 6c 67 3d 26 37 42 3a  |g=&7A:itflg=&7B:|
000000c0  3f 62 64 66 6c 67 3d 30  3a 3f 69 74 66 6c 67 3d  |?bdflg=0:?itflg=|
000000d0  30 20 0d 00 82 44 6c 69  6e 65 73 3d 26 38 30 3a  |0 ...Dlines=&80:|
000000e0  73 6b 69 70 6c 69 6e 65  73 3d 26 38 31 3a 73 6b  |skiplines=&81:sk|
000000f0  69 70 3d 26 38 32 3a 63  6f 75 6e 74 3d 26 38 33  |ip=&82:count=&83|
00000100  3a 6d 6f 64 65 66 6c 61  67 3d 26 38 34 3a 74 65  |:modeflag=&84:te|
00000110  6d 70 3d 26 38 35 0d 00  8c 24 3f 6c 69 6e 65 73  |mp=&85...$?lines|
00000120  3d 36 30 3a 3f 73 6b 69  70 6c 69 6e 65 73 3d 31  |=60:?skiplines=1|
00000130  32 3a 3f 73 6b 69 70 3d  30 20 0d 00 96 18 62 6c  |2:?skip=0 ....bl|
00000140  6f 63 6b 3d 26 43 46 37  3a 68 69 6d 65 6d 3d 26  |ock=&CF7:himem=&|
00000150  30 36 0d 00 a0 19 62 6f  6c 64 63 64 3d 26 31 43  |06....boldcd=&1C|
00000160  3a 69 74 61 6c 63 64 3d  26 31 44 0d 00 aa 05 3a  |:italcd=&1D....:|
00000170  0d 00 b4 1a 62 6f 6c 64  24 3d bd 32 37 2b bd 36  |....bold$=.27+.6|
00000180  39 2b bd 32 37 2b bd 35  30 20 0d 00 be 1a 69 74  |9+.27+.50 ....it|
00000190  61 6c 24 3d bd 32 37 2b  bd 35 32 2b bd 32 37 2b  |al$=.27+.52+.27+|
000001a0  bd 35 30 20 0d 00 c8 1a  6e 6f 72 6d 24 3d bd 32  |.50 ....norm$=.2|
000001b0  37 2b bd 35 33 2b bd 32  37 2b bd 37 30 20 0d 00  |7+.53+.27+.70 ..|
000001c0  d2 05 3a 0d 00 dc 0d e3  69 3d 30 b8 32 88 32 20  |..:.....i=0.2.2 |
000001d0  0d 00 e6 0c 50 25 3d 26  39 30 30 20 0d 00 f0 0a  |....P%=&900 ....|
000001e0  5b 4f 50 54 69 20 0d 00  fa 0c 4a 4d 50 63 6c 65  |[OPTi ....JMPcle|
000001f0  61 72 0d 01 04 0c 4a 4d  50 70 72 69 6e 74 0d 01  |ar....JMPprint..|
00000200  0e 19 4a 4d 50 26 39 39  39 39 20 20 20 20 5c 72  |..JMP&9999    \r|
00000210  65 73 65 72 76 65 64 0d  01 18 19 4a 4d 50 26 39  |eserved....JMP&9|
00000220  39 39 39 20 20 20 20 5c  72 65 73 65 72 76 65 64  |999    \reserved|
00000230  0d 01 22 05 3a 0d 01 2c  25 2e 63 6c 65 61 72 20  |..".:..,%.clear |
00000240  20 20 20 20 5c 7a 65 72  6f 20 61 6c 6c 20 6d 65  |    \zero all me|
00000250  6d 6f 72 79 20 62 79 74  65 73 0d 01 36 14 4c 44  |mory bytes..6.LD|
00000260  41 68 69 6d 65 6d 3a 53  54 41 61 64 64 72 0d 01  |Ahimem:STAaddr..|
00000270  40 18 4c 44 41 68 69 6d  65 6d 2b 31 3a 53 54 41  |@.LDAhimem+1:STA|
00000280  61 64 64 72 2b 31 0d 01  4a 11 2e 63 6c 72 6c 70  |addr+1..J..clrlp|
00000290  31 20 4c 44 59 23 30 0d  01 54 1d 2e 63 6c 72 6c  |1 LDY#0..T..clrl|
000002a0  70 32 20 4c 44 41 23 30  3a 53 54 41 28 61 64 64  |p2 LDA#0:STA(add|
000002b0  72 29 2c 59 0d 01 5e 12  49 4e 59 3a 42 4e 45 20  |r),Y..^.INY:BNE |
000002c0  63 6c 72 6c 70 32 0d 01  68 0d 49 4e 43 61 64 64  |clrlp2..h.INCadd|
000002d0  72 2b 31 0d 01 72 0d 4c  44 41 61 64 64 72 2b 31  |r+1..r.LDAaddr+1|
000002e0  0d 01 7c 16 43 4d 50 23  26 34 30 3a 42 4e 45 20  |..|.CMP#&40:BNE |
000002f0  63 6c 72 6c 70 31 0d 01  86 08 52 54 53 20 0d 01  |clrlp1....RTS ..|
00000300  90 05 3a 0d 01 9a 0b 2e  70 72 69 6e 74 20 0d 01  |..:.....print ..|
00000310  a4 27 4c 44 41 23 30 3a  53 54 41 62 64 66 6c 67  |.'LDA#0:STAbdflg|
00000320  3a 53 54 41 69 74 66 6c  67 20 5c 7a 65 72 6f 20  |:STAitflg \zero |
00000330  66 6c 61 67 73 0d 01 ae  23 4c 44 41 23 26 38 37  |flags...#LDA#&87|
00000340  3a 4a 53 52 26 46 46 46  34 20 5c 63 68 65 63 6b  |:JSR&FFF4 \check|
00000350  20 eb 20 6e 75 6d 62 72  0d 01 b8 0f 43 50 59 23  | . numbr....CPY#|
00000360  33 3a 42 4e 45 6d 6d 0d  01 c2 1a 4c 44 41 23 30  |3:BNEmm....LDA#0|
00000370  3a 53 54 41 6d 6f 64 65  66 6c 61 67 3a 4a 4d 50  |:STAmodeflag:JMP|
00000380  6d 0d 01 cc 34 2e 6d 6d  20 4c 44 41 23 32 35 35  |m...4.mm LDA#255|
00000390  3a 53 54 41 6d 6f 64 65  66 6c 61 67 20 5c 73 65  |:STAmodeflag \se|
000003a0  74 20 66 6c 61 67 20 69  66 20 eb 36 20 73 65 6c  |t flag if .6 sel|
000003b0  65 63 74 65 64 0d 01 d6  24 2e 6d 20 4c 44 41 23  |ected...$.m LDA#|
000003c0  26 37 35 3a 4a 53 52 26  46 46 46 34 20 5c 63 68  |&75:JSR&FFF4 \ch|
000003d0  65 63 6b 20 69 66 20 ef  32 0d 01 e0 1e 54 58 41  |eck if .2....TXA|
000003e0  3a 80 23 31 20 20 20 5c  70 72 69 6e 74 65 72 20  |:.#1   \printer |
000003f0  65 6e 61 62 6c 65 64 0d  01 ea 24 53 54 41 70 72  |enabled...$STApr|
00000400  74 66 6c 67 20 20 20 5c  73 65 74 20 74 6f 20 31  |tflg   \set to 1|
00000410  20 69 66 20 65 6e 61 62  6c 65 64 0d 01 f4 4a 42  | if enabled...JB|
00000420  45 51 6e 70 72 74 3a 4c  44 41 23 62 6f 6c 64 20  |EQnprt:LDA#bold |
00000430  81 32 35 36 3a 53 54 41  73 74 79 6c 65 2b 31 3a  |.256:STAstyle+1:|
00000440  2e 6e 70 72 74 20 20 5c  73 65 74 20 66 6f 72 20  |.nprt  \set for |
00000450  66 6f 6e 74 20 63 68 61  6e 67 65 20 69 66 20 65  |font change if e|
00000460  6e 61 6c 65 64 0d 01 fe  14 4c 44 41 68 69 6d 65  |naled....LDAhime|
00000470  6d 3a 53 54 41 61 64 64  72 0d 02 08 18 4c 44 41  |m:STAaddr....LDA|
00000480  68 69 6d 65 6d 2b 31 3a  53 54 41 61 64 64 72 2b  |himem+1:STAaddr+|
00000490  31 0d 02 12 3c 4c 44 41  6d 6f 64 65 66 6c 61 67  |1...<LDAmodeflag|
000004a0  3a 42 4e 45 6c 69 6e 65  20 5c 69 66 20 66 6c 61  |:BNEline \if fla|
000004b0  67 20 73 65 74 20 67 6f  20 74 6f 20 34 30 20 63  |g set go to 40 c|
000004c0  6f 6c 75 6d 6e 20 72 6f  75 74 69 6e 65 0d 02 1c  |olumn routine...|
000004d0  11 2e 70 72 74 6c 70 31  20 4c 44 59 23 30 0d 02  |..prtlp1 LDY#0..|
000004e0  26 17 2e 70 72 74 6c 70  32 20 4c 44 41 28 61 64  |&..prtlp2 LDA(ad|
000004f0  64 72 29 2c 59 0d 02 30  26 43 4d 50 23 30 3a 42  |dr),Y..0&CMP#0:B|
00000500  45 51 72 74 73 20 5c 69  66 20 30 20 72 65 74 75  |EQrts \if 0 retu|
00000510  72 6e 20 74 6f 20 42 41  53 49 43 0d 02 3a 13 43  |rn to BASIC..:.C|
00000520  4d 50 23 26 30 44 3a 42  45 51 6e 65 77 6c 0d 02  |MP#&0D:BEQnewl..|
00000530  44 0a 4a 4d 50 70 72 74  0d 02 4e 12 2e 63 74 20  |D.JMPprt..N..ct |
00000540  42 4e 45 20 70 72 74 6c  70 32 0d 02 58 18 49 4e  |BNE prtlp2..X.IN|
00000550  43 61 64 64 72 2b 31 3a  4a 4d 50 20 70 72 74 6c  |Caddr+1:JMP prtl|
00000560  70 31 0d 02 62 0d 2e 72  74 73 20 52 54 53 20 0d  |p1..b..rts RTS .|
00000570  02 6c 3d 2e 6e 65 77 6c  20 4a 53 52 26 46 46 45  |.l=.newl JSR&FFE|
00000580  37 3a 4c 44 41 73 6b 69  70 3a 42 45 51 6e 6f 74  |7:LDAskip:BEQnot|
00000590  73 6b 70 3a 4a 4d 50 73  6b 70 3a 2e 6e 6f 74 73  |skp:JMPskp:.nots|
000005a0  6b 70 3a 49 4e 59 3a 4a  4d 50 63 74 0d 02 76 68  |kp:INY:JMPct..vh|
000005b0  2e 73 6b 70 20 44 45 43  63 6f 75 6e 74 3a 42 4e  |.skp DECcount:BN|
000005c0  45 69 6e 63 3a 4c 44 41  73 6b 69 70 6c 69 6e 65  |Einc:LDAskipline|
000005d0  73 3a 53 54 41 63 6f 75  6e 74 3a 2e 73 6b 70 31  |s:STAcount:.skp1|
000005e0  20 4a 53 52 26 46 46 45  37 3a 44 45 43 63 6f 75  | JSR&FFE7:DECcou|
000005f0  6e 74 3a 42 4e 45 73 6b  70 31 3a 4c 44 41 6c 69  |nt:BNEskp1:LDAli|
00000600  6e 65 73 3a 53 54 41 63  6f 75 6e 74 3a 4a 4d 50  |nes:STAcount:JMP|
00000610  69 6e 63 20 0d 02 80 46  2e 70 72 74 20 43 4d 50  |inc ...F.prt CMP|
00000620  23 62 6f 6c 64 63 64 3a  42 4e 45 6e 6f 74 62 6f  |#boldcd:BNEnotbo|
00000630  6c 64 3a 4c 44 41 62 64  66 6c 67 3a 82 23 26 46  |ld:LDAbdflg:.#&F|
00000640  46 3a 53 54 41 62 64 66  6c 67 3a 4a 4d 50 69 6e  |F:STAbdflg:JMPin|
00000650  63 3a 2e 6e 6f 74 62 6f  6c 64 0d 02 8a 41 43 4d  |c:.notbold...ACM|
00000660  50 23 69 74 61 6c 63 64  3a 42 4e 45 6e 6f 74 69  |P#italcd:BNEnoti|
00000670  74 61 6c 3a 4c 44 41 69  74 66 6c 67 3a 82 23 26  |tal:LDAitflg:.#&|
00000680  46 46 3a 53 54 41 69 74  66 6c 67 3a 4a 4d 50 69  |FF:STAitflg:JMPi|
00000690  6e 63 3a 2e 6e 6f 74 69  74 61 6c 0d 02 94 12 43  |nc:.notital....C|
000006a0  4d 50 23 26 32 30 3a 42  43 43 69 6e 63 0d 02 9e  |MP#&20:BCCinc...|
000006b0  5c 53 54 41 62 6c 6f 63  6b 3a 4c 44 41 62 64 66  |\STAblock:LDAbdf|
000006c0  6c 67 3a 42 45 51 6e 6f  74 62 64 3a 4a 4d 50 62  |lg:BEQnotbd:JMPb|
000006d0  64 3a 2e 6e 6f 74 62 64  20 4c 44 41 69 74 66 6c  |d:.notbd LDAitfl|
000006e0  67 3a 42 45 51 6e 6f 74  69 74 3a 4a 4d 50 69 74  |g:BEQnotit:JMPit|
000006f0  3a 2e 6e 6f 74 69 74 20  4c 44 41 62 6c 6f 63 6b  |:.notit LDAblock|
00000700  3a 4a 53 52 26 46 46 45  45 0d 02 a8 4e 2e 69 6e  |:JSR&FFEE...N.in|
00000710  63 20 4c 44 41 6d 6f 64  65 66 6c 61 67 3a 42 4e  |c LDAmodeflag:BN|
00000720  45 72 3a 49 4e 59 3a 4a  4d 50 63 74 3a 2e 72 20  |Er:INY:JMPct:.r |
00000730  49 4e 59 3a 52 54 53 20  5c 69 6e 20 38 30 20 63  |INY:RTS \in 80 c|
00000740  6f 6c 20 6d 6f 64 65 20  4a 4d 50 2c 20 34 30 20  |ol mode JMP, 40 |
00000750  63 6f 6c 20 52 54 53 0d  02 b2 09 2e 6c 69 6e 65  |col RTS.....line|
00000760  0d 02 bc 19 4c 44 59 23  30 3a 4c 44 41 23 33 39  |....LDY#0:LDA#39|
00000770  3a 53 54 41 63 6e 74 2b  31 0d 02 c6 47 2e 73 70  |:STAcnt+1...G.sp|
00000780  6c 20 4c 44 41 28 61 64  64 72 29 2c 59 3a 43 4d  |l LDA(addr),Y:CM|
00000790  50 23 97 22 20 22 3a 42  4e 45 6e 73 70 3a 49 4e  |P#." ":BNEnsp:IN|
000007a0  59 3a 49 4e 43 63 6e 74  2b 31 3a 4a 4d 50 73 70  |Y:INCcnt+1:JMPsp|
000007b0  6c 20 5c 64 65 6c 65 74  65 20 73 70 61 63 65 73  |l \delete spaces|
000007c0  0d 02 d0 08 2e 6e 73 70  0d 02 da 17 2e 6c 69 6e  |.....nsp.....lin|
000007d0  65 6c 70 20 4c 44 41 28  61 64 64 72 29 2c 59 0d  |elp LDA(addr),Y.|
000007e0  02 e4 27 43 4d 50 23 30  3a 42 45 51 72 74 73 31  |..'CMP#0:BEQrts1|
000007f0  20 5c 69 66 20 30 20 72  65 74 75 72 6e 20 74 6f  | \if 0 return to|
00000800  20 42 41 53 49 43 0d 02  ee 13 43 4d 50 23 26 30  | BASIC....CMP#&0|
00000810  44 3a 42 45 51 74 65 73  74 0d 02 f8 0a 4a 53 52  |D:BEQtest....JSR|
00000820  70 72 74 0d 03 02 41 2e  63 6e 74 20 43 50 59 23  |prt...A.cnt CPY#|
00000830  33 39 3a 42 45 51 6e 65  78 74 20 5c 69 66 20 65  |39:BEQnext \if e|
00000840  6e 64 20 6f 66 20 6c 69  6e 65 20 6a 75 6d 70 20  |nd of line jump |
00000850  74 6f 20 77 6f 72 64 20  77 72 61 70 20 72 6f 75  |to word wrap rou|
00000860  74 69 6e 65 0d 03 0c 0e  4a 4d 50 20 6c 69 6e 65  |tine....JMP line|
00000870  6c 70 0d 03 16 0d 2e 72  74 73 31 20 52 54 53 0d  |lp.....rts1 RTS.|
00000880  03 20 25 2e 74 65 73 74  20 20 20 5c 63 68 65 63  |. %.test   \chec|
00000890  6b 20 69 66 20 6e 65 77  20 6c 69 6e 65 20 6e 65  |k if new line ne|
000008a0  65 64 65 64 0d 03 2a 25  49 4e 59 3a 4c 44 41 28  |eded..*%INY:LDA(|
000008b0  61 64 64 72 29 2c 59 20  5c 63 68 65 63 6b 20 6e  |addr),Y \check n|
000008c0  65 78 74 20 63 68 61 72  2e 0d 03 34 14 4a 53 52  |ext char...4.JSR|
000008d0  63 68 6b 63 68 72 3a 42  43 53 6f 6b 32 0d 03 3e  |chkchr:BCSok2..>|
000008e0  12 43 4d 50 23 26 30 44  3a 42 45 51 6f 6b 34 0d  |.CMP#&0D:BEQok4.|
000008f0  03 48 12 43 4d 50 23 26  32 30 3a 42 45 51 6f 6b  |.H.CMP#&20:BEQok|
00000900  32 0d 03 52 2e 44 45 59  3a 44 45 59 3a 4c 44 41  |2..R.DEY:DEY:LDA|
00000910  28 61 64 64 72 29 2c 59  20 5c 63 68 65 63 6b 20  |(addr),Y \check |
00000920  74 68 65 20 63 68 61 72  20 62 65 66 6f 72 65 0d  |the char before.|
00000930  03 5c 14 4a 53 52 63 68  6b 63 68 72 3a 42 43 53  |.\.JSRchkchr:BCS|
00000940  6f 6b 31 0d 03 66 12 43  4d 50 23 26 30 44 3a 42  |ok1..f.CMP#&0D:B|
00000950  45 51 6f 6b 33 0d 03 70  07 49 4e 59 0d 03 7a 11  |EQok3..p.INY..z.|
00000960  43 4d 50 23 26 32 30 3a  42 43 43 6e 6e 0d 03 84  |CMP#&20:BCCnn...|
00000970  2c 4c 44 41 26 33 31 38  3a 42 45 51 6e 6f 73 70  |,LDA&318:BEQnosp|
00000980  63 3a 4c 44 41 23 26 32  30 3a 4a 53 52 26 46 46  |c:LDA#&20:JSR&FF|
00000990  45 45 3a 2e 6e 6f 73 70  63 0d 03 8e 13 2e 6e 6e  |EE:.nospc.....nn|
000009a0  20 49 4e 59 3a 4a 4d 50  20 63 6e 74 0d 03 98 10  | INY:JMP cnt....|
000009b0  2e 6f 6b 31 20 49 4e 59  3a 49 4e 59 0d 03 a2 13  |.ok1 INY:INY....|
000009c0  2e 6f 6b 32 20 4a 4d 50  6e 65 77 6c 69 6e 65 0d  |.ok2 JMPnewline.|
000009d0  03 ac 10 2e 6f 6b 33 20  49 4e 59 3a 49 4e 59 0d  |....ok3 INY:INY.|
000009e0  03 b6 1c 2e 6f 6b 34 20  4a 53 52 26 46 46 45 37  |....ok4 JSR&FFE7|
000009f0  3a 4a 4d 50 6e 65 77 6c  69 6e 65 0d 03 c0 15 2e  |:JMPnewline.....|
00000a00  6e 65 78 74 20 4c 44 41  28 61 64 64 72 29 2c 59  |next LDA(addr),Y|
00000a10  0d 03 ca 18 4a 53 52 63  68 6b 63 68 72 3a 42 45  |....JSRchkchr:BE|
00000a20  51 73 6b 69 70 63 68 72  0d 03 d4 17 4a 53 52 63  |Qskipchr....JSRc|
00000a30  68 6b 63 68 72 32 3a 42  43 53 6e 65 77 6c 6e 0d  |hkchr2:BCSnewln.|
00000a40  03 de 20 2e 64 65 6c 65  74 65 20 44 45 59 3a 4c  |.. .delete DEY:L|
00000a50  44 41 23 26 37 46 3a 4a  53 52 26 46 46 45 45 0d  |DA#&7F:JSR&FFEE.|
00000a60  03 e8 21 4c 44 41 28 61  64 64 72 29 2c 59 20 5c  |..!LDA(addr),Y \|
00000a70  64 65 6c 65 74 65 20 70  61 72 74 20 77 6f 72 64  |delete part word|
00000a80  0d 03 f2 18 4a 53 52 63  68 6b 63 68 72 32 3a 42  |....JSRchkchr2:B|
00000a90  43 43 64 65 6c 65 74 65  0d 03 fc 24 2e 6e 65 77  |CCdelete...$.new|
00000aa0  6c 6e 20 4a 53 52 26 46  46 45 45 3a 49 4e 59 20  |ln JSR&FFEE:INY |
00000ab0  5c 70 72 69 6e 74 20 63  68 61 72 2e 0d 04 06 15  |\print char.....|
00000ac0  2e 6e 65 77 6c 69 6e 65  20 4a 53 52 26 46 46 45  |.newline JSR&FFE|
00000ad0  37 0d 04 10 39 2e 69 6e  63 61 64 64 72 20 43 4c  |7...9.incaddr CL|
00000ae0  43 20 5c 69 6e 63 72 65  61 73 65 20 61 64 64 72  |C \increase addr|
00000af0  65 73 73 20 74 6f 20 20  73 74 61 72 74 20 6f 66  |ess to  start of|
00000b00  20 6e 65 78 74 20 6c 69  6e 65 0d 04 1a 17 54 59  | next line....TY|
00000b10  41 3a 41 44 43 61 64 64  72 3a 53 54 41 61 64 64  |A:ADCaddr:STAadd|
00000b20  72 0d 04 24 1d 4c 44 41  61 64 64 72 2b 31 3a 41  |r..$.LDAaddr+1:A|
00000b30  44 43 23 30 3a 53 54 41  61 64 64 72 2b 31 0d 04  |DC#0:STAaddr+1..|
00000b40  2e 0b 4a 4d 50 6c 69 6e  65 0d 04 38 1c 2e 73 6b  |..JMPline..8..sk|
00000b50  69 70 63 68 72 20 49 4e  59 3a 4c 44 41 28 61 64  |ipchr INY:LDA(ad|
00000b60  64 72 29 2c 59 0d 04 42  18 4a 53 52 63 68 6b 63  |dr),Y..B.JSRchkc|
00000b70  68 72 3a 42 45 51 73 6b  69 70 63 68 72 0d 04 4c  |hr:BEQskipchr..L|
00000b80  0e 4a 4d 50 69 6e 63 61  64 64 72 0d 04 56 26 2e  |.JMPincaddr..V&.|
00000b90  63 68 6b 63 68 72 20 5c  63 68 65 63 6b 73 20 66  |chkchr \checks f|
00000ba0  6f 72 20 75 6e 64 65 72  6c 6e 65 20 63 68 61 72  |or underlne char|
00000bb0  73 0d 04 60 15 43 4d 50  23 97 22 2a 22 3a 42 45  |s..`.CMP#."*":BE|
00000bc0  51 63 68 72 6f 6b 0d 04  6a 15 43 4d 50 23 97 22  |Qchrok..j.CMP#."|
00000bd0  7e 22 3a 42 45 51 63 68  72 6f 6b 0d 04 74 15 43  |~":BEQchrok..t.C|
00000be0  4d 50 23 97 22 3d 22 3a  42 45 51 63 68 72 6f 6b  |MP#."=":BEQchrok|
00000bf0  0d 04 7e 15 43 4d 50 23  97 22 2d 22 3a 42 45 51  |..~.CMP#."-":BEQ|
00000c00  63 68 72 6f 6b 0d 04 88  15 43 4d 50 23 97 22 5f  |chrok....CMP#."_|
00000c10  22 3a 42 45 51 63 68 72  6f 6b 0d 04 92 0b 43 4c  |":BEQchrok....CL|
00000c20  43 3a 52 54 53 0d 04 9c  12 2e 63 68 72 6f 6b 20  |C:RTS.....chrok |
00000c30  53 45 43 3a 52 54 53 0d  04 a6 27 2e 63 68 6b 63  |SEC:RTS...'.chkc|
00000c40  68 72 32 20 5c 63 68 65  63 6b 73 20 63 68 61 72  |hr2 \checks char|
00000c50  73 20 66 6f 72 20 77 6f  72 64 77 72 61 70 0d 04  |s for wordwrap..|
00000c60  b0 28 43 4d 50 23 97 22  20 22 3a 42 43 43 6e 6f  |.(CMP#." ":BCCno|
00000c70  74 6f 6b 3a 43 4d 50 23  97 22 30 22 3a 42 43 43  |tok:CMP#."0":BCC|
00000c80  63 68 72 6f 6b 32 0d 04  ba 28 43 4d 50 23 97 22  |chrok2...(CMP#."|
00000c90  3a 22 3a 42 43 43 6e 6f  74 6f 6b 3a 43 4d 50 23  |:":BCCnotok:CMP#|
00000ca0  97 22 41 22 3a 42 43 43  63 68 72 6f 6b 32 0d 04  |."A":BCCchrok2..|
00000cb0  c4 28 43 4d 50 23 97 22  7b 22 3a 42 43 43 6e 6f  |.(CMP#."{":BCCno|
00000cc0  74 6f 6b 3a 43 4d 50 23  97 22 61 22 3a 42 43 43  |tok:CMP#."a":BCC|
00000cd0  63 68 72 6f 6b 32 0d 04  ce 27 43 4d 50 23 97 22  |chrok2...'CMP#."|
00000ce0  7a 22 3a 42 43 43 6e 6f  74 6f 6b 3a 43 4d 50 23  |z":BCCnotok:CMP#|
00000cf0  31 32 37 3a 42 43 43 63  68 72 6f 6b 32 0d 04 d8  |127:BCCchrok2...|
00000d00  12 2e 6e 6f 74 6f 6b 20  43 4c 43 3a 52 54 53 0d  |..notok CLC:RTS.|
00000d10  04 e2 4b 2e 63 68 72 6f  6b 32 20 43 4d 50 23 97  |..K.chrok2 CMP#.|
00000d20  22 27 22 3a 42 45 51 6e  6f 74 6f 6b 3a 43 4d 50  |"'":BEQnotok:CMP|
00000d30  23 97 22 2f 22 3a 42 45  51 6e 6f 74 6f 6b 20 5c  |#."/":BEQnotok \|
00000d40  73 74 6f 70 73 20 77 6f  72 64 77 72 61 70 20 66  |stops wordwrap f|
00000d50  6f 72 20 27 20 61 6e 64  20 2f 0d 04 ec 0b 53 45  |or ' and /....SE|
00000d60  43 3a 52 54 53 0d 04 f6  23 2e 62 64 20 54 58 41  |C:RTS...#.bd TXA|
00000d70  3a 50 48 41 3a 54 59 41  3a 50 48 41 20 5c 62 6f  |:PHA:TYA:PHA \bo|
00000d80  6c 64 20 70 72 69 6e 74  0d 05 00 0e 4c 44 41 70  |ld print....LDAp|
00000d90  72 74 66 6c 67 20 0d 05  0a 0e 42 45 51 6e 6f 70  |rtflg ....BEQnop|
00000da0  72 74 31 20 0d 05 14 12  4c 44 41 23 62 6f 6c 64  |rt1 ....LDA#bold|
00000db0  20 83 32 35 36 20 0d 05  1e 0f 4a 53 52 70 72 69  | .256 ....JSRpri|
00000dc0  6e 74 65 72 20 0d 05 28  0c 2e 6e 6f 70 72 74 31  |nter ..(..noprt1|
00000dd0  20 0d 05 32 0e 4a 53 52  67 65 74 64 65 66 20 0d  | ..2.JSRgetdef .|
00000de0  05 3c 0a 4c 44 58 23 31  20 0d 05 46 0b 2e 6c 6f  |.<.LDX#1 ..F..lo|
00000df0  6f 70 31 20 0d 05 50 0f  4c 44 41 62 6c 6f 63 6b  |op1 ..P.LDAblock|
00000e00  2c 58 20 0d 05 5a 0a 41  53 4c 20 41 20 0d 05 64  |,X ..Z.ASL A ..d|
00000e10  0e 84 41 62 6c 6f 63 6b  2c 58 20 0d 05 6e 0f 53  |..Ablock,X ..n.S|
00000e20  54 41 62 6c 6f 63 6b 2c  58 20 0d 05 78 08 49 4e  |TAblock,X ..x.IN|
00000e30  58 20 0d 05 82 0a 43 50  58 23 39 20 0d 05 8c 0d  |X ....CPX#9 ....|
00000e40  42 4e 45 6c 6f 6f 70 31  20 0d 05 96 0e 4a 53 52  |BNEloop1 ....JSR|
00000e50  6d 61 6b 63 68 61 72 0d  05 a0 0c 2e 6e 65 77 63  |makchar.....newc|
00000e60  68 72 20 0d 05 aa 0e 4c  44 41 70 72 74 66 6c 67  |hr ....LDAprtflg|
00000e70  20 0d 05 b4 10 42 4e 45  70 72 74 72 65 6e 61 62  | ....BNEprtrenab|
00000e80  20 0d 05 be 0c 4c 44 41  23 32 35 35 20 0d 05 c8  | ....LDA#255 ...|
00000e90  11 42 4e 45 6e 65 77 63  68 72 65 6e 64 20 0d 05  |.BNEnewchrend ..|
00000ea0  d2 0e 2e 70 72 74 72 65  6e 61 62 20 0d 05 dc 13  |...prtrenab ....|
00000eb0  4c 44 41 23 31 3a 4a 53  52 26 46 46 45 45 20 0d  |LDA#1:JSR&FFEE .|
00000ec0  05 e6 16 4c 44 41 62 6c  6f 63 6b 3a 4a 53 52 26  |...LDAblock:JSR&|
00000ed0  46 46 45 45 20 0d 05 f0  13 4c 44 41 23 33 3a 4a  |FFEE ....LDA#3:J|
00000ee0  53 52 26 46 46 45 45 20  0d 05 fa 15 4c 44 41 23  |SR&FFEE ....LDA#|
00000ef0  32 35 35 3a 4a 53 52 26  46 46 45 45 20 0d 06 04  |255:JSR&FFEE ...|
00000f00  0a 4c 44 41 23 32 20 0d  06 0e 0f 2e 6e 65 77 63  |.LDA#2 .....newc|
00000f10  68 72 65 6e 64 20 0d 06  18 0d 4a 53 52 26 46 46  |hrend ....JSR&FF|
00000f20  45 45 20 0d 06 22 0e 4c  44 41 70 72 74 66 6c 67  |EE ..".LDAprtflg|
00000f30  20 0d 06 2c 0d 42 45 51  6e 74 70 72 74 20 0d 06  | ..,.BEQntprt ..|
00000f40  36 12 4c 44 41 23 6e 6f  72 6d 20 83 32 35 36 20  |6.LDA#norm .256 |
00000f50  0d 06 40 0f 4a 53 52 70  72 69 6e 74 65 72 20 0d  |..@.JSRprinter .|
00000f60  06 4a 0b 2e 6e 74 70 72  74 20 0d 06 54 14 50 4c  |.J..ntprt ..T.PL|
00000f70  41 3a 54 41 59 3a 50 4c  41 3a 54 41 58 20 0d 06  |A:TAY:PLA:TAX ..|
00000f80  5e 0b 4a 4d 50 69 6e 63  20 0d 06 68 26 2e 69 74  |^.JMPinc ..h&.it|
00000f90  20 54 58 41 3a 50 48 41  3a 54 59 41 3a 50 48 41  | TXA:PHA:TYA:PHA|
00000fa0  20 5c 69 74 61 6c 69 63  73 20 70 72 69 6e 74 0d  | \italics print.|
00000fb0  06 72 0e 4c 44 41 70 72  74 66 6c 67 20 0d 06 7c  |.r.LDAprtflg ..||
00000fc0  0e 42 45 51 6e 6f 70 72  74 32 20 0d 06 86 12 4c  |.BEQnoprt2 ....L|
00000fd0  44 41 23 69 74 61 6c 20  83 32 35 36 20 0d 06 90  |DA#ital .256 ...|
00000fe0  0f 4a 53 52 70 72 69 6e  74 65 72 20 0d 06 9a 0c  |.JSRprinter ....|
00000ff0  2e 6e 6f 70 72 74 32 20  0d 06 a4 0e 4a 53 52 67  |.noprt2 ....JSRg|
00001000  65 74 64 65 66 20 0d 06  ae 10 4c 53 52 20 62 6c  |etdef ....LSR bl|
00001010  6f 63 6b 2b 31 20 0d 06  b8 10 4c 53 52 20 62 6c  |ock+1 ....LSR bl|
00001020  6f 63 6b 2b 32 20 0d 06  c2 10 41 53 4c 20 62 6c  |ock+2 ....ASL bl|
00001030  6f 63 6b 2b 36 20 0d 06  cc 10 41 53 4c 20 62 6c  |ock+6 ....ASL bl|
00001040  6f 63 6b 2b 37 20 0d 06  d6 0e 4a 53 52 6d 61 6b  |ock+7 ....JSRmak|
00001050  63 68 61 72 0d 06 e0 0e  4a 4d 50 6e 65 77 63 68  |char....JMPnewch|
00001060  72 20 0d 06 ea 0c 2e 6d  61 6b 63 68 61 72 0d 06  |r .....makchar..|
00001070  f4 24 4c 44 41 23 32 33  3a 4a 53 52 26 46 46 45  |.$LDA#23:JSR&FFE|
00001080  45 3a 4c 44 41 23 32 35  35 3a 4a 53 52 26 46 46  |E:LDA#255:JSR&FF|
00001090  45 45 0d 06 fe 09 4c 44  58 23 31 0d 07 08 14 2e  |EE....LDX#1.....|
000010a0  63 68 6c 70 20 4c 44 41  62 6c 6f 63 6b 2c 58 0d  |chlp LDAblock,X.|
000010b0  07 12 0c 4a 53 52 26 46  46 45 45 0d 07 1c 15 49  |...JSR&FFEE....I|
000010c0  4e 58 3a 43 50 58 23 39  3a 42 4e 45 63 68 6c 70  |NX:CPX#9:BNEchlp|
000010d0  0d 07 26 07 52 54 53 0d  07 30 14 2e 67 65 74 64  |..&.RTS..0..getd|
000010e0  65 66 20 4c 44 41 23 26  30 41 20 0d 07 3a 13 4c  |ef LDA#&0A ..:.L|
000010f0  44 58 23 62 6c 6f 63 6b  20 83 32 35 36 20 0d 07  |DX#block .256 ..|
00001100  44 13 4c 44 59 23 62 6c  6f 63 6b 20 81 32 35 36  |D.LDY#block .256|
00001110  20 0d 07 4e 0d 4a 4d 50  26 46 46 46 31 20 0d 07  | ..N.JMP&FFF1 ..|
00001120  58 06 3a 20 0d 07 62 0d  2e 70 72 69 6e 74 65 72  |X.: ..b..printer|
00001130  20 0d 07 6c 0d 43 4d 50  73 74 79 6c 65 20 0d 07  | ..l.CMPstyle ..|
00001140  76 0e 42 45 51 70 72 74  65 6e 64 20 0d 07 80 0d  |v.BEQprtend ....|
00001150  53 54 41 73 74 79 6c 65  20 0d 07 8a 0a 4c 44 59  |STAstyle ....LDY|
00001160  23 30 20 0d 07 94 0d 2e  70 72 74 6c 6f 6f 70 20  |#0 .....prtloop |
00001170  0d 07 9e 0a 4c 44 41 23  31 20 0d 07 a8 0d 4a 53  |....LDA#1 ....JS|
00001180  52 26 46 46 45 45 20 0d  07 b2 11 4c 44 41 28 73  |R&FFEE ....LDA(s|
00001190  74 79 6c 65 29 2c 59 20  0d 07 bc 0d 4a 53 52 26  |tyle),Y ....JSR&|
000011a0  46 46 45 45 20 0d 07 c6  08 49 4e 59 20 0d 07 d0  |FFEE ....INY ...|
000011b0  0a 43 50 59 23 34 20 0d  07 da 0f 42 4e 45 70 72  |.CPY#4 ....BNEpr|
000011c0  74 6c 6f 6f 70 20 0d 07  e4 0c 2e 70 72 74 65 6e  |tloop .....prten|
000011d0  64 20 0d 07 ee 08 52 54  53 20 0d 07 f8 06 3a 20  |d ....RTS ....: |
000011e0  0d 08 02 15 2e 62 6f 6c  64 20 45 51 55 53 20 62  |.....bold EQUS b|
000011f0  6f 6c 64 24 20 0d 08 0c  15 2e 69 74 61 6c 20 45  |old$ .....ital E|
00001200  51 55 53 20 69 74 61 6c  24 20 0d 08 16 15 2e 6e  |QUS ital$ .....n|
00001210  6f 72 6d 20 45 51 55 53  20 6e 6f 72 6d 24 20 0d  |orm EQUS norm$ .|
00001220  08 20 05 5d 0d 08 2a 07  ed 3a e1 0d ff           |. .]..*..:...|
0000122d