� MODE 7 Simulater
� By Robin Nixon
� (C) Electron User
(�6
2screen0=&70
<offset =&72
Fcursor =&74
Poldvect=&80
Zwrchvct=&20E
dchar255=&CF8
nbuffer =&5800
xtable3 =&5C2D
�oswrch =&FFEE
�osword =&FFF1    
�osbyte =&FFF4
�� PASS=0 � 2 �2
�P%=&5000
�
[OPT PASS
�	.init
�LDA wrchvct+1
�CMP #start � &100
�BEQ initend
�STA oldvect+1
�LDA wrchvct
�STA oldvect

LDA #start � &100

STA wrchvct       

LDA #start � &100

"STA &20F

,LDA #blankout �&100

6STA &220

@LDA #blankout �&100

JSTA &221

T\

^.initend

hJMP restore

r\

|
.start

�STA char

�LDA flag:BNE quit 

�LDA on2:BEQ start0

�JMP cont

�\

�.start0   

�LDA char

�CMP #22

�BNE start1

�
LDA #1

�STA on1

�\

�	.quit
LDA char:JMP(oldvect)
\
.start1
&LDA on1:BEQ quit    
0LDA char
:� #7
D
CMP #7
N
BCC reset
XBNE quit
b
LDA #1
lSTA on2
vSTA flag
�\
�
 .start1a
�LDA #4:JSR oswrch
�TXA:PHA
�LDA #14
�
LDX #4
�JSR osbyte
�PLA:TAX
�LDA #buffer � &100
�STA &6:STA &4
�LDA #buffer � &100
�STA &7:STA &5     
�LDA #8:STA &D0
LDA #29:STA &309
LDA #5:STA &30B
LDA #12:JSR oswrch
 LDA #0:STA flag
*JMP (oldvect)
4\
>
.reset
HTXA:PHA
RLDA #13
\
LDX #4
fJSR osbyte
pPLA:TAX
z
LDA #0
�STA on1
�STA on2
�JMP quit
�\
�	.cont
�LDA &26A:BNE quit
�TYA:PHA:TXA:PHA
�LDA char
�CMP #22
�
BNE cont1
�LDA #0:STA on2
�JMP exit
�\

.cont1
LDA &D0
	� #64
$BEQ notsep
.LDX &364
8LDY &365
BJMP curdone
L\
V.notsep
`LDX &318
jLDY &319
t\
~.curdone
�STX cursor
�STY cursor+1
�LDA cursor
�BEQ notfl2
�JSR restore
�\
�.notfl2
�LDA char
�CMP #12
�BNE notlf3
�LDA #1:STA flag  
�LDA #22:JSR oswrch
LDA #13


LDX #4
JSR osbyte
PLA:TAX:PLA:TAY
(JMP start1a 
2\
<.notlf3
FCMP #10
P
BNE notlf
ZLDA cursor+1
d
CMP#29
n
BNE notlf
xJSR scroll
�\
�
.notlf
�CMP #32
�BCS notlf1
�JMP exit    
�\
� .notlf1   
�LDA cursor+1
�SEC
�
SBC #5
�TAY
�LDA table1,Y
�STA offset
LDA table2,Y
STA offset+1
LDY cursor
"LDA char
,CMP #127
6BNE notfl1a  
@
LDA #0
J\
T.notfl1a
^STA (offset),Y
hLDA cursor
rCMP #39
|BNE noscroll 
�LDA cursor+1
�CMP #29
�BNE noscroll
�JSR scroll
�\
�.noscroll 
�LDA char
�CMP #127
�BNE noscroll1
�JMP exit
�\
�.noscroll1
�LDA char
CMP #128
BCC notcode
CMP #160
&BCS notcode
0LDA #32:STA char
:JMP exit
D\
N.notcode
X
LDY #0
b\
l
.lookback
v LDA (offset),Y
�CMP #128
�BCC next
�CMP #160
�BCS next
�SEC
�SBC #128
�
TAX      
�LDA table4,X
�BEQ next
�CMP #1:BNE code2
�LDA #0:STA graph
�JMP next
�\

.code2
CMP #2:BNE code3
LDA #0:STA double
 JMP next
*\
4
.code3
>CMP #3:BNE code4
HLDA #1:sta double
RLDX cursor+1
\SEC
f
SBC #5
pLDA table3,X
zBNE code3a
�INX
�
LDA #1
�STA table3,X
�LDA #0:STA topbot
�JMP next
�\
�.code3a
�LDA #1:STA topbot
�JMP next
�\
�
.code4
�CMP #4:BNE code5
�LDA #1:STA graph
	JMP next
	\
	
.code5
	$CMP #5:BNE code6
	.LDA #0:STA sepcont
	8JMP next
	B\
	L
.code6
	VLDA #1:STA sepcont
	`\
	j	.next
	tINY
	~CPY cursor
	�BNE lookback
	�
LDA graph
	�
BEQ next1
	�LDA char
	�CMP #35:BEQ next1
	�CMP #64:BCC gc
	�CMP #95:BCC next1
	�CMP #192:BCC gc    
	�CMP #224:BCC next1
	�\
	�.gc
	�LDA cursor

BEQ next1

JSR graphics
LDA #&FF:STA char 
JMP notspecial
(\
2
.next1
<LDA char
FCMP #223
PBNE next1a
ZLDA #35:STA char
d\
n
.next1a  
xCMP #&FF
�BNE next1b
�JSR graphics
�LDA #&FF:STA char
�JMP notspecial
�\
�.next1b
�� #&7F:STA char
�CMP #91:BCC next2
�CMP #96:BCS next2
�CLC
�
 ADC #155
�STA char
�JMP notspecial
\

.next2
CMP #123
"BCC notspecial
,CMP #127
6BCS notspecial 
@CLC
JADC #128
TSTA char
^\
h.notspecial     
rLDA double:BEQ exit
|LDA cursor:BEQ exit
�LDA char:STA buffer
�LDX #buffer � &100
�LDY #buffer � &100
�LDA #&A:JSR osword 
�LDX #0:LDY #0   
�LDA topbot:BEQ udc  
�LDY #4  
�\
�.udc
�LDA buffer+1,Y
�STA char255,X
�INX
�STA char255,X
INX:INY
CPX #8:BNE udc
LDA #&FF:STA char
&\
0	.exit
:PLA:TAX:PLA:TAY
DLDA char
NJMP (oldvect)
X\
b
.graphics
l
LDY #8
v
LDA #0
�\
�
.clear
�STA char255-1,Y
�DEY
�
BNE clear
�LDA char
�
� #&7F
�SEC
�SBC #32
�CMP #32    
�
BCC bit1 
�SEC     
�
SBC #32  


\        


.bit1    

STA char  

 LDA #1 

*
BIT char 

4BEQ bit2  

>LDA char255 

H
�A #&F0  

RSTA char255 

\LDA char255+1

f�A #&F0

pSTA char255+1

zLDA char255+2

��A #&F0

�STA char255+2

�\

�	.bit2

�
LDA #2

�BIT char

�BEQ bit3

�LDA char255

�
�A #&F

�STA char255

�LDA char255+1

�
�A #&F

�STA char255+1
LDA char255+2

�A #&F
STA char255+2
$\
.	.bit3
8
LDA #4
BBIT char
LBEQ bit4
VLDA char255+3
`�A #&F0
jSTA char255+3
tLDA char255+4   
~�A #&F0
�STA char255+4
�\
�	.bit4
�
LDA #8
�BIT char
�BEQ bit5
�LDA char255+3
�
�A #&F
�STA char255+3
�LDA char255+4
�
�A #&F
�STA char255+4
\

	.bit5
LDA #16
BIT char
(BEQ bit6
2LDA char255+5
<�A #&F0
FSTA char255+5
PLDA char255+6
Z�A #&F0
dSTA char255+6
nLDA char255+7
x�A #&F0   
�STA char255+7
�\
�	.bit6
�LDA #32
�BIT char
�BEQ seperated
�LDA char255+5
�
�A #&F
�STA char255+5
�LDA char255+6   
�
�A #&F
�STA char255+6
�LDA char255+7

�A #&F
STA char255+7
\
".seperated
,LDA sepcont
6BNE sep1
@RTS
J\
T	.sep1
^
LDY #8
h\
r.seploop
|LDA char255-1,Y
�
� #&77
�STA char255-1,Y
�DEY
�BNE seploop
�
LDA #0
�STA char255+2
�STA char255+4
�STA char255+7
�RTS
�\
�.scroll
�TYA:PHA:TXA:PHA
�LDA #&31
STA scroll1+1
LDA #&09
STA scroll1+4
&LDA #&58
0STA scroll1+2
:STA scroll1+5
D
LDX #4
N
LDY #0
X\
b.scroll1
lLDA &5831,Y
vSTA &5809,Y
�INY
�BNE scroll1
�INC scroll1+2
�INC scroll1+5
�DEX
�BNE scroll1
�LDY #40
�\
�.scroll2
�
LDA #0
�STA &5BF1,Y
�DEY
�BNE scroll2

LDX #1

LDY #0
\
 .tabloop
*LDA table3.X
4STA table3,Y
>INX:INY
HCPY #40
RBNE tabloop
\PLA:TAX:PLA:TAY 
f\
p.restore
z
LDA #0
�
STA graph
�STA double
�STA sepcont
�RTS
�\
�
.blankout
�PHP:PHA:TXA:PHA:TYA:PHA
�LDA #&FF
�
STA &FE08
�
STA &FE09
�LDX #178
�\
�.bpause

LDY #5
\

.bloop
$DEY:BNE bloop
.DEX:BNE bpause
8LDA #16:STA &FE08
BLDA #17:STA &FE09
LPLA:TAY:PLA:TAX:PLA:PLP
VRTS
`\
j.char EQUB 0
t.sepcont EQUB 0
~.on1 EQUB 0
�.on2 EQUB 0
�.flag EQUB 0
�.graph EQUB 0
�.double EQUB 0
�.topbot EQUB 0
�.table1
�OPT �t1data  
�.table2
�OPT �t2data
�.table4
�OPT �t4data
�]
�

�� 0,24,48,126,126,48,24,0,64,64,64,76,82,4,8,30,0,24,12,126,126,12,24,0,0,24,60,126,90,24,24,0,0,0,0,254,254,0,0,0,32,32,32,34,38,10,15,2,40,40,40,40,40,40,40,0,96,16,96,18,102,10,15,2,0,16,0,124,124,0,16,0     

� �TJT
� X%=&CB0 � &CF7
(	� ?X%
2�
<
� init
F�7
P�
Z
� �t1data
d
� �tVT
n� X%=1 � 25
x� ?P%:P%=P%+1
��
�	=PASS
�m� &31,&59,&81,&A9,&D1,&F9,&21,&49,&71,&99,&C1,&E9,&11,&39,&61,&89,&89,&B1,&D9,&01,&29,&51,&79,&A1,&C9,&F1
�
� �t2data
�
� �d\T
�� X%=1 � 25
�� ?P%:P%=P%+1
��
�	=PASS
�i� &58,&58,&58,&58,&58,&58,&59,&59,&59,&59,&59,&59,&5A,&5A,&5A,&5A,&5A,&5A,&5B,&5B,&5B,&5B,&5B,&5B,&5B
�
� �t4data
�
� �TbU
�� X%=1 � 32
� ?P%:P%=P%+1
�
	=PASS
"E� 0,1,1,1,1,1,1,1,0,0,0,0,2,3,0,0,0,4,4,4,4,4,4,4,0,5,6,0,0,0,0,0
�

00000000  0d 00 0a 16 f4 20 4d 4f  44 45 20 37 20 53 69 6d  |..... MODE 7 Sim|
00000010  75 6c 61 74 65 72 0d 00  14 14 f4 20 42 79 20 52  |ulater..... By R|
00000020  6f 62 69 6e 20 4e 69 78  6f 6e 0d 00 1e 17 f4 20  |obin Nixon..... |
00000030  28 43 29 20 45 6c 65 63  74 72 6f 6e 20 55 73 65  |(C) Electron Use|
00000040  72 0d 00 28 06 eb 36 0d  00 32 0f 73 63 72 65 65  |r..(..6..2.scree|
00000050  6e 30 3d 26 37 30 0d 00  3c 0f 6f 66 66 73 65 74  |n0=&70..<.offset|
00000060  20 3d 26 37 32 0d 00 46  0f 63 75 72 73 6f 72 20  | =&72..F.cursor |
00000070  3d 26 37 34 0d 00 50 0f  6f 6c 64 76 65 63 74 3d  |=&74..P.oldvect=|
00000080  26 38 30 0d 00 5a 10 77  72 63 68 76 63 74 3d 26  |&80..Z.wrchvct=&|
00000090  32 30 45 0d 00 64 10 63  68 61 72 32 35 35 3d 26  |20E..d.char255=&|
000000a0  43 46 38 0d 00 6e 11 62  75 66 66 65 72 20 3d 26  |CF8..n.buffer =&|
000000b0  35 38 30 30 0d 00 78 11  74 61 62 6c 65 33 20 3d  |5800..x.table3 =|
000000c0  26 35 43 32 44 0d 00 82  11 6f 73 77 72 63 68 20  |&5C2D....oswrch |
000000d0  3d 26 46 46 45 45 0d 00  8c 15 6f 73 77 6f 72 64  |=&FFEE....osword|
000000e0  20 3d 26 46 46 46 31 20  20 20 20 0d 00 96 11 6f  | =&FFF1    ....o|
000000f0  73 62 79 74 65 20 3d 26  46 46 46 34 0d 00 a0 13  |sbyte =&FFF4....|
00000100  e3 20 50 41 53 53 3d 30  20 b8 20 32 20 88 32 0d  |. PASS=0 . 2 .2.|
00000110  00 aa 0c 50 25 3d 26 35  30 30 30 0d 00 b4 0d 5b  |...P%=&5000....[|
00000120  4f 50 54 20 50 41 53 53  0d 00 be 09 2e 69 6e 69  |OPT PASS.....ini|
00000130  74 0d 00 c8 11 4c 44 41  20 77 72 63 68 76 63 74  |t....LDA wrchvct|
00000140  2b 31 0d 00 d2 15 43 4d  50 20 23 73 74 61 72 74  |+1....CMP #start|
00000150  20 81 20 26 31 30 30 0d  00 dc 0f 42 45 51 20 69  | . &100....BEQ i|
00000160  6e 69 74 65 6e 64 0d 00  e6 11 53 54 41 20 6f 6c  |nitend....STA ol|
00000170  64 76 65 63 74 2b 31 0d  00 f0 0f 4c 44 41 20 77  |dvect+1....LDA w|
00000180  72 63 68 76 63 74 0d 00  fa 0f 53 54 41 20 6f 6c  |rchvct....STA ol|
00000190  64 76 65 63 74 0d 01 04  15 4c 44 41 20 23 73 74  |dvect....LDA #st|
000001a0  61 72 74 20 83 20 26 31  30 30 0d 01 0e 16 53 54  |art . &100....ST|
000001b0  41 20 77 72 63 68 76 63  74 20 20 20 20 20 20 20  |A wrchvct       |
000001c0  0d 01 18 15 4c 44 41 20  23 73 74 61 72 74 20 81  |....LDA #start .|
000001d0  20 26 31 30 30 0d 01 22  0c 53 54 41 20 26 32 30  | &100..".STA &20|
000001e0  46 0d 01 2c 17 4c 44 41  20 23 62 6c 61 6e 6b 6f  |F..,.LDA #blanko|
000001f0  75 74 20 83 26 31 30 30  0d 01 36 0c 53 54 41 20  |ut .&100..6.STA |
00000200  26 32 32 30 0d 01 40 17  4c 44 41 20 23 62 6c 61  |&220..@.LDA #bla|
00000210  6e 6b 6f 75 74 20 81 26  31 30 30 0d 01 4a 0c 53  |nkout .&100..J.S|
00000220  54 41 20 26 32 32 31 0d  01 54 05 5c 0d 01 5e 0c  |TA &221..T.\..^.|
00000230  2e 69 6e 69 74 65 6e 64  0d 01 68 0f 4a 4d 50 20  |.initend..h.JMP |
00000240  72 65 73 74 6f 72 65 0d  01 72 05 5c 0d 01 7c 0a  |restore..r.\..|.|
00000250  2e 73 74 61 72 74 0d 01  86 0c 53 54 41 20 63 68  |.start....STA ch|
00000260  61 72 0d 01 90 16 4c 44  41 20 66 6c 61 67 3a 42  |ar....LDA flag:B|
00000270  4e 45 20 71 75 69 74 20  0d 01 9a 16 4c 44 41 20  |NE quit ....LDA |
00000280  6f 6e 32 3a 42 45 51 20  73 74 61 72 74 30 0d 01  |on2:BEQ start0..|
00000290  a4 0c 4a 4d 50 20 63 6f  6e 74 0d 01 ae 05 5c 0d  |..JMP cont....\.|
000002a0  01 b8 0e 2e 73 74 61 72  74 30 20 20 20 0d 01 c2  |....start0   ...|
000002b0  0c 4c 44 41 20 63 68 61  72 0d 01 cc 0b 43 4d 50  |.LDA char....CMP|
000002c0  20 23 32 32 0d 01 d6 0e  42 4e 45 20 73 74 61 72  | #22....BNE star|
000002d0  74 31 0d 01 e0 0a 4c 44  41 20 23 31 0d 01 ea 0b  |t1....LDA #1....|
000002e0  53 54 41 20 6f 6e 31 0d  01 f4 05 5c 0d 01 fe 09  |STA on1....\....|
000002f0  2e 71 75 69 74 0d 02 08  19 4c 44 41 20 63 68 61  |.quit....LDA cha|
00000300  72 3a 4a 4d 50 28 6f 6c  64 76 65 63 74 29 0d 02  |r:JMP(oldvect)..|
00000310  12 05 5c 0d 02 1c 0b 2e  73 74 61 72 74 31 0d 02  |..\.....start1..|
00000320  26 18 4c 44 41 20 6f 6e  31 3a 42 45 51 20 71 75  |&.LDA on1:BEQ qu|
00000330  69 74 20 20 20 20 0d 02  30 0c 4c 44 41 20 63 68  |it    ..0.LDA ch|
00000340  61 72 0d 02 3a 08 80 20  23 37 0d 02 44 0a 43 4d  |ar..:.. #7..D.CM|
00000350  50 20 23 37 0d 02 4e 0d  42 43 43 20 72 65 73 65  |P #7..N.BCC rese|
00000360  74 0d 02 58 0c 42 4e 45  20 71 75 69 74 0d 02 62  |t..X.BNE quit..b|
00000370  0a 4c 44 41 20 23 31 0d  02 6c 0b 53 54 41 20 6f  |.LDA #1..l.STA o|
00000380  6e 32 0d 02 76 0c 53 54  41 20 66 6c 61 67 0d 02  |n2..v.STA flag..|
00000390  80 05 5c 0d 02 8a 0d 20  2e 73 74 61 72 74 31 61  |..\.... .start1a|
000003a0  0d 02 94 15 4c 44 41 20  23 34 3a 4a 53 52 20 6f  |....LDA #4:JSR o|
000003b0  73 77 72 63 68 0d 02 9e  0b 54 58 41 3a 50 48 41  |swrch....TXA:PHA|
000003c0  0d 02 a8 0b 4c 44 41 20  23 31 34 0d 02 b2 0a 4c  |....LDA #14....L|
000003d0  44 58 20 23 34 0d 02 bc  0e 4a 53 52 20 6f 73 62  |DX #4....JSR osb|
000003e0  79 74 65 0d 02 c6 0b 50  4c 41 3a 54 41 58 0d 02  |yte....PLA:TAX..|
000003f0  d0 16 4c 44 41 20 23 62  75 66 66 65 72 20 83 20  |..LDA #buffer . |
00000400  26 31 30 30 0d 02 da 11  53 54 41 20 26 36 3a 53  |&100....STA &6:S|
00000410  54 41 20 26 34 0d 02 e4  16 4c 44 41 20 23 62 75  |TA &4....LDA #bu|
00000420  66 66 65 72 20 81 20 26  31 30 30 0d 02 ee 16 53  |ffer . &100....S|
00000430  54 41 20 26 37 3a 53 54  41 20 26 35 20 20 20 20  |TA &7:STA &5    |
00000440  20 0d 02 f8 12 4c 44 41  20 23 38 3a 53 54 41 20  | ....LDA #8:STA |
00000450  26 44 30 0d 03 02 14 4c  44 41 20 23 32 39 3a 53  |&D0....LDA #29:S|
00000460  54 41 20 26 33 30 39 0d  03 0c 13 4c 44 41 20 23  |TA &309....LDA #|
00000470  35 3a 53 54 41 20 26 33  30 42 0d 03 16 16 4c 44  |5:STA &30B....LD|
00000480  41 20 23 31 32 3a 4a 53  52 20 6f 73 77 72 63 68  |A #12:JSR oswrch|
00000490  0d 03 20 13 4c 44 41 20  23 30 3a 53 54 41 20 66  |.. .LDA #0:STA f|
000004a0  6c 61 67 0d 03 2a 11 4a  4d 50 20 28 6f 6c 64 76  |lag..*.JMP (oldv|
000004b0  65 63 74 29 0d 03 34 05  5c 0d 03 3e 0a 2e 72 65  |ect)..4.\..>..re|
000004c0  73 65 74 0d 03 48 0b 54  58 41 3a 50 48 41 0d 03  |set..H.TXA:PHA..|
000004d0  52 0b 4c 44 41 20 23 31  33 0d 03 5c 0a 4c 44 58  |R.LDA #13..\.LDX|
000004e0  20 23 34 0d 03 66 0e 4a  53 52 20 6f 73 62 79 74  | #4..f.JSR osbyt|
000004f0  65 0d 03 70 0b 50 4c 41  3a 54 41 58 0d 03 7a 0a  |e..p.PLA:TAX..z.|
00000500  4c 44 41 20 23 30 0d 03  84 0b 53 54 41 20 6f 6e  |LDA #0....STA on|
00000510  31 0d 03 8e 0b 53 54 41  20 6f 6e 32 0d 03 98 0c  |1....STA on2....|
00000520  4a 4d 50 20 71 75 69 74  0d 03 a2 05 5c 0d 03 ac  |JMP quit....\...|
00000530  09 2e 63 6f 6e 74 0d 03  b6 15 4c 44 41 20 26 32  |..cont....LDA &2|
00000540  36 41 3a 42 4e 45 20 71  75 69 74 0d 03 c0 13 54  |6A:BNE quit....T|
00000550  59 41 3a 50 48 41 3a 54  58 41 3a 50 48 41 0d 03  |YA:PHA:TXA:PHA..|
00000560  ca 0c 4c 44 41 20 63 68  61 72 0d 03 d4 0b 43 4d  |..LDA char....CM|
00000570  50 20 23 32 32 0d 03 de  0d 42 4e 45 20 63 6f 6e  |P #22....BNE con|
00000580  74 31 0d 03 e8 12 4c 44  41 20 23 30 3a 53 54 41  |t1....LDA #0:STA|
00000590  20 6f 6e 32 0d 03 f2 0c  4a 4d 50 20 65 78 69 74  | on2....JMP exit|
000005a0  0d 03 fc 05 5c 0d 04 06  0a 2e 63 6f 6e 74 31 0d  |....\.....cont1.|
000005b0  04 10 0b 4c 44 41 20 26  44 30 0d 04 1a 09 80 20  |...LDA &D0..... |
000005c0  23 36 34 0d 04 24 0e 42  45 51 20 6e 6f 74 73 65  |#64..$.BEQ notse|
000005d0  70 0d 04 2e 0c 4c 44 58  20 26 33 36 34 0d 04 38  |p....LDX &364..8|
000005e0  0c 4c 44 59 20 26 33 36  35 0d 04 42 0f 4a 4d 50  |.LDY &365..B.JMP|
000005f0  20 63 75 72 64 6f 6e 65  0d 04 4c 05 5c 0d 04 56  | curdone..L.\..V|
00000600  0b 2e 6e 6f 74 73 65 70  0d 04 60 0c 4c 44 58 20  |..notsep..`.LDX |
00000610  26 33 31 38 0d 04 6a 0c  4c 44 59 20 26 33 31 39  |&318..j.LDY &319|
00000620  0d 04 74 05 5c 0d 04 7e  0c 2e 63 75 72 64 6f 6e  |..t.\..~..curdon|
00000630  65 0d 04 88 0e 53 54 58  20 63 75 72 73 6f 72 0d  |e....STX cursor.|
00000640  04 92 10 53 54 59 20 63  75 72 73 6f 72 2b 31 0d  |...STY cursor+1.|
00000650  04 9c 0e 4c 44 41 20 63  75 72 73 6f 72 0d 04 a6  |...LDA cursor...|
00000660  0e 42 45 51 20 6e 6f 74  66 6c 32 0d 04 b0 0f 4a  |.BEQ notfl2....J|
00000670  53 52 20 72 65 73 74 6f  72 65 0d 04 ba 05 5c 0d  |SR restore....\.|
00000680  04 c4 0b 2e 6e 6f 74 66  6c 32 0d 04 ce 0c 4c 44  |....notfl2....LD|
00000690  41 20 63 68 61 72 0d 04  d8 0b 43 4d 50 20 23 31  |A char....CMP #1|
000006a0  32 0d 04 e2 0e 42 4e 45  20 6e 6f 74 6c 66 33 0d  |2....BNE notlf3.|
000006b0  04 ec 15 4c 44 41 20 23  31 3a 53 54 41 20 66 6c  |...LDA #1:STA fl|
000006c0  61 67 20 20 0d 04 f6 16  4c 44 41 20 23 32 32 3a  |ag  ....LDA #22:|
000006d0  4a 53 52 20 6f 73 77 72  63 68 0d 05 00 0b 4c 44  |JSR oswrch....LD|
000006e0  41 20 23 31 33 0d 05 0a  0a 4c 44 58 20 23 34 0d  |A #13....LDX #4.|
000006f0  05 14 0e 4a 53 52 20 6f  73 62 79 74 65 0d 05 1e  |...JSR osbyte...|
00000700  13 50 4c 41 3a 54 41 58  3a 50 4c 41 3a 54 41 59  |.PLA:TAX:PLA:TAY|
00000710  0d 05 28 10 4a 4d 50 20  73 74 61 72 74 31 61 20  |..(.JMP start1a |
00000720  0d 05 32 05 5c 0d 05 3c  0b 2e 6e 6f 74 6c 66 33  |..2.\..<..notlf3|
00000730  0d 05 46 0b 43 4d 50 20  23 31 30 0d 05 50 0d 42  |..F.CMP #10..P.B|
00000740  4e 45 20 6e 6f 74 6c 66  0d 05 5a 10 4c 44 41 20  |NE notlf..Z.LDA |
00000750  63 75 72 73 6f 72 2b 31  0d 05 64 0a 43 4d 50 23  |cursor+1..d.CMP#|
00000760  32 39 0d 05 6e 0d 42 4e  45 20 6e 6f 74 6c 66 0d  |29..n.BNE notlf.|
00000770  05 78 0e 4a 53 52 20 73  63 72 6f 6c 6c 0d 05 82  |.x.JSR scroll...|
00000780  05 5c 0d 05 8c 0a 2e 6e  6f 74 6c 66 0d 05 96 0b  |.\.....notlf....|
00000790  43 4d 50 20 23 33 32 0d  05 a0 0e 42 43 53 20 6e  |CMP #32....BCS n|
000007a0  6f 74 6c 66 31 0d 05 aa  10 4a 4d 50 20 65 78 69  |otlf1....JMP exi|
000007b0  74 20 20 20 20 0d 05 b4  05 5c 0d 05 be 0f 20 2e  |t    ....\.... .|
000007c0  6e 6f 74 6c 66 31 20 20  20 0d 05 c8 10 4c 44 41  |notlf1   ....LDA|
000007d0  20 63 75 72 73 6f 72 2b  31 0d 05 d2 07 53 45 43  | cursor+1....SEC|
000007e0  0d 05 dc 0a 53 42 43 20  23 35 0d 05 e6 07 54 41  |....SBC #5....TA|
000007f0  59 0d 05 f0 10 4c 44 41  20 74 61 62 6c 65 31 2c  |Y....LDA table1,|
00000800  59 0d 05 fa 0e 53 54 41  20 6f 66 66 73 65 74 0d  |Y....STA offset.|
00000810  06 04 10 4c 44 41 20 74  61 62 6c 65 32 2c 59 0d  |...LDA table2,Y.|
00000820  06 0e 10 53 54 41 20 6f  66 66 73 65 74 2b 31 0d  |...STA offset+1.|
00000830  06 18 0e 4c 44 59 20 63  75 72 73 6f 72 0d 06 22  |...LDY cursor.."|
00000840  0c 4c 44 41 20 63 68 61  72 0d 06 2c 0c 43 4d 50  |.LDA char..,.CMP|
00000850  20 23 31 32 37 0d 06 36  11 42 4e 45 20 6e 6f 74  | #127..6.BNE not|
00000860  66 6c 31 61 20 20 0d 06  40 0a 4c 44 41 20 23 30  |fl1a  ..@.LDA #0|
00000870  0d 06 4a 05 5c 0d 06 54  0c 2e 6e 6f 74 66 6c 31  |..J.\..T..notfl1|
00000880  61 0d 06 5e 12 53 54 41  20 28 6f 66 66 73 65 74  |a..^.STA (offset|
00000890  29 2c 59 0d 06 68 0e 4c  44 41 20 63 75 72 73 6f  |),Y..h.LDA curso|
000008a0  72 0d 06 72 0b 43 4d 50  20 23 33 39 0d 06 7c 11  |r..r.CMP #39..|.|
000008b0  42 4e 45 20 6e 6f 73 63  72 6f 6c 6c 20 0d 06 86  |BNE noscroll ...|
000008c0  10 4c 44 41 20 63 75 72  73 6f 72 2b 31 0d 06 90  |.LDA cursor+1...|
000008d0  0b 43 4d 50 20 23 32 39  0d 06 9a 10 42 4e 45 20  |.CMP #29....BNE |
000008e0  6e 6f 73 63 72 6f 6c 6c  0d 06 a4 0e 4a 53 52 20  |noscroll....JSR |
000008f0  73 63 72 6f 6c 6c 0d 06  ae 05 5c 0d 06 b8 0e 2e  |scroll....\.....|
00000900  6e 6f 73 63 72 6f 6c 6c  20 0d 06 c2 0c 4c 44 41  |noscroll ....LDA|
00000910  20 63 68 61 72 0d 06 cc  0c 43 4d 50 20 23 31 32  | char....CMP #12|
00000920  37 0d 06 d6 11 42 4e 45  20 6e 6f 73 63 72 6f 6c  |7....BNE noscrol|
00000930  6c 31 0d 06 e0 0c 4a 4d  50 20 65 78 69 74 0d 06  |l1....JMP exit..|
00000940  ea 05 5c 0d 06 f4 0e 2e  6e 6f 73 63 72 6f 6c 6c  |..\.....noscroll|
00000950  31 0d 06 fe 0c 4c 44 41  20 63 68 61 72 0d 07 08  |1....LDA char...|
00000960  0c 43 4d 50 20 23 31 32  38 0d 07 12 0f 42 43 43  |.CMP #128....BCC|
00000970  20 6e 6f 74 63 6f 64 65  0d 07 1c 0c 43 4d 50 20  | notcode....CMP |
00000980  23 31 36 30 0d 07 26 0f  42 43 53 20 6e 6f 74 63  |#160..&.BCS notc|
00000990  6f 64 65 0d 07 30 14 4c  44 41 20 23 33 32 3a 53  |ode..0.LDA #32:S|
000009a0  54 41 20 63 68 61 72 0d  07 3a 0c 4a 4d 50 20 65  |TA char..:.JMP e|
000009b0  78 69 74 0d 07 44 05 5c  0d 07 4e 0c 2e 6e 6f 74  |xit..D.\..N..not|
000009c0  63 6f 64 65 0d 07 58 0a  4c 44 59 20 23 30 0d 07  |code..X.LDY #0..|
000009d0  62 05 5c 0d 07 6c 0d 2e  6c 6f 6f 6b 62 61 63 6b  |b.\..l..lookback|
000009e0  0d 07 76 13 20 4c 44 41  20 28 6f 66 66 73 65 74  |..v. LDA (offset|
000009f0  29 2c 59 0d 07 80 0c 43  4d 50 20 23 31 32 38 0d  |),Y....CMP #128.|
00000a00  07 8a 0c 42 43 43 20 6e  65 78 74 0d 07 94 0c 43  |...BCC next....C|
00000a10  4d 50 20 23 31 36 30 0d  07 9e 0c 42 43 53 20 6e  |MP #160....BCS n|
00000a20  65 78 74 0d 07 a8 07 53  45 43 0d 07 b2 0c 53 42  |ext....SEC....SB|
00000a30  43 20 23 31 32 38 0d 07  bc 0d 54 41 58 20 20 20  |C #128....TAX   |
00000a40  20 20 20 0d 07 c6 10 4c  44 41 20 74 61 62 6c 65  |   ....LDA table|
00000a50  34 2c 58 0d 07 d0 0c 42  45 51 20 6e 65 78 74 0d  |4,X....BEQ next.|
00000a60  07 da 14 43 4d 50 20 23  31 3a 42 4e 45 20 63 6f  |...CMP #1:BNE co|
00000a70  64 65 32 0d 07 e4 14 4c  44 41 20 23 30 3a 53 54  |de2....LDA #0:ST|
00000a80  41 20 67 72 61 70 68 0d  07 ee 0c 4a 4d 50 20 6e  |A graph....JMP n|
00000a90  65 78 74 0d 07 f8 05 5c  0d 08 02 0a 2e 63 6f 64  |ext....\.....cod|
00000aa0  65 32 0d 08 0c 14 43 4d  50 20 23 32 3a 42 4e 45  |e2....CMP #2:BNE|
00000ab0  20 63 6f 64 65 33 0d 08  16 15 4c 44 41 20 23 30  | code3....LDA #0|
00000ac0  3a 53 54 41 20 64 6f 75  62 6c 65 0d 08 20 0c 4a  |:STA double.. .J|
00000ad0  4d 50 20 6e 65 78 74 0d  08 2a 05 5c 0d 08 34 0a  |MP next..*.\..4.|
00000ae0  2e 63 6f 64 65 33 0d 08  3e 14 43 4d 50 20 23 33  |.code3..>.CMP #3|
00000af0  3a 42 4e 45 20 63 6f 64  65 34 0d 08 48 15 4c 44  |:BNE code4..H.LD|
00000b00  41 20 23 31 3a 73 74 61  20 64 6f 75 62 6c 65 0d  |A #1:sta double.|
00000b10  08 52 10 4c 44 58 20 63  75 72 73 6f 72 2b 31 0d  |.R.LDX cursor+1.|
00000b20  08 5c 07 53 45 43 0d 08  66 0a 53 42 43 20 23 35  |.\.SEC..f.SBC #5|
00000b30  0d 08 70 10 4c 44 41 20  74 61 62 6c 65 33 2c 58  |..p.LDA table3,X|
00000b40  0d 08 7a 0e 42 4e 45 20  63 6f 64 65 33 61 0d 08  |..z.BNE code3a..|
00000b50  84 07 49 4e 58 0d 08 8e  0a 4c 44 41 20 23 31 0d  |..INX....LDA #1.|
00000b60  08 98 10 53 54 41 20 74  61 62 6c 65 33 2c 58 0d  |...STA table3,X.|
00000b70  08 a2 15 4c 44 41 20 23  30 3a 53 54 41 20 74 6f  |...LDA #0:STA to|
00000b80  70 62 6f 74 0d 08 ac 0c  4a 4d 50 20 6e 65 78 74  |pbot....JMP next|
00000b90  0d 08 b6 05 5c 0d 08 c0  0b 2e 63 6f 64 65 33 61  |....\.....code3a|
00000ba0  0d 08 ca 15 4c 44 41 20  23 31 3a 53 54 41 20 74  |....LDA #1:STA t|
00000bb0  6f 70 62 6f 74 0d 08 d4  0c 4a 4d 50 20 6e 65 78  |opbot....JMP nex|
00000bc0  74 0d 08 de 05 5c 0d 08  e8 0a 2e 63 6f 64 65 34  |t....\.....code4|
00000bd0  0d 08 f2 14 43 4d 50 20  23 34 3a 42 4e 45 20 63  |....CMP #4:BNE c|
00000be0  6f 64 65 35 0d 08 fc 14  4c 44 41 20 23 31 3a 53  |ode5....LDA #1:S|
00000bf0  54 41 20 67 72 61 70 68  0d 09 06 0c 4a 4d 50 20  |TA graph....JMP |
00000c00  6e 65 78 74 0d 09 10 05  5c 0d 09 1a 0a 2e 63 6f  |next....\.....co|
00000c10  64 65 35 0d 09 24 14 43  4d 50 20 23 35 3a 42 4e  |de5..$.CMP #5:BN|
00000c20  45 20 63 6f 64 65 36 0d  09 2e 16 4c 44 41 20 23  |E code6....LDA #|
00000c30  30 3a 53 54 41 20 73 65  70 63 6f 6e 74 0d 09 38  |0:STA sepcont..8|
00000c40  0c 4a 4d 50 20 6e 65 78  74 0d 09 42 05 5c 0d 09  |.JMP next..B.\..|
00000c50  4c 0a 2e 63 6f 64 65 36  0d 09 56 16 4c 44 41 20  |L..code6..V.LDA |
00000c60  23 31 3a 53 54 41 20 73  65 70 63 6f 6e 74 0d 09  |#1:STA sepcont..|
00000c70  60 05 5c 0d 09 6a 09 2e  6e 65 78 74 0d 09 74 07  |`.\..j..next..t.|
00000c80  49 4e 59 0d 09 7e 0e 43  50 59 20 63 75 72 73 6f  |INY..~.CPY curso|
00000c90  72 0d 09 88 10 42 4e 45  20 6c 6f 6f 6b 62 61 63  |r....BNE lookbac|
00000ca0  6b 0d 09 92 0d 4c 44 41  20 67 72 61 70 68 0d 09  |k....LDA graph..|
00000cb0  9c 0d 42 45 51 20 6e 65  78 74 31 0d 09 a6 0c 4c  |..BEQ next1....L|
00000cc0  44 41 20 63 68 61 72 0d  09 b0 15 43 4d 50 20 23  |DA char....CMP #|
00000cd0  33 35 3a 42 45 51 20 6e  65 78 74 31 0d 09 ba 12  |35:BEQ next1....|
00000ce0  43 4d 50 20 23 36 34 3a  42 43 43 20 67 63 0d 09  |CMP #64:BCC gc..|
00000cf0  c4 15 43 4d 50 20 23 39  35 3a 42 43 43 20 6e 65  |..CMP #95:BCC ne|
00000d00  78 74 31 0d 09 ce 17 43  4d 50 20 23 31 39 32 3a  |xt1....CMP #192:|
00000d10  42 43 43 20 67 63 20 20  20 20 0d 09 d8 16 43 4d  |BCC gc    ....CM|
00000d20  50 20 23 32 32 34 3a 42  43 43 20 6e 65 78 74 31  |P #224:BCC next1|
00000d30  0d 09 e2 05 5c 0d 09 ec  07 2e 67 63 0d 09 f6 0e  |....\.....gc....|
00000d40  4c 44 41 20 63 75 72 73  6f 72 0d 0a 00 0d 42 45  |LDA cursor....BE|
00000d50  51 20 6e 65 78 74 31 0d  0a 0a 10 4a 53 52 20 67  |Q next1....JSR g|
00000d60  72 61 70 68 69 63 73 0d  0a 14 16 4c 44 41 20 23  |raphics....LDA #|
00000d70  26 46 46 3a 53 54 41 20  63 68 61 72 20 0d 0a 1e  |&FF:STA char ...|
00000d80  12 4a 4d 50 20 6e 6f 74  73 70 65 63 69 61 6c 0d  |.JMP notspecial.|
00000d90  0a 28 05 5c 0d 0a 32 0a  2e 6e 65 78 74 31 0d 0a  |.(.\..2..next1..|
00000da0  3c 0c 4c 44 41 20 63 68  61 72 0d 0a 46 0c 43 4d  |<.LDA char..F.CM|
00000db0  50 20 23 32 32 33 0d 0a  50 0e 42 4e 45 20 6e 65  |P #223..P.BNE ne|
00000dc0  78 74 31 61 0d 0a 5a 14  4c 44 41 20 23 33 35 3a  |xt1a..Z.LDA #35:|
00000dd0  53 54 41 20 63 68 61 72  0d 0a 64 05 5c 0d 0a 6e  |STA char..d.\..n|
00000de0  0d 2e 6e 65 78 74 31 61  20 20 0d 0a 78 0c 43 4d  |..next1a  ..x.CM|
00000df0  50 20 23 26 46 46 0d 0a  82 0e 42 4e 45 20 6e 65  |P #&FF....BNE ne|
00000e00  78 74 31 62 0d 0a 8c 10  4a 53 52 20 67 72 61 70  |xt1b....JSR grap|
00000e10  68 69 63 73 0d 0a 96 15  4c 44 41 20 23 26 46 46  |hics....LDA #&FF|
00000e20  3a 53 54 41 20 63 68 61  72 0d 0a a0 12 4a 4d 50  |:STA char....JMP|
00000e30  20 6e 6f 74 73 70 65 63  69 61 6c 0d 0a aa 05 5c  | notspecial....\|
00000e40  0d 0a b4 0b 2e 6e 65 78  74 31 62 0d 0a be 13 80  |.....next1b.....|
00000e50  20 23 26 37 46 3a 53 54  41 20 63 68 61 72 0d 0a  | #&7F:STA char..|
00000e60  c8 15 43 4d 50 20 23 39  31 3a 42 43 43 20 6e 65  |..CMP #91:BCC ne|
00000e70  78 74 32 0d 0a d2 15 43  4d 50 20 23 39 36 3a 42  |xt2....CMP #96:B|
00000e80  43 53 20 6e 65 78 74 32  0d 0a dc 07 43 4c 43 0d  |CS next2....CLC.|
00000e90  0a e6 0d 20 41 44 43 20  23 31 35 35 0d 0a f0 0c  |... ADC #155....|
00000ea0  53 54 41 20 63 68 61 72  0d 0a fa 12 4a 4d 50 20  |STA char....JMP |
00000eb0  6e 6f 74 73 70 65 63 69  61 6c 0d 0b 04 05 5c 0d  |notspecial....\.|
00000ec0  0b 0e 0a 2e 6e 65 78 74  32 0d 0b 18 0c 43 4d 50  |....next2....CMP|
00000ed0  20 23 31 32 33 0d 0b 22  12 42 43 43 20 6e 6f 74  | #123..".BCC not|
00000ee0  73 70 65 63 69 61 6c 0d  0b 2c 0c 43 4d 50 20 23  |special..,.CMP #|
00000ef0  31 32 37 0d 0b 36 13 42  43 53 20 6e 6f 74 73 70  |127..6.BCS notsp|
00000f00  65 63 69 61 6c 20 0d 0b  40 07 43 4c 43 0d 0b 4a  |ecial ..@.CLC..J|
00000f10  0c 41 44 43 20 23 31 32  38 0d 0b 54 0c 53 54 41  |.ADC #128..T.STA|
00000f20  20 63 68 61 72 0d 0b 5e  05 5c 0d 0b 68 14 2e 6e  | char..^.\..h..n|
00000f30  6f 74 73 70 65 63 69 61  6c 20 20 20 20 20 0d 0b  |otspecial     ..|
00000f40  72 17 4c 44 41 20 64 6f  75 62 6c 65 3a 42 45 51  |r.LDA double:BEQ|
00000f50  20 65 78 69 74 0d 0b 7c  17 4c 44 41 20 63 75 72  | exit..|.LDA cur|
00000f60  73 6f 72 3a 42 45 51 20  65 78 69 74 0d 0b 86 17  |sor:BEQ exit....|
00000f70  4c 44 41 20 63 68 61 72  3a 53 54 41 20 62 75 66  |LDA char:STA buf|
00000f80  66 65 72 0d 0b 90 16 4c  44 58 20 23 62 75 66 66  |fer....LDX #buff|
00000f90  65 72 20 83 20 26 31 30  30 0d 0b 9a 16 4c 44 59  |er . &100....LDY|
00000fa0  20 23 62 75 66 66 65 72  20 81 20 26 31 30 30 0d  | #buffer . &100.|
00000fb0  0b a4 17 4c 44 41 20 23  26 41 3a 4a 53 52 20 6f  |...LDA #&A:JSR o|
00000fc0  73 77 6f 72 64 20 0d 0b  ae 14 4c 44 58 20 23 30  |sword ....LDX #0|
00000fd0  3a 4c 44 59 20 23 30 20  20 20 0d 0b b8 18 4c 44  |:LDY #0   ....LD|
00000fe0  41 20 74 6f 70 62 6f 74  3a 42 45 51 20 75 64 63  |A topbot:BEQ udc|
00000ff0  20 20 0d 0b c2 0c 4c 44  59 20 23 34 20 20 0d 0b  |  ....LDY #4  ..|
00001000  cc 05 5c 0d 0b d6 08 2e  75 64 63 0d 0b e0 12 4c  |..\.....udc....L|
00001010  44 41 20 62 75 66 66 65  72 2b 31 2c 59 0d 0b ea  |DA buffer+1,Y...|
00001020  11 53 54 41 20 63 68 61  72 32 35 35 2c 58 0d 0b  |.STA char255,X..|
00001030  f4 07 49 4e 58 0d 0b fe  11 53 54 41 20 63 68 61  |..INX....STA cha|
00001040  72 32 35 35 2c 58 0d 0c  08 0b 49 4e 58 3a 49 4e  |r255,X....INX:IN|
00001050  59 0d 0c 12 12 43 50 58  20 23 38 3a 42 4e 45 20  |Y....CPX #8:BNE |
00001060  75 64 63 0d 0c 1c 15 4c  44 41 20 23 26 46 46 3a  |udc....LDA #&FF:|
00001070  53 54 41 20 63 68 61 72  0d 0c 26 05 5c 0d 0c 30  |STA char..&.\..0|
00001080  09 2e 65 78 69 74 0d 0c  3a 13 50 4c 41 3a 54 41  |..exit..:.PLA:TA|
00001090  58 3a 50 4c 41 3a 54 41  59 0d 0c 44 0c 4c 44 41  |X:PLA:TAY..D.LDA|
000010a0  20 63 68 61 72 0d 0c 4e  11 4a 4d 50 20 28 6f 6c  | char..N.JMP (ol|
000010b0  64 76 65 63 74 29 0d 0c  58 05 5c 0d 0c 62 0d 2e  |dvect)..X.\..b..|
000010c0  67 72 61 70 68 69 63 73  0d 0c 6c 0a 4c 44 59 20  |graphics..l.LDY |
000010d0  23 38 0d 0c 76 0a 4c 44  41 20 23 30 0d 0c 80 05  |#8..v.LDA #0....|
000010e0  5c 0d 0c 8a 0a 2e 63 6c  65 61 72 0d 0c 94 13 53  |\.....clear....S|
000010f0  54 41 20 63 68 61 72 32  35 35 2d 31 2c 59 0d 0c  |TA char255-1,Y..|
00001100  9e 07 44 45 59 0d 0c a8  0d 42 4e 45 20 63 6c 65  |..DEY....BNE cle|
00001110  61 72 0d 0c b2 0c 4c 44  41 20 63 68 61 72 0d 0c  |ar....LDA char..|
00001120  bc 0a 80 20 23 26 37 46  0d 0c c6 07 53 45 43 0d  |... #&7F....SEC.|
00001130  0c d0 0b 53 42 43 20 23  33 32 0d 0c da 0f 43 4d  |...SBC #32....CM|
00001140  50 20 23 33 32 20 20 20  20 0d 0c e4 0d 42 43 43  |P #32    ....BCC|
00001150  20 62 69 74 31 20 0d 0c  ee 0c 53 45 43 20 20 20  | bit1 ....SEC   |
00001160  20 20 0d 0c f8 0d 53 42  43 20 23 33 32 20 20 0d  |  ....SBC #32  .|
00001170  0d 02 0d 5c 20 20 20 20  20 20 20 20 0d 0d 0c 0d  |...\        ....|
00001180  2e 62 69 74 31 20 20 20  20 0d 0d 16 0e 53 54 41  |.bit1    ....STA|
00001190  20 63 68 61 72 20 20 0d  0d 20 0b 4c 44 41 20 23  | char  .. .LDA #|
000011a0  31 20 0d 0d 2a 0d 42 49  54 20 63 68 61 72 20 0d  |1 ..*.BIT char .|
000011b0  0d 34 0e 42 45 51 20 62  69 74 32 20 20 0d 0d 3e  |.4.BEQ bit2  ..>|
000011c0  10 4c 44 41 20 63 68 61  72 32 35 35 20 0d 0d 48  |.LDA char255 ..H|
000011d0  0d 84 41 20 23 26 46 30  20 20 0d 0d 52 10 53 54  |..A #&F0  ..R.ST|
000011e0  41 20 63 68 61 72 32 35  35 20 0d 0d 5c 11 4c 44  |A char255 ..\.LD|
000011f0  41 20 63 68 61 72 32 35  35 2b 31 0d 0d 66 0b 84  |A char255+1..f..|
00001200  41 20 23 26 46 30 0d 0d  70 11 53 54 41 20 63 68  |A #&F0..p.STA ch|
00001210  61 72 32 35 35 2b 31 0d  0d 7a 11 4c 44 41 20 63  |ar255+1..z.LDA c|
00001220  68 61 72 32 35 35 2b 32  0d 0d 84 0b 84 41 20 23  |har255+2.....A #|
00001230  26 46 30 0d 0d 8e 11 53  54 41 20 63 68 61 72 32  |&F0....STA char2|
00001240  35 35 2b 32 0d 0d 98 05  5c 0d 0d a2 09 2e 62 69  |55+2....\.....bi|
00001250  74 32 0d 0d ac 0a 4c 44  41 20 23 32 0d 0d b6 0c  |t2....LDA #2....|
00001260  42 49 54 20 63 68 61 72  0d 0d c0 0c 42 45 51 20  |BIT char....BEQ |
00001270  62 69 74 33 0d 0d ca 0f  4c 44 41 20 63 68 61 72  |bit3....LDA char|
00001280  32 35 35 0d 0d d4 0a 84  41 20 23 26 46 0d 0d de  |255.....A #&F...|
00001290  0f 53 54 41 20 63 68 61  72 32 35 35 0d 0d e8 11  |.STA char255....|
000012a0  4c 44 41 20 63 68 61 72  32 35 35 2b 31 0d 0d f2  |LDA char255+1...|
000012b0  0a 84 41 20 23 26 46 0d  0d fc 11 53 54 41 20 63  |..A #&F....STA c|
000012c0  68 61 72 32 35 35 2b 31  0d 0e 06 11 4c 44 41 20  |har255+1....LDA |
000012d0  63 68 61 72 32 35 35 2b  32 0d 0e 10 0a 84 41 20  |char255+2.....A |
000012e0  23 26 46 0d 0e 1a 11 53  54 41 20 63 68 61 72 32  |#&F....STA char2|
000012f0  35 35 2b 32 0d 0e 24 05  5c 0d 0e 2e 09 2e 62 69  |55+2..$.\.....bi|
00001300  74 33 0d 0e 38 0a 4c 44  41 20 23 34 0d 0e 42 0c  |t3..8.LDA #4..B.|
00001310  42 49 54 20 63 68 61 72  0d 0e 4c 0c 42 45 51 20  |BIT char..L.BEQ |
00001320  62 69 74 34 0d 0e 56 11  4c 44 41 20 63 68 61 72  |bit4..V.LDA char|
00001330  32 35 35 2b 33 0d 0e 60  0b 84 41 20 23 26 46 30  |255+3..`..A #&F0|
00001340  0d 0e 6a 11 53 54 41 20  63 68 61 72 32 35 35 2b  |..j.STA char255+|
00001350  33 0d 0e 74 14 4c 44 41  20 63 68 61 72 32 35 35  |3..t.LDA char255|
00001360  2b 34 20 20 20 0d 0e 7e  0b 84 41 20 23 26 46 30  |+4   ..~..A #&F0|
00001370  0d 0e 88 11 53 54 41 20  63 68 61 72 32 35 35 2b  |....STA char255+|
00001380  34 0d 0e 92 05 5c 0d 0e  9c 09 2e 62 69 74 34 0d  |4....\.....bit4.|
00001390  0e a6 0a 4c 44 41 20 23  38 0d 0e b0 0c 42 49 54  |...LDA #8....BIT|
000013a0  20 63 68 61 72 0d 0e ba  0c 42 45 51 20 62 69 74  | char....BEQ bit|
000013b0  35 0d 0e c4 11 4c 44 41  20 63 68 61 72 32 35 35  |5....LDA char255|
000013c0  2b 33 0d 0e ce 0a 84 41  20 23 26 46 0d 0e d8 11  |+3.....A #&F....|
000013d0  53 54 41 20 63 68 61 72  32 35 35 2b 33 0d 0e e2  |STA char255+3...|
000013e0  11 4c 44 41 20 63 68 61  72 32 35 35 2b 34 0d 0e  |.LDA char255+4..|
000013f0  ec 0a 84 41 20 23 26 46  0d 0e f6 11 53 54 41 20  |...A #&F....STA |
00001400  63 68 61 72 32 35 35 2b  34 0d 0f 00 05 5c 0d 0f  |char255+4....\..|
00001410  0a 09 2e 62 69 74 35 0d  0f 14 0b 4c 44 41 20 23  |...bit5....LDA #|
00001420  31 36 0d 0f 1e 0c 42 49  54 20 63 68 61 72 0d 0f  |16....BIT char..|
00001430  28 0c 42 45 51 20 62 69  74 36 0d 0f 32 11 4c 44  |(.BEQ bit6..2.LD|
00001440  41 20 63 68 61 72 32 35  35 2b 35 0d 0f 3c 0b 84  |A char255+5..<..|
00001450  41 20 23 26 46 30 0d 0f  46 11 53 54 41 20 63 68  |A #&F0..F.STA ch|
00001460  61 72 32 35 35 2b 35 0d  0f 50 11 4c 44 41 20 63  |ar255+5..P.LDA c|
00001470  68 61 72 32 35 35 2b 36  0d 0f 5a 0b 84 41 20 23  |har255+6..Z..A #|
00001480  26 46 30 0d 0f 64 11 53  54 41 20 63 68 61 72 32  |&F0..d.STA char2|
00001490  35 35 2b 36 0d 0f 6e 11  4c 44 41 20 63 68 61 72  |55+6..n.LDA char|
000014a0  32 35 35 2b 37 0d 0f 78  0e 84 41 20 23 26 46 30  |255+7..x..A #&F0|
000014b0  20 20 20 0d 0f 82 11 53  54 41 20 63 68 61 72 32  |   ....STA char2|
000014c0  35 35 2b 37 0d 0f 8c 05  5c 0d 0f 96 09 2e 62 69  |55+7....\.....bi|
000014d0  74 36 0d 0f a0 0b 4c 44  41 20 23 33 32 0d 0f aa  |t6....LDA #32...|
000014e0  0c 42 49 54 20 63 68 61  72 0d 0f b4 11 42 45 51  |.BIT char....BEQ|
000014f0  20 73 65 70 65 72 61 74  65 64 0d 0f be 11 4c 44  | seperated....LD|
00001500  41 20 63 68 61 72 32 35  35 2b 35 0d 0f c8 0a 84  |A char255+5.....|
00001510  41 20 23 26 46 0d 0f d2  11 53 54 41 20 63 68 61  |A #&F....STA cha|
00001520  72 32 35 35 2b 35 0d 0f  dc 14 4c 44 41 20 63 68  |r255+5....LDA ch|
00001530  61 72 32 35 35 2b 36 20  20 20 0d 0f e6 0a 84 41  |ar255+6   .....A|
00001540  20 23 26 46 0d 0f f0 11  53 54 41 20 63 68 61 72  | #&F....STA char|
00001550  32 35 35 2b 36 0d 0f fa  11 4c 44 41 20 63 68 61  |255+6....LDA cha|
00001560  72 32 35 35 2b 37 0d 10  04 0a 84 41 20 23 26 46  |r255+7.....A #&F|
00001570  0d 10 0e 11 53 54 41 20  63 68 61 72 32 35 35 2b  |....STA char255+|
00001580  37 0d 10 18 05 5c 0d 10  22 0e 2e 73 65 70 65 72  |7....\.."..seper|
00001590  61 74 65 64 0d 10 2c 0f  4c 44 41 20 73 65 70 63  |ated..,.LDA sepc|
000015a0  6f 6e 74 0d 10 36 0c 42  4e 45 20 73 65 70 31 0d  |ont..6.BNE sep1.|
000015b0  10 40 07 52 54 53 0d 10  4a 05 5c 0d 10 54 09 2e  |.@.RTS..J.\..T..|
000015c0  73 65 70 31 0d 10 5e 0a  4c 44 59 20 23 38 0d 10  |sep1..^.LDY #8..|
000015d0  68 05 5c 0d 10 72 0c 2e  73 65 70 6c 6f 6f 70 0d  |h.\..r..seploop.|
000015e0  10 7c 13 4c 44 41 20 63  68 61 72 32 35 35 2d 31  |.|.LDA char255-1|
000015f0  2c 59 0d 10 86 0a 80 20  23 26 37 37 0d 10 90 13  |,Y..... #&77....|
00001600  53 54 41 20 63 68 61 72  32 35 35 2d 31 2c 59 0d  |STA char255-1,Y.|
00001610  10 9a 07 44 45 59 0d 10  a4 0f 42 4e 45 20 73 65  |...DEY....BNE se|
00001620  70 6c 6f 6f 70 0d 10 ae  0a 4c 44 41 20 23 30 0d  |ploop....LDA #0.|
00001630  10 b8 11 53 54 41 20 63  68 61 72 32 35 35 2b 32  |...STA char255+2|
00001640  0d 10 c2 11 53 54 41 20  63 68 61 72 32 35 35 2b  |....STA char255+|
00001650  34 0d 10 cc 11 53 54 41  20 63 68 61 72 32 35 35  |4....STA char255|
00001660  2b 37 0d 10 d6 07 52 54  53 0d 10 e0 05 5c 0d 10  |+7....RTS....\..|
00001670  ea 0b 2e 73 63 72 6f 6c  6c 0d 10 f4 13 54 59 41  |...scroll....TYA|
00001680  3a 50 48 41 3a 54 58 41  3a 50 48 41 0d 10 fe 0c  |:PHA:TXA:PHA....|
00001690  4c 44 41 20 23 26 33 31  0d 11 08 11 53 54 41 20  |LDA #&31....STA |
000016a0  73 63 72 6f 6c 6c 31 2b  31 0d 11 12 0c 4c 44 41  |scroll1+1....LDA|
000016b0  20 23 26 30 39 0d 11 1c  11 53 54 41 20 73 63 72  | #&09....STA scr|
000016c0  6f 6c 6c 31 2b 34 0d 11  26 0c 4c 44 41 20 23 26  |oll1+4..&.LDA #&|
000016d0  35 38 0d 11 30 11 53 54  41 20 73 63 72 6f 6c 6c  |58..0.STA scroll|
000016e0  31 2b 32 0d 11 3a 11 53  54 41 20 73 63 72 6f 6c  |1+2..:.STA scrol|
000016f0  6c 31 2b 35 0d 11 44 0a  4c 44 58 20 23 34 0d 11  |l1+5..D.LDX #4..|
00001700  4e 0a 4c 44 59 20 23 30  0d 11 58 05 5c 0d 11 62  |N.LDY #0..X.\..b|
00001710  0c 2e 73 63 72 6f 6c 6c  31 0d 11 6c 0f 4c 44 41  |..scroll1..l.LDA|
00001720  20 26 35 38 33 31 2c 59  0d 11 76 0f 53 54 41 20  | &5831,Y..v.STA |
00001730  26 35 38 30 39 2c 59 0d  11 80 07 49 4e 59 0d 11  |&5809,Y....INY..|
00001740  8a 0f 42 4e 45 20 73 63  72 6f 6c 6c 31 0d 11 94  |..BNE scroll1...|
00001750  11 49 4e 43 20 73 63 72  6f 6c 6c 31 2b 32 0d 11  |.INC scroll1+2..|
00001760  9e 11 49 4e 43 20 73 63  72 6f 6c 6c 31 2b 35 0d  |..INC scroll1+5.|
00001770  11 a8 07 44 45 58 0d 11  b2 0f 42 4e 45 20 73 63  |...DEX....BNE sc|
00001780  72 6f 6c 6c 31 0d 11 bc  0b 4c 44 59 20 23 34 30  |roll1....LDY #40|
00001790  0d 11 c6 05 5c 0d 11 d0  0c 2e 73 63 72 6f 6c 6c  |....\.....scroll|
000017a0  32 0d 11 da 0a 4c 44 41  20 23 30 0d 11 e4 0f 53  |2....LDA #0....S|
000017b0  54 41 20 26 35 42 46 31  2c 59 0d 11 ee 07 44 45  |TA &5BF1,Y....DE|
000017c0  59 0d 11 f8 0f 42 4e 45  20 73 63 72 6f 6c 6c 32  |Y....BNE scroll2|
000017d0  0d 12 02 0a 4c 44 58 20  23 31 0d 12 0c 0a 4c 44  |....LDX #1....LD|
000017e0  59 20 23 30 0d 12 16 05  5c 0d 12 20 0c 2e 74 61  |Y #0....\.. ..ta|
000017f0  62 6c 6f 6f 70 0d 12 2a  10 4c 44 41 20 74 61 62  |bloop..*.LDA tab|
00001800  6c 65 33 2e 58 0d 12 34  10 53 54 41 20 74 61 62  |le3.X..4.STA tab|
00001810  6c 65 33 2c 59 0d 12 3e  0b 49 4e 58 3a 49 4e 59  |le3,Y..>.INX:INY|
00001820  0d 12 48 0b 43 50 59 20  23 34 30 0d 12 52 0f 42  |..H.CPY #40..R.B|
00001830  4e 45 20 74 61 62 6c 6f  6f 70 0d 12 5c 14 50 4c  |NE tabloop..\.PL|
00001840  41 3a 54 41 58 3a 50 4c  41 3a 54 41 59 20 0d 12  |A:TAX:PLA:TAY ..|
00001850  66 05 5c 0d 12 70 0c 2e  72 65 73 74 6f 72 65 0d  |f.\..p..restore.|
00001860  12 7a 0a 4c 44 41 20 23  30 0d 12 84 0d 53 54 41  |.z.LDA #0....STA|
00001870  20 67 72 61 70 68 0d 12  8e 0e 53 54 41 20 64 6f  | graph....STA do|
00001880  75 62 6c 65 0d 12 98 0f  53 54 41 20 73 65 70 63  |uble....STA sepc|
00001890  6f 6e 74 0d 12 a2 07 52  54 53 0d 12 ac 05 5c 0d  |ont....RTS....\.|
000018a0  12 b6 0d 2e 62 6c 61 6e  6b 6f 75 74 0d 12 c0 1b  |....blankout....|
000018b0  50 48 50 3a 50 48 41 3a  54 58 41 3a 50 48 41 3a  |PHP:PHA:TXA:PHA:|
000018c0  54 59 41 3a 50 48 41 0d  12 ca 0c 4c 44 41 20 23  |TYA:PHA....LDA #|
000018d0  26 46 46 0d 12 d4 0d 53  54 41 20 26 46 45 30 38  |&FF....STA &FE08|
000018e0  0d 12 de 0d 53 54 41 20  26 46 45 30 39 0d 12 e8  |....STA &FE09...|
000018f0  0c 4c 44 58 20 23 31 37  38 0d 12 f2 05 5c 0d 12  |.LDX #178....\..|
00001900  fc 0b 2e 62 70 61 75 73  65 0d 13 06 0a 4c 44 59  |...bpause....LDY|
00001910  20 23 35 0d 13 10 05 5c  0d 13 1a 0a 2e 62 6c 6f  | #5....\.....blo|
00001920  6f 70 0d 13 24 11 44 45  59 3a 42 4e 45 20 62 6c  |op..$.DEY:BNE bl|
00001930  6f 6f 70 0d 13 2e 12 44  45 58 3a 42 4e 45 20 62  |oop....DEX:BNE b|
00001940  70 61 75 73 65 0d 13 38  15 4c 44 41 20 23 31 36  |pause..8.LDA #16|
00001950  3a 53 54 41 20 26 46 45  30 38 0d 13 42 15 4c 44  |:STA &FE08..B.LD|
00001960  41 20 23 31 37 3a 53 54  41 20 26 46 45 30 39 0d  |A #17:STA &FE09.|
00001970  13 4c 1b 50 4c 41 3a 54  41 59 3a 50 4c 41 3a 54  |.L.PLA:TAY:PLA:T|
00001980  41 58 3a 50 4c 41 3a 50  4c 50 0d 13 56 07 52 54  |AX:PLA:PLP..V.RT|
00001990  53 0d 13 60 05 5c 0d 13  6a 10 2e 63 68 61 72 20  |S..`.\..j..char |
000019a0  45 51 55 42 20 30 0d 13  74 13 2e 73 65 70 63 6f  |EQUB 0..t..sepco|
000019b0  6e 74 20 45 51 55 42 20  30 0d 13 7e 0f 2e 6f 6e  |nt EQUB 0..~..on|
000019c0  31 20 45 51 55 42 20 30  0d 13 88 0f 2e 6f 6e 32  |1 EQUB 0.....on2|
000019d0  20 45 51 55 42 20 30 0d  13 92 10 2e 66 6c 61 67  | EQUB 0.....flag|
000019e0  20 45 51 55 42 20 30 0d  13 9c 11 2e 67 72 61 70  | EQUB 0.....grap|
000019f0  68 20 45 51 55 42 20 30  0d 13 a6 12 2e 64 6f 75  |h EQUB 0.....dou|
00001a00  62 6c 65 20 45 51 55 42  20 30 0d 13 b0 12 2e 74  |ble EQUB 0.....t|
00001a10  6f 70 62 6f 74 20 45 51  55 42 20 30 0d 13 ba 0b  |opbot EQUB 0....|
00001a20  2e 74 61 62 6c 65 31 0d  13 c4 11 4f 50 54 20 a4  |.table1....OPT .|
00001a30  74 31 64 61 74 61 20 20  0d 13 ce 0b 2e 74 61 62  |t1data  .....tab|
00001a40  6c 65 32 0d 13 d8 0f 4f  50 54 20 a4 74 32 64 61  |le2....OPT .t2da|
00001a50  74 61 0d 13 e2 0b 2e 74  61 62 6c 65 34 0d 13 ec  |ta.....table4...|
00001a60  0f 4f 50 54 20 a4 74 34  64 61 74 61 0d 13 f6 05  |.OPT .t4data....|
00001a70  5d 0d 14 00 05 ed 0d 14  0a d7 dc 20 30 2c 32 34  |].......... 0,24|
00001a80  2c 34 38 2c 31 32 36 2c  31 32 36 2c 34 38 2c 32  |,48,126,126,48,2|
00001a90  34 2c 30 2c 36 34 2c 36  34 2c 36 34 2c 37 36 2c  |4,0,64,64,64,76,|
00001aa0  38 32 2c 34 2c 38 2c 33  30 2c 30 2c 32 34 2c 31  |82,4,8,30,0,24,1|
00001ab0  32 2c 31 32 36 2c 31 32  36 2c 31 32 2c 32 34 2c  |2,126,126,12,24,|
00001ac0  30 2c 30 2c 32 34 2c 36  30 2c 31 32 36 2c 39 30  |0,0,24,60,126,90|
00001ad0  2c 32 34 2c 32 34 2c 30  2c 30 2c 30 2c 30 2c 32  |,24,24,0,0,0,0,2|
00001ae0  35 34 2c 32 35 34 2c 30  2c 30 2c 30 2c 33 32 2c  |54,254,0,0,0,32,|
00001af0  33 32 2c 33 32 2c 33 34  2c 33 38 2c 31 30 2c 31  |32,32,34,38,10,1|
00001b00  35 2c 32 2c 34 30 2c 34  30 2c 34 30 2c 34 30 2c  |5,2,40,40,40,40,|
00001b10  34 30 2c 34 30 2c 34 30  2c 30 2c 39 36 2c 31 36  |40,40,40,0,96,16|
00001b20  2c 39 36 2c 31 38 2c 31  30 32 2c 31 30 2c 31 35  |,96,18,102,10,15|
00001b30  2c 32 2c 30 2c 31 36 2c  30 2c 31 32 34 2c 31 32  |,2,0,16,0,124,12|
00001b40  34 2c 30 2c 31 36 2c 30  20 20 20 20 20 0d 14 14  |4,0,16,0     ...|
00001b50  0a f7 20 8d 54 4a 54 0d  14 1e 14 e3 20 58 25 3d  |.. .TJT..... X%=|
00001b60  26 43 42 30 20 b8 20 26  43 46 37 0d 14 28 09 f3  |&CB0 . &CF7..(..|
00001b70  20 3f 58 25 0d 14 32 05  ed 0d 14 3c 0a d6 20 69  | ?X%..2....<.. i|
00001b80  6e 69 74 0d 14 46 06 eb  37 0d 14 50 05 e0 0d 14  |nit..F..7..P....|
00001b90  5a 0d dd 20 a4 74 31 64  61 74 61 0d 14 64 0a f7  |Z.. .t1data..d..|
00001ba0  20 8d 74 56 54 0d 14 6e  0f e3 20 58 25 3d 31 20  | .tVT..n.. X%=1 |
00001bb0  b8 20 32 35 0d 14 78 11  f3 20 3f 50 25 3a 50 25  |. 25..x.. ?P%:P%|
00001bc0  3d 50 25 2b 31 0d 14 82  05 ed 0d 14 8c 09 3d 50  |=P%+1.........=P|
00001bd0  41 53 53 0d 14 96 6d dc  20 26 33 31 2c 26 35 39  |ASS...m. &31,&59|
00001be0  2c 26 38 31 2c 26 41 39  2c 26 44 31 2c 26 46 39  |,&81,&A9,&D1,&F9|
00001bf0  2c 26 32 31 2c 26 34 39  2c 26 37 31 2c 26 39 39  |,&21,&49,&71,&99|
00001c00  2c 26 43 31 2c 26 45 39  2c 26 31 31 2c 26 33 39  |,&C1,&E9,&11,&39|
00001c10  2c 26 36 31 2c 26 38 39  2c 26 38 39 2c 26 42 31  |,&61,&89,&89,&B1|
00001c20  2c 26 44 39 2c 26 30 31  2c 26 32 39 2c 26 35 31  |,&D9,&01,&29,&51|
00001c30  2c 26 37 39 2c 26 41 31  2c 26 43 39 2c 26 46 31  |,&79,&A1,&C9,&F1|
00001c40  0d 14 a0 0d dd 20 a4 74  32 64 61 74 61 0d 14 aa  |..... .t2data...|
00001c50  0a f7 20 8d 64 5c 54 0d  14 b4 0f e3 20 58 25 3d  |.. .d\T..... X%=|
00001c60  31 20 b8 20 32 35 0d 14  be 11 f3 20 3f 50 25 3a  |1 . 25..... ?P%:|
00001c70  50 25 3d 50 25 2b 31 0d  14 c8 05 ed 0d 14 d2 09  |P%=P%+1.........|
00001c80  3d 50 41 53 53 0d 14 dc  69 dc 20 26 35 38 2c 26  |=PASS...i. &58,&|
00001c90  35 38 2c 26 35 38 2c 26  35 38 2c 26 35 38 2c 26  |58,&58,&58,&58,&|
00001ca0  35 38 2c 26 35 39 2c 26  35 39 2c 26 35 39 2c 26  |58,&59,&59,&59,&|
00001cb0  35 39 2c 26 35 39 2c 26  35 39 2c 26 35 41 2c 26  |59,&59,&59,&5A,&|
00001cc0  35 41 2c 26 35 41 2c 26  35 41 2c 26 35 41 2c 26  |5A,&5A,&5A,&5A,&|
00001cd0  35 41 2c 26 35 42 2c 26  35 42 2c 26 35 42 2c 26  |5A,&5B,&5B,&5B,&|
00001ce0  35 42 2c 26 35 42 2c 26  35 42 2c 26 35 42 0d 14  |5B,&5B,&5B,&5B..|
00001cf0  e6 0d dd 20 a4 74 34 64  61 74 61 0d 14 f0 0a f7  |... .t4data.....|
00001d00  20 8d 54 62 55 0d 14 fa  0f e3 20 58 25 3d 31 20  | .TbU..... X%=1 |
00001d10  b8 20 33 32 0d 15 04 11  f3 20 3f 50 25 3a 50 25  |. 32..... ?P%:P%|
00001d20  3d 50 25 2b 31 0d 15 0e  05 ed 0d 15 18 09 3d 50  |=P%+1.........=P|
00001d30  41 53 53 0d 15 22 45 dc  20 30 2c 31 2c 31 2c 31  |ASS.."E. 0,1,1,1|
00001d40  2c 31 2c 31 2c 31 2c 31  2c 30 2c 30 2c 30 2c 30  |,1,1,1,1,0,0,0,0|
00001d50  2c 32 2c 33 2c 30 2c 30  2c 30 2c 34 2c 34 2c 34  |,2,3,0,0,0,4,4,4|
00001d60  2c 34 2c 34 2c 34 2c 34  2c 30 2c 35 2c 36 2c 30  |,4,4,4,4,0,5,6,0|
00001d70  2c 30 2c 30 2c 30 2c 30  0d ff                    |,0,0,0,0..|
00001d7a