Lander opens on a splash, with music

The first customer for the player outside the program it was pulled out
of, and the argument for doing it: a splash needs no resident player at
all. Nothing else is happening while the logo is up, so Lander owns the
timer and all four channels exactly as Play does. Music UNDER a running
game is still deferred, and still the harder problem.

It polls the timer rather than being interrupted by it. Lander has no
vector segment and waits for the screen by reading port 0x30, so it waits
for a beat by reading port 0x50 - the same shape, and it brings no
handler that would have to be taken away before the game starts.

The tune is read off the disk. A missing one means the logo and silence
and the game starts anyway, the way a missing /lander.state means the
defaults stand.

FOUR THINGS THIS COST, each found by running it:

A subroutine cannot answer in A. CALL saves and restores it, so splashSkip
handed its caller back the A it already had - the channel number of the
last stepVoice - and the splash ended on its first pass whatever anybody
pressed. Q is what survives a RET, which nextRandom says twenty lines
away and I did not read.

Port 0x3D is how many window rows are SHOWN, and it is two once putGauge
runs and nothing before. A line written to row eleven went somewhere real
and was displayed nowhere.

A nought is not a keypress. It is what a recorded keyboard file holds
while nobody is typing, and a splash that took it for a key is one no
test could ever watch.

And skipping has to be free. Asked after blanking the window and reading
the file, a skipped splash still cost a fifth of a second - enough to
push the thruster test's early capture past the frame it looks at. Asked
first, it costs a pad read.

player.asm no longer asks a caller for Order0 to Order3: the voice records
name NoOrder instead, so a program whose tune comes from a file does not
have to define four order lists it never uses. That was the file case
finding a wart in the contract.

Every other Lander test now skips the splash with a space - a key the
game itself ignores, since it answers to q, z and the arrows - so they go
on testing what they tested. The one in sound.sh presses nothing, which
is what makes it the one that hears the music.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01E2JrLzFvuFX9fgi1LDRjrW

Tests/video.sh

@@ -1617,7 +1617,8 @@ EOT
 # capture near the start is worth far more than a tuned one: there is much less between it and
 # the beginning that can move.
 python3 -c "
-keys = b'Lander\n'
+SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+keys = b'Lander\n' + SKIP
 for i in range(400):
     keys += b'\x80' + b'\x00' * 47
 open('$BUILD/lander.keys','wb').write(keys + b'\x00' * 8000)
@@ -1663,7 +1664,8 @@ EOT
 # not the one the program is about to ask for. The moon has to come out exactly as it does from a fresh
 # prompt: the rows a program WRITES and the rows the screen READS are two different things,
 # and only one of them is under the program's control.
-python3 -c "open('$BUILD/scrolled.keys','wb').write(b'\n' * 80 + b'Lander\n' + b'\x00' * 3000)"
+python3 -c "SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+open('$BUILD/scrolled.keys','wb').write(b'\n' * 80 + b'Lander\n' + SKIP + b'\x00' * 3000)"
 python3 -c "open('$BUILD/scrolled.pad','wb').write(b'\\x00' * 40 + b'\\x08' * 400)"
 timeout 30 "$EMU" --fast --cycles 1500000 --keyboard "$BUILD/scrolled.keys" \
     --pad "$BUILD/scrolled.pad" --screen "$BUILD/scrolled.ppm" \
@@ -1813,7 +1815,8 @@ open('$BUILD/orbit.state','wb').write(struct.pack('<hhhhhhBBBB',
 "
 # Its own keyboard file and a silent pad. $BUILD/lander.keys holds a key down every forty
 # eight bytes for the held-thruster check, which would fly this orbit as well as measure it.
-python3 -c "open('$BUILD/fly.keys','wb').write(b'Lander\n' + b'\x00' * 8000)"
+python3 -c "SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+open('$BUILD/fly.keys','wb').write(b'Lander\n' + SKIP + b'\x00' * 8000)"
 python3 -c "open('$BUILD/none.pad','wb').write(b'\x00' * 60000)"
 cp "$ROOT/Tests/build/disks/cosmos.img" "$BUILD/orbit.img"
 "$ROOT/SplitDisk" put "$BUILD/orbit.img" "$BUILD/orbit.state" /lander.state > /dev/null
@@ -1938,7 +1941,8 @@ EOT
 # up the same row reads F, U, E, L across cells nought to three. So cells one and three being
 # empty is the whole difference, and it is 29 and 22 pixels of it rather than a threshold
 # somebody has to believe.
-python3 -c "open('$BUILD/quit.keys','wb').write(b'Lander\n' + b'\x00' * 400 + b'q' + b'\x00' * 200 + b'clear\n' + b'\x00' * 200)"
+python3 -c "SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+open('$BUILD/quit.keys','wb').write(b'Lander\n' + SKIP + b'\x00' * 400 + b'q' + b'\x00' * 200 + b'clear\n' + b'\x00' * 200)"
 timeout 30 "$EMU" --fast --cycles 14000000 --keyboard "$BUILD/quit.keys" \
     --pad "$BUILD/burn.pad" --screen "$BUILD/quit.ppm" \
     --disk "$ROOT/Tests/build/disks/cosmos.img" --ram-disk 2048 \
@@ -2029,7 +2033,8 @@ EOT
 # lifting. Borrowing it here meant the lander was being flown from the keyboard and the
 # controller at once, and the gentle descent below arrived as a crash - which reads exactly
 # like a broken altimeter and is nothing of the sort.
-python3 -c "open('$BUILD/fly.keys','wb').write(b'Lander\n' + b'\x00' * 8000)"
+python3 -c "SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+open('$BUILD/fly.keys','wb').write(b'Lander\n' + SKIP + b'\x00' * 8000)"
 python3 -c "open('$BUILD/climb.pad','wb').write(b'\x00' * 20 + b'\x09' * 300 + b'\x01' * 200 + b'\x00' * 6000)"
 python3 -c "open('$BUILD/settle.pad','wb').write(b'\x00' * 150 + b'\x08' * 90 + b'\x00' * 8000)"
 timeout 60 "$EMU" --fast --cycles 6000000 --keyboard "$BUILD/fly.keys" \
@@ -2140,7 +2145,8 @@ EOT
 # Forty zeroes before the z, because the console hands over ONE KEY A FRAME - a z two hundred
 # bytes in is a z two hundred frames away, which is past the end of this capture and reads
 # exactly like a key that does nothing.
-python3 -c "open('$BUILD/zoom.keys','wb').write(b'Lander\n' + b'\x00' * 40 + b'z' + b'\x00' * 8000)"
+python3 -c "SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+open('$BUILD/zoom.keys','wb').write(b'Lander\n' + SKIP + b'\x00' * 40 + b'z' + b'\x00' * 8000)"
 timeout 60 "$EMU" --fast --cycles 2200000 --keyboard "$BUILD/zoom.keys" \
     --screen "$BUILD/zoomkey.ppm" --disk "$ROOT/Tests/build/disks/cosmos.img" \
     --ram-disk 2048 "$BUILD/cosmos.bin" > "$BUILD/zoomkey.out" 2>&1 || true
@@ -2176,7 +2182,8 @@ print(int(d[:40].split()[1]))
 # alone looks exactly like clearing them. A hundred and eighteen returns first, which puts the
 # prompt in that band, and then the difference appears: 136 pixels of somebody else's text
 # hanging in the sky.
-python3 -c "open('$BUILD/deep.keys','wb').write(b'\n' * 118 + b'Lander\n' + b'\x00' * 8000)"
+python3 -c "SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+open('$BUILD/deep.keys','wb').write(b'\n' * 118 + b'Lander\n' + SKIP + b'\x00' * 8000)"
 timeout 60 "$EMU" --fast --cycles 8000000 --keyboard "$BUILD/deep.keys" \
     --pad "$BUILD/tap.pad" --screen "$BUILD/deep.ppm" \
     --disk "$ROOT/Tests/build/disks/cosmos.img" --ram-disk 2048 \
@@ -3266,8 +3273,9 @@ PY2
 # moon, the same lander in the same place, the same gauges. Any state that survives a run and
 # should not shows up here without anybody having to have thought of it in advance.
 python3 -c "
-open('$BUILD/once.keys','wb').write(b'Lander\n' + b'\x00'*100)
-open('$BUILD/twice.keys','wb').write(b'Lander\n' + b'\x00'*100 + b'q' + b'\x00'*20 + b'run\n' + b'\x00'*100)
+SKIP = b'\x20'  # a key the game ignores, so it skips the splash and nothing else
+open('$BUILD/once.keys','wb').write(b'Lander\n' + SKIP + b'\x00'*100)
+open('$BUILD/twice.keys','wb').write(b'Lander\n' + SKIP + b'\x00'*100 + b'q' + b'\x00'*20 + b'run\n' + SKIP + b'\x00'*100)
 open('$BUILD/still.pad','wb').write(b'\x00' * 20000)"
 for WHEN in once twice; do
     timeout 60 "$EMU" --fast --cycles 24000000 --keyboard "$BUILD/$WHEN.keys" \