.TITLE	KSPCUR - POSITION CURSOR ON CHARACTER SCOPE
	.IDENT	/27MAY7/	;10:00:00, JB
;	.ENTRY	KSPCUR - COMMENTS
;+
; K S P C U R
;
; PURPOSE:	POSITION KEYBOARD CURSOR ON KS CHARACTER SCOPE
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL KSPCUR(LUN,LINE,CHAR)
;		INPUT:	WHERE LUN(INTEGER)=LOGICAL UNIT NUMBER
;			LINE(INTEGER)=RELATIVE LINE NUMBER
;			CHAR(INTEGER)=ABSOLUTE CHARACTER NUMBER
;
;		THIS SUBROUTINE USES EVENT FLAG 24. TO DETECT I/O
;		COMPLETION.
;
; LANGUAGE:	MACRO-11
;
; RESTRICTIONS:	THIS ROUTINE IS USABLE ONLY ON A SYSTEM WHICH
;		SUPPORTS A KINETIC SYSTEMS COLOR CHARACTER
;		SCOPE AND AN RSX HANDLER KS....
;-
; REVISIONS:
; 02-SEP-76		WRITTEN
; 27-MAY-77	JB	UPDATED TO CONFORM TO STANDARDS
;
;	MACRO CALLS:
	.MCALL DIR$,RETURN,QIO$
	.MCALL WTSE$S
;
KSPCUR::
	MOV	@2(R5),DPB+Q.IOLU	;TRANSFER LOGICAL UNIT
	MOV	@4(R5),DPB+Q.IOPL+4	;TRANSFER LINE NUMBER
	MOV	@6(R5),DPB+Q.IOPL+6	;AND CHARACTER NUMBER
	DIR$	#DPB
	TST	$DSW			;DID DIRECTIVE PASS?
	BPL	30$			;BRANCH IF SUCCESSFUL
	RETURN
30$:
	WTSE$S	#EF24			;WAIT FOR I/O TO COMPLETE
	RETURN
;DPB FOR POSITIONING CURSOR
DPB:	QIO$	FTN11,,EF24,,,,<0,0,0,0,0,0>
;SYMBOL DEFINITIONS:
FTN11=4400
EF24=24.
.END