Home » Personal collection » Acorn hard disk » misc » misc2 » shipw4/Arcade/Title/Finish
shipw4/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 » misc2 |
| Filename: | shipw4/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:
- Personal collection » Acorn ADFS disks » Archimedes » Unlabelled_disk_3.ADF » Arcade/Title/Finish
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Arcade/Title/Finish
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Arcade/Title/Finish
- Personal collection » Acorn hard disk » misc » dcfprogs » Arcade/Title/Finish
- Personal collection » Acorn hard disk » misc » misc2 » shipw4/Arcade/Title/Finish
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
.