� >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