home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB3.LBR / SSPRINT.Z80 < prev    next >
Text File  |  2000-06-30  |  512b  |  24 lines
  1. ;
  2. ; SYSLIB Module Name:  SSPRINT
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    sprint
  8.  
  9. ;
  10. ;  SPRINT -- 
  11. ;    PRINT STRING PTED TO BY RET ADR UNTIL BINARY 0 ENCOUNTERED
  12. ;        TO CON: OR LST:
  13. ;    AFFECT NO REGISTERS OR FLAGS
  14. ;
  15.     EXT    SPSTR
  16.  
  17. SPRINT:
  18.     EX    (SP),HL    ; HL=ADR, OLD HL ON STACK
  19.     CALL    SPSTR    ; PRINT STRING PTED TO BY HL
  20.     EX    (SP),HL    ; RESTORE HL AND NEW RET ADR
  21.     RET
  22.  
  23.     END
  24.