2020-06-21 11:57:12 -04:00
|
|
|
( cont. find ) JNZ, AGAIN, ( loop )
|
|
|
|
|
SI DECx, SI PUSHx, AX AX XORrr, AX PUSHx,
|
|
|
|
|
;CODE
|
2020-06-21 10:40:09 -04:00
|
|
|
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
|
