.VAX Bliss-32 V4.5-862 4-May-1990 15:08:07  , D T d          4 H \ l         0 H ` t  !   $$$$ % & '''''''''''' (((((( )))))))))))$ **********< +++++P ,d   _LOCK_CODE #_DISABLE_CACHE A _ASSIGN_COUNT :"_BITOFF _VECTOR _DEFINE_MESSAGE_MACRO  _ENABLE_MMG h%_POP  _INVALID_TB  _LOCK_STACK  _DESCRIPTOR A"_BITNAME "_BITHASH @ QUE_K_BLINK @ QUE_K_FLINK Y _BIT_VECTOR % _INIT_QUEUE %_DECR #_ITEMLST %_INCR %_IOSB _FACILITY_PSECT  _DISABLE_MMG l_JUMP j _KERNEL_CALL _OUTF %_PUSH  _UNLOCK_CODE _SEVERITY_LEVEL D _STRING_DESC  _MESSAGES  _ENABLE_CACHE U_LABEL " __BITHASH u_ASCIC _ASCID U_ASCII #_BLOCK _MATCH e_ASCIZ  # __ITEMLST ` _QUEUE_HEADER D _DATA_DESC X" _MINBITOFF * _EXEC_CALL " _MAXBITOFF%IF %IDENTICAL( , )%THEN %EXITMACRO%ELSE%IF%NULL( %REMAINING)%THEN %EXITMACRO%ELSE_MATCH( , %REMAINING)%FI%FI?BLOCK[%NAME(dsc$k_, ,_bln),`]r(%IF_MATCH( ,S,D,VS)%THEN%ELSE%WARN(_STRING_DESC - , , not a system defined string, descriptor class)%FI[ DSC$B_CLASS]=%NAME( dsc$k_class_, ),%IF_MATCH( ,T,NU,NL,NLO,NR,NRO,NZ,P)%THEN%ELSE%WARN(_STRING_DESC - , , not a system defined string, data type)%FI[ DSC$B_DTYPE]=%NAME( dsc$k_dtype_, ),[ DSC$W_LENGTH]= ,[ DSC$A_POINTER]= )CLASSSDTYPETLENGTHPOINTERJBLOCK[%NAME(dsc$k_, ,_bln),`]r(%IF_MATCH( ,S,D,VS)%THEN%ELSE%WARN( _DATA_DESC - , , not a system defined data, descriptor class)%FI[ DSC$B_CLASS]=%NAME( dsc$k_class_, ),%IF_MATCH( ,Z,BU,WU,LU,QU,OU,B,W,L,Q,O,F,D,G,H,FC,DC,GC,HC,CIT)%THEN%ELSE%WARN( _DATA_DESC - , , not a system defined data type)%FI[ DSC$B_DTYPE]=%NAME( dsc$k_dtype_, ),[ DSC$W_LENGTH]= ,[ DSC$A_POINTER]= )CLASSSDTYPEZLENGTHPOINTER& = +%COUNT* ;  BITVECTOR[%LENGTH-]; _ASSIGN_COUNT(,, %REMAINING); VECTOR[%LENGTH-]; _ASSIGN_COUNT(,, %REMAINING);9%NAME(__, )%IF b%THEN[]%FI= , %IF%LENGTHb%THEN, %REMAINING%FI%IF%LENGTH# %THEN %ERRORMACRO(_MESSAGES - Argument count is ,%LENGTH, but should be , )%FI%;%IF %DECLARED(%NAME( , ))%THEN3%NAME( , ): (GENERAL);%FI_DEFINE_MESSAGE_MACRO( ,%NAME( , ), )VECTOR[,s]%IF%NULL( )%THENr([]= ,[]= )%FIBLOCK[ DSC$K_S_BLN,`]!%IF%NULL( )%THEN %ERRORMACRO( 3_LOCK_CODE - Starting virtual address not specified)%FI8 __RANGE_QUAD:VECTOR[,s]; __RANGE_QUAD[]= ; __RANGE_QUAD[]=%IF%NULL( )%THEN %ELSE %FI;$LKWSET(INADR= __RANGE_QUAD)7%IF%NULL( )%THEN %ERRORMACRO( 1_LOCK_STACK - Return range quadword not specified)%FIgMFPR;8__STACKPOINTER;7 __RANGE_QUAD= :VECTOR[,s];MFPR( ,__STACKPOINTER); __RANGE_QUAD[]=__STACKPOINTER+%IF%NULL( )%THEN%ELSE *%FI; __RANGE_QUAD[]=__STACKPOINTER+%IF%NULL( )%THEN%ELSE *%FI;$LKWSET(INADR= __RANGE_QUAD,RETADR= )!%IF%NULL( )%THEN %ERRORMACRO(5_UNLOCK_CODE - Starting virtual address not specified)%FI8 __RANGE_QUAD:VECTOR[,s]; __RANGE_QUAD[]= ; __RANGE_QUAD[]=%IF%NULL( )%THEN %ELSE %FI;$ULWSET(INADR= __RANGE_QUAD)2%IF%NULL( )%THEN %ERRORMACRO( 3_FACILITY_PSECT - Facility prefix must be specified)%FITCODE=%NAME( ,_CODE)%IF%NULL( %REMAINING)%THEN( %REMAINING)%FI,2=%NAME( ,_GLOBAL)%IF%NULL( %REMAINING)%THEN( %REMAINING)%FI,1=%NAME( ,_OWN)%IF%NULL( %REMAINING)%THEN( %REMAINING)%FI,V=%NAME( ,_PLIT)%IF%NULL( %REMAINING)%THEN( %REMAINING)%FIVECTOR[,s]34 SYS$CMKRNL: (GENERAL);8 ARG_BLOCK:VECTOR[%LENGTH,s]_(%LENGTH-%IF%LENGTHU%THEN, %REMAINING%FI);$CMKRNL(ROUTIN= ,ARGLST= ARG_BLOCK)34 SYS$CMEXEC: (GENERAL);8 ARG_BLOCK:VECTOR[%LENGTH,s]_(%LENGTH-%IF%LENGTHU%THEN, %REMAINING%FI);$CMEXEC(ROUTIN= ,ARGLST= ARG_BLOCK)gMTPR;%IF %IDENTICAL( ,ALL)%THENMTPR(%REF(),PR$_TBIA)%ELSEMTPR(%REF( ),PR$_TBIS)%FI; |__JUMP= INTERRUPT;34B32_JUMP:__JUMPl;B32_JUMP( );&34CVT_OUT_FORMAT;7 __CONTROL=j(n( %CHARCOUNT( )),`( DSC$K_DTYPE_T, DSC$K_CLASS_S),j( ));CVT_OUT_FORMAT( __CONTROL,(%IF%NULL( )%THENP%ELSE %FI), %REMAINING) gMTPR;MTPR(%REF(), PR$_MAPEN); gMTPR;MTPR(%REF(), PR$_MAPEN); gMTPR;MTPR(%REF(),PR$_CADR); gMTPR;MTPR(%REF(),PR$_CADR);%ASCII %ASCIZ %ASCIC %ASCID 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))) %NAME( ,V_, )MIN_BITOFF_BITNAME( , %REMAINING)MAX_BITOFF_BITNAME( , %REMAINING)[_BITOFF_BITNAME( , )]= VECTOR[ , ]r __BITHASH( %REMAINING)[%COUNT, ITEM_W_CODE]= ,[%COUNT, ITEM_W_LENGTH]= ,[%COUNT,ITEM_A_POINTER]= ,[%COUNT, ITEM_A_SIZE]=   BLOCKVECTOR[ +, ITEM_K_BLN,`]r __ITEMLST( %REMAINING,,,,):9%NAME(_, )=BLOCK[%NAME( , _K_LENGTH),`]%;9%NAME(_ALLOC_, )(POINTER)=34 LIB$GET_VM; LIB$GET_VM(%REF(%NAME( , _K_LENGTH)),POINTER)%;9%NAME(_FREE_, )(POINTER)=34 LIB$FREE_VM; LIB$FREE_VM(%REF(%NAME( , _K_LENGTH)),POINTER)%;gINSQUE;6 : _QUEUE_HEADER();INSQUE( ,. [ QUE_K_FLINK])gREMQUE;6 : _QUEUE_HEADER();REMQUE(. [ QUE_K_FLINK], )BLOCK[ IOSB_K_LENGTH,`]( =. +)( =. -)7QHEAD= :VECTOR[,s];QHEAD[]=QHEAD[];QHEAD[]=QHEAD[];