.MACRO	PERRM N,TAB,?L1,?L2,?L3
	.MCALL	TTYOUT
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	N,R0
	MOV	TAB,R1
L1:	CMP	(R1)+,R0
	BEQ	L2
	MOV	(R1),R1
	BNE	L1
	BR	L3
L2:	CMP	(R1)+,(R1)+
	TTYOUT	R1,-(R1)
L3:	MOV	(SP)+,R1
	MOV	(SP)+,R0
	.ENDM