Home » Personal collection » Acorn hard disk » misc » dcfprogs » Arcade/Title/Finish

Arcade/Title/Finish

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 hard disk » misc » dcfprogs
Filename: Arcade/Title/Finish
Read OK: ✔
File size: 04CA bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
   10MODE6:HIMEM=&1EC0
   20*LOAD scrdata 2000
   30FORp=0TO2STEP2
   40P%=&1EC0
   50[OPT p
   60.loop LDA#1:LDX#(time MOD 256):LDY#(time DIV 256):JSR&FFF1:LDAtime:CLC:ADC#30:STA&80:LDA#9:STAcolte
   70.setcol LDAcolte:SEC:SBC#8:ANDstage:BEQblack:LDA#4:.black STAcolte+1:LDA#&C:LDX#(colte MOD 256):LDY#(colte DIV 256):JSR&FFF1:INCcolte:LDAcolte:CMP#16:BNEsetcol
   80LDA#5:STAcolte:.moon LDAcolte:SEC:SBC#4:ANDstage:BEQblue:LDA#6:JMPcolset:.blue LDA#4
   90.colset STAcolte+1:LDA#&C:LDX#(colte MOD 256):LDY#(colte DIV 256):JSR&FFF1:INCcolte:LDAcolte:CMP#7:BNEmoon
  100.endmoon ASLstage:LDAstage:CMP#8:BNEnewval:LDA#1:STAstage
  110.newval CMP#4:BNEswap:.fin LDA#1:LDX#(time MOD 256):LDY#(time DIV 256):JSR&FFF1:LDAtime:CMP&80:BNEfin:LDA#&81:LDX#&9D:LDY#&FF:JSR&FFF4:BCSend:JMPloop:.end RTS
  120.swap LDY#0:STY&70:STYno:LDA#&20:STA&71
  130.swaplop INCno:LDAno:CMP#22:BEQfin:LDA(&70),Y:STA&72:INY:LDA(&70),Y:STA&73:INY:LDA(&70),Y:PHA:TAY:DEY:LDA&70:CLC:ADC#3:STA&70:LDA&71:ADC#0:STA&71
  140.movedat LDA(&70),Y:PHA:LDA(&72),Y:STA(&70),Y:PLA:STA(&72),Y:DEY:BNEmovedat
  150LDA(&70),Y:PHA:LDA(&72),Y:STA(&70),Y:PLA:STA(&72),Y:PLA:CLC:ADC&70:STA&70:LDA&71:ADC#0:STA&71:JMPswaplop
  160.colte EQUD 0:EQUW 0:.stage EQUB 2:.time EQUD 0:EQUB 0:.no EQUB 0
  170]:NEXT
  180*SAVE ^.SHIP.Ship2 1EC0 8000


�6:�=&1EC0
*LOAD scrdata 2000
�p=0�2�2
(P%=&1EC0
2
[OPT p
<c.loop LDA#1:LDX#(time � 256):LDY#(time � 256):JSR&FFF1:LDAtime:CLC:ADC#30:STA&80:LDA#9:STAcolte
F�.setcol LDAcolte:SEC:SBC#8:�stage:BEQblack:LDA#4:.black STAcolte+1:LDA#&C:LDX#(colte � 256):LDY#(colte � 256):JSR&FFF1:INCcolte:LDAcolte:CMP#16:BNEsetcol
PVLDA#5:STAcolte:.moon LDAcolte:SEC:SBC#4:�stage:BEQblue:LDA#6:JMPcolset:.blue LDA#4
Zj.colset STAcolte+1:LDA#&C:LDX#(colte � 256):LDY#(colte � 256):JSR&FFF1:INCcolte:LDAcolte:CMP#7:BNEmoon
d=.endmoon ASLstage:LDAstage:CMP#8:BNEnewval:LDA#1:STAstage
n�.newval CMP#4:BNEswap:.fin LDA#1:LDX#(time � 256):LDY#(time � 256):JSR&FFF1:LDAtime:CMP&80:BNEfin:LDA#&81:LDX#&9D:LDY#&FF:JSR&FFF4:BCSend:JMPloop:.end RTS
x+.swap LDY#0:STY&70:STYno:LDA#&20:STA&71
��.swaplop INCno:LDAno:CMP#22:BEQfin:LDA(&70),Y:STA&72:INY:LDA(&70),Y:STA&73:INY:LDA(&70),Y:PHA:TAY:DEY:LDA&70:CLC:ADC#3:STA&70:LDA&71:ADC#0:STA&71
�O.movedat LDA(&70),Y:PHA:LDA(&72),Y:STA(&70),Y:PLA:STA(&72),Y:DEY:BNEmovedat
�lLDA(&70),Y:PHA:LDA(&72),Y:STA(&70),Y:PLA:STA(&72),Y:PLA:CLC:ADC&70:STA&70:LDA&71:ADC#0:STA&71:JMPswaplop
�E.colte EQUD 0:EQUW 0:.stage EQUB 2:.time EQUD 0:EQUB 0:.no EQUB 0
�]:�
� *SAVE ^.SHIP.Ship2 1EC0 8000
�
00000000  0d 00 0a 0e eb 36 3a d3  3d 26 31 45 43 30 0d 00  |.....6:.=&1EC0..|
00000010  14 16 2a 4c 4f 41 44 20  73 63 72 64 61 74 61 20  |..*LOAD scrdata |
00000020  32 30 30 30 0d 00 1e 0c  e3 70 3d 30 b8 32 88 32  |2000.....p=0.2.2|
00000030  0d 00 28 0c 50 25 3d 26  31 45 43 30 0d 00 32 0a  |..(.P%=&1EC0..2.|
00000040  5b 4f 50 54 20 70 0d 00  3c 63 2e 6c 6f 6f 70 20  |[OPT p..<c.loop |
00000050  4c 44 41 23 31 3a 4c 44  58 23 28 74 69 6d 65 20  |LDA#1:LDX#(time |
00000060  83 20 32 35 36 29 3a 4c  44 59 23 28 74 69 6d 65  |. 256):LDY#(time|
00000070  20 81 20 32 35 36 29 3a  4a 53 52 26 46 46 46 31  | . 256):JSR&FFF1|
00000080  3a 4c 44 41 74 69 6d 65  3a 43 4c 43 3a 41 44 43  |:LDAtime:CLC:ADC|
00000090  23 33 30 3a 53 54 41 26  38 30 3a 4c 44 41 23 39  |#30:STA&80:LDA#9|
000000a0  3a 53 54 41 63 6f 6c 74  65 0d 00 46 9d 2e 73 65  |:STAcolte..F..se|
000000b0  74 63 6f 6c 20 4c 44 41  63 6f 6c 74 65 3a 53 45  |tcol LDAcolte:SE|
000000c0  43 3a 53 42 43 23 38 3a  80 73 74 61 67 65 3a 42  |C:SBC#8:.stage:B|
000000d0  45 51 62 6c 61 63 6b 3a  4c 44 41 23 34 3a 2e 62  |EQblack:LDA#4:.b|
000000e0  6c 61 63 6b 20 53 54 41  63 6f 6c 74 65 2b 31 3a  |lack STAcolte+1:|
000000f0  4c 44 41 23 26 43 3a 4c  44 58 23 28 63 6f 6c 74  |LDA#&C:LDX#(colt|
00000100  65 20 83 20 32 35 36 29  3a 4c 44 59 23 28 63 6f  |e . 256):LDY#(co|
00000110  6c 74 65 20 81 20 32 35  36 29 3a 4a 53 52 26 46  |lte . 256):JSR&F|
00000120  46 46 31 3a 49 4e 43 63  6f 6c 74 65 3a 4c 44 41  |FF1:INCcolte:LDA|
00000130  63 6f 6c 74 65 3a 43 4d  50 23 31 36 3a 42 4e 45  |colte:CMP#16:BNE|
00000140  73 65 74 63 6f 6c 0d 00  50 56 4c 44 41 23 35 3a  |setcol..PVLDA#5:|
00000150  53 54 41 63 6f 6c 74 65  3a 2e 6d 6f 6f 6e 20 4c  |STAcolte:.moon L|
00000160  44 41 63 6f 6c 74 65 3a  53 45 43 3a 53 42 43 23  |DAcolte:SEC:SBC#|
00000170  34 3a 80 73 74 61 67 65  3a 42 45 51 62 6c 75 65  |4:.stage:BEQblue|
00000180  3a 4c 44 41 23 36 3a 4a  4d 50 63 6f 6c 73 65 74  |:LDA#6:JMPcolset|
00000190  3a 2e 62 6c 75 65 20 4c  44 41 23 34 0d 00 5a 6a  |:.blue LDA#4..Zj|
000001a0  2e 63 6f 6c 73 65 74 20  53 54 41 63 6f 6c 74 65  |.colset STAcolte|
000001b0  2b 31 3a 4c 44 41 23 26  43 3a 4c 44 58 23 28 63  |+1:LDA#&C:LDX#(c|
000001c0  6f 6c 74 65 20 83 20 32  35 36 29 3a 4c 44 59 23  |olte . 256):LDY#|
000001d0  28 63 6f 6c 74 65 20 81  20 32 35 36 29 3a 4a 53  |(colte . 256):JS|
000001e0  52 26 46 46 46 31 3a 49  4e 43 63 6f 6c 74 65 3a  |R&FFF1:INCcolte:|
000001f0  4c 44 41 63 6f 6c 74 65  3a 43 4d 50 23 37 3a 42  |LDAcolte:CMP#7:B|
00000200  4e 45 6d 6f 6f 6e 0d 00  64 3d 2e 65 6e 64 6d 6f  |NEmoon..d=.endmo|
00000210  6f 6e 20 41 53 4c 73 74  61 67 65 3a 4c 44 41 73  |on ASLstage:LDAs|
00000220  74 61 67 65 3a 43 4d 50  23 38 3a 42 4e 45 6e 65  |tage:CMP#8:BNEne|
00000230  77 76 61 6c 3a 4c 44 41  23 31 3a 53 54 41 73 74  |wval:LDA#1:STAst|
00000240  61 67 65 0d 00 6e 9e 2e  6e 65 77 76 61 6c 20 43  |age..n..newval C|
00000250  4d 50 23 34 3a 42 4e 45  73 77 61 70 3a 2e 66 69  |MP#4:BNEswap:.fi|
00000260  6e 20 4c 44 41 23 31 3a  4c 44 58 23 28 74 69 6d  |n LDA#1:LDX#(tim|
00000270  65 20 83 20 32 35 36 29  3a 4c 44 59 23 28 74 69  |e . 256):LDY#(ti|
00000280  6d 65 20 81 20 32 35 36  29 3a 4a 53 52 26 46 46  |me . 256):JSR&FF|
00000290  46 31 3a 4c 44 41 74 69  6d 65 3a 43 4d 50 26 38  |F1:LDAtime:CMP&8|
000002a0  30 3a 42 4e 45 66 69 6e  3a 4c 44 41 23 26 38 31  |0:BNEfin:LDA#&81|
000002b0  3a 4c 44 58 23 26 39 44  3a 4c 44 59 23 26 46 46  |:LDX#&9D:LDY#&FF|
000002c0  3a 4a 53 52 26 46 46 46  34 3a 42 43 53 65 6e 64  |:JSR&FFF4:BCSend|
000002d0  3a 4a 4d 50 6c 6f 6f 70  3a 2e 65 6e 64 20 52 54  |:JMPloop:.end RT|
000002e0  53 0d 00 78 2b 2e 73 77  61 70 20 4c 44 59 23 30  |S..x+.swap LDY#0|
000002f0  3a 53 54 59 26 37 30 3a  53 54 59 6e 6f 3a 4c 44  |:STY&70:STYno:LD|
00000300  41 23 26 32 30 3a 53 54  41 26 37 31 0d 00 82 95  |A#&20:STA&71....|
00000310  2e 73 77 61 70 6c 6f 70  20 49 4e 43 6e 6f 3a 4c  |.swaplop INCno:L|
00000320  44 41 6e 6f 3a 43 4d 50  23 32 32 3a 42 45 51 66  |DAno:CMP#22:BEQf|
00000330  69 6e 3a 4c 44 41 28 26  37 30 29 2c 59 3a 53 54  |in:LDA(&70),Y:ST|
00000340  41 26 37 32 3a 49 4e 59  3a 4c 44 41 28 26 37 30  |A&72:INY:LDA(&70|
00000350  29 2c 59 3a 53 54 41 26  37 33 3a 49 4e 59 3a 4c  |),Y:STA&73:INY:L|
00000360  44 41 28 26 37 30 29 2c  59 3a 50 48 41 3a 54 41  |DA(&70),Y:PHA:TA|
00000370  59 3a 44 45 59 3a 4c 44  41 26 37 30 3a 43 4c 43  |Y:DEY:LDA&70:CLC|
00000380  3a 41 44 43 23 33 3a 53  54 41 26 37 30 3a 4c 44  |:ADC#3:STA&70:LD|
00000390  41 26 37 31 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&71:ADC#0:STA&7|
000003a0  31 0d 00 8c 4f 2e 6d 6f  76 65 64 61 74 20 4c 44  |1...O.movedat LD|
000003b0  41 28 26 37 30 29 2c 59  3a 50 48 41 3a 4c 44 41  |A(&70),Y:PHA:LDA|
000003c0  28 26 37 32 29 2c 59 3a  53 54 41 28 26 37 30 29  |(&72),Y:STA(&70)|
000003d0  2c 59 3a 50 4c 41 3a 53  54 41 28 26 37 32 29 2c  |,Y:PLA:STA(&72),|
000003e0  59 3a 44 45 59 3a 42 4e  45 6d 6f 76 65 64 61 74  |Y:DEY:BNEmovedat|
000003f0  0d 00 96 6c 4c 44 41 28  26 37 30 29 2c 59 3a 50  |...lLDA(&70),Y:P|
00000400  48 41 3a 4c 44 41 28 26  37 32 29 2c 59 3a 53 54  |HA:LDA(&72),Y:ST|
00000410  41 28 26 37 30 29 2c 59  3a 50 4c 41 3a 53 54 41  |A(&70),Y:PLA:STA|
00000420  28 26 37 32 29 2c 59 3a  50 4c 41 3a 43 4c 43 3a  |(&72),Y:PLA:CLC:|
00000430  41 44 43 26 37 30 3a 53  54 41 26 37 30 3a 4c 44  |ADC&70:STA&70:LD|
00000440  41 26 37 31 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&71:ADC#0:STA&7|
00000450  31 3a 4a 4d 50 73 77 61  70 6c 6f 70 0d 00 a0 45  |1:JMPswaplop...E|
00000460  2e 63 6f 6c 74 65 20 45  51 55 44 20 30 3a 45 51  |.colte EQUD 0:EQ|
00000470  55 57 20 30 3a 2e 73 74  61 67 65 20 45 51 55 42  |UW 0:.stage EQUB|
00000480  20 32 3a 2e 74 69 6d 65  20 45 51 55 44 20 30 3a  | 2:.time EQUD 0:|
00000490  45 51 55 42 20 30 3a 2e  6e 6f 20 45 51 55 42 20  |EQUB 0:.no EQUB |
000004a0  30 0d 00 aa 07 5d 3a ed  0d 00 b4 20 2a 53 41 56  |0....]:.... *SAV|
000004b0  45 20 5e 2e 53 48 49 50  2e 53 68 69 70 32 20 31  |E ^.SHIP.Ship2 1|
000004c0  45 43 30 20 38 30 30 30  0d ff                    |EC0 8000..|
000004ca

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .