GSCats/gameobject.s
blondie7575 a932295552 Refactoring of gameobject rendering macros
Prep work for projectile orientation
2017-10-26 20:15:52 -07:00

717 lines
10 KiB
ArmAsm

;
; gameobject
; Code and data structures related to the game objects
;
; Created by Quinn Dunki on 8/13/17
;
GAMEOBJECTWIDTH = 16
GAMEOBJECTHEIGHT = 16
; Base class sample:
;gameobjectData:
; .word 40 ; X pos in pixels (from right terrain edge)
; .word 38 ; Y pos in pixels (from bottom terrain edge)
; .word 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; Saved background 64 bytes
; .word 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
; .word 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
; .word 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
GO_POSX = 0 ; Byte offsets into gameobject data structure
GO_POSY = 2
GO_BACKGROUND = 4
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; placeGameObjectOnTerrain
;
; PARAML0 = Pointer to gameobject data
; Trashes SCRATCHL
;
placeGameObjectOnTerrain:
SAVE_AY
ldy #GO_POSX
lda (PARAML0),y
clc ; Map into reversed terrain X space
adc #GAMEOBJECTWIDTH
sta SCRATCHL
lda #TERRAINWIDTH
sec
sbc SCRATCHL
and #$fffe ; Force even
tay
lda terrainData,y
clc
adc #GAMEOBJECTHEIGHT
ldy #GO_POSY
sta (PARAML0),y
RESTORE_AY
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; vramPtr
;
; PARAML0 = Pointer to gameobject data
; X => Offset to upper left corner of VRAM, or -1 if offscreen
;
; Trashes SCRATCHL
;
vramPtr:
SAVE_AY
; X
ldy #GO_POSX
lda (PARAML0),y
lsr
cmp leftScreenEdge
bmi vramPtrSkip ; Gameobject is off left edge of screen
cmp rightScreenEdge
bpl vramPtrSkip ; Gameobject is off right edge of screen
sec ; Convert byte x-pos to screenspace
sbc leftScreenEdge
sta SCRATCHL
; Y
sec
lda #200
ldy #GO_POSY
sbc (PARAML0),y
bmi vramPtrSkip ; Gameobject is off top edge of screen
cmp #200 - GAMEOBJECTHEIGHT
bpl vramPtrSkip ; Gameobject is off bottom edge of screen
asl
tax
lda vramYOffset,x
clc
adc SCRATCHL
adc #$2000
tax ; X now contains the bank address of the upper left corner
bra vramPtrDone
vramPtrSkip:
ldx #-1
vramPtrDone:
RESTORE_AY
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; renderGameObject
;
; PARAML0 = Pointer to gameobject data
; A = Sprite index
;
; Trashes SCRATCHL
;
renderGameObject:
SAVE_XY
; Find gameobject location in video memory
jsr vramPtr
cpx #0
bmi renderGameobjectDone
; Call compiled sprite code
txy
clc
jsr DrawSpriteBank
renderGameobjectDone:
RESTORE_XY
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; protectGameObject
;
; Saves background behind this game object
; A = Pointer to gameobject background data
; X = VRAM position of upper left of game object
;
; Trashes SCRATCHL
;
protectGameObject:
phy
ldy #0
sta SCRATCHL
lda SHADOWVRAMBANK,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*2+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*2+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*2+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*3,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*3+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*3+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*3+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*4+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*4+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*4+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*5,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*5+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*5+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*5+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*6+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*6+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*6+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*7,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*7+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*7+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*7+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*8,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*8+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*8+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*8+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*9,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*9+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*9+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*9+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*10,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*10+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*10+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*10+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*11,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*11+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*11+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*11+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*12,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*12+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*12+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*12+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*13,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*13+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*13+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*13+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*14,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*14+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*14+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*14+6,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*15,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*15+2,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*15+4,x
sta (SCRATCHL),y
iny
iny
lda SHADOWVRAMBANK+160*15+6,x
sta (SCRATCHL),y
ply
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; unrenderGameObject
;
; PARAML0 = Pointer to gameobject data
; Trashes SCRATCHL
;
unrenderGameObject:
SAVE_AXY
; Find gameobject location in video memory
jsr vramPtr
cpx #0
bmi unrenderGameobjectSkip
bra unrenderGameobjectBackground
unrenderGameobjectSkip:
jmp unrenderGameobjectDone
unrenderGameobjectBackground:
ldy #GO_BACKGROUND
lda (PARAML0),y
sta SHADOWVRAMBANK,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*2+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*2+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*2+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*3,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*3+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*3+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*3+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*4+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*4+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*4+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*5,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*5+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*5+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*5+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*6+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*6+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*6+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*7,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*7+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*7+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*7+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*8,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*8+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*8+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*8+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*9,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*9+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*9+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*9+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*10,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*10+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*10+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*10+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*11,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*11+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*11+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*11+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*12,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*12+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*12+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*12+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*13,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*13+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*13+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*13+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*14,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*14+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*14+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*14+6,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*15,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*15+2,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*15+4,x
iny
iny
lda (PARAML0),y
sta SHADOWVRAMBANK+160*15+6,x
unrenderGameobjectDone:
RESTORE_AXY
rts