mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 15:00:55 +11:00
3d2dc041fb
Instead of having wordref point to core word routines, I made them into word 4 word types. It liberates space into the stable ABI and should make porting to other arches easier. I'm also thinking of combining word type with the namelen field for precious bytes saving, but not now...
17 lines
459 B
Plaintext
17 lines
459 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 )
|
|
0 A, ( native )
|
|
0x14 BCALL, ( popRS )
|
|
HL PUSHqq, IY POPqq, ( --> IP )
|
|
JPNEXT,
|
|
CODE (br) ( 0x53 )
|
|
L2 BSET ( used in CBR )
|
|
E 0 IY+ LDrIXY, D 1 IY+ LDrIXY,
|
|
DE ADDIYss,
|
|
JPNEXT,
|