Asteroids Code
RAM Usage
Hardware Info
; Disassembly By Lonnie Howell
; displacer2@yahoo.com
; NOTE: This code is property of Atari Inc. All requests from said company to remove
; this code from public display will be honored.
; 6800~035145.02+035144.02+035143.02 (Rev 2)
; Vector 035127.02
Top:
6800: 4C F3 7C JMP RESET ; Debugger? Off in the weeds? Do Reset.
6803: 20 FA 6E JSR $6EFA ; Reset Sound, Zero Out Sound Timers
6806: 20 D8 6E JSR $6ED8 ; Number Of Starting Ships To $56 And Zero
6809: 20 68 71 JSR $7168 ; Start of main game loop???
680C: AD 07 20 LDA SWTEST ; Self test switch
680F: 30 FE BMI $680F ; Branch If Switch Is On
6811: 46 5B LSR ??timeout?? ; Code check. This value is incremented by one each
6813: 90 F7 BCC $680C ;
6815: AD 02 20 LDA HALT ; HALT
6818: 30 FB BMI $6815 ; Wait For State Machine To Finish
681A: AD 01 40 LDA VRAM+1 ;
681D: 49 02 EOR #$02
681F: 8D 01 40 STA VRAM+1 ;
6822: 8D 00 30 STA GODVG ; DMAGO
6825: 8D 00 34 STA WATCHDOG ; Reset WatchDog
6828: E6 5C INC fastTimer ; Update Fast Timer
682A: D0 02 BNE $682E ;
682C: E6 5D INC slowTimer ; Update Slow Timer
682E: A2 40 LDX #$40
6830: 29 02 AND #$02
6832: D0 02 BNE $6836 ;
6834: A2 44 LDX #$44
6836: A9 02 LDA #$02
6838: 85 02 STA $02 ;
683A: 86 03 STX $03 ;
683C: 20 85 68 JSR $6885 ;
683F: B0 C2 BCS $6803 ;
6841: 20 5C 76 JSR $765C ;
6844: 20 90 6D JSR $6D90 ;
6847: 10 1B BPL $6864 ;
6849: 20 C4 73 JSR $73C4 ;
684C: B0 16 BCS $6864 ;
684E: A5 5A LDA delayBeforePlay ;
6850: D0 0C BNE $685E ;
6852: 20 D7 6C JSR $6CD7 ;
6855: 20 74 6E JSR $6E74 ;
6858: 20 3F 70 JSR $703F ;
685B: 20 93 6B JSR $6B93 ;
685E: 20 57 6F JSR $6F57 ;
6861: 20 F0 69 JSR $69F0 ;
6864: 20 4F 72 JSR $724F ;
6867: 20 55 75 JSR $7555 ;
686A: A9 7F LDA #$7F
686C: AA TAX
686D: 20 03 7C JSR $7C03 ;
6870: 20 B5 77 JSR $77B5 ;
6873: 20 C0 7B JSR $7BC0 ;
6876: AD FB 02 LDA astdWaveTimer ;
6879: F0 03 BEQ $687E ;
687B: CE FB 02 DEC astdWaveTimer ;
687E: 0D F6 02 ORA curAsteroidCount ;
6881: D0 89 BNE $680C ;
6883: F0 84 BEQ $6809 ;
6885: A5 1C LDA numPlayers ; Number Of Players In Current Game
6887: F0 14 BEQ $689D ; None, Branch
6889: A5 5A LDA delayBeforePlay ; Time before next player starts
688B: D0 03 BNE $6890 ; Not time yet, branch
688D: 4C 60 69 JMP $6960 ;
6890: C6 5A DEC delayBeforePlay ; Decrease time before next player starts
6892: 20 E2 69 JSR $69E2 ;
6895: 18 CLC
6896: 60 RTS
6897: A9 02 LDA #$02 ; Free Credits!
6899: 85 70 STA numCredits ; Can Only Play A 2 Player Game, So Only Need To Add 2
689B: D0 13 BNE $68B0 ; Will always branch
689D: A5 71 LDA holdDIP ; DIP Switch Settings Bitmap
689F: 29 03 AND #$03 ; Mask Off Settings For Switches 8 & 7
68A1: F0 F4 BEQ $6897 ; Check For Free Play, Branch If Yes
68A3: 18 CLC
68A4: 69 07 ADC #$07 ; Determine Which Message To Display Based On DIP Settings
68A6: A8 TAY ; Into Y For The Offset
68A7: A5 32 LDA ply1HighPlacement ;
68A9: 25 33 AND ply2HighPlacement ;
68AB: 10 03 BPL $68B0 ;
68AD: 20 F6 77 JSR PrintPackedMsg ; And Draw It To Screen
68B0: A4 70 LDY numCredits ; Current Number Of Credits
68B2: F0 E1 BEQ $6895 ; No Credits, Branch
68B4: A2 01 LDX #$01 ; Assume 1 Player Game
68B6: AD 03 24 LDA SW1START ; 1 Player start button
68B9: 30 23 BMI $68DE ; Branch If Pressed
68BB: C0 02 CPY #$02 ; Enough Credits For A 2 Player Game?
68BD: 90 7C BCC $693B ; No, Branch
68BF: AD 04 24 LDA SW2START ; 2 Player start button
68C2: 10 77 BPL $693B ; Branch if NOT pressed
68C4: A5 6F LDA holdLampValues ; $3200 Bitmap
68C6: 09 04 ORA #$04 ; Set Bit 3, RAMSEL (Swap In $0200 Memory)
68C8: 85 6F STA holdLampValues ; Update Bitmap
68CA: 8D 00 32 STA LMPSCNS ; And Make The Change
68CD: 20 D8 6E JSR $6ED8 ;
68D0: 20 68 71 JSR $7168 ;
68D3: 20 E8 71 JSR $71E8 ;
68D6: A5 56 LDA numShipsPerGame ; Number Of Starting Ships
68D8: 85 58 STA ply2CurShips ; To Player 2 Current Ships
68DA: A2 02 LDX #$02 ; 2 Player Game
68DC: C6 70 DEC numCredits ; Subtract Credit
68DE: 86 1C STX numPlayers ; Flag Number Of Players In Current Game
68E0: C6 70 DEC numCredits ; Subtract Credit
68E2: A5 6F LDA holdLampValues ; $3200 Bitmap
68E4: 29 F8 AND #$F8
68E6: 45 1C EOR numPlayers ; Change Player Start Lamps For This Game
68E8: 85 6F STA holdLampValues ; Update Bitmap
68EA: 8D 00 32 STA LMPSCNS ; And Make The Change
68ED: 20 E8 71 JSR $71E8 ;
68F0: A9 01 LDA #$01
68F2: 8D FA 02 STA shipSpawnTimer ;
68F5: 8D FA 03 STA otherPlayerRAM+FA ;
68F8: A9 92 LDA #$92
68FA: 8D F8 02 STA saucerTimeReload ;
68FD: 8D F8 03 STA otherPlayerRAM+F8 ;
6900: 8D F7 03 STA otherPlayerRAM+F7 ;
6903: 8D F7 02 STA saucerTimer ; Countdown Timer For When Saucer Appears
6906: A9 7F LDA #$7F
6908: 8D FB 02 STA astdWaveTimer ;
690B: 8D FB 03 STA otherPlayerRAM+FB ;
690E: A9 05 LDA #$05
6910: 8D FD 02 STA max_rocks_for_ufo ;
6913: 8D FD 03 STA otherPlayerRAM+FD ;
6916: A9 FF LDA #$FF
6918: 85 32 STA ply1HighPlacement ;
691A: 85 33 STA ply2HighPlacement ;
691C: A9 80 LDA #$80
691E: 85 5A STA delayBeforePlay ; Time before game starts
6920: 0A ASL A ; Zero A, And Set Carry Flag
6921: 85 18 STA curPlayer ; Current Player. New Game So Start With Player 1
6923: 85 19 STA $19 ;
6925: A5 56 LDA numShipsPerGame ; Number of starting ships
6927: 85 57 STA ply1CurShips ; To current number of ships
6929: A9 04 LDA #$04
692B: 85 6C STA sndThump ;
692D: 85 6E STA sndTHumpOff ;
692F: A9 30 LDA #$30
6931: 8D FC 02 STA astWaveTimerReload ; Starting Value For Timer @ $6E
6934: 8D FC 03 STA otherPlayerRAM+FC ;
6937: 8D 00 3E STA SNDRESET ;
693A: 60 RTS ; Noise Reset
693B: A5 32 LDA ply1HighPlacement ;
693D: 25 32 AND ply1HighPlacement ;
693F: 10 0B BPL $694C ;
6941: A5 5C LDA fastTimer ; Fast Timer
6943: 29 20 AND #$20 ; Time To Draw Message To Screen?
6945: D0 05 BNE $694C ; No, Branch
6947: A0 06 LDY #$06 ; Offset For "PUSH START"
6949: 20 F6 77 JSR PrintPackedMsg ; And Draw It On Screen
694C: A5 5C LDA fastTimer ; Fast Timer
694E: 29 0F AND #$0F ; Time To Blink Player Start Lamp(s)?
6950: D0 0C BNE $695E ; No, Branch
6952: A9 01 LDA #$01
6954: C5 70 CMP numCredits ; Current Number Of Credits
6956: 69 01 ADC #$01 ; Calculate Which Lamp(s) To Blink
6958: 49 01 EOR #$01
695A: 45 6F EOR holdLampValues ; Switch Their Status (On Or Off)
695C: 85 6F STA holdLampValues ; Update Bitmap
695E: 18 CLC
695F: 60 RTS
6960: A5 5C LDA fastTimer ; Fast Timer
6962: 29 3F AND #$3F
6964: D0 0A BNE $6970 ;
6966: AD FC 02 LDA astWaveTimerReload ; Starting Value For Timer @ $6E
6969: C9 08 CMP #$08 ; At The Lowest Value It Can Be?
696B: F0 03 BEQ $6970 ; Yes, Branch
696D: CE FC 02 DEC astWaveTimerReload ;
6970: A6 18 LDX curPlayer ; Current Player
6972: B5 57 LDA ply1CurShips,X ; Number Of Ships For Current Player
6974: D0 1C BNE $6992 ; Any Ships Left? Branch If Yes
6976: AD 1F 02 LDA shipShotsTimer ; Check If Current Player Has Any Shots Active
6979: 0D 20 02 ORA shipShotsTimer+1 ;
697C: 0D 21 02 ORA shipShotsTimer+2 ;
697F: 0D 22 02 ORA shipShotsTimer+3 ;
6982: D0 0E BNE $6992 ; Still Have Active Shots, Branch
6984: A0 07 LDY #$07 ; Offset For "GAME OVER"
6986: 20 F6 77 JSR PrintPackedMsg ; And Draw It To Screen
6989: A5 1C LDA numPlayers ; Number Of Players In Current Game
698B: C9 02 CMP #$02 ; 2 Player Game?
698D: 90 03 BCC $6992 ; No, Branch
698F: 20 E2 69 JSR $69E2 ; Display On Screen Which Player's Game Is Over
6992: AD 1B 02 LDA statusShip ; Player flag
6995: D0 36 BNE $69CD ;
6997: AD FA 02 LDA shipSpawnTimer ;
699A: C9 80 CMP #$80
699C: D0 2F BNE $69CD ;
699E: A9 10 LDA #$10
69A0: 8D FA 02 STA shipSpawnTimer ;
69A3: A6 1C LDX numPlayers ; Number Of Players In Current Game
69A5: A5 57 LDA ply1CurShips ; Check If ANY Player Has ANY Ships Left
69A7: 05 58 ORA ply2CurShips ;
69A9: F0 24 BEQ $69CF ; Branch If All Players Are Out Of Ships
69AB: 20 2D 70 JSR $702D ;
69AE: CA DEX
69AF: F0 1C BEQ $69CD ; Will Branch If Only 1 Player Remaining In Game
69B1: A9 80 LDA #$80 ; Timer starting value before switching to next player
69B3: 85 5A STA delayBeforePlay ; To the timer
69B5: A5 18 LDA curPlayer ; Current Player
69B7: 49 01 EOR #$01 ; Switch To Next Player
69B9: AA TAX
69BA: B5 57 LDA ply1CurShips,X ; Any Ships Left For This Player?
69BC: F0 0F BEQ $69CD ; No, Branch
69BE: 86 18 STX curPlayer ; Flag Switch To Next Player
69C0: A9 04 LDA #$04 ; And Switch RAM To Next Player
69C2: 45 6F EOR holdLampValues ; Bit 3, RAMSEL
69C4: 85 6F STA holdLampValues ; Update Bitmap
69C6: 8D 00 32 STA LMPSCNS ; Make The Switch
69C9: 8A TXA
69CA: 0A ASL A
69CB: 85 19 STA $19 ;
69CD: 18 CLC
69CE: 60 RTS
69CF: 86 1A STX numPrevPlayers ;
69D1: A9 FF LDA #$FF
69D3: 85 1C STA numPlayers ; Number Of Players In Current Game
69D5: 20 FA 6E JSR $6EFA ; Turn Off All Sounds, Zero Sound Timers
69D8: A5 6F LDA holdLampValues ; Bitmap Of $3200
69DA: 29 F8 AND #$F8
69DC: 09 03 ORA #$03 ; Turn On Player 1 & 2 Start Lamps
69DE: 85 6F STA holdLampValues ; Update Bitmap
69E0: 18 CLC
69E1: 60 RTS
69E2: A0 01 LDY #$01 ; Offset For "PLAYER "
69E4: 20 F6 77 JSR PrintPackedMsg ; And Draw It On Screen
69E7: A4 18 LDY curPlayer ; Current Player
69E9: C8 INY ; Used To Draw Either "1" Or "2" After "PLAYER "
69EA: 98 TYA
69EB: 20 D1 7B JSR $7BD1 ; Draw It To Screen
69EE: 60 RTS
69EF: 71 A2 ADC ($95+D),Y ;
69F1: 07
69F2: BD 1B 02 LDA statusShip,X ; Any data?
69F5: F0 02 BEQ $69F9 ; No, Branch
69F7: 10 04 BPL $69FD ; Found data, Branch
69F9: CA DEX ; Point to next slot
69FA: 10 F6 BPL $69F2 ; Branch if not finished
69FC: 60 RTS
69FD: A0 1C LDY #$1C ; Start at saucer flag ($21C)
69FF: E0 04 CPX #$04 ; Data found at player shot timers?
6A01: B0 07 BCS $6A0A ; Yes, Branch? (if above 4???)
6A03: 88 DEY
6A04: 8A TXA
6A05: D0 03 BNE $6A0A ;
6A07: 88 DEY
6A08: 30 EF BMI $69F9 ;
6A0A: B9 00 02 LDA statusAsteroids,Y ;
6A0D: F0 F8 BEQ $6A07 ;
6A0F: 30 F6 BMI $6A07 ;
6A11: 85 0B STA $0B ;
6A13: B9 AF 02 LDA hposlAsteroids,Y ;
6A16: 38 SEC
6A17: FD CA 02 SBC hposlShip,X ;
6A1A: 85 08 STA $08 ;
6A1C: B9 69 02 LDA hposhAsteroids,Y ;
6A1F: FD 84 02 SBC hposhShip,X ;
6A22: 4A LSR A
6A23: 66 08 ROR $08 ;
6A25: 0A ASL A
6A26: F0 0C BEQ $6A34 ;
6A28: 10 6D BPL $6A97 ;
6A2A: 49 FE EOR #$FE
6A2C: D0 69 BNE $6A97 ;
6A2E: A5 08 LDA $08 ;
6A30: 49 FF EOR #$FF
6A32: 85 08 STA $08 ;
6A34: B9 D2 02 LDA vposlAsteroids,Y ;
6A37: 38 SEC
6A38: FD ED 02 SBC vposlShip,X ;
6A3B: 85 09 STA $09 ;
6A3D: B9 8C 02 LDA vposhAsteroids,Y ;
6A40: FD A7 02 SBC vposhShip,X ;
6A43: 4A LSR A
6A44: 66 09 ROR $09 ;
6A46: 0A ASL A
6A47: F0 0C BEQ $6A55 ;
6A49: 10 4C BPL $6A97 ;
6A4B: 49 FE EOR #$FE
6A4D: D0 48 BNE $6A97 ;
6A4F: A5 09 LDA $09 ;
6A51: 49 FF EOR #$FF
6A53: 85 09 STA $09 ;
6A55: A9 2A LDA #$2A
6A57: 46 0B LSR $0B ;
6A59: B0 08 BCS $6A63 ;
6A5B: A9 48 LDA #$48
6A5D: 46 0B LSR $0B ;
6A5F: B0 02 BCS $6A63 ;
6A61: A9 84 LDA #$84
6A63: E0 01 CPX #$01
6A65: B0 02 BCS $6A69 ;
6A67: 69 1C ADC #$1C
6A69: D0 0C BNE $6A77 ;
6A6B: 69 12 ADC #$12
6A6D: AE 1C 02 LDX statusSaucer ; Saucer Flag
6A70: CA DEX
6A71: F0 02 BEQ $6A75 ; Small Saucer, Branch
6A73: 69 12 ADC #$12
6A75: A2 01 LDX #$01
6A77: C5 08 CMP $08 ;
6A79: 90 1C BCC $6A97 ;
6A7B: C5 09 CMP $09 ;
6A7D: 90 18 BCC $6A97 ;
6A7F: 85 0B STA $0B ;
6A81: 4A LSR A
6A82: 18 CLC
6A83: 65 0B ADC $0B ;
6A85: 85 0B STA $0B ;
6A87: A5 09 LDA $09 ;
6A89: 65 08 ADC $08 ;
6A8B: B0 0A BCS $6A97 ;
6A8D: C5 0B CMP $0B ;
6A8F: B0 06 BCS $6A97 ;
6A91: 20 0F 6B JSR $6B0F ;
6A94: 4C F9 69 JMP $69F9 ;
6A97: 88 DEY
6A98: 30 FA BMI $6A94 ;
6A9A: 4C 0A 6A JMP $6A0A ;
6A9D: B9 00 02 LDA statusAsteroids,Y ;
6AA0: 29 07 AND #$07
6AA2: 85 08 STA $08 ;
6AA4: 20 B5 77 JSR $77B5 ;
6AA7: 29 18 AND #$18
6AA9: 05 08 ORA $08 ;
6AAB: 9D 00 02 STA statusAsteroids,X ;
6AAE: B9 AF 02 LDA hposlAsteroids,Y ;
6AB1: 9D AF 02 STA hposlAsteroids,X ;
6AB4: B9 69 02 LDA hposhAsteroids,Y ;
6AB7: 9D 69 02 STA hposhAsteroids,X ;
6ABA: B9 D2 02 LDA vposlAsteroids,Y ;
6ABD: 9D D2 02 STA vposlAsteroids,X ;
6AC0: B9 8C 02 LDA vposhAsteroids,Y ;
6AC3: 9D 8C 02 STA vposhAsteroids,X ;
6AC6: B9 23 02 LDA horzVelAsteroids,Y ;
6AC9: 9D 23 02 STA horzVelAsteroids,X ;
6ACC: B9 46 02 LDA vertVelAsteroids,Y ;
6ACF: 9D 46 02 STA vertVelAsteroids,X ;
6AD2: 60 RTS
6AD3: 85 0B STA $0B ;
6AD5: 86 0C STX $0C ;
6AD7: A0 00 LDY #$00
6AD9: C8 INY
6ADA: B1 0B LDA ($0B),Y ;
6ADC: 45 09 EOR $09 ;
6ADE: 91 02 STA ($02),Y ;
6AE0: 88 DEY
6AE1: C9 F0 CMP #$F0
6AE3: B0 1E BCS $6B03 ;
6AE5: C9 A0 CMP #$A0
6AE7: B0 16 BCS $6AFF ;
6AE9: B1 0B LDA ($0B),Y ;
6AEB: 91 02 STA ($02),Y ;
6AED: C8 INY
6AEE: C8 INY
6AEF: B1 0B LDA ($0B),Y ;
6AF1: 91 02 STA ($02),Y ;
6AF3: C8 INY
6AF4: B1 0B LDA ($0B),Y ;
6AF6: 45 08 EOR $08 ;
6AF8: 65 17 ADC $17 ;
6AFA: 91 02 STA ($02),Y ;
6AFC: C8 INY
6AFD: D0 DA BNE $6AD9 ;
6AFF: 88 DEY
6B00: 4C 39 7C JMP $7C39 ;
6B03: B1 0B LDA ($0B),Y ;
6B05: 45 08 EOR $08 ;
6B07: 18 CLC
6B08: 65 17 ADC $17 ;
6B0A: 91 02 STA ($02),Y ;
6B0C: C8 INY
6B0D: D0 ED BNE $6AFC ;
6B0F: E0 01 CPX #$01 ; Saucer?????
6B11: D0 08 BNE $6B1B ; No, branch
6B13: C0 1B CPY #$1B ; Player??????
6B15: D0 12 BNE $6B29 ; No, branch
6B17: A2 00 LDX #$00
6B19: A0 1C LDY #$1C
6B1B: 8A TXA
6B1C: D0 1E BNE $6B3C ;
6B1E: A9 81 LDA #$81
6B20: 8D FA 02 STA shipSpawnTimer ;
6B23: A6 18 LDX curPlayer ; Current Player
6B25: D6 57 DEC ply1CurShips,X ; Subtract Ship
6B27: A2 00 LDX #$00
6B29: A9 A0 LDA #$A0
6B2B: 9D 1B 02 STA statusShip,X ;
6B2E: A9 00 LDA #$00
6B30: 9D 3E 02 STA horzVelShip,X ;
6B33: 9D 61 02 STA vertVelShip,X ;
6B36: C0 1B CPY #$1B
6B38: 90 0D BCC $6B47 ; Smaller????
6B3A: B0 37 BCS $6B73 ; Larger????
6B3C: A9 00 LDA #$00
6B3E: 9D 1B 02 STA statusShip,X ;
6B41: C0 1B CPY #$1B
6B43: F0 21 BEQ $6B66 ;
6B45: B0 2C BCS $6B73 ;
6B47: 20 EC 75 JSR $75EC ;
6B4A: B9 00 02 LDA statusAsteroids,Y ;
6B4D: 29 03 AND #$03
6B4F: 49 02 EOR #$02
6B51: 4A LSR A
6B52: 6A ROR A
6B53: 6A ROR A
6B54: 09 3F ORA #$3F
6B56: 85 69 STA sndTimeExplosion ;
6B58: A9 A0 LDA #$A0
6B5A: 99 00 02 STA statusAsteroids,Y ;
6B5D: A9 00 LDA #$00
6B5F: 99 23 02 STA horzVelAsteroids,Y ;
6B62: 99 46 02 STA vertVelAsteroids,Y ;
6B65: 60 RTS
6B66: 8A TXA
6B67: A6 18 LDX curPlayer ; Current Player
6B69: D6 57 DEC ply1CurShips,X ; Subtract Ship
6B6B: AA TAX
6B6C: A9 81 LDA #$81
6B6E: 8D FA 02 STA shipSpawnTimer ;
6B71: D0 D7 BNE $6B4A ;
6B73: AD F8 02 LDA saucerTimeReload ;
6B76: 8D F7 02 STA saucerTimer ; Countdown Timer For When Saucer Appears
6B79: A5 1C LDA numPlayers ; Number Of Players In Current Game
6B7B: F0 CD BEQ $6B4A ; None, Branch
6B7D: 86 0D STX $0D ;
6B7F: A6 19 LDX $19 ;
6B81: AD 1C 02 LDA statusSaucer ; Saucer Flag
6B84: 4A LSR A ; Shift It To Carry
6B85: A9 99 LDA #$99 ; 990 Points, Assume Small Saucer
6B87: B0 02 BCS $6B8B ; Carry Will Be Set If Small Saucer
6B89: A9 20 LDA #$20 ; 200 Points, Its The Large Saucer
6B8B: 20 97 73 JSR $7397 ; And Add It To Score
6B8E: A6 0D LDX $0D ;
6B90: 4C 4A 6B JMP $6B4A ;
6B93: A5 5C LDA fastTimer ;
6B95: 29 03 AND #$03
6B97: F0 01 BEQ $6B9A ;
6B99: 60 RTS
6B9A: AD 1C 02 LDA statusSaucer ; Saucer Flag
6B9D: 30 FA BMI $6B99 ; Currently Exploding?, Branch
6B9F: F0 03 BEQ $6BA4 ; No Saucer Currently Active, Branch
6BA1: 4C 34 6C JMP $6C34 ;
6BA4: A5 1C LDA numPlayers ; Number Of Players In Current Game
6BA6: F0 07 BEQ $6BAF ; None, Branch
6BA8: AD 1B 02 LDA statusShip ;
6BAB: F0 EC BEQ $6B99 ;
6BAD: 30 EA BMI $6B99 ;
6BAF: AD F9 02 LDA asteroid_hit_timer ;
6BB2: F0 03 BEQ $6BB7 ;
6BB4: CE F9 02 DEC asteroid_hit_timer ;
6BB7: CE F7 02 DEC saucerTimer ; Update Countdown Timer For When Saucer Appears
6BBA: D0 DD BNE $6B99 ;
6BBC: A9 12 LDA #$12
6BBE: 8D F7 02 STA saucerTimer ;
6BC1: AD F9 02 LDA asteroid_hit_timer ;
6BC4: F0 0A BEQ $6BD0 ;
6BC6: AD F6 02 LDA curAsteroidCount ;
6BC9: F0 CE BEQ $6B99 ;
6BCB: CD FD 02 CMP max_rocks_for_ufo ;
6BCE: B0 C9 BCS $6B99 ;
6BD0: AD F8 02 LDA saucerTimeReload ;
6BD3: 38 SEC
6BD4: E9 06 SBC #$06 ; Shorten Time Between Saucer Appearence
6BD6: C9 20 CMP #$20 ; At Lowest Value?
6BD8: 90 03 BCC $6BDD ; Yes, Branch
6BDA: 8D F8 02 STA saucerTimeReload ; Make The Update
6BDD: A9 00 LDA #$00
6BDF: 8D CB 02 STA hposlSaucer ;
6BE2: 8D 85 02 STA hposhSaucer ;
6BE5: 20 B5 77 JSR $77B5 ;
6BE8: 4A LSR A
6BE9: 6E EE 02 ROR vposlSaucer ;
6BEC: 4A LSR A
6BED: 6E EE 02 ROR vposlSaucer ;
6BF0: 4A LSR A
6BF1: 6E EE 02 ROR vposlSaucer ;
6BF4: C9 18 CMP #$18
6BF6: 90 02 BCC $6BFA ;
6BF8: 29 17 AND #$17
6BFA: 8D A8 02 STA vposhSaucer ;
6BFD: A2 10 LDX #$10
6BFF: 24 60 BIT $60 ;
6C01: 70 0C BVS $6C0F ;
6C03: A9 1F LDA #$1F
6C05: 8D 85 02 STA hposhSaucer ;
6C08: A9 FF LDA #$FF
6C0A: 8D CB 02 STA hposlSaucer ;
6C0D: A2 F0 LDX #$F0
6C0F: 8E 3F 02 STX horzVelSaucer ;
6C12: A2 02 LDX #$02 ; Start With Large Saucer
6C14: AD F8 02 LDA saucerTimeReload ; Start Checking Score When @ #$7F And Below
6C17: 30 17 BMI $6C30 ; Not There Yet, Branch Around Score Check
6C19: A4 19 LDY $19 ;
6C1B: B9 53 00 LDA ply1ScoreThous,Y ; Current Player Score, Thousands
6C1E: C9 30 CMP #$30 ; 30,000 Points Or More?
6C20: B0 0D BCS $6C2F ; Yes, Branch
6C22: 20 B5 77 JSR $77B5 ;
6C25: 85 08 STA $08 ;
6C27: AD F8 02 LDA saucerTimeReload ;
6C2A: 4A LSR A
6C2B: C5 08 CMP $08 ;
6C2D: B0 01 BCS $6C30 ; Going To Be A large Saucer, Branch
6C2F: CA DEX ; Make It A Small Saucer
6C30: 8E 1C 02 STX statusSaucer ; Saucer Flag
6C33: 60 RTS
6C34: A5 5C LDA fastTimer ; Fast Timer
6C36: 0A ASL A ; Time To Change Saucer Direction? ( $5C = #$80 )
6C37: D0 0C BNE $6C45 ; No, Branch
6C39: 20 B5 77 JSR $77B5 ;
6C3C: 29 03 AND #$03
6C3E: AA TAX
6C3F: BD D3 6C LDA $6CD3,X ; Direction Table
6C42: 8D 62 02 STA vertVelSaucer ; Current saucer direction???
6C45: A5 1C LDA numPlayers ; Number Of Players In Current Game
6C47: F0 05 BEQ $6C4E ; None, Branch
6C49: AD FA 02 LDA shipSpawnTimer ;
6C4C: D0 05 BNE $6C53 ;
6C4E: CE F7 02 DEC saucerTimer ; Time for saucer to shoot?
6C51: F0 01 BEQ $6C54 ; Yes, branch?
6C53: 60 RTS
6C54: A9 0A LDA #$0A ; Time Between Saucer Shots
6C56: 8D F7 02 STA saucerTimer ; Reset for next shot
6C59: AD 1C 02 LDA statusSaucer ; Saucer Flag
6C5C: 4A LSR A ; Check Saucer Size
6C5D: F0 06 BEQ $6C65 ; Branch If Small One
6C5F: 20 B5 77 JSR $77B5 ;
6C62: 4C C4 6C JMP $6CC4 ;
6C65: AD 3F 02 LDA horzVelSaucer ;
6C68: C9 80 CMP #$80
6C6A: 6A ROR A
6C6B: 85 0C STA $0C ;
6C6D: AD CA 02 LDA hposlShip ;
6C70: 38 SEC
6C71: ED CB 02 SBC hposlSaucer ;
6C74: 85 0B STA $0B ;
6C76: AD 84 02 LDA hposhShip ;
6C79: ED 85 02 SBC hposhSaucer ;
6C7C: 06 0B ASL $0B ;
6C7E: 2A ROL A
6C7F: 06 0B ASL $0B ;
6C81: 2A ROL A
6C82: 38 SEC
6C83: E5 0C SBC $0C ;
6C85: AA TAX
6C86: AD 62 02 LDA vertVelSaucer ;
6C89: C9 80 CMP #$80
6C8B: 6A ROR A
6C8C: 85 0C STA $0C ;
6C8E: AD ED 02 LDA vposlShip ;
6C91: 38 SEC
6C92: ED EE 02 SBC vposlSaucer ;
6C95: 85 0B STA $0B ;
6C97: AD A7 02 LDA vposhShip ;
6C9A: ED A8 02 SBC vposhSaucer ;
6C9D: 06 0B ASL $0B ;
6C9F: 2A ROL A
6CA0: 06 0B ASL $0B ;
6CA2: 2A ROL A
6CA3: 38 SEC
6CA4: E5 0C SBC $0C ;
6CA6: A8 TAY
6CA7: 20 F0 76 JSR $76F0 ;
6CAA: 85 62 STA saucerShotDir ;
6CAC: 20 B5 77 JSR $77B5 ;
6CAF: A6 19 LDX $19 ;
6CB1: B4 53 LDY ply1ScoreThous,X ; Current Players Score, Thousands
6CB3: C0 35 CPY #$35 ; 35,000?
6CB5: A2 00 LDX #$00
6CB7: 90 01 BCC $6CBA ; Branch If Less
6CB9: E8 INX
6CBA: 3D CF 6C AND $6CCF,X ;
6CBD: 10 03 BPL $6CC2 ;
6CBF: 1D D1 6C ORA $6CD1,X ;
6CC2: 65 62 ADC saucerShotDir ; Direction Shot Is Traveling???
6CC4: 85 62 STA saucerShotDir ;
6CC6: A0 03 LDY #$03
6CC8: A2 01 LDX #$01
6CCA: 86 0E STX $0E ;
6CCC: 4C F2 6C JMP $6CF2 ;
6CCF: 8F
6CD0: 87
6CD1: 70 78 BVS $6D4B ;
6CD3: F0 00 BEQ $6CD5 ;
6CD5: 00 BRK
6CD6: 10 A5 BPL $6C7D ;
6CD8: 1C
6CD9: F0 21 BEQ $6CFC ; None, Branch
6CDB: 0E 04 20 ASL SWFIRE ; Fire Switch
6CDE: 66 63 ROR photomLimiter ;
6CE0: 24 63 BIT photomLimiter ;
6CE2: 10 18 BPL $6CFC ;
6CE4: 70 16 BVS $6CFC ;
6CE6: AD FA 02 LDA shipSpawnTimer ;
6CE9: D0 11 BNE $6CFC ;
6CEB: AA TAX
6CEC: A9 03 LDA #$03 ; Number of shots allowed
6CEE: 85 0E STA $0E ;
6CF0: A0 07 LDY #$07 ; Offset to player shot slots
6CF2: B9 1B 02 LDA statusShip,Y ; Check For A Open Slot For The Shot
6CF5: F0 06 BEQ $6CFD ; Branch If This Slot Is Open
6CF7: 88 DEY ; Point To Next Slot
6CF8: C4 0E CPY $0E ; Out Of Slots?
6CFA: D0 F6 BNE $6CF2 ; No, Branch And Keep Checking
6CFC: 60 RTS
6CFD: 86 0D STX $0D ;
6CFF: A9 12 LDA #$12 ; Time shot stays on screen
6D01: 99 1B 02 STA statusShip,Y ; To shot timer
6D04: B5 61 LDA direction,X ; Shot direction
6D06: 20 D2 77 JSR $77D2 ;
6D09: A6 0D LDX $0D ;
6D0B: C9 80 CMP #$80
6D0D: 6A ROR A
6D0E: 85 09 STA $09 ;
6D10: 18 CLC
6D11: 7D 3E 02 ADC horzVelShip,X ;
6D14: 30 08 BMI $6D1E ;
6D16: C9 70 CMP #$70
6D18: 90 0A BCC $6D24 ;
6D1A: A9 6F LDA #$6F
6D1C: D0 06 BNE $6D24 ;
6D1E: C9 91 CMP #$91
6D20: B0 02 BCS $6D24 ;
6D22: A9 91 LDA #$91
6D24: 99 3E 02 STA horzVelShip,Y ;
6D27: B5 61 LDA direction,X ;
6D29: 20 D5 77 JSR $77D5 ;
6D2C: A6 0D LDX $0D ;
6D2E: C9 80 CMP #$80
6D30: 6A ROR A
6D31: 85 0C STA $0C ;
6D33: 18 CLC
6D34: 7D 61 02 ADC vertVelShip,X ;
6D37: 30 08 BMI $6D41 ;
6D39: C9 70 CMP #$70
6D3B: 90 0A BCC $6D47 ;
6D3D: A9 6F LDA #$6F
6D3F: D0 06 BNE $6D47 ;
6D41: C9 91 CMP #$91
6D43: B0 02 BCS $6D47 ;
6D45: A9 91 LDA #$91
6D47: 99 61 02 STA vertVelShip,Y ;
6D4A: A2 00 LDX #$00
6D4C: A5 09 LDA $09 ;
6D4E: 10 01 BPL $6D51 ;
6D50: CA DEX
6D51: 86 08 STX $08 ;
6D53: A6 0D LDX $0D ;
6D55: C9 80 CMP #$80
6D57: 6A ROR A
6D58: 18 CLC
6D59: 65 09 ADC $09 ;
6D5B: 18 CLC
6D5C: 7D CA 02 ADC hposlShip,X ;
6D5F: 99 CA 02 STA hposlShip,Y ;
6D62: A5 08 LDA $08 ;
6D64: 7D 84 02 ADC hposhShip,X ;
6D67: 99 84 02 STA hposhShip,Y ;
6D6A: A2 00 LDX #$00
6D6C: A5 0C LDA $0C ;
6D6E: 10 01 BPL $6D71 ;
6D70: CA DEX
6D71: 86 0B STX $0B ;
6D73: A6 0D LDX $0D ;
6D75: C9 80 CMP #$80
6D77: 6A ROR A
6D78: 18 CLC
6D79: 65 0C ADC $0C ;
6D7B: 18 CLC
6D7C: 7D ED 02 ADC vposlShip,X ;
6D7F: 99 ED 02 STA vposlShip,Y ;
6D82: A5 0B LDA $0B ;
6D84: 7D A7 02 ADC vposhShip,X ;
6D87: 99 A7 02 STA vposhShip,Y ;
6D8A: A9 80 LDA #$80
6D8C: 95 66 STA sndTimePlayerFire,X ;
6D8E: 60 RTS
6D8F: D8 CLD
6D90: A5 32 LDA ply1HighPlacement ;
6D92: 25 33 AND ply2HighPlacement ;
6D94: 10 01 BPL $6D97 ;
6D96: 60 RTS
6D97: A5 1A LDA numPrevPlayers ;
6D99: 4A LSR A
6D9A: F0 18 BEQ $6DB4 ;
6D9C: A0 01 LDY #$01 ; Offset For "PLAYER "
6D9E: 20 F6 77 JSR PrintPackedMsg ; And Draw To Screen
6DA1: A0 02 LDY #$02
6DA3: A6 33 LDX ply2HighPlacement ;
6DA5: 10 01 BPL $6DA8 ;
6DA7: 88 DEY
6DA8: 84 18 STY curPlayer ; Current Player
6DAA: A5 5C LDA fastTimer ; Fast Timer
6DAC: 29 10 AND #$10
6DAE: D0 04 BNE $6DB4 ;
6DB0: 98 TYA
6DB1: 20 D1 7B JSR $7BD1 ;
6DB4: 46 18 LSR curPlayer ; Current Player
6DB6: 20 B2 73 JSR $73B2 ;
6DB9: A0 02 LDY #$02 ; Offset For "YOUR SCORE IS ONE OF THE TEN BEST"
6DBB: 20 F6 77 JSR PrintPackedMsg ; And Draw It To Screen
6DBE: A0 03 LDY #$03 ; Offset For "PLEASE ENTER YOUR INITIALS"
6DC0: 20 F6 77 JSR PrintPackedMsg ; And Draw It To Screen
6DC3: A0 04 LDY #$04 ; Offset For "PUSH ROTATE TO SELECT LETTER"
6DC5: 20 F6 77 JSR PrintPackedMsg ; And Draw It To Screen
6DC8: A0 05 LDY #$05 ; Offset For "PUSH HYPERSPACE WHEN LETTER IS CORRECT"
6DCA: 20 F6 77 JSR PrintPackedMsg ; And Draw It To Screen
6DCD: A9 20 LDA #$20
6DCF: 85 00 STA $00 ;
6DD1: A9 64 LDA #$64
6DD3: A2 39 LDX #$39
6DD5: 20 03 7C JSR $7C03 ;
6DD8: A9 70 LDA #$70
6DDA: 20 DE 7C JSR $7CDE ;
6DDD: A6 18 LDX curPlayer ; Current Player
6DDF: B4 32 LDY ply1HighPlacement,X ;
6DE1: 84 0B STY $0B ;
6DE3: 98 TYA
6DE4: 18 CLC
6DE5: 65 31 ADC highScoreLetter ;
6DE7: 85 0C STA $0C ;
6DE9: 20 1A 6F JSR $6F1A ;
6DEC: A4 0B LDY $0B ;
6DEE: C8 INY
6DEF: 20 1A 6F JSR $6F1A ;
6DF2: A4 0B LDY $0B ;
6DF4: C8 INY
6DF5: C8 INY
6DF6: 20 1A 6F JSR $6F1A ;
6DF9: AD 03 20 LDA SWHYPER ; Hyperspace Switch
6DFC: 2A ROL A
6DFD: 26 63 ROL photomLimiter ;
6DFF: A5 63 LDA photomLimiter ;
6E01: 29 1F AND #$1F
6E03: C9 07 CMP #$07
6E05: D0 27 BNE $6E2E ;
6E07: E6 31 INC highScoreLetter ;
6E09: A5 31 LDA highScoreLetter ;
6E0B: C9 03 CMP #$03
6E0D: 90 13 BCC $6E22 ;
6E0F: A6 18 LDX curPlayer ; Current Player
6E11: A9 FF LDA #$FF
6E13: 95 32 STA ply1HighPlacement,X ;
6E15: A2 00 LDX #$00
6E17: 86 18 STX curPlayer ;
6E19: 86 31 STX highScoreLetter ;
6E1B: A2 F0 LDX #$F0
6E1D: 86 5D STX slowTimer ; Slow Timer
6E1F: 4C B2 73 JMP $73B2 ;
6E22: E6 0C INC $0C ;
6E24: A6 0C LDX $0C ;
6E26: A9 F4 LDA #$F4
6E28: 85 5D STA slowTimer ; Slow Timer
6E2A: A9 0B LDA #$0B
6E2C: 95 34 STA highScoresInitials,X;
6E2E: A5 5D LDA slowTimer ; Slow Timer
6E30: D0 08 BNE $6E3A ;
6E32: A9 FF LDA #$FF
6E34: 85 32 STA ply1HighPlacement ;
6E36: 85 33 STA ply2HighPlacement ;
6E38: 30 DB BMI $6E15 ;
6E3A: A5 5C LDA fastTimer ; Fast Timer
6E3C: 29 07 AND #$07
6E3E: D0 31 BNE $6E71 ;
6E40: AD 07 24 LDA SWROTLEFT ; Rotate Left Switch
6E43: 10 04 BPL $6E49 ;
6E45: A9 01 LDA #$01
6E47: D0 07 BNE $6E50 ;
6E49: AD 06 24 LDA SWROTRGHT ; Rotate Right Switch
6E4C: 10 23 BPL $6E71 ;
6E4E: A9 FF LDA #$FF
6E50: A6 0C LDX $0C ;
6E52: 18 CLC
6E53: 75 34 ADC highScoresInitials,X;
6E55: 30 10 BMI $6E67 ;
6E57: C9 0B CMP #$0B
6E59: B0 0E BCS $6E69 ;
6E5B: C9 01 CMP #$01
6E5D: F0 04 BEQ $6E63 ;
6E5F: A9 00 LDA #$00
6E61: F0 0C BEQ $6E6F ;
6E63: A9 0B LDA #$0B
6E65: D0 08 BNE $6E6F ;
6E67: A9 24 LDA #$24
6E69: C9 25 CMP #$25
6E6B: 90 02 BCC $6E6F ;
6E6D: A9 00 LDA #$00
6E6F: 95 34 STA highScoresInitials,X;
6E71: A9 00 LDA #$00
6E73: 60 RTS
6E74: A5 1C LDA numPlayers ; Number Of Players In Current Game
6E76: F0 5F BEQ $6ED7 ; None, Branch
6E78: AD 1B 02 LDA statusShip ; Player Flag
6E7B: 30 5A BMI $6ED7 ; Branch If Currently Exploding
6E7D: AD FA 02 LDA shipSpawnTimer ;
6E80: D0 55 BNE $6ED7 ;
6E82: AD 03 20 LDA SWHYPER ; Hyperspace Switch
6E85: 10 50 BPL $6ED7 ; Branch If NOT Pressed
6E87: A9 00 LDA #$00
6E89: 8D 1B 02 STA statusShip ;
6E8C: 8D 3E 02 STA horzVelShip ;
6E8F: 8D 61 02 STA vertVelShip ;
6E92: A9 30 LDA #$30
6E94: 8D FA 02 STA shipSpawnTimer ;
6E97: 20 B5 77 JSR $77B5 ;
6E9A: 29 1F AND #$1F
6E9C: C9 1D CMP #$1D
6E9E: 90 02 BCC $6EA2 ;
6EA0: A9 1C LDA #$1C
6EA2: C9 03 CMP #$03
6EA4: B0 02 BCS $6EA8 ;
6EA6: A9 03 LDA #$03
6EA8: 8D 84 02 STA hposhShip ;
6EAB: A2 05 LDX #$05
6EAD: 20 B5 77 JSR $77B5 ;
6EB0: CA DEX
6EB1: D0 FA BNE $6EAD ;
6EB3: 29 1F AND #$1F
6EB5: E8 INX ; Assume Success ( X = 1 At This Point )
6EB6: C9 18 CMP #$18
6EB8: 90 0C BCC $6EC6 ;
6EBA: 29 07 AND #$07
6EBC: 0A ASL A
6EBD: 69 04 ADC #$04
6EBF: CD F6 02 CMP curAsteroidCount ;
6EC2: 90 02 BCC $6EC6 ;
6EC4: A2 80 LDX #$80 ; Flag Hyperspace Unsuccessful
6EC6: C9 15 CMP #$15
6EC8: 90 02 BCC $6ECC ;
6ECA: A9 14 LDA #$14
6ECC: C9 03 CMP #$03
6ECE: B0 02 BCS $6ED2 ;
6ED0: A9 03 LDA #$03
6ED2: 8D A7 02 STA vposhShip ;
6ED5: 86 59 STX hyperSpaceFlag ; Hyperspace Flag
6ED7: 60 RTS
6ED8: A9 02 LDA #$02
6EDA: 8D F5 02 STA asteroidsPerWave ;
6EDD: A2 03 LDX #$03 ; Assume A 3 Ship Game
6EDF: 4E 02 28 LSR SWCNCMULT ; Shift Number Of Starting Ships Bit To Carry
6EE2: B0 01 BCS $6EE5 ; 3 Ship Game
6EE4: E8 INX ; 4 Ship Game
6EE5: 86 56 STX numShipsPerGame ; Store number of starting ships
6EE7: A9 00 LDA #$00
6EE9: A2 04 LDX #$04
6EEB: 9D 1B 02 STA statusShip,X ; Clear player data
6EEE: 9D 1F 02 STA shipShotsTimer,X ;
6EF1: 95 51 STA highScoresInitials+1D,X; *BUG* Should Be $52,X
6EF3: CA DEX
6EF4: 10 F5 BPL $6EEB ;
6EF6: 8D F6 02 STA curAsteroidCount ;
6EF9: 60 RTS
6EFA: A9 00 LDA #$00
6EFC: 8D 00 36 STA SNDEXP ;
6EFF: 8D 00 3A STA SNDTHUMP ;
6F02: 8D 00 3C STA SNDSAUCR ;
6F05: 8D 01 3C STA SNDSFIRE ;
6F08: 8D 03 3C STA SNDTHRUST ;
6F0B: 8D 04 3C STA SNDFIRE ;
6F0E: 8D 05 3C STA SNDBONUS ;
6F11: 85 69 STA sndTimeExplosion ;
6F13: 85 66 STA sndTimePlayerFire ;
6F15: 85 67 STA sndTimeSaucerFire ;
6F17: 85 68 STA sndTimeBonusShip ;
6F19: 60 RTS
6F1A: B9 34 00 LDA highScoresInitials,Y;
6F1D: 0A ASL A
6F1E: A8 TAY
6F1F: D0 14 BNE $6F35 ;
6F21: A5 32 LDA ply1HighPlacement ;
6F23: 25 33 AND ply2HighPlacement ;
6F25: 30 0E BMI $6F35 ;
6F27: A9 72 LDA #$72
6F29: A2 F8 LDX #$F8
6F2B: 20 45 7D JSR $7D45 ;
6F2E: A9 01 LDA #$01
6F30: A2 F8 LDX #$F8
6F32: 4C 45 7D JMP $7D45 ;
6F35: BE D5 56 LDX $56D5,Y
6F38: B9 D4 56 LDA $56D4,Y
6F3B: 4C 45 7D JMP $7D45 ;
6F3E: F0 16 BEQ $6F56 ;
6F40: 84 08 STY $08 ;
6F42: A2 D5 LDX #$D5
6F44: A0 E0 LDY #$E0
6F46: 84 00 STY $00 ;
6F48: 20 03 7C JSR $7C03 ;
6F4B: A2 DA LDX #$DA
6F4D: A9 54 LDA #$54
6F4F: 20 FC 7B JSR $7BFC ;
6F52: C6 08 DEC $08 ;
6F54: D0 F5 BNE $6F4B ;
6F56: 60 RTS
6F57: A2 22 LDX #$22
6F59: BD 00 02 LDA statusAsteroids,X ;
6F5C: D0 04 BNE $6F62 ;
6F5E: CA DEX
6F5F: 10 F8 BPL $6F59 ;
6F61: 60 RTS
6F62: 10 63 BPL $6FC7 ;
6F64: 20 08 77 JSR $7708 ;
6F67: 4A LSR A
6F68: 4A LSR A
6F69: 4A LSR A
6F6A: 4A LSR A
6F6B: E0 1B CPX #$1B
6F6D: D0 07 BNE $6F76 ;
6F6F: A5 5C LDA fastTimer ;
6F71: 29 01 AND #$01
6F73: 4A LSR A
6F74: F0 01 BEQ $6F77 ;
6F76: 38 SEC
6F77: 7D 00 02 ADC statusAsteroids,X ;
6F7A: 30 25 BMI $6FA1 ;
6F7C: E0 1B CPX #$1B
6F7E: F0 13 BEQ $6F93 ;
6F80: B0 17 BCS $6F99 ;
6F82: CE F6 02 DEC curAsteroidCount ;
6F85: D0 05 BNE $6F8C ;
6F87: A0 7F LDY #$7F
6F89: 8C FB 02 STY astdWaveTimer ;
6F8C: A9 00 LDA #$00
6F8E: 9D 00 02 STA statusAsteroids,X ;
6F91: F0 CB BEQ $6F5E ;
6F93: 20 E8 71 JSR $71E8 ;
6F96: 4C 8C 6F JMP $6F8C ;
6F99: AD F8 02 LDA saucerTimeReload ;
6F9C: 8D F7 02 STA saucerTimer ; Countdown Timer For When Saucer Appears
6F9F: D0 EB BNE $6F8C ;
6FA1: 9D 00 02 STA statusAsteroids,X ;
6FA4: 29 F0 AND #$F0
6FA6: 18 CLC
6FA7: 69 10 ADC #$10
6FA9: E0 1B CPX #$1B
6FAB: D0 02 BNE $6FAF ;
6FAD: A9 00 LDA #$00
6FAF: A8 TAY
6FB0: BD AF 02 LDA hposlAsteroids,X ;
6FB3: 85 04 STA $04 ;
6FB5: BD 69 02 LDA hposhAsteroids,X ;
6FB8: 85 05 STA $05 ;
6FBA: BD D2 02 LDA vposlAsteroids,X ;
6FBD: 85 06 STA $06 ;
6FBF: BD 8C 02 LDA vposhAsteroids,X ;
6FC2: 85 07 STA $07 ;
6FC4: 4C 27 70 JMP $7027 ;
6FC7: 18 CLC
6FC8: A0 00 LDY #$00
6FCA: BD 23 02 LDA horzVelAsteroids,X ;
6FCD: 10 01 BPL $6FD0 ;
6FCF: 88 DEY
6FD0: 7D AF 02 ADC hposlAsteroids,X ;
6FD3: 9D AF 02 STA hposlAsteroids,X ;
6FD6: 85 04 STA $04 ;
6FD8: 98 TYA
6FD9: 7D 69 02 ADC hposhAsteroids,X ;
6FDC: C9 20 CMP #$20
6FDE: 90 0C BCC $6FEC ;
6FE0: 29 1F AND #$1F
6FE2: E0 1C CPX #$1C
6FE4: D0 06 BNE $6FEC ;
6FE6: 20 2D 70 JSR $702D ;
6FE9: 4C 5E 6F JMP $6F5E ;
6FEC: 9D 69 02 STA hposhAsteroids,X ;
6FEF: 85 05 STA $05 ;
6FF1: 18 CLC
6FF2: A0 00 LDY #$00
6FF4: BD 46 02 LDA vertVelAsteroids,X ;
6FF7: 10 02 BPL $6FFB ;
6FF9: A0 FF LDY #$FF
6FFB: 7D D2 02 ADC vposlAsteroids,X ;
6FFE: 9D D2 02 STA vposlAsteroids,X ;
7001: 85 06 STA $06 ;
7003: 98 TYA
7004: 7D 8C 02 ADC vposhAsteroids,X ;
7007: C9 18 CMP #$18
7009: 90 08 BCC $7013 ;
700B: F0 04 BEQ $7011 ;
700D: A9 17 LDA #$17
700F: D0 02 BNE $7013 ;
7011: A9 00 LDA #$00
7013: 9D 8C 02 STA vposhAsteroids,X ;
7016: 85 07 STA $07 ;
7018: BD 00 02 LDA statusAsteroids,X ;
701B: A0 E0 LDY #$E0
701D: 4A LSR A
701E: B0 07 BCS $7027 ;
7020: A0 F0 LDY #$F0
7022: 4A LSR A
7023: B0 02 BCS $7027 ;
7025: A0 00 LDY #$00
7027: 20 FE 72 JSR $72FE ;
702A: 4C 5E 6F JMP $6F5E ;
702D: AD F8 02 LDA saucerTimeReload ; Starting Value For Timer @ $02F7
7030: 8D F7 02 STA saucerTimer ; Countdown Timer For When Saucer Appears
7033: A9 00 LDA #$00
7035: 8D 1C 02 STA statusSaucer ; Saucer Flag
7038: 8D 3F 02 STA horzVelSaucer ;
703B: 8D 62 02 STA vertVelSaucer ;
703E: 60 RTS
703F: A5 1C LDA numPlayers ; Number Of Players In Current Game
7041: F0 42 BEQ $7085 ; None, Branch
7043: AD 1B 02 LDA statusShip ; Player Flag
7046: 30 3D BMI $7085 ; Branch If Currently Exploding
7048: AD FA 02 LDA shipSpawnTimer ;
704B: F0 39 BEQ $7086 ;
704D: CE FA 02 DEC shipSpawnTimer ;
7050: D0 33 BNE $7085 ;
7052: A4 59 LDY hyperSpaceFlag ; Hyperspace Flag
7054: 30 19 BMI $706F ; Gonna Die From Hyperspace, Branch
7056: D0 10 BNE $7068 ; Successful Hyperspace, Branch
7058: 20 39 71 JSR $7139 ;
705B: D0 24 BNE $7081 ;
705D: AC 1C 02 LDY statusSaucer ;
7060: F0 06 BEQ $7068 ;
7062: A0 02 LDY #$02
7064: 8C FA 02 STY shipSpawnTimer ;
7067: 60 RTS
7068: A9 01 LDA #$01 ; Flag Ship OK
706A: 8D 1B 02 STA statusShip ;
706D: D0 12 BNE $7081 ; Will Always Branch
706F: A9 A0 LDA #$A0 ; Switch To Explosion Timer
7071: 8D 1B 02 STA statusShip ;
7074: A2 3E LDX #$3E
7076: 86 69 STX sndTimeExplosion ;
7078: A6 18 LDX curPlayer ; Current Player
707A: D6 57 DEC ply1CurShips,X ; Subtract Ship
707C: A9 81 LDA #$81
707E: 8D FA 02 STA shipSpawnTimer ;
7081: A9 00 LDA #$00
7083: 85 59 STA hyperSpaceFlag ;
7085: 60 RTS
7086: AD 07 24 LDA SWROTLEFT ; Rotate Left Switch
7089: 10 04 BPL $708F ; Branch If NOT Pressed
708B: A9 03 LDA #$03
708D: D0 07 BNE $7096 ; Will Always Branch
708F: AD 06 24 LDA SWROTRGHT ; Rotate Right Switch
7092: 10 07 BPL $709B ; Branch If NOT Pressed
7094: A9 FD LDA #$FD
7096: 18 CLC
7097: 65 61 ADC direction ; Current Ship Direction
7099: 85 61 STA direction ;
709B: A5 5C LDA fastTimer ; Fast Timer
709D: 4A LSR A
709E: B0 E5 BCS $7085 ;
70A0: AD 05 24 LDA SWTHRUST ; Thrust Switch
70A3: 10 3C BPL $70E1 ; Branch If NOT Pressed
70A5: A9 80 LDA #$80
70A7: 8D 03 3C STA SNDTHRUST ; Ship Thrust Sound
70AA: A0 00 LDY #$00
70AC: A5 61 LDA direction ; Current Ship Direction
70AE: 20 D2 77 JSR $77D2 ;
70B1: 10 01 BPL $70B4 ;
70B3: 88 DEY
70B4: 0A ASL A
70B5: 18 CLC
70B6: 65 64 ADC ship_thrust_dH ;
70B8: AA TAX
70B9: 98 TYA
70BA: 6D 3E 02 ADC horzVelShip ;
70BD: 20 25 71 JSR $7125 ;
70C0: 8D 3E 02 STA horzVelShip ;
70C3: 86 64 STX ship_thrust_dH ;
70C5: A0 00 LDY #$00
70C7: A5 61 LDA direction ;
70C9: 20 D5 77 JSR $77D5 ;
70CC: 10 01 BPL $70CF ;
70CE: 88 DEY
70CF: 0A ASL A
70D0: 18 CLC
70D1: 65 65 ADC ship_thrust_dV ;
70D3: AA TAX
70D4: 98 TYA
70D5: 6D 61 02 ADC vertVelShip ;
70D8: 20 25 71 JSR $7125 ;
70DB: 8D 61 02 STA vertVelShip ;
70DE: 86 65 STX ship_thrust_dV ;
70E0: 60 RTS
70E1: A9 00 LDA #$00
70E3: 8D 03 3C STA SNDTHRUST ; Ship Thrust Sound
70E6: AD 3E 02 LDA horzVelShip ;
70E9: 05 64 ORA ship_thrust_dH ;
70EB: F0 18 BEQ $7105 ;
70ED: AD 3E 02 LDA horzVelShip ;
70F0: 0A ASL A
70F1: A2 FF LDX #$FF
70F3: 18 CLC
70F4: 49 FF EOR #$FF
70F6: 30 02 BMI $70FA ;
70F8: E8 INX
70F9: 38 SEC
70FA: 65 64 ADC ship_thrust_dH ;
70FC: 85 64 STA ship_thrust_dH ;
70FE: 8A TXA
70FF: 6D 3E 02 ADC horzVelShip ;
7102: 8D 3E 02 STA horzVelShip ;
7105: A5 65 LDA ship_thrust_dV ;
7107: 0D 61 02 ORA vertVelShip ;
710A: F0 18 BEQ $7124 ;
710C: AD 61 02 LDA vertVelShip ;
710F: 0A ASL A
7110: A2 FF LDX #$FF
7112: 18 CLC
7113: 49 FF EOR #$FF
7115: 30 02 BMI $7119 ;
7117: 38 SEC
7118: E8 INX
7119: 65 65 ADC ship_thrust_dV ;
711B: 85 65 STA ship_thrust_dV ;
711D: 8A TXA
711E: 6D 61 02 ADC vertVelShip ;
7121: 8D 61 02 STA vertVelShip ;
7124: 60 RTS
7125: 30 09 BMI $7130 ;
7127: C9 40 CMP #$40
7129: 90 0D BCC $7138 ;
712B: A2 FF LDX #$FF
712D: A9 3F LDA #$3F
712F: 60 RTS
7130: C9 C0 CMP #$C0
7132: B0 04 BCS $7138 ;
7134: A2 01 LDX #$01
7136: A9 C0 LDA #$C0
7138: 60 RTS
7139: A2 1C LDX #$1C
713B: BD 00 02 LDA statusAsteroids,X ;
713E: F0 1E BEQ $715E ;
7140: BD 69 02 LDA hposhAsteroids,X ;
7143: 38 SEC
7144: ED 84 02 SBC hposhShip ;
7147: C9 04 CMP #$04
7149: 90 04 BCC $714F ;
714B: C9 FC CMP #$FC
714D: 90 0F BCC $715E ;
714F: BD 8C 02 LDA vposhAsteroids,X ;
7152: 38 SEC
7153: ED A7 02 SBC vposhShip ;
7156: C9 04 CMP #$04
7158: 90 09 BCC $7163 ;
715A: C9 FC CMP #$FC
715C: B0 05 BCS $7163 ;
715E: CA DEX
715F: 10 DA BPL $713B ;
7161: E8 INX
7162: 60 RTS
7163: EE FA 02 INC shipSpawnTimer ;
7166: 60 RTS
7167: 90 A2 BCC $710B ;
7169: 1A
716A: AD FB 02 LDA astdWaveTimer ;
716D: D0 70 BNE $71DF ;
716F: AD 1C 02 LDA statusSaucer ; Saucer Flag
7172: D0 73 BNE $71E7 ; Branch If Saucer Is Currently Active
7174: 8D 3F 02 STA horzVelSaucer ;
7177: 8D 62 02 STA vertVelSaucer ;
717A: EE FD 02 INC max_rocks_for_ufo ;
717D: AD FD 02 LDA max_rocks_for_ufo ;
7180: C9 0B CMP #$0B
7182: 90 03 BCC $7187 ;
7184: CE FD 02 DEC max_rocks_for_ufo ;
7187: AD F5 02 LDA asteroidsPerWave ;
718A: 18 CLC
718B: 69 02 ADC #$02
718D: C9 0B CMP #$0B
718F: 90 02 BCC $7193 ; Branch if smaller???
7191: A9 0B LDA #$0B
7193: 8D F6 02 STA curAsteroidCount ;
7196: 8D F5 02 STA asteroidsPerWave ;
7199: 85 08 STA $08 ;
719B: A0 1C LDY #$1C
719D: 20 B5 77 JSR $77B5 ;
71A0: 29 18 AND #$18
71A2: 09 04 ORA #$04
71A4: 9D 00 02 STA statusAsteroids,X ;
71A7: 20 03 72 JSR $7203 ;
71AA: 20 B5 77 JSR $77B5 ;
71AD: 4A LSR A
71AE: 29 1F AND #$1F
71B0: 90 13 BCC $71C5 ;
71B2: C9 18 CMP #$18
71B4: 90 02 BCC $71B8 ;
71B6: 29 17 AND #$17
71B8: 9D 8C 02 STA vposhAsteroids,X ;
71BB: A9 00 LDA #$00
71BD: 9D 69 02 STA hposhAsteroids,X ;
71C0: 9D AF 02 STA hposlAsteroids,X ;
71C3: F0 0B BEQ $71D0 ;
71C5: 9D 69 02 STA hposhAsteroids,X ;
71C8: A9 00 LDA #$00
71CA: 9D 8C 02 STA vposhAsteroids,X ;
71CD: 9D D2 02 STA vposlAsteroids,X ;
71D0: CA DEX
71D1: C6 08 DEC $08 ;
71D3: D0 C8 BNE $719D ;
71D5: A9 7F LDA #$7F
71D7: 8D F7 02 STA saucerTimer ; Countdown Timer For When Saucer Appears
71DA: A9 30 LDA #$30
71DC: 8D FC 02 STA astWaveTimerReload ; Starting Value For Timer @ $6E
71DF: A9 00 LDA #$00
71E1: 9D 00 02 STA statusAsteroids,X ;
71E4: CA DEX
71E5: 10 FA BPL $71E1 ;
71E7: 60 RTS
71E8: A9 60 LDA #$60
71EA: 8D CA 02 STA hposlShip ;
71ED: 8D ED 02 STA vposlShip ;
71F0: A9 00 LDA #$00
71F2: 8D 3E 02 STA horzVelShip ;
71F5: 8D 61 02 STA vertVelShip ;
71F8: A9 10 LDA #$10
71FA: 8D 84 02 STA hposhShip ;
71FD: A9 0C LDA #$0C
71FF: 8D A7 02 STA vposhShip ;
7202: 60 RTS
7203: 20 B5 77 JSR $77B5 ;
7206: 29 8F AND #$8F
7208: 10 02 BPL $720C ;
720A: 09 F0 ORA #$F0
720C: 18 CLC
720D: 79 23 02 ADC horzVelAsteroids,Y ;
7210: 20 33 72 JSR $7233 ;
7213: 9D 23 02 STA horzVelAsteroids,X ;
7216: 20 B5 77 JSR $77B5 ;
7219: 20 B5 77 JSR $77B5 ;
721C: 20 B5 77 JSR $77B5 ;
721F: 20 B5 77 JSR $77B5 ;
7222: 29 8F AND #$8F
7224: 10 02 BPL $7228 ;
7226: 09 F0 ORA #$F0
7228: 18 CLC
7229: 79 46 02 ADC vertVelAsteroids,Y ;
722C: 20 33 72 JSR $7233 ;
722F: 9D 46 02 STA vertVelAsteroids,X ;
7232: 60 RTS
7233: 10 0D BPL $7242 ;
7235: C9 E1 CMP #$E1
7237: B0 02 BCS $723B ;
7239: A9 E1 LDA #$E1
723B: C9 FB CMP #$FB
723D: 90 0F BCC $724E ;
723F: A9 FA LDA #$FA
7241: 60 RTS
7242: C9 06 CMP #$06
7244: B0 02 BCS $7248 ;
7246: A9 06 LDA #$06
7248: C9 20 CMP #$20
724A: 90 02 BCC $724E ;
724C: A9 1F LDA #$1F
724E: 60 RTS
724F: A9 10 LDA #$10
7251: 85 00 STA $00 ;
7253: A9 50 LDA #$50
7255: A2 A4 LDX #$A4
7257: 20 FC 7B JSR $7BFC ;
725A: A9 19 LDA #$19
725C: A2 DB LDX #$DB
725E: 20 03 7C JSR $7C03 ;
7261: A9 70 LDA #$70
7263: 20 DE 7C JSR $7CDE ;
7266: A2 00 LDX #$00
7268: A5 1C LDA numPlayers ; Number Of Players In Current Game
726A: C9 02 CMP #$02 ; 2 Players?
726C: D0 18 BNE $7286 ; No, Branch
726E: A5 18 LDA curPlayer ; Current Player
7270: D0 14 BNE $7286 ; Player 2? Yes, Branch
7272: A2 20 LDX #$20
7274: AD 1B 02 LDA statusShip ; Player Flag
7277: 05 59 ORA hyperSpaceFlag ; Hyperspace Flag
7279: D0 0B BNE $7286 ;
727B: AD FA 02 LDA shipSpawnTimer ;
727E: 30 06 BMI $7286 ;
7280: A5 5C LDA fastTimer ; Fast Timer
7282: 29 10 AND #$10
7284: F0 0D BEQ $7293 ;
7286: A9 52 LDA #$52
7288: A0 02 LDY #$02
728A: 38 SEC
728B: 20 3F 77 JSR $773F ;
728E: A9 00 LDA #$00
7290: 20 8B 77 JSR $778B ;
7293: A9 28 LDA #$28
7295: A4 57 LDY ply1CurShips ; Number Of Ships Remaining, Player 1
7297: 20 3E 6F JSR $6F3E ;
729A: A9 00 LDA #$00
729C: 85 00 STA $00 ;
729E: A9 78 LDA #$78
72A0: A2 DB LDX #$DB
72A2: 20 03 7C JSR $7C03 ;
72A5: A9 50 LDA #$50
72A7: 20 DE 7C JSR $7CDE ;
72AA: A9 1D LDA #$1D
72AC: A0 02 LDY #$02
72AE: 38 SEC
72AF: 20 3F 77 JSR $773F ;
72B2: A9 00 LDA #$00
72B4: 20 D1 7B JSR $7BD1 ;
72B7: A9 10 LDA #$10
72B9: 85 00 STA $00 ;
72BB: A9 C0 LDA #$C0
72BD: A2 DB LDX #$DB
72BF: 20 03 7C JSR $7C03 ;
72C2: A9 50 LDA #$50
72C4: 20 DE 7C JSR $7CDE ;
72C7: A2 00 LDX #$00
72C9: A5 1C LDA numPlayers ; Number Of Players In Current Game
72CB: C9 01 CMP #$01 ; Only 1 Player?
72CD: F0 2E BEQ $72FD ; Yes, Branch
72CF: 90 18 BCC $72E9 ;
72D1: A5 18 LDA curPlayer ; Current Player
72D3: F0 14 BEQ $72E9 ; Branch If Player 1
72D5: A2 20 LDX #$20
72D7: AD 1B 02 LDA statusShip ; Player Flag
72DA: 05 59 ORA hyperSpaceFlag ; Hyperspace Flag
72DC: D0 0B BNE $72E9 ;
72DE: AD FA 02 LDA shipSpawnTimer ;
72E1: 30 06 BMI $72E9 ;
72E3: A5 5C LDA fastTimer ; Fast Timer
72E5: 29 10 AND #$10
72E7: F0 0D BEQ $72F6 ;
72E9: A9 54 LDA #$54
72EB: A0 02 LDY #$02
72ED: 38 SEC
72EE: 20 3F 77 JSR $773F ;
72F1: A9 00 LDA #$00
72F3: 20 8B 77 JSR $778B ;
72F6: A9 CF LDA #$CF
72F8: A4 58 LDY ply2CurShips ; Current Number Of Ships, Player 2
72FA: 4C 3E 6F JMP $6F3E ;
72FD: 60 RTS
72FE: 84 00 STY $00 ;
7300: 86 0D STX $0D ;
7302: A5 05 LDA $05 ;
7304: 4A LSR A
7305: 66 04 ROR $04 ;
7307: 4A LSR A
7308: 66 04 ROR $04 ;
730A: 4A LSR A
730B: 66 04 ROR $04 ;
730D: 85 05 STA $05 ;
730F: A5 07 LDA $07 ;
7311: 18 CLC
7312: 69 04 ADC #$04
7314: 4A LSR A
7315: 66 06 ROR $06 ;
7317: 4A LSR A
7318: 66 06 ROR $06 ;
731A: 4A LSR A
731B: 66 06 ROR $06 ;
731D: 85 07 STA $07 ;
731F: A2 04 LDX #$04
7321: 20 1C 7C JSR $7C1C ;
7324: A9 70 LDA #$70
7326: 38 SEC
7327: E5 00 SBC $00 ;
7329: C9 A0 CMP #$A0
732B: 90 0E BCC $733B ;
732D: 48 PHA
732E: A9 90 LDA #$90
7330: 20 DE 7C JSR $7CDE ;
7333: 68 PLA
7334: 38 SEC
7335: E9 10 SBC #$10
7337: C9 A0 CMP #$A0
7339: B0 F2 BCS $732D ;
733B: 20 DE 7C JSR $7CDE ;
733E: A6 0D LDX $0D ;
7340: BD 00 02 LDA statusAsteroids,X ;
7343: 10 16 BPL $735B ;
7345: E0 1B CPX #$1B
7347: F0 0C BEQ $7355 ;
7349: 29 0C AND #$0C
734B: 4A LSR A
734C: A8 TAY
734D: B9 F8 50 LDA $50F8,Y
7350: BE F9 50 LDX $50F9,Y
7353: D0 1B BNE $7370 ;
7355: 20 65 74 JSR $7465 ;
7358: A6 0D LDX $0D ;
735A: 60 RTS
735B: E0 1B CPX #$1B
735D: F0 17 BEQ $7376 ;
735F: E0 1C CPX #$1C
7361: F0 19 BEQ $737C ;
7363: B0 1F BCS $7384 ;
7365: 29 18 AND #$18
7367: 4A LSR A
7368: 4A LSR A
7369: A8 TAY
736A: B9 DE 51 LDA $51DE,Y
736D: BE DF 51 LDX $51DF,Y
7370: 20 45 7D JSR $7D45 ;
7373: A6 0D LDX $0D ;
7375: 60 RTS
7376: 20 0B 75 JSR $750B ;
7379: A6 0D LDX $0D ;
737B: 60 RTS
737C: AD 50 52 LDA $5250 ;
737F: AE 51 52 LDX $5251 ;
7382: D0 EC BNE $7370 ;
7384: A9 70 LDA #$70
7386: A2 F0 LDX #$F0
7388: 20 E0 7C JSR $7CE0 ;
738B: A6 0D LDX $0D ;
738D: A5 5C LDA fastTimer ; Fast Timer
738F: 29 03 AND #$03
7391: D0 03 BNE $7396 ;
7393: DE 00 02 DEC statusAsteroids,X ;
7396: 60 RTS
7397: F8 SED ; Set Decimal Mode
7398: 75 52 ADC ply1ScoreTens,X ; Add To Current Players Score, Tens
739A: 95 52 STA ply1ScoreTens,X ;
739C: 90 12 BCC $73B0 ; Increase In Thousands?, No, Branch
739E: B5 53 LDA ply1ScoreThous,X ; Current Players Score, Thousands
73A0: 69 00 ADC #$00 ; Add In The Carry
73A2: 95 53 STA ply1ScoreThous,X ;
73A4: 29 0F AND #$0F ; Will Be 0 If Another 10,000 Points Reached
73A6: D0 08 BNE $73B0 ; Branch If Not Enough Points For Bonus Ship
73A8: A9 B0 LDA #$B0 ; Length Of Time To Play Bonus Ship Sound
73AA: 85 68 STA sndTimeBonusShip ; Into Timer
73AC: A6 18 LDX curPlayer ; Current Player
73AE: F6 57 INC ply1CurShips,X ; Award Bonus Ship
73B0: D8 CLD ; Clear Decimal Mode
73B1: 60 RTS
73B2: A5 18 LDA curPlayer ; Current Player
73B4: 0A ASL A
73B5: 0A ASL A
73B6: 85 08 STA $08 ;
73B8: A5 6F LDA holdLampValues ;
73BA: 29 FB AND #$FB
73BC: 05 08 ORA $08 ;
73BE: 85 6F STA holdLampValues ;
73C0: 8D 00 32 STA LMPSCNS ;
73C3: 60 RTS
73C4: A5 1C LDA numPlayers ; Number Of Players In Current Game
73C6: F0 02 BEQ $73CA ; None, Branch
73C8: 18 CLC
73C9: 60 RTS
73CA: A5 5D LDA slowTimer ; Slow Timer
73CC: 29 04 AND #$04
73CE: D0 F8 BNE $73C8 ;
73D0: A5 1D LDA highScores ; Highest Score In Table
73D2: 05 1E ORA highScores+1 ;
73D4: F0 F2 BEQ $73C8 ; Table Empty, Branch
73D6: A0 00 LDY #$00 ; Offset To "HIGH SCORE"
73D8: 20 F6 77 JSR PrintPackedMsg ; And Draw To Screen
73DB: A2 00 LDX #$00
73DD: 86 10 STX $10 ;
73DF: A9 01 LDA #$01
73E1: 85 00 STA $00 ;
73E3: A9 A7 LDA #$A7
73E5: 85 0E STA $0E ;
73E7: A9 10 LDA #$10
73E9: 85 00 STA $00 ;
73EB: B5 1D LDA highScores,X ; High Score Table
73ED: 15 1E ORA highScores+1,X ;
73EF: F0 67 BEQ $7458 ; No Score In This Entry, Branch
73F1: 86 0F STX $0F ;
73F3: A9 5F LDA #$5F
73F5: A6 0E LDX $0E ;
73F7: 20 03 7C JSR $7C03 ;
73FA: A9 40 LDA #$40
73FC: 20 DE 7C JSR $7CDE ;
73FF: A5 0F LDA $0F ;
7401: 4A LSR A
7402: F8 SED ; Set Decimal Mode
7403: 69 01 ADC #$01
7405: D8 CLD ; Clear Decimal Mode
7406: 85 0D STA $0D ;
7408: A9 0D LDA #$0D
740A: 38 SEC
740B: A0 01 LDY #$01
740D: A2 00 LDX #$00
740F: 20 3F 77 JSR $773F ;
7412: A9 40 LDA #$40
7414: AA TAX
7415: 20 E0 7C JSR $7CE0 ;
7418: A0 00 LDY #$00
741A: 20 35 6F JSR $6F35 ;
741D: A5 0F LDA $0F ;
741F: 18 CLC
7420: 69 1D ADC #$1D
7422: A0 02 LDY #$02
7424: 38 SEC
7425: A2 00 LDX #$00
7427: 20 3F 77 JSR $773F ;
742A: A9 00 LDA #$00
742C: 20 D1 7B JSR $7BD1 ;
742F: A0 00 LDY #$00
7431: 20 35 6F JSR $6F35 ;
7434: A4 10 LDY $10 ;
7436: 20 1A 6F JSR $6F1A ;
7439: E6 10 INC $10 ;
743B: A4 10 LDY $10 ;
743D: 20 1A 6F JSR $6F1A ;
7440: E6 10 INC $10 ;
7442: A4 10 LDY $10 ;
7444: 20 1A 6F JSR $6F1A ;
7447: E6 10 INC $10 ;
7449: A5 0E LDA $0E ;
744B: 38 SEC
744C: E9 08 SBC #$08
744E: 85 0E STA $0E ;
7450: A6 0F LDX $0F ;
7452: E8 INX
7453: E8 INX ; Point To Next Entry In Table
7454: E0 14 CPX #$14 ; End Of Table?
7456: 90 93 BCC $73EB ; No, Branch
7458: 38 SEC
7459: 60 RTS
745A: A2 1A LDX #$1A
745C: BD 00 02 LDA statusAsteroids,X ;
745F: F0 03 BEQ $7464 ;
7461: CA DEX
7462: 10 F8 BPL $745C ;
7464: 60 RTS
7465: AD 1B 02 LDA statusShip ;
7468: C9 A2 CMP #$A2
746A: B0 22 BCS $748E ;
746C: A2 0A LDX #$0A
746E: BD EC 50 LDA $50EC,X
7471: 4A LSR A
7472: 4A LSR A
7473: 4A LSR A
7474: 4A LSR A
7475: 18 CLC
7476: 69 F8 ADC #$F8
7478: 49 F8 EOR #$F8
747A: 95 7E STA $7D+1,X ;
747C: BD ED 50 LDA $50ED,X
747F: 4A LSR A
7480: 4A LSR A
7481: 4A LSR A
7482: 4A LSR A
7483: 18 CLC
7484: 69 F8 ADC #$F8
7486: 49 F8 EOR #$F8
7488: 95 8A STA $89+1,X ;
748A: CA DEX
748B: CA DEX
748C: 10 E0 BPL $746E ;
748E: AD 1B 02 LDA statusShip ;
7491: 49 FF EOR #$FF
7493: 29 70 AND #$70
7495: 4A LSR A
7496: 4A LSR A
7497: 4A LSR A
7498: AA TAX
7499: 86 09 STX $09 ;
749B: A0 00 LDY #$00
749D: BD EC 50 LDA $50EC,X
74A0: 10 01 BPL $74A3 ;
74A2: 88 DEY
74A3: 18 CLC
74A4: 75 7D ADC $7D,X ;
74A6: 95 7D STA $7D,X ;
74A8: 98 TYA
74A9: 75 7E ADC $7D+1,X ;
74AB: 95 7E STA $7D+1,X ;
74AD: 85 04 STA $04 ;
74AF: 84 05 STY $05 ;
74B1: A0 00 LDY #$00
74B3: BD ED 50 LDA $50ED,X
74B6: 10 01 BPL $74B9 ;
74B8: 88 DEY
74B9: 18 CLC
74BA: 75 89 ADC $89,X ;
74BC: 95 89 STA $89,X ;
74BE: 98 TYA
74BF: 75 8A ADC $89+1,X ;
74C1: 95 8A STA $89+1,X ;
74C3: 85 06 STA $06 ;
74C5: 84 07 STY $07 ;
74C7: A5 02 LDA $02 ;
74C9: 85 0B STA $0B ;
74CB: A5 03 LDA $03 ;
74CD: 85 0C STA $0C ;
74CF: 20 49 7C JSR $7C49 ;
74D2: A4 09 LDY $09 ;
74D4: B9 E0 50 LDA $50E0,Y
74D7: BE E1 50 LDX $50E1,Y
74DA: 20 45 7D JSR $7D45 ;
74DD: A4 09 LDY $09 ;
74DF: B9 E1 50 LDA $50E1,Y
74E2: 49 04 EOR #$04
74E4: AA TAX
74E5: B9 E0 50 LDA $50E0,Y
74E8: 29 0F AND #$0F
74EA: 49 04 EOR #$04
74EC: 20 45 7D JSR $7D45 ;
74EF: A0 FF LDY #$FF
74F1: C8 INY
74F2: B1 0B LDA ($0B),Y ;
74F4: 91 02 STA ($02),Y ;
74F6: C8 INY
74F7: B1 0B LDA ($0B),Y ;
74F9: 49 04 EOR #$04
74FB: 91 02 STA ($02),Y ;
74FD: C0 03 CPY #$03
74FF: 90 F0 BCC $74F1 ;
7501: 20 39 7C JSR $7C39 ;
7504: A6 09 LDX $09 ;
7506: CA DEX
7507: CA DEX
7508: 10 8F BPL $7499 ;
750A: 60 RTS
750B: A2 00 LDX #$00
750D: 86 17 STX $17 ;
750F: A0 00 LDY #$00
7511: A5 61 LDA direction ; Ship Direction
7513: 10 06 BPL $751B ;
7515: A0 04 LDY #$04
7517: 8A TXA
7518: 38 SEC
7519: E5 61 SBC direction ;
751B: 85 08 STA $08 ;
751D: 24 08 BIT $08 ;
751F: 30 02 BMI $7523 ;
7521: 50 07 BVC $752A ;
7523: A2 04 LDX #$04
7525: A9 80 LDA #$80
7527: 38 SEC
7528: E5 08 SBC $08 ;
752A: 86 08 STX $08 ;
752C: 84 09 STY $09 ;
752E: 4A LSR A
752F: 29 FE AND #$FE
7531: A8 TAY
7532: B9 6E 52 LDA $526E,Y
7535: BE 6F 52 LDX $526F,Y
7538: 20 D3 6A JSR $6AD3 ;
753B: AD 05 24 LDA SWTHRUST ; Thrust Switch
753E: 10 14 BPL $7554 ; Branch If NOT Pressed
7540: A5 5C LDA fastTimer ; Fast Timer
7542: 29 04 AND #$04
7544: F0 0E BEQ $7554 ;
7546: C8 INY
7547: C8 INY
7548: 38 SEC
7549: A6 0C LDX $0C ;
754B: 98 TYA
754C: 65 0B ADC $0B ;
754E: 90 01 BCC $7551 ;
7550: E8 INX
7551: 20 D3 6A JSR $6AD3 ;
7554: 60 RTS
7555: A5 1C LDA numPlayers ; Number Of Players In Current Game
7557: D0 01 BNE $755A ; Branch If At Least 1 Player Left
7559: 60 RTS
755A: A2 00 LDX #$00
755C: AD 1C 02 LDA statusSaucer ; Saucer Flag
755F: 30 0A BMI $756B ; Currently Exploding, Branch
7561: F0 08 BEQ $756B ; No Active Saucer, Branch
7563: 6A ROR A
7564: 6A ROR A
7565: 6A ROR A
7566: 8D 02 3C STA SNDSELSAU ; Saucer Sound Select
7569: A2 80 LDX #$80
756B: 8E 00 3C STX SNDSAUCR ; Saucer Sound
756E: A2 01 LDX #$01
7570: 20 CD 75 JSR $75CD ;
7573: 8D 01 3C STA SNDSFIRE ; Saucer Fire Sound
7576: CA DEX
7577: 20 CD 75 JSR $75CD ;
757A: 8D 04 3C STA SNDFIRE ; Ship Fire Sound
757D: AD 1B 02 LDA statusShip ;
7580: C9 01 CMP #$01
7582: F0 04 BEQ $7588 ;
7584: 8A TXA
7585: 8D 03 3C STA SNDTHRUST ; Ship Thrust Sound
7588: AD F6 02 LDA curAsteroidCount ;
758B: F0 11 BEQ $759E ;
758D: AD 1B 02 LDA statusShip ; Player Flag
7590: 30 0C BMI $759E ; Currently Exploding, Branch
7592: 05 59 ORA hyperSpaceFlag ; Hyperspace Flag
7594: F0 08 BEQ $759E ;
7596: A5 6D LDA sndThumpOn ;
7598: F0 14 BEQ $75AE ;
759A: C6 6D DEC sndThumpOn ;
759C: D0 21 BNE $75BF ;
759E: A5 6C LDA sndThump ; Current Volume And Frequency Of THUMP Sound
75A0: 29 0F AND #$0F ; Mask Off Frequency Control
75A2: 85 6C STA sndThump ;
75A4: 8D 00 3A STA SNDTHUMP ; Turn Off Volume, Retain Current Frequency
75A7: AD FC 02 LDA astWaveTimerReload ;
75AA: 85 6E STA sndTHumpOff ;
75AC: 10 11 BPL $75BF ;
75AE: C6 6E DEC sndTHumpOff ;
75B0: D0 0D BNE $75BF ;
75B2: A9 04 LDA #$04
75B4: 85 6D STA sndThumpOn ;
75B6: A5 6C LDA sndThump ;
75B8: 49 14 EOR #$14 ; Turn On Volume, Switch Frequency
75BA: 85 6C STA sndThump ; Store It In Current Settings
75BC: 8D 00 3A STA SNDTHUMP ; Make The Change
75BF: A5 69 LDA sndTimeExplosion ;
75C1: AA TAX
75C2: 29 3F AND #$3F
75C4: F0 01 BEQ $75C7 ;
75C6: CA DEX
75C7: 86 69 STX sndTimeExplosion ;
75C9: 8E 00 36 STX SNDEXP ; Explosion Pitch/Volume
75CC: 60 RTS
75CD: B5 6A LDA sndAltFirePlayer,X ; X = 0 Ship Fire, X = 1 Saucer Fire
75CF: 30 0C BMI $75DD ;
75D1: B5 66 LDA sndTimePlayerFire,X ;
75D3: 10 12 BPL $75E7 ;
75D5: A9 10 LDA #$10
75D7: 95 66 STA sndTimePlayerFire,X ; TIMER: Length Of Time Sound Is On
75D9: A9 80 LDA #$80 ; Turn Fire Sound On
75DB: 30 0C BMI $75E9 ; Will Always Branch
75DD: B5 66 LDA sndTimePlayerFire,X ;
75DF: F0 06 BEQ $75E7 ;
75E1: 30 04 BMI $75E7 ;
75E3: D6 66 DEC sndTimePlayerFire,X ;
75E5: D0 F2 BNE $75D9 ;
75E7: A9 00 LDA #$00 ; Turn Fire Sound Off
75E9: 95 6A STA sndAltFirePlayer,X ;
75EB: 60 RTS
75EC: 86 0D STX $0D ;
75EE: A9 50 LDA #$50
75F0: 8D F9 02 STA asteroid_hit_timer ;
75F3: B9 00 02 LDA statusAsteroids,Y ;
75F6: 29 78 AND #$78
75F8: 85 0E STA $0E ;
75FA: B9 00 02 LDA statusAsteroids,Y ;
75FD: 29 07 AND #$07
75FF: 4A LSR A
7600: AA TAX
7601: F0 02 BEQ $7605 ;
7603: 05 0E ORA $0E ;
7605: 99 00 02 STA statusAsteroids,Y ;
7608: A5 1C LDA numPlayers ; Number Of Players In Current Game
760A: F0 11 BEQ $761D ; None, Branch
760C: A5 0D LDA $0D ;
760E: F0 04 BEQ $7614 ;
7610: C9 04 CMP #$04
7612: 90 09 BCC $761D ;
7614: BD 59 76 LDA $7659,X ;
7617: A6 19 LDX $19 ;
7619: 18 CLC
761A: 20 97 73 JSR $7397 ;
761D: BE 00 02 LDX statusAsteroids,Y ;
7620: F0 34 BEQ $7656 ;
7622: 20 5A 74 JSR $745A ;
7625: 30 2F BMI $7656 ;
7627: EE F6 02 INC curAsteroidCount ;
762A: 20 9D 6A JSR $6A9D ;
762D: 20 03 72 JSR $7203 ;
7630: BD 23 02 LDA horzVelAsteroids,X ;
7633: 29 1F AND #$1F
7635: 0A ASL A
7636: 5D AF 02 EOR hposlAsteroids,X ;
7639: 9D AF 02 STA hposlAsteroids,X ;
763C: 20 5C 74 JSR $745C ;
763F: 30 15 BMI $7656 ;
7641: EE F6 02 INC curAsteroidCount ;
7644: 20 9D 6A JSR $6A9D ;
7647: 20 03 72 JSR $7203 ;
764A: BD 46 02 LDA vertVelAsteroids,X ;
764D: 29 1F AND #$1F
764F: 0A ASL A
7650: 5D D2 02 EOR vposlAsteroids,X ;
7653: 9D D2 02 STA vposlAsteroids,X ;
7656: A6 0D LDX $0D ;
7658: 60 RTS
7659: 10 05 BPL $7660 ;
765B: 02
765C: A5 1C LDA numPlayers ; Number Of Players In Current Game
765E: 10 38 BPL $7698 ;
7660: A2 02 LDX #$02
7662: 85 5D STA slowTimer ; Slow Timer
7664: 85 32 STA ply1HighPlacement ;
7666: 85 33 STA ply2HighPlacement ;
7668: A0 00 LDY #$00
766A: B9 1D 00 LDA highScores,Y ; High Score Table, Tens
766D: D5 52 CMP ply1ScoreTens,X ; Player Score, Tens
766F: B9 1E 00 LDA highScores+1,Y ; High Score Table, Thousands
7672: F5 53 SBC ply1ScoreThous,X ;
7674: 90 23 BCC $7699 ;
7676: C8 INY
7677: C8 INY
7678: C0 14 CPY #$14
767A: 90 EE BCC $766A ;
767C: CA DEX
767D: CA DEX
767E: 10 E8 BPL $7668 ;
7680: A5 33 LDA ply2HighPlacement ;
7682: 30 0E BMI $7692 ;
7684: C5 32 CMP ply1HighPlacement ;
7686: 90 0A BCC $7692 ;
7688: 69 02 ADC #$02
768A: C9 1E CMP #$1E
768C: 90 02 BCC $7690 ;
768E: A9 FF LDA #$FF
7690: 85 33 STA ply2HighPlacement ;
7692: A9 00 LDA #$00
7694: 85 1C STA numPlayers ;
7696: 85 31 STA highScoreLetter ;
7698: 60 RTS
7699: 86 0B STX $0B ;
769B: 84 0C STY $0C ;
769D: 8A TXA
769E: 4A LSR A
769F: AA TAX
76A0: 98 TYA
76A1: 4A LSR A
76A2: 65 0C ADC $0C ;
76A4: 85 0D STA $0D ;
76A6: 95 32 STA ply1HighPlacement,X ;
76A8: A2 1B LDX #$1B
76AA: A0 12 LDY #$12
76AC: E4 0D CPX $0D ;
76AE: F0 1F BEQ $76CF ;
76B0: B5 31 LDA highScoreLetter,X ;
76B2: 95 34 STA highScoresInitials,X;
76B4: B5 32 LDA ply1HighPlacement,X ;
76B6: 95 35 STA highScoresInitials+1,X;
76B8: B5 33 LDA ply2HighPlacement,X ;
76BA: 95 36 STA highScoresInitials+2,X;
76BC: B9 1B 00 LDA $1B,Y ;
76BF: 99 1D 00 STA highScores,Y ;
76C2: B9 1C 00 LDA numPlayers,Y ;
76C5: 99 1E 00 STA highScores+1,Y ;
76C8: 88 DEY
76C9: 88 DEY
76CA: CA DEX
76CB: CA DEX
76CC: CA DEX
76CD: D0 DD BNE $76AC ;
76CF: A9 0B LDA #$0B
76D1: 95 34 STA highScoresInitials,X;
76D3: A9 00 LDA #$00
76D5: 95 35 STA highScoresInitials+1,X;
76D7: 95 36 STA highScoresInitials+2,X;
76D9: A9 F0 LDA #$F0
76DB: 85 5D STA slowTimer ; Slow Timer
76DD: A6 0B LDX $0B ;
76DF: A4 0C LDY $0C ;
76E1: B5 53 LDA ply1ScoreThous,X ; Players Score, Thousands
76E3: 99 1E 00 STA highScores+1,Y ;
76E6: B5 52 LDA ply1ScoreTens,X ; Players Score, Tens
76E8: 99 1D 00 STA highScores,Y ;
76EB: A0 00 LDY #$00
76ED: F0 8D BEQ $767C ;
76EF: DF
76F0: 98 TYA
76F1: 10 09 BPL $76FC ;
76F3: 20 08 77 JSR $7708 ;
76F6: 20 FC 76 JSR $76FC ;
76F9: 4C 08 77 JMP $7708 ;
76FC: A8 TAY
76FD: 8A TXA
76FE: 10 0E BPL $770E ;
7700: 20 08 77 JSR $7708 ;
7703: 20 0E 77 JSR $770E ;
7706: 49 80 EOR #$80
7708: 49 FF EOR #$FF
770A: 18 CLC
770B: 69 01 ADC #$01
770D: 60 RTS
770E: 85 0C STA $0C ;
7710: 98 TYA
7711: C5 0C CMP $0C ;
7713: F0 10 BEQ $7725 ;
7715: 90 11 BCC $7728 ;
7717: A4 0C LDY $0C ;
7719: 85 0C STA $0C ;
771B: 98 TYA
771C: 20 28 77 JSR $7728 ;
771F: 38 SEC
7720: E9 40 SBC #$40
7722: 4C 08 77 JMP $7708 ;
7725: A9 20 LDA #$20
7727: 60 RTS
7728: 20 6C 77 JSR $776C ;
772B: BD 2F 77 LDA $772F,X ;
772E: 60 RTS
772F: 00 BRK
7730: 02
7731: 05 07 ORA $07 ;
7733: 0A ASL A
7734: 0C
7735: 0F
7736: 11 13 ORA ($13),Y ;
7738: 15 17 ORA $17,X ;
773A: 19 1A 1C ORA $1C1A,Y
773D: 1D 1F 08 ORA $081F,X
7740: 86 17 STX $17 ;
7742: 88 DEY
7743: 84 16 STY $16 ;
7745: 18 CLC
7746: 65 16 ADC $16 ;
7748: 85 15 STA $15 ;
774A: 28 PLP
774B: AA TAX
774C: 08 PHP
774D: B5 00 LDA $00,X ;
774F: 4A LSR A
7750: 4A LSR A
7751: 4A LSR A
7752: 4A LSR A
7753: 28 PLP
7754: 20 85 77 JSR $7785 ;
7757: A5 16 LDA $16 ;
7759: D0 01 BNE $775C ;
775B: 18 CLC
775C: A6 15 LDX $15 ;
775E: B5 00 LDA $00,X ;
7760: 20 85 77 JSR $7785 ;
7763: C6 15 DEC $15 ;
7765: A6 15 LDX $15 ;
7767: C6 16 DEC $16 ;
7769: 10 E1 BPL $774C ;
776B: 60 RTS
776C: A0 00 LDY #$00
776E: 84 0B STY $0B ;
7770: A0 04 LDY #$04
7772: 26 0B ROL $0B ;
7774: 2A ROL A
7775: C5 0C CMP $0C ;
7777: 90 02 BCC $777B ;
7779: E5 0C SBC $0C ;
777B: 88 DEY
777C: D0 F4 BNE $7772 ;
777E: A5 0B LDA $0B ;
7780: 2A ROL A
7781: 29 0F AND #$0F
7783: AA TAX
7784: 60 RTS
7785: 90 04 BCC $778B ;
7787: 29 0F AND #$0F
7789: F0 27 BEQ $77B2 ;
778B: A6 17 LDX $17 ;
778D: F0 23 BEQ $77B2 ;
778F: 29 0F AND #$0F
7791: 18 CLC
7792: 69 01 ADC #$01
7794: 08 PHP
7795: 0A ASL A
7796: A8 TAY
7797: B9 D4 56 LDA $56D4,Y
779A: 0A ASL A
779B: 85 0B STA $0B ;
779D: B9 D5 56 LDA $56D5,Y
77A0: 2A ROL A
77A1: 29 1F AND #$1F
77A3: 09 40 ORA #$40
77A5: 85 0C STA $0C ;
77A7: A9 00 LDA #$00
77A9: 85 08 STA $08 ;
77AB: 85 09 STA $09 ;
77AD: 20 D7 6A JSR $6AD7 ;
77B0: 28 PLP
77B1: 60 RTS
77B2: 4C CB 7B JMP $7BCB ;
77B5: 06 5F ASL rndValue ;
77B7: 26 60 ROL $60 ;
77B9: 10 02 BPL $77BD ;
77BB: E6 5F INC rndValue ;
77BD: A5 5F LDA rndValue ;
77BF: 2C D1 77 BIT $77D1 ;
77C2: F0 04 BEQ $77C8 ;
77C4: 49 01 EOR #$01
77C6: 85 5F STA rndValue ;
77C8: 05 60 ORA $60 ;
77CA: D0 02 BNE $77CE ;
77CC: E6 5F INC rndValue ;
77CE: A5 5F LDA rndValue ;
77D0: 60 RTS
77D1: 02
77D2: 18 CLC
77D3: 69 40 ADC #$40 ; A holds current ship direction
77D5: 10 08 BPL $77DF ; A holds current ship direction
77D7: 29 7F AND #$7F
77D9: 20 DF 77 JSR $77DF ;
77DC: 4C 08 77 JMP $7708 ;
77DF: C9 41 CMP #$41
77E1: 90 04 BCC $77E7 ;
77E3: 49 7F EOR #$7F
77E5: 69 00 ADC #$00
77E7: AA TAX
77E8: BD B9 57 LDA $57B9,X ; Vector ROM
77EB: 60 RTS
77EC: 00 BRK
77ED: 00 BRK
77EE: 00 BRK
77EF: 00 BRK
77F0: 00 BRK
77F1: 00 BRK
77F2: 00 BRK
77F3: 00 BRK
77F4: 00 BRK
77F5: 00 BRK
PrintPackedMsg:
77F6: AD 03 28 LDA SWLANGUAGE ; DIP Switches 1 & 2, Language
77F9: 29 03 AND #$03
77FB: 0A ASL A
77FC: AA TAX
77FD: A9 10 LDA #$10
77FF: 85 00 STA $00 ;
7801: BD 88 78 LDA $7888,X ; Address Of Message Offset Table
7804: 85 09 STA $09 ;
7806: BD 87 78 LDA $7887,X ;
7809: 85 08 STA $08 ;
780B: 71 08 ADC ($08),Y ; Add In The Offset To Get Starting
780D: 85 08 STA $08 ; Address Of Message
780F: 90 02 BCC $7813 ;
7811: E6 09 INC $09 ; Bump MSB (no 16 bit registers)
7813: 98 TYA
7814: 0A ASL A
7815: A8 TAY
7816: B9 71 78 LDA $7871,Y ;
7819: BE 72 78 LDX $7872,Y ;
781C: 20 03 7C JSR $7C03 ;
781F: A9 70 LDA #$70
7821: 20 DE 7C JSR $7CDE ;
7824: A0 00 LDY #$00
7826: A2 00 LDX #$00
7828: A1 08 LDA ($08,X) ;
782A: 85 0B STA $0B ;
782C: 4A LSR A
782D: 4A LSR A
782E: 20 4D 78 JSR $784D ;
7831: A1 08 LDA ($08,X) ;
7833: 2A ROL A
7834: 26 0B ROL $0B ;
7836: 2A ROL A
7837: A5 0B LDA $0B ;
7839: 2A ROL A
783A: 0A ASL A
783B: 20 53 78 JSR $7853 ;
783E: A1 08 LDA ($08,X) ;
7840: 85 0B STA $0B ;
7842: 20 4D 78 JSR $784D ;
7845: 46 0B LSR $0B ;
7847: 90 DF BCC $7828 ;
7849: 88 DEY
784A: 4C 39 7C JMP $7C39 ;
;
784D: E6 08 INC $08 ;
784F: D0 02 BNE $7853 ;
7851: E6 09 INC $09 ;
7853: 29 3E AND #$3E
7855: D0 04 BNE $785B ;
7857: 68 PLA
7858: 68 PLA
7859: D0 EE BNE $7849 ;
785B: C9 0A CMP #$0A
785D: 90 02 BCC $7861 ;
785F: 69 0D ADC #$0D
7861: AA TAX
7862: BD D2 56 LDA $56D2,X
7865: 91 02 STA ($02),Y ;
7867: C8 INY
7868: BD D3 56 LDA $56D3,X
786B: 91 02 STA ($02),Y ;
786D: C8 INY
786E: A2 00 LDX #$00
7870: 60 RTS
7871: 64
7872: B6 64 LDX ship_thrust_dH,Y ;
7874: B6 0C LDX $0C,Y ;
7876: AA TAX
7877: 0C
7878: A2 0C LDX #$0C
787A: 9A TXS
787B: 0C
787C: 92
787D: 64
787E: C6 64 DEC ship_thrust_dH ;
7880: 9D 50 39 STA $3950,X
7883: 50 39 BVC $78BE ;
7885: 50 39 BVC $78C0 ;
7887: 1E 57 ; Offset to packed-messages table in vector ROM ?
7889: 8F
788A: 78 SEI
788B: 46 79 LSR $79 ;
788D: F3
788E: 79 0B 15 ADC $150B,Y
7891: 1B
7892: 35 4D AND highScoresInitials+19,X;
7894: 65 7F ADC $7D+2 ;
7896: 8D 93 9F STA $9F93 ;
7899: AB
789A: 64
789B: D2
789C: 3B
789D: 2E C2 6C ROL $6CC2 ;
78A0: 5A
78A1: 4C 93 6F JMP $6F93 ;
78A4: BD 1A 4C LDA VRAMunusd+41A,X ;
78A7: 12
78A8: B0 40 BCS $78EA ;
78AA: 6B
78AB: 2C 0A 6C BIT $6C0A ;
78AE: 5A
78AF: 4C 93 6E JMP $6E93 ;
78B2: 0B
78B3: 6E C0 52 ROR $52C0 ;
78B6: 6C 92 B8 JMP ($B892) ;
78B9: 50 4D BVC $7908 ;
78BB: 82
78BC: F2
78BD: 58 CLI
78BE: 90 4C BCC $790C ;
78C0: 4D F0 4C EOR VRAMunusd+4F0 ;
78C3: 80
78C4: 33
78C5: 70 C2 BVS $7889 ;
78C7: 42
78C8: 5A
78C9: 4C 4C 82 JMP $824C ;
78CC: BB
78CD: 52
78CE: 0B
78CF: 58 CLI
78D0: B2
78D1: 42
78D2: 6C 9A C3 JMP ($C39A) ;
78D5: 4A LSR A
78D6: 82
78D7: 64
78D8: 0A ASL A
78D9: 5A
78DA: 90 00 BCC $78DC ;
78DC: F6 6C INC sndThump,X ;
78DE: 09 B2 ORA #$B2
78E0: 3B
78E1: 2E C1 4C ROL VRAMunusd+4C1 ;
78E4: 4C B6 2B JMP $2BB6 ;
78E7: 20 0D A6 JSR $A60D ;
78EA: C1 70 CMP (numCredits,X) ;
78EC: 48 PHA
78ED: 50 B6 BVC $78A5 ;
78EF: 52
78F0: 3B
78F1: D2
78F2: 90 00 BCC $78F4 ;
78F4: DA
78F5: 64
78F6: 90 4C BCC $7944 ;
78F8: C9 D8 CMP #$D8
78FA: BE 0A 32 LDX $320A,Y
78FD: 42
78FE: 9B
78FF: C2
7900: 67
7901: 68 PLA
7902: 4D AE A1 EOR $A1AE ;
7905: 4E 48 50 LSR $5048 ;
7908: B6 52 LDX ply1ScoreTens,Y ;
790A: 3B
790B: D2
790C: 90 00 BCC $790E ;
790E: BE 0A B6 LDX $B60A,Y
7911: 1E 94 D2 ASL $D294,X
7914: A2 92 LDX #$92
7916: 0A ASL A
7917: 2C CA 4E BIT VRAMunusd+6CA ;
791A: 7A
791B: 65 BD ADC $95+28 ;
791D: 1A
791E: 4C 12 92 JMP $9212 ;
7921: 13
7922: 18 CLC
7923: 62
7924: CA DEX
7925: 64
7926: F2
7927: 42
7928: 20 6E A3 JSR $A36E ;
792B: 52
792C: 82
792D: 40 RTI
792E: 18 CLC
792F: 62
7930: CA DEX
7931: 64
7932: F2
7933: 42
7934: 18 CLC
7935: 6E A3 52 ROR $52A3 ;
7938: 80
7939: 00 BRK
793A: 20 62 CA JSR $CA62 ;
793D: 64
793E: F2
793F: 64
7940: 08 PHP
7941: C2
7942: BD 1A 4C LDA VRAMunusd+41A,X ;
7945: 00 BRK
7946: 0B
7947: 15 19 ORA $19,X ;
7949: 31 41 AND (highScoresInitials+D),Y;
794B: 57
794C: 73
794D: 7F
794E: 89
794F: 95 A1 STA $95+C,X ;
7951: 8A TXA
7952: 5A
7953: 84 12 STY $12 ;
7955: CD 82 B9 CMP $B982 ;
7958: E6 B2 INC $95+1D ;
795A: 40 RTI
795B: 74
795C: F2
795D: 4D 83 D4 EOR $D483 ;
7960: F0 B2 BEQ $7914 ;
7962: 42
7963: B9 E6 B2 LDA $B2E6,Y
7966: 42
7967: 4D F0 0E EOR $0EF0 ;
796A: 64
796B: 0A ASL A
796C: 12
796D: B8 CLV
796E: 46 10 LSR $10 ;
7970: 62
7971: 4B
7972: 60 RTS
7973: 82
7974: 72
7975: B5 C0 LDA $95+2B,X ;
7977: BE A8 0A LDX $0AA8,Y
797A: 64
797B: C5 92 CMP $89+9 ;
797D: F0 74 BEQ $79F3 ;
797F: 9D C2 6C STA $6CC2,X ;
7982: 9A TXS
7983: C3
7984: 4A LSR A
7985: 82
7986: 6F
7987: A4 F2 LDY $95+5D ;
7989: BD D2 F0 LDA $F0D2,X
798C: 6C 9E 0A JMP ($0A9E) ;
798F: C2
7990: 42
7991: A4 F2 LDY $95+5D ;
7993: B0 74 BCS $7A09 ;
7995: 9D C2 6C STA $6CC2,X ;
7998: 9A TXS
7999: C3
799A: 4A LSR A
799B: 82
799C: 6F
799D: A4 F2 LDY $95+5D ;
799F: BD D2 F0 LDA $F0D2,X
79A2: 58 CLI
79A3: ED 12 B5 SBC $B512 ;
79A6: E8 INX
79A7: 29 D2 AND #$D2
79A9: 0D 72 2C ORA $2C72 ;
79AC: 90 0C BCC $79BA ;
79AE: 12
79AF: C6 2C DEC highScores+F ;
79B1: 48 PHA
79B2: 4E 9D AC LSR $AC9D ;
79B5: 49 F0 EOR #$F0
79B7: 48 PHA
79B8: 00 BRK
79B9: 2D 28 CF AND $CF28 ;
79BC: 52
79BD: B0 6E BCS $7A2D ;
79BF: CD 82 BE CMP $BE82 ;
79C2: 0A ASL A
79C3: B6 00 LDX $00,Y ;
79C5: 53
79C6: 64
79C7: 0A ASL A
79C8: 12
79C9: 0D 0A B6 ORA $B60A ;
79CC: 1A
79CD: 48 PHA
79CE: 00 BRK
79CF: 18 CLC
79D0: 68 PLA
79D1: 6A ROR A
79D2: 4E 48 48 LSR VRAMunusd+48 ;
79D5: 0B
79D6: A6 CA LDX $95+35 ;
79D8: 72
79D9: B5 C0 LDA $95+2B,X ;
79DB: 18 CLC
79DC: 68 PLA
79DD: 6A ROR A
79DE: 4E 48 46 LSR VRAM+648 ;
79E1: 0B
79E2: A6 CA LDX $95+35 ;
79E4: 72
79E5: B0 00 BCS $79E7 ;
79E7: 20 68 6A JSR $6A68 ;
79EA: 4E 4D C2 LSR $C24D ;
79ED: 18 CLC
79EE: 5C
79EF: 9E
79F0: 52
79F1: CD 80 0B CMP $0B80 ;
79F4: 11 17 ORA ($17),Y ;
79F6: 31 45 AND (highScoresInitials+11),Y;
79F8: 5F
79F9: 6B
79FA: 73
79FB: 7D 89 93 ADC $9389,X
79FE: B2
79FF: 4E 9D 90 LSR $909D ;
7A02: B8 CLV
7A03: 00 BRK
7A04: 76 56 ROR numShipsPerGame,X ;
7A06: 2A ROL A
7A07: 26 B0 ROL $95+1B ;
7A09: 40 RTI
7A0A: BE 42 A6 LDX $A642,Y
7A0D: 64
7A0E: C1 5C CMP (fastTimer,X) ;
7A10: 48 PHA
7A11: 52
7A12: BE 0A 0A LDX $0A0A,Y
7A15: 64
7A16: C5 92 CMP $89+9 ;
7A18: 0C
7A19: 26 B8 ROL $95+23 ;
7A1B: 50 6A BVC $7A87 ;
7A1D: 7C
7A1E: 0C
7A1F: 52
7A20: 74
7A21: EC 4D C0 CPX $C04D ;
7A24: A4 EC LDY $95+57 ;
7A26: 0A ASL A
7A27: 8A TXA
7A28: D4
7A29: EC 0A 64 CPX $640A ;
7A2C: C5 92 CMP $89+9 ;
7A2E: 0D F2 B8 ORA $B8F2 ;
7A31: 5A
7A32: 93
7A33: 4E 69 60 LSR $6069 ;
7A36: 4D C0 9D EOR $9DC0 ;
7A39: 2C 6C 4A BIT VRAMunusd+26C ;
7A3C: 0D A6 C1 ORA $C1A6 ;
7A3F: 70 48 BVS $7A89 ;
7A41: 68 PLA
7A42: 2D 8A 0D AND $0D8A ;
7A45: D2
7A46: 82
7A47: 4E 3B 66 LSR $663B ;
7A4A: 91 6C STA (sndThump),Y ;
7A4C: 0C
7A4D: 0A ASL A
7A4E: 0C
7A4F: 12
7A50: C5 8B CMP $89+2 ;
7A52: 9D 2C 6C STA $6C2C,X ;
7A55: 4A LSR A
7A56: 0B
7A57: 3A
7A58: A2 6C LDX #$6C
7A5A: BD 0A 3A LDA $3A0A,X
7A5D: 40 RTI
7A5E: A6 60 LDX $60 ;
7A60: B9 6C 0D LDA $0D6C,Y
7A63: F0 2D BEQ $7A92 ;
7A65: B1 76 LDA ($76),Y ;
7A67: 52
7A68: 5C
7A69: C2
7A6A: C2
7A6B: 6C 8B 64 JMP ($648B) ;
7A6E: 2A ROL A
7A6F: 27
7A70: 18 CLC
7A71: 54
7A72: 69 D8 ADC #$D8
7A74: 28 PLP
7A75: 48 PHA
7A76: 0B
7A77: B2
7A78: 4A LSR A
7A79: E6 B8 INC $95+23 ;
7A7B: 00 BRK
7A7C: 18 CLC
7A7D: 54
7A7E: 69 D8 ADC #$D8
7A80: 28 PLP
7A81: 46 0B LSR $0B ;
7A83: B2
7A84: 4A LSR A
7A85: E7
7A86: 20 54 69 JSR $6954 ;
7A89: D8 CLD
7A8A: 2D C2 18 AND $18C2 ;
7A8D: 5C
7A8E: CA DEX
7A8F: 56 98 LSR $95+3,X ;
7A91: 00 BRK
7A92: 52
7A93: A2 02 LDX #$02
7A95: BD 00 24 LDA SWLCOIN,X ; Coin Switch
7A98: 0A ASL A ; Shift High Bit To Carry
7A99: B5 7A LDA coin1InpLen,X ;
7A9B: 29 1F AND #$1F ; 00011111
7A9D: 90 37 BCC $7AD6 ; No Coin For This Slot, Branch
7A9F: F0 10 BEQ $7AB1 ;
7AA1: C9 1B CMP #$1B
7AA3: B0 0A BCS $7AAF ;
7AA5: A8 TAY
7AA6: A5 5E LDA $5E ;
7AA8: 29 07 AND #$07
7AAA: C9 07 CMP #$07
7AAC: 98 TYA
7AAD: 90 02 BCC $7AB1 ;
7AAF: E9 01 SBC #$01
7AB1: 95 7A STA coin1InpLen,X ;
7AB3: AD 06 20 LDA SWSLAM ; Slam Switch
7AB6: 29 80 AND #$80
7AB8: F0 04 BEQ $7ABE ; Valid Coin, Branch
7ABA: A9 F0 LDA #$F0 ; Flag Ill Gotten Gain
7ABC: 85 72 STA slamFlag ; Into Slam Switch Flag
7ABE: A5 72 LDA slamFlag ; Honest Coin?
7AC0: F0 08 BEQ $7ACA ; Yes, Branch
7AC2: C6 72 DEC slamFlag ;
7AC4: A9 00 LDA #$00
7AC6: 95 7A STA coin1InpLen,X ;
7AC8: 95 77 STA $77,X ;
7ACA: 18 CLC
7ACB: B5 77 LDA $77,X ;
7ACD: F0 23 BEQ $7AF2 ;
7ACF: D6 77 DEC $77,X ;
7AD1: D0 1F BNE $7AF2 ;
7AD3: 38 SEC
7AD4: B0 1C BCS $7AF2 ;
7AD6: C9 1B CMP #$1B
7AD8: B0 09 BCS $7AE3 ;
7ADA: B5 7A LDA coin1InpLen,X ;
7ADC: 69 20 ADC #$20
7ADE: 90 D1 BCC $7AB1 ;
7AE0: F0 01 BEQ $7AE3 ;
7AE2: 18 CLC
7AE3: A9 1F LDA #$1F
7AE5: B0 CA BCS $7AB1 ;
7AE7: 95 7A STA coin1InpLen,X ;
7AE9: B5 77 LDA $77,X ;
7AEB: F0 01 BEQ $7AEE ;
7AED: 38 SEC
7AEE: A9 78 LDA #$78
7AF0: 95 77 STA $77,X ;
7AF2: 90 23 BCC $7B17 ;
7AF4: A9 00 LDA #$00
7AF6: E0 01 CPX #$01
7AF8: 90 16 BCC $7B10 ;
7AFA: F0 0C BEQ $7B08 ;
7AFC: A5 71 LDA holdDIP ; DIP Switch Bitmap
7AFE: 29 0C AND #$0C ; Mask Off Switches 5 & 6, Right Coin Slot Multiplier
7B00: 4A LSR A
7B01: 4A LSR A
7B02: F0 0C BEQ $7B10 ; x1, Branch
7B04: 69 02 ADC #$02 ; 2 + Set Bits From Settings = Total Coins After Multiplier
7B06: D0 08 BNE $7B10 ; Will Always Branch
7B08: A5 71 LDA holdDIP ;
7B0A: 29 10 AND #$10
7B0C: F0 02 BEQ $7B10 ;
7B0E: A9 01 LDA #$01
7B10: 38 SEC ; Set Carry, This Will Add 1 To The Total
7B11: 65 73 ADC coinsToCredits ;
7B13: 85 73 STA coinsToCredits ;
7B15: F6 74 INC $74,X ;
7B17: CA DEX
7B18: 30 03 BMI $7B1D ;
7B1A: 4C 95 7A JMP $7A95 ;
7B1D: A5 71 LDA holdDIP ; DIP Switch Settings
7B1F: 29 03 AND #$03 ; Mask Off Switches 7 & 8, Coins Per Play
7B21: A8 TAY
7B22: F0 12 BEQ $7B36 ; Free Play, Branch
7B24: 4A LSR A
7B25: 69 00 ADC #$00
7B27: 49 FF EOR #$FF
7B29: 38 SEC
7B2A: 65 73 ADC coinsToCredits ;
7B2C: 90 0A BCC $7B38 ;
7B2E: C0 02 CPY #$02
7B30: B0 02 BCS $7B34 ;
7B32: E6 70 INC numCredits ; Add Credit
7B34: E6 70 INC numCredits ; Add Credit
7B36: 85 73 STA coinsToCredits ;
7B38: A5 5E LDA $5E ;
7B3A: 4A LSR A
7B3B: B0 27 BCS $7B64 ;
7B3D: A0 00 LDY #$00
7B3F: A2 02 LDX #$02
7B41: B5 74 LDA $74,X ;
7B43: F0 09 BEQ $7B4E ;
7B45: C9 10 CMP #$10
7B47: 90 05 BCC $7B4E ;
7B49: 69 EF ADC #$EF
7B4B: C8 INY
7B4C: 95 74 STA $74,X ;
7B4E: CA DEX
7B4F: 10 F0 BPL $7B41 ;
7B51: 98 TYA
7B52: D0 10 BNE $7B64 ;
7B54: A2 02 LDX #$02
7B56: B5 74 LDA $74,X ;
7B58: F0 07 BEQ $7B61 ;
7B5A: 18 CLC
7B5B: 69 EF ADC #$EF
7B5D: 95 74 STA $74,X ;
7B5F: 30 03 BMI $7B64 ;
7B61: CA DEX
7B62: 10 F2 BPL $7B56 ;
7B64: 60 RTS
NMI
NMI:
; 250Hz interrupt
7B65: 48 PHA ; Save A (flags and PC already saved)
7B66: 98 TYA ; Save ...
7B67: 48 PHA ; ... Y register
7B68: 8A TXA ; Save ...
7B69: 48 PHA ; ... X register
7B6A: D8 CLD ; Clear decimal mode flag
7B6B: AD FF 01 LDA stack+FF ; Will have something if stack underflowed
7B6E: 0D D0 01 ORA stack+D0 ; Checking if we ran out of stack space?
7B71: D0 FE BNE $7B71 ; If the stack got out of bounds let the watchdog reset us
7B73: E6 5E INC $5E ;
7B75: A5 5E LDA $5E ;
7B77: 29 03 AND #$03
7B79: D0 08 BNE $7B83 ;
7B7B: E6 5B INC ??timeout?? ;
7B7D: A5 5B LDA ??timeout?? ;
7B7F: C9 04 CMP #$04
7B81: B0 FE BCS $7B81 ; Endless Loop! Watchdog Will Time Out
7B83: 20 93 7A JSR $7A93 ;
7B86: A5 6F LDA holdLampValues ;
7B88: 29 C7 AND #$C7
7B8A: 24 74 BIT $74 ;
7B8C: 10 02 BPL $7B90 ;
7B8E: 09 08 ORA #$08
7B90: 24 75 BIT $75 ;
7B92: 10 02 BPL $7B96 ;
7B94: 09 10 ORA #$10
7B96: 24 76 BIT $76 ;
7B98: 10 02 BPL $7B9C ;
7B9A: 09 20 ORA #$20
7B9C: 85 6F STA holdLampValues ;
7B9E: 8D 00 32 STA LMPSCNS ;
7BA1: A5 72 LDA slamFlag ; Slam Switch Flag
7BA3: F0 04 BEQ $7BA9 ; Branch If Not Set
7BA5: A9 80 LDA #$80 ; Gonna Make Noise To Let 'Em Know They've Been Caught!
7BA7: D0 0E BNE $7BB7 ; Will Always Branch
7BA9: A5 68 LDA sndTimeBonusShip ; Bonus Ship Sound Timer
7BAB: F0 0A BEQ $7BB7 ;
7BAD: A5 5C LDA fastTimer ; Fast Timer
7BAF: 6A ROR A
7BB0: 90 02 BCC $7BB4 ;
7BB2: C6 68 DEC sndTimeBonusShip ;
7BB4: 6A ROR A
7BB5: 6A ROR A
7BB6: 6A ROR A
7BB7: 8D 05 3C STA SNDBONUS ; Life Sound
7BBA: 68 PLA ; Restore ...
7BBB: AA TAX ; ... X register
7BBC: 68 PLA ; Restore ...
7BBD: A8 TAY ; ... Y register
7BBE: 68 PLA ; Restore A (PC and flags automatically)
7BBF: 40 RTI ; Return from interrupt
; Something to do here with writing to the VRAM through a pointer
7BC0: A9 B0 LDA #$B0
7BC2: A0 00 LDY #$00
7BC4: 91 02 STA ($02),Y ;
7BC6: C8 INY
7BC7: 91 02 STA ($02),Y ;
7BC9: D0 6E BNE $7C39 ;
7BCB: 90 04 BCC $7BD1 ;
7BCD: 29 0F AND #$0F
7BCF: F0 05 BEQ $7BD6 ;
7BD1: 29 0F AND #$0F
7BD3: 18 CLC
7BD4: 69 01 ADC #$01
7BD6: 08 PHP
7BD7: 0A ASL A
7BD8: A0 00 LDY #$00
7BDA: AA TAX
7BDB: BD D4 56 LDA $56D4,X
7BDE: 91 02 STA ($02),Y ;
7BE0: BD D5 56 LDA $56D5,X
7BE3: C8 INY
7BE4: 91 02 STA ($02),Y ;
7BE6: 20 39 7C JSR $7C39 ;
7BE9: 28 PLP
7BEA: 60 RTS
7BEB: 4A LSR A
7BEC: 29 0F AND #$0F
7BEE: 09 E0 ORA #$E0
7BF0: A0 01 LDY #$01
7BF2: 91 02 STA ($02),Y ;
7BF4: 88 DEY
7BF5: 8A TXA
7BF6: 6A ROR A
7BF7: 91 02 STA ($02),Y ;
7BF9: C8 INY
7BFA: D0 3D BNE $7C39 ;
7BFC: 4A LSR A
7BFD: 29 0F AND #$0F
7BFF: 09 C0 ORA #$C0
7C01: D0 ED BNE $7BF0 ;
7C03: A0 00 LDY #$00
7C05: 84 05 STY $05 ;
7C07: 84 07 STY $07 ;
7C09: 0A ASL A
7C0A: 26 05 ROL $05 ;
7C0C: 0A ASL A
7C0D: 26 05 ROL $05 ;
7C0F: 85 04 STA $04 ;
7C11: 8A TXA
7C12: 0A ASL A
7C13: 26 07 ROL $07 ;
7C15: 0A ASL A
7C16: 26 07 ROL $07 ;
7C18: 85 06 STA $06 ;
7C1A: A2 04 LDX #$04
7C1C: B5 02 LDA $02,X ;
7C1E: A0 00 LDY #$00
7C20: 91 02 STA ($02),Y ;
7C22: B5 03 LDA $03,X ;
7C24: 29 0F AND #$0F
7C26: 09 A0 ORA #$A0
7C28: C8 INY
7C29: 91 02 STA ($02),Y ;
7C2B: B5 00 LDA $00,X ;
7C2D: C8 INY
7C2E: 91 02 STA ($02),Y ;
7C30: B5 01 LDA $01,X ;
7C32: 29 0F AND #$0F
7C34: 05 00 ORA $00 ;
7C36: C8 INY
7C37: 91 02 STA ($02),Y ;
7C39: 98 TYA
7C3A: 38 SEC
7C3B: 65 02 ADC $02 ;
7C3D: 85 02 STA $02 ;
7C3F: 90 02 BCC $7C43 ;
7C41: E6 03 INC $03 ;
7C43: 60 RTS
7C44: A9 D0 LDA #$D0
7C46: 4C C2 7B JMP $7BC2 ;
7C49: A5 05 LDA $05 ;
7C4B: C9 80 CMP #$80
7C4D: 90 11 BCC $7C60 ;
7C4F: 49 FF EOR #$FF
7C51: 85 05 STA $05 ;
7C53: A5 04 LDA $04 ;
7C55: 49 FF EOR #$FF
7C57: 69 00 ADC #$00
7C59: 85 04 STA $04 ;
7C5B: 90 02 BCC $7C5F ;
7C5D: E6 05 INC $05 ;
7C5F: 38 SEC
7C60: 26 08 ROL $08 ;
7C62: A5 07 LDA $07 ;
7C64: C9 80 CMP #$80
7C66: 90 11 BCC $7C79 ;
7C68: 49 FF EOR #$FF
7C6A: 85 07 STA $07 ;
7C6C: A5 06 LDA $06 ;
7C6E: 49 FF EOR #$FF
7C70: 69 00 ADC #$00
7C72: 85 06 STA $06 ;
7C74: 90 02 BCC $7C78 ;
7C76: E6 07 INC $07 ;
7C78: 38 SEC
7C79: 26 08 ROL $08 ;
7C7B: A5 05 LDA $05 ;
7C7D: 05 07 ORA $07 ;
7C7F: F0 0A BEQ $7C8B ;
7C81: A2 00 LDX #$00
7C83: C9 02 CMP #$02
7C85: B0 24 BCS $7CAB ;
7C87: A0 01 LDY #$01
7C89: D0 10 BNE $7C9B ;
7C8B: A0 02 LDY #$02
7C8D: A2 09 LDX #$09
7C8F: A5 04 LDA $04 ;
7C91: 05 06 ORA $06 ;
7C93: F0 16 BEQ $7CAB ;
7C95: 30 04 BMI $7C9B ;
7C97: C8 INY
7C98: 0A ASL A
7C99: 10 FC BPL $7C97 ;
7C9B: 98 TYA
7C9C: AA TAX
7C9D: A5 05 LDA $05 ;
7C9F: 06 04 ASL $04 ;
7CA1: 2A ROL A
7CA2: 06 06 ASL $06 ;
7CA4: 26 07 ROL $07 ;
7CA6: 88 DEY
7CA7: D0 F6 BNE $7C9F ;
7CA9: 85 05 STA $05 ;
7CAB: 8A TXA
7CAC: 38 SEC
7CAD: E9 0A SBC #$0A
7CAF: 49 FF EOR #$FF
7CB1: 0A ASL A
7CB2: 66 08 ROR $08 ;
7CB4: 2A ROL A
7CB5: 66 08 ROR $08 ;
7CB7: 2A ROL A
7CB8: 0A ASL A
7CB9: 85 08 STA $08 ;
7CBB: A0 00 LDY #$00
7CBD: A5 06 LDA $06 ;
7CBF: 91 02 STA ($02),Y ;
7CC1: A5 08 LDA $08 ;
7CC3: 29 F4 AND #$F4
7CC5: 05 07 ORA $07 ;
7CC7: C8 INY
7CC8: 91 02 STA ($02),Y ;
7CCA: A5 04 LDA $04 ;
7CCC: C8 INY
7CCD: 91 02 STA ($02),Y ;
7CCF: A5 08 LDA $08 ;
7CD1: 29 02 AND #$02
7CD3: 0A ASL A
7CD4: 05 01 ORA $01 ;
7CD6: 05 05 ORA $05 ;
7CD8: C8 INY
7CD9: 91 02 STA ($02),Y ;
7CDB: 4C 39 7C JMP $7C39 ;
7CDE: A2 00 LDX #$00
7CE0: A0 01 LDY #$01
7CE2: 91 02 STA ($02),Y ;
7CE4: 88 DEY
7CE5: 98 TYA
7CE6: 91 02 STA ($02),Y ;
7CE8: C8 INY
7CE9: C8 INY
7CEA: 91 02 STA ($02),Y ;
7CEC: C8 INY
7CED: 8A TXA
7CEE: 91 02 STA ($02),Y ;
7CF0: 4C 39 7C JMP $7C39 ;
RESET
RESET:
; Set stack and clear decimal-mode
7CF3: A2 FE LDX #$FE ; Set stack to ...
7CF5: 9A TXS ; ... 1FE (leave 1FF as an underflow indicator)
7CF6: D8 CLD ; Clear decimal mode
7CF7: A9 00 LDA #$00 ; Clearing RAM
7CF9: AA TAX ; Offset to X
7CFA: CA DEX ; Count down from 256
7CFB: 9D 00 03 STA otherPlayerRAM,X ; @@ Clear bank 2 (0300-03FF)
7CFE: 9D 00 02 STA statusAsteroids,X ; @@ Clear bank 1 (0200-02FF)
7D01: 9D 00 01 STA stack,X ; @@ Clear RAM (0100-01FF)
7D04: 95 00 STA $00,X ; @@ Clear RAM (0000-00FF)
7D06: D0 F2 BNE $7CFA ; Do all 256 in each area
7D08: AC 07 20 LDY SWTEST ; Read IN1
7D0B: 30 43 BMI ServiceMode ; Upper bit set ... go handle service mode
7D0D: E8 INX ; E201 to ...
7D0E: 8E 00 40 STX VRAM ; ...
7D11: A9 E2 LDA #$E2 ; ... VRAM
7D13: 8D 01 40 STA VRAM+1 ; B0xx ..
7D16: A9 B0 LDA #$B0 ; ... to VRAM
7D18: 8D 03 40 STA VRAM+3 ;
7D1B: 85 32 STA ply1HighPlacement ;
7D1D: 85 33 STA ply2HighPlacement ;
7D1F: A9 03 LDA #$03
7D21: 85 6F STA holdLampValues ;
7D23: 8D 00 32 STA LMPSCNS ; Turn on player 1 & 2 start lamps
7D26: 2D 00 28 AND SWCOINAGE ; DIP switches 8 & 7: # Of Coins For Play
7D29: 85 71 STA holdDIP ;
7D2B: AD 01 28 LDA SWCNRMULT ; DIP switches 6 & 5: Coin Multiplier, Right Slot
7D2E: 29 03 AND #$03
7D30: 0A ASL A
7D31: 0A ASL A
7D32: 05 71 ORA holdDIP ;
7D34: 85 71 STA holdDIP ;
7D36: AD 02 28 LDA SWCNCMULT ; DIP switches 4 & 3: 3 - # Of Starting Ships
7D39: 29 02 AND #$02 ; 4 - Coin Multiplier Center/Left Slot
7D3B: 0A ASL A
7D3C: 0A ASL A
7D3D: 0A ASL A
7D3E: 05 71 ORA holdDIP ;
7D40: 85 71 STA holdDIP ;
7D42: 4C 03 68 JMP $6803 ;
7D45: A0 00 LDY #$00
7D47: 91 02 STA ($02),Y ;
7D49: C8 INY
7D4A: 8A TXA
7D4B: 91 02 STA ($02),Y ;
7D4D: 4C 39 7C JMP $7C39 ;
ServiceMode:
; Service mode draws the diamond pattern on the screen, some diagnostic numbers, and some
; lines with increasing intensity.
7D50: 9D 00 40 STA VRAM,X ; Clear ...
7D53: 9D 00 41 STA VRAM+100,X ; ... all ...
7D56: 9D 00 42 STA VRAM+200,X ; ... of ...
7D59: 9D 00 43 STA VRAM+300,X ; ...
7D5C: 9D 00 44 STA VRAM+400,X ; ...
7D5F: 9D 00 45 STA VRAM+500,X ; ...
7D62: 9D 00 46 STA VRAM+600,X ; ...
7D65: 9D 00 47 STA VRAM+700,X ; ...
7D68: E8 INX ; ...
7D69: D0 E5 BNE ServiceMode ; ... vector RAM
7D6B: 8D 00 34 STA WATCHDOG ; Ping the watchdog
7D6E: A2 00 LDX #$00
7D70: B5 00 LDA $00,X ;
7D72: D0 47 BNE $7DBB ;
7D74: A9 11 LDA #$11
7D76: 95 00 STA $00,X ;
7D78: A8 TAY
7D79: 55 00 EOR $00,X ;
7D7B: D0 3E BNE $7DBB ;
7D7D: 98 TYA
7D7E: 0A ASL A
7D7F: 90 F5 BCC $7D76 ;
7D81: E8 INX
7D82: D0 EC BNE $7D70 ;
7D84: 8D 00 34 STA WATCHDOG ;
7D87: 8A TXA
7D88: 85 00 STA $00 ;
7D8A: 2A ROL A
7D8B: 85 01 STA $01 ;
7D8D: A0 00 LDY #$00
7D8F: A2 11 LDX #$11
7D91: B1 00 LDA ($00),Y ;
7D93: D0 2A BNE $7DBF ;
7D95: 8A TXA
7D96: 91 00 STA ($00),Y ;
7D98: 51 00 EOR ($00),Y ;
7D9A: D0 23 BNE $7DBF ;
7D9C: 8A TXA
7D9D: 0A ASL A
7D9E: AA TAX
7D9F: 90 F4 BCC $7D95 ;
7DA1: C8 INY
7DA2: D0 EB BNE $7D8F ;
7DA4: 8D 00 34 STA WATCHDOG ;
7DA7: E6 01 INC $01 ;
7DA9: A6 01 LDX $01 ;
7DAB: E0 04 CPX #$04
7DAD: 90 E0 BCC $7D8F ;
7DAF: A9 40 LDA #$40
7DB1: E0 40 CPX #$40
7DB3: 90 D6 BCC $7D8B ;
7DB5: E0 48 CPX #$48
7DB7: 90 D6 BCC $7D8F ;
7DB9: B0 69 BCS $7E24 ;
7DBB: A0 00 LDY #$00
7DBD: F0 0E BEQ $7DCD ;
7DBF: A0 00 LDY #$00
7DC1: A6 01 LDX $01 ;
7DC3: E0 04 CPX #$04
7DC5: 90 06 BCC $7DCD ;
7DC7: C8 INY
7DC8: E0 44 CPX #$44
7DCA: 90 01 BCC $7DCD ;
7DCC: C8 INY
7DCD: C9 10 CMP #$10
7DCF: 2A ROL A
7DD0: 29 1F AND #$1F
7DD2: C9 02 CMP #$02
7DD4: 2A ROL A
7DD5: 29 03 AND #$03
7DD7: 88 DEY
7DD8: 30 04 BMI $7DDE ;
7DDA: 0A ASL A
7DDB: 0A ASL A
7DDC: 90 F9 BCC $7DD7 ;
7DDE: 4A LSR A
7DDF: A2 14 LDX #$14
7DE1: 90 02 BCC $7DE5 ;
7DE3: A2 1D LDX #$1D
7DE5: 8E 00 3A STX SNDTHUMP ;
7DE8: A2 00 LDX #$00
7DEA: A0 08 LDY #$08
7DEC: 2C 01 20 BIT CLCK3KHZ ;
7DEF: 10 FB BPL $7DEC ;
7DF1: 2C 01 20 BIT CLCK3KHZ ;
7DF4: 30 FB BMI $7DF1 ;
7DF6: CA DEX
7DF7: 8D 00 34 STA WATCHDOG ;
7DFA: D0 F0 BNE $7DEC ;
7DFC: 88 DEY
7DFD: D0 ED BNE $7DEC ;
7DFF: 8E 00 3A STX SNDTHUMP ;
7E02: A0 08 LDY #$08
7E04: 2C 01 20 BIT CLCK3KHZ ;
7E07: 10 FB BPL $7E04 ;
7E09: 2C 01 20 BIT CLCK3KHZ ;
7E0C: 30 FB BMI $7E09 ;
7E0E: CA DEX
7E0F: 8D 00 34 STA WATCHDOG ;
7E12: D0 F0 BNE $7E04 ;
7E14: 88 DEY
7E15: D0 ED BNE $7E04 ;
7E17: AA TAX
7E18: D0 C4 BNE $7DDE ;
7E1A: 8D 00 34 STA WATCHDOG ;
7E1D: AD 07 20 LDA SWTEST ;
7E20: 30 F8 BMI $7E1A ;
7E22: 10 FE BPL $7E22 ;
7E24: A9 00 LDA #$00
7E26: A8 TAY
7E27: AA TAX
7E28: 85 08 STA $08 ;
7E2A: A9 50 LDA #$50
7E2C: 85 09 STA $09 ;
7E2E: A9 04 LDA #$04
7E30: 85 0B STA $0B ;
7E32: A9 FF LDA #$FF
7E34: 51 08 EOR ($08),Y ;
7E36: C8 INY
7E37: D0 FB BNE $7E34 ;
7E39: E6 09 INC $09 ;
7E3B: C6 0B DEC $0B ;
7E3D: D0 F5 BNE $7E34 ;
7E3F: 95 0D STA $0D,X ;
7E41: E8 INX
7E42: 8D 00 34 STA WATCHDOG ;
7E45: A5 09 LDA $09 ;
7E47: C9 58 CMP #$58
7E49: 90 E1 BCC $7E2C ;
7E4B: D0 02 BNE $7E4F ;
7E4D: A9 68 LDA #$68
7E4F: C9 80 CMP #$80
7E51: 90 D9 BCC $7E2C ;
7E53: 8D 00 03 STA otherPlayerRAM ;
7E56: A2 04 LDX #$04
7E58: 8E 00 32 STX LMPSCNS ;
7E5B: 86 15 STX $15 ;
7E5D: A2 00 LDX #$00
7E5F: CD 00 02 CMP statusAsteroids ;
7E62: F0 01 BEQ $7E65 ;
7E64: E8 INX
7E65: AD 00 03 LDA otherPlayerRAM ;
7E68: C9 88 CMP #$88
7E6A: F0 01 BEQ $7E6D ;
7E6C: E8 INX
7E6D: 86 16 STX $16 ;
7E6F: A9 10 LDA #$10
7E71: 85 00 STA $00 ;
7E73: A2 24 LDX #$24
7E75: AD 01 20 LDA CLCK3KHZ ;
7E78: 10 FB BPL $7E75 ;
7E7A: AD 01 20 LDA CLCK3KHZ ;
7E7D: 30 FB BMI $7E7A ;
7E7F: CA DEX
7E80: 10 F3 BPL $7E75 ;
7E82: 2C 02 20 BIT HALT ;
7E85: 30 FB BMI $7E82 ;
7E87: 8D 00 34 STA WATCHDOG ;
7E8A: A9 00 LDA #$00
7E8C: 85 02 STA $02 ;
7E8E: A9 40 LDA #$40
7E90: 85 03 STA $03 ;
7E92: AD 05 20 LDA SWDIAGST ;
7E95: 10 5B BPL $7EF2 ;
7E97: A6 15 LDX $15 ;
7E99: AD 03 20 LDA SWHYPER ;
7E9C: 10 0A BPL $7EA8 ;
7E9E: 4D 09 00 EOR $09 ;
7EA1: 10 05 BPL $7EA8 ;
7EA3: CA DEX
7EA4: F0 02 BEQ $7EA8 ;
7EA6: 86 15 STX $15 ;
7EA8: BC BB 7E LDY $7EBB,X ;
7EAB: A9 B0 LDA #$B0
7EAD: 91 02 STA ($02),Y ;
7EAF: 88 DEY
7EB0: 88 DEY
7EB1: B9 C0 7E LDA $7EC0,Y ;
7EB4: 91 02 STA ($02),Y ;
7EB6: 88 DEY
7EB7: 10 F8 BPL $7EB1 ;
7EB9: 4C 9D 7F JMP $7F9D ;
7EBC: 33
7EBD: 1D 17 0D ORA $0D17,X
7EC0: 80
7EC1: A0 00 LDY #$00
7EC3: 00 BRK
7EC4: 00 BRK
7EC5: 70 00 BVS $7EC7 ;
7EC7: 00 BRK
7EC8: FF
7EC9: 92
7ECA: FF
7ECB: 73
7ECC: D0 A1 BNE $7E6F ;
7ECE: 30 02 BMI $7ED2 ;
7ED0: 00 BRK
7ED1: 70 00 BVS $7ED3 ;
7ED3: 00 BRK
7ED4: 7F
7ED5: FB
7ED6: 0D E0 00 ORA $95+4B ;
7ED9: B0 7E BCS $7F59 ;
7EDB: FA
7EDC: 11 C0 ORA ($95+2B),Y ;
7EDE: 78 SEI
7EDF: FE 00 B0 INC $B000,X
7EE2: 13
7EE3: C0 00 CPY #$00
7EE5: D0 15 BNE $7EFC ;
7EE7: C0 00 CPY #$00
7EE9: D0 17 BNE $7F02 ;
7EEB: C0 00 CPY #$00
7EED: D0 7A BNE $7F69 ;
7EEF: F8 SED
7EF0: 00 BRK
7EF1: D0 A9 BNE $7E9C ;
7EF3: 50 A2 BVC $7E97 ;
7EF5: 00 BRK
7EF6: 20 FC 7B JSR $7BFC ;
7EF9: A9 69 LDA #$69
7EFB: A2 93 LDX #$93
7EFD: 20 03 7C JSR $7C03 ;
7F00: A9 30 LDA #$30
7F02: 20 DE 7C JSR $7CDE ;
7F05: A2 03 LDX #$03
7F07: BD 00 28 LDA SWCOINAGE,X ;
7F0A: 29 01 AND #$01
7F0C: 86 0B STX $0B ;
7F0E: 20 D1 7B JSR $7BD1 ;
7F11: A6 0B LDX $0B ;
7F13: BD 00 28 LDA SWCOINAGE,X ;
7F16: 29 02 AND #$02
7F18: 4A LSR A
7F19: 20 D1 7B JSR $7BD1 ;
7F1C: A6 0B LDX $0B ;
7F1E: CA DEX
7F1F: 10 E6 BPL $7F07 ;
7F21: A9 7A LDA #$7A
7F23: A2 9D LDX #$9D
7F25: 20 03 7C JSR $7C03 ;
7F28: A9 10 LDA #$10
7F2A: 20 DE 7C JSR $7CDE ;
7F2D: AD 02 28 LDA SWCNCMULT ;
7F30: 29 02 AND #$02
7F32: 4A LSR A
7F33: 69 01 ADC #$01
7F35: 20 D1 7B JSR $7BD1 ;
7F38: AD 01 28 LDA SWCNRMULT ;
7F3B: 29 03 AND #$03
7F3D: AA TAX
7F3E: BD F5 7F LDA $7FF5,X ;
7F41: 20 D1 7B JSR $7BD1 ;
7F44: A5 16 LDA $16 ;
7F46: F0 07 BEQ $7F4F ;
7F48: A2 88 LDX #$88
7F4A: A9 50 LDA #$50
7F4C: 20 FC 7B JSR $7BFC ;
7F4F: A2 96 LDX #$96
7F51: 8E 0C 00 STX $0C ;
7F54: A2 07 LDX #$07
7F56: B5 0D LDA $0D,X ;
7F58: F0 37 BEQ $7F91 ;
7F5A: 48 PHA
7F5B: 8E 0B 00 STX $0B ;
7F5E: AE 0C 00 LDX $0C ;
7F61: 8A TXA
7F62: 38 SEC
7F63: E9 08 SBC #$08
7F65: 8D 0C 00 STA $0C ;
7F68: A9 20 LDA #$20
7F6A: 20 03 7C JSR $7C03 ;
7F6D: A9 70 LDA #$70
7F6F: 20 DE 7C JSR $7CDE ;
7F72: AD 0B 00 LDA $0B ;
7F75: 20 D1 7B JSR $7BD1 ;
7F78: AD D4 56 LDA $56D4 ;
7F7B: AE D5 56 LDX $56D5 ;
7F7E: 20 45 7D JSR $7D45 ;
7F81: 68 PLA
7F82: 48 PHA
7F83: 4A LSR A
7F84: 4A LSR A
7F85: 4A LSR A
7F86: 4A LSR A
7F87: 20 D1 7B JSR $7BD1 ;
7F8A: 68 PLA
7F8B: 20 D1 7B JSR $7BD1 ;
7F8E: AE 0B 00 LDX $0B ;
7F91: CA DEX
7F92: 10 C2 BPL $7F56 ;
7F94: A9 7F LDA #$7F
7F96: AA TAX
7F97: 20 03 7C JSR $7C03 ;
7F9A: 20 C0 7B JSR $7BC0 ;
7F9D: A9 00 LDA #$00
7F9F: A2 04 LDX #$04
7FA1: 3E 03 20 ROL SWHYPER,X ;
7FA4: 6A ROR A
7FA5: CA DEX
7FA6: 10 F9 BPL $7FA1 ;
7FA8: A8 TAY
7FA9: A2 07 LDX #$07
7FAB: 3E 00 24 ROL SWLCOIN,X ;
7FAE: 2A ROL A
7FAF: CA DEX
7FB0: 10 F9 BPL $7FAB ;
7FB2: AA TAX
7FB3: 45 08 EOR $08 ;
7FB5: 86 08 STX $08 ;
7FB7: 08 PHP
7FB8: A9 04 LDA #$04
7FBA: 8D 00 32 STA LMPSCNS ;
7FBD: 2E 03 20 ROL SWHYPER ;
7FC0: 2A ROL A
7FC1: 2E 04 20 ROL SWFIRE ;
7FC4: 2A ROL A
7FC5: 2E 07 24 ROL SWROTLEFT ;
7FC8: 2A ROL A
7FC9: 2E 06 24 ROL SWROTRGHT ;
7FCC: 2A ROL A
7FCD: 2E 05 24 ROL SWTHRUST ;
7FD0: 2A ROL A
7FD1: AA TAX
7FD2: 28 PLP
7FD3: D0 09 BNE $7FDE ;
7FD5: 45 0A EOR $0A ;
7FD7: D0 05 BNE $7FDE ;
7FD9: 98 TYA
7FDA: 45 09 EOR $09 ;
7FDC: F0 02 BEQ $7FE0 ;
7FDE: A9 80 LDA #$80
7FE0: 8D 05 3C STA SNDBONUS ;
7FE3: 8D 00 32 STA LMPSCNS ;
7FE6: 8D 00 30 STA GODVG ;
7FE9: 86 0A STX $0A ;
7FEB: 84 09 STY $09 ;
7FED: AD 07 20 LDA SWTEST ;
7FF0: 10 FE BPL $7FF0 ;
7FF2: 4C 73 7E JMP $7E73 ;
7FF5: 01 04 ORA ($04,X) ;
7FF7: 05 06 ORA $06 ;
7FF9: 4E
Vectors:
7FFA: 65 7B ; NMI Vector to 7B65
7FFC: F3 7C ; Reset Vector to 7CF3
7FFE: F3 7C ; IRQ/BRK Vector (unused) to 7CF3 (RESET)
