2020-07-10 02:55:08 +00:00
|
|
|
;
|
|
|
|
; shot.s
|
|
|
|
; BuGS
|
|
|
|
;
|
|
|
|
; Created by Jeremy Rand on 2020-07-09.
|
|
|
|
;Copyright © 2020 Jeremy Rand. All rights reserved.
|
|
|
|
;
|
|
|
|
|
|
|
|
case on
|
|
|
|
mcopy shot.macros
|
|
|
|
keep shot
|
|
|
|
|
2020-09-04 04:17:19 +00:00
|
|
|
shot start spriteSeg
|
2020-07-22 01:47:50 +00:00
|
|
|
using globalData
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
drawHalfShot entry
|
|
|
|
_spriteHeader
|
|
|
|
|
|
|
|
; $c - Green
|
|
|
|
; $4 - Red
|
|
|
|
; $8 - Off-white
|
|
|
|
;
|
2020-11-16 05:14:08 +00:00
|
|
|
; .R..
|
|
|
|
; .R..
|
|
|
|
; .R..
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $0,s
|
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
|
|
|
sta $0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
lda $a0,s
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $a0,s
|
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
|
|
|
lda $0,s
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $0,s
|
|
|
|
|
|
|
|
_spriteFooter
|
|
|
|
rtl
|
|
|
|
|
|
|
|
|
|
|
|
drawHalfShotShift entry
|
|
|
|
_spriteHeader
|
|
|
|
|
|
|
|
; $c - Green
|
|
|
|
; $4 - Red
|
|
|
|
; $8 - Off-white
|
|
|
|
;
|
2020-11-16 05:14:08 +00:00
|
|
|
; R...
|
|
|
|
; R...
|
|
|
|
; R...
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $0,s
|
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
|
|
|
sta $0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $a0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $a0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
_spriteFooter
|
|
|
|
rtl
|
|
|
|
|
|
|
|
|
|
|
|
drawShot entry
|
|
|
|
_spriteHeader
|
|
|
|
|
|
|
|
; $c - Green
|
|
|
|
; $4 - Red
|
|
|
|
; $8 - Off-white
|
|
|
|
;
|
2020-11-16 05:14:08 +00:00
|
|
|
; .R..
|
|
|
|
; .R..
|
|
|
|
; .R..
|
|
|
|
; .R..
|
|
|
|
; .R..
|
|
|
|
; .R..
|
2020-11-19 04:36:01 +00:00
|
|
|
; ....
|
|
|
|
; ....
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2021-01-07 03:21:31 +00:00
|
|
|
lda #0
|
|
|
|
sta >collision
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $0,s
|
|
|
|
|
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $a0,s
|
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $0,s
|
|
|
|
|
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $a0,s
|
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $0,s
|
|
|
|
|
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-11-16 05:14:08 +00:00
|
|
|
and #$fff0
|
|
|
|
ora #$0004
|
2020-07-10 02:55:08 +00:00
|
|
|
sta $a0,s
|
2020-12-26 03:26:13 +00:00
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-12-26 03:26:13 +00:00
|
|
|
|
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
_spriteFooter
|
2020-11-16 05:14:08 +00:00
|
|
|
|
2021-01-07 03:21:31 +00:00
|
|
|
lda >collisionAddr
|
|
|
|
tax
|
|
|
|
lda >collision
|
2020-07-10 02:55:08 +00:00
|
|
|
rtl
|
|
|
|
|
|
|
|
|
|
|
|
drawShotShift entry
|
|
|
|
_spriteHeader
|
|
|
|
|
|
|
|
; $c - Green
|
|
|
|
; $4 - Red
|
|
|
|
; $8 - Off-white
|
|
|
|
;
|
2020-11-16 05:14:08 +00:00
|
|
|
; R...
|
|
|
|
; R...
|
|
|
|
; R...
|
|
|
|
; R...
|
|
|
|
; R...
|
|
|
|
; R...
|
2020-11-19 04:36:01 +00:00
|
|
|
; ....
|
|
|
|
; ....
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2021-01-07 03:21:31 +00:00
|
|
|
lda #0
|
|
|
|
sta >collision
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $a0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $a0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $0,s
|
2020-07-10 02:55:08 +00:00
|
|
|
|
2020-11-16 05:14:08 +00:00
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-07-10 02:55:08 +00:00
|
|
|
and #$ff0f
|
|
|
|
ora #$0040
|
2020-11-16 05:14:08 +00:00
|
|
|
sta $a0,s
|
2020-11-19 04:36:01 +00:00
|
|
|
|
|
|
|
tsc
|
|
|
|
adc #$140
|
|
|
|
tcs
|
|
|
|
|
|
|
|
lda $0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$0
|
2020-11-19 04:36:01 +00:00
|
|
|
|
|
|
|
lda $a0,s
|
2021-01-04 04:57:21 +00:00
|
|
|
_collision #$00ff,#$a0
|
2020-07-10 02:55:08 +00:00
|
|
|
|
|
|
|
_spriteFooter
|
|
|
|
|
2021-01-07 03:21:31 +00:00
|
|
|
lda >collisionAddr
|
|
|
|
tax
|
|
|
|
lda >collision
|
2020-07-10 02:55:08 +00:00
|
|
|
rtl
|
|
|
|
|
|
|
|
end
|