D �     Starfield EUG                        by Dominic Ford 1997
:
��DF@
(�>&1D00�A
20�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
nc.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
�e.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
�VINCxc: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
�a.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
�B.fade LDA#0:STAofc:JSRwait:LDA#7:STAonc:LDA#5:STAcycle:JSRmini
�xLDA#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
�i.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

n.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

"4LDA#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

6j.text EQUS" Electron    User   Group       Issue:                31    Press     <SPACE> to 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 05  3a 0d 00 1e 0b ee 85 e5  |1997....:.......|
00000050  8d 44 46 40 0d 00 28 0e  e7 90 3e 26 31 44 30 30  |.DF@..(...>&1D00|
00000060  8c 41 0d 00 32 30 eb 32  3a d3 3d 26 32 43 44 30  |.A..20.2:.=&2CD0|
00000070  3a ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 3a  |:.23,1,0;0;0;0;:|
00000080  f2 61 73 73 3a 2a 4c 4f  41 44 20 54 69 74 44 61  |.ass:*LOAD TitDa|
00000090  74 61 0d 00 3c 0a d6 73  74 61 72 74 0d 00 46 05  |ta..<..start..F.|
000000a0  e0 0d 00 50 05 3a 0d 00  5a 09 dd f2 61 73 73 0d  |...P.:..Z...ass.|
000000b0  00 64 3c 6f 73 77 6f 72  64 3d 26 46 46 46 31 3a  |.d<osword=&FFF1:|
000000c0  6f 73 62 79 74 65 3d 26  46 46 46 34 3a e3 70 61  |osbyte=&FFF4:.pa|
000000d0  73 73 3d 30 b8 32 88 32  3a 50 25 3d 26 32 43 44  |ss=0.2.2:P%=&2CD|
000000e0  30 3a 5b 4f 50 54 20 70  61 73 73 0d 00 6e 63 2e  |0:[OPT pass..nc.|
000000f0  73 74 61 72 74 20 4c 44  41 23 31 32 3a 4c 44 58  |start LDA#12:LDX|
00000100  23 28 63 6f 6c 69 20 83  20 32 35 36 29 3a 4c 44  |#(coli . 256):LD|
00000110  59 23 28 63 6f 6c 69 20  81 20 32 35 36 29 3a 4a  |Y#(coli . 256):J|
00000120  53 52 6f 73 77 6f 72 64  3a 49 4e 43 63 6f 6c 69  |SRosword:INCcoli|
00000130  3a 4c 44 41 63 6f 6c 69  3a 43 4d 50 23 31 36 3a  |:LDAcoli:CMP#16:|
00000140  42 4e 45 73 74 61 72 74  3a 4a 53 52 6f 6e 0d 00  |BNEstart:JSRon..|
00000150  78 ac 2e 70 72 6f 67 72  61 6d 20 4c 44 41 23 30  |x..program LDA#0|
00000160  3a 53 54 41 6c 69 6e 6e  6f 3a 4c 44 41 23 28 74  |:STAlinno:LDA#(t|
00000170  65 78 74 20 83 20 32 35  36 29 3a 53 54 41 26 37  |ext . 256):STA&7|
00000180  34 3a 4c 44 41 23 28 74  65 78 74 20 81 20 32 35  |4:LDA#(text . 25|
00000190  36 29 3a 53 54 41 26 37  35 3a 4c 44 41 23 30 3a  |6):STA&75:LDA#0:|
000001a0  53 54 41 70 61 67 65 3a  2e 70 61 67 65 73 20 4a  |STApage:.pages J|
000001b0  53 52 6d 69 6e 63 3a 4a  53 52 64 6f 70 61 67 65  |SRminc:JSRdopage|
000001c0  3a 4a 53 52 77 61 69 63  3a 4a 53 52 66 61 64 65  |:JSRwaic:JSRfade|
000001d0  3a 49 4e 43 70 61 67 65  3a 4c 44 41 70 61 67 65  |:INCpage:LDApage|
000001e0  3a 43 4d 50 23 33 3a 42  4e 45 70 61 67 65 73 3a  |:CMP#3:BNEpages:|
000001f0  4a 4d 50 70 72 6f 67 72  61 6d 0d 00 82 e6 2e 64  |JMPprogram.....d|
00000200  6f 70 61 67 65 20 4c 44  41 23 30 3a 53 54 41 6c  |opage LDA#0:STAl|
00000210  69 6e 65 3a 2e 70 61 67  65 6c 6f 6f 70 20 4c 44  |ine:.pageloop LD|
00000220  58 6c 69 6e 6e 6f 3a 4c  44 41 73 70 61 63 65 2c  |Xlinno:LDAspace,|
00000230  58 3a 53 54 41 6c 65 6e  3a 4a 53 52 77 72 69 74  |X:STAlen:JSRwrit|
00000240  65 3a 49 4e 43 6c 69 6e  6e 6f 3a 49 4e 43 6c 69  |e:INClinno:INCli|
00000250  6e 65 3a 4c 44 41 6c 69  6e 65 3a 43 4d 50 23 33  |ne:LDAline:CMP#3|
00000260  3a 42 4e 45 70 61 67 65  6c 6f 6f 70 3a 4c 44 58  |:BNEpageloop:LDX|
00000270  63 6c 6f 63 6b 3a 4c 44  41 26 45 30 30 30 2c 58  |clock:LDA&E000,X|
00000280  3a 80 23 37 3a 42 4e 45  6e 6f 74 62 6c 61 63 6b  |:.#7:BNEnotblack|
00000290  3a 4c 44 41 23 31 3a 2e  6e 6f 74 62 6c 61 63 6b  |:LDA#1:.notblack|
000002a0  20 53 54 41 6f 66 63 3a  4a 53 52 77 61 69 74 3a  | STAofc:JSRwait:|
000002b0  4c 44 41 6f 66 63 3a 53  54 41 6f 6e 63 3a 53 54  |LDAofc:STAonc:ST|
000002c0  41 66 6c 61 63 79 63 2b  33 3a 4c 44 41 23 30 3a  |Aflacyc+3:LDA#0:|
000002d0  53 54 41 63 79 63 6c 65  3a 4a 4d 50 6d 69 6e 69  |STAcycle:JMPmini|
000002e0  0d 00 8c 9e 2e 77 72 69  74 65 20 4c 44 58 6c 69  |.....write LDXli|
000002f0  6e 65 3a 4c 44 41 23 30  3a 53 54 41 26 37 30 3a  |ne:LDA#0:STA&70:|
00000300  53 54 41 78 63 3a 4c 44  41 61 64 64 72 65 73 73  |STAxc:LDAaddress|
00000310  2c 58 3a 53 54 41 26 37  31 3a 2e 6e 65 77 63 68  |,X:STA&71:.newch|
00000320  61 72 20 4c 44 41 23 30  3a 53 54 41 78 3a 4a 53  |ar LDA#0:STAx:JS|
00000330  52 72 65 61 64 64 65 66  3a 4c 44 58 6c 65 6e 3a  |Rreaddef:LDXlen:|
00000340  2e 6e 65 77 6c 69 6e 65  20 53 45 49 3a 4c 44 41  |.newline SEI:LDA|
00000350  23 30 3a 53 54 41 79 3a  4c 44 41 26 37 30 3a 53  |#0:STAy:LDA&70:S|
00000360  54 41 26 37 32 3a 4c 44  41 26 37 31 3a 53 54 41  |TA&72:LDA&71:STA|
00000370  26 37 33 3a 4a 53 52 67  65 74 64 61 74 61 0d 00  |&73:JSRgetdata..|
00000380  96 65 2e 6e 65 78 74 20  4c 53 52 62 79 74 65 3a  |.e.next LSRbyte:|
00000390  42 43 43 62 6c 61 6e 6b  3a 4c 44 41 62 74 73 2c  |BCCblank:LDAbts,|
000003a0  58 3a 53 54 41 26 37 36  3a 4c 44 59 23 30 3a 2e  |X:STA&76:LDY#0:.|
000003b0  6c 6f 6f 70 20 4c 44 41  28 26 37 32 29 2c 59 3a  |loop LDA(&72),Y:|
000003c0  82 23 26 43 30 3a 53 54  41 28 26 37 32 29 2c 59  |.#&C0:STA(&72),Y|
000003d0  3a 49 4e 59 3a 43 50 59  26 37 36 3a 42 4e 45 6c  |:INY:CPY&76:BNEl|
000003e0  6f 6f 70 0d 00 a0 9e 2e  62 6c 61 6e 6b 20 4c 44  |oop.....blank LD|
000003f0  41 26 37 32 3a 43 4c 43  3a 41 44 43 23 26 38 30  |A&72:CLC:ADC#&80|
00000400  3a 53 54 41 26 37 32 3a  4c 44 41 26 37 33 3a 41  |:STA&72:LDA&73:A|
00000410  44 43 23 32 3a 53 54 41  26 37 33 3a 49 4e 43 79  |DC#2:STA&73:INCy|
00000420  3a 4c 44 41 79 3a 43 4d  50 23 38 3a 42 4e 45 6e  |:LDAy:CMP#8:BNEn|
00000430  65 78 74 3a 49 4e 43 78  3a 4c 44 41 26 37 30 3a  |ext:INCx:LDA&70:|
00000440  43 4c 43 3a 41 44 43 62  74 73 2c 58 3a 53 54 41  |CLC:ADCbts,X:STA|
00000450  26 37 30 3a 4c 44 41 26  37 31 3a 41 44 43 23 30  |&70:LDA&71:ADC#0|
00000460  3a 53 54 41 26 37 31 3a  4c 44 41 78 3a 43 4d 50  |:STA&71:LDAx:CMP|
00000470  23 38 3a 42 4e 45 6e 65  77 6c 69 6e 65 3a 43 4c  |#8:BNEnewline:CL|
00000480  49 0d 00 aa 56 49 4e 43  78 63 3a 4c 44 41 78 63  |I...VINCxc:LDAxc|
00000490  3a 43 4d 50 63 68 61 72  73 2c 58 3a 42 4e 45 6e  |:CMPchars,X:BNEn|
000004a0  65 77 63 68 61 72 3a 4c  44 41 26 37 34 3a 43 4c  |ewchar:LDA&74:CL|
000004b0  43 3a 41 44 43 23 31 30  3a 53 54 41 26 37 34 3a  |C:ADC#10:STA&74:|
000004c0  4c 44 41 26 37 35 3a 41  44 43 23 30 3a 53 54 41  |LDA&75:ADC#0:STA|
000004d0  26 37 35 3a 52 54 53 0d  00 b4 5b 2e 72 65 61 64  |&75:RTS...[.read|
000004e0  64 65 66 20 4c 44 59 78  63 3a 4c 44 41 28 26 37  |def LDYxc:LDA(&7|
000004f0  34 29 2c 59 3a 53 54 41  61 73 63 69 69 3a 4c 44  |4),Y:STAascii:LD|
00000500  41 23 26 41 3a 4c 44 58  23 28 61 73 63 69 69 20  |A#&A:LDX#(ascii |
00000510  83 20 32 35 36 29 3a 4c  44 59 23 28 61 73 63 69  |. 256):LDY#(asci|
00000520  69 20 81 20 32 35 36 29  3a 4a 4d 50 6f 73 77 6f  |i . 256):JMPoswo|
00000530  72 64 0d 00 be 61 2e 67  65 74 64 61 74 61 20 4c  |rd...a.getdata L|
00000540  44 59 23 38 3a 4c 44 58  78 3a 2e 67 65 74 6c 6f  |DY#8:LDXx:.getlo|
00000550  6f 70 20 4c 44 41 61 73  63 69 69 2c 59 3a 80 70  |op LDAascii,Y:.p|
00000560  6f 77 65 72 2c 58 3a 43  4d 50 70 6f 77 65 72 2c  |ower,X:CMPpower,|
00000570  58 3a 52 4f 4c 62 79 74  65 3a 44 45 59 3a 42 4e  |X:ROLbyte:DEY:BN|
00000580  45 67 65 74 6c 6f 6f 70  3a 4c 44 58 6c 65 6e 3a  |Egetloop:LDXlen:|
00000590  52 54 53 0d 00 c8 a5 2e  6d 69 6e 69 20 4a 53 52  |RTS.....mini JSR|
000005a0  6d 69 6e 77 3a 4a 53 52  6d 69 6e 77 3a 52 54 53  |minw:JSRminw:RTS|
000005b0  3a 2e 6d 69 6e 77 20 4c  44 41 63 6c 6f 63 6b 3a  |:.minw LDAclock:|
000005c0  43 4c 43 3a 41 44 43 23  26 38 30 3a 2e 77 61 69  |CLC:ADC#&80:.wai|
000005d0  74 6c 6f 6f 70 20 43 4d  50 63 6c 6f 63 6b 3a 42  |tloop CMPclock:B|
000005e0  4e 45 77 61 69 74 6c 6f  6f 70 3a 4c 44 41 23 26  |NEwaitloop:LDA#&|
000005f0  39 31 3a 4c 44 58 23 30  3a 4a 53 52 6f 73 62 79  |91:LDX#0:JSRosby|
00000600  74 65 3a 43 50 59 23 33  32 3a 42 4e 45 6e 6f 65  |te:CPY#32:BNEnoe|
00000610  3a 4a 53 52 6f 66 66 3a  50 4c 41 3a 50 4c 41 3a  |:JSRoff:PLA:PLA:|
00000620  50 4c 41 3a 50 4c 41 3a  50 4c 41 3a 50 4c 41 3a  |PLA:PLA:PLA:PLA:|
00000630  2e 6e 6f 65 20 52 54 53  0d 00 d2 90 2e 6d 69 6e  |.noe RTS.....min|
00000640  63 20 4a 53 52 6d 69 6e  69 3a 52 54 53 3a 2e 77  |c JSRmini:RTS:.w|
00000650  61 69 63 20 4a 53 52 77  61 69 74 3a 52 54 53 3a  |aic JSRwait:RTS:|
00000660  2e 77 61 69 74 20 4a 53  52 6d 69 6e 77 3a 4a 53  |.wait JSRminw:JS|
00000670  52 6d 69 6e 77 3a 4a 53  52 6d 69 6e 77 3a 4a 53  |Rminw:JSRminw:JS|
00000680  52 6d 69 6e 77 3a 52 54  53 3a 2e 66 61 64 65 20  |Rminw:RTS:.fade |
00000690  4c 44 41 23 30 3a 53 54  41 6f 66 63 3a 4a 53 52  |LDA#0:STAofc:JSR|
000006a0  77 61 69 74 3a 4c 44 41  23 37 3a 53 54 41 6f 6e  |wait:LDA#7:STAon|
000006b0  63 3a 4c 44 41 23 35 3a  53 54 41 63 79 63 6c 65  |c:LDA#5:STAcycle|
000006c0  3a 4a 53 52 6d 69 6e 69  0d 00 dc 42 2e 66 61 64  |:JSRmini...B.fad|
000006d0  65 20 4c 44 41 23 30 3a  53 54 41 6f 66 63 3a 4a  |e LDA#0:STAofc:J|
000006e0  53 52 77 61 69 74 3a 4c  44 41 23 37 3a 53 54 41  |SRwait:LDA#7:STA|
000006f0  6f 6e 63 3a 4c 44 41 23  35 3a 53 54 41 63 79 63  |onc:LDA#5:STAcyc|
00000700  6c 65 3a 4a 53 52 6d 69  6e 69 0d 00 e6 78 4c 44  |le:JSRmini...xLD|
00000710  41 23 30 3a 53 54 41 26  37 30 3a 4c 44 41 23 26  |A#0:STA&70:LDA#&|
00000720  33 30 3a 53 54 41 26 37  31 3a 4c 44 59 23 30 3a  |30:STA&71:LDY#0:|
00000730  2e 63 6c 65 61 72 20 4c  44 41 28 26 37 30 29 2c  |.clear LDA(&70),|
00000740  59 3a 80 23 26 33 46 3a  53 54 41 28 26 37 30 29  |Y:.#&3F:STA(&70)|
00000750  2c 59 3a 49 4e 59 3a 42  4e 45 63 6c 65 61 72 3a  |,Y:INY:BNEclear:|
00000760  49 4e 43 26 37 31 3a 4c  44 41 26 37 31 3a 43 4d  |INC&71:LDA&71:CM|
00000770  50 23 26 38 30 3a 42 4e  45 63 6c 65 61 72 3a 52  |P#&80:BNEclear:R|
00000780  54 53 0d 00 f0 69 2e 6f  6e 20 53 45 49 3a 4c 44  |TS...i.on SEI:LD|
00000790  41 26 32 30 34 3a 53 54  41 76 65 63 74 6f 72 3a  |A&204:STAvector:|
000007a0  4c 44 41 26 32 30 35 3a  53 54 41 76 65 63 74 6f  |LDA&205:STAvecto|
000007b0  72 2b 31 3a 4c 44 41 23  28 69 72 71 20 83 20 32  |r+1:LDA#(irq . 2|
000007c0  35 36 29 3a 53 54 41 26  32 30 34 3a 4c 44 41 23  |56):STA&204:LDA#|
000007d0  28 69 72 71 20 81 20 32  35 36 29 3a 53 54 41 26  |(irq . 256):STA&|
000007e0  32 30 35 3a 43 4c 49 3a  52 54 53 0d 00 fa 3a 2e  |205:CLI:RTS...:.|
000007f0  6f 66 66 20 53 45 49 3a  4c 44 41 76 65 63 74 6f  |off SEI:LDAvecto|
00000800  72 3a 53 54 41 26 32 30  34 3a 4c 44 41 76 65 63  |r:STA&204:LDAvec|
00000810  74 6f 72 2b 31 3a 53 54  41 26 32 30 35 3a 43 4c  |tor+1:STA&205:CL|
00000820  49 3a 52 54 53 0d 01 04  6e 2e 69 72 71 20 49 4e  |I:RTS...n.irq IN|
00000830  43 63 6c 6f 63 6b 3a 4c  44 41 63 6c 6f 63 6b 3a  |Cclock:LDAclock:|
00000840  80 23 37 3a 42 4e 45 69  72 71 65 6e 64 3a 54 58  |.#7:BNEirqend:TX|
00000850  41 3a 50 48 41 3a 54 59  41 3a 50 48 41 3a 4a 53  |A:PHA:TYA:PHA:JS|
00000860  52 73 74 61 72 73 3a 4a  53 52 66 6c 61 73 68 3a  |Rstars:JSRflash:|
00000870  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 3a  |PLA:TAY:PLA:TAX:|
00000880  2e 69 72 71 65 6e 64 20  4a 4d 50 28 76 65 63 74  |.irqend JMP(vect|
00000890  6f 72 29 0d 01 0e b2 2e  66 6c 61 73 68 20 4c 44  |or).....flash LD|
000008a0  58 63 79 63 6c 65 3a 43  50 58 23 26 46 46 3a 42  |Xcycle:CPX#&FF:B|
000008b0  45 51 65 6e 64 66 3a 4c  44 41 66 6c 61 63 79 63  |EQendf:LDAflacyc|
000008c0  2c 58 3a 42 45 51 6f 76  65 72 66 3a 53 54 41 63  |,X:BEQoverf:STAc|
000008d0  6f 6c 69 2b 31 3a 4c 44  41 23 38 3a 53 54 41 63  |oli+1:LDA#8:STAc|
000008e0  6f 6c 69 3a 4c 44 41 23  31 32 3a 4c 44 58 23 28  |oli:LDA#12:LDX#(|
000008f0  63 6f 6c 69 20 83 20 32  35 36 29 3a 4c 44 59 23  |coli . 256):LDY#|
00000900  28 63 6f 6c 69 20 81 20  32 35 36 29 3a 4a 53 52  |(coli . 256):JSR|
00000910  6f 73 77 6f 72 64 3a 49  4e 43 63 79 63 6c 65 3a  |osword:INCcycle:|
00000920  2e 65 6e 64 66 20 52 54  53 3a 2e 6f 76 65 72 66  |.endf RTS:.overf|
00000930  20 4c 44 41 23 26 46 46  3a 53 54 41 63 79 63 6c  | LDA#&FF:STAcycl|
00000940  65 3a 52 54 53 0d 01 18  b5 2e 73 74 61 72 73 20  |e:RTS.....stars |
00000950  49 4e 43 62 3a 4c 44 41  62 3a 43 4d 50 23 37 3a  |INCb:LDAb:CMP#7:|
00000960  42 43 43 6e 6f 77 72 61  70 3a 4c 44 41 23 30 3a  |BCCnowrap:LDA#0:|
00000970  53 54 41 62 3a 2e 6e 6f  77 72 61 70 20 43 4c 43  |STAb:.nowrap CLC|
00000980  3a 41 44 43 23 31 3a 53  54 41 63 6f 6c 69 3a 4c  |:ADC#1:STAcoli:L|
00000990  44 41 23 37 3a 53 54 41  63 6f 6c 69 2b 31 3a 4c  |DA#7:STAcoli+1:L|
000009a0  44 41 23 31 32 3a 4c 44  58 23 28 63 6f 6c 69 20  |DA#12:LDX#(coli |
000009b0  83 32 35 36 29 3a 4c 44  59 23 28 63 6f 6c 69 20  |.256):LDY#(coli |
000009c0  81 32 35 36 29 3a 4a 53  52 6f 73 77 6f 72 64 3a  |.256):JSRosword:|
000009d0  4c 44 41 63 6f 6c 69 3a  43 4c 43 3a 41 44 43 23  |LDAcoli:CLC:ADC#|
000009e0  38 3a 53 54 41 63 6f 6c  69 3a 4c 44 41 6f 6e 63  |8:STAcoli:LDAonc|
000009f0  3a 53 54 41 63 6f 6c 69  2b 31 0d 01 22 34 4c 44  |:STAcoli+1.."4LD|
00000a00  41 23 31 32 3a 4c 44 58  23 28 63 6f 6c 69 20 83  |A#12:LDX#(coli .|
00000a10  32 35 36 29 3a 4c 44 59  23 28 63 6f 6c 69 20 81  |256):LDY#(coli .|
00000a20  32 35 36 29 3a 4a 53 52  6f 73 77 6f 72 64 0d 01  |256):JSRosword..|
00000a30  2c c1 4c 44 41 63 3a 53  54 41 63 6f 6c 69 3a 4c  |,.LDAc:STAcoli:L|
00000a40  44 41 23 30 3a 53 54 41  63 6f 6c 69 2b 31 3a 4c  |DA#0:STAcoli+1:L|
00000a50  44 41 23 31 32 3a 4c 44  58 23 28 63 6f 6c 69 20  |DA#12:LDX#(coli |
00000a60  83 32 35 36 29 3a 4c 44  59 23 28 63 6f 6c 69 20  |.256):LDY#(coli |
00000a70  81 32 35 36 29 3a 4a 53  52 6f 73 77 6f 72 64 3a  |.256):JSRosword:|
00000a80  4c 44 41 62 3a 43 4c 43  3a 41 44 43 23 31 3a 53  |LDAb:CLC:ADC#1:S|
00000a90  54 41 63 3a 4c 44 41 63  6f 6c 69 3a 43 4c 43 3a  |TAc:LDAcoli:CLC:|
00000aa0  41 44 43 23 38 3a 53 54  41 63 6f 6c 69 3a 4c 44  |ADC#8:STAcoli:LD|
00000ab0  41 6f 66 63 3a 53 54 41  63 6f 6c 69 2b 31 3a 4c  |Aofc:STAcoli+1:L|
00000ac0  44 41 23 31 32 3a 4c 44  58 23 28 63 6f 6c 69 20  |DA#12:LDX#(coli |
00000ad0  83 32 35 36 29 3a 4c 44  59 23 28 63 6f 6c 69 20  |.256):LDY#(coli |
00000ae0  81 32 35 36 29 3a 4a 4d  50 6f 73 77 6f 72 64 0d  |.256):JMPosword.|
00000af0  01 36 6a 2e 74 65 78 74  20 45 51 55 53 22 20 45  |.6j.text EQUS" E|
00000b00  6c 65 63 74 72 6f 6e 20  20 20 20 55 73 65 72 20  |lectron    User |
00000b10  20 20 47 72 6f 75 70 20  20 20 20 20 20 20 49 73  |  Group       Is|
00000b20  73 75 65 3a 20 20 20 20  20 20 20 20 20 20 20 20  |sue:            |
00000b30  20 20 20 20 33 31 20 20  20 20 50 72 65 73 73 20  |    31    Press |
00000b40  20 20 20 20 3c 53 50 41  43 45 3e 20 74 6f 20 63  |    <SPACE> to c|
00000b50  6f 6e 74 69 6e 75 65 20  22 0d 01 40 e2 2e 73 70  |ontinue "..@..sp|
00000b60  61 63 65 20 45 51 55 42  30 3a 45 51 55 42 30 3a  |ace EQUB0:EQUB0:|
00000b70  45 51 55 42 31 3a 45 51  55 42 30 3a 45 51 55 42  |EQUB1:EQUB0:EQUB|
00000b80  30 3a 45 51 55 42 30 3a  45 51 55 42 31 3a 45 51  |0:EQUB0:EQUB1:EQ|
00000b90  55 42 30 3a 45 51 55 42  30 3a 2e 61 64 64 72 65  |UB0:EQUB0:.addre|
00000ba0  73 73 20 45 51 55 42 26  33 41 3a 45 51 55 42 26  |ss EQUB&3A:EQUB&|
00000bb0  34 45 3a 45 51 55 42 26  36 32 3a 2e 70 6f 77 65  |4E:EQUB&62:.powe|
00000bc0  72 20 45 51 55 42 31 32  38 3a 45 51 55 42 36 34  |r EQUB128:EQUB64|
00000bd0  3a 45 51 55 42 33 32 3a  45 51 55 42 31 36 3a 45  |:EQUB32:EQUB16:E|
00000be0  51 55 42 38 3a 45 51 55  42 34 3a 45 51 55 42 32  |QUB8:EQUB4:EQUB2|
00000bf0  3a 45 51 55 42 31 3a 2e  66 6c 61 63 79 63 20 45  |:EQUB1:.flacyc E|
00000c00  51 55 42 34 3a 45 51 55  42 36 3a 45 51 55 42 37  |QUB4:EQUB6:EQUB7|
00000c10  3a 45 51 55 42 30 3a 45  51 55 42 30 3a 45 51 55  |:EQUB0:EQUB0:EQU|
00000c20  42 37 3a 45 51 55 42 36  3a 45 51 55 42 34 3a 45  |B7:EQUB6:EQUB4:E|
00000c30  51 55 42 31 36 3a 45 51  55 42 30 0d 01 4a d9 2e  |QUB16:EQUB0..J..|
00000c40  78 20 45 51 55 42 30 3a  2e 79 20 45 51 55 42 30  |x EQUB0:.y EQUB0|
00000c50  3a 2e 78 63 20 45 51 55  42 30 3a 2e 6c 65 6e 20  |:.xc EQUB0:.len |
00000c60  45 51 55 42 30 3a 2e 62  79 74 65 20 45 51 55 42  |EQUB0:.byte EQUB|
00000c70  30 3a 2e 6c 69 6e 65 20  45 51 55 42 30 3a 2e 70  |0:.line EQUB0:.p|
00000c80  61 67 65 20 45 51 55 42  30 3a 2e 63 6c 6f 63 6b  |age EQUB0:.clock|
00000c90  20 45 51 55 42 35 3a 2e  76 65 63 74 6f 72 20 45  | EQUB5:.vector E|
00000ca0  51 55 57 30 3a 2e 6c 69  6e 6e 6f 20 45 51 55 42  |QUW0:.linno EQUB|
00000cb0  30 3a 2e 62 74 73 20 45  51 55 42 38 3a 45 51 55  |0:.bts EQUB8:EQU|
00000cc0  42 31 36 3a 2e 63 68 61  72 73 20 45 51 55 42 31  |B16:.chars EQUB1|
00000cd0  30 3a 45 51 55 42 35 3a  2e 61 73 63 69 69 20 45  |0:EQUB5:.ascii E|
00000ce0  51 55 42 30 3a 45 51 55  44 30 3a 45 51 55 44 30  |QUB0:EQUD0:EQUD0|
00000cf0  3a 2e 62 20 45 51 55 42  31 3a 2e 63 20 45 51 55  |:.b EQUB1:.c EQU|
00000d00  42 31 3a 2e 63 6f 6c 69  20 45 51 55 44 30 3a 45  |B1:.coli EQUD0:E|
00000d10  51 55 42 30 0d 01 54 2e  2e 6f 66 63 20 45 51 55  |QUB0..T..ofc EQU|
00000d20  42 30 3a 2e 6f 6e 63 20  45 51 55 42 37 3a 2e 63  |B0:.onc EQUB7:.c|
00000d30  79 63 6c 65 20 45 51 55  42 26 46 46 3a 5d 3a ed  |ycle EQUB&FF:]:.|
00000d40  3a e1 0d ff                                       |:...|
00000d44