Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-07-02 09:29:39 +00:00
Code Issues Projects Releases Wiki Activity
105303e239
dos33fsprogs/ootw/ootw_c2_cage.s

525 lines
10 KiB
ArmAsm
Raw Normal View History

ootw: intro2 working also split out some common intro code
2019-03-20 18:41:31 +00:00
; Ootw Checkpoint2 -- Despite all my Rage...
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
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
ootw: forgot about checkpoint2
2019-02-03 06:00:47 +00:00
lda #$c ; load image off-screen $c00
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
jsr load_rle_gr
;=================================
ootw: intro2 working also split out some common intro code
2019-03-20 18:41:31 +00:00
; copy to screen
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
jsr gr_copy_to_current
jsr page_flip
;=================================
; setup vars
lda #0
sta GAME_OVER
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
sta CAGE_AMPLITUDE
sta CAGE_OFFSET
ootw: c2: have the guard change
2019-07-15 19:54:37 +00:00
sta CAGE_GUARD
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
ootw: can sorta walk around level2 now
2019-03-21 02:46:18 +00:00
bit KEYRESET ; clear keypress
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
;============================
; Cage Loop
;============================
cage_loop:
;================================
; copy background to current page
jsr gr_copy_to_current
;=======================
; draw miners mining
ootw: c2: add miners
2019-07-15 16:03:54 +00:00
jsr ootw_draw_miners
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
;======================
; draw cage
ootw: c2: have the guard change
2019-07-15 19:54:37 +00:00
;======================
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
lda #11
sta XPOS
lda #0
sta YPOS
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
lda CAGE_AMPLITUDE
cmp #2
beq cage_amp_2
cmp #1
beq cage_amp_1
cage_amp_0:
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
lda #<cage_center_sprite
sta INL
lda #>cage_center_sprite
sta INH
jsr put_sprite_crop
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
jmp done_drawing_cage
cage_amp_1:
lda CAGE_OFFSET
and #$0e
tay
lda cage_amp1_sprites,Y
sta INL
lda cage_amp1_sprites+1,Y
sta INH
jsr put_sprite_crop
jmp done_drawing_cage
cage_amp_2:
lda CAGE_OFFSET
and #$0e
tay
lda cage_amp2_sprites,Y
sta INL
lda cage_amp2_sprites+1,Y
sta INH
jsr put_sprite_crop
done_drawing_cage:
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
ootw: c2: have the guard change
2019-07-15 19:54:37 +00:00
;======================
; draw guard
;======================
lda CAGE_GUARD
cmp #15
bcs guard_changed
lda #34
sta XPOS
lda #28
sta YPOS
lda CAGE_GUARD
asl
tay
lda changing_guard_sprites,Y
sta INL
lda changing_guard_sprites+1,Y
sta INH
jsr put_sprite_crop
; inc CAGE_GUARD
jmp done_cage_guard
guard_changed:
; other guard activity
done_cage_guard:
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
;===============================
; check keyboard
ootw: can sorta walk around level2 now
2019-03-21 02:46:18 +00:00
lda KEYPRESS
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
bpl cage_continue
inc CAGE_AMPLITUDE
lda CAGE_AMPLITUDE
cmp #3
bne cage_continue
ootw: can sorta walk around level2 now
2019-03-21 02:46:18 +00:00
;===========================
; Done with cage, enter jail
bit KEYRESET ; clear keyboard
ootw: c2: split out elevator code
2019-07-09 15:23:48 +00:00
rts
ootw: can sorta walk around level2 now
2019-03-21 02:46:18 +00:00
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
cage_continue:
bit KEYRESET ; clear keyboard
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
;===============
; page flip
jsr page_flip
;================
; inc frame count
inc FRAMEL
bne cage_frame_no_oflo
inc FRAMEH
cage_frame_no_oflo:
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
;================
; move cage
lda FRAMEL ; slow down a bit
and #$7
bne no_move_cage
lda CAGE_AMPLITUDE
beq no_move_cage
inc CAGE_OFFSET
no_move_cage:
ootw: c2: have the guard change
2019-07-15 19:54:37 +00:00
;=====================
; move cage guard
lda FRAMEL ; slow down a bit
and #$f
bne no_move_cage_guard
inc CAGE_GUARD
no_move_cage_guard:
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
ootw: c2: have the guard change
2019-07-15 19:54:37 +00:00
;===========================
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
; 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
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
ootw: add placeholder for checkpoint2
2019-01-28 02:37:09 +00:00
; loop forever
jmp cage_loop
done_cage:
rts
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
cage_amp1_sprites:
.word cage_center_sprite
.word cage_right1_sprite
.word cage_right1_sprite
.word cage_right1_sprite
.word cage_center_sprite
.word cage_left1_sprite
.word cage_left1_sprite
.word cage_left1_sprite
cage_amp2_sprites:
.word cage_center_sprite
.word cage_right1_sprite
.word cage_right2_sprite
.word cage_right1_sprite
.word cage_center_sprite
.word cage_left1_sprite
.word cage_left2_sprite
.word cage_left1_sprite
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
cage_center_sprite:
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
.byte 11,11
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$58,$A8,$98,$58,$A8,$A8,$58,$AA,$AA
.byte $AA,$AA,$55,$AA,$BB,$55,$AA,$AA,$55,$AA,$AA
.byte $AA,$AA,$55,$AB,$00,$55,$77,$77,$55,$AA,$AA
.byte $AA,$AA,$55,$AA,$00,$55,$07,$07,$55,$AA,$AA
.byte $AA,$AA,$55,$AA,$44,$55,$00,$50,$55,$AA,$AA
.byte $AA,$AA,$55,$AA,$44,$55,$05,$00,$55,$AA,$AA
.byte $AA,$AA,$85,$8A,$87,$85,$80,$80,$85,$AA,$AA
ootw: c2: can swing cage now
2019-07-15 18:33:33 +00:00
cage_right1_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$A5,$5A,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$85,$8A,$8A,$8A,$AA
.byte $AA,$AA,$AA,$58,$A8,$98,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$BB,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$55,$AB,$00,$55,$77,$77,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$00,$55,$07,$57,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$44,$55,$05,$50,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$44,$55,$00,$00,$55,$AA
.byte $AA,$AA,$AA,$85,$87,$87,$85,$80,$80,$55,$AA
cage_right2_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$A5,$5A,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$8A,$85,$A8,$5A,$AA
.byte $AA,$AA,$AA,$AA,$58,$98,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$AA,$55,$BB,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$AA,$55,$00,$55,$77,$77,$55,$AA
.byte $AA,$AA,$AA,$AA,$55,$00,$55,$07,$57,$58,$5A
.byte $AA,$AA,$AA,$AA,$AA,$55,$44,$55,$50,$00,$55
.byte $AA,$AA,$AA,$AA,$AA,$55,$44,$55,$00,$80,$85
.byte $AA,$AA,$AA,$AA,$AA,$85,$87,$A8,$A8,$AA,$AA
cage_left1_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$5A,$A5,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$8A,$8A,$8A,$85,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$55,$AA,$B9,$55,$A8,$A8,$58,$AA,$AA,$AA
.byte $AA,$55,$BA,$0B,$55,$AA,$AA,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$00,$55,$7A,$7A,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$40,$55,$77,$77,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$44,$55,$00,$00,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$74,$55,$00,$05,$55,$AA,$AA,$AA
.byte $AA,$A8,$A8,$A8,$A8,$80,$80,$85,$AA,$AA,$AA
cage_left2_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$5A,$A5,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$58,$A8,$85,$8A,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$55,$AA,$B9,$55,$A8,$58,$AA,$AA,$AA,$AA
.byte $AA,$55,$BA,$0B,$55,$AA,$55,$AA,$AA,$AA,$AA
.byte $AA,$55,$AA,$00,$55,$7A,$55,$AA,$AA,$AA,$AA
.byte $5A,$A5,$4A,$40,$55,$77,$55,$AA,$AA,$AA,$AA
.byte $55,$AA,$44,$55,$55,$55,$AA,$AA,$AA,$AA,$AA
.byte $85,$8A,$74,$55,$00,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$A8,$A8,$80,$85,$AA,$AA,$AA,$AA,$AA
ootw: c2: add proper cage
2019-07-15 17:33:44 +00:00
ootw: c2: have the guard change
2019-07-15 19:54:37 +00:00
changing_guard_sprites:
.word changing_guard1_sprite ; 0
.word changing_guard2_sprite ; 1
.word changing_guard3_sprite ; 2
.word changing_guard4_sprite ; 3
.word changing_guard5_sprite ; 4
.word changing_guard6_sprite ; 5
.word changing_guard7_sprite ; 6
.word changing_guard8_sprite ; 7
.word changing_guard9_sprite ; 8
.word changing_guard10_sprite ; 9
.word changing_guard11_sprite ; 10
.word changing_guard11_sprite ; 11
.word changing_guard11_sprite ; 12
.word changing_guard12_sprite ; 13
.word changing_guard13_sprite ; 14
changing_guard1_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$0A
.byte $0A,$00,$00,$00
.byte $A0,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
changing_guard2_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$0A
.byte $00,$00,$00,$00
.byte $A0,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
changing_guard3_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$00
.byte $00,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$AA,$00,$00
.byte $AA,$0A,$00,$00
changing_guard4_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$00
.byte $00,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$A0,$00,$00
.byte $AA,$AA,$00,$00
.byte $AA,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard5_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$00
.byte $0A,$00,$00,$00
.byte $00,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$A0,$00,$50
.byte $AA,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard6_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $00,$00,$00,$00
.byte $00,$00,$70,$50
.byte $00,$AA,$77,$55
.byte $A0,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard7_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$77,$75,$AA
.byte $0A,$07,$00,$00
.byte $00,$50,$00,$00
.byte $00,$00,$00,$00
.byte $00,$00,$70,$50
.byte $00,$AA,$77,$55
.byte $A0,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard8_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$77,$75,$AA
.byte $AA,$A7,$00,$00
.byte $00,$50,$00,$00
.byte $00,$00,$00,$00
.byte $00,$00,$70,$50
.byte $00,$A0,$77,$55
.byte $00,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard9_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$77,$77,$AA
.byte $0A,$00,$00,$0A
.byte $70,$00,$00,$50
.byte $77,$00,$00,$55
.byte $A7,$00,$00,$A5
.byte $7A,$A0,$A0,$5A
.byte $07,$AA,$AA,$05
.byte $00,$AA,$AA,$00
changing_guard10_sprite:
.byte 4,9
.byte $22,$A2,$A2,$22
.byte $22,$77,$77,$22
.byte $02,$00,$00,$02
.byte $70,$00,$00,$50
.byte $77,$00,$00,$55
.byte $A7,$00,$00,$A5
.byte $7A,$A0,$00,$5A
.byte $07,$AA,$A0,$05
.byte $00,$AA,$AA,$00
changing_guard11_sprite:
.byte 4,9
.byte $22,$02,$02,$22
.byte $22,$77,$77,$22
.byte $02,$00,$00,$02
.byte $70,$00,$00,$50
.byte $77,$00,$00,$55
.byte $A7,$00,$00,$AA
.byte $7A,$A0,$A0,$5A
.byte $07,$AA,$AA,$05
.byte $00,$AA,$AA,$00
changing_guard12_sprite:
.byte 4,9
.byte $22,$02,$02,$22
.byte $22,$77,$75,$22
.byte $A2,$07,$00,$A2
.byte $AA,$77,$00,$AA
.byte $AA,$77,$10,$AA
.byte $AA,$00,$00,$AA
.byte $AA,$77,$A0,$55
.byte $AA,$07,$AA,$05
.byte $0A,$00,$0A,$00
changing_guard13_sprite:
.byte 4,9
.byte $22,$02,$02,$22
.byte $22,$77,$75,$22
.byte $A2,$07,$00,$A2
.byte $AA,$00,$77,$AA
.byte $AA,$77,$10,$AA
.byte $AA,$00,$00,$AA
.byte $AA,$77,$A0,$55
.byte $AA,$07,$AA,$05
.byte $0A,$00,$0A,$00
Reference in New Issue Copy Permalink