; RECASI	INIT A RECIEVE AST FOR FORTRAN ROUTINES
	.TITLE	RECASI
;
; CALL RECASI(EXRTN,NER)
; WHERE
;	EXRTN IS THE NAME OF A ROUTINE TO BE CALLED
;		WHEN A MESSAGE IS QUEUED TO THIS TASK
;	NER	SET TO 0 IF AST ACCEPTED,NON 0 OTHERWISE
;
	.PSECT	RECASI,RW,I,CON,LCL
	.MCALL	ASTX$S,SRDA$S
;
	.LIST	MEB
	.NLIST	CND
RECASI::
	TST	(R5)+		;SKIP PARM CNT
	MOV	(R5)+,EXRTN	;SAVE NAME
	CLR	R0		;INIT ERROR CODE
	SRDA$S	#RECAST		;SET UP AST
	BCC	RTN		;OK
	MOV	SP,R0		;ERROR OCCURRED
RTN:
	MOV	R0,@(R5)+	;RETURN NERC
	RTS	PC		;RETURN
RECAST:
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	R2,-(SP)
	MOV	R3,-(SP)
	MOV	R4,-(SP)
	MOV	R5,-(SP)
	CLR	-(SP)
	MOV	SP,R5
	JSR	PC,@EXRTN
	TST	(SP)+
	MOV	(SP)+,R5
	MOV	(SP)+,R4
	MOV	(SP)+,R3
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	MOV	(SP)+,R0
	ASTX$S
;
	.PSECT	RECASC,RW,D,OVR,GBL
EXRTN:	.BLKW	1
	.END