PERFRM.MAC;2/AU:72.=PERFRM.MAC;1
-9,,/;SML01/
; REVISIONS
;    SML01	FIX CRITICAL REGION IN TIMEIN
;
-51,51,/;SML01/
	.IDENT	"V3"
-99,,/;SML01/
TINFLG:	.WORD	0		;SET TO 1 WHEN PROCESSING TIMEIN NAME
-121,,/;SML01/
	CLR	TINFLG		;NOT PROCESSING TIMEIN NAME
-162,164,/;SML01/
	INC	TINFLG		;SET FLAG IN CASE INTERRUPT OCCURS
	MOV	(R5)+,ROUNAM	;PUT RAD50 ROUTINE NAME IN ROUNAM
	MOV	(R5),ROUNAM+2
	CLR	TINFLG		;SAFE AGAIN
-189,,/;SML01/
	TST	TINFLG		;CHECK IF IN TIMEIN CRITICAL REGION
	BNE 55$			;IF SO, IGNORE INTERUPT
/