Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-19 15:30:08 +00:00
Code Issues Projects Releases Wiki Activity

mist: cabin: adjust timings on boiler a bit

Browse Source 
was a bit of a speedrun trying to get to fit into the twitter
video time limit
This commit is contained in:
Vince Weaver 2020-07-16 09:24:25 -04:00
parent 7563d411ad
commit 9f7326b5b5
1 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
mist/cabin_boiler_puzzle.s
View File

@ -11,7 +11,7 @@
; turn once counter-clockwise fire turns off ; turn once counter-clockwise fire turns off
; turn twice CW -> ? ; turn twice CW -> ?
; turn 3 CW -> ? ; turn 3 CW -> ?
; turn 4, 5, 6, 7, 8, 9, 10, 11, 12, CW -> ? ; turn 4, 5, 6, 7, 8, 9, 10, 11, 12, CW -> ?
; can turn up to 25 ; can turn up to 25
; at 12 starts gradually going up ; at 12 starts gradually going up
; (needle swings hits end, waits like 5s, goes up) ; (needle swings hits end, waits like 5s, goes up)
@ -46,10 +46,10 @@
; then if valve>12 inc level, when hit 15 inc tree ; then if valve>12 inc level, when hit 15 inc tree
; if valve<12 dec level, when hit 0 dec tree ; if valve<12 dec level, when hit 0 dec tree
; rate of adding is (valve-12) 0..12 / 4 = 0..3 ; rate of adding is (valve-12) 0..12 / 4 = 0..3
; 0 = FRAMEL&1f==0 ; 0 = FRAMEL&7f==0
; 1 = FRAMEL&f==0 ; 1 = FRAMEL&3f==0
; 2 = FRAMEL&7==0 ; 2 = FRAMEL&1f==0
; 3 = FRAMEL&3==0 ; 3 = FRAMEL&7==0
; Make noise when change tree level ; Make noise when change tree level
update_boiler_state: update_boiler_state:
@ -59,7 +59,7 @@ update_boiler_state:
bpl done_boiler_state bpl done_boiler_state
lda BOILER_VALVE lda BOILER_VALVE
beq done_boiler_state ; beq done_boiler_state
sec sec
sbc #12 sbc #12
@ -70,12 +70,28 @@ update_boiler_state:
adc #$1 adc #$1
skip_abs: skip_abs:
; adjust speed based on valve position
; div by 4 ; div by 4
lsr lsr
lsr lsr
tay
lda FRAMEL lda FRAMEL
cpy #0
beq speed_slowest
cpy #1
beq speed_slow
cpy #2
beq speed_fast
speed_fastest:
and #$f
speed_fast:
and #$1f and #$1f
speed_slow:
and #$3f
speed_slowest:
and #$7f
beq actually_adjust_boiler beq actually_adjust_boiler
rts rts
@ -320,7 +336,7 @@ valve_dec:
valve_inc: valve_inc:
lda BOILER_VALVE lda BOILER_VALVE
cmp #24 cmp #25
bcs done_valve bcs done_valve
inc BOILER_VALVE inc BOILER_VALVE