mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-06 20:38:45 +10:00
16 lines
335 B
Plaintext
16 lines
335 B
Plaintext
|
CODE S=
|
||
|
SI POPx, DI POPx, CH CH XORrr, CL [SI] MOVr[],
|
||
|
CL [DI] CMPr[],
|
||
|
IFZ, ( same size? )
|
||
|
SI INCx, DI INCx, CLD, REPZ, CMPSB,
|
||
|
THEN,
|
||
|
PUSHZ,
|
||
|
;CODE
|
||
|
CODE CMP
|
||
|
BX POPx, AX POPx, CX CX XORxx, AX BX CMPxx,
|
||
|
IFNZ, ( < or > )
|
||
|
CX INCx, IFNC, ( < ) CX DECx, CX DECx, THEN,
|
||
|
THEN,
|
||
|
CX PUSHx,
|
||
|
;CODE
|