[Back to DATATYPE SWAG index]  [Back to Main SWAG index]  [Original]

{
SEAN PALMER

generic compare Function...
make sure to keep garbage out of Strings (by filling With #0
before storing the Strings) and you can compare ANY data With this.
}

Function equal(Var m1, m2; siz : Word) : Boolean; Assembler;
Asm
  push ds
  cld
  les di, m1
  lds si, m2
  mov cx, siz
  xor al, al
  repe cmpsb
  jne @S
  inc al
 @S:
  pop ds
end;

[Back to DATATYPE SWAG index]  [Back to Main SWAG index]  [Original]