home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol090 / smhl4hc.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  567 b   |  31 lines
  1. ;
  2. ; SYSLIB Module Name:  SMHL4H
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    MHL4HC
  8. ; Module External References:
  9. ;    MA2HC
  10. ;
  11. ;
  12. ;  MHL4HC -- Store HL as 4 Hex Characters in memory; on input, DE ptrs
  13. ; to 4-byte buffer and HL=value; on return, DE pts to byte after buffer
  14. ;    No Registers are to be affected.
  15. ;
  16.  
  17.     EXT    MA2HC    ; STORE A AS 2 HEX CHARACTERS
  18.  
  19. MHL4HC::
  20.     PUSH    PSW    ; SAVE A
  21.     XCHG        ; HL=PTR, DE=VALUE
  22.     MOV    A,D    ; PRINT H
  23.     CALL    MA2HC
  24.     MOV    A,E    ; PRINT L
  25.     CALL    MA2HC
  26.     XCHG
  27.     POP    PSW    ; RESTORE A
  28.     RET
  29.  
  30.     END
  31.