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" )
|
2020-06-16 22:10:32 -04:00
|
|
|
'E' A, 'X' A, 'I' A, 'T' A, 0 A,, ( prev ) 4 A, ( len )
|
|
|
|
|
H@ XCURRENT ! ( set current tip of dict, 0x42 )
|
2020-06-18 06:50:32 -04:00
|
|
|
0 A, ( native )
|
2020-06-16 20:41:53 -04:00
|
|
|
DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
|
2020-06-16 22:10:32 -04:00
|
|
|
;CODE NOP,
|
|
|
|
|
CODE (br) ( 0x53 ) L2 BSET ( used in br? )
|
|
|
|
|
DI DX MOVxx, DI [DI] MOVx[], DX DI ADDxx,
|
|
|
|
|
;CODE NOP, NOP,
|
|
|
|
|
CODE (br?) ( 0x67 )
|
|
|
|
|
AX POPx, AX AX ORxx, JZ, L2 @ RPCs, ( False, branch )
|
|
|
|
|
( True, skip next 2 bytes and don't branch )
|
2020-06-18 15:01:04 -04:00
|
|
|
L1 BSET ( loop will jump here ) DX INCx, DX INCx,
|
|
|
|
|
;CODE NOP, NOP, NOP, NOP, NOP,
|
