dos33fsprogs/ootw/ootw_c2_cage.s
2019-03-20 22:46:18 -04:00

143 lines
1.9 KiB
ArmAsm

; Ootw Checkpoint2 -- Despite all my Rage...
ootw_cage:
;===========================
; Enable graphics
bit LORES
bit SET_GR
bit FULLGR
;===========================
; Setup pages (is this necessary?)
lda #0
sta DRAW_PAGE
lda #1
sta DISP_PAGE
;=============================
; Load background to $c00
lda #>(cage_rle)
sta GBASH
lda #<(cage_rle)
sta GBASL
lda #$c ; load image off-screen $c00
jsr load_rle_gr
;=================================
; copy to screen
jsr gr_copy_to_current
jsr page_flip
;=================================
; setup vars
lda #0
sta GAME_OVER
bit KEYRESET ; clear keypress
;============================
; Cage Loop
;============================
cage_loop:
;================================
; copy background to current page
jsr gr_copy_to_current
;=======================
; draw miners mining
;===============================
; check keyboard
lda KEYPRESS
bpl cage_no_keypress
;===========================
; Done with cage, enter jail
bit KEYRESET ; clear keyboard
lda #1
sta DIRECTION
lda #22
sta PHYSICIST_Y
lda #24
sta PHYSICIST_X
lda #0
sta PHYSICIST_STATE
sta WHICH_JAIL
jmp ootw_jail
cage_no_keypress:
;===============
; draw physicist
; jsr draw_physicist
;======================
; draw cage
;===============
; page flip
jsr page_flip
;================
; inc frame count
inc FRAMEL
bne cage_frame_no_oflo
inc FRAMEH
cage_frame_no_oflo:
; pause?
; check if done this level
lda GAME_OVER
cmp #$ff
beq done_cage
; check if done this level
; cmp #$2
; bne not_to_right
; exit to right
; lda #0
; sta PHYSICIST_X
; sta WHICH_CAVE
; jmp ootw_cavern
;not_to_right:
; cmp #$1
; bne not_done_pool
; lda #37
; sta PHYSICIST_X
; jmp ootw_rope
;not_done_pool:
; loop forever
jmp cage_loop
done_cage:
rts