WVAX Bliss-32 V4.5-862 4-May-1990 15:08:37  , @ P h           8 H \ l |       $ < L !\ l ######| $ %% &&  ( ******* ++++$ ,,,8 -L ...` //t 0 11  444 55555 666 777777 80DX<<<<<<<<|======>>>>>>???@@AAAABBBD(FFTGGGhIIIIIJJMMMMMMNNOOOOOOO QQQQQQQQQQ<RRRRRRRRRRLSSSS\TTTTTTTTtVWWW Di _REQUEST_DATA Dp _SEND_DATA Ds _TIMEDWAIT D0_DECREF D5[ _QUEUE_DG_BUF DLq _SEND_MSG_BUF DN_LDP0LR D>N_LDP1LR D_ACCEPT D/_DEALLOC_MSG_BUF_REG D_BUGCHK D1_DECSHR D]_REJECT D|E_ENBINT DKI_IFNORD D^j _RLS_COUNTERS DD_DSBINT DG _FORK_WAIT D"b_REQCOM DB__RELDPR DM_IOFORK Du_UNLOCK D3EXE$GL_TENUSEC: (GENERAL),EXE$GL_UBDELAY: (GENERAL);I( %IF %IDENTICAL( ,USEC)%THEN/ %ELSE%IF %IDENTICAL( ,MSEC)%THEN*d%ELSE%IF %IDENTICAL( ,SEC)%THEN**d%FI%FI%FI)*.EXE$GL_TENUSEC-   S SS$_NORMAL;J.EXE$GL_UBDELAY-  __NOTHING;TIME TST_FIELDSENSEUNITSSEC@3EXE$GL_TENUSEC: (GENERAL),EXE$GL_UBDELAY: (GENERAL);I( %IF %IDENTICAL( ,USEC)%THEN/ %ELSE%IF %IDENTICAL( ,MSEC)%THEN*d%ELSE%IF %IDENTICAL( ,SEC)%THEN**d%FI%FI%FI)*.EXE$GL_TENUSEC- %IF%NULL( )%THEN S SS$_NORMAL;%FIJ.EXE$GL_UBDELAY-  __NOTHING;TIMECODBLKUNITSSEC g TESTBITCCI; TESTBITCCI( );ENBINT();FLAG LOCK_FIELD|JSB=JSB;8REF_PDT: BLOCK[,`];REF_PDT= ;JSB(.REF_PDT[ PDT$L_UNMAP])PDT|IOC$WFIKPCH_LINKAGE=JSB(0=):PRESERVE(,,,,,)NOTUSED(,,, , , );34 IOC$WFIKPCH:IOC$WFIKPCH_LINKAGE (GENERAL);1 CALL_CODE:BLOCK[,`]r([,,,]=OP$_MOVL,[,,,]=%X8E,[,,,]=%XAF,[,,,]= CALL_CODE[ ,, ,]- CALL_CODE[,,,],[,,,]=OP$_JSB,[,, ,]= IOC$WFIKPCH,[ ,,,]= - CALL_CODE[ ,,,],[ ,,,]=OP$_JMP,[ ,,,]=%X9F,[ ,, ,]=);%IF%NULL( )%THENWFIKPCH_LINKAGE( CALL_CODE[,,,],^%IF%NULL( )%THEN, %FI);%ELSEWFIKPCH_LINKAGE( CALL_CODE[,,,], %IF%NULL( )%THEN, %FI);%FIEXCPTIPLTIMEUCB|IOC$WFIRLCH_LINKAGE=JSB(0=):PRESERVE(,,,,,)NOTUSED(,,, , , );34 IOC$WFIRLCH:IOC$WFIRLCH_LINKAGE (GENERAL);1 CALL_CODE:BLOCK[,`]r([,,,]=OP$_MOVL,[,,,]=%X8E,[,,,]=%XAF,[,,,]= CALL_CODE[ ,, ,]- CALL_CODE[,,,],[,,,]=OP$_JSB,[,, ,]= IOC$WFIRLCH,[ ,,,]= - CALL_CODE[ ,,,],[ ,,,]=OP$_JMP,[ ,,,]=%X9F,[ ,, ,]=);%IF%NULL( )%THENWFIRLCH_LINKAGE( CALL_CODE[,,,],^%IF%NULL( )%THEN, %FI);%ELSEWFIRLCH_LINKAGE( CALL_CODE[,,,], %IF%NULL( )%THEN, %FI);%FIEXCPTIPLTIMEUCB   ,   , , (   )(   )(   )(   ) D%IF( $BYTEOFFSET(STS$V_SEVERITY)c $BYTEOFFSET( STS$V_SUCCESS))( $BITPOSITION(STS$V_SEVERITY)c $BITPOSITION( STS$V_SUCCESS))( $FIELDWIDTH( STS$V_SUCCESS)c)%THEN%ERROR(XDefinition of either STS$V_SEVERITY or STS$V_SUCCESS not compatible with macro expansion)%FI8CONDITION_CODE;CONDITION_CODE= ;.CONDITION_CODE< $BITPOSITION( STS$V_SUCCESS)+ $FIELDWIDTH( STS$V_SUCCESS), $FIELDWIDTH(STS$V_SEVERITY)- $FIELDWIDTH( STS$V_SUCCESS),>+((-.CONDITION_CODE< $BITPOSITION( STS$V_SUCCESS), $FIELDWIDTH( STS$V_SUCCESS),>)^( $FIELDWIDTH(STS$V_SEVERITY)- $FIELDWIDTH( STS$V_SUCCESS)))|INI$BRK_LINKAGE=JSB:NOTUSED(,,,,,,,,, , , );34INI$BRK:lINI$BRK_LINKAGE (GENERAL);INI$BRK();