mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 21:30:56 +11:00
2d17b4e8ec
I'm not sure why I chose null-terminated initially. Probably because the z80asm version had null-terminated strings. Length-prefixes strings are the traditional form of strings in Forth and it's a bit easier to work with them with traditional forth words when they're under this form.
8 lines
213 B
Plaintext
8 lines
213 B
Plaintext
6 A, '(' A, 'u' A, 'f' A, 'l' A, 'w' A, ')' A,
|
|
L2 BSET ( abortUnderflow )
|
|
HL PC 7 - LDddnn,
|
|
DE RAMSTART 0x02 + LDdd(nn), ( RAM+02 == CURRENT )
|
|
0x03 BCALL, ( find )
|
|
0x33 BJP, ( 33 == execute )
|
|
|