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 / SSHL4HC.Z80 < prev    next >
Text File  |  2000-06-30  |  512b  |  26 lines
  1. ;
  2. ; SYSLIB Module Name:  SSHL4HC
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    shl4hc
  8.  
  9. ;
  10. ;  SHL4HC -- Print HL as 4 Hex Characters on CON: or LST:
  11. ;    No Registers are to be affected.
  12. ;
  13.  
  14.     EXT    SA2HC    ; PRINT A AS 2 HEX CHARACTERS ON CON: OR LST:
  15.  
  16. SHL4HC:
  17.     PUSH    AF    ; SAVE A
  18.     LD    A,H    ; PRINT H
  19.     CALL    SA2HC
  20.     LD    A,L    ; PRINT L
  21.     CALL    SA2HC
  22.     POP    AF    ; RESTORE A
  23.     RET
  24.  
  25.     END
  26.