1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:38:06 +11:00
collapseos/blk/813

16 lines
479 B
Plaintext
Raw Normal View History

2020-06-15 04:15:44 +10: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 )
DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
2020-06-15 05:27:26 +10:00
;CODE
CODE BYE BEGIN, JMPs, AGAIN, ;CODE
2020-06-15 04:15:44 +10:00
CODE FOO
AH 0x0e MOVri, ( print char ) AL 'X' MOVri, 0x10 INT,
;CODE
: BAR FOO FOO ; : BAZ BAR FOO BYE ;