A thruster you can hear, and a latch on arriving and leaving

Three patches, and the last of the sounds that were asked for.

The thruster bangs when it lights and rumbles while it burns. The rumble
is this game's first HELD note: its gate goes down when a thruster lights
and does not come up until every one is out. Only the edges matter - a
rumble restruck every frame would never get past its own attack, and a
bang struck every frame is a buzz - and the condition is the flames':
a held button with a dry tank is a pilot doing nothing.

Arriving latches two notes quickly. Middle C then the C above for taking
hold of the station, the same pair reversed for letting go, and two
octaves lower for the ground - the same shape in a different register,
because setting down and taking hold are the same kind of event. The
second note is PENDING rather than played: at an undocking the pilot is
mid-burn, and stopping the world for an eighth of a second to fit a note
in would be felt as the controls sticking. Where the game is stopping
anyway, runPend simply pumps it out.

Four channels for five sounds. The bang and the latch share one, because
a lander arriving either arrives or does not, and a crash ends the run.
That leaves the thruster its two, which it needs: a held note struck on
the same channel as the ignition bang would cut the bang off at the
moment it was meant to be heard.

---- A held note outlives the loop that was holding it ----

Landing while the thruster was still down ended the flying and then
waited to be told the message had been read, so the frame that would have
noticed the button coming up never ran. The engine roared under the
verdict and went on roaring until the machine stopped. Anything that
stops to wait hushes it now, and forgets last frame with it, so a thruster
still held when the waiting ends counts as lighting again.

---- Three checks that had to be rebuilt around the new noise ----

A landing is not silent any more, so the crash is measured against the
second BEFORE it rather than against a quiet landing. The dust samples
moved eight frames later, because the latch plays first. And the warning
check lost its measure twice: counting bursts could not tell a beep from
a nag, and measuring total length stopped working the day the thruster
got a rumble. It burns, stops, and listens AFTER - warned once there is
nothing left, nagging the last beep is still fading. Nought against 5,679.
This commit is contained in:
Anachronaut
2026-09-04 17:34:16 -04:00
parent 6fe898b5fc
commit 388faafd04
19 changed files with 645 additions and 51 deletions
+188 -14
View File
@@ -80,7 +80,7 @@ start:
CALL putLander
CALL putGauge
CALL putOrbital
CALL putBoom ; The instruments, once, the way the tiles are.
CALL putThrust ; The instruments, once, the way the tiles are.
CALL putAlarm
INIA 0x01
@@ -101,6 +101,7 @@ everyFrame:
CALL readPad
CALL readControls
CALL zoomButton
CALL thrustSound ; Which of the thrusters just lit, or just went out.
CALL fall
CALL move
CALL moveStation
@@ -115,6 +116,7 @@ everyFrame:
CALL showFuel
CALL showHeight
CALL burstTick ; Whatever is in the air, one frame on.
CALL pendTick ; And whatever note is waiting to follow another.
SETD.0 Flying
LDA.0
BNA everyFrame
@@ -1819,6 +1821,14 @@ touchdown:
SUB
BNC touchdownCrash
INIA 0d36
SETD.0 LatchFirst
STA.0
INIA 0d48
SETD.0 LatchSecond
STA.0
CALL latch ; The same shape two octaves lower, which is the ground.
CALL runPend
CALL landingDust ; Something to see for an arrival, as a crash has always had.
; ---- Down safely, which is not the end of anything ----
@@ -2001,6 +2011,14 @@ dock:
INIA 0x01
SETD.0 Docked
STA.0
INIA 0d60
SETD.0 LatchFirst
STA.0
INIA 0d72
SETD.0 LatchSecond
STA.0
CALL latch ; Middle C then the C above it: taking hold.
CALL runPend
CALL payFuel
SETD.0 DockedText
CALL sayInWindow
@@ -2081,7 +2099,14 @@ dockLetGo:
STA.0
SETD.0 DockClear
STA.0 ; A is still nought: not clear until it has actually got away.
CALL undockGas ; Started and left running: the pilot is mid-burn.
INIA 0d72
SETD.0 LatchFirst
STA.0
INIA 0d60
SETD.0 LatchSecond
STA.0
CALL latch ; The C above middle then middle: letting go.
CALL undockGas ; Both started and left running: the pilot is mid-burn.
RET
; ---- Half a pixel of the way there, or the whole of it if that is nearer ----
@@ -2699,11 +2724,151 @@ hideSprite:
; Effects take the top channel and work downwards, so music, if it ever arrives, can take
; nought and count up and the two never have to negotiate. There are four, and this is the
; first program to want any of them while also doing something else.
putBoom:
; ---- Channel three has two patches, and that is not a shortage ----
;
; The bang and the latch are the two OUTCOMES OF THE SAME EVENT: a lander arriving somewhere
; either arrives or does not, and a crash ends the run outright. They can never sound at once,
; so they share, and whichever is wanted loads itself at the moment. Fifty writes is nothing
; against a thing that happens once.
;
; That leaves nought and one for the thruster, which needs two of its own: a bang at ignition
; is a one-shot and the rumble under it is held, and a held note struck on the same channel
; would cut the bang off at the very moment it was meant to be heard.
boom:
INIA 0x03
OUTA 0x41 ; Channel three. Every parameter write below lands on it.
OUTA 0x41
SETD.0 BoomPatch
CALL playPatch
INIA 0d60 ; Middle C. The noise is not really pitched, but the filter is
; tuned off the note and this is where it was found by ear.
OUTA 0x44 ; Writing the note is what starts it.
RET
; ---- Two notes, quickly, which is what a latch sounds like ----
;
; Up for arriving and down for leaving, and two octaves lower for the ground - the same shape
; said in a different register, because a lander setting down and a lander taking hold of a
; station are the same kind of event.
;
; The second note is PENDING rather than played: at an undocking the pilot is mid-burn and
; stopping the world for an eighth of a second to fit a note in would be felt as the controls
; sticking. Where the game is stopping anyway - a landing, a docking - runPend below simply
; pumps it until it has come out.
latch:
INIA 0x03
OUTA 0x41
SETD.0 LatchPatch
CALL playPatch
SETD.0 LatchFirst
LDA.0
OUTA 0x44
SETD.0 LatchSecond
LDA.0
SETD.1 PendNote
STA.1
INIA 0d8
SETD.1 PendIn
STA.1 ; An eighth of a second, which is quick succession and not a chord.
RET
; Whatever note is waiting, one frame nearer. Nothing at all when none is.
pendTick:
SETD.0 PendIn
LDA.0
BRA pendTickDone
DECA
STA.0
BNA pendTickDone
INIA 0x03
OUTA 0x41
SETD.0 PendNote
LDA.0
OUTA 0x44
pendTickDone:
RET
; For the two that can afford to wait, the same shape runBurst has.
runPend:
CALL waitFrame
CALL pendTick
SETD.0 PendIn
LDA.0
BNA runPend
RET
; ---- The thruster, which is a bang and then a rumble ----
;
; Both on their own channels because one is struck and the other is HELD: the rumble's note
; goes on when a thruster lights and its gate does not come up until every thruster is out.
putThrust:
RSTA
OUTA 0x41
SETD.0 ThrustOnPatch
CALL playPatch
INIA 0x01
OUTA 0x41
SETD.0 ThrustHoldPatch
CALL playPatch
RET
; ---- Lit or not, and only the CHANGES matter ----
;
; The same condition the flames are drawn on, for the same reason: a held button with a dry
; tank is a pilot doing nothing. What is watched is the edge - a rumble restruck every frame
; would never get past its own attack, and a bang struck every frame is a buzz.
thrustSound:
SETD.0 Fuel
LDA.0
BRA thrustOut
SETD.0 Held
LDA.0
INIB 0x0F
AND
BRQ thrustOut
INIA 0x01
BRI thrustNow
thrustOut:
RSTA
thrustNow:
SETD.1 ThrustWas
LDB.1
STA.1 ; Now becomes what "last frame" means next time round.
CCF
SUB
BRQ thrustDone ; The same as last frame, so nothing has lit or gone out.
LDA.1
BRA thrustStopped
RSTA
OUTA 0x41
INIA 0d48
OUTA 0x44 ; The bang of it catching.
INIA 0x01
OUTA 0x41
INIA 0d36
OUTA 0x44 ; And the rumble under it, which is held.
RET
thrustStopped:
CALL hushThrust
thrustDone:
RET
; ---- The rumble stopped, wherever the stopping is happening ----
;
; A HELD note outlives the loop that was holding it. Landing while the thruster is still down
; ends the flying and then waits to be told the message has been read - and the frame that
; would have noticed the button coming up never runs, so the engine roared under the verdict
; and went on roaring. Anything that stops to wait calls this.
;
; Forgetting last frame with it, so that a thruster still held when the waiting ends counts as
; lighting again rather than as never having stopped.
hushThrust:
INIA 0x01
OUTA 0x41
RSTA
OUTA 0x45 ; The gate up is the only thing that ends a held note.
SETD.0 ThrustWas
STA.0
RET
; ---- A whole patch, out of a table ----
@@ -2729,15 +2894,6 @@ playPatchOne:
BNA playPatchOne
RET
; Two writes, which is what a note is meant to cost.
boom:
INIA 0x03
OUTA 0x41
INIA 0d60 ; Middle C. The noise is not really pitched, but the filter is
; tuned off the note and this is where it was found by ear.
OUTA 0x44 ; Writing the note is what starts it.
RET
; ---- A quarter of a tank, said once ----
;
; ONCE, and that is the whole design of it. A lander is at its most careful in the last few
@@ -2789,6 +2945,8 @@ alarm:
; read that". A or Start does it, and so does any key - asked for rather than waited on, so
; one already pressed counts.
waitKey:
CALL hushThrust ; Nothing waits with an engine still running.
waitKeyPoll:
CALL readPad
SETD.0 Held
LDA.0
@@ -2798,7 +2956,7 @@ waitKey:
INA 0x01
INIB 0x01 ; READY
AND
BRQ waitKey
BRQ waitKeyPoll
INA 0x00
waitKeyDone:
RET
@@ -3674,6 +3832,18 @@ Fuel:
0xFF
GaugeColour:
0x00
; The two notes of a latch, and how long until the second of them.
LatchFirst:
0x00
LatchSecond:
0x00
PendNote:
0x00
PendIn:
0x00
; Whether a thruster was lit last frame, since only the changes are worth a sound.
ThrustWas:
0x00
; Whether the quarter tank warning has been given since the last time it was filled.
AlarmSaid:
0x00
@@ -4159,3 +4329,7 @@ LanderArtAt:
#Include boom.asm
#Include alarm.asm
#Include thrustOn.asm
#Include thrustHold.asm
#Include latch.asm
File diff suppressed because one or more lines are too long
+54
View File
@@ -0,0 +1,54 @@
{
"osc0_waveform": 5,
"osc0_dutyCycle": 0.500000,
"osc0_detune": 0.000000,
"osc0_gain": 4.000000,
"osc0_active": 1,
"osc0_octave": 2,
"osc0_modRouting0": 0,
"osc0_modRouting1": 2,
"osc0_modRouting2": 0,
"osc0_modDepth0": 0.000000,
"osc0_modDepth1": 180.000000,
"osc0_modDepth2": 4.000000,
"osc1_waveform": 5,
"osc1_dutyCycle": 0.545000,
"osc1_detune": -15.000000,
"osc1_gain": 4.000000,
"osc1_active": 1,
"osc1_octave": 1,
"osc1_modRouting0": 0,
"osc1_modRouting1": 2,
"osc1_modRouting2": 0,
"osc1_modDepth0": -0.750000,
"osc1_modDepth1": 1104.000000,
"osc1_modDepth2": 4.000000,
"ampEnv_attack": 0.001000,
"ampEnv_decay": 0.100000,
"ampEnv_sustain": 0.000000,
"ampEnv_release": 0.001000,
"modEnv_attack": 0.001000,
"modEnv_decay": 0.288601,
"modEnv_sustain": 0.000000,
"modEnv_release": 2.000000,
"lfo0_rate": 8.796101,
"lfo0_waveform": 0,
"lfo0_active": 0,
"lfo0_mode": 0,
"lfo1_rate": 1.000000,
"lfo1_waveform": 0,
"lfo1_active": 0,
"lfo1_mode": 0,
"filter_cutoff": 389.089539,
"filter_resonance": 0.164624,
"filter_type": 0,
"filter_active": 1,
"filter_modRouting": 0,
"filter_modDepth": 11600.000000,
"filter_resModRouting": 0,
"filter_resModDepth": 0.000000,
"voice_levelSource": 2,
"voice_gate": 1,
"master_volume": 1.000000,
"master_pitchBendRange": 2.000000
}
+54
View File
@@ -0,0 +1,54 @@
{
"osc0_waveform": 5,
"osc0_dutyCycle": 0.500000,
"osc0_detune": 0.000000,
"osc0_gain": 4.000000,
"osc0_active": 1,
"osc0_octave": 0,
"osc0_modRouting0": 0,
"osc0_modRouting1": 0,
"osc0_modRouting2": 0,
"osc0_modDepth0": 0.000000,
"osc0_modDepth1": 0.000000,
"osc0_modDepth2": 0.000000,
"osc1_waveform": 0,
"osc1_dutyCycle": 0.500000,
"osc1_detune": -29.360291,
"osc1_gain": 2.868294,
"osc1_active": 1,
"osc1_octave": -1,
"osc1_modRouting0": 0,
"osc1_modRouting1": 3,
"osc1_modRouting2": 0,
"osc1_modDepth0": 0.000000,
"osc1_modDepth1": 307.482422,
"osc1_modDepth2": 0.000000,
"ampEnv_attack": 0.076245,
"ampEnv_decay": 0.182086,
"ampEnv_sustain": 1.000000,
"ampEnv_release": 0.001000,
"modEnv_attack": 0.001000,
"modEnv_decay": 0.213054,
"modEnv_sustain": 0.000000,
"modEnv_release": 0.001000,
"lfo0_rate": 19.253021,
"lfo0_waveform": 0,
"lfo0_active": 1,
"lfo0_mode": 1,
"lfo1_rate": 1.000000,
"lfo1_waveform": 0,
"lfo1_active": 0,
"lfo1_mode": 0,
"filter_cutoff": 2081.465332,
"filter_resonance": 0.000000,
"filter_type": 0,
"filter_active": 1,
"filter_modRouting": 2,
"filter_modDepth": -12846.765625,
"filter_resModRouting": 0,
"filter_resModDepth": 0.000000,
"voice_levelSource": 1,
"voice_gate": 0,
"master_volume": 1.000000,
"master_pitchBendRange": 2.000000
}
+54
View File
@@ -0,0 +1,54 @@
{
"osc0_waveform": 5,
"osc0_dutyCycle": 0.500000,
"osc0_detune": 0.000000,
"osc0_gain": 4.000000,
"osc0_active": 1,
"osc0_octave": 2,
"osc0_modRouting0": 0,
"osc0_modRouting1": 2,
"osc0_modRouting2": 0,
"osc0_modDepth0": 0.000000,
"osc0_modDepth1": 180.000000,
"osc0_modDepth2": 4.000000,
"osc1_waveform": 5,
"osc1_dutyCycle": 0.545000,
"osc1_detune": -15.000000,
"osc1_gain": 4.000000,
"osc1_active": 1,
"osc1_octave": 1,
"osc1_modRouting0": 0,
"osc1_modRouting1": 2,
"osc1_modRouting2": 0,
"osc1_modDepth0": -0.750000,
"osc1_modDepth1": 1104.000000,
"osc1_modDepth2": 4.000000,
"ampEnv_attack": 2.000000,
"ampEnv_decay": 0.100000,
"ampEnv_sustain": 0.000000,
"ampEnv_release": 0.001000,
"modEnv_attack": 0.001000,
"modEnv_decay": 0.247558,
"modEnv_sustain": 0.000000,
"modEnv_release": 2.000000,
"lfo0_rate": 8.796101,
"lfo0_waveform": 0,
"lfo0_active": 0,
"lfo0_mode": 0,
"lfo1_rate": 1.000000,
"lfo1_waveform": 0,
"lfo1_active": 0,
"lfo1_mode": 0,
"filter_cutoff": 1242.353027,
"filter_resonance": 0.164624,
"filter_type": 0,
"filter_active": 1,
"filter_modRouting": 0,
"filter_modDepth": 11600.000000,
"filter_resModRouting": 0,
"filter_resModDepth": 0.000000,
"voice_levelSource": 2,
"voice_gate": 1,
"master_volume": 1.000000,
"master_pitchBendRange": 2.000000
}
+58
View File
@@ -0,0 +1,58 @@
; LatchPatch, converted from Programs/Sounds/DockLatch.json by SoundPatch.
; Designed in soundThing, where it can be heard. Do not edit the numbers
; here: change the patch and convert it again.
#Data
LatchPatch:
0d50 ; how many pairs follow
0x00 0d5 ; oscillator 0, waveform
0x01 0d255 ; gain
0x02 0d128 ; duty
0x03 0d128 ; detune, in cents
0x04 0d130 ; octave
0x05 0d1 ; on
0x06 0d0 ; what moves its width
0x07 0d128 ; and how far
0x08 0d2 ; what moves its pitch
0x09 0d147 ; and how far
0x0A 0d0 ; what moves its gain
0x0B 0d255 ; and how far
0x10 0d5 ; oscillator 1, waveform
0x11 0d255 ; gain
0x12 0d140 ; duty
0x13 0d126 ; detune, in cents
0x14 0d129 ; octave
0x15 0d1 ; on
0x16 0d0 ; what moves its width
0x17 0d0 ; and how far
0x18 0d2 ; what moves its pitch
0x19 0d246 ; and how far
0x1A 0d0 ; what moves its gain
0x1B 0d255 ; and how far
0x20 0d4 ; amplitude envelope, attack
0x21 0d40 ; decay
0x22 0d0 ; sustain
0x23 0d4 ; release
0x30 0d4 ; modulation envelope, attack
0x31 0d68 ; decay
0x32 0d0 ; sustain
0x33 0d180 ; release
0x40 0d1 ; filter, on
0x41 0d0 ; type: 0 low, 1 high, 2 band
0x42 0d110 ; cutoff, in hertz
0x43 0d42 ; resonance
0x44 0d0 ; what moves the cutoff
0x45 0d255 ; and how far, in hertz
0x46 0d0 ; what moves the resonance
0x47 0d128 ; and how far
0x60 0d0 ; LFO 0, on
0x61 0d0 ; waveform
0x62 0d220 ; rate, in hertz
0x63 0d0 ; 0 free, 1 starts with a voice
0x70 0d0 ; LFO 1, on
0x71 0d0 ; waveform
0x72 0d127 ; rate, in hertz
0x73 0d0 ; 0 free, 1 starts with a voice
0x50 0d2 ; what shapes the level
0x51 0d1 ; 0 gated, 1 triggered
+58
View File
@@ -0,0 +1,58 @@
; ThrustHoldPatch, converted from Programs/Sounds/ThrustHold.json by SoundPatch.
; Designed in soundThing, where it can be heard. Do not edit the numbers
; here: change the patch and convert it again.
#Data
ThrustHoldPatch:
0d50 ; how many pairs follow
0x00 0d5 ; oscillator 0, waveform
0x01 0d255 ; gain
0x02 0d128 ; duty
0x03 0d128 ; detune, in cents
0x04 0d128 ; octave
0x05 0d1 ; on
0x06 0d0 ; what moves its width
0x07 0d128 ; and how far
0x08 0d0 ; what moves its pitch
0x09 0d128 ; and how far
0x0A 0d0 ; what moves its gain
0x0B 0d128 ; and how far
0x10 0d0 ; oscillator 1, waveform
0x11 0d183 ; gain
0x12 0d128 ; duty
0x13 0d125 ; detune, in cents
0x14 0d127 ; octave
0x15 0d1 ; on
0x16 0d0 ; what moves its width
0x17 0d128 ; and how far
0x18 0d3 ; what moves its pitch
0x19 0d161 ; and how far
0x1A 0d0 ; what moves its gain
0x1B 0d128 ; and how far
0x20 0d35 ; amplitude envelope, attack
0x21 0d54 ; decay
0x22 0d255 ; sustain
0x23 0d4 ; release
0x30 0d4 ; modulation envelope, attack
0x31 0d59 ; decay
0x32 0d0 ; sustain
0x33 0d4 ; release
0x40 0d1 ; filter, on
0x41 0d0 ; type: 0 low, 1 high, 2 band
0x42 0d171 ; cutoff, in hertz
0x43 0d0 ; resonance
0x44 0d2 ; what moves the cutoff
0x45 0d0 ; and how far, in hertz
0x46 0d0 ; what moves the resonance
0x47 0d128 ; and how far
0x60 0d1 ; LFO 0, on
0x61 0d0 ; waveform
0x62 0d253 ; rate, in hertz
0x63 0d1 ; 0 free, 1 starts with a voice
0x70 0d0 ; LFO 1, on
0x71 0d0 ; waveform
0x72 0d127 ; rate, in hertz
0x73 0d0 ; 0 free, 1 starts with a voice
0x50 0d1 ; what shapes the level
0x51 0d0 ; 0 gated, 1 triggered
+58
View File
@@ -0,0 +1,58 @@
; ThrustOnPatch, converted from Programs/Sounds/ThrustOn.json by SoundPatch.
; Designed in soundThing, where it can be heard. Do not edit the numbers
; here: change the patch and convert it again.
#Data
ThrustOnPatch:
0d50 ; how many pairs follow
0x00 0d5 ; oscillator 0, waveform
0x01 0d255 ; gain
0x02 0d128 ; duty
0x03 0d128 ; detune, in cents
0x04 0d130 ; octave
0x05 0d1 ; on
0x06 0d0 ; what moves its width
0x07 0d128 ; and how far
0x08 0d2 ; what moves its pitch
0x09 0d147 ; and how far
0x0A 0d0 ; what moves its gain
0x0B 0d255 ; and how far
0x10 0d5 ; oscillator 1, waveform
0x11 0d255 ; gain
0x12 0d140 ; duty
0x13 0d126 ; detune, in cents
0x14 0d129 ; octave
0x15 0d1 ; on
0x16 0d0 ; what moves its width
0x17 0d0 ; and how far
0x18 0d2 ; what moves its pitch
0x19 0d246 ; and how far
0x1A 0d0 ; what moves its gain
0x1B 0d255 ; and how far
0x20 0d180 ; amplitude envelope, attack
0x21 0d40 ; decay
0x22 0d0 ; sustain
0x23 0d4 ; release
0x30 0d4 ; modulation envelope, attack
0x31 0d63 ; decay
0x32 0d0 ; sustain
0x33 0d180 ; release
0x40 0d1 ; filter, on
0x41 0d0 ; type: 0 low, 1 high, 2 band
0x42 0d152 ; cutoff, in hertz
0x43 0d42 ; resonance
0x44 0d0 ; what moves the cutoff
0x45 0d255 ; and how far, in hertz
0x46 0d0 ; what moves the resonance
0x47 0d128 ; and how far
0x60 0d0 ; LFO 0, on
0x61 0d0 ; waveform
0x62 0d220 ; rate, in hertz
0x63 0d0 ; 0 free, 1 starts with a voice
0x70 0d0 ; LFO 1, on
0x71 0d0 ; waveform
0x72 0d127 ; rate, in hertz
0x73 0d0 ; 0 free, 1 starts with a voice
0x50 0d2 ; what shapes the level
0x51 0d1 ; 0 gated, 1 triggered