home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zslsrc36.lbr / ZOUT.Z80 < prev    next >
Encoding:
Text File  |  1991-10-07  |  512 b   |  26 lines
  1. ; Library:    ZSLIB
  2. ; Version:    3.4
  3. ; Module:    ZOUT
  4. ; Version:    1.0
  5. ; Author:    Gene Pizzetta
  6. ; Date:        October 6, 1991
  7. ;
  8. ; ZOUT -- Switchable character output.
  9. ;
  10. ; Entry:  A = value to print
  11. ; Exit:      None
  12. ; Uses:      None
  13. ; Notes:  Calls SYSLIB SOUT, so uses SCTLFL global flag.  Unlike SOUT,
  14. ;      ZOUT preserves flags.  This is, hopefully, a temporary measure.
  15. ;
  16.     PUBLIC    ZOUT
  17. ;
  18.     EXTRN    SOUT        ; SYSLIB
  19. ;
  20. ZOUT:    push    af
  21.     call    sout
  22.     pop    af
  23.     ret
  24. ;
  25.     end
  26.