; 00001
.INCLUDE "LB:[MACROS]MACROS.MAC"
.INCLUDE "C.MAC"

MODULE PutString, MNAME=PUTSTR, VER=01, COMM=<>

  FROM CSV    IMPORT C$SAV,  C$RET
  FROM LENSTR IMPORT LENSTR
  FROM WRITE  IMPORT WRITE

  EXPORT QUALIFIED PutString

  PROCEDURE PutString
  BEGIN
    C$SAV
    MOV  R5,R0
    ADD  #6,R0
    MOV  R0,R4
    WHILE (R4) NE #0 DO
      MOV  (R4),(SP)
      CALL LENSTR
      MOV  R0,(SP)
      MOV  (R4),-(SP)
      MOV  4(R5),-(SP)
      CALL WRITE
      CMP  (SP)+,(SP)+
      ADD  #2,R4
    END
    C$RET
  END PutString

END PutString

.END