Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape24a_acorn_eu_1991_june.wav » Demo

Demo

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 tapes » Electron_User » Electron_User_tape24a_acorn_eu_1991_june.wav
Filename: Demo
Read OK:
File size: 1AF2 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10 REM >Demo
   20 REM by Paul Carpenter
   30 REM (c) The Micro User
   40 :
   50 FORT=4TO6STEP2
   60 P%=&1FA:O%=&38FA
   70 [OPT T
   80 PHA:ADC&6C:JMP(DemoIII+&2C00)
   90 OPT FNw(spare):OPT FNw(brk)
  100 OPT FNw(irq1)
  110 OPT FNwaste
  120 .h OPT FNd(&9081898A)
  130 .index
  140 OPT FNd(&10204080)
  150 OPT FNd(&1020408)
  160 .scrlow
  170 OPT FNd(&03020100)
  180 OPT FNd(&07060504)
  190 OPT FNd(&43424140)
  200 OPT FNd(&47464544)
  210 .scrhigh
  220 OPT FNd(&71717171)
  230 OPT FNd(&71717171)
  240 OPT FNd(&72727272)
  250 OPT FNd(&72727272)
  260 OPT FNd(&59595959)
  270 OPT FNd(&59595959)
  280 .zpg
  290 OPT FNd(&400)
  300 OPT FNd(&40000000)
  310 OPT FNd(&11000)
  320 OPT FNd(0)
  330 OPT FNd(&88030000)
  340 .crtc
  350 OPT FNd(&2431283F)
  360 OPT FNd(&22200026)
  370 OPT FNd(&08200701)
  380 OPT FNw(11)
  390 .spare
  400 RTS
  410 .brk PLP:NOP:NOP:JMPlot
  420 .DemoIII OPT FNd(genesis+&2C00)
  430 .plus JSRrnd
  440 .and AND#1:BNEzero
  450 LDA#&FF:RTS
  460 .rnd EOR#&AA
  470 ASLA:EOR&FE64:ROLA:ROLA
  480 EOR&60:EOR&FE64:RTS
  490 .zero LDA#0:RTS
  500 .hex
  510 SEC:SBC#55:BMIjig:CMP#10:BCSyep
  520 .jig ADC#7:.yep RTS
  530 .genesis
  540 LDA#&FF:STA&92:LDA#&30:STA&93
  550 LDA#4:STA&61
  560 ASLA:STA&FE34:LDA&F4:STA&FE30
  570 LDA#&7F:STA&FE6E
  580 LDA#&A0:STA&FE6E
  590 LDX#1:STX&FE65
  600 LDA#&7D:STA&FE4E
  610 DEX:STX&FE6B:STX&FE64:STX&6E
  620 STX&6D
  630 LDA#&40:STA&FE6B
  640 LDY#7:SEI
  660 .loop LDA&2AF0,X:STA&1100,X
  670 LDA&2BF0,X:STA&1200,X
  680 LDA&2CF0,X:STA&1300,X:DEX:BNEloop
  690 .loop LDA&2E00,X:STA&200,X
  700 DEX:BNEloop:INCloop+&2C02
  710 INCloop+&2C05:DEY:BNEloop
  720 LDY#&28:TXA:.loop STA&5800,X
  730 DEX:BNEloop
  740 INCloop+&2C02:DEY:BNEloop
  750 LDX#13:.loop LDAcrtc,X
  760 STX&FE00:STA&FE01:DEX:BPLloop
  770 LDX#&0F:.loop
  780 LDAzpg,X:STA&80,X:DEX:BPLloop
  790 LDA#&07:JSRcol4
  800 LDA#&24:JSRcol4
  810 LDA#&83:JSRcol4
  820 LDA#&A0:JSRcol4
  830 CLI
  840 INX:.newstar
  850 JSRrnd:JSRand:STA&3F00,X
  860 JSRrnd:LSRA:PHP
  870 JSRrnd:JSRand:PLP:ASLA:STA&3F01,X
  880 LDA#&14:STA&3F02,X
  890 LDA#&80:STA&3F03,X
  900 JSRrnd:STA&3F04,X
  910 JSRrnd:STA&3F05,X
  920 LDA#&A0:STA&3F06,X
  930 LDA#&6C:STA&3F07,X
  940 LDA#0:STA&3F08,X
  950 JSRrnd:STA&3F09,X
  960 JSRrnd:STA&3F0A,X:.zapo
  970 TXA:CLC:ADC#11:TAX
  980 CPX#&FD:BNEnewstar
  990 LDA#&60:STAzapo
 1000 .lot
 1010 LDA&93:BEQoil:DEC&93:BNEst
 1020 LDA#&60:STApoke:JSRstars
 1030 LDX#0:STX&94:LDY#10:.loop
 1040 LDA&3500,X
 1050 STA&6300,X:DEX:BNEloop
 1060 INCloop+2:INCloop+5
 1070 DEY:BNEloop
 1080 LDA#&A2:STApoke:TYA:BEQoil
 1090 .st LDX#2:.loop1 LDA&60
 1100 .loop CMP&60:BEQloop
 1110 DEX:BNEloop1
 1120 JMPstars:.oil
 1130 LDY#7:.loop STA&7100,Y
 1140 DEY:BPLloop
 1150 LDA&81:STA&8D
 1160 LDA&92:STA&90
 1170 LDA&8A:BNEfg:DEC&8C:BNEfg
 1180 LDA&8B:STA&8A:.fg
 1190 LDA&88:CLC:ADC&8A:CMP#8:BCCg
 1200 SBC#8
 1210 INC&86:BNEg:INC&87:.g
 1220 STA&88:STA&85
 1230 LDA&86:STA&83:LDA&87:STA&84
 1240 LDA#40:STA&78
 1250 LDY#0:STY&76:STY&77
 1260 LDA#2:STA&7B
 1270 .well LDY#0:LDA(&83),Y:CMP#&0D
 1280 BEQis32:CMP#&7B:BEQFX:JMPnotFX
 1290 .FX
 1300 LDA&8A:STA&6F
 1310 INY:LDA(&83),Y:CMP#&65:BEQend
 1320 AND#7:STA&91
 1330 TAX:LDAh,X:TAX:INY:LDA(&83),Y
 1340 JSRhex:ASLA:ASLA:ASLA:ASLA
 1350 STA&7F:INY:LDA(&83),Y:JSRhex
 1360 ORA&7F:LDY&91:CPY#4:BCSgood
 1370 STA0,X
 1380 CPY#3:BNEfgo:STA&92:.fgo
 1390 CPX#&81:BNEbon:STA&8D
 1400 LDA&8E:STA&80:STA&82:.bon
 1410 LDA&8C:BNEjkl:LDA#&70:STA&8C
 1420 LDA&6F:STA&8B:.jkl
 1430 LDA&83:CLC:ADC#4:STA&83:STA&86
 1440 LDA&84:ADC#0:STA&84:STA&87
 1450 JMPwell
 1460 .is32 LDA#32:BNEnotFX
 1470 .end LDA#0:STA&86:STA&83
 1480 LDA#&40:STA&87:STA&84:BEQgood
 1490 JMPwell
 1500 .good
 1510 STA&7F:AND#&F0:CMP#&20:BEQfrt
 1520 LDA&7F:JSRusercol4:JMPbon
 1530 .frt LDA&7F:AND#15:STA&61:JMPbon
 1540 .notFX ASLA:ROL&7B
 1550 ASLA:ROL&7B:ASLA:ROL&7B:STA&7A
 1560 .loop
 1570 LDA#&88:STA&79:.loop1
 1580 LDA#0:STA&75
 1590 LDX&80:LDAsine,X:ASLA:ROL&75
 1600 ASLA:ROL&75:STA&74
 1610 LDA#0:SEC:SBC&74:STA&72
 1620 LDA#2:SBC&75:ASL&72:ROLA
 1630 ASL&72:ROLA:STA&73
 1640 .column
 1650 LDX&85:CPX#8:BCCok
 1660 LDA#0:STA&85
 1670 LDA#2:STA&7B
 1680 INC&83:BNEok2:INC&84:.ok2
 1690 LDY#0:LDA(&83),Y:CMP#&0D:BEQret
 1700 CMP#&7B:BNEnFX
 1710 INY:LDA(&83),Y:CMP#&32:BEQdftg
 1720 CMP#&65:BEQres
 1730 CMP#&33:BNEj:.dftg TAX
 1740 INY:LDA(&83),Y:JSRhex:ASLA:ASLA
 1750 ASLA:ASLA:STA&7F:INY:LDA(&83),Y
 1760 JSRhex:ORA&7F:CPX#&33
 1770 BEQghia:STA&8D:LDA&8E
 1780 STA&80:LDA&8E:SEC:SBC&8D:STA&8E
 1790 .j
 1800 LDA&83:CLC:ADC#4:STA&83
 1810 LDA&84:ADC#0:STA&84
 1820 JMPok2
 1830 .res LDA#0:STA&83:LDA#&40:STA&84
 1840 JMPok2
 1850 .ghia STA&90:JMPj
 1860 .ret LDA#32
 1870 .nFX ASLA:ROL&7B
 1880 ASLA:ROL&7B:ASLA:ROL&7B:STA&7A
 1890 .ok
 1900 LDX&85
 1910 LDAindex,X:STA&7C
 1920 LDY#0:LDX&73:.again
 1930 LDAscrlow,X:CLC:ADC&76:STA&70
 1940 LDAscrhigh,X:ADC&77:STA&71
 1950 LDA(&7A),Y:AND&7C:BEQnot:LDA&79
 1960 .not LDX#0:AND&90:ORA(&70,X)
 1970 STA(&70,X)
 1980 LDA&72:CLC:ADC&74:STA&72
 1990 LDA&73:ADC&75:STA&73:TAX
 2000 INY:CPY#8:BNEagain
 2010 LDA&85:CLC:ADC#1:STA&85
 2020 LDA&80:CLC:ADC&8D:STA&80
 2030 LSR&79:BCCgoloop1
 2040 LDA&76:CLC:ADC#8:STA&76:BNEd
 2050 INC&77:.d
 2060 LDA&76:STA&70:LDA&77:CLC:ADC#&71
 2070 STA&71:LDY#7:LDA#0:.loopy
 2080 STA(&70),Y:DEY:BPLloopy
 2090 LDA&70:CLC:ADC#&40:STA&70
 2100 LDA&71:ADC#1:STA&71
 2110 LDY#7:LDA#0:.loopy
 2120 STA(&70),Y:DEY:BPLloopy
 2130 DEC&78:BEQk:JMPloop
 2140 .goloop1 JMPloop1:.k
 2150 LDA&82:CLC:ADC&89:STA&80:STA&82
 2160 LDA&94:BEQpoke
 2170 .stars
 2180 LDA&60:.loop CMP&60:BEQloop
 2190 LDX#&F2:.loop
 2200 LDA&3F06,X:STA&70
 2210 LDA&3F07,X:STA&71
 2220 LDY#0:LDA&3F08,X:STA(&70),Y
 2230 TXA:SEC:SBC#11:TAX:BCSloop
 2240 .poke
 2250 LDX#0:.loop
 2260 LDA&3F09,X:CLC:ADC&3F04,X
 2270 STA&3F04,X:LDA&3F00,X
 2280 ADC&3F02,X:STA&3F02,X:STA&70
 2290 CMP#40:BCCew
 2300 JMPnew:.ew
 2310 LDA&3F0A,X:CLC:ADC&3F05,X
 2320 STA&3F05,X:LDA&3F01,X
 2330 ADC&3F03,X:STA&3F03,X:STA&71
 2340 RORA:EOR&3F01,X:BMInew
 2350 LDA&70:ASLA:ASLA:ASLA:STA&70
 2360 LDA#0:ROLA:STA&74
 2370 LDA&71:AND#7:ORA&70:STA&70
 2380 LDA&71:LSRA:LSRA:LSRA
 2390 STA&73
 2400 LDY#0:STY&72:LSRA:ROR&72
 2410 LSRA:ROR&72
 2420 ADC&73:ADC&74:STA&73
 2430 LDA&70:CLC:ADC&72:STA&72
 2440 STA&3F06,X
 2450 LDA&73:ADC#&58:STA&73:STA&3F07,X
 2460 LDY#0:LDA(&72),Y:STA&3F08,X:PHA
 2470 LDA&3F04,X:ASLA:ROLA:ROLA:AND#3
 2480 TAY:PLA:ANDpen1,Y:BNEkol
 2490 LDApen,Y:LDY#0:ORA(&72),Y
 2500 STA(&72),Y
 2510 .kol TXA:CLC:ADC#11:TAX:CPX#&FD
 2520 BEQglot:JMPloop:.glot LDA#&FF
 2530 STA&94:JMPlot
 2540 .new JSRnewstar:JMPkol
 2550 .pen OPT FNd(&1020408)
 2560 .pen1 OPT FNd(&11224488)
 2570 .irq1
 2580 LDA&FC:PHA
 2590 LDA&FE4D:BPLnotsys
 2600 DEC&60:LDA&FE41:LDA#&83:JSRcol4
 2610 LDA#0:STA&FE68
 2620 LDA#&2C:STA&FE69
 2630 DEC&6D:BPLnotsys:LDA#3:STA&6D
 2640 LDA&6E:EOR#1:STA&6E:ORA#&C4
 2650 STA&FE20:.notsys
 2660 LDA&FE6D:BMItimeout
 2670 PLA:RTI
 2680 .timeout LDA&FE68
 2690 LDA&61:EOR#&87:JSRcol4:PLA:RTI
 2700 RTS
 2710 .usercol4
 2720 PHA:EOR#7:AND#15:STA&00
 2730 PLA:LSRA:LSRA:LSRA:LSRA:TAX
 2740 LDAaid,X:ORA&00
 2750 .col4
 2760 STA&FE21:EOR#&10:STA&FE21
 2770 EOR#&40:STA&FE21:EOR#&10:STA&FE21
 2780 RTS
 2790 .aid OPT FNd(&A0802000)
 2800 .sine
 2810 ]NEXT
 2820 FORT=&3700 TO &37FF
 2830 T?sine=(SIN(T/128*PI)*50)+77
 2840 NEXT
 2850 *L.BackDrp 4000
 2860 *L.Message 4B00
 2870 *L.Charset 35F0
 2880 *SA."D.Demo02"35F0+1D00 2DFA 2AF0
 2890 END
 2900 DEF FNb(A)
 2910 ?O%=A:O%=O%+1:P%=P%+1:=T
 2920 DEF FNd(A)
 2930 !O%=A:O%=O%+4:P%=P%+4:=T
 2940 DEF FNw(A)
 2950 !O%=A:O%=O%+2:P%=P%+2:=T
 2960 DEF FNwaste
 2970 FORA=0 TO 10 STEP 2
 2980 A!O%=spare:NEXT
 2990 O%=O%+12:P%=P%+12:=T

 � >Demo
 � by Paul Carpenter
 � (c) The Micro User
( :
2
 �T=4�6�2
< P%=&1FA:O%=&38FA
F [OPT T
P" PHA:ADC&6C:JMP(DemoIII+&2C00)
Z OPT �w(spare):OPT �w(brk)
d OPT �w(irq1)
n OPT �waste
x .h OPT �d(&9081898A)
� .index
� OPT �d(&10204080)
� OPT �d(&1020408)
� .scrlow
� OPT �d(&03020100)
� OPT �d(&07060504)
� OPT �d(&43424140)
� OPT �d(&47464544)
�
 .scrhigh
� OPT �d(&71717171)
� OPT �d(&71717171)
� OPT �d(&72727272)
� OPT �d(&72727272)
 OPT �d(&59595959)
 OPT �d(&59595959)
	 .zpg
" OPT �d(&400)
, OPT �d(&40000000)
6 OPT �d(&11000)
@ OPT �d(0)
J OPT �d(&88030000)
T
 .crtc
^ OPT �d(&2431283F)
h OPT �d(&22200026)
r OPT �d(&08200701)
| OPT �w(11)
� .spare
� RTS
� .brk PLP:NOP:NOP:JMPlot
�# .DemoIII OPT �d(genesis+&2C00)
� .plus JSRrnd
� .and �#1:BNEzero
� LDA#&FF:RTS
� .rnd �#&AA
� ASLA:�&FE64:ROLA:ROLA
� �&60:�&FE64:RTS
� .zero LDA#0:RTS
�	 .hex
�$ SEC:SBC#55:BMIjig:CMP#10:BCSyep
 .jig ADC#7:.yep RTS

 .genesis
" LDA#&FF:STA&92:LDA#&30:STA&93
& LDA#4:STA&61
0" ASLA:STA&FE34:LDA&F4:STA&FE30
: LDA#&7F:STA&FE6E
D LDA#&A0:STA&FE6E
N LDX#1:STX&FE65
X LDA#&7D:STA&FE4E
b! DEX:STX&FE6B:STX&FE64:STX&6E
l STX&6D
v LDA#&40:STA&FE6B
� LDY#7:SEI
�  .loop LDA&2AF0,X:STA&1100,X
� LDA&2BF0,X:STA&1200,X
�& LDA&2CF0,X:STA&1300,X:DEX:BNEloop
� .loop LDA&2E00,X:STA&200,X
� DEX:BNEloop:INCloop+&2C02
� INCloop+&2C05:DEY:BNEloop
�! LDY#&28:TXA:.loop STA&5800,X
� DEX:BNEloop
� INCloop+&2C02:DEY:BNEloop
� LDX#13:.loop LDAcrtc,X
�" STX&FE00:STA&FE01:DEX:BPLloop
 LDX#&0F:.loop
" LDAzpg,X:STA&80,X:DEX:BPLloop
 LDA#&07:JSRcol4
  LDA#&24:JSRcol4
* LDA#&83:JSRcol4
4 LDA#&A0:JSRcol4
> CLI
H INX:.newstar
R JSRrnd:JSRand:STA&3F00,X
\ JSRrnd:LSRA:PHP
f& JSRrnd:JSRand:PLP:ASLA:STA&3F01,X
p LDA#&14:STA&3F02,X
z LDA#&80:STA&3F03,X
� JSRrnd:STA&3F04,X
� JSRrnd:STA&3F05,X
� LDA#&A0:STA&3F06,X
� LDA#&6C:STA&3F07,X
� LDA#0:STA&3F08,X
� JSRrnd:STA&3F09,X
� JSRrnd:STA&3F0A,X:.zapo
� TXA:CLC:ADC#11:TAX
� CPX#&FD:BNEnewstar
� LDA#&60:STAzapo
�	 .lot
� LDA&93:BEQoil:DEC&93:BNEst
� LDA#&60:STApoke:JSRstars
 LDX#0:STX&94:LDY#10:.loop
 LDA&3500,X
 STA&6300,X:DEX:BNEloop
$ INCloop+2:INCloop+5
. DEY:BNEloop
8 LDA#&A2:STApoke:TYA:BEQoil
B .st LDX#2:.loop1 LDA&60
L .loop CMP&60:BEQloop
V DEX:BNEloop1
` JMPstars:.oil
j LDY#7:.loop STA&7100,Y
t DEY:BPLloop
~ LDA&81:STA&8D
� LDA&92:STA&90
� LDA&8A:BNEfg:DEC&8C:BNEfg
� LDA&8B:STA&8A:.fg
�! LDA&88:CLC:ADC&8A:CMP#8:BCCg
�
 SBC#8
� INC&86:BNEg:INC&87:.g
� STA&88:STA&85
�  LDA&86:STA&83:LDA&87:STA&84
� LDA#40:STA&78
� LDY#0:STY&76:STY&77
� LDA#2:STA&7B
�# .well LDY#0:LDA(&83),Y:CMP#&0D
# BEQis32:CMP#&7B:BEQFX:JMPnotFX

 .FX
 LDA&8A:STA&6F
" INY:LDA(&83),Y:CMP#&65:BEQend
( �#7:STA&91
2" TAX:LDAh,X:TAX:INY:LDA(&83),Y
< JSRhex:ASLA:ASLA:ASLA:ASLA
F! STA&7F:INY:LDA(&83),Y:JSRhex
P �A&7F:LDY&91:CPY#4:BCSgood
Z STA0,X
d CPY#3:BNEfgo:STA&92:.fgo
n CPX#&81:BNEbon:STA&8D
x LDA&8E:STA&80:STA&82:.bon
�! LDA&8C:BNEjkl:LDA#&70:STA&8C
� LDA&6F:STA&8B:.jkl
�# LDA&83:CLC:ADC#4:STA&83:STA&86
� LDA&84:ADC#0:STA&84:STA&87
� JMPwell
� .is32 LDA#32:BNEnotFX
� .end LDA#0:STA&86:STA&83
�" LDA#&40:STA&87:STA&84:BEQgood
� JMPwell
�
 .good
�  STA&7F:�#&F0:CMP#&20:BEQfrt
� LDA&7F:JSRusercol4:JMPbon
�# .frt LDA&7F:�#15:STA&61:JMPbon
 .notFX ASLA:ROL&7B
# ASLA:ROL&7B:ASLA:ROL&7B:STA&7A

 .loop
" LDA#&88:STA&79:.loop1
, LDA#0:STA&75
6! LDX&80:LDAsine,X:ASLA:ROL&75
@ ASLA:ROL&75:STA&74
J LDA#0:SEC:SBC&74:STA&72
T LDA#2:SBC&75:ASL&72:ROLA
^ ASL&72:ROLA:STA&73
h .column
r LDX&85:CPX#8:BCCok
| LDA#0:STA&85
� LDA#2:STA&7B
� INC&83:BNEok2:INC&84:.ok2
�$ LDY#0:LDA(&83),Y:CMP#&0D:BEQret
� CMP#&7B:BNEnFX
�# INY:LDA(&83),Y:CMP#&32:BEQdftg
� CMP#&65:BEQres
� CMP#&33:BNEj:.dftg TAX
�$ INY:LDA(&83),Y:JSRhex:ASLA:ASLA
�$ ASLA:ASLA:STA&7F:INY:LDA(&83),Y
� JSRhex:�A&7F:CPX#&33
� BEQghia:STA&8D:LDA&8E
�$ STA&80:LDA&8E:SEC:SBC&8D:STA&8E
� .j
 LDA&83:CLC:ADC#4:STA&83
 LDA&84:ADC#0:STA&84
 JMPok2
&% .res LDA#0:STA&83:LDA#&40:STA&84
0 JMPok2
: .ghia STA&90:JMPj
D .ret LDA#32
N .nFX ASLA:ROL&7B
X# ASLA:ROL&7B:ASLA:ROL&7B:STA&7A
b .ok
l LDX&85
v LDAindex,X:STA&7C
� LDY#0:LDX&73:.again
�" LDAscrlow,X:CLC:ADC&76:STA&70
� LDAscrhigh,X:ADC&77:STA&71
�" LDA(&7A),Y:�&7C:BEQnot:LDA&79
� .not LDX#0:�&90:�A(&70,X)
� STA(&70,X)
� LDA&72:CLC:ADC&74:STA&72
� LDA&73:ADC&75:STA&73:TAX
� INY:CPY#8:BNEagain
� LDA&85:CLC:ADC#1:STA&85
� LDA&80:CLC:ADC&8D:STA&80
� LSR&79:BCCgoloop1
�! LDA&76:CLC:ADC#8:STA&76:BNEd
 INC&77:.d
% LDA&76:STA&70:LDA&77:CLC:ADC#&71
 STA&71:LDY#7:LDA#0:.loopy
  STA(&70),Y:DEY:BPLloopy
* LDA&70:CLC:ADC#&40:STA&70
4 LDA&71:ADC#1:STA&71
> LDY#7:LDA#0:.loopy
H STA(&70),Y:DEY:BPLloopy
R DEC&78:BEQk:JMPloop
\ .goloop1 JMPloop1:.k
f$ LDA&82:CLC:ADC&89:STA&80:STA&82
p LDA&94:BEQpoke
z .stars
�  LDA&60:.loop CMP&60:BEQloop
� LDX#&F2:.loop
� LDA&3F06,X:STA&70
� LDA&3F07,X:STA&71
�  LDY#0:LDA&3F08,X:STA(&70),Y
� TXA:SEC:SBC#11:TAX:BCSloop
�
 .poke
� LDX#0:.loop
� LDA&3F09,X:CLC:ADC&3F04,X
� STA&3F04,X:LDA&3F00,X
�! ADC&3F02,X:STA&3F02,X:STA&70
� CMP#40:BCCew
� JMPnew:.ew
	 LDA&3F0A,X:CLC:ADC&3F05,X
	 STA&3F05,X:LDA&3F01,X
	! ADC&3F03,X:STA&3F03,X:STA&71
	$ RORA:�&3F01,X:BMInew
	.! LDA&70:ASLA:ASLA:ASLA:STA&70
	8 LDA#0:ROLA:STA&74
	B LDA&71:�#7:�A&70:STA&70
	L LDA&71:LSRA:LSRA:LSRA
	V STA&73
	` LDY#0:STY&72:LSRA:ROR&72
	j LSRA:ROR&72
	t ADC&73:ADC&74:STA&73
	~ LDA&70:CLC:ADC&72:STA&72
	� STA&3F06,X
	�% LDA&73:ADC#&58:STA&73:STA&3F07,X
	�$ LDY#0:LDA(&72),Y:STA&3F08,X:PHA
	�" LDA&3F04,X:ASLA:ROLA:ROLA:�#3
	� TAY:PLA:�pen1,Y:BNEkol
	� LDApen,Y:LDY#0:�A(&72),Y
	� STA(&72),Y
	�$ .kol TXA:CLC:ADC#11:TAX:CPX#&FD
	�" BEQglot:JMPloop:.glot LDA#&FF
	� STA&94:JMPlot
	� .new JSRnewstar:JMPkol
	� .pen OPT �d(&1020408)
 .pen1 OPT �d(&11224488)


 .irq1
 LDA&FC:PHA
 LDA&FE4D:BPLnotsys
($ DEC&60:LDA&FE41:LDA#&83:JSRcol4
2 LDA#0:STA&FE68
< LDA#&2C:STA&FE69
F" DEC&6D:BPLnotsys:LDA#3:STA&6D
P LDA&6E:�#1:STA&6E:�A#&C4
Z STA&FE20:.notsys
d LDA&FE6D:BMItimeout
n PLA:RTI
x .timeout LDA&FE68
�! LDA&61:�#&87:JSRcol4:PLA:RTI
� RTS
� .usercol4
� PHA:�#7:�#15:STA&00
�  PLA:LSRA:LSRA:LSRA:LSRA:TAX
� LDAaid,X:�A&00
�
 .col4
� STA&FE21:�#&10:STA&FE21
�" �#&40:STA&FE21:�#&10:STA&FE21
� RTS
� .aid OPT �d(&A0802000)
�
 .sine
� ]�
 �T=&3700 � &37FF
 T?sine=(�(T/128*�)*50)+77
 �
" *L.BackDrp 4000
, *L.Message 4B00
6 *L.Charset 35F0
@& *SA."D.Demo02"35F0+1D00 2DFA 2AF0
J �
T � �b(A)
^ ?O%=A:O%=O%+1:P%=P%+1:=T
h � �d(A)
r !O%=A:O%=O%+4:P%=P%+4:=T
| � �w(A)
� !O%=A:O%=O%+2:P%=P%+2:=T
�
 � �waste
� �A=0 � 10 � 2
� A!O%=spare:�
� O%=O%+12:P%=P%+12:=T
�
00000000  0d 00 0a 0c 20 f4 20 3e  44 65 6d 6f 0d 00 14 18  |.... . >Demo....|
00000010  20 f4 20 62 79 20 50 61  75 6c 20 43 61 72 70 65  | . by Paul Carpe|
00000020  6e 74 65 72 0d 00 1e 19  20 f4 20 28 63 29 20 54  |nter.... . (c) T|
00000030  68 65 20 4d 69 63 72 6f  20 55 73 65 72 0d 00 28  |he Micro User..(|
00000040  06 20 3a 0d 00 32 0d 20  e3 54 3d 34 b8 36 88 32  |. :..2. .T=4.6.2|
00000050  0d 00 3c 15 20 50 25 3d  26 31 46 41 3a 4f 25 3d  |..<. P%=&1FA:O%=|
00000060  26 33 38 46 41 0d 00 46  0b 20 5b 4f 50 54 20 54  |&38FA..F. [OPT T|
00000070  0d 00 50 22 20 50 48 41  3a 41 44 43 26 36 43 3a  |..P" PHA:ADC&6C:|
00000080  4a 4d 50 28 44 65 6d 6f  49 49 49 2b 26 32 43 30  |JMP(DemoIII+&2C0|
00000090  30 29 0d 00 5a 1e 20 4f  50 54 20 a4 77 28 73 70  |0)..Z. OPT .w(sp|
000000a0  61 72 65 29 3a 4f 50 54  20 a4 77 28 62 72 6b 29  |are):OPT .w(brk)|
000000b0  0d 00 64 11 20 4f 50 54  20 a4 77 28 69 72 71 31  |..d. OPT .w(irq1|
000000c0  29 0d 00 6e 0f 20 4f 50  54 20 a4 77 61 73 74 65  |)..n. OPT .waste|
000000d0  0d 00 78 19 20 2e 68 20  4f 50 54 20 a4 64 28 26  |..x. .h OPT .d(&|
000000e0  39 30 38 31 38 39 38 41  29 0d 00 82 0b 20 2e 69  |9081898A).... .i|
000000f0  6e 64 65 78 0d 00 8c 16  20 4f 50 54 20 a4 64 28  |ndex.... OPT .d(|
00000100  26 31 30 32 30 34 30 38  30 29 0d 00 96 15 20 4f  |&10204080).... O|
00000110  50 54 20 a4 64 28 26 31  30 32 30 34 30 38 29 0d  |PT .d(&1020408).|
00000120  00 a0 0c 20 2e 73 63 72  6c 6f 77 0d 00 aa 16 20  |... .scrlow.... |
00000130  4f 50 54 20 a4 64 28 26  30 33 30 32 30 31 30 30  |OPT .d(&03020100|
00000140  29 0d 00 b4 16 20 4f 50  54 20 a4 64 28 26 30 37  |).... OPT .d(&07|
00000150  30 36 30 35 30 34 29 0d  00 be 16 20 4f 50 54 20  |060504).... OPT |
00000160  a4 64 28 26 34 33 34 32  34 31 34 30 29 0d 00 c8  |.d(&43424140)...|
00000170  16 20 4f 50 54 20 a4 64  28 26 34 37 34 36 34 35  |. OPT .d(&474645|
00000180  34 34 29 0d 00 d2 0d 20  2e 73 63 72 68 69 67 68  |44).... .scrhigh|
00000190  0d 00 dc 16 20 4f 50 54  20 a4 64 28 26 37 31 37  |.... OPT .d(&717|
000001a0  31 37 31 37 31 29 0d 00  e6 16 20 4f 50 54 20 a4  |17171).... OPT .|
000001b0  64 28 26 37 31 37 31 37  31 37 31 29 0d 00 f0 16  |d(&71717171)....|
000001c0  20 4f 50 54 20 a4 64 28  26 37 32 37 32 37 32 37  | OPT .d(&7272727|
000001d0  32 29 0d 00 fa 16 20 4f  50 54 20 a4 64 28 26 37  |2).... OPT .d(&7|
000001e0  32 37 32 37 32 37 32 29  0d 01 04 16 20 4f 50 54  |2727272).... OPT|
000001f0  20 a4 64 28 26 35 39 35  39 35 39 35 39 29 0d 01  | .d(&59595959)..|
00000200  0e 16 20 4f 50 54 20 a4  64 28 26 35 39 35 39 35  |.. OPT .d(&59595|
00000210  39 35 39 29 0d 01 18 09  20 2e 7a 70 67 0d 01 22  |959).... .zpg.."|
00000220  11 20 4f 50 54 20 a4 64  28 26 34 30 30 29 0d 01  |. OPT .d(&400)..|
00000230  2c 16 20 4f 50 54 20 a4  64 28 26 34 30 30 30 30  |,. OPT .d(&40000|
00000240  30 30 30 29 0d 01 36 13  20 4f 50 54 20 a4 64 28  |000)..6. OPT .d(|
00000250  26 31 31 30 30 30 29 0d  01 40 0e 20 4f 50 54 20  |&11000)..@. OPT |
00000260  a4 64 28 30 29 0d 01 4a  16 20 4f 50 54 20 a4 64  |.d(0)..J. OPT .d|
00000270  28 26 38 38 30 33 30 30  30 30 29 0d 01 54 0a 20  |(&88030000)..T. |
00000280  2e 63 72 74 63 0d 01 5e  16 20 4f 50 54 20 a4 64  |.crtc..^. OPT .d|
00000290  28 26 32 34 33 31 32 38  33 46 29 0d 01 68 16 20  |(&2431283F)..h. |
000002a0  4f 50 54 20 a4 64 28 26  32 32 32 30 30 30 32 36  |OPT .d(&22200026|
000002b0  29 0d 01 72 16 20 4f 50  54 20 a4 64 28 26 30 38  |)..r. OPT .d(&08|
000002c0  32 30 30 37 30 31 29 0d  01 7c 0f 20 4f 50 54 20  |200701)..|. OPT |
000002d0  a4 77 28 31 31 29 0d 01  86 0b 20 2e 73 70 61 72  |.w(11).... .spar|
000002e0  65 0d 01 90 08 20 52 54  53 0d 01 9a 1c 20 2e 62  |e.... RTS.... .b|
000002f0  72 6b 20 50 4c 50 3a 4e  4f 50 3a 4e 4f 50 3a 4a  |rk PLP:NOP:NOP:J|
00000300  4d 50 6c 6f 74 0d 01 a4  23 20 2e 44 65 6d 6f 49  |MPlot...# .DemoI|
00000310  49 49 20 4f 50 54 20 a4  64 28 67 65 6e 65 73 69  |II OPT .d(genesi|
00000320  73 2b 26 32 43 30 30 29  0d 01 ae 11 20 2e 70 6c  |s+&2C00).... .pl|
00000330  75 73 20 4a 53 52 72 6e  64 0d 01 b8 15 20 2e 61  |us JSRrnd.... .a|
00000340  6e 64 20 80 23 31 3a 42  4e 45 7a 65 72 6f 0d 01  |nd .#1:BNEzero..|
00000350  c2 10 20 4c 44 41 23 26  46 46 3a 52 54 53 0d 01  |.. LDA#&FF:RTS..|
00000360  cc 0f 20 2e 72 6e 64 20  82 23 26 41 41 0d 01 d6  |.. .rnd .#&AA...|
00000370  1a 20 41 53 4c 41 3a 82  26 46 45 36 34 3a 52 4f  |. ASLA:.&FE64:RO|
00000380  4c 41 3a 52 4f 4c 41 0d  01 e0 14 20 82 26 36 30  |LA:ROLA.... .&60|
00000390  3a 82 26 46 45 36 34 3a  52 54 53 0d 01 ea 14 20  |:.&FE64:RTS.... |
000003a0  2e 7a 65 72 6f 20 4c 44  41 23 30 3a 52 54 53 0d  |.zero LDA#0:RTS.|
000003b0  01 f4 09 20 2e 68 65 78  0d 01 fe 24 20 53 45 43  |... .hex...$ SEC|
000003c0  3a 53 42 43 23 35 35 3a  42 4d 49 6a 69 67 3a 43  |:SBC#55:BMIjig:C|
000003d0  4d 50 23 31 30 3a 42 43  53 79 65 70 0d 02 08 18  |MP#10:BCSyep....|
000003e0  20 2e 6a 69 67 20 41 44  43 23 37 3a 2e 79 65 70  | .jig ADC#7:.yep|
000003f0  20 52 54 53 0d 02 12 0d  20 2e 67 65 6e 65 73 69  | RTS.... .genesi|
00000400  73 0d 02 1c 22 20 4c 44  41 23 26 46 46 3a 53 54  |s..." LDA#&FF:ST|
00000410  41 26 39 32 3a 4c 44 41  23 26 33 30 3a 53 54 41  |A&92:LDA#&30:STA|
00000420  26 39 33 0d 02 26 11 20  4c 44 41 23 34 3a 53 54  |&93..&. LDA#4:ST|
00000430  41 26 36 31 0d 02 30 22  20 41 53 4c 41 3a 53 54  |A&61..0" ASLA:ST|
00000440  41 26 46 45 33 34 3a 4c  44 41 26 46 34 3a 53 54  |A&FE34:LDA&F4:ST|
00000450  41 26 46 45 33 30 0d 02  3a 15 20 4c 44 41 23 26  |A&FE30..:. LDA#&|
00000460  37 46 3a 53 54 41 26 46  45 36 45 0d 02 44 15 20  |7F:STA&FE6E..D. |
00000470  4c 44 41 23 26 41 30 3a  53 54 41 26 46 45 36 45  |LDA#&A0:STA&FE6E|
00000480  0d 02 4e 13 20 4c 44 58  23 31 3a 53 54 58 26 46  |..N. LDX#1:STX&F|
00000490  45 36 35 0d 02 58 15 20  4c 44 41 23 26 37 44 3a  |E65..X. LDA#&7D:|
000004a0  53 54 41 26 46 45 34 45  0d 02 62 21 20 44 45 58  |STA&FE4E..b! DEX|
000004b0  3a 53 54 58 26 46 45 36  42 3a 53 54 58 26 46 45  |:STX&FE6B:STX&FE|
000004c0  36 34 3a 53 54 58 26 36  45 0d 02 6c 0b 20 53 54  |64:STX&6E..l. ST|
000004d0  58 26 36 44 0d 02 76 15  20 4c 44 41 23 26 34 30  |X&6D..v. LDA#&40|
000004e0  3a 53 54 41 26 46 45 36  42 0d 02 80 0e 20 4c 44  |:STA&FE6B.... LD|
000004f0  59 23 37 3a 53 45 49 0d  02 94 20 20 2e 6c 6f 6f  |Y#7:SEI...  .loo|
00000500  70 20 4c 44 41 26 32 41  46 30 2c 58 3a 53 54 41  |p LDA&2AF0,X:STA|
00000510  26 31 31 30 30 2c 58 0d  02 9e 1a 20 4c 44 41 26  |&1100,X.... LDA&|
00000520  32 42 46 30 2c 58 3a 53  54 41 26 31 32 30 30 2c  |2BF0,X:STA&1200,|
00000530  58 0d 02 a8 26 20 4c 44  41 26 32 43 46 30 2c 58  |X...& LDA&2CF0,X|
00000540  3a 53 54 41 26 31 33 30  30 2c 58 3a 44 45 58 3a  |:STA&1300,X:DEX:|
00000550  42 4e 45 6c 6f 6f 70 0d  02 b2 1f 20 2e 6c 6f 6f  |BNEloop.... .loo|
00000560  70 20 4c 44 41 26 32 45  30 30 2c 58 3a 53 54 41  |p LDA&2E00,X:STA|
00000570  26 32 30 30 2c 58 0d 02  bc 1e 20 44 45 58 3a 42  |&200,X.... DEX:B|
00000580  4e 45 6c 6f 6f 70 3a 49  4e 43 6c 6f 6f 70 2b 26  |NEloop:INCloop+&|
00000590  32 43 30 32 0d 02 c6 1e  20 49 4e 43 6c 6f 6f 70  |2C02.... INCloop|
000005a0  2b 26 32 43 30 35 3a 44  45 59 3a 42 4e 45 6c 6f  |+&2C05:DEY:BNElo|
000005b0  6f 70 0d 02 d0 21 20 4c  44 59 23 26 32 38 3a 54  |op...! LDY#&28:T|
000005c0  58 41 3a 2e 6c 6f 6f 70  20 53 54 41 26 35 38 30  |XA:.loop STA&580|
000005d0  30 2c 58 0d 02 da 10 20  44 45 58 3a 42 4e 45 6c  |0,X.... DEX:BNEl|
000005e0  6f 6f 70 0d 02 e4 1e 20  49 4e 43 6c 6f 6f 70 2b  |oop.... INCloop+|
000005f0  26 32 43 30 32 3a 44 45  59 3a 42 4e 45 6c 6f 6f  |&2C02:DEY:BNEloo|
00000600  70 0d 02 ee 1b 20 4c 44  58 23 31 33 3a 2e 6c 6f  |p.... LDX#13:.lo|
00000610  6f 70 20 4c 44 41 63 72  74 63 2c 58 0d 02 f8 22  |op LDAcrtc,X..."|
00000620  20 53 54 58 26 46 45 30  30 3a 53 54 41 26 46 45  | STX&FE00:STA&FE|
00000630  30 31 3a 44 45 58 3a 42  50 4c 6c 6f 6f 70 0d 03  |01:DEX:BPLloop..|
00000640  02 12 20 4c 44 58 23 26  30 46 3a 2e 6c 6f 6f 70  |.. LDX#&0F:.loop|
00000650  0d 03 0c 22 20 4c 44 41  7a 70 67 2c 58 3a 53 54  |..." LDAzpg,X:ST|
00000660  41 26 38 30 2c 58 3a 44  45 58 3a 42 50 4c 6c 6f  |A&80,X:DEX:BPLlo|
00000670  6f 70 0d 03 16 14 20 4c  44 41 23 26 30 37 3a 4a  |op.... LDA#&07:J|
00000680  53 52 63 6f 6c 34 0d 03  20 14 20 4c 44 41 23 26  |SRcol4.. . LDA#&|
00000690  32 34 3a 4a 53 52 63 6f  6c 34 0d 03 2a 14 20 4c  |24:JSRcol4..*. L|
000006a0  44 41 23 26 38 33 3a 4a  53 52 63 6f 6c 34 0d 03  |DA#&83:JSRcol4..|
000006b0  34 14 20 4c 44 41 23 26  41 30 3a 4a 53 52 63 6f  |4. LDA#&A0:JSRco|
000006c0  6c 34 0d 03 3e 08 20 43  4c 49 0d 03 48 11 20 49  |l4..>. CLI..H. I|
000006d0  4e 58 3a 2e 6e 65 77 73  74 61 72 0d 03 52 1d 20  |NX:.newstar..R. |
000006e0  4a 53 52 72 6e 64 3a 4a  53 52 61 6e 64 3a 53 54  |JSRrnd:JSRand:ST|
000006f0  41 26 33 46 30 30 2c 58  0d 03 5c 14 20 4a 53 52  |A&3F00,X..\. JSR|
00000700  72 6e 64 3a 4c 53 52 41  3a 50 48 50 0d 03 66 26  |rnd:LSRA:PHP..f&|
00000710  20 4a 53 52 72 6e 64 3a  4a 53 52 61 6e 64 3a 50  | JSRrnd:JSRand:P|
00000720  4c 50 3a 41 53 4c 41 3a  53 54 41 26 33 46 30 31  |LP:ASLA:STA&3F01|
00000730  2c 58 0d 03 70 17 20 4c  44 41 23 26 31 34 3a 53  |,X..p. LDA#&14:S|
00000740  54 41 26 33 46 30 32 2c  58 0d 03 7a 17 20 4c 44  |TA&3F02,X..z. LD|
00000750  41 23 26 38 30 3a 53 54  41 26 33 46 30 33 2c 58  |A#&80:STA&3F03,X|
00000760  0d 03 84 16 20 4a 53 52  72 6e 64 3a 53 54 41 26  |.... JSRrnd:STA&|
00000770  33 46 30 34 2c 58 0d 03  8e 16 20 4a 53 52 72 6e  |3F04,X.... JSRrn|
00000780  64 3a 53 54 41 26 33 46  30 35 2c 58 0d 03 98 17  |d:STA&3F05,X....|
00000790  20 4c 44 41 23 26 41 30  3a 53 54 41 26 33 46 30  | LDA#&A0:STA&3F0|
000007a0  36 2c 58 0d 03 a2 17 20  4c 44 41 23 26 36 43 3a  |6,X.... LDA#&6C:|
000007b0  53 54 41 26 33 46 30 37  2c 58 0d 03 ac 15 20 4c  |STA&3F07,X.... L|
000007c0  44 41 23 30 3a 53 54 41  26 33 46 30 38 2c 58 0d  |DA#0:STA&3F08,X.|
000007d0  03 b6 16 20 4a 53 52 72  6e 64 3a 53 54 41 26 33  |... JSRrnd:STA&3|
000007e0  46 30 39 2c 58 0d 03 c0  1c 20 4a 53 52 72 6e 64  |F09,X.... JSRrnd|
000007f0  3a 53 54 41 26 33 46 30  41 2c 58 3a 2e 7a 61 70  |:STA&3F0A,X:.zap|
00000800  6f 0d 03 ca 17 20 54 58  41 3a 43 4c 43 3a 41 44  |o.... TXA:CLC:AD|
00000810  43 23 31 31 3a 54 41 58  0d 03 d4 17 20 43 50 58  |C#11:TAX.... CPX|
00000820  23 26 46 44 3a 42 4e 45  6e 65 77 73 74 61 72 0d  |#&FD:BNEnewstar.|
00000830  03 de 14 20 4c 44 41 23  26 36 30 3a 53 54 41 7a  |... LDA#&60:STAz|
00000840  61 70 6f 0d 03 e8 09 20  2e 6c 6f 74 0d 03 f2 1f  |apo.... .lot....|
00000850  20 4c 44 41 26 39 33 3a  42 45 51 6f 69 6c 3a 44  | LDA&93:BEQoil:D|
00000860  45 43 26 39 33 3a 42 4e  45 73 74 0d 03 fc 1d 20  |EC&93:BNEst.... |
00000870  4c 44 41 23 26 36 30 3a  53 54 41 70 6f 6b 65 3a  |LDA#&60:STApoke:|
00000880  4a 53 52 73 74 61 72 73  0d 04 06 1e 20 4c 44 58  |JSRstars.... LDX|
00000890  23 30 3a 53 54 58 26 39  34 3a 4c 44 59 23 31 30  |#0:STX&94:LDY#10|
000008a0  3a 2e 6c 6f 6f 70 0d 04  10 0f 20 4c 44 41 26 33  |:.loop.... LDA&3|
000008b0  35 30 30 2c 58 0d 04 1a  1b 20 53 54 41 26 36 33  |500,X.... STA&63|
000008c0  30 30 2c 58 3a 44 45 58  3a 42 4e 45 6c 6f 6f 70  |00,X:DEX:BNEloop|
000008d0  0d 04 24 18 20 49 4e 43  6c 6f 6f 70 2b 32 3a 49  |..$. INCloop+2:I|
000008e0  4e 43 6c 6f 6f 70 2b 35  0d 04 2e 10 20 44 45 59  |NCloop+5.... DEY|
000008f0  3a 42 4e 45 6c 6f 6f 70  0d 04 38 1f 20 4c 44 41  |:BNEloop..8. LDA|
00000900  23 26 41 32 3a 53 54 41  70 6f 6b 65 3a 54 59 41  |#&A2:STApoke:TYA|
00000910  3a 42 45 51 6f 69 6c 0d  04 42 1c 20 2e 73 74 20  |:BEQoil..B. .st |
00000920  4c 44 58 23 32 3a 2e 6c  6f 6f 70 31 20 4c 44 41  |LDX#2:.loop1 LDA|
00000930  26 36 30 0d 04 4c 19 20  2e 6c 6f 6f 70 20 43 4d  |&60..L. .loop CM|
00000940  50 26 36 30 3a 42 45 51  6c 6f 6f 70 0d 04 56 11  |P&60:BEQloop..V.|
00000950  20 44 45 58 3a 42 4e 45  6c 6f 6f 70 31 0d 04 60  | DEX:BNEloop1..`|
00000960  12 20 4a 4d 50 73 74 61  72 73 3a 2e 6f 69 6c 0d  |. JMPstars:.oil.|
00000970  04 6a 1b 20 4c 44 59 23  37 3a 2e 6c 6f 6f 70 20  |.j. LDY#7:.loop |
00000980  53 54 41 26 37 31 30 30  2c 59 0d 04 74 10 20 44  |STA&7100,Y..t. D|
00000990  45 59 3a 42 50 4c 6c 6f  6f 70 0d 04 7e 12 20 4c  |EY:BPLloop..~. L|
000009a0  44 41 26 38 31 3a 53 54  41 26 38 44 0d 04 88 12  |DA&81:STA&8D....|
000009b0  20 4c 44 41 26 39 32 3a  53 54 41 26 39 30 0d 04  | LDA&92:STA&90..|
000009c0  92 1e 20 4c 44 41 26 38  41 3a 42 4e 45 66 67 3a  |.. LDA&8A:BNEfg:|
000009d0  44 45 43 26 38 43 3a 42  4e 45 66 67 0d 04 9c 16  |DEC&8C:BNEfg....|
000009e0  20 4c 44 41 26 38 42 3a  53 54 41 26 38 41 3a 2e  | LDA&8B:STA&8A:.|
000009f0  66 67 0d 04 a6 21 20 4c  44 41 26 38 38 3a 43 4c  |fg...! LDA&88:CL|
00000a00  43 3a 41 44 43 26 38 41  3a 43 4d 50 23 38 3a 42  |C:ADC&8A:CMP#8:B|
00000a10  43 43 67 0d 04 b0 0a 20  53 42 43 23 38 0d 04 ba  |CCg.... SBC#8...|
00000a20  1a 20 49 4e 43 26 38 36  3a 42 4e 45 67 3a 49 4e  |. INC&86:BNEg:IN|
00000a30  43 26 38 37 3a 2e 67 0d  04 c4 12 20 53 54 41 26  |C&87:.g.... STA&|
00000a40  38 38 3a 53 54 41 26 38  35 0d 04 ce 20 20 4c 44  |88:STA&85...  LD|
00000a50  41 26 38 36 3a 53 54 41  26 38 33 3a 4c 44 41 26  |A&86:STA&83:LDA&|
00000a60  38 37 3a 53 54 41 26 38  34 0d 04 d8 12 20 4c 44  |87:STA&84.... LD|
00000a70  41 23 34 30 3a 53 54 41  26 37 38 0d 04 e2 18 20  |A#40:STA&78.... |
00000a80  4c 44 59 23 30 3a 53 54  59 26 37 36 3a 53 54 59  |LDY#0:STY&76:STY|
00000a90  26 37 37 0d 04 ec 11 20  4c 44 41 23 32 3a 53 54  |&77.... LDA#2:ST|
00000aa0  41 26 37 42 0d 04 f6 23  20 2e 77 65 6c 6c 20 4c  |A&7B...# .well L|
00000ab0  44 59 23 30 3a 4c 44 41  28 26 38 33 29 2c 59 3a  |DY#0:LDA(&83),Y:|
00000ac0  43 4d 50 23 26 30 44 0d  05 00 23 20 42 45 51 69  |CMP#&0D...# BEQi|
00000ad0  73 33 32 3a 43 4d 50 23  26 37 42 3a 42 45 51 46  |s32:CMP#&7B:BEQF|
00000ae0  58 3a 4a 4d 50 6e 6f 74  46 58 0d 05 0a 08 20 2e  |X:JMPnotFX.... .|
00000af0  46 58 0d 05 14 12 20 4c  44 41 26 38 41 3a 53 54  |FX.... LDA&8A:ST|
00000b00  41 26 36 46 0d 05 1e 22  20 49 4e 59 3a 4c 44 41  |A&6F..." INY:LDA|
00000b10  28 26 38 33 29 2c 59 3a  43 4d 50 23 26 36 35 3a  |(&83),Y:CMP#&65:|
00000b20  42 45 51 65 6e 64 0d 05  28 0f 20 80 23 37 3a 53  |BEQend..(. .#7:S|
00000b30  54 41 26 39 31 0d 05 32  22 20 54 41 58 3a 4c 44  |TA&91..2" TAX:LD|
00000b40  41 68 2c 58 3a 54 41 58  3a 49 4e 59 3a 4c 44 41  |Ah,X:TAX:INY:LDA|
00000b50  28 26 38 33 29 2c 59 0d  05 3c 1f 20 4a 53 52 68  |(&83),Y..<. JSRh|
00000b60  65 78 3a 41 53 4c 41 3a  41 53 4c 41 3a 41 53 4c  |ex:ASLA:ASLA:ASL|
00000b70  41 3a 41 53 4c 41 0d 05  46 21 20 53 54 41 26 37  |A:ASLA..F! STA&7|
00000b80  46 3a 49 4e 59 3a 4c 44  41 28 26 38 33 29 2c 59  |F:INY:LDA(&83),Y|
00000b90  3a 4a 53 52 68 65 78 0d  05 50 1f 20 84 41 26 37  |:JSRhex..P. .A&7|
00000ba0  46 3a 4c 44 59 26 39 31  3a 43 50 59 23 34 3a 42  |F:LDY&91:CPY#4:B|
00000bb0  43 53 67 6f 6f 64 0d 05  5a 0b 20 53 54 41 30 2c  |CSgood..Z. STA0,|
00000bc0  58 0d 05 64 1d 20 43 50  59 23 33 3a 42 4e 45 66  |X..d. CPY#3:BNEf|
00000bd0  67 6f 3a 53 54 41 26 39  32 3a 2e 66 67 6f 0d 05  |go:STA&92:.fgo..|
00000be0  6e 1a 20 43 50 58 23 26  38 31 3a 42 4e 45 62 6f  |n. CPX#&81:BNEbo|
00000bf0  6e 3a 53 54 41 26 38 44  0d 05 78 1e 20 4c 44 41  |n:STA&8D..x. LDA|
00000c00  26 38 45 3a 53 54 41 26  38 30 3a 53 54 41 26 38  |&8E:STA&80:STA&8|
00000c10  32 3a 2e 62 6f 6e 0d 05  82 21 20 4c 44 41 26 38  |2:.bon...! LDA&8|
00000c20  43 3a 42 4e 45 6a 6b 6c  3a 4c 44 41 23 26 37 30  |C:BNEjkl:LDA#&70|
00000c30  3a 53 54 41 26 38 43 0d  05 8c 17 20 4c 44 41 26  |:STA&8C.... LDA&|
00000c40  36 46 3a 53 54 41 26 38  42 3a 2e 6a 6b 6c 0d 05  |6F:STA&8B:.jkl..|
00000c50  96 23 20 4c 44 41 26 38  33 3a 43 4c 43 3a 41 44  |.# LDA&83:CLC:AD|
00000c60  43 23 34 3a 53 54 41 26  38 33 3a 53 54 41 26 38  |C#4:STA&83:STA&8|
00000c70  36 0d 05 a0 1f 20 4c 44  41 26 38 34 3a 41 44 43  |6.... LDA&84:ADC|
00000c80  23 30 3a 53 54 41 26 38  34 3a 53 54 41 26 38 37  |#0:STA&84:STA&87|
00000c90  0d 05 aa 0c 20 4a 4d 50  77 65 6c 6c 0d 05 b4 1a  |.... JMPwell....|
00000ca0  20 2e 69 73 33 32 20 4c  44 41 23 33 32 3a 42 4e  | .is32 LDA#32:BN|
00000cb0  45 6e 6f 74 46 58 0d 05  be 1d 20 2e 65 6e 64 20  |EnotFX.... .end |
00000cc0  4c 44 41 23 30 3a 53 54  41 26 38 36 3a 53 54 41  |LDA#0:STA&86:STA|
00000cd0  26 38 33 0d 05 c8 22 20  4c 44 41 23 26 34 30 3a  |&83..." LDA#&40:|
00000ce0  53 54 41 26 38 37 3a 53  54 41 26 38 34 3a 42 45  |STA&87:STA&84:BE|
00000cf0  51 67 6f 6f 64 0d 05 d2  0c 20 4a 4d 50 77 65 6c  |Qgood.... JMPwel|
00000d00  6c 0d 05 dc 0a 20 2e 67  6f 6f 64 0d 05 e6 20 20  |l.... .good...  |
00000d10  53 54 41 26 37 46 3a 80  23 26 46 30 3a 43 4d 50  |STA&7F:.#&F0:CMP|
00000d20  23 26 32 30 3a 42 45 51  66 72 74 0d 05 f0 1e 20  |#&20:BEQfrt.... |
00000d30  4c 44 41 26 37 46 3a 4a  53 52 75 73 65 72 63 6f  |LDA&7F:JSRuserco|
00000d40  6c 34 3a 4a 4d 50 62 6f  6e 0d 05 fa 23 20 2e 66  |l4:JMPbon...# .f|
00000d50  72 74 20 4c 44 41 26 37  46 3a 80 23 31 35 3a 53  |rt LDA&7F:.#15:S|
00000d60  54 41 26 36 31 3a 4a 4d  50 62 6f 6e 0d 06 04 17  |TA&61:JMPbon....|
00000d70  20 2e 6e 6f 74 46 58 20  41 53 4c 41 3a 52 4f 4c  | .notFX ASLA:ROL|
00000d80  26 37 42 0d 06 0e 23 20  41 53 4c 41 3a 52 4f 4c  |&7B...# ASLA:ROL|
00000d90  26 37 42 3a 41 53 4c 41  3a 52 4f 4c 26 37 42 3a  |&7B:ASLA:ROL&7B:|
00000da0  53 54 41 26 37 41 0d 06  18 0a 20 2e 6c 6f 6f 70  |STA&7A.... .loop|
00000db0  0d 06 22 1a 20 4c 44 41  23 26 38 38 3a 53 54 41  |..". LDA#&88:STA|
00000dc0  26 37 39 3a 2e 6c 6f 6f  70 31 0d 06 2c 11 20 4c  |&79:.loop1..,. L|
00000dd0  44 41 23 30 3a 53 54 41  26 37 35 0d 06 36 21 20  |DA#0:STA&75..6! |
00000de0  4c 44 58 26 38 30 3a 4c  44 41 73 69 6e 65 2c 58  |LDX&80:LDAsine,X|
00000df0  3a 41 53 4c 41 3a 52 4f  4c 26 37 35 0d 06 40 17  |:ASLA:ROL&75..@.|
00000e00  20 41 53 4c 41 3a 52 4f  4c 26 37 35 3a 53 54 41  | ASLA:ROL&75:STA|
00000e10  26 37 34 0d 06 4a 1c 20  4c 44 41 23 30 3a 53 45  |&74..J. LDA#0:SE|
00000e20  43 3a 53 42 43 26 37 34  3a 53 54 41 26 37 32 0d  |C:SBC&74:STA&72.|
00000e30  06 54 1d 20 4c 44 41 23  32 3a 53 42 43 26 37 35  |.T. LDA#2:SBC&75|
00000e40  3a 41 53 4c 26 37 32 3a  52 4f 4c 41 0d 06 5e 17  |:ASL&72:ROLA..^.|
00000e50  20 41 53 4c 26 37 32 3a  52 4f 4c 41 3a 53 54 41  | ASL&72:ROLA:STA|
00000e60  26 37 33 0d 06 68 0c 20  2e 63 6f 6c 75 6d 6e 0d  |&73..h. .column.|
00000e70  06 72 17 20 4c 44 58 26  38 35 3a 43 50 58 23 38  |.r. LDX&85:CPX#8|
00000e80  3a 42 43 43 6f 6b 0d 06  7c 11 20 4c 44 41 23 30  |:BCCok..|. LDA#0|
00000e90  3a 53 54 41 26 38 35 0d  06 86 11 20 4c 44 41 23  |:STA&85.... LDA#|
00000ea0  32 3a 53 54 41 26 37 42  0d 06 90 1e 20 49 4e 43  |2:STA&7B.... INC|
00000eb0  26 38 33 3a 42 4e 45 6f  6b 32 3a 49 4e 43 26 38  |&83:BNEok2:INC&8|
00000ec0  34 3a 2e 6f 6b 32 0d 06  9a 24 20 4c 44 59 23 30  |4:.ok2...$ LDY#0|
00000ed0  3a 4c 44 41 28 26 38 33  29 2c 59 3a 43 4d 50 23  |:LDA(&83),Y:CMP#|
00000ee0  26 30 44 3a 42 45 51 72  65 74 0d 06 a4 13 20 43  |&0D:BEQret.... C|
00000ef0  4d 50 23 26 37 42 3a 42  4e 45 6e 46 58 0d 06 ae  |MP#&7B:BNEnFX...|
00000f00  23 20 49 4e 59 3a 4c 44  41 28 26 38 33 29 2c 59  |# INY:LDA(&83),Y|
00000f10  3a 43 4d 50 23 26 33 32  3a 42 45 51 64 66 74 67  |:CMP#&32:BEQdftg|
00000f20  0d 06 b8 13 20 43 4d 50  23 26 36 35 3a 42 45 51  |.... CMP#&65:BEQ|
00000f30  72 65 73 0d 06 c2 1b 20  43 4d 50 23 26 33 33 3a  |res.... CMP#&33:|
00000f40  42 4e 45 6a 3a 2e 64 66  74 67 20 54 41 58 0d 06  |BNEj:.dftg TAX..|
00000f50  cc 24 20 49 4e 59 3a 4c  44 41 28 26 38 33 29 2c  |.$ INY:LDA(&83),|
00000f60  59 3a 4a 53 52 68 65 78  3a 41 53 4c 41 3a 41 53  |Y:JSRhex:ASLA:AS|
00000f70  4c 41 0d 06 d6 24 20 41  53 4c 41 3a 41 53 4c 41  |LA...$ ASLA:ASLA|
00000f80  3a 53 54 41 26 37 46 3a  49 4e 59 3a 4c 44 41 28  |:STA&7F:INY:LDA(|
00000f90  26 38 33 29 2c 59 0d 06  e0 19 20 4a 53 52 68 65  |&83),Y.... JSRhe|
00000fa0  78 3a 84 41 26 37 46 3a  43 50 58 23 26 33 33 0d  |x:.A&7F:CPX#&33.|
00000fb0  06 ea 1a 20 42 45 51 67  68 69 61 3a 53 54 41 26  |... BEQghia:STA&|
00000fc0  38 44 3a 4c 44 41 26 38  45 0d 06 f4 24 20 53 54  |8D:LDA&8E...$ ST|
00000fd0  41 26 38 30 3a 4c 44 41  26 38 45 3a 53 45 43 3a  |A&80:LDA&8E:SEC:|
00000fe0  53 42 43 26 38 44 3a 53  54 41 26 38 45 0d 06 fe  |SBC&8D:STA&8E...|
00000ff0  07 20 2e 6a 0d 07 08 1c  20 4c 44 41 26 38 33 3a  |. .j.... LDA&83:|
00001000  43 4c 43 3a 41 44 43 23  34 3a 53 54 41 26 38 33  |CLC:ADC#4:STA&83|
00001010  0d 07 12 18 20 4c 44 41  26 38 34 3a 41 44 43 23  |.... LDA&84:ADC#|
00001020  30 3a 53 54 41 26 38 34  0d 07 1c 0b 20 4a 4d 50  |0:STA&84.... JMP|
00001030  6f 6b 32 0d 07 26 25 20  2e 72 65 73 20 4c 44 41  |ok2..&% .res LDA|
00001040  23 30 3a 53 54 41 26 38  33 3a 4c 44 41 23 26 34  |#0:STA&83:LDA#&4|
00001050  30 3a 53 54 41 26 38 34  0d 07 30 0b 20 4a 4d 50  |0:STA&84..0. JMP|
00001060  6f 6b 32 0d 07 3a 16 20  2e 67 68 69 61 20 53 54  |ok2..:. .ghia ST|
00001070  41 26 39 30 3a 4a 4d 50  6a 0d 07 44 10 20 2e 72  |A&90:JMPj..D. .r|
00001080  65 74 20 4c 44 41 23 33  32 0d 07 4e 15 20 2e 6e  |et LDA#32..N. .n|
00001090  46 58 20 41 53 4c 41 3a  52 4f 4c 26 37 42 0d 07  |FX ASLA:ROL&7B..|
000010a0  58 23 20 41 53 4c 41 3a  52 4f 4c 26 37 42 3a 41  |X# ASLA:ROL&7B:A|
000010b0  53 4c 41 3a 52 4f 4c 26  37 42 3a 53 54 41 26 37  |SLA:ROL&7B:STA&7|
000010c0  41 0d 07 62 08 20 2e 6f  6b 0d 07 6c 0b 20 4c 44  |A..b. .ok..l. LD|
000010d0  58 26 38 35 0d 07 76 16  20 4c 44 41 69 6e 64 65  |X&85..v. LDAinde|
000010e0  78 2c 58 3a 53 54 41 26  37 43 0d 07 80 18 20 4c  |x,X:STA&7C.... L|
000010f0  44 59 23 30 3a 4c 44 58  26 37 33 3a 2e 61 67 61  |DY#0:LDX&73:.aga|
00001100  69 6e 0d 07 8a 22 20 4c  44 41 73 63 72 6c 6f 77  |in..." LDAscrlow|
00001110  2c 58 3a 43 4c 43 3a 41  44 43 26 37 36 3a 53 54  |,X:CLC:ADC&76:ST|
00001120  41 26 37 30 0d 07 94 1f  20 4c 44 41 73 63 72 68  |A&70.... LDAscrh|
00001130  69 67 68 2c 58 3a 41 44  43 26 37 37 3a 53 54 41  |igh,X:ADC&77:STA|
00001140  26 37 31 0d 07 9e 22 20  4c 44 41 28 26 37 41 29  |&71..." LDA(&7A)|
00001150  2c 59 3a 80 26 37 43 3a  42 45 51 6e 6f 74 3a 4c  |,Y:.&7C:BEQnot:L|
00001160  44 41 26 37 39 0d 07 a8  1e 20 2e 6e 6f 74 20 4c  |DA&79.... .not L|
00001170  44 58 23 30 3a 80 26 39  30 3a 84 41 28 26 37 30  |DX#0:.&90:.A(&70|
00001180  2c 58 29 0d 07 b2 0f 20  53 54 41 28 26 37 30 2c  |,X).... STA(&70,|
00001190  58 29 0d 07 bc 1d 20 4c  44 41 26 37 32 3a 43 4c  |X).... LDA&72:CL|
000011a0  43 3a 41 44 43 26 37 34  3a 53 54 41 26 37 32 0d  |C:ADC&74:STA&72.|
000011b0  07 c6 1d 20 4c 44 41 26  37 33 3a 41 44 43 26 37  |... LDA&73:ADC&7|
000011c0  35 3a 53 54 41 26 37 33  3a 54 41 58 0d 07 d0 17  |5:STA&73:TAX....|
000011d0  20 49 4e 59 3a 43 50 59  23 38 3a 42 4e 45 61 67  | INY:CPY#8:BNEag|
000011e0  61 69 6e 0d 07 da 1c 20  4c 44 41 26 38 35 3a 43  |ain.... LDA&85:C|
000011f0  4c 43 3a 41 44 43 23 31  3a 53 54 41 26 38 35 0d  |LC:ADC#1:STA&85.|
00001200  07 e4 1d 20 4c 44 41 26  38 30 3a 43 4c 43 3a 41  |... LDA&80:CLC:A|
00001210  44 43 26 38 44 3a 53 54  41 26 38 30 0d 07 ee 16  |DC&8D:STA&80....|
00001220  20 4c 53 52 26 37 39 3a  42 43 43 67 6f 6c 6f 6f  | LSR&79:BCCgoloo|
00001230  70 31 0d 07 f8 21 20 4c  44 41 26 37 36 3a 43 4c  |p1...! LDA&76:CL|
00001240  43 3a 41 44 43 23 38 3a  53 54 41 26 37 36 3a 42  |C:ADC#8:STA&76:B|
00001250  4e 45 64 0d 08 02 0e 20  49 4e 43 26 37 37 3a 2e  |NEd.... INC&77:.|
00001260  64 0d 08 0c 25 20 4c 44  41 26 37 36 3a 53 54 41  |d...% LDA&76:STA|
00001270  26 37 30 3a 4c 44 41 26  37 37 3a 43 4c 43 3a 41  |&70:LDA&77:CLC:A|
00001280  44 43 23 26 37 31 0d 08  16 1e 20 53 54 41 26 37  |DC#&71.... STA&7|
00001290  31 3a 4c 44 59 23 37 3a  4c 44 41 23 30 3a 2e 6c  |1:LDY#7:LDA#0:.l|
000012a0  6f 6f 70 79 0d 08 20 1c  20 53 54 41 28 26 37 30  |oopy.. . STA(&70|
000012b0  29 2c 59 3a 44 45 59 3a  42 50 4c 6c 6f 6f 70 79  |),Y:DEY:BPLloopy|
000012c0  0d 08 2a 1e 20 4c 44 41  26 37 30 3a 43 4c 43 3a  |..*. LDA&70:CLC:|
000012d0  41 44 43 23 26 34 30 3a  53 54 41 26 37 30 0d 08  |ADC#&40:STA&70..|
000012e0  34 18 20 4c 44 41 26 37  31 3a 41 44 43 23 31 3a  |4. LDA&71:ADC#1:|
000012f0  53 54 41 26 37 31 0d 08  3e 17 20 4c 44 59 23 37  |STA&71..>. LDY#7|
00001300  3a 4c 44 41 23 30 3a 2e  6c 6f 6f 70 79 0d 08 48  |:LDA#0:.loopy..H|
00001310  1c 20 53 54 41 28 26 37  30 29 2c 59 3a 44 45 59  |. STA(&70),Y:DEY|
00001320  3a 42 50 4c 6c 6f 6f 70  79 0d 08 52 18 20 44 45  |:BPLloopy..R. DE|
00001330  43 26 37 38 3a 42 45 51  6b 3a 4a 4d 50 6c 6f 6f  |C&78:BEQk:JMPloo|
00001340  70 0d 08 5c 19 20 2e 67  6f 6c 6f 6f 70 31 20 4a  |p..\. .goloop1 J|
00001350  4d 50 6c 6f 6f 70 31 3a  2e 6b 0d 08 66 24 20 4c  |MPloop1:.k..f$ L|
00001360  44 41 26 38 32 3a 43 4c  43 3a 41 44 43 26 38 39  |DA&82:CLC:ADC&89|
00001370  3a 53 54 41 26 38 30 3a  53 54 41 26 38 32 0d 08  |:STA&80:STA&82..|
00001380  70 13 20 4c 44 41 26 39  34 3a 42 45 51 70 6f 6b  |p. LDA&94:BEQpok|
00001390  65 0d 08 7a 0b 20 2e 73  74 61 72 73 0d 08 84 20  |e..z. .stars... |
000013a0  20 4c 44 41 26 36 30 3a  2e 6c 6f 6f 70 20 43 4d  | LDA&60:.loop CM|
000013b0  50 26 36 30 3a 42 45 51  6c 6f 6f 70 0d 08 8e 12  |P&60:BEQloop....|
000013c0  20 4c 44 58 23 26 46 32  3a 2e 6c 6f 6f 70 0d 08  | LDX#&F2:.loop..|
000013d0  98 16 20 4c 44 41 26 33  46 30 36 2c 58 3a 53 54  |.. LDA&3F06,X:ST|
000013e0  41 26 37 30 0d 08 a2 16  20 4c 44 41 26 33 46 30  |A&70.... LDA&3F0|
000013f0  37 2c 58 3a 53 54 41 26  37 31 0d 08 ac 20 20 4c  |7,X:STA&71...  L|
00001400  44 59 23 30 3a 4c 44 41  26 33 46 30 38 2c 58 3a  |DY#0:LDA&3F08,X:|
00001410  53 54 41 28 26 37 30 29  2c 59 0d 08 b6 1f 20 54  |STA(&70),Y.... T|
00001420  58 41 3a 53 45 43 3a 53  42 43 23 31 31 3a 54 41  |XA:SEC:SBC#11:TA|
00001430  58 3a 42 43 53 6c 6f 6f  70 0d 08 c0 0a 20 2e 70  |X:BCSloop.... .p|
00001440  6f 6b 65 0d 08 ca 10 20  4c 44 58 23 30 3a 2e 6c  |oke.... LDX#0:.l|
00001450  6f 6f 70 0d 08 d4 1e 20  4c 44 41 26 33 46 30 39  |oop.... LDA&3F09|
00001460  2c 58 3a 43 4c 43 3a 41  44 43 26 33 46 30 34 2c  |,X:CLC:ADC&3F04,|
00001470  58 0d 08 de 1a 20 53 54  41 26 33 46 30 34 2c 58  |X.... STA&3F04,X|
00001480  3a 4c 44 41 26 33 46 30  30 2c 58 0d 08 e8 21 20  |:LDA&3F00,X...! |
00001490  41 44 43 26 33 46 30 32  2c 58 3a 53 54 41 26 33  |ADC&3F02,X:STA&3|
000014a0  46 30 32 2c 58 3a 53 54  41 26 37 30 0d 08 f2 11  |F02,X:STA&70....|
000014b0  20 43 4d 50 23 34 30 3a  42 43 43 65 77 0d 08 fc  | CMP#40:BCCew...|
000014c0  0f 20 4a 4d 50 6e 65 77  3a 2e 65 77 0d 09 06 1e  |. JMPnew:.ew....|
000014d0  20 4c 44 41 26 33 46 30  41 2c 58 3a 43 4c 43 3a  | LDA&3F0A,X:CLC:|
000014e0  41 44 43 26 33 46 30 35  2c 58 0d 09 10 1a 20 53  |ADC&3F05,X.... S|
000014f0  54 41 26 33 46 30 35 2c  58 3a 4c 44 41 26 33 46  |TA&3F05,X:LDA&3F|
00001500  30 31 2c 58 0d 09 1a 21  20 41 44 43 26 33 46 30  |01,X...! ADC&3F0|
00001510  33 2c 58 3a 53 54 41 26  33 46 30 33 2c 58 3a 53  |3,X:STA&3F03,X:S|
00001520  54 41 26 37 31 0d 09 24  19 20 52 4f 52 41 3a 82  |TA&71..$. RORA:.|
00001530  26 33 46 30 31 2c 58 3a  42 4d 49 6e 65 77 0d 09  |&3F01,X:BMInew..|
00001540  2e 21 20 4c 44 41 26 37  30 3a 41 53 4c 41 3a 41  |.! LDA&70:ASLA:A|
00001550  53 4c 41 3a 41 53 4c 41  3a 53 54 41 26 37 30 0d  |SLA:ASLA:STA&70.|
00001560  09 38 16 20 4c 44 41 23  30 3a 52 4f 4c 41 3a 53  |.8. LDA#0:ROLA:S|
00001570  54 41 26 37 34 0d 09 42  1c 20 4c 44 41 26 37 31  |TA&74..B. LDA&71|
00001580  3a 80 23 37 3a 84 41 26  37 30 3a 53 54 41 26 37  |:.#7:.A&70:STA&7|
00001590  30 0d 09 4c 1a 20 4c 44  41 26 37 31 3a 4c 53 52  |0..L. LDA&71:LSR|
000015a0  41 3a 4c 53 52 41 3a 4c  53 52 41 0d 09 56 0b 20  |A:LSRA:LSRA..V. |
000015b0  53 54 41 26 37 33 0d 09  60 1d 20 4c 44 59 23 30  |STA&73..`. LDY#0|
000015c0  3a 53 54 59 26 37 32 3a  4c 53 52 41 3a 52 4f 52  |:STY&72:LSRA:ROR|
000015d0  26 37 32 0d 09 6a 10 20  4c 53 52 41 3a 52 4f 52  |&72..j. LSRA:ROR|
000015e0  26 37 32 0d 09 74 19 20  41 44 43 26 37 33 3a 41  |&72..t. ADC&73:A|
000015f0  44 43 26 37 34 3a 53 54  41 26 37 33 0d 09 7e 1d  |DC&74:STA&73..~.|
00001600  20 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 26  | LDA&70:CLC:ADC&|
00001610  37 32 3a 53 54 41 26 37  32 0d 09 88 0f 20 53 54  |72:STA&72.... ST|
00001620  41 26 33 46 30 36 2c 58  0d 09 92 25 20 4c 44 41  |A&3F06,X...% LDA|
00001630  26 37 33 3a 41 44 43 23  26 35 38 3a 53 54 41 26  |&73:ADC#&58:STA&|
00001640  37 33 3a 53 54 41 26 33  46 30 37 2c 58 0d 09 9c  |73:STA&3F07,X...|
00001650  24 20 4c 44 59 23 30 3a  4c 44 41 28 26 37 32 29  |$ LDY#0:LDA(&72)|
00001660  2c 59 3a 53 54 41 26 33  46 30 38 2c 58 3a 50 48  |,Y:STA&3F08,X:PH|
00001670  41 0d 09 a6 22 20 4c 44  41 26 33 46 30 34 2c 58  |A..." LDA&3F04,X|
00001680  3a 41 53 4c 41 3a 52 4f  4c 41 3a 52 4f 4c 41 3a  |:ASLA:ROLA:ROLA:|
00001690  80 23 33 0d 09 b0 1b 20  54 41 59 3a 50 4c 41 3a  |.#3.... TAY:PLA:|
000016a0  80 70 65 6e 31 2c 59 3a  42 4e 45 6b 6f 6c 0d 09  |.pen1,Y:BNEkol..|
000016b0  ba 1d 20 4c 44 41 70 65  6e 2c 59 3a 4c 44 59 23  |.. LDApen,Y:LDY#|
000016c0  30 3a 84 41 28 26 37 32  29 2c 59 0d 09 c4 0f 20  |0:.A(&72),Y.... |
000016d0  53 54 41 28 26 37 32 29  2c 59 0d 09 ce 24 20 2e  |STA(&72),Y...$ .|
000016e0  6b 6f 6c 20 54 58 41 3a  43 4c 43 3a 41 44 43 23  |kol TXA:CLC:ADC#|
000016f0  31 31 3a 54 41 58 3a 43  50 58 23 26 46 44 0d 09  |11:TAX:CPX#&FD..|
00001700  d8 22 20 42 45 51 67 6c  6f 74 3a 4a 4d 50 6c 6f  |." BEQglot:JMPlo|
00001710  6f 70 3a 2e 67 6c 6f 74  20 4c 44 41 23 26 46 46  |op:.glot LDA#&FF|
00001720  0d 09 e2 12 20 53 54 41  26 39 34 3a 4a 4d 50 6c  |.... STA&94:JMPl|
00001730  6f 74 0d 09 ec 1b 20 2e  6e 65 77 20 4a 53 52 6e  |ot.... .new JSRn|
00001740  65 77 73 74 61 72 3a 4a  4d 50 6b 6f 6c 0d 09 f6  |ewstar:JMPkol...|
00001750  1a 20 2e 70 65 6e 20 4f  50 54 20 a4 64 28 26 31  |. .pen OPT .d(&1|
00001760  30 32 30 34 30 38 29 0d  0a 00 1c 20 2e 70 65 6e  |020408).... .pen|
00001770  31 20 4f 50 54 20 a4 64  28 26 31 31 32 32 34 34  |1 OPT .d(&112244|
00001780  38 38 29 0d 0a 0a 0a 20  2e 69 72 71 31 0d 0a 14  |88).... .irq1...|
00001790  0f 20 4c 44 41 26 46 43  3a 50 48 41 0d 0a 1e 17  |. LDA&FC:PHA....|
000017a0  20 4c 44 41 26 46 45 34  44 3a 42 50 4c 6e 6f 74  | LDA&FE4D:BPLnot|
000017b0  73 79 73 0d 0a 28 24 20  44 45 43 26 36 30 3a 4c  |sys..($ DEC&60:L|
000017c0  44 41 26 46 45 34 31 3a  4c 44 41 23 26 38 33 3a  |DA&FE41:LDA#&83:|
000017d0  4a 53 52 63 6f 6c 34 0d  0a 32 13 20 4c 44 41 23  |JSRcol4..2. LDA#|
000017e0  30 3a 53 54 41 26 46 45  36 38 0d 0a 3c 15 20 4c  |0:STA&FE68..<. L|
000017f0  44 41 23 26 32 43 3a 53  54 41 26 46 45 36 39 0d  |DA#&2C:STA&FE69.|
00001800  0a 46 22 20 44 45 43 26  36 44 3a 42 50 4c 6e 6f  |.F" DEC&6D:BPLno|
00001810  74 73 79 73 3a 4c 44 41  23 33 3a 53 54 41 26 36  |tsys:LDA#3:STA&6|
00001820  44 0d 0a 50 1d 20 4c 44  41 26 36 45 3a 82 23 31  |D..P. LDA&6E:.#1|
00001830  3a 53 54 41 26 36 45 3a  84 41 23 26 43 34 0d 0a  |:STA&6E:.A#&C4..|
00001840  5a 15 20 53 54 41 26 46  45 32 30 3a 2e 6e 6f 74  |Z. STA&FE20:.not|
00001850  73 79 73 0d 0a 64 18 20  4c 44 41 26 46 45 36 44  |sys..d. LDA&FE6D|
00001860  3a 42 4d 49 74 69 6d 65  6f 75 74 0d 0a 6e 0c 20  |:BMItimeout..n. |
00001870  50 4c 41 3a 52 54 49 0d  0a 78 16 20 2e 74 69 6d  |PLA:RTI..x. .tim|
00001880  65 6f 75 74 20 4c 44 41  26 46 45 36 38 0d 0a 82  |eout LDA&FE68...|
00001890  21 20 4c 44 41 26 36 31  3a 82 23 26 38 37 3a 4a  |! LDA&61:.#&87:J|
000018a0  53 52 63 6f 6c 34 3a 50  4c 41 3a 52 54 49 0d 0a  |SRcol4:PLA:RTI..|
000018b0  8c 08 20 52 54 53 0d 0a  96 0e 20 2e 75 73 65 72  |.. RTS.... .user|
000018c0  63 6f 6c 34 0d 0a a0 18  20 50 48 41 3a 82 23 37  |col4.... PHA:.#7|
000018d0  3a 80 23 31 35 3a 53 54  41 26 30 30 0d 0a aa 20  |:.#15:STA&00... |
000018e0  20 50 4c 41 3a 4c 53 52  41 3a 4c 53 52 41 3a 4c  | PLA:LSRA:LSRA:L|
000018f0  53 52 41 3a 4c 53 52 41  3a 54 41 58 0d 0a b4 13  |SRA:LSRA:TAX....|
00001900  20 4c 44 41 61 69 64 2c  58 3a 84 41 26 30 30 0d  | LDAaid,X:.A&00.|
00001910  0a be 0a 20 2e 63 6f 6c  34 0d 0a c8 1c 20 53 54  |... .col4.... ST|
00001920  41 26 46 45 32 31 3a 82  23 26 31 30 3a 53 54 41  |A&FE21:.#&10:STA|
00001930  26 46 45 32 31 0d 0a d2  22 20 82 23 26 34 30 3a  |&FE21..." .#&40:|
00001940  53 54 41 26 46 45 32 31  3a 82 23 26 31 30 3a 53  |STA&FE21:.#&10:S|
00001950  54 41 26 46 45 32 31 0d  0a dc 08 20 52 54 53 0d  |TA&FE21.... RTS.|
00001960  0a e6 1b 20 2e 61 69 64  20 4f 50 54 20 a4 64 28  |... .aid OPT .d(|
00001970  26 41 30 38 30 32 30 30  30 29 0d 0a f0 0a 20 2e  |&A0802000).... .|
00001980  73 69 6e 65 0d 0a fa 07  20 5d ed 0d 0b 04 15 20  |sine.... ]..... |
00001990  e3 54 3d 26 33 37 30 30  20 b8 20 26 33 37 46 46  |.T=&3700 . &37FF|
000019a0  0d 0b 0e 1e 20 54 3f 73  69 6e 65 3d 28 b5 28 54  |.... T?sine=(.(T|
000019b0  2f 31 32 38 2a af 29 2a  35 30 29 2b 37 37 0d 0b  |/128*.)*50)+77..|
000019c0  18 06 20 ed 0d 0b 22 14  20 2a 4c 2e 42 61 63 6b  |.. ...". *L.Back|
000019d0  44 72 70 20 34 30 30 30  0d 0b 2c 14 20 2a 4c 2e  |Drp 4000..,. *L.|
000019e0  4d 65 73 73 61 67 65 20  34 42 30 30 0d 0b 36 14  |Message 4B00..6.|
000019f0  20 2a 4c 2e 43 68 61 72  73 65 74 20 33 35 46 30  | *L.Charset 35F0|
00001a00  0d 0b 40 26 20 2a 53 41  2e 22 44 2e 44 65 6d 6f  |..@& *SA."D.Demo|
00001a10  30 32 22 33 35 46 30 2b  31 44 30 30 20 32 44 46  |02"35F0+1D00 2DF|
00001a20  41 20 32 41 46 30 0d 0b  4a 06 20 e0 0d 0b 54 0c  |A 2AF0..J. ...T.|
00001a30  20 dd 20 a4 62 28 41 29  0d 0b 5e 1d 20 3f 4f 25  | . .b(A)..^. ?O%|
00001a40  3d 41 3a 4f 25 3d 4f 25  2b 31 3a 50 25 3d 50 25  |=A:O%=O%+1:P%=P%|
00001a50  2b 31 3a 3d 54 0d 0b 68  0c 20 dd 20 a4 64 28 41  |+1:=T..h. . .d(A|
00001a60  29 0d 0b 72 1d 20 21 4f  25 3d 41 3a 4f 25 3d 4f  |)..r. !O%=A:O%=O|
00001a70  25 2b 34 3a 50 25 3d 50  25 2b 34 3a 3d 54 0d 0b  |%+4:P%=P%+4:=T..|
00001a80  7c 0c 20 dd 20 a4 77 28  41 29 0d 0b 86 1d 20 21  ||. . .w(A).... !|
00001a90  4f 25 3d 41 3a 4f 25 3d  4f 25 2b 32 3a 50 25 3d  |O%=A:O%=O%+2:P%=|
00001aa0  50 25 2b 32 3a 3d 54 0d  0b 90 0d 20 dd 20 a4 77  |P%+2:=T.... . .w|
00001ab0  61 73 74 65 0d 0b 9a 12  20 e3 41 3d 30 20 b8 20  |aste.... .A=0 . |
00001ac0  31 30 20 88 20 32 0d 0b  a4 11 20 41 21 4f 25 3d  |10 . 2.... A!O%=|
00001ad0  73 70 61 72 65 3a ed 0d  0b ae 19 20 4f 25 3d 4f  |spare:..... O%=O|
00001ae0  25 2b 31 32 3a 50 25 3d  50 25 2b 31 32 3a 3d 54  |%+12:P%=P%+12:=T|
00001af0  0d ff                                             |..|
00001af2
Demo.m0
Demo.m1
Demo.m2
Demo.m4
Demo.m5