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 >
Text File  |  1990-07-16  |  1KB  |  22 lines

  1. {*********************************************************}
  2. {*                   VMM.IN1 1.00                        *}
  3. {*********************************************************}
  4.  
  5. function CompElem(var Elem1, Elem2; CompSize : Word) : Boolean;
  6.   {-General purpose comparison inline macro}
  7.     Inline(
  8.       $1E/                   {          push  ds       ;Save DS in BX}
  9.       $5B/                   {          pop   bx                     }
  10.       $59/                   {          pop   cx       ;Count in CX  }
  11.       $5E/                   {          pop   si       ;DS:SI ->Elem2}
  12.       $1F/                   {          pop   ds                     }
  13.       $5F/                   {          pop   di       ;ES:DI ->Elem1}
  14.       $07/                   {          pop   es                     }
  15.       $B0/$00/               {          mov   al, 0    ;Assume failure}
  16.       $FC/                   {          cld                          }
  17.       $F3/$A6/               {          repe  cmpsb    ;Compare      }
  18.       $75/$02/               {          jne   notequal               }
  19.       $B0/$01/               {          mov   al, 1    ;Success      }
  20.       $53/                   {notequal: push  bx       ;Restore DS   }
  21.       $1F);                  {          pop   ds                     }
  22.