Home » Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Stars/TEMP2

Graphics/Stars/TEMP2

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

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

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF
Filename: Graphics/Stars/TEMP2
Read OK:
File size: 0CF9 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM    Starfield EUG
   20REM by Dominic Ford 1997
   30:
   40ONERRORGOTO330
   50IFPAGE>&1D00THENA
   60MODE2:HIMEM=&2CD0:VDU23,1,0;0;0;0;
   70FORpass=0TO2STEP2:P%=&2CD0:[OPT pass:.start LDA#12:LDX#(coli MOD256):LDY#(coli DIV256):JSR&FFF1:INCcoli:LDAcoli:CMP#16:BNEstart:JSRon
   80.program LDA#0:STAlinno:LDA#(text MOD 256):STA&74:LDA#(text DIV 256):STA&75:LDA#0:STApage:.pages JSRminc:JSRdopage:JSRwaic:JSRfade:INCpage:LDApage:CMP#3:BNEpages:JMPprogram
   90.dopage LDA#0:STAline:.pageloop LDXlinno:LDAspace,X:STAlen:JSRwrite:INClinno:INCline:LDAline:CMP#3:BNEpageloop:LDXclock:LDA&E000,X:AND#7:BNEnotblack:LDA#1:.notblack STAofc:JSRwait:LDAofc:STAonc:STAflacyc+3:LDA#0:STAcycle:JMPmini
  100.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
  110.next LSRbyte:BCCblank:LDAbts,X:STA&76:LDY#0:.loop LDA(&72),Y:EOR#&C0:STA(&72),Y:INY:CPY&76:BNEloop
  120.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
  130INCxc:LDAxc:CMPchars,X:BNEnewchar:LDA&74:CLC:ADC#10:STA&74:LDA&75:ADC#0:STA&75:RTS
  140.readdef LDYxc:LDA(&74),Y:STAascii:LDA#&A:LDX#(ascii MOD256):LDY#(ascii DIV256):JMP&FFF1
  150.getdata LDY#8:LDXx:.getloop LDAascii,Y:ANDpower,X:CMPpower,X:ROLbyte:DEY:BNEgetloop:LDXlen:RTS
  160.mini JSRminw:JSRminw:RTS:.minw LDAclock:CLC:ADC#&40:.waitloop CMPclock:BNEwaitloop:LDA#&91:LDX#0:JSR&FFF4:CPY#32:BNEnoe:JSRoff:PLA:PLA:PLA:PLA:PLA:PLA:.noe RTS
  170.minc JSRmini:RTS:.waic JSRwait:RTS:.wait JSRminw:JSRminw:JSRminw:JSRminw:RTS:.fade LDA#0:STAofc:JSRwait:LDA#7:STAonc:LDA#5:STAcycle:JSRmini
  180.fade LDA#0:STAofc:JSRwait:LDA#7:STAonc:LDA#5:STAcycle:JSRmini
  190LDA#0:STA&70:LDA#&30:STA&71:LDY#0:.clear LDA(&70),Y:AND#&3F:STA(&70),Y:INY:BNEclear:INC&71:LDA&71:CMP#&80:BNEclear:RTS
  200.on SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#(irq MOD 256):STA&204:LDA#(irq DIV 256):STA&205:CLI:RTS
  210.off SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS
  220.irq INCclock:LDAclock:AND#7:BNEirqend:TXA:PHA:TYA:PHA:JSRstars:JSRflash:PLA:TAY:PLA:TAX:.irqend JMP(vector)
  230.flash LDXcycle:CPX#&FF:BEQendf:LDAflacyc,X:BEQoverf:STAcoli+1:LDA#8:STAcoli:LDA#12:LDX#(coli MOD256):LDY#(coli DIV256):JSR&FFF1:INCcycle:.endf RTS:.overf LDA#&FF:STAcycle:RTS
  240.stars INCb:LDAb:CMP#7:BCCnowrap:LDA#0:STAb:.nowrap CLC:ADC#1:STAcoli:LDA#7:STAcoli+1:LDA#12:LDX#(coli MOD256):LDY#(coli DIV256):JSR&FFF1:LDAcoli:CLC:ADC#8:STAcoli:LDAonc:STAcoli+1
  250LDA#12:LDX#(coli MOD256):LDY#(coli DIV256):JSR&FFF1
  260LDAc:STAcoli:LDA#0:STAcoli+1:LDA#12:LDX#(coli MOD256):LDY#(coli DIV256):JSR&FFF1:LDAb:CLC:ADC#1:STAc:LDAcoli:CLC:ADC#8:STAcoli:LDAofc:STAcoli+1:LDA#12:LDX#(coli MOD256):LDY#(coli DIV256):JMP&FFF1
  270.text EQUS" Electron    User   Group       Issue:                31    Press     <SPACE> to continue "
  280.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
  290.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
  300.ofc EQUB0:.onc EQUB7:.cycle EQUB&FF:]:NEXT
  310*LOAD TitData
  320CALLstart
  330CHAIN"MENU"

�    Starfield EUG
� by Dominic Ford 1997
:
(��DJA
2�>&1D00�A
<�2:�=&2CD0:�23,1,0;0;0;0;
F�pass=0�2�2:P%=&2CD0:[OPT pass:.start LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1:INCcoli:LDAcoli:CMP#16:BNEstart:JSRon
P�.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
Z�.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
d�.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
ne.next LSRbyte:BCCblank:LDAbts,X:STA&76:LDY#0:.loop LDA(&72),Y:�#&C0:STA(&72),Y:INY:CPY&76:BNEloop
x�.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
�X.readdef LDYxc:LDA(&74),Y:STAascii:LDA#&A:LDX#(ascii �256):LDY#(ascii �256):JMP&FFF1
�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#&40:.waitloop CMPclock:BNEwaitloop:LDA#&91:LDX#0:JSR&FFF4: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):JSR&FFF1: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):JSR&FFF1:LDAcoli:CLC:ADC#8:STAcoli:LDAonc:STAcoli+1
�3LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1
�LDAc:STAcoli:LDA#0:STAcoli+1:LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1:LDAb:CLC:ADC#1:STAc:LDAcoli:CLC:ADC#8:STAcoli:LDAofc:STAcoli+1:LDA#12:LDX#(coli �256):LDY#(coli �256):JMP&FFF1
j.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
"�.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
,,.ofc EQUB0:.onc EQUB7:.cycle EQUB&FF:]:�
6*LOAD TitData
@
�start
J�"MENU"
�
00000000  0d 00 0a 16 f4 20 20 20  20 53 74 61 72 66 69 65  |.....    Starfie|
00000010  6c 64 20 45 55 47 0d 00  14 1a f4 20 62 79 20 44  |ld EUG..... by D|
00000020  6f 6d 69 6e 69 63 20 46  6f 72 64 20 31 39 39 37  |ominic Ford 1997|
00000030  0d 00 1e 05 3a 0d 00 28  0b ee 85 e5 8d 44 4a 41  |....:..(.....DJA|
00000040  0d 00 32 0e e7 90 3e 26  31 44 30 30 8c 41 0d 00  |..2...>&1D00.A..|
00000050  3c 1d eb 32 3a d3 3d 26  32 43 44 30 3a ef 32 33  |<..2:.=&2CD0:.23|
00000060  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 00 46 7f e3  |,1,0;0;0;0;..F..|
00000070  70 61 73 73 3d 30 b8 32  88 32 3a 50 25 3d 26 32  |pass=0.2.2:P%=&2|
00000080  43 44 30 3a 5b 4f 50 54  20 70 61 73 73 3a 2e 73  |CD0:[OPT pass:.s|
00000090  74 61 72 74 20 4c 44 41  23 31 32 3a 4c 44 58 23  |tart LDA#12:LDX#|
000000a0  28 63 6f 6c 69 20 83 32  35 36 29 3a 4c 44 59 23  |(coli .256):LDY#|
000000b0  28 63 6f 6c 69 20 81 32  35 36 29 3a 4a 53 52 26  |(coli .256):JSR&|
000000c0  46 46 46 31 3a 49 4e 43  63 6f 6c 69 3a 4c 44 41  |FFF1:INCcoli:LDA|
000000d0  63 6f 6c 69 3a 43 4d 50  23 31 36 3a 42 4e 45 73  |coli:CMP#16:BNEs|
000000e0  74 61 72 74 3a 4a 53 52  6f 6e 0d 00 50 ac 2e 70  |tart:JSRon..P..p|
000000f0  72 6f 67 72 61 6d 20 4c  44 41 23 30 3a 53 54 41  |rogram LDA#0:STA|
00000100  6c 69 6e 6e 6f 3a 4c 44  41 23 28 74 65 78 74 20  |linno:LDA#(text |
00000110  83 20 32 35 36 29 3a 53  54 41 26 37 34 3a 4c 44  |. 256):STA&74:LD|
00000120  41 23 28 74 65 78 74 20  81 20 32 35 36 29 3a 53  |A#(text . 256):S|
00000130  54 41 26 37 35 3a 4c 44  41 23 30 3a 53 54 41 70  |TA&75:LDA#0:STAp|
00000140  61 67 65 3a 2e 70 61 67  65 73 20 4a 53 52 6d 69  |age:.pages JSRmi|
00000150  6e 63 3a 4a 53 52 64 6f  70 61 67 65 3a 4a 53 52  |nc:JSRdopage:JSR|
00000160  77 61 69 63 3a 4a 53 52  66 61 64 65 3a 49 4e 43  |waic:JSRfade:INC|
00000170  70 61 67 65 3a 4c 44 41  70 61 67 65 3a 43 4d 50  |page:LDApage:CMP|
00000180  23 33 3a 42 4e 45 70 61  67 65 73 3a 4a 4d 50 70  |#3:BNEpages:JMPp|
00000190  72 6f 67 72 61 6d 0d 00  5a e6 2e 64 6f 70 61 67  |rogram..Z..dopag|
000001a0  65 20 4c 44 41 23 30 3a  53 54 41 6c 69 6e 65 3a  |e LDA#0:STAline:|
000001b0  2e 70 61 67 65 6c 6f 6f  70 20 4c 44 58 6c 69 6e  |.pageloop LDXlin|
000001c0  6e 6f 3a 4c 44 41 73 70  61 63 65 2c 58 3a 53 54  |no:LDAspace,X:ST|
000001d0  41 6c 65 6e 3a 4a 53 52  77 72 69 74 65 3a 49 4e  |Alen:JSRwrite:IN|
000001e0  43 6c 69 6e 6e 6f 3a 49  4e 43 6c 69 6e 65 3a 4c  |Clinno:INCline:L|
000001f0  44 41 6c 69 6e 65 3a 43  4d 50 23 33 3a 42 4e 45  |DAline:CMP#3:BNE|
00000200  70 61 67 65 6c 6f 6f 70  3a 4c 44 58 63 6c 6f 63  |pageloop:LDXcloc|
00000210  6b 3a 4c 44 41 26 45 30  30 30 2c 58 3a 80 23 37  |k:LDA&E000,X:.#7|
00000220  3a 42 4e 45 6e 6f 74 62  6c 61 63 6b 3a 4c 44 41  |:BNEnotblack:LDA|
00000230  23 31 3a 2e 6e 6f 74 62  6c 61 63 6b 20 53 54 41  |#1:.notblack STA|
00000240  6f 66 63 3a 4a 53 52 77  61 69 74 3a 4c 44 41 6f  |ofc:JSRwait:LDAo|
00000250  66 63 3a 53 54 41 6f 6e  63 3a 53 54 41 66 6c 61  |fc:STAonc:STAfla|
00000260  63 79 63 2b 33 3a 4c 44  41 23 30 3a 53 54 41 63  |cyc+3:LDA#0:STAc|
00000270  79 63 6c 65 3a 4a 4d 50  6d 69 6e 69 0d 00 64 9e  |ycle:JMPmini..d.|
00000280  2e 77 72 69 74 65 20 4c  44 58 6c 69 6e 65 3a 4c  |.write LDXline:L|
00000290  44 41 23 30 3a 53 54 41  26 37 30 3a 53 54 41 78  |DA#0:STA&70:STAx|
000002a0  63 3a 4c 44 41 61 64 64  72 65 73 73 2c 58 3a 53  |c:LDAaddress,X:S|
000002b0  54 41 26 37 31 3a 2e 6e  65 77 63 68 61 72 20 4c  |TA&71:.newchar L|
000002c0  44 41 23 30 3a 53 54 41  78 3a 4a 53 52 72 65 61  |DA#0:STAx:JSRrea|
000002d0  64 64 65 66 3a 4c 44 58  6c 65 6e 3a 2e 6e 65 77  |ddef:LDXlen:.new|
000002e0  6c 69 6e 65 20 53 45 49  3a 4c 44 41 23 30 3a 53  |line SEI:LDA#0:S|
000002f0  54 41 79 3a 4c 44 41 26  37 30 3a 53 54 41 26 37  |TAy:LDA&70:STA&7|
00000300  32 3a 4c 44 41 26 37 31  3a 53 54 41 26 37 33 3a  |2:LDA&71:STA&73:|
00000310  4a 53 52 67 65 74 64 61  74 61 0d 00 6e 65 2e 6e  |JSRgetdata..ne.n|
00000320  65 78 74 20 4c 53 52 62  79 74 65 3a 42 43 43 62  |ext LSRbyte:BCCb|
00000330  6c 61 6e 6b 3a 4c 44 41  62 74 73 2c 58 3a 53 54  |lank:LDAbts,X:ST|
00000340  41 26 37 36 3a 4c 44 59  23 30 3a 2e 6c 6f 6f 70  |A&76:LDY#0:.loop|
00000350  20 4c 44 41 28 26 37 32  29 2c 59 3a 82 23 26 43  | LDA(&72),Y:.#&C|
00000360  30 3a 53 54 41 28 26 37  32 29 2c 59 3a 49 4e 59  |0:STA(&72),Y:INY|
00000370  3a 43 50 59 26 37 36 3a  42 4e 45 6c 6f 6f 70 0d  |:CPY&76:BNEloop.|
00000380  00 78 9e 2e 62 6c 61 6e  6b 20 4c 44 41 26 37 32  |.x..blank LDA&72|
00000390  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
000003a0  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 32  |&72:LDA&73:ADC#2|
000003b0  3a 53 54 41 26 37 33 3a  49 4e 43 79 3a 4c 44 41  |:STA&73:INCy:LDA|
000003c0  79 3a 43 4d 50 23 38 3a  42 4e 45 6e 65 78 74 3a  |y:CMP#8:BNEnext:|
000003d0  49 4e 43 78 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |INCx:LDA&70:CLC:|
000003e0  41 44 43 62 74 73 2c 58  3a 53 54 41 26 37 30 3a  |ADCbts,X:STA&70:|
000003f0  4c 44 41 26 37 31 3a 41  44 43 23 30 3a 53 54 41  |LDA&71:ADC#0:STA|
00000400  26 37 31 3a 4c 44 41 78  3a 43 4d 50 23 38 3a 42  |&71:LDAx:CMP#8:B|
00000410  4e 45 6e 65 77 6c 69 6e  65 3a 43 4c 49 0d 00 82  |NEnewline:CLI...|
00000420  56 49 4e 43 78 63 3a 4c  44 41 78 63 3a 43 4d 50  |VINCxc:LDAxc:CMP|
00000430  63 68 61 72 73 2c 58 3a  42 4e 45 6e 65 77 63 68  |chars,X:BNEnewch|
00000440  61 72 3a 4c 44 41 26 37  34 3a 43 4c 43 3a 41 44  |ar:LDA&74:CLC:AD|
00000450  43 23 31 30 3a 53 54 41  26 37 34 3a 4c 44 41 26  |C#10:STA&74:LDA&|
00000460  37 35 3a 41 44 43 23 30  3a 53 54 41 26 37 35 3a  |75:ADC#0:STA&75:|
00000470  52 54 53 0d 00 8c 58 2e  72 65 61 64 64 65 66 20  |RTS...X.readdef |
00000480  4c 44 59 78 63 3a 4c 44  41 28 26 37 34 29 2c 59  |LDYxc:LDA(&74),Y|
00000490  3a 53 54 41 61 73 63 69  69 3a 4c 44 41 23 26 41  |:STAascii:LDA#&A|
000004a0  3a 4c 44 58 23 28 61 73  63 69 69 20 83 32 35 36  |:LDX#(ascii .256|
000004b0  29 3a 4c 44 59 23 28 61  73 63 69 69 20 81 32 35  |):LDY#(ascii .25|
000004c0  36 29 3a 4a 4d 50 26 46  46 46 31 0d 00 96 61 2e  |6):JMP&FFF1...a.|
000004d0  67 65 74 64 61 74 61 20  4c 44 59 23 38 3a 4c 44  |getdata LDY#8:LD|
000004e0  58 78 3a 2e 67 65 74 6c  6f 6f 70 20 4c 44 41 61  |Xx:.getloop LDAa|
000004f0  73 63 69 69 2c 59 3a 80  70 6f 77 65 72 2c 58 3a  |scii,Y:.power,X:|
00000500  43 4d 50 70 6f 77 65 72  2c 58 3a 52 4f 4c 62 79  |CMPpower,X:ROLby|
00000510  74 65 3a 44 45 59 3a 42  4e 45 67 65 74 6c 6f 6f  |te:DEY:BNEgetloo|
00000520  70 3a 4c 44 58 6c 65 6e  3a 52 54 53 0d 00 a0 a4  |p:LDXlen:RTS....|
00000530  2e 6d 69 6e 69 20 4a 53  52 6d 69 6e 77 3a 4a 53  |.mini JSRminw:JS|
00000540  52 6d 69 6e 77 3a 52 54  53 3a 2e 6d 69 6e 77 20  |Rminw:RTS:.minw |
00000550  4c 44 41 63 6c 6f 63 6b  3a 43 4c 43 3a 41 44 43  |LDAclock:CLC:ADC|
00000560  23 26 34 30 3a 2e 77 61  69 74 6c 6f 6f 70 20 43  |#&40:.waitloop C|
00000570  4d 50 63 6c 6f 63 6b 3a  42 4e 45 77 61 69 74 6c  |MPclock:BNEwaitl|
00000580  6f 6f 70 3a 4c 44 41 23  26 39 31 3a 4c 44 58 23  |oop:LDA#&91:LDX#|
00000590  30 3a 4a 53 52 26 46 46  46 34 3a 43 50 59 23 33  |0:JSR&FFF4:CPY#3|
000005a0  32 3a 42 4e 45 6e 6f 65  3a 4a 53 52 6f 66 66 3a  |2:BNEnoe:JSRoff:|
000005b0  50 4c 41 3a 50 4c 41 3a  50 4c 41 3a 50 4c 41 3a  |PLA:PLA:PLA:PLA:|
000005c0  50 4c 41 3a 50 4c 41 3a  2e 6e 6f 65 20 52 54 53  |PLA:PLA:.noe RTS|
000005d0  0d 00 aa 90 2e 6d 69 6e  63 20 4a 53 52 6d 69 6e  |.....minc JSRmin|
000005e0  69 3a 52 54 53 3a 2e 77  61 69 63 20 4a 53 52 77  |i:RTS:.waic JSRw|
000005f0  61 69 74 3a 52 54 53 3a  2e 77 61 69 74 20 4a 53  |ait:RTS:.wait JS|
00000600  52 6d 69 6e 77 3a 4a 53  52 6d 69 6e 77 3a 4a 53  |Rminw:JSRminw:JS|
00000610  52 6d 69 6e 77 3a 4a 53  52 6d 69 6e 77 3a 52 54  |Rminw:JSRminw:RT|
00000620  53 3a 2e 66 61 64 65 20  4c 44 41 23 30 3a 53 54  |S:.fade LDA#0:ST|
00000630  41 6f 66 63 3a 4a 53 52  77 61 69 74 3a 4c 44 41  |Aofc:JSRwait:LDA|
00000640  23 37 3a 53 54 41 6f 6e  63 3a 4c 44 41 23 35 3a  |#7:STAonc:LDA#5:|
00000650  53 54 41 63 79 63 6c 65  3a 4a 53 52 6d 69 6e 69  |STAcycle:JSRmini|
00000660  0d 00 b4 42 2e 66 61 64  65 20 4c 44 41 23 30 3a  |...B.fade LDA#0:|
00000670  53 54 41 6f 66 63 3a 4a  53 52 77 61 69 74 3a 4c  |STAofc:JSRwait:L|
00000680  44 41 23 37 3a 53 54 41  6f 6e 63 3a 4c 44 41 23  |DA#7:STAonc:LDA#|
00000690  35 3a 53 54 41 63 79 63  6c 65 3a 4a 53 52 6d 69  |5:STAcycle:JSRmi|
000006a0  6e 69 0d 00 be 78 4c 44  41 23 30 3a 53 54 41 26  |ni...xLDA#0:STA&|
000006b0  37 30 3a 4c 44 41 23 26  33 30 3a 53 54 41 26 37  |70:LDA#&30:STA&7|
000006c0  31 3a 4c 44 59 23 30 3a  2e 63 6c 65 61 72 20 4c  |1:LDY#0:.clear L|
000006d0  44 41 28 26 37 30 29 2c  59 3a 80 23 26 33 46 3a  |DA(&70),Y:.#&3F:|
000006e0  53 54 41 28 26 37 30 29  2c 59 3a 49 4e 59 3a 42  |STA(&70),Y:INY:B|
000006f0  4e 45 63 6c 65 61 72 3a  49 4e 43 26 37 31 3a 4c  |NEclear:INC&71:L|
00000700  44 41 26 37 31 3a 43 4d  50 23 26 38 30 3a 42 4e  |DA&71:CMP#&80:BN|
00000710  45 63 6c 65 61 72 3a 52  54 53 0d 00 c8 69 2e 6f  |Eclear:RTS...i.o|
00000720  6e 20 53 45 49 3a 4c 44  41 26 32 30 34 3a 53 54  |n SEI:LDA&204:ST|
00000730  41 76 65 63 74 6f 72 3a  4c 44 41 26 32 30 35 3a  |Avector:LDA&205:|
00000740  53 54 41 76 65 63 74 6f  72 2b 31 3a 4c 44 41 23  |STAvector+1:LDA#|
00000750  28 69 72 71 20 83 20 32  35 36 29 3a 53 54 41 26  |(irq . 256):STA&|
00000760  32 30 34 3a 4c 44 41 23  28 69 72 71 20 81 20 32  |204:LDA#(irq . 2|
00000770  35 36 29 3a 53 54 41 26  32 30 35 3a 43 4c 49 3a  |56):STA&205:CLI:|
00000780  52 54 53 0d 00 d2 3a 2e  6f 66 66 20 53 45 49 3a  |RTS...:.off SEI:|
00000790  4c 44 41 76 65 63 74 6f  72 3a 53 54 41 26 32 30  |LDAvector:STA&20|
000007a0  34 3a 4c 44 41 76 65 63  74 6f 72 2b 31 3a 53 54  |4:LDAvector+1:ST|
000007b0  41 26 32 30 35 3a 43 4c  49 3a 52 54 53 0d 00 dc  |A&205:CLI:RTS...|
000007c0  6e 2e 69 72 71 20 49 4e  43 63 6c 6f 63 6b 3a 4c  |n.irq INCclock:L|
000007d0  44 41 63 6c 6f 63 6b 3a  80 23 37 3a 42 4e 45 69  |DAclock:.#7:BNEi|
000007e0  72 71 65 6e 64 3a 54 58  41 3a 50 48 41 3a 54 59  |rqend:TXA:PHA:TY|
000007f0  41 3a 50 48 41 3a 4a 53  52 73 74 61 72 73 3a 4a  |A:PHA:JSRstars:J|
00000800  53 52 66 6c 61 73 68 3a  50 4c 41 3a 54 41 59 3a  |SRflash:PLA:TAY:|
00000810  50 4c 41 3a 54 41 58 3a  2e 69 72 71 65 6e 64 20  |PLA:TAX:.irqend |
00000820  4a 4d 50 28 76 65 63 74  6f 72 29 0d 00 e6 af 2e  |JMP(vector).....|
00000830  66 6c 61 73 68 20 4c 44  58 63 79 63 6c 65 3a 43  |flash LDXcycle:C|
00000840  50 58 23 26 46 46 3a 42  45 51 65 6e 64 66 3a 4c  |PX#&FF:BEQendf:L|
00000850  44 41 66 6c 61 63 79 63  2c 58 3a 42 45 51 6f 76  |DAflacyc,X:BEQov|
00000860  65 72 66 3a 53 54 41 63  6f 6c 69 2b 31 3a 4c 44  |erf:STAcoli+1:LD|
00000870  41 23 38 3a 53 54 41 63  6f 6c 69 3a 4c 44 41 23  |A#8:STAcoli:LDA#|
00000880  31 32 3a 4c 44 58 23 28  63 6f 6c 69 20 83 32 35  |12:LDX#(coli .25|
00000890  36 29 3a 4c 44 59 23 28  63 6f 6c 69 20 81 32 35  |6):LDY#(coli .25|
000008a0  36 29 3a 4a 53 52 26 46  46 46 31 3a 49 4e 43 63  |6):JSR&FFF1:INCc|
000008b0  79 63 6c 65 3a 2e 65 6e  64 66 20 52 54 53 3a 2e  |ycle:.endf RTS:.|
000008c0  6f 76 65 72 66 20 4c 44  41 23 26 46 46 3a 53 54  |overf LDA#&FF:ST|
000008d0  41 63 79 63 6c 65 3a 52  54 53 0d 00 f0 b4 2e 73  |Acycle:RTS.....s|
000008e0  74 61 72 73 20 49 4e 43  62 3a 4c 44 41 62 3a 43  |tars INCb:LDAb:C|
000008f0  4d 50 23 37 3a 42 43 43  6e 6f 77 72 61 70 3a 4c  |MP#7:BCCnowrap:L|
00000900  44 41 23 30 3a 53 54 41  62 3a 2e 6e 6f 77 72 61  |DA#0:STAb:.nowra|
00000910  70 20 43 4c 43 3a 41 44  43 23 31 3a 53 54 41 63  |p CLC:ADC#1:STAc|
00000920  6f 6c 69 3a 4c 44 41 23  37 3a 53 54 41 63 6f 6c  |oli:LDA#7:STAcol|
00000930  69 2b 31 3a 4c 44 41 23  31 32 3a 4c 44 58 23 28  |i+1:LDA#12:LDX#(|
00000940  63 6f 6c 69 20 83 32 35  36 29 3a 4c 44 59 23 28  |coli .256):LDY#(|
00000950  63 6f 6c 69 20 81 32 35  36 29 3a 4a 53 52 26 46  |coli .256):JSR&F|
00000960  46 46 31 3a 4c 44 41 63  6f 6c 69 3a 43 4c 43 3a  |FF1:LDAcoli:CLC:|
00000970  41 44 43 23 38 3a 53 54  41 63 6f 6c 69 3a 4c 44  |ADC#8:STAcoli:LD|
00000980  41 6f 6e 63 3a 53 54 41  63 6f 6c 69 2b 31 0d 00  |Aonc:STAcoli+1..|
00000990  fa 33 4c 44 41 23 31 32  3a 4c 44 58 23 28 63 6f  |.3LDA#12:LDX#(co|
000009a0  6c 69 20 83 32 35 36 29  3a 4c 44 59 23 28 63 6f  |li .256):LDY#(co|
000009b0  6c 69 20 81 32 35 36 29  3a 4a 53 52 26 46 46 46  |li .256):JSR&FFF|
000009c0  31 0d 01 04 bf 4c 44 41  63 3a 53 54 41 63 6f 6c  |1....LDAc:STAcol|
000009d0  69 3a 4c 44 41 23 30 3a  53 54 41 63 6f 6c 69 2b  |i:LDA#0:STAcoli+|
000009e0  31 3a 4c 44 41 23 31 32  3a 4c 44 58 23 28 63 6f  |1:LDA#12:LDX#(co|
000009f0  6c 69 20 83 32 35 36 29  3a 4c 44 59 23 28 63 6f  |li .256):LDY#(co|
00000a00  6c 69 20 81 32 35 36 29  3a 4a 53 52 26 46 46 46  |li .256):JSR&FFF|
00000a10  31 3a 4c 44 41 62 3a 43  4c 43 3a 41 44 43 23 31  |1:LDAb:CLC:ADC#1|
00000a20  3a 53 54 41 63 3a 4c 44  41 63 6f 6c 69 3a 43 4c  |:STAc:LDAcoli:CL|
00000a30  43 3a 41 44 43 23 38 3a  53 54 41 63 6f 6c 69 3a  |C:ADC#8:STAcoli:|
00000a40  4c 44 41 6f 66 63 3a 53  54 41 63 6f 6c 69 2b 31  |LDAofc:STAcoli+1|
00000a50  3a 4c 44 41 23 31 32 3a  4c 44 58 23 28 63 6f 6c  |:LDA#12:LDX#(col|
00000a60  69 20 83 32 35 36 29 3a  4c 44 59 23 28 63 6f 6c  |i .256):LDY#(col|
00000a70  69 20 81 32 35 36 29 3a  4a 4d 50 26 46 46 46 31  |i .256):JMP&FFF1|
00000a80  0d 01 0e 6a 2e 74 65 78  74 20 45 51 55 53 22 20  |...j.text EQUS" |
00000a90  45 6c 65 63 74 72 6f 6e  20 20 20 20 55 73 65 72  |Electron    User|
00000aa0  20 20 20 47 72 6f 75 70  20 20 20 20 20 20 20 49  |   Group       I|
00000ab0  73 73 75 65 3a 20 20 20  20 20 20 20 20 20 20 20  |ssue:           |
00000ac0  20 20 20 20 20 33 31 20  20 20 20 50 72 65 73 73  |     31    Press|
00000ad0  20 20 20 20 20 3c 53 50  41 43 45 3e 20 74 6f 20  |     <SPACE> to |
00000ae0  63 6f 6e 74 69 6e 75 65  20 22 0d 01 18 e2 2e 73  |continue ".....s|
00000af0  70 61 63 65 20 45 51 55  42 30 3a 45 51 55 42 30  |pace EQUB0:EQUB0|
00000b00  3a 45 51 55 42 31 3a 45  51 55 42 30 3a 45 51 55  |:EQUB1:EQUB0:EQU|
00000b10  42 30 3a 45 51 55 42 30  3a 45 51 55 42 31 3a 45  |B0:EQUB0:EQUB1:E|
00000b20  51 55 42 30 3a 45 51 55  42 30 3a 2e 61 64 64 72  |QUB0:EQUB0:.addr|
00000b30  65 73 73 20 45 51 55 42  26 33 41 3a 45 51 55 42  |ess EQUB&3A:EQUB|
00000b40  26 34 45 3a 45 51 55 42  26 36 32 3a 2e 70 6f 77  |&4E:EQUB&62:.pow|
00000b50  65 72 20 45 51 55 42 31  32 38 3a 45 51 55 42 36  |er EQUB128:EQUB6|
00000b60  34 3a 45 51 55 42 33 32  3a 45 51 55 42 31 36 3a  |4:EQUB32:EQUB16:|
00000b70  45 51 55 42 38 3a 45 51  55 42 34 3a 45 51 55 42  |EQUB8:EQUB4:EQUB|
00000b80  32 3a 45 51 55 42 31 3a  2e 66 6c 61 63 79 63 20  |2:EQUB1:.flacyc |
00000b90  45 51 55 42 34 3a 45 51  55 42 36 3a 45 51 55 42  |EQUB4:EQUB6:EQUB|
00000ba0  37 3a 45 51 55 42 30 3a  45 51 55 42 30 3a 45 51  |7:EQUB0:EQUB0:EQ|
00000bb0  55 42 37 3a 45 51 55 42  36 3a 45 51 55 42 34 3a  |UB7:EQUB6:EQUB4:|
00000bc0  45 51 55 42 31 36 3a 45  51 55 42 30 0d 01 22 d9  |EQUB16:EQUB0..".|
00000bd0  2e 78 20 45 51 55 42 30  3a 2e 79 20 45 51 55 42  |.x EQUB0:.y EQUB|
00000be0  30 3a 2e 78 63 20 45 51  55 42 30 3a 2e 6c 65 6e  |0:.xc EQUB0:.len|
00000bf0  20 45 51 55 42 30 3a 2e  62 79 74 65 20 45 51 55  | EQUB0:.byte EQU|
00000c00  42 30 3a 2e 6c 69 6e 65  20 45 51 55 42 30 3a 2e  |B0:.line EQUB0:.|
00000c10  70 61 67 65 20 45 51 55  42 30 3a 2e 63 6c 6f 63  |page EQUB0:.cloc|
00000c20  6b 20 45 51 55 42 35 3a  2e 76 65 63 74 6f 72 20  |k EQUB5:.vector |
00000c30  45 51 55 57 30 3a 2e 6c  69 6e 6e 6f 20 45 51 55  |EQUW0:.linno EQU|
00000c40  42 30 3a 2e 62 74 73 20  45 51 55 42 38 3a 45 51  |B0:.bts EQUB8:EQ|
00000c50  55 42 31 36 3a 2e 63 68  61 72 73 20 45 51 55 42  |UB16:.chars EQUB|
00000c60  31 30 3a 45 51 55 42 35  3a 2e 61 73 63 69 69 20  |10:EQUB5:.ascii |
00000c70  45 51 55 42 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUB0:EQUD0:EQUD|
00000c80  30 3a 2e 62 20 45 51 55  42 31 3a 2e 63 20 45 51  |0:.b EQUB1:.c EQ|
00000c90  55 42 31 3a 2e 63 6f 6c  69 20 45 51 55 44 30 3a  |UB1:.coli EQUD0:|
00000ca0  45 51 55 42 30 0d 01 2c  2c 2e 6f 66 63 20 45 51  |EQUB0..,,.ofc EQ|
00000cb0  55 42 30 3a 2e 6f 6e 63  20 45 51 55 42 37 3a 2e  |UB0:.onc EQUB7:.|
00000cc0  63 79 63 6c 65 20 45 51  55 42 26 46 46 3a 5d 3a  |cycle EQUB&FF:]:|
00000cd0  ed 0d 01 36 11 2a 4c 4f  41 44 20 54 69 74 44 61  |...6.*LOAD TitDa|
00000ce0  74 61 0d 01 40 0a d6 73  74 61 72 74 0d 01 4a 0b  |ta..@..start..J.|
00000cf0  d7 22 4d 45 4e 55 22 0d  ff                       |."MENU"..|
00000cf9
Graphics/Stars/TEMP2.m0
Graphics/Stars/TEMP2.m1
Graphics/Stars/TEMP2.m2
Graphics/Stars/TEMP2.m4
Graphics/Stars/TEMP2.m5