dos33fsprogs/games/lemm/init_level.s

26 lines
406 B
ArmAsm

;====================
; reset level vars
;====================
init_level:
lda #$f ; default release speed
sta release_lemming_speed+1
lda #0
sta LEVEL_OVER
sta DOOR_OPEN
sta FRAMEL
sta LOAD_NEXT_CHUNK
sta LEMMINGS_OUT
sta NEXT_LEMMING_TO_RELEASE
sta PERCENT_RESCUED_L
sta PERCENT_RESCUED_H
jsr clear_lemmings_out
jsr update_lemmings_out ; update display
jsr update_time
rts