.TITLE	WRSCR
	.IDENT	/V01.1/
;
; WR$SCR - WRITES TEXT STARTING AT MACPS
;	   LENGTH IN R2 AFTER SUBSTRACTING
;
	.MCALL	PUT$
;
WR$SCR::MOV	#ERR12,MESNO
	SUB	#MACPS,R2
	PUT$	#SCRFDB,#MACPS,R2
	BCC	10$
	JMP	MOCALL
10$:	RTS	PC
;
	.END