.MACRO	PRINT	STRING
 
	MOV	#STRING,R0
	CALL	PNTLIN
 
	.ENDM	PRINT
;
; THIS ROUTINE WILL PRINT AN ASCIZ LINE
;
	.MCALL	DIR$,QIOW$
QIODPB:	QIOW$	IO.WVB,2,2,,,,<0,0,0>
.EVEN
PNTLIN:	MOV	#-1,QIODPB+Q.IOPL+2; GET COUNT INITIALIZED
	MOV	R0,QIODPB+Q.IOPL; STORE BUFFER ADDRESS
10$:	INC	QIODPB+Q.IOPL+2	; INCREMENT BYTE COUNT
	TSTB	(R0)+		; IS THIS THE LAST BYTE?
	BNE	10$		; NO. KEEP GOING
	DIR$	#QIODPB
	RETURN