home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SCOMPHD.Z80 < prev    next >
Text File  |  2000-06-30  |  512b  |  24 lines
  1. ;
  2. ; SYSLIB Module Name:  SCOMPH
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    comphd
  8.  
  9. ;
  10. ;  SCOMPHD --
  11. ;    Compare HL with DE.  On return, Zero means HL=DE; Carry means
  12. ; HL<DE.
  13. ;    PSW is affected.  HL and DE are not.
  14. ;
  15. COMPHD:
  16.     LD    A,H    ; COMPARE HIGH
  17.     CP    D
  18.     RET    NZ    ; IF NOT ZERO, FLAGS ARE SET
  19.     LD    A,L    ; COMPARE LOW
  20.     CP    E
  21.     RET
  22.  
  23.     END
  24.