.TITLE	QUTSTR - OUTPUT A STRING
;
;	QUTSTR - OUTPUT STRING FOLLOWING CALLED
;
;CALL:
;	JSR	R5,QUTSTR
;	.WORD	LENGTH OF STRING IN BYTES
;	.ASCII	/STRING/
;
;
	.MCALL	ENTER,LEAVE,TTYOUT
;
;
QUTSTR::ENTER	R0
	MOV	(R5)+,R0	;GET LENGTH OF STRING
	TTYOUT	R5,R0		;OUTPUT STRING
	ADD	R0,R5		;UPDATE RETURN ADDRESS OVER STRING
	INC	R5		;AND ADVANCE TO NEXT FULLWORD
	BIC	#1,R5		;IF NECESSARY
	LEAVE
	RTS	R5
;
;
	.END