dos33fsprogs/games/keen/draw_keen.s

131 lines
2.2 KiB
ArmAsm
Raw Normal View History

2024-03-10 05:44:20 +00:00
;=========================
; draw keen
;=========================
draw_keen:
sec
lda KEEN_TILEX
sbc TILEMAP_X
asl
clc
adc KEEN_X
2024-03-10 05:44:20 +00:00
sta XPOS
sec
lda KEEN_TILEY
sbc TILEMAP_Y
asl
asl
clc
adc KEEN_Y
2024-03-10 05:44:20 +00:00
sta YPOS
lda KEEN_DIRECTION
bmi keen_facing_left
;=========================
; facing right
keen_facing_right:
check_falling_right:
lda KEEN_FALLING
beq check_jumping_right
draw_falling_right:
ldx #<keen_sprite_falling_right
lda #>keen_sprite_falling_right
jmp actually_draw_keen
check_jumping_right:
lda KEEN_JUMPING
beq check_shooting_right
draw_jumping_right:
ldx #<keen_sprite_jumping_right
lda #>keen_sprite_jumping_right
jmp actually_draw_keen
check_shooting_right:
lda KEEN_SHOOTING
beq check_walking_right
draw_shooting_right:
ldx #<keen_sprite_shooting_right
lda #>keen_sprite_shooting_right
2024-04-06 04:49:24 +00:00
;dec KEEN_SHOOTING
2024-03-10 05:44:20 +00:00
jmp actually_draw_keen
check_walking_right:
lda KEEN_WALKING
beq draw_standing_right
draw_walking_right:
lda FRAMEL
and #$02
beq draw_standing_right
ldx #<keen_sprite_walking_right
lda #>keen_sprite_walking_right
jmp actually_draw_keen
draw_standing_right:
ldx #<keen_sprite_stand_right
lda #>keen_sprite_stand_right
jmp actually_draw_keen
;==================
; facing left
keen_facing_left:
check_falling_left:
lda KEEN_FALLING
beq check_jumping_left
draw_falling_left:
ldx #<keen_sprite_falling_left
lda #>keen_sprite_falling_left
jmp actually_draw_keen
check_jumping_left:
lda KEEN_JUMPING
beq check_shooting_left
draw_jumping_left:
ldx #<keen_sprite_jumping_left
lda #>keen_sprite_jumping_left
jmp actually_draw_keen
check_shooting_left:
lda KEEN_SHOOTING
beq check_walking_left
draw_shooting_left:
ldx #<keen_sprite_shooting_left
lda #>keen_sprite_shooting_left
2024-04-06 04:49:24 +00:00
; dec KEEN_SHOOTING
2024-03-10 05:44:20 +00:00
jmp actually_draw_keen
check_walking_left:
lda KEEN_WALKING
beq draw_standing_left
draw_walking_left:
lda FRAMEL
and #$02
beq draw_standing_left
ldx #<keen_sprite_walking_left
lda #>keen_sprite_walking_left
jmp actually_draw_keen
draw_standing_left:
ldx #<keen_sprite_stand_left
lda #>keen_sprite_stand_left
jmp actually_draw_keen
;====================
; actually draw
actually_draw_keen:
stx INL
sta INH
jsr put_sprite_crop
rts