mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-08 03:31:10 +00:00
49 lines
641 B
ArmAsm
49 lines
641 B
ArmAsm
|
|
||
|
|
|
||
|
|
|
||
|
|
;=======================
|
||
|
|
; Clear Lemmings Out
|
||
|
|
;=======================
|
||
|
|
clear_lemmings_out:
|
||
|
|
|
||
|
|
lda #0
|
||
|
|
ldy #0
|
||
|
|
clear_lemmings_loop:
|
||
|
|
sta lemming_out,Y
|
||
|
|
iny
|
||
|
|
cpy LEMMINGS_TO_RELEASE
|
||
|
|
bne clear_lemmings_loop
|
||
|
|
|
||
|
|
rts
|
||
|
|
|
||
|
|
;=======================
|
||
|
|
; Init Lemmings
|
||
|
|
;=======================
|
||
|
|
release_lemming:
|
||
|
|
ldy #0
|
||
|
|
|
||
|
|
lda #1
|
||
|
|
sta lemming_out,Y
|
||
|
|
lda #0
|
||
|
|
sta lemming_exploding,Y
|
||
|
|
lda INIT_X
|
||
|
|
sta lemming_x,Y
|
||
|
|
lda INIT_Y
|
||
|
|
sta lemming_y,Y
|
||
|
|
lda #LEMMING_RIGHT
|
||
|
|
sta lemming_direction,Y
|
||
|
|
lda #LEMMING_FALLING
|
||
|
|
sta lemming_status,Y
|
||
|
|
|
||
|
|
inc LEMMINGS_OUT
|
||
|
|
jsr update_lemmings_out
|
||
|
|
|
||
|
|
dec LEMMINGS_TO_RELEASE
|
||
|
|
|
||
|
|
|
||
|
|
rts
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|