d .TITLE TMP .IDENT /V01.01 (01-84)/ , $DIBDEF  $JPIDEF  .PSECT RW_DATA,NOEXE,RD,WRT,LONG XMBLOGNAM: .LONG 20$-10$  .LONG 10$ 10$: .ASCII /FILETMPMB/ 20$: MBUNIT: .BLKW 1 ;NUMERO DE LA MAILBOX LMBBUFDESC: .LONG DIB$K_LENGTH  .LONG MBBUF MBBUF: .BLKB DIB$K_LENGTH xMESSAGE: .BLKB 11 ;BUFFER POUR MESSAGES MBCHAN2: .BLKW 1 ;CANAL MAILBOX FILETMPMB @JPILST: .WORD 4  .WORD JPI$_PID PID: .BLKL 1 l .LONG 0  .LONG 0 4SYM_QUOTA$TMP: .ASCID /QUOTA$TMP/ QUOTA$TMP_VAL: .LONG 10  .LONG 40$ ` 40$: .BLKB 10 QUOTA_FAO: .ASCID *!UL* ( TABLE: .LONG LIB$K_CLI_GLOBAL_SYM .PSECT RW_COMMON,OVR,RD,WRT,LONG MBCHAN1: .BLKW 1 ;CANAL D'ACCES A LA MAILBOX UTILISATEUR T .PSECT RW_CODE,EXE,RD,NOWRT,LONG .ENTRY TMP,^M  ; CREATION DE LA MAILBOX $CREMBX_S PROMSK=#^XFF00,MAXMSG=#11,CHAN=MBCHAN1 BLBS R0,1$ H BRW 100$ ; RECHERCHE DE L'UNITE 1$: $GETCHN_S CHAN=MBCHAN1,SCDBUF=MBBUFDESC t BLBS R0,2$  BRW 100$ <2$: MOVW MBBUF+DIB$W_UNIT,MBUNIT ; ASSIGNATION DE LA MAILBOX FILETMPMB  $ASSIGN_S CHAN=MBCHAN2,DEVNAM=MBLOGNAM h BLBS R0,3$  BRW 100$ 0; CONSTRUCTION DU MESSAGE 3$: MOVB 4(AP),MESSAGE ;NATURE DU MESSAGE  MOVAL MESSAGE+1,PID ;ADRESSE DU RECUPERATION DU PID \ $GETJPI_S ITMLST=JPILST  BLBS R0,4$ $ BRW 100$ 4$: CMPB (AP),#2 ;TEST DU NOMBRE D'ARGUMENTS  BGEQ 10$ P CLRL MESSAGE+5 ;PAS DE NOMBRE DE BLOCS  BRB 20$ 10$: MOVL 8(AP),MESSAGE+5 ;COPIE DU NOMBRE DE BLOCS |20$: MOVW MBUNIT,MESSAGE+9 ;NUMERO DE LA MAILBOX ; ENVOI DU MESSAGE D $QIOW_S CHAN=MBCHAN2,FUNC=#IO$_WRITEVBLK,P1=MESSAGE,P2=#11  BLBC R0,100$ ; LECTURE DE LA REPONSE p $QIOW_S CHAN=MBCHAN1,FUNC=#IO$_READVBLK,P1=MBBUF,P2=#8  BLBC R0,100$ 8; MODIFICATION DE QUOTA$TMP ; CONVERSION DE LA VALEUR  $FAO_S CTRSTR=QUOTA_FAO,OUTBUF=QUOTA$TMP_VAL,P1=MBBUF+4 d BLBC R0,100$ ; MISE A JOUR DU SYMBOLE , PUSHAL TABLE  PUSHAL QUOTA$TMP_VAL  PUSHAL SYM_QUOTA$TMP X CALLS #3,G^LIB$SET_SYMBOL  BLBC R0,100$  MOVL MBBUF,R0 ;CODE DE RETOUR  MOVL MBBUF+4,R1 ;NOMBRE DE BLOCS 100$: RET L .END