home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 4.ddi / TCALC.ZIP / TCCOMPAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-23  |  1.2 KB  |  41 lines
  1. ; Turbo Pascal 6.0 object-oriented example
  2. ; Assembler code for TCALC example
  3. ; Copyright (c) 1989,90 by Borland International, Inc.
  4.  
  5. MODEL TPASCAL
  6.  
  7. LOCALS
  8.  
  9. CODESEG
  10.  
  11.   PUBLIC Compare
  12.  
  13. ; function Compare(var Source, Dest; Len : Word) : Boolean;
  14. ;
  15. ; Compares two areas of memory to see if they are identical.
  16. ;
  17. ; Variables:
  18. ;
  19. ;   Source : Far pointer to the location of the first area of memory.
  20. ;   Dest : Far pointer to the location of the second area of memory.
  21. ;   Len : The amount of memory to be compared in bytes.
  22.  
  23. Proc Compare Source : DWord, Dest : DWord, Len : Word
  24.   push    ds              ; Save DS
  25.   mov     cx,[Len]        ; Move Len to CX
  26.   jcxz    @@0             ; Quit if Len = 0, returning True
  27.   lds     si,[Source]     ; Load source pointer into DS:SI
  28.   les     di,[Dest]       ; Load destination pointer into ES:DI
  29.   cld                     ; Set direction to forward
  30.   repz    cmpsb           ; Compare the two areas
  31.   jz      @@0             ; Return True if the compare was completed
  32.   mov     cl,1            ;
  33. @@0:
  34.   mov     al,cl           ; If CL = 0, return True, otherwise return False
  35.   xor     al,1
  36.   pop     ds              ; Restore DS
  37.   ret
  38. EndP
  39.  
  40. End
  41.