d 	.TITLE	TIMAST
È 	.IDENT	/V01.01 (01-84)/
,;	ROUTINE DE TRAITEMENT DES TIMOUT DE GETTMP ET RELTMP
	.PSECT	RW_COMMON,OVR,RD,WRT,LONG
ôMBCHAN1:	.BLKW	1	;CANAL D'ACCES A LA MAILBOX UTILISATEUR
X	.PSECT	TMP_RWDATA,NOEXE,RD,WRT,LONG
¼FACILITY_DESC:	.LONG	2$-1$
 	.LONG	1$
„1$:	.ASCII	/TMP/
è2$:
LMSGVECTOR:	.LONG	1
°	.BLKL	1
	.PSECT	TMP_RWCODE,EXE,RD,NOWRT,LONG
x	.ENTRY	TIMAST,^M<>
Ü	$CANCEL_S	CHAN=MBCHAN1
@	$DELMBX_S	CHAN=MBCHAN1
¤	MOVL	#TMP$_TIMEOUT,MSGVECTOR+4	;STOCKAGE DE L'ERREUR
	$PUTMSG_S	MSGVEC=MSGVECTOR,FACNAM=FACILITY_DESC
l	MOVL	#TMP$_TIMEOUT,R0
Ð	$EXIT_S	CODE=R0		;SORTIE AVEC STATUS
4	.END