mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 14:58:45 +10:00
DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary...
17 lines
475 B
Plaintext
17 lines
475 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 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,
|