Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Keys: db $02, $04, $08, $01
- Tiles: db $80, $82, $84, $86
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ; sprite init JSL
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- print "INIT ",pc
- LDA #$C0
- STA $AA,x
- LDA $E4,x
- CMP #$58
- BNE +
- LDY #$00
- +
- CMP #$70
- BNE +
- LDY #$01
- +
- CMP #$88
- BNE +
- LDY #$02
- +
- CMP #$A0
- BNE +
- LDY #$03
- +
- STY $C2,x
- RTL
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ; sprite main code
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- print "MAIN ",pc
- PHB : PHK : PLB
- LDA $9D
- BNE +
- JSR Main
- +
- JSR Gfx
- PLB
- RTL ; Return
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ; sprite code JSL
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- Main:
- JSL $01801A
- LDA $14D4,x
- XBA
- LDA $D8,x
- REP #$20
- CMP #$0020
- BPL +
- Miss:
- SEP #$20
- STZ $14C8,x
- DEC $18C6
- BEQ DontDoubleDec
- DEC $18C6
- DontDoubleDec:
- LDA #$03
- STA $18C8
- RTS
- +
- CMP #$0040
- SEP #$20
- BPL CheckForHit
- Return:
- RTS
- CheckForHit:
- ; Check for kepress
- LDY $C2,x
- LDA Keys,y
- STA $00
- LDA $16
- AND $00
- BEQ Return
- ;
- LDA $14D4,x
- XBA
- LDA $D8,x
- REP #$20
- CMP #$0070
- BPL Return
- CMP #$0058
- BPL Ok
- CMP #$0048
- BPL Good
- Ok:
- SEP #$20
- STZ $14C8,x
- LDA #$01
- STA $18C8
- LDA $18C6
- BEQ +
- INC $18C6
- +
- RTS
- Good:
- SEP #$20
- STZ $14C8,x
- LDA #$02
- STA $18C8
- LDA $18C6
- BEQ +
- INC $18C6
- CMP #$32
- BCC +
- INC $18C6
- +
- RTS
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement