Home » Personal collection » Acorn ADFS disks » Electron » Tynesoft.ADF » Phantom/PHAN3
Phantom/PHAN3
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 » Tynesoft.ADF |
Filename: | Phantom/PHAN3 |
Read OK: | ✔ |
File size: | 4A00 bytes |
Load address: | 0E00 |
Exec address: | 27DD |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » tynesoft » tynesoft_5_25_discs_Phantom_HD-PHAN.ssd » PHAN4
- Personal collection » Acorn ADFS disks » Electron » Tynesoft.ADF » Phantom/PHAN3
- Personal collection » Acorn hard disk » zipped_disks » elk07 » tynesoft/Phantom/PHAN3
File contents
10REM"�P1 20tX=&11F0 30o%=P% 40SCRL%=&70:SCRH%=&71:CHRL%=&72:CHRH%=&73:WID%=&74:HEI%=&75:XHB%=&77:XLB%=&78:YHB%=&79:YLB%=&7A:mask=&DAA 50FORX=0TO2STEP2:P%=o%:[OPTX 60.CORD TXA:CLC:RORA:TAX 70LDA#0:STA YLB%:STA YHB%:TYA:EOR#&FF:TAY:AND#&F8:LSR A:LSR A:STA YHB%:LSR A:LSR A:PHP:CLC:ADC YHB%:STA YHB%:PLP:ROR YLB%:LSRYHB%:RORYLB%:TYA:AND#7:CLC:ADC YLB%:STA YLB%:LDA#&58:ADC YHB%:STA YHB% 80LDA#0:STA XLB%:STA XHB%:TXA:AND#&FE:STA XLB%:ASL XLB%:ROL XHB%:ASL XLB%:ROL XHB%:CLC:LDA XLB%:ADC YLB%:STA SCRL%:LDA XHB%:ADC YHB%:STA SCRH% 90.rtt 100RTS:.FERRARI JSR CORD:LDA WID%:BMI rtt:CLC:RORA:STA WID%:BEQ rtt 110LDX#5:.PLP1:LDA&70,X:STA&86,X:DEX:BPL PLP1:LDA&86:AND#7:STA&8C:EOR#7:STA&8D:.PLP2:LDY#0:CLC:LDA&86:ADC#&38:STA&8E:LDA&87:ADC#1:STA&8F 120.PLP3:LDX&8D:.PLP4:LDA(&86),Y:AND mask:EOR(&88),Y:STA(&86),Y:INY:DEX:BPL PLP4:LDX&8C:BEQ PLP6:.PLP5:LDA(&8E),Y:AND mask:EOR(&88),Y:STA(&8E),Y:INY:DEX:BNE PLP5:.PLP6:DEC&8A:BNE PLP3:DEC&75:BEQ PLP7:LDA&74:STA&8A:LDA&8E:CLC:ADC#8:STA&86 130LDA&8F:ADC#0:STA&87:TYA:CLC:ADC&88:STA&88:BCC PLP2:INC&89:BNE PLP2:.PLP7:RTS 140.rnd LDAsd:AND#&48:ADC#&38:ASL A:ASL A:ROLsd+1:ROLsd+2:ROLsd:LDA sd+1:RTS:.sd BRK:BRK:BRK:BRK 150.noise CLC:ROL A:ROL A:ROL A 160CLC:ADC#sou MOD 256:TAX 170LDA#sou DIV 256:ADC#0:TAY 180LDA#7:JMP&FFF1 190.addsc1 SED:CLC:LDA&57F0:ADC&64:STA&57F0:BCC retz:LDA&57F1:CLC:ADC#1:STA&57F1:.retz CLD:RTS 200\"�SOUND ! 210.sou 220EQUW &11:EQUW &FFF9:EQUW 200:EQUW 1 230EQUW &11:EQUW &3:EQUW 200:EQUW 1 240EQUW &11:EQUW &4:EQUW 200:EQUW 1 250EQUW &11:EQUW &4:EQUW 100:EQUW 1 260EQUW &11:EQUW &5:EQUW 10:EQUW 1 270EQUW &11:EQUW &1:EQUW 190:EQUW 2 280EQUW &11:EQUW &3:EQUW 176:EQUW 1 290EQUW &11:EQUW &3:EQUW 1:EQUW 4 300EQUW &11:EQUW &2:EQUW 4:EQUW 10 310EQUW &11:EQUW &5:EQUW 160:EQUW 10 320.pnum 330PHA 340CLC:RORA:RORA:RORA:RORA:JSR OSNUM 350PLA:AND#&0F 360.OSNUM 370STA tX+1 380PHA:TXA:PHA:TYA:PHA 390LDA tX 400CLC:ADC#8:STA tX 410LDA tX+1 420CLC:ROLA:CLC:ROLA:CLC:ROLA:STA tX+1:CLC:ADC tX+1:STA CHRL% 430LDA#&0C:STA CHRH% 440LDX tX 450LDA#4:STA WID%:LDA#1:STA HEI%:JSR FERRARI 460PLA:TAY:PLA:TAX:PLA:RTS 461 .K% 462 JMP u1:JMP d1:JMP r1:JMP l1:JMP f1 470 .u1 LDY#&FF:LDX#(&100-73):JMPe:.d1 LDY#&FF:LDX#(&100-105):JMPe:.l1 LDY#&FF:LDX#(&100-98):JMPe:.r1 LDY#&FF:LDX#(&100-67):JMPe:.f1 LDY#&FF:LDX#(&100-99) 470 .u1 LDA&BD0:BEQju1:LDY#&FF:LDX#(&100-73):JMPe:.d1 LDA&BD0:BEQjd1:LDY#&FF:LDX#(&100-105):JMPe:.l1 LDA&BD0:BEQjl1:LDY#&FF:LDX#(&100-98):JMPe:.r1 LDA&BD0:BEQjr1:LDY#&FF:LDX#(&100-67):JMPe:.f1 LDA&BD0:BEQ jf1:LDY#&FF:LDX#(&100-99) 480 .e LDA#&81:JSR&FFF4:CPX#&FF:RTS 481 .ju1 LDA&FCC0:AND#1:RTS:.jd1 LDA&FCC0:AND#2:RTS:.jr1 LDA&FCC0:AND#8:RTS:.jl1 LDA&FCC0:AND#4:RTS:.jf1 LDA&FCC0:AND#16:RTS 490]:NEXT 500?sd=&EE:?(sd+1)=&CC:?(sd+2)=11 510PRINT"�P1 - FERRARI:�&2200�-�&";~P% 520N%=noise 530W%=addsc1 540V%=pnum 550R%=rnd 560C%=FERRARI 570PAGE=&3000:CHAIN"P2"
�"�P1 tX=&11F0 o%=P% (kSCRL%=&70:SCRH%=&71:CHRL%=&72:CHRH%=&73:WID%=&74:HEI%=&75:XHB%=&77:XLB%=&78:YHB%=&79:YLB%=&7A:mask=&DAA 2�X=0�2�2:P%=o%:[OPTX <.CORD TXA:CLC:RORA:TAX F�LDA#0:STA YLB%:STA YHB%:TYA:�#&FF:TAY:�#&F8:LSR A:LSR A:STA YHB%:LSR A:LSR A:PHP:CLC:ADC YHB%:STA YHB%:PLP:ROR YLB%:LSRYHB%:RORYLB%:TYA:�#7:CLC:ADC YLB%:STA YLB%:LDA#&58:ADC YHB%:STA YHB% P�LDA#0:STA XLB%:STA XHB%:TXA:�#&FE:STA XLB%:ASL XLB%:ROL XHB%:ASL XLB%:ROL XHB%:CLC:LDA XLB%:ADC YLB%:STA SCRL%:LDA XHB%:ADC YHB%:STA SCRH% Z.rtt dDRTS:.FERRARI JSR CORD:LDA WID%:BMI rtt:CLC:RORA:STA WID%:BEQ rtt n�LDX#5:.PLP1:LDA&70,X:STA&86,X:DEX:BPL PLP1:LDA&86:�#7:STA&8C:�#7:STA&8D:.PLP2:LDY#0:CLC:LDA&86:ADC#&38:STA&8E:LDA&87:ADC#1:STA&8F x�.PLP3:LDX&8D:.PLP4:LDA(&86),Y:� mask:�(&88),Y:STA(&86),Y:INY:DEX:BPL PLP4:LDX&8C:BEQ PLP6:.PLP5:LDA(&8E),Y:� mask:�(&88),Y:STA(&8E),Y:INY:DEX:BNE PLP5:.PLP6:DEC&8A:BNE PLP3:DEC&75:BEQ PLP7:LDA&74:STA&8A:LDA&8E:CLC:ADC#8:STA&86 �PLDA&8F:ADC#0:STA&87:TYA:CLC:ADC&88:STA&88:BCC PLP2:INC&89:BNE PLP2:.PLP7:RTS �_.rnd LDAsd:�#&48:ADC#&38:ASL A:ASL A:ROLsd+1:ROLsd+2:ROLsd:LDA sd+1:RTS:.sd BRK:BRK:BRK:BRK �!.noise CLC:ROL A:ROL A:ROL A �CLC:ADC#sou � 256:TAX �LDA#sou � 256:ADC#0:TAY �LDA#7:JMP&FFF1 �_.addsc1 SED:CLC:LDA&57F0:ADC&64:STA&57F0:BCC retz:LDA&57F1:CLC:ADC#1:STA&57F1:.retz CLD:RTS �\"�SOUND ! �.sou �'EQUW &11:EQUW &FFF9:EQUW 200:EQUW 1 �$EQUW &11:EQUW &3:EQUW 200:EQUW 1 �$EQUW &11:EQUW &4:EQUW 200:EQUW 1 �$EQUW &11:EQUW &4:EQUW 100:EQUW 1 #EQUW &11:EQUW &5:EQUW 10:EQUW 1 $EQUW &11:EQUW &1:EQUW 190:EQUW 2 $EQUW &11:EQUW &3:EQUW 176:EQUW 1 ""EQUW &11:EQUW &3:EQUW 1:EQUW 4 ,#EQUW &11:EQUW &2:EQUW 4:EQUW 10 6%EQUW &11:EQUW &5:EQUW 160:EQUW 10 @ .pnum JPHA T%CLC:RORA:RORA:RORA:RORA:JSR OSNUM ^ PLA:�#&0F h .OSNUM rSTA tX+1 |PHA:TXA:PHA:TYA:PHA � LDA tX �CLC:ADC#8:STA tX �LDA tX+1 �>CLC:ROLA:CLC:ROLA:CLC:ROLA:STA tX+1:CLC:ADC tX+1:STA CHRL% �LDA#&0C:STA CHRH% � LDX tX �-LDA#4:STA WID%:LDA#1:STA HEI%:JSR FERRARI �PLA:TAY:PLA:TAX:PLA:RTS � .K% �� JMP u1:JMP d1:JMP r1:JMP l1:JMP f1 470 .u1 LDY#&FF:LDX#(&100-73):JMPe:.d1 LDY#&FF:LDX#(&100-105):JMPe:.l1 LDY#&FF:LDX#(&100-98):JMPe:.r1 LDY#&FF:LDX#(&100-67):JMPe:.f1 LDY#&FF:LDX#(&100-99) �� .u1 LDA&BD0:BEQju1:LDY#&FF:LDX#(&100-73):JMPe:.d1 LDA&BD0:BEQjd1:LDY#&FF:LDX#(&100-105):JMPe:.l1 LDA&BD0:BEQjl1:LDY#&FF:LDX#(&100-98):JMPe:.r1 LDA&BD0:BEQjr1:LDY#&FF:LDX#(&100-67):JMPe:.f1 LDA&BD0:BEQ jf1:LDY#&FF:LDX#(&100-99) �$ .e LDA#&81:JSR&FFF4:CPX#&FF:RTS �s .ju1 LDA&FCC0:�#1:RTS:.jd1 LDA&FCC0:�#2:RTS:.jr1 LDA&FCC0:�#8:RTS:.jl1 LDA&FCC0:�#4:RTS:.jf1 LDA&FCC0:�#16:RTS �]:� �"?sd=&EE:?(sd+1)=&CC:?(sd+2)=11 �#�"�P1 - FERRARI:�&2200�-�&";~P% N%=noise W%=addsc1 V%=pnum & R%=rnd 0C%=FERRARI :�=&3000:�"P2" �: X �� : % �# �CRL% p 2 CRH% q HRL% r `HRH% s ID% t '