.TITLE	SETLUN
;
; THIS ROUTINE SETS THE LUN FOR USE IN COBOL.  IF NO PARAMETER IS
; SPECIFIED IT DEFAULTS TO 1.
;
SETLUN::
	MOVB	#1,LUN		; SET LUN
	CMP	(R5)+,#1		; A PARAMETER?
	BNE	10$			; NO - EXIT
	MOVB	@(R5)+,LUN		; YES - SET THE LUN
;
10$:
	RETURN
	.END