1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 00:50:55 +11:00
collapseos/blk/813

17 lines
585 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" )
2020-06-17 12:10:32 +10: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 20:50:32 +10:00
0 A, ( native )
DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
2020-06-17 12:10:32 +10: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-17 11:34:35 +10:00
DX INCx, DX INCx,
2020-06-15 04:15:44 +10:00
;CODE