mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-02 19:42:23 +00:00
218 lines
4.5 KiB
ArmAsm
218 lines
4.5 KiB
ArmAsm
;==================
|
|
;==================
|
|
; erase lemming
|
|
;==================
|
|
;==================
|
|
erase_lemming:
|
|
ldy #0
|
|
|
|
lda lemming_out,Y
|
|
beq done_erase_lemming
|
|
|
|
lda lemming_y,Y
|
|
sec
|
|
sbc #3
|
|
sta SAVED_Y1
|
|
clc
|
|
adc #12
|
|
sta SAVED_Y2
|
|
|
|
lda lemming_x,Y
|
|
tax
|
|
inx
|
|
jsr hgr_partial_restore
|
|
|
|
done_erase_lemming:
|
|
rts
|
|
|
|
;=========================
|
|
;=========================
|
|
; draw lemming
|
|
;=========================
|
|
;=========================
|
|
draw_lemming:
|
|
ldy #0
|
|
|
|
lda lemming_out,Y
|
|
bne do_draw_lemming
|
|
|
|
jmp done_draw_lemming
|
|
|
|
do_draw_lemming:
|
|
lda lemming_status,Y
|
|
cmp #LEMMING_DIGGING
|
|
beq draw_digging_sprite
|
|
cmp #LEMMING_FALLING
|
|
beq draw_falling_sprite
|
|
|
|
draw_walking_sprite:
|
|
|
|
lda lemming_frame,Y
|
|
and #$7
|
|
tax
|
|
|
|
lda lemming_direction,Y
|
|
bpl draw_walking_right
|
|
|
|
draw_walking_left:
|
|
lda lwalk_sprite_l,X
|
|
sta INL
|
|
lda lwalk_sprite_h,X
|
|
jmp draw_walking_common
|
|
|
|
draw_walking_right:
|
|
lda rwalk_sprite_l,X
|
|
sta INL
|
|
lda rwalk_sprite_h,X
|
|
|
|
draw_walking_common:
|
|
sta INH
|
|
|
|
ldx lemming_x,Y
|
|
stx XPOS
|
|
lda lemming_y,Y
|
|
jmp draw_common
|
|
|
|
;====================
|
|
; draw falling
|
|
;====================
|
|
|
|
draw_falling_sprite:
|
|
|
|
lda lemming_frame,Y
|
|
and #$3
|
|
tax
|
|
|
|
lda lemming_direction,Y
|
|
bpl draw_falling_right
|
|
|
|
draw_falling_left:
|
|
lda lfall_sprite_l,X
|
|
sta INL
|
|
lda lfall_sprite_h,X
|
|
jmp draw_falling_common
|
|
|
|
draw_falling_right:
|
|
lda rfall_sprite_l,X
|
|
sta INL
|
|
lda rfall_sprite_h,X
|
|
|
|
draw_falling_common:
|
|
sta INH
|
|
|
|
ldx lemming_x,Y
|
|
stx XPOS
|
|
lda lemming_y,Y
|
|
jmp draw_common
|
|
|
|
|
|
;======================
|
|
; digging
|
|
|
|
draw_digging_sprite:
|
|
|
|
lda lemming_frame,Y
|
|
and #$7
|
|
tax
|
|
|
|
lda dig_sprite_l,X
|
|
sta INL
|
|
lda dig_sprite_h,X
|
|
sta INH
|
|
|
|
ldx lemming_x,Y
|
|
stx XPOS
|
|
lda lemming_y,Y
|
|
sec
|
|
sbc #2
|
|
jmp draw_common
|
|
|
|
|
|
|
|
draw_common:
|
|
sta YPOS
|
|
|
|
jsr hgr_draw_sprite_autoshift
|
|
|
|
done_draw_lemming:
|
|
rts
|
|
|
|
|
|
lfall_sprite_l:
|
|
.byte <lemming_lfall1_sprite,<lemming_lfall2_sprite
|
|
.byte <lemming_lfall3_sprite,<lemming_lfall4_sprite
|
|
lfall_sprite_h:
|
|
.byte >lemming_lfall1_sprite,>lemming_lfall2_sprite
|
|
.byte >lemming_lfall3_sprite,>lemming_lfall4_sprite
|
|
|
|
rfall_sprite_l:
|
|
.byte <lemming_rfall1_sprite,<lemming_rfall2_sprite
|
|
.byte <lemming_rfall3_sprite,<lemming_rfall4_sprite
|
|
rfall_sprite_h:
|
|
.byte >lemming_rfall1_sprite,>lemming_rfall2_sprite
|
|
.byte >lemming_rfall3_sprite,>lemming_rfall4_sprite
|
|
|
|
|
|
dig_sprite_l:
|
|
.byte <lemming_dig1_sprite,<lemming_dig2_sprite
|
|
.byte <lemming_dig3_sprite,<lemming_dig4_sprite
|
|
.byte <lemming_dig5_sprite,<lemming_dig6_sprite
|
|
.byte <lemming_dig7_sprite,<lemming_dig8_sprite
|
|
dig_sprite_h:
|
|
.byte >lemming_dig1_sprite,>lemming_dig2_sprite
|
|
.byte >lemming_dig3_sprite,>lemming_dig4_sprite
|
|
.byte >lemming_dig5_sprite,>lemming_dig6_sprite
|
|
.byte >lemming_dig7_sprite,>lemming_dig8_sprite
|
|
|
|
rwalk_sprite_l:
|
|
.byte <lemming_rwalk1_sprite,<lemming_rwalk2_sprite
|
|
.byte <lemming_rwalk3_sprite,<lemming_rwalk4_sprite
|
|
.byte <lemming_rwalk5_sprite,<lemming_rwalk6_sprite
|
|
.byte <lemming_rwalk7_sprite,<lemming_rwalk8_sprite
|
|
rwalk_sprite_h:
|
|
.byte >lemming_rwalk1_sprite,>lemming_rwalk2_sprite
|
|
.byte >lemming_rwalk3_sprite,>lemming_rwalk4_sprite
|
|
.byte >lemming_rwalk5_sprite,>lemming_rwalk6_sprite
|
|
.byte >lemming_rwalk7_sprite,>lemming_rwalk8_sprite
|
|
|
|
lwalk_sprite_l:
|
|
.byte <lemming_lwalk1_sprite,<lemming_lwalk2_sprite
|
|
.byte <lemming_lwalk3_sprite,<lemming_lwalk4_sprite
|
|
.byte <lemming_lwalk5_sprite,<lemming_lwalk6_sprite
|
|
.byte <lemming_lwalk7_sprite,<lemming_lwalk8_sprite
|
|
lwalk_sprite_h:
|
|
.byte >lemming_lwalk1_sprite,>lemming_lwalk2_sprite
|
|
.byte >lemming_lwalk3_sprite,>lemming_lwalk4_sprite
|
|
.byte >lemming_lwalk5_sprite,>lemming_lwalk6_sprite
|
|
.byte >lemming_lwalk7_sprite,>lemming_lwalk8_sprite
|
|
|
|
explosion_sprite_l:
|
|
.byte <lemming_explode1_sprite,<lemming_explode1_sprite
|
|
.byte <lemming_explode2_sprite,<lemming_explode3_sprite
|
|
.byte <lemming_explode4_sprite,<lemming_explode5_sprite
|
|
.byte <lemming_explode6_sprite,<lemming_explode7_sprite
|
|
.byte <lemming_explode8_sprite,<lemming_explode7_sprite
|
|
.byte <lemming_explode9_sprite,<lemming_explode8_sprite
|
|
.byte <lemming_explode9_sprite,<lemming_explode8_sprite
|
|
.byte <lemming_explode9_sprite,<lemming_explode8_sprite
|
|
|
|
explosion_sprite_h:
|
|
.byte >lemming_explode1_sprite,>lemming_explode1_sprite
|
|
.byte >lemming_explode2_sprite,>lemming_explode3_sprite
|
|
.byte >lemming_explode4_sprite,>lemming_explode5_sprite
|
|
.byte >lemming_explode6_sprite,>lemming_explode7_sprite
|
|
.byte >lemming_explode8_sprite,>lemming_explode7_sprite
|
|
.byte >lemming_explode9_sprite,>lemming_explode8_sprite
|
|
.byte >lemming_explode9_sprite,>lemming_explode8_sprite
|
|
.byte >lemming_explode9_sprite,>lemming_explode8_sprite
|
|
|
|
|
|
; 787989898
|
|
; clcrlrlrle
|
|
|
|
|
|
|
|
|
|
|
|
|