mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 08:20:56 +11:00
440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
14 lines
473 B
Plaintext
14 lines
473 B
Plaintext
PC ORG @ 1 + ! ( main )
|
|
( STACK OVERFLOW PROTECTION: See B76 )
|
|
SP PS_ADDR LDdn, IX RS_ADDR LDdn,
|
|
( HERE begins at RAMEND )
|
|
HL RAMSTART 0x80 + LDdn,
|
|
RAMSTART 0x04 + LD(n)HL, ( RAM+04 == HERE )
|
|
( LATEST is a label to the latest entry of the dict. It is
|
|
written at offset 0x08 by the process or person building
|
|
Forth. )
|
|
BIN( @ 0x08 + LDHL(n),
|
|
RAMSTART 0x02 ( CURRENT ) + LD(n)HL,
|
|
DE BIN( @ 0x04 ( BOOT ) + LDdd(n),
|
|
JR, L1 FWR ( execute, B301 )
|