-255,256
	BEQ	171$		; NO
	BIS	#T3.MCR,T.ST3(R0) ; YES, SET TO PROMPT ON EXIT
171$:	BIT	#10000,$FLGS	; PRM= SPECIFIED?		[RJDK005]
	BEQ	180$		; NO				[RJDK005]
	MOV	R0,R5		; SAVE PTR			[RJDK005]
	MOV	#84.,R1		; LENGTH OF MCRBUFF		[RJDK005]
	CALL	$ALOCB		;GET BUFFER			[RJDK005]
	BCS	180$		;FORGET IF PROBLEMS		[RJDK005]
	MOV	R0,R1		;SAVE MCR BUF PTR		[RJDK005]
	TST	(R1)+		;SKIP LIST HEADER		[RJDK005]
	MOV	R5,(R1)+	;INSERT UCB PTR			[RJDK005]
	MOV	#PRMBUF,R3	;POINT TO TEXT			[RJDK005]
	MOV	#40.,R2		;40 WORDS			[RJDK005]
179$:	MOV	(R3)+,(R1)+	;MOVE 1 WORD			[RJDK005]
	SOB	R2,179$		;AND MORE			[RJDK005]
	MOV	$MCRCB,(R0)	;LINK INTO LIST			[RJDK005]
	MOV	R0,$MCRCB	;				[RJDK005]
/