1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 14:58:06 +11:00
collapseos/blk/806

13 lines
419 B
Plaintext
Raw Normal View History

( TODO: move these words with other native words. )
2020-07-06 03:41:12 +10:00
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
CODE (br) L1 BSET ( used in ?br )
PC 0x3f - ORG @ 0x3d + ! ( stable abi )
2020-06-23 04:20:46 +10:00
DI DX MOVxx, DI [DI] MOVx[], DX DI ADDxx,
;CODE
CODE (?br)
PC 0x43 - ORG @ 0x41 + ! ( stable abi )
AX POPx, AX AX ORxx, JZ, L1 @ RPCs, ( False, branch )
2020-06-23 04:20:46 +10:00
( True, skip next 2 bytes and don't branch )
DX INCx, DX INCx,
;CODE