mirror of https://github.com/hsoft/collapseos.git
10 lines
398 B
Plaintext
10 lines
398 B
Plaintext
: OP1 CREATE C, DOES> C@ A, ;
|
|
0xac OP1 LODSB, 0xfa OP1 CLI, 0xfb OP1 STI,
|
|
0xf4 OP1 HLT, 0xfc OP1 CLD, 0xfd OP1 STD,
|
|
( no argument, jumps with relative addrs are special )
|
|
0xeb OP1 JMPs, 0xe9 OP1 JMPn, 0x74 OP1 JZ,
|
|
0xe8 OP1 CALLn,
|
|
|
|
: OPrr CREATE C, DOES> C@ A, 3 LSHIFT OR 0xc0 OR A, ;
|
|
0x31 OPrr XORxx, 0x30 OPrr XORrr, 0x08 OPrr ORrr,
|