mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:58:05 +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.
12 lines
442 B
Plaintext
12 lines
442 B
Plaintext
CODE 0 AX AX XORxx, AX PUSHx, ;CODE
|
|
CODE 1 AX 1 MOVxI, AX PUSHx, ;CODE
|
|
CODE -1 AX -1 MOVxI, AX PUSHx, ;CODE
|
|
CODE 1+ DI SP MOVxx, [DI] INC[w], ;CODE
|
|
CODE 1- DI SP MOVxx, [DI] DEC[w], ;CODE
|
|
CODE 2+ DI SP MOVxx, [DI] INC[w], [DI] INC[w], ;CODE
|
|
CODE 2- DI SP MOVxx, [DI] DEC[w], [DI] DEC[w], ;CODE
|
|
CODE RSHIFT ( n u -- n )
|
|
CX POPx, AX POPx, AX SHRxCL, AX PUSHx, ;CODE
|
|
CODE LSHIFT ( n u -- n )
|
|
CX POPx, AX POPx, AX SHLxCL, AX PUSHx, ;CODE
|