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 / SSA2HC.Z80 < prev    next >
Text File  |  2000-06-30  |  768b  |  36 lines
  1. ;
  2. ; SYSLIB Module Name:  SSA2HC
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    sa2hc
  8.  
  9. ;
  10. ;  SA2HC --
  11. ;    PRINT REG A AS 2 HEXADECIMAL CHARACTERS ON CON: OR LST:
  12. ;
  13.     EXT    SOUT
  14.  
  15. SA2HC:
  16.     PUSH    AF    ; SAVE A
  17.     PUSH    AF
  18.     RRCA        ; EXCHANGE NYBBLES
  19.     RRCA
  20.     RRCA
  21.     RRCA
  22.     CALL    PAHC    ; PRINT LOW-ORDER NYBBLE AS HEX
  23.     POP    AF    ; GET A
  24.     CALL    PAHC    ; PRINT LOW-ORDER NYBBLE AS HEX
  25.     POP    AF    ; RESTORE A
  26.     RET
  27. PAHC:    AND    0FH    ; MASK FOR LOW NYBBLE
  28.     CP    10    ; LETTER OR DIGIT?
  29.     JP    C,PADIG    ; DIGIT IF CARRY
  30.     ADD    'A'-10    ; CONVERT TO 'A'-'F'
  31.     JP    SOUT    ; PRINT
  32. PADIG:    ADD    '0'    ; CONVERT TO '0'-'9'
  33.     JP    SOUT    ; PRINT
  34.  
  35.     END
  36.