mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 14:50:56 +11:00
723d3c4249
(well, not PC@ and PC!, but I'm not even sure what would be the role of these in a PC/AT. they're only used in drivers on the z80 front, so they will not be immediately needed. todo... ) Now comes the fitting part.
8 lines
319 B
Plaintext
8 lines
319 B
Plaintext
: OPrr CREATE C, DOES> C@ A, <<3 OR 0xc0 OR A, ;
|
|
0x31 OPrr XORxx, 0x30 OPrr XORrr,
|
|
0x88 OPrr MOVrr, 0x89 OPrr MOVxx, 0x28 OPrr SUBrr,
|
|
0x29 OPrr SUBxx, 0x08 OPrr ORrr, 0x09 OPrr ORxx,
|
|
0x3a OPrr CMPrr, 0x3b OPrr CMPxx, 0x00 OPrr ADDrr,
|
|
0x01 OPrr ADDxx, 0x20 OPrr ANDrr, 0x21 OPrr ANDxx,
|
|
|