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 / SLIB3.LBR / SMTH01.Z80 < prev    next >
Text File  |  2000-06-30  |  512b  |  31 lines
  1. ;
  2. ; SYSLIB Module Name:  SMTH01
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    addhd
  8.  
  9. ;
  10. ;  ADDHD -- ADD DE TO HL, RESULT IN HL
  11. ;    RETURN WITH HL=RESULT, CARRY SET IF OVFL
  12. ;
  13. ADDHD:
  14.     PUSH    AF
  15.     LD    A,E    ; ADD L AND E
  16.     ADD    A,L
  17.     LD    L,A
  18.     LD    A,D    ; ADD H AND D
  19.     ADC    A,H
  20.     LD    H,A
  21.     JP    NC,OKRET
  22.     POP    AF    ; GET PSW
  23.     SCF        ; SET CARRY
  24.     RET
  25. OKRET:
  26.     POP    AF
  27.     OR    A    ; CLEAR CARRY
  28.     RET
  29.  
  30.     END
  31.