home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
VMMNGR.ZIP
/
VMM.IN1
< prev
next >
Wrap
Text File
|
1990-07-16
|
1KB
|
22 lines
{*********************************************************}
{* VMM.IN1 1.00 *}
{*********************************************************}
function CompElem(var Elem1, Elem2; CompSize : Word) : Boolean;
{-General purpose comparison inline macro}
Inline(
$1E/ { push ds ;Save DS in BX}
$5B/ { pop bx }
$59/ { pop cx ;Count in CX }
$5E/ { pop si ;DS:SI ->Elem2}
$1F/ { pop ds }
$5F/ { pop di ;ES:DI ->Elem1}
$07/ { pop es }
$B0/$00/ { mov al, 0 ;Assume failure}
$FC/ { cld }
$F3/$A6/ { repe cmpsb ;Compare }
$75/$02/ { jne notequal }
$B0/$01/ { mov al, 1 ;Success }
$53/ {notequal: push bx ;Restore DS }
$1F); { pop ds }