.TITLE	CURPS1
;
; THIS IS THE INTERFACE TO CURPOS FROM COBOL.  WE HAVE TO STORE THE
; X AND Y COORDINATES FIRST.
;
CURPS1::
	CMP	(R5)+,#2		;2 PARAMETERS?
	BNE	10$			;IF NE NO - EXIT
	MOVB	@(R5)+,ROWNO		;STORE LINE NUMBER
	MOVB	@(R5)+,COLNO		;STORE COLUMN NUMBER
	JMP	CURPOS			;DO THE JOB
;
10$:
	RETURN
	.END