mirror of
https://github.com/jeremysrand/BuGS.git
synced 2024-05-28 16:41:35 +00:00
166 lines
3.1 KiB
ArmAsm
166 lines
3.1 KiB
ArmAsm
;
|
|
; gameFlea.s
|
|
; BuGS
|
|
;
|
|
; Created by Jeremy Rand on 2020-07-18.
|
|
;Copyright © 2020 Jeremy Rand. All rights reserved.
|
|
;
|
|
|
|
case on
|
|
mcopy gameFlea.macros
|
|
keep gameFlea
|
|
|
|
gameFlea start
|
|
|
|
fleaState_none equ 0
|
|
fleaState_falling equ 1
|
|
fleaState_exploding equ 2
|
|
|
|
drawFlea entry
|
|
lda fleaState
|
|
beq drawFlea_done
|
|
|
|
ldy fleaScreenOffset
|
|
jsl flea1
|
|
|
|
ldy numDirtyGameTiles
|
|
|
|
ldx fleaTileOffsets
|
|
lda tiles,x
|
|
bne drawFlea_skipTile1
|
|
lda #$1
|
|
sta tiles,x
|
|
txa
|
|
sta dirtyGameTiles,y
|
|
iny
|
|
iny
|
|
|
|
drawFlea_skipTile1 anop
|
|
|
|
ldx fleaTileOffsets+2
|
|
lda tiles,x
|
|
bne drawFlea_skipTile2
|
|
lda #$1
|
|
sta tiles,x
|
|
txa
|
|
sta dirtyGameTiles,y
|
|
iny
|
|
iny
|
|
|
|
drawFlea_skipTile2 anop
|
|
|
|
ldx fleaTileOffsets+4
|
|
lda tiles,x
|
|
bne drawFlea_skipTile3
|
|
lda #$1
|
|
sta tiles,x
|
|
txa
|
|
sta dirtyGameTiles,y
|
|
iny
|
|
iny
|
|
|
|
drawFlea_skipTile3 anop
|
|
|
|
ldx fleaTileOffsets+6
|
|
lda tiles,x
|
|
bne drawFlea_skipTile4
|
|
lda #$1
|
|
sta tiles,x
|
|
txa
|
|
sta dirtyGameTiles,y
|
|
iny
|
|
iny
|
|
|
|
drawFlea_skipTile4 anop
|
|
sty numDirtyGameTiles
|
|
|
|
drawFlea_done anop
|
|
rtl
|
|
|
|
|
|
updateFlea entry
|
|
lda fleaState
|
|
beq updateFlea_done
|
|
|
|
lda fleaHeightInTile
|
|
beq updateFlea_nextTile
|
|
dec a
|
|
sta fleaHeightInTile
|
|
beq updateFlea_bottomOfTile
|
|
bra updateFlea_nextAction
|
|
|
|
updateFlea_bottomOfTile anop
|
|
lda fleaTileOffsets
|
|
sta fleaTileOffsets+4
|
|
lda fleaTileOffsets+2
|
|
sta fleaTileOffsets+6
|
|
bra updateFlea_nextAction
|
|
|
|
updateFlea_nextTile anop
|
|
lda #$7
|
|
sta fleaHeightInTile
|
|
|
|
ldx fleaTileOffsets
|
|
lda tiles+8,x
|
|
cmp #$ffff
|
|
beq updateFlea_bottom
|
|
sta fleaTileOffsets
|
|
|
|
ldx fleaTileOffsets+2
|
|
lda tiles+8,x
|
|
sta fleaTileOffsets+2
|
|
|
|
bra updateFlea_nextAction
|
|
|
|
updateFlea_bottom anop
|
|
stz fleaState
|
|
rtl
|
|
|
|
updateFlea_nextAction anop
|
|
lda fleaScreenOffset
|
|
clc
|
|
adc #$a0
|
|
sta fleaScreenOffset
|
|
|
|
updateFlea_done anop
|
|
rtl
|
|
|
|
|
|
addFlea entry
|
|
lda fleaState
|
|
bne addFlea_done
|
|
|
|
lda #fleaState_falling
|
|
sta fleaState
|
|
|
|
lda #$7
|
|
sta fleaHeightInTile
|
|
|
|
lda #$40
|
|
sta fleaTileOffsets
|
|
sta fleaTileOffsets+4
|
|
|
|
tax
|
|
lda tiles+10,x
|
|
sta fleaTileOffsets+2
|
|
sta fleaTileOffsets+6
|
|
|
|
lda tiles+2,x
|
|
sec
|
|
sbc #$463
|
|
sta fleaScreenOffset
|
|
|
|
addFlea_done anop
|
|
rtl
|
|
|
|
|
|
fleaState dc i2'fleaState_none'
|
|
fleaScreenOffset dc i2'0'
|
|
fleaTileOffsets dc i2'0'
|
|
dc i2'0'
|
|
dc i2'0'
|
|
dc i2'0'
|
|
fleaHeightInTile dc i2'0'
|
|
|
|
end
|