mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-16 10:08:45 +10:00
9 lines
189 B
Plaintext
9 lines
189 B
Plaintext
( Splits word into msb/lsb, lsb being on TOS )
|
|
: SPLITB
|
|
256 /MOD SWAP
|
|
;
|
|
: PC H@ ORG @ - BIN( @ + ;
|
|
: A, C, ;
|
|
( dst8 src8 -- modrm )
|
|
: MODRMrr 0x7 AND 3 LSHIFT SWAP 0x7 AND OR 0xc0 OR ;
|