.TITLE	PRINT	print line on console
	.IDENT	/01/
	.LIST	ME
	.ENABL	REG
;
; PRINT prints a null-terminated string pointed to by R0 on the console,
; waiting for the output buffer to become ready before each char is output.
;
; 14-JUL-2004	H. Rosenfeld
;

	TPS=177564
	TPB=177566

PRINT::	TSTB	@#TPS		; console ready?
	BPL	PRINT		; nay.
	MOVB	(R0)+,@#TPB	; write byte
	BNE	PRINT		; a zero byte indicates EOL
1$:	TSTB	@#TPS		; console ready?
	BPL	1$		; nay.
	MOVB	#15,@#TPB	; carriage return
2$:	TSTB	@#TPS		; console ready?
	BPL	2$		; nay.
	MOVB	#12,@#TPB	; line feed
	RTS	PC		; get outta here

	.END