Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-19 12:32:35 +00:00
Code Issues Projects Releases Wiki Activity
84d470c71b
dos33fsprogs/ootw/door.s

402 lines
6.9 KiB
ArmAsm
Raw Normal View History

ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
DOOR_STATUS_OPENING1 = $00
DOOR_STATUS_OPENING2 = $01
DOOR_STATUS_OPEN = $02
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
DOOR_STATUS_CLOSING1 = $03
DOOR_STATUS_CLOSING2 = $04
DOOR_STATUS_CLOSED = $05
DOOR_STATUS_EXPLODED = $06
DOOR_STATUS_LOCKED = $07
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
DOOR_STATUS_EXPLODING1 = $08
DOOR_STATUS_EXPLODING2 = $09
DOOR_STATUS_EXPLODING3 = $0A
DOOR_STATUS_EXPLODING4 = $0B
DOOR_STATUS_EXPLODING5 = $0C
DOOR_STATUS_EXPLODING6 = $0D
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: initial door support slowing things down...
2019-08-15 14:30:07 +00:00
;==================================
; draw_doors
;==================================
; be sure to smc to point to right place
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: initial door support slowing things down...
2019-08-15 14:30:07 +00:00
draw_doors:
lda NUM_DOORS
beq done_draw_doors
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
ldy #0
ootw: initial door support slowing things down...
2019-08-15 14:30:07 +00:00
draw_doors_loop:
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
lda (DOOR_STATUS),Y
tax
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
lda door_sprite_lookup_lo,X
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
sta INL
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
lda door_sprite_lookup_hi,X
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
sta INH
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
actually_draw_door:
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
lda (DOOR_X),Y
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
sta XPOS
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
lda (DOOR_Y),Y
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
sta YPOS
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
tya
ootw: initial door support slowing things down...
2019-08-15 14:30:07 +00:00
pha
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
lda (DOOR_STATUS),Y
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
cmp #DOOR_STATUS_EXPLODING1
bcs draw_exploding_door
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
jsr put_sprite
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
after_door_put_sprite:
ootw: initial door support slowing things down...
2019-08-15 14:30:07 +00:00
pla
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
tay
ootw: initial door support slowing things down...
2019-08-15 14:30:07 +00:00
draw_doors_continue:
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
iny
cpy NUM_DOORS
ootw: initial door support slowing things down...
2019-08-15 14:30:07 +00:00
bne draw_doors_loop
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
done_draw_doors:
rts
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
draw_exploding_door:
lda FRAMEL
and #$7
bne not_done_exploding_door
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
lda (DOOR_STATUS),Y
clc
adc #1
sta (DOOR_STATUS),Y
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
cmp #DOOR_STATUS_EXPLODING6
bcc not_done_exploding_door
lda #DOOR_STATUS_EXPLODED
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
sta (DOOR_STATUS),Y
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
not_done_exploding_door:
dec XPOS
jsr put_sprite
jmp after_door_put_sprite
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
;==========================
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
;==========================
; handle doors
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
;==========================
;==========================
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
handle_doors:
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
lda NUM_DOORS
beq done_handle_doors
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
ldy #0
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
handle_doors_loop:
; state machine
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
lda (DOOR_STATUS),Y
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
; if locked->do nothing
cmp #DOOR_STATUS_LOCKED
beq handle_doors_continue
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
; if exploded->do nothing
cmp #DOOR_STATUS_EXPLODED
beq handle_doors_continue
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
; if closed and xpos/ypos in range: open
; if open and xpos/ypos not ni range: close
cmp #DOOR_STATUS_OPEN
beq handle_doors_open
cmp #DOOR_STATUS_CLOSED
beq handle_doors_closed
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
; if exploding: continue exploding
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
; we handle the increment elsewhere
cmp #DOOR_STATUS_EXPLODING1
bcs handle_doors_continue ; bge
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
; if opening, continue to open
; if closing, continue to close
handle_door_inc_state:
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
lda (DOOR_STATUS),Y
clc
adc #1
sta (DOOR_STATUS),Y
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
handle_doors_continue:
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
iny
cpy NUM_DOORS
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
bne handle_doors_loop
done_handle_doors:
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
rts
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
handle_doors_open:
; only open/close if on same level
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
lda (DOOR_Y),Y
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
clc
adc #4
cmp PHYSICIST_Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
bne close_door
lda PHYSICIST_X
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
cmp (DOOR_XMAX),Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
bcs close_door ; bge
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
cmp (DOOR_XMIN),Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
bcc close_door ; blt
; made it here, we are in bounds, stay open
jmp handle_doors_continue
close_door:
lda #DOOR_STATUS_CLOSING1
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
sta (DOOR_STATUS),Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
jmp handle_doors_continue
handle_doors_closed:
; only open if on same level
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
lda (DOOR_Y),Y
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
clc
adc #4
cmp PHYSICIST_Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
bne handle_doors_continue
lda PHYSICIST_X
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
cmp (DOOR_XMAX),Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
bcs handle_doors_continue
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
cmp (DOOR_XMIN),Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
bcc handle_doors_continue
open_door:
lda #DOOR_STATUS_OPENING1
ootw: c4: start making doors generic
2019-08-16 18:34:16 +00:00
sta (DOOR_STATUS),Y
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
jmp handle_doors_continue
ootw: c4: generic doors now implemented
2019-08-16 18:47:03 +00:00
;====================
;====================
; setup door table
;====================
;====================
setup_door_table:
ldx #9
setup_door_table_loop:
setup_door_table_loop_smc:
lda $1000,X
sta DOOR_STATUS,X
dex
bpl setup_door_table_loop
rts
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
;======================================
;======================================
; door sprites
;======================================
;======================================
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
door_sprite_lookup_lo:
.byte <door_opening_sprite1 ; DOOR_STATUS_OPENING1
.byte <door_opening_sprite2 ; DOOR_STATUS_OPENING2
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
.byte <door_open_sprite ; DOOR_STATUS_OPEN
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
.byte <door_closing_sprite1 ; DOOR_STATUS_CLOSING1
.byte <door_closing_sprite2 ; DOOR_STATUS_CLOSING2
.byte <door_closed_sprite ; DOOR_STATUS_CLOSED
.byte <door_exploded_sprite ; DOOR_STATUS_EXPLODED
.byte <door_closed_sprite ; DOOR_STATUS_LOCKED
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
.byte <door_exploding_sprite1 ; DOOR_STATUS_EXPLODING1
.byte <door_exploding_sprite2 ; DOOR_STATUS_EXPLODING2
.byte <door_exploding_sprite3 ; DOOR_STATUS_EXPLODING3
.byte <door_exploding_sprite4 ; DOOR_STATUS_EXPLODING4
.byte <door_exploding_sprite5 ; DOOR_STATUS_EXPLODING5
.byte <door_exploding_sprite6 ; DOOR_STATUS_EXPLODING6
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
door_sprite_lookup_hi:
.byte >door_opening_sprite1 ; DOOR_STATUS_OPENING1
.byte >door_opening_sprite2 ; DOOR_STATUS_OPENING2
ootw: c4: doors work!
2019-08-15 16:30:00 +00:00
.byte >door_open_sprite ; DOOR_STATUS_OPEN
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
.byte >door_closing_sprite1 ; DOOR_STATUS_CLOSING1
.byte >door_closing_sprite2 ; DOOR_STATUS_CLOSING2
.byte >door_closed_sprite ; DOOR_STATUS_CLOSED
.byte >door_exploded_sprite ; DOOR_STATUS_EXPLODED
.byte >door_closed_sprite ; DOOR_STATUS_LOCKED
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
.byte >door_exploding_sprite1 ; DOOR_STATUS_EXPLODING1
.byte >door_exploding_sprite2 ; DOOR_STATUS_EXPLODING2
.byte >door_exploding_sprite3 ; DOOR_STATUS_EXPLODING3
.byte >door_exploding_sprite4 ; DOOR_STATUS_EXPLODING4
.byte >door_exploding_sprite5 ; DOOR_STATUS_EXPLODING5
.byte >door_exploding_sprite6 ; DOOR_STATUS_EXPLODING6
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
door_closed_sprite:
.byte 1,10
.byte $00
.byte $00
.byte $00
.byte $00
.byte $00
.byte $00
.byte $00
.byte $00
.byte $00
.byte $00
door_open_sprite:
.byte 1,10
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
door_opening_sprite2:
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
door_closing_sprite1:
.byte 1,10
.byte $00
.byte $A0
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $0A
.byte $00
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
door_opening_sprite1:
ootw: c4: work on doors
2019-08-08 04:38:55 +00:00
door_closing_sprite2:
.byte 1,10
.byte $00
.byte $00
.byte $00
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $00
.byte $00
.byte $00
ootw: c5: add level5 (this is probably a mistake)
2019-08-08 19:38:10 +00:00
door_exploded_sprite:
.byte 1,10
.byte $00
.byte $A5
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $AA
.byte $A5
ootw: c4: more progress on doors
2019-08-15 15:36:53 +00:00
door_exploding_sprite1:
ootw: c4: can blast open doors now
2019-08-15 19:12:34 +00:00
.byte 3,10
.byte $AA,$FF,$66
.byte $AA,$FF,$66
.byte $AA,$FF,$AA
.byte $AA,$FF,$AA
.byte $AA,$FF,$AA
.byte $AA,$FF,$AA
.byte $AA,$FF,$AA
.byte $AA,$FF,$AA
.byte $AA,$FF,$66
.byte $AA,$FF,$66
door_exploding_sprite2:
.byte 3,10
.byte $AA,$FF,$EE
.byte $AA,$FF,$EE
.byte $EE,$FF,$EE
.byte $FF,$FF,$EE
.byte $FF,$FF,$EE
.byte $FF,$FF,$EE
.byte $EE,$FF,$EE
.byte $AA,$FF,$EE
.byte $AA,$FF,$EE
.byte $AA,$FF,$EE
door_exploding_sprite3:
.byte 3,10
.byte $AA,$00,$AA
.byte $AA,$A5,$AA
.byte $FF,$AA,$AA
.byte $FF,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $FF,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$A5,$AA
door_exploding_sprite4:
.byte 3,10
.byte $AA,$00,$AA
.byte $AA,$A5,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $FF,$AA,$AA
.byte $FF,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $FF,$AA,$AA
.byte $AA,$A5,$AA
door_exploding_sprite5:
.byte 3,10
.byte $AA,$00,$AA
.byte $AA,$A5,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $FA,$AA,$AA
.byte $AF,$A5,$AA
door_exploding_sprite6:
.byte 3,10
.byte $AA,$00,$AA
.byte $AA,$A5,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $AA,$AA,$AA
.byte $FA,$AA,$AA
.byte $AF,$A5,$AA
Reference in New Issue Copy Permalink