home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 09 / dskcache / compare.inc < prev    next >
Encoding:
Text File  |  1987-06-29  |  1.6 KB  |  27 lines
  1. (* --------------------------------------------------------------------- *)
  2. (*                          COMPARE.INC                                  *)
  3. (*         Vergleichsfunktion fuer zwei Speicherbereiche                 *)
  4.  
  5.     FUNCTION  Equal (VAR Area1, Area2; Count: INTEGER): BOOLEAN;
  6.  
  7.     BEGIN
  8.       INLINE ($1E/         { PUSH DS           ; DS retten                }
  9.               $B6C5/Area1/ { LDS SI,Area1[BP]  ; Adresse Area1            }
  10.               $BEC4/Area2/ { LES DI,Area2[BP]  ; Adresse Area2            }
  11.               $8E8B/Count/ { MOV CX,Count[BP]  ; Count laden              }
  12.               $FC/         { CLD               ; von links nach rechts    }
  13.               $F3/         { REPE              ;   durchgehend            }
  14.               $A6/         { CMPSB             ;   vergleichen            }
  15.               $9C/         { PUSHF             ; Funktionswert            }
  16.               $58/         { POP AX            ;   ermitteln              }
  17.               $09B1/       { MOV CL,9          ;      (TURBO-Dokum-       }
  18.               $E0D3/       { SHL AX,CL         ;       mentation          }
  19.               $0FB1/       { MOV CL,15         ;       stimmt nicht !!!)  }
  20.               $E8D3/       { SHR AX,CL         ;                          }
  21.               $8689/$0E/00/{ MOV [BP+000E],AX  ;                          }
  22.               $1F          { POP DS            ; DS wiederherstellen      }
  23.              );
  24.     END;
  25. (* --------------------------------------------------------------------- *)
  26. (*                             Ende COMPARE.INC                          *)
  27.