2020-06-14 14:15:44 -04:00
|
|
|
( 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 )
|
2020-06-14 15:27:26 -04:00
|
|
|
;CODE
|
2020-06-14 14:15:44 -04:00
|
|
|
CODE FOO
|
2020-06-14 14:51:32 -04:00
|
|
|
( Update LATEST, temporarily hackish )
|
|
|
|
|
PC 1- ORG @ 8 + !
|
2020-06-14 14:15:44 -04:00
|
|
|
AH 0x0e MOVri, ( print char ) AL 'X' MOVri, 0x10 INT,
|
|
|
|
|
L2 BSET JMPs, L2 @ RPCs,
|
|
|
|
|
;CODE
|
