;PROMPT.M68
;XCALL PROMPT, row, column, text
	
	OBJNAM	PROMPT.SBR

	SEARCH	SYS
	SEARCH	SYSSYM

	EXTERN	$GTARG

	.OFINI
	.OFDEF	XC.ARG,2		;number of arguments
	.OFDEF	XC.TY1,2		;type code - arg 1
	.OFDEF	XC.AD1,4		;abs addr - arg 1
	.OFDEF	XC.SZ1,4		;size - arg 1
	.OFDEF	XC.TY2,2		;type code - arg 2
	.OFDEF	XC.AD2,4		;abs addr - arg 2
	.OFDEF	XC.SZ2,4		;size - arg 2
	.OFDEF	XC.TY3,2		;type code - arg 3
	.OFDEF	XC.AD3,4		;abs addr - arg 3
	.OFDEF	XC.SZ3,4		;size - arg 3

START:	PHDR	-1,0,PH$REE!PH$REU	;program header
	MOV	#XC.TY1,D1
	CALL	$GTARG
	MOV	D1,D0
	MOV	#XC.TY2,D1
	CALL	$GTARG
	ROLW	D0,#8.
	ADDW	D0,D1
	TCRT				;position cursor
	MOV	#177413,D1
	TCRT
	MOV	XC.AD3(A3),A0
	MOV	XC.SZ3(A3),D0
10$:	MOVB	(A0)+,D1
	BEQ	30$
	CMPB	D1,#'A
	BLT	14$
	CMPB	D1,#'Z
	BLE	40$
14$:	TTY
20$:	SOB	D0,10$
30$:	MOV	#177413,D1
	TCRT
	RTN
40$:	SAVE	D1
	MOV	#177414,D1
	TCRT
	REST	D1
	TTY
	MOV	#177413,D1
	TCRT
	BR	20$

	END

.