home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol090 / sphl4hc.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  435 b   |  29 lines
  1. ;
  2. ; SYSLIB Module Name:  SPHL4C
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    PHL4HC
  8. ; Module External References:
  9. ;    PA2HC
  10. ;
  11.  
  12. ;
  13. ;  PHL4HC -- Print HL as 4 Hex Characters
  14. ;    No Registers are to be affected.
  15. ;
  16.  
  17.     EXT    PA2HC    ; PRINT A AS 2 HEX CHARACTERS
  18.  
  19. PHL4HC::
  20.     PUSH    PSW    ; SAVE A
  21.     MOV    A,H    ; PRINT H
  22.     CALL    PA2HC
  23.     MOV    A,L    ; PRINT L
  24.     CALL    PA2HC
  25.     POP    PSW    ; RESTORE A
  26.     RET
  27.  
  28.     END
  29.