Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-14 10:30:00 +00:00
Code Issues Projects Releases Wiki Activity

lemm: use jump table for movement

Browse Source
This commit is contained in:
Vince Weaver 2022-03-27 14:05:47 -04:00
parent 73dc3b03dc
commit 37b11038c9
1 changed files with 107 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

174
games/lemm/move_lemming.s
View File

@ -43,39 +43,118 @@ really_move_lemming:
inc lemming_frame,X ; only can inc with X
lda lemming_status,Y
cmp #LEMMING_FALLING
beq do_lemming_falling
cmp #LEMMING_WALKING
beq do_lemming_walking
cmp #LEMMING_DIGGING
beq do_lemming_digging
cmp #LEMMING_FLOATING
beq do_lemming_floating
jmp done_move_lemming
tax
lda move_lemming_jump_h,X
pha
lda move_lemming_jump_l,X
pha
rts ; jump to it
done_move_lemming:
done_checking_lemming:
inc CURRENT_LEMMING
lda CURRENT_LEMMING
cmp #MAX_LEMMINGS
beq really_done_checking_lemming
jmp move_lemming_loop
really_done_checking_lemming:
rts
move_lemming_jump_l:
.byte <(do_lemming_falling-1)
.byte <(do_lemming_walking-1)
.byte <(do_lemming_digging-1)
.byte <(do_lemming_exploding-1)
.byte <(do_lemming_particles-1)
.byte <(do_lemming_splatting-1)
.byte <(do_lemming_floating-1)
.byte <(do_lemming_climbing-1)
.byte <(do_lemming_bashing-1)
.byte <(do_lemming_stopping-1)
.byte <(do_lemming_mining-1)
.byte <(do_lemming_building-1)
.byte <(do_lemming_shrugging-1)
.byte <(do_lemming_pullup-1)
move_lemming_jump_h:
.byte >(do_lemming_falling-1)
.byte >(do_lemming_walking-1)
.byte >(do_lemming_digging-1)
.byte >(do_lemming_exploding-1)
.byte >(do_lemming_particles-1)
.byte >(do_lemming_splatting-1)
.byte >(do_lemming_floating-1)
.byte >(do_lemming_climbing-1)
.byte >(do_lemming_bashing-1)
.byte >(do_lemming_stopping-1)
.byte >(do_lemming_mining-1)
.byte >(do_lemming_building-1)
.byte >(do_lemming_shrugging-1)
.byte >(do_lemming_pullup-1)
;=========================
;=========================
; falling
;=========================
;=========================
do_lemming_falling:
jsr handle_lemming_falling
tya
tax
inc lemming_y,X ; fall speed
inc lemming_y,X
inc lemming_fall_distance,X ; how far
lda lemming_fall_distance,X
cmp #12
bcc not_fallen_enough ; blt
lda lemming_attribute,X
bpl not_fallen_enough ; see if high bit set
; we can switch to floating
lda #LEMMING_FLOATING
sta lemming_status,X
lda #0
sta lemming_frame,X
not_fallen_enough:
jsr collision_check_ground
jmp done_move_lemming
;=========================
;=========================
; floating
;=========================
;=========================
do_lemming_floating:
jsr handle_lemming_floating
tya
tax
inc lemming_y,X ; fall speed
lda #0
sta lemming_fall_distance,X
jsr collision_check_ground
jmp done_move_lemming
;=========================
;=========================
; walking
;=========================
;=========================
do_lemming_walking:
; see if ground has risen up
@ -193,67 +272,28 @@ digging_falling:
lda #LEMMING_FALLING
sta lemming_status,Y
done_digging:
jmp done_move_lemming
done_move_lemming:
done_checking_lemming:
inc CURRENT_LEMMING
lda CURRENT_LEMMING
cmp #MAX_LEMMINGS
beq really_done_checking_lemming
jmp move_lemming_loop
really_done_checking_lemming:
rts
;=====================
; falling
; do nothing
;=====================
handle_lemming_falling:
tya
tax
inc lemming_y,X ; fall speed
inc lemming_y,X
; placeholders
do_lemming_exploding:
do_lemming_pullup:
do_lemming_shrugging:
do_lemming_building:
do_lemming_mining:
do_lemming_stopping:
do_lemming_bashing:
do_lemming_climbing:
do_lemming_splatting:
do_lemming_particles:
inc lemming_fall_distance,X ; how far
jmp done_move_lemming
lda lemming_fall_distance,X
cmp #12
bcc not_fallen_enough ; blt
lda lemming_attribute,X
bpl not_fallen_enough ; see if high bit set
; we can switch to floating
lda #LEMMING_FLOATING
sta lemming_status,X
lda #0
sta lemming_frame,X
not_fallen_enough:
jsr collision_check_ground
rts
;=====================
; floating
;=====================
handle_lemming_floating:
tya
tax
inc lemming_y,X ; fall speed
lda #0
sta lemming_fall_distance,X
jsr collision_check_ground
rts