home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / tricks / comp.asm < prev    next >
Encoding:
Assembly Source File  |  1991-05-03  |  856 b   |  35 lines
  1. ;* -------------------------------------------------------- *
  2. ;*                        COMP.ASM                          *
  3. ;*   Beliebiger Variablenvergleich für Turbo Pascal 5.x     *
  4. ;*            (c) 1991 Michael Plewe & TOOLBOX              *
  5. ;* -------------------------------------------------------- *
  6.  
  7. .MODEL TPASCAL
  8.  
  9.   .CODE
  10.    PUBLIC Compare
  11.  
  12. Compare   PROC FAR        ;  -->  ggf. mit {$F+} compilieren
  13.  
  14. ARG Var1: DWORD, Var2 : DWORD, VSize : WORD
  15.  
  16.           LDS   SI, Var1
  17.           LES   DI, Var2
  18.           MOV   CX, VSize
  19.           CLD
  20.           REPE  CMPSB
  21.           JNE   Ungleich
  22.           MOV   AX,1
  23.           JMP   Ende
  24.  
  25. Ungleich: XOR   AX,AX
  26.  
  27. Ende:     RET
  28.  
  29. Compare   ENDP
  30.  
  31. END
  32.  
  33. ;* ------------------------------------------------------- *
  34. ;*                  Ende von COMP.ASM                      *
  35.