;Pac-Man 8k ColorDots = 1 ;change to 0 if no gaps in maze wanted (but lose seperate dot color) EQUALPTS = 1 CHEAT = 0 INTEST = 0 TEST2 = 0 TEST3 = 0 processor 6502 ;hardware register equates VSYNC = $00 ;Vertical Sync Set-Clear VBLANK = $01 ;Vertical Blank Set-Clear WSYNC = $02 ;Wait for Horizontal Blank RSYNC = $03 ;Reset Horizontal Sync Counter NUSIZ0 = $04 ;Number-Size player/missle 0 NUSIZ1 = $05 ;Number-Size player/missle 1 COLUP0 = $06 ;Color-Luminance Player 0 COLUP1 = $07 ;Color-Luminance Player 1 COLUPF = $08 ;Color-Luminance Playfield COLUBK = $09 ;Color-Luminance Background CTRLPF = $0A ;Control Playfield, Ball, Collisions REFP0 = $0B ;Reflection Player 0 REFP1 = $0C ;Reflection Player 1 PF0 = $0D ;Playfield Register Byte 0 (upper nybble used only) PF1 = $0E ;Playfield Register Byte 1 PF2 = $0F ;Playfield Register Byte 2 RESP0 = $10 ;Reset Player 0 RESP1 = $11 ;Reset Player 1 RESM0 = $12 ;Reset Missle 0 RESM1 = $13 ;Reset Missle 1 RESBL = $14 ;Reset Ball ;Audio registers AUDC0 = $15 ;Audio Control - Voice 0 (distortion) AUDC1 = $16 ;Audio Control - Voice 1 (distortion) AUDF0 = $17 ;Audio Frequency - Voice 0 AUDF1 = $18 ;Audio Frequency - Voice 1 AUDV0 = $19 ;Audio Volume - Voice 0 AUDV1 = $1A ;Audio Volume - Voice 1 ;Sprite registers GRP0 = $1B ;Graphics Register Player 0 GRP1 = $1C ;Graphics Register Player 1 ENAM0 = $1D ;Graphics Enable Missle 0 ENAM1 = $1E ;Graphics Enable Missle 1 ENABL = $1F ;Graphics Enable Ball HMP0 = $20 ;Horizontal Motion Player 0 HMP1 = $21 ;Horizontal Motion Player 1 HMM0 = $22 ;Horizontal Motion Missle 0 HMM1 = $23 ;Horizontal Motion Missle 1 HMBL = $24 ;Horizontal Motion Ball VDELP0 = $25 ;Vertical Delay Player 0 VDELP1 = $26 ;Vertical Delay Player 1 VDELBL = $27 ;Vertical Delay Ball RESMP0 = $28 ;Reset Missle 0 to Player 0 RESMP1 = $29 ;Reset Missle 1 to Player 1 HMOVE = $2A ;Apply Horizontal Motion HMCLR = $2B ;Clear Horizontal Move Registers CXCLR = $2C ;Clear Collision Latches Waste1 = $2D ;Unused Waste2 = $2E ;Unused Waste3 = $2F ;Unused ;collisions (bit 7) (bit 6) CXM0P = $30 ;Read Collision - M0-P1 M0-P0 CXM1P = $31 ;Read Collision - M1-P0 M1-P1 CXP0FB = $32 ;Read Collision - P0-PF P0-BL CXP1FB = $33 ;Read Collision - P1-PF P1-BL CXM0FB = $34 ;Read Collision - M0-PF M0-BL CXM1FB = $35 ;Read Collision - M1-PF M1-BL CXBLPF = $36 ;Read Collision - BL-PF ----- CXPPMM = $37 ;Read Collision - P0-P1 M0-M1 INPT0 = $38 ;Read Pot Port 0 INPT1 = $39 ;Read Pot Port 1 INPT2 = $3A ;Read Pot Port 2 INPT3 = $3B ;Read Pot Port 3 INPT4 = $3C ;Read Input - Trigger 0 (bit 7) INPT5 = $3D ;Read Input - Trigger 1 (bit 7) ;RIOT registers SWCHA = $0280 ;Port A data register for joysticks (High nybble: player0,low nybble: player1) SWACNT = $0281 ;Port A data direction register (DDR) SWCHB = $0282 ;Port B data (console switches) bit pattern LR--B-SR SWBCNT = $0283 ;Port B data direction register (DDR) INTIM = $0284 ;Timer output TIMINT = $0285 ; WasteA = $0286 ;Unused/undefined WasteB = $0287 ;Unused/undefined WasteC = $0288 ;Unused/undefined WasteD = $0289 ;Unused/undefined WasteE = $028A ;Unused/undefined WasteF = $028B ;Unused/undefined WasteG = $028C ;Unused/undefined WasteH = $028D ;Unused/undefined WasteI = $028E ;Unused/undefined WasteJ = $028F ;Unused/undefined WasteK = $0290 ;Unused/undefined WasteL = $0291 ;Unused/undefined WasteM = $0292 ;Unused/undefined WasteN = $0293 ;Unused/undefined TIM1T = $0294 ;set 1 clock interval TIM8T = $0295 ;set 8 clock interval TIM64T = $0296 ;set 64 clock interval T1024T = $0297 ;set 1024 clock interval frameCount = $80 gameTimer = $81 ; $81 - $82 selectDebounce = $83 gameSelection = $84 ;84-86? waferIndex = $87 currentPlayerVars = $88 ; $88 - $9B ;mazeDots = currentPlayerVars ; $88 - $97 remainingLives = currentPlayerVars+16 temporaryPlayerVars = $9C ; $9C - $AF ;tempMazeDots = temporaryPlayerVars tempRemainingLives = temporaryPlayerVars+16 currentGhostX = $B0 objectX = $B1 ; $B1 - $B5 pacmanX = objectX ;FruitX = objectX ghost0X = objectX+1 ghost1X = objectX+2 ghost2X = objectX+3 ghost3X = objectX+4 objectY = $B6 ; $B6 - $BA pacmanY = objectY ghost0Y = objectY+1 ghost1Y = objectY+2 ghost2Y = objectY+3 ghost3Y = objectY+4 objectDirections = $BB ; $BB - $BF pacmanDirection = objectDirections ghostDirections = objectDirections+1 ghost0Direction = ghostDirections ghost1Direction = ghostDirections+1 ghost2Direction = ghostDirections+2 ghost3Direction = ghostDirections+3 SwapP0 = $C0 ;C0-C3 SwapP1 = $C4 ;C4-C7 kernelSection = $C9 mazeIndex = $CA ;+CB? playerScore = $CC ; $CC - $D1 playerScoreL0 = playerScore playerScoreL1 = playerScore+1 playerScoreM0 = playerScore+2 playerScoreM1 = playerScore+3 playerScoreH0 = playerScore+4 playerScoreH1 = playerScore+5 kernelPFValues = $D2 ; $D2 - $D7 kernelLeftPFValues = kernelPFValues kernelRightPFValues = kernelPFValues+3 ;-------------------------------------- leftPF0Value = kernelLeftPFValues leftPF1Value = kernelLeftPFValues+1 leftPF2Value = kernelLeftPFValues+2 rightPF0Value = kernelRightPFValues rightPF1Value = kernelRightPFValues+1 rightPF2Value = kernelRightPFValues+2 ;-------------------------------------- digitPointers = kernelRightPFValues ; $D5 - $DE ghostOffset = $D8 pacmanOffset = $D9 ghostIndex = $DB pacmanIndex = $DC ghostPointer = $DD ; $DD - $DE pacmanPointer = $DF ; $DF - $E0 kernelEnableVitamin = $E1 ;-------------------------------------- loopCount = kernelEnableVitamin digitPointerOffset = $E2 ;-------------------------------------- ;tempCharHolder = digitPointerOffset kernelPF2Value = $E3 EnergizerTime = $E4 ghostEatingDelay = $E5 playerState = $E6 ; ct------ ; c = current player (1 = player1 0 = player0) ; t = game type (0 = 1player 1 = 2player) gameState = $E7 ;E7-EB? vitaminTimer = $EC joystickValue = $ED ;ED-EE? CopySWCHB = $EF backgroundColor = $F0 playfieldColor = $F1 ghostColorPtr = $F2 pacmanColorPtr = $F3 tempColorPtr = $F4 ;F4-F5 ;f6-ff unassigned ;T1 = $4B ;T2 = $29 T1 = $4B T2 = $29 Time = $80 Time2 = $00 FrameCounter = frameCount TM1 = $10 TM2 = $20 TM3 = $20 FruitTimer = vitaminTimer ;IntermissionLines = 62 IntermissionLines = 70 SoundDur = digitPointers Temp = digitPointers+1 Temp2 = joystickValue C1 = digitPointers+2 C2 = digitPointers+3 C3 = digitPointers+4 C4 = digitPointers+5 C5 = digitPointers+6 TimeSave = digitPointers+2 ORG $1000 RORG $D000 START1: STA $1FF9 ;4 switch to bank 2 NOP ;2 NOP ;2 NOP ;2 Bootscreen_Bankswitch1: STA $1FF9 ;4 call bank 2 JMP Bootscreen ;3 Intermission_Bankswitch1: LD48E: STA $1FF9 ;4 switch to bank 2 LDA playerState ;3 AND #$20 ;2 BEQ No_Intermission ;2 JMP Intermission ;2 No_Intermission: ;save color pointer LDA #>ColorTbl ;2 STA kernelPFValues+1 ;3 LDA #DGFX ;2 STA kernelPFValues+1,X ;3 STA kernelPFValues-1,X ;3 LDA.wy playerScore,Y ;4 LSR ;2 LSR ;2 LSR ;2 LSR ;2 TAX ;2 LDA LDEF6,X ;4 LDX digitPointerOffset ;3 STA kernelPFValues-2,X ;4 DEX ;2 DEX ;2 DEX ;2 DEX ;2 DEY ;2 DEY ;2 BPL LD3F6 ;2 ; LDA kernelPFValues ;3 LDA $DE ;3 STA WSYNC ;3 STA COLUBK ;3 LDY #$06 ;2 STY loopCount ;3 LD459: LDY loopCount ;3 LDA (kernelPFValues+8),Y ;5 (6/100k spot) STA GRP0 ;4 STA WSYNC ;3 LDA (kernelPFValues+10),Y ;5 (6/10k spot) STA GRP1 ;3 LDA (kernelPFValues+4),Y ;5 (6/1k spot) STA GRP0 ;3 LDA (kernelPFValues+6),Y ;5 (6/100 spot) STA digitPointerOffset ;3 LDA (kernelPFValues),Y ;5 (6/10 spot) TAX ;2 LDA (kernelPFValues+2),Y ;5 (6/0 spot) TAY ;2 LDA digitPointerOffset ;3 STA GRP1 ;3 STX GRP0 ;3 STY GRP1 ;3 ; LDY loopCount ;3 ; LDA Digit0gfx,Y ;4 ; STA GRP0 ;3 STY GRP0 ;3 DEC loopCount ;5 BPL LD459 ;2 LDY #$00 ;2 STY GRP0 ;3 STY GRP1 ;3 STY GRP0 ;3 STY GRP1 ;3 RTS ;6 LD053: LDA #$00 ;2 CPX pacmanOffset ;3 BMI LD062 ;2 LDY pacmanIndex ;3 BMI LD062 ;2 LDA (pacmanPointer),Y ;5 DEY ;2 STY pacmanIndex ;3 LD062: STA WSYNC ;3 STA GRP1 ;3 RTS ;6 LD067: JSR LD053 ;6 LD06A: LDA #$00 ;2 INX ;2 CPX ghostOffset ;3 BMI LD07A ;2 LDY ghostIndex ;3 BMI LD07A ;2 LDA (ghostPointer),Y ;5 DEY ;2 STY ghostIndex ;3 LD07A: STA WSYNC ;3 STA GRP0 ;3 RTS ;6 ; ORG $1512 ; RORG $D512 Intermission: lda #$00 ;2 sta FrameCounter ;3 sta FruitTimer ;3 sta SoundDur ;3 sta Temp ;3 LDA SWCHB ;3 $EF = SWCHB and #$08 ;2 LSR ;2 TAY ;2 LDX #$03 ;2 movecolors: lda IntColors,y ;4 sta C1,X ;4 INY ;2 DEX ;2 bpl movecolors ;2³ New_Display_Start: lda FruitTimer ;3 tax ;2 and #$02 ;2 lsr ;2 tay ;2 ; lda Level ;3 ; and #$1F ;2 ; sta Temp ;3 LDA remainingLives ;3 and #$C0 ;2 BEQ Intermission1 ;3 cmp #$40 ;2 BEQ Intermission2 ;3 BNE Intermission3 ;2³ Intermission1: txa ;2 bpl Intermission1_3 ;2³ Part1_2: txa ;2 and #$06 ;2 lsr ;2 tax ;2 lda LargePacAnim,x ;4 sta pacmanPointer ;3 lda FruitTimer ;3 ldx C1 ;3 stx Temp ;3 jsr Inter_Sub2 ;6 clc ;2 adc #$10 ;2 cmp #$84 ;2 bcc NoErasemonst ;2³ ldx #$00 ;2 NoErasemonst: ; sta ghostIndex ;3 save to monster sta pacmanIndex ;3 save to monster lda VulnerableAnim,y ;4 sta ghostPointer ;3 lda #$05 ;2 sta NUSIZ0 ;3 ldy C4 ;3 txa ;2 jmp Move_Intermission ;3 Intermission3: txa ;2 bmi Part3_2 ;2³ Intermission1_3: jsr Inter_Sub ;6 clc ;2 adc #$0D ;2 sta pacmanIndex ;3 lda SmallPacAnim,y ;4 sta pacmanPointer ;3 lda LethalAnim,y ;2 sta ghostPointer ;3 ldy C4 ;3 lda C2 ;3 ; JMP Move_Intermission ;3 BNE Move_Intermission ;2 Part3_2: txa ;2 jsr Inter_Sub2 ;6 sta pacmanIndex ;3 lda NakedEyesAnim,y ;4 sta pacmanPointer ;3 lda NakedAnim,y ;2 sta ghostPointer ;3 ldy #$0C ;2 lda C3 ;3 bne Move_Intermission ;2³ always branch Intermission2: txa ;2 bmi Part2_2 ;2³ lda SmallPacAnim,y ;4 sta pacmanPointer ;3 txa ;2 jsr Inter_Sub ;6 ; cmp #$31 ;2 ; cmp #$2C ;2 cmp #$2C ;2 bcs LF9AE ;2³ lda #IGFX ;2 sta pacmanPointer+1 ;3 sta ghostPointer+1 ;3 lda pacmanIndex ;3 tay ;2 lda XposTbl2,y ;4 fetch Xpos value ;added bne PacColorOK ;2³ sta COLUP1 ;3 lda #$06 ;2 PacColorOK: sta pacmanIndex ;3 lda ghostIndex ;3 tay ;2 bit FruitTimer ;3 bmi SameTbl ;3 lda XposTbl,y ;4 fetch Xpos value JMP TblLoaded ;3 SameTbl: lda XposTbl2,y ;4 fetch Xpos value TblLoaded: ;added bne MonsterColorOK ;2³ sta COLUP0 ;3 lda #$06 ;2 MonsterColorOK: sta ghostIndex ;3 ; ldx #$53 ;2 50 Scanlines ldx #$49 ;2 50 Scanlines LDA playerState ;3 AND #$20 ;2 beq InterRetrace_Wait2 ;2³ LDA playerState ;3 AND #$DF ;2 STA playerState ;3 ;fudge txa ;2 sec ;2 sbc #$0A ;2 tax ;2 InterRetrace_Wait2: inc FrameCounter ;5 lda #$02 ;2 InterRetrace_Wait: ldy INTIM ;4 bne InterRetrace_Wait ;2³ sty WSYNC ;3 sty VBLANK ;3 sty WSYNC ;3 ; ldy #$25 ;2 ; jsr Boot_Screen_Sub ;6 jsr Boot_Screen_Top ;6 sty NUSIZ1 ;3 sty GRP0 ;3 sty GRP1 ;3 sty PF0 ;3 sty PF1 ;3 sty PF2 ;3 sty COLUBK ;3 jsr Wait12_2 ;6 sta RESBL ;3 ldy #TM3 ;2 HERE.... sty TIM64T ;4 sty WSYNC ;3 lda pacmanIndex ;3 tay ;2 and #$0F ;2 tax ;2 inx ;2 sty HMP1 ;3 Intermission_set_p1: dex ;2 bne Intermission_set_p1 ;2³ stx RESP1 ;3 stx WSYNC ;3 lda ghostIndex ;3 tay ;2 and #$0F ;2 tax ;2 inx ;2 sty HMP0 ;3 Intermission_set_p0: dex ;2 bne Intermission_set_p0 ;2³ stx RESP0 ;3 ; stx RESM0 ;3 stx WSYNC ;3 stx HMOVE ;3 ; lda Level ;3 ; and #$1F ;2 LDA remainingLives ;3 and #$C0 ;2 sta WSYNC ;3 cmp #$40 ;2 bne Intermission_add_nail ;2³ ldy #$0F ;2 ldx #$02 ;2 lda FruitTimer ;3 cmp #$54 ;2 BCC Intermission_add_nail ;2³ ldy C2 ;3 Intermission_add_nail: sty COLUPF ;3 lda #$00 ;2 tay ;2 Intermission_char_loop: stx WSYNC ;3 stx WSYNC ;3 bit Temp ;3 bpl NoGFX ;2³ lda (pacmanPointer),y ;5 sta GRP0 ;3 NoGFX: iny ;2 cpy #$08 ;2 bne Intermission_char_loop ;2³ dey ;2 Intermission_char_loop2: stx WSYNC ;3 stx WSYNC ;3 lda (pacmanPointer),y ;5 sta GRP0 ;3 lda (ghostPointer),y ;5 sta GRP1 ;3 dey ;2 bpl Intermission_char_loop2 ;2³ stx ENABL ;3 ; ldy #IntermissionLines ;2 75 Scanlines ldx #$00 ;2 stx WSYNC ;3 stx WSYNC ;3 stx GRP0 ;3 stx GRP1 ;3 stx COLUP0 ;3 stx COLUP1 ;3 stx WSYNC ;3 lda #$0F ;2 stx CTRLPF ;3 sta COLUPF ;3 sta WSYNC ;3 stx COLUPF ;3 stx ENABL ;3 ldy #IntermissionLines ;2 75 Scanlines jsr Boot_Screen_Bottom ;6 lda #$02 ;2 Retrace_wait_bank2: ldx INTIM ;4 Any time left from bank1's share? bne Retrace_wait_bank2 ;2³ loop if so sta WSYNC ;3 sta VSYNC ;3 sta WSYNC ;3 ldx #TM2 ;2 stx TIM64T ;4 reset countdown timer for bank2 lsr ;2 sta WSYNC ;3 sta VSYNC ;3 turn off TIA lda FrameCounter ;3 and #$01 ;2 bne IntermissionMusic_start ;2³ inc FruitTimer ;5 bne IntermissionMusic_start ;2³ ;intermission done STA AUDV0 ;3 STA AUDV1 ;3 ; STA AUDF0 ;3 ; STA AUDF1 ;3 ; STA AUDC0 ;3 ; STA AUDC1 ;3 lda #$07 ;2 sta FruitTimer ;3 ; ldx #TM1 ;2 HERE.... ; stx TIM64T ;4 jmp Intermission_Bankswitch1 ;3 exit IntermissionMusic_start: ldy #$05 ;2 inc SoundDur ;5 lda SoundDur ;3 lsr ;2 lsr ;2 lsr ;2 tax ;2 lda InterMusic0,x ;4 bne Inter_Play_ch0 ;2³ Beat0: tay ;2 Inter_Play_ch0: sta AUDF0 ;3 sty AUDC0 ;3 cpy #$00 ;2 beq Inter_NoNote_ch0 ;2³ ldy #$05 ;2 Inter_NoNote_ch0: sty AUDV0 ;3 ldy #$01 ;2 lda InterMusic1,x ;4 bne Inter_Play_ch1 ;2³ Beat1: tay ;2 Inter_Play_ch1: sta AUDF1 ;3 sty AUDC1 ;3 cpy #$00 ;2 beq Inter_NoNote_ch1 ;2³ ldy #$05 ;2 Inter_NoNote_ch1: sty AUDV1 ;3 Inter_Exit: ; ldx #TM1 ;2 HERE.... ; stx TIM64T ;4 jmp New_Display_Start ;3 exit Inter_Sub: eor #$7F ;2 Inter_Sub2: and #$7F ;2 sta ghostIndex ;3 Wait12_2: rts ;6 Bootscreen: ldy #$1C ;2 lda SWCHB ;4 and #$08 ;2 bne NoPal ;2³ ldy #$2C ;2 NoPal: sty COLUPF ;3 ; lda #$21 ;2 ; sta CTRLPF ;3 Boot_Screen: ldy #$27 ;2 ldx #$39 ;2 lda #$02 ;2 sta WSYNC ;3 sta VSYNC ;3 sta WSYNC ;3 lsr ;2 sta VSYNC ;3 jsr Boot_Screen_Sub ;6 lda #$FF ;2 sta WSYNC ;3 sta RESP0 ;3 sta WSYNC ;3 ;show title lda Temp ;3 sta COLUP0 ;3 and #$08 ;2 sta Temp+2 ;3 ldx #$05 ;2 ; jsr Wait12_2 ;6 ; NOP ; NOP Title_Screen_Init: ldy #$09 ;2 ; sty Temp2 ;3 LDA PacMan8K-1,X STA GRP0 Title_Screen_Start: STA WSYNC LDA Screen_PF0-1,X STA PF0 LDA Screen_PF1-1,X STA PF1 bit Temp+2 ;3 beq UseA ;2³ LDA Screen_PF2b-1,X ;4 jmp UseB ;2³ UseA: LDA Screen_PF2a-1,X ;4 nop ;2 UseB: STA PF2 ; sty $2E ;3 waste ; NOP ; NOP ; NOP ; NOP LDA Screen_PF3-1,X STA PF0 LDA Screen_PF4-1,X STA PF1 LDA Screen_PF5-1,X STA PF2 ; DEC Temp2 ;5 dey ;2 bne Title_Screen_Start ;23 dex ;2 bne Title_Screen_Init ;23 sta WSYNC ;3 stx GRP0 ;3 stx PF0 ;3 X=0 stx PF1 ;3 stx PF2 ;3 sta WSYNC ;3 ;show "2004" lda #$09 ;2 sta REFP1 ;3 tax ;2 Waste44: dex ;2 bne Waste44 ;2³ sty RESP0 ;3 ; ldy #$88 ;2 ldy #$88 ;2 sty RESP1 ;3 sty HMP0 ;3 sta HMP1 ;3 sty WSYNC ;3 new scanline sty HMOVE ;3 lda #$86 ;2 fetch the score color sta COLUP0 ;3 save to both sprites sta COLUP1 ;3 ldy #$06 ;2 set year size Display_Year_loop: lda Year1-1,y ;4 sta GRP0 ;3 sta GRP1 ;3 sta WSYNC ;3 new scanline dey ;2 bne Display_Year_loop ;2³ loop until all lines done sty REFP1 ;3 ldy #$56-8 ;2 jsr Boot_Screen_Bottom ;6 inc Temp ;5 lda Temp ;3 and SWCHA ;4 beq Boot_Screen_Exit ;2³ jmp Boot_Screen ;3 Boot_Screen_Exit: sta WSYNC ;3 ; ldx #TM1-5 ;2 HERE.... ldx #TM1+16 ;2 HERE.... stx TIM64T ;4 jmp Bootscreen_Bankswitch1 ;3 Boot_Screen_Sub: lda #$00 ;2 Boot_Screen_Vsync: sta WSYNC ;3 dey ;2 bne Boot_Screen_Vsync ;2³ sta VBLANK ;3 Boot_Screen_Top: sta WSYNC ;3 dex ;2 bne Boot_Screen_Top ;2³ rts ;6 Boot_Screen_Bottom: sta WSYNC ;3 dey ;2 bne Boot_Screen_Bottom ;2³ lda #$02 ;2 sta VBLANK ;3 ldx #$1D ;2 Boot_Screen_Overscan: sta WSYNC ;3 dex ;2 bpl Boot_Screen_Overscan ;2³ rts ;6 ; ORG $1754 ; RORG $D754 ORG $19B8 RORG $D9B8 IF ColorDots ;section 4 LDD83: .byte $00 ; |X | $FD83 .byte $01 ; |X X| $FD84 .byte $04 ; |X X | $FD85 .byte $05 ; |X X X| $FD86 .byte $10 ; |X X | $FD87 .byte $11 ; |X X X| $FD88 .byte $14 ; |X X X | $FD89 .byte $15 ; |X X X X| $FD8A ELSE ;section 4 LDD83: .byte $80 ; |X | $FD83 .byte $81 ; |X X| $FD84 .byte $84 ; |X X | $FD85 .byte $85 ; |X X X| $FD86 .byte $90 ; |X X | $FD87 .byte $91 ; |X X X| $FD88 .byte $94 ; |X X X | $FD89 .byte $95 ; |X X X X| $FD8A ENDIF LivesBitmap: .byte $70 ; | XXX | $FDE8 .byte $E0 ; |XXX | $FDE9 .byte $C0 ; |XX | $FDEA .byte $E0 ; |XXX | $FDEB .byte $70 ; | XXX | $FDEC .byte $00 ; | | $FDEC .byte $00 ; | | $FDEC .byte $00 ; | | $FDEC .byte $70 ; | XXX | $FDE8 .byte $F8 ; |XXXXX | $FDE9 .byte $F8 ; |XXXXX | $FDEA .byte $F8 ; |XXXXX | $FDEB .byte $70 ; | XXX | $FDEC .byte $00 ; | | $FDEC .byte $00 ; | | $FDEC Year1: .byte $00 ; | | $FC8E shared .byte $EE ; |XXX XXX | $FC95 .byte $8A ; |X X X | $FC96 .byte $EA ; |XXX X X | $FC97 .byte $2A ; | X X X | $FC98 .byte $EE ; |XXX XXX | $FC99 PacMan8K: .byte $65 ; | XX X X| $FC8F .byte $95 ; |X X X X| $FC90 .byte $66 ; | XX XX | $FC91 .byte $95 ; |X X X X| $FC92 Xval: .byte $65 ;(shared) .byte $EA .byte $F9 .byte $08 IntColors: .byte $2C ; | | $FC8E .byte $48 ; | | $FC8E .byte $66 ; | | $FC8E .byte $D3 ; | | $FC8E .byte $1C ; | | $FC8E .byte $28 ; | | $FC8E .byte $36 ; | | $FC8E .byte $83 ; | | $FC8E Screen_PF2a .byte #%00000111 ; Scanline 36 .byte #%00001111 ; Scanline 27 .byte #%01100001 ; Scanline 18 .byte #%00001111 ; Scanline 9 Screen_PF2b .byte #%00000111 ; Scanline 36 (shared) .byte #%00000001 ; Scanline 27 .byte #%01100000 ; Scanline 18 .byte #%00000001 ; Scanline 9 .byte #%00000111 ; Scanline 0 Screen_PF0 .byte #%00110000 ; Scanline 36 .byte #%11110000 ; Scanline 27 .byte #%10110000 ; Scanline 18 Screen_PF3 .byte #%11110000 ; Scanline 36 (shared) .byte #%11110000 ; Scanline 27 (shared) .byte #%01110000 ; Scanline 18 .byte #%00110000 ; Scanline 9 .byte #%00010000 ; Scanline 0 Screen_PF4 .byte #%11101111 ; Scanline 36 .byte #%11100101 ; Scanline 27 .byte #%11100011 ; Scanline 18 .byte #%01100001 ; Scanline 9 .byte #%00100000 ; Scanline 0 Screen_PF5 .byte #%01111101 ; Scanline 36 .byte #%01111101 ; Scanline 27 .byte #%01011101 ; Scanline 18 .byte #%01001101 ; Scanline 9 .byte #%01000101 ; Scanline 0 ORG $1A00 RORG $DA00 ;intermission GFX IGFX: Lethal1: .byte $11 ; | X X| $FDA3 .byte $BB ; |X XXX XX| $FDA4 .byte $FF ; |XXXXXXXX| $FDA5 .byte $FF ; |XXXXXXXX| $FDA6 .byte $B7 ; |X XX XXX| $FD97 .byte $B7 ; |X XX XXX| $FD90 .byte $7E ; | XXXXXX | $FDA9 .byte $3C ; | XXXX | $FDAA Lethal2: .byte $88 ; |X X | $FD8B .byte $DD ; |XX XXX X| $FD8C .byte $FF ; |XXXXXXXX| $FD8D .byte $FF ; |XXXXXXXX| $FDA6 .byte $B7 ; |X XX XXX| $FD97 .byte $B7 ; |X XX XXX| $FD90 .byte $7E ; | XXXXXX | $FD91 .byte $3C ; | XXXX | $FD92 Foot2: .byte $03 ; | XX| $FD02 .byte $02 ; | X | $FD03 .byte $00 ; | | $FD04 .byte $00 ; | | $FD05 .byte $24 ; | X X | $FD08 NakedEyes1: .byte $00 ; | | $FDC4 (shared) .byte $00 ; | | $FDC5 (shared) .byte $00 ; | | $FDC6 (shared) .byte $00 ; | | $FDC8 .byte $00 ; | | $FDCE .byte $24 ; | X X | $FDC9 .byte $36 ; | XX XX | $FDCA .byte $00 ; | | $FDCE Vulnerable1: .byte $11 ; | X X| $FD20 .byte $BB ; |X XXX XX| $FD21 .byte $FF ; |XXXXXXXX| $FD1A .byte $F3 ; |XXXX XX| $FD1B .byte $FF ; |XXXXXXXX| $FD1C .byte $ED ; |XXX XX X| $FD1D .byte $7E ; | XXXXXX | $FD1E .byte $3C ; | XXXX | $FD1F Vulnerable2: .byte $88 ; |X X | $FD08 .byte $DD ; |XX XXX X| $FD09 .byte $FF ; |XXXXXXXX| $FD0A .byte $F3 ; |XXXX XX| $FD0B .byte $FF ; |XXXXXXXX| $FD0C .byte $ED ; |XXX XX X| $FD0D .byte $7E ; | XXXXXX | $FD0E .byte $3C ; | XXXX | $FD0F Torn: .byte $8B ; |X X XX| $FD8B .byte $DF ; |XX XXXXX| $FD8C .byte $FF ; |XXXXXXXX| $FD8D .byte $FF ; |XXXXXXXX| $FDA6 .byte $B7 ; |X XX XXX| $FD97 .byte $B7 ; |X XX XXX| $FD90 .byte $7E ; | XXXXXX | $FD91 .byte $3C ; | XXXX | $FD92 Torn2: .byte $8B ; |X X XX| $FD8B .byte $DC ; |XX XXX | $FD8C .byte $FF ; |XXXXXXXX| $FD8D .byte $FF ; |XXXXXXXX| $FDA6 .byte $B7 ; |X XX XXX| $FD97 .byte $B7 ; |X XX XXX| $FD90 .byte $7E ; | XXXXXX | $FD91 .byte $3C ; | XXXX | $FD92 Torn3: .byte $8B ; |X X XX| $FD8B .byte $DC ; |XX XXX | $FD8C .byte $FF ; |XXXXXXXX| $FD8D .byte $DB ; |XX XX XX| $FDA6 .byte $DB ; |XX XX XX| $FD97 .byte $FF ; |XXXXXXXX| $FD90 .byte $7E ; | XXXXXX | $FD91 Spac1: .byte $3C ; | XXXX | $FDB5 shared .byte $7E ; | XXXXXX | $FDB6 .byte $FF ; |XXXXXXXX| $FDB7 .byte $FF ; |XXXXXXXX| $FDB8 .byte $FF ; |XXXXXXXX| $FDB8 .byte $FF ; |XXXXXXXX| $FDB9 .byte $7E ; | XXXXXX | $FDBA Spac2: .byte $3C ; | XXXX | $FDBB shared .byte $7E ; | XXXXXX | $FDBC .byte $1F ; | XXXXX| $FDBD .byte $07 ; | XXX| $FDBE .byte $07 ; | XXX| $FDBE .byte $1F ; | XXXXX| $FDBF .byte $7E ; | XXXXXX | $FDC0 .byte $3C ; | XXXX | $FDCE Naked1: .byte $6F ; | XX XXXX| $FD8E .byte $3E ; | XXXXX | $FD8F .byte $7C ; | XXXXX | $FD90 .byte $7E ; | XXXXXX | $FD91 .byte $64 ; | XX X | $FD92 .byte $36 ; | XX XX | $FD93 NakedEyes2: .byte $00 ; | | $FDDA (shared) .byte $00 ; | | $FDDB (shared) .byte $00 ; | | $FDDC .byte $00 ; | | $FDDD .byte $00 ; | | $FDDE .byte $00 ; | | $FDDF .byte $12 ; | X X | $FDE0 .byte $1B ; | XX XX| $FDE1 Lpac1: .byte $18 ; | XX | $FD63 .byte $3C ; | XXXX | $FD64 .byte $7E ; | XXXXXX | $FD65 .byte $7E ; | XXXXXX | $FD66 .byte $FF ; |XXXXXXXX| $FD67 .byte $FF ; |XXXXXXXX| $FD68 .byte $FF ; |XXXXXXXX| $FD69 .byte $FF ; |XXXXXXXX| $FD6B Lpac2: .byte $18 ; | XX | $FD71 .byte $3C ; | XXXX | $FD72 .byte $7E ; | XXXXXX | $FD73 .byte $7E ; | XXXXXX | $FD74 .byte $FF ; |XXXXXXXX| $FD75 .byte $FC ; |XXXXXX | $FD76 .byte $F0 ; |XXXX | $FD77 .byte $F0 ; |XXXX | $FD79 Lpac3: .byte $18 ; | XX | $FD7F .byte $3C ; | XXXX | $FD80 .byte $7E ; | XXXXXX | $FD81 .byte $7C ; | XXXXX | $FD82 .byte $F8 ; |XXXXX | $FD83 .byte $F0 ; |XXXX | $FD84 .byte $E0 ; |XXX | $FD85 Naked2: .byte $C0 ; |XX | $FD87 shared .byte $7C ; | XXXXX | $FD1E .byte $38 ; | XXX | $FD1F .byte $3C ; | XXXX | $FD20 .byte $1F ; | XXXXX| $FD21 .byte $12 ; | X X | $FD22 .byte $1B ; | XX XX| $FD23 .byte $00 ; | | $FDC8 Foot1: .byte $03 ; | XX| $FDD8 .byte $02 ; | X | $FDD9 XposTbl2: .byte $00 ; | | $FDDF (shared) .byte $00 ; | | $FDDF (shared) .byte $00 ; | | $FDDF (shared) .byte $00 ; | | $FDDF (shared) .byte $00 ; | | $FDDF (shared) .byte $00 ; | | $DC84 .byte $00 ; | | $DC84 .byte $F1 ; |XXXX X| $DC00 .byte $E1 ; |XXX X| $DC01 .byte $D1 ; |XX X X| $DC02 .byte $C1 ; |XX X| $DC03 .byte $B1 ; |X XX X| $DC04 .byte $A1 ; |X X X| $DC05 .byte $91 ; |X X X| $DC06 .byte $81 ; |X X| $DC07 .byte $52 ; | X X X | $DC09 .byte $42 ; | X X | $DC0A .byte $32 ; | XX X | $DC0B .byte $22 ; | X X | $DC0C .byte $12 ; | X X | $DC0D .byte $02 ; | X | $DC0E .byte $F2 ; |XXXX X | $DC0F .byte $E2 ; |XXX X | $DC10 .byte $D2 ; |XX X X | $DC11 .byte $C2 ; |XX X | $DC12 .byte $B2 ; |X XX X | $DC13 .byte $A2 ; |X X X | $DC14 .byte $92 ; |X X X | $DC15 .byte $82 ; |X X | $DC16 .byte $53 ; | X X XX| $DC18 .byte $43 ; | X XX| $DC19 .byte $33 ; | XX XX| $DC1A .byte $23 ; | X XX| $DC1B .byte $13 ; | X XX| $DC1C .byte $03 ; | XX| $DC1D .byte $F3 ; |XXXX XX| $DC1E .byte $E3 ; |XXX XX| $DC1F .byte $D3 ; |XX X XX| $DC20 .byte $C3 ; |XX XX| $DC21 .byte $B3 ; |X XX XX| $DC22 .byte $A3 ; |X X XX| $DC23 .byte $93 ; |X X XX| $DC24 .byte $83 ; |X XX| $DC25 .byte $54 ; | X X X | $DC27 .byte $44 ; | X X | $DC28 .byte $34 ; | XX X | $DC29 .byte $24 ; | X X | $DC2A .byte $14 ; | X X | $DC2B .byte $04 ; | X | $DC2C .byte $F4 ; |XXXX X | $DC2D .byte $E4 ; |XXX X | $DC2E .byte $D4 ; |XX X X | $DC2F .byte $C4 ; |XX X | $DC30 .byte $B4 ; |X XX X | $DC31 .byte $A4 ; |X X X | $DC32 .byte $94 ; |X X X | $DC33 .byte $84 ; |X X | $DC34 .byte $55 ; | X X X X| $DC36 .byte $45 ; | X X X| $DC37 .byte $35 ; | XX X X| $DC38 .byte $25 ; | X X X| $DC39 .byte $15 ; | X X X| $DC3A .byte $05 ; | X X| $DC3B .byte $F5 ; |XXXX X X| $DC3C .byte $E5 ; |XXX X X| $DC3D .byte $D5 ; |XX X X X| $DC3E .byte $C5 ; |XX X X| $DC3F .byte $B5 ; |X XX X X| $DC40 .byte $A5 ; |X X X X| $DC41 .byte $95 ; |X X X X| $DC42 .byte $85 ; |X X X| $DC43 .byte $56 ; | X X XX | $DC45 .byte $46 ; | X XX | $DC46 .byte $36 ; | XX XX | $DC47 .byte $26 ; | X XX | $DC48 .byte $16 ; | X XX | $DC49 .byte $06 ; | XX | $DC4A .byte $F6 ; |XXXX XX | $DC4B .byte $E6 ; |XXX XX | $DC4C .byte $D6 ; |XX X XX | $DC4D .byte $C6 ; |XX XX | $DC4E .byte $B6 ; |X XX XX | $DC4F .byte $A6 ; |X X XX | $DC50 .byte $96 ; |X X XX | $DC51 .byte $86 ; |X XX | $DC52 .byte $57 ; | X X XXX| $DC54 .byte $47 ; | X XXX| $DC55 .byte $37 ; | XX XXX| $DC56 .byte $27 ; | X XXX| $DC57 .byte $17 ; | X XXX| $DC58 .byte $07 ; | XXX| $DC59 .byte $F7 ; |XXXX XXX| $DC5A .byte $E7 ; |XXX XXX| $DC5B .byte $D7 ; |XX X XXX| $DC5C .byte $C7 ; |XX XXX| $DC5D .byte $B7 ; |X XX XXX| $DC5E .byte $A7 ; |X X XXX| $DC5F .byte $97 ; |X X XXX| $DC60 .byte $87 ; |X XXX| $DC61 .byte $58 ; | X XX | $DC63 .byte $48 ; | X X | $DC64 .byte $38 ; | XXX | $DC65 .byte $28 ; | X X | $DC66 .byte $18 ; | XX | $DC67 .byte $08 ; | X | $DC68 .byte $F8 ; |XXXXX | $DC69 .byte $E8 ; |XXX X | $DC6A .byte $D8 ; |XX XX | $DC6B .byte $C8 ; |XX X | $DC6C .byte $B8 ; |X XXX | $DC6D .byte $A8 ; |X X X | $DC6E .byte $98 ; |X XX | $DC6F .byte $88 ; |X X | $DC70 .byte $59 ; | X XX X| $DC72 .byte $49 ; | X X X| $DC73 .byte $39 ; | XXX X| $DC74 .byte $29 ; | X X X| $DC75 .byte $19 ; | XX X| $DC76 .byte $09 ; | X X| $DC77 .byte $F9 ; |XXXXX X| $DC78 .byte $E9 ; |XXX X X| $DC79 .byte $D9 ; |XX XX X| $DC7A .byte $C9 ; |XX X X| $DC7B .byte $B9 ; |X XXX X| $DC7C .byte $A9 ; |X X X X| $DC7D .byte $99 ; |X XX X| $DC7E .byte $89 ; |X X X| $DC7F .byte $5A ; | X XX X | $DC81 .byte $4A ; | X X X | $DC82 .byte $3A ; | XXX X | $DC83 .byte $2A ; | X X X | $DC84 .byte $1A ; | X X X | $DC84 .byte $0A ; | X X X | $DC84 .byte $FA ; | X X X | $DC84 ; ORG $1B00 ; RORG $DB00 XposTbl: .byte $00 ; | X X X | $DC84 shared .byte $00 ; | X X X | $DC84 shared .byte $00 ; | X X X | $DC84 shared .byte $00 ; | X X X | $DC84 shared .byte $00 ; | X X X | $DC84 shared .byte $00 ; | X X X | $DC84 shared .byte $00 ; | X X X | $DC84 shared .byte $81 ; |X X| $DC07 .byte $62 ; | XX X | $DC08 .byte $52 ; | X X X | $DC09 .byte $42 ; | X X | $DC0A .byte $32 ; | XX X | $DC0B .byte $22 ; | X X | $DC0C .byte $12 ; | X X | $DC0D .byte $02 ; | X | $DC0E .byte $F2 ; |XXXX X | $DC0F .byte $E2 ; |XXX X | $DC10 .byte $D2 ; |XX X X | $DC11 .byte $C2 ; |XX X | $DC12 .byte $B2 ; |X XX X | $DC13 .byte $A2 ; |X X X | $DC14 .byte $92 ; |X X X | $DC15 .byte $82 ; |X X | $DC16 .byte $63 ; | XX XX| $DC17 .byte $53 ; | X X XX| $DC18 .byte $43 ; | X XX| $DC19 .byte $33 ; | XX XX| $DC1A .byte $23 ; | X XX| $DC1B .byte $13 ; | X XX| $DC1C .byte $03 ; | XX| $DC1D .byte $F3 ; |XXXX XX| $DC1E .byte $E3 ; |XXX XX| $DC1F .byte $D3 ; |XX X XX| $DC20 .byte $C3 ; |XX XX| $DC21 .byte $B3 ; |X XX XX| $DC22 .byte $A3 ; |X X XX| $DC23 .byte $93 ; |X X XX| $DC24 .byte $83 ; |X XX| $DC25 .byte $64 ; | XX X | $DC26 .byte $54 ; | X X X | $DC27 .byte $44 ; | X X | $DC28 .byte $34 ; | XX X | $DC29 .byte $24 ; | X X | $DC2A .byte $14 ; | X X | $DC2B .byte $04 ; | X | $DC2C .byte $F4 ; |XXXX X | $DC2D .byte $E4 ; |XXX X | $DC2E .byte $D4 ; |XX X X | $DC2F .byte $C4 ; |XX X | $DC30 .byte $B4 ; |X XX X | $DC31 .byte $A4 ; |X X X | $DC32 .byte $94 ; |X X X | $DC33 .byte $84 ; |X X | $DC34 .byte $65 ; | XX X X| $DC35 .byte $55 ; | X X X X| $DC36 .byte $45 ; | X X X| $DC37 .byte $35 ; | XX X X| $DC38 .byte $25 ; | X X X| $DC39 .byte $15 ; | X X X| $DC3A .byte $05 ; | X X| $DC3B .byte $F5 ; |XXXX X X| $DC3C .byte $E5 ; |XXX X X| $DC3D .byte $D5 ; |XX X X X| $DC3E .byte $C5 ; |XX X X| $DC3F .byte $B5 ; |X XX X X| $DC40 .byte $A5 ; |X X X X| $DC41 .byte $95 ; |X X X X| $DC42 .byte $85 ; |X X X| $DC43 .byte $66 ; | XX XX | $DC44 .byte $56 ; | X X XX | $DC45 .byte $46 ; | X XX | $DC46 .byte $36 ; | XX XX | $DC47 .byte $26 ; | X XX | $DC48 .byte $16 ; | X XX | $DC49 .byte $06 ; | XX | $DC4A .byte $F6 ; |XXXX XX | $DC4B .byte $E6 ; |XXX XX | $DC4C .byte $D6 ; |XX X XX | $DC4D .byte $C6 ; |XX XX | $DC4E .byte $B6 ; |X XX XX | $DC4F .byte $A6 ; |X X XX | $DC50 .byte $96 ; |X X XX | $DC51 .byte $86 ; |X XX | $DC52 .byte $67 ; | XX XXX| $DC53 .byte $57 ; | X X XXX| $DC54 .byte $47 ; | X XXX| $DC55 .byte $37 ; | XX XXX| $DC56 .byte $27 ; | X XXX| $DC57 .byte $17 ; | X XXX| $DC58 .byte $07 ; | XXX| $DC59 .byte $F7 ; |XXXX XXX| $DC5A .byte $E7 ; |XXX XXX| $DC5B .byte $D7 ; |XX X XXX| $DC5C .byte $C7 ; |XX XXX| $DC5D .byte $B7 ; |X XX XXX| $DC5E .byte $A7 ; |X X XXX| $DC5F .byte $97 ; |X X XXX| $DC60 .byte $87 ; |X XXX| $DC61 .byte $68 ; | XX X | $DC62 .byte $58 ; | X XX | $DC63 .byte $48 ; | X X | $DC64 .byte $38 ; | XXX | $DC65 .byte $28 ; | X X | $DC66 .byte $18 ; | XX | $DC67 .byte $08 ; | X | $DC68 .byte $F8 ; |XXXXX | $DC69 .byte $E8 ; |XXX X | $DC6A .byte $D8 ; |XX XX | $DC6B .byte $C8 ; |XX X | $DC6C .byte $B8 ; |X XXX | $DC6D .byte $A8 ; |X X X | $DC6E .byte $98 ; |X XX | $DC6F .byte $88 ; |X X | $DC70 .byte $69 ; | XX X X| $DC71 .byte $59 ; | X XX X| $DC72 .byte $49 ; | X X X| $DC73 .byte $39 ; | XXX X| $DC74 .byte $29 ; | X X X| $DC75 .byte $19 ; | XX X| $DC76 .byte $09 ; | X X| $DC77 .byte $F9 ; |XXXXX X| $DC78 .byte $E9 ; |XXX X X| $DC79 .byte $D9 ; |XX XX X| $DC7A .byte $C9 ; |XX X X| $DC7B .byte $B9 ; |X XXX X| $DC7C .byte $A9 ; |X X X X| $DC7D .byte $99 ; |X XX X| $DC7E .byte $89 ; |X X X| $DC7F .byte $6A ; | XX X X | $DC80 .byte $5A ; | X XX X | $DC81 .byte $4A ; | X X X | $DC82 .byte $3A ; | XXX X | $DC83 .byte $00 ; | X X X | $DC84 .byte $00 ; | X X X | $DC84 .byte $00 ; | X X X | $DC84 .byte $00 ; | X X X | $DC84 .byte $00 ; | X X X | $DC84 .byte $00 ; | X X X | $DC84 .byte $00 ; | X X X | $DC84 InterMusic0: .byte $14 ; | X X | $FCA6 .byte $14 ; | X X | $FCA7 .byte $14 ; | X X | $FCA8 .byte $15 ; | X X X| $FCA9 .byte $14 ; | X X | $FCAA .byte $14 ; | X X | $FCAB .byte $13 ; | X XX| $FCAC .byte $13 ; | X XX| $FCAD .byte $14 ; | X X | $FCAE .byte $14 ; | X X | $FCAF .byte $14 ; | X X | $FCB0 .byte $15 ; | X X X| $FCB1 .byte $14 ; | X X | $FCB2 .byte $14 ; | X X | $FCB3 .byte $16 ; | X XX | $FCB4 .byte $16 ; | X XX | $FCB5 .byte $14 ; | X X | $FCB6 .byte $14 ; | X X | $FCB7 .byte $14 ; | X X | $FCB8 .byte $15 ; | X X X| $FCB9 .byte $14 ; | X X | $FCBA .byte $14 ; | X X | $FCBB .byte $13 ; | X XX| $FCBC .byte $12 ; | X X | $FCBD .byte $11 ; | X X| $FCBE .byte $14 ; | X X | $FCBF .byte $15 ; | X X X| $FCC0 .byte $16 ; | X XX | $FCC1 .byte $14 ; | X X | $FCC2 .byte $14 ; | X X | $FCC3 .byte $16 ; | X X | $FCC4 LFF1B: .byte $00 ; | | $FF1B (shared) .byte $00 ; | | $FF1C .byte $80 ; |X | $FF1D .byte $A0 ; |X X | $FF1E .byte $A8 ; |X X X | $FF1F .byte $AA ; |X X X X | $FF20 .byte $AA ; |X X X X | $FF21 .byte $AA ; |X X X X | $FF22 .byte $AA ; |X X X X | $FF23 .byte $AA ; |X X X X | $FF24 IF ColorDots ;section 2 LDD3F: .byte $00 ; | X | $FD3F .byte $02 ; | X X | $FD40 .byte $20 ; | X X | $FD41 .byte $22 ; | X X X | $FD42 .byte $80 ; |X X | $FD43 .byte $82 ; |X X X | $FD44 .byte $A0 ; |X X X | $FD45 .byte $A2 ; |X X X X | $FD46 LDD47: .byte $00 ; | | $FD47 .byte $40 ; | X | $FD48 .byte $10 ; | X | $FD49 .byte $50 ; | X X | $FD4A .byte $04 ; | X | $FD4B .byte $44 ; | X X | $FD4C .byte $14 ; | X X | $FD4D .byte $54 ; | X X X | $FD4E .byte $01 ; | X| $FD4F .byte $41 ; | X X| $FD50 .byte $11 ; | X X| $FD51 .byte $51 ; | X X X| $FD52 .byte $05 ; | X X| $FD53 .byte $45 ; | X X X| $FD54 .byte $15 ; | X X X| $FD55 .byte $55 ; | X X X X| $FD56 LDD57: .byte $00 ; | | $FD57 .byte $80 ; |X | $FD58 .byte $20 ; | X | $FD59 .byte $A0 ; |X X | $FD5A ;section 5 LDD5B: .byte $00 ; | X| $FD5B .byte $04 ; | X X| $FD5C .byte $10 ; | X X| $FD5D .byte $14 ; | X X X| $FD5E .byte $40 ; | X X| $FD5F .byte $44 ; | X X X| $FD60 .byte $50 ; | X X X| $FD61 .byte $54 ; | X X X X| $FD62 ;section 6 LDD63: .byte $00 ; |X | $FD63 .byte $20 ; |X X | $FD64 .byte $08 ; |X X | $FD65 .byte $28 ; |X X X | $FD66 .byte $02 ; |X X | $FD67 .byte $22 ; |X X X | $FD68 .byte $0A ; |X X X | $FD69 .byte $2A ; |X X X X | $FD6A LDD6B: .byte $00 ; | | $FD6B .byte $02 ; | X | $FD6C .byte $08 ; | X | $FD6D .byte $0A ; | X X | $FD6E .byte $20 ; | X | $FD6F .byte $22 ; | X X | $FD70 .byte $28 ; | X X | $FD71 .byte $2A ; | X X X | $FD72 .byte $80 ; |X | $FD73 .byte $82 ; |X X | $FD74 .byte $88 ; |X X | $FD75 .byte $8A ; |X X X | $FD76 .byte $A0 ; |X X | $FD77 .byte $A2 ; |X X X | $FD78 .byte $A8 ; |X X X | $FD79 .byte $AA ; |X X X X | $FD7A ;section 3 LDD7B: .byte $00 ; | X | $FD7B .byte $80 ; |X X | $FD7C .byte $20 ; | X X | $FD7D .byte $A0 ; |X X X | $FD7E .byte $01 ; | X X| $FD7F .byte $81 ; |X X X| $FD80 .byte $21 ; | X X X| $FD81 .byte $A1 ; |X X X X| $FD82 ELSE ;section 2 LDD3F: .byte $08 ; | X | $FD3F .byte $0A ; | X X | $FD40 .byte $28 ; | X X | $FD41 .byte $2A ; | X X X | $FD42 .byte $88 ; |X X | $FD43 .byte $8A ; |X X X | $FD44 .byte $A8 ; |X X X | $FD45 .byte $AA ; |X X X X | $FD46 LDD47: .byte $00 ; | | $FD47 .byte $40 ; | X | $FD48 .byte $10 ; | X | $FD49 .byte $50 ; | X X | $FD4A .byte $04 ; | X | $FD4B .byte $44 ; | X X | $FD4C .byte $14 ; | X X | $FD4D .byte $54 ; | X X X | $FD4E .byte $01 ; | X| $FD4F .byte $41 ; | X X| $FD50 .byte $11 ; | X X| $FD51 .byte $51 ; | X X X| $FD52 .byte $05 ; | X X| $FD53 .byte $45 ; | X X X| $FD54 .byte $15 ; | X X X| $FD55 .byte $55 ; | X X X X| $FD56 LDD57: .byte $00 ; | | $FD57 .byte $80 ; |X | $FD58 .byte $20 ; | X | $FD59 .byte $A0 ; |X X | $FD5A ;section 5 LDD5B: .byte $01 ; | X| $FD5B .byte $05 ; | X X| $FD5C .byte $11 ; | X X| $FD5D .byte $15 ; | X X X| $FD5E .byte $41 ; | X X| $FD5F .byte $45 ; | X X X| $FD60 .byte $51 ; | X X X| $FD61 .byte $55 ; | X X X X| $FD62 ;section 6 LDD63: .byte $80 ; |X | $FD63 .byte $A0 ; |X X | $FD64 .byte $88 ; |X X | $FD65 .byte $A8 ; |X X X | $FD66 .byte $82 ; |X X | $FD67 .byte $A2 ; |X X X | $FD68 .byte $8A ; |X X X | $FD69 .byte $AA ; |X X X X | $FD6A LDD6B: .byte $00 ; | | $FD6B .byte $02 ; | X | $FD6C .byte $08 ; | X | $FD6D .byte $0A ; | X X | $FD6E .byte $20 ; | X | $FD6F .byte $22 ; | X X | $FD70 .byte $28 ; | X X | $FD71 .byte $2A ; | X X X | $FD72 .byte $80 ; |X | $FD73 .byte $82 ; |X X | $FD74 .byte $88 ; |X X | $FD75 .byte $8A ; |X X X | $FD76 .byte $A0 ; |X X | $FD77 .byte $A2 ; |X X X | $FD78 .byte $A8 ; |X X X | $FD79 .byte $AA ; |X X X X | $FD7A ;section 3 LDD7B: .byte $08 ; | X | $FD7B .byte $88 ; |X X | $FD7C .byte $28 ; | X X | $FD7D .byte $A8 ; |X X X | $FD7E .byte $09 ; | X X| $FD7F .byte $89 ; |X X X| $FD80 .byte $29 ; | X X X| $FD81 .byte $A9 ; |X X X X| $FD82 ENDIF ORG $1C00 RORG $DC00 FruitGFX: Fruit0: .byte $00 ; | | $DEF8 .byte $06 ; | XX | $DEEA .byte $6F ; | XX XXXX| $DEE9 .byte $F6 ; |XXXX XX | $DEE8 .byte $64 ; | XX X | $DEE7 .byte $18 ; | XX | $DEE6 .byte $10 ; | X | $DEE5 .byte $00 ; | | $DEEB Fruit1: .byte $18 ; | XX | $DE8B .byte $3C ; | XXXX | $DE8A .byte $7A ; | XXXX X | $DE89 .byte $6E ; | XX XXX | $DE88 .byte $7A ; | XXXX X | $DE87 .byte $6E ; | XX XXX | $DE86 .byte $3C ; | XXXX | $DE85 .byte $00 ; | | $DEEB Fruit2: Fruit3: .byte $3C ; | XXXX | $DE91 .byte $7E ; | XXXXXX | $DE96 .byte $FF ; |XXXXXXXX| $DE93 .byte $FF ; |XXXXXXXX| $DE94 .byte $FF ; |XXXXXXXX| $DE95 .byte $72 ; | XXX X | $DE92 .byte $3C ; | XXXX | $DE97 .byte $00 ; | | $DEEB Fruit4: Fruit5: .byte $36 ; | XX XX | $DEA3 .byte $7E ; | XXXXXX | $DEA2 .byte $FF ; |XXXXXXXX| $DEA0 .byte $FF ; |XXXXXXXX| $DEA0 .byte $76 ; | XXX XX | $DE9F .byte $08 ; | X | $DE9E .byte $0C ; | XX | $DE9D .byte $00 ; | | $DEEB Fruit6: Fruit7: .byte $1C ; | XXX | $DEAA .byte $3E ; | XXXXX | $DEAB .byte $3E ; | XXXXX | $DEAC .byte $3E ; | XXXXX | $DEAD .byte $3E ; | XXXXX | $DEAE .byte $1C ; | XXX | $DEAF .byte $08 ; | X | $DEA9 .byte $00 ; | | $DEEB Fruit8: Fruit9: .byte $08 ; | X | $DEB9 .byte $08 ; | X | $DEBA .byte $08 ; | X | $DEBB .byte $1C ; | XXX | $DEB8 .byte $3E ; | XXXXX | $DEB7 .byte $6B ; | XX X XX| $DEB6 .byte $41 ; | X X| $DEB5 .byte $00 ; | | $DEEB FruitA: FruitB: .byte $36 ; | XX XX | $DEC7 .byte $6B ; | XX X XX| $DEC6 .byte $7F ; | XXXXXXX| $DEC5 .byte $3E ; | XXXXX | $DEC3 .byte $3E ; | XXXXX | $DEC4 .byte $1C ; | XXX | $DEC2 .byte $08 ; | X | $DEC1 .byte $00 ; | | $DEEB FruitC: FruitD: FruitE: FruitF: .byte $18 ; | XX | $DECF .byte $1C ; | XXX | $DED0 .byte $18 ; | XX | $DED1 .byte $1C ; | XXX | $DED2 .byte $18 ; | XX | $DED3 .byte $24 ; | X X | $DECE .byte $3C ; | XXXX | $DECD .byte $00 ; | | $DEEB ;free .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB ORG $1C80 RORG $DC80 .byte $07 ; | XXX| $FDB5 .byte $05 ; | X X| $FDB6 .byte $1F ; | XXXXX| $FDB7 .byte $54 ; | X X X | $FDB8 .byte $5C ; | X XXX | $FDB9 .byte $40 ; | X | $FDBA .byte $40 ; | X | $FDAF .byte $00 ; | | $DEEB .byte $07 ; | XXX| $FDB5 .byte $05 ; | X X| $FDB6 .byte $DF ; |XX XXXXX| $FDB7 .byte $54 ; | X X X | $FDB8 .byte $DC ; |XX XXX | $FDB9 .byte $40 ; | X | $FDBA .byte $C0 ; |XX | $FDAF .byte $00 ; | | $DEEB .byte $07 ; | XXX| $FDB5 .byte $05 ; | X X| $FDB6 .byte $DF ; |XX XXXXX| $FDB7 .byte $54 ; | X X X | $FDB8 .byte $DC ; |XX XXX | $FDB9 .byte $80 ; |X | $FDBA .byte $C0 ; |XX | $FDAF .byte $00 ; | | $DEEB .byte $07 ; | XXX| $FDB5 .byte $05 ; | X X| $FDB6 .byte $1F ; | XXXXX| $FDB7 .byte $54 ; | X X X | $FDB8 .byte $5C ; | X XXX | $FDB9 .byte $20 ; | X | $FDBA .byte $E0 ; |XXX | $FDAF .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB .byte $E9 ; |XXX X X| $DEEB .byte $4A ; | X X X | $DEEB .byte $4C ; | X XX | $DEEB .byte $CA ; |XX X X | $DEEB .byte $49 ; | X X X| $DEEB .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB .byte $E9 ; |XXX X X| $DEEB .byte $8A ; |X X X | $DEEB .byte $EC ; |XXX XX | $DEEB .byte $2A ; | X X X | $DEEB .byte $E9 ; |XXX X X| $DEEB .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB .byte $E9 ; |XXX X X| $DEEB .byte $2A ; | X X X | $DEEB .byte $6C ; | XX XX | $DEEB .byte $2A ; | X X X | $DEEB .byte $E9 ; |XXX X X| $DEEB .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB .byte $E9 ; |XXX X X| $DEEB .byte $2A ; | X X X | $DEEB .byte $EC ; |XXX XX | $DEEB .byte $8A ; |X X X | $DEEB .byte $E9 ; |XXX X X| $DEEB .byte $00 ; | | $DEEB .byte $00 ; | | $DEEB ;free .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $FDF8 .byte $00 ; | | $DEEB ORG $1D00 RORG $DD00 .byte $00 ; | | $FD00 .byte $00 ; | | $FD01 .byte $00 ; | | $FD02 .byte $E7 ; |XXX XXX| $FD03 .byte $C6 ; |XX XX | $FD04 .byte $E7 ; |XXX XXX| $FD05 .byte $00 ; | | $FD06 .byte $00 ; | | $FD07 PGFX: RPac1gfx: .byte $38 ; | XXX | $FDAF (08) .byte $7C ; | XXXXX | $FDB0 .byte $FE ; |XXXXXXX | $FDB1 .byte $FE ; |XXXXXXX | $FDB2 .byte $FE ; |XXXXXXX | $FDB3 .byte $7C ; | XXXXX | $FDB4 .byte $38 ; | XXX | $FDAF PT200: IF EQUALPTS .byte $07 ; | XXX| $FDB5 (0F) .byte $05 ; | X X| $FDB6 .byte $1F ; | XXXXX| $FDB7 .byte $F4 ; |XXXX X | $FDB8 .byte $5C ; | X XXX | $FDB9 .byte $20 ; | X | $FDBA .byte $E0 ; |XXX | $FDAF ELSE .byte $00 ; | | $FDB5 .byte $EE ; |XXX XXX | $FDB6 .byte $8A ; |X X X | $FDB7 .byte $EA ; |XXX X X | $FDB8 .byte $2A ; | X X X | $FDB9 .byte $EE ; |XXX XXX | $FDBA .byte $00 ; | | $FDAF ENDIF RPac2gfx: .byte $38 ; | XXX | $FDB5 ;(16) .byte $7C ; | XXXXX | $FDB6 .byte $FE ; |XXXXXXX | $FDB7 .byte $E0 ; |XXX | $FDB8 .byte $FE ; |XXXXXXX | $FDB9 .byte $7C ; | XXXXX | $FDBA .byte $38 ; | XXX | $FDAF RPac3gfx: .byte $38 ; | XXX | $FDBB .byte $7C ; | XXXXX | $FDBC .byte $F0 ; |XXXX | $FDBD .byte $E0 ; |XXX | $FDBE .byte $F0 ; |XXXX | $FDBF .byte $7C ; | XXXXX | $FDC0 .byte $38 ; | XXX | $FDCE RPac4gfx: RPac5gfx: .byte $3C ; | XXXX | $FDBB .byte $78 ; | XXXX | $FDBC .byte $E0 ; |XXX | $FDBD .byte $C0 ; |XX | $FDBE .byte $E0 ; |XXX | $FDBF .byte $78 ; | XXXX | $FDC0 .byte $3C ; | XXXX | $FDCE Death4gfx: .byte $38 ; | XXX | $FDCE .byte $7C ; | XXXXX | $FDCF .byte $FE ; |XXXXXXX | $FDD0 .byte $FE ; |XXXXXXX | $FDD1 .byte $EE ; |XXX XXX | $FDD2 .byte $C6 ; |XX XX | $FDD3 .byte $44 ; | X X | $FDD4 Death6gfx: .byte $38 ; | XXX | $FDCE .byte $7C ; | XXXXX | $FDCF .byte $FE ; |XXXXXXX | $FDD0 .byte $EE ; |XXX XXX | $FDD1 .byte $C6 ; |XX XX | $FDD2 .byte $82 ; |X X | $FDD3 ; .byte $00 ; | | $FDD4 Sizes: .byte $00 ;shared .byte $00 .byte $01 .byte $03 SmallPacAnim: .byte FruitGFX ;2<- hibyte GFX STA pacmanPointer+1 ;3 LDA #$33 ;2 STA pacmanOffset ;3 JMP PacSpriteDone ;3 UsePacSprite2: LDA gameState ;3 ROL ;2 BPL LF800 ;2 LDA EnergizerTime ;3 LSR ;2 LSR ;2 AND #$0F ;2 TAX ;2 LDA LFDFA,X ;4 BNE LF80F ;2 LF800: LDA #$02 ;2 <-Pts color offset BIT ghostEatingDelay ;3 BMI SkipAnimation ;2 TYA ;2 pull pac animation speed AND #$07 ;2 keep values 0-7 TAX ;2 LDA LFDC2,X ;4 load pac frame ; LDX gameState ;3 ??? ; BPL LF80E ;2 ; LDA LFDC2 ;4 ;; LDA #PGFX ;2<- hibyte GFX STA pacmanPointer+1 ;3 LDA pacmanY ;3 CLC ;2 ADC #$0B ;2 STA pacmanOffset ;3 PacSpriteDone: STA WSYNC ;3 ;from PacSpriteDone INC frameCount ;5 BNE LF83D ;2 INC gameTimer ;5 BEQ LF839 ;2 ; DEC vitaminTimer ;5 ; BNE LF835 ;2 LDX vitaminTimer ;3 BEQ LF835 ;2 DEX ;2 STX vitaminTimer ;3 BNE LF835 ;2 LDY #$07 ;2 LDA gameState ;3 EOR #$02 ;2 STA gameState ;3 AND #$02 ;2 BNE LF831 ;2 LDA remainingLives ;3 ORA #$08 ;2 STA remainingLives ;3 BNE LF833 ;2 LF831: ;skip if flag already set LDA remainingLives ;3 AND #$08 ;2 BEQ LF832 ;2 LDA gameState ;3 AND #$FD ;2 STA gameState ;3 JMP LF833 ;3 LF832: LDY #$03 ;2 LDA gameState ;3 AND #$20 ;2 BEQ LF833 ;2 DEY ;2 LF833: STY vitaminTimer ;3 LF835: LDA gameTimer+1 ;3 BEQ LF83D ;2 LF839: INC gameTimer+1 ;5 BEQ LF839 ;2 LF83D: STA WSYNC ;3 LDA #>MGFX ;2<- hibyte GFX STA ghostPointer+1 ;3 LDX #$07 ;2 STX ghostIndex ;3 DEX ;2 STX pacmanIndex ;3 LDX #$FF ;2 LDA #$08 ;2 AND SWCHB ;4 BNE LF85E ;2 LDX #$0F ;2 LF85E: TXA ;2 LDX gameTimer+1 ;3 BEQ LF865 ;2 EOR #$08 ;2 LF865: STA CopySWCHB ;3 LDA #$07 ;2 STA backgroundColor ;3 LDA #$08 ;2 STA playfieldColor ;3 ; LDA temporaryPlayerVars+19 ;3 LDA #$09 ;2 STA tempColorPtr ;3 LDA #T2 ;2 STA TIM64T ;4 STA WSYNC ;3 LDX #$00 ;2 STX VSYNC ;3 ; LDA currentPlayerVars+19 ;3 LDA #$0A ;2 STA tempColorPtr+1 ;3 LDA gameTimer+1 ;3 BEQ LF88A ;2 LDA INPT4 ;3 BPL LF890 ;2 LF88A: LDA SWCHB ;4 ROR ;2 BCS LF8C1 ;2 LF890: LDA #$FF ;2 STA mazeIndex+1 ;3 JSR LFC7D ;6 STA tempRemainingLives ;3 was $FF STA gameTimer+1 ;3 LDA #$08 ;2 STA gameState ;3 LDA #$0B ;2 LDX gameSelection ;3 ;higher games ; LDA gameSelection ;3 ; SEC ;2 ; SBC #$02 ;2 ; AND #$0F ;2 ; CLC ;2 ; ADC #$02 ;2 ; TAX ;2 ; LDA #$0B ;2 CPX #$08 ;2 BPL LF8A9 ;2 LDA #$09 ;2 LF8A9: STA SwapP0 ;3 JSR LFBF4 ;6 LDA playerState ;3 AND #$7F ;2 STA playerState ;3 ASL ;2 BPL LF909 ;2 JSR LFB9F ;6 JSR LFBF4 ;6 INC tempRemainingLives ;5 BNE LF909 ;2 LF8C1: ROR ;2 BCS LF909 ;2 LDA selectDebounce ;3 BNE LF8FF ;2 LF8C8: INC gameSelection ;5 LDA #$60 ;2 STA pacmanY ;3 LDA #$10 ;2 STA gameState ;3 LDA playerState ;3 EOR #$40 ;2 STA playerState ;3 JSR LFC7D ;6 STA AUDV0 ;3 STA AUDV1 ;3 STA gameState+1 ;3 LDA #$01 ;2 STA gameTimer+1 ;3 LDA #Time ;2 STA frameCount ;3 LDA gameSelection ;3 ;higher games CMP #$12 ;2 BNE LF8EF ;2 LDA #$02 ;2 LF8EF: STA gameSelection ;3 LSR ;2 SEC ;2 SBC #$02 ;2 AND #$07 ;2 BNE LF8FB ;2 LDA #$08 ;2 LF8FB: STA playerScoreL0 ;3 STA playerScoreL1 ;3 LF8FF: INC selectDebounce ;5 LDA selectDebounce ;3 AND #$1F ;2 BNE LF90D ;2 BEQ LF8C8 ;2 LF909: LDY #$00 ;2 STY selectDebounce ;3 LF90D: LDA #$DF ;2 AND gameState ;3 STA gameState ;3 LDA #$80 ;2 BIT playerState ;3 BMI LF91A ;2 LSR ;2 LF91A: LDX #$20 ;2 AND SWCHB ;4 BNE LF923 ;2 LDX #$00 ;2 LF923: TXA ;2 ORA gameState ;3 STA gameState ;3 LDA frameCount ;3 AND #$03 ;2 TAX ;2 TAY ;2 ;newb ;ok LDA ghostDirections,X ;4 AND #$04 ;2 BEQ LF93D ;2 branch if no bluetime LDA currentPlayerVars+18 ;3 ;ok ;removed ; BPL LF93D ;2 branch if no bluetime LDY #$04 ;2 load blue color pointer AND #$40 ;2 BNE LF93D ;2 LDA frameCount ;3 bugfix for flash AND #$08 ;2 BNE LF93D ;2 INY ;2 change to white pointer LF93D: STY ghostColorPtr ;3 set monster color pointer INX ;2 ;80 = moving vertical ;08 = eyes LDA objectDirections,X ;4 AND #$08 ;2 BEQ LF94C ;2 <- branch if not eyes DEC ghostPointer+1 ;5 flip to lower GFX page (holding eye bitmap) LDA #$05 ;2 save pointer to "white" STA ghostColorPtr ;3 LDA ghostPointer ;3 AND #$C0 ;2 ...and drop off the lower nybble from bitmap pointer STA ghostPointer ;3 JMP LF950 ;2 LF94C: LDA ghostEatingDelay ;3 BMI LF95D ;2 skip if ghost being eaten (points displayed) LF950: BIT vitaminTimer ;3 BMI LF95D ;2 skip if board flashing LDA gameState ;3 BMI LF95D ;2 skip if player dying JSR LF9AA ;6 ...otherwise, move ghost JSR LF9AA ;6 JSR LF9AA ;6 LF95D: LDA objectX,X ;4 STA currentGhostX ;3 LDA objectY,X ;4 CLC ;2 ADC #$0B ;2 STA ghostOffset ;3 LDA objectDirections,X ;4 AND #$20 ;2 BEQ LF973 ;2 LDY #$00 ;2 JSR LFC8B ;6 LF973: LDA pacmanDirection ;3 AND #$20 ;2 BEQ LF980 ;2 LDY #$01 ;2 LDX #$00 ;2 JSR LFC8B ;6 LF980: JMP LF07F ;3 jump to bank 1 LF9AA: LDA objectX,X ;4 CMP #$4C ;2 BNE LF9D2 ;2 LDA objectY,X ;4 check if eyes reached box... CMP #$14 ;2 BNE LF9C0 ;2 LDA objectDirections,X ;4 AND #$08 ;2 BNE LF9E5b ;2 LDA frameCount ;3 AND #$01 ;2 TAY ;2 BPL LF9E5 ;2 LF9C0: CMP #$1E ;2 BNE LF9D2 ;2 ;removed...die twice?? ; LDA currentPlayerVars+18 ;3 ; BMI LF9E4 ;2 ;attempt, no luck LDA gameState ;3 BMI LF9E4 ;2 Cleareye: LDA objectDirections,X ;4 AND #$F3 ;2 clear eye & blue flag STA objectDirections,X ;4 ;release timer ; BIT gameState ;3 ; BNE LF9E4 ;2 LDA frameCount ;3 ; AND #$7F ;2 CMP ReleaseTime,X ;4 BCC LF9E4 ;2 LDY #$03 ;2 set to move up BNE LF9E5 ;2 LF9D2: LDA objectDirections,X ;4 AND #$20 ;2 BNE LF9E4 ;2 LDY #$00 ;2 LDA objectY,X ;4 BEQ LFBBC ;2 LFBB4: INY ;2 SEC ;2 SBC #$0A ;2 BEQ LFBBC ;2 BPL LFBB4 ;2 LFBBC: STY kernelSection ;3 STA gameSelection+1 ;3 LDA objectX,X ;4 AND #$03 ;2 STA gameSelection+2 ;3 LDA kernelSection ;3 LSR ;2 PHP ;3 LDA objectX,X ;4 LSR ;2 LSR ;2 PLP ;4 BCC LFBD4 ;2 CLC ;2 ADC #$28 ;2 LFBD4: STA waferIndex ;3 ASL ;2 ASL ;2 ROR kernelSection ;5 ORA kernelSection ;3 ROL kernelSection ;5 STA joystickValue+1 ;3 JSR LFA26 ;6 LDA objectDirections,X ;4 AND #$20 ;2 BEQ LF9EE ;2 LF9E4: RTS ;6 LF9E5b: LDY #$02 ;2 move down LF9E5: LDA objectDirections,X ;4 AND #$3F ;2 ORA LFE63,Y ;4 STA objectDirections,X ;4 LF9EE: LDA SwapP0,X ;4 ASL ;2 ASL ;2 ASL ;2 ASL ;2 CLC ;2 ADC SwapP0,X ;4 STA SwapP0,X ;4 BCC LF9E4 ;2 LDY #$00 ;2 LDA objectDirections,X ;4 AND #$EF ;2 STA objectDirections,X ;4 ROL ;2 BPL LFA09 ;2 DEY ;2 BMI LFA0A ;2 LFA09: INY ;2 LFA0A: TYA ;2 BCS LFA1A ;2 ADC objectX,X ;4 CMP #$02 ;2 BEQ LFA19 ;2 CMP #$96 ;2 BEQ LFA19 ;2 STA objectX,X ;4 LFA19: RTS ;6 LFA1A: CLC ;2 ADC objectY,X ;4 BMI LFA25 ;2 CMP #$47 ;2 BEQ LFA25 ;2 STA objectY,X ;4 LFA25: RTS ;6 LFA26: LDA gameSelection+2 ;3 ORA gameSelection+1 ;3 BNE LF9E4 ;2 LDA objectDirections,X ;4 AND #$10 ;2 BNE LF9E4 ;2 LDA gameTimer+1 ;3 BEQ LFA39 ;2 JMP LFAB9 ;3 LFA39: LDA objectDirections,X ;4 AND #$08 ;2 BEQ LFA49 ;2 ; LDA #$58 ;2 ; STA kernelPFValues+1 ;3 ; LDA #$1F ;2 LDA #$4C ;2 STA kernelPFValues+1 ;3 LDA #$14 ;2 STA kernelPFValues ;3 BNE LFA99 ;2 LFA49: LDA objectX,X ;4 CMP #$4C ;2 BNE LFA63 ;2 LDA mazeIndex+1 ;3 AND #$0F ;2 BNE LFA63 ;2 LDA objectY,X ;4 BNE LFA5C ;2 JMP LFD32 ;3 LFA5C: CMP #$46 ;2 BNE LFA63 ;2 JMP LFD26 ;3 LFA63: LDA pacmanX ;3 copy player location to temps STA kernelPFValues+1 ;3 LDA pacmanY ;3 STA kernelPFValues ;3 ;original LDA currentPlayerVars+18 ;3 energizer active? BPL LFA82 ;2 branch if not ;changed...allow ghosts to run away seperately LDA objectDirections,X ;4 AND #$04 ;2 check for blue flag BEQ LFA82 ;2 branch if not blue LDA pacmanX ;3 use inverse locations instead CLC ;2 (i.e. run away) ADC #$60 ;2 EOR #$FF ;2 STA kernelPFValues+1 ;3 LDA pacmanY ;3 CLC ;2 ADC #$B1 ;2 EOR #$FF ;2 ...not saved?? ;added (missed in original??) STA kernelPFValues ;3 JMP LFA99 ;3 LFA82: DEC SwapP1,X ;6 BNE LFA99 ;2 LDA currentPlayerVars+17 ;3 LSR ;2 TAY ;2 LDA LFE6F,Y ;4 STA SwapP1,X ;4 TXA ;2 LSR ;2 LSR ;2 BCC LFAB9 ;2 INC SwapP1,X ;6 JMP LFAB9 ;3 LFA99: LDA objectX,X ;4 CMP kernelPFValues+1 ;3 BEQ LFAAA ;2 BCC LFAA7 ;2 JSR LFB70 ;6 JMP LFAAA ;3 LFAA7: JSR LFB87 ;6 LFAAA: LDA objectY,X ;4 CMP kernelPFValues ;3 BCC LFAB6 ;2 JSR LFB36 ;6 JMP LFAB9 ;3 LFAB6: JSR LFB5C ;6 LFAB9: LDA objectDirections,X ;4 ROL ;2 BCS LFAC2 ;2 BMI LFAE0 ;2 BPL LFAD2 ;2 LFAC2: BPL LFAEE ;2 ; JSR LFBE0 ;6 LDA mazeIndex+1 ;3 ASL ;2 EOR mazeIndex+1 ;3 ASL ;2 ASL ;2 ROL mazeIndex+1 ;5 LDA mazeIndex+1 ;3 AND #$07 ;2 TAY ;2 LDA LFE6A,Y ;4 AND mazeIndex+1 ;3 BNE LFACC ;2 JSR LFB36 ;6 LFACC: JSR LFB19 ;6 JSR LFB36 ;6 LFAD2: ; JSR LFBE0 ;6 LDA mazeIndex+1 ;3 ASL ;2 EOR mazeIndex+1 ;3 ASL ;2 ASL ;2 ROL mazeIndex+1 ;5 LDA mazeIndex+1 ;3 AND #$07 ;2 TAY ;2 LDA LFE6A,Y ;4 AND mazeIndex+1 ;3 BNE LFADA ;2 JSR LFB87 ;6 LFADA: JSR LFAFC ;6 JSR LFB87 ;6 LFAE0: ; JSR LFBE0 ;6 LDA mazeIndex+1 ;3 ASL ;2 EOR mazeIndex+1 ;3 ASL ;2 ASL ;2 ROL mazeIndex+1 ;5 LDA mazeIndex+1 ;3 AND #$07 ;2 TAY ;2 LDA LFE6A,Y ;4 AND mazeIndex+1 ;3 BNE LFAE8 ;2 JSR LFB70 ;6 LFAE8: JSR LFAFC ;6 JSR LFB70 ;6 LFAEE: ; JSR LFBE0 ;6 LDA mazeIndex+1 ;3 ASL ;2 EOR mazeIndex+1 ;3 ASL ;2 ASL ;2 ROL mazeIndex+1 ;5 LDA mazeIndex+1 ;3 AND #$07 ;2 TAY ;2 LDA LFE6A,Y ;4 AND mazeIndex+1 ;3 BNE LFAF6 ;2 JSR LFB5C ;6 LFAF6: JSR LFB19 ;6 JSR LFB5C ;6 LFAFC: ; JSR LFBE0 ;6 LDA mazeIndex+1 ;3 ASL ;2 EOR mazeIndex+1 ;3 ASL ;2 ASL ;2 ROL mazeIndex+1 ;5 LDA mazeIndex+1 ;3 AND #$07 ;2 TAY ;2 LDA LFE6A,Y ;4 AND mazeIndex+1 ;3 JSR LFB05 ;6 PLA ;4 PLA ;4 RTS ;6 LFB05: BNE LFB10 ;2 JSR LFB36 ;6 JSR LFB5C ;6 PLA ;4 PLA ;4 RTS ;6 LFB10: JSR LFB5C ;6 JSR LFB36 ;6 PLA ;4 PLA ;4 RTS ;6 LFB19: ; JSR LFBE0 ;6 LDA mazeIndex+1 ;3 ASL ;2 EOR mazeIndex+1 ;3 ASL ;2 ASL ;2 ROL mazeIndex+1 ;5 LDA mazeIndex+1 ;3 AND #$07 ;2 TAY ;2 LDA LFE6A,Y ;4 AND mazeIndex+1 ;3 JSR LFB22 ;6 PLA ;4 PLA ;4 RTS ;6 LFB22: BNE LFB2D ;2 JSR LFB70 ;6 JSR LFB87 ;6 PLA ;4 PLA ;4 RTS ;6 LFB2D: JSR LFB87 ;6 JSR LFB70 ;6 PLA ;4 PLA ;4 RTS ;6 LFB36: LDA kernelSection ;3 BEQ LFB5B ;2 LDY waferIndex ;3 LDA LFE13,Y ;4 ROL ;2 BPL LFB5B ;2 LDY #$03 ;2 LFB44: TXA ;2 BEQ LFB50 ;2 LDA objectDirections,X ;4 AND #$C0 ;2 CMP LFE67,Y ;4 BEQ LFB5B ;2 LFB50: LDA objectDirections,X ;4 AND #$3F ;2 ORA LFE63,Y ;4 STA objectDirections,X ;4 PLA ;4 PLA ;4 LFB5B: RTS ;6 LFB5C: LDA kernelSection ;3 CMP #$07 ;2 BEQ LFB5B ;2 LDY waferIndex ;3 LDA LFE13,Y ;4 ROL ;2 ROL ;2 BPL LFB5B ;2 LDY #$02 ;2 JMP LFB44 ;3 LFB70: LDY waferIndex ;3 LDA kernelSection ;3 CMP #$03 ;2 BNE LFB7C ;2 CPY #$3E ;2 BEQ LFB5B ;2 LFB7C: DEY ;2 LDA LFE13,Y ;4 BMI LFB5B ;2 LDY #$01 ;2 JMP LFB44 ;3 LFB87: LDY waferIndex ;3 LDA kernelSection ;3 CMP #$03 ;2 BNE LFB93 ;2 CPY #$38 ;2 BEQ LFB5B ;2 LFB93: INY ;2 INY ;2 LDA LFE13,Y ;4 BMI LFB5B ;2 LDY #$00 ;2 JMP LFB44 ;3 LFB9F: LDX #$13 ;2 LFBA1: LDA currentPlayerVars,X ;4 LDY temporaryPlayerVars,X ;4 STA temporaryPlayerVars,X ;4 STY currentPlayerVars,X ;4 DEX ;2 BPL LFBA1 ;2 RTS ;6 LFBF4: LDA #$09 ;2 STA temporaryPlayerVars+19 ;3 LDA #$0A ;2 STA currentPlayerVars+19 ;3 ; LDA #$03 ;2 LDA #$02 ;2 STA remainingLives ;3 LDA gameSelection ;3 SEC ;2 SBC #$02 ;2 AND #$06 ;2 CLC ;2 ADC #$04 ;2 STA currentPlayerVars+17 ;3 IF INTEST LFC0C: LDA #$C0 ;2 STA currentPlayerVars+13 ;3 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 NOP ;2 ELSE LFC0C: LDX #$0F ;2 LDA #$FF ;2 LFC10: STA currentPlayerVars,X ;4 DEX ;2 BPL LFC10 ;2 LDA #$7F ;2 STA currentPlayerVars+6 ;3 LDA #$FE ;2 STA currentPlayerVars+2 ;3 LDA #$3C ;2 STA currentPlayerVars+18 ;3 ENDIF LFC21: LDA gameState ;3 ORA #$80 ;2 STA gameState ;3 ; LDX #$3C ;2 time (new life) LDX #$20 ;2 time (new life) LDA playerScoreL0 ;3 ORA playerScoreM0 ;3 ORA playerScoreH0 ;3 BNE LFC28 ;2 LDX #$78 ;2 time (new life w/tune) LFC28: STX EnergizerTime ;3 XXXXXXXXXXXXX LDX #$04 ;2 LDA #$4C ;2 ;reset sprites LFC2F: STA objectX,X ;4 LDY #$1E ;2 STY objectY,X ;4 LDY #$03 ;2 STY objectDirections,X ;4 set all moving up DEX ;2 BPL LFC2F ;2 ; LDA #$3C ;2 LDA #$32 ;2 STA pacmanY ;3 ;added ; LDA #$07 ;2 reset timer ; STA vitaminTimer ;3 ; LDA remainingLives ;3 ; AND #$F7 ;2 clear off fruit flag ; STA remainingLives ;3 ; LDA gameState ;3 ; AND #$FD ;2 ; STA gameState ;3 ; LDA #$80 ;2 LDA #$40 ;2 STA pacmanDirection ;3 ; LDA #$80 ;2 RTS ;6 LFC45: STX loopCount ;3 LDX #$00 ;2 BIT playerState ;3 BPL LFC4E ;2 INX ;2 LFC4E: SED ;2 CLC ;2 LDA playerScore,X ;4 ADC LFF06,Y ;4 STA playerScore,X ;4 LDA playerScoreM0,X ;4 ADC LFF0C,Y ;4 STA playerScoreM0,X ;4 BCC NoAddPlayer ;2 LDA playerScoreH0,X ;4 ADC #$00 ;2 STA playerScoreH0,X ;4 LDA remainingLives ;3 TAX ;2 AND #$04 ;2 BNE NoAddPlayer ;2 INX ;2 TXA ;2 ORA #$04 ;2 STA remainingLives ;3 NoAddPlayer: CLD ;2 LDX loopCount ;3 RTS ;6 LFC7D: LDA #$00 ;2 LDX #$05 ;2 LFC81: STA playerScore,X ;4 DEX ;2 BPL LFC81 ;2 STA remainingLives ;3 STA tempRemainingLives ;3 RTS ;6 LFC8B: LDA objectDirections,X ;4 AND #$10 ;2 BNE LFCA9 ;2 DEC objectY,X ;6 BNE LFCFC ;2 LDA objectDirections,X ;4 BMI LFC9D ;2 LDA #$00 ;2 BEQ LFC9F ;2 LFC9D: LDA #$5B ;2 LFC9F: STA objectY,X ;4 LDA objectDirections,X ;4 ORA #$10 ;2 STA objectDirections,X ;4 BNE LFCFC ;2 LFCA9: LDA objectDirections,X ;4 ROL ;2 BCS LFD00 ;2 BPL LFCE7 ;2 INC objectY,X ;6 LFCB2: LDA objectY,X ;4 CMP #$0B ;2 BNE LFCCA ;2 LDA #$00 ;2 STA objectY,X ;4 LDA #$0B ;2 STA.wy ghostOffset,Y ;5 LDA objectDirections,X ;4 AND #$0F ;2 ORA #$80 ;2 STA objectDirections,X ;4 RTS ;6 LFCCA: CMP #$06 ;2 BPL LFCE1 ;2 STA.wy ghostIndex,Y ;5 TAX ;2 CLC ;2 LDA LFF0D,X ;4 LDX LFF19,Y ;4 ADC ghostPointer,X ;4 STA ghostPointer,X ;4 LDA #$08 ;2 BNE LFCE3 ;2 LFCE1: LDA objectY,X ;4 LFCE3: STA.wy ghostOffset,Y ;5 RTS ;6 LFCE7: INC objectY,X ;6 LDA #$5B ;2 CMP objectY,X ;4 BNE LFCE1 ;2 LDA objectDirections,X ;4 AND #$0F ;2 ORA #$60 ;2 STA objectDirections,X ;4 LFCF7: LDA LFF25,Y ;4 STA objectY,X ;4 LFCFC: LDA #$70 ;2 BNE LFCE3 ;2 LFD00: BMI LFD18 ;2 DEC objectY,X ;6 LDA #$51 ;2 CMP objectY,X ;4 BNE LFCE1 ;2 LDA #$46 ;2 STA objectY,X ;4 LDA objectDirections,X ;4 AND #$0F ;2 ORA #$C0 ;2 STA objectDirections,X ;4 BNE LFCFC ;2 LFD18: DEC objectY,X ;6 BPL LFCB2 ;2 LDA objectDirections,X ;4 AND #$0F ;2 ORA #$A0 ;2 STA objectDirections,X ;4 BNE LFCF7 ;2 LFD26: LDA objectDirections,X ;4 AND #$0F ;2 ORA #$30 ;2 STA objectDirections,X ;4 LDA #$51 ;2 BNE LFD3C ;2 LFD32: LDA objectDirections,X ;4 AND #$0F ;2 ORA #$F0 ;2 STA objectDirections,X ;4 LDA #$0B ;2 LFD3C: STA objectY,X ;4 RTS ;6 START: CLD ;2 SEI ;2 LDX #$FF ;2 TXS ;2 INX ;2 TXA ;2 LF007: STA VSYNC,X ;4 INX ;2 BNE LF007 ;2 JMP Bootscreen_Bankswitch2 ;3 ;Bootscreen_Done: ;wait bwait: LDX INTIM ;4 BNE bwait ;2 Bootscreen_Done: ; LDX #$00 ;2 LDA #$06 ;2 STA gameSelection ;3 LDA #$07 ;2 STA vitaminTimer ;3 DEX ;2 STX gameTimer+1 ;3 STX mazeIndex+1 ;3 JSR LFBF4 ;6 ; LDA #$CB ;2 ; STA playerScoreL0 ;3 ; LSR ;2 ; STA pacmanY ;3 ; LDA #$ED ;2 ; STA playerScoreM0 ;3 ; LDA #$AF ;2 LDA #$BA ;2 STA playerScoreL0 ;3 LSR ;2 STA pacmanY ;3 LDA #$DC ;2 STA playerScoreM0 ;3 LDA #$FE ;2 STA playerScoreH0 ;3 LDX #$04 ;2 LF02C: STA SwapP0,X ;4 DEX ;2 BNE LF02C ;2 ; STA WSYNC ;3 ; LDA #$F0 ;2 ; STA HMM0 ;3 <-missile 1 used for fruit ; LDA #$80 ;2 ; STA HMBL ;3 ; LDX #$06 ;2 ;LF03D: DEX ;2 ; BNE LF03D ;2 ; STA RESBL ;3 ; STA RESM0 ;3 ; STA WSYNC ;3 ; STA HMOVE ;3 STA WSYNC ;3 STA HMCLR ;3 STX gameState ;3 STX remainingLives ;3 JMP LF7D6 ;3 LFF55: LDA gameState+1 ;3 LSR ;2 BCC LFF67 ;2 LDA #$04 ;2 STA kernelPFValues+1 ;3 LDA gameState+2 ;3 AND #$1F ;2 TAY ;2 EOR #$0F ;2 BCS LFF82 ;2 LFF67: LSR ;2 BCC LFF6E ;2 LFF6A: LDA #$0D ;2 BNE LFF7F ;2 LFF6E: LSR ;2 BCC LFF74 ;2 JMP LFF6A ;3 LFF74: LSR ;2 BCC LFF93 ;2 LDY #$09 ;2 STY kernelPFValues+1 ;3 LDA gameState+2 ;3 BNE LFF82 ;2 LFF7F: TAY ;2 STA kernelPFValues+1 ;3 LFF82: DEC gameState+2,X ;6 BNE LFF8B ;2 ;energizer boop LDA #$00 ;2 STA gameState+1 ;3 RTS ;6 LFF8B: STA AUDV0 ;3 save sound effect (global) LDA kernelPFValues+1 ;3 STA AUDC0 ;3 STY AUDF0 ;3 LFF93: RTS ;6 LFF94: LDA #$08 ;2 BIT gameState ;3 BVC LFFA6 ;2 ;death sound LDA EnergizerTime ;3 STA AUDV0 ;3 LSR ;2 STA AUDF0 ;3 LDA #$04 ;2 STA AUDC0 ;3 RTS ;6 LFFA6: BEQ LFFD3 ;2 LDA EnergizerTime ;3 BNE LFFB2 ;2 LDA #$F7 ;2 AND gameState ;3 STA gameState ;3 LFFB2: ;music TAX ;2 LDA playerScoreL0 ;3 ORA playerScoreM0 ;3 ORA playerScoreH0 ;3 BNE LFFD3 ;2 skip if any points exist ;PlayTune: TXA ;2 AND #$7F ;2 EOR #$7F ;2 TAX ;2 ; BEQ LFFE7 ;2 BNE LFFE7 ;2 ;LFFE7: LDA frameCount ;3 AND #$03 ;2 STA frameCount ;3 LDA #$07 ;2 STA vitaminTimer ;3 LDA #$F7 ;2 AND gameState ;3 STA gameState ;3 RTS ;6 LFFE7: ; LDA CH0,X ;4 ; BEQ Chn0 ;2 ; STA AUDF0 ;3 ; LDA #$04 ;2 ; STA AUDC0 ;3 ; ASL ;2 ; STA AUDV0 ;3 ;Chn0: ; LDA CH1,X ;4 ; BEQ Chn1 ;2 ; STA AUDF1 ;3 ; LDA #$04 ;2 ; STA AUDC1 ;3 ; ASL ;2 ; STA AUDV1 ;3 ;Chn1: ; RTS ;6 LDA #$04 ;2 LDY CH0,X ;4 BNE Chn0 ;2 LDA #$00 ;2 Chn0: STY AUDF0 ;3 STA AUDC0 ;3 ASL ;2 STA AUDV0 ;3 LDA #$04 ;2 LDY CH1,X ;4 BNE Chn1 ;2 LDA #$00 ;2 Chn1: STY AUDF1 ;3 STA AUDC1 ;3 ASL ;2 STA AUDV1 ;3 RTS ;6 LFFD3: ;higher LDA remainingLives ;3 LSR ;2 LSR ;2 LSR ;2 LSR ;2 LSR ;2 STA Temp ;3 LDA frameCount ;3 AND #$1F ;3 ; TAY ;2 STA kernelPFValues+1 ;3 LSR ;2 LSR ;2 TAY ;2 LDA SirenData,Y ;4 TAY ;2 LDA currentPlayerVars+18 ;3 BMI bluetime ;2 LDA EnergizerTime ;3 BNE LFF9X ;2 ;higher TYA ;2 SEC ;2 SBC Temp ;3 TAY ;2 ;siren sound LFF8C: LDA #$05 ;3 STA AUDV1 ;3 STA AUDC1 ;3 STY AUDF1 ;3 LFF9X: RTS ;6 bluetime: ; TYA ;2 LDA EnergizerTime ;2 energizer time LSR ;2 LSR ;2 LSR ;2 LSR ;2 LSR ;2 STA Temp ;3 LDA frameCount ;3 AND #$07 ;3 ADC Temp ;3 ORA #$10 ;3 TAY ;2 LDA ghost0Direction ;3 ORA ghost1Direction ;3 ORA ghost2Direction ;3 ORA ghost3Direction ;3 AND #$08 ;2 BEQ LFF8C ;2 branch if any are not eyes LDA frameCount ;3 AND #$0F ;3 ASL ;2 ; TYA ;2 ; AND #$07 ;3 ADC Temp ;3 TAY ;2 INY ;2 BPL LFF8C ;2 always branch ; ORG $2B9F ; RORG $FB9F ; .byte $00 ORG $2DFC RORG $FDFC ReleaseTime: ; .byte $23 ; | | $FE16 ; .byte $61 ; | X X X| $FE17 ; .byte $18 ; | | $FE18 ; .byte $35 ; | X X X| $FE19 .byte $53 ; | | $FE16 .byte $C1 ; | X X X| $FE17 .byte $28 ; | | $FE18 .byte $A5 ; | X X X| $FE19 ORG $2E00 RORG $FE00 CH1: .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $1F .byte $1F .byte $1F .byte $1F .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $14 .byte $14 .byte $14 .byte $14 .byte $1F .byte $1F .byte $1F .byte $1F .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 ; .byte $00 ; .byte $14 .byte $14 .byte $14 .byte $14 .byte $1E .byte $1E .byte $1E .byte $1E .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $13 .byte $13 .byte $13 .byte $13 .byte $1E .byte $1E .byte $1E .byte $1E .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 ; .byte $00 ; .byte $13 .byte $13 .byte $13 .byte $13 .byte $1F .byte $1F .byte $1F .byte $1F .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $14 .byte $14 .byte $14 .byte $14 .byte $1F .byte $1F .byte $1F .byte $1F .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 ; .byte $14 .byte $14 .byte $14 .byte $14 .byte $15 .byte $15 .byte $15 .byte $15 .byte $00 .byte $00 .byte $00 .byte $00 .byte $12 .byte $12 .byte $12 .byte $12 .byte $00 .byte $00 .byte $00 .byte $00 .byte $10 .byte $10 .byte $10 .byte $10 .byte $00 .byte $00 .byte $00 .byte $00 ; .byte $0F ; .byte $0F ; .byte $0F ; .byte $0F PTGFX: ;(all shared) .byte