.TITLE	ASGLUN - ROUTINE TO CHANGE SFGL70'S OUTPUT LOGICAL UNIT

.IDENT	'ASGLUN'

.PSECT	ASGLUN

;	KEN DEMERS
;	UTRC
;	1979

;	THIS ROUTINE ALLOWS A USER TO SPECIFY ANOTHER LOGICAL
;	UNIT FOR SFGL70 OUTPUT OTHER THAN THE DEFAULT LOGICAL
;	UNIT 5. IT DOES NOT HAVE TO BE CALLED IF THE INTENDED
;	OUTPUT LOGICAL UNIT IS 5.

;	ON ENTRY:

;	R5 = A(FORTRAN ARG BLK)

;	CALLING FORMAT:

;	CALL ASGLUN(N)

;	WHERE:

;	N	= NEW OUTPUT LOGICAL UNIT

.MCALL	ALUN$,DIR$

;	INTERNAL GLOBALS

.GLOBL	ASGLUN

;	EXTERNAL GLOBALS

.GLOBL	O$UTLUN



ASGLUN:	MOV	@2(R5),R0	;R0= REQUESTED LUN
	MOV	R0,O$UTLUN	;PUT REQUESTED OUTPUT LUN IN
				;PLOTPRIM'S WRTQIO DPB.
	MOVB	R0,ALUN+A.LULU	;PUT LUN IN ALUN$ DPB
	DIR$	#ALUN		;ASSIGN THE LUN
	RETURN

ALUN:	ALUN$	5,TT,16		;LUN,DEV NAME,DEV #
	.END