collapseos/blk/813

15 lines
504 B
Plaintext
Raw Normal View History

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,
2020-06-16 21:34:35 -04:00
0 A,, ( prev ) 4 A, ( len )
2020-06-14 14:15:44 -04:00
H@ XCURRENT ! ( set current tip of dict, 0x42 )
0x17 A, ( nativeWord )
DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
2020-06-14 15:27:26 -04:00
;CODE
2020-06-16 21:34:35 -04:00
PC ORG @ 0x20 + ! ( numberWord )
PC ORG @ 0x24 + ! ( addrWord ) ( see B287 for comments )
DI DX MOVxx, DI [DI] MOVx[], DI PUSHx,
DX INCx, DX INCx,
2020-06-14 14:15:44 -04:00
;CODE