;
; SYSLIB Module Name:  SCOMPH
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;       COMPHD
; Module External References:
;       None
;

;
;  SCOMPHD --
;       Compare HL with DE.  On return, Zero means HL=DE; Carry means
; HL<DE.
;       PSW is affected.  HL and DE are not.
;

COMPHD::
       MOV     A,H     ; COMPARE HIGH
       CMP     D
       RNZ             ; IF NOT ZERO, FLAGS ARE SET
       MOV     A,L     ; COMPARE LOW
       CMP     E
       RET

       END