.TITLE SETPAT
	.GLOBL SETPAT
	.MCALL EXIT$S,MRKT$S,ASTX$S
;
DROUT=167764
;
SETPAT:	MOV @2(R5),R5
	CLR TEL
	MRKT$S #4,#10.,#1,#MRKAST
	RTS PC
;
;
MRKAST:	INC TEL
	BIT #1,TEL
	BNE 1$
	MOV R5,@#DROUT
	BR ASTEX
1$:	CLR @#DROUT
ASTEX:	MRKT$S #4,#10.,#1,#MRKAST
	TST (SP)+
	ASTX$S
;
TEL:	.WORD 0
;
	.END