mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:38:06 +11:00
b9fb6a6226
Bring native words together, make the next/exec/does/compiled cluster be at the beginning. Next step: bring find code into _find word.
13 lines
207 B
Plaintext
13 lines
207 B
Plaintext
CODE EXECUTE
|
|
DE POP,
|
|
chkPS,
|
|
lblexec @ JP,
|
|
|
|
CODE EXIT
|
|
PC ORG @ 0x0d + ! ( stable ABI JP )
|
|
L 0 IX+ LDrIXY,
|
|
H 1 IX+ LDrIXY,
|
|
IX DECd, IX DECd,
|
|
HL PUSH, IY POP, ( --> IP )
|
|
JPNEXT,
|