FIRECONT PHX ; push x and y PHY LDY #$00 ; reset fireball index TRYFIRE LDA $1727,y ; Store fireball locations SEC SBC #$02 STA $00 LDA $173B,y SBC #$00 STA $08 LDA #$0C STA $02 LDA $171D,y SEC SBC #$04 STA $01 LDA $1731,y SBC #$00 STA $09 LDA #$13 ; clipping related??? STA $03 PHY ; push fireball index JSL $03B69F ; get sprite clipping JSL $03B72B ; contact BCS FOUNDFIRE ; end if found fireball PLY ; pull fireball index CPY #$00 ; try again for second fireball BNE NOFIRE ; if second failed end INY BRA TRYFIRE FOUNDFIRE PLY ; pull fireball index ; Y has fireball index--ldy RAM, stz $1713,y for instant disp, store 1 for hit something PLX ; don't recover Y PLX ; pull X LDA #$01 ; bne to branch if fireball found RTS NOFIRE PLY ; pull x and y PLX LDA #$00 ; beq to branch if fireball not found RTS