AnachronautandClaude Opus 5
79d1e2639b
Play is the scheduler: one tick, four cursors. Every voice keeps its own place in its own track and its own count of how much longer the note it is holding lasts, so a voice playing whole notes and a voice playing eighths cost the same and never have to know about each other. They share the tick and nothing else. That is what makes the tick the smallest subdivision in the piece rather than a note length - it is the only unit four parts can agree on. A track is pairs of bytes: what to play, then how many ticks it lasts. MIDI notes stop at 127, so the top of the byte was free and neither the rest nor the end marker had to be invented - 0 is a rest and 0xFF ends the track. Examples/tune.asm spent zero on its end marker and so could not write a rest at all, which one voice can live with and four cannot: the silences are what make them separate parts rather than a chord. The state is four bytes a voice, cursor first because that is what LDD and STD move - a pointer through a pointer, which is what lets this be a loop over four voices instead of the same code four times. CALL preserves A and DP0-2, so a caller says which voice it means in two instructions. The piece is four bars of C, F, G, C with the parts moving at four different rates, because that is the thing one channel cannot do. All four channels get the same instrument, which is exactly what M3 replaces. fourVoiceTest staggers two voices so each gets a stretch alone: middle C while the other rests, the octave while the first is silent, then both. The first two are measured for pitch and the third for level, because TWO NOTES CANNOT BE ASKED THEIR PITCH - the crossing counter adds them and answers 785 hertz, which is 262 plus 523 and a fact about nothing. Verified with break.sh: dropping the channel select trips one check, pointing both voices at one cursor trips three. It shares Play's design and not its code, and is smaller - no track ends in it, so there is no live flag and no count of what is still playing. Play.sbx on the disk is why ten recordings moved: one added line each, and the file count with it. Nothing else in them changed. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01E2JrLzFvuFX9fgi1LDRjrW
134 lines
3.3 KiB
Plaintext
134 lines
3.3 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 571
|
|
Press.sbx 872
|
|
Mode.sbx 48
|
|
Flip.sbx 173
|
|
Sprite.sbx 442
|
|
Depth.sbx 672
|
|
Lander.sbx 9201
|
|
Pad.sbx 264
|
|
Crash.sbx 632
|
|
vars.script 50
|
|
blocks.script 343
|
|
loops.script 272
|
|
tune.sbx 318
|
|
Play.sbx 446
|
|
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
|
|
30 files, 1 directory
|
|
> exit
|
|
halted
|
|
Execution halted.
|
|
[exit 0]
|