izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/806

13 lines
419 B
Plaintext
Raw Normal View History

Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register.
2020-07-06 04:57:18 +10:00
( TODO: move these words with other native words. )
Extract EXIT code from stable ABI zone
2020-07-06 03:41:12 +10:00
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register.
2020-07-06 04:57:18 +10:00
CODE (br) L1 BSET ( used in ?br )
PC 0x3f - ORG @ 0x3d + ! ( stable abi )
pcat: move drivers and xcomp to blkfs
2020-06-23 04:20:46 +10:00
DI DX MOVxx, DI [DI] MOVx[], DX DI ADDxx,
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register.
2020-07-06 04:57:18 +10:00
;CODE
CODE (?br)
PC 0x43 - ORG @ 0x41 + ! ( stable abi )
AX POPx, AX AX ORxx, JZ, L1 @ RPCs, ( False, branch )
pcat: move drivers and xcomp to blkfs
2020-06-23 04:20:46 +10:00
( True, skip next 2 bytes and don't branch )
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register.
2020-07-06 04:57:18 +10:00
DX INCx, DX INCx,
;CODE