Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-07 21:30:39 +00:00
Code Issues Projects Releases Wiki Activity

mist: channel: hook up the valve puzzle to the various devices

Browse Source
This commit is contained in:
Vince Weaver 2020-07-27 13:37:17 -04:00
parent bb2fa543e2
commit 82a30d20fd
2 changed files with 79 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
mist/arbor_switches.s
View File

@ -1,14 +1,27 @@
;=============================
; elevator1 handle pulled
;=============================
; TODO: animate
; FIXME: check for water power
; FIXME: animate
elev1_handle:
; click speaker
bit SPEAKER
; check for water power
lda CHANNEL_SWITCHES
bpl no_elev1_water_power ; water on is high bit
; check for proper valves
lda CHANNEL_VALVES
and #$0b ; check V1,V2,V4,V5
cmp #$01 ; want V1 on, V2,V4,V5 off
beq elev1_water_power_good
no_elev1_water_power:
rts
elev1_water_power_good:
; go to bottom floor, which involves moving to CHANNEL level
@ -65,10 +78,8 @@ hut_handle:
; elevator2 handle pulled
;=============================
;=============================
; TODO: animate
; FIXME: check for water power
; FIXME: animate
elevator2_handle:
; click speaker
@ -76,6 +87,20 @@ elevator2_handle:
; check for water power
lda CHANNEL_SWITCHES
bpl no_elev2_water_power ; water on is high bit
; check for proper valves
lda CHANNEL_VALVES
and #$1 ; check V1
beq elev2_water_power_good ; want V1 off
no_elev2_water_power:
rts
elev2_water_power_good:
lda #NIBEL_IN_ELEV2_TOP_CLOSED
sta LOCATION

61
mist/channel_switches.s
View File

@ -434,16 +434,29 @@ book_room_grab_book:
; book elevator handle pulled
;=============================
;=============================
; TODO: animate
; FIXME: check for water power
; FIXME: animate
book_elevator_handle:
; click speaker
bit SPEAKER
; check for water power
lda CHANNEL_SWITCHES
and #<(CHANNEL_SW_FAUCET|CHANNEL_PIPE_EXTENDED)
cmp #<(CHANNEL_SW_FAUCET|CHANNEL_PIPE_EXTENDED)
bne no_book_water_power
; check for proper valves
lda CHANNEL_VALVES
and #$0b ; check V1,V2,V4,V5
cmp #$09 ; want V1 V4 on, V2,V5 off
beq book_water_power_good
no_book_water_power:
rts
book_water_power_good:
; toggle floor
lda CHANNEL_SWITCHES
@ -496,15 +509,27 @@ book_elevator_handle_done:
; elevator1 handle pulled
;=============================
;=============================
; TODO: animate
; FIXME: check for water power
; FIXME: animate
elev1_handle:
; click speaker
bit SPEAKER
; check for water power
lda CHANNEL_SWITCHES
bpl no_elev1_water_power ; water on is high bit
; check for proper valves
lda CHANNEL_VALVES
and #$0b ; check V1,V2,V4,V5
cmp #$01 ; want V1 on, V2,V4,V5 off
beq elev1_water_power_good
no_elev1_water_power:
rts
elev1_water_power_good:
; go to next floor, which involves moving to ARBOR level
@ -581,11 +606,7 @@ elev1_close_door:
; raise bridge
;=======================
;=======================
; if CHANNEL_SWITCHES CHANNEL_SW_WINDMILL and CHANNEL_SW_FAUCET
; TODO: also if various valves in correct pattern
; verified: can raise and lower bridge if powered with water
; verified real game behavior: can raise and lower bridge if powered with water
raise_bridge:
@ -593,11 +614,27 @@ raise_bridge:
; only raise/lower if water is flowing
; check for water power
lda CHANNEL_SWITCHES
and #CHANNEL_SW_WINDMILL|CHANNEL_SW_FAUCET
cmp #CHANNEL_SW_WINDMILL|CHANNEL_SW_FAUCET
; bne no_raise_bridge
bpl no_bridge_water_power ; water on is high bit
; check for proper valves
; there are actually two solutions
lda CHANNEL_VALVES
and #$33 ; check V1,V2,V5,V6
cmp #$31 ; want V1,V5,V6 on, V2 off
beq bridge_water_power_good
lda CHANNEL_VALVES
and #$07 ; check V1,V2,V3
cmp #$03 ; want V1,V2 on, V3 off
beq bridge_water_power_good
no_bridge_water_power:
rts
bridge_water_power_good:
; toggle bridge state