home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / zcpr33 / syslbsrc.lbr / SSHL4DC.ZY0 / SSHL4DC.ZY0
Text File  |  1990-05-27  |  1KB  |  42 lines
  1. ;     TITLE    "SSHL4DC - Syslib 4.0"
  2.     NAME    ('SHL4DC')
  3. ;=================================================================
  4. ;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
  5. ;-----------------------------------------------------------------
  6. ; Author  : Harold F. Bower
  7. ; Date    : 5 Jul 89
  8. ; Version : 1.1
  9. ; Module  : SSHL4DC
  10. ; Abstract: This module contains the routine SHL4DC which prints
  11. ;    the contents of the HL register pair in a four character
  12. ;    field to the CON:/LST: (switched) devices.  Leading zeros
  13. ;    are always printed.
  14. ; Revision:
  15. ;    1.2  8 Dec 89  Joe Wright
  16. ;    Add SHL4 to use common code in SSHLFDC
  17. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  18. ; Module Entry Points
  19.  
  20.     PUBLIC        SHL4DC
  21.  
  22. ; From SYSLIB Get..
  23.  
  24.     EXT        SHL4
  25.  
  26.     .Z80
  27.     CSEG
  28. ;===============================================================
  29. ; NAME - SHL4DC
  30. ; Entry: HL - Contains the number to be printed
  31. ; Exit : - Nothing returned, value printed to CON:/LST:
  32. ;        switched output
  33. ; Uses : - None
  34. ; Special Requirements: None
  35. ;===============================================================
  36.  
  37. SHL4DC:    PUSH    BC
  38.     LD    B,1        ; Print leading zeroes
  39.     JP    SHL4        ; Go to common code in SSHLFDC
  40.  
  41.     END
  42.