;
; file : CC.BI.ASM.TEXT
; date : 19-July-1982
; version : goes with CC.BLDIMGE version 1.1a
;
;       FUNCTION CmprDir(Dir1,Dir2 : dirhere; dlen : integer) : boolean;
;
;  Compares directories Dir1 and Dir2 byte by byte for dlen bytes.
;  Returns TRUE if they are equal.
;
                GLOBAL  CmprDir
;
CmprDir         MOVEA.L (SP)+,A0        ;GET RETURN ADDRESS
                MOVE.W  (SP)+,D0        ;LENGTH
                MOVEM.L (SP)+,A1-A2     ;GET DIRECTORY ADDRESSES
                MOVE.B  (SP)+,D1        ;remove return area from stack

; COMPARE DIRECTORIES
;
CDnext          CMPM.B  (A1)+,(A2)+
                BNE.S   CDERROR
                SUBQ.W  #1,D0
                BNE.S   CDnext

                MOVE.B  #1,-(SP)        ;SHOW GOOD
                JMP     (A0)

CDerror         MOVE.B  #0,-(SP)        ;SHOW NO COMPARE
                JMP     (A0)

                END