.TITLE	KSRLSE - RELEASE LINES ON KS SCOPE
	.IDENT	/27MAY7/	;10:15:00, JB
;	.ENTRY	KSRLSE - COMMENTS
;+
; K S R L S E 
;
; PURPOSE:	RELEASE LINES ON KS SCOPE
;
; INTERFACE:	CALL KSRLSE(LUN)
;
;		INPUT: LUN(INTEGER)=LOGICAL UNIT NUMBER ASSIGNED TO SCOPE
;
;		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$,QIO$,RETURN,WTSE$S
;
KSRLSE::
	MOV @2(R5),DPB+Q.IOLU	;TRANSFER LUN
	DIR$	#DPB
	TST	$DSW	;DID QIO SUCCEED?
	BPL	30$	;BRANCH IF YES
	RETURN
30$:
	WTSE$S	#EF24
	RETURN
;DPB FOR RELEASE BLOCKS
DPB:	QIO$	FTN10,,EF24,,,,<0,0,0,0,0,0>
;SYMBOL DEFINITIONS:
EF24=24.
FTN10=4000
.END