AnachronautandClaude Opus 5
2abc8281df
while and for. Both only mean anything in a script, because a loop goes back to the line that opened it and a prompt has no line to go back to - and both say so rather than doing something surprising. THE SCRIPT READER KEEPS THE POSITION OF EVERY LINE before reading it, which is what makes any of this possible: by the time a line has been read the reader is past it, and a line is not a fixed size to subtract. Three words per line, and the block is read again on the way back so the pointer into it means what it meant - the same thing nesting one script inside another already did, for a different reason. THE TWO LOOPS END DIFFERENTLY, and that is the design rather than an accident. A while is taken away at its end and its own line asks the question again, so nothing has to be remembered. A for is not: how many words it has used is kept in the block, and its line reads itself again and counts one more off the front. That is a byte in a block instead of a copy of the word list in every one of them. Blocks grew from a byte to a record of sixteen - state, kind, words used, and where the line that opened it was - and sixteen because A and B are a shift register, so four rotations turn a block number into its offset. The history and the variables are addressed the same way for the same reason. Nested loops, an if inside a loop, a loop inside a branch nobody takes, and a for with no words: the last two run no times rather than once, which is the case worth having a test for. Three things found by running it: textSame asks whether two WHOLE strings are the same, so "in red green blue" is not "in". The word has to be split off before it is compared. A for typed at a prompt complained about while, because both arrive at the same place. One message that names neither is better than one that names the wrong one. And docs.sh caught a naming convention nobody had written down: it recognises a packed name by its label ending in "Name", so ForName2 was silently not counted. It failed the right way round - saying the run was shorter than the count claims rather than passing - but the convention now lives where the names are and not only in the checker. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01E2JrLzFvuFX9fgi1LDRjrW
128 lines
3.1 KiB
Plaintext
128 lines
3.1 KiB
Plaintext
CosmOS
|
|
> monitor
|
|
x examine, d disassemble, a assemble, s set, b bank, g go, exit leaves
|
|
* b nonsense
|
|
b <program|data|number>
|
|
* b 9
|
|
there is no such bank
|
|
* load greet.sbx
|
|
loaded, starting at 5000
|
|
* b program
|
|
bank 00
|
|
* d 5000
|
|
5000 47 00 30 00 SETD.0 3000
|
|
5004 72 10 SWI 10
|
|
5006 47 00 30 44 SETD.0 3044
|
|
500A 72 10 SWI 10
|
|
500C 47 00 30 7A SETD.0 307A
|
|
5010 27 1F INIB 1F
|
|
5012 72 11 SWI 11
|
|
5014 47 00 30 5D SETD.0 305D
|
|
* x 5000
|
|
5000 47 00 30 00 72 10 47 00 30 44 72 10 47 00 30 7A G.0.r.G.0Dr.G.0z
|
|
5010 27 1F 72 11 47 00 30 5D 72 10 47 00 30 7A 72 10 '.r.G.0]r.G.0zr.
|
|
5020 47 00 30 65 72 10 20 72 12 00 00 00 00 00 00 00 G.0er. r........
|
|
5030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
|
|
* b data
|
|
bank 01
|
|
* x 3000
|
|
3000 61 20 70 72 6F 67 72 61 6D 2C 20 6C 6F 61 64 65 a program, loade
|
|
3010 64 20 6F 66 66 20 61 20 64 69 73 6B 2C 20 72 75 d off a disk, ru
|
|
3020 6E 6E 69 6E 67 20 6F 6E 20 74 68 65 20 73 79 73 nning on the sys
|
|
3030 74 65 6D 20 74 68 61 74 20 6C 6F 61 64 65 64 20 tem that loaded
|
|
* b 2
|
|
bank 02
|
|
* x 0
|
|
0000 01 FF 00 00 00 00 00 00 01 FF 00 00 00 00 00 00 ................
|
|
0010 03 FF 08 00 00 00 00 00 01 20 01 00 00 00 00 00 ......... ......
|
|
0020 00 FF 00 00 00 00 00 00 00 FF 00 00 00 00 00 00 ................
|
|
0030 00 FF 00 00 00 00 00 00 00 FF 00 00 00 00 00 00 ................
|
|
* s 0 FF
|
|
that bank will not be written
|
|
* b program
|
|
bank 00
|
|
* s 8000 26 48 D1 00 26 0A D1 00 18 12
|
|
* d 8000
|
|
8000 26 48 INIA 48
|
|
8002 D1 00 OUTA 00
|
|
8004 26 0A INIA 0A
|
|
8006 D1 00 OUTA 00
|
|
8008 18 SHR
|
|
8009 12 AND
|
|
800A 00 ?
|
|
800B 00 ?
|
|
* g 8000
|
|
H
|
|
that byte is not an instruction, at 800A
|
|
A 85 B 3F Q 05
|
|
the program was stopped
|
|
* d 8000
|
|
8000 26 48 INIA 48
|
|
8002 D1 00 OUTA 00
|
|
8004 26 0A INIA 0A
|
|
8006 D1 00 OUTA 00
|
|
8008 18 SHR
|
|
8009 12 AND
|
|
800A 00 ?
|
|
800B 00 ?
|
|
* b data
|
|
bank 01
|
|
* s 8100 68 65 6C 6C 6F 2C 20 74 79 70 65 64 0A 00
|
|
* b program
|
|
bank 00
|
|
* a 8200
|
|
8200: SETD.0 8100
|
|
8204: SWI 10
|
|
8206: lda.2
|
|
8208: LDD.0.1
|
|
820B: frobnicate
|
|
no such instruction
|
|
820B: INIA
|
|
that one needs a value after it
|
|
820B: SWI 12
|
|
820D: .
|
|
* d 8200
|
|
8200 47 00 81 00 SETD.0 8100
|
|
8204 72 10 SWI 10
|
|
8206 42 02 LDA.2
|
|
8208 4A 00 01 LDD.0.1
|
|
820B 72 12 SWI 12
|
|
820D 00 ?
|
|
820E 00 ?
|
|
820F 00 ?
|
|
* g 8200
|
|
hello, typed
|
|
finished
|
|
* exit
|
|
> dir
|
|
greet.sbx 211
|
|
hello.sbx 53
|
|
Life.sbx 1396
|
|
Snake.sbx 2164
|
|
Keys.sbx 664
|
|
Say.sbx 156
|
|
Break.sbx 149
|
|
Grid.sbx 559
|
|
Press.sbx 872
|
|
Mode.sbx 48
|
|
Crash.sbx 632
|
|
vars.script 50
|
|
blocks.script 343
|
|
loops.script 272
|
|
tune.sbx 306
|
|
notes.txt 21
|
|
Apps <dir>
|
|
hi.script 121
|
|
bad.script 45
|
|
plain.script 24
|
|
cross.script 280
|
|
nonl.script 38
|
|
outer.script 376
|
|
inner.script 44
|
|
loop.script 35
|
|
24 files, 1 directory
|
|
> exit
|
|
halted
|
|
Execution halted.
|
|
[exit 0]
|