mirror of https://github.com/jeremysrand/BuGS.git
350 lines
6.0 KiB
ArmAsm
350 lines
6.0 KiB
ArmAsm
;
|
|
; ship.s
|
|
; BuGS
|
|
;
|
|
; Created by Jeremy Rand on 2020-07-09.
|
|
;Copyright © 2020 Jeremy Rand. All rights reserved.
|
|
;
|
|
|
|
case on
|
|
mcopy ship.macros
|
|
keep ship
|
|
|
|
ship start spriteSeg
|
|
using globalData
|
|
|
|
drawShip entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; ...O|....
|
|
; ..OO|O...
|
|
; .RRO|RR..
|
|
; ORRO|RRO.
|
|
; OOOO|OOO.
|
|
; .OOO|OO..
|
|
; ..OO|O...
|
|
; ..OO|O...
|
|
|
|
lda #0
|
|
sta >collision
|
|
|
|
lda $0,s
|
|
_collision #$0c00,#$0
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $0,s
|
|
|
|
lda $a0,s
|
|
_collision #$cc00,#$a0
|
|
and #$00ff
|
|
ora #$8800
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$00c0,#$a2
|
|
and #$ff0f
|
|
ora #$0080
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$cc0c,#$0
|
|
and #$00f0
|
|
ora #$4804
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
_collision #$00cc,#$2
|
|
and #$ff00
|
|
ora #$0044
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
_collision #$cccc,#$a0
|
|
lda #$4884
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$c0cc,#$a2
|
|
and #$0f00
|
|
ora #$8044
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $a0,s
|
|
_collision #$cccc,#$a0
|
|
lda #$8888
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
_collision #$c0cc,#$2
|
|
and #$0f00
|
|
ora #$8088
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
_collision #$cc0c,#$a0
|
|
and #$00f0
|
|
ora #$8808
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$00cc,#$a2
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$cc00,#$0
|
|
and #$00ff
|
|
ora #$8800
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
_collision #$00c0,#$2
|
|
and #$ff0f
|
|
ora #$0080
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
_collision #$cc00,#$a0
|
|
and #$00ff
|
|
ora #$8800
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$00c0,#$a2
|
|
and #$ff0f
|
|
ora #$0080
|
|
sta $a2,s
|
|
|
|
_spriteFooter
|
|
|
|
lda >collisionAddr
|
|
tax
|
|
lda >collision
|
|
rtl
|
|
|
|
|
|
drawShipShift entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; ....|O...
|
|
; ...O|OO..
|
|
; ..RR|ORR.
|
|
; .ORR|ORRO
|
|
; .OOO|OOOO
|
|
; ..OO|OOO.
|
|
; ...O|OO..
|
|
; ...O|OO..
|
|
|
|
lda #0
|
|
sta >collision
|
|
|
|
lda $2,s
|
|
_collision #$00c0,#$2
|
|
and #$ff0f
|
|
ora #$0080
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
_collision #$0c00,#$a0
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$00cc,#$a2
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$cc00,#$0
|
|
and #$00ff
|
|
ora #$4400
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
_collision #$c0cc,#$2
|
|
and #$0f00
|
|
ora #$4084
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
_collision #$cc0c,#$a0
|
|
and #$00f0
|
|
ora #$4408
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$cccc,#$a2
|
|
lda #$4884
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$cc0c,#$0
|
|
and #$00f0
|
|
ora #$8808
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
_collision #$cccc,#$2
|
|
lda #$8888
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
_collision #$cc00,#$a0
|
|
and #$00ff
|
|
ora #$8800
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$c0cc,#$a2
|
|
and #$0f00
|
|
ora #$8088
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$140
|
|
tcs
|
|
|
|
lda $0,s
|
|
_collision #$0c00,#$0
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
_collision #$00cc,#$2
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
_collision #$0c00,#$a0
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
_collision #$00cc,#$a2
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $a2,s
|
|
|
|
_spriteFooter
|
|
|
|
lda >collisionAddr
|
|
tax
|
|
lda >collision
|
|
rtl
|
|
|
|
; This differs from the above by being a tile draw routine for drawing the number of lives left.
|
|
; It assumes it is drawing to the background and overwrites what may be there and does not check
|
|
; for collisions
|
|
drawPlayer entry
|
|
_spriteHeader
|
|
|
|
; $1 - Green
|
|
; $2 - Red
|
|
; $3 - Off-white
|
|
;
|
|
; ...O|....
|
|
; ..OO|O...
|
|
; .RRO|RR..
|
|
; ORRO|RRO.
|
|
; OOOO|OOO.
|
|
; .OOO|OO..
|
|
; ..OO|O...
|
|
; ..OO|O...
|
|
;
|
|
; Colours #$0000 - Black, Black, Black, Black (x1)
|
|
; #$0300 - Black, Black, Black, Off-white (x1)
|
|
; #$3300 - Black, Black, Off-white, Off-white (x3)
|
|
; #$0030 - Off-white, Black, Black, Black (x3)
|
|
; #$2302 - Black, Red, Red, Off-white (x1)
|
|
; #$0022 - Red, Red, Black, Black (x1)
|
|
; #$2332 - Off-white, Red, Red, Off-white (x1)
|
|
; #$3022 - Red, Red, Off-white, Black (x1)
|
|
; #$3333 - Off-white, Off-white, Off-white, Off-white (x1)
|
|
; #$3033 - Off-white, Off-white, Off-white, Black (x1)
|
|
; #$3303 - Black, Off-white, Off-white, Off-white (x1)
|
|
; #$0033 - Off-white, Off-white, Black, Black (x1)
|
|
|
|
pea $0000
|
|
pea $0300
|
|
|
|
adc #$00a0
|
|
tcs
|
|
|
|
pea $0030
|
|
pea $3300
|
|
|
|
adc #$00a0
|
|
tcs
|
|
|
|
pea $0022
|
|
pea $2302
|
|
|
|
adc #$00a0
|
|
tcs
|
|
|
|
pea $3022
|
|
pea $2332
|
|
|
|
adc #$00a0
|
|
tcs
|
|
|
|
pea $3033
|
|
pea $3333
|
|
|
|
adc #$00a0
|
|
tcs
|
|
|
|
pea $0033
|
|
pea $3303
|
|
|
|
adc #$00a0
|
|
tcs
|
|
|
|
pea $0030
|
|
pea $3300
|
|
|
|
adc #$00a0
|
|
tcs
|
|
|
|
pea $0030
|
|
pea $3300
|
|
|
|
_spriteFooter
|
|
rtl
|
|
|
|
end
|