home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol125 / seprint.mqc / SEPRINT.MAC
Encoding:
Text File  |  1985-02-10  |  640 b   |  27 lines
  1. ;
  2. ; SYSLIB Module Name:  SEPRINT
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    EPRINT
  8. ; Module External References:
  9. ;    EPSTR
  10. ;
  11.  
  12. ;
  13. ;  EPRINT -- 
  14. ;    PRINT STRING PTED TO BY RET ADR UNTIL BINARY 0 ENCOUNTERED
  15. ;    AFFECT NO REGISTERS OR FLAGS; UNLIKE PRINT, EPRINT DOES NOT
  16. ;    PERFORM CONTROL CHARACTER INTERPRETATION
  17. ;
  18.     EXT    EPSTR
  19.  
  20. EPRINT::
  21.     XTHL        ; HL=ADR, OLD HL ON STACK
  22.     CALL    EPSTR    ; PRINT STRING PTED TO BY HL
  23.     XTHL        ; RESTORE HL AND NEW RET ADR
  24.     RET
  25.  
  26.     END
  27.