Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » SAMPLES/MODE7

SAMPLES/MODE7

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF
Filename: SAMPLES/MODE7
Read OK:
File size: 1D7A bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM MODE 7 Simulater
   20REM By Robin Nixon
   30REM (C) Electron User
   40MODE6
   50screen0=&70
   60offset =&72
   70cursor =&74
   80oldvect=&80
   90wrchvct=&20E
  100char255=&CF8
  110buffer =&5800
  120table3 =&5C2D
  130oswrch =&FFEE
  140osword =&FFF1    
  150osbyte =&FFF4
  160FOR PASS=0 TO 2 STEP2
  170P%=&5000
  180[OPT PASS
  190.init
  200LDA wrchvct+1
  210CMP #start DIV &100
  220BEQ initend
  230STA oldvect+1
  240LDA wrchvct
  250STA oldvect
  260LDA #start MOD &100
  270STA wrchvct       
  280LDA #start DIV &100
  290STA &20F
  300LDA #blankout MOD&100
  310STA &220
  320LDA #blankout DIV&100
  330STA &221
  340\
  350.initend
  360JMP restore
  370\
  380.start
  390STA char
  400LDA flag:BNE quit 
  410LDA on2:BEQ start0
  420JMP cont
  430\
  440.start0   
  450LDA char
  460CMP #22
  470BNE start1
  480LDA #1
  490STA on1
  500\
  510.quit
  520LDA char:JMP(oldvect)
  530\
  540.start1
  550LDA on1:BEQ quit    
  560LDA char
  570AND #7
  580CMP #7
  590BCC reset
  600BNE quit
  610LDA #1
  620STA on2
  630STA flag
  640\
  650 .start1a
  660LDA #4:JSR oswrch
  670TXA:PHA
  680LDA #14
  690LDX #4
  700JSR osbyte
  710PLA:TAX
  720LDA #buffer MOD &100
  730STA &6:STA &4
  740LDA #buffer DIV &100
  750STA &7:STA &5     
  760LDA #8:STA &D0
  770LDA #29:STA &309
  780LDA #5:STA &30B
  790LDA #12:JSR oswrch
  800LDA #0:STA flag
  810JMP (oldvect)
  820\
  830.reset
  840TXA:PHA
  850LDA #13
  860LDX #4
  870JSR osbyte
  880PLA:TAX
  890LDA #0
  900STA on1
  910STA on2
  920JMP quit
  930\
  940.cont
  950LDA &26A:BNE quit
  960TYA:PHA:TXA:PHA
  970LDA char
  980CMP #22
  990BNE cont1
 1000LDA #0:STA on2
 1010JMP exit
 1020\
 1030.cont1
 1040LDA &D0
 1050AND #64
 1060BEQ notsep
 1070LDX &364
 1080LDY &365
 1090JMP curdone
 1100\
 1110.notsep
 1120LDX &318
 1130LDY &319
 1140\
 1150.curdone
 1160STX cursor
 1170STY cursor+1
 1180LDA cursor
 1190BEQ notfl2
 1200JSR restore
 1210\
 1220.notfl2
 1230LDA char
 1240CMP #12
 1250BNE notlf3
 1260LDA #1:STA flag  
 1270LDA #22:JSR oswrch
 1280LDA #13
 1290LDX #4
 1300JSR osbyte
 1310PLA:TAX:PLA:TAY
 1320JMP start1a 
 1330\
 1340.notlf3
 1350CMP #10
 1360BNE notlf
 1370LDA cursor+1
 1380CMP#29
 1390BNE notlf
 1400JSR scroll
 1410\
 1420.notlf
 1430CMP #32
 1440BCS notlf1
 1450JMP exit    
 1460\
 1470 .notlf1   
 1480LDA cursor+1
 1490SEC
 1500SBC #5
 1510TAY
 1520LDA table1,Y
 1530STA offset
 1540LDA table2,Y
 1550STA offset+1
 1560LDY cursor
 1570LDA char
 1580CMP #127
 1590BNE notfl1a  
 1600LDA #0
 1610\
 1620.notfl1a
 1630STA (offset),Y
 1640LDA cursor
 1650CMP #39
 1660BNE noscroll 
 1670LDA cursor+1
 1680CMP #29
 1690BNE noscroll
 1700JSR scroll
 1710\
 1720.noscroll 
 1730LDA char
 1740CMP #127
 1750BNE noscroll1
 1760JMP exit
 1770\
 1780.noscroll1
 1790LDA char
 1800CMP #128
 1810BCC notcode
 1820CMP #160
 1830BCS notcode
 1840LDA #32:STA char
 1850JMP exit
 1860\
 1870.notcode
 1880LDY #0
 1890\
 1900.lookback
 1910 LDA (offset),Y
 1920CMP #128
 1930BCC next
 1940CMP #160
 1950BCS next
 1960SEC
 1970SBC #128
 1980TAX      
 1990LDA table4,X
 2000BEQ next
 2010CMP #1:BNE code2
 2020LDA #0:STA graph
 2030JMP next
 2040\
 2050.code2
 2060CMP #2:BNE code3
 2070LDA #0:STA double
 2080JMP next
 2090\
 2100.code3
 2110CMP #3:BNE code4
 2120LDA #1:sta double
 2130LDX cursor+1
 2140SEC
 2150SBC #5
 2160LDA table3,X
 2170BNE code3a
 2180INX
 2190LDA #1
 2200STA table3,X
 2210LDA #0:STA topbot
 2220JMP next
 2230\
 2240.code3a
 2250LDA #1:STA topbot
 2260JMP next
 2270\
 2280.code4
 2290CMP #4:BNE code5
 2300LDA #1:STA graph
 2310JMP next
 2320\
 2330.code5
 2340CMP #5:BNE code6
 2350LDA #0:STA sepcont
 2360JMP next
 2370\
 2380.code6
 2390LDA #1:STA sepcont
 2400\
 2410.next
 2420INY
 2430CPY cursor
 2440BNE lookback
 2450LDA graph
 2460BEQ next1
 2470LDA char
 2480CMP #35:BEQ next1
 2490CMP #64:BCC gc
 2500CMP #95:BCC next1
 2510CMP #192:BCC gc    
 2520CMP #224:BCC next1
 2530\
 2540.gc
 2550LDA cursor
 2560BEQ next1
 2570JSR graphics
 2580LDA #&FF:STA char 
 2590JMP notspecial
 2600\
 2610.next1
 2620LDA char
 2630CMP #223
 2640BNE next1a
 2650LDA #35:STA char
 2660\
 2670.next1a  
 2680CMP #&FF
 2690BNE next1b
 2700JSR graphics
 2710LDA #&FF:STA char
 2720JMP notspecial
 2730\
 2740.next1b
 2750AND #&7F:STA char
 2760CMP #91:BCC next2
 2770CMP #96:BCS next2
 2780CLC
 2790 ADC #155
 2800STA char
 2810JMP notspecial
 2820\
 2830.next2
 2840CMP #123
 2850BCC notspecial
 2860CMP #127
 2870BCS notspecial 
 2880CLC
 2890ADC #128
 2900STA char
 2910\
 2920.notspecial     
 2930LDA double:BEQ exit
 2940LDA cursor:BEQ exit
 2950LDA char:STA buffer
 2960LDX #buffer MOD &100
 2970LDY #buffer DIV &100
 2980LDA #&A:JSR osword 
 2990LDX #0:LDY #0   
 3000LDA topbot:BEQ udc  
 3010LDY #4  
 3020\
 3030.udc
 3040LDA buffer+1,Y
 3050STA char255,X
 3060INX
 3070STA char255,X
 3080INX:INY
 3090CPX #8:BNE udc
 3100LDA #&FF:STA char
 3110\
 3120.exit
 3130PLA:TAX:PLA:TAY
 3140LDA char
 3150JMP (oldvect)
 3160\
 3170.graphics
 3180LDY #8
 3190LDA #0
 3200\
 3210.clear
 3220STA char255-1,Y
 3230DEY
 3240BNE clear
 3250LDA char
 3260AND #&7F
 3270SEC
 3280SBC #32
 3290CMP #32    
 3300BCC bit1 
 3310SEC     
 3320SBC #32  
 3330\        
 3340.bit1    
 3350STA char  
 3360LDA #1 
 3370BIT char 
 3380BEQ bit2  
 3390LDA char255 
 3400ORA #&F0  
 3410STA char255 
 3420LDA char255+1
 3430ORA #&F0
 3440STA char255+1
 3450LDA char255+2
 3460ORA #&F0
 3470STA char255+2
 3480\
 3490.bit2
 3500LDA #2
 3510BIT char
 3520BEQ bit3
 3530LDA char255
 3540ORA #&F
 3550STA char255
 3560LDA char255+1
 3570ORA #&F
 3580STA char255+1
 3590LDA char255+2
 3600ORA #&F
 3610STA char255+2
 3620\
 3630.bit3
 3640LDA #4
 3650BIT char
 3660BEQ bit4
 3670LDA char255+3
 3680ORA #&F0
 3690STA char255+3
 3700LDA char255+4   
 3710ORA #&F0
 3720STA char255+4
 3730\
 3740.bit4
 3750LDA #8
 3760BIT char
 3770BEQ bit5
 3780LDA char255+3
 3790ORA #&F
 3800STA char255+3
 3810LDA char255+4
 3820ORA #&F
 3830STA char255+4
 3840\
 3850.bit5
 3860LDA #16
 3870BIT char
 3880BEQ bit6
 3890LDA char255+5
 3900ORA #&F0
 3910STA char255+5
 3920LDA char255+6
 3930ORA #&F0
 3940STA char255+6
 3950LDA char255+7
 3960ORA #&F0   
 3970STA char255+7
 3980\
 3990.bit6
 4000LDA #32
 4010BIT char
 4020BEQ seperated
 4030LDA char255+5
 4040ORA #&F
 4050STA char255+5
 4060LDA char255+6   
 4070ORA #&F
 4080STA char255+6
 4090LDA char255+7
 4100ORA #&F
 4110STA char255+7
 4120\
 4130.seperated
 4140LDA sepcont
 4150BNE sep1
 4160RTS
 4170\
 4180.sep1
 4190LDY #8
 4200\
 4210.seploop
 4220LDA char255-1,Y
 4230AND #&77
 4240STA char255-1,Y
 4250DEY
 4260BNE seploop
 4270LDA #0
 4280STA char255+2
 4290STA char255+4
 4300STA char255+7
 4310RTS
 4320\
 4330.scroll
 4340TYA:PHA:TXA:PHA
 4350LDA #&31
 4360STA scroll1+1
 4370LDA #&09
 4380STA scroll1+4
 4390LDA #&58
 4400STA scroll1+2
 4410STA scroll1+5
 4420LDX #4
 4430LDY #0
 4440\
 4450.scroll1
 4460LDA &5831,Y
 4470STA &5809,Y
 4480INY
 4490BNE scroll1
 4500INC scroll1+2
 4510INC scroll1+5
 4520DEX
 4530BNE scroll1
 4540LDY #40
 4550\
 4560.scroll2
 4570LDA #0
 4580STA &5BF1,Y
 4590DEY
 4600BNE scroll2
 4610LDX #1
 4620LDY #0
 4630\
 4640.tabloop
 4650LDA table3.X
 4660STA table3,Y
 4670INX:INY
 4680CPY #40
 4690BNE tabloop
 4700PLA:TAX:PLA:TAY 
 4710\
 4720.restore
 4730LDA #0
 4740STA graph
 4750STA double
 4760STA sepcont
 4770RTS
 4780\
 4790.blankout
 4800PHP:PHA:TXA:PHA:TYA:PHA
 4810LDA #&FF
 4820STA &FE08
 4830STA &FE09
 4840LDX #178
 4850\
 4860.bpause
 4870LDY #5
 4880\
 4890.bloop
 4900DEY:BNE bloop
 4910DEX:BNE bpause
 4920LDA #16:STA &FE08
 4930LDA #17:STA &FE09
 4940PLA:TAY:PLA:TAX:PLA:PLP
 4950RTS
 4960\
 4970.char EQUB 0
 4980.sepcont EQUB 0
 4990.on1 EQUB 0
 5000.on2 EQUB 0
 5010.flag EQUB 0
 5020.graph EQUB 0
 5030.double EQUB 0
 5040.topbot EQUB 0
 5050.table1
 5060OPT FNt1data  
 5070.table2
 5080OPT FNt2data
 5090.table4
 5100OPT FNt4data
 5110]
 5120NEXT
 5130DATA 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     
 5140RESTORE 5130
 5150FOR X%=&CB0 TO &CF7
 5160READ ?X%
 5170NEXT
 5180CALL init
 5190MODE7
 5200END
 5210DEF FNt1data
 5220RESTORE 5270
 5230FOR X%=1 TO 25
 5240READ ?P%:P%=P%+1
 5250NEXT
 5260=PASS
 5270DATA &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
 5280DEF FNt2data
 5290RESTORE 5340
 5300FOR X%=1 TO 25
 5310READ ?P%:P%=P%+1
 5320NEXT
 5330=PASS
 5340DATA &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
 5350DEF FNt4data
 5360RESTORE 5410
 5370FOR X%=1 TO 32
 5380READ ?P%:P%=P%+1
 5390NEXT
 5400=PASS
 5410DATA 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

� 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
SAMPLES/MODE7.m0
SAMPLES/MODE7.m1
SAMPLES/MODE7.m2
SAMPLES/MODE7.m4
SAMPLES/MODE7.m5