d .TITLE RELTMP .IDENT /V01.01 (01-84)/ ,; SUPPRESSION DES BLOCS ALLOUES EN TEMPORAIRES  $ACCDEF  .PSECT TMP_RWDATA,NOEXE,RD,WRT,LONG XDELAY: .LONG -600000000,-1 MESSAGE: .WORD ACC$K_INSMESG  .BYTE 12  .LONG 2 STATUS: .BLKL 1 LNBLOCKS: .LONG 0 MESSAGE_DESC: .LONG MESSAGE_DESC-MESSAGE  .LONG MESSAGE xFACILITY_DESC: .LONG 2$-1$  .LONG 1$ @1$: .ASCII /TMP/ 2$: MSGVECTOR: .LONG 1 l .BLKL 1  .PSECT TMP_RWCODE,EXE,RD,NOWRT,LONG 4 .ENTRY RELTMP,^M<>  $SETIMR_S EFN=#32,DAYTIM=DELAY,ASTADR=TIMAST  BLBS R0,10$ ` BRW 100$ ;ERREUR 10$: PUSHL #2 ;DEMANDE DE DESALLOCATION ( CALLS #1,G^TMP PUSHR #^M MOVL R0,STATUS T $SNDACC_S MSGBUF=MESSAGE_DESC POPR #^M  $EXIT_S CODE=R0 ;SORTIE AVEC MISE A JOUR DU STATUS ; TRAITEMENT DES ERREURS 100$: MOVL R0,MSGVECTOR+4 ;STOCKAGE DE L'ERREUR H PUSHR #^M $PUTMSG_S MSGVEC=MSGVECTOR,FACNAM=FACILITY_DESC  POPR #^M t $EXIT_S CODE=R0  .END RELTMP