D �     Starfield EUG                        by Dominic Ford 1997
 :
 ��DF@
( �>&1D00�A
21 �2:�=&2CD0:�23,1,0;0;0;0;:�ass:*LOAD TitData
< �start
F �
P :
Z
 ��ass
d= osword=&FFF1:osbyte=&FFF4:�pass=0�2�2:P%=&2CD0:[OPT pass
nd .start LDA#12:LDX#(coli � 256):LDY#(coli � 256):JSRosword:INCcoli:LDAcoli:CMP#16:BNEstart:JSRon
x� .program LDA#0:STAlinno:LDA#(text � 256):STA&74:LDA#(text � 256):STA&75:LDA#0:STApage:.pages JSRminc:JSRdopage:JSRwaic:JSRfade:INCpage:LDApage:CMP#3:BNEpages:JMPprogram
�� .dopage LDA#0:STAline:.pageloop LDXlinno:LDAspace,X:STAlen:JSRwrite:INClinno:INCline:LDAline:CMP#3:BNEpageloop:LDXclock:LDA&E000,X:�#7:BNEnotblack:LDA#1:.notblack STAofc:JSRwait:LDAofc:STAonc:STAflacyc+3:LDA#0:STAcycle:JMPmini
�� .write LDXline:LDA#0:STA&70:STAxc:LDAaddress,X:STA&71:.newchar LDA#0:STAx:JSRreaddef:LDXlen:.newline SEI:LDA#0:STAy:LDA&70:STA&72:LDA&71:STA&73:JSRgetdata
�f .next LSRbyte:BCCblank:LDAbts,X:STA&76:LDY#0:.loop LDA(&72),Y:�#&C0:STA(&72),Y:INY:CPY&76:BNEloop
�� .blank LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#2:STA&73:INCy:LDAy:CMP#8:BNEnext:INCx:LDA&70:CLC:ADCbts,X:STA&70:LDA&71:ADC#0:STA&71:LDAx:CMP#8:BNEnewline:CLI
�W INCxc:LDAxc:CMPchars,X:BNEnewchar:LDA&74:CLC:ADC#10:STA&74:LDA&75:ADC#0:STA&75:RTS
�\ .readdef LDYxc:LDA(&74),Y:STAascii:LDA#&A:LDX#(ascii � 256):LDY#(ascii � 256):JMPosword
�b .getdata LDY#8:LDXx:.getloop LDAascii,Y:�power,X:CMPpower,X:ROLbyte:DEY:BNEgetloop:LDXlen:RTS
Ȧ .mini JSRminw:JSRminw:RTS:.minw LDAclock:CLC:ADC#&80:.waitloop CMPclock:BNEwaitloop:LDA#&91:LDX#0:JSRosbyte:CPY#32:BNEnoe:JSRoff:PLA:PLA:PLA:PLA:PLA:PLA:.noe RTS
ґ .minc JSRmini:RTS:.waic JSRwait:RTS:.wait JSRminw:JSRminw:JSRminw:JSRminw:RTS:.fade LDA#0:STAofc:JSRwait:LDA#7:STAonc:LDA#5:STAcycle:JSRmini
�C .fade LDA#0:STAofc:JSRwait:LDA#7:STAonc:LDA#5:STAcycle:JSRmini
�y LDA#0:STA&70:LDA#&30:STA&71:LDY#0:.clear LDA(&70),Y:�#&3F:STA(&70),Y:INY:BNEclear:INC&71:LDA&71:CMP#&80:BNEclear:RTS
�j .on SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#(irq � 256):STA&204:LDA#(irq � 256):STA&205:CLI:RTS
�; .off SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS

o .irq INCclock:LDAclock:�#7:BNEirqend:TXA:PHA:TYA:PHA:JSRstars:JSRflash:PLA:TAY:PLA:TAX:.irqend JMP(vector)

� .flash LDXcycle:CPX#&FF:BEQendf:LDAflacyc,X:BEQoverf:STAcoli+1:LDA#8:STAcoli:LDA#12:LDX#(coli � 256):LDY#(coli � 256):JSRosword:INCcycle:.endf RTS:.overf LDA#&FF:STAcycle:RTS

� .stars INCb:LDAb:CMP#7:BCCnowrap:LDA#0:STAb:.nowrap CLC:ADC#1:STAcoli:LDA#7:STAcoli+1:LDA#12:LDX#(coli � 256):LDY#(coli � 256):JSRosword:LDAcoli:CLC:ADC#8:STAcoli:LDAonc:STAcoli+1

"7 LDA#12:LDX#(coli � 256):LDY#(coli � 256):JSRosword

,� LDAc:STAcoli:LDA#0:STAcoli+1:LDA#12:LDX#(coli � 256):LDY#(coli � 256):JSRosword:LDAb:CLC:ADC#1:STAc:LDAcoli:CLC:ADC#8:STAcoli:LDAofc:STAcoli+1:LDA#12:LDX#(coli � 256):LDY#(coli � 256):JMPosword

6� .text EQUS" Electron ":EQUS"   User   ":EQUS"Group     ":EQUS"  Issue:  ":EQUS"          ":EQUS"    31    ":EQUS"Press     ":EQUS"<SPACE> to":EQUS" continue "

@� .space EQUB0:EQUB0:EQUB1:EQUB0:EQUB0:EQUB0:EQUB1:EQUB0:EQUB0:.address EQUB&3A:EQUB&4E:EQUB&62:.power EQUB128:EQUB64:EQUB32:EQUB16:EQUB8:EQUB4:EQUB2:EQUB1:.flacyc EQUB4:EQUB6:EQUB7:EQUB0:EQUB0:EQUB7:EQUB6:EQUB4:EQUB16:EQUB0

J� .x EQUB0:.y EQUB0:.xc EQUB0:.len EQUB0:.byte EQUB0:.line EQUB0:.page EQUB0:.clock EQUB5:.vector EQUW0:.linno EQUB0:.bts EQUB8:EQUB16:.chars EQUB10:EQUB5:.ascii EQUB0:EQUD0:EQUD0:.b EQUB1:.c EQUB1:.coli EQUD0:EQUB0

T/ .ofc EQUB0:.onc EQUB7:.cycle EQUB&FF:]:�:�
�

00000000  0d 00 0a 44 20 f4 20 20  20 20 20 53 74 61 72 66  |...D .     Starf|
00000010  69 65 6c 64 20 45 55 47  20 20 20 20 20 20 20 20  |ield EUG        |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030  62 79 20 44 6f 6d 69 6e  69 63 20 46 6f 72 64 20  |by Dominic Ford |
00000040  31 39 39 37 0d 00 14 06  20 3a 0d 00 1e 0c 20 ee  |1997.... :.... .|
00000050  85 e5 8d 44 46 40 0d 00  28 0f 20 e7 90 3e 26 31  |...DF@..(. ..>&1|
00000060  44 30 30 8c 41 0d 00 32  31 20 eb 32 3a d3 3d 26  |D00.A..21 .2:.=&|
00000070  32 43 44 30 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |2CD0:.23,1,0;0;0|
00000080  3b 30 3b 3a f2 61 73 73  3a 2a 4c 4f 41 44 20 54  |;0;:.ass:*LOAD T|
00000090  69 74 44 61 74 61 0d 00  3c 0b 20 d6 73 74 61 72  |itData..<. .star|
000000a0  74 0d 00 46 06 20 e0 0d  00 50 06 20 3a 0d 00 5a  |t..F. ...P. :..Z|
000000b0  0a 20 dd f2 61 73 73 0d  00 64 3d 20 6f 73 77 6f  |. ..ass..d= oswo|
000000c0  72 64 3d 26 46 46 46 31  3a 6f 73 62 79 74 65 3d  |rd=&FFF1:osbyte=|
000000d0  26 46 46 46 34 3a e3 70  61 73 73 3d 30 b8 32 88  |&FFF4:.pass=0.2.|
000000e0  32 3a 50 25 3d 26 32 43  44 30 3a 5b 4f 50 54 20  |2:P%=&2CD0:[OPT |
000000f0  70 61 73 73 0d 00 6e 64  20 2e 73 74 61 72 74 20  |pass..nd .start |
00000100  4c 44 41 23 31 32 3a 4c  44 58 23 28 63 6f 6c 69  |LDA#12:LDX#(coli|
00000110  20 83 20 32 35 36 29 3a  4c 44 59 23 28 63 6f 6c  | . 256):LDY#(col|
00000120  69 20 81 20 32 35 36 29  3a 4a 53 52 6f 73 77 6f  |i . 256):JSRoswo|
00000130  72 64 3a 49 4e 43 63 6f  6c 69 3a 4c 44 41 63 6f  |rd:INCcoli:LDAco|
00000140  6c 69 3a 43 4d 50 23 31  36 3a 42 4e 45 73 74 61  |li:CMP#16:BNEsta|
00000150  72 74 3a 4a 53 52 6f 6e  0d 00 78 ad 20 2e 70 72  |rt:JSRon..x. .pr|
00000160  6f 67 72 61 6d 20 4c 44  41 23 30 3a 53 54 41 6c  |ogram LDA#0:STAl|
00000170  69 6e 6e 6f 3a 4c 44 41  23 28 74 65 78 74 20 83  |inno:LDA#(text .|
00000180  20 32 35 36 29 3a 53 54  41 26 37 34 3a 4c 44 41  | 256):STA&74:LDA|
00000190  23 28 74 65 78 74 20 81  20 32 35 36 29 3a 53 54  |#(text . 256):ST|
000001a0  41 26 37 35 3a 4c 44 41  23 30 3a 53 54 41 70 61  |A&75:LDA#0:STApa|
000001b0  67 65 3a 2e 70 61 67 65  73 20 4a 53 52 6d 69 6e  |ge:.pages JSRmin|
000001c0  63 3a 4a 53 52 64 6f 70  61 67 65 3a 4a 53 52 77  |c:JSRdopage:JSRw|
000001d0  61 69 63 3a 4a 53 52 66  61 64 65 3a 49 4e 43 70  |aic:JSRfade:INCp|
000001e0  61 67 65 3a 4c 44 41 70  61 67 65 3a 43 4d 50 23  |age:LDApage:CMP#|
000001f0  33 3a 42 4e 45 70 61 67  65 73 3a 4a 4d 50 70 72  |3:BNEpages:JMPpr|
00000200  6f 67 72 61 6d 0d 00 82  e7 20 2e 64 6f 70 61 67  |ogram.... .dopag|
00000210  65 20 4c 44 41 23 30 3a  53 54 41 6c 69 6e 65 3a  |e LDA#0:STAline:|
00000220  2e 70 61 67 65 6c 6f 6f  70 20 4c 44 58 6c 69 6e  |.pageloop LDXlin|
00000230  6e 6f 3a 4c 44 41 73 70  61 63 65 2c 58 3a 53 54  |no:LDAspace,X:ST|
00000240  41 6c 65 6e 3a 4a 53 52  77 72 69 74 65 3a 49 4e  |Alen:JSRwrite:IN|
00000250  43 6c 69 6e 6e 6f 3a 49  4e 43 6c 69 6e 65 3a 4c  |Clinno:INCline:L|
00000260  44 41 6c 69 6e 65 3a 43  4d 50 23 33 3a 42 4e 45  |DAline:CMP#3:BNE|
00000270  70 61 67 65 6c 6f 6f 70  3a 4c 44 58 63 6c 6f 63  |pageloop:LDXcloc|
00000280  6b 3a 4c 44 41 26 45 30  30 30 2c 58 3a 80 23 37  |k:LDA&E000,X:.#7|
00000290  3a 42 4e 45 6e 6f 74 62  6c 61 63 6b 3a 4c 44 41  |:BNEnotblack:LDA|
000002a0  23 31 3a 2e 6e 6f 74 62  6c 61 63 6b 20 53 54 41  |#1:.notblack STA|
000002b0  6f 66 63 3a 4a 53 52 77  61 69 74 3a 4c 44 41 6f  |ofc:JSRwait:LDAo|
000002c0  66 63 3a 53 54 41 6f 6e  63 3a 53 54 41 66 6c 61  |fc:STAonc:STAfla|
000002d0  63 79 63 2b 33 3a 4c 44  41 23 30 3a 53 54 41 63  |cyc+3:LDA#0:STAc|
000002e0  79 63 6c 65 3a 4a 4d 50  6d 69 6e 69 0d 00 8c 9f  |ycle:JMPmini....|
000002f0  20 2e 77 72 69 74 65 20  4c 44 58 6c 69 6e 65 3a  | .write LDXline:|
00000300  4c 44 41 23 30 3a 53 54  41 26 37 30 3a 53 54 41  |LDA#0:STA&70:STA|
00000310  78 63 3a 4c 44 41 61 64  64 72 65 73 73 2c 58 3a  |xc:LDAaddress,X:|
00000320  53 54 41 26 37 31 3a 2e  6e 65 77 63 68 61 72 20  |STA&71:.newchar |
00000330  4c 44 41 23 30 3a 53 54  41 78 3a 4a 53 52 72 65  |LDA#0:STAx:JSRre|
00000340  61 64 64 65 66 3a 4c 44  58 6c 65 6e 3a 2e 6e 65  |addef:LDXlen:.ne|
00000350  77 6c 69 6e 65 20 53 45  49 3a 4c 44 41 23 30 3a  |wline SEI:LDA#0:|
00000360  53 54 41 79 3a 4c 44 41  26 37 30 3a 53 54 41 26  |STAy:LDA&70:STA&|
00000370  37 32 3a 4c 44 41 26 37  31 3a 53 54 41 26 37 33  |72:LDA&71:STA&73|
00000380  3a 4a 53 52 67 65 74 64  61 74 61 0d 00 96 66 20  |:JSRgetdata...f |
00000390  2e 6e 65 78 74 20 4c 53  52 62 79 74 65 3a 42 43  |.next LSRbyte:BC|
000003a0  43 62 6c 61 6e 6b 3a 4c  44 41 62 74 73 2c 58 3a  |Cblank:LDAbts,X:|
000003b0  53 54 41 26 37 36 3a 4c  44 59 23 30 3a 2e 6c 6f  |STA&76:LDY#0:.lo|
000003c0  6f 70 20 4c 44 41 28 26  37 32 29 2c 59 3a 82 23  |op LDA(&72),Y:.#|
000003d0  26 43 30 3a 53 54 41 28  26 37 32 29 2c 59 3a 49  |&C0:STA(&72),Y:I|
000003e0  4e 59 3a 43 50 59 26 37  36 3a 42 4e 45 6c 6f 6f  |NY:CPY&76:BNEloo|
000003f0  70 0d 00 a0 9f 20 2e 62  6c 61 6e 6b 20 4c 44 41  |p.... .blank LDA|
00000400  26 37 32 3a 43 4c 43 3a  41 44 43 23 26 38 30 3a  |&72:CLC:ADC#&80:|
00000410  53 54 41 26 37 32 3a 4c  44 41 26 37 33 3a 41 44  |STA&72:LDA&73:AD|
00000420  43 23 32 3a 53 54 41 26  37 33 3a 49 4e 43 79 3a  |C#2:STA&73:INCy:|
00000430  4c 44 41 79 3a 43 4d 50  23 38 3a 42 4e 45 6e 65  |LDAy:CMP#8:BNEne|
00000440  78 74 3a 49 4e 43 78 3a  4c 44 41 26 37 30 3a 43  |xt:INCx:LDA&70:C|
00000450  4c 43 3a 41 44 43 62 74  73 2c 58 3a 53 54 41 26  |LC:ADCbts,X:STA&|
00000460  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
00000470  53 54 41 26 37 31 3a 4c  44 41 78 3a 43 4d 50 23  |STA&71:LDAx:CMP#|
00000480  38 3a 42 4e 45 6e 65 77  6c 69 6e 65 3a 43 4c 49  |8:BNEnewline:CLI|
00000490  0d 00 aa 57 20 49 4e 43  78 63 3a 4c 44 41 78 63  |...W INCxc:LDAxc|
000004a0  3a 43 4d 50 63 68 61 72  73 2c 58 3a 42 4e 45 6e  |:CMPchars,X:BNEn|
000004b0  65 77 63 68 61 72 3a 4c  44 41 26 37 34 3a 43 4c  |ewchar:LDA&74:CL|
000004c0  43 3a 41 44 43 23 31 30  3a 53 54 41 26 37 34 3a  |C:ADC#10:STA&74:|
000004d0  4c 44 41 26 37 35 3a 41  44 43 23 30 3a 53 54 41  |LDA&75:ADC#0:STA|
000004e0  26 37 35 3a 52 54 53 0d  00 b4 5c 20 2e 72 65 61  |&75:RTS...\ .rea|
000004f0  64 64 65 66 20 4c 44 59  78 63 3a 4c 44 41 28 26  |ddef LDYxc:LDA(&|
00000500  37 34 29 2c 59 3a 53 54  41 61 73 63 69 69 3a 4c  |74),Y:STAascii:L|
00000510  44 41 23 26 41 3a 4c 44  58 23 28 61 73 63 69 69  |DA#&A:LDX#(ascii|
00000520  20 83 20 32 35 36 29 3a  4c 44 59 23 28 61 73 63  | . 256):LDY#(asc|
00000530  69 69 20 81 20 32 35 36  29 3a 4a 4d 50 6f 73 77  |ii . 256):JMPosw|
00000540  6f 72 64 0d 00 be 62 20  2e 67 65 74 64 61 74 61  |ord...b .getdata|
00000550  20 4c 44 59 23 38 3a 4c  44 58 78 3a 2e 67 65 74  | LDY#8:LDXx:.get|
00000560  6c 6f 6f 70 20 4c 44 41  61 73 63 69 69 2c 59 3a  |loop LDAascii,Y:|
00000570  80 70 6f 77 65 72 2c 58  3a 43 4d 50 70 6f 77 65  |.power,X:CMPpowe|
00000580  72 2c 58 3a 52 4f 4c 62  79 74 65 3a 44 45 59 3a  |r,X:ROLbyte:DEY:|
00000590  42 4e 45 67 65 74 6c 6f  6f 70 3a 4c 44 58 6c 65  |BNEgetloop:LDXle|
000005a0  6e 3a 52 54 53 0d 00 c8  a6 20 2e 6d 69 6e 69 20  |n:RTS.... .mini |
000005b0  4a 53 52 6d 69 6e 77 3a  4a 53 52 6d 69 6e 77 3a  |JSRminw:JSRminw:|
000005c0  52 54 53 3a 2e 6d 69 6e  77 20 4c 44 41 63 6c 6f  |RTS:.minw LDAclo|
000005d0  63 6b 3a 43 4c 43 3a 41  44 43 23 26 38 30 3a 2e  |ck:CLC:ADC#&80:.|
000005e0  77 61 69 74 6c 6f 6f 70  20 43 4d 50 63 6c 6f 63  |waitloop CMPcloc|
000005f0  6b 3a 42 4e 45 77 61 69  74 6c 6f 6f 70 3a 4c 44  |k:BNEwaitloop:LD|
00000600  41 23 26 39 31 3a 4c 44  58 23 30 3a 4a 53 52 6f  |A#&91:LDX#0:JSRo|
00000610  73 62 79 74 65 3a 43 50  59 23 33 32 3a 42 4e 45  |sbyte:CPY#32:BNE|
00000620  6e 6f 65 3a 4a 53 52 6f  66 66 3a 50 4c 41 3a 50  |noe:JSRoff:PLA:P|
00000630  4c 41 3a 50 4c 41 3a 50  4c 41 3a 50 4c 41 3a 50  |LA:PLA:PLA:PLA:P|
00000640  4c 41 3a 2e 6e 6f 65 20  52 54 53 0d 00 d2 91 20  |LA:.noe RTS.... |
00000650  2e 6d 69 6e 63 20 4a 53  52 6d 69 6e 69 3a 52 54  |.minc JSRmini:RT|
00000660  53 3a 2e 77 61 69 63 20  4a 53 52 77 61 69 74 3a  |S:.waic JSRwait:|
00000670  52 54 53 3a 2e 77 61 69  74 20 4a 53 52 6d 69 6e  |RTS:.wait JSRmin|
00000680  77 3a 4a 53 52 6d 69 6e  77 3a 4a 53 52 6d 69 6e  |w:JSRminw:JSRmin|
00000690  77 3a 4a 53 52 6d 69 6e  77 3a 52 54 53 3a 2e 66  |w:JSRminw:RTS:.f|
000006a0  61 64 65 20 4c 44 41 23  30 3a 53 54 41 6f 66 63  |ade LDA#0:STAofc|
000006b0  3a 4a 53 52 77 61 69 74  3a 4c 44 41 23 37 3a 53  |:JSRwait:LDA#7:S|
000006c0  54 41 6f 6e 63 3a 4c 44  41 23 35 3a 53 54 41 63  |TAonc:LDA#5:STAc|
000006d0  79 63 6c 65 3a 4a 53 52  6d 69 6e 69 0d 00 dc 43  |ycle:JSRmini...C|
000006e0  20 2e 66 61 64 65 20 4c  44 41 23 30 3a 53 54 41  | .fade LDA#0:STA|
000006f0  6f 66 63 3a 4a 53 52 77  61 69 74 3a 4c 44 41 23  |ofc:JSRwait:LDA#|
00000700  37 3a 53 54 41 6f 6e 63  3a 4c 44 41 23 35 3a 53  |7:STAonc:LDA#5:S|
00000710  54 41 63 79 63 6c 65 3a  4a 53 52 6d 69 6e 69 0d  |TAcycle:JSRmini.|
00000720  00 e6 79 20 4c 44 41 23  30 3a 53 54 41 26 37 30  |..y LDA#0:STA&70|
00000730  3a 4c 44 41 23 26 33 30  3a 53 54 41 26 37 31 3a  |:LDA#&30:STA&71:|
00000740  4c 44 59 23 30 3a 2e 63  6c 65 61 72 20 4c 44 41  |LDY#0:.clear LDA|
00000750  28 26 37 30 29 2c 59 3a  80 23 26 33 46 3a 53 54  |(&70),Y:.#&3F:ST|
00000760  41 28 26 37 30 29 2c 59  3a 49 4e 59 3a 42 4e 45  |A(&70),Y:INY:BNE|
00000770  63 6c 65 61 72 3a 49 4e  43 26 37 31 3a 4c 44 41  |clear:INC&71:LDA|
00000780  26 37 31 3a 43 4d 50 23  26 38 30 3a 42 4e 45 63  |&71:CMP#&80:BNEc|
00000790  6c 65 61 72 3a 52 54 53  0d 00 f0 6a 20 2e 6f 6e  |lear:RTS...j .on|
000007a0  20 53 45 49 3a 4c 44 41  26 32 30 34 3a 53 54 41  | SEI:LDA&204:STA|
000007b0  76 65 63 74 6f 72 3a 4c  44 41 26 32 30 35 3a 53  |vector:LDA&205:S|
000007c0  54 41 76 65 63 74 6f 72  2b 31 3a 4c 44 41 23 28  |TAvector+1:LDA#(|
000007d0  69 72 71 20 83 20 32 35  36 29 3a 53 54 41 26 32  |irq . 256):STA&2|
000007e0  30 34 3a 4c 44 41 23 28  69 72 71 20 81 20 32 35  |04:LDA#(irq . 25|
000007f0  36 29 3a 53 54 41 26 32  30 35 3a 43 4c 49 3a 52  |6):STA&205:CLI:R|
00000800  54 53 0d 00 fa 3b 20 2e  6f 66 66 20 53 45 49 3a  |TS...; .off SEI:|
00000810  4c 44 41 76 65 63 74 6f  72 3a 53 54 41 26 32 30  |LDAvector:STA&20|
00000820  34 3a 4c 44 41 76 65 63  74 6f 72 2b 31 3a 53 54  |4:LDAvector+1:ST|
00000830  41 26 32 30 35 3a 43 4c  49 3a 52 54 53 0d 01 04  |A&205:CLI:RTS...|
00000840  6f 20 2e 69 72 71 20 49  4e 43 63 6c 6f 63 6b 3a  |o .irq INCclock:|
00000850  4c 44 41 63 6c 6f 63 6b  3a 80 23 37 3a 42 4e 45  |LDAclock:.#7:BNE|
00000860  69 72 71 65 6e 64 3a 54  58 41 3a 50 48 41 3a 54  |irqend:TXA:PHA:T|
00000870  59 41 3a 50 48 41 3a 4a  53 52 73 74 61 72 73 3a  |YA:PHA:JSRstars:|
00000880  4a 53 52 66 6c 61 73 68  3a 50 4c 41 3a 54 41 59  |JSRflash:PLA:TAY|
00000890  3a 50 4c 41 3a 54 41 58  3a 2e 69 72 71 65 6e 64  |:PLA:TAX:.irqend|
000008a0  20 4a 4d 50 28 76 65 63  74 6f 72 29 0d 01 0e b3  | JMP(vector)....|
000008b0  20 2e 66 6c 61 73 68 20  4c 44 58 63 79 63 6c 65  | .flash LDXcycle|
000008c0  3a 43 50 58 23 26 46 46  3a 42 45 51 65 6e 64 66  |:CPX#&FF:BEQendf|
000008d0  3a 4c 44 41 66 6c 61 63  79 63 2c 58 3a 42 45 51  |:LDAflacyc,X:BEQ|
000008e0  6f 76 65 72 66 3a 53 54  41 63 6f 6c 69 2b 31 3a  |overf:STAcoli+1:|
000008f0  4c 44 41 23 38 3a 53 54  41 63 6f 6c 69 3a 4c 44  |LDA#8:STAcoli:LD|
00000900  41 23 31 32 3a 4c 44 58  23 28 63 6f 6c 69 20 83  |A#12:LDX#(coli .|
00000910  20 32 35 36 29 3a 4c 44  59 23 28 63 6f 6c 69 20  | 256):LDY#(coli |
00000920  81 20 32 35 36 29 3a 4a  53 52 6f 73 77 6f 72 64  |. 256):JSRosword|
00000930  3a 49 4e 43 63 79 63 6c  65 3a 2e 65 6e 64 66 20  |:INCcycle:.endf |
00000940  52 54 53 3a 2e 6f 76 65  72 66 20 4c 44 41 23 26  |RTS:.overf LDA#&|
00000950  46 46 3a 53 54 41 63 79  63 6c 65 3a 52 54 53 0d  |FF:STAcycle:RTS.|
00000960  01 18 b8 20 2e 73 74 61  72 73 20 49 4e 43 62 3a  |... .stars INCb:|
00000970  4c 44 41 62 3a 43 4d 50  23 37 3a 42 43 43 6e 6f  |LDAb:CMP#7:BCCno|
00000980  77 72 61 70 3a 4c 44 41  23 30 3a 53 54 41 62 3a  |wrap:LDA#0:STAb:|
00000990  2e 6e 6f 77 72 61 70 20  43 4c 43 3a 41 44 43 23  |.nowrap CLC:ADC#|
000009a0  31 3a 53 54 41 63 6f 6c  69 3a 4c 44 41 23 37 3a  |1:STAcoli:LDA#7:|
000009b0  53 54 41 63 6f 6c 69 2b  31 3a 4c 44 41 23 31 32  |STAcoli+1:LDA#12|
000009c0  3a 4c 44 58 23 28 63 6f  6c 69 20 83 20 32 35 36  |:LDX#(coli . 256|
000009d0  29 3a 4c 44 59 23 28 63  6f 6c 69 20 81 20 32 35  |):LDY#(coli . 25|
000009e0  36 29 3a 4a 53 52 6f 73  77 6f 72 64 3a 4c 44 41  |6):JSRosword:LDA|
000009f0  63 6f 6c 69 3a 43 4c 43  3a 41 44 43 23 38 3a 53  |coli:CLC:ADC#8:S|
00000a00  54 41 63 6f 6c 69 3a 4c  44 41 6f 6e 63 3a 53 54  |TAcoli:LDAonc:ST|
00000a10  41 63 6f 6c 69 2b 31 0d  01 22 37 20 4c 44 41 23  |Acoli+1.."7 LDA#|
00000a20  31 32 3a 4c 44 58 23 28  63 6f 6c 69 20 83 20 32  |12:LDX#(coli . 2|
00000a30  35 36 29 3a 4c 44 59 23  28 63 6f 6c 69 20 81 20  |56):LDY#(coli . |
00000a40  32 35 36 29 3a 4a 53 52  6f 73 77 6f 72 64 0d 01  |256):JSRosword..|
00000a50  2c c6 20 4c 44 41 63 3a  53 54 41 63 6f 6c 69 3a  |,. LDAc:STAcoli:|
00000a60  4c 44 41 23 30 3a 53 54  41 63 6f 6c 69 2b 31 3a  |LDA#0:STAcoli+1:|
00000a70  4c 44 41 23 31 32 3a 4c  44 58 23 28 63 6f 6c 69  |LDA#12:LDX#(coli|
00000a80  20 83 20 32 35 36 29 3a  4c 44 59 23 28 63 6f 6c  | . 256):LDY#(col|
00000a90  69 20 81 20 32 35 36 29  3a 4a 53 52 6f 73 77 6f  |i . 256):JSRoswo|
00000aa0  72 64 3a 4c 44 41 62 3a  43 4c 43 3a 41 44 43 23  |rd:LDAb:CLC:ADC#|
00000ab0  31 3a 53 54 41 63 3a 4c  44 41 63 6f 6c 69 3a 43  |1:STAc:LDAcoli:C|
00000ac0  4c 43 3a 41 44 43 23 38  3a 53 54 41 63 6f 6c 69  |LC:ADC#8:STAcoli|
00000ad0  3a 4c 44 41 6f 66 63 3a  53 54 41 63 6f 6c 69 2b  |:LDAofc:STAcoli+|
00000ae0  31 3a 4c 44 41 23 31 32  3a 4c 44 58 23 28 63 6f  |1:LDA#12:LDX#(co|
00000af0  6c 69 20 83 20 32 35 36  29 3a 4c 44 59 23 28 63  |li . 256):LDY#(c|
00000b00  6f 6c 69 20 81 20 32 35  36 29 3a 4a 4d 50 6f 73  |oli . 256):JMPos|
00000b10  77 6f 72 64 0d 01 36 a3  20 2e 74 65 78 74 20 45  |word..6. .text E|
00000b20  51 55 53 22 20 45 6c 65  63 74 72 6f 6e 20 22 3a  |QUS" Electron ":|
00000b30  45 51 55 53 22 20 20 20  55 73 65 72 20 20 20 22  |EQUS"   User   "|
00000b40  3a 45 51 55 53 22 47 72  6f 75 70 20 20 20 20 20  |:EQUS"Group     |
00000b50  22 3a 45 51 55 53 22 20  20 49 73 73 75 65 3a 20  |":EQUS"  Issue: |
00000b60  20 22 3a 45 51 55 53 22  20 20 20 20 20 20 20 20  | ":EQUS"        |
00000b70  20 20 22 3a 45 51 55 53  22 20 20 20 20 33 31 20  |  ":EQUS"    31 |
00000b80  20 20 20 22 3a 45 51 55  53 22 50 72 65 73 73 20  |   ":EQUS"Press |
00000b90  20 20 20 20 22 3a 45 51  55 53 22 3c 53 50 41 43  |    ":EQUS"<SPAC|
00000ba0  45 3e 20 74 6f 22 3a 45  51 55 53 22 20 63 6f 6e  |E> to":EQUS" con|
00000bb0  74 69 6e 75 65 20 22 0d  01 40 e3 20 2e 73 70 61  |tinue "..@. .spa|
00000bc0  63 65 20 45 51 55 42 30  3a 45 51 55 42 30 3a 45  |ce EQUB0:EQUB0:E|
00000bd0  51 55 42 31 3a 45 51 55  42 30 3a 45 51 55 42 30  |QUB1:EQUB0:EQUB0|
00000be0  3a 45 51 55 42 30 3a 45  51 55 42 31 3a 45 51 55  |:EQUB0:EQUB1:EQU|
00000bf0  42 30 3a 45 51 55 42 30  3a 2e 61 64 64 72 65 73  |B0:EQUB0:.addres|
00000c00  73 20 45 51 55 42 26 33  41 3a 45 51 55 42 26 34  |s EQUB&3A:EQUB&4|
00000c10  45 3a 45 51 55 42 26 36  32 3a 2e 70 6f 77 65 72  |E:EQUB&62:.power|
00000c20  20 45 51 55 42 31 32 38  3a 45 51 55 42 36 34 3a  | EQUB128:EQUB64:|
00000c30  45 51 55 42 33 32 3a 45  51 55 42 31 36 3a 45 51  |EQUB32:EQUB16:EQ|
00000c40  55 42 38 3a 45 51 55 42  34 3a 45 51 55 42 32 3a  |UB8:EQUB4:EQUB2:|
00000c50  45 51 55 42 31 3a 2e 66  6c 61 63 79 63 20 45 51  |EQUB1:.flacyc EQ|
00000c60  55 42 34 3a 45 51 55 42  36 3a 45 51 55 42 37 3a  |UB4:EQUB6:EQUB7:|
00000c70  45 51 55 42 30 3a 45 51  55 42 30 3a 45 51 55 42  |EQUB0:EQUB0:EQUB|
00000c80  37 3a 45 51 55 42 36 3a  45 51 55 42 34 3a 45 51  |7:EQUB6:EQUB4:EQ|
00000c90  55 42 31 36 3a 45 51 55  42 30 0d 01 4a da 20 2e  |UB16:EQUB0..J. .|
00000ca0  78 20 45 51 55 42 30 3a  2e 79 20 45 51 55 42 30  |x EQUB0:.y EQUB0|
00000cb0  3a 2e 78 63 20 45 51 55  42 30 3a 2e 6c 65 6e 20  |:.xc EQUB0:.len |
00000cc0  45 51 55 42 30 3a 2e 62  79 74 65 20 45 51 55 42  |EQUB0:.byte EQUB|
00000cd0  30 3a 2e 6c 69 6e 65 20  45 51 55 42 30 3a 2e 70  |0:.line EQUB0:.p|
00000ce0  61 67 65 20 45 51 55 42  30 3a 2e 63 6c 6f 63 6b  |age EQUB0:.clock|
00000cf0  20 45 51 55 42 35 3a 2e  76 65 63 74 6f 72 20 45  | EQUB5:.vector E|
00000d00  51 55 57 30 3a 2e 6c 69  6e 6e 6f 20 45 51 55 42  |QUW0:.linno EQUB|
00000d10  30 3a 2e 62 74 73 20 45  51 55 42 38 3a 45 51 55  |0:.bts EQUB8:EQU|
00000d20  42 31 36 3a 2e 63 68 61  72 73 20 45 51 55 42 31  |B16:.chars EQUB1|
00000d30  30 3a 45 51 55 42 35 3a  2e 61 73 63 69 69 20 45  |0:EQUB5:.ascii E|
00000d40  51 55 42 30 3a 45 51 55  44 30 3a 45 51 55 44 30  |QUB0:EQUD0:EQUD0|
00000d50  3a 2e 62 20 45 51 55 42  31 3a 2e 63 20 45 51 55  |:.b EQUB1:.c EQU|
00000d60  42 31 3a 2e 63 6f 6c 69  20 45 51 55 44 30 3a 45  |B1:.coli EQUD0:E|
00000d70  51 55 42 30 0d 01 54 2f  20 2e 6f 66 63 20 45 51  |QUB0..T/ .ofc EQ|
00000d80  55 42 30 3a 2e 6f 6e 63  20 45 51 55 42 37 3a 2e  |UB0:.onc EQUB7:.|
00000d90  63 79 63 6c 65 20 45 51  55 42 26 46 46 3a 5d 3a  |cycle EQUB&FF:]:|
00000da0  ed 3a e1 0d ff                                    |.:...|
00000da5