Make the screen come back on the machine people actually run

Found by running it: Grid exits and the shell prints its prompt into the
grid, with the view up to seven pixels out of alignment. Three faults, and
the first is the one that made the other two visible.

MAKE RUN-VOYAGER HAD NO SCRATCH DRIVE. It gives drive 1 to Disks/personal.img,
which is a file and not volatile, so there was nowhere to keep a screen -
osTakeScreen answered no and the whole feature silently did not happen. It
was tested with --ram-disk and shipped without one, which is as good a
description of testing the wrong machine as I can write. There is now a RAM
disk in drive 2, after the personal disk so that drive 1 stays the one that
is yours.

A PROGRAM TOLD NO MUST COPE. A refusal is not a fault, it means doing what
the program did before there was anywhere to save a screen. Grid deleted
its own tidying up when it started asking, so being refused left the grid
on screen with a prompt written into it. It clears up again when refused,
and only then.

AND THE SYSTEM ALWAYS LEAVES THE SCREEN USABLE. The fine scroll registers
go back to zero at every program exit, whether or not the picture could be
saved: the console draws in whole cells, so a view three pixels into one
puts every character three pixels out for ever. That is not part of saving
a screen and should never have depended on it.

Both paths are checked now. With a scratch drive the screen comes back cell
for cell; without one, no grid is left behind. Breaking either fails one of
them and not the other.

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

Programs/CosmOS/Apps/Grid.asm

@@ -51,6 +51,9 @@ start:
   ; at exit - and if it says it cannot, this carries on anyway, because it did before there
   ; was anywhere to put it.
   SWI osTakeScreen
+  MVQA
+  SETD.0 ScreenKept
+  STA.0                     ; Nought means the system will put it back.
 
   CALL putTile
   CALL putPalette
@@ -135,6 +138,58 @@ finished:
   ;
   ; All of it is osTakeScreen's now, and it gives back what was actually there rather than
   ; what a clean machine looks like.
+  ;
+  ; ---- Unless it said no ----
+  ;
+  ; A machine with no volatile drive has nowhere to keep a screen, and answers so. Being told
+  ; no is not a fault and not a reason to stop: it means doing what this program did before
+  ; there was anywhere to put one, which is leaving a blank screen rather than a grid with
+  ; somebody's prompt printed into it.
+  SETD.0 ScreenKept
+  LDA.0
+  BRA gridScreenKept
+
+  RSTA
+  OUTA 0x34
+  OUTA 0x36                 ; The origins, or the shell looks at a corner of the map.
+
+  INIA 0d4
+  OUTA 0xE3
+  INIA 0x40
+  OUTA 0xE4
+  RSTA
+  OUTA 0xE5
+  OUTA 0xE2                 ; Tile nought is the space and attribute nought is plain.
+  INIA 0x80
+  OUTA 0xE6
+  RSTA
+  OUTA 0xE7
+  INIA 0x02
+  OUTA 0xE8                 ; Fill the whole map with it.
+
+  ; And the colours the machine wakes up in, which is as near as this can get to the ones it
+  ; took: grey on black is what plain text has always been here.
+  INIA 0d4
+  OUTA 0xE3
+  INIA 0xFC
+  OUTA 0xE4
+  RSTA
+  OUTA 0xE5
+  OUTA 0xE9
+  OUTA 0xE9
+  OUTA 0xE9
+  OUTA 0xE9
+  INIA 0xD8
+  OUTA 0xE9
+  OUTA 0xE9
+  OUTA 0xE9
+  RSTA
+  OUTA 0xE9
+
+  INIA 0x01
+  OUTA 0x05                 ; Cleared, which also puts the cursor home.
+
+gridScreenKept:
   RSTA
   OUTA 0x02                 ; Line mode, the way it was found.
   RSTA                      ; splitlint[redundant-assignment]: an exit status, not a mode
@@ -358,6 +413,8 @@ everyCell:
 
   #Base 0x2000
 
+ScreenKept:
+  0x00
 FineDown:
   0x00
 FineAcross:

Programs/CosmOS/README.md

@@ -843,7 +843,9 @@ walks back and forth without `Copy` itself knowing there is more than one disk.
 
 ### A Disk Of Your Own:
 
-`make run-voyager` puts a second disk in **drive 1**, at `Disks/personal.img`. It is made the
+`make run-voyager` puts a second disk in **drive 1**, at `Disks/personal.img`, and a scratch
+drive made of memory in **drive 2**. The scratch drive is what `osTakeScreen` writes to; drive
+1 is yours and comes after nothing, so adding the scratch drive later did not renumber it. It is made the
 first time it is needed and then left alone: never rebuilt, never cleaned, never committed.
 
 That last part is the point. Everything else in this repository is made from source and can be
@@ -884,6 +886,16 @@ and console mode it already puts back. Q is zero if that was arranged; a machine
 volatile drive says no, and **a program told no should carry on regardless**, because it was
 going to before this existed.
 
+**A program told no must cope.** There is no volatile drive on every machine, and a refusal is
+not a fault - it means doing what the program would have done before there was anywhere to
+save a screen. `Grid` clears up after itself when refused, which is the difference between a
+clean prompt and a prompt printed into somebody's grid.
+
+**The system always leaves the screen usable, refusal or not.** The fine scroll registers go
+back to zero at every program exit, because the console draws in whole cells and a view three
+pixels into one puts every character three pixels out for ever. That is true whether or not
+the picture could be saved, so it is not part of the saving.
+
 **It is not automatic, and that is the point.** Saving on every program start would be cheap
 enough, but restoring on every exit would be wrong: `dir`, `Files` and `Say` print and stop,
 and their output is the reason you ran them. A program that says nothing behaves exactly as

Programs/CosmOS/Source/cosmos.asm

@@ -2090,6 +2090,14 @@ screenGiveDone:
 screenGiveNone:
   RET
 
+; The registers a console cannot work without, put back. Not the picture - that is
+; screenGive's, and only happens for a program that asked.
+screenSane:
+  RSTA
+  OUTA 0x37
+  OUTA 0x38                 ; No fraction of a cell in either direction.
+  RET
+
 ; Video memory as bank 4, which is what makes it reachable at all. Bank 3 is the disk's; see
 ; the table in the CosmOS README, which exists because a program once took 3.
 screenBank:
@@ -3072,6 +3080,16 @@ handleExit:
   SETD.1 LastStatus
   STA.1
 
+  ; ---- The screen made usable, whether or not the picture can be given back ----
+  ;
+  ; A fraction of a cell is never what anybody wants left behind: the console draws in whole
+  ; cells, so a view three pixels into one puts every character three pixels out for ever.
+  ; That is true whether or not there was anywhere to save the picture, so it is not part of
+  ; the saving - a program refused by osTakeScreen still must not leave the shell squinting.
+  ;
+  ; Before screenGive, so that a restored screen's own registers win.
+  CALL screenSane
+
   ; What was on the screen before this program had it, if it asked for that.
   CALL screenGive