mirror of https://github.com/jeremysrand/BuGS.git
246 lines
3.3 KiB
ArmAsm
246 lines
3.3 KiB
ArmAsm
;
|
|
; 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
|
|
|
|
shot start spriteSeg
|
|
using globalData
|
|
|
|
drawHalfShot entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; .R..
|
|
; .R..
|
|
; .R..
|
|
|
|
lda $0,s
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $0,s
|
|
|
|
_spriteFooter
|
|
rtl
|
|
|
|
|
|
drawHalfShotShift entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; R...
|
|
; R...
|
|
; R...
|
|
|
|
lda $0,s
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $0,s
|
|
|
|
_spriteFooter
|
|
rtl
|
|
|
|
|
|
drawShot entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; .R..
|
|
; .R..
|
|
; .R..
|
|
; .R..
|
|
; .R..
|
|
; .R..
|
|
; ....
|
|
; ....
|
|
|
|
lda #0
|
|
sta >collision
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
and #$fff0
|
|
ora #$0004
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
|
|
_spriteFooter
|
|
|
|
lda >collisionAddr
|
|
tax
|
|
lda >collision
|
|
rtl
|
|
|
|
|
|
drawShotShift entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; R...
|
|
; R...
|
|
; R...
|
|
; R...
|
|
; R...
|
|
; R...
|
|
; ....
|
|
; ....
|
|
|
|
lda #0
|
|
sta >collision
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
and #$ff0f
|
|
ora #$0040
|
|
sta $a0,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$00ff,#$0
|
|
|
|
lda $a0,s
|
|
_collision #$00ff,#$a0
|
|
|
|
_spriteFooter
|
|
|
|
lda >collisionAddr
|
|
tax
|
|
lda >collision
|
|
rtl
|
|
|
|
end
|