mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:38:06 +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.
11 lines
471 B
Plaintext
11 lines
471 B
Plaintext
: OPr0 ( reg op ) CREATE C, C, DOES>
|
|
C@+ A, C@ <<3 OR 0xc0 OR A, ;
|
|
0 0xd0 OPr0 ROLr1, 0 0xd1 OPr0 ROLx1, 4 0xf6 OPr0 MULr,
|
|
1 0xd0 OPr0 RORr1, 1 0xd1 OPr0 RORx1, 4 0xf7 OPr0 MULx,
|
|
4 0xd0 OPr0 SHLr1, 4 0xd1 OPr0 SHLx1, 6 0xf6 OPr0 DIVr,
|
|
5 0xd0 OPr0 SHRr1, 5 0xd1 OPr0 SHRx1, 6 0xf7 OPr0 DIVx,
|
|
0 0xd2 OPr0 ROLrCL, 0 0xd3 OPr0 ROLxCL,
|
|
1 0xd2 OPr0 RORrCL, 1 0xd3 OPr0 RORxCL,
|
|
4 0xd2 OPr0 SHLrCL, 4 0xd3 OPr0 SHLxCL,
|
|
5 0xd2 OPr0 SHRrCL, 5 0xd3 OPr0 SHRxCL,
|