mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
eefbf66e95
When writing the xcomp documentation, I realized that with careful threading and by accepting a bit of code duplication in the xcomp toolset, I could de-stabilize a couple of words. (n) and EXIT are a bit trickier, but I think it can be done. It would be nice to get rid of stable wordrefs...
12 lines
349 B
Plaintext
12 lines
349 B
Plaintext
( TODO: move these words with other native words. )
|
|
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
|
|
CODE (br) L1 BSET ( used in ?br )
|
|
DI DX MOVxx, AL [DI] MOVr[], AH AH XORrr, CBW,
|
|
DX AX ADDxx,
|
|
;CODE
|
|
CODE (?br)
|
|
AX POPx, AX AX ORxx, JZ, L1 @ RPCs, ( False, branch )
|
|
( True, skip next byte and don't branch )
|
|
DX INCx,
|
|
;CODE
|