home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol264 / zlib2.lbr / Z3QPSTR.Z80 < prev    next >
Encoding:
Text File  |  1986-03-23  |  512 b   |  26 lines
  1. ;
  2. ; Z3LIB Module Name:  Z3QPSTR
  3. ; Author:  Richard Conn
  4. ; Z3LIB  Version Number:  1.3
  5. ; Module Version Number:  1.1
  6. ;
  7.     public    qpstr
  8.  
  9.     ext    getquiet,pstr
  10.  
  11. ;
  12. ;    QPSTR prints the string pted to by HL if the quiet flag
  13. ; says it is OK to do so.
  14. ;
  15. qpstr:
  16.     push    af        ;affect no regs
  17.     call    getquiet    ;get flag
  18.     jp    z,notquiet    ;not quiet, so print
  19.     pop    af        ;restore PSW
  20.     ret
  21. notquiet:
  22.     pop    af        ;restore PSW
  23.     jp    pstr        ;perform normal print
  24.  
  25.     end
  26.