mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-29 14:48:05 +11:00
13 lines
360 B
Plaintext
13 lines
360 B
Plaintext
|
( BOOT DICT: There are only 3 words in the boot dict, but
|
||
|
these words' offset need to be stable, so they're part of
|
||
|
the "stable ABI" )
|
||
|
'E' A, 'X' A, 'I' A, 'T' A,
|
||
|
0 A,, ( prev )
|
||
|
4 A,
|
||
|
H@ XCURRENT ! ( set current tip of dict, 0x42 )
|
||
|
0x17 A, ( nativeWord )
|
||
|
0x14 CALLnn, ( popRS )
|
||
|
HL PUSHqq, IY POPqq, ( --> IP )
|
||
|
JPNEXT,
|
||
|
|