Settle is a program, and a machine with no fallback still starts
The boot state opened a loop that could not be closed from inside: the machine said "settle it to try again" and gave you no way to do so. Settle closes it, in 349 bytes. A PROGRAM RATHER THAN A SHELL WORD. The shell is for the things that cannot be done without it, and this is not one - it reaches the system through SWI like anything else, which means it can be replaced, left off a disk, or called by whatever comes to call programs in turn. That last one is the point: a shell word is not callable by anything. Two services for it. osBootState answers in Q, and a machine with no disk answers settled, because there is nothing there to be unsettled about. osBootSettle puts it back. SETTLING IS THE ONLY WRITE A PROGRAM GETS - marking a start as trying or fallen back is the loader's business, and a service that let a program claim either would let it lie about something the loader has no way to check. And a hole the tests walked into, which was mine rather than theirs. With no fallback configured, a failed start left the machine unable to start at all: the mark said do not use the system, and there was nothing else to use. That turns "the last start failed" into "no start is permitted", which is worse than the problem the mark was added to solve. With nothing to fall back to it now tries the configuration again and says so - a failure that was passing recovers, and one that is not leaves the machine exactly where it would have been without any of this, which is the most that can be promised when there is only one thing to start. docs.sh caught both new services having no row in the services table before anything else did.
This commit is contained in:
Anachronaut
@@ -0,0 +1,90 @@
|
||||
; Settle.asm
|
||||
; Says how the last start went, and tells the machine to stop falling back.
|
||||
;
|
||||
; A program rather than a shell command, because the shell is for the things you cannot do
|
||||
; without it and this is not one of them. It reaches the system through SWI like anything
|
||||
; else, which means it can be replaced, left off a disk, or called by whatever comes to
|
||||
; call programs in sequence - and none of that is true of a word built into the shell.
|
||||
;
|
||||
; ---- What settling means ----
|
||||
;
|
||||
; The loader marks the disk before handing over and the system clears the mark on reaching
|
||||
; its prompt, so a mark still set is a start that never arrived. After that the loader uses
|
||||
; the fallback and KEEPS USING IT, because a system known not to start should not be tried
|
||||
; every other boot for ever.
|
||||
;
|
||||
; Settling is how it is told that has changed. It does not fix anything and it does not
|
||||
; check anything: it says "the situation is different now, try again". Which is why it is a
|
||||
; deliberate act by somebody who has just changed something, rather than anything automatic.
|
||||
;
|
||||
; Written by Anachronaut
|
||||
|
||||
#Include services.asm
|
||||
|
||||
#Program
|
||||
|
||||
#Base 0x4000
|
||||
|
||||
start:
|
||||
SWI osBootState
|
||||
MVQA
|
||||
SETD.0 State
|
||||
STA.0
|
||||
|
||||
BRA alreadySettled
|
||||
|
||||
INIB 0d2
|
||||
XOR
|
||||
BRQ fellBack
|
||||
|
||||
; Trying. Nothing has gone wrong yet - this is what the disk looks like while a start is
|
||||
; still in progress, which from in here means the system that is running has not reached
|
||||
; its prompt, which it plainly has. So the mark is stale.
|
||||
SETD.0 WasTrying
|
||||
SWI osPrintString
|
||||
BRI doSettle
|
||||
|
||||
fellBack:
|
||||
SETD.0 WasFallen
|
||||
SWI osPrintString
|
||||
|
||||
doSettle:
|
||||
SWI osBootSettle
|
||||
MVQA
|
||||
BNA settleFailed
|
||||
SETD.0 Settled
|
||||
SWI osPrintString
|
||||
SWI osExit
|
||||
|
||||
settleFailed:
|
||||
SETD.0 NoDisk
|
||||
SWI osPrintString
|
||||
SWI osExit
|
||||
|
||||
alreadySettled:
|
||||
SETD.0 Already
|
||||
SWI osPrintString
|
||||
SWI osExit
|
||||
|
||||
#Data
|
||||
|
||||
#Base 0x2000
|
||||
|
||||
WasTrying:
|
||||
"the disk says a start is still in progress
|
||||
"
|
||||
WasFallen:
|
||||
"the disk says the last start did not arrive, so this is the fallback
|
||||
"
|
||||
Settled:
|
||||
"settled: the next start will use the configuration again
|
||||
"
|
||||
Already:
|
||||
"already settled: the next start will use the configuration
|
||||
"
|
||||
NoDisk:
|
||||
"nothing to settle: no disk answered
|
||||
"
|
||||
|
||||
State:
|
||||
0x00
|
||||
@@ -361,6 +361,7 @@ from every assembly file in it. Several are old programs written for the bare ma
|
||||
| Snake | A game. Draws a whole screen with cursor addressing and steers with single keys, asking the console once a frame and never waiting. |
|
||||
| Keys | The console interrupting rather than being asked. The only one that brings a vector of its own, which is what the version two format exists for. |
|
||||
| Say | Prints whatever it was told, which is the shortest thing that shows osArgument working. |
|
||||
| Settle | Says how the last start went and tells the machine to stop falling back, in 349 bytes. A program rather than a shell word, because the shell is for what cannot be done without it. |
|
||||
| Files | Writes a file, reads it back, renames it and deletes it, in 665 bytes, including nothing but the service names. It is what says a program does not need a filesystem inside it. |
|
||||
| Break | Stops itself twice with SWI osBreak, so that the registers can be seen changing between one stop and the next. |
|
||||
| Edit | A line editor. |
|
||||
@@ -564,6 +565,8 @@ Those numbers are written down once, in `Programs/CosmOS/Source/services.asm`, w
|
||||
| osFileFetch | DP1 is where a block should go, A and B together are which block. Reads back a block of the file being written. |
|
||||
| osPrintNumber | A and B together are a number. Prints it in decimal, without leading zeroes. |
|
||||
| osBreak | Stops the program, shows every register as it had them, waits for a key, and carries on. |
|
||||
| osBootState | Q answers how the last start went: 0 settled, 1 trying, 2 fell back. A machine with no disk answers settled, because there is nothing there to be unsettled about. |
|
||||
| osBootSettle | Puts it back to settled, which is how a machine that fell back is told the situation has changed. Q is zero if the disk took it. **Settling is the only write a program gets** - marking a start as trying or fallen back is the loader's business, and a service that let a program claim either would let it lie about something the loader cannot check. |
|
||||
|
||||
```
|
||||
#Include services.asm
|
||||
|
||||
@@ -2276,6 +2276,55 @@ handlePrintNumber:
|
||||
;
|
||||
; Which is exactly why this cannot RETI. Its return address is on the Stack it just walked
|
||||
; away from, so it branches to the prompt instead.
|
||||
; ---- How the last start went, and settling it ----
|
||||
;
|
||||
; The answer goes in Q by writing into this handler's own frame, which is how every service
|
||||
; here hands anything back: a handler arrives with the caller's registers pushed, not
|
||||
; cleared, and RETI puts them back - so the way to return a value is to change the copy the
|
||||
; return is going to restore.
|
||||
handleBootState:
|
||||
SETD.2 DiskReady
|
||||
LDA.2
|
||||
BRA bootStateNone
|
||||
|
||||
CALL sbfsBootState
|
||||
BNQ bootStateNone
|
||||
SETD.2 SbfsStateWas
|
||||
LDA.2
|
||||
MVSD.2
|
||||
DPUP.2 0d02
|
||||
STA.2
|
||||
RETI
|
||||
|
||||
bootStateNone:
|
||||
; No disk, or one that would not answer. Nothing there to be unsettled about.
|
||||
MVSD.2
|
||||
DPUP.2 0d02
|
||||
RSTA
|
||||
STA.2
|
||||
RETI
|
||||
|
||||
handleBootSettle:
|
||||
SETD.2 DiskReady
|
||||
LDA.2
|
||||
BRA bootSettleNo
|
||||
|
||||
RSTA
|
||||
CALL sbfsSetBootState
|
||||
BNQ bootSettleNo
|
||||
MVSD.2
|
||||
DPUP.2 0d02
|
||||
RSTA
|
||||
STA.2
|
||||
RETI
|
||||
|
||||
bootSettleNo:
|
||||
MVSD.2
|
||||
DPUP.2 0d02
|
||||
INIA 0d1
|
||||
STA.2
|
||||
RETI
|
||||
|
||||
handleExit:
|
||||
SETD.1 SystemStack
|
||||
LDD.0.1
|
||||
@@ -3897,4 +3946,6 @@ CommandLine:
|
||||
osFileFetch handleFileFetch
|
||||
osPrintNumber handlePrintNumber
|
||||
osBreak handleBreak
|
||||
osBootState handleBootState
|
||||
osBootSettle handleBootSettle
|
||||
Device 0x20 diskDone
|
||||
|
||||
@@ -135,3 +135,21 @@
|
||||
; restore. The price is that it is part of the program: a build with breakpoints in it has
|
||||
; different addresses from one without.
|
||||
osBreak 0d25
|
||||
|
||||
; ---- How the last start went ----
|
||||
;
|
||||
; The loader marks the disk before it hands over and the system clears the mark on reaching
|
||||
; its prompt, so a mark still set is a start that never arrived. See the boot state in
|
||||
; sbfs.h for what the numbers mean.
|
||||
;
|
||||
; osBootState answers in Q: 0 settled, 1 trying, 2 fell back. A machine with no disk answers
|
||||
; settled, because there is nothing there to be unsettled about.
|
||||
;
|
||||
; osBootSettle puts it back to settled, which is how a machine that fell back is told the
|
||||
; situation has changed. Q is zero if the disk took it.
|
||||
;
|
||||
; THE ONLY WRITE A PROGRAM GETS IS SETTLING. Marking a start as trying or fallen back is
|
||||
; the loader's business, and a service that let a program claim either would let it lie
|
||||
; about something the loader has no way to check.
|
||||
osBootState 0d33
|
||||
osBootSettle 0d34
|
||||
|
||||
Reference in New Issue
Block a user