Home » Personal collection » Acorn hard disk » misc » misc2 » shipw3/Backup/Game2B

shipw3/Backup/Game2B

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: shipw3/Backup/Game2B
Read OK:
File size: 0E80 bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
 1000[OPT pass
 1020.quitch LDX#&8F:JSRkeybyte:BCSquitok:.strend RTS:.quitok PLA:PLA:LDX#&FF:JSRkeybyte:BCCzap:JMPprog
 1030.zap LDAxold:STAxpos:LDAyold:STAypos:LDAsound:BEQnozaps:LDA#7:LDX#(zapn MOD 256):LDY#(zapn DIV 256):JSRosword
 1040.nozaps LDA#1:STApowchange:LDApower:SEC:SBC#&28:STApower:BEQyoudie:BCCyoudie:JSRscrdisp:JMPnewscr
 1050.youdie JMPkillu
 1060.gameover LDA#5:STAxch:LDA#16:STAych:LDA#1:STAcol:LDA#(gamdead MOD 256):STA&72:LDA#(gamdead DIV 256):STA&73:JSRstring:LDA#0:PHA
 1070.bellop LDAclock:CLC:ADC#100:STA&80:.belwait LDAclock:CMP&80:BNEbelwait:LDAsound:BEQnobell:LDA#7:LDX#(over MOD 256):LDY#(over DIV 256):JSRosword
 1080.nobell PLA:CLC:ADC#1:PHA:CMP#4:BNEbellop:PLA:RTS
 1090.gamdead EQUB7:EQUB1:EQUB12:EQUB5:EQUB0:EQUB22:EQUB19:EQUB5:EQUB15:EQUB255
 1100.over EQUW1:EQUW-15:EQUW0:EQUW5
 1170.objecth LDY#0:.oblop LDA&FA0,Y:AND#15:STA&F20,Y:LDA&FC0,Y:AND#15:STA&F40,Y:LDA&FE0,Y:LSR A:LSR A:LSR A:LSR A:AND#15:STA&F60,Y:LDA&FE0,Y:AND#15:STA&F80,Y:INY:CPY#32:BNEoblop:RTS
 1180.objcheck JSRgetrelt:LDY#0:.obclop LDA&F20,Y:CMPgx:BNEnotthat:LDA&F40,Y:CMPgy:BNEnotthat:LDA&F60,Y:CMPgxs:BNEnotthat:LDA&F80,Y:CMPgys:BEQdrawobj:.notthat INY:CPY#32:BNEobclop:RTS
 1190.drawobj PLA:PLA:LDAxset:ASL A:STAxch:LDAyset:ASL A:STAych:LDA&F00,Y:STAcol:TYA:CLC:ADC#&E0:STA&7F
 1200LDA#0:STA&72:LDA#&A:STA&73:JSRobjdisp:INCxch:INC&73:JSRobjdisp:INCych:LDA#&E:STA&73:JSRobjdisp:DECxch:DEC&73:JSRobjdisp:LDY#8:LDA#0:.clearspob STA&BFF,Y:DEY:BNEclearspob:RTS
 1210.objdisp LDY&7F:LDX#8:.objdlop LDA(&72),Y:STA&BFF,X:TYA:SEC:SBC#32:TAY:DEX:BNEobjdlop:TXA:JMPputch
 1220.getoput LDX#&9D:JSRkeybyte:BCSpickup:LDA#0:STAgetstat:.keyhang RTS
 1230.pickup LDAgetstat:BNEkeyhang:LDAsound:BEQnogp:LDA#7:LDX#(switn MOD 256):LDY#(switn DIV 256):JSRosword:.nogp LDAobjects+1:CMP#&20:BCSnoputdown:TAY:LDAxscr:STA&F60,Y:LDAyscr:STA&F80,Y:LDAxpos:STA&F20,Y:LDAypos:STA&F40,Y:STY&70:JSRpuzz
 1240.noputdown LDAobjects:STAobjects+1:LDY#0:.obglop LDA&F20,Y:CPY&70:BEQnotgot:CMPxpos:BNEnotgot:LDA&F40,Y:CMPypos:BNEnotgot:LDA&F60,Y:CMPxscr:BNEnotgot:LDA&F80,Y:CMPyscr:BEQgettobj:.notgot INY:CPY#32:BNEobglop:STYobjects:JMPnogetob
 1250.gettobj CPY#28:BCCnoener:LDA#&FF:STA&F20,Y:STApower:STApowchange
 1260LDA#7:LDX#(enrup MOD 256):LDY#(enrup DIV 256):JSRosword:LDY#32:STYobjects:JMPnogetob:.noener STYobjects:LDA#&FF:STA&F20,Y
 1270.nogetob LDXxpos:LDYypos:JSRmcd:LDA#0:STAwiper:LDA#1:STAchanged:STAobch:STAgetstat:RTS
 1280.title LDA#0:STAcenx:STAceny:JSRblascr:JSRobjecth:.titlop INCtitstat:LDAtitstat:AND#7:TAY:LDAtitscrs,Y:LSR A:LSR A:LSR A:LSR A:STAxscr:LDAtitscrs,Y:AND#&0F:STAyscr:JSRtitdisp:LDA#&3F:STAinvflag
 1285LDA#&15:STAcol:LDA#4:STAxch:LDA#5:STAych:LDA#(name MOD 256):STA&72:LDA#(name DIV 256):STA&73:JSRstring:LDA#4:STAcol:LDA#3:STAxch:LDA#16:STAych:LDA#(creda MOD 256):STA&72:LDA#(creda DIV 256):STA&73:JSRstring
 1290LDA#4:STAxch:LDA#18:STAych:LDA#(credb MOD 256):STA&72:JSRstring:LDA#4:STAxch:LDA#20:STAych:LDA#(credc MOD 256):STA&72:LDA#(credc DIV 256):STA&73:JSRstring
 1300LDA#8:STAxch:LDA#22:STAych:LDA#(credd MOD 256):STA&72:JSRstring:LDA#0:STAxch:LDA#30:STAych:LDA#(space MOD 256):STA&72:LDA#(space DIV 256):STA&73:JSRstring
 1310LDAclock:SEC:SBC#1:STA&80:.soundpr LDA#6:STAxch:LDA#26:STAych:LDA#(sndoff MOD 256):STA&72:LDA#(sndoff DIV 256):STA&73:LDAsound:BEQsoundset:LDA#(sndon MOD 256):STA&72
 1320.soundset JSRstring:.sstop LDX#&AE:JSRkeybyte:BCSsstop
 1330.spacwait LDAclock:CMP&80:BEQnextscr:LDX#&AE:JSRkeybyte:BCSseor:LDX#&9D:JSRkeybyte:BCCspacwait:RTS:.nextscr INCtitcyc:DEC&80:LDAtitcyc:AND#3:BNEspacwait:JMPtitlop
 1340.seor LDAsound:EOR#1:STAsound:JMPsoundpr
 1345.zeroch LDA#8:CMPobjects:BEQsuitok:CMPobjects+1:BEQsuitok:JMPzap:.suitok JMPzerogr
 1350.splat EQUW0:EQUW-10:EQUW20:EQUW2
 1360.orad EQUB0:EQUB8:EQUB8:EQUB8:EQUB&28:EQUB8:EQUB8:EQUB8
 1430]:IF P%>&1A00 THEN PRINT''"Code Overflow to:";~P%:END
 1435PRINTTAB(15,3)~P%;
 1440ENDPROC
�
[OPT pass
�f.quitch LDX#&8F:JSRkeybyte:BCSquitok:.strend RTS:.quitok PLA:PLA:LDX#&FF:JSRkeybyte:BCCzap:JMPprog
m.zap LDAxold:STAxpos:LDAyold:STAypos:LDAsound:BEQnozaps:LDA#7:LDX#(zapn � 256):LDY#(zapn � 256):JSRosword
e.nozaps LDA#1:STApowchange:LDApower:SEC:SBC#&28:STApower:BEQyoudie:BCCyoudie:JSRscrdisp:JMPnewscr
.youdie JMPkillu
$.gameover LDA#5:STAxch:LDA#16:STAych:LDA#1:STAcol:LDA#(gamdead � 256):STA&72:LDA#(gamdead � 256):STA&73:JSRstring:LDA#0:PHA
.�.bellop LDAclock:CLC:ADC#100:STA&80:.belwait LDAclock:CMP&80:BNEbelwait:LDAsound:BEQnobell:LDA#7:LDX#(over � 256):LDY#(over � 256):JSRosword
85.nobell PLA:CLC:ADC#1:PHA:CMP#4:BNEbellop:PLA:RTS
BN.gamdead EQUB7:EQUB1:EQUB12:EQUB5:EQUB0:EQUB22:EQUB19:EQUB5:EQUB15:EQUB255
L#.over EQUW1:EQUW-15:EQUW0:EQUW5
��.objecth LDY#0:.oblop LDA&FA0,Y:�#15:STA&F20,Y:LDA&FC0,Y:�#15:STA&F40,Y:LDA&FE0,Y:LSR A:LSR A:LSR A:LSR A:�#15:STA&F60,Y:LDA&FE0,Y:�#15:STA&F80,Y:INY:CPY#32:BNEoblop:RTS
��.objcheck JSRgetrelt:LDY#0:.obclop LDA&F20,Y:CMPgx:BNEnotthat:LDA&F40,Y:CMPgy:BNEnotthat:LDA&F60,Y:CMPgxs:BNEnotthat:LDA&F80,Y:CMPgys:BEQdrawobj:.notthat INY:CPY#32:BNEobclop:RTS
�f.drawobj PLA:PLA:LDAxset:ASL A:STAxch:LDAyset:ASL A:STAych:LDA&F00,Y:STAcol:TYA:CLC:ADC#&E0:STA&7F
��LDA#0:STA&72:LDA#&A:STA&73:JSRobjdisp:INCxch:INC&73:JSRobjdisp:INCych:LDA#&E:STA&73:JSRobjdisp:DECxch:DEC&73:JSRobjdisp:LDY#8:LDA#0:.clearspob STA&BFF,Y:DEY:BNEclearspob:RTS
�f.objdisp LDY&7F:LDX#8:.objdlop LDA(&72),Y:STA&BFF,X:TYA:SEC:SBC#32:TAY:DEX:BNEobjdlop:TXA:JMPputch
�G.getoput LDX#&9D:JSRkeybyte:BCSpickup:LDA#0:STAgetstat:.keyhang RTS
��.pickup LDAgetstat:BNEkeyhang:LDAsound:BEQnogp:LDA#7:LDX#(switn � 256):LDY#(switn � 256):JSRosword:.nogp LDAobjects+1:CMP#&20:BCSnoputdown:TAY:LDAxscr:STA&F60,Y:LDAyscr:STA&F80,Y:LDAxpos:STA&F20,Y:LDAypos:STA&F40,Y:STY&70:JSRpuzz
��.noputdown LDAobjects:STAobjects+1:LDY#0:.obglop LDA&F20,Y:CPY&70:BEQnotgot:CMPxpos:BNEnotgot:LDA&F40,Y:CMPypos:BNEnotgot:LDA&F60,Y:CMPxscr:BNEnotgot:LDA&F80,Y:CMPyscr:BEQgettobj:.notgot INY:CPY#32:BNEobglop:STYobjects:JMPnogetob
�E.gettobj CPY#28:BCCnoener:LDA#&FF:STA&F20,Y:STApower:STApowchange
�yLDA#7:LDX#(enrup � 256):LDY#(enrup � 256):JSRosword:LDY#32:STYobjects:JMPnogetob:.noener STYobjects:LDA#&FF:STA&F20,Y
�Z.nogetob LDXxpos:LDYypos:JSRmcd:LDA#0:STAwiper:LDA#1:STAchanged:STAobch:STAgetstat:RTS
�.title LDA#0:STAcenx:STAceny:JSRblascr:JSRobjecth:.titlop INCtitstat:LDAtitstat:�#7:TAY:LDAtitscrs,Y:LSR A:LSR A:LSR A:LSR A:STAxscr:LDAtitscrs,Y:�#&0F:STAyscr:JSRtitdisp:LDA#&3F:STAinvflag
�LDA#&15:STAcol:LDA#4:STAxch:LDA#5:STAych:LDA#(name � 256):STA&72:LDA#(name � 256):STA&73:JSRstring:LDA#4:STAcol:LDA#3:STAxch:LDA#16:STAych:LDA#(creda � 256):STA&72:LDA#(creda � 256):STA&73:JSRstring

�LDA#4:STAxch:LDA#18:STAych:LDA#(credb � 256):STA&72:JSRstring:LDA#4:STAxch:LDA#20:STAych:LDA#(credc � 256):STA&72:LDA#(credc � 256):STA&73:JSRstring
�LDA#8:STAxch:LDA#22:STAych:LDA#(credd � 256):STA&72:JSRstring:LDA#0:STAxch:LDA#30:STAych:LDA#(space � 256):STA&72:LDA#(space � 256):STA&73:JSRstring
�LDAclock:SEC:SBC#1:STA&80:.soundpr LDA#6:STAxch:LDA#26:STAych:LDA#(sndoff � 256):STA&72:LDA#(sndoff � 256):STA&73:LDAsound:BEQsoundset:LDA#(sndon � 256):STA&72
(:.soundset JSRstring:.sstop LDX#&AE:JSRkeybyte:BCSsstop
2�.spacwait LDAclock:CMP&80:BEQnextscr:LDX#&AE:JSRkeybyte:BCSseor:LDX#&9D:JSRkeybyte:BCCspacwait:RTS:.nextscr INCtitcyc:DEC&80:LDAtitcyc:�#3:BNEspacwait:JMPtitlop
<*.seor LDAsound:�#1:STAsound:JMPsoundpr
AV.zeroch LDA#8:CMPobjects:BEQsuitok:CMPobjects+1:BEQsuitok:JMPzap:.suitok JMPzerogr
F%.splat EQUW0:EQUW-10:EQUW20:EQUW2
P;.orad EQUB0:EQUB8:EQUB8:EQUB8:EQUB&28:EQUB8:EQUB8:EQUB8
�/]:� P%>&1A00 � �''"Code Overflow to:";~P%:�
��15,3)~P%;
��
�
00000000  0d 03 e8 0d 5b 4f 50 54  20 70 61 73 73 0d 03 fc  |....[OPT pass...|
00000010  66 2e 71 75 69 74 63 68  20 4c 44 58 23 26 38 46  |f.quitch LDX#&8F|
00000020  3a 4a 53 52 6b 65 79 62  79 74 65 3a 42 43 53 71  |:JSRkeybyte:BCSq|
00000030  75 69 74 6f 6b 3a 2e 73  74 72 65 6e 64 20 52 54  |uitok:.strend RT|
00000040  53 3a 2e 71 75 69 74 6f  6b 20 50 4c 41 3a 50 4c  |S:.quitok PLA:PL|
00000050  41 3a 4c 44 58 23 26 46  46 3a 4a 53 52 6b 65 79  |A:LDX#&FF:JSRkey|
00000060  62 79 74 65 3a 42 43 43  7a 61 70 3a 4a 4d 50 70  |byte:BCCzap:JMPp|
00000070  72 6f 67 0d 04 06 6d 2e  7a 61 70 20 4c 44 41 78  |rog...m.zap LDAx|
00000080  6f 6c 64 3a 53 54 41 78  70 6f 73 3a 4c 44 41 79  |old:STAxpos:LDAy|
00000090  6f 6c 64 3a 53 54 41 79  70 6f 73 3a 4c 44 41 73  |old:STAypos:LDAs|
000000a0  6f 75 6e 64 3a 42 45 51  6e 6f 7a 61 70 73 3a 4c  |ound:BEQnozaps:L|
000000b0  44 41 23 37 3a 4c 44 58  23 28 7a 61 70 6e 20 83  |DA#7:LDX#(zapn .|
000000c0  20 32 35 36 29 3a 4c 44  59 23 28 7a 61 70 6e 20  | 256):LDY#(zapn |
000000d0  81 20 32 35 36 29 3a 4a  53 52 6f 73 77 6f 72 64  |. 256):JSRosword|
000000e0  0d 04 10 65 2e 6e 6f 7a  61 70 73 20 4c 44 41 23  |...e.nozaps LDA#|
000000f0  31 3a 53 54 41 70 6f 77  63 68 61 6e 67 65 3a 4c  |1:STApowchange:L|
00000100  44 41 70 6f 77 65 72 3a  53 45 43 3a 53 42 43 23  |DApower:SEC:SBC#|
00000110  26 32 38 3a 53 54 41 70  6f 77 65 72 3a 42 45 51  |&28:STApower:BEQ|
00000120  79 6f 75 64 69 65 3a 42  43 43 79 6f 75 64 69 65  |youdie:BCCyoudie|
00000130  3a 4a 53 52 73 63 72 64  69 73 70 3a 4a 4d 50 6e  |:JSRscrdisp:JMPn|
00000140  65 77 73 63 72 0d 04 1a  14 2e 79 6f 75 64 69 65  |ewscr.....youdie|
00000150  20 4a 4d 50 6b 69 6c 6c  75 0d 04 24 7f 2e 67 61  | JMPkillu..$..ga|
00000160  6d 65 6f 76 65 72 20 4c  44 41 23 35 3a 53 54 41  |meover LDA#5:STA|
00000170  78 63 68 3a 4c 44 41 23  31 36 3a 53 54 41 79 63  |xch:LDA#16:STAyc|
00000180  68 3a 4c 44 41 23 31 3a  53 54 41 63 6f 6c 3a 4c  |h:LDA#1:STAcol:L|
00000190  44 41 23 28 67 61 6d 64  65 61 64 20 83 20 32 35  |DA#(gamdead . 25|
000001a0  36 29 3a 53 54 41 26 37  32 3a 4c 44 41 23 28 67  |6):STA&72:LDA#(g|
000001b0  61 6d 64 65 61 64 20 81  20 32 35 36 29 3a 53 54  |amdead . 256):ST|
000001c0  41 26 37 33 3a 4a 53 52  73 74 72 69 6e 67 3a 4c  |A&73:JSRstring:L|
000001d0  44 41 23 30 3a 50 48 41  0d 04 2e 90 2e 62 65 6c  |DA#0:PHA.....bel|
000001e0  6c 6f 70 20 4c 44 41 63  6c 6f 63 6b 3a 43 4c 43  |lop LDAclock:CLC|
000001f0  3a 41 44 43 23 31 30 30  3a 53 54 41 26 38 30 3a  |:ADC#100:STA&80:|
00000200  2e 62 65 6c 77 61 69 74  20 4c 44 41 63 6c 6f 63  |.belwait LDAcloc|
00000210  6b 3a 43 4d 50 26 38 30  3a 42 4e 45 62 65 6c 77  |k:CMP&80:BNEbelw|
00000220  61 69 74 3a 4c 44 41 73  6f 75 6e 64 3a 42 45 51  |ait:LDAsound:BEQ|
00000230  6e 6f 62 65 6c 6c 3a 4c  44 41 23 37 3a 4c 44 58  |nobell:LDA#7:LDX|
00000240  23 28 6f 76 65 72 20 83  20 32 35 36 29 3a 4c 44  |#(over . 256):LD|
00000250  59 23 28 6f 76 65 72 20  81 20 32 35 36 29 3a 4a  |Y#(over . 256):J|
00000260  53 52 6f 73 77 6f 72 64  0d 04 38 35 2e 6e 6f 62  |SRosword..85.nob|
00000270  65 6c 6c 20 50 4c 41 3a  43 4c 43 3a 41 44 43 23  |ell PLA:CLC:ADC#|
00000280  31 3a 50 48 41 3a 43 4d  50 23 34 3a 42 4e 45 62  |1:PHA:CMP#4:BNEb|
00000290  65 6c 6c 6f 70 3a 50 4c  41 3a 52 54 53 0d 04 42  |ellop:PLA:RTS..B|
000002a0  4e 2e 67 61 6d 64 65 61  64 20 45 51 55 42 37 3a  |N.gamdead EQUB7:|
000002b0  45 51 55 42 31 3a 45 51  55 42 31 32 3a 45 51 55  |EQUB1:EQUB12:EQU|
000002c0  42 35 3a 45 51 55 42 30  3a 45 51 55 42 32 32 3a  |B5:EQUB0:EQUB22:|
000002d0  45 51 55 42 31 39 3a 45  51 55 42 35 3a 45 51 55  |EQUB19:EQUB5:EQU|
000002e0  42 31 35 3a 45 51 55 42  32 35 35 0d 04 4c 23 2e  |B15:EQUB255..L#.|
000002f0  6f 76 65 72 20 45 51 55  57 31 3a 45 51 55 57 2d  |over EQUW1:EQUW-|
00000300  31 35 3a 45 51 55 57 30  3a 45 51 55 57 35 0d 04  |15:EQUW0:EQUW5..|
00000310  92 ad 2e 6f 62 6a 65 63  74 68 20 4c 44 59 23 30  |...objecth LDY#0|
00000320  3a 2e 6f 62 6c 6f 70 20  4c 44 41 26 46 41 30 2c  |:.oblop LDA&FA0,|
00000330  59 3a 80 23 31 35 3a 53  54 41 26 46 32 30 2c 59  |Y:.#15:STA&F20,Y|
00000340  3a 4c 44 41 26 46 43 30  2c 59 3a 80 23 31 35 3a  |:LDA&FC0,Y:.#15:|
00000350  53 54 41 26 46 34 30 2c  59 3a 4c 44 41 26 46 45  |STA&F40,Y:LDA&FE|
00000360  30 2c 59 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |0,Y:LSR A:LSR A:|
00000370  4c 53 52 20 41 3a 4c 53  52 20 41 3a 80 23 31 35  |LSR A:LSR A:.#15|
00000380  3a 53 54 41 26 46 36 30  2c 59 3a 4c 44 41 26 46  |:STA&F60,Y:LDA&F|
00000390  45 30 2c 59 3a 80 23 31  35 3a 53 54 41 26 46 38  |E0,Y:.#15:STA&F8|
000003a0  30 2c 59 3a 49 4e 59 3a  43 50 59 23 33 32 3a 42  |0,Y:INY:CPY#32:B|
000003b0  4e 45 6f 62 6c 6f 70 3a  52 54 53 0d 04 9c b6 2e  |NEoblop:RTS.....|
000003c0  6f 62 6a 63 68 65 63 6b  20 4a 53 52 67 65 74 72  |objcheck JSRgetr|
000003d0  65 6c 74 3a 4c 44 59 23  30 3a 2e 6f 62 63 6c 6f  |elt:LDY#0:.obclo|
000003e0  70 20 4c 44 41 26 46 32  30 2c 59 3a 43 4d 50 67  |p LDA&F20,Y:CMPg|
000003f0  78 3a 42 4e 45 6e 6f 74  74 68 61 74 3a 4c 44 41  |x:BNEnotthat:LDA|
00000400  26 46 34 30 2c 59 3a 43  4d 50 67 79 3a 42 4e 45  |&F40,Y:CMPgy:BNE|
00000410  6e 6f 74 74 68 61 74 3a  4c 44 41 26 46 36 30 2c  |notthat:LDA&F60,|
00000420  59 3a 43 4d 50 67 78 73  3a 42 4e 45 6e 6f 74 74  |Y:CMPgxs:BNEnott|
00000430  68 61 74 3a 4c 44 41 26  46 38 30 2c 59 3a 43 4d  |hat:LDA&F80,Y:CM|
00000440  50 67 79 73 3a 42 45 51  64 72 61 77 6f 62 6a 3a  |Pgys:BEQdrawobj:|
00000450  2e 6e 6f 74 74 68 61 74  20 49 4e 59 3a 43 50 59  |.notthat INY:CPY|
00000460  23 33 32 3a 42 4e 45 6f  62 63 6c 6f 70 3a 52 54  |#32:BNEobclop:RT|
00000470  53 0d 04 a6 66 2e 64 72  61 77 6f 62 6a 20 50 4c  |S...f.drawobj PL|
00000480  41 3a 50 4c 41 3a 4c 44  41 78 73 65 74 3a 41 53  |A:PLA:LDAxset:AS|
00000490  4c 20 41 3a 53 54 41 78  63 68 3a 4c 44 41 79 73  |L A:STAxch:LDAys|
000004a0  65 74 3a 41 53 4c 20 41  3a 53 54 41 79 63 68 3a  |et:ASL A:STAych:|
000004b0  4c 44 41 26 46 30 30 2c  59 3a 53 54 41 63 6f 6c  |LDA&F00,Y:STAcol|
000004c0  3a 54 59 41 3a 43 4c 43  3a 41 44 43 23 26 45 30  |:TYA:CLC:ADC#&E0|
000004d0  3a 53 54 41 26 37 46 0d  04 b0 b1 4c 44 41 23 30  |:STA&7F....LDA#0|
000004e0  3a 53 54 41 26 37 32 3a  4c 44 41 23 26 41 3a 53  |:STA&72:LDA#&A:S|
000004f0  54 41 26 37 33 3a 4a 53  52 6f 62 6a 64 69 73 70  |TA&73:JSRobjdisp|
00000500  3a 49 4e 43 78 63 68 3a  49 4e 43 26 37 33 3a 4a  |:INCxch:INC&73:J|
00000510  53 52 6f 62 6a 64 69 73  70 3a 49 4e 43 79 63 68  |SRobjdisp:INCych|
00000520  3a 4c 44 41 23 26 45 3a  53 54 41 26 37 33 3a 4a  |:LDA#&E:STA&73:J|
00000530  53 52 6f 62 6a 64 69 73  70 3a 44 45 43 78 63 68  |SRobjdisp:DECxch|
00000540  3a 44 45 43 26 37 33 3a  4a 53 52 6f 62 6a 64 69  |:DEC&73:JSRobjdi|
00000550  73 70 3a 4c 44 59 23 38  3a 4c 44 41 23 30 3a 2e  |sp:LDY#8:LDA#0:.|
00000560  63 6c 65 61 72 73 70 6f  62 20 53 54 41 26 42 46  |clearspob STA&BF|
00000570  46 2c 59 3a 44 45 59 3a  42 4e 45 63 6c 65 61 72  |F,Y:DEY:BNEclear|
00000580  73 70 6f 62 3a 52 54 53  0d 04 ba 66 2e 6f 62 6a  |spob:RTS...f.obj|
00000590  64 69 73 70 20 4c 44 59  26 37 46 3a 4c 44 58 23  |disp LDY&7F:LDX#|
000005a0  38 3a 2e 6f 62 6a 64 6c  6f 70 20 4c 44 41 28 26  |8:.objdlop LDA(&|
000005b0  37 32 29 2c 59 3a 53 54  41 26 42 46 46 2c 58 3a  |72),Y:STA&BFF,X:|
000005c0  54 59 41 3a 53 45 43 3a  53 42 43 23 33 32 3a 54  |TYA:SEC:SBC#32:T|
000005d0  41 59 3a 44 45 58 3a 42  4e 45 6f 62 6a 64 6c 6f  |AY:DEX:BNEobjdlo|
000005e0  70 3a 54 58 41 3a 4a 4d  50 70 75 74 63 68 0d 04  |p:TXA:JMPputch..|
000005f0  c4 47 2e 67 65 74 6f 70  75 74 20 4c 44 58 23 26  |.G.getoput LDX#&|
00000600  39 44 3a 4a 53 52 6b 65  79 62 79 74 65 3a 42 43  |9D:JSRkeybyte:BC|
00000610  53 70 69 63 6b 75 70 3a  4c 44 41 23 30 3a 53 54  |Spickup:LDA#0:ST|
00000620  41 67 65 74 73 74 61 74  3a 2e 6b 65 79 68 61 6e  |Agetstat:.keyhan|
00000630  67 20 52 54 53 0d 04 ce  e9 2e 70 69 63 6b 75 70  |g RTS.....pickup|
00000640  20 4c 44 41 67 65 74 73  74 61 74 3a 42 4e 45 6b  | LDAgetstat:BNEk|
00000650  65 79 68 61 6e 67 3a 4c  44 41 73 6f 75 6e 64 3a  |eyhang:LDAsound:|
00000660  42 45 51 6e 6f 67 70 3a  4c 44 41 23 37 3a 4c 44  |BEQnogp:LDA#7:LD|
00000670  58 23 28 73 77 69 74 6e  20 83 20 32 35 36 29 3a  |X#(switn . 256):|
00000680  4c 44 59 23 28 73 77 69  74 6e 20 81 20 32 35 36  |LDY#(switn . 256|
00000690  29 3a 4a 53 52 6f 73 77  6f 72 64 3a 2e 6e 6f 67  |):JSRosword:.nog|
000006a0  70 20 4c 44 41 6f 62 6a  65 63 74 73 2b 31 3a 43  |p LDAobjects+1:C|
000006b0  4d 50 23 26 32 30 3a 42  43 53 6e 6f 70 75 74 64  |MP#&20:BCSnoputd|
000006c0  6f 77 6e 3a 54 41 59 3a  4c 44 41 78 73 63 72 3a  |own:TAY:LDAxscr:|
000006d0  53 54 41 26 46 36 30 2c  59 3a 4c 44 41 79 73 63  |STA&F60,Y:LDAysc|
000006e0  72 3a 53 54 41 26 46 38  30 2c 59 3a 4c 44 41 78  |r:STA&F80,Y:LDAx|
000006f0  70 6f 73 3a 53 54 41 26  46 32 30 2c 59 3a 4c 44  |pos:STA&F20,Y:LD|
00000700  41 79 70 6f 73 3a 53 54  41 26 46 34 30 2c 59 3a  |Aypos:STA&F40,Y:|
00000710  53 54 59 26 37 30 3a 4a  53 52 70 75 7a 7a 0d 04  |STY&70:JSRpuzz..|
00000720  d8 e9 2e 6e 6f 70 75 74  64 6f 77 6e 20 4c 44 41  |...noputdown LDA|
00000730  6f 62 6a 65 63 74 73 3a  53 54 41 6f 62 6a 65 63  |objects:STAobjec|
00000740  74 73 2b 31 3a 4c 44 59  23 30 3a 2e 6f 62 67 6c  |ts+1:LDY#0:.obgl|
00000750  6f 70 20 4c 44 41 26 46  32 30 2c 59 3a 43 50 59  |op LDA&F20,Y:CPY|
00000760  26 37 30 3a 42 45 51 6e  6f 74 67 6f 74 3a 43 4d  |&70:BEQnotgot:CM|
00000770  50 78 70 6f 73 3a 42 4e  45 6e 6f 74 67 6f 74 3a  |Pxpos:BNEnotgot:|
00000780  4c 44 41 26 46 34 30 2c  59 3a 43 4d 50 79 70 6f  |LDA&F40,Y:CMPypo|
00000790  73 3a 42 4e 45 6e 6f 74  67 6f 74 3a 4c 44 41 26  |s:BNEnotgot:LDA&|
000007a0  46 36 30 2c 59 3a 43 4d  50 78 73 63 72 3a 42 4e  |F60,Y:CMPxscr:BN|
000007b0  45 6e 6f 74 67 6f 74 3a  4c 44 41 26 46 38 30 2c  |Enotgot:LDA&F80,|
000007c0  59 3a 43 4d 50 79 73 63  72 3a 42 45 51 67 65 74  |Y:CMPyscr:BEQget|
000007d0  74 6f 62 6a 3a 2e 6e 6f  74 67 6f 74 20 49 4e 59  |tobj:.notgot INY|
000007e0  3a 43 50 59 23 33 32 3a  42 4e 45 6f 62 67 6c 6f  |:CPY#32:BNEobglo|
000007f0  70 3a 53 54 59 6f 62 6a  65 63 74 73 3a 4a 4d 50  |p:STYobjects:JMP|
00000800  6e 6f 67 65 74 6f 62 0d  04 e2 45 2e 67 65 74 74  |nogetob...E.gett|
00000810  6f 62 6a 20 43 50 59 23  32 38 3a 42 43 43 6e 6f  |obj CPY#28:BCCno|
00000820  65 6e 65 72 3a 4c 44 41  23 26 46 46 3a 53 54 41  |ener:LDA#&FF:STA|
00000830  26 46 32 30 2c 59 3a 53  54 41 70 6f 77 65 72 3a  |&F20,Y:STApower:|
00000840  53 54 41 70 6f 77 63 68  61 6e 67 65 0d 04 ec 79  |STApowchange...y|
00000850  4c 44 41 23 37 3a 4c 44  58 23 28 65 6e 72 75 70  |LDA#7:LDX#(enrup|
00000860  20 83 20 32 35 36 29 3a  4c 44 59 23 28 65 6e 72  | . 256):LDY#(enr|
00000870  75 70 20 81 20 32 35 36  29 3a 4a 53 52 6f 73 77  |up . 256):JSRosw|
00000880  6f 72 64 3a 4c 44 59 23  33 32 3a 53 54 59 6f 62  |ord:LDY#32:STYob|
00000890  6a 65 63 74 73 3a 4a 4d  50 6e 6f 67 65 74 6f 62  |jects:JMPnogetob|
000008a0  3a 2e 6e 6f 65 6e 65 72  20 53 54 59 6f 62 6a 65  |:.noener STYobje|
000008b0  63 74 73 3a 4c 44 41 23  26 46 46 3a 53 54 41 26  |cts:LDA#&FF:STA&|
000008c0  46 32 30 2c 59 0d 04 f6  5a 2e 6e 6f 67 65 74 6f  |F20,Y...Z.nogeto|
000008d0  62 20 4c 44 58 78 70 6f  73 3a 4c 44 59 79 70 6f  |b LDXxpos:LDYypo|
000008e0  73 3a 4a 53 52 6d 63 64  3a 4c 44 41 23 30 3a 53  |s:JSRmcd:LDA#0:S|
000008f0  54 41 77 69 70 65 72 3a  4c 44 41 23 31 3a 53 54  |TAwiper:LDA#1:ST|
00000900  41 63 68 61 6e 67 65 64  3a 53 54 41 6f 62 63 68  |Achanged:STAobch|
00000910  3a 53 54 41 67 65 74 73  74 61 74 3a 52 54 53 0d  |:STAgetstat:RTS.|
00000920  05 00 c1 2e 74 69 74 6c  65 20 4c 44 41 23 30 3a  |....title LDA#0:|
00000930  53 54 41 63 65 6e 78 3a  53 54 41 63 65 6e 79 3a  |STAcenx:STAceny:|
00000940  4a 53 52 62 6c 61 73 63  72 3a 4a 53 52 6f 62 6a  |JSRblascr:JSRobj|
00000950  65 63 74 68 3a 2e 74 69  74 6c 6f 70 20 49 4e 43  |ecth:.titlop INC|
00000960  74 69 74 73 74 61 74 3a  4c 44 41 74 69 74 73 74  |titstat:LDAtitst|
00000970  61 74 3a 80 23 37 3a 54  41 59 3a 4c 44 41 74 69  |at:.#7:TAY:LDAti|
00000980  74 73 63 72 73 2c 59 3a  4c 53 52 20 41 3a 4c 53  |tscrs,Y:LSR A:LS|
00000990  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
000009a0  53 54 41 78 73 63 72 3a  4c 44 41 74 69 74 73 63  |STAxscr:LDAtitsc|
000009b0  72 73 2c 59 3a 80 23 26  30 46 3a 53 54 41 79 73  |rs,Y:.#&0F:STAys|
000009c0  63 72 3a 4a 53 52 74 69  74 64 69 73 70 3a 4c 44  |cr:JSRtitdisp:LD|
000009d0  41 23 26 33 46 3a 53 54  41 69 6e 76 66 6c 61 67  |A#&3F:STAinvflag|
000009e0  0d 05 05 ca 4c 44 41 23  26 31 35 3a 53 54 41 63  |....LDA#&15:STAc|
000009f0  6f 6c 3a 4c 44 41 23 34  3a 53 54 41 78 63 68 3a  |ol:LDA#4:STAxch:|
00000a00  4c 44 41 23 35 3a 53 54  41 79 63 68 3a 4c 44 41  |LDA#5:STAych:LDA|
00000a10  23 28 6e 61 6d 65 20 83  20 32 35 36 29 3a 53 54  |#(name . 256):ST|
00000a20  41 26 37 32 3a 4c 44 41  23 28 6e 61 6d 65 20 81  |A&72:LDA#(name .|
00000a30  20 32 35 36 29 3a 53 54  41 26 37 33 3a 4a 53 52  | 256):STA&73:JSR|
00000a40  73 74 72 69 6e 67 3a 4c  44 41 23 34 3a 53 54 41  |string:LDA#4:STA|
00000a50  63 6f 6c 3a 4c 44 41 23  33 3a 53 54 41 78 63 68  |col:LDA#3:STAxch|
00000a60  3a 4c 44 41 23 31 36 3a  53 54 41 79 63 68 3a 4c  |:LDA#16:STAych:L|
00000a70  44 41 23 28 63 72 65 64  61 20 83 20 32 35 36 29  |DA#(creda . 256)|
00000a80  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 63 72 65  |:STA&72:LDA#(cre|
00000a90  64 61 20 81 20 32 35 36  29 3a 53 54 41 26 37 33  |da . 256):STA&73|
00000aa0  3a 4a 53 52 73 74 72 69  6e 67 0d 05 0a 98 4c 44  |:JSRstring....LD|
00000ab0  41 23 34 3a 53 54 41 78  63 68 3a 4c 44 41 23 31  |A#4:STAxch:LDA#1|
00000ac0  38 3a 53 54 41 79 63 68  3a 4c 44 41 23 28 63 72  |8:STAych:LDA#(cr|
00000ad0  65 64 62 20 83 20 32 35  36 29 3a 53 54 41 26 37  |edb . 256):STA&7|
00000ae0  32 3a 4a 53 52 73 74 72  69 6e 67 3a 4c 44 41 23  |2:JSRstring:LDA#|
00000af0  34 3a 53 54 41 78 63 68  3a 4c 44 41 23 32 30 3a  |4:STAxch:LDA#20:|
00000b00  53 54 41 79 63 68 3a 4c  44 41 23 28 63 72 65 64  |STAych:LDA#(cred|
00000b10  63 20 83 20 32 35 36 29  3a 53 54 41 26 37 32 3a  |c . 256):STA&72:|
00000b20  4c 44 41 23 28 63 72 65  64 63 20 81 20 32 35 36  |LDA#(credc . 256|
00000b30  29 3a 53 54 41 26 37 33  3a 4a 53 52 73 74 72 69  |):STA&73:JSRstri|
00000b40  6e 67 0d 05 14 98 4c 44  41 23 38 3a 53 54 41 78  |ng....LDA#8:STAx|
00000b50  63 68 3a 4c 44 41 23 32  32 3a 53 54 41 79 63 68  |ch:LDA#22:STAych|
00000b60  3a 4c 44 41 23 28 63 72  65 64 64 20 83 20 32 35  |:LDA#(credd . 25|
00000b70  36 29 3a 53 54 41 26 37  32 3a 4a 53 52 73 74 72  |6):STA&72:JSRstr|
00000b80  69 6e 67 3a 4c 44 41 23  30 3a 53 54 41 78 63 68  |ing:LDA#0:STAxch|
00000b90  3a 4c 44 41 23 33 30 3a  53 54 41 79 63 68 3a 4c  |:LDA#30:STAych:L|
00000ba0  44 41 23 28 73 70 61 63  65 20 83 20 32 35 36 29  |DA#(space . 256)|
00000bb0  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 73 70 61  |:STA&72:LDA#(spa|
00000bc0  63 65 20 81 20 32 35 36  29 3a 53 54 41 26 37 33  |ce . 256):STA&73|
00000bd0  3a 4a 53 52 73 74 72 69  6e 67 0d 05 1e a3 4c 44  |:JSRstring....LD|
00000be0  41 63 6c 6f 63 6b 3a 53  45 43 3a 53 42 43 23 31  |Aclock:SEC:SBC#1|
00000bf0  3a 53 54 41 26 38 30 3a  2e 73 6f 75 6e 64 70 72  |:STA&80:.soundpr|
00000c00  20 4c 44 41 23 36 3a 53  54 41 78 63 68 3a 4c 44  | LDA#6:STAxch:LD|
00000c10  41 23 32 36 3a 53 54 41  79 63 68 3a 4c 44 41 23  |A#26:STAych:LDA#|
00000c20  28 73 6e 64 6f 66 66 20  83 20 32 35 36 29 3a 53  |(sndoff . 256):S|
00000c30  54 41 26 37 32 3a 4c 44  41 23 28 73 6e 64 6f 66  |TA&72:LDA#(sndof|
00000c40  66 20 81 20 32 35 36 29  3a 53 54 41 26 37 33 3a  |f . 256):STA&73:|
00000c50  4c 44 41 73 6f 75 6e 64  3a 42 45 51 73 6f 75 6e  |LDAsound:BEQsoun|
00000c60  64 73 65 74 3a 4c 44 41  23 28 73 6e 64 6f 6e 20  |dset:LDA#(sndon |
00000c70  83 20 32 35 36 29 3a 53  54 41 26 37 32 0d 05 28  |. 256):STA&72..(|
00000c80  3a 2e 73 6f 75 6e 64 73  65 74 20 4a 53 52 73 74  |:.soundset JSRst|
00000c90  72 69 6e 67 3a 2e 73 73  74 6f 70 20 4c 44 58 23  |ring:.sstop LDX#|
00000ca0  26 41 45 3a 4a 53 52 6b  65 79 62 79 74 65 3a 42  |&AE:JSRkeybyte:B|
00000cb0  43 53 73 73 74 6f 70 0d  05 32 a4 2e 73 70 61 63  |CSsstop..2..spac|
00000cc0  77 61 69 74 20 4c 44 41  63 6c 6f 63 6b 3a 43 4d  |wait LDAclock:CM|
00000cd0  50 26 38 30 3a 42 45 51  6e 65 78 74 73 63 72 3a  |P&80:BEQnextscr:|
00000ce0  4c 44 58 23 26 41 45 3a  4a 53 52 6b 65 79 62 79  |LDX#&AE:JSRkeyby|
00000cf0  74 65 3a 42 43 53 73 65  6f 72 3a 4c 44 58 23 26  |te:BCSseor:LDX#&|
00000d00  39 44 3a 4a 53 52 6b 65  79 62 79 74 65 3a 42 43  |9D:JSRkeybyte:BC|
00000d10  43 73 70 61 63 77 61 69  74 3a 52 54 53 3a 2e 6e  |Cspacwait:RTS:.n|
00000d20  65 78 74 73 63 72 20 49  4e 43 74 69 74 63 79 63  |extscr INCtitcyc|
00000d30  3a 44 45 43 26 38 30 3a  4c 44 41 74 69 74 63 79  |:DEC&80:LDAtitcy|
00000d40  63 3a 80 23 33 3a 42 4e  45 73 70 61 63 77 61 69  |c:.#3:BNEspacwai|
00000d50  74 3a 4a 4d 50 74 69 74  6c 6f 70 0d 05 3c 2a 2e  |t:JMPtitlop..<*.|
00000d60  73 65 6f 72 20 4c 44 41  73 6f 75 6e 64 3a 82 23  |seor LDAsound:.#|
00000d70  31 3a 53 54 41 73 6f 75  6e 64 3a 4a 4d 50 73 6f  |1:STAsound:JMPso|
00000d80  75 6e 64 70 72 0d 05 41  56 2e 7a 65 72 6f 63 68  |undpr..AV.zeroch|
00000d90  20 4c 44 41 23 38 3a 43  4d 50 6f 62 6a 65 63 74  | LDA#8:CMPobject|
00000da0  73 3a 42 45 51 73 75 69  74 6f 6b 3a 43 4d 50 6f  |s:BEQsuitok:CMPo|
00000db0  62 6a 65 63 74 73 2b 31  3a 42 45 51 73 75 69 74  |bjects+1:BEQsuit|
00000dc0  6f 6b 3a 4a 4d 50 7a 61  70 3a 2e 73 75 69 74 6f  |ok:JMPzap:.suito|
00000dd0  6b 20 4a 4d 50 7a 65 72  6f 67 72 0d 05 46 25 2e  |k JMPzerogr..F%.|
00000de0  73 70 6c 61 74 20 45 51  55 57 30 3a 45 51 55 57  |splat EQUW0:EQUW|
00000df0  2d 31 30 3a 45 51 55 57  32 30 3a 45 51 55 57 32  |-10:EQUW20:EQUW2|
00000e00  0d 05 50 3b 2e 6f 72 61  64 20 45 51 55 42 30 3a  |..P;.orad EQUB0:|
00000e10  45 51 55 42 38 3a 45 51  55 42 38 3a 45 51 55 42  |EQUB8:EQUB8:EQUB|
00000e20  38 3a 45 51 55 42 26 32  38 3a 45 51 55 42 38 3a  |8:EQUB&28:EQUB8:|
00000e30  45 51 55 42 38 3a 45 51  55 42 38 0d 05 96 2f 5d  |EQUB8:EQUB8.../]|
00000e40  3a e7 20 50 25 3e 26 31  41 30 30 20 8c 20 f1 27  |:. P%>&1A00 . .'|
00000e50  27 22 43 6f 64 65 20 4f  76 65 72 66 6c 6f 77 20  |'"Code Overflow |
00000e60  74 6f 3a 22 3b 7e 50 25  3a e0 0d 05 9b 0f f1 8a  |to:";~P%:.......|
00000e70  31 35 2c 33 29 7e 50 25  3b 0d 05 a0 05 e1 0d ff  |15,3)~P%;.......|
00000e80