% Librarian I01-420H0{T# U#!(0 ]0  BUILD.COM-PASCAL$ACLEDIT_ROUTINES>PASCAL$CLI_ROUTINESVPASCAL$CMA_ROUTINESPASCAL$CONV_ROUTINESPASCAL$CVT_ROUTINES PASCAL$DCX_ROUTINES+PASCAL$DTK_ROUTINESPASCAL$D_FLOATPASCAL$EDT_ROUTINESPASCAL$FDL_ROUTINES#PASCAL$G_FLOATPASCAL$LBR_ROUTINES%PASCAL$LIB_ROUTINESPASCAL$LIB_ROUTINES_IEEE_FLOATPASCAL$MAIL_ROUTINES8PASCAL$MTH_ROUTINESgPASCAL$NCS_ROUTINES'STARLET0 PASCAL$LIB_ROUTINES_IEEE_FLOATPASCAL$MAIL_ROUTINES8PASCAL$MTH_ROUTINESgPASCAL$NCS_ROUTINESPASCAL$OTS_ROUTINES1 PASCAL$PPL_ROUTINES PASCAL$PSM_ROUTINES!PASCAL$SMB_ROUTINES!PASCAL$SMG_ROUTINES"PASCAL$SOR_ROUTINES"PASCAL$STR_ROUTINES #PASCAL$TBK_ROUTINES#PASCAL$TPU_ROUTINESO# PASSTR$$FILESH#PASSTR$$FILE_LIST'STARLETY1$!++$!$! [STARLET_SD]PASCAL$BUILD.COM$!H$! This command file is inserted into the STARLETPAS.TLB file during theN$! OpenVMS build. It is then extracted and invoked by the Pascal installationH$! on the customer's system. The rest of the Pascal installation has no?$! direct knowledge on the contents of the STARLETPAS.TLB file.$!$! Edit History:$!$! John Reagan 30-Sep-2004$! - Initial version$! John Reagan 23-Jan-2006$! - Add TBK routines$!$!$ ON E RROR THEN EXIT$!5$! Extract the rest of the files from STARLETPAS.TLB$!-$ IF PASCAL$DEBUG THEN LIBRARY := LIBRARY/LOGR$ LIBRARY/TEXT/EXTRACT=PASCAL$D_FLOAT /OUTPUT=VMI$KWD:PASCAL$D_FLOAT.PAS 'P1'R$ LIBRARY/TEXT/EXTRACT=PASCAL$G_FLOAT /OUTPUT=VMI$KWD:PASCAL$G_FLOAT.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=STARLET /OUTPUT=VMI$KWD:STARLET.PAS 'P1'_$ LIBRARY/TEXT/EXTRACT=PASCAL$ACLEDIT_ROUTINES /OUTPUT=VMI$KWD:PASCAL$ACLEDIT_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$CLI_ROUTINES /OUTPUT=VMI$KWD:PASCAL$CLI_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$CMA_ROUTINES /OUTPUT=VMI$KWD:PASCAL$CMA_ROUTINES.PAS 'P1'X$ LIBRARY/TEXT/EXTRACT=PASCAL$CONV_ROUTINES/OUTPUT=VMI$KWD:PASCAL$CONV_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$CVT_ROUTINES /OUTPUT=VMI$KWD:PASCAL$CVT_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$DCX_ROUTINES /OUTPUT=VMI$KWD:PASCAL$DCX_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$DTK_ROUTINES /OUTPUT=VMI$KWD:PASCAL$DTK_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$EDT_ROUTINES /OUTPUT=VMI$KWD:PASCAL$EDT_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$FDL_ROUTINES /OUTPUT=VMI$KWD:PASCAL$FDL_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$LBR_ROUTINES /OUTPUT=VMI$KWD:PASCAL$LBR_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$LIB_ROUTINES /OUTPUT=VMI$KWD:PASCAL$LIB_ROUTINES.PAS 'P1't$ LIBRARY/TEXT/EXTRACT=PASCAL$LIB_ROUTINES_IEEE_FLOAT /OUTPUT=VMI$KWD:PASCAL$LIB_ROUTINES_IEEE_FLOAT.PAS 'P1'X$ LIBRARY/TEXT/E XTRACT=PASCAL$MAIL_ROUTINES/OUTPUT=VMI$KWD:PASCAL$MAIL_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$MTH_ROUTINES /OUTPUT=VMI$KWD:PASCAL$MTH_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$NCS_ROUTINES /OUTPUT=VMI$KWD:PASCAL$NCS_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$OTS_ROUTINES /OUTPUT=VMI$KWD:PASCAL$OTS_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$PPL_ROUTINES /OUTPUT=VMI$KWD:PASCAL$PPL_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$PSM_ROUTINES /OUTPUT=VMI$KWD:PASCAL$PSM_RO UTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$SMB_ROUTINES /OUTPUT=VMI$KWD:PASCAL$SMB_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$SMG_ROUTINES /OUTPUT=VMI$KWD:PASCAL$SMG_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$SOR_ROUTINES /OUTPUT=VMI$KWD:PASCAL$SOR_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$STR_ROUTINES /OUTPUT=VMI$KWD:PASCAL$STR_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$TPU_ROUTINES /OUTPUT=VMI$KWD:PASCAL$TPU_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASCAL$TBK_ROUT INES /OUTPUT=VMI$KWD:PASCAL$TBK_ROUTINES.PAS 'P1'W$ LIBRARY/TEXT/EXTRACT=PASSTR$$FILE_LIST /OUTPUT=VMI$KWD:PASSTR$$FILE_LIST.TXT 'P1'W$ LIBRARY/TEXT/EXTRACT=PASSTR$$FILES /OUTPUT=VMI$KWD:PASSTR$$FILES.DAT 'P1'$!2$! Select oldest compiler that is at least V5.0-0$!$$ CALL SELECT_COMPILER V50-000$!/$ PASCAL := PASCAL/NOOBJECT/NOWARNING/ALIGN=VAX$!^$ PASCAL/FLOAT=D_FLOAT/ENVIRONMENT=VMI$KWD:PASCAL$D_FLOAT.PEN VMI$KWD:PASCAL$D_FLOAT.PAS^$ PASCAL/FLOAT=G _FLOAT/ENVIRONMENT=VMI$KWD:PASCAL$G_FLOAT.PEN VMI$KWD:PASCAL$G_FLOAT.PAS$!"$ PASCAL := 'PASCAL'/FLOAT=G_FLOAT$!G$ WRITE SYS$OUTPUT " Generating STARLET.PAS/PEN",PASSTR$USING_COMPILER4$ PASCAL/ENVIRONENT=VMI$KWD:STARLET VMI$KWD:STARLET$!W$ WRITE SYS$OUTPUT " Generating PASCAL$ACLEDIT_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERT$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$ACLEDIT_ROUTINES VMI$KWD:PASCAL$ACLEDIT_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$CLI_ROUTINES.PAS/PEN",PASSTR$USING_C OMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$CLI_ROUTINES VMI$KWD:PASCAL$CLI_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$CMA_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$CMA_ROUTINES VMI$KWD:PASCAL$CMA_ROUTINES$!T$ WRITE SYS$OUTPUT " Generating PASCAL$CONV_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERN$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$CONV_ROUTINES VMI$KWD:PASCAL$CONV_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$CVT_ROUTINES.PAS/PEN",PASSTR$USING_C OMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$CVT_ROUTINES VMI$KWD:PASCAL$CVT_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$DCX_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$DCX_ROUTINES VMI$KWD:PASCAL$DCX_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$DTK_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$DTK_ROUTINES VMI$KWD:PASCAL$DTK_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$EDT_ROUTINES.PAS/PEN",PASSTR$USING_COM PILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$EDT_ROUTINES VMI$KWD:PASCAL$EDT_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$FDL_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$FDL_ROUTINES VMI$KWD:PASCAL$FDL_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$LBR_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$LBR_ROUTINES VMI$KWD:PASCAL$LBR_ROUTINES$!$ CALL SELECT_COMPILER V54-041Y$ WRITE SYS$OUTPUT " Generating PASCAL$LIB_ROUTINES.PAS/PEN",PASSTR$USING_COMPILER:$ DEFINE/USER SYS$LIBRARY VMI$KWD:,VMI$ROOT:[SYSLIB]Q$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$LIB_ROUTINES VMI$KWD:PASCAL$LIB_ROUTINES5$ PASCAL := PASCAL/NOOBJECT/NOWARNING/ALIGN=VAX+$ PASCAL := 'PASCAL'/FLOAT=IEEE_FLOATd$ WRITE SYS$OUTPUT " Generating PASCAL$LIB_ROUTINES_IEEE_FLOAT.PAS/PEN",PASSTR$USING_COMPILER:$ DEFINE/USER SYS$LIBRARY VMI$KWD:,VMI$ROOT:[SYSLIB]k$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$LIB_ROUTINES_ IEEE_FLOAT.PEN VMI$KWD:PASCAL$LIB_ROUTINES_IEEE_FLOAT5$ PASCAL := PASCAL/NOOBJECT/NOWARNING/ALIGN=VAX($ PASCAL := 'PASCAL'/FLOAT=G_FLOAT$$ CALL SELECT_COMPILER V50-000$!T$ WRITE SYS$OUTPUT " Generating PASCAL$MAIL_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERN$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$MAIL_ROUTINES VMI$KWD:PASCAL$MAIL_ROUTINES$!$ CALL SELECT_COMPILER V54-041S$ WRITE SYS$OUTPUT " Generating PASCAL$MTH_ROUTINES.PAS/PEN",PASSTR$USING_COMPILER4$ DEFINE/USER SYS$LIBR ARY VMI$KWD:,VMI$ROOT:[SYSLIB]L$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$MTH_ROUTINES VMI$KWD:PASCAL$MTH_ROUTINES$$ CALL SELECT_COMPILER V50-000$!S$ WRITE SYS$OUTPUT " Generating PASCAL$NCS_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$NCS_ROUTINES VMI$KWD:PASCAL$NCS_ROUTINES$!$ CALL SELECT_COMPILER V54-041S$ WRITE SYS$OUTPUT " Generating PASCAL$OTS_ROUTINES.PAS/PEN",PASSTR$USING_COMPILER4$ DEFINE/USER SYS$LIBRARY VMI$KWD:,VMI$ROOT:[SYSLIB]L$ PASCAL/ENVI RONENT=VMI$KWD:PASCAL$OTS_ROUTINES VMI$KWD:PASCAL$OTS_ROUTINES$$ CALL SELECT_COMPILER V50-000$!S$ WRITE SYS$OUTPUT " Generating PASCAL$PPL_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$PPL_ROUTINES VMI$KWD:PASCAL$PPL_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$PSM_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$PSM_ROUTINES VMI$KWD:PASCAL$PSM_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$SMB_ROUTINES.PAS/PEN",PA SSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$SMB_ROUTINES VMI$KWD:PASCAL$SMB_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$SMG_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$SMG_ROUTINES VMI$KWD:PASCAL$SMG_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$SOR_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$SOR_ROUTINES VMI$KWD:PASCAL$SOR_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$STR_ROUTINES.PAS/PEN",PASS TR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$STR_ROUTINES VMI$KWD:PASCAL$STR_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$TBK_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$TBK_ROUTINES VMI$KWD:PASCAL$TBK_ROUTINES$!S$ WRITE SYS$OUTPUT " Generating PASCAL$TPU_ROUTINES.PAS/PEN",PASSTR$USING_COMPILERL$ PASCAL/ENVIRONENT=VMI$KWD:PASCAL$TPU_ROUTINES VMI$KWD:PASCAL$TPU_ROUTINES$!$ EXIT 1Y$!---------------------------------------------------------------------------------------$!K$! SUBROUTINE SELECT_COMPILER: Select oldest Pascal compiler with ID equal$! to or greater than P1.$!#$! P1 = "Minimum version required"$!L$! This is exactly the same as the SELECT_COMPILER inside of KITINSTAL.COM.O$! We have to repeat it here since we can't 'call' it inside of KITINSTAL.COM.L$! I could have used a user-defined VMI$CALLBACK to select the compiler but$! even I'm not that nerdy.$!$ SELECT_COMPILER:$ SUBROUTINE$!` $ IF PASCAL$DEBUG THEN WRITE SYS$OUTPUT "Selecting compiler with ident greater than ''P1'"$!&$ PASSTR$SELECTED_ID = "V99-999" $ I = 0$ SELECT_NEXT_COMPILER:/$ TMP = F$ELEMENT(I,",",PASCAL$SAVED_IDS):$ IF TMP .EQS. "," THEN GOTO NO_MORE_SAVED_COMPILERSA$ IF (F$EXTRACT(1,99,TMP) .GES. F$EXTRACT(1,99,P1)) .AND. -I (F$EXTRACT(1,99,TMP) .LTS. F$EXTRACT(1,99,PASSTR$SELECTED_ID)) $ THEN$$ PASSTR$SELECTED_ID = TMP $ ENDIF$ I = I + 1!$ GOTO SELECT_NEXT_COMPILER$!$ NO_MORE_SAVED_COMPILERS:$!#$! Select current compiler (if any)$!-$ IF PASSTR$SELECTED_ID .NES. "V99-999" $ THENh$ IF PASCAL$DEBUG THEN WRITE SYS$OUTPUT "Selected SYS$SYSTEM:PASCAL-''PASSTR$SELECTED_ID'.EXE"J$ DEFINE/NOLOG PASCAL SYS$SYSTEM:PASCAL-'PASSTR$SELECTED_ID'.EXE $ ENDIF$!*$! if (current compiler exists) .and.2$! (current id is above the minimum) .and.9$! ( current is older than currently selected one) $! then'$! select the current compiler$!/$ IF (PASCAL$CURRENT_ID .NES. "") .AND. -O (F$EXTRACT(1,99,PASCAL$CURRENT_ID) .GES. F$EXTRACT(1,99,P1)) .AND. -W (F$EXTRACT(1,99,PASCAL$CURRENT_ID) .LTS. F$EXTRACT(1,99,PASSTR$SELECTED_ID)) $ THEN2$ PASSTR$SELECTED_ID = PASCAL$CURRENT_IDr$ IF PASCAL$DEBUG THEN WRITE SYS$OUTPUT "Selected current SYS$SYSTEM:PASCAL.EXE (''PASSTR$SELECTED_ID')"5$ DEFINE/NOLOG PASCAL SYS$SYSTEM:PASCAL.EXE $ ENDIF$!&$! if (new compiler exists) .and..$! (new id is above the minimum) .and.5$! (new is older than currently selected one) $! then#$! select the new compiler$!+$ IF (PASCAL$NEW_ID .NES. "") .AND. -K (F$EXTRACT(1,99,PASCAL$NEW_ID) .GES. F$EXTRACT(1,99,P1)) .AND. -S (F$EXTRACT(1,99,PASCAL$NEW_ID) .LTS. F$EXTRACT(1,99,PASSTR$SELECTED_ID)) $ THEN. $ PASSTR$SELECTED_ID = PASCAL$NEW_ID$ IF VMI$SAFETY$ THENo$ IF PASCAL$DEBUG THEN WRITE SYS$OUTPUT "Selected new VMI$KWD:PASCAL.EXE (''PASSTR$SELECTED_ID')"9$ DEFINE/NOLOG PASCAL VMI$KWD:PASCAL.EXE<$ DEFINE/NOLOG PASCALER1 VMI$KWD:PASCALER1.EXE<$ DEFINE/NOLOG PASCALER2 VMI$KWD:PASCALER2.EXE$ ELSE$ IF PASCAL$DEBUG THEN WRITE SYS$OUTPUT "Selected new SYS$SYSTEM:PASCAL.EXE (''PAS STR$SELECTED_ID') [safety off]"9$ DEFINE/NOLOG PASCAL SYS$SYSTEM:PASCAL.EXE$ ENDIF $ ENDIF$!-$ IF PASSTR$SELECTED_ID .EQS. "V99-999" $ THEN$ TYPE SYS$INPUTF One of the STARLET files requires a version of HP Pascal that is notD available on your system. Please re-install the HP Pascal kit andD select the "Do you want to install the HP Pascal compiler" option.L If you did select that option and still received this message, then please submit a problem report to HP.G If you chose to rename your existing compiler, you may have to renameG it back to SYS$COMMON:[SYSEXE]PASCAL.EXE for the next installation to work properly.$ EXIT VMI$_FAILURE $ ENDIF$!;$! If we're using a compiler with a dash in the name, then$$! its one we've saved in the past.$!]$ IF F$LOCATE("-",F$PARSE("PASCAL",,,"NAME")) .NE. F$LENGTH(F$PARSE("PASCAL",,,"NAME")) $ THENA$ PASSTR$USING_COMPILER == " using "+F$TRNLNM("PASCAL") $ ELSE*$ PASSTR$USING_COMPILER == "..." $ ENDIF$ ENDSUBROUTINEww"1 EVMSBUILD BUILD.COM'k2 EVMSBUILD PASCAL$D_FLOAT'pU3 EVMSBUILD PASCAL$G_FLOAT PM EVMSBUILD STARLET0 1W EVMSBUILD PASCAL$ACLEDIT_ROUTINES,BX EVMSBUILD PASCAL$CLI_ROUTINES, Y EVMSBUILD PASCAL$CMA_ROUTINES-Z EVMSBUILD PASCAL$CONV_ROUTINES, \ EVMSBUILD PASCAL$CVT_ROUTINES,K] EVMSBUILD PASCAL$DCX_ROUTINES,@^ EVMSBUILD PASCAL$DTK_ROUTINES, k2P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, ! }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in t"his document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ })[pen_checking_style(none),float(d_float)]module pascal$d_float;type d_float$$type = double;end.ww$pU3P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, % }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in t&his document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ })[pen_checking_style(none),float(g_float)]module pascal$g_float;type g_float$$type = double;end.ww(f4<[PEN_CHECKING_STYLE(NONE),IDENT('V8.4-2L3')] MODULE STARLET;W(* Built on OpenVMS I64 V8.4-2L3 from data last modified on * 9-MAR-2021 22:27:59.68 *)P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ ) }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor a*ny of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. + }P{ }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCT,A,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(1-0),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(2 .3),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED;N(*+ *)N(* Descriptor to suppo /rt blob structure use. *)N(*- *)+TYPE DSC11$TYPE = RECORD CASE INTEGER OF! 1: (DSC$W_LENGTH: $UWORD; DSC$B_DTYPE : $BYTE; DSC$B_CLASS : $BYTE;$ DSC$A_POINTER: UNSIGNED;\ DSC$B_SCALE : $BYTE; (* Signed power of ten multiplier to convert the *)[ (* internal form to external form. For exam 0ple, *)X (* if internal number is 123 and scale is +1, *)[ (* then the represented external number is 1230. *)V DSC$B_DIGITS : $UBYTE; (* If non-zero, unsigned number of decimal *)X (* digits in the external representation. If *)X (* zero, the number of digits can be computed *)X 1(* zero, the number of digits can be computed *)N (* based on DSC$W_LENGTH. *)8 DSC$R_AFLAGS_OVERLAY : [BYTE(1)] RECORD END;N DSC$B_DIMCT : $UBYTE; (* Number of dimensions *)\ DSC$L_ARSIZE : UNSIGNED; (* Total size of array (in bytes unless DTYPE is *)S (* EQUL DSC$K_DTYPE_V or DSC$K_DTYPE_P). *)T DSC$A_A0 : UNSIGNED; (* Address of elem 2ent A(0,0,...,0). This *)V (* need not be within the actual array/* it *)W (* is the same as DSC$A_POINTER for 0-origin *)N (* arrays. *) ); END;N(* *)N(* 64-bit versions of the descriptor defined above. It is expected *)N(* to be quadword aligned. 3 *)N(*- *).TYPE DSC11_64$TYPE = RECORD CASE INTEGER OF# 1: (DSC64$Q_LENGTH: $UQUAD;" DSC64$B_DTYPE : $BYTE;" DSC64$B_CLASS : $BYTE;$ DSC64$PQ_POINTER: $QUAD;" DSC64$B_SCALE : $BYTE;$ DSC64$B_DIGITS : $UBYTE;: DSC64$R_AFLAGS_OVERLAY : [BYTE(1)] RECORD END;# DSC64$B_DIMCT : $UBYTE;$ 4 DSC64$Q_ARSIZE : $UQUAD; DSC64$PQ_A0 : $QUAD; ); END; N(* MODULE ACMEMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED5; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOC6TA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; 7 *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; 8 *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(914),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; : *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727 ;; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $ACMEMSGDEF ***) N(* < *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:47.61 *)N(* *)N(* *)O(* ************************************************************************* *)O(* * * *)O(* * COPYRIGHT 2000, 2001 COMPAQ COMPUTER CORPORATION = * *)O(* * * *)O(* * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. * *)O(* * * *)O(* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ OR * *)O(* * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. * *)O(* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *)O(* *> COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *)O(* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *)O(* * COMMERCIAL LICENSE. * *)O(* * * *)O(* * COMPAQ SHALL NOT BE LIABLE FOR TECHNICAL OR EDITORIAL ERRORS OR * *)O(* * OMISSIONS CONTAINED HEREIN. THE INFORMATION IN THIS DOCUMENT IS * *)O(* * SUBJECT TO CH?ANGE WITHOUT NOTICE. * *)O(* * * *)O(* ************************************************************************* *)N(* *)N(*++ *)N(* *)N(* FACILITY: @ *)N(* *)I(* STARLET *)N(* *)N(* ABSTRACT: *)N(* *)I(* THIS MODULE DEFINES THE MESSAGE CODES USED BY THE $AUTHENTICATE[W A], *)I(* $LOGON[W], $SET_PASSWORD[W] AND $ACM[W] SYSTEM SERVICES. *)N(* *)N(* ENVIRONMENT: *)N(* *)G(* VMS PROTECTED SHAREABLE IMAGE ($AUTHENTICATE[W], $LOGON[W], *)-(* $SET_PASSWORD[W]) *)9(* VMS EXECUTIVE ($ACM[W] SERVICE) *)DB(* VMS AUTHENTICIATION SERVER ($ACM[W] SERVICE) *)N(* *)N(* AUTHOR: *)N(* *)B(* RICHARD J. BARRY DECEMBER 15, 1995 *)N(* *)N(* C *)N(* NOTE: *)I(* THIS MODULE IS COMMON BETWEEN ALPHA AND VAX. *)N(* *)N(* MODIFICATIONS: *)N(* *).(* X-20 DOUGLAS FYFE 22-MAY-2003 *)B(* ADD DIALOGUELM ERROR CODE. D *)N(* *)1(* X-19 RICHARD J. BARRY 14-NOV-2001 *)B(* TWEEK THE ACME$_FAILURE MESSAGE DESCRIPTION ONE LAST *)B(* TIME TO COMMUNICATE THE FACT THAT ACME SERVER LOGGING *)B(* MAY NEED TO BE ENABLED. *)N(* *).(* X-18 DOUGLAS FYFE 5-OCT-2001 *)F(* XE-17 ADD ERROR CODES FOR CONFIGURATION/RESTART FILE *)B(* OPEN FAILURES. FIX CUT-N-PASTE ERROR. *)N(* *)8(* X-16 RJB0129 RICHARD J. BARRY 6-AUG-2001 *)B(* CORRECT MESSAGE DESCRIPTION TYPOS. *)N(* *)=(* X-15 LJK0204 LAWRENCE J. KILGALLEN 4-JAN-2001 *)B(* CHANGE FAILURE TFEXT TO MENTION ACME$SERVER LOG FILE. *)N(* *)=(* X-14 LJK0182 LAWRENCE J. KILGALLEN 31-AUG-2000 *)B(* ADD BADSTRUCTLEN. *)B(* ADD CONTACTSYSMGR, PER PTR 75-43-211. *)N(* *)8(* X-13 AJM00701 ANDREW J. MOSKAL 24-JUL-2000 *)B(* ADD NOAGENTINIT. G *)N(* *)8(* X-12 AJM00602 ANDREW J. MOSKAL 21-JUN-2000 *)B(* ADD WASCLR, WASSET AND LOCKED ALTERNATIVE SUCCESS. *)B(* ADD INVITMSEQ AND NOACMECTX. *)B(* ADD NOTOUTITEM. *)B(* ADD AGENTLOADFAIL. *)B(* UPDATE COPYRIGHT NOTICE PER MANAGEMENT DIRECTIVES. *)NH(* *)8(* X-11 AJM63405 ANDREW J. MOSKAL 13-APR-1999 *)B(* ADD INCOMPATSTATE. *)N(* *)8(* X-10 AJM62A07 ANDREW J. MOSKAL 29-OCT-1998 *)B(* ADD BUSY. *)N(* *)7(* X-9 AJM6260I2 ANDREW J. MOSKAL 23-JUN-1998 *)B(* MOVE ERROPNLOGFIL, RENAME TO ERROPENLOGFIL. *)B(* ADD ERRCLOSELOGFIL AND ERRWRITELOGFIL. *)B(* ADD SERVERSTART AND SERVEREXIT. *)B(* CORRECT TYPO: DOIUNAVAILBLE ==> DOIUNAVAILBLE. *)N(* *)7(* X-8 AJM62307 ANDREW J. MOSKAL 16-MAR-1998 *)B(* REINSTATE PERFORMDIALOGUE. J *)N(* *)7(* X-7 AJM62301 ANDREW J. MOSKAL 11-MAR-1998 *)B(* MOVE TRACE MESSAGES TO [ACMESRV]ACMESRVMSG.MSG. *)N(* *)7(* X-6 AJM62202 ANDREW J. MOSKAL 12-FEB-1998 *)B(* ADD GENERAL FAILURE STATUS MESSAGE. *)N(* *)K7(* X-5 AJM62120 ANDREW J. MOSKAL 23-JAN-1998 *)B(* ADD SET SERVER (DCL INTERFACE) RELATED MESSAGES. *)B(* FIX FAO DIRECTIVES: *)B(* - !XQ SHOULD BE !@XQ (INDIRECT REFERENCES) *)B(* - %UL SHOULD BE !UL. *)B(* REVISE AUTHDOWN TEXT. *)N(* *)7(* X-4 AJM62103 ANDREW J. LMOSKAL 8-JAN-1998 *)B(* INCORPORATE $ACM[W] RELATED MESSAGE. *)B(* (LEFT PRE-$ACM MESSAGES INTACT TO ALLOW FOR THE CONTINUED *)B(* BUILDING OF PREVIOUS SUPPORT. MAY REVISIT PRIOR TO SSB.) *)N(* *)8(* X-3 JACH0036 JEREMY A. C. HITT 5-AUG-1996 *)B(* ADDED MESSAGES FOR ACME MODULES. *)N(* M *)8(* X-2 JACH0014 JEREMY A. C. HITT 4-MAR-1996 *)B(* INITIAL VERSION MERGED FROM ACME STREAM. *)N(*-- *) CONST ACME$_FACILITY = 1866; N(*++ *)N(* *)N(* ADD NEW MESSAGE CODES AT THE END OF THE APPROPRIATE LIST. *)N(* N *)N(* ASSIGNED RANGES: *)N(* *)>(* 0 - 99 SUCCESS ( 100 MESSAGES) *)C(* 100 - 199 INFORMATIONAL ( 100 MESSAGES) *)>(* 200 - 1199 WARNING (1000 MESSAGES) *)<(* 1200 - 2199 ERROR (1000 MESSAGES) *)<(* 2200 - 25 O59 FATAL ( 360 MESSAGES) *)N(* *)E(* 2560 - 3071 AUTHENTICATION SERVER EXECUTION CONTROL. *)F(* 3072 - 4095 AUTHENTICATION SERVER EXECUTION CONTROL AND TRACING. *);(* (MESSAGES ARE DEFINED BY [ACMESRV]ACMESRVMSG.MSG) *)N(* *)N(*-- *) CONST PACME$_NORMAL = 122322945; ACME$_WASCLR = 122322953; ACME$_WASSET = 122322961; ACME$_LOCKED = 122322969; ACME$_CONTINUE = 122322945; ACME$_PWDSYNCH = 122323747; ACME$_PWDNOSYNCH = 122323755; ACME$_LOCLOGIN = 122323763; N(* *)N(* $ACM MESSAGES *)N(* *) "CONST ACME$_BUFFEROVF = Q122323771; ACME$_SERVERSTART = 122323779; ACME$_SERVEREXIT = 122323787; N(* *)N(* $ACM MESSAGES *)N(* *) "CONST ACME$_OPINCOMPL = 122324544; ACME$_NOSUCHUSERID = 122332546; ACME$_PWDWRONG = 122332554; ACME$_ACCEXPIRED = 122332562; ACME$_PWDEXPIRED = 122332570; ACME$_INVALIDTIRME = 122332578; ACME$_UNSPECIFIED = 122332586; ACME$_PWDINHISTORY = 122332594; ACME$_PWDINDICT = 122332602; ACME$_PWDTOOSHORT = 122332610; ACME$_PWDTOOLONG = 122332618; ACME$_PWDINVCHAR = 122332626; ACME$_PWDTOOEASY = 122332634; ACME$_PWDINVALID = 122332642;! ACME$_PWDCANTCHANGE = 122332650; ACME$_NOLOCAUTH = 122332658; ACME$_USERIDRQRD = 122332666; ACME$_PWDRQRD = 122332674; ACME$_INSUFITM = 122332682; N(* S *)N(* $ACM MESSAGES *)N(* *) $CONST ACME$_AUTHFAILURE = 122332690; ACME$_ACCOUNTLOCK = 122332698; ACME$_NOSUCHUSER = 122332706; ACME$_INVALIDPWD = 122332714; ACME$_INVNEWPWD = 122332722; ACME$_PWDNOTCHG = 122332730; ACME$_INVMAPPING = 122332738; ACME$_MAPCONFLICT = 122332746;! ACME$_NOTAUTHORIZED = 122332754; ACME$_NOEXTAUTH = 122T332762; ACME$_INTRUDER = 122332770; ACME$_INVPERSONA = 122332778; ACME$_NOTARGETCRED = 122332786;! ACME$_NOCREDENTIALS = 122332794;# ACME$_INSFDIALSUPPORT = 122332802; ACME$_INVALIDCTX = 122332810; ACME$_INVREQUEST = 122332818; ACME$_INVALIDTLV = 122332826; ACME$_NOPRIV = 122332834;" ACME$_DOIUNAVAILABLE = 122332842; ACME$_NOSUCHDOI = 122332850; ACME$_TIMEOUT = 122332858;G ACME$_UNSUPPORTED = 122332866; (* *) Q(* THIS MESSAGE IS SENT TO U THE SYSTEM MANAGER WHEN DETAILS ARE IN THE LOG FILE *)N(* *) CONST ACME$_FAILURE = 122332874;! ACME$_ERROPENLOGFIL = 122332882;" ACME$_ERRCLOSELOGFIL = 122332890;" ACME$_ERRWRITELOGFIL = 122332898; ACME$_INVITMSEQ = 122332906; ACME$_NOACMECTX = 122332914; N(* *)N(* THIS MESSAGE IS SENT TO THE END USER WHEN DETAILS ARE IN THE LOG FILE V *)N(* *) &CONST ACME$_CONTACTSYSMGR = 122332922; N(* *)N(* ERROR MESSAGES TO REPORT FAILURES OPENING AUTO-RESTART FILES *)N(* *) *CONST ACME$_ERROPENRESTARTFIL = 122332930;% ACME$_ERROPENCONFIGSFIL = 122332938; ACME$_DIALOGUELM = 122332946; N(* W *)N(* CONTROL (DCL) INTERFACE RELATED MESSAGES *)N(* *) CONST ACME$_ACTIVE = 122338946; ACME$_INACTIVE = 122338954; ACME$_NOTSTARTED = 122338962; N(* *) $CONST ACME$_AGENTDBFULL = 122338970; ACME$_DUPACME = 122338978; ACME$_BUSY = 1223 X38986;! ACME$_INCOMPATSTATE = 122338994;! ACME$_AGENTLOADFAIL = 122339002; ACME$_NOAGENTINIT = 122339010; ACME$_AUTHDOWN = 122340548; ACME$_INCONSTATE = 122340556; N(*++ *)N(* *)N(* MESSAGE CODES 2560 THROUGH 4095 ARE RESERVED FOR INTERNAL (NOT VISIBLE *)O(* AT THE $ACM[W] SERVICE INTERFACE) USE WITHIN THE AUTHENTICATION SERVER. *)N(* Y *)N(* ASSIGNED RANGES: *)N(* *)E(* 2560 - 3071 EXECUTION CONTROL *);(* (DEFINED HEREIN) *)E(* 3072 - 4095 EXECUTION CONTROL AND TRACE MESSAGES *);(* (DEFINED BY [ACMESRV]ACMESRVMSG.MSG) *)N(*Z *)N(*-- *) (CONST ACME$_PERFORMDIALOGUE = 122344448; ACME$_PERFORMPHASE = 122344456; ACME$_RETRYPWD = 122344464; ACME$_WAITAST = 122344472; ACME$_WAITRESOURCE = 122344480; ACME$_ASTCTXNOTFND = 122345474; ACME$_BUFTOOSMALL = 122345482; ACME$_DIALOGFULL = 122345490; ACME$_DUPCREDTYP = 122345498; ACME$_INVCREDTYP = 122345506; ACME$_INV[FLAG = 122345514; ACME$_INVPARAMETER = 122345522; ACME$_NOMSGFND = 122345530; ACME$_NULLVALUE = 122345538;$ ACME$_RESOURCENOTAVAIL = 122345546; ACME$_UNSUPREVLVL = 122345554; ACME$_NOTOUTITEM = 122345562; ACME$_BADSTRUCTLEN = 122345570; N(* FATAL *) $CONST ACME$_THREADERROR = 122346500; N(* END. *) N(* MODULE BASMSG ; \ *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L]2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* ^$UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; _ *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511`; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BITa16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; b *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0. c.536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $BASDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.31 *)N(* d *)Q(***************************************************************************** *)(** * *),(** COPYRIGHT 1978, 2004 BY * *)C(** COMPAQ COMPUTER CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** I eNCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) f(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(*++ *)K(* FACILITY: DEC BASIC RUN TIME LIBRgARY *)N(* *)N(* ABSTRACT: *)N(* *)I(* THIS FILE, BASMSG.MSG, CONTAINS THE DEFINITIONS OF THE BASIC *)I(* MESSAGES FOR VAX/VMS. THIS FILE IS READ BY THE MESSAGE COMPILER *)I(* TO BUILD AN OBJECT FILE CONTAINING THE BASIC MESSAGES. *h)N(* *)N(* ENVIRONMENT: USER MODE - AST REENTRANT *)N(* *)N(* AUTHOR: RTL DEVELOPMENT, CREATION DATE: 06-MAY-1983 *)N(* *)N(* MODIFIED BY: *)N(* i *)N(* NOTE #1: *)B(* CHANGES TO THE THIS FILE, IF THEY INVOLVE THE FIRST 300 *)B(* MESSAGES DEFINED HERE REQUIRE A CHANGE TO THE *)B(* BASRTL_BASMSGNUM.SDL FILE. *)B(* THE FIRST 300 MESSAGES HAVE BASIC ERROR NUMBERS ASSOCIATED *)B(* WITH THEM. *)N(* j *)N(* NOTE #2: *)I(* RUN-TIME RTL CODE WILL "create" A MESSAGE CODE STARTING WITH THE *)I(* BASIC MESSAGE NUMBER (BAS$K_XXXX) AND FILLING IN THE STATUS CODE *)I(* FIELDS WITH THE BASIC FACILITY NUMBER AND FACILITY SPECIFIC BIT. *)N(* *)I(* THIS SCHEME OF BUILDING CONDITION VALUES WORKS FOR ALL MESSAGESk UP *)I(* THROUGH BAS$K_MAX_ERR (CURRENTLY 300). *)N(* *)K(* THIS ALLOWS THE RTL TO MAP BASIC ERROR NUMBERS TO VMS CONDITION CODES *)I(* (AND VMS CONDITION CODES BACK TO BASIC ERROR NUMBERS). *)N(* *)J(* IF A SEVERITY OF A MESSAGE IS CHANGED, THE TABLE IN BASRTL_ERR_MISC *)I(* MUST BE UPDATED. l *)N(* *)I(* THERE IS NO WAY TO RELATE THE SEVERITY OF A BASIC MESSAGE TO THE *)I(* SEVERITY OF THE CORRISPONDING VMS CONDITION AT RUN TIME SINCE WE *)J(* "build" THE VMS CONDITION FROM THE BAS$K_XXXXX BASIC MESSAGE NUMBER. *)N(* *)N(* NOTE #3: m *)I(* THIS FILE LIVES IN THE STARLET FACILITY FOR EVMS BUILDS. THE EVMS *)I(* BUILD FOR DEC$BASRTL NEEDS TO CPYSHRLIB BASMSG BEFORE USING IT. *)B(* *)G(* 1-001 - ORIGINAL. BLS 6-MAY-1983 *)N(* 1-002 - CHANGE FACILITY TO BASIC INSTEAD OF BAS. LEB 2-JUN-1983 *)N(* 1-003 - NOPE, FACILITY SHOULD HAVE BEEN BAS ALL ALONG. MDL 30-JUN-1983 *)\(* 1-004 - CHANGE TEXT OF ERROR 178 AND NAMEn FROM ERRFILCOR TO EXRMSSHR. MDL 29-AUG-1983 *)N(* 1-005 - CHANGE SEVERITY OF PRIUSIFOR. KC 11-JAN-1985. *)N(* 1-006 - ADD ILLNETOPE AND ILLTFFOPE. KC 11-JAN-1985. *)](* 1-007 - ADD FORLINPIC (FROM LINE !SL IN PICTURE !AC) AS A TRACEBACK ERROR FOR PICTURES. *)I(* KC 15-JAN-1985. *)N(* 1-008 - ADD ILLWAIVAL AND DEADLOCK. KC 23-JUL-1985. *)N(* 1-009 - ADD ORIERRWAS AND NOTBASIC. KC 0o1-SEP-1985. *)N(* 1-010 - ADD NEW UNUSED ERRORS SO THERE WILL ROOM TO ADD GRAPHICS ERRORS. *)I(* KC 10-SEP-1985 *)N(* 1-011 - ADD ECHTYPNOT. KC 18-NOV-1985. *)N(* 1-012 - ADD INVTRANUM, ILLPICOPE, ILLCLISTA, TRANOTDIF. KC 26-NOV-1985. *)Q(* 1-013 - CHANGE GKSNOTINS TO A SEVERE MESSAGE (FROM FATAL). KC 05-DEC-1985. *)N(* 1-014 - ADD COLNOTCON. KC 10-DEC-1985. p *)N(* 1-015 - ADD MOST GRAPHICS MESSAGES. KC 19-DEC-1985. *)O(* 1-016 - NUMBER 271 IS NOT USED. CHANGE WORDING OF 260. KC 08-JAN-1986. *)N(* 1-017 - CHANGE "VAX GKS/0b" TO "VAX GKS". KC 09-JAN-1986. *)N(* 1-018 - CHANGE TYPO IN DEVNOTOPE. KC 13-JAN-1986. *)N(* 1-019 - CHANGE TEXT OF KEYBOARD WAIT EXHAUSTED TO "wait exhausted". *)I(* KC 17-FEB-1986. *)N(* 1-020 - ADD REMqSTRNOT, REMAP'ED STRING NOT STATIC. KC 20-FEB-1986. *)N(* 1-021 - PAD ALL THE UNUSED MESSAGES WITH SPACES SO WE CAN PATCH *)I(* THEM EASILY FOR V4.5. KC 28-FEB-1986. *)N(* 1-022 - ADD NEW GRAPHICS ERROR MESSAGES FOR V4.5. KC 16-APR-1986. *)N(* 1-023 - ADD ILLCNTCLA. KC 15-MAY-1986. *)N(* 1-024 - ADD ARRTOOSMA, ARRAY TOO SMALL. KC 20-MAY-1986. *)N(* 1-025 - CHANGE TEXT OF FROLINOEG. ADD ILLCOLrMIX. KC 16-JUN-1986. *)N(* 1-026 - ADD ILLDEVNAM. KC 24-JUN-1986. *)N(* 1-027 - ADD MESSAGES FOR PROGRAMS W/O LINE NUMBERS. DJM 14-AUG-1986. *)N(* 1-028 - CHANGE TEXT FOR PROLOSSOR, ADD LOCPOICAN. DJM 17-SEP-1987. *)3(* V03-001 BRIAN J. MCCARTHY 19-MAY-1993 *)I(* ADD COMMENTS TO BETTER DESCRIBE HOW THE BASIC ERROR NUMBERS *)I(* AND VMS BASIC CONDITION VALUES. *)3(* V03-002 BRIAN J. MCCART sHY 15-JUL-1993 *)I(* - ADD NEW MESSAGE FOR GOSUB IN PROGRAMS WITH LINE NUMBERS. *)I(* - CHANGE ALL VAX TEXT TO DEC *)3(* V03-003 BRIAN J. MCCARTHY 02-SEP-1993 *)I(* - CHANGE TITLE TO CONFORM WITH OTHER RTL'S *)3(* V03-004 BRIAN J. MCCARTHY 16-SEP-1993 *)I(* - UPDATE COMMENTS. *)-(* V03-005 KARL PUDER 24-FEB-2000 *)I(* - CHANGE DEC BASItC TO ALPHA BASIC IN PROLOSSOR *)-(* V03-006 KARL PUDER 17-SEP-2004 *)I(* - CHANGE ALPHA BASIC TO BASIC IN PROLOSSOR *)N(* *)N(*-- *)N(* *)N(* BAS FACILITY IS BEING USED FOR DEC$BASRTL FOR UPWARD COMPATABILITY *)N(* u *) LCONST BAS$_FACILITY = 26; (* *) N(* NOTE THAT IF ANYTHING IS CHANGED BETWEEN THIS .BASE 0 STATEMENT AND *)N(* THE NEXT .BASE STATEMENT, THE MODULES BASRTL_BASMSGNUM.SDL AND *)N(* BASRTL_ERR_MISC.C MUST BE CHECKED TO SEE IF THEY NEED TO UPDATED ALSO. *)N(* *)N(* THE MESSAGES BETWEEN TH vE TWO .BASE DIRECTIVES HAVE BASIC MESSAGE NUMBERS *)Q(* ASSOCIATED WITH THEM AND THAT MUST BE REFLECTED IN THE BASRTL_BASMSGNUM.SDL *)N(* AND BASRTL_ERR_MISC.C MODULES. *)N(* *) CONST BAS$_VAXBAS = 1736707; BAS$_BADDIRDEV = 1736714; BAS$_ILLFILNAM = 1736722; BAS$_ACCDEVUSE = 1736730; BAS$_NO_ROOUSE = 1736738; BAS$_CANFINFIL = 1736746; BAS$_NOTVALDEV = 1736754; BAS$_wIO_CHAALR = 1736762; BAS$_DEVNOTAVA = 1736770; BAS$_IO_CHANOT = 1736778; BAS$_PROVIO = 1736786; BAS$_ENDFILDEV = 1736794; BAS$_FATSYSIO_ = 1736802; BAS$_USEDATERR = 1736810; BAS$_DEVHUNWRI = 1736818; BAS$_KEYWAIEXH = 1736826; BAS$_NAMACCNOW = 1736834; BAS$_TOOMANOPE = 1736842; BAS$_ILLSYSUSA = 1736850; BAS$_DISBLOINT = 1736858; BAS$_PACIDSDON = 1736866; BAS$_DISPACNOT = 1736874; BAS$_DISPACLOC = 1736882; BAS$_ILLCLUSIZ = 1736890; BAS$_DISPACPRI = 1736898; BAS$_DISPxACNEE = 1736906; BAS$_FATDISPAC = 1736914; BAS$_IO_TO_DET = 1736922; BAS$_PROC__TRA = 1736930; BAS$_CORFILSTR = 1736938; BAS$_DEVNOTFIL = 1736946; BAS$_ILLBYTCOU = 1736954; BAS$_NO_BUFSPA = 1736962; BAS$_ODDADDTRA = 1736970; BAS$_RESINSTRA = 1736980; BAS$_MEMMANVIO = 1736988; BAS$_SP_STAOVE = 1736996; BAS$_DISERRDUR = 1737004; BAS$_MEMPARFAI = 1737012; BAS$_MAGSELERR = 1737018; BAS$_MAGRECLEN = 1737026; BAS$_NONRESRUN = 1737034; BAS$_VIRBUFTOO = 1737042; BAS$_VIRARRyDIS = 1737050; BAS$_MATARRTOO = 1737058; BAS$_VIRARROPE = 1737066; BAS$_ILLIO_CHA = 1737074; BAS$_LINTOOLON = 1737082; BAS$_FLOPOIERR = 1737090; BAS$_ARGTOOLAR = 1737098; BAS$_DATFORERR = 1737104; BAS$_INTERR = 1737114; BAS$_ILLNUM = 1737122; BAS$_ILLARGLOG = 1737130; BAS$_IMASQUROO = 1737138; BAS$_SUBOUTRAN = 1737146; BAS$_CANINVMAT = 1737154; BAS$_OUTOF_DAT = 1737162; BAS$_ON_STAOUT = 1737170; BAS$_NOTENODAT = 1737178; BAS$_INTOVEFOR = 1737186; BAS$_DIVBY_ZER = z1737194; BAS$_NO_RUNSYS = 1737202; BAS$_FIEOVEBUF = 1737210; BAS$_NOTRANACC = 1737218; BAS$_ILLMAGUSA = 1737226; BAS$_MISSPEFEA = 1737234; BAS$_ILLSWIUSA = 1737242; BAS$_UNUERR068 = 1737252; BAS$_UNUERR069 = 1737260; BAS$_UNUERR070 = 1737268; BAS$_STANOTFOU = 1737276; BAS$_RETWITGOS = 1737284; BAS$_FNEWITFUN = 1737292; BAS$_UNDFUNCAL = 1737300; BAS$_ILLSYM = 1737308; BAS$_ILLVER = 1737316; BAS$_ILLEXP = 1737324; BAS$_ILLMODMIX = 1737332; BAS$_ILLIF_STA = 1737340;{ BAS$_ILLCONCLA = 1737348; BAS$_ILLFUNNAM = 1737356; BAS$_ILLDUMVAR = 1737364; BAS$_ILLFN_RED = 1737372; BAS$_ILLLINNUM = 1737380; BAS$_MODERR = 1737388; BAS$_CANCOMSTA = 1737394; BAS$_EXPTOOCOM = 1737404; BAS$_ARGDONMAT = 1737412; BAS$_TOOMANARG = 1737420; BAS$_INCFUNUSA = 1737424; BAS$_ILLDEFNES = 1737436; BAS$_FORWITNEX = 1737444; BAS$_NEXWITFOR = 1737452; BAS$_DEFWITFNE = 1737460; BAS$_FNEWITDEF = 1737468; BAS$_LITSTRNEE = 1737476; BAS$_TOOFEWARG = 1737484; B|AS$_SYNERR = 1737492; BAS$_STRIS_NEE = 1737500; BAS$_NUMIS_NEE = 1737508; BAS$_DATTYPERR = 1737516; BAS$_ONEOR_TWO = 1737524; BAS$_PROLOSSOR = 1737532; BAS$_RESNO_ERR = 1737540; BAS$_REDARR = 1737546; BAS$_INCSUBUSE = 1737552; BAS$_ON_STANEE = 1737564; BAS$_ENDOF_STA = 1737572; BAS$_WHA = 1737579; BAS$_BADLINNUM = 1737588; BAS$_NOTENOAVA = 1737596; BAS$_EXEONLFIL = 1737604; BAS$_PLEUSERUN = 1737612; BAS$_CANCON = 1737620; BAS$_FILEXIREN = 1737628; BAS$_PRIUSIFOR }= 1737634; BAS$_MATARRWIT = 1737644; BAS$_BADNUMPRI = 1737652; BAS$_ILLIN_IMM = 1737660; BAS$_PRIUSIBUF = 1737668; BAS$_ILLSTA = 1737676; BAS$_ILLFIEVAR = 1737684; BAS$_STO = 1737691; BAS$_MATDIMERR = 1737700; BAS$_WROMATPAC = 1737708; BAS$_MAXMEMEXC = 1737716; BAS$_SCAFACINT = 1737724; BAS$_TAPRECNOT = 1737730; BAS$_TAPBOTDET = 1737738; BAS$_KEYNOTCHA = 1737746; BAS$_NO_CURREC = 1737754; BAS$_RECHASBEE = 1737762; BAS$_ILLUSADEV = 1737770; BAS$_DUPKEYDET = 1737778;~ BAS$_ILLUSA = 1737786; BAS$_ILLILLACC = 1737794; BAS$_ILLKEYATT = 1737802; BAS$_FILIS_LOC = 1737810; BAS$_INVFILOPT = 1737818; BAS$_INDNOTINI = 1737826; BAS$_ILLOPE = 1737834; BAS$_ILLRECFIL = 1737842; BAS$_BADRECIDE = 1737850; BAS$_INVKEYREF = 1737858; BAS$_KEYSIZTOO = 1737866; BAS$_TAPNOTANS = 1737874; BAS$_RECNUMEXC = 1737882; BAS$_BADRECVAL = 1737890; BAS$_NOTENDFIL = 1737898; BAS$_NO_PRIKEY = 1737906; BAS$_KEYFIEBEY = 1737914; BAS$_ILLRECACC = 1737922; BAS$_RECALREXI = 1737930; BAS$_RECBUCLOC = 1737938; BAS$_RECNOTFOU = 1737946; BAS$_SIZRECINV = 1737954; BAS$_RECFILTOO = 1737962; BAS$_PRIKEYOUT = 1737970; BAS$_KEYLARTHA = 1737978; BAS$_FILATTNOT = 1737986; BAS$_MOVOVEBUF = 1737994; BAS$_CANOPEFIL = 1738002; BAS$_NO_FILNAM = 1738010; BAS$_TERFORFIL = 1738018; BAS$_CANPOSEOF = 1738026; BAS$_NEGFILSTR = 1738034; BAS$_ILLRECFOR = 1738042; BAS$_ILLALLCLA = 1738050; BAS$_UNUERR169 = 1738060; BAS$_INDNOTFUL = 1738066; BAS$_RRVNOTFUL = 1738074; BAS$_RECLOCFAI = 1738082; BAS$_INVRFAFIE = 1738090; BAS$_FILEXPDAT = 1738098; BAS$_NODNAMERR = 1738106; BAS$_NEGZERTAB = 1738112; BAS$_TOOMUCDAT = 1738120; BAS$_EXRMSSHR = 1738130; BAS$_UNEFILDAT = 1738138; BAS$_NOSUPFOR = 1738146; BAS$_DECERR = 1738154; BAS$_NETOPEREJ = 1738162; BAS$_REMOVEBUF = 1738170; BAS$_UNAREMVAR = 1738180; BAS$_RECOVEMAP = 1738188; BAS$_IMPERRHAN = 1738196; BAS$_ILLRECLOC = 1738204; BAS$_REQRECSIZ = 1738210; BAS$_TOOLITDAT = 1738216; BAS$_ILLNETOPE = 1738226; BAS$_ILLTFFOPE = 1738234; BAS$_ILLWAIVAL = 1738242; BAS$_DEADLOCK = 1738250; BAS$_NOTBASIC = 1738258; BAS$_DIMOUTRAN = 1738266; BAS$_REMSTRNOT = 1738276; BAS$_ARRTOOSMA = 1738282; BAS$_UNUERR198 = 1738292; BAS$_UNUERR199 = 1738300; BAS$_UNUERR200 = 1738308; BAS$_UNUERR201 = 1738316; BAS$_UNUERR202 = 1738324; BAS$_UNUERR203 = 1738332; BAS$_UNUERR204 = 1738340; BAS$_UNUERR205 = 1738348; BAS$_UNUERR206 = 1738356; BAS$_UNUERR207 = 1738364; BAS$_UNUERR208 = 1738372; BAS$_UNUERR209 = 1738380; BAS$_UNUERR210 = 1738388; BAS$_UNUERR211 = 1738396; BAS$_UNUERR212 = 1738404; BAS$_UNUERR213 = 1738412; BAS$_UNUERR214 = 1738420; BAS$_UNUERR215 = 1738428; BAS$_UNUERR216 = 1738436; BAS$_UNUERR217 = 1738444; BAS$_UNUERR218 = 1738452; BAS$_UNUERR219 = 1738460; BAS$_UNUERR220 = 1738468; BAS$_UNUERR221 = 1738476; BAS$_UNUERR222 = 1738484; BAS$_UNUERR223 = 1738492; BAS$_UNUERR224 = 1738500; BAS$_UNUERR225 = 1738508; BAS$_GKSNOTINS = 1738514; BAS$_STRTOOLON = 1738522; BAS$_RECATTNOT = 1738530; BAS$_DIFUSELON = 1738540; BAS$_NO_FIEIMA = 1738546; BAS$_ILLSTRIMA = 1738554; BAS$_NULIMA = 1738562; BAS$_ILLNUMIMA = 1738570; BAS$_NUMIMASTR = 1738578; BAS$_STRIMANUM = 1738586; BAS$_TIMLIMEXC = 1738594; BAS$_FIRARGSEQ = 1738602; BAS$_ARRMUSSAM = 1738610; BAS$_ARRMUSSQU = 1738618; BAS$_CANCHAARR = 1738626; BAS$_FLOOVE = 1738634; BAS$_FLOUND = 1738642; BAS$_CHATO_NON = 1738650; BAS$_EXPERR = 1738658; BAS$_ILLEXIDEF = 1738668; BAS$_ERRTRANEE = 1738676; BAS$_ILLRESSUB = 1738684; BAS$_ILLRETSUB = 1738690; BAS$_ARGOUTBOU = 1738698; BAS$_NOTIMP = 1738706; BAS$_RECSUBCAL = 1738714; BAS$_FILACPFAI = 1738722; BAS$_DIRERR = 1738730; BAS$_UNUERR254 = 1738740; BAS$_UNUERR255 = 1738748; BAS$_ECHTYPNOT = 1738754; BAS$_ILLTRANUM = 1738762; BAS$_ILLPICOPE = 1738770; BAS$_CLIPONOFF = 1738778; BAS$_TRANOTDIF = 1738786; BAS$_COLNOTCON = 1738794; BAS$_ILLARESTY = 1738802; BAS$_ILLTEXJUS = 1738810; BAS$_ILLTEXPRE = 1738818; BAS$_ILLTEXPAT = 1738826; BAS$_ILLDEVID = 1738834; BAS$_DEVTYPNOT = 1738842; BAS$_DEVNOTOPE = 1738850; BAS$_DEVOUTMET = 1738858; BAS$_DEVINMET = 1738866; BAS$_UNUERR271 = 1738876; BAS$_DEVOPEINC = 1738882; BAS$_COONOTNDC = 1738890; BAS$_ILLLINSTY = 1738898; BAS$_ILLLINSIZ = 1738906; BAS$_ILLPOISTY = 1738914; BAS$_ILLTEXRAT = 1738922; BAS$_ILLTEXHEI = 1738930; BAS$_ILLSTYIND = 1738938; BAS$_ILLCOLIND = 1738946; BAS$_NUMCOOINS = 1738954; BAS$_UNINUMNOT = 1738962; BAS$_ILLECHARE = 1738970; BAS$_ILLINIVAL = 1738978; BAS$_ENTPOINOT = 1738986; BAS$_UNKGKSERR = 1738994; BAS$_INVCHASTR = 1739002; BAS$_STRLENZER = 1739010; BAS$_DATOVERF = 1739018; BAS$_ILLCNTCLA = 1739026; BAS$_ILLCOLMIX = 1739034; BAS$_ILLDEVNAM = 1739042; BAS$_USEABOINP = 1739050; BAS$_UNUERR294 = 1739060; BAS$_UNUERR295 = 1739068; BAS$_UNUERR296 = 1739076; BAS$_UNUERR297 = 1739084; BAS$_ UNUERR298 = 1739092; BAS$_UNUERR299 = 1739100; BAS$_UNUERR300 = 1739108; N(* *)P(* THIS BASE DIRECTIVE IS CAUSING THE MESSAGES BELOW THIS TO BE PLACED AT THE *)N(* VERY END (THE LIMIT) OF MESSAGES FOR THIS FACILITY. *)Q(* MESSAGES BELOW HERE DO NOT HAVE BASIC MESSAGE NUMBERS ASSOCIATED WITH THEM. *)N(* *)S(* ADDITIONS OF MESSAGES THAT DO NOT HAVE BASIC MESSAGE NUMBERS ASSOCIATED WITH *)O(* THEM CAN BE MADE BY DECREASING THE .BASE DIRECTIVE BY ONE AND ADDING THE *)N(* MESSAGE DIRECTLY AFTER THE .BASE DIRECTIVE. *)N(* *)P(* ALSO NOTE THAT ANY VALUE BELOW THIS .BASE DIRECTIVE GET TRANSLATED INTO AN *)N(* INFORMATIONAL STATUS AT RUN TIME. *)N(* *)R(* THIS METHOD ALLOWS A MESSAGE THAT MUST HAVE AN ASSOCIATED BASIC ERROR NUMBER *)N(* TO BE ADDED WITHOUT CHANGING THE VALUES OF MESSAGES THAT DO NOT REQUIRE *)N(* BASIC ERROR NUMBERS. *)N(* *) CONST BAS$_FROGSBLIN = 1769291; BAS$_FROPIC = 1769299; BAS$_FROMOD = 1769307; BAS$_FROSUB = 1769315; BAS$_FROFUN = 1769323; BAS$_FRODEFMOD = 1769331; BAS$_FRODFSMOD = 1769339; BAS$_FROGSBMOD = 1769347; BAS$_FROOEGMOD = 1769355; N(* *) CONST BAS$_ORIERRWAS = 1769363; BAS$_GKSACTIVATED = 1769372; BAS$_FROLINPIC = 1769379; BAS$_FORFILUSE = 1769387; BAS$_USEPC_PSL = 1769395; BAS$_FROIOL = 1769403; BAS$_ON_CHAFIL = 1769411; BAS$_FROLINMOD = 1769419; BAS$_FROLINSUB = 1769427; BAS$_FROLINFUN = 1769435; BAS$_FROLIN DEF = 1769443; BAS$_FROLINDFS = 1769451; BAS$_FROLINGSB = 1769459; BAS$_FROLINOEG = 1769467; N(* END. *) N(* MODULE CLIMSGDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD  *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER;  *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63;  *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287;  *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..6 7108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CLIMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:56.34 *)N(* *)N(* *)J(* VERSION: 'X-12' *)N(* *)O(* ************************************************************************* *)O(* * * *)O(* * COPYRIGHT 1978 - 2011 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *)O(* * * *)O(* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR * *)O(* * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. * *)O(* *  * *)O(* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *)O(* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *)O(* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *)O(* * COMMERCIAL LICENSE. * *)O(* * * *)O(* * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL * *)O(* * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION * *)O(* * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND * *)O(* * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS * *)O(* * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING * *)O(* * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN * *)O(* * ADDITIONAL WARRANTY.  * *)O(* * * *)O(* ************************************************************************* *)N(* *)N(* MODIFIED BY: *)N(* *)N(* X-12 GAK060811 ASHOKA KOTRESHA 08-JUN-2011 *)N(* ADDED A NEW MESSAGE ILLFILEVER TO SIGNAL ERROR WHEN THE *)N(* LEXICAL FUNCTION F$FILE_ATTRIBUTES IS PASSED A FILE *)N(* NAME WITH VERSION NUMBER SPECIFIED EXPLICITLY. *)N(* *)6(* X-11 SS111808 SHAHINA SHAIK 18-NOV-2008 *)B(* ADDED A NEW MESSAGE DEFOVF16 TO SIGNAL WHEN PARSING LIMIT *)B(* OF PN VALUES TO COMMAND PROCEDURE EX CEEDS A LIMIT OF 16 *)B(* WHEN 4TH BIT OF DCL_CTLFLAGS IS SET. *)N(* *)9(* X-10 NYK578 NITIN Y. KARKHANIS 8-MAR-1996 *)B(* ADD UNSUPITEM WARNING MESSAGE; USED WHEN AN UNSUPPORTED *)B(* ITEM CODE IS SUPPLIED TO THE F$GETXXI LEXICAL FUNCTIONS. *)N(* *)4(* X-9 STEVE T. LEE 06-FEB-1996 *)B(* UPDATE MESSAGES FOR DCL PIPE. *)N(* *)B(* X-8 STL0200 STEVE T. LEE 30-AUG-1995 *)C(* ADD NEW MESSAGES FOR DCL PIPE. *)(* *):(* X-7 DCP DAVID C. PASTERCHIK 25-AUG-1994 *)B(* CLARIFY TEXT OF GBLNDF MESSAGE (V6 QAR 00787). *)N(* *)4(* X-6 RAB RICHARD A. BISHOP 21-OCT-1993 *)B(* REVERSE ORDER OF PREVIOUS CHANGE TO MATCH V1.5 *)B(* REQUIRES CORRESPONDING FIX ON VAX *)&(* *)7(* X-5 DBM0010 DAVID B. MILLER 13-SEP-1993 *)3(* ALIGN REVISION NUMBER WITH CMS. *).(* CORAL PARITY - ADD INVNOD. *)(* *)7(* X01-003 TH THOMAS J. HOEY 22-JUL-1993 *)*(* COMPLETE BLADE MERGE. *)6(* X-15 RNM0119 RUSS MURRAY 10-OCT-1990 *)9(* MAKE IVPROT MESSAGE TEXT MORE GENERIC. *)(* *)=(* X01-002 DBM0001 DAVID B. MILLER 23-NOV-1992 *)"(* ADD CMDSEG2. *)(* *)9(* V01-001 DAG DARYL A. GLEASON 1-APR-1992 *)F(* EVMS QAR 1872: CHANGE IVPROT TO BE IN SYNCH WITH VAX. *)(* *)6(* X-3 RAB RICHARD A. BISHOP 29-JAN-1992 *)@(* MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS. *)G(* SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION *)H(* OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT *)D(* FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. *)(* *)O(* =============================================================== *)N(* *):(* X-7 CRB0239 COLIN R. BLAKE 18-DEC-1991 11:38:24.76 *)B(* THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. *)N(* *)9(* X-6A1 FAK001 FORREST A. KENNEY 23-SEP-1991 *)C(* MERGE C2 CHANGES INTO BLADE. MAKE MODULE IDENT AND REVISION *)B(* HISTORY AGREE WITH CMS AFTER THE MASTER PACK CLEANUP. *)N(* *)I(* T-2 LBB LEE BARTON 22-MAY-1991 *)H(* PICK UP PHOENIX CHANGE: *)N(* *):(* X-18 TNF0094 TODD FLOLO 23 FEB 1991 *)B(* ADD MESSAGE FOR SET PREFIX. *)N(* *);(* X-14 RNM0109 RUSS MURRAY 25-MAY-1990 *)D(* ADD MSNGENDS TO FLAG MISSING ENDSUBROUTINES ON A FORWARD SCAN *)B(* FOR A CALL TARGET. *)N(* *)F(* INCLUDE THE TARGET LABEL NAME IN THE USCALL MESSAGE, AND CHANGE *)B(* THE TEXT OF THE MESSAGE TO INDICATE THE LABEL COULD BE *)B(* INACCESSIBLE. *)N(* *);(* X-13 RNM0102 RUSS MURRAY 28-FEB-1989 * )B(* ADD NOREADCP ERROR MESSAGE TO FLAG FILES *)B(* NOT OPENED FOR READ ACCESS. *)N(* *);(* X-12 RNM0090 RUSS MURRAY 11-OCT-1989 *)B(* ADD THE CURRENT DISK FILE NAME (IF ONE EXISTS) TO *)B(* THE MISSPELL INFORMATIONAL MESSAGE. *)N(* *);(* X-11 RNM0086 RUSS MURRAY 20-SEP-1989 *)B(* SUPPORT FOR COMMAND VERB/QUALIFIER SPELLING *)B(* CHECKS: ADD MISSPELL INFORMATIONAL MESSAGE FOR *)B(* COMMAND VERB/QUALIFIER MISSPELLINGS. *)N(* *):(* X-10 TNF0056 TODD FLOLO 6-FEB-1989 *)B(* ADD MESSAGE FOR DISABLED RUN & MCR COMMAND *)N(*  *)9(* X-9 TNF0053 TODD FLOLO 2-DEC-1988 *)B(* ADD MESSAGES FOR CAPTIVE & DISIMAGE ACCOUNTS *)N(* *)9(* X-8 TNF0047 TODD FLOLO 06-OCT-1988 *)B(* ADD NEW MESSAGES FOR CONTEXT SYMBOL PROCESSING. *)N(* *)=(* X-7 HWS0263 HAROLD SCHULTZ 08-DEC-1986 *)B(* ADD INVIFNEST ERROR MESSAGE FOR IF-THEN-ELSE *)B(* CONSTRUCTS. *)N(* *)=(* X-6 HWS0188 HAROLD SCHULTZ 03-OCT-1985 *)B(* ADD USCALL AND USGOSUB ERROR MESSAGES. *)N(* *)=(* X-5 HWS0178 HAROLD SCHULTZ 09-SEP-1985 *)B(* CHANGE THE INVCALL AND STKOVF ERROR MESSAGES. *)B(* ADD INVGOSUB AND GOSUBMAX. *)N(* *)=(* X-4 HWS0168 HAROLD SCHULTZ 04-SEP-1985 *)B(* ADD INVDEF AND INVCALL *)N(* *)=(* X-3 HWS0161 HAROLD SCHULTZ 19-AUG-1985 *)B(* ADD PERMSYM AND GBLNDF *)N(* *)A(* V04-002 HWS0130 HAROLD SCHULLZ 29-MAY-1985 *)B(* ADD INVOUTSPE *)N(* *)A(* V04-001 HWS0117 HAROLD SCHULTZ 09-MAR-1985 *)B(* ADD ATTRMBX *)N(* *)N(*--- *)N(* *)N(* DEFINE CLI RELATED STATUS VALUES *)N(* *) CONST CLI$_FACILITY = 3; CLI$_ABVERB = 229384; CLI$_ABKEYW = 229392; CLI$_BUFOVF = 229400; CLI$_COMPLX = 229408; CLI$_DEFOVF = 229416; CLI$_DIRECT = 229424; CLI$_EXPSYN = 229432;G CLI$_IMCHNG = 229440; (* NOT USED BY DCL NOR BY MCR *) CLI$_INSFPRM = 229448; CLI$_IVCHAR = 229456;G CLI$_DEFOVF16 = 229464; (* SS111808 *) CLI$_IVKEYW = 229472; CLI$_IVOPER = 229480; CLI$_IVPROT = 229488; CLI$_IVQLOC = 229496; CLI$_IVSYMB = 229504; CLI$_IVVALU = 229512; CLI$_IVVERB = 229520; CLI$_MAXPARM = 229528;G CLI$_NOATFIL = 229536; (* NOT USED BY DCL NOR BY MCR *) CLI$_NOCCAT = 229544; CLI$_NOCOMD = 229552; CLI$_NOKEYW = 229560; CLI$_NOLIST = 229568; CLI$_NOQUAL = 229576; CLI$_NOVALU = 229584; CLI$_NOTNEG = 229592; CLI$_NULFIL = 229600; CLI$_NUMBER = 229608; CLI$_ONCOMD = 229616; CLI$_ONERR = 229624; CLI$_ONLEVL = 229632; CLI$_ONOVF = 229640; CLI$_PARMDEL = 229648; CLI$_RSLOVF = 229656; CLI$_SKPDAT = 229664; CLI$_STKOVF = 229672; CLI$_SYMDEL = 229680; CLI$_SYMOVF = 229688; CLI$_UNDSYM = 2 29696; CLI$_USGOTO = 229704; CLI$_VALREQ = 229712; CLI$_ONEVAL = 229720; CLI$_OVRFLW = 229728;G CLI$_UNPROQUAL = 229736; (* OLD CLI INTERFACE STATUS *)G CLI$_UNPROPARM = 229744; (* OLD CLI INTERFACE STATUS *)G CLI$_INVKEY = 229752; (* OLD MCR STATUS GOING AWAY SOON *)G CLI$_INVRSP = 229760; (* NOT USED BY DCL NOR BY MCR *) CLI$_UNDFIL = 229768;G CLI$_FILOPN = 229776; (* NOT USED BY DCL NOR BY MCR *)G CLI$_BA DRET = 229784; (* NOT USED BY DCL NOR BY MCR *) CLI$_ABSYMD = 229792; CLI$_INVUIC = 229800;G CLI$_BADTEXT = 229808; (* NOT USED BY DCL NOR BY MCR *) CLI$_ABFNAM = 229816; CLI$_IVFNAM = 229824;G CLI$_BLKOVRFLOW = 229832; (* NOT USED BY DCL NOR BY MCR *)G CLI$_BLKUNDFLOW = 229840; (* NOT USED BY DCL NOR BY MCR *)G CLI$_BADBLK = 229848; (* NOT USED BY DCL NOR BY MCR *) CLI$_NOLBLS = 229856;G CLI$_NOCHANGE = 229864; (* MCR-ONLY STATUS *)G CLI$_ABSENT = 229872; (* NEW CLI INTERFACE STATUS *)G CLI$_NEGATED = 229880; (* NEW CLI INTERFACE STATUS *) CLI$_INVFILSPE = 229888;G CLI$_INVLOGFIL = 229896; (* NOT USED BY DCL NOR BY MCR *) CLI$_NOTHEN = 229904; CLI$_SYMTOOLNG = 229912;G CLI$_ASTDCL = 229920; (* GOES AWAY IN V4 *) CLI$_INVRANGE = 229928;G CLI$_LOCNEG = 229936; (* NEW CLI INTERFACE STATUS *) CLI$_CMDNOTFND = 229944; CLI$_IVQUAL = 229952; CLI$_CMDSEG = 229960; CLI$_NOTIFY = 229968; CLI$_CONFLICT = 229976; CLI$_UNDKEY = 229984; CLI$_ARGREQ = 229992; CLI$_SYMLNG = 230000; CLI$_SYMABR = 230008; CLI$_IVKEYNAM = 230016; CLI$_NOPAREN = 230024; CLI$_IVATIME = 230032; CLI$_IVDTIME = 230040; CLI$_TKNOVF = 230048;G CLI$_CMDFILERR = 230056; (* MCR-ONLY STATUS *) CLI$_INVOUTSPE = 230064; CLI$_PERMSYM = 230072; CLI$_GBLNDF = 230080; CLI$_INVGOSUB = 230088; CLI$_GOSUBMAX = 230096; CLI$_USCALL = 230104; CLI$_USGOSUB = 230112; CLI$_FRZNCTX = 230120; CLI$_NOTCTX = 230128; CLI$_INVCTXTYP = 230136; CLI$_CMDSEG2 = 230144; CLI$_INVNOD = 230152; CLI$_NULLPIPE = 230160; CLI$_INVNULLCMD = 230168; CLI$_WRGSUBSHSYN = 230176; CLI$_UNTERMSUBSH = 230184; CLI$_DUPREDSYN = 230192; CLI$_INCREDSYN = 230200; CLI$_INVREDSYN = 230208; CLI$_INVCONCHAR = 230216; CLI$_CMDNOTALLINPIP = 230224; C LI$_LBLNOTALLINPIP = 230232; CLI$_TOOMANYPIPCMD = 230240;G CLI$_UNSUPITEM = 230248; (* *) N(* DEFINE CLI RELATED "ERROR" LEVEL ERROR CODES *)I(* BEGIN ERROR CODE 2048 FROM WARNING TO *)I(* LEAVE ROOM FOR 256 WARNINGS. *)N(* *) LCONST CLI$_CONFQUAL = 231426; (* OLD CLI INTERFACE STATUS *)G CLI$_INVQUAL = 231434; (* OLD CLI INTERFACE STATUS *)G CLI$_REQPRMABS = 231442; (* OLD CLI INTERFACE STATUS *)G CLI$_INVQUALNUM = 231450; (* OLD CLI INTERFACE STATUS *)G CLI$_INVREQTYP = 231458; (* USED BY CALL BACKS *)G CLI$_NOVALUE = 231466; (* OLD CLI INTERFACE STATUS *)G CLI$_VALCNVERR = 231474; (* OLD CLI INTERFACE STATUS *)G CLI$_ILLVAL = 231482; (* USED BY CALL BACKS *)G CLI$_NOOPTPRS = 231490; (* OLD CLI INTERFACE STATUS *)G CLI$_CREQUEJOB = 231498; (* NOT USED BY DCL NOR BY MCR *)G CLI$_SUBMITERR = 231506; (* NOT USED BY DCL NOR BY MCR *)G CLI$_DEVALSPL = 231514; (* NOT USED BY DCL NOR BY MCR *)G CLI$_DEVNOTSPL = 231522; (* NOT USED BY DCL NOR BY MCR *)G CLI$_IVDEVTYPE = 231530; (* MCR-ONLY STATUS *)G CLI$_IMGFNF = 231538; (* MCR-ONLY STATUS *)G CLI$_DEVNOTFOR = 231546; (* NOT USED BY DCL NOR BY MCR *)G CLI$_PWDNOTVAL = 231554; (* SET PASSWORD STATUS *)G CLI$_PWDNOTVER = 231562; (* SET PASSWORD STATUS *)G CLI$_PWDLOCKED = 231570; (* SET PASSWORD STATUS *)G CLI$_NOTFR = 231578; (* IMAGE ACTIVATION ERROR - PART 2 *)G CLI$_PWDSYNTAX = 231586; (* SET PASSWORD STATUS *)G CLI$_IMGN AME = 231594; (* IMAGE ACTIVATION ERROR - PART 2 *)G CLI$_IMAGEFNF = 231602; (* IMAGE ACTIVATION ERROR - PART 2 *)G CLI$_BADSTRLVL = 231610; (* NOT USED BY DCL NOR BY MCR *) CLI$_REFUSED = 231618;G CLI$_BADCTLMSK = 231626; (* USED BY CALL BACKS *) CLI$_INVRFM = 231634;G CLI$_NOCLINT = 231642; (* MCR-ONLY STATUS *)G CLI$_NOSPAWN = 231650; (* MCR-ONLY STATUS *) CLI$_SPWNIO = 231658; CLI$_TRMMBX = 231666; CLI$_STRTOOLNG = 231674;G CLI$_CMDGONE = 231682; (* MCR-ONLY STATUS *) CLI$_NOCMDPROC = 231690; CLI$_INVROUT = 231698; CLI$_OLDTAB = 231706; CLI$_INVTAB = 231714; CLI$_NOTDISCON = 231722; CLI$_ENTNF = 231730; CLI$_ATTRMBX = 231738; CLI$_INVCALL = 231746; CLI$_INVIFNEST = 231754; CLI$_CAPTINT = 231762; CLI$_CAPTINQ = 231770; CLI$_NOFORCMD = 231778; CLI$_NORUNMCR = 231786; CLI$_NOREADCP = 231794; CLI$_INVPREFIX = 231802; CLI$_CAPTSPAWN = 231810; CLI$_ILLFILEVER = 231818; N(* *)N(* DEFINE INFORMATIONAL MESSAGES. *)N(* *) CONST CLI$_DEFKEY = 253379; CLI$_DELKEY = 253387; CLI$_SETKEY = 253395;G CLI$_SPARE1 = 253403; (* NOT CURRENTLY USED *) CLI$_ALLOC = 253411; CLI$_SUPERSEDE = 253419;G CLI$_INSPRIV = 253427; (* MCR-ONLY STATUS *)G CLI$_NODIRCHG = 253435; (* MCR-ONLY STATUS *) CLI$_IGNQUAL = 253443; CLI$_TABEXIST = 253451; CLI$_TABSUPER = 253459; CLI$_TABNOTFND = 253467; CLI$_DELSYM = 253475; CLI$_SYMTRUNC = 253483; CLI$_KEYCNV = 253491; CLI$_INVDEF = 253499; CLI$_MISSPELL = 253507; CLI$_MSNGENDS = 253515; N(* *)N(* DEFINE SUCCESSFUL MESSAGES *)N(* *) CONST CLI$_SPAWNED = 261377; CLI$_ATTACHED = 261385; CLI$_RETURNED = 261393;G CLI$_PRESENT = 261401; (* NEW CLI INTERFACE STATUS *)G CLI$_DEFAULTED = 261409; (* NEW CLI INTERFACE STATUS *)G CLI$_CONCAT = 261417; (* NEW CLI INTERFACE STATUS *)G CLI$_LOCPRES = 261425; (* NEW CLI INTERFACE STATUS *)G CLI$_COMMA = 261433; (* NEW CLI INTERFACE STATUS *)G CLI$_OKTAB = 261441; (* CDU CONVERSION ROUTINE STATUS *)G CLI$_UPGTAB = 261449; (* CDU CONVERSION ROUTINE STATUS *)G CLI$_PROC_ID = 262129; (* NOT USED BY DCL NOR BY MCR *)G CLI$_QUEJOBCRE = 262137; (* NOT USED BY DCL NOR BY MCR *) CLI$_NORMAL = 196609; N(* END. *) N(* MODULE COBMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD  *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255;  *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $COBDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.38 *)N(* *)N(* FILE: COBMSG.MSG EDIT: HR 04-NOV-2000 *)N(* *)N(* *)N(* *)N(* COPYRIGHT 2000 COMPAQ COMPUTER CORPORATION *)N(*  *)N(* COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. *)N(* *)N(* CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ REQUIRED *)N(* FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR 12.211 AND 12.212, *)N(* COMMERCIAL COMPUTER SOFTWARE, COMPUTER SOFTWARE DOCUMENTATION, AND *)O(* TECHNICAL DATA FOR COMMERCIAL ITEMS ARE LICENSED TO THE U.S. GOVERNMENT *)N(* UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. *)N(* *)N(* *)N(* *)N(* *)N(* EDIT HISTORY:  *):(* X-12 HR HOWARD RUTIEZER 04-NOV-2000 *)N(* ADD RESDETCON, OVFDETCON, UNDDETCON. *)S(* FROM EDIT HISTORY OF COB_MSG.SRC, ABOUT NOV-1999 - SZYMANSKI. *)N(* BRANDING CHANGES. *)N(* *)7(* X-11 LNG LOUIS GROSS 21-JAN-1998 *)B(* ADDED MESSAGES FOR DIGITAL COBOL *)N(* *)0(* X-10 LNG LOUIS GROSS 29-JUN-1995 *)N(* *)B(* ADDED MESSAGES FOR DEC COBOL. *)4(* X-9 CKJ CATHY KIMMEL JOLY 14-SEP-1994 *)N(* *)B(* ADDED MESSAGE FOR DEC COBOL. *)N(*  *)4(* X-8 CKJ CATHY KIMMEL JOLY 11-JUL-1994 *)N(* *)B(* ADDED MESSAGES FOR DEC COBOL. *)N(* *)4(* X-7 CKJ CATHY KIMMEL JOLY 03-MAR-1994 *)N(* *)B(* ADDED MESSAGE FOR DEC COBOL. *)N(* *)4(* X-6 CKJ CATHY KIMMEL JOLY 28-JAN-1994 *)N(* *)B(* CHANGED MESSAGE TEXT FOR DEC COBOL. *)N(* *)4(* X-5 CKJ CATHY KIMMEL JOLY 15-DEC-1993 *)N(*  *)B(* ADD MORE ISAM MESSAGES FOR DEC COBOL. *)N(* *)4(* X-4 CKJ CATHY KIMMEL JOLY 10-NOV-1993 *)N(* *)B(* ADD NOISAM MESSAGE FOR DEC COBOL. *)N(* *)N(*  *),(* X-3 KC KEN COWAN 1-APR-1993 *)N(* *)B(* MERGE DEC$COBMSG.MSG INTO COBMSG.MSG. TRANSLATED VAX *)B(* COBOL PROGRAMS AND NATIVE DEC COBOL PROGRAMS NOW *)B(* SHARE THE SAME MESSAGE SOURCE FILE, THOUGH THEY USE *)B(* SOME DIFFERENT MESSAGE CODES. *)N(*  *)N(* *)4(* X-2 RAB RICHARD A. BISHOP 19-MAY-1992 *)B(* MERGE ANOTHER CHANGE (RANDOMBOUNDS) FROM BLADE. *)N(* *)I(* OLD AUDIT TRAIL.... *)N(* *)4(* X-3 RAB RICHARD A. BISHOP 29-JAN-1992  *)B(* MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS. *)B(* SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION *)B(* OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT *)B(* FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. *)N(* *)I(* =============================================================== *)N(*  *)P(* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM COBMSG.MDL *)I(* VERSION 1-019. SBL 22-APR-1981 *)N(* 2-002 - USE COB$ FACILITY FOR COB$_NORMAL. SBL 27-APR-1981 *)O(* 2-003 - COPIED CHANGES MADE TO COBMSG.MDL TO THIS MSG FILE. THE MESSAGES *)I(* ADDED INCLUDE COB$_LSTHNDUSE, COB$_LSTHNDLDB, AND COB$_EXPDBOVER. *)I(* LB 7-MAY-81. *)G(* 2-004 - ADDED COB$_KEYNOTMAT. PDG 24-JUL-81. *)G(* 2-005 - ADDED .TITLE PDG 26-JUL-81. *)G(* 2-006 - ADDED COB$_UNLUNOFIL AND COB$_RECNOTLOC. PDG 7-AUG-81. *)N(* 2-007 - UPDATED COPYRIGHT DATE AND FIXED SPELLING ERROR. LB 9-AUG-81. *)N(* 2-008 - ADDED COB$_UNLNO_CUR. LB 29-OCT-81. *)N(* 2-009 - CHANGED COB$_GOTNO_ALT TO BE COB$_GOTO_ALT. THIS HAD BEEN IN *)I(* ERROR IN THIS FILE AS WELL AS IN COBERROR. LB 1-APR-82.  *)N(* 2-010 - CHANGE TITLE TO COB$MSGDEF. SBL 28-AUG-1982 *)N(* 2-011 - ADDED COB$_ERRDURPOS FOR COB$POS_ERASE AND COB$_REAMP_D_R *)3(* FOR COB$IOEXCEPTION. LGB 6-SEP-83 *)@(* ADDED COB$_INVDEFVAL FOR COB$ACCEPT LGB 3-OCT-83 *)N(* 2-012 - ADDED NUMEROUS CODES FOR COBOL V4.0 SUPPORT FOR COB$IOEXCEPTION. *)I(* DJM 17-NOV-86 *)P(* 2-013 - CHANGED MESSAGE AND SEVERITY FOR COB$_INTDIVZER AND COB$_UNDEF_EXP *)I(* AS THE PROGRAM IS ALLOWED TO CONTINUE WITH THE NEW STANDARD. *)I(* ALSO - ADD MESSAGE COB$_DIVBYZER. DJM 27-APR-1987 *)N(* 2-014 - REMOVE REFERENCE TO ISAM. DJM 30-DEC-1987 *)N(* 2-015 - ADD MULFILERR FOR COB$MFT. DJM 28-MAR-1988. *)N(* 2-016 - ADD COB$NOTIMP. MDL 23-OCT-1989 *)N(* 2-017 - ADD CODES FOR COBOL V5 INTRINSIC FUNCTIONS. KC 14-NOV-1991. *)N(* 2-018 - ADD RANDOM BOUNDS. KC 24-JAN-1992. *)N(* *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* COB$_ABCMNOXYZ *)N(*  *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)N(* *)N(* MACRO-32 PROGRAMMING:  *)N(* *)N(* THE MACRO CALL: *)N(* *)I(* $COBDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *)N(* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(*- *)N(* *)N(* *)=(* ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES!!! *) CONST COB$_FACILITY = 25; COB$_NORMAL = 1671169; N(* COBOL V4 SUPPORT, NEXT 2 MESSAGES *) CONST COB$_READUPKEY = 1671177; COB$_RECNOTSIZ = 1671185; COB$_GOTO_ALT = 1671236; COB$_RECACTPER = 1671244; COB$_NESERRPER = 1671252; COB$_TIMOVELON = 1671260; COB$_OCCDEPOVE = 1671268; COB$_SUBOVELON = 1671276; COB$_ERRDURSOR = 1671284; COB$_UNEINSCON = 1671292; COB$_CALFAI = 1671300; COB$_INVLINVAL = 1671308; 4(* ***** NO_USEPRO MUST BE THE FIRST ERROR *)4(* ***** MESSAGE ASSOCIATED WITH *)4(* ***** COB$IOEXCEPTION. IT IS USED AS *)4(* ***** THE BASE OF AN ENCODING ALGORITHM. *)N(* *) CONST COB$_NO_USEPRO = 1671316; COB$_ERRON_FIL = 1671324; COB$_OPTMISOPE = 1671332; COB$_FILALRLOC = 1671340; COB$_FILALROPE = 1671348; COB$_FILCLOLOC = 1671356; COB$_NO_SPACE = 1671364; COB$_FILNOTFOU = 1671372; COB$_OPTMISCLO = 1671380; COB$_FILALRCLO = 1671388; COB$_NO_NEXLOG = 1671396; COB$_OPTMISREA = 1671404; COB$_NO_NEXVAL = 1671412; COB$_RECLOCREA = 1671420; COB$_RECLOC_OK = 1671428; COB$_REAUNOFIL = 1671436; COB$_REAINCOPE = 1671444; COB$_WRIBEYBOU = 1671452; COB$_WRIUNOFIL = 1671460; COB$_WRIINCOPE = 1671468; COB$_REWNO_R_S = 1671476; COB$_REWUNOFIL = 1671484; COB$_REWINCOPE = 1671492; COB$_RECNOTEXI = 1671500; COB$_OPTMISSTA = 1671508; COB$_RECLOCSTA = 1671516; COB$_STAUNOFIL = 1671524; COB$_STAINCOPE = 1671532; COB$_RECLOCWRI = 1671540; COB$_RECLOCDEL = 1671548; COB$_DELNO_R_S = 1671556; COB$_DELUNOFIL = 1671564; COB$_DELINCOPE = 1671572; COB$_RECLOCREW = 1671580; COB$_WRIDUPKEY = 1671588; COB$_WRICREDUP = 1671596; COB$_WRINOTASC = 1671604; COB$_WRIDUPALT = 1671612; COB$_REWCREDUP = 1671620; COB$_PRIKEYCHA = 1671628; COB$_REWDISDUP = 1671636; COB$_WRIDISDUP = 1671644; COB$_REASMAMIN = 1671652; COB$_EOFON_ACC = 1671660; COB$_ERRDURACC = 1671668; COB$_DISMORMAX = 1671676; COB$_INTEXPOVE = 1671684; COB$_INTEXPUND = 1671692; COB$_INTRESOPE = 1671700;G COB$_NO_MES_00 = 1671708; (* PLACE HOLDER. WAS INTDIVZER *) COB$_INVDECDIG = 1671716;G COB$_NO_MES_01 = 1671724; (* PLACE HOLDER. WAS UNDEF_EXP *) COB$_WRISMAMIN = 1671732; COB$_REWSMAMIN = 1671740; COB$_NAMNOTLIN = 1671748; COB$_INVCHANAM = 1671756; COB$_ORGNOTMAT = 1671764; COB$_CANFAIL = 1671772; COB$_INVARG = 1671780; COB$_FAIGET_VM = 1671788; COB$_FAIFREEVM = 1671796; COB$_ERRDURDIS = 1671804; COB$_USE_EXIT = 1671812; COB$_RECACTUSE = 1671820; COB$_FATINTERR = 1671828; COB$_FAIGET_EF = 1671836; COB$_SETEXTFAI = 1671844; COB$_INVDECDAT = 1671852; COB$_LSTHNDUSE = 1671860; COB$_LSTHNDLDB = 1671868; COB$_EXPDBOVER = 1671876; COB$_KEYNOTMAT = 1671884; COB$_UNLUNOFIL = 1671892; COB$_RECNOTLOC = 1671900; COB$_UNLNO_CUR = 1671908; COB$_REAMP_D_R = 1671916; COB$_ERRDURPOS = 1671924; COB$_INVDEFVAL = 1671932; N(* COBOL V4 SUPPORT, NEXT 10 MESSAGES *) CONST COB$_REARECTOB = 1671940; COB$_WRIRECTOB = 1671948; COB$_DEVNOTAPL = 1671956; COB$_INVRECSIZ = 1671964; COB$_RECSIZEXC = 1671972; COB$_INVRECTYP = 1671980; COB$_INVBLKFAC = 1671988; COB$_CONCODSET = 1671996; COB$_COLSEQKEY = 1672004; COB$_CONPADCHR = 1672012; N(*EDIT 2-013 *) CONST COB$_MULFILERR = 1672020; N(*EDIT 2-016  *) CONST COB$_NOTIMP = 1672028; N(*EDIT 2-017, COBOL V5.0 SUPPORT *) #CONST COB$_INTDATEBOUNDS = 1672036; COB$_INTDAYBOUNDS = 1672044; COB$_DAYINTBOUNDS = 1672052; COB$_DATEINTBOUNDS = 1672060; COB$_FACTBOUNDS = 1672068; COB$_NUMVALARGINV = 1672076; COB$_LOWERLENZERO = 1672084; COB$_UPPERLENZERO = 1672092; COB$_REVERSELENZERO = 1672100; COB$_ANNUITYBOUNDS = 1672108; COB$_CHAR BOUNDS = 1672116; COB$_MODBOUNDS = 1672124; COB$_PRESVALBOUNDS = 1672132; COB$_REMBOUNDS = 1672140; COB$_RANDOMBOUNDS = 1672148; COB$_INTDIVZER = 1679170; COB$_DIVBY_ZER = 1679178; COB$_UNDEF_EXP = 1679186; N(* *)N(* *)N(* THIS FILE IS AUTOMATICALLY GENERATED. DO NOT EDIT IT BY HAND. *)N(* INSTEAD CHANGE COB_MSG.SRC AND RERUN THE MESSAGE CONVERT UTILITY *)N(* *)N(* NOTE: THIS FILE GETS CHECKED INTO [STARLET] FACILITY *)I(* IT DOES NOT GO INTO [DEC$COBRTL]. *)N(* *)N(* *)N(*  *)N(* VAX COBOL USES 0-499, 1000 ONWARD *) CONST COB$_INFO = 1675171; COB$_VERSION = 1675179; COB$_BUG_CHECK = 1675188; COB$_INVDATE = 1675196; COB$_NOTCOBSPE = 1675204; COB$_INVARGCOB = 1675212; COB$_SUCCESS = 1675217; COB$_DUPLICATE_OK = 1675227; COB$_RECORD_SHORT = 1675235; COB$_RECORD_LONG = 1675244; COB$_CREATED = 1675251; COB$_NOT_REEL = 1675259; COB$_EOF_DETECTED = 1675268; COB$_EOF_OPTIONAL = 1675276; COB$_ALREADY_AT_EOF = 1675284; COB$_READ_TOO_LARGE = 1675292; COB$_KEY_CHANGED = 1675300; COB$_DUPLICATE_KEY = 1675308;! COB$_RECORD_NOT_FOUND = 1675316; COB$_KEY_TOO_LARGE = 1675324; COB$_PERMANENT_ERROR = 1675332; COB$_BOUNDARY = 1675340; COB$_FILE_NOT_FOUND = 1675348;$ COB$_IO_NOT_MASS_STORAGE = 1675356;! COB$_NOT_MASS_STORAGE = 1675364; COB$_CLOSE_LOCKED = 1675372; COB$_FILE_ATTRIB = 1675380; COB$_ALREADY_OPEN = 1675388; COB$_NOT_OPEN = 1675396; COB$_NO_CURRENT = 1675404; COB$_REWRITE_SIZE = 1675412; COB$_WRITE_SIZE = 1675420; COB$_NO_NEXT_RECORD = 1675428; COB$_NOT_INPUT = 1675436; COB$_NOT_OUTPUT = 1675444; COB$_NOT_IO = 1675452; COB$_LOCKED_OK = 1675460; COB$_FILE_LOCKED = 1675468; COB$_LOCKED_FAILED = 1675476;! COB$_DEVICE_FULL_OPEN = 1675484; COB$_CLOSE_ERROR = 1675492; N(* NOTIMP SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_FAILURE = 1675500; COB$_END_OF_VOLUME = 1675508;" COB$_NOT_END_OF_VOLUME = 1675516; COB$_NO_LOCKING = 1675524; COB$_INVALID_KEY = 1675532; COB$_END_OF_PAGE = 1675540;! COB$_CONVERSION_ERROR = 1675548; COB$_SCR_NORMAL = 1675553; COB$_SCR_BUG_CHECK = 1675564; COB$_SCR_ERROR = 1675570; COB$_SCR_EOF = 1675579; COB$_SCR_CVTERR = 1675586; COB$_SCR_CVT_OFW = 1675594; COB$_SCR_NOTTY = 1675602; COB$_SCR_INVKEY = 1675610; COB$_SCR_INVDAT = 1675618; COB$_SCR_FULL = 1675626; COB$_SCR_NOT_FULL = 1675634; COB$_SCR_REQUIRED = 1675642; COB$_SCR_INVLINE = 1675650; COB$_SCR_INVCOL = 1675658; COB$_SCR_HEIGHT = 1675667; COB$_SCR_WIDTH = 1675675; COB$_SCR_NOCOLOR = 1675683; N(* DIVBY_ZER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* UNDEF_EXP SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* INVDECDAT SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* GOTO_ALT SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* RECACTPER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* NESERRPER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* TIMOVELON SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* RECACTUSE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* SUBOVELON SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* INTDATEBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* INTDAYBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* DAYINTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* DATEINTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* FACTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* NUMVALARGINV SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* LOWERLENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* UPPERLENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* REVERSELENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* ANNUITYBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* CHARBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* MODBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* PRESVALBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* REMBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_INSVIRMEM = 1675692; COB$_STRING_OVERFLOW = 1675700; COB$_INVALID_FNAME = 1675708; COB$_SWITCH_FAIL = 1675716; COB$_INVALID_SWITCH = 1675724; COB$_NOT_LOCKED = 1675732; COB$_NOT_LOCKED_REL = 1675740; COB$_SIZE_CHANGED = 1675748; COB$_CALL_FAILED = 1675756; COB$_CANCEL_FAILED = 1675764; COB$_INVALID_RECORD = 1675772; COB$_USE_EXECUTED = 1675780;! COB$_FILE_NOT_PRESENT = 1675788; COB$_UNLOCK_FAILED = 1675796; COB$_RECORD_KEY_ZERO = 1675804; COB$_DISPLAY_ERROR = 1675812; COB$_ACCEPT_ERROR = 1675820; COB$_OPEN_ERROR = 1675828; COB$_READ_ERROR = 1675836; COB$_WRITE_ERROR = 1675844; COB$_REWRITE_ERROR = 1675852; COB$_DELETE_ERROR = 1675860; COB$_START_ERROR = 1675868; COB$_UNLOCK_ERROR = 1675876; COB$_SORT_ERROR = 1675884; COB$_KEY_MATCH_ERROR = 1675892; COB$_KEY_COUNT_ERROR = 1675900; COB$_INVALID_FOOTING = 1675908; COB$_PAGE_SIZE = 1675916;! COB$_ACCEPT_CVT_ERROR = 1675924; COB$_OPEN_MFT = 1675932; COB$_DEVICE_FULL = 1675940; COB$_RECORD_EXCEEDED = 1675948; COB$_DEVICE_FULL_KEY = 1675956; COB$_SUBSCRIPT = 1675964; COB$_MFT_POSITION = 1675972; COB$_NOISAM = 1675980;! COB$_ISAM_KEY_OVERLAP = 1675988; COB$_ISAM_BADFILE = 1675996; N(* RANDOMBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_ORDLENONE = 1676004; COB$_INVTERM = 1676012; COB$_INVTERMDB = 1676020; COB$_INVARGMTH = 1676028; COB$_ISAM_BADKEY = 1676036; COB$_NOEXTFH = 1676044;% COB$_ENCINA_UNKNOWN_ERROR = 1676052; COB$_FCNTLERR = 1676060; COB$_LOCKERR = 1676068; COB$_NOMOREL = 1676076; COB$_ISAM_INVKEY = 1676084; COB$_INVALID_TAPE = 1676092; COB$_TAPE_ERROR = 1676100; COB$_TAPE_SUPPORT = 1676108; COB$_CORRECT_TAPE = 1676115; COB$_NEXT_TAPE = 1676123; COB$_TAPE_PROMPT = 1676131; COB$_TAPE_SEQUENCE = 1676138; COB$_END_OF_TAPE = 1676148; COB$_TAPE_ABORT = 1676156; COB$_TAPE_DEVICE = 1676163; COB$_TAPE_ENTER = 1676171; COB$_TAPE_IN_USE = 1676180; COB$_TAPE_WRLOCK = 1676188; COB$_TAPE_OFFLINE = 1676194; COB$_INVLOCK = 1676204; COB$_NOALPHAUPROG = 1676210; COB$_BUFTOOSMALL = 1676218; COB$_COM_BUGCHECK = 1676226; COB$_ILLPICT = 1676234; COB$_BIGAPIC = 1676242; COB$_BIGNPIC = 1676250; COB$_BIGANPIC = 1676258; COB$_BIGANEPIC = 1676266; COB$_BIGNEPIC = 1676274; COB$_PICLENEXT = 1676282; COB$_PICLONG = 1676290; COB$_PICREPEAT = 1676298; COB$_PIC1ONLY = 1676306; COB$_PICPAREN = 1676314; COB$_RT_FLOAT = 1676322; COB$_PICMUTEX1 = 1676330;  COB$_PICMUTEX2 = 1676338; COB$_PICMUTEX3 = 1676346; COB$_PICMUTEX4 = 1676354; COB$_ARGLIMIT = 1676362; N(* INTDIVZER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* INTEXPOVE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* INTEXPUND SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *)N(* INTRESOPE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_BADVERS_S = 1676372; COB$_BADVERS_I = 1676379;! C OB$_FILE_LOCKED_PERM = 1676388; COB$_INVFUNCARG = 1676396; COB$_RESDETCON = 1676402; COB$_OVFDETCON = 1676410; COB$_UNDDETCON = 1676418; N(* END. *) N(* MODULE CONVDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767;  *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31;  *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431;  *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) #(*** MODULE $CONVDEF IDENT X-4 ***) CONST CONV$M_SIGNAL = 1; CONV$M_FDL_STRING = 2; 'TYPE CONV$TYPE = RECORD CASE INTEGER OF 1: (CONV$W_CONVDEF : $WORD; );0 2: (CONV$R_CONVDEF_BITS : [BYTE(1)] RECORD END; );$ 3: (CONV$V_SIGNAL : [POS(0)] $BOOL;( CONV$V_FDL_STRING : [POS(1)] $BOOL; ) END; CONST CONV$K_OPTIONS_COUNT = 0; CONV$K_CREATE = 1; CONV$K_SHARE = 2; CONV$K_FAST = 3; CONV$K_MERGE = 4; CONV$K_APPEND = 5; CONV$K_SORT = 6; CONV$K_WORK_FILES = 7; CONV$K_KEY = 8; CONV$K_PAD = 9; CONV$K_PAD_CHARACTER = 10; CONV$K_TRUNCATE = 11; CONV$K_EXIT = 12; CONV$K_FIXED_CONTROL = 13; CONV$K_FILL_BUCKETS = 14; CONV$K_READ_CHECK = 15; CONV$K_WRITE_CHECK = 16; CONV$K_FDL = 17; CONV$K_EXCEPTION = 18; CONV$K_PROLOGUE = 19; CONV$K_IGNORE_PROLOGUE = 20; CONV$K_SECONDARY = 21; CONV$K_MAX_OPTIONS = 21; CONV$C_MAX_OPTIONS = 21; CONV$S_OPTIONS = 88; TYPE CONV$OPTIONS = RECORD% CONV$L_OPTIONS_COUNT : UNSIGNED; CONV$L_CREATE : UNSIGNED; CONV$L_SHARE : UNSIGNED; CONV$L_FAST : UNSIGNED; CONV$L_MERGE : UNSIGNED; CONV$L_APPEND : UNSIGNED; CONV$L_SORT : UNSIGNED;" CONV$L_WORK_FILES : UNSIGNED; CONV$L_KEY : UNSIGNED; CONV$L_PAD : UNSIGNED;% CONV$L_PAD_CHARACTER : UNSIGNED; CONV$L_TRUNCATE : UNSIGNED; CONV$L_EXIT : UNSIGNED;% CONV$L_FIXED_CONTROL : UNSIGNED;$ CONV$L_FILL_BUCKETS : UNSIGNED;" CONV$L_READ_CHECK : UNSIGNED;# CONV$L_WRITE_CHECK : UNSIGNED; CONV$L_FDL : UNSIGNED;! CONV$L_EXCEPTION : UNSIGNED; CONV$L_PROLOGUE : UNSIGNED;' CONV$L_IGNORE_PROLOGUE : UNSIGNED;! CONV$L_SECONDARY : UNSIGNED; END; "CONST CONV$K_STATISTICS_COUNT = 0; CONV$K_FILE_COUNT = 1; CONV$K_RECORD_COUNT = 2; CONV$K_EXCEPT_COUNT = 3; CONV$K_VALID_COUNT = 4; CONV$K_MAX_STATISTICS = 4; CONV$C_MAX_STATISTICS = 4; CONV$S_STATISTICS = 20; CONV$K_KEY_NUMBER = 5; CONV$K_REC_OUT = 6; CONV$K_NODES = 7; CONV$K_WRK_ALQ = 8; CONV$K_INI_RUNS = 9; CONV$K_MRG_ORDER = 10; CONV$K_MRG_PASSES = 11; CONV$K_SORT_DIO_COUNT = 12; CONV$K_SORT_BIO_COUNT = 13; CONV$K_SORT_ELAPSED_TIME = 14; CONV$K_SORT_CPU_TIME = 16; CONV$K_SORT_PF_COUNT = 18; CONV$K_LOAD_DIO_COUNT = 19; CONV$K_LOAD_BIO_COUNT = 20; CONV$K_LOAD_ELAPSED_TIME = 21; CONV$K_LOAD_CPU_TIME = 23; CONV$K_LOAD_PF_COUNT = 25; CONV$K_EXT_STATISTICS = 25; CONV$C_EXT_STATISTICS = 25; CONV$S_EXT_STATISTICS = 104; TYPE CONV$STATISTICS = RECORD( CONV$L_STATISTICS_COUNT : UNSIGNED;" CONV$L_FILE_COUNT : UNSIGNED;$ CONV$L_RECORD_COUNT : UNSIGNED;$ CONV$L_EXCEPT_COUNT : UNSIGNED;# CONV$L_VALID_COUNT : UNSIGNED;" CONV$L_KEY_NUMBER : UNSIGNED; CONV$L_REC_OUT : UNSIGNED; CONV$L_NODES : UNSIGNED; CONV$L_WRK_ALQ : UNSIGNED; CONV$L_INI_RUNS : UNSIGNED;! CONV$L_MRG_ORDER : UNSIGNED;" CONV$L_MRG_PASSES : UNSIGNED;& CONV$L_SORT_DIO_COUNT : UNSIGNED;& CONV$L_SORT_BIO_COUNT : UNSIGNED;' CONV$Q_SORT_ELAPSED_TIME : $UQUAD;# CONV$Q_SORT_CPU_TIME : $UQUAD;% CONV$L_SORT_PF_COUNT : UNSIGNED;& CONV$L_LOAD_DIO_COUNT : UNSIGNED;& CONV$L_LOAD_BIO_COUNT : UNSIGNED;' CONV$Q_LOAD_ELAPSED_TIME : $UQUAD;# CONV$Q_LOAD_CPU_TIME : $UQUAD;% CONV$L_LOAD_PF_COUNT : UNSIGNED; END; "CONST RECL$K_STATISTICS_COUNT = 0; RECL$K_SCAN_COUNT = 1; RECL$K_DATA_COUNT = 2; RECL$K_INDEX_COUNT = 3; RECL$K_TOTAL_COUNT = 4; RECL$K_MAX_STATISTICS = 4; RECL$C_MAX_STATISTICS = 4; RECL$S_STATISTICS = 20; TYPE RECL$STATISTICS = RECORD( RECL$L_STATISTICS_COUNT : UNSIGNED;" RECL$L_SCAN_COUNT : UNSIGNED;" RECL$L_DATA_COUNT : UNSIGNED;# RECL$L_INDEX_COUNT : UNSIGNED;# RECL$L_TOTAL_COUNT : UNSIGNED; END; N(* END. *) N(* MODULE CONVMSG ;  *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END;  *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3;  *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767;  *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303;  *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BI T(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CONVMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.59 *)N(*  *)N(************************************************************************** *)N(** * *)N(** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1980, 1982, 1984, * *)(** 1991,1992 * *)N(** ALL RIGHTS RESERVED. * *)N(** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *)N(** STATES.  * *)N(** * *)N(** THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *)N(** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *)N(** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *)N(** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *)N(** DIGITAL EQUIPMENT CORPORATION.  * *)N(** * *)N(** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *)N(** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *)N(** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *)N(** * *)N(************************************************************************** *)N(* *)N(*++ *)N(* *)K(* FACILITY: VAX-11 CONVERT *)N(* *)N(* ENVIRONMENT: *)N(*  *)B(* VAX/VMS OPERATING SYSTEM *)N(* *)N(* ABSTRACT: *)B(* CONVERT AND CONVERT/RECLAIM ERROR MESSAGES *)N(* *)N(*   *)A(* AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 *)N(* *)N(* *)N(* MODIFIED BY: *)N(* *)3(* X-4 BP026 BOB PREMOVICH 29-MAY-1998 *)B(* CREATE LITERAL MESSAGE VALUES FOR THE MESS AGES THAT *)B(* WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO *)B(* FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET *)B(* FACILITY. *)N(* *)4(* X-3 CW002 CHRIS WHITAKER 26-AUG-1992 *)B(* MERGE IN AMBER CHANGES. *)N(* *) 7(* X-2 SBL1003 STEVEN B. LIONEL 13-DEC-1991 *)B(* SET MACRO NAME TO $CONVMSGDEF *)N(* *):(* X-2 RMM0004 RICHARD M. MARSHALL 9-AUG-1991 *)B(* PORTED TO ALPHA. CORRECTED MORE SPELLING. *)N(* *)8(* V03-005 RAS0318 RON SCHAEFER 27-JUN-1984 *)B(* FIX SPELLINGS AND TEXT OF ME SSAGES. *)N(* *)<(* V03-004 KBT0468 KEITH B. THOMPSON 21-JAN-1983 *)B(* CHANGE THE TEXT OF RSZ *)N(* *)<(* V03-003 KBT0438 KEITH B. THOMPSON 30-DEC-1982 *)B(* CHANGE THE TEXT OF CREA_ERR *)N(*   *)<(* V03-002 KBT0394 KEITH B. THOMPSON 29-OCT-1982 *)B(* CHANGE THE MESSGAE TEXT OF PROERR TO INCLUDE VBN AND *)B(* MAKE THE SIGNED VALUES UNSIGNED. *)N(* *):(* V03-001 KBT0039 KEITH THOMPSON 3-APR-1982 *)B(* CHANGE THE EXCEPTION MESSAGES TO INFO *)N(*  *)N(***** *) CONST CONVERT$_FACILITY = 178;T CONV$_CREATEDSTM = 11670267; (* /FAO=1 *)G CONV$_INSVIRMEM = 11670258; (* *)G CONV$_OPENERR = 11670410; (* /FAO=1 *)I CONV$_OPENIN = 11669658; (* /FAO=1 *)J CONV$_OPENOUT = 11669666; (* /FAO=1 *)G CONV$_READERR = 11669682; (* /FAO=1 *)G CONV$_WRITEERR = 11669714; (* /FAO=1 *)I CONV$_CLOSEIN = 11669586; (* /FAO=1 *)J CONV$_CLOSEOUT = 11669594; (* /FAO=1 *)G CONV$_BADLOGIC = 11669794; (* *)G CONV$_NOWILD = 11669802; (* *)M CONV$_VALERR = 11669994; (* *)G CONV$_CONFQUAL = 11670242; (* *) CONV$_FAO_MAX = 2; CONV$_NI = 11698187; CONV$_PAD = 11698195; CONV$_RMS = 11698203; CONV$_RTL = 11698211; CONV$_RTS = 11698219; CONV$_VFC = 11698227; CONV$_DUP = 11698235; CONV$_KEY = 11698243; CONV$_REX = 11698251; CONV$_RSK = 11698259; CONV$_RSZ = 11698267; CONV$_SEQ = 11698275; CONV$_BADBLK = 11698282; CONV$_CREA_ERR = 11698290;G CONV$_DELPRI = 11698298; (*UNUSED IN V4 *) CONV$_EXTN_ERR = 11698306; CONV$_FATALEXC = 11698314; CONV$_BADSORT = 11698322; CONV$_FILLIM = 11698330; CONV$_IDX_LIM = 11698338; CONV$_ILL_KEY = 11698346; CONV$_ILL_VALUE = 11698354; CONV$_INP_FILES = 11698362;G CONV$_KEYREF = 11698370; (*UNUSED IN V4 *) CONV$_LOADIDX = 11698378; CONV$_NARG = 11698386; CONV$_NOKEY = 11698394; CONV$_NOTIDX = 11698402; CONV$_NOTSEQ = 11698410; CONV$_ORDER = 11698418; CONV$_OPENEXC = 11698426; CONV$_PROERR = 11698434; CONV$_PROL_WRT = 11698442; CONV$_UDF_BKS = 11698450; CONV$_UDF_BLK = 11698458; CONV$_INVBKT = 11698466; CONV$_PLV = 11698474; N(* END. *) N(* MODULE CRF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535;  *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15;  *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;  *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143;  *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647;  *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CRFDEF ***) N(* *)N(* CRF$INSRTREF ARGUMENT LIST *)N(* *) TYPE CRF$TYPE = RECORDG CRFDEF$$_FILL_1 : INTEGER; (* ARGUMENT COUNT *)G CRF$L_IR_CTLTBL : UNSIGNED; (* CRF CONT ROL TABLE ADR *)G CRF$L_IR_KEYADR : UNSIGNED; (* KEY ADDRESS *)G CRF$L_IR_REFADR : UNSIGNED; (* REFERENCE INDICATOR ADR *)G CRF$W_IR_REFLAG : $UWORD; (* REFERENCE INDICATOR FLAGS *)G CRFDEF$$_FILL_2 : ARRAY [1..2] OF $BYTE; (* UNUSED *)G CRF$B_IR_DEFIND : $UBYTE; (* DEFINITION INDICATOR *)G CRFDEF$$_FILL_3 : ARRAY [1..3] OF $BYTE; (* UNUSED *) END; N(*  *)N(* CRF$INSRTKEY ARGUMENT LIST *)N(* *) TYPE CRF1$TYPE = RECORDG CRFDEF$$_FILL_4 : INTEGER; (* ARGUMENT COUNT *)G CRF$L_IK_CTLTBL : UNSIGNED; (* CRF CONTROL TABLE ADR *)G CRF$L_IK_KEYADR : UNSIGNED; (* ADDRESS OF KEY *)G CRF$L_IK_VALADR : UNSIGNED; ( * ADDRESS OF VALUE *)G CRF$W_IK_VALFLG : $UWORD; (* VALUE FLAGS *)G CRFDEF$$_FILL_5 : ARRAY [1..2] OF $BYTE; (* UNUSED *) END; N(* *)N(* CRF$OUT ARGUMENT LIST *)N(* *) TYPE CRF2$TYPE = RECORDG CRFDEF$$_FILL_6 : INTEGER; (* ARGUMENT COUNT *)G CRF$L_OU_CTLTBL : UNSIGNED; (* CRF CONTROL TABLE ADR *)G CRF$L_OU_LINWID : UNSIGNED; (* OUTPUT LINE WIDTH *)G CRF$B_OU_PAG1 : $UBYTE; (* ! LINES/PAGE 1 *)G CRFDEF$$_FILL_7 : ARRAY [1..3] OF $BYTE; (* UNUSED *)G CRF$B_OU_SUCPAG : $UBYTE; (* ! LINES/SUCCESSIVE PAGES *)G CRFDEF$$_FILL_8 : ARRAY [1..3] OF $BYTE; (* UNUSED *)G CRF$B_OU_PRTIND : $ UBYTE; (* REF PRINT INDICATOR *)G CRFDEF$$_FILL_9 : ARRAY [1..3] OF $BYTE; (* UNUSED *)G CRF$B_OU_SAVIND : $UBYTE; (* SAVE INDICATOR *) END; N(* *)N(* CRF CONTROL TABLE OFFSETS *)N(* *) CONST CRF$M_MULDEF = 1; 'TYPE CRF3$TYPE = RECOR D CASE INTEGER OFG 1: (CRF$L_HASHT : UNSIGNED; (* HASH TABLE ADDRESS *)G CRF$L_LASTKEY : UNSIGNED; (* LAST KEY LOOKED AT ADDRESS *)2 CRF$R_KEYTYPE_OVERLAY : [BYTE(1)] RECORD END;* CRF$R_FILL_0_ : [BYTE(1)] RECORD END;G CRF$W_ERRSTS : $UWORD; (* SECONDARY ERROR STATUS CODE *)L CRF$L_ENTRIES : UNSIGNED; (* NUMBER OF ENTRIES IN CROSS REFERENCE *)O CRF$L_DYNMEM : ARRAY [1..2] OF UNSIGNED; (* LISTHEAD OF DYNAMIC MEMORY *)L CRF!$L_MAXBLK : UNSIGNED; (* SIZE (IN BYTES) OF BLOCK TO ALLOCATE *)L CRF$L_MEMEXP : UNSIGNED; (* SIZE (IN PAGES) OF BLOCK TO ALLOCATE *)G CRF$W_CTLTABVER : $UWORD; (* VERSION OF CONTROL TABLE *)O CRF$B_VALTYPE : $UBYTE; (* SYMBOL VALUE DATA TYPE (Ver 1 and later) *)S CRF$B_REFTYPE : $UBYTE; (* SYMBOL REFERENCE DATA TYPE (Ver 1 and later) *)G CRFDEF$$_FILL_10 : ARRAY [1..7] OF INTEGER; (* SPARES *)G CRF$L_ERROR : UNSIGNED; (* ERROR "ROUTINE ADDRESS *)G CRF$L_OUTPUT : UNSIGNED; (* OUTPUT ROUTINE ADDRESS *)G CRF$L_K1FMTBL : UNSIGNED; (* KEY1 FIELD FORMAT TBL ADR *)G CRF$L_K2FMTBL : UNSIGNED; (* KEY2 FIELD FORMAT TBL ADR *)G CRF$L_V1FMTBL : UNSIGNED; (* VAL1 FIELD FORMAT TBL ADR *)G CRF$L_V2FMTBL : UNSIGNED; (* VAL2 FIELD FORMAT TBL ADR *)G CRF$L_R1FMTBL : UNSIGNED; (* REF1 FIELD FORMAT TBL ADR *)G CRF$L_R2FMTBL : UNSIGNED; # (* REF2 FIELD FORMAT TBL ADR *) );G 2: (CRF$B_KEYTYPE : [POS(64)] $UBYTE; (* TYPE OF KEY IN TABLE *)K CRF$B_FLAGS : [POS(72)] $UBYTE; (* MISC. FLAGS FOR FUTURE EXPANSION *) );8 3: (CRF$R_KEYTYPE_BITS : [POS(64), BYTE(1)] RECORD END; );V 4: (CRF$V_BINARY : [POS(64)] $BOOL; (* OBSOLETE FIELD. RETAINED FOR COMPATIBLILTY *)G CRF$V_MULDEF : [POS(72)] $BOOL; (* Multi-Definers *) ) END; N(* END. $ *) N(* MODULE CRFERRMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $O%CTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD & *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; ' *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] (0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(*) $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; * *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSA +FE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CRFMSG ***) N(* *)Q(* This SDL File Generated by VAX-11 M,essage V04-00 on 9-MAR-2021 22:27:59.14 *)N(* *)N(* *)N(* *)J(* VERSION: 'V04-004' *)N(* *)N(* - *)N(* COPYRIGHT 1978-2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *)N(* *)N(* RESTRICTED RIGHTS LEGEND *)N(* *)N(* USE, DUPLICATION OR DISCLOSURE BY THE U.S. GOVERNMENT IS SUBJECT TO *)N(* RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH (C)(1)(II) OF THE RIGHTS *)N(* IN T.ECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DFARS 252.227-7013. *)N(* *)N(* HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P *)N(* 3000 HANOVER STREET *)N(* PALO ALTO, CA 94304 *)N(* U.S.A. *)N(* / *)N(* RIGHTS FOR NON-DOD U.S. GOVERNMENT DEPARTMENTS AND AGENCIES ARE AS *)N(* SET FORTH IN FAR 52.227-19(C)(1,2). *)N(* UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. *)N(* *)N(* *)N(* RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM 0 *)N(* *)N(* MODIFIED BY: *)N(* *)B(* V04-004 TMS0569 TODD SCHOELLER 27-DEC-2004 *)B(* ADD NOFOOTNOTES. *)N(* *)B(* V04-003 TMS0567 TODD SCHOELL1ER 6-OCT-2004 *)B(* ADD MULDEFFMT FOR MULTI-DEFINER SUPPORT *)N(* *)B(* V04-002 TMS0532 TODD SCHOELLER 16-OCT-2003 *)B(* ADD CROPPING FOR CROPPING/FOOTNOTING SUPPORT. *)N(* *)B(* V04-001 TMS0294 TODD SCHOELLER 4-NOV-1994 *)B(* ADD ARGCOUNT FOR ARGUMENT COUNT CH2ECKING. *)N(* *)A(* V02-002 BLS0156 BENN SCHREIBER 1-MAR-1982 *)B(* REMOVE UNUSED MESSAGES *)N(* *)A(* V02-001 BLS0123 BENN SCHREIBER 19-DEC-1981 *)B(* CHANGE TEXT OF FAOFAIL *)N(* 3 *)N(* *)@(* SUCCESS CODES (SEVERITY LEVEL 1) *)N(* *) CONST CREF$_FACILITY = 101; CRF$_SUCCESS = 6651905; CRF$_KEYPRVENTR = 6651913; CRF$_KEY1STENTR = 6651921; CRF$_REFPRVENTR = 6651929; CRF$_UNUSERR = 6651937; CRF$_CROP = 6651945; N(* 4 *)E(* SEVERE ERROR CODES (SEVERITY LEVEL 2) *)N(* *) CONST CRF$_UNUERR1 = 6651986; CRF$_UNUERR2 = 6651994; CRF$_UNUERR3 = 6652002; CRF$_UNUERR4 = 6652010; CRF$_UNUERR5 = 6652018; CRF$_UNUERR6 = 6652026; CRF$_UNUERR7 = 6652034; CRF$_NO_OUTRTN = 6652042; CRF$_LINELNG = 6652050; CRF$_FAOFAIL = 6652058; CRF$_UNUERR8 = 6652066; CRF$_BADTYPE = 56652074; CRF$_ARGCOUNT = 6652082; CRF$_MULDEFFMT = 6652090; CRF$_NOFOOTNOTES = 6652098; N(* END. *) N(* MODULE DDTMMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = 6[QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)7C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; 8 *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; 9 *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [:BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; ; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108 <863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MOD =ULE $DDTMMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:23.44 *)N(* *)H(* .TITLE DDTMMSGDEF -- DECDTM SERVICES EXTENDED REASON CODES *)N(* *)N(************************************************************************** *)N(*>* * *)N(** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1993 * *)N(** ALL RIGHTS RESERVED. * *)N(** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *)N(** STATES. * *)N(** * *)N(** THE SOFTWARE CONTAINED O?N THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *)N(** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *)N(** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *)N(** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *)N(** DIGITAL EQUIPMENT CORPORATION. * *)N(** * *)N(** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISC@LOSURE BY THE U.S. * *)N(** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *)N(** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *)N(** * *)N(************************************************************************** *)N(* *)N(*++ *)NA(* FACILITY: DDTM *)N(* *)N(* ABSTRACT: *)N(* *)M(* THIS MODULE DEFINES THE EXTENDED TRANSACTION ABORT REASON CODES FOR THE *)I(* DECDTM TRANSACTION MANAGER. *)N(* B *)N(* ENVIRONMENT: *)I(* VMS V5.4 OR LATER. *)N(* *);(* AUTHOR: JAMES E JOHNSON CREATION DATE: 27-FEB-1990 *)N(* *)N(* MODIFIED BY: *)CN(* *)2(* A-4 KJP KEVIN PLAYFORD 15-SEP-1993 *)B(* UPDATED ALPHA VERSION OF DECDTM MESSAGES TO REFLECT MESSAGE *)B(* TEXT AS FOUND IN HELP MESSAGE TEXT. *)N(* *)2(* A-3 KJP KEVIN PLAYFORD 23-AUG-1993 *)B(* UPDATED ALPHA VERSION OF DECDTM MESSAGES TO DECDTM V1.2 *)B(* FUNCTIONALITY. D *)N(* *)B(* *** VAX CHANGES PICKED UP FOR ALPHA *)N(* *).(* X-6 RM RUDI MARTIN 9-AUG-1993 *);(* UPDATE SYNCH_FAIL AND ORPHAN_BRANCH MESSAGES TO *);(* CORRESPOND TO THEIR HELP/MESSAGE TEXT. *)N(* E *)2(* A-2 KJP KEVIN PLAYFORD 20-JUL-1993 *)B(* UPDATED ALPHA VERSION OF DECDTM MESSAGES TO DECDTM V1.2 *)B(* FUNCTIONALITY. *)N(* *)B(* *** VAX CHANGES PICKED UP FOR ALPHA *)N(* *).(* X-5 RM RUDI MARTIN 25-FEB-1993 *);(* ADD XA ERROR CODES. F *)N(* *)1(* X-4 CW CHRIS WHITAKER 26-FEB-1991 *);(* MODIFY WORDING ON SOME MESSAGES TO CONFORM TO *);(* FUNCTIONAL SPECIFICATION OF DECDTM V1.2. *)N(* *)5(* X-3 CW1023 CHRIS WHITAKER 21-MAY-1990 *)B(* ADD RESERVED CODE AS FIRST MESSAGE. *)N(* G *)7(* X-2 JEJ0599 JAMES E JOHNSON 23-APR-1990 *)B(* ADD LOG_FAIL, SYNC_FAIL, AND ORPHAN_BRANCH *)N(* *)N(*-- *) CONST DDTM$_FACILITY = 1187;G DDTM$_UNKNOWN = 0; (* NO EXTENDED CODE PROVIDED *) N(* ERROR CODES: H *)N(* *) CONST DDTM$_RESERVED = 77824002; DDTM$_TIMEOUT = 77824010; DDTM$_PART_TIMEOUT = 77824018; DDTM$_SEG_FAIL = 77824026; DDTM$_COMM_FAIL = 77824034; DDTM$_VETOED = 77824042; DDTM$_ABORTED = 77824050; DDTM$_SERIALIZATION = 77824058; DDTM$_PART_SERIAL = 77824066; DDTM$_INTEGRITY = 77824074; DDTM$_LOG_FAIL = 77824082; DDTM$_SYNC_FAIL = 77824090; DDTM$_ORPHAN_BRANCH = I 77824098; DDTM$_DEADLOCK = 77824106; DDTM$_PROTERROR = 77824114; DDTM$_ROLLBACK = 77824122; DDTM$_TRANSIENT = 77824130; N(* END. *) N(* MODULE DSTDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; J *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD K *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGERL; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* M$BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; N *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFEO] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(*P $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; Q *) (*** MODULE $DSTDEF ***) N(* Use a K to indicate constant *) LCONST DST$K_LOCOMMAND = 0; (* Low value for range checking *)G DST$K_STA_R00 = 0; (* Stack contents of R0 *)G DST$K_STA_R01 = 1; (* Stack contents of R1 *)G DST$K_STA_R02 = 2; (* Stack contents of R2 *)G DST$K_STA_R03 = 3; (* Stack contents of R3 R *)G DST$K_STA_R04 = 4; (* Stack contents of R4 *)G DST$K_STA_R05 = 5; (* Stack contents of R5 *)G DST$K_STA_R06 = 6; (* Stack contents of R6 *)G DST$K_STA_R07 = 7; (* Stack contents of R7 *)G DST$K_STA_R08 = 8; (* Stack contents of R8 *)G DST$K_STA_R09 = 9; (* Stack contents of R9 *)G DST$K_STA_R10 = 10; (* Stack contents o Sf R10 *)G DST$K_STA_R11 = 11; (* Stack contents of R11 *)G DST$K_STA_R12 = 12; (* Stack contents of R12 (AP) *)G DST$K_STA_R13 = 13; (* Stack contents of R13 (FP) *)G DST$K_STA_R14 = 14; (* Stack contents of R14 (SP) *)G DST$K_STA_R15 = 15; (* Stack contents of R15 (PC) *)G DST$K_STA_IMM_B = 16; (* Stack contents of byte operand *) N(* sign extending to longword T *) LCONST DST$K_STA_IMM_W = 17; (* Stack contents of word operand *) N(* sign extending to longword *) OCONST DST$K_STA_IMM_L = 18; (* Stack contents of longword operand *)G DST$K_OPR_ADD = 19; (* Pop two operands, add , *) N(* stack longword result *) QCONST DST$K_STA_REP_B = 20; (* Pop top U item and stack sign extended *) N(* byte at that address *) QCONST DST$K_STA_REP_W = 21; (* Pop top item and stack sign extended *) N(* word at that address *) OCONST DST$K_STA_REP_L = 22; (* Pop top item and stack longword at *) N(* that address *) OCONST DST$K_OPR_STOP = 23; (* V Terminate command string. Longword *) N(* at top of stack contains address *)N(* of data item. *) LCONST DST$K_HICOMMAND = 23; (* Hi value for range checking *) N(* END. *) N(* MODULE FDLMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data typesW ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; X *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,YL5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)JZ(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; [ *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UN\SAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)]J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; ^ *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FDLMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.64 *)N(* *)N(* _ *)J(* VERSION: 'X-4' *)N(* *)O(* ************************************************************************* *)O(* * * *)O(* * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1979, 1980, 1981, * *)O(* * 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 199`2 * *)O(* * ALL RIGHTS RESERVED. * *)O(* * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *)O(* * STATES. * *)O(* * * *)O(* * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *)O(* * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *)Oa(* * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *)O(* * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *)O(* * DIGITAL EQUIPMENT CORPORATION. * *)O(* * * *)O(* * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *)O(* * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *)O(* * (C)(1)(IIb) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *)O(* * * *)O(* ************************************************************************* *)N(*++ *)N(* *)K(* FACILITY: VAX-11 FDL UTILITIES *)N(* c *)N(* ENVIRONMENT: *)N(* *)B(* VAX/VMS OPERATING SYSTEM *)N(* *)N(* ABSTRACT: *)B(* FDL ERROR MESSAGES *)N(* d *)N(* *)N(*-- *)N(* *)A(* AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 *)N(* *)N(* e *)N(* MODIFIED BY: *)N(* *)3(* X-4 BP026 BOB PREMOVICH 28-MAY-1998 *)B(* CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT *)B(* WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO *)B(* FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET *)B(* FACILITY. f *)N(* *)4(* X-3 CW002 CHRIS WHITAKER 26-AUG-1992 *)B(* MERGE IN AMBER CHANGES. *)N(* *)7(* X-3 SBL1003 STEVEN B. LIONEL 13-DEC-1991 *)B(* SET MACRO NAME TO $FDMLSGDEF *)N(* *)6(*g X-2 RNM0063 RUSSELL MURRAY 13-APR-1988 *)B(* ADD TAGGED FILE SUPPORT. ADD MESSAGE FDL$_UNKNOWN_TAG *)N(* *)9(* V03-004 KFH0003 KEN HENDERSON 21 DEC 1982 *)B(* REWORDED "key word" TO "keyword" *)N(* *)9(* V03-003 KFH0002 KEN HENDERSON 22-NOV-1982 *)B(* REWORDED "on line" TO "in statemhent" *)N(* *)9(* V03-002 KFH0001 KEN HENDERSON 25-OCT-1982 *)B(* ADDED INVBLK MESSAGE *)N(* *):(* V03-001 KBT0033 KEITH THOMPSON 31-MAR-1982 *)B(* ADD INVDATIM MESSAGE *)N(* i *)N(***** *) CONST FDL$_FACILITY = 180;G FDL$_BADLOGIC = 11800866; (* *)I FDL$_CLOSEIN = 11800658; (* /FAO=1 *)J FDL$_CLOSEOUT = 11800666; (* /FAO=1 *)G FDL$_CREATED = 11800691; (* /FAO=1 *)T FDL$_CREATEDSTM = 11801339; (* /FAO=1 *)G FDL$_INSVIRMEM = 11801330; (* *)I FDL$_OPENIN = 11800730; (* /FAO=1 *)J FDL$_OPENOUT = 11800738; (* /FAO=1 *)G FDL$_READERR = 11800754; (* /FAO=1 *)M FDL$_VALERR = 11801066; (* *)G FDL$_WRITEERR = 11800786; (* /FAO=1 *) FDL$_FAO_MAX = 5; FDL$_TITLE = 1182k9259; FDL$_ABKW = 11829264; FDL$_INVDATIM = 11829272; FDL$_MULSEC = 11829280; FDL$_NOQUAL = 11829288; FDL$_NULLPRI = 11829296; FDL$_RFLOC = 11829304; FDL$_VALPRI = 11829312; FDL$_UNQUAKW = 11829320; FDL$_UNSECKW = 11829328; FDL$_WARNING = 11829336; FDL$_ABPRIKW = 11829346; FDL$_CREATE = 11829354; FDL$_FDLERROR = 11829362; FDL$_ILL_ARG = 11829370; FDL$_MULPRI = 11829378; FDL$_OPENFDL = 11829386; FDL$_OUTORDER = 11829394; FDL$_SYNTAX = 11829402; FDL$_UNPRIK lW = 11829410; FDL$_INVBLK = 11829418; FDL$_UNKNOWN_TAG = 11829426; N(* END. *) N(* MODULE FORMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD m *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED;n END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR o= [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; p *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..819q1; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20r = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; s *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FORDEF ***) Nt(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.45 *)N(* *)N(* FILE: FOR_MSG.MSG *)N(* *)N(********************************************************************** *)N(*** u * *)N(*** COPYRIGHT 2001 COMPAQ COMPUTER CORPORATION * *)N(*** * *)N(*** COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION * *)N(*** TECHNOLOGIES GROUP, L.P. * *)N(*** * *)N(*** CONFIDENTIAL COMPUTER SOFTWARE. VALID LICEvNSE FROM COMPAQ * *)N(*** REQUIRED FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR * *)N(*** 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, COMPUTER * *)N(*** SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS * *)N(*** ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *)N(*** COMMERCIAL LICENSE. * *)N(*** * w *)N(********************************************************************** *)N(* *)N(* 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-1980 *)N(* 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980 *)R(* 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. *)I(* SBL 6-JAN-1981 *)P(* 2-001 - CONVERT TxO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM FORMSG.MDL *)I(* VERSION 1-016. SBL 22-APR-1981 *)N(* 2-002 - ADD UNFIO_FMT, FMTIO_UNF, DIRIO_KEY, SEQIO_DIR, KEYIO_DIR, *)I(* IO_NONFOR, INVTXTREC, FLOUNDEXC. JAW 23-AUG-1981 *)N(* 2-003 - CHANGE INVTXTREC TO INVTEXREC. JAW 24-AUG-1981 *)U(* 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXED *)S(* AND INTERNAL FILES THAT DO NOT HAVE A VyALID RECORD NUMBER. DGP 21-DEC-1981 *)N(* 2-005 - ADD .TITLE. SBL 28-AUG-1982 *)N(* 2-006 - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-1983 *)N(* 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS. *)N(* 2-008 - ADD INVMATKEY. DJM 14-SEP-1987. *)N(* 2-009 - ADD FORRTL2 MESSAGES. CHH 22-SEP-1987 *)J(* X-4 STEVE LIONEL 16-OCT-1989 z *)I(* ADD SUBPRCDEL,UNAWAKSUB. *)N(* X-5 *)I(* A LONG TIME AGO, IN A GALAXY FAR, FAR AWAY ... *)I(* X-6 SBL1001 22-OCT-1991 STEVE LIONEL *)I(* ADD FOR$_VECALIGNEXC *)K(* X-7 EBF1002 08-OCT-1992 ED FLECCHIA *)I(* ADDED DEC FORTRAN MESSAGES FO{R OTHER PLATFORMS. *)O(* X-8 ADD FOR$_ENDRECDUR, END OF RECORD DURING READ. CHANGE IDENT TO VM.N-O *)I(* SYNTAX. BRR 10-NOV-1993. *)M(* X-9 ADD MISSING ALPHA GENTRAP MESSAGES. TCM 02-JUN-94. *)N(* X-10 ADD INVREALLOC. JDR 11-JUL-1994. *)N(* X-11 ADD RESACQFAI. JDR 23-NOV-1994. *)N(* X-12 ADD INVDEALLOC. TCM 13-MAR-1995. | *)N(* X-13 MAKE MESSAGE ENDRECDUR, END OF RECORD DURING READ FATAL INSTEAD *)L(* ERROR, LIKE THE OTHER OPERATING SYSTEMS. THE STANDARD SAYS FATAL, AND *)F(* THIS SHOULD FIX BUG DFB2234. TCM 24-MAR-1995 *)N(* X-14 ADD POINTERS TO THE MESSAGE TEXT FOR INVDEALLOC. TCM 19-JUN-1995. *)N(* X-15 FIX THE MESSAGE TEXT OF ERROR 69 (SIGINT) *)E(* INTERRUPT WAS SPELLED WRONG, MISSING AN R. TCM 29-MAR-1996 *)N(* X-16 ADD PRELIMINARY VISU}AL FORTRAN SUPPORT. *)I(* THUS, ADDING ALL OF THE MSF ERROR MESSAGES. *)I(* NOTE: THESE MESSAGES MUST BE CONTIGUOUS, SO *)B(* THAT THE MAPPING OF MSF ERRORS TO VISUAL *):(* FORTRAN CAN BE DONE WITH EASE. TCM 26-APR-1996 *)N(* X-17 FIX THE MESSAGE TEXT OF MSF ERRORS 6970, 6971. *)I(* IT SHOULD BE D FIELD NOT M FIELD, ETC. ALSO *)H(* FIX F6750-52, R~EMOVE UNIX IN THE TEXT. TCM 07-NOV-1996 *)N(* X-18 ADD INVDEALLOC2. WCH 15-JUL-1999. *)N(* X-19 CHANGE PRODUCT NAME FROM DEC TO COMPAQ PMK 8-NOV-1999 *)N(* X-20 REPLACE DEC WITH COMPAQ IN RESACQFAI MESSAGE. PMK 9-NOV-1999 *)N(* X-21 ADD SHORTDATEARG, SHORTTIMEARG, & SHORTZONEARG. PMK 31-JUL-2000 *)N(* X-22 ADD COUNTING FLTING INEXACTS. WCH 10-AUG-2000. *)U(* X-23 ADD NEW ERRORS FOR COMPILER GENERATED RUNTIME MESSAGES. WCH 16-AUG-2000. *)Q(* X-24 ADD A GENERIC DIVIDE BY ZERO MESSAGE FOR CASES WHEN WE CANNOT TELL IF *)L(* IT WAS A TRUE FLOATING POINT DIV0 OR AN INTEGER DIV0. AS OF GEM BL46, *)O(* GEM SOMETIMES DOES INTEGER DIV IN THE FP UNIT ON ALPHA. WCH 06-OCT-2000. *)O(* X-25 ADD A NEW MESSAGE FOR ATTEMPTED ARRAY ALLOCATIONS THAT OVERFLOW MAX *)N(* ARRAY SIZE (32/64 BITS). WCH 13-OCT-2000. *)N(*--  *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* FOR$_ABCMNOXYZ *)N(* *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)P(* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)N(* MACRO-32 PROGRAMMING:  *)N(* *)N(* THE MACROS CALL: *)N(* *)I(* $FORDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *)N(* THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94). *)N(* THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY, *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(*- *);(* ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED) *);(* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *);(* ; SET LH TO 24 (DECIMAL).  *) CONST FOR$_FACILITY = 24; FOR$_NOTFORSPE = 1605644; B(* ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR *)B(* ; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY *)B(* ; THAN FOR$ OR MTH$ DETECTED THE ERROR. *) CONST FOR$_NOTIMP = 1605652; FOR$_IGNORED = 1605656; FOR$_IGNNOTDEL = 1605664; FOR$_VERSION = 1605683; FOR$_BUG_CHECK = 1605700; FOR$_PERACCFIL = 1605708; FOR$_CANOVEEXI = 1605716; FOR$_UNINOTCON = 1605723; FOR$_SYNERRNAM = 1605772; FOR$_TOOMANVAL = 1605780; FOR$_INVREFVAR = 1605788; FOR$_REWERR = 1605796; FOR$_DUPFILSPE = 1605804; FOR$_INPRECTOO = 1605812; FOR$_BACERR = 1605820; FOR$_ENDDURREA = 1605828; FOR$_RECNUMOUT = 1605836; FOR$_OPEDEFREQ = 1605844; FOR$_TOOMANREC = 1605852; FOR$_CLOERR = 1605860; FOR$_FILNOTFOU = 1605868; FOR$_OPEFAI = 1605876; FOR$_MIXFILACC = 1605884; FOR$_INVLOGUNI = 1605892; FOR$_ENDFILERR = 1605900; FOR$_UNIALROPE = 1605908; FOR$_SEGRECFOR = 1605916; FOR$_ATTACCNON = 1605924; FOR$_INCRECLEN = 1605932; FOR$_ERRDURWRI = 1605940; FOR$_ERRDURREA = 1605948; FOR$_RECIO_OPE = 1605956; FOR$_INSVIRMEM = 1605964; FOR$_NO_SUCDEV = 1605972; FOR$_FILNAMSPE = 1605980; FOR$_INCRECTYP = 1605988; FOR$_KEYVALERR = 1605996; FOR$_INCOPECLO = 1606004; FOR$_WRIREAFIL = 1606012; FOR$_INVARGFOR = 1606020; FOR$_INVKEYSPE = 1606028; FOR$_INCKEYCHG = 1606036; FOR$_INCFILORG = 1606044; FOR$_SPERECLOC = 1606052; FOR$_NO_CURREC = 1606060; FOR$_REWRITERR = 1606068; FOR$_DELERR = 1606076; FOR$_UNLERR = 1606084; FOR$_FINERR = 1606092; FOR$_MORONEREC = 1605852; FOR$_ATTREANON = 1605924; FOR$_FMTSYN = 1606099; FOR$_LISIO_SYN = 1606108; FOR$_INFFORLOO = 1606116; FOR$_FORVARMIS = 1606124; FOR$_SYNERRFOR = 1606132; FOR$_OUTCONERR = 1606138; FOR$_INPCONERR = 1606148; FOR$_FLTINV = 1606156; FOR$_OUTSTAOVE = 1606164; FOR$_INPSTAREQ = 1606172; FOR$_VFEVALERR = 1606180; FOR$_SIGINT = 1606186; FOR$_INTOVF = 1606196; FOR$_INTDIV = 1606204; FOR$_FLTOVF = 1606210; FOR$_FLTDIV = 1606218; FOR$_FLTUND = 1606226; FOR$_SIGFPE = 1606234; FOR$_SIGIOT = 1606242; FOR$_SUBRNG = 1606252; FOR$_SIGTERM = 1606258; FOR$_SIGQUIT = 1606266; FOR$_WRONUMARG = 1606276; FOR$_INVARGMAT = 1606284; FOR$_UNDEXP = 1606292; FOR$_LOGZERNEG = 1606300; FOR$_SQUROONEG = 1606308; FOR$_SIGLOSMAT = 1606332; FOR$_FLOOVEMAT = 1606340; FOR$_FLOUNDMAT = 1606346; FOR$_ADJARRDIM = 1606380; FOR$_INVMATKEY = 1606388; FOR$_FLOCONFAI = 1606394; FOR$_CANSTAFIL = 1606500; FOR$_OPEREQSEE = 1606596; FOR$_BRK_USERBP = 1606676; FOR$_BRK_KERNELBP = 1606684; FOR$_BRK_BD_TAKEN = 1606700; FOR$_BRK_BD_NOTTAKEN = 1606708; FOR$_BRK_SSTEPBP = 1606716; FOR$_BRK_OVERFLOW = 1606724; FOR$_BRK_DIVZERO = 1606732; FOR$_BRK_RANGE = 1606740; FOR$_BRK_RANGE2 = 1606748; N(* ********** *)N(* [X-9] THE FOLLOWING ERRORS REFER TO GENTRAP EXCEPTIONS OR SIGNALS *)N(* AND ARE NOT RETURNED BY IOSTAT. *) CONST FOR$_FLTINE = 1606756; FOR$_DECOVF = 1606764; FOR$_DECDIV = 1606772; FOR$_DECINV = 1606780; FOR$_ROPRAND = 1606788; FOR$_ASSERTERR = 1606796; FOR$_NULPTRERR = 1606804; FOR$_STKOVF = 1606812; FOR$_STRLENERR = 1606820; FOR$_SUBSTRERR = 1606828; FOR$_RANGEERR = 1606836; N(* **********  *)N(* [X-10] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYS *) CONST FOR$_INVREALLOC = 1606844; N(* ********** *)N(* [X-11] *) CONST FOR$_RESACQFAI = 1606852; N(* ********** *)N(* [X-12] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYS *) R(* [X-14] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS. *) CONST FOR$_INVDEALLOC = 1606860; N(* ********** *)R(* [X-18] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS. *) !CONST FOR$_INVDEALLOC2 = 1607020; N(* ********** *)[(* [X-21] NEW ERRORS GENERATED FOR ARGUMENT LENGTHS SHORTER THAN STANDARD SPECIFIES FOR * )N(* INTRINSIC DATE_AND_TIME. *)N(* [X-24] NEW ERROR FOR GENERIC DIVIDE BY ZERO. *)N(* [X-25] NEW ERROR FOR ARRAY ALLOCATION SIZE OVERFLOW. *) "CONST FOR$_SHORTDATEARG = 1607036; FOR$_SHORTTIMEARG = 1607044; FOR$_SHORTZONEARG = 1607052; FOR$_DIV = 1607060; FOR$_ARRSIZEOVF = 1607068; N(* ********** *)N(* THE FOLLOWING MESSA GES ARE SECONDARY MESSAGES, OR ARE USED ONLY IN *)N(* EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE) *)N(* CONTIGUOUS WITH THE MESSAGES ABOVE. *)N(* THE NEXT SIX MESSAGES ARE SECONDARY MESSAGES FOR USE WITH MIXFILACC IN *)N(* FOR$$IO_BEG AND FOR$$CB. *) CONST FOR$_UNFIO_FMT = 1607684; FOR$_FMTIO_UNF = 1607692; FOR$_DIRIO_KEY = 1607700; FOR$_SEQIO_DIR = 1607708; FOR$_KEYIO_DIR = 1607716; FOR$_IO_NONFOR = 1607724; N(* THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN *)N(* FOR$$UDF_WF AND FOR$$UDF_WL. *) CONST FOR$_INVTEXREC = 1607732; FOR$_INVTEX = 1607740; N(* ADDITIONAL SECONDARY MESSAGES *) CONST FOR$_OPEREQDIS = 1607748; FOR$_OPEREQSEQ = 1607756; FOR$_PROABOUSE = 1607762; FOR$_FLOCONFAIU = 1607770; N(* **********  *)S(* [X-13] THE FOLLOWING MESSAGE IS A FATAL MESSAGE ACCORDING TO THE F90 STANDARD *) CONST FOR$_ENDRECDUR = 1607780; Z(* THESE NEXT 4 MESSAGES ARE USED IN THE EXIT HANDLER WHICH IS DECLARED BY FOR$HANDLER. *) CONST FOR$_FLOINEEXC = 1608003; FOR$_FLOINVEXC = 1608011; FOR$_FLOOVFEXC = 1608019; FOR$_FLODIV0EXC = 1608027; FOR$_FLOUNDEXC = 1608035; FOR$_VECALIGNEXC = 1608043; N(* END OF SPECIAL MESSAGES  *)N(* ********** *)N(* ********** *)N(* RESERVE A NUMBER FOR A MESSAGE TO REPORT COMPILED CODE GENERATED *)N(* RUNTIME ERRORS. *) CONST FOR$_MSGBUFOVF = 1608828; FOR$_DIAGNOSTIC = 1608836; N(* **********  *)N(* THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE *)N(* VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT. *)N(* *) CONST FOR$_FATINTERR = 1609732; FOR$_SUBPRCDIED = 1609740; FOR$_NOTIMPRET = 1609748; FOR$_FAIOWNERID = 1609756; FOR$_FAIPRCID = 1609764; FOR$_FAIPRCNAME = 1609772; FOR$_FAIACTCPU = 1609780; FOR$_FAIIDPRC = 1609788; FOR$_FAIIMAGNAME = 1609796; FOR$_FAIDCLEXIT = 1609804; FOR$_FAISUBPRC = 1609812; FOR$_INVNUMPRC = 1609820; FOR$_MEMSHRERR = 1609828; FOR$_LOCALSHRERR = 1609836; FOR$_LOCALACCESS = 1609844; FOR$_INVLCLADR = 1609852; FOR$_COMSHRERR = 1609860; FOR$_INVCOMADR = 1609868; FOR$_PARINITERR = 1609876; FOR$_STACKSHRERR = 1609884; FOR$_FAISHRSTACK = 1609892; FOR$_INVUNWIND = 1609900; FOR$_STKBUFOVR = 1609908; FOR$_SUBPRCDEL = 1609916;G FOR$_ASSERTFAIL = 1609924; (* **********  *) O(* THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM MICORSOFT FORTRAN AND NOW *)N(* VISUAL FORTRAN. *)N(* *)N(* [X-16] THE FOLLOWING ERRORS REFER TO MSF ERROR MESSAGES. *)N(* THESE MESSAGES MUST REMAIN IN CONTIGUOUS ORDER SO THAT AN *)N(* OFFSET INTO A MAPPING ARRAY CAN BE COMPUTED FROM THE MESSAGE *)N(* BAS E NUMBER, WHICH IS 540 FOR MSF MESSAGES. THAT WAY VISUAL *)N(* FORTRAN CAN RETURN IOSTAT NUMBERS SIMILAR TO MSF. ALSO *)N(* WE PUT THESE MESSAGES THIS FAR DOWN TO KEEP IN SYNCH WITH *)N(* THE VMS MESSAGE FILE. IT HAS CONTIGUOUS OPENINGS UP TO 768 *)N(* IN THIS RANGE. THE NEXT CONTIGUOUS OPENING BEGINS FROM 1024. *) CONST FOR$_F6096 = 1609956; FOR$_F6097 = 1609964; FOR$_F6098 = 1609972; FOR$_F6099 = 1609980; FOR$_F6100 = 1609988; FOR$_F6101 = 1609996; FOR$_F6102 = 1610004; FOR$_F6103 = 1610012; FOR$_F6104 = 1610020; FOR$_F6105 = 1610028; FOR$_F6106 = 1610036; FOR$_F6200 = 1610044; FOR$_F6201 = 1610052; FOR$_F6202 = 1610060; FOR$_F6203 = 1610068; FOR$_F6204 = 1610076; FOR$_F6205 = 1610084; FOR$_F6206 = 1610092; FOR$_F6207 = 1610100; FOR$_F6208 = 1610108; FOR$_F6209 = 1610116; FOR$_F6210 = 1610124; FOR$_F6211 = 1610132; FOR$_F6212 = 1610140; FOR$_F6213 = 1610148; FOR$_F6214 = 1610156; FOR$_F6300 = 1610164; FOR$_F6301 = 1610172; FOR$_F6302 = 1610180; FOR$_F6303 = 1610188; FOR$_F6304 = 1610196; FOR$_F6305 = 1610204; FOR$_F6306 = 1610212; FOR$_F6307 = 1610220; FOR$_F6308 = 1610228; FOR$_F6309 = 1610236; FOR$_F6310 = 1610244; FOR$_F6311 = 1610252; FOR$_F6312 = 1610260; FOR$_F6313 = 1610268; FOR$_F6314 = 1610276; FOR$_F6315 = 1610284; FOR$_F6316 = 1610292; FOR$_F6317 = 1610300; FOR$_F6318 = 1610308; FOR$_F6319 = 1610316; FOR$_F6400 = 1610324; FOR$_F6401 = 1610332; FOR$_F6402 = 1610340; FOR$_F6403 = 1610348; FOR$_F6404 = 1610356; FOR$_F6405 = 1610364; FOR$_F6406 = 1610372; FOR$_F6407 = 1610380; FOR$_F6408 = 1610388; FOR$_F6409 = 1610396; FOR$_F6410 = 1610404; FOR$_F6411 = 1610412; FOR$_F6412 = 1610420; FOR$_F6413 = 1610428; FOR$_F6414 = 1610436; FOR$_F6415 = 1610444; FOR$_F6416 = 1610452; FOR$_F6417 = 1610460; FOR$_F6418 = 1610468; FOR$_F6419 = 1610476; FOR$_F6420 = 1610484; FOR$_F6421 = 1610492; FOR$_F6422 = 1610500; FOR$_F6423 = 1610508; FOR$_F6424 = 1610516; FOR$_F6425 = 1610524; FOR$_F6500 = 1610532; FOR$_F6501 = 1610540; FOR$_F6502 = 1610548; FOR$_F6503 = 1610556; FOR$_F6504 = 1610564; FOR$_F6505 = 1610572; FOR$_F6506 = 1610580; FOR$_F6507 = 1610588; FOR$_F6508 = 1610596; FOR$_F6509 = 1610604; FOR$_F6510 = 1610612; FOR$_F6511 = 1610620; FOR$_F6512 = 1610628; FOR$_F6513 = 1610636; FOR$_F6514 = 1610644; FOR$_F6515 = 1610652; FOR$_F6516 = 1610660; FOR$_F6600 = 1610668; FOR$_F6601 = 1610676; FOR$_F6602 = 1610684; FOR$_F6700 = 1610692; FOR$_F6701 = 1610700; FOR$_F6970 = 1610708; FOR$_F6971 = 1610716; FOR$_F6972 = 1610724; FOR$_F6980 = 1610732; FOR$_F6981 = 1610740; FOR$_F6982 = 1610748; FOR$_F6983 = 1610756; FOR$_F6984 = 1610764; FOR$_F6985 = 1610772; FOR$_F6986 = 1610780; FOR$_F6987 = 1610788; FOR$_F6988 = 1610796; FOR$_F6989 = 1610804; FOR$_F6990 = 1610812; FOR$_F6991 = 1610820; FOR$_F6992 = 1610828; FOR$_F6993 = 1610836; FOR$_F6994 = 1610844; FOR$_F6995 = 1610852; FOR$_F6996 = 1610860; FOR$_F6997 = 1610868; FOR$_F6998 = 1610876; FOR$_F6999 = 1610884; FOR$_F6702 = 1610892; FOR$_F6703 = 1610900; FOR$_F6704 = 1610908; FOR$_F6705 = 1610916; FOR$_F6706 = 1610924; FOR$_F6707 = 1610932; FOR$_F6708 = 1610940; FOR$_F6709 = 1610948; FOR$_F6710 = 1610956; FOR$_F6711 = 1610964; FOR$_F6712 = 1610972; FOR$_F6713 = 1610980; FOR$_F6714 = 1610988; FOR$_F6715 = 1610996; FOR$_F6716 = 1611004; FOR$_F6717 = 1611012; FOR$_F6718 = 1611020; FOR$_F6719 = 1611028; FOR$_F6720 = 1611036; FOR$_F6721 = 1611044; FOR$_F6722 = 1611052; FOR$_F6723 = 1611060; FOR$_F6724 = 1611068; FOR$_F6725 = 1611076; FOR$_F6726 = 1611084; FOR$_F6727 = 1611092; FOR$_F6728 = 1611100; FOR$_F6729 = 1611108; FOR$_F6730 = 1611116; FOR$_F6731 = 1611124; FOR$_F6732 = 1611132; FOR$_F6733 = 1611140; FOR$_F6734 = 1611148; FOR$_F6735 = 1611156; FOR$_F6736 = 1611164; FOR$_F6737 = 1611172; FOR$_F6738 = 1611180; FOR$_F6739 = 1611188; FOR$_F6740 = 1611196; FOR$_F6741 = 1611204; FOR$_F6742 = 1611212; FOR$_F6743 = 1611220; FOR$_F6744 = 1611228; FOR$_F6745 = 1611236; FOR$_F6746 = 1611244; FOR$_F6747 = 1611252; FOR$_F6748 = 1611260; FOR$_F6749 = 1611268; FOR$_F6750 = 1611276; FOR$_F6751 = 1611284; FOR$_F6752 = 1611292; FOR$_F6753 = 1611300; FOR$_F6754 = 1611308; FOR$_F6755 = 1611316; FOR$_F6756 = 1611324; FOR$_F6757 = 1611332; FOR$_F6758 = 1611340; FOR$_F6759 = 1611348; FOR$_F6760 = 1611356; FOR$_F6761 = 1611364; FOR$_F6762 = 1611372; FOR$_F6763 = 1611380; FOR$_F6764 = 1611388; FOR$_F6765 = 1611396; FOR$_F6766 = 1611404; FOR$_F6767 = 1611412; FOR$_F6768 = 1611420; FOR$_F6769 = 1611428; FOR$_F6770 = 1611436; FOR$_F6771 = 1611444; FOR$_F6772 = 1611452; FOR$_F6773 = 1611460; FOR$_F6774 = 1611468; FOR$_F6775 = 1611476; FOR$_F6776 = 1611484; FOR$_F6777 = 1611492; FOR$_F6778 = 1611500; FOR$_F6779 = 1611508; FOR$_F6780 = 1611516; FOR$_F6781 = 1611524; FOR$_F6782 = 1611532; FOR$_F6783 = 1611540; FOR$_F6784 = 1611548; FOR$_F6785 = 1611556; FOR$_F6786 = 1611564; FOR$_F6787 = 1611572; FOR$_F6788 = 1611580; FOR$_F6789 = 1611588; FOR$_F6790 = 1611596; FOR$_F6791 = 1611604; FOR$_F6792 = 1611612; FOR$_F6793 = 1611620; FOR$_F6794 = 1611628; FOR$_F6795 = 1611636; FOR$_F6796 = 1611644; FOR$_F6797 = 1611652; FOR$_F6798 = 1611660; FOR$_F6799 = 1611668; FOR$_F6800 = 1611676; FOR$_F6801 = 1611684; FOR$_F6802 = 1611692; FOR$_F6803 = 1611700; FOR$_F6804 = 1611708; N(* END OF SPECIAL MISCROSOFT ERROR MESSAGES *)N(* ********** *) CONST FOR$_INVLOGNAM = 1611778; FOR$_TOOMANPRC = 1611786; FOR$_INVDSTRSIZE = 1611794; FOR$_DEFVALUSED = 1615875; FOR$_UNIPROCESS = 1615883; FOR$_NOPARINIT = 1615891; FOR$_NOTRUNINPP = 1615899; FOR$_NEST PPLOOP = 1615907; FOR$_UNAWAKSUB = 1615915; N(* END OF FORRTL2 MESSAGES *)N(* ********** *) N(* END. *) N(* MODULE JBCMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535;  *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;  *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647;  *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $JBCMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.20 *)N(* *)N(* *)J(* VERSION: 'X-5'  *)N(* *)O(* ************************************************************************* *)O(* * * *)O(* * COPYRIGHT 2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *)O(* * * *)O(* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR * *)O(* * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. * *)O(* * * *)O(* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *)O(* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *)O(* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *)O(* * COMMERCIAL LICENSE. * *)O(* * * *)O(* * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL * *)O(* * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION * *)O(* * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND * *)O(* * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS * *)O(* * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING * *)O(* * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN * *)O(* * ADDITIONAL WARRANTY. * *)O(* * * *)O(* ************************************************************************* *)N(* *)N(* MODIFIED BY: *)N(*  *)N(* X-5 CAK ASWIN CHALUPADI 28-FEB-2006 *)N(* ADD NEW LMFLICERR TO SIGNAL WHEN NON-COMPLIANT LICENSE *)S(* IS DETECTED. ALSO ADD TWO OTHER GENERIC ERRORS FOR FURTHER USE. *)N(* *):(* X-4 DJS DAVID J. SWEENEY 16-FEB-2001 *)B(* ADD NOTIMZONRUL TO BE SIGNALLED WHEN THE SYS$TIMEZONE_RULE *)B(* LOGICAL IS NOT DEFINED, MEANING DAYLIGHT SAVINGS TIME CLOCK *)B(* ADJUSTMENT WILL NOT BE MADE. *)N(* *)N(* X-3 LAD LORI A. DESMARAIS 03-JUN-1993 *)N(* ADD ACCNOTENB, TO BE USED WHEN ACCOUNTING IS DISABLED AND *)N(* SJC$_NEW_VERSION ITEM IS PRESENT. *)N(*  *)5(* X-2 RAB RICHARD A. BISHOP 19-MAY-1992 *)B(* PICK UP QMANABORT MESSAGE FROM BLADE: *)N(* *)3(* X-18 TNF0319 TODD FLOLO 12 FEB 1992 *)F(* ADD QMANABORT, DENOTING THAT A REQUEST CAUSED THE QUEUE MANAGER *)B(* TO ABORT. *)N(* *)I(* OLD AUDIT TRAIL..... *)N(* *)>(* X-17 RG40209 RAY GUZMAN 11-NOV-1991 *)E(* ADD THREE NEW MESSAGES TO RETURN TO THE USER. QMGREXISTS IS *)E(* RETURNED WHEN AN ATTEMPT TO ADD A QUEUE MANAGER NAME THAT IS *)E(* ALREADY DEFINED IS MADE. TWOQMGRS IS RETURNED WHEN A REQUEST *)E(* IS MADE THAT WOULD REQUIRE INFORMATION FROM TWO DIFFERENT *)E(* QUEUE MANAGERS. INVQMANNAM IS RETURNED FOR INVALIDE QUEUE *)G(* MANAGER NAMES. NOMOREQMGR IS RETURNED DURING WILDCARD SEARCHES. *)N(* *)>(* X-16 RG40126 RAY GUZMAN 4-APR-1991 *)E(* MODIFY THE TEXT OF TWO MESSAGES INVMSG, NOAUTOSTART & *)E(* QUEDISABLED. ALSO REMOVE BADMSG, NOMASTER, & BADLOCK FROM *)E(* THIS FILE SINCE THEY ARE NO LONGER USEFUL AND NEVER WENT WITH *)E(* ANY SHIPPED RELEASE. ALSO ADD FAILCREPRC TO THE LIST OF *)B(* MESSAGES TO BE SIGNALLED. *)N(* *)>(* X-15 RG40063 RAY GUZMAN 8-FEB-1991 *)E(* ADD TWO NEW MESSAGES ONE FOR UNEXPECTED QUEUE MANAGER FAILURES *)B(* AND ANOTHER FOR RESOLVING LOST DELPROC MESSAGES. *)N(* *)>(* X-14 RG40052 RAY GUZMAN 22-JAN-1991 *)B(* MODIFY JBC$_NOTSUPPORTED TO BE A SEVERE ERROR. *)N(* *)>(* X-13 RG40043 RAY GUZMAN 11-JAN-1991 *)E(* ADD BUFTOOSMALL TO INDICATE THAT ALL THE DESIRED DATA COULD *)E(* NOT BE RETURNED BECAUSE OF A LIMITTED BUFFER SIZE. ALSO ADD *)E(* QMANNOTSTARTED TO INDICATE THAT THE QUEUE MANAGER COULD NOT BE *)B(* STARTED. *)N(* *)?(* X-12 SEH0032 SUSAN HEIMBACH 6-SEP-1990 *)B(* MODIFY NOTSUPPORTED AND TOOMUCHINFO. *)N(* ADD INITFAIL AND NOMASTER. *)N(* *)?(* X-11 SEH0020 SUSAN HEIMBACH 12-OCT-1989 *)B(* ADD MESSAGES FOR VERSION 6. *)N(* *):(* X-10 JAK0579 J A KRYCKA 18-NOV-1987 *)B(* ADD MESSAGE JOBCTLABORT. *)N(* *);(* X-9 JES0038 JACK SPEIGHT 07-JAN-1987 *)B(* ADD NEW ERRORS - NOSUCHENT, NOMOREENT. *)N(*  *)>(* X-8 JES0037 JACK SPEIGHT 23-OCT-1986 *)B(* FIX ERROR NFYQUESTATE TO ALLOW A PARAMETER, WHERE *)B(* THAT PARAMETER WILL BE USED TO SPECIFY A NUMBER *)B(* OF QUEUE STATES - STALLED, STOPPED, PAUSED ETC. *)N(* *);(* X-7 JES0036 JACK SPEIGHT 08-SEP-1986 *)B(* ADD NEW MESSAGES FOR VERSION 5.0 - BASE LEVEL 1. *)N(* *)?(* V04-007 JES0035 JACK SPEIGHT 04-OCT-1985 *)B(* CHANGE TEXT FOR JBC$_NOSUCHNODE. *)N(* *)?(* V04-006 JES0034 JACK SPEIGHT 05-SEP-1985 *)B(* ADD JBC$_NOSUCHNODE, JBC$_RESTARTCOM. *)N(*  *)=(* V04-005 JAK0407 J A KRYCKA 29-APR-1985 *)C(* MOVE JBC$_NOCMKRNL, JBC$_NOOPER, AND JBC$_SYSNAM DEFINITIONS *)B(* HERE FROM JOBCTLDEF.REQ. *)N(* *)=(* V04-004 JAK0405 J A KRYCKA 26-APR-1985 *)B(* ADD JBC$_NOMORECHAR, JBC$_NOMOREFILE, JBC$_NOMOREFORM, *)G(* JBC$_NOMOREJOB, JBC$_NOMOREQUE, JBC$_NOJOBCTX, AND JBC$_NOQUEC TX *)B(* MESSAGES. *)N(* *)?(* V04-003 JES0033 JACK SPEIGHT 26-APR-1985 *)B(* SPECIFY AN EXPLICIT SEVERITY LEVEL FOR EACH ERROR MESSAGE *)B(* SO THAT THE DEFINITIONS HERE AGREE WITH WHAT IS ACTUALLY *)E(* RETURNED BY THE JOB CONTROLLER IN THE USER'S I/O STATUS BLOCK. *)C(* PRIOR TO THIS CHANGE ALL NON-SUCCESS CODES WERE DEFINED HERE *)D(* WITH A SEVERITY LEVEL OF WARNING AND THE JOB CONTROLLER ADDED *)B(* THE PROPER SEVERITY LEVEL. ALSO MAKE MINOR EDITS TO CERTAIN *)B(* MESSAGE TEXT. *)B(* *)B(* V04-002 JES0032 JACK SPEIGHT 03-APR-1985 *)B(* ADD JBC$_RESTRICT, JBC$_NFY_FAILURE, JBC$_NFY_CPULIM, *)B(* AND JBC$_NFY_WSVAL MESSAGES. *)N(*  *)B(* V04-001 JES0031 JACK SPEIGHT 15-MAR-1985 *)B(* ADD JBC$_QUENOTSTOP MESSAGE. *) CONST JBC$_FACILITY = 4; N(* *)T(* THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB *)N(* SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. *)N(*  *)N(* THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. *)N(* *)S(* NOTE: ERROR CODES WITH ASSOCIATED TEXT OF <> ARE RETIRED ERROR CODES AND HAVE *)I(* A SEVERITY LEVEL OF SEVERE. *)N(* *) LCONST JBC$_NORMAL = 262145; (* *)L JBC$_NOCMKRNL = 272386; (* *)J JBC$_NOOPER = 272530; (* *)L JBC$_NOSYSNAM = 272402; (* *) JBC$_ILLDEVNAM = 294916; JBC$_UNSDEVTYP = 294924; JBC$_ILLFILNAM = 294932; JBC$_INVQUENAM = 294940; JBC$_NOPRIV = 294946; JBC$_NOQUEHDR = 294956; JBC$_NOQUESPACE = 294962; JBC$_NOSUCHQUE = 294970; JBC$_NOSUCHJOB = 294978; JBC$_NOOPENJOB = 294986; JBC$_REFERENCED = 294994; JBC$_STARTED = 295002; JBC$_INVITMCOD = 295012; JBC$_INVFUNCOD = 295020; JBC$_EMPTYJOB = 295026; JBC$_JOBQUEDIS = 295034; JBC$_JOBABORT = 295044; JBC$_ACMINVOP = 295052; JBC$_INVPARLEN = 295060; JBC$_TRMMBXUSE = 295068; JBC$_MAXSYMEXD = 295076; JBC$_SCTTABFUL = 295084; JBC$_CREPRCFAL = 295092; JBC$_SYMNTBFUL = 295100; JBC$_NODSTQUE = 295106; JBC$_INVDSTQUE = 295116; JBC$_JOBDELETE = 295124; JBC$_NORESTART = 295130; JBC$_JOBREQUEUE = 295140; JBC$_QUERESET = 295148; JBC$_SYSFAIL = 295156; JBC$_EXECUTING = 295162; JBC$_INVMSGBUF = 295172; JBC$_MISREQPAR = 295180; JBC$_INVPARVAL = 295188; JBC$_INCQUETYP = 295196; JBC$_INCDSTQUE = 295204; JBC$_JOBQUEENA = 295210; JBC$_NOTASSIGN = 295218; JBC$_INCOMPLETE = 295226; JBC$_INVCHANAM = 295236; JBC$_INVFORNAM = 295244; JBC$_NOSUCHCHAR = 295250; JBC$_NOSUCHFORM = 295258; JBC$_DUPFORM = 295266; JBC$_INCFORMPAR = 295276; JBC$_NOSUCHFILE = 295282; JBC$_DELACCESS = 295290; JBC$_QUENOTSTOP = 295298; JBC$_NOMORECHAR = 295306; JBC$_NOMOREFILE = 295314; JBC$_NOMOREFORM = 295322; JBC$_NOMOREJOB = 295330; JBC$_NOMOREQUE = 295338; JBC$_NOJOBCTX = 295346; JBC$_NOQUECTX = 295354; JBC$_NOSUCHNODE = 295362; JBC$_GEN_MAX = 295370; JBC$_QUE_CLOSED = 295378; JBC$_NOSUCHENT = 295386; JBC$_NOMOREENT = 295394; JBC$_JOBCTLABORT = 295404; JBC$_NOTSUPPORTED = 295412; JBC$_NOTMEANINGFUL = 295419; JBC$_QUEDISABLED = 295426; JBC$_NOTDISABLED = 295434; JBC$_NOTENAGEN = 295442; JBC$_ENABLEQUE = 295448; JBC$_QUENOTMOD = 295459; JBC$_ATT_MAX = 295466; JBC$_ATTNOTAVAIL = 295474; JBC$_QEXISTS = 295482; JBC$_NOSUCHQMGR = 295490; JBC$_JOBNOTEXEC = 295498; JBC$_DUPCHARNAME = 295506; JBC$_DUPCHARNUM = 295514; JBC$_DUPFORMNAME = 295522; JBC$_STKNOTCHANGE = 295530; JBC$_ITMREMOVED = 295539; JBC$_PRIOSMALL = 295547; JBC$_QMANMAX = 295552; JBC$_NOAUTOSTART = 295560; JBC$_NOTALLREQUE = 295568; JBC$_NULL1 = 295580; JBC$_TOOMUCHINFO = 295586; JBC$_AUTONOTSTART = 295595; JBC$_NULL2 = 295602; JBC$_QMANNOTSTARTED = 295610; JBC$_BUFTOOSMALL = 295616; JBC$_INTERNALERROR = 295624; JBC$_QMGREXISTS = 295634; JBC$_TWOQMGRS = 295642; JBC$_INVQMANNAM = 295650; JBC$_NOMOREQMGR = 295658; JBC$_QMANABORT = 295668; N(* *)Q(* THE FOLLOWING CODES ARE SIGNALLED TO THE CONSOLE OR BROADCAST TO THE USER'S *)N(* TERMINAL BY THE JOB CONTROLLER. *)N(* *)N(* THESE MESSAGES ARE NOT PUBLIC AND MAY CHANGE FROM RELEASE TO REALEASE. *)N(* *)R(* NOTE: THE JOB CONTROLLER ABORTS EXECUTION AND RESTARTS ITSELF WHEN A SEVERE *)I(* ERROR IS SIGNALLED TO THE CONSOLE.  *)N(* *) CONST JBC$_ACCDISERR = 295939; JBC$_ALLOCMEM = 295948; JBC$_COMREMJBC = 295956; JBC$_INVBLOCK = 295964; JBC$_INVMSG = 295970; JBC$_NEWQUEUE = 295979; JBC$_OPEJBCMBX = 295988; JBC$_PRCREAT = 295996; JBC$_QUEFORMAT = 296000; JBC$_REAJBCMBX = 296012; JBC$_REQUEST = 296019; JBC$_SETIMR = 296026; JBC$_SYMCREPRC = 296034; JBC$_SYMDEL = 296042; JBC$_WRIRSPMSG = 296050; JBC$_WRISMBMBX = 296058; JBC$_NFY_COMPLETE = 296067; JBC$_NFY_CURRENT = 296075; JBC$_NFY_HOLD = 296083; JBC$_NFY_PENDING = 296091; JBC$_NFY_TIMER = 296099; JBC$_STRUCT_LEVEL = 296107; JBC$_DIAGNOSTIC = 296112; JBC$_DIAG_TEXT = 296120; JBC$_DIAG_DATA = 296128; JBC$_RESTRICT = 296136; JBC$_NFY_FAILURE = 296147; JBC$_NFY_CPULIM = 296155; JBC$_NFY_WSVAL = 296163; JBC$_RESTARTCOM = 296171; JBC$_NFY_NOACCESS = 296179; JBC$_NFY_CHARAC = 296187; JBC$_NFY_NOLOWER = 296195; JBC$_NFY_SIZE_MIN = 296203; JBC$_NFY_SIZE_MAX = 296211; JBC$_NFY_FORM = 296219; JBC$_NFY_QUESTATE = 296227; JBC$_FAILCREPRC = 296234; JBC$_QMANCREPRC = 296242; JBC$_INITFAIL = 296252; JBC$_QMANDEL = 296258; JBC$_NOTIMZONRUL = 296264; JBC$_LMFPRCFAIL = 296272; JBC$_LMFLICERR = 296280;G JBC$_LMFERROR = 296288; (* *) N(* THIS IS CONTINUATION OF THE FIRST PORTION OF MESSAGES. *)T(* THE FOLLOWING CODES ARE RETURNED BY THE $ SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB *)N(* SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. *)N(* *)N(* THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. *)N(* *) CONST JBC$_ACCNOTENB = 298914; N(* END. *) N(* MODULE LATMSG ;  *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD  *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END;  *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3;  *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767;  *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [ BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LATMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:22.01 *)N(*  *)N(* MODULE: LATMSG.MSG *)N(* VERSION: 'V6.0-064' *)N(* *)Q(***************************************************************************** *)(** * *)L(** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1987, 1990-1995 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF  THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(**  * *)Q(***************************************************************************** *)N(* *)0(* V6.0-064 MICHAEL D. RASPUZZI 16-JAN-1995 *)B(* ADD ERROR MESSAGE FOR INVALID PORT NAME. *)N(* *)0(* V6.0-063 MICHAEL D. RASPUZZI 14-SEP-1994 *)B(* ADD ERROR MESSAGE FOR INVALID NODE UID. *)N(*  *)0(* V6.0-062 MICHAEL D. RASPUZZI 16-MAY-1994 *)B(* ADD ERROR MESSAGES FOR NEW LAT RATING IMAGE. THIS MESSAGES *)B(* ARE USED TO INDICATE THE STATE OF THE LAT$RATING IMAGE. IT *)B(* SHOULD BE LOADED CORRECTLY IF THE SYSTEM USED THE PROPER *)B(* LAT STARTUP. HOWEVER, WE ALL KNOW THAT PEOPLE LIKE TO DO *)B(* THINGS THEIR OWN WAY ... *)N(*  *)0(* V05-061 MICHAEL D. RASPUZZI 22-FEB-1994 *)B(* ADD NEW REJECT REASON FOR LTPAD. MATCHES DECSERVER REJECT *)B(* REASON FOR SAME FUNCTIONALITY. *)N(* *)0(* V05-060 MICHAEL D. RASPUZZI 6-JAN-1994 *)B(* ADD NEW CONNECT MESSAGE FOR LTPAD WHEN DISCONNECT *)B(* CHARACTER IS DISABLED. *)N(*  *)0(* V05-059 MICHAEL D. RASPUZZI 30-AUG-1993 *)B(* ADD NEW MESSAGE FOR INCOMPATIBLE PROTOCOL VERSION. *)N(* *)0(* V05-058 MICHAEL D. RASPUZZI 3-MAY-1993 *)B(* ADDED INCOMPATIBLE DRIVER/ACP ERROR CODE. *)N(* *)0(* V05-057 MICHAEL D. RASPUZZI 16-APR-1993 *)B(* ADD MORE CONNECT FAILURE MESSAGES. *)N(* *)0(* V05-056 MICHAEL D. RASPUZZI 8-SEP-1992 *)B(* ADD MESSAGE FOR DELETING CONNECTION. *)N(* *)0(* V05-055 MICHAEL D. RASPUZZI 28-AUG-1992 *)B(* ADD INFORMATIONAL ERROR MESSAGE FOR LTPAD TO QUEUE *)B(* QUEUE POSITION REPORTING.  *)N(* *)/(* V05-54 MICHAEL D. RASPUZZI 19-AUG-1992 *)B(* ADD ERROR MESSAGE WHEN ONE TRIES TO RUN LATACP IMPROPERLY. *)N(* *)/(* V05-53 MICHAEL D. RASPUZZI 3-AUG-1992 *)B(* ADD INFORMATIONAL RETURN FOR LIMITED SERVICE CONNECTION. *)N(* *)/(* V05-52 MICHAEL D. RASPUZZI 24-JUL-1992 *)B(* ADD "no active links" ERROR. *)N(* *)/(* V05-51 MICHAEL D. RASPUZZI 13-JAN-1992 *)B(* ADD MISSING LRJ REASON CODES. *)N(* *)/(* V05-50 MICHAEL D. RASPUZZI 4-NOV-1991 *)B(* ADD CONNECT SOLICIT CODE FOR REGULAR CONNECTIONS. *)N(* *)/(* V05-49 MICHAEL D. RASPUZZI 5-SEP-1991 *)B(* ADD LAN DRIVER ERROR MESSAGE SO LAT WON'T START IF VCI *)B(* DRIVERS ARE ABSENT. *)N(* *)/(* V05-48 MICHAEL D. RASPUZZI 19-JUN-1991 *)B(* MAKE SDL MODULE NAME $LATMSGDEF TO PREVENT CONFLICTS WITH *)B(* REAL $LATDEF THAT IS IN STARLET.  *)N(* *),(* V05-47 ERIC L. MERSHON 10-MAY-1991 *)B(* MAKE GRAMMATICAL CHANGE TO DRIVERNOTSHUT AS REQUESTED BY *)B(* VMS DOC WRITER. *)N(* *),(* V05-46 ERIC L. MERSHON 4-APR-1991 *)B(* MAKE COSMETIC CHANGES RECOMMENDED BY VMS DOCUMENTATION. *)N(*  *)/(* V05-45 MICHAEL D. RASPUZZI 8-MAR-1991 *)B(* ADD MESSAGE FOR X SOLICIT REQUESTS. *)N(* *)/(* V05-44 MICHAEL D. RASPUZZI 19-JAN-1991 *)B(* ADD QUEUED ENTRY MESSAGES. *)N(* *)/(* V05-43 MICHAEL D. RASPUZZI 31-DEC-1990 *)B(* ADD CONNECTION MESSAGES AND CHANGE "server mode disabled". *)N(* *)&(* V05-42 SHOOU YIU 28-NOV-1990 *)B(* ADD MESSAGE FOR LINK NAME THAT IS TOO LONG *)N(* *),(* V05-41 ERIC L. MERSHON 25-OCT-1990 *)B(* REMOVE LNKOBS, SRVRSOBS, AND PRTOBS. ADD QUALOBS, CMDOBS. *)N(*  *)/(* V05-40 MICHAEL D. RASPUZZI 13-SEP-1990 *)B(* ADD MESSAGES WHEN NODE IS SHUTTING DOWN OR INCOMING *)B(* CONNECTIONS ARE DISABLED. *)N(* *)*(* V05-39 DAVID H. COOK 27-AUG-1990 *)B(* ADD NODECNTRSONLY MSG FOR SENSEMODE. *)N(* *),(* V05-38 ERIC L. MERS HON 25-JUL-1990 *)B(* ADD CONATMPT AND REMOVE CAPITILIZATION OF THE BEGINNING OF *)B(* SOME MESSAGES. *)N(* *),(* V05-37 ERIC L. MERSHON 27-JUN-1990 *)B(* REMOVE QUOTES FROM TODISCON, AND ADD CONFQUAVAL. *)N(* *),(* V05-36 ERIC L. MERSHON 13-JUN-1990 *)B(* ADD CNTRSOBS, SRVRSOBS, AND PRTOBS. *)N(* *),(* V05-35 ERIC L. MERSHON 15-MAY-1990 *)B(* ADD DEFINEKEY. *)N(* *),(* V05-34 ERIC L. MERSHON 30-JAN-1990 *)B(* ADD LNKOBS. *)N(* *),(* V05-33 ERIC L. MERSHON 12-JAN-1990 *)B(* MODIFIED TODISCON TO ACCEPT AN FAO PARAMETER TO DISPLAY *)B(* USER'S CUSTOMIZED DISCONNECT CHARACTER (FOR LTPAD). *)N(* *)/(* V05-32 MICHAEL D. RASPUZZI 9-JAN-1990 *)B(* ADD DRIVERNOTSHUT MESSAGE *)N(* *),(* V05-31 JAMES F. CAHILL 15-NOV-1989 *)B(* ADD NEWLOGNAME FOR CREATE PORT/LOG/LOGICAL_NAME *)N(* *)/(* V05-30 MICHAEL D. RASPUZZI 16-OCT-1989 *)B(* ADD VERMISMATCH SO WE CAN USE TO BUILD OLD COMPONENTS *)N(* *),(* V05-29 JAMES F. CAHILL 16-OCT-1989 *)B(* ADD LATCP MESSAGES TO SUPPORT /LOG QUALIFIER. *)N(*  *)*(* V05-28 DAVID H. COOK 06-OCT-1989 *)B(* ADD ACPNOCTL, ACPNOKSTK, ACPNOVIRT, NODLIMIT. *)N(* *)*(* V05-27 DAVID H. COOK 18-SEP-1989 *)B(* ADD NOMORENODS, NOMORESVCS, NOSELF, NOTOFFERED. *)N(* *)*(* V05-26 DAVID H. COOK 04-AUG-1989 *)B(* ADD ENTNOTFOU.  *)N(* *),(* V05-25 JAMES F. CAHILL 24-JUL-1989 *)B(* ADD CANTATTACH. *)N(* *)2(* V05-24 ELM032 ERIC L. MERSHON 21-JUL-1989 *)B(* CHANGED FAO PARAMETER OF END TO ASCID. *)N(* *)2(* V05-23 ELM023 ERIC L. MERSHON 29-JUN-1989 *)B(* REMOVED FAO ARGUMENTS FROM FAILOVER. *)N(* *),(* V05-22 JAMES F. CAHILL 21-JUN-1989 *)B(* ADD CONTROLC. *)N(* *)2(* V05-21 ELM012 ERIC L. MERSHON 6-JUN-1989 *)B(* REMOVED NORESP AND ADDED TODISCON. *)N(* *)0(* V05-19 DHC002 DAVID H. COOK 30-MAY-1989 *)B(* CREATE AN LAT SHUTDOWN MESSAGE. *)N(* *)2(* V05-17 ELM011 ERIC L. MERSHON 23-MAY-1989 *)B(* CHANGE CONNECTED TO HAVE A SEVERITY LEVEL INDICATOR OF *)B(* SUCCESS. ADD FLEXIBILITY TO SAME MESSAGE FOR CONNECTIONS *)C(* TO NODES WHICH HAVE THE SAME NAME AS THE SERVICE THEY OFFER. *)N(* *)+(* V05-16 SY001 SHOOU YIU 16-MAY-1989 *)B(* ADD MESSAGES USED BY LTDRIVER MODULES *)N(* *)2(* V05-15 ELM010 ERIC L. MERSHON 16-MAY-1989 *)B(* ADD REMAINING (HOPEFULLY) LAT REJECT CODES AND PWDPROMPT, *)B(* USED FOR PASSWORD PROMPTING ON PASSWORD PROTECTED SERVICES. *)N(*  *)-(* V05-014 JAMES F. CAHILL 2-MAY-1989 *)B(* CHANGE SEVERITY OF REINITERR AND DRVERROR. RENAME NOTERM *)C(* TO NOTATERM TO AVOID CONFUSION WITH EXISING MESSAGE NOTERMS. *)N(* *)3(* V05-013 ELM009 ERIC L. MERSHON 1-MAY-1989 *)B(* ADD NOTERM MESSAGE. *)N(*  *)3(* V05-012 ELM008 ERIC L. MERSHON 28-APR-1989 *)B(* ADD CTRL/Y MESSAGE, AND REMOVE SECOND FAO ARGUMENTS FROM *)B(* CONFAIL AND CONLOST. *)N(* *)3(* V05-011 ELM007 ERIC L. MERSHON 18-APR-1989 *)C(* ADD MESSAGES FOR LTPAD, AND CLEAN OUT MESSAGES INTENDED, BUT *)B(* NO LONGER NEEDED FOR DDE. *)N(*  *)-(* V05-010 JAMES F. CAHILL 10-APR-1989 *)B(* CHANGE CMDERROR AND INVCMD FROM ERRORS TO WARNINGS. *)N(* *)-(* V05-009 JAMES F. CAHILL 9-MAR-1989 *)B(* SHARED MESSAGE INVCMD NOT FOUND, SO ADD LAT$_INVCMD. *)N(* *)-(* V05-008 JAMES F. CAHILL 9-MAR-1989 *)B(* ADD OUTOFRANGE, REMOVE PRSERROR. *)N(* *)3(* V05-007 ELM006 ERIC L. MERSHON 8-MAR-1989 *)B(* MERGE IN MESSAGES FROM LAT$MESSAGES AND ADD MORE *)B(* DECSERVER EMULATOR MESSAGES. *)N(* *)3(* V05-006 ELM005 ERIC L. MERSHON 25-FEB-1989 *)B(* ADD MESSAGES FOR DECSERVER EMULATOR SESSION CONTROL *)N(* *)3(* V05-005 ELM002 ERIC L. MERSHON 15-FEB-1989 *)B(* ADD DECSERVER EMULATOR MESSAGES *)N(* *)2(* V05-004 DHC0001 DAVID H. COOK 18-NOV-1988 *)B(* ADD ACP MSGS *)N(*  *)4(* V05-003 JFC0025 JAMES F. CAHILL 7-SEP-1988 *)B(* ADD TWO MESSAGES FOR LMF *)N(* *)4(* V05-002 JFC0015 JAMES F. CAHILL 10-AUG-1987 *)B(* FIX CAPITALIZATION PROBLEMS *)N(* *);(* V05-001 (VARIOUS AUTHORS) *)B(* INITIAL VERSION  *)N(* *)N(* THIS FILE REPRESENTS THE MERGE OF ERROR MESSAGES FOR LATCP, LAT, AND LGU *)N(* LATCP MESSAGES APPEAR FIRST AS THIS FACILITY HAS BEEN SHIPPED. WHILE THE *)N(* ERROR NAMES ARE CHANGED WITH THE ASSIGNMENT OF A LAT FACILITY CODE, THE *)N(* ERROR MESSAGE NUMBERS/MEANINGS ARE NOT. NEW ERROR MESSAGES ARE ADDED *)N(* AT THE SECTION BELOW WHERE .BASE VALUES HAVE BEEN ASSIGNED.  *)N(* *) CONST LAT$_FACILITY = 374; LAT$_CMDBUFOVFLW = 24543244; LAT$_CANTBIND = 24543250; LAT$_IVCMD = 24543258; LAT$_IVDEV = 24543266; LAT$_IVQUAL = 24543274; LAT$_MAXSERV = 24543282; LAT$_NOTERMS = 24543290; LAT$_NONODE = 24543298; LAT$_NOTLOADED = 24543306; LAT$_NOTINITED = 24543314; LAT$_NOTSTARTED = 24543322; LAT$_NOTSTOPPED = 24543330; LAT$_NOTSET = 24543338; LAT$_NOHISTORY = 24543346; LAT$_NOSTARTHIST = 24543354; LAT$_NOSUCHSERV = 24543362; LAT$_NOTFROMLAT = 24543370; LAT$_INTERNAL = 24543378; LAT$_SERVEXISTS = 24543386; LAT$_LOCKED = 24543394; LAT$_UNDEFLINK = 24543402; LAT$_LINKEXISTS = 24543410; LAT$_LINKACTIVE = 24543418; LAT$_MAXLINKS = 24543426; LAT$_IVPORT = 24543434; LAT$_NOLINK = 24543440; LAT$_STARTED = 24543451; LAT$_STOPPED = 24543459; LAT$_SET = 24543467; LAT$_NOSERVERS = 24543475; N(*  *)N(* NEW MESSAGES ARE ADDED ONLY IN THE SECTIONS BELOW *)N(* *) !CONST LAT$_ALREADYDEF = 24544835; LAT$_NOTDEF = 24544843; LAT$_NOCONTEXT = 24544851; LAT$_RELNOTES = 24544859; LAT$_ACPINIT = 24544867; LAT$_ACPSTATS = 24544875; LAT$_FAILOVER = 24544883; LAT$_DISCONNECTED = 24544891; LAT$_LOSTMSG = 24544899; LAT$_PWDPROT = 24544907; LAT$_OUTOFRANGE = 24544915; LAT$_END = 24544923; LAT$_CTRLY = 24544931; LAT$_PWDPROMPT = 24544939; LAT$_TODISCON = 24544947; LAT$_CONTROLC = 24544955;G LAT$_NEWLINK = 24544963; (* CREATE /LOG MESSAGES *) LAT$_NEWPORT = 24544971; LAT$_NEWSERVICE = 24544979; LAT$_NEWLOGNAME = 24544987;G LAT$_DELLINK = 24544995; (* DELETE /LOG MESSAGES *) LAT$_DELPORT = 24545003; LAT$_DELSERVICE = 24545011; LAT$_DELENTRY = 24545019;G LAT$_MODLINK = 24545027; (* SET /LOG MESSAGES *) LAT$_MODPORT = 24545035; LAT$_MODSERVICE = 24545043; LAT$_MODNODE = 24545051;G LAT$_ZEROLINK = 24545059; (* ZERO /LOG MESSAGES *) LAT$_ZEROPORT = 24545067; LAT$_ZEROSERVICE = 24545075; LAT$_ZERONODE = 24545083; LAT$_DEFINEKEY = 24545091; LAT$_CONATMPT = 24545099; LAT$_NODECNTRSONLY = 24545107; LAT$_CONNECTLIMITED = 24545115; LAT$_CONNECTQUEUED = 24545123; LAT$_DELETEDCONN = 24545131; LAT$_NODISCON = 24545139; LAT$_NAMETOOLONG = 24546434; LAT$_LOGSTOPPED = 24546442; LAT$_CONTEXTINIT = 24546450; LAT$_ILLSTRUCT = 24546458; LAT$_CONSISTANCY = 24546466; LAT$_NOCNCT = 24546474; LAT$_BADGETJPI = 24546482; LAT$_BRDCSTMSG = 24546490; LAT$_BRDCSTOUT = 24546498; LAT$_CANTATTACH = 24546506; LAT$_CANTSPAWN = 24546514; LAT$_CANTCOPYSTR = 24546522; LAT$_ERRCREKBD = 24546530; LAT$_ERRVIRDPY = 24546538; LAT$_NOGCDAVAIL = 24546546; LAT$_NOIDBAVAIL = 24546554; LAT$_NOITMLST = 24546562; LAT$_NOREQUEST = 24546570; LAT$_DRVERROR = 24546578; LAT$_CANTRUNACP = 24546586; LAT$_INVCMD = 24548032; LAT$_CMDERROR = 24548040; LAT$_REINITERR = 24548048; LAT$_QUALOBS = 24548056; LAT$_CNTRSOBS = 24548064; LAT$_CMDOBS = 24548072; LAT$_CONNECTED = 24549633; N(* *)N(* LAT CONNECTION REJECTION REASON CODES. THESE MESSAGES CORRESPOND TO *)N(* THE REJECTION REASON CODES GENERA TED BY LTDRIVER WHEN A CONNECTION *)N(* REQUEST IS ABORTED (IE. FAILS). THE REASON CODE IS RETURNED IN PART *)N(* OF THE IOSB AND MAY BE TRANSLATED TO THE CORRESPONDING CODE BELOW *)N(* WITH A SIMPLE TRANSLATION VECTOR. *)N(* *) !CONST LAT$_LRJUNKNOWN = 24551236; LAT$_LRJSHUTDOWN = 24551244; LAT$_LRJRESOURCE = 24551252; LAT$_LRJINUSE = 24551260; LAT$_LRJNOSERVICE = 24551268; LAT$_LRJDISABLE = 24551276; LAT$_LRJNOTOFFERED = 24551284; LAT$_LRJNAMEUNKNOWN = 24551292;! LAT$_LRJACCESSREJECT = 24551300;! LAT$_LRJACCESSDENIED = 24551308; LAT$_LRJCORRUPT = 24551316; LAT$_LRJNOTSUPPORT = 24551324; LAT$_LRJNOSTART = 24551332; LAT$_LRJDELETED = 24551340; LAT$_LRJILLEGAL = 24551348; LAT$_LRJUSERDIS = 24551356; LAT$_LRJIVPASSWORD = 24551364; LAT$_CONTIMEOUT = 24551372; LAT$_CONAPPLICATION = 24551380; LAT$_LICREQUIRED = 24551388; LAT$_UNREACHABLE = 24551396; LAT$_NOSUCHNODE = 24551404; LAT$_NOSRVC = 24551412; LAT$_PWDSYNTAX = 24551420; LAT$_SERUNAV = 24551428; LAT$_SESLIM = 24551436; LAT$_SRVCNODE = 24551444; LAT$_VCLIM = 24551452; LAT$_NODUNAV = 24551460; LAT$_INITERR = 24551468; LAT$_OUTERROR = 24551476; LAT$_AUTHFAIL = 24551484; LAT$_CONFAIL = 24551492; LAT$_CONLOST = 24551500; LAT$_INSRES = 24551508; LAT$_NOMASTER = 24551516; LAT$_TIMEOUT = 24551524; LAT$_PROTERR = 24551532; LAT$_SRVDIS = 24551540; LAT$_NOACP = 24551548; LAT$_NOSLOT = 24551556; LAT$_BADCIRC = 24551564; LAT$_VCSESLIM = 24551572; LAT$_BADLINK = 24551580; LAT$_NOTATERM = 24551588; LAT$_NOCIB = 24551596; LAT$_INSRESOURCE = 24551604; LAT$_CIBLIM = 24551612; LAT$_PROTVIO = 24551620; LAT$_NOROOM = 24551628; LAT$_LISTTOOSHORT = 24551636; LAT$_LATSTOPPING = 24551644; LAT$_NOTWITHCONN = 24551652; LAT$_ENTNOTFOU = 24551660; LAT$_NOMORENODS = 24551668; LAT$_NOMORESVCS = 24551676; LAT$_NOSELF = 24551684; LAT$_NOTOFFERED = 24551692; LAT$_ACPNOCTL = 24551700; LAT$_ACPNOKSTK = 24551708; LAT$_ACPNOVIRT = 24551716; LAT$_NODLIMIT = 24551724; LAT$_VERMISMATCH = 24551732; LAT$_DRIVERNOTSHUT = 24551740; LAT$_CONFQUAVAL = 24551748; LAT$_NODESHUT = 24551756; LAT$_INCDISABLED = 24551764; LAT$_CANTMODCONN = 24551772; LAT$_UNDEFCONN = 24551780; LAT$_NOMORECONN = 24551788; LAT$_UNDEFENTRY = 24551796; LAT$_NOMOREENTRIES = 24551804; LAT$_ENTRYDELONLY = 24551812; LAT$_XSOLICIT = 24551820; LAT$_NOLANDEV = 24551828; LAT$_SOLGENSVC = 24551836; LAT$_LRJUSERDISC = 24551844; LAT$_LRJNOTQUEUED = 24551852; LAT$_NOACTLINKS = 24551860; LAT$_CONNDELETEONLY = 24551868; LAT$_LRJREMDISABLED = 24551876; LAT$_INCOMPDRVACP = 24551884; LAT$_LRJINCOMPVER = 24551892; LAT$_LRJIVMSG = 24551900; LAT$_NORATINGIMAGE = 24551908; LAT$_RATINGNOTINIT = 24551916; LAT$_INVNODEUID = 24551924; N(* END.  *) N(* MODULE LBRUSR ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN;  *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255;  *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151;  *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..2 68435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LBRCTLTBL ***) LCONST LBR$C_CTLTBLID = 203; (* Ident for control table *) LBR$M_LOCATE = 1; LBR$M_OPEN = 2; LBR$K _LENGTH = 30; LBR$C_LENGTH = 30; ,TYPE LBRCTLTBL$TYPE = RECORD CASE INTEGER OFG 1: (LBR$B_ID : $UBYTE; (* Control table ID *)G LBR$B_TBLSIZ : $UBYTE; (* Control table size *)G LBR$B_TYPE : $UBYTE; (* Type of library opened *)G LBR$B_FUNC : $UBYTE; (* Operation (function) requested *)L LBRCTLTBL$$_FILL_1 : ARRAY [1..2] OF $BYTE; (* Reserved extra bytes *)1 LBR$R_USRFLG_OVERLAY : [BYTE(4)] RECORD  END;G LBR$L_HDRPTR : UNSIGNED; (* Pointer to in-core header *)H LBR$L_CTXPTR : UNSIGNED; (* Pointer to context control block *)G LBR$L_CURIDX : UNSIGNED; (* Number of current index *)G LBR$L_USRNAM : UNSIGNED; (* Pointer to user NAM block *)R LBR$L_OLDHDRPTR : UNSIGNED; (* Pointer to unmodified in-core header block *) );G 2: (LBR$L_USRFLG : [POS(48)] UNSIGNED; (* Flags longword *) );7 3: (LBR$R_USRFLG_BITS : [POS(48), BYTE(1)] RECORD END; );P 4: (LBR$V_LOCATE : [POS(48)] $BOOL; (* Use "locate" rather than "move" mode *)G LBR$V_OPEN : [POS(49)] $BOOL; (* Library open *) ) END; (*** MODULE $MHDDEF ***) N(* *)N(* Module header *)N(* *) LCONST MHD$C_MHDID = 173; (* Value that must be in the ident *)L MHD$K_REFLNG = 8; (* Length of record to end of ref count *)L MHD$C_REFLNG = 8; (* Length of record to end of ref count *)G MHD$K_INSTIME = 8; (* Label for start of insert time *)G MHD$C_INSTIME = 8; (* Label for start of insert time *)L MHD$K_USRDAT = 16; (* Start of user additional header data *)L MHD$C_USRDAT = 16; (* Start of user addition al header data *)G MHD$K_MHDLEN = 16; (* Length of fixed part of MHD *)G MHD$C_MHDLEN = 16; (* Length of fixed part of MHD *) MHD$M_SELSRC = 1; MHD$M_OBJTIR = 2; MHD$M_WKSYM = 4;G MHD$K_OBJIDENT = 18; (* *)G MHD$C_OBJIDENT = 18; (* *)G MHD$K_OREFOFFSET = 52; (* Offset of the other ref. count *)G MHD$C_OREFOFFSET = 52; (* Offset of the other ref. count *) &TYPE MHD$TYPE = RECORD CASE INTEGER OFG 1: (MHD$B_LBRFLAG : $UBYTE; (* Librarian-controlled flag byte *)G MHD$B_ID : $UBYTE; (* Ident *)G MHDDEF$$_FILL_1 : $WORD; (* Reserved word *)G MHD$L_REFCNT : UNSIGNED; (* Reference count *)G MHD$L_DATIM : UNSIGNED; (* Date/time inserted *)1 MHD$R_FILL_2_OVERLAY : [BYTE(4)] RECORD END;2 MHD$R_OBJSTAT_OVE RLAY : [BYTE(1)] RECORD END;3 MHD$R_OBJIDLNG_OVERLAY : [BYTE(1)] RECORD END;] MHDDEF$$_FILL_5 : ARRAY [1..31] OF $BYTE; (* Object module ident data or GSMATCH area *)G MHDDEF$$_FILL_6 : ARRAY [1..3] OF $BYTE; (* space *)G MHD$L_OTHEREFCNT : UNSIGNED; (* Other reference count *)G MHD$L_MODSIZE : UNSIGNED; (* Module size *)G MHD$L_FILL_7 : UNSIGNED; (* part of module size. *) );G 2: (MHD$B_OBJSTAT :  [POS(128)] $UBYTE; (* Status of object module *)G MHD$B_OBJIDLNG : [POS(136)] $UBYTE; (* Length of ident *) );9 3: (MHD$R_FILL_2_FIELDS : [POS(96), BYTE(4)] RECORD END;9 MHD$R_OBJSTAT_BITS : [POS(128), BYTE(1)] RECORD END;< MHD$R_OBJIDLNG_FIELDS : [POS(136), BYTE(1)] RECORD END; );W 4: (MHD$B_USRDAT : [POS(128)] RECORD END ; (* Start of user additional header data *)G MHD$V_SELSRC : [POS(128)] $BOOL; (* Selective search *)H MHD$V_O BJTIR : [POS(129)] $BOOL; (* Module contains TIR records *)X MHD$V_WKSYM : [POS(130)] $BOOL; (* Module contains other non-group global symbol *)H MHD$T_OBJIDENT : [POS(144)] RECORD END ; (* Object module ident *) ) END; (*** MODULE $HLPDEF ***) N(* *)N(* Data structures for help processing *)N(*  *) CONST HLP$M_PROMPT = 1; HLP$M_PROCESS = 2; HLP$M_GROUP = 4; HLP$M_SYSTEM = 8; HLP$M_LIBLIST = 16; HLP$M_HELP = 32; HLP$M_SPARE1 = 64; HLP$M_PAGE_SAVE = 128; HLP$M_PAGE = 256; HLP$M_OUTPUT = 512; HLP$M_LIBRARY = 1024; HLP$M_ALL = 2048; HLP$M_PAGEDEF = 4096; HLP$M_PMPTDEF = 8192; HLP$M_NOTTERM = 16384; &TYPE HLP$TYPE = RECORD CASE INTEGER OF. 1: (HLP$R_HLPDEF_BITS : [BYTE(2)] RECORD END; );G 2: (HLP$V_PROMPT : [POS(0)] $BOOL; (* Prompting enabled *)W HLP$V_PROCESS : [POS(1)] $BOOL; (* Process logical name table searches enabled *)S HLP$V_GROUP : [POS(2)] $BOOL; (* Group logical name table searches enabled *)U HLP$V_SYSTEM : [POS(3)] $BOOL; (* System logical name table searched enabled *)L HLP$V_LIBLIST : [POS(4)] $BOOL; (* Output list of default libraries *)S HLP$V_HELP : [POS(5)] $BOOL; (* Display help on help before list of topics *)# HLP$V_SPARE1 : [POS(6)] $BOOL;G HLP$V_PAGE_SAVE : [POS(7)] $BOOL; (* Page=Save enabled *)G HLP$V_PAGE : [POS(8)] $BOOL; (* Page breaks enabled *)G HLP$V_OUTPUT : [POS(9)] $BOOL; (* Output listing file enabled *)K HLP$V_LIBRARY : [POS(10)] $BOOL; (* Main library specified by user *)Q HLP$V_ALL : [POS(11)] $BOOL; (* Some logical name table searches enabled *)J HLP$V_PAGEDEF : [POS(12)] $BOOL; (* Page flag defaulting disabled *)L HLP$V_PMPTDEF : [POS(13)] $BOOL; (* Prompt flag defaulting disabled *)K HLP$V_NOTTERM : [POS(14)] $BOOL; (* Input device is not a terminal *) ) END; CONST HLP$M_NOHLPTXT = 1; HLP$M_KEYNAMLIN = 2; HLP$M_OTHERINFO = 4; 'TYPE HLP1$TYPE = RECORD CASE INTEGER OFM 1: (HLP$L_DESC : UNSIGNED; (* Address of string descriptor for line *)0 HLP$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END;O HLP$L_DATA : UNSIGNED; (* Address of user data passed to GET_HELP *)G HLP$L_LEVEL : UNSIGNED; (* Level of this help  *) );G 2: (HLP$L_FLAGS : [POS(32)] UNSIGNED; (* Flags *) );6 3: (HLP$R_FLAGS_BITS : [POS(32), BYTE(1)] RECORD END; );W 4: (HLP$V_NOHLPTXT : [POS(32)] $BOOL; (* Line is part of text due to no help found *)S HLP$V_KEYNAMLIN : [POS(33)] $BOOL; (* Line contains keynames to be printed *)U HLP$V_OTHERINFO : [POS(34)] $BOOL; (* Line is part of "other info available" *) ) END; (*** MODULE $LBRDEF ***) N(*  *)N(* Types of libraries *)N(* *)N(* Define the library types *) MCONST LBR$C_TYP_UNK = 0; (* Unknown/unspecified library type *)G LBR$C_TYP_OBJ = 1; (* Object/shareable image library *)G LBR$C_TYP_MLB = 2; (* Macro library *)G LBR$C_TYP_HLP = 3; (* Help file library *)G LBR$C_TYP_TXT = 4; (* TEXT library *)G LBR$C_TYP_SHSTB = 5; (* Shareable image symbol library *)G LBR$C_TYP_NCS = 6; (* NCS library *)K LBR$C_TYP_DECMX = 6; (* Maximum Digital library type defined *)G LBR$C_TYP_EOBJ = 7; (* Alpha object library *)K LBR$C_TYP_ESHSTB = 8;  (* Alpha Shareable image symbol library *)G LBR$C_TYP_ELFOBJ = 9; (* ELF object library *)I LBR$C_TYP_ELFSHSTB = 10; (* ELF Shareable image symbol library *)G ELBR$C_TYP_DECMX = 10; (* Maximum library type defined *)H LBR$C_TYP_RDEC = 127; (* Types between DECMX and RDEC are *) N(* reserved to Digital *) NCONST LBR$C_TYP_USRLW = 128; (* User library types range from 1 28 *)G LBR$C_TYP_USRHI = 255; (* to 255. *) N(* *)N(* Function codes for lbr$flush *)N(* *) LCONST LBR$C_FLUSHDATA = 1; (* Flush data blocks from cache *)L LBR$C_FLUSHALL = 0; (* Flush data blocks, then index blocks *) N(*  *)N(* Librarian fixed parameters *)N(* *) LCONST LBR$C_MAXRECSIZ = 2048; (* Maximum record size allowed *)G LBR$C_PAGESIZE = 512; (* Size of memory page *)S LBR$C_HASHSIZE = 512; (* Size of hash table ** Must be power of 2 ** *)K LBR$C_TEXTPAGE = 508; (* No. of useable bytes on a text page *)G LBR$C_DEXTQ = 50; (* Library default extend quantity *)H LBR$C_MAXCTL = 64; (* Maximum number of open libraries *)G LBR$C_MAXHDRSIZ = 128; (* Maximum length of module header *) N(* (max user length is: *)N(* lbr$c_maxhdrsiz-mhd$c_length) *) UCONST LBR$C_DEFENTALL = 300; (* Number of entries to allocate by default *)Q LBR$C_RETRYOPEN = 120; (* Number of times to retry open on RMS$_FLK *)G LBR$C_RETRYWAIT = 1; (* Number of seconds to wait *)H LBR$C_MINREAD = 2; (* Minimum number of blocks to read *)G LBR$C_MAXREAD = 100; (* Max blocks can ever read *)i LBR$C_MEMXTRA = 50; (* Number blocks to expand region by above and beyond lbr$gl_maxread *)K LBR$C_PUTBUFSIZ = 30; (* Block size of VM empty cache buffer *)K LBR$C_FLSHBFSIZ = 1; (* Block size of stack mt_cache buffer *)H LBR$C_MAXIDXRD = 20; (* Maximum blocks in one index read *)[ LBR$C_ELFMAXKEYLEN = 1024; (* Maximum length of an ASCII keyword for ELF libraries *)\ LBR$C_MAXKEYLEN = 128; (* Maximum length of an ASCII keyword, at most N, where *) N(* 3*(N+7) < or = 506 *) YCONST LBR$C_MAXLUHREC = 32768; (* maximum library update history record length *)G LBR$M_SYM_WEAK = 1; (* Weak symbol attribute *)G LBR$M_SYM_GROUP = 2; (* Group symbol attribute *)G LBR$M_SYM_ALL = -2147483648; (* All types symbol *)T LBR$M_SYM_NGG = 1; (* Symbol type bitmasks - Nongroup global symbol *)N LBR$M_SYM_UXWK = 2; (* Symbol type bitmasks - Unix weak symbol *)Q LBR$M_SYM_GG = 4; (* Symbol type bitmasks - group global symbol *)T LBR$M_SYM_GUXWK = 8;  (* Symbol type bitmasks - group Unix weak symbol *) N(* *)N(* Librarian fixed parameters for ALPHA *)N(* *) LCONST ELBR$C_MAXRECSIZ = 8192; (* Maximum record size allowed *) N(* *)N(* LBR$INI_CONTROL argument list  *)N(* *) LCONST LBR$C_CREATE = 0; (* Create a new library *)G LBR$C_READ = 1; (* Read an existing library *)G LBR$C_UPDATE = 2; (* Update an exisiting library *)G LBR$C_MAXFUNC = 2; (* Maximum legal function *) TYPE LBR$TYPE = RECORDG LBRDEF$$_FILL_1 : INTEGER; (* Argument cou nt *)G LBR$L_IC_CTLTBL : UNSIGNED; (* Control index address *)G LBR$L_IC_FUNC : UNSIGNED; (* Function *)H LBR$L_IC_TYPE : UNSIGNED; (* Type of library expected to open *)G (* *)G (* LBR$OPEN argument list *)G (* *) END; LBR1$TYPE = RECORDG LBRDEF$$_FILL_2 : INTEGER; (* Argument count *)G LBR$L_OP_CTLTBL : UNSIGNED; (* Control index address *)Q LBR$L_OP_FNS : UNSIGNED; (* Address of string descriptor for filename *)G LBR$L_OP_CREOPT : UNSIGNED; (* Address of create options array *)U LBR$L_OP_DNS : UNSIGNED; (* Address of descriptor for default name string *)M LBR$L_OP_RLFNA : UNSIGNED; (* Address of NAM block for related file *)Y LBR$L_OP_RNS : UNSIGNED; (* Ad dress of descriptor for related filename string *)e LBR$L_OP_RNSLEN : UNSIGNED; (* Address of longword to store resultant filename string length *)G (* *)G (* LBR$CLOSE argument list *)G (* *) END; LBR2$TYPE = RECORDG LBRDEF$$_FILL_3 : INTEGER; (* Argument count *)G LBR$L_CL_CTLTBL : ! UNSIGNED; (* Control index address *)G (* *)G (* LBR$GET_HEADER argument list *)G (* *) END; LBR3$TYPE = RECORDG LBRDEF$$_FILL_4 : INTEGER; (* Argument count *)G LBR$L_GH_CTLTBL : UNSIGNED; (* Address of Control index *)U LBR$L_GH_RETARY : UNSIGNED; (* Address of 128-lon "gword array for return info *)G (* *)G (* LBR$SET_INDEX argument list *)G (* *) END; LBR4$TYPE = RECORDG LBRDEF$$_FILL_5 : INTEGER; (* Argument count *)G LBR$L_SI_CTLTBL : UNSIGNED; (* Control index address *)G LBR$L_SI_IDXNUM : UNSIGNED; (* Address of index number *) #G (* *)G (* LBR$LOOKUP_KEY argument list *)G (* *) END; LBR5$TYPE = RECORDG LBRDEF$$_FILL_6 : INTEGER; (* Argument count *)G LBR$L_LK_CTLTBL : UNSIGNED; (* Control index address *)T LBR$L_LK_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *)R LBR$L_LK_TXTR $FA : UNSIGNED; (* Address of quadword to return RFA if found *)G (* *)G (* LBR$INSERT_KEY argument list *)G (* *) END; LBR6$TYPE = RECORDG LBRDEF$$_FILL_7 : INTEGER; (* Argument count *)G LBR$L_IK_CTLTBL : UNSIGNED; (* Control index address *)T LBR$L_IK_KEYNAM : UNSIGNED; (* Addr%ess of string descriptor or binary value *)G LBR$L_IK_TXTRFA : UNSIGNED; (* Address of RFA of text *)G (* *)G (* LBR$REPLACE_MOD argument list *)G (* *)G (* *)G (* LBR$REPLACE_KEY argument list *)G & (* *) END; LBR7$TYPE = RECORDG LBRDEF$$_FILL_8 : INTEGER; (* Argument count *)G LBR$L_RK_CTLTBL : UNSIGNED; (* Control index address *)T LBR$L_RK_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *)G LBR$L_RK_OLDRFA : UNSIGNED; (* Address of RFA of old text *)G LBR$L_RK_NEWRFA : UNSIGNED; (* Address of RFA of new text *)G (* ' *)G (* LBR$DELETE_KEY argument list *)G (* *) END; LBR8$TYPE = RECORDG LBRDEF$$_FILL_9 : INTEGER; (* Argument count *)G LBR$L_DK_CTLTBL : UNSIGNED; (* Control index address *)T LBR$L_DK_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *)G (* ( *)G (* LBR$DELETE_DATA argument list *)G (* *) END; LBR9$TYPE = RECORDG LBRDEF$$_FILL_10 : INTEGER; (* Argument count *)G LBR$L_DD_CTLTBL : UNSIGNED; (* Control index address *)G LBR$L_DD_TXTRFA : UNSIGNED; (* Address of RFA to delete from *)G (* *)G ) (* LBR$GET_RECORD argument list *)G (* *) END; LBR10$TYPE = RECORDG LBRDEF$$_FILL_11 : INTEGER; (* Argument count *)G LBR$L_GR_CTLTBL : UNSIGNED; (* Control index address *)G LBR$L_GR_BUFDES : UNSIGNED; (* Address of descriptor of buffer *)Q LBR$L_GR_BUFLEN : UNSIGNED; (* Address of longword to return record size *)G (* * *)G (* LBR$PUT_RECORD argument list *)G (* *) END; LBR11$TYPE = RECORDG LBRDEF$$_FILL_12 : INTEGER; (* Argument count *)G LBR$L_PR_CTLTBL : UNSIGNED; (* Control index address *)Q LBR$L_PR_BUFDES : UNSIGNED; (* Address of descriptor of buffer to output *)I LBR$L_PR_TXTRFA : UNSIGNED; (* Address of quadword to + return RFA *)G (* of text record *)G (* *)G (* LBR$PUT_END argument list *)G (* *) END; LBR12$TYPE = RECORDG LBRDEF$$_FILL_13 : INTEGER; (* Argument count *)G LBR$L_PE_CTLTBL : UNSIGNED; (* Control index address *)G , (* *)G (* LBR$SEARCH argument list *)G (* *) END; LBR13$TYPE = RECORDG LBRDEF$$_FILL_14 : INTEGER; (* Argument count *)G LBR$L_SR_CTLTBL : UNSIGNED; (* Control index address *)G LBR$L_SR_IDXNUM : UNSIGNED; (* Address of index number *)J LBR$L_SR_RFA : UNSIGNED; (* Address of - RFA to search index for *)G LBR$L_SR_USRTN : UNSIGNED; (* User routine to call on match *)G (* *)Z (* Argument list for user routine called by LBR$SEARCH *)G (* *) END; LBR14$TYPE = RECORDG LBRDEF$$_FILL_15 : INTEGER; (* Argument count *)T LBR$L_SU_KEYDES : UNSIGNED; (* Address of string desc .riptor or binary value *)Q LBR$L_SU_TXTRFA : UNSIGNED; (* Address of array containing rfa of module *)G (* *)G (* LBR$GET_INDEX argument list *)G (* *) END; LBR15$TYPE = RECORDG LBRDEF$$_FILL_16 : INTEGER; (* Argument count *)G LBR$L_GI_CTLTBL : UNSIGNED; (* Control index address / *)G LBR$L_GI_IDXNUM : UNSIGNED; (* Index number *)K LBR$L_GI_USRTN : UNSIGNED; (* User routine to call for each entry *)G (* *)] (* Argument list for user routine called by LBR$GET_INDEX *)G (* *) END; LBR16$TYPE = RECORDG LBRDEF$$_FILL_17 : INTEGER; (* Argument count *)M 0 LBR$L_GU_KEYADR : UNSIGNED; (* Address of descriptor or binary value *)G LBR$L_GU_TXTRFA : UNSIGNED; (* RFA of associated text *)G (* *)G (* LBR$ADD_UPDATE argument list *)G (* *) END; LCONST LBR$C_ADDMOD = 1; (* Add module *)G LBR$C_DELMOD = 2; (* Dele 1te module *)G LBR$C_REPMOD = 3; (* Replace module *) N(* *) TYPE LBR17$TYPE = RECORDG LBRDEF$$_FILL_18 : INTEGER; (* Argument count *)G LBR$L_AU_CTLTBL : UNSIGNED; (* Control index address *)G LBR$L_AU_FLAGS : UNSIGNED; (* Flags *)T LBR$L_AU_KEYNAM : UNSIGNED; (* Address of string descript 2or or binary value *)G (* Types of operations logged *)G (* LBR$GET_UPDATES argument list *)G (* *) END; LBR18$TYPE = RECORDG LBRDEF$$_FILL_19 : INTEGER; (* Argument count *)G LBR$L_GU_CTLTBL : UNSIGNED; (* Control index address *)L LBR$L_GU_USRTN : UNSIGNED; (* User routine to call for each update *)G 3 (* *)_ (* Argument list for user routine called by LBR$GET_UPDATES *)G (* *) END; LBR19$TYPE = RECORDG LBRDEF$$_FILL_20 : INTEGER; (* Argument list *)J LBR$L_UU_UPDESC : UNSIGNED; (* String descriptor for history line *) END; N(* 4 *)N(* LBR$MAP_MODULE argument list *)N(* *) TYPE LBR20$TYPE = RECORDG LBRDEF$$_FILL_21 : INTEGER; (* Argument count *)G LBR$L_MM_CTLTBL : UNSIGNED; (* Control index address *)\ LBR$Q_MM_VAADDR : $UQUAD; (* 64-bit virtual Address of the specified object module *)G LBR$Q_MM_MODSIZ : $UQUAD; (* Address of module size 5 *)G LBR$L_MM_TXTRFA : UNSIGNED; (* Address of RFA to map from *)G (* *)^ (* Argument list for user routine called by LBR$MAP_MODULE *)G (* *) END; N(* *)N(* LBR$UNMAP_MODULE argument list *)N(* 6 *) TYPE LBR21$TYPE = RECORDG LBRDEF$$_FILL_22 : INTEGER; (* Argument count *)G LBR$L_UM_CTLTBL : UNSIGNED; (* Control index address *)G LBR$L_UM_TXTRFA : UNSIGNED; (* Address of RFA to unmap *)G (* *)` (* Argument list for user routine called by LBR$UNMAP_MODULE *)G 7 (* *) END; N(* *)N(* LBR$GET_VERSION argument list *)N(* *) TYPE LBR22$TYPE = RECORDG LBRDEF$$_FILL_23 : INTEGER; (* Argument count *)G LBR$L_GV_VERDESC : UNSIGNED; (* Addr of Version Descriptor *)G LBR$L_G 8V_RETLEN : UNSIGNED; (* Address of ret. len. *)G (* *)_ (* Argument list for user routine called by LBR$GET_VERSION *)G (* *) END; N(* *)N(* LBR$LOOKUP_TYPE argument list *)N(* 9 *) TYPE LBR23$TYPE = RECORDG LBRDEF$$_FILL_24 : INTEGER; (* Argument count *)G LBR$L_LT_CTLTBL : UNSIGNED; (* Control index address *)T LBR$L_LT_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *)R LBR$L_LT_TXTRFA : UNSIGNED; (* Address of quadword to return RFA if found *)G LBR$L_LT_FLAG : UNSIGNED; (* Address of ret. flag *)G : (* *)_ (* Argument list for user routine called by LBR$LOOKUP_TYPE *)G (* *) END; N(* *)N(* LBR$PUT_MODULE argument list *)N(* *) TYPE LBR24$TYPE = RECORDG LBR;DEF$$_FILL_25 : INTEGER; (* Argument count *)G LBR$L_PM_CTLTBL : UNSIGNED; (* Control index address *)\ LBR$Q_PM_VAADDR : $UQUAD; (* 64-bit virtual Address of the specified object module *)G LBR$Q_PM_MODSIZ : $UQUAD; (* Address of module size *)G LBR$L_PM_TXTRFA : UNSIGNED; (* Address of return RFA *)G (* *)^ (* Argument list <for user routine called by LBR$PUT_MODULE *)G (* *) END; (*** MODULE $LHIDEF ***) N(* *)N(* Library header information array offsets *)N(* *) TYPE LHI$TYPE = RECORDG LHI$L_TYPE : UNSIGNED; (* Library type *)G = LHI$L_NINDEX : UNSIGNED; (* Number of indices *)G LHI$L_MAJORID : UNSIGNED; (* Library format major id *)G LHI$L_MINORID : UNSIGNED; (* Library format minor id *)` LHI$T_LBRVER : PACKED ARRAY [1..32] OF CHAR; (* ASCIC version of librarian that created *)G LHI$L_CREDAT : UNSIGNED; (* Creation date/time *)G LHIDEF$$_FILL_1 : INTEGER; (* ... *)G LHI$L_UPDTIM : UNSIGNED; (* Date>/time of last update *)G LHIDEF$$_FILL_2 : INTEGER; (* ... *)G LHI$L_UPDHIS : UNSIGNED; (* VBN of start of update history *)G LHI$L_FREEVBN : UNSIGNED; (* 1st logically deleted block *)G LHI$L_FREEBLK : UNSIGNED; (* Number of deleted blocks *)I LHI$B_NEXTRFA : ARRAY [1..6] OF $UBYTE; (* RFA of end of library *)G LHI$W_RFAXTR : $UWORD; (* Spare word, zeroed *)K LHI$L_NEXTVBN : UNSIG?NED; (* Next VBN to allocate at end of file *)Q LHI$L_FREIDXBLK : UNSIGNED; (* Number of free pre-allocated index blocks *)O LHI$L_FREEIDX : UNSIGNED; (* Listhead for pre-allocated index blocks *)J LHI$L_HIPREAL : UNSIGNED; (* VBN of highest pre-allocated block *)G LHI$L_IDXBLKS : UNSIGNED; (* Number of index blocks in use *)G LHI$L_IDXCNT : UNSIGNED; (* Number of index entries (total) *)S LHI$L_MODCNT : UNSIGNED; (* Number of entries in index 1@ (module names) *)W LHI$L_MHDUSZ : UNSIGNED; (* Length of user-maintained info in module header *)e LHI$L_MAXLUHREC : UNSIGNED; (* Maximum number of library update histories records maintained *)H LHI$L_NUMLUHREC : UNSIGNED; (* Number of LUH records in history *)O LHI$L_LIBSTATUS : UNSIGNED; (* False if there was an error closing lib *)g LHI$B_FREEHDRS : ARRAY [1..6] OF $UBYTE; (* Freed list header structure in RFA structure format *)f LHI$B_FREENODES : ARRAY A [1..6] OF $UBYTE; (* Freed list nodes structure in RFA struture format *)G LHI$L_IDX3HEAP : UNSIGNED; (* VBN of third index block *) END; (*** MODULE $CREDEF ***) N(* *)N(* Create options table *)N(* *) LCONST CRE$C_VMSV2 = 2; (* VMS version V04-000 format B *)G CRE$C_VMSV3 = 3; (* VMS version 3 format *)M CRE$C_VMSV4 = 4; (* VMS version 4 format for an ELF files. *)M CRE$C_VMSV5 = 5; (* VMS version 5 format for an ELF files. *)M CRE$C_VMSV6 = 6; (* VMS version 6 format for an ELF files. *) CRE$M_NOCASECMP = 1; CRE$M_NOCASENTR = 2; CRE$M_UPCASNTRY = 4;Q CRE$C_HLPCASING = 6; (* Treat upper casing as it is for HELP libs *)S CRE$C_OBJCASING = 3; C (* Treat upper casing as it is for OBJECT libs *)[ CRE$C_MACTXTCAS = 0; (* Treat upper casing as it is for MACRO and TEXT libs *)G CRE$K_LENGTH = 80; (* *)G CRE$C_LENGTH = 80; (* *) &TYPE CRE$TYPE = RECORD CASE INTEGER OFG 1: (CRE$L_TYPE : UNSIGNED; (* Type of library *)J (* (library types defined in $LBRDEF) *)G CRE$L_KDEYLEN : UNSIGNED; (* Length of keys in library *)G CRE$L_ALLOC : UNSIGNED; (* Initial file allocation *)G CRE$L_IDXMAX : UNSIGNED; (* Maximum number of indices *)M CRE$L_UHDMAX : UNSIGNED; (* Size of additional module header data *)O CRE$L_ENTALL : UNSIGNED; (* Number of index entries to pre-allocate *)Y CRE$L_LUHMAX : UNSIGNED; (* Number of library update history records to store *)I CRE$L_VERTYP : UNSIGNED; (* Versio En type of library to create *)1 CRE$R_IDXOPT_OVERLAY : [BYTE(4)] RECORD END;M CREDEF$$_FILL_1 : ARRAY [1..11] OF INTEGER; (* Reserved 11 longwords *) );G 2: (CRE$L_IDXOPT : [POS(256)] UNSIGNED; (* Index options *) );8 3: (CRE$R_IDXOPT_BITS : [POS(256), BYTE(1)] RECORD END; );O 4: (CRE$V_NOCASECMP : [POS(256)] $BOOL; (* Do not upper case the match key *)o CRE$V_NOCASENTR : [POS(257)] $BOOL; (* Do not upper case the index key when comparing with Fa match key *)j CRE$V_UPCASNTRY : [POS(258)] $BOOL; (* Upper case the index key when entering it into the library *) ) END; N(* END. *) N(* MODULE LIBCLIDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; G *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RHECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFIE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; J *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; K *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(L19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; M *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N *) (*** MODULE $LIBCLIDEF ***)N(* Definitions for LIB$ CLI callback procedures *) CONST LIB$K_CLI_LOCAL_SYM = 1; LIB$K_CLI_GLOBAL_SYM = 2; LIB$M_CLI_CTRLT = 1048576; LIB$M_CLI_CTRLY = 33554432; TYPE CLI$CTRL_FIELDS = RECORDH LIB$V_FILL_A_S : [POS(0)] $BIT20; (* Ctrl-A to Ctrl-S are unused *)' LIB$V_CLI_CTRLT : [POS(20)] $BOOL;H LIB$V_FILL_U_X : [POS(21)] $BIT4; (* Ctrl-U to Ctrl-X are unused *)' LIB O$V_CLI_CTRLY : [POS(25)] $BOOL;% LIB$V_FILL_0_ : [POS(26)] $BIT6; END; N(* END. *) N(* MODULE LIBCQDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] PRECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UQNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* R$DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; S *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFET] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(*U $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; V *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CQUALDEF W***) CONST UTIL$M_CQF_CONFIRM = 1; UTIL$M_CQF_EXCLUDE = 2; UTIL$M_CQF_BEFORE = 4; UTIL$M_CQF_SINCE = 8; UTIL$M_CQF_CREATED = 16; UTIL$M_CQF_MODIFIED = 32; UTIL$M_CQF_EXPIRED = 64; UTIL$M_CQF_BACKUP = 128; UTIL$M_CQF_BYOWNER = 256; UTIL$M_CQF_ACCESSED = 512; UTIL$M_CQF_ATTRIBUTES = 1024; UTIL$M_CQF_UPDATE_DATA = 2048;" UTIL$M_CQF_SYMLINK_SEARCH = 4096;" UTIL$M_CQF_SYMLINK_TARGET = 8192; *TYPE CFQUALS$TYPE = RECORD CASE INTEGER OF1 1: (UTIL$R_FLAGS_OVERLAY : [BYT XE(4)] RECORD END; );; 2: (UTIL$L_QUALIFIER_FLAGS : [POS(0), BYTE(4)] RECORD END; );G 3: (UTIL$V_CQF_CONFIRM : [POS(0)] $BOOL; (* *)G UTIL$V_CQF_EXCLUDE : [POS(1)] $BOOL; (* *)G UTIL$V_CQF_BEFORE : [POS(2)] $BOOL; (* *)G UTIL$V_CQF_SINCE : [POS(3)] $BOOL; (* *)G UTIL$V_CQF_CREATED : [POS(4)] $BOOL; (* *)G UTIL$V_CQF_MODIFIED : [POS(5)Y] $BOOL; (* *)G UTIL$V_CQF_EXPIRED : [POS(6)] $BOOL; (* *)G UTIL$V_CQF_BACKUP : [POS(7)] $BOOL; (* *)G UTIL$V_CQF_BYOWNER : [POS(8)] $BOOL; (* *)G UTIL$V_CQF_ACCESSED : [POS(9)] $BOOL; (* *)G UTIL$V_CQF_ATTRIBUTES : [POS(10)] $BOOL; (* *)G UTIL$V_CQF_UPDATE_DATA : [POS(11)] $BOOL; (* *)G UTIL$V_CQF_SYMLIN ZK_SEARCH : [POS(12)] $BOOL; (* *)G UTIL$V_CQF_SYMLINK_TARGET : [POS(13)] $BOOL; (* *) );7 4: (UTIL$R_QF_OVERLAY2 : [POS(0), BYTE(4)] RECORD END; );+ 5: (UTIL$V_CQF_ASSIGNED : [POS(0)] $BIT14;. UTIL$V_CQF_UNASSIGNED : [POS(14)] $BIT18; ) END; N(* *)N(* define prompt parameter values *)N(* [ *) !CONST UTIL$K_CQF_UNSPECIFIED = 0; UTIL$K_CQF_SHORT = 1; UTIL$K_CQF_LONG = 2; UTIL$K_CQF_CONDENSED = 1; UTIL$K_CQF_EXPANDED = 2; UTIL$K_CQF_MAX_FORM = 2; N(* *)N(* Flag values output argument *)N(* *) LCONST UTIL$K_SEARCH_SYMLINK_DEFAUL \T = 0; (* use process default *)G UTIL$K_SEARCH_SYMLINK_NONE = 1; (* use no symlinks *)G UTIL$K_SEARCH_SYMLINK_ALL = 2; (* use symlinks always *)J UTIL$K_SEARCH_SYMLINK_NOELLIPS = 3; (* use symlinks except in ellipsis *)! UTIL$M_CQF_SYMLINK_NOTARGET = 4; )TYPE CFVALS$TYPE = RECORD CASE INTEGER OF+ 1: (UTIL$R_FILL_0_ : [BYTE(4)] RECORD END; );+ 2: (UTIL$L_FLAG_VALUES : [POS(0)] INTEGER; ); 3: ();G 4: (UTIL$V_CQF_SYMLINK_MODE : [ ]POS(0)] $BIT2; (* *)u (* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *)K (* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *)G UTIL$V_CQF_SYMLINK_NOTARGET : [POS(2)] $BOOL; (* *) ) END; N(* *)N(* TO BE REMOVED *) CONST LI^B$M_CQF_CONFIRM = 1; LIB$M_CQF_EXCLUDE = 2; LIB$M_CQF_BEFORE = 4; LIB$M_CQF_SINCE = 8; LIB$M_CQF_CREATED = 16; LIB$M_CQF_MODIFIED = 32; LIB$M_CQF_EXPIRED = 64; LIB$M_CQF_BACKUP = 128; LIB$M_CQF_BYOWNER = 256; )TYPE CQUALS$TYPE = RECORD CASE INTEGER OF0 1: (LIB$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; );: 2: (LIB$L_QUALIFIER_FLAGS : [POS(0), BYTE(4)] RECORD END; );G 3: (LIB$V_CQF_CONFIRM : [POS(0)] $BOOL; (* *)G LIB$V_CQF_EXCLUDE :_ [POS(1)] $BOOL; (* *)G LIB$V_CQF_BEFORE : [POS(2)] $BOOL; (* *)G LIB$V_CQF_SINCE : [POS(3)] $BOOL; (* *)G LIB$V_CQF_CREATED : [POS(4)] $BOOL; (* *)G LIB$V_CQF_MODIFIED : [POS(5)] $BOOL; (* *)G LIB$V_CQF_EXPIRED : [POS(6)] $BOOL; (* *)G LIB$V_CQF_BACKUP : [POS(7)] $BOOL; (* *)G LIB$V_C`QF_BYOWNER : [POS(8)] $BOOL; (* *) );6 4: (LIB$R_QF_OVERLAY2 : [POS(0), BYTE(4)] RECORD END; );) 5: (LIB$V_CQF_ASSIGNED : [POS(0)] $BIT9;, LIB$V_CQF_UNASSIGNED : [POS(9)] $BIT23; ) END; N(* END. *) N(* MODULE LIBDCFDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTaE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(*b $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; c *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; d *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(e11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; f *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;g *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BI hT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBDCFDEF ***)N(* Definitions for LIB$DECODE_FAULT *) N(* *)N(* Operand definition codes *)N(* *) CONST LI iB$M_DCFACC = 7; LIB$M_DCFTYP = 248; TYPE LIB$B_DCF_OPERAND = RECORDG LIB$V_DCFACC : [POS(0)] $BIT3; (* Operand access type *)G LIB$V_DCFTYP : [POS(3)] $BIT5; (* Operand data type *) END; N(* *)N(* Operand access type codes *)N(* *) LCONST LIB$K_DCFACC_R = 1j; (* Operand is to be read *)G LIB$K_DCFACC_M = 2; (* Operand is to be modified *)G LIB$K_DCFACC_W = 3; (* Operand is to be written *)G LIB$K_DCFACC_A = 4; (* Operand is an address *)V LIB$K_DCFACC_V = 5; (* Operand is a field (may be register or address) *)G LIB$K_DCFACC_B = 6; (* Operand is a branch displacement *) N(* k *)N(* Operand data type codes *)N(* *) LCONST LIB$K_DCFTYP_B = 1; (* Operand is a byte *)G LIB$K_DCFTYP_W = 2; (* Operand is a word *)G LIB$K_DCFTYP_L = 3; (* Operand is a longword *)G LIB$K_DCFTYP_Q = 4; (* Operand is a quadword *)G LIB$K_DCFTYP_O = 5; l (* Operand is an octaword *)G LIB$K_DCFTYP_F = 6; (* Operand is an F_floating *)G LIB$K_DCFTYP_D = 7; (* Operand is a D_floating *)G LIB$K_DCFTYP_G = 8; (* Operand is a G_floating *)G LIB$K_DCFTYP_H = 9; (* Operand is an H_floating *) N(* *)N(* Combined operand access and data type codes *)mN(* *) CONST LIB$K_DCFOPR_AB = 8; LIB$K_DCFOPR_RB = 9; LIB$K_DCFOPR_MB = 10; LIB$K_DCFOPR_WB = 11; LIB$K_DCFOPR_VB = 12; LIB$K_DCFOPR_BB = 13; LIB$K_DCFOPR_AW = 16; LIB$K_DCFOPR_RW = 17; LIB$K_DCFOPR_MW = 18; LIB$K_DCFOPR_WW = 19; LIB$K_DCFOPR_VW = 20; LIB$K_DCFOPR_BW = 21; LIB$K_DCFOPR_AL = 24; LIB$K_DCFOPR_RL = 25; LIB$K_DCFOPR_ML = 26; LIB$K_DCFOPR_WL = 27; LIB$K_DCFOPR_VL = 28; LIB$K_DnCFOPR_BL = 29; LIB$K_DCFOPR_AQ = 32; LIB$K_DCFOPR_RQ = 33; LIB$K_DCFOPR_MQ = 34; LIB$K_DCFOPR_WQ = 35; LIB$K_DCFOPR_VQ = 36; LIB$K_DCFOPR_AO = 40; LIB$K_DCFOPR_RO = 41; LIB$K_DCFOPR_MO = 42; LIB$K_DCFOPR_WO = 43; LIB$K_DCFOPR_VO = 44; LIB$K_DCFOPR_AF = 48; LIB$K_DCFOPR_RF = 49; LIB$K_DCFOPR_MF = 50; LIB$K_DCFOPR_WF = 51; LIB$K_DCFOPR_VF = 52; LIB$K_DCFOPR_AD = 56; LIB$K_DCFOPR_RD = 57; LIB$K_DCFOPR_MD = 58; LIB$K_DCFOPR_WD = 59; LIB$K_DCFOPR_VD = 60; LIB$K_DCFoOPR_AG = 64; LIB$K_DCFOPR_RG = 65; LIB$K_DCFOPR_MG = 66; LIB$K_DCFOPR_WG = 67; LIB$K_DCFOPR_VG = 68; LIB$K_DCFOPR_AH = 72; LIB$K_DCFOPR_RH = 73; LIB$K_DCFOPR_MH = 74; LIB$K_DCFOPR_WH = 75; LIB$K_DCFOPR_VH = 76; LIB$K_DCFOPR_END = 0; N(* *) N(* END. *) N(* MODULE LIBDTDEF ; *)p G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; q *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD r *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFEs] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)Jt(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; u *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNvSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) wJ(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBDTDEF ***) N(* *)N(* Interface definitions for LIB$DT (date/time) package *)N(* *)Nx(* *)N(* Request codes for LIB$INIT_DATE_TIME_CONTEXT *)N(* *) LCONST LIB$K_MONTH_NAME = 0; (*Pre-init the month names *)G LIB$K_MONTH_NAME_ABB = 3; (*Pre-init the month names *)G LIB$K_WEEKDAY_NAME = 6; (*Pre-init the week names *)G LIB$K_WEEKDAY_NAME_ABB = 9; (*P yre-init the week names *)G LIB$K_MERIDIEM_INDICATOR = 12; (*Pre-init the AM/PM names *)G LIB$K_OUTPUT_FORMAT = 1; (*Pre-init the format *)G LIB$K_INPUT_FORMAT = 2; (*Pre-init the format *)G LIB$K_RELATIVE_DAY_NAME = 15; (*Pre-init "TODAY", etc. *)G LIB$K_FORMAT_MNEMONICS = 18; (*Pre-init MM, DD, YYYY, etc. *)G LIB$K_LANGUAGE = 4; (*Pre-init user's language *) N(* z *)N(* Operation codes (flags) for date time conversion routines. *)N(* NOTE: any new operation codes MUST be added just BEFORE MAX_OPERATION *)N(* *) UCONST LIB$K_MONTH_OF_YEAR = 1; (* requests output in units of month of year *)L LIB$K_DAY_OF_YEAR = 2; (* requests output in days of year 1-366 *)N LIB$K_HOUR_OF_YEAR = 3; (* {requests output in hours of year 1-8784 *)R LIB$K_MINUTE_OF_YEAR = 4; (* requests output in minutes of year 1-527040 *)T LIB$K_SECOND_OF_YEAR = 5; (* requests output in seconds of year 1-31622400 *)K LIB$K_DAY_OF_MONTH = 6; (* request output in days of month 1-31 *)M LIB$K_HOUR_OF_MONTH = 7; (* request output in hours of month 1-744 *)Q LIB$K_MINUTE_OF_MONTH = 8; (* request output in minutes of month 1-44640 *)T LIB$K_SECOND_OF_MONTH = 9; (* requests outpu|t in seconds of month 1-2678400 *)Z LIB$K_DAY_OF_WEEK = 10; (* requests output in days of week 1-7 with monday = 1 *)M LIB$K_HOUR_OF_WEEK = 11; (* requests output in hours of week 1-168 *)J LIB$K_MINUTE_OF_WEEK = 12; (* requests in minutes of week 1-10080 *)R LIB$K_SECOND_OF_WEEK = 13; (* requests output in seconds of week 1-604800 *)K LIB$K_HOUR_OF_DAY = 14; (* requests output in hours of day 1-24 *)O LIB$K_MINUTE_OF_DAY = 15; (* requests output in minut}es of day 1-1440 *)O LIB$K_SECOND_OF_DAY = 16; (* requests output in seconds of day 1-3600 *)N LIB$K_MINUTE_OF_HOUR = 17; (* requests output in minutes of hour 1-60 *)P LIB$K_SECOND_OF_HOUR = 18; (* requests output in minutes of hour 1-3600 *)Q LIB$K_SECOND_OF_MINUTE = 19; (* requests output in seconds of minutes 1-60 *)M LIB$K_JULIAN_DATE = 20; (* requests output as a julian day number *)K LIB$K_DELTA_WEEKS = 21; (* input/output in terms of delta weeks *)~J LIB$K_DELTA_DAYS = 22; (* input/output in terms of delta days *)K LIB$K_DELTA_HOURS = 23; (* input/output in terns of delta hours *)M LIB$K_DELTA_MINUTES = 24; (* input/output in terms of delta minutes *)M LIB$K_DELTA_SECONDS = 25; (* input/output in terms of delta seconds *)V LIB$K_DELTA_WEEKS_F = 26; (* input/output in terms of fractional delta weeks *)U LIB$K_DELTA_DAYS_F = 27; (* input/output in terms of fractional delta days *)V LIB$K_DELTA_HOURS_F = 28; (* input/output in terms of fractional delta hours *)Y LIB$K_DELTA_MINUTES_F = 29; (* input/output in terms of fractional delta minutess *)X LIB$K_DELTA_SECONDS_F = 30; (* input/output in terms of fractional delta seconds *)G LIB$K_MAX_OPERATION = 31; (* 1+ max # of conversion flags *) N(* *)N(* Masks for outputting date or time fields only *)N(*  *) CONST LIB$M_TIME_FIELDS = 1; LIB$M_DATE_FIELDS = 2; "TYPE DT_PRINT_FIELDS$TYPE = RECORDL LIB$V_TIME_FIELDS : [POS(0)] $BOOL; (* Force printing of time fields *)L LIB$V_DATE_FIELDS : [POS(1)] $BOOL; (* Force printing of date fields *)$ LIB$V_FILL_0_ : [POS(2)] $BIT6; END; N(* *)N(* Masks for input defaulting flag longword  *)N(* *) CONST LIB$M_YEAR = 1; LIB$M_MONTH = 2; LIB$M_DAY = 4; LIB$M_HOUR = 8; LIB$M_MINUTE = 16; LIB$M_SECOND = 32; LIB$M_HUNDREDTHS = 64; !TYPE DT_AULT_FIELDS$TYPE = RECORDG LIB$V_YEAR : [POS(0)] $BOOL; (* Allow the year to be defaulted *)H LIB$V_MONTH : [POS(1)] $BOOL; (* Allow the month to be defaulted *)G LIB$V_DAY : [POS(2)] $BOOL; (* Allow the day to be defaulted *)G LIB$V_HOUR : [POS(3)] $BOOL; (* Allow the hour to be defaulted *)J LIB$V_MINUTE : [POS(4)] $BOOL; (* Allow the minute to be defaulted *)J LIB$V_SECOND : [POS(5)] $BOOL; (* Allow the second to be defaulted *)M LIB$V_HUNDREDTHS : [POS(6)] $BOOL; (* Allow the fract to be defaulted *)$ LIB$V_FILL_1_ : [POS(7)] $BOOL; END; N(* END. *) N(* MODULE LIBICB ;  *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3;  *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511;  *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303;  *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911 ; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) "(*** MODULE LIBICB IDENT V2.0 ***) CONST LIB$K_PROC_VALUE_NULL = 0; LIB$K_INVO_HANDLE_NULL = 0; LIBICB$K_INVO_HANDLE_SIZE = 8;# LIBICB$K_INVO_CONTEXT_VERSION = 2; N(* The header quadword contains:  *) &CONST LIBICB$M_FFLAGS_BITS = 16777215; LIBICB$M_BOTTOM_OF_STACK = 1; LIBICB$M_HANDLER_PRESENT = 2; LIBICB$M_IN_PROLOGUE = 4; LIBICB$M_IN_EPILOGUE = 8;! LIBICB$M_HAS_MEM_STK_FRAME = 16;! LIBICB$M_HAS_REG_STK_FRAME = 32;' LIBICB$K_INVO_CONTEXT_T_LENGTH = 1888;! LIBICB$K_SDA_COPY_LENGTH = 1960;# LIBICB$M_UO_FLAG_CACHE_UNWIND = 1;% LIBICB$M_UO_FLAG_EMULATION_MODE = 2; LIBICB$K_UO_LENGTH = 88; N(*  *) (CONST LIBICB$m_using_client_memread = 1; LIBICB$m_my_mode = 6;" LIBICB$K_CONTEXT_BLK_SIZE = 2080; N(* The following is an "internal" area that's reserved for use by *) &CONST LIBICB$K_REGION_BLK_SIZE = 1096;$ LIBICB$K_REGIONLABEL_BLK_SIZE = 32;% LIBICB$K_DESCRIPTOR_BLK_SIZE = 1280; N(* Action codes: *) [CONST LIBICB$K_ACTION_KP_FIND_UNWIND = 1; (* override call to exe$kp_find_unwind_context  *) N(* prototype: *)T(* uint64 sp = action_routine (enum action_code code, uint64 sp, uint64 ident); *) ZCONST LIBICB$K_ACTION_USE_DEFAULT = -1; (* action routine return value to "use default" *) N(* Alert codes: (matches _UNW_ReturnCode enum in unwind.h) *) RCONST LIBICB$K_AC_STEP_KRNL_SAV_STATE = -2; (* _UNW_STEP_KERNEL_SAVE_STATE = -2 *)G LIBICB$K_AC_STEP_BOTTOM = -1; (* _UNW_STEP_BOTTOM  *)G LIBICB$K_AC_OK = 0; (* _UNW_OK = 0 *)G LIBICB$K_AC_STEP_ERROR = 1; (* _UNW_STEP_ERROR *)G LIBICB$K_AC_STEP_INVALID_IP = 2; (* _UNW_STEP_INVALID_IP *)G LIBICB$K_AC_STEP_INVALID_SP = 3; (* _UNW_STEP_INVALID_SP *)G LIBICB$K_AC_STEP_INVALID_GR = 4; (* _UNW_STEP_INVALID_GR *)G LIBICB$K_AC_STEP_INVALID_PFS = 5; (* _UNW_STEP_INVALID_PFS *)G LIBICB$K_AC_STEP_INVALID_RSC = 6; (* _UNW_STEP_INVALID_RSC *)G LIBICB$K_AC_STEP_INVALID_BSP = 7; (* _UNW_STEP_INVALID_BSP *)G LIBICB$K_AC_STEP_INV_BSPSTORE = 8; (* _UNW_STEP_INVALID_BSPSTORE *)G LIBICB$K_AC_STEP_INVALID_CFM = 9; (* _UNW_STEP_INVALID_CFM *)G LIBICB$K_AC_STEP_INVALID_BR = 10; (* _UNW_STEP_INVALID_BR *)G LIBICB$K_AC_STEP_BAD_BSP_ALIGN = 11; (* _UNW_STEP_BAD_BSP_ALIGNMENT *)G LIBICB$K_AC_STEP_INVALID_RNAT = 12; (* _UNW_STEP_INVALID_RNAT *)Q LIBICB$K_AC_STEP_NODSC4_NONLEAF = 13; (* _UNW_STEP_NO_DESCRIPTOR_FOR_NON_LEAF *)G LIBICB$K_AC_STEP_CORRUPT_DESC = 14; (* _UNW_STEP_CORRUPT_DESCRIPTOR *)G LIBICB$K_AC_STEP_RSE_NOT_FLUSHD = 15; (* _UNW_STEP_RSE_NOT_FLUSHED *)G LIBICB$K_AC_STEP_SIGNAL_CONTEXT = 16; (* _UNW_STEP_SIGNAL_CONTEXT *)G LIBICB$K_AC_STEP_BAD_STATE = 17; (* _UNW_STEP_NOT_ALLOWED_IN_STATE *)I LIBICB$K_AC_INIT_RANGE_ERROR = 18; (* _UNW_INITIALIZATION_RANGE_ERROR *)G LIBICB$K_AC_QUERY_RANGE_ERROR = 19; (* _UNW_QUERY_RANGE_ERROR *)G LIBICB$K_AC_QUERY_INVALID_ERROR = 20; (* _UNW_QUERY_INVALID_ERROR *)G LIBICB$K_AC_SET_BAD_STATE = 21; (* _UNW_SET_NOT_ALLOWED_IN_STATE *)G LIBICB$K_AC_CURR_CTXT_FAILED = 22; (* _UNW_CURRENT_CONTEXT_FAILED *)V LIBICB$K_AC_CURR_CTXT_BAD_STATE = 23; (* _UNW_CURRENT_CONTEXT_NOT_ALLOWED_IN_STATE *)H LIBICB$K_AC_MEMORY_ALLOC_ERROR = 24; (* _UNW_MEMORY_ALLOCATION_ERROR *)H LIBICB$K_AC_CLEAR_BAD_STATE = 25; (* _UNW_CLEAR_NOT_ALLOWED_IN_STATE *)H LIBICB$K_AC_QUERY_BAD_STATE = 26; (* _UNW_QUERY_NOT_ALLOWED_IN_STATE *)G LIBICB$K_AC_INTERNAL_ERROR = 27; (* _UNW_INTERNAL_ERROR *)P LIBICB$K_AC_STEP_I_ABI_MISMATCH = 28; (* _UNW_STEP_INTERRUPTION_ABI_MISMATCH *)G LIBICB$K_AC_UNALIGNED_ICB = 29; (* _UNW_UNALIGNED_ICB *)G LIBICB$K_AC_READ_MEM_FAILURE = 30; (* _UNW_READ_MEMORY_FAILURE *)G LIBICB$K_AC_WRITE_MEM_FAILURE = 31; (* _UNW_WRITE_MEMORY_FAILURE *)G LIBICB$K_AC_WRITE_REG_FAILURE = 32; (* _UNW_WRITE_REGISTER_FAILURE *)Y LIBICB$K_AC_UO_INCON_CALLBACK = 33; (* _U NW_USER_OVERRIDE_INCONSISTENT_CALLBACK_PARAM *)G LIBICB$K_AC_PUT_REG_INVALID = 34; (* _UNW_PUT_REGISTER_INVALID *)' LIBICB$K_INVO_CONTEXT_BLK_SIZE = 2112; 3TYPE INVO_CONTEXT_BLK$TYPE = RECORD CASE INTEGER OFG 1: ( (* *)` (* The length of the structure in bytes (a longword field), *)U (* The frame flags (a 3 byte field of bits), and *)K  (* The version number (a 1 byte field) *)) LIBICB$R_HDR : [BYTE(8)] RECORD END;R LIBICB$ih_spare_01 : $QUAD; (* Start of context_t must be octaword aligned *)Q (****** Start of context_t ****************** *)G (* *)s (* a context_t structure should be octaword (16-byte) aligned, and is passed by *)n (* reference to the "get initial context" callback routine and establishes *)y (* the "current" state of the machine and forms the inital context for for unwinding. *)G (* *). LIBICB$r_i_reg : [BYTE(1024)] RECORD END;] LIBICB$IH_GRNAT : ARRAY [0..1] OF $QUAD; (* General Register NaT Collection Registers *)O LIBICB$FO_F2_F31 : ARRAY [2..31] OF $OCTA; (* Floating Point Registers. *)J  (* 32 static floating point registers. *)P (* Floating Point Registers are 82 bits wide *)G (* but stored here in octawords. *)N LIBICB$PH_F32_F127 : $QUAD; (* Pointer to upper Floating Register save *)G (* area. Zero if not saved. *)G LIBICB$IH_BRANCH : ARRAY [0..7] OF $QUAD; (* Branch Registers *)G (* Application Registers (ARs) *)G (* *)L LIBICB$IH_RSC : $QUAD; (* Register Stack Configuration Register *)G LIBICB$IH_BSP : $QUAD; (* Backing store pointer *)G LIBICB$IH_BSPSTORE : $QUAD; (* Backing store write pointer *)G LIBICB$IH_RNAT : $QUAD; (* RSE NaT Collection Register *)H LIBICB$IH_CCV : $QUAD; (* Compare & Exchange Value Register *)G LIBICB$IH_UNAT : $QUAD; (* User NaT Collection Register *)\ LIBICB$FH_FPSR : $QUAD; (* OBSOLETE - do not rely on the contents of this field. *)G LIBICB$IH_PFS : $QUAD; (* Previous Function State *)G LIBICB$IH_LC : $QUAD; (* Loop Count Register *)G LIBICB$IH_EC : $QUAD; (* Epilogue Count Register *)G LIBICB$IH_CSD : $QUAD; (* Copy of AR.CSD *)G LIBICB$IH_SSD : $QUAD; (* Copy of AR.SSD *)G  (* *)G (* End ARs *)N LIBICB$Q_PRED : $QUAD; (* Predicate Collection Register, PR0-PR63 *)N LIBICB$IH_PC : $QUAD; (* Current PC (Instruction Pointer + slot) *)+ LIBICB$r_cfm_u : [BYTE(8)] RECORD END;* LIBICB$r_um_u : [BYTE(8)] RECORD END;X LIBICB$ih_next_bsp : $QUAD; (* Next frame's Backing Store Pointer (Internal use) *)W LIBICB$ih_next_pfs : $QUAD; (* Next frame's Previous Frame State (Internal use) *)f (* The following two locations are used when walking from an inner *)s (* mode stack to an outer mode and context has been saved in a INTSK structure, *) (* but the outer mode stacked registers have bee saved on the inner mode RSE backing store. *)G (* *)U LIBICB$ih_bspbase : $QUAD; (* Base for outer mode stacked registers saved in *)R (* inner mode RSE backing store (Internal use) *)P LIBICB$ih_intstk_rnat : $QUAD; (* RNAT as saved in INTSTK (Internal use) *)e (* the following "valid" bitmasks are used to record the validity *)K (* of a given register for this context *)G LIBICB$O_GR_VALID : $OCTA; (* General Register validity mask *)M LIBICB$L_FR_VALID : INTEGER; (* F2 - F31 validity mask (bit 2 for F2) *)& LIBICB$l_fr_valid_fill : INTEGER;G LIBICB$Q_BR_VALID : $QUAD; (* Branch Register validity mask *)0 LIBICB$r_ar_valid_u : [BYTE(8)] RECORD END;3 LIBICB$r_other_valid_u : [BYTE(8)] RECORD END;G LIBICB$Q_PR_VALID : $QUAD; (* Predicate Register validity mask *)h LIBICB$IH_ORIGINAL_SPILL_ADDR : $QUAD; (* Original address of GR spill area (&LIBICB$IH_IREG[0]) *)Q (* (needed fo r NaT bit podition calculations) *)I LIBICB$ih_true_psp : $QUAD; (* True Previous SP (for Invo Handle) *) LIBICB$ih_spare_03 : $QUAD; LIBICB$ih_spare_04 : $QUAD; LIBICB$ih_spare_05 : $QUAD; LIBICB$ih_spare_06 : $QUAD; LIBICB$ih_spare_07 : $QUAD; LIBICB$ih_spare_08 : $QUAD;G (* *)^ (******** End of context_t structure ********************* *)K LIBICB$IH_PSP : $QUAD; (* SP at entry to routine (Previous SP) *)G LIBICB$ih_psp_valid : $QUAD; (* PreviousSP valid *)G LIBICB$IH_RETURN_PC : $QUAD; (* Return PC for SDA. *)G LIBICB$IH_PREV_BSP : $QUAD; (* BSP of preceding frame for SDA. *)] LIBICB$PH_CHFCTX_ADDR : $QUAD; (* Pointer to condition handler facility context block *)V LIBICB$PH_OTHER : $QUAD; (* Pointer to other interesting structure (if any) *)Q LIBICB$IH_OSSD : $QUAD; (* Copy of OSSD from Unwind Information Block *)I LIBICB$IH_HANDLER_FV : $QUAD; (* Condition Handler Function Value *)I LIBICB$PH_LSDA : $QUAD; (* Virtual Address of LSD area of UIB *)] LIBICB$ph_desc : $QUAD; (* Pointer to _Unwind_Descriptor structure (Internal use) *)Z LIBICB$ph_history : $QUAD; (* Pointer to _Unwind_History structure (Internal use) *)^ (******** Start of User Override ************************* *)G  (* *)i (* The following locations can be used to alter the default behavior *)e (* Typically this would be used for cross-process unwinding, and *)[ (* specifying an alternative memory allocation scheme. *). LIBICB$r_op_flags : [BYTE(8)] RECORD END;M LIBICB$IH_UO_IDENT : $QUAD; (* user context variable, passed by value *)J  (* to the following callback routines. *)O LIBICB$PH_UO_READ_MEM : $QUAD; (* Pointer to user "read memory" routine *)a LIBICB$PH_UO_GETUEINFO : $QUAD; (* Pointer to user "get Unwind Entry Information" routine *)Y LIBICB$PH_UO_GETCONTEXT : $QUAD; (* Pointer to user "get Initial Context" routine *)O LIBICB$PH_UO_WRITE_MEM : $QUAD; (* Pointer to user "put memory" routine *)Q LIBICB$PH_UO_WRITE_REG : $QUAD; (* Pointer to user "put register" routine *)H LIBICB$PH_UO_MALLOC : $QUAD; (* Pointer to user "malloc" routine *)G LIBICB$PH_UO_FREE : $QUAD; (* Pointer to user "free" routine *)[ LIBICB$PH_UO_ACTION_ROUTINE : $QUAD; (* Pointer to user "action" routine - actions *)Q (* are defined by "action codes" (see below). *) LIBICB$ih_spare_10 : $QUAD;c (******** End of User Override area *************************** *)e (* the following locations are used internally, and should not be *)G (* modified by the user *)O LIBICB$ph_most_recent_context : $QUAD; (* Most recent user context used *)/ LIBICB$r_int_flags : [BYTE(4)] RECORD END;G LIBICB$l_interface_state : INTEGER; (* enum InterfaceUsageState *)G LIBICB$l_ip_source : INTEGER; (* enum IP_SOURCE *)g (* The alert code can be examined to a more detailed failure status *)G LIBICB$L_ALERT_CODE : INTEGER; (* enum _UNW_ReturnCode *) LIBICB$ih_spare_11 : $QUAD;$ LIBICB$t_align_2 : RECORD END ;Z (* the operating system. It's size may vary over time. *)6 LIBICB$IH_SYSTEM_DEFINED : ARRAY [0..1] OF $QUAD;G (* *)| (* Action codes are passed as the first parameter to the UO_ACTION_ROUTINE to indicate *)~  (* an action to be performed. The remaining parameters to the action routine are action *)n (* dependent, and usually include the ident value as the last parameter. *)G (* *)G (* Action routine prototype: *)G (* *)| (* uint64 return_value = action_routine (enum action_code code, ..., uint64 ident); *)G (* *)y (* A return_value of ACTION_USE_DEFAULT indicates that the action was not performed *)t (* and the calling standard routines should fall back to "default" processing. *)R (* Other return values are action dependent. *)G (*  *) );M 2: (LIBICB$IH_HEADER : [POS(0)] $QUAD; (* Header (length, flags, version) *)[ LIBICB$IH_IREG : [POS(128)] ARRAY [0..127] OF $QUAD; (* General (integer) Registers *)N(* 32 static registers, plus *)N(* up to 96 stacked/rotating registers *)G LIBICB$IH_CFM : [POS(13760)] $QUAD; (* Current Frame Marker *)H LIBICB$IH_UM : [POS(13824)] $QUAD; (* User Ma sk bits of the PSR. *)U LIBICB$Q_AR_VALID : [POS(14400)] $QUAD; (* Application Register validity mask *)L LIBICB$Q_OTHER_VALID : [POS(14464)] $QUAD; (* PC, CFM validity mask *)N LIBICB$R_UO_BASE : [POS(15808)] INTEGER; (* base of User Override area *)U LIBICB$l_internal_flags : [POS(16576)] INTEGER; (* internal operational flags *) );G 3: (LIBICB$Q_UO_FLAGS : [POS(15808)] $QUAD; (* operational flags *) );1 4: (LIBICB$L_CONTEXT_LENGTH : [POS(0)] UNSIGNED;9  LIBICB$R_FRAMEFLAGS : [POS(32), BYTE(3)] RECORD END;/ LIBICB$B_BLOCK_VERSION : [POS(56)] $UBYTE;G LIBICB$ih_i_used0 : [POS(128)] $QUAD; (* R0 *)P LIBICB$IH_GP : [POS(192)] $QUAD; (* synonym for R1 (Global Data Pointer) *)R LIBICB$IH_SP : [POS(896)] $QUAD; (* synonym for R12 (Memory Stack Pointer) *)L LIBICB$IH_TP : [POS(960)] $QUAD; (* synonym for R13 (Thread Pointer) *)\ LIBICB$IH_AI : [POS(1728)] $QUAD; (* synonym for R25 (Argument Information register) *)G LIBICB$V_SOF : [POS(13760)] $BIT7; (* Size of stack frame *)T LIBICB$V_SOL : [POS(13767)] $BIT7; (* Size of locals portion of stack frame *)V LIBICB$V_SOR : [POS(13774)] $BIT4; (* Size of rotating portion of stack frame *)[ LIBICB$V_RRB_GR : [POS(13778)] $BIT7; (* Register Rename Base for General Registers *)b LIBICB$V_RRB_FR : [POS(13785)] $BIT7; (* Register Rename Base for Floating-point Registers *)] LIBICB$V_RRB_PR : [POS(13792)] $BIT6; (* Register Rename Base for Predicate Registers *)L LIBICB$V_BE : [POS(13825)] $BOOL; (* Big-endian memory access enable *)L LIBICB$V_UP : [POS(13826)] $BOOL; (* User performance monitor enable *)S LIBICB$V_AC : [POS(13827)] $BOOL; (* Alignment check data memory references *)] LIBICB$V_MFL : [POS(13828)] $BOOL; (* Lower (F2-F31) Floating-point registers written *)_ LIBICB$V_MFH : [POS(13829)] $BOOL; (* Upper (F32-F127) Floating-point registers written *)Y LIBICB$V_RSC_VALID : [POS(14400)] $BOOL; (* Register Stack Configuration Register *)I LIBICB$V_BSP_VALID : [POS(14401)] $BOOL; (* Backing store pointer *)T LIBICB$V_BSPSTORE_VALID : [POS(14402)] $BOOL; (* Backing store write pointer *)P LIBICB$V_RNAT_VALID : [POS(14403)] $BOOL; (* RSE NaT Collection Register *)U LIBICB$V_CCV_VALID : [POS(14404)] $BOOL; (* Compare & Exchange Value Register *)Q LIBICB$V_UNAT_VALID : [POS(14405)] $BOOL; (* User NaT Collection Register *)T LIBICB$V_FPSR_VALID : [POS(14406)] $BOOL; (* Floating Point Status Register. *)K LIBICB$V_PFS_VALID : [POS(14407)] $BOOL; (* Previous Function State *)G LIBICB$V_LC_VALID : [POS(14408)] $BOOL; (* Loop Count Register *)J LIBICB$V_EC_VALID : [POS(14409)] $BOOL; (* Epilogue Count Register *)G LIBICB$V_CSD_VALID : [POS(14410)] $BOOL; (* Copy of AR.CSD *)G LIBICB$V_SSD_VALID : [POS(14411)] $BOOL; (* Copy of AR.SSD *)G LIBICB$V_PC_VALID : [POS(14464)] $BOOL; (* Current PC  *)H LIBICB$V_CFM_VALID : [POS(14465)] $BOOL; (* Current Frame Marker *)J LIBICB$V_UM_VALID : [POS(14466)] $BOOL; (* User Mask field of PSR. *)8 LIBICB$v_using_client_memread : [POS(16576)] $BOOL;+ LIBICB$v_my_mode : [POS(16577)] $BIT2; );- 5: (LIBICB$V_FFLAGS_BITS : [POS(32)] $BIT24;8 LIBICB$V_UO_FLAG_CACHE_UNWIND : [POS(15808)] $BOOL;M (* cache unwind information between calls *)G (* for effiecient stack walk. *)R LIBICB$V_UO_FLAG_EMULATION_MODE : [POS(15809)] $BOOL; (* Internal use only *) ); 6: ();0 7: (LIBICB$V_BOTTOM_OF_STACK : [POS(32)] $BOOL;0 LIBICB$V_HANDLER_PRESENT : [POS(33)] $BOOL;, LIBICB$V_IN_PROLOGUE : [POS(34)] $BOOL;, LIBICB$V_IN_EPILOGUE : [POS(35)] $BOOL;2 LIBICB$V_HAS_MEM_STK_FRAME : [POS(36)] $BOOL;2 LIBICB$V_HAS_REG_STK_FRAME : [POS(37)] $BOOL; ) END; N(* Write Register callback routine - WhichReg enum.  *)N(* *)N(* The Write Register callback routine is only used when a live *)N(* register in another (remote) process needs to be written as *)N(* a result of a call to LIB$I64_PUT_INVO_REGISTERS. *)N(* It is permissible to implement a subset of these registers, *)N(* or not implement it at all if you are sure that these registers *)N(* have been saved to memory before PUT_INVO is called *)N(* *)N(* For the General Registers: *)N(* whichReg = LIBICB$K_WhichReg_GR0 + register number *)N(* value_1 = 64-bit register value *)N(* value_2 = 0, or 1 for NaT bit value *)N(*  *) CONST LIBICB$K_WhichReg_GR0 = 0; N(* *)N(* For the Floating Registers: *)N(* whichReg = LIBICB$K_WhichReg_FR0 + floating register number *)N(* value_1 = 64-bit lower floating fill value *)N(* value_2 = 64-bit upper floating fill value *)N(*  *) "CONST LIBICB$K_WhichReg_FR0 = 128; N(* *)N(* For the Predicate Registers: *)N(* whichReg = LIBICB$K_WhichReg_PR0 + predicate register number *)N(* value_1 = 0, or 1 rgister (bit) value *)N(* value_2 = ignored *) N(* *) "CONST LIBICB$K_WhichReg_PR0 = 256; N(* *)N(* For the Branch Registers: *)N(* whichReg = LIBICB$K_WhichReg_BR0 + branch register number *)N(* value_1 = 64-bit register value *)N(* value_2 = ignored  *)N(* *) "CONST LIBICB$K_WhichReg_BR0 = 320; N(* *)N(* For the Floating Point Status Register: *)N(* whichReg = LIBICB$K_WhichReg_FPSR *)N(* value_1 = 64-bit register value *)N(* value_2 = ignored  *)N(* *) #CONST LIBICB$K_WhichReg_FPSR = 328; N(* END. *) N(* MODULE LIBMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31;  *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431;  *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UN SAFE] UNSIGNED; *) (*** MODULE $LIBDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.58 *)N(* *)N(* FILE: LIBMSG.MSG *)N(* *)Q(*************** ************************************************************** *)(** * *)C(** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1991 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NO TICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(* *)N(* 1-013 - ADD LIB$_KEYALRINS, LIB$_KEYNOTFOU. SBL 20-MAR-1981  *)G(* 1-014 - ADD LIB$_INVCVT. FM 24-MAR-81 *)N(* 1-015 - ADD LIB$_INVDTYDSC, LIB$_INVCLADSC, LIB$_INVCLADTY, LIB$_INVNBDS *)I(* LIB$_DESSTROVF, LIB$_OUTSTRTRU. FM 21-APR-81 *)P(* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM LIBMSG.MDL *)I(* VERSION 1-015. SBL 23-APR-1981 *)N(* 2-002 - USE LIB$ FACILITY FOR LIB$_NORMAL. SBL 27-APR-1981 *)S(* 2-003 - ADD LIB$_INTOVF, LIB$_FLTOVF, LIB$_FLTUND, LIB$_DECOVF, LIB$_ROPRAND. *)N(* 2-004 - ADD LIB$_WRONUMARG. RKR 4-SEP-1981 *)N(* 2-005 - ADD MESSAGES FOR LIB$CLI_CALLBACK. SBL 14-SEPT-1981 *)P(* 2-006 - ADD LIB$_INVSYMNAM, MESSAGES FOR LIB$EXTEND_RANGE. SBL 1-OCT-1981 *)N(* 2-007 - ADD LIB$_WASSET AND LIB$_WASCLR. SBL 16-OCT-1981 *)N(* 2-008 - CORRECT TYPO IN LIB$_UNAEXTRAN. SBL 30-OCT-1981 *)W(* 2-009 - REMOVE LIB$_WASSET AND LIB$_WASCLR. ADD LIB$_ATTREQREF. SBL 21-DEC-1981 *)N(* 2-010 - REMOVE MESSAGES FOR LIB$EXTEND_RANGE. SBL 22-DEC-1981 *)N(* 2-011 - CORRECT TYPO. SBL 23-DEC-1981 *)S(* 2-012 - ADD LIB$_INVFILSPE FOR FILE MANIPULATION PROCEDURES. MLJ 30-DEC-1981 *)N(* 2-013 - ADD LIB$_ERRROUCAL AND .TITLE. SBL 28-AUG-1982 *)N(* 2-014 - ADD LIB$_INVXAB, LIB$_FILFAIMAT, LIB$_NEGANS, LIB$_QUIPRO, *)I(* LIB$_QUICONACT. TSK 20-SEP-1982  *)N(* 2-015 - ADD LIB$_RESTART. SBL 1-MAR-1983 *)N(* 2-016 - ADD LIB$_NO_STRACT FOR SCREEN PACKAGE. PLL 19-JUL-1983 *)N(* 2-017 - ADD SEVERAL NEW MESSAGES FOR LIB$$READ_OBJECT. BLS 25-FEB-1984 *)N(* 2-018 - ADD NEW MESSAGES FOR FUTURE LIB$VM. BLS 11-APR-1984 *)N(* 2-019 - ADD LIB$_NOTIMP. MDL 11-JUL-1985 *)N(* 2-020 - ADD LIB$_BADZONE. SMM 09-APR-1986 *)N(*  *)N(* 2-021 - ADD ERROR MESSAGES FOR DATE/TIME ROUTINES. LIB$_IVTIME, *)N(* LIB$_ONEDELTIM, LIB$_NEGTIM, LIB$_INVARGORD, LIB$_INVOPER, *)I(* LIB$_ABSTIMREQ, LIB$_DELTIMREQ JWN 14-NOV-1986 *)N(* 2-022 - ADD SEVERAL NEW MESSAGES FOR LIB$DATE_FORMAT AKS 20-NOV-1986 *)O(* 2-023 - ADD NEW MESSAGES AND UPDATES FOR LIB$DATE_STRING. EGM 12-JAN-1987 *)P(* 2-024 - ADD NEW MESSAGES FOR VAXC MEMORY MANAGEMENT SUPPORT AKS 3-OCT-1988 *)N(* 2-025 - ADD LITERALS FOR SHR$_ SYMBOLS USED BY LIBRTL. KC 16-OCT-1989. *).(* X-5 - MAH MARK A. HOWELL 3-AUG-1990 *)I(* ADD LIB$UID MESSAGES *)-(* X-7 - CW CHRIS WHITAKER 25-FEB-1991 *)I(* ROLL LIB UID SUPPORT FORWARD *)M(* X-8 - CORRECT TEXT FOR FLTUND. GAS 16-SEP-1991 *)<(* X-3 RAB RICHARD A. BISHOP 29-JAN-1992  *)I(* MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS. *)I(* SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION *)I(* OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), THE *)I(* PRECEDING AUDIT TRAIL IS FROM THE VMS MASTERPACK. *)N(* *)=(* X-4 JAH0090 JOHN A HARNEY 28-MAR-1994 *)I(* ADD MESSAGE FOR LIB$BUILD_NODESPEC:  *)B(* NODTOOLNG - PRIMARY NODE NAME TOO LONG AFTER BEING QUOTED *)I(* ADD MESSAGE FOR LIB$GET_HOSTNAME *)B(* NOHOSNAM - NO HOST NODE NAME FOUND *)N(*- *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(*  *)I(* LIB$_ABCMNOXYZ *)N(* *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(*  *)P(* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)N(* MACRO-32 PROGRAMMING: *)N(* *)N(* THE MACROS CALL:  *)N(* *)I(* $LIBDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *)N(* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(*-  *);(* ; SET LH TO 21 (DECIMAL). *) CONST LIB$_FACILITY = 21; LIB$_NORMAL = 1409025; LIB$_STRTRU = 1409041; LIB$_ONEENTQUE = 1409049; ;(* ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI *) CONST LIB$_KEYALRINS = 1409057; ;(* ; LIB$INSERT_TREE *) CONST LIB$_ERRROUCAL = 1409065; ;(* ; LIB$DELETE_FILE, LIB$RENAME_FILE *)  CONST LIB$_RESTART = 1409073; ;(* ; LIB$DECODE_FAULT *)<(* ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES!!! *);(* ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW. *);(* ; SET LH TO 21 (DECIMAL). *);(* ; SO THAT EACH CODE WILL BE AN WARNING CODE. *);(* ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW. *) CONST LIB$_BADSTA = 1409540; ;(* ; LIB$FIXUP_FLT  *) CONST LIB$_FATERRLIB = 1409548; ;(* ; LIB$VM_GET *) CONST LIB$_INSVIRMEM = 1409556; ;(* ; LIB$VM_GET, LIB$LOOKUP_KEY *) CONST LIB$_INPSTRTRU = 1409564; ;(* ; LIB$GET_INPUT *) CONST LIB$_INVSTRDES = 1409572; ;(* ; LIB$SCOPY_XXXX *) CONST LIB$_INTLOGERR = 1409580; LIB$_INVARG = 1409588; ;(* ; LIB$LOOKUP_KEY *) CONST LIB$_AMBKEY = 1409596; ;(* ; LIB$LOOKUP_KEY *) CONST LIB$_UNRKEY = 1409604; LIB$_PUSSTAOVE = 1409612; ;(* ; LIB$FIXUP_FLT *) CONST LIB$_USEFLORES = 1409620; ;(* ; LIB$LOOKUP_KEY *) CONST LIB$_SIGNO_ARG = 1409628; ;(* ; LIB$SIGNAL, LIB$STOP *) CONST LIB$_BADBLOADR = 1409636; ;(* ; LIB$FREE_VM, LIB$VM_FREE[_P] *) CONST LIB$_BADBLOSIZ = 1409644; ;(* ; LIB$GET_VM *) CONST LIB$_NOTFOU = 1409652; ;(* ; LIB$FFS, LIB$FFC *) CONST LIB$_ATTCONSTO = 1409660; ;(* ; LIB$SIGNAL, LIB$STOP *) CONST LIB$_SYNTAXERR = 1409668; LIB$_INVTYPE = 1409676; ;(* ; LIB$TPARSE  *) CONST LIB$_INSEF = 1409684; ;(* ; LIB$GET_EF *) CONST LIB$_EF_ALRFRE = 1409692; ;(* ; LIB$FREE_EF *) CONST LIB$_EF_ALRRES = 1409700; ;(* ; LIB$RESERVE_EF *) CONST LIB$_EF_RESSYS = 1409708; ;(* ; LIB$FREE_EF, LIB$RESERVE_EF *) CONST LIB$_INSLUN = 1409716; ;(* ; LIB$GET_LUN  *) CONST LIB$_LUNALRFRE = 1409724; ;(* ; LIB$FREE_LUN *) CONST LIB$_LUNRESSYS = 1409732; ;(* ; LIB$FREE_LUN, LIB$RESERVE_LUN *) CONST LIB$_SCRBUFOVF = 1409740; ;(* ; SCR PACKAGE *) CONST LIB$_INVSCRPOS = 1409748; ;(* ; SCR PACKAGE *) CONST LIB$_SECINTFAI = 1409756; ;(* ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI *) CONST LIB$_INVCHA = 1409764; ;(* ; LIB$TRA_ASC_EBC, LIB$TRA_EBC_ASC *) CONST LIB$_QUEWASEMP = 1409772; ;(* ; LIB$REMQHI, LIB$REMQTI *) CONST LIB$_STRIS_INT = 1409780; ;(* ; LIB$SCOPY, ETC. *) CONST LIB$_KEYNOTFOU = 1409788; ;(* ; LIB$LOOKUP_TREE *) CONST LIB$_INVCVT = 1409796; ;(* ; LIB$CVTDXDX  *) CONST LIB$_INVDTYDSC = 1409804; ;(* ; LIB$CVTDXDX *) CONST LIB$_INVCLADSC = 1409812; ;(* ; LIB$CVTDXDX *) CONST LIB$_INVCLADTY = 1409820; ;(* ; LIB$CVTDXDX *) CONST LIB$_INVNBDS = 1409828; ;(* ; LIB$CVTDXDX *) CONST LIB$_DESSTROVF = 1409836; ;(* ; LIB$CVTDXDX *) CONST LIB$_INTOVF = 1409844; ;(* ; LIB$CVTDXDX *) CONST LIB$_DECOVF = 1409852; ;(* ; LIB$CVTDXDX *) CONST LIB$_FLTOVF = 1409860; ;(* ; LIB$CVTDXDX *) CONST LIB$_FLTUND = 1409868; ;(* ; LIB$CVTDXDX *) CONST LIB$_ROPRAND = 1409876; ;(* ; LIB$CVTDXDX *) CONST LIB$_WRONUMARG = 1409884; ;(* ; LIB$ANALYZE_SDESC *) CONST LIB$_NOSUCHSYM = 1409892; ;(* ; LIB$CLI_CALLBACK *) CONST LIB$_INSCLIMEM = 1409900; ;(* ; LIB$CLI_CALLBACK *) CONST LIB$_AMBSYMDEF = 1409908; ;(* ; LIB$CLI_CALLBACK *) CONST LIB$_NOCLI = 1409916; ;(* ; LIB$CLI_CALLBACK *) CONST LIB$_UNECLIERR = 1409924; ;(* ; LIB$CLI_CALLBACK *) CONST LIB$_INVSYMNAM = 1409932; ;(* ; LIB$CLI_CALLBACK *) CONST LIB$_ATTREQREF = 1409940; ;(* ; LIB$ATTACH *) CONST LIB$_INVFILSPE = 1409948; ;(* ; LIB$FID_TO_NAME, LIB$EXTRACT_CONCEALED, *)<(* ; LIB$SET_FILE_PROT, LIB$UNLOCK_FILE, LIB$CREATE_DIR *) CONST LIB$_INVXAB = 1409956; ;(* ; LIB$QUAL_FILE_PARSE *) CONST LIB$_NO_STRACT = 1409964; ;(* ; SCR PACKAGE *) CONST LIB$_BADTAGVAL = 1409972; ;(* ; LIB$VM *) CONST LIB$_INVOPEZON = 1409980; ;(* ; LIB$VM *) CONST LIB$_PAGLIMEXC = 1409988; ;(* ; LIB$VM  *) CONST LIB$_NOTIMP = 1409996; ;(* ; LIB$NOT_IMPLEMENTED *) CONST LIB$_BADZONE = 1410004; @(* ; LIB$VERIFY_VM_ZONE, LIB$SHOW_VM_ZONE, LIB$STAT_VM_ZONE *);(* ; LIB$FIND_VM_ZONE *) CONST LIB$_IVTIME = 1410012; >(* ; LIB$ADD_TIMES, LIB$SUB_TIMES, LIB$MULIPLY_DELTA_TIME *)=(* ; LIB$MULTIPLY_DELTA_TIME_F, LIB$CVT_TO_INTERNAL_TIME *)=(* ; LIB$CVT_FROM_INTERNAL_TIME, LIB$CONVERT_DATE_STRING *) CONST LIB$_ONEDELTIM = 1410020; ;(* ; LIB$ADD_TIMES *) CONST LIB$_NEGTIM = 1410028; ;(* ; LIB$SUB_TIMES *) CONST LIB$_INVARGORD = 1410036; ;(* ; LIB$SUB_TIMES *) CONST LIB$_ABSTIMREQ = 1410044; ;(* ; LIB$CVT_FROM_INTERNAL_TIME *) CONST LIB$_DELTIMREQ = 1410052; ;(* ; LIB$CVT_FROM_INTERNAL_TIME *) CONST LIB$_INVOPER = 1410060; ;(* ; LIB$CVT_XXX_INTERNAL_TIME *) CONST LIB$_REENTRANCY = 1410068; ;(* ;LIB$FORMAT_DATE_TIME, LIB$INIT_DATE_TIME_CONTEXT, *);(* ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT *) CONST LIB$_UNRFORCOD = 1410076; ;(* ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, *);(* ;LIB$GET_DATE_FORMAT *) CONST LIB$_ILLINISTR = 1410084; ;(* ;LIB$INIT_DATE_TIME_CONTEXT *) !CONST LIB$_NUMELEMENTS = 1410092; ;(* ;LIB$INIT_DATE_TIME_CONTEXT *) CONST LIB$_ELETOOLON = 1410100; ;(* ;LIB$INIT_DATE_TIME_CONTEXT *) "CONST LIB$_ILLCOMPONENT = 1410108; ;(* ;LIB$INIT_DATE_TIME_CONTEXT *) CONST LIB$_AMBDATTIM = 1410116; ;(* ;LIB$CONVERT_DATE_STRING *) CONST LIB$_INCDATTIM = 1410124; ;(* ;LIB$CONVERT_DATE_STRING *) CONST LIB$_ILLFORMAT = 1410132; ;(* ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT *) CONST LIB$_UNSUPVER = 1410140; =(* ; LIB$ASCII_TO_UID, LIB$COMPARE_UID, LIB$UID_TO_ASCII *) CONST LIB$_BADFORMAT = 1410148; ;(* ; LIB$ASCII_TO_UID *) CONST LIB$_NODTOOLNG = 1410156; ;(* ; LIB$BUILD_NODESPEC *) CONST LIB$_NOHOSNAM = 1410164; ;(* ; LIB$GET_HOSTNAME *) CONST LIB$_OUTSTRTRU = 1413120; ;(* ; LIB$CVTDXDX *) CONST LIB$_FILFAIMAT = 1413128; ;(* ; LIB$QUAL_FILE_MATCH *) CONST LIB$_NEGANS = 1413136; ;(* ; LIB$CONFIRM_ACT *) CONST LIB$_QUIPRO = 1413144; ;(* ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH *) CONST LIB$_QUICONACT = 1413152; ;(* ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH *) CONST LIB$_ENGLUSED = 1413160; ;(* ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, *);(* ;LIB$GET_DATE_FORMAT *) CONST LIB$_DEFFORUSE = 1413168; ;(* ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, *);(* ;LIB$GET_DATE_FORMAT *) CONST LIB$_MEMALRFRE = 1413176; ;(* ;LIB$VM_FREE  *) CONST LIB$_BADCCC = 1425408; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_EOMERROR = 1425416; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_EOMFATAL = 1425424; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_EOMWARN = 1425432; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_GSDTYP = 1425440; ;(* ; LIB$$READ_OBJECT  *) CONST LIB$_ILLFMLCNT = 1425448; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_ILLMODNAM = 1425456; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_ILLPSCLEN = 1425464; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECLEN = 1425472; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECLN2 = 1425480; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECTYP = 1425488; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECTY2 = 1425496; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_ILLSYMLEN = 1425504; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_NOEOM = 1425512; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_RECTOOSML = 1425520; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_SEQUENCE = 1425528; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_SEQUENCE2 = 1425536; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_STRLVL = 1425544; ;(* ; LIB$$READ_OBJECT *) CONST LIB$_NOWILD = 1380650; LIB$_ACTIMAGE = 1381050; LIB$_OPENIN = 1380506; LIB$_CLOSEIN = 1380432; LIB$_READERR = 1380530;  N(* END. *) N(* MODULE LIBVMDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127;  *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727;  *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBVMDEF ***) N(* Interface definitions for LIB$VM package  *)N(* *)N(* LIB$CREATE_VM_ZONE algorithm codes *) LCONST LIB$K_VM_FIRST_FIT = 1; (* First fit *)V LIB$K_VM_QUICK_FIT = 2; (* Quick fit, with fixed queues of preferred sizes *)K LIB$K_VM_FREQ_SIZES = 3; (* First fit, with frequent sizes cache *)G LIB$K_VM_FIXED = 4; (* Fixed size blocks *) N(* LIB$CREATE_VM_ZONE flag definitions *) LCONST LIB$M_VM_BOUNDARY_TAGS = 1; (* Boundary tagged blocks *)G LIB$M_VM_GET_FILL0 = 2; (* 0-fill for LIB$GET_VM *)G LIB$M_VM_GET_FILL1 = 4; (* 1-fill for LIB$GET_VM *)G LIB$M_VM_FREE_FILL0 = 8; (* 0-fill for LIB$FREE_VM *)G LIB$M_VM_FREE_FILL1 = 16; (* 1-fill for LIB$FREE_VM *)N LIB$M_VM_EXTEND_AREA = 32; (* Add extent to existing a rea if possible *)I LIB$M_VM_NO_EXTEND = 64; (* Area is not allowed to be extended *)O LIB$M_VM_TAIL_LARGE = 128; (* Add larger than normal areas at the tail *) N(* END. *) N(* MODULE LICENSEMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535;  *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15;  *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143;  *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $B IT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LICENSEDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:56.80 *)N(* *)O(* ************************************************************************* *)O(* *  * *)O(* * HP CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL PROPRIETARY SOFTWARE * *)O(* * LICENSED BY HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., AND IS NOT * *)O(* * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT THE * *)O(* * PRIOR WRITTEN PERMISSION OF HP. * *)O(* * (C) 2015 COPYRIGHT HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *)O(* * * *)O(* * VMS SOFTWARE, INC. CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL * *)O(* * PROPRIETARY SOFTWARE LICENSED BY VMS SOFTWARE, INC., AND IS NOT * *)O(* * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT * *)O(* * THE PRIOR WRITTEN PERMISSION OF VMS SOFTWARE, INC. * *)O(* * (C) 2015 COPYRIGHT VMS SOFTWARE, INC. * *)O(* * * *)O(* ************************************************************************* *)N(*++ *)N(* *)N(* FACILITY: *)N(* *)I(* VAX/VMS LICENSING SYSTEM SERVICES *)N(*  *)N(* ABSTRACT: *)N(* *)K(* THIS MODULE DEFINES THE STATUS CODES FOR THE VARIOUS ERROR CONDITIONS *)I(* THAT CAN OCCUR WHILE ATTEMPTING TO DO LICENSING CHECKS FOR A *)I(* DSLA LICENSED SOFTWARE PRODUCT. *)N(* *)N(* AUTHOR: *)N(* *)I(* TRUDY C. MATTHEWS *)N(* *)N(* CREATION DATE: *)N(* *)I(* 26 JANUARY 1987  *)N(* *)N(* MODIFIED BY: *)N(* *)0(* X-11 DAG DOUG GORDON 22-JUN-2015 *)B(* ADD VSI TO ILLPRODUCER *)N(* *)2(* X-10 GP030104 GUY PEL EG 01-MAR-2004 *)B(* ADD NONCOMPLIANCE. *)N(* *)1(* X-9 GP121003 GUY PELEG 10-DEC-2003 *)B(* UPDATE ILLPRODUCER TO INCLUDE HP. *)N(* *)6(* X-8 EAG2 ERIC ABIS 3-JUN-1998 *)C(* ADDED USER_MODE. *)N(*  *)5(* X-7 EA12 ERIC ABIS 4-APR-1995 *)B(* ADDED INVALID_TOKEN. *)N(* *)6(* X-6 EA001 ERIC ABIS 29-APR-1991 *)B(* ADDED MESSAGE FOR PRODUCTS WITH RESERVE LISTS. IT IS *)B(* PUT IN THE PLACE OF THE CURRENTLY UNUSED INVALID_HW_ID *)B(* MESSAGE BECAUSE THE SEPARATE RELEASE OF LMF 1.1 REQUIRED *)B(* THE PATCHING OF SYSMSG.EXE. THIS PATCH REPLACED *)B(* INVALID_HW_ID WITH NOTINRSRVLIST. FUTURE RELEASES OF *)B(* VMS, IF THEY INCLUDE LMF 1.1, WILL NOT HAVE TO PATCH *)B(* AND NOTINRSRVLIST WILL RETAIN ITS VALUE. THE UNUSED *)B(* INVALID_HW_ID WILL GET A NEW MESSAGE NUMBER AND THE *)B(* IMPACT SHOULD BE MINIMAL *)N(*  *)6(* X-5 JWN009 JOHN W. NOGRADY 03-NOV-1987 *)B(* UPDATE MESSAGE TEXT AND ALLOW FOR "room to grow". *)N(* *)6(* X-4 JWN001 JOHN W. NOGRADY 14-OCT-1987 *)B(* ADD MESSAGES NOAUTH AND SYSMGR. THESE MESSAGES WILL *)B(* BE THE FIRST TWO VALUES IN THE MESSAGE VECTOR USED IN *)B(* THE ROUTINE $LOOKUP_LICENSE. *)N(*  *)1(* X-3 DKH001 KEN HOBDAY 19-SEP-1987 *)B(* ADD ADDITIONAL MESSAGES FOR LMF$GRANT_LICENSE *)N(* *)8(* X-2 TCM0002 TRUDY C. MATTHEWS 09-MAR-1987 *)B(* REMOVE WORD WARRANTY FROM LICENSE STATUS MESSAGES. *)N(* *)8(* X-1 TCM0001 TRUDY C. MATTHEWS 26-JAN-1987  *)B(* INITIAL VERSION. *)N(*-- *) CONST LICENSE_FACILITY = 2708; N(* SUCCESS CODES *)N(* THESE CODES RETURN INFORMATION *) "CONST LICENSE$_SYSMGR = 177505059;$ LICENSE$_NONCOMPLIANCE = 177505067; N(* THESE CODES RETURN SLIGHTLY DISMAYING INFORMATION  *)N(* THESE CODES INDICATE UNRECOVERABLE ERRORS *) "CONST LICENSE$_NOAUTH = 177507058; N(* ALL OF THESE ARE FATAL *) %CONST LICENSE$_NOLICENSE = 177507860; LICENSE$_EXCEEDED = 177507868;" LICENSE$_NOT_STARTED = 177507876;# LICENSE$_INVALID_DATE = 177507884;& LICENSE$_INVALID_VERSION = 177507892;! LICENSE$_TERMINATED = 177507900;$ LICENSE$_NOTINRSRVLIST = 177507908; N(*+  *)N(* RETURNED BY SYS$LOOKUP_LICENSE *)N(*- *) $CONST LICENSE$_BADPARAM = 177507916;" LICENSE$_ILLPRODUCER = 177507924; LICENSE$_WRONUMARG = 177507932;$ LICENSE$_INVALID_HW_ID = 177507940;$ LICENSE$_INVALID_TOKEN = 177507948; N(*+ *)N(* NEW MES SAGES *)N(*- *) %CONST LICENSE$_USER_MODE = 177507956; N(* END. *) N(* MODULE LOGINMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535;  *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15;   *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5 ),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;   *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143;   *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BI T(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647;  *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LGIDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:47.87 *)N(* *)N(*--- *)N(*  *)I(* ERROR MESSAGES FOR LOGINOUT *)N(* *)N(*--- *)N(* *)O(* ************************************************************************* *)O(* * * *)O(* * HP CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL PROPRIETARY SOFTWARE * *)O(* * LICENSED BY HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., AND IS NOT * *)O(* * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT THE * *)O(* * PRIOR WRITTEN PERMISSION OF HP. * *)O(* * COPYRIGHT 2015 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *)O(* * * *)O(* * VMS SOFTWARE, INC. CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL * *)O(* * PROPRIETARY SOFTWARE LICENSED BY VMS SOFTWARE, INC., AND IS NOT * *)O(* * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT * *)O(* * THE PRIOR WRITTEN PERMISSION OF VMS SOFTWARE, INC. * *)O(* * COPYRIGHT 2015 VMS SOFTWARE, INC. * *)O(* * * *)O(* ************************************************************************* *)N(* *)N(*++ *)N(* FACILITY: LOGINOUT *)N(* *)N(* ABSTRACT: *)N(*  *)I(* THESE ARE THE ERROR MESSAGES USED BY THE LOGINOUT PROGRAM. *)N(* *)N(* ENVIRONMENT: *)N(* *)I(* VMS OPERATING SYSTEM, PRIVILEGED UTILITY. *)N(* *)N(* AUTHOR: TIM HALVORSEN, MARCH 1981 *)N(* *)N(* MODIFIED BY: *)N(* *)3(* X-16 MAS MARK A. STILES 9-SEP-2015 *)B(* MAKE IA64HELLO MESSAGE (USED FOR DEFAULT SYS$WELCOME) *)B(* MATCH BOOT BANNER FORMAT *)N(*  *)0(* X-15 DAG DOUG GORDON 22-JUN-2015 *)B(* REMOVE 'DEC' FROM NOVAXCLUSTER *)N(* *)0(* X-14 DAG DOUG GORDON 7-APR-2015 *)B(* ONE MORE VSI BRANDING CHANGE *)N(* *)6(* X-13 JAH0504 JOHN A HARNEY 23-MAR-2 005 *)B(* D'OH. I DUPLICATED THE SPACE PADDING IN THE NEW *)B(* PWDCLEARSEC MESSAGE FROM THE MESSAGE ABOVE; THAT'D *)B(* HAVE BEEN WONDERFUL IF THE MESSAGE JUST ABOVE WAS *)B(* A SIMILAR MESSAGE. ADD ONE MORE SPACE, TO MAKE *)B(* PWDCLEARSEC JUST LIKE PWDSYNCHSEC. *)N(* *)6(* X-12 JAH0504 JOHN A HARNEY 05-JAN-2005 *)B(* ADD PWDCLEARSEC - *)N(* "OpenVMS secondary password has been cleared" *)N(* *)7(* X-11 MAS0803 MARK A. STILES 10-NOV-2004 *)B(* ONCE AGAIN, WE BOW TO THE LEGAL BEAGLES, BEAN COUNTERS, *)B(* AND SPIN DOCTORS. MAKE "hp" BE "HP" IN THE PRODUCT NAME *)B(* IN THE BANNER. *)N(*  *)7(* X-10 MAS0796 MARK A. STILES 4-APR-2004 *)B(* FINALLY USE REAL PRODUCT NAME IN WELCOME. *)B(* FOR TOPAZ, THIS WILL BE: *)E(* HP OPENVMS INDUSTRY STANDARD 64 OPERATING SYSTEM, VERSION V8.2 *)N(* *)6(* X-9 MAS0784 MARK A. STILES 23-JUN-2003 *)B(* YOU DIDN'T THINK THEY'D LET US GET OUT WITHOUT AT  *)B(* LEAST ONE PRODUCT/BANNER/WELCOME NAME CHANGE, DO YOU?? *)B(* FOR MAKO_BL2, THE BANNER/WELCOME BECOMES: *)B(* HP OPENVMS INDUSTRY STANDARD 64 EVALUATION RELEASE V8.0 *)N(* *)5(* X-8 JAH0434 JOHN A HARNEY 25-FEB-2003 *)B(* ADD IA64HELLO WELCOME MESSAGE. *)N(* *)<(* X-7 LJK0200 LAWRENCE J. KILGALLEN 13-DEC-2000 *)B(* ADD THE STATUS CODE LGI$_DECWRESTART. *)N(* *)<(* X-6 LJK0198 LAWRENCE J. KILGALLEN 12-DEC-2000 *)B(* ADD THE STATUS CODE LGI$_NULLNETUSER. *)N(* *)<(* X-5 LJK0175 LAWRENCE J. KILGALLEN 26-JUN-2000 *)B(* COPY MESSAGES FROM SET.MSG SO THEY WILL BE AVAILABLE *)B(* TO THIRD PARTY ACME AGENTS. *)B(* CHANGE COPYRIGHT. *)N(* *)<(* X-4 LJK0119 LAWRENCE J. KILGALLEN 29-JAN-1999 *)B(* ADD LGI$_LOSTSYNC MESSAGE. *)N(* *)<(* X-3 LJK0045 LAWRENCE J. KILGALLEN 26 -MAY-1998 *)B(* CHANGE THE TWO PASSWORD SYNCHRONIZATION MESSAGES TO *)B(* SAY "external" RATHER THAN "network". *)B(* TRIPLE THE TWO PASSWORD SYNCHRONIZATION MESSAGES TO *)B(* COVER PRIMARY AND SECONDARY PASSWORDS. *)N(* *)<(* X-2 LJK0033 LAWRENCE J. KILGALLEN 13-MAY-1998 *)B(* ADD LGI$_LOGDISABLOPR. *)B(* ADD SPACE TO LGI$_LOSTLGI. *)B(* ADD SPACE TO LGI$_LOSTDEC. *)N(* *)<(* X-1 LJK0009 LAWRENCE J. KILGALLEN 11-MAR-1998 *)B(* INITIAL SUPPORT OF EXTERNAL AUTHENTICATION II: *)B(* ADD LGI$_PWD2NOTSET. *)B(* ADD LGI$_SYSPWDERR. *)B(* ADD LGI$_LOSTDEC.  *)B(* ADD LGI$_LOSTLGI. *)B(* ADD LGI$_NOSYSPWD. *)B(* ADD LGI$_WRONGPRINCIPAL. *)B(* ADD LGI$_PROCSTEP. *)B(* ADD LGI$_SUBPROGRAM. *)B(* ADD LGI$_OLDPOLICY. *)B(* CHANGE MODULE NAME TO LOGINMSG AND MOVE IT TO STARLE T. *)N(* *)8(* X-19 RJB0023 RICHARD J. BARRY 4-MAR-1996 *)B(* ADD SINGLE SIGN-ON MESSAGES. *)N(* *)6(* X-18 JAH0202 JOHN A HARNEY 16-JAN-1996 *)B(* PUT THE (TM) IN THE RIGHT PLACE IN ALPHAHELLO AND VAXHELLO. *)N(* *)9(* X -17 NYK487 NITIN Y. KARKHANIS 29-SEP-1995 *)B(* O INCREASE FIELD WIDTH FOR NUMBER DISPLAYED AFTER THE *)B(* PEAK PAGE FILE SIZE TEXT IN LOGOUT/FULL. *)B(* O CHANGED THE FIELD WIDTHS FOR WS PEAK AND MOUNTED *)B(* VOLUME COUNT SO THAT THE NUMBERS ARE ALIGNED ON THE *)B(* RIGHT-HAND-SIDE, FOR LOGOUT/FULL. *)B(* O REPLACED THE "Peak page file size" TEXT WITH "PEAK *)B(* VIRTUAL SIZE" SINCE THAT IS THE VALU!E THAT IS ACTUALLY *)B(* DISPLAYED. *)N(* *)<(* X-16 JAH0180 JOHN A HARNEY 08-MAY-1995 *)B(* CHANGE THE ALPHA'S WELCOME MESSAGE TO REMOVE AXP REFERENCE *)N(* *)5(* X-15 TNS003 TOM SCARPELLI 21-SEP-1993 *)B(* UPDATE MESSAGES TO MATCH VAX VERSION. *)"N(* *)5(* X-14 TNS003 TOM SCARPELLI 29-JUN-1993 *)B(* MOVE HARDCODED DAYS OF THE WEEK TO MESSAGE FILE. *)N(* *)5(* X-13 TNS003 TOM SCARPELLI 23-JUN-1993 *)B(* USE LOCAL DATE/TIME FORMAT. *)N(* *)/(* X-12 AHM DRE #W MASON 29-SEP-1992 *)B(* MAKE PRODUCT NAME FIT ON 80 COLUMNS. *)N(* *)/(* X-11 AHM DREW MASON 29-SEP-1992 *)B(* LAST PRODUCT NAME CHANGE FOR V1. *)N(* *)/(* X-10 AHM DREW MASON 28-SEP-1992 *)B(* LAST PRODUCT NAME CHANGE FOR V1. *)N(* $ *).(* X-9 AHM DREW MASON 25-SEP-1992 *)B(* CHANGE PRODUCT NAME. *)N(* *)4(* X-7 TNS001 TOM SCARPELLI 19-JUN-1992 *)B(* FIX TEXT OF DECWCAPTIVE ERROR MESSAGE. *)N(* *);(* X-6 TNS001 TOM SCARPELLI %23-JAN-1992 *)B(* MERGE THE FOLLOWING CHANGE: *)N(* (X-15 DDP1119 DERRELL D. PIPER 8-JAN-1992 12:16 *)N(* ADD MESSAGE FOR WHEN LOGINOUT IS NOT PROPERLY INSTALLED.) *)N(* *);(* X-5 TNS001 TOM SCARPELLI 23-DEC-1991 *)B(* MERGE THE FOLLOWING CHANGE: *)F(* (X-14 DDP0952 DERRELL D. PIPER & 23-MAY-1991 13:40 *)B(* FOLD SIGMA CHANGE INTO MAGIC: *)A(* DDP0931 DERRELL D. PIPER 6-MAY-1991 16:50 *)B(* ADD MESSAGE FOR FAILURE TO ACCESS RIGHTS DATA BASE.) *)N(* *)5(* X-4 KLN1136 KAREN L. NOEL 06-AUG-1991 *)B(* MERGE THE FOLLOWING CHANGE: *)N(* (X-13 JRC1015 JOHN R. COVERT 22-FEB-1991' 14:45 *)N(* IMPLEMENT LOGINOUT CALLOUTS.) *)N(* *);(* X-3 TNS001 TOM SCARPELLI 22-APR-1991 *)B(* ADD WELCOME AND LOGOUT MESSAGE TEXT. *)N(* *)D(* X-9 DDP0352 DERRELL D. PIPER 24-FEB-1989 14:51 *)B(* ADD VAXCLUSTER LICENSE MESSAGE. ( *)N(* *)D(* X-8 DDP0303 DERRELL D. PIPER 27-JUN-1988 15:15 *)B(* MERGE DECWINDOWS CHANGES INTO MAINLINE. *)N(* *)>(* X-7 RJB0048 RICHARD J. BOUCHARD JR. 15-NOV-1987 *)B(* CHANGE LOGOPRCON TO EXPLICITLY STATE THAT LOGIN WAS *)B(* ALLOWED ON OPA0:, NOT A GENERIC "operator console" ) *)N(* *)>(* X-6 RJB0034 RICHARD J. BOUCHARD JR. 26-OCT-1987 *)B(* ADD MESSAGES FOR SUPPORT OF LMF CALL WITHIN LOGINOUT *)N(* *)D(* X-5 DDP0135 DERRELL D. PIPER 13-AUG-1987 20:03 *)B(* RENAME LGI$_FRCPWDERR TO LGI$_FRCPWDHLP AND MAKE THE *)B(* MESSAGE TEXT MORE READABLE. ADD LGI$_FRCPWDERR FOR *)B(** FORCE PASSWORD CHANGE TIMEOUTS. *)N(* *)D(* X-4 DDP0076 DERRELL D. PIPER 18-MAY-1987 19:04 *)B(* ADD LGI$_FRCPWDERR MESSAGE FOR FORCED PASSWORD CHANGE *)B(* ERRORS (POINT USER TO ). *)N(* *)7(* X-3 DDP0052 DERRELL D. PIPER 01-APR-1987 *)B(* ADD LGI$_NOT+MODEM MESSAGE FOR INCORRECTLY WIRED MODEMS. *)N(* *)?(* V04-001 ACG0478 ANDREW C. GOLDSTEIN, 12-APR-1985 19:41 *)B(* ADD LGI$_EXLICENSE, LGI$_DISUSER, LGI$_AUTOLOGIN, *)B(* AND LGI$_INVINPUT MESSAGES *)N(* *)9(* V03-008 MHB0142 MARK BRAMHALL 27-APR-1984 *)B(* ADD NOSUCHUSER AND INVPWD. , *)N(* *)9(* V03-007 MHB0130 MARK BRAMHALL 10-APR-1984 *)B(* MAKE CONNERR ONLY AN ERROR, NOT FATAL. *)B(* ADD CLITBLFAIL AND CLITBLPROT. *)N(* *)9(* V03-006 MHB0112 MARK BRAMHALL 21-MAR-1984 *)B(* ADD CONNERR AND DISRECONNECT. - *)N(* *)8(* V03-005 PCG0001 PETER GEORGE 04-FEB-1984 *)B(* ADD ACNTEXPIR AND PWDEXPIR. *)N(* *)?(* V03-004 ACG0385 ANDREW C. GOLDSTEIN, 29-DEC-1983 11:59 *)B(* ADD NEW RESTRICTION MESSAGES *)N(* . *)?(* V03-003 ACG0376 ANDREW C. GOLDSTEIN, 29-NOV-1983 14:23 *)B(* ADD DEFCLI RESTRICTIONS MESSAGE *)N(* *)7(* V03-002 GAS-162 GERRY SMITH 30-JUL-1983 *)B(* ADD MESSAGES FOR SYSTEM PASSWORD AND BREAKIN EVASION. *)N(* *)7(* V03-001 GAS0123 GERRY SMITH 20-APR-1983 *)B(* ADD NETUAFACC, E/RROR ACCESSING NETUAF FILE. *)N(* *)7(* V02-003 HRJ0036 HERB JACOBS 08-DEC-1981 *)B(* ADDED MORE MESSAGES FOR TERMINAL TYPE RESTRICTIONS. *)N(* *)7(* V02-002 HRJ0031 HERB JACOBS 02-NOV-1981 *)B(* ADD MESSAGES FOR TIME OF DAY AND USER ACCOUNT RESTRICTIONS. *)N(* 0 *)=(* V001 TMH0001 TIM HALVORSEN 22-OCT-1981 *)B(* ADD ERROR MESSAGE FOR CAPTIVE ACCOUNTS *)B(* CHANGE TO USE SYSTEM-WIDE FACILITY NUMBER. *)N(*---- *)N(* IMPORTANT: *)N(* *)Q(* THESE MESSAGES ARE MADE AVAI 1LABLE TO INSTALLATION CALLOUT ROUTINES AND ARE *)P(* STORED IN THE ACCOUNTING FILE AND MUST NOT CHANGE VALUE FROM NOW ON. YOU *)N(* MUST ADD ALL NEW MESSAGES TO THE APPROPRIATE SECTION AT THE END OF THIS *)N(* MODULE. *) CONST LOGIN$_FACILITY = 211; N(* DEFAULT SEVERITY IS FATAL *) CONST LGI$_JBCMIXUP = 13860876; LGI$_LOGDISABL = 13860884; LGI$_EXQUOTA = 13860892;2 LGI$_CLIFAIL = 13860900; LGI$_CLIPROT = 13860908; LGI$_CLISYMTBL = 13860916; LGI$_NOTVALID = 13860924; LGI$_FILEACC = 13860932; LGI$_USERAUTH = 13860940; LGI$_INPUTERR = 13860948; LGI$_OUTPUTERR = 13860956; LGI$_CMDINPUT = 13860964; LGI$_OPENIN = 13860968; LGI$_CAPTIVE = 13860980; LGI$_BADHOUR = 13860988; LGI$_USEREXC = 13860996; LGI$_ACNTEXC = 13861004; LGI$_BADDAY = 13861012; LGI$_RESTRICT = 13861020; LGI$_NETUAFACC = 13861028; LGI$_SYSPWDTMO = 138610363; LGI$_EVADE = 13861044; LGI$_DEFCLI = 13861052; LGI$_ACNTEXPIR = 13861060; LGI$_PWDEXPIR = 13861068; LGI$_CONNERR = 13861074; LGI$_DISRECONNECT = 13861084; LGI$_CLITBLFAIL = 13861092; LGI$_CLITBLPROT = 13861100; LGI$_NOSUCHUSER = 13861108; LGI$_INVPWD = 13861116; LGI$_EXLICENSE = 13861124; LGI$_DISUSER = 13861132; LGI$_AUTOLOGIN = 13861140; LGI$_INVINPUT = 13861148; LGI$_NOTMODEM = 13861156; LGI$_FRCPWDERR = 13861164; LGI$_LICCHKINV = 13861172; LGI$_FISFAI4L = 13861180; LGI$_DECWCAPTIVE = 13861188; LGI$_NOVAXCLUSTER = 13861196; N(* SEVERITY OF THIS MESSAGE IS INFORMATIONAL *) CONST LGI$_FRCPWDHLP = 13861203; N(* SEVERITY OF THESE MESSAGES IS SUCCESS *) CONST LGI$_LICNOTREQ = 13861209; LGI$_LOGOPRCON = 13861217; LGI$_LICCHKVAL = 13861225; R(* ALL NEW MESSAGES MUST BE ADDED TO ONE OF THE FOLLOWING SECTIONS. YOU CANNOT *)P(* ADD A MESSAGE ABOVE AS THIS WIL 5L CHANGE THE VALUES OF THOSE MESSAGES WHICH *)N(* FOLLOW YOUR NEW (PRESUMABLY FATAL) MESSAGE. *)N(* INFORMATIONAL MESSAGES *) #CONST LGI$_LOGDISABLOPR = 13861267; N(* SUCCESS MESSAGES *) LCONST LGI$_SKIPRELATED = 13861665; (* INTERNAL COMMUNICATION ONLY *) N(* WARNING MESSAGES *)N(* ERR6OR MESSAGES *)N(* *)N(* THE FOLLOWING TWO MESSAGES DUPLICATE SET$_ MESSAGES IN SEVERITY AND *)N(* TEXT (ALTHOUGH NOT IN CODE VALUE) TO ALLOW TRANSMISSION OF THEIR *)N(* VALUE TO SYS$ACM CLIENTS WHO DO NOT HAVE SET$_ MESSAGES CODES IN *)N(* THEIR IMAGE. FOR THE PARTICULAR CASES OF LOGINOUT COMMUNICATING *)N(* WITH AN LGI-CALLOUT PROVIDER 7OR SET PASSWORD RETURNING STATUS TO *)N(* DCL, THESE LGI$_ CODES GET CONVERTED TO THE CORRESPONDING SET CODES *)N(* TO PRESERVE COMPATIBILITY WITH VERSIONS OF VMS PRIOR TO V7.2. *)N(* *) !CONST LGI$_PWD2NOTSET = 13863266; LGI$_SYSPWDERR = 13863274; N(* FATAL ERRORS *) !CONST LGI$_COUNTWRONG = 13864068; LGI$_RDBACCERR = 138640876; LGI$_NOTALLPRIV = 13864084; LGI$_NOEXTAUTH = 13864092; LGI$_NOLOCAUTH = 13864100; N(* *)N(* FATAL MESSAGES ADDED FOR EXTERNAL AUTHENTICATION II *)N(* *) CONST LGI$_LOSTDEC = 13864108; LGI$_LOSTLGI = 13864116; LGI$_NOSYSPWD = 13864124; LGI$_WRONGPRINCIPAL = 13864132; LGI$_LOSTSYNC = 13864140; N(* 9 *)N(* FAILURE MESSAGES ADDED FOR EXTERNAL AUTHENTICATION III *)N(* *) "CONST LGI$_NULLNETUSER = 13864148; LGI$_DECWRESTART = 13864156; N(* *)N(* ALL ERROR MESSAGES SHOULD BE ADDED BEFORE THIS POINT. THE MESSAGES *)N(* FOLLOWING THE .BASE DIRECTIVE BELOW : ARE TEXT OUTPUT BY LOGINOUT *)N(* OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. *)N(* *)N(* *)N(* THE FOLLOWING ARE MESSAGES OUTPUT IN LOGIN.B32 *)N(* *) CONST LGI$_JOBTERM = 13869057; LGI$_JOBLOGOUT = 13869065;; LGI$_PROCEND = 13869073; LGI$_ACNTINFO = 13869081; LGI$_ACNTINFO1 = 13869089; LGI$_ACNTINFO2 = 13869097; LGI$_ACNTINFO3 = 13869105; LGI$_ACNTINFO4 = 13869113; LGI$_ACNTINFO5 = 13869121; LGI$_PASEXP = 13869129; LGI$_PRIPASEXP = 13869137; LGI$_SECPASEXP = 13869145; LGI$_SETPAS = 13869153; LGI$_SETPRIPAS = 13869161; LGI$_SETSECPAS = 13869169; LGI$_EXPSETPAS = 13869177; LGI$_PRISETPAS = 13869185; LGI$_SECSETPAS = 13869193; N(* < *)N(* THE FOLLOWING ARE MESSAGES OUTPUT IN INTERACT.B32 *)N(* *) CONST LGI$_USERNAME = 13869201; LGI$_PASSWORD = 13869209; LGI$_VAXHELLO = 13869217; LGI$_ALPHAHELLO = 13869225; LGI$_ONNODE = 13869233; LGI$_LASINTLOG = 13869241; LGI$_LASNOINTLOG = 13869249; LGI$_LOGFAILS = 13869257; LGI$_NEWMAILCNT = 13869265; LGI$_NEWMAIL = 13869273;= LGI$_DISCONPROC = 13869281; LGI$_DISCONPROCS = 13869289; LGI$_DISCONHDR = 13869297; LGI$_DISCONTXT = 13869305; LGI$_CONTOTERM = 13869313; LGI$_CONTOPROC = 13869321; LGI$_YESRESP = 13869329; LGI$_NONERESP = 13869337; LGI$_TERMCONN = 13869345; LGI$_MONDAY = 13869353; LGI$_TUESDAY = 13869361; LGI$_WEDNESDAY = 13869369; LGI$_THURSDAY = 13869377; LGI$_FRIDAY = 13869385; LGI$_SATURDAY = 13869393; LGI$_SUNDAY = 13869401; N(* > *)N(* NEW SINGLE SIGN-ON MESSAGES. *)N(* *) CONST LGI$_PWDSYNCH = 13869409; LGI$_PWDNOSYNCH = 13869417; LGI$_LOCLOGIN = 13869425; N(* *)N(* MESSAGES ADDED FOR EXTERNAL AUTHENTICATION II *)N(* ? *) CONST LGI$_PROCSTEP = 13869433; LGI$_SUBPROGRAM = 13869441; LGI$_OLDPOLICY = 13869449; LGI$_PWDSYNCHPRI = 13869457; LGI$_PWDSYNCHSEC = 13869465; LGI$_PWDNOSYNCHPRI = 13869473; LGI$_PWDNOSYNCHSEC = 13869481; N(* *)N(* MESSAGES COPIED FROM SET.MSG SO THEY WILL BE AVAILABLE *)N(* TO THIRD PARTY ACME AGENTS. *)N(* @ *) CONST LGI$_OLDPASS = 13869489; LGI$_NEWPASS = 13869497; LGI$_CHKPASS = 13869505; N(* *)N(* IA64HELLO WELCOME MESSAGE *)n(* NOTE: INDENTED ONLY TWO SPACES TO KEEP ENTIRE LENGTH WITH VERSION STRING AND NODE NAME AT 80 CHARACTERS *)N(* A *) CONST LGI$_IA64HELLO = 13869513; N(* *)N(* ANOTHER MESSAGE ADDED FOR EXTERNAL AUTHENTICATION II *)N(* *) "CONST LGI$_PWDCLEARSEC = 13869521; N(* *)N(* ERROR MESSAGES SHOULD BE NOT ADDED AT THIS POINT. THE MESSAGES *)N B(* FOLLOWING THE .BASE DIRECTIVE ABOVE ARE TEXT OUTPUT BY LOGINOUT *)N(* OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. *)N(* *) N(* END. *) N(* MODULE MAILMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -C128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UDWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)EJ(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; F *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),GUNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; H*)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; I *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31 J),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MAILMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:53.27 *)N(* *)N(* *)J(* VERSION: K'X-14' *)N(* *)Q(***************************************************************************** *)(** * *)C(** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992 - 1996 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE LAND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE M * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(*++ N *)N(* *)N(* FACILITY: VMS SYSTEM MACRO LIBRARIES *)N(* *)N(* ABSTRACT: *)N(* *)I(* THIS FILE CONTAINS THE MDL SOURCE FOR MAIL MESSAGES *)N(* O *)N(* ENVIRONMENT: *)N(* *)I(* N/A *)N(* *)N(* *)N(* P *)H(* AUTHOR: THE VMS GROUP CREATION DATE: 8-JUN-1978 *)N(* *)N(* MODIFICATION HISTORY: *)N(* *)=(* X-14 RKS020909 RANJAN KUMAR SARANGI 09-FEB-2009 *)B(* MODIFIED DIRHD0 MESSAGE FORMAT FOR MAIL HEADER *)B(* ALIGNMENT(PTR-75-120-515).Q *)N(* *)N(* X-13 SD070507 SAMWEDANA DEVPA 05-JUL-2007 *)B(* MODIFIED DIRHD0 MESSAGE FORMAT. *)N(* *)5(* X-12 SG088 SHEELA GAYATRI 20-FEB-1996 *)B(* ADD KEYNOTDEF & INVKEYNAM MESSAGES. *)N(* R *)5(* X-11 SG082 SHEELA GAYATRI 09-FEB-1996 *)B(* ADD ILLEDTNAM MESSAGE. REMOVE X-10. *)N(* *)9(* X-10 SG067 SHEELA GAYATRI 13-NOV-1995 *)B(* ADD CDASUPPORT MESSAGE FOR EAGLE/THETA FOR MAIL/OLD *)B(* SUPPORT FOR DDIF/DTIF FILES. THIS MESSAGE WILL *)B(* BECOME REDUNDANT IN GRYPHON, WHEN SUPPORT FOR S *)B(* DDIF/DTIF FILE PROCESSING IS ADDED. *)N(* *)6(* X-9 ROP1002 ROBERT POSNIAK 7-JUN-1995 *)B(* ADD SHOWNOSIG, SHOWSIG AND BADLOGVAL MESSAGES. *)N(* *)5(* X-8 MB0020 MARINA BUCKLEY 12-OCT-1994 *)B(* MODIFY THE TEXT OF THE CODERR FATAL ERROR. *)N(* T *)5(* X-7 MB0011 MARINA BUCKLEY 16-JUN-1994 *)B(* ADD MAIL$_LISTTOOLONG ERROR MESSAGE TO BE RETURNED *)B(* FROM CALLABLE MAIL ROUTINE MAIL$SEND_ADD_ADDRESS IF *)B(* USER CALLS IT MULTIPLE TIMES RESULTING IN AN ADDRESS *)B(* LIST THAT EXCEEDS THE MAXIMUM. *)N(* *)4(* X-6 TNS004 TOM SCARPELLI 11-APR-1994 U *)B(* ADD I18N CHANGES. *)N(* *)4(* X-5 RAB RICHARD A. BISHOP 17-AUG-1993 *)B(* PICK UP MAIL$_DELETED AND MAIL$_FFMTMSG FROM VAX: *)N(* *)3(* X-22 CCD027 CAREY DONAT 11-AUG-1993 *)B(* REMOVE FROM MIDDLE OF FFMTMSG *)N(* V *)3(* X-21 CCD027 CAREY DONAT 13-JUL-1993 *)B(* ADD FFMTMSG INFORMATIONAL MESSAGE FOR FOREIGN FILES *)B(* WHERE TRANLATOR EXISTS *)N(* *)3(* X-20 CCD007 CAREY DONAT 08-FEB-1993 *)B(* ADD DELETED MESSAGE FOR COMPRESS TEMP FILE SUCCESSFULLY *)B(* DELETED W *)N(* *)G(* ***** OLD AUDIT TRAIL FOLLOWS *)N(* *)6(* X-6 LAF0001 LISA A. FARLEY 02-JUL-1992 *)B(* FIX FOR QAR #3161. ADDED MESSAGE INVRANGE TO LET THE *)B(* USER KNOW WHEN THE RANGE SPECIFIED FOR A DELETE IS *)B(* INVALID. *)NX(* *)7(* X-5 MFS0069 MARK F. SCANLON 26-JUN-1992 *)B(* QAR 2682. REMOVED FAO FROM MESSAGE NAMTOOBIG. *)N(* *)4(* X-4 RAB RICHARD A. BISHOP 21-MAY-1992 *)B(* MERGE ANOTHER SYMBVOL FROM THE VAX/VMS COPY: *)N(* *)E(* X-19 DACY060 DAVE CANTOR 15-APR-1992 *)N(* CORRECTED TEXT OF NOUSERSPEC AT REQUEST OF DOC. GROUP *)N(* *)E(* X-18 DAC058 DAVE CANTOR 02-APR-1992 *)N(* SUPPLY ERROR MESSAGE FOR DCL COMMAND $ MAIL FILENAME *)N(* FOLLOWED BY NO ADDRESSEE SUPPLIED. (NOUSERSPEC) *)N(* Z *)4(* X-3 RAB RICHARD A. BISHOP 29-JAN-1992 *)B(* MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS. *)B(* SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION *)B(* OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT *)B(* FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. *)N(* *)I(* =============================================================== *)N(* [ *)6(* X-17 DRB0084 DAWN R. BANKS 8-AUG-1991 *)B(* ADD MESSAGES TO SUPPORT DDIF/DTIF DOTS PACKING. *)N(* *)8(* X-16 ROP0423 ROBERT POSNIAK 17-MAR-1988 *)B(* CHANGE THE TEXT OF FORMSG. *)N(* *)7(* X-15 ROP0342 ROB\ERT POSNIAK 10-AUG-1987 *)B(* ADD SHOW220, SHOW 225. *)N(* *)7(* X-14 ROP0321 ROBERT POSNIAK 23-JUL-1987 *)B(* ADD NOACCPTMSG MESSAGE. *)N(* *)7(* X-13 ROP0297 ROBERT POSNIAK 2-MAR-1987 *)B(* MAKE DIRHD0 TAKE AS A PARAMETER THE NUMBER OF ] *)B(* SPACES BETWEEN DATE AND SUBJECT FIELDS. *)N(* *)7(* X-12 ROP0283 ROBERT POSNIAK 24-FEB-1987 *)B(* ADD MAILFOLD AND WASTEFOLD MESSAGES. *)N(* *)7(* X-11 ROP0249 ROBERT POSNIAK 9-FEB-1987 *)B(* MAKE MAIL COPY OF THE SHARED MESSAGES *)B(* USED BY TH^E MAIL FACILITY. *)N(* *)8(* X-10 ROP0205 ROBERT POSNIAK 14-NOV-1986 *)B(* ADD SHOW210 AND SHOW215. *)N(* *)7(* X-9 ROP0195 ROBERT POSNIAK 11-NOV-1986 *)B(* ADD YES. *)N(* _ *)7(* X-8 ROP0179 ROBERT POSNIAK 27-OCT-1986 *)B(* ADD UPGRADE FOR ROLLING UPGRADE IN PROGRESS. *)N(* *)F(* X-7 ROP *)B(* ADD ERRACTRNS *)N(* *)F(* X-6 ROP ` *)B(* ADD SHOW200, SHOW205 *)B(* ADD FORMSG, NOTFORMSG *)N(* *)F(* X-5 ROP *)B(* FIX SHOW10 TO USE ONLY DESCRIPTORS. REMOVE RECLSTAT *)B(* ADD PROMPT. CHANGE INFO50 TO TAKE A DESCRIPTOR AS *)B(* INPUT. ADD INFO12,INFO14, CRENEWFILE. a *)B(* ADD SHOW15,SHOW25, AND SHOW35 TO DISPLAY PRINT *)B(* QUEUE/FORM AND FORWARD *)N(* *)F(* X-4 ROP *)B(* ADD MSGSENT, MSGSENTAT *)N(* *)F(* X-3 ROP b *)B(* ADD ILLTPRT,INVITMVAL *)N(* *)F(* X-2 ROP *)B(* TAKE QUOTES OUT OF ILLPERNAM MESSAGE. *)N(* *)((* V04-000 RP 28-OCT-1985 *)B(* NEW MESSAGE FOR WRONG FILE. ADD ERROR ERACTED *)N(* c *):(* V03-015 ROP0004 ROBERT POSNIAK 6-JUN-1984 *)B(* NEW MESSGE FOR OVERSIZED RECORD. NEW MESSAGE FOR *)B(* REENTERING LINE. *)N(* *)<(* V03-014 BLS0272 BENN SCHREIBER 18-FEB-1984 13:36:12 *)B(* NEW MESSAGE FOR INCORRECT PROTOCOL VERSION. *)N(* d *):(* V03-013 BLS0263 BENN SCHREIBER 5-FEB-1984 *)B(* NEW MESSAGE FOR CAPTIVE ACCOUNT TRYING TO SPAWN. *)N(* *):(* V03-012 BLS0255 BENN SCHREIBER 28-DEC-1983 *)B(* NEW MESSAGES FOR SHOW KEY, AND FOR TIME IN NOTIFY MESSAGE *)N(* *):(* V03-011 BLS0250 BENN SCHREIBER 8 e-DEC-1983 *)B(* NEW MESSAGE FOR EDITOR NOT CALLABLE. NEW MESSAGE FOR *)B(* ISAM FILE FOUND WHEN SEQUENTIAL EXPECTED. *)N(* *):(* V03-010 BLS0246 BENN SCHREIBER 28-NOV-1983 *)B(* NEW MESSAGE ASKING IF WANT TO CREATE NEW FOLDER. *)N(* *):(* V03-009 BLS0229 BENN SCHREIBER 16-JUL-1983 *)Bf(* NEW MESSAGE "you have new mail". *)N(* *):(* V03-008 BLS0227 BENN SCHREIBER 1-JUL-1983 *)B(* NEW MESSAGES FOR SENDERR AND NOSUCHUSR THAT INCLUDE *)B(* THE NODE NAME. *)N(* *):(* V03-007 BLS0225 BENN SCHREIBER 17-JUN-1983 *)B(* NEW MESSAGE FOR BEgTTER PERSONAL NAME CHECKING *)N(* *):(* V03-006 BLS0222 BENN SCHREIBER 15-MAY-1983 *)B(* NEW MESSAGE FOR RECLAIMING SPACE *)N(* *):(* V03-005 BLS0220 BENN SCHREIBER 30-APR-1983 *)B(* NEW MESSAGES FOR NEW FEATURES *)N(* h *):(* V03-004 BLS0217 BENN SCHREIBER 12-APR-1983 *)B(* CHANGE TEXT OF DELSPACE. ADD NEW MESSAGE FOR NON-EXISTANT *)B(* FOLDER SELECTED. ADD MESSAGE FOR EXTERNAL MESSAGE TEXT. *)N(* *):(* V03-003 BLS0211 BENN SCHREIBER 13-MAR-1983 *)B(* NEW MESSAGES FOR ISAM FILES, AND TEXT THAT USED TO *)B(* BE EMBEDDED IN THE PROGRAM. *)iN(* *):(* V03-002 BLS0202 BENN SCHREIBER 5-JAN-1983 *)B(* NEW MESSAGES FOR ILLEGAL STRING LENGTH AND ILLEGAL *)B(* CHARACTER IN STRING *)N(* *):(* V03-001 BLS0177 BENN SCHREIBER 24-JUN-1982 *)B(* NEW MESSAGE FOR USER WHO HAS DISMAIL SET. NEW MESSAGE *)B(* IF LOOP DETECTEDj IN FORWARDING VIA LOGICAL NAMES OR *)B(* SET FORWARD. *)N(* *)N(*-- *)N(* *)N(* DEFINE MAIL RELATED ERROR/STATUS VALUES *)N(* k *)N(* *)N(* DEFINE ERROR MESSAGES *)N(* *) CONST MAIL$_FACILITY = 126; MAIL$_CODERR = 8290316; MAIL$_UPGRADE = 8290324; MAIL$_UAFGETERR = 8290330; MAIL$_UAFOPNERR = 8290338; MAIL$_NOSUCHUSR = 8290346; MAIL$_NOTREADIN = 8290354; MAIL$_LOGLINK = 8290362; MAIL$_CREPRIJOB = 8l290370; MAIL$_SENDERR = 8290378; MAIL$_NOMOREMSG = 8290386; MAIL$_NOMSGS = 8290394; MAIL$_USERSPEC = 8290402; MAIL$_SENDABORT = 8290410; MAIL$_EDITPROC = 8290418; MAIL$_INVCMD = 8290426; MAIL$_NOTFOUND = 8290434; MAIL$_NETIOERR = 8290442; MAIL$_USERDSABL = 8290450; MAIL$_FORWLOOP = 8290458; MAIL$_NAMTOOBIG = 8290466; MAIL$_ILLCHAR = 8290474; MAIL$_DATIMUSED = 8290482; MAIL$_NOTISAM = 8290490; MAIL$_DELMSG = 8290498; MAIL$_DELWASTE = 8290506; MAIL$_NOFOLDER m= 8290514; MAIL$_NOTEXIST = 8290522; MAIL$_NOTSUBDIR = 8290530; MAIL$_ILLSUBDIR = 8290538; MAIL$_ILLFOLNAM = 8290546; MAIL$_NOMSGPRI = 8290554; MAIL$_ALTPRIJOB = 8290562; MAIL$_ILLPERNAM = 8290570; MAIL$_NOSUCHUSRAT = 8290578; MAIL$_SENDERRAT = 8290586; MAIL$_CONABORT = 8290594; MAIL$_NOTCALEDT = 8290602; MAIL$_FILECONFUSED = 8290610; MAIL$_CAPTIVE = 8290618; MAIL$_IVPROTVAL = 8290626; MAIL$_RECTOBIG = 8290634; MAIL$_ILLCTXADR = 8290642; MAIL$_WRONGCTX = 82n90650; MAIL$_FAILGETVM = 8290658; MAIL$_INVITMCOD = 8290666; MAIL$_MISREQITM = 8290674; MAIL$_INVITMLEN = 8290682; MAIL$_FILEOPEN = 8290690; MAIL$_NOFILEOPEN = 8290698; MAIL$_CONITMCOD = 8290706; MAIL$_NOMORECTX = 8290714; MAIL$_WRONGFILE = 8290722; MAIL$_ILLTPRT = 8290730; MAIL$_INVITMVAL = 8290738; MAIL$_ERACTED = 8290746; MAIL$_FORMSG = 8290754; MAIL$_NOTFORMSG = 8290762; MAIL$_ERRACTRNS = 8290770; MAIL$_BADVALUE = 8290778; MAIL$_CLOSEDEL = 8290786; MoAIL$_FILNOTDEL = 8290794; MAIL$_OPENIN = 8290802; MAIL$_OPENOUT = 8290810; MAIL$_PARSEFAIL = 8290818; MAIL$_READERR = 8290826; MAIL$_SEARCHFAIL = 8290834; MAIL$_SYSERROR = 8290842; MAIL$_NOSYSNAM = 8290850; MAIL$_NOSYSPRV = 8290858; MAIL$_PROTOCOL = 8290866; MAIL$_NOACCPTMSG = 8290874; MAIL$_DOTSPACK = 8290882; MAIL$_DOTSUNPACK = 8290890; MAIL$_NOUSERSPEC = 8290898; MAIL$_INVRANGE = 8290906; MAIL$_LISTTOOLONG = 8290914; MAIL$_SELECTED = 8306307; MAIL$_DELMSGS = 8p306315; MAIL$_CVTFILE = 8306323; MAIL$_DELSPACE = 8306331; MAIL$_NEWFOLDER = 8306339; MAIL$_RECLPLSWAIT = 8306347; MAIL$_REENTER = 8306355; MAIL$_DELETED = 8306363; MAIL$_FFMTMSG = 8306371; MAIL$_MOREMSG = 8314304;G MAIL$_DIRHD0 = 8314312; (*SD070507!RKS020909 *) MAIL$_DIRHD10 = 8314320; MAIL$_DIRHD20 = 8314328; MAIL$_DIRDEL10 = 8314336; MAIL$_ISUB10 = 8314344; MAIL$_ISUB20 = 8314352; MAIL$_ISUB30 = 8314360; MAIL$_PRESRET = 8314368; MqAIL$_YOUHAVENEW = 8314376; MAIL$_MAIL10 = 8314384; MAIL$_MAIL20 = 8314392; MAIL$_WANTOSEND = 8314400; MAIL$_NOTIFY10 = 8314408; MAIL$_NOTIFY20 = 8314416; MAIL$_JOBENTERED = 8314424; MAIL$_SHOW10 = 8314432; MAIL$_SHOW20 = 8314440; MAIL$_SHOW30 = 8314448; MAIL$_SHOW40 = 8314456; MAIL$_SHOW50 = 8314464; MAIL$_SHOW60 = 8314472; MAIL$_SHOW70 = 8314480; MAIL$_SHOW80 = 8314488; MAIL$_SHOW90 = 8314496; MAIL$_SHOW100 = 8314504; MAIL$_SHOW110 = 8314512; MAIL$_EDIT10 = 8314r520; MAIL$_INFO10 = 8314528; MAIL$_INFO20 = 8314536; MAIL$_INFO30 = 8314544; MAIL$_SEND = 8314552; MAIL$_REPLY = 8314560; MAIL$_SHOW120 = 8314568; MAIL$_SHOW130 = 8314576; MAIL$_INFO50 = 8314584; MAIL$_SHOW140 = 8314592; MAIL$_SHOW150 = 8314600; MAIL$_SHOW160 = 8314608; MAIL$_ISUB50 = 8314616; MAIL$_MAIL30 = 8314624; MAIL$_RETCONT = 8314632; MAIL$_NEWSEQ = 8314640; MAIL$_MAILDIR = 8314648; MAIL$_MAILFILE = 8314656; MAIL$_MAILFOLDER = 8314664; MAIL$_MAIL40 s= 8314672; MAIL$_CRENEWFOLD = 8314680; MAIL$_NONEWMAIL = 8314688; MAIL$_SHOWKEY10 = 8314696; MAIL$_SHOWKEY20 = 8314704; MAIL$_SHOWKEY30 = 8314712; MAIL$_SHOWKEY40 = 8314720; MAIL$_SHOWKEY50 = 8314728; MAIL$_SHOWKEY60 = 8314736; MAIL$_SHOWKEY70 = 8314744; MAIL$_NOTIFY30 = 8314752; MAIL$_NOTIFY40 = 8314760; MAIL$_NOPARENT = 8314768; MAIL$_FILEMPTY = 8314776; MAIL$_NONEFOUND = 8314784; MAIL$_NOMOREREC = 8314792; N(* t *)N(* THE FOLLOWING MESSAGE IS USED FOR COMMUNICATION *)N(* BETWEEN MAILSHR AND MAILSHRP. IT DOES NOT NEED TO BE DOCUMENTED. *)N(* *) CONST MAIL$_USERFWD = 8314800; MAIL$_PROMPT = 8314808; MAIL$_INFO12 = 8314816; MAIL$_INFO14 = 8314824; MAIL$_INFO16 = 8314832; MAIL$_INFO18 = 8314840; MAIL$_CRENEWFILE = 8314848; MAIL$_SHOW15 = 8314856; MAIL$_SHOW2u5 = 8314864; MAIL$_SHOW35 = 8314872; MAIL$_FORWARD = 8314880; MAIL$_SHOW200 = 8314888; MAIL$_SHOW205 = 8314896; MAIL$_SHOW210 = 8314904; MAIL$_SHOW215 = 8314912; MAIL$_CLOSEIN = 8314920; MAIL$_CLOSEOUT = 8314928; MAIL$_INVQUAVAL = 8314936; MAIL$_WRITEERR = 8314944; MAIL$_SHOW220 = 8314952; MAIL$_SHOW225 = 8314960; MAIL$_HPROMPT = 8314968; MAIL$_SHOWNOSIG = 8314976; MAIL$_SHOWSIG = 8314984; MAIL$_BADLOGVAL = 8314992; MAIL$_MSGTEXT = 8322305; MAIL$_MSGINvFO = 8322313; MAIL$_MSGSENT = 8322321; MAIL$_MSGSENTAT = 8322329; MAIL$_YES = 8322337; MAIL$_COPIEDR = 8322345; MAIL$_CREATED = 8322353; MAIL$_RENAMED = 8322361; MAIL$_TEXT = 8322369; N(* *)N(* THE FOLLOWING TWO ARE FOLDER NAMES CREATED BY MAIL *)N(* *) CONST MAIL$_MAILFOLD = 8322377; MAIL$_WASTEFOLD = w 8322385; MAIL$_ILLEDTNAM = 8322394; MAIL$_KEYNOTDEF = 8322402; MAIL$_INVKEYNAM = 8322410; N(* END. *) N(* MODULE MMEMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QxUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD y *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; z *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63;{ *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT|13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; } *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0. ~.67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MMEMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:57.16 *)N(* *)N(*++ *)N(************************************************************************** *)N(**  * *)N(** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1992, 1993 * *)N(** ALL RIGHTS RESERVED. * *)N(** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *)N(** STATES. * *)N(** * *)N(** THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *)N(** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *)N(** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *)N(** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *)N(** DIGITAL EQUIPMENT CORPORATION. * *)N(** * *)N(** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *)N(** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *)N(** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *)N(** * *)N(************************************************************************** *)N(* *)N(*++ *)N(* FACILITY:  *)N(* MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* *)N(* ABSTRACT: *)N(* CONTAINS MESSAGES FOR THE MEDIA MANAGEMENT EXTENSIONS. *)N(* *)N(* AUTHOR: *)N(* DAN KYLER *)N(* *)N(* CREATION DATE: 11-SEP-1991 *)N(* *)N(* MODIFICATION HISTORY: *)N(* *)0(* X-3 SGS0032 STEVE SKONETSKI 30-SEP -1993 *)D(* FIX BUILD BUG. WRONG COMMENT CHARACTER USED IN NEW COPYRIGHT. *)N(* *)0(* X-2 SGS0032 STEVE SKONETSKI 30-SEP-1993 *)B(* VAX TO ALPHA PORT. ADD /MACRO=$MMEMSGDEF TO .FACILITY *)B(* DIRECTIVE. ALLOWS US TO REMOVE MMEMSGDEF.COM FROM THE BUILD *)B(* PROCEDURE. *)B(* *)N(*  *)9(* X-1 MME-JDE013 JOHN EIKENBERRY 21 NOV 1991 *)B(* MERGED INTO BLADE *)N(* *)N(*-- *)N(*+ *)N(* FACILITY DEFINITION *)N(* - *) CONST MME_FACILITY = 3439; N(*+ *)N(* SUCCESS MESSAGES *)N(*- *)N(* *)N(*+  *)N(* INFORMATIONAL MESSAGES *)N(*- *)N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*--  *) CONST MME$_NO_MME = 225411875; N(* *)N(*+ *)N(* WARNING MESSAGES *)N(*- *)N(*++ *)N(* F ACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: THE MEDIA MANAGEMENT PROCESS RECEIVED A MAILBOX MESSAGE *)C(* CONTAINING AN ARGUMENT WHICH WAS UNRECOGNIZED. THE ARGUMENT *)B(* WILL BE IGNORED. *)N(* USER ACTION: NONE *)N(*-- *) !CONST MME$_BADARGIGN = 225412672; N(*  *)N(*+ *)N(* ERROR MESSAGES *)N(*- *)N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: THE MEDIA MANAGEM ENT PROCESS RECEIEVED A MAILBOX MESSAGE *)B(* INDICATING AN ACTION ROUTINE FOR WHICH THE MEDIA MANAGEMENT *)B(* SOFTWARE HAS NOT DECLARED A ROUTINE. *)N(* USER ACTION: NONE. *)N(*-- *) "CONST MME$_RTNNOTDECL = 225415074; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEM ENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*-- *) "CONST MME$_BADMSGTYPE = 225415082; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION:  *)N(* USER ACTION: *)N(*-- *) #CONST MME$_FACMISMATCH = 225415090; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(*  USER ACTION: *)N(*-- *) !CONST MME$_MBXFAOERR = 225415098; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION:  *)N(*-- *) !CONST MME$_MBXASNERR = 225415106; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*--  *) !CONST MME$_MBXWRTERR = 225415114; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*-- *) !CONST MME$_ASTNOTQED = 2 25415122; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*-- *) !CONST MME$_AVRFAOERR = 225415130; N(*++  *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*-- *) !CONST MME$_AVRENQERR = 225415138; N(*++ *)N(* FACILITY: MME - VMS M EDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*-- *) !CONST MME$_AVRASNERR = 225415146; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANA TION: *)N(* USER ACTION: *)N(*-- *) !CONST MME$_GETNAMERR = 225415154; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION:  *)N(* USER ACTION: *)N(*-- *) #CONST MME$_UICMISMATCH = 225415162; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION:  *)N(*-- *) !CONST MME$_MBXDVIERR = 225415170; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*--  *) !CONST MME$_JPIUICERR = 225415178; N(* *)N(*+ *)N(* FATAL MESSAGES *)N(*- *)N(*++ *)N(* FACILITY:  MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION: *)N(*-- *) !CONST MME$_FINTERNAL = 225419076; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) N(* EXPLANATION: *)N(* USER ACTION: *)N(*-- *) CONST MME$_MBXRDERR = 225419084; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION:  *)N(* USER ACTION: *)N(*-- *) "CONST MME$_POSTMBXERR = 225419092; N(*++ *)N(* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *)N(* EXPLANATION: *)N(* USER ACTION:  *)N(*-- *) !CONST MME$_MEMALLERR = 225419100; N(* *) N(* END. *) N(* MODULE MOUNTMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31 ),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MOUNDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.13 *)N(* *)N(* *)J(* VERSION: 'X-26' *)N(* *)N(************************************************************************** *)N(** * *)N(** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978 - 1999 * *)N(** ALL RIGHTS RESERVED. * *)N(** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *)N(** STATES. * *)N(** * *)N(** THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *)N(** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *)N(** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *)N(** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *)N(** DIGITAL EQUIPMENT CORPORATION. * *)N(** * *)N(** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *)N(** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *)N(** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *)N(** * *)N(************************************************************************** *)N(*++ *)N(* *)N(* FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES *)N(* *)N(* ABSTRACT: *)N(*  *)I(* THIS FILE CONTAINS THE MDL SOURCE FOR THE MOUNT UTILITY MESSAGES. *)N(* *)N(* ENVIRONMENT: *)N(* *)I(* MAINTAINERS TAKE NOTE! THIS MODULE IS COMMON SOURCE FOR VAX AND *)I(* ALPHA. DO NOT CHANGE ONE WITHOUT TRACKING THE CHANGE IN THE OTHER. *)N(* *)N(*-- *)N(* *)N(* *)H(* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *)N(* *)N(* MODIFIED BY:  *)N(* *)=(* X-26 JJF0296 J. JEFFERY FRIEDRICHS 4-MAY-2004 *)B(* ADD MESSAGES FOR BAD SCB *)N(* *)7(* X-25 RAB087 ROBERT A. BROOKS 18-FEB-2004 *)B(* (RESYNCH IDENT WITH WHAT VDE THINKS . . .) *)B(* FOLD FROM V73-2R-HBMM . . .  *)N(* *)H(* X-35 JJF0260 J. JEFFERY FRIEDRICHS 10-NOV-2003 *)N(* ADD MBRTOOSMALL *)N(* *)=(* X-35 JJF0279 J. JEFFERY FRIEDRICHS 12-FEB-2004 *)B(* ADD SHDWREQALLOC FOR SHADOW SET MEMBERS *)N(*  *)=(* X-34 JJF0213 J. JEFFERY FRIEDRICHS 7-FEB-2003 *)B(* ADD NOCAPABILITY AND OPTCAPABILITY *)N(* *)=(* X-33 JJF0178 J. JEFFERY FRIEDRICHS 20=FEB-2002 *)B(* ADD BADWINDOWS *)N(* *)1(* X-32 MLH MARK HOPKINS 29-FEB-2000 *)B(* ADD MESSAGE FOR ACP NOT FOUND ON VOLUME MOUNT (VAFS *)B(* SUPPORT). *)N(* *)=(* X-31 JJF0116 J. JEFFERY FRIEDRICHS 20-DEC-1999 *)B(* ADD MESSAGES FOR MINICOPY *)N(* *)=(* X-30 JJF0095 J. JEFFERY FRIEDRICHS 24-FEB-1999 * )B(* ADD WARNING MESSAGE FOR SIZE CONFLICT *)N(* *)=(* X-29 JJF0095 J. JEFFERY FRIEDRICHS 8-JAN-1999 *)B(* ADD NEW MESSAGES OLDSHDRIVER, NOTALLMEM AND POLICY MESSAGES *)N(* *)D(* X-28 JJF-0076 J. JEFFERY FRIEDRICHS 12-SEP-1997 *)B(* SEPARATE DEVBUSY ERROR MESSAGES OUT INTO UNIQUE MESSAGES *)N(*  *)@(* X-27 KJP-SDOS KEVIN PLAYFORD 18-JUL-1997 *)N(* ADD MESSAGE FOR SNAPSHOT POOL MEMBER. *)N(* *)<(* X-26 ACG0639 ANDREW C. GOLDSTEIN, 13-JUN-1997 14:44 *)B(* ADD NEW MESSAGES FOR ODS-5 SUPPORT *)N(*  *)N(* X-25 TGC0049 TOM CARR 19-JUN-1996 *)N(* ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THAT *)N(* A MEMBER IS ALREADY A MEMBER OF A SHADOW SET *)N(* *)N(* X-24 TGC0048 TOM CARR 29-MAY-1996 *)N(* ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THAT *)N(* A MEMBER REQUIRES A COPY OPERATION AND CAN NOT BE A *)N(* MASTER *)N(* *)<(* X-23 ACG0618 ANDREW C. GOLDSTEIN, 8-APR-1996 11:17 *)B(* RETURN FACILITY NAME TO MOUNT *)N(* *)I(* X-22 TGC0045 TOM CARR 29-MAR-1996 *)N(* ADD NEW MESSAGES FROM SHADOW MOUNT REWRITE. *)N(* *)6(* X-21 JJF0017 J. JEFFERY FRIEDRICHS 11-OCT-1994 *)B(* NUMEROUS MESSAGE CLEANUPS PER DOCUMENTATION FOLKS... *)N(* *)O(* X-20 JJF0014 J. JEFFERY FRIEDRICHS 17-MAY-1994 *)B(* REMOVE BADSECSUG  *)N(* *)O(* X-19 JJF0014 J. JEFFERY FRIEDRICHS 10-MAY-1994 *)B(* CHANGE BADSECSYS AND BADSECSUG TO ERRORS *)N(* *)O(* X-18 JJF0014 J. JEFFERY FRIEDRICHS 14-APR-1994 *)B(* ADD BADSECSYS AND BADSECSUG *)N(*  *)O(* X-17 JJF0007 J. JEFFERY FRIEDRICHS 22-MAR-1994 *)B(* ADD DENIGNORED. *)N(* *)O(* X-16 JJF0011 J. JEFFERY FRIEDRICHS 14-MAR-1994 *)P(* ADD REBUILD MESSAGES. ALSO ADD CRELNM_FAILED FOR A PENDING *)B(* CHANGE. *)N(* *)8(* X-15 JJF0008 J. JEFFERY FRIEDRICHS 9-MAR-1994 *)B(* REMOVE FAO AND CLARIFY MESSAGES INCONPROT AND INCONOWNER *)N(* *)8(* X-14 JJF0005 J. JEFFERY FRIEDRICHS 1-FEB-1994 *)B(* FIX TYPO IN MESSAGE BADUNDFAT *)N(* *)0(* X-13 AJK0003  ADAM J. KOJNOK 12-OCT-1993 *)B(* ADDING NEW MESSAGE WAITDEVRDY FOR MOUNT. *)N(* *)0(* X-12 AJK0002 ADAM J. KOJNOK 12-OCT-1993 *)B(* RETROFITTING MESSAGE VOLSETALRMNT FROM ALPHA VMS. *)N(* *)+(* X-4 ABELL53 ALLY BELL 25-JUNE-1993 *)F(* ADDED FATAL MESSAGE VOLSETALRMNT FOR WHEN A VOLUME SET IS BEING *)C(* MOUNTED WITH THE SAME NAME AS AN ALREADY MOUNTED VOLUME SET. *)N(* *)>(* X-10 AJK0010 MIKE STAMS/ADAM KOJNOK 01-SEP-1993 *)B(* ADDING MESSAGE (CBSNOTSUPTD). ALSO, CHANGING 'NEWER' IN *)B(* MESSAGE INVSHDWMEM TO "newer". THIS WAS REQUESTED BY *)B(* DOCUMENTATION SO THAT IT MATCHES THE HELP FILE. *)N(* *)5(* X-9 VBK VAIKOM B. KRISHNAN 14-NOV-1991 *)B(* ADD A NEW ERROR MESSAGE TO BE OUTPUT WHEN A DISK IS *)B(* TOO BIG TO BE PART OF A VOLUME SET. SUCH DISKS ARE *)B(* LARGER THAN 8GB AND SO THEY REQUIRE AN ENTIRE LONGWORD *)B(* TO STORE LBNS WHICH LEAVES NO ROOM FOR RVN TO BE *)B(* STORED IN THE MAP POINTER. *)N(* *)7(* X-8 JFD0034 JAMES F. DUNHAM 8-JAN-1991  *)B(* IN SUPPORT OF FILES-11 C/D CONTROLLED VOLUME SETS, *)B(* ADD ISO 9660 AND HIGH SIERRA VOLUME MOUNT MESSAGES *)N(* *)<(* X-21 RKK0057 ROBERT K. KOSAKOWSKI 19-FEB-1991 *)B(* ADD NEW MESSAGES FOR MME OPCOM MESSAGES - SUPPORT OF *)B(* SCRATCH VOLUME, MOUNT BY CARTRIDGE NAME. *)B(* (FOR DAN KYLER) *)N(*  *)<(* X-20 RKK0049 ROBERT K. KOSAKOWSKI 26-DEC-1990 *)B(* REPLACE WITH CORRECT VERSION OF FILE. (BUILDBUG, CHECKED *)B(* IN WRONG VERSION) *)N(* *)<(* X-19 RKK0048 ROBERT K. KOSAKOWSKI 21-DEC-1990 *)B(* ADDED DEVNOFE MESSAGE. *)N(*  *)<(* X-18 RKK0036 ROBERT K. KOSAKOWSKI 17-NOV-1990 *)B(* ADDED INVQUAVAL MESSAGE. *)N(* *)5(* X-17 PRD PAUL R. DESTEFANO 26-APR-1990 *)B(* ADDED NOALOCLASS MESSAGE. *)N(* *)5(* X-16 PRD PAUL R. DESTEFANO 20-MAR-1990  *)B(* ADDED NOTACLU MESSAGE. *)N(* *)9(* X-15 PRD0548 PAUL R. DESTEFANO 06-NOV-1989 *)B(* ADDED BADMDFMT MESSAGE. *)N(* *)9(* X-14 PRD0526 PAUL R. DESTEFANO 07-OCT-1989 *)B(* ADDED MESSAGES SHDWMEMERGE, AUTOMEMSUCC, AUTOMEMCOPY *)B(* AND AUTOMEMERGE, *)N(* *)9(* X-13 PRD0462 PAUL R. DESTEFANO 16-OCT-1988 *)B(* ADDED WAITINGMNT AND RMTMNTSUCC MESSAGES. *)N(* *)9(* X-12 PRD0455 PAUL R. DESTEFANO 05-OCT-1988 *)B(* ADDED MOUN$_MOUNT MESSAGE FOR IO$_DISPLAY CALL IN *)B(* ASSIST.  *)N(* *)9(* X-11 PRD0445 PAUL R. DESTEFANO 18-MAY-1988 *)B(* ADD QUOTAFNF MESSAGE. *)N(* *)9(* X-10 PRD0416 PAUL R. DESTEFANO 23-SEP-1987 *)B(* ADD RMTMNTFAIL AND MNTCLUFAIL WARNING MESSAGES FOR *)B(* CLUSTER-WIDE MOUNT STATUS.  *)N(* *)3(* X-9 DAS DAVID A. SOLOMON 05-DEC-1986 *)B(* MAKE OBSOLETE MESSAGE CJFERR UNUSED. *)N(* *)0(* X-8 HH0130 HAI HUANG 04-DEC-1985 *)B(* FOR CONSISTENCY, RENAME THIS MACRO TO $MOUNDEF. *)N(* *)0(* X-7 HH0 116 HAI HUANG 03-OCT-1985 *)B(* ADD SHDWINCVOL MESSAGE. *)N(* *)0(* X-6 HH0110 HAI HUANG 19-SEP-1985 *)B(* CHANGE TEXT OF SHADOWFAIL MESSAGE. *)N(* *)1(* X-5 HH0110 HAI HUANG 19-SEP-1985 *)B(* ADD SHADOWFAIL MESSAGE. *)N(* *)0(* X-4 HH0103 HAI HUANG 09-SEP-1985 *)B(* ADD SHDWCOPYREQ MESSAGE. ALSO, RENAME SHAMEM TO *)B(* SHDWMEM. *)N(* *)0(* X-3 HH0092 HAI HUANG 20-AUG-1985 *)B(* REMOVE OBSOLETE BADJRNL MESSAGE. *)N(*  *)0(* X-2 HH0073 HAI HUANG 16-MAY-1985 *)B(* ADD VOLUME SHADOWING MESSAGES. *)N(* *)N(*** *)N(*+ *)N(* *)N(* THE FOLLOWING ARE MESSAGES ISSUED BY THE MOUNT UTILITY. *)N(* *)N(*- *)N(* *)N(* ***** FOLLOWING MESSAGES ARE SHARED WITH INIT *)N(* *)N(* WHEN ADDING A NEW MESSAGE IN THIS SECTION, USE THE FILL VALUES DX. *)N(* *) CONST MOUNT$_FACILITY = 114; MOUN$_BADDATCHK = 7503884; MOUN$_BADDENS = 7503892; MOUN$_BADPRO = 7503900; MOUN$_BADUIC = 7503908; MOUN$_CONFQUAL = 7503916; MOUN$_ILLOPT = 7503924; MOUN$_NONLOCAL = 7503932; MOUN$_NOTRAN = 7503940; MOUN$_UNKDEV = 7503948; MOUN$_BADLABELQ = 7503956; MOUN$_VALCNVERR = 7503964; MOUN$_D3 = 7503972; MOUN$_D4 = 7503980; MOUN$_D5 = 7503988; N(* *)N(* ***** PRECEDING MESSAGES ARE SHARED WITH INIT *)N(* *) CONST MOUN$_LOGNAME = 7503996; MOUN$_MAXDEV = 7504004; MOUN$_MAXLAB = 7504012; MOUN$_NOACPDEV = 7504020; MOUN$_MOUVOL = 7504028; MOUN$_INCOMPACP = 7504036; MOUN$_INCOMPAT = 7504044; MOUN$_VOLALRMNT = 7504052; MOUN$_BADVOL1 = 7504060; MOUN$_ILLDENS = 7504068; MOUN$_NOTGENDEV = 7504076; MOUN$_DUPDEVSPC = 7504084; MOUN$_ILLANSIBS = 7504092; MOUN$_ACCERR = 7504100; MOUN$_FILNOTEXP = 7504108; MOUN$_NOPRIV = 7504116; MOUN$_NOTANSI = 7504124; MOUN$_NOTLABEL = 7504132; MOUN$_NOTVOLSET = 7504140; MOUN$_NOTRELVOL = 7504148; MOUN$_OFFLINE = 7504156; MOUN$_IOERROR = 7504164; MOUN$_ILLQUAL = 7504172; MOUN$_WRITLCK = 7504180; MOUN$_RECGTRBL = 7504188; MOUN$_ACPNAME = 7504196; MOUN$_ACPTIME = 7504204; MOUN$_AQBTIME = 7504212; MOUN$_BADACP = 7504220; MOUN$_BADEBC = 7504228; MOUN$_BADOVR = 7504236; MOUN$_DEVICES = 7504244; MOUN$_SZTOOBIG = 7504252; MOUN$_INCONSDEV = 7504260; MOUN$_DEVCOUNT = 7504268; MOUN$_VOLINSET = 7504276; MOUN$_RVN1NOTMT = 7504284; MOUN$_SETLIMIT = 7504292; MOUN$_DUPVOLNAM = 7504300; MOUN$_HOMBLKCHK = 7504308; MOUN$_DUPRVN = 7504316; MOUN$_BADCACHE = 7504324; MOUN$_UNRELVOL = 7504332; MOUN$_MBXCRERR = 7504340; MOUN$_MBXRDERR = 7504348; MOUN$_REPLYERR = 7504356; MOUN$_OPRSNDERR = 7504364; MOUN$_OPRABORT = 7504372; MOUN$_BATCHNOOPR = 7504380; MOUN$_MOUNEWVOL = 7504388; MOUN$_REMOUVOL = 7504396; MOUN$_OBSOLETE = 7504404; MOUN$_VOLOERR = 7504412; MOUN$_BADINIT = 7504420; MOUN$_DISMAL = 7504428; MOUN$_INCONSHR = 7504436; MOUN$_INCONPROT = 7504444; MOUN$_INCONQUOTA = 7504452; MOUN$_INCONOWNER = 7504460; MOUN$_INCONWRITE = 7504468; MOUN$_INCONFOR = 7504476; MOUN$_NOVOLACC = 7504484; MOUN$_NOFILACC = 7504492; MOUN$_TAPEPOSLOST = 7504500; MOUN$_BADSHADOW = 7504508; MOUN$_NOSHDWMEM = 7504516; MOUN$_INVSHDWMEM = 7504524; MOUN$_SHDWCOPYREQ = 7504532; MOUN$_SHADOWFAIL = 7504540; MOUN$_SHDWINCVOL = 7504548; MOUN$_NOTSHDWDEV = 7504556; MOUN$_BADMDFMT = 7504564; MOUN$_NOTACLU = 7504572; MOUN$_NOALOCLASS = 7504580; MOUN$_BADASNUNIT = 7504588; MOUN$_BADDISP = 7504596; MOUN$_BADUNDFAT = 7504604; MOUN$_VOLTOOBIG = 7504612; MOUN$_BADSECSYS = 7504620; MOUN$_DEVBUSY = 7504628; MOUN$_DEVDMT = 7504636; MOUN$_BADREPLY = 7504644; MOUN$_MMEABORT = 7504652; MOUN$_NOSHADOW = 7504660; MOUN$_NOTSHDWVU = 7504668; MOUN$_NOSHADLIC = 7504676; MOUN$_DIFVOLMNT = 7504684; MOUN$_DEVSHAMEM = 7504692; MOUN$_SHADSCB = 7504700; MOUN$_NOODS1 = 7504708; MOUN$_WRONGVU = 7504716; MOUN$_DETSHADINCON = 7504724; MOUN$_NOMASTER = 7504732; MOUN$_XSMBRS = 7504740; MOUN$_NOVUID = 7504748; MOUN$_SHADUNSTABLE = 7504756; MOUN$_INCONPOOL = 7504764; MOUN$_DEVBUSYMOU = 7504772; MOUN$_DEVBUSYMOUDSA = 7504780; MOUN$_DEVBUSYDMT = 7504788; MOUN$_DEVBUSYSYS = 7504796; MOUN$_DEVBUSYVOL = 7504804; MOUN$_DEVBUSYORB = 7504812; MOUN$_DEVBUSYINVMOS = 7504820; MOUN$_DEVBUSYINSET = 7504828; MOUN$_NOTALLMEM = 7504836; MOUN$_BADPOLICY = 7504844; MOUN$_POLICYFAIL = 7504852; MOUN$_SPARE = 7504860; MOUN$_REQ_WBM_MERGE = 7504868; MOUN$_REQ_WBM_FAIL = 7504876; MOUN$_ACPNOTPRESENT = 7504884; MOUN$_BADWINDOWS = 7504892; MOUN$_NOCAPABILIT Y = 7504900; MOUN$_MBRTOOSMALL = 7504908; MOUN$_SHDWREQALLOC = 7504916; MOUN$_INVALIDSCB = 7504924; N(************************************************************************ *)N(* *)N(* ADD NEW FATAL STATUS MESSAGES HERE. THERE IS ROOM FOR 385 MORE CODES. *)N(* *)N(************************************************************************  *)N(* *)N(* WARNING MESSAGES *)N(* *) CONST MOUN$_HOMBLKBAD = 7507968; MOUN$_IDXHDRBAD = 7507976; MOUN$_MAPHDRBAD = 7507984; MOUN$_IDXMAPERR = 7507992; MOUN$_BITMAPERR = 7508000; MOUN$_BADHOMBLK = 7508008; MOUN$_WRTHOMBLK = 7508016; MOUN$_QUOTAFAIL = 7508024; MOUN$_BITMAPINV = 7508032; MOUN$_WRITESCB = 7508040; MOUN$_DISMPART = 7508048; MOUN$_UNUSED = 7508056; MOUN$_DISMOUNTD = 7508064; MOUN$_VOLSHDWMEM = 7508072; MOUN$_RMTMNTFAIL = 7508080; MOUN$_MNTCLUFAIL = 7508088; MOUN$_QUOTAFNF = 7508096; MOUN$_CBSNOTSUPTD = 7508104; MOUN$_CRELNM_FAILED = 7508112; MOUN$_DENIGNORED = 7508120; MOUN$_ALHOMERR = 7508128; MOUN$_ALHOMINV = 7508136; MOUN$_INCONSTRUCT = 7508144; MOUN$_INCONSET = 7508152; MOUN$_OLDSHDRIVER = 7508160; MOUN$_POLICYWARN = 7508168; MOUN$_INCONSIZE = 7508176; MOUN$_OPT_WBM_MERGE = 7508184; MOUN$_WBM_NOTSTARTED = 7508192; MOUN$_OPTCAPABILITY = 7508200; N(* *)N(* INFORMATIONAL MESSAGES *)N(* *) CONST MOUN$_MOUNTED = 7512067; MOUN$_VOLIDENT = 7512075; MOUN$_WRITELOCK = 7512083; MOUN$_REBUILD = 7512091; MOUN$_OPRQST = 7512099; MOUN$_OPREPLY = 7512107; MOUN$_OPRQSTCAN = 7512115; MOUN$_NOOPR = 7512123; MOUN$_INVLDRESP = 7512131; MOUN$_MOUNTDEV = 7512139; MOUN$_VOLNAME = 7512147; MOUN$_NODEVAVL = 7512155; MOUN$_RPLYARRIVD = 7512163; MOUN$_WRONGVOL = 7512171; MOUN$_RQSTDON = 7512179; MOUN$_VOLSTATUS = 7512187; MOUN$_VOLSETSTS = 7512195; MOUN$_REDCACHE = 7512203; MOUN$_REBLDREQD = 7512211; MOUN$_SHDWMEMSUCC = 7512219; MOUN$_SHDWMEMCOPY = 7512227; MOUN$_SHDWMEMFAIL = 7512235;G MOUN$_MOUNT = 7512243; (* MAXIMUM = 8 CHARACTERS *) MOUN$_WAITINGMNT = 7512251; MOUN$_RMTMNTSUCC = 7512259; MOUN$_SHDWMEMERGE = 7512267; MOUN$_AUTOMEMSUCC = 7512275; MOUN$_AUTOMEMCOPY = 7512283; MOUN$_AUTOMEMERGE = 7512291; MOUN$_MOUNTVOL = 7512299; MOUN$_ANYSCRATCH = 7512307; MOUN$_SCRATCHCOL = 7512315; MOUN$_SCRATCHLOC = 7512323; MOUN$_SCRCOLLOC = 7512331; MOUN$_SUITDEV = 7512339; MOUN$_DEVTYPE = 7512347; MOUN$_DEVICE = 7512355; MOUN$_MEDIANAME = 7512363; MOUN$_CARTRIDGE = 7512371; MOUN$_CARTSIDE = 7512379; MOUN$_CDROM_ISO = 7512387; MOUN$_CDROM_HS = 7512395; MOUN$_WAITDEVRDY = 7512403; MOUN$_NOTODS2 = 7512411; MOUN$_SRCMBRADD = 7512419; MOUN$_ISACPYTRGT = 7512427; MOUN$_ISAMBR = 7512435; MOUN$_DOSETVOL = 7512443; MOUN$_RETSTATUS = 7512451; MOUN$_SHDWMEMMCPY = 7512459; MOUN$_SHDWNOMCPY = 7512467; N(* *)N (* MORE FATAL MESSAGES (DO NOT ADD MORE MESSAGES TO THIS SECTION UNTIL *)N(* THE BLOCK ABOVE HAS BEEN USED UP.) *)N(* *) CONST MOUN$_INVQUAVAL = 7515876; MOUN$_DEVNOFE = 7515884; MOUN$_VOLSETALRMNT = 7515892; (*** MODULE $RBLDDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.14 *)N(* *) CONST REBUILD$_FACILITY = 1814; RBLD$_NODEVICE = 118915082; RBLD$_ADDERR = 118915090; RBLD$_MODIFYERR = 118915098; RBLD$_CLOSERR = 118915106; RBLD$_LOCKERR = 118915114; RBLD$_UNLOCKERR = 118915122; RBLD$_MAXVOLS = 118915130; RBLD$_ACCINDEXF = 118915138; RBLD$_ACCBITMAP = 118915146; RBLD$_ACCQFILE = 118915154; RBLD$_QUOTARERR = 118915162; RBLD$_BITMAPERR = 118915170; RBLD$_READSCB = 118915178; RBLD$_WRITESCB = 118915186; RBLD$_WRTIBMAP = 118915194; RBLD$_WRTBITMAP = 118915202; RBLD$_MEMALLOC = 118915210; RBLD$_HOMEBLOCK = 118915218; RBLD$_SYSHEADER = 118915226; RBLD$_ERRORS = 118915234; RBLD$_SHADSCB = 118915242; RBLD$_DUALLOC = 118915248; RBLD$_HEADERERR = 118915256; RBLD$_WRITEHDR = 118915264; RBLD$_ERASEBLKS = 118915272;! RBLD$_VOLNOTPRESENT = 118915280; RBLD$_INVBACKLINK = 118915288; RBLD$_NOREBLDREQD = 118 915299; RBLD$_REBLDREQD = 118915307; RBLD$_REBLDDONE = 118915313; RBLD$_INVALIDSCB = 118915322; N(* END. *) N(* MODULE MTHMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD  *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER;  *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287;  *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MTHDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.64 *)N(* *)N(* DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG *)W(* 2H1 27-MAY-1986 11:12:01 GAMACHE "Create new SMP thread from V5.0_BL2 modules" *)[(* 2E1 3-APR-1986 20:55:46 HOLSTEIN "Create new Exec Reorg thread from V4.4 modules" *)T(* 2F1 18-MAR-1986 20:31:28 HOLSTEIN "Create new SMP thread from V4.4 modules" *)Z(* 2D1 17-DEC-1985 09:08:44 FIORELLI "Create new exec reorg thread from BL7 modules" *)S(* *2 3-SEP-1985 15:59:52 MAILMAN "extend transfer vector; add mth$_notimp" *)N(* 1A1 20-JUL-1985 14:44:33 SYSTEMBUILD "Initial SMP entry" *)N(* *1 18-JUN-1985 03:36:07 SYSTEMBUILD "Initial entry of V4.0 source" *)N(* DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG. MSG *)N(* FILE: MTHMSG.MSG EDIT: JCW2004 *)N(* *)Q(***************************************************************************** *)(** * *)8(** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(*  *)N(* *)P(* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM MTHMSG.MDL *)I(* VERSION 1-004. SBL 22-APR-1981 *)N(* 2-002 - ADD .TITLE. SBL 28-AUG-1982 *)N(* 2-003 - ADD MTH$_NOTIMP. SMM 03-SEP-1985 *)N(* 2-004 - ADDED VECTOR MATH MESSAGES. JCW 24-FEB-88.  *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* MTH$_ABCMNOXYZ *)N(* *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)P(* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)N(* MACRO-32 PROGRAMMING:  *)N(* *)N(* THE MACROS CALL: *)N(* *)I(* $MTHDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE . *)N(* THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94). *)N(* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(*- *);(* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *);(* ; SET LH TO 22 (DECIMAL) MTH$ PREFIX *) CONST MTH$_FACILITY = 22; MTH$_WRONUMARG = 1475204; MTH$_INVARGMAT = 1475212; MTH$_UNDEXP = 1475220; MTH$_LOGZERNEG = 1475228; MTH$_SQUROONEG = 1475236; ;(* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *);(* ; SET LH TO 22 (DECIMAL) MTH$ PREFIX *) CONST MTH$_SIGLOSMAT = 1475260; MTH$_FLOOVEMAT = 1475268; MTH$_FLOUNDMAT = 1475276; MTH$_NOTIMP = 1475284; N(* MTH$NOT_IMPLEMENTED *) #CONST MTH$_VEC_INVARGMAT = 1475292; MTH$_VEC_UNDEXP = 1475300; MTH$_VEC_LOGZERNEG = 1475308; MTH$_VEC_SQUROONEG = 1475316; MTH$_VEC_FLOOVEMAT = 1475324; MTH$_VEC_FLOUNDMAT = 1475332; MTH$_SINCOSSIG = 1475260; N(* END. *) N(* MODULE NCSMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535;  *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15;  *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143;  *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(*  $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $NCSDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:22.63 *)N(* *)N(* FILE: NCSMSG.MSG EDIT: PDG1001 *)N(*  *)Q(***************************************************************************** *)(** * *)((** COPYRIGHT (C) 1982 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(*++ *)N(* *)K(* FACILITY: VAX-11 NCS *)N(* *)N(* ABSTRACT: *)N(* *)I(* THIS FILE CONTAINS THE DEFINITION FOR THE NCS FACILITY SPECIFIC *)I(* ERROR MESSAGES. THE FACILITY CODE FOR NCS IS ???. *)N(*  *)N(* ENVIRONMENT: VAX/VMS USER MODE *)N(* *)N(* AUTHOR: P. GILBERT, CREATION DATE: 11-OCT-1983 *)N(* *)N(* MODIFIED BY: *)N(*  *)B(* E01-001 ORIGINAL *)N(* *)R(* E01-002 CHB FIX FOR QAR #396 FROM V52-IFT DATABASE; 21-JUL-1989 *)N(* USE ONLY ONE PREFIX FOR NCS$_, LIB$_ AND *)N(* TFF$_ MESSAGES. *)N(*-- *) CONST NCS$_FACILITY = 561; NCS$_CVTNUM = 36798466; NCS$_EXPCHAR = 36798474; NCS$_EXPMORTXT = 36798482; NCS$_DUMMY_1 = 36798490; NCS$_INVCOLSEQ = 36798498; NCS$_NOMEMORY = 36798508; NCS$_NUMTRUNC = 36798512; NCS$_QUOTOOLONG = 36798522; NCS$_COL_ADJ = 36798532; NCS$_COL_CMPLX = 36798540; NCS$_COL_CHAR = 36798548; NCS$_COL_PAD = 36798556; NCS$_COL_THREE = 36798564; NCS$_ON_LINE = 36798571; NCS$_INVAPPEND = 36798578; NCS$_NYI = 36798586; NCS$_NOT_CS = 36798594; NCS$_NOT_CF = 36798602; NCS$_LINEINFO = 36798611; NCS$_CONMODEQL = 36798618; NCS$_EXPECTED = 36798626; NCS$_EXP1CHAR = 36798634; NCS$_RANDIF = 36798642; NCS$_BADCS = 36798652; NCS$_BADCF = 36798660; NCS$_INSERTED = 36799265; NCS$_DELETED = 36799273; NCS$_REPLACED = 36799281; NCS$_REMOVED = 36799289; NCS$_EXTRACTED = 36799297; NCS$_DIFTYP = 36799304; NCS$_NOMTCHFOU = 36799312; NCS$_BRKNLIB = 36799320; NCS$_HISTERR = 36799328; NCS$_INVKEYCHAR = 36799336; NCS$_DELKEYERR = 36799346; NCS$_DELDATERR = 36799354; NCS$_DUPMOD = 36799362; NCS$_FAOFAIL = 36799370; NCS$_INDEXERR = 36799378; NCS$_INSERTERR = 36799386; NCS$_LOOKUPERR = 36799394; NCS$_MODNAMLNG = 36799402; NCS$_NOMODNAM = 36799410; NCS$_NOTOBJLIB = 36799418; NCS$_NOTFORUNK = 36799426; NCS$_CNVRTING = 36799435; NCS$_EMPTYLIBRARY = 36799443; NCS$_MHDERR = 36799452; NCS$_INITERR = 36799460; NCS$_LIBEMPTY = 36800064; NCS$_DUPLTAB = 36800072; NCS$_NOREADLIB = 36800080 ; NCS$_NOWRTLIB = 36800088; NCS$_IVTABNAM = 36800098; NCS$_NOSUCHTAB = 36800106; NCS$_NOWILD = 36800114; N(* END. *) N(* MODULE NSAMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767;  *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD  *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER;  *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095;  *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287;  *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED;  *) (*** MODULE $NSAMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:47.34 *)N(* *)N(* *)N(* *)N(* *********************************************************************** *)N(* * * *)N(* * * *)N(* * COPYRIGHT 1989 COMPAQ COMPUTER CORPORATION * *)N(* * * *)N(* * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. * *)N(* * * *)N(* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ OR * *)N(* * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. * *)N(* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE,* *)N(* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *)N(* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *)N(* * COMMERCIAL LICENSE. * *)N(* *  * *)N(* * * *)N(* * * *)N(* *********************************************************************** *)N(* *)N(* *)N(*++  *)N(* *)N(* FACILITY: *)N(* *)I(* VMSLIB *)N(* *)N(* ABSTRACT: *)N(*   *)N(* THIS MODULE DEFINES THE MESSAGES CODES USED TO AUDIT USE OF PRIVILEGE *)N(* WITHIN THE VMS TCB. MESSAGE CODES ARE NUMBERED FROM 0-4095. *)N(* *)N(* THE FIRST HALF OF THIS RANGE IS RESERVED EXCLUSIVELY FOR PRIVILEGE *)S(* AUDITING AND ARE FURTHER BROKEN DOWN BY PRIVILEGE. THE SECOND HALF OF THE *)O(* RANGE IS RESERVED  FOR OTHER MESSAGES ASSOCIATED WITH TCB AUDIT EVENTS. *)N(* *)N(* ENVIRONMENT: *)N(* *)I(* VMS EXECUTIVE *)N(* *)N(* AUTHOR:   *)N(* *)B(* DERRELL D. PIPER APRIL 17TH, 1989 *)N(* *)N(* NOTA BENE: *)N(* *)K(* OBSOLETE PRIVILEGE AUDITING MESSAGE CODES CANNOT BE REMOVED FROM THIS *)K(* MODULE!  THESE MESSAGE CODES ARE DEFINED IN STARLET AND REFERENCED BY *)I(* NAME IN THE $IFPRIV/$IFNPRIV AND $HAS_PRIV MACROS. IF YOU WANT TO *)M(* "remove" AN OBSOLETE MESSAGE, REPLACE THE TEXT WITH "< -- unused -- >". *)I(* IF YOU'RE ADDING A NEW MESSAGE, PLEASE RE-USE ANY UNUSED MESSAGES. *)N(* *)N(* MODIFICATIONS: *)N(*  *)2(* X-37 GP051505 GUY PELEG 15-MAY-2006 *)B(* ADD COMB_20 AND WORLD_6. *)N(* *)8(* X-36 RAB0148 ROBERT A. BROOKS 11-JAN-2006 *)B(* ADD OPER_94 FOR SET PATH AUDITING. *)N(* *)8(* X-35 RAB0143 ROBERT A. BROOKS 28-NOV-2005 *)B(* ADD SYSPRV_52 FOR SET PATH AUDITING. *)N(* *)4(* X-34 WCC WILLIAM CLEMENCE 15-JUL-2004 *)B(* ADDED CMKRNL_37 FOR IPMI AUDITING *)N(* *)=(* X-33 JJF0282 J. JEFFERY FRIEDRICHS 9-MAR-2004 *)B(* ADDED SYSPRV_51 FOR SETSHOSHADOW AUDITING *)N(*  *)5(* X-32 LC0002 LARRY CAMILLI 15-JAN-2003 *)C(* ADDED OPER_93 FOR OPER PRIVILEGE REQUIREMENT FOR *)B(* SET CACHE/FLUSH, AND REMOVED VOLPRO_16. (SEE X-31.) *)N(* *)5(* X-31 LC0001 LARRY CAMILLI 19-DEC-2002 *)C(* ADDED OPER_92 FOR OPER PRIVILEGE REQUIREMENT FOR *)B(* SET CACHE/RESET AND VOLPRO_16 FOR VOLPRO PRIVILEGE  *)B(* REQUIREMENT FOR SET CACHE/FLUSH. *)N(* *)6(* X-30 JAH0405 JOHN A HARNEY 01-AUG-2002 *)C(* MORE COE FOLD: AUDITS FOR MEDDLE BIT PRIV CHECK: *)N(* *)=(* X-25A1A2 JAH0404 JOHN A HARNEY 24-JUL-2002 *)C(* ADD CMKRNL_36 FOR $SET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. *)N(*  *)=(* X-25A1A1 JAH0404 JOHN A HARNEY 23-JUL-2002 *)B(* ADD CMEXEC_2 FOR $SET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. *)N(* *)>(* X-29 DOUGLAS FYFE 15-FEB-2002 *)P(* ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER *)N(* /SUSPEND, /RESUME AND /CLUSTER. *)N(* *)6(* X-28 JAH0378 JOHN A HARNEY 10-OCT-2001 *)B(* COE FOLD: CHANGE AUDIT MESSAGE FOR IMPERSONATE_12 *)N(* *)=(* X-27 LJK0230 LAWRENCE J. KILGALLEN 15-FEB-2001 *)B(* ONE MORE MESSAGE FOR USE-OF-PRIVILEGE AUDITING WITHIN *)B(* SHOW SERVER. *)N(*  *)=(* X-25 LJK0219 LAWRENCE J. KILGALLEN 2-FEB-2001 *)B(* RESOLVE A FOLD BETWEEN X-24, X-23 AND X-22A. *)N(* *)8(* X-24 PEM0070 PAUL E. MOSTEIKA 01-AUG-2000 *)B(* ADD IMPERSONATE_12 - AUDIT THE NEW ACE TYPE *)B(* POSIX_OWNER FOR COE SUPPORT OF EFFECTIVE UID/GID. *)N(*  *)N(* X-23 KGBCOE KENNETH G.BLAYLOCK 18-JUL-2000 *)N(* MODIFY XQP_16 WITH NEW MESSAGE NAME AND ADD *)N(* A NEW XQP_23 MESSAGE. *)N(* *)>(* X-22A LJK0218 LAWRENCE J. KILGALLEN 1-FEB-2001 *)C(* ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER *)B(* AND SHOW SERVER. *)B(* ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING BY SYS$ACM[W]. *)N(* *)6(* X-22 JAH0331 JOHN A HARNEY 10-MAR-1999 *)B(* ADD IMPERSONATE_11 FOR USES OF $PERSONA_RESERVE. *)N(* *)6(* X-21 JAH0317 JOHN A HARNEY 24-SEP-1998 *)B(* ADD AUDIT_3 FOR NEW $SETUAI ITEM WHICH  REQUIRES AUDIT PRIV. *)N(* *)0(* X-20 JMB004 JIM BLUE 08-JUN-1998 *)B(* ADD OPER_79, OPER_80, AND OPER_81 MESSAGES FOR *)B(* MULTIPATH SET DEVICE /ENABLE, /POLL, AND /SWITCH *)B(* OPTIONS. *)N(* *)6(* X-19 JAH0269 JOHN A HARNEY 11-NOV-1997 *)B(* ADD NSA$_IMPERSONATE_8, _9, AND _10 FOR PERSONA SERVICES. *)N(* *)6(* X-18 MCJ MICHAEL C. JOHNSON 31-JUL-1997 *)B(* ADD CMKRNL_35, XQP_21 AND XQP_22 MESSAGES FOR XFC *)B(* (EXTENDED FILE CACHE) PROJECT. *)N(* *)0(* X-17 NL NICCOLE LUCE 04-MAR-1997 *)B(* ADD NETMBX_3 MESSAGE FOR ICC (RAVEN_FT1).  *)N(* *)3(* X-16 WXD BILL DAVENPORT 13-DEC-1995 *)B(* PERTHREAD SECURITY STAGE 1 CHECKIN: *)B(* - RENAME DETACH PRIVILEGE TO IMPERSONATE. ADD *)B(* LITERALS SO THAT OLD SYMBOLS STILL GET CREATED *)B(* TO MAINTAIN BACKWARD COMPATIBILITY *)B(* - ADDED SETPRV_6 FOR USE OF SETPRV TO MODIFY IMAGE *)B(* WORKING PRIVILEGES MASK. *)N(* *)8(* X-15 RJB0016 RICHARD J. BARRY 28-JUN-1995 *)B(* CHANGE TEXT OF MACBYPASSED MESSAGE. *)N(* *)4(* X-14 JRK369 JIM KAUFFMAN 25-APR-1995 *)B(* ADD ALTPRI_7 AND WORLD_5 *)N(*  *)F(* X-13 CHANGE TEXT OF MESSAGES SO 64-BIT SYSTEM SERVICES CAN *)B(* SHARE ROUTINES WHICH DO AUTIDING WITH WITH 32-BIT SYSTEM *)B(* SERVICES. *)N(* *)B(* MESSAGES CHANGED: *)B(* CMKRNL_22 *)B(* CMKRNL_23  *)B(* CMEXEC_1 *)B(* PRMGBL_1 *)B(* SYSGBL_1 *)B(* PFNMAP_1 *)B(* PFNMAP_2 *)N(* *)>(* X-12 JCH703 JOHN C. HALLYBURTON, JR. 17-JAN-1995 *)B(* CHANGE TEXT OF LOG_IO_1, PHY_IO_9, PHY_IO_14 AND DETACH_1. *)B(* ADD ALTPRI_6. *)N(* *)7(* X-11 REG002 RUTH GOLDENBERG 26-OCT-1994 *)B(* EDIT TEXT OF CMKRNL_24 AND DETACH_1 TO INCLUDE *)B(* REMOTE PROCESS CREATIONS. *)N(* *)6(* X-10 JAH0159 JOHN A HARNEY 07-SEP-1994 *)B(* ADD COMMON MAPPING MESSAGES *)N(* *)8(* X-9 NYK028 NITIN Y. KARKHANIS 20-MAY-1994 *)B(* RELEASE OPER_47 AND USE CMKRNL_34 FOR FLAGGING ATTEMPTED *)B(* MODIFICATIONS TO CONSOLE ENVIRONMENT VARIABLES. *)N(* *)8(* X-8 NYK023 NITIN Y. KARKHANIS 14-APR -1994 *)B(* RE-USED OPER_47 FOR "USER MODIFYING CONSOLE ENVIRONMENT *)B(* VARIABLES. *)N(* *)5(* X-7 JAH0086 JOHN A HARNEY 14-MAR-1994 *)B(* ADD SECURITY_20 TO SECURITY_25 MESSAGES. *)N(* *)7(* X-6 SGS0042 STEVE SKONETSKI 10-MAR-1994 *)B(* ADD MEDIA MANAGEMENT EXTENSIONS (MME) SPECIFIC *)B(* AUDITING MESSAGES. *)N(* *)9(* X-5 SAD0296 STUART A. DAVIDSON 9-DEC-1993 *)B(* ADD DETACH_7 FOR IMPERSONATION. *)N(* *).(* X-4 TRB TOM BENSON 23-OCT-1993 *)B(* PROPAGATED WORLD_4 FROM VAX, FOR CLASS S CHEDULER. *)N(* *)4(* X-3 TNS003 TOM SCARPELLI 23-AUG-1993 *)B(* CHANGE $MAPGBL TO $MGBLSC. *)N(* *)/(* X-2 CEG CLAIR GRANT 2-APR-1993 *)B(* VAX (BLADE) => AXP. GET BLADE VERSION. *)N(* *)/(* ! X-1 CEG CLAIR GRANT 04-MAR-1993 *)B(* VAX (BLADE) => AXP. GET BLADE VERSION FOR EPSILON. *)N(* *)N(*** *) CONST NSA$_FACILITY = 1072; NSA$_CMKRNL_1 = 70287363; NSA$_CMKRNL_2 = 70287371; NSA$_CMKRNL_3 = 70287379; NSA$_CMKRNL_4 = 70287387; NSA$_CMKRNL_5 = 70287395; NSA$_CMKRNL_6 = 70287403;G NSA$_CMKRNL_7 = 70287411; " (* UNDOCUMENTED *) NSA$_CMKRNL_8 = 70287419; NSA$_CMKRNL_9 = 70287427;G NSA$_CMKRNL_10 = 70287435; (* UNDOCUMENTED *)G NSA$_CMKRNL_11 = 70287443; (* UNDOCUMENTED *) NSA$_CMKRNL_12 = 70287451; NSA$_CMKRNL_13 = 70287459;G NSA$_CMKRNL_14 = 70287467; (* UNDOCUMENTED *) NSA$_CMKRNL_15 = 70287475;G NSA$_CMKRNL_16 = 70287483; (* UNDOCUMENTED *) NSA$_CMKRNL_17 = #70287491;G NSA$_CMKRNL_18 = 70287499; (* UNDOCUMENTED *) NSA$_CMKRNL_19 = 70287507;G NSA$_CMKRNL_20 = 70287515; (* UNDOCUMENTED *)G NSA$_CMKRNL_21 = 70287523; (* UNDOCUMENTED *) NSA$_CMKRNL_22 = 70287531; NSA$_CMKRNL_23 = 70287539; NSA$_CMKRNL_24 = 70287547;G NSA$_CMKRNL_25 = 70287555; (* UNDOCUMENTED *) NSA$_CMKRNL_26 = 70287563;9 NSA$_CMKRNL_27 = 70287571; (* UNDOCUMENTED$ *) NSA$_CMKRNL_28 = 70287579; NSA$_CMKRNL_29 = 70287587; NSA$_CMKRNL_30 = 70287595; NSA$_CMKRNL_31 = 70287603; NSA$_CMKRNL_32 = 70287611; NSA$_CMKRNL_33 = 70287619; NSA$_CMKRNL_34 = 70287627; NSA$_CMKRNL_35 = 70287635; NSA$_CMKRNL_36 = 70287643; N(* *)N(* START OF A SET OF AUDITS ISSUED ONLY ON IPF *)N(* % *) CONST NSA$_CMKRNL_37 = 70287651; N(* *)N(* END OF A SET OF AUDITS ISSUED ONLY ON IPF *)N(* *) CONST NSA$_CMEXEC_1 = 70287763; NSA$_CMEXEC_2 = 70287771; NSA$_SYSNAM_1 = 70287843; NSA$_SYSNAM_2 = 70287851; NSA$_SYSNAM_3 = 70287859; NSA$_SYSNAM_4 = 70287867; NSA$_SYSNAM_5 = 70287875;& NSA$_SYSNAM_6 = 70287883; NSA$_SYSNAM_7 = 70287891; NSA$_SYSNAM_8 = 70287899; NSA$_SYSNAM_9 = 70287907; NSA$_SYSNAM_10 = 70287915; NSA$_SYSNAM_11 = 70287923; NSA$_SYSNAM_12 = 70287931; NSA$_SYSNAM_13 = 70287939; NSA$_GRPNAM_1 = 70288083; NSA$_GRPNAM_2 = 70288091; NSA$_GRPNAM_3 = 70288099; NSA$_ALLSPOOL_1 = 70288163; NSA$_DETACH_1 = 70288243; NSA$_DETACH_2 = 70288251; NSA$_DETACH_3 = 70288259; NSA$_DETACH_4 = 70288267; NSA$_DETACH_5 = 70288275; NSA$_DETACH_6 = 7'0288283; NSA$_DETACH_7 = 70288291; NSA$_IMPERSONATE_1 = 70288243; NSA$_IMPERSONATE_2 = 70288251; NSA$_IMPERSONATE_3 = 70288259; NSA$_IMPERSONATE_4 = 70288267; NSA$_IMPERSONATE_5 = 70288275; NSA$_IMPERSONATE_6 = 70288283; NSA$_IMPERSONATE_7 = 70288291; NSA$_IMPERSONATE_8 = 70288299; NSA$_IMPERSONATE_9 = 70288307; NSA$_IMPERSONATE_10 = 70288315; P(* THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE END OF THE MODULE. *) !CONST NSA$_DIAGNOSE_1 = 70288323; N(SA$_DIAGNOSE_2 = 70288331; NSA$_DIAGNOSE_3 = 70288339;G NSA$_DIAGNOSE_4 = 70288347; (* UNDOCUMENTED *) NSA$_DIAGNOSE_5 = 70288355; NSA$_DIAGNOSE_6 = 70288363; NSA$_DIAGNOSE_7 = 70288371; NSA$_DIAGNOSE_8 = 70288379; NSA$_LOG_IO_1 = 70288403; NSA$_LOG_IO_2 = 70288411; NSA$_LOG_IO_3 = 70288419; NSA$_LOG_IO_4 = 70288427;G NSA$_LOG_IO_5 = 70288435; (* UNDOCUMENTED *) NSA$_LOG_IO_6 = 70288443; NSA$_LOG_IO_7 = 70288451; NSA$_GROUP_)1 = 70288483; NSA$_GROUP_2 = 70288491; NSA$_GROUP_3 = 70288499; NSA$_GROUP_4 = 70288507; NSA$_GROUP_5 = 70288515; NSA$_GROUP_6 = 70288523; NSA$_GROUP_7 = 70288531; NSA$_GROUP_8 = 70288539; NSA$_GROUP_9 = 70288547; NSA$_GROUP_10 = 70288555; NSA$_ACNT_1 = 70288643; NSA$_ACNT_2 = 70288651; NSA$_PRMCEB_1 = 70288723; NSA$_PRMCEB_2 = 70288731; NSA$_PRMMBX_1 = 70288803; NSA$_PRMMBX_2 = 70288811; NSA$_PRMMBX_3 = 70288819; NSA$_PSWAPM_1 = 70288883; NSA$_PSWAPM_2 = 7*0288891; NSA$_PSWAPM_3 = 70288899; NSA$_PSWAPM_4 = 70288907; NSA$_ALTPRI_1 = 70288963; NSA$_ALTPRI_2 = 70288971; NSA$_ALTPRI_3 = 70288979; NSA$_ALTPRI_4 = 70288987; NSA$_ALTPRI_5 = 70288995; NSA$_ALTPRI_6 = 70289003; NSA$_ALTPRI_7 = 70289011; NSA$_IMPORT_1 = 70289043; NSA$_TMPMBX_1 = 70289123; NSA$_TMPMBX_2 = 70289131; NSA$_WORLD_1 = 70289203; NSA$_WORLD_2 = 70289211; NSA$_WORLD_3 = 70289219; NSA$_WORLD_4 = 70289227; NSA$_WORLD_5 = 70289235; NSA$_WORLD_6 = 7028+9243; NSA$_MOUNT_1 = 70289283; NSA$_OPER_1 = 70289363; NSA$_OPER_2 = 70289371; NSA$_OPER_3 = 70289379; NSA$_OPER_4 = 70289387; NSA$_OPER_5 = 70289395; NSA$_OPER_6 = 70289403; NSA$_OPER_7 = 70289411; NSA$_OPER_8 = 70289419; NSA$_OPER_9 = 70289427; NSA$_OPER_10 = 70289435; NSA$_OPER_11 = 70289443; NSA$_OPER_12 = 70289451; NSA$_OPER_13 = 70289459;G NSA$_OPER_14 = 70289467; (* UNDOCUMENTED *)G NSA$_OPER_15 = 70289475; (* UNDOCUMENTED , *) NSA$_OPER_16 = 70289483;G NSA$_OPER_17 = 70289491; (* UNDOCUMENTED *)G NSA$_OPER_18 = 70289499; (* UNDOCUMENTED *) NSA$_OPER_19 = 70289507; NSA$_OPER_20 = 70289515; NSA$_OPER_21 = 70289523; NSA$_OPER_22 = 70289531; NSA$_OPER_23 = 70289539;G NSA$_OPER_24 = 70289547; (* UNDOCUMENTED *) NSA$_OPER_25 = 70289555; NSA$_OPER_26 = 70289563; NSA$_OPER_27 = 70289571; NSA$_OP-ER_28 = 70289579; NSA$_OPER_29 = 70289587; NSA$_OPER_30 = 70289595; NSA$_OPER_31 = 70289603; NSA$_OPER_32 = 70289611; NSA$_OPER_33 = 70289619; NSA$_OPER_34 = 70289627;G NSA$_OPER_35 = 70289635; (* UNDOCUMENTED *) NSA$_OPER_36 = 70289643; NSA$_OPER_37 = 70289651; NSA$_OPER_38 = 70289659; NSA$_OPER_39 = 70289667; NSA$_OPER_40 = 70289675; NSA$_OPER_41 = 70289683; NSA$_OPER_42 = 70289691; NSA$_OPER_43 = 70289699; NSA$_OPER_44 = 7028.9707; NSA$_OPER_45 = 70289715; NSA$_OPER_46 = 70289723; NSA$_OPER_47 = 70289731; NSA$_OPER_48 = 70289739; NSA$_OPER_49 = 70289747; NSA$_OPER_50 = 70289755; NSA$_OPER_51 = 70289763; NSA$_OPER_52 = 70289771; NSA$_OPER_53 = 70289779; NSA$_OPER_54 = 70289787; NSA$_OPER_55 = 70289795;G NSA$_OPER_56 = 70289803; (* UNDOCUMENTED *) NSA$_OPER_57 = 70289811; NSA$_OPER_58 = 70289819; NSA$_OPER_59 = 70289827; NSA$_OPER_60 = 70289835; NSA/$_OPER_61 = 70289843; NSA$_OPER_62 = 70289851; NSA$_OPER_63 = 70289859; NSA$_OPER_64 = 70289867; NSA$_OPER_65 = 70289875; NSA$_OPER_66 = 70289883; NSA$_OPER_67 = 70289891; NSA$_OPER_68 = 70289899; NSA$_OPER_69 = 70289907;G NSA$_OPER_70 = 70289915; (* UNDOCUMENTED *) NSA$_OPER_71 = 70289923; NSA$_OPER_72 = 70289931; NSA$_OPER_73 = 70289939; NSA$_OPER_74 = 70289947; NSA$_OPER_75 = 70289955; NSA$_OPER_76 = 70289963; NSA$_OPER_77 = 070289971; NSA$_OPER_78 = 70289979; NSA$_OPER_79 = 70289987; NSA$_OPER_80 = 70289995; NSA$_OPER_81 = 70290003; N(* *)N(* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* *) CONST NSA$_OPER_82 = 70290011; NSA$_OPER_83 = 70290019; NSA$_OPER_84 = 70290027; NSA$_OPER_85 = 70290035; NSA$_OPER_86 = 701290043; NSA$_OPER_87 = 70290051; NSA$_OPER_88 = 70290059; NSA$_OPER_89 = 70290067; NSA$_OPER_90 = 70290075; NSA$_OPER_91 = 70290083; NSA$_OPER_92 = 70290091; NSA$_OPER_93 = 70290099; NSA$_OPER_94 = 70290107; N(* *)N(* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* *) CONST NSA$_EXQUOTA_1 = 7 20290323; N(* *)N(* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* *) CONST NSA$_EXQUOTA_2 = 70290331; NSA$_EXQUOTA_3 = 70290339; N(* *)N(* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* 3 *) CONST NSA$_NETMBX_1 = 70290403; NSA$_NETMBX_2 = 70290411; NSA$_NETMBX_3 = 70290419; NSA$_VOLPRO_1 = 70290483; NSA$_VOLPRO_2 = 70290491;G NSA$_VOLPRO_3 = 70290499; (* UNDOCUMENTED *) NSA$_VOLPRO_4 = 70290507; NSA$_VOLPRO_5 = 70290515; NSA$_VOLPRO_6 = 70290523; NSA$_VOLPRO_7 = 70290531; NSA$_VOLPRO_8 = 70290539; NSA$_VOLPRO_9 = 70290547; NSA$_VOLPRO_10 = 70290555; NSA$_VOLPRO_11 = 702905463; NSA$_VOLPRO_12 = 70290571; NSA$_VOLPRO_13 = 70290579; NSA$_VOLPRO_14 = 70290587; NSA$_VOLPRO_15 = 70290595; NSA$_PHY_IO_1 = 70290643; NSA$_PHY_IO_2 = 70290651; NSA$_PHY_IO_3 = 70290659; NSA$_PHY_IO_4 = 70290667; NSA$_PHY_IO_5 = 70290675; NSA$_PHY_IO_6 = 70290683; NSA$_PHY_IO_7 = 70290691; NSA$_PHY_IO_8 = 70290699; NSA$_PHY_IO_9 = 70290707; NSA$_PHY_IO_10 = 70290715; NSA$_PHY_IO_11 = 70290723; NSA$_PHY_IO_12 = 70290731;G NSA$_PHY_IO_13 = 70290739; (* UN5DOCUMENTED *) NSA$_PHY_IO_14 = 70290747; NSA$_PHY_IO_15 = 70290755; NSA$_BUGCHK_1 = 70290883; NSA$_BUGCHK_2 = 70290891; NSA$_PRMGBL_1 = 70290963; NSA$_PRMGBL_2 = 70290971; NSA$_SYSGBL_1 = 70291043; NSA$_SYSGBL_2 = 70291051; NSA$_PFNMAP_1 = 70291123; NSA$_PFNMAP_2 = 70291131; NSA$_PFNMAP_3 = 70291139; NSA$_SHMEM_1 = 70291203; NSA$_SHMEM_2 = 70291211; NSA$_SHMEM_3 = 70291219; NSA$_SHMEM_4 = 70291227; NSA$_SHMEM_5 = 70291235; NSA$_SYSPRV_1 = 760291283; NSA$_SYSPRV_2 = 70291291; NSA$_SYSPRV_3 = 70291299; NSA$_SYSPRV_4 = 70291307; NSA$_SYSPRV_5 = 70291315;G NSA$_SYSPRV_6 = 70291323; (* UNDOCUMENTED *) NSA$_SYSPRV_7 = 70291331; NSA$_SYSPRV_8 = 70291339; NSA$_SYSPRV_9 = 70291347; NSA$_SYSPRV_10 = 70291355; NSA$_SYSPRV_11 = 70291363; NSA$_SYSPRV_12 = 70291371; NSA$_SYSPRV_13 = 70291379;G NSA$_SYSPRV_14 = 70291387; (* RESERVED *) NSA$_SYSPRV_15 = 70291395; N7SA$_SYSPRV_16 = 70291403; NSA$_SYSPRV_17 = 70291411; NSA$_SYSPRV_18 = 70291419; NSA$_SYSPRV_19 = 70291427; NSA$_SYSPRV_20 = 70291435; NSA$_SYSPRV_21 = 70291443; NSA$_SYSPRV_22 = 70291451; NSA$_SYSPRV_23 = 70291459; NSA$_SYSPRV_24 = 70291467; NSA$_SYSPRV_25 = 70291475; NSA$_SYSPRV_26 = 70291483; NSA$_SYSPRV_27 = 70291491; NSA$_SYSPRV_28 = 70291499; NSA$_SYSPRV_29 = 70291507; NSA$_SYSPRV_30 = 70291515; NSA$_SYSPRV_31 = 70291523; NSA$_SYSPRV_32 = 70291531;8 NSA$_SYSPRV_33 = 70291539; NSA$_SYSPRV_34 = 70291547; NSA$_SYSPRV_35 = 70291555; NSA$_SYSPRV_36 = 70291563; NSA$_SYSPRV_37 = 70291571; NSA$_SYSPRV_38 = 70291579; NSA$_SYSPRV_39 = 70291587;q NSA$_SYSPRV_40 = 70291595; (* THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE END OF THE MODULE. *) NSA$_BYPASS_1 = 70291603; NSA$_BYPASS_2 = 70291611; NSA$_BYPASS_3 = 70291619; NSA$_BYPASS_4 = 70291627; NSA$_BYPASS_5 = 70291635; NSA$_BYPASS_6 = 70291643; NSA$_BYPA9SS_7 = 70291651; NSA$_BYPASS_8 = 70291659; NSA$_BYPASS_9 = 70291667; NSA$_BYPASS_10 = 70291675; NSA$_BYPASS_11 = 70291683; NSA$_BYPASS_12 = 70291691; NSA$_BYPASS_13 = 70291699; NSA$_BYPASS_14 = 70291707;G NSA$_BYPASS_15 = 70291715; (* RESERVED *)G NSA$_BYPASS_16 = 70291723; (* RESERVED *) NSA$_BYPASS_17 = 70291731; NSA$_BYPASS_18 = 70291739; NSA$_BYPASS_19 = 70291747; NSA$_BYPASS_20 = 70291755; NSA$_BYPASS_2:1 = 70291763; NSA$_BYPASS_22 = 70291771; NSA$_BYPASS_23 = 70291779; NSA$_BYPASS_24 = 70291787; NSA$_BYPASS_25 = 70291795; NSA$_BYPASS_26 = 70291803; NSA$_BYPASS_27 = 70291811; NSA$_BYPASS_28 = 70291819; NSA$_BYPASS_29 = 70291827; NSA$_BYPASS_30 = 70291835; NSA$_SYSLCK_1 = 70291923; NSA$_SYSLCK_2 = 70291931; NSA$_SHARE_1 = 70292003; NSA$_GRPPRV_1 = 70292083; NSA$_GRPPRV_2 = 70292091; NSA$_GRPPRV_3 = 70292099;G NSA$_GRPPRV_4 = 70292107; (* RESERVED ; *) NSA$_GRPPRV_5 = 70292115; NSA$_GRPPRV_6 = 70292123; NSA$_GRPPRV_7 = 70292131; NSA$_GRPPRV_8 = 70292139; NSA$_GRPPRV_9 = 70292147; NSA$_GRPPRV_10 = 70292155; NSA$_GRPPRV_11 = 70292163; NSA$_GRPPRV_12 = 70292171; NSA$_GRPPRV_13 = 70292179; NSA$_GRPPRV_14 = 70292187; NSA$_GRPPRV_15 = 70292195; NSA$_GRPPRV_16 = 70292203; NSA$_GRPPRV_17 = 70292211; NSA$_GRPPRV_18 = 70292219; NSA$_READALL_1 = 70292243; NSA$_READALL_2 = 70292251;G NSA$_READALL_<3 = 70292259; (* RESERVED *) NSA$_SECURITY_1 = 70292483; NSA$_SECURITY_2 = 70292491; NSA$_SECURITY_3 = 70292499; NSA$_SECURITY_4 = 70292507; NSA$_SECURITY_5 = 70292515; NSA$_SECURITY_6 = 70292523; NSA$_SECURITY_7 = 70292531; NSA$_SECURITY_8 = 70292539; NSA$_SECURITY_9 = 70292547; NSA$_SECURITY_10 = 70292555; NSA$_SECURITY_11 = 70292563; NSA$_SECURITY_12 = 70292571; NSA$_SECURITY_13 = 70292579; NSA$_SECURITY_14 = 70292587; NSA$_SECURITY_1=5 = 70292595; NSA$_SECURITY_16 = 70292603; NSA$_SECURITY_17 = 70292611; NSA$_SECURITY_18 = 70292619; NSA$_SECURITY_19 = 70292627; NSA$_SECURITY_20 = 70292635; NSA$_SECURITY_21 = 70292643; NSA$_SECURITY_22 = 70292651; NSA$_SECURITY_23 = 70292659; NSA$_SECURITY_24 = 70292667; NSA$_SECURITY_25 = 70292675; N(* *)N(* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* > *) "CONST NSA$_SECURITY_26 = 70292683; NSA$_SECURITY_27 = 70292691; NSA$_SECURITY_28 = 70292699; NSA$_SECURITY_29 = 70292707; NSA$_SECURITY_30 = 70292715; N(* THE ABOVE LIST IS FULL. CONTINUES AT BASE 3180 *)N(* *)N(* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* ? *) CONST NSA$_UPGRADE_1 = 70292723;G NSA$_UPGRADE_2 = 70292731; (* RESERVED *) NSA$_DOWNGRADE_1 = 70292803;G NSA$_DOWNGRADE_2 = 70292811; (* RESERVED *)G NSA$_SETPRV_1 = 70292883; (* UNDOCUMENTED *) NSA$_SETPRV_2 = 70292891; NSA$_SETPRV_3 = 70292899; NSA$_SETPRV_4 = 70292907; NSA$_SETPRV_5 = 70292915; NSA$_SETPRV_6 = 70292923; NSA$_AUDIT_1 @= 70292963; NSA$_AUDIT_2 = 70292971; NSA$_AUDIT_3 = 70292979; N(* *)Q(* THE RANGE FROM 1900 TO 2000 IS USED FOR IMPLIED SYSPRV FROM UIC GROUP BEING *)N(* LESS THAN OR EQUAL TO MAXSYSGRP. *)N(* *) #CONST NSA$_IMP_SYSPRV_1 = 70302563; NSA$_IMP_SYSPRV_2 = 70302571; NSA$_IMP_SYSPRV_3 = 70302579; NASA$_IMP_SYSPRV_4 = 70302587; NSA$_IMP_SYSPRV_5 = 70302595; NSA$_IMP_SYSPRV_6 = 70302603; NSA$_IMP_SYSPRV_7 = 70302611; NSA$_IMP_SYSPRV_8 = 70302619; NSA$_IMP_SYSPRV_9 = 70302627; NSA$_IMP_SYSPRV_10 = 70302635; NSA$_IMP_SYSPRV_11 = 70302643; NSA$_IMP_SYSPRV_12 = 70302651; NSA$_IMP_SYSPRV_13 = 70302659; NSA$_IMP_SYSPRV_14 = 70302667; NSA$_IMP_SYSPRV_15 = 70302675; NSA$_IMP_SYSPRV_16 = 70302683;G NSA$_IMP_SYSPRV_17 = 70302691; (* *) N B(* THE RANGE FROM 2000-2047 IS RESERVED FOR EVENTS WHICH ARE GOVERNED BY *)O(* MULTIPLE PRIVILEGES. THIS KIND OF THING IS SERIOUSLY FROWNED UPON AND SO *)N(* WE'LL ONLY RESERVE A MEASLY 48 MESSAGES CODES FOR THEM. *)N(* *) CONST NSA$_COMB_1 = 70303363; NSA$_COMB_2 = 70303371; NSA$_COMB_3 = 70303379;G NSA$_COMB_4 = 70303387; (* UNDOCUMENTED *) NSA$_COMB_5 = 7030339C5; NSA$_COMB_6 = 70303403; NSA$_COMB_7 = 70303411; NSA$_COMB_8 = 70303419; NSA$_COMB_9 = 70303427; NSA$_COMB_10 = 70303435; NSA$_COMB_11 = 70303443; NSA$_COMB_12 = 70303451; NSA$_COMB_13 = 70303459; NSA$_COMB_14 = 70303467; NSA$_COMB_15 = 70303475; NSA$_COMB_16 = 70303483; NSA$_COMB_17 = 70303491; NSA$_COMB_18 = 70303499; N(* *)N(* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA D *)N(* *) CONST NSA$_COMB_19 = 70303507; N(* *)N(* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* *) CONST NSA$_COMB_20 = 70303515; N(* *)S(* THE REANGE OF MESSAGE CODES FROM 2048-4095 ARE RESERVED TO PORTIONS OF THE TCB *)N(* WHICH NEED TO ASSOCIATE ONE LINE OF TEXT WITH THEIR AUDIT MESSAGE. *)N(* *)N(* *)N(* FILE AND VOLUME AUDIT MESSAGES (F11BXQP). *)N(* *) CONST NSA$_XQP_1 = 70303F747; NSA$_XQP_2 = 70303755; NSA$_XQP_3 = 70303763; NSA$_XQP_4 = 70303771; NSA$_XQP_5 = 70303779; NSA$_XQP_6 = 70303787; NSA$_XQP_7 = 70303795; NSA$_XQP_8 = 70303803; NSA$_XQP_9 = 70303811; NSA$_XQP_10 = 70303819; NSA$_XQP_11 = 70303827; NSA$_XQP_12 = 70303835; NSA$_XQP_13 = 70303843; NSA$_XQP_14 = 70303851; NSA$_XQP_15 = 70303859; NSA$_XQP_16 = 70303867; NSA$_XQP_17 = 70303875; NSA$_XQP_18 = 70303883; NSA$_XQP_19 = 70303891; NSA$_XQP_20 = 70303899; NSA$_GXQP_21 = 70303907; NSA$_XQP_22 = 70303915; NSA$_XQP_23 = 70303923; N(* *)N(* MESSAGE TO DIFFERENTIATE VARIOUS TCB OPERATIONS. *)N(* *) CONST NSA$_ALLOCATE = 70311939; NSA$_ASSIGN = 70311947; NSA$_SETSECURITY = 70311955; NSA$_SHOSECURITY = 70311963; NSA$_GSDACCESS = 70311971; NSA$_KFEACCESS = 70311979; NHSA$_MACBYPASSED = 70311987; N(* *)N(* PRIVILEGE AUDIT OVERFLOW. *)N(* *) CONST NSA$_SYSPRV_41 = 70312163; NSA$_SYSPRV_42 = 70312171; NSA$_SYSPRV_43 = 70312179; NSA$_SYSPRV_44 = 70312187; NSA$_SYSPRV_45 = 70312195; NSA$_SYSPRV_46 = 70312203; NSA$_SYSPRV_47 = 70312211; NSA$_SYSPRV_4I8 = 70312219; NSA$_SYSPRV_49 = 70312227; NSA$_SYSPRV_50 = 70312235; NSA$_SYSPRV_51 = 70312243; NSA$_SYSPRV_52 = 70312251; N(* *)N(* IMPERSONATION AUDIT OVERFLOW *)N(* *) %CONST NSA$_IMPERSONATE_11 = 70312483; NSA$_IMPERSONATE_12 = 70312491; N(* J *)N(* SECURITY AUDIT OVERFLOW *)N(* *)N(* *)N(* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* *) "CONST NSA$_SECURITY_31 = 70312803; NSA$_SECURITY_32 = 70312811; K NSA$_SECURITY_33 = 70312819; NSA$_SECURITY_34 = 70312827; NSA$_SECURITY_35 = 70312835; NSA$_SECURITY_36 = 70312843; NSA$_SECURITY_37 = 70312851; NSA$_SECURITY_38 = 70312859; NSA$_SECURITY_39 = 70312867; N(* *)N(* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *)N(* *) N(* END. L *) N(* MODULE OBJFMT ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)MJ(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD N *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; O *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),PUNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; Q *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; R *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT( S28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OBJRECDEF ***) CONST OBJ$M_PSC_PIC = 1; OBJ$M_PSC_LIB = 2; OBJ$M_PSC_OVL = 4; OBJ$M_PSC_REL = 8; OBJ$M_PSC_GBLT = 16; OBJ$M_PSC_SHR = 32; OBJ$M_PSC_EXE = 64; OBJ$M_PSC_RD = 128; OBJ$M_PSC_WRT = 256; OBJ$M_SYM_WEAK = 1; OBJ$M_SYM_DEF = 2; OBJ$M_SYM_UNI = 4; OBJ$M_SYM_REL = 8; OBJ$M_SYMV_WEAK = 1; OBJ$M_SYMV_DEF = 2; OBJ$M_SYMV_UNI = 4; OBJ$M_SYMV_REL = 8; OBJ$M_SYMM_WEAK = 1; OBJ$M_SYMM_DEF = 2; OBJ$M_SYMM_UNI = 4; OBJ$M_SYMM_REL = 8; 'TYPE SDAS$TYPE = RECORD CASE INTEGER OF/ 1: (OBJ$R_TYPE_OVERLAY : [BYTE(1)] RECORD END;3 OBJ$R_RECORDS_OVERLAY : [BYTE(15)] RECO URD END; );G 2: (OBJ$B_TYPE : [POS(0)] $UBYTE; (* Type of record *) );G 3: (OBJ$B_GSD_TYPE : [POS(0)] $UBYTE; (* Type of GSD record *)G OBJ$B_PSC_ALI : [POS(8)] $UBYTE; (* PSECT alignment (2**n) *)G OBJ$L_PSC_LEN : [POS(32)] UNSIGNED; (* Length of PSECT *)G OBJ$T_PSC_NAME : [POS(64)] CHAR; (* PSECT name (counted string) *) );G 4: (OBJ$W_PSC_FLAG : [POS(16)] $UWORD; (* PSECT flags: *) ); 5: ();G 6V: (OBJ$V_PSC_PIC : [POS(16)] $BOOL; (* Position independent *)I OBJ$V_PSC_LIB : [POS(17)] $BOOL; (* Defined from sharable image *)G OBJ$V_PSC_OVL : [POS(18)] $BOOL; (* Overlaid psect *)G OBJ$V_PSC_REL : [POS(19)] $BOOL; (* Requires relocation *)G OBJ$V_PSC_GBL : [POS(20)] $BOOL; (* PSECT is global *)G OBJ$V_PSC_SHR : [POS(21)] $BOOL; (* Potentially sharable *)G OBJ$V_PSC_EXE : [POS(22)] $BOOL; (* Executable W *)G OBJ$V_PSC_RD : [POS(23)] $BOOL; (* Can be read *)G OBJ$V_PSC_WRT : [POS(24)] $BOOL; (* Can be written *) ); 7: ();S 8: (OBJ$B_SYM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *)H OBJ$B_SYM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *)N OBJ$L_SYM_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *)H OBJ$T_SYM_NAME : [POS(72)] CHAR; (* Symbol name (counted string) *) );G 9 X: (OBJ$W_SYM_FLAGS : [POS(16)] $UWORD; (* Symbol flags: *) ); 10: ();L 11: (OBJ$V_SYM_WEAK : [POS(16)] $BOOL; (* Weak resolution (0 = strong) *)H OBJ$V_SYM_DEF : [POS(17)] $BOOL; (* Definition (0 = reference) *)N OBJ$V_SYM_UNI : [POS(18)] $BOOL; (* Universal definition (0 = local) *)L OBJ$V_SYM_REL : [POS(19)] $BOOL; (* Relative symbol (0 = absolute) *) ); 12: ();T 13: (OBJ$B_EPM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *) YH OBJ$W_EPM_FLAGS : [POS(16)] $UWORD; (* Flags (same as SYM_FLAGS) *)H OBJ$B_EPM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *)N OBJ$L_EPM_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *)G OBJ$W_EPM_MASK : [POS(72)] $UWORD; (* Entry mask *)H OBJ$T_EPM_NAME : [POS(88)] CHAR; (* Symbol name (counted string) *) ); 14: ();U 15: (OBJ$B_SYMV_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *)I OBJ$B_SYMV_PSIN ZD : [POS(32)] $UBYTE; (* PSECT index (only if def) *)O OBJ$L_SYMV_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *)Y OBJ$L_SYMV_VECTOR : [POS(72)] UNSIGNED; (* Vectored value of symbol (only if def) *)J OBJ$T_SYMV_NAME : [POS(104)] CHAR; (* Symbol name (counted string) *) );G 16: (OBJ$W_SYMV_FLAGS : [POS(16)] $UWORD; (* Symbol flags: *) ); 17: ();M 18: (OBJ$V_SYMV_WEAK : [POS(16)] $BOOL; (* Weak resolution (0 = strong) *)I OBJ$V_SYMV_ [DEF : [POS(17)] $BOOL; (* Definition (0 = reference) *)O OBJ$V_SYMV_UNI : [POS(18)] $BOOL; (* Universal definition (0 = local) *)M OBJ$V_SYMV_REL : [POS(19)] $BOOL; (* Relative symbol (0 = absolute) *) ); 19: ();U 20: (OBJ$B_EPMV_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *)I OBJ$W_EPMV_FLAGS : [POS(16)] $UWORD; (* Flags (same as SYM_FLAGS) *)I OBJ$B_EPMV_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *)O OBJ$L_EPMV_VALUE : \[POS(40)] UNSIGNED; (* Value of symbol (only if def) *)Y OBJ$L_EPMV_VECTOR : [POS(72)] UNSIGNED; (* Vectored value of symbol (only if def) *)G OBJ$W_EPMV_MASK : [POS(104)] $UWORD; (* Entry mask *)J OBJ$T_EPMV_NAME : [POS(120)] CHAR; (* Symbol name (counted string) *) ); 21: ();U 22: (OBJ$B_SYMM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *)I OBJ$B_SYMM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *)O OBJ$L_SYMM_VALUE ]: [POS(40)] UNSIGNED; (* Value of symbol (only if def) *)] OBJ$L_SYMM_VERSION_MASK : [POS(72)] UNSIGNED; (* Version mask of symbol (only if def) *)J OBJ$T_SYMM_NAME : [POS(104)] CHAR; (* Symbol name (counted string) *) );G 23: (OBJ$W_SYMM_FLAGS : [POS(16)] $UWORD; (* Symbol flags: *) ); 24: ();M 25: (OBJ$V_SYMM_WEAK : [POS(16)] $BOOL; (* Weak resolution (0 = strong) *)I OBJ$V_SYMM_DEF : [POS(17)] $BOOL; (* Definition (0 = reference) *)O OBJ$V_SYM ^M_UNI : [POS(18)] $BOOL; (* Universal definition (0 = local) *)M OBJ$V_SYMM_REL : [POS(19)] $BOOL; (* Relative symbol (0 = absolute) *) ); 26: ();U 27: (OBJ$B_EPMM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *)I OBJ$W_EPMM_FLAGS : [POS(16)] $UWORD; (* Flags (same as SYM_FLAGS) *)I OBJ$B_EPMM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *)O OBJ$L_EPMM_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *)] OBJ$L_EPMM_ _VERSION_MASK : [POS(72)] UNSIGNED; (* Version mask of symbol (only if def) *)G OBJ$W_EPMM_MASK : [POS(104)] $UWORD; (* Entry mask *)J OBJ$T_EPMM_NAME : [POS(120)] CHAR; (* Symbol name (counted string) *) ); 28: ();G 29: (OBJ$B_EOM_SEV : [POS(8)] $UBYTE; (* Error severity for module *)N OBJ$B_EOM_PSIND : [POS(16)] $UBYTE; (* PSECT index of transfer address *)G OBJ$L_EOM_TRANS : [POS(24)] UNSIGNED; (* Transfer address *) ) END; LCONST OB`J$C_HDR = 0; (*Module header record *)G OBJ$C_HDR_MHD = 0; (* Main header record *)G OBJ$C_HDR_LNM = 1; (* Language processor record *)G OBJ$C_HDR_SRC = 2; (* Source files description *)G OBJ$C_HDR_TTL = 3; (* Title text *)G OBJ$C_HDR_CPR = 4; (* Copyright text *)G OBJ$C_HDR_MTC = 5; (* Maintenance text a *)G OBJ$C_HDR_GTX = 6; (* General text *)G OBJ$C_GSD = 1; (*Global symbol definition record *)G OBJ$C_GSD_PSC = 0; (* P-sect definition *)G OBJ$C_GSD_SYM = 1; (* Symbol (simple) definition *)G OBJ$C_GSD_EPM = 2; (* Entry point definition *)G OBJ$C_GSD_PRO = 3; (* Procedure definition *)I OBJ$C_GSD_SYMW = 4; (* Symbol definition bwith word psect *)N OBJ$C_GSD_EPMW = 5; (* Entry point definition with word psect *)L OBJ$C_GSD_PROW = 6; (* Procedure definition with word psect *)G OBJ$C_GSD_IDC = 7; (* Random entity check *)G OBJ$C_GSD_ENV = 8; (* Environment definition *)I OBJ$C_GSD_LSY = 9; (* Local symbol definition/reference *)G OBJ$C_GSD_LEPM = 10; (* Local symbol entry point def. *)G OBJ$C_GSD_LPRO = 11; c (* Local symbol procedure def. *)H OBJ$C_GSD_SPSC = 12; (* Shareable image psect definition *)J OBJ$C_GSD_SYMV = 13; (* Global symbol definition (vectored) *)H OBJ$C_GSD_EPMV = 14; (* Entry point definition (vectored) *)G OBJ$C_GSD_PROV = 15; (* Procedure definition (vectored) *)W OBJ$C_GSD_SYMM = 16; (* Global symbol definition (special double valued) *)U OBJ$C_GSD_EPMM = 17; (* Entry point definition (special doubdle valued) *)S OBJ$C_GSD_PROM = 18; (* Procedure definition (special double valued) *)G OBJ$C_TIR = 2; (*Text information record *)G OBJ$C_EOM = 3; (*End of module record *)G OBJ$C_DBG = 4; (*Debugger information record *)G OBJ$C_TBT = 5; (*Traceback information record *)G OBJ$C_LNK = 6; (*Linker options record *)K OBJ$C_EOMW = 7; ( e*End of module record with word psect *)G OBJ$C_MAXRECTYP = 7; (*Last assigned record type *) OBJ$K_SUBTYP = 1; OBJ$C_SUBTYP = 1;G OBJ$C_MAXRECSIZ = 2048; (*Maximum legal record size *)G OBJ$C_STRLVL = 0; (*Structure level *)G OBJ$C_SYMSIZ = 31; (*Maximum symbol length *)M OBJ$C_STOREPLIM = -1; (*Maximum repeat count on store commands *)G OBJ$C_PSCALILIM = 9; (*Maximum p-s fect alignment *) )TYPE OBJREC$TYPE = RECORD CASE INTEGER OFG 1: (OBJ$B_RECTYP : $UBYTE; (*First byte always record type *)G (*Permissable record types *)G OBJ$B_SUBTYP : $UBYTE; (*Record sub-type byte *)G OBJ$B_MHD_STRLV : $UBYTE; (*Structure level *)4 OBJ$R_MHD_RECSZ_OVERLAY : [BYTE(2)] RECORD END; );G 2: (OBJ$W_MHD_RECSZ : [POS(24)] $UWORD; (*Maximum record size *g) ); 3: ();G 4: (OBJ$T_MHD_NAME : [POS(40)] RECORD END ; (*Module name field *)G (*Misc. constants *) ) END; (*** MODULE $MHDEF ***) N(* *)N(* Module header record (MHD) *)N(* *) LCONST MHD$C_MHD = 0; (*hMain header record *)G MHD$C_LNM = 1; (*Language name and version *)G MHD$C_SRC = 2; (*Source file specification *)G MHD$C_TTL = 3; (*Title text of module *)G MHD$C_CPR = 4; (*Copyright notice *)G MHD$C_MTC = 5; (*Maintenence status *)G MHD$C_GTX = 6; (*General text *)G MHD$C_MAXHDRTYP = 6; i (*Maximum allowable type *) TYPE MH$TYPE = RECORDG MHD$B_RECTYP : $UBYTE; (*Record type (OBJ$C_MHD) *)G MHD$B_HDRTYP : $UBYTE; (*Type field for MHD *)G (*Types of header records *)G MHD$B_STRLVL : $UBYTE; (*Structure level *)G MHD$W_RECSIZ : $UWORD; (*Maximum record size *)G MHD$B_NAMLNG : $UBYTE; (*Module name length j *)G MHD$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Module name *) END; (*** MODULE $EOMDEF ***) N(* *)N(* End of module record (EOM) *)N(* *) LCONST EOM$C_SUCCESS = 0; (*Successful (no errors) *)G EOM$C_WARNING = 1; (*Warnings issued k *)G EOM$C_ERROR = 2; (*Errors detected *)G EOM$C_ABORT = 3; (*Abort the link *)G EOM$K_EOMMIN = 2; (*Min length of EOM record *)G EOM$C_EOMMIN = 2; (*Min length of EOM record *)N EOM$K_EOMMX1 = 7; (*Length of EOM record w/o transfer flags *)N EOM$C_EOMMX1 = 7; (*Length of EOM record w/o transfer flags *)G EOM$K_EOMMAX = 8; l (*Maximum length of EOM record *)G EOM$C_EOMMAX = 8; (*Maximum length of EOM record *) EOM$M_WKTFR = 1; &TYPE EOM$TYPE = RECORD CASE INTEGER OFG 1: (EOM$B_RECTYP : $UBYTE; (*Record type (OBJ$C_EOM) *)G EOM$B_COMCOD : $UBYTE; (*Compiler completion code *)G (*Values *)G EOM$B_PSINDX : $UBYTE; (*P-sect of transfer address *)G EOM$L_TFRADR : UNSIGNmED; (*Transfer address *)1 EOM$R_TFRFLG_OVERLAY : [BYTE(1)] RECORD END; );G 2: (EOM$B_TFRFLG : [POS(56)] $UBYTE; (*Transfer address flags *) ); 3: ();G 4: (EOM$V_WKTFR : [POS(56)] $BOOL; (*Transfer address is weak *) ) END; (*** MODULE $EOMWDEF ***) N(* *)N(* End of module record with word of psect (EOMW) *)N(* n *) LCONST EOMW$K_EOMMIN = 2; (*Min length of EOM record *)G EOMW$C_EOMMIN = 2; (*Min length of EOM record *)O EOMW$K_EOMMX1 = 8; (*Length of EOMW record w/o transfer flags *)O EOMW$C_EOMMX1 = 8; (*Length of EOMW record w/o transfer flags *)G EOMW$K_EOMMAX = 9; (*Maximum length of EOMW record *)G EOMW$C_EOMMAX = 9; (*Maximum lengt oh of EOMW record *) EOMW$M_WKTFR = 1; 'TYPE EOMW$TYPE = RECORD CASE INTEGER OFG 1: (EOMW$B_RECTYP : $UBYTE; (*Record type (OBJ$C_EOM) *)G EOMW$B_COMCOD : $UBYTE; (*Compiler completion code *)G EOMW$W_PSINDX : $UWORD; (*P-sect of transfer address *)G EOMW$L_TFRADR : UNSIGNED; (*Transfer address *)2 EOMW$R_TFRFLG_OVERLAY : [BYTE(1)] RECORD END; );G 2: (EOMW$B_TFRFLG : [POS(64)] $UBYTE; (*Transfer addresps flags *) ); 3: ();G 4: (EOMW$V_WKTFR : [POS(64)] $BOOL; (*Transfer address is weak *) ) END; (*** MODULE $LNKDEF ***) N(* *)N(* Linker Options Record (LNK) *)N(* *) LCONST LNK$C_OLB = 0; (* object library spec *)G LNK$C_SHR = 1; q (* shareable image library spec *)K LNK$C_OLI = 2; (* object library with inclusion list *)G LNK$C_OBJ = 3; (* object file or symbol table file *)G LNK$C_SHA = 4; (* individually specified shr img *)G LNK$C_MAXRECTYP = 4; (* highest current record type *) LNK$M_SELSER = 1; LNK$M_LIBSRCH = 2; &TYPE LNK$TYPE = RECORD CASE INTEGER OFG 1: (LNK$B_RECTYP : $UBYTE; (* record type LNK r *)G LNK$B_LNKTYP : $UBYTE; (* sub record type *)0 LNK$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;1 LNK$R_NAMLNG_OVERLAY : [BYTE(2)] RECORD END; );$ 2: (LNK$W_FLAGS : [POS(16)] $UWORD;G LNK$W_NAMLNG : [POS(32)] $UWORD; (* length of filespec name *) ); 3: ();K 4: (LNK$V_SELSER : [POS(16)] $BOOL; (* selectively searched (LNK$C_OBJ) *)% LNK$V_LIBSRCH : [POS(17)] $BOOL;G LNK$T_NAME : [POS(48)] RECORD END ; (* actual name s *) ) END; (*** MODULE $GSDEF ***) N(* *)N(* Global symbol definition record (GSD) *)N(* *) LCONST GSD$K_ENTRIES = 1; (*Offset to first entry in record *)G GSD$C_ENTRIES = 1; (*Offset to first entry in record *)G GSD$C_PSC = 0; (*Psect definitiotn *)G GSD$C_SYM = 1; (*Symbol specification *)G GSD$C_EPM = 2; (*Entry point and mask definition *)G GSD$C_PRO = 3; (*Procedure with formal arguments *)K GSD$C_SYMW = 4; (*Symbol specification with word psect *)G GSD$C_EPMW = 5; (*Entry point mask with word psect *)G GSD$C_PROW = 6; (*Procedure with word psect *)G GSD$C_IDC = 7; ( u*Random entity check *)G GSD$C_ENV = 8; (*Define environment *)G GSD$C_LSY = 9; (*Local symbol *)J GSD$C_LEPM = 10; (*Local symbol entry point definition *)H GSD$C_LPRO = 11; (*Local symbol procedure definition *)G GSD$C_SPSC = 12; (*Shareable image psect definition *) N(* *) 'CONST vGSD$C_VECTOR_TYPE_INCREMENT = 12;M GSD$C_SYMV = 13; (*Vectored (dual-valued) versions of SYM, *)B GSD$C_EPMV = 14; (* EPM, *)B GSD$C_PROV = 15; (* PRO *) N(* *) %CONST GSD$C_MASK_TYPE_INCREMENT = 15;G GSD$C_SYMM = 16; (*Masked versions of SYM, *)G GSD$C_EPMM = 17; (* EPM, w *)G GSD$C_PROM = 18; (* PRO *)G GSD$C_MAXRECTYP = 18; (*Maximum entry type defined *) TYPE GS$TYPE = RECORDG GSD$B_RECTYP : $UBYTE; (*Record type (OBJ$C_GSD) *)J GSD$B_GSDTYP : $UBYTE; (*Type of entry (first byte of entry) *)o (* Vectored symbol types are (regular + 12). For example, SYMV = SYM + 12. *)G (* x *)k (* Mask symbol types are (regular + 15). For example, SYMM = SYM + 15. *)G (* *) END; (*** MODULE $GPSDEF ***) N(* *)N(* GSD entry - P-section definition *)N(* *) CONST yGPS$M_PIC = 1; GPS$M_LIB = 2; GPS$M_OVR = 4; GPS$M_REL = 8; GPS$M_GBL = 16; GPS$M_SHR = 32; GPS$M_EXE = 64; GPS$M_RD = 128; GPS$M_WRT = 256; GPS$M_VEC = 512; GPS$M_NOMOD = 1024; GPS$M_COM = 2048; GPS$K_NAME = 9; GPS$C_NAME = 9; &TYPE GPS$TYPE = RECORD CASE INTEGER OF1 1: (GPS$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G GPS$B_ALIGN : $UBYTE; (*P-sect alignment *)0 GPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;G GPS$L_ALLOC : UNSIGNE zD; (*Length of this contribution *)G GPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *)G GPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) );G 2: (GPS$B_GSDTYP : [POS(0)] $UBYTE; (*Typ field *)G GPS$W_FLAGS : [POS(16)] $UWORD; (*P-sect flags *) ); 3: ();( 4: (GPS$T_START : [POS(0)] RECORD END ;G GPS$V_PIC : [POS(16)] $BOOL; (*Position independent *)G GPS$V_LIB :{ [POS(17)] $BOOL; (*From a shareable image *)G GPS$V_OVR : [POS(18)] $BOOL; (*Overlaid memory allocation *)G GPS$V_REL : [POS(19)] $BOOL; (*Relocatable *)G GPS$V_GBL : [POS(20)] $BOOL; (*Global scope *)G GPS$V_SHR : [POS(21)] $BOOL; (*Shareable *)G GPS$V_EXE : [POS(22)] $BOOL; (*Executable *)G GPS$V_RD : [POS(23)] $BOOL; (*Readable *)G | GPS$V_WRT : [POS(24)] $BOOL; (*Writeable *)G GPS$V_VEC : [POS(25)] $BOOL; (*Vector psect *)G GPS$V_NOMOD : [POS(26)] $BOOL; (*Not stored into *)G GPS$V_COM : [POS(27)] $BOOL; (*Associated with COMM sym *) ) END; (*** MODULE $SGPSDEF ***) N(* *)N(* GSD entry - P-section definition in shareable image *)N(*} *) CONST SGPS$M_PIC = 1; SGPS$M_LIB = 2; SGPS$M_OVR = 4; SGPS$M_REL = 8; SGPS$M_GBL = 16; SGPS$M_SHR = 32; SGPS$M_EXE = 64; SGPS$M_RD = 128; SGPS$M_WRT = 256; SGPS$M_VEC = 512; SGPS$M_NOMOD = 1024; SGPS$M_COM = 2048; SGPS$K_NAME = 13; SGPS$C_NAME = 13; 'TYPE SGPS$TYPE = RECORD CASE INTEGER OF2 1: (SGPS$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G SGPS$B_ALIGN : $UBYTE; (*P-sect ~alignment *)1 SGPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;H SGPS$L_ALLOC : UNSIGNED; (*Length of this psect in shr image *)G SGPS$L_BASE : UNSIGNED; (*Base of this psect in shr image *)G SGPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *)G SGPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) );G 2: (SGPS$B_GSDTYP : [POS(0)] $UBYTE; (*Typ field *)G SGPS$W_FLAGS : [POS(16)] $UWORD; (*P- sect flags *) ); 3: ();) 4: (SGPS$T_START : [POS(0)] RECORD END ;G SGPS$V_PIC : [POS(16)] $BOOL; (*Position independent *)G SGPS$V_LIB : [POS(17)] $BOOL; (*From a shareable image *)G SGPS$V_OVR : [POS(18)] $BOOL; (*Overlaid memory allocation *)G SGPS$V_REL : [POS(19)] $BOOL; (*Relocatable *)G SGPS$V_GBL : [POS(20)] $BOOL; (*Global scope *)G SGPS$V_SHR : [POS(21)] $BOOL; (*Sha reable *)G SGPS$V_EXE : [POS(22)] $BOOL; (*Executable *)G SGPS$V_RD : [POS(23)] $BOOL; (*Readable *)G SGPS$V_WRT : [POS(24)] $BOOL; (*Writeable *)G SGPS$V_VEC : [POS(25)] $BOOL; (*Vector psect *)G SGPS$V_NOMOD : [POS(26)] $BOOL; (*Not stored into *)G SGPS$V_COM : [POS(27)] $BOOL; (*Associated with COMM sym *) ) END; (*** MOD ULE $GSYDEF ***) N(* *)N(* GSD entry - Symbol definition *)N(* *)N(* common to definitions, references, and entry *)N(* point definitions. *)N(* *) CONST GSY$M_WEAK = 1; GSY$M_DEF = 2; GSY$M_UNI = 4; GSY$M_REL = 8; GSY$M_COMM = 16; &TYPE GSY$TYPE = RECORD CASE INTEGER OF1 1: (GSY$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G GSY$B_DATYP : $UBYTE; (*Symbol data type *)0 GSY$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; );G 2: (GSY$B_GSDTYP : [POS(0)] $UBYTE; (*Type field *)G GSY$W_FLAGS : [POS(16)] $UWORD; (*Symbol flags *) ); 3: ();( 4: (GSY$T _START : [POS(0)] RECORD END ;G GSY$V_WEAK : [POS(16)] $BOOL; (*Weak symbol *)G GSY$V_DEF : [POS(17)] $BOOL; (*Definition *)G GSY$V_UNI : [POS(18)] $BOOL; (*Universal *)G GSY$V_REL : [POS(19)] $BOOL; (*Relocatable *)G GSY$V_COMM : [POS(20)] $BOOL; (*C common globaldef *) ) END; (*** MODULE $SRFDEF ***) N(*  *)N(* Symbol reference (SYM$M_DEF in GSY$W_FLAGS is 0) *)N(* *) CONST SRF$K_NAME = 5; SRF$C_NAME = 5; &TYPE SRF$TYPE = RECORD CASE INTEGER OF1 1: (SRF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G SRF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G SRF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G SRF$B_NAMLNG : $UBYTE;  (*Length of symbol name *)G SRF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (SRF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();( 4: (SRF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $SDFDEF ***) N(* *)N(* Symbol definition *)N(*  *) CONST SDF$K_NAME = 10; SDF$C_NAME = 10; &TYPE SDF$TYPE = RECORD CASE INTEGER OF1 1: (SDF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G SDF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G SDF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G SDF$B_PSINDX : $UBYTE; (*Owning psect number *)G SDF$L_VALUE : UNSIGNED; (*Value of symbol *)G SDF$B_NAMLNG : $UBYTE; (*Length of name *)G SDF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (SDF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();( 4: (SDF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $SDFVDEF ***) N(* *)N(* Symbol definition for vectored symbols *)N(*  *) CONST SDFV$K_NAME = 14; SDFV$C_NAME = 14; 'TYPE SDFV$TYPE = RECORD CASE INTEGER OF2 1: (SDFV$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G SDFV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G SDFV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G SDFV$B_PSINDX : $UBYTE; (*Owning psect number *)G SDFV$L_VALUE : UNSIGNED; (*Value of symbol *)G SDFV$L_VECTOR : UNSIGNED; (*Vectored value of symbol *)G SDFV$B_NAMLNG : $UBYTE; (*Length of name *)G SDFV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (SDFV$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (SDFV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $SDFMDEF ***) N(* *)N(* S ymbol definition for version mask symbols *)N(* *) CONST SDFM$K_NAME = 14; SDFM$C_NAME = 14; 'TYPE SDFM$TYPE = RECORD CASE INTEGER OF2 1: (SDFM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G SDFM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G SDFM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G SDFM$B_PSINDX : $UBYTE; (*Owning psect number *)G SDFM$L_VALUE : UNSIGNED; (*Value of symbol *)G SDFM$L_VERSION_MASK : UNSIGNED; (*Mask for symbol *)G SDFM$B_NAMLNG : $UBYTE; (*Length of name *)G SDFM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (SDFM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (SDFM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMDEF ** *) N(* *)N(* GSD entry - Entry point definition, normal symbols *)N(* *) CONST EPM$K_NAME = 12; EPM$C_NAME = 12; &TYPE EPM$TYPE = RECORD CASE INTEGER OF1 1: (EPM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G EPM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G EPM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G EPM$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *)Q EPM$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *)G EPM$W_MASK : $UWORD; (*Entry point mask *)G EPM$B_NAMLNG : $UBYTE; (*Length of name *)G EPM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (EPM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();( 4: (EPM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMVDEF ***) N(* *)N(* GSD entry - Entry point definition, vectored symbols *)N(* *) CONST EPMV$K_NAME = 16; EPMV$C_NAME = 16; 'TYPE EPMV$TYPE = RECORD CASE INTEGER OF2 1: (EPMV$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G EPMV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G EPMV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G EPMV$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *)Q EPMV$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *)G EPMV$L_VECTOR : UNSIGNED; (*Vectored entry point address *)G EPMV$W_MASK : $UWORD; (*Entry point mask *)G EPMV$B_NAMLNG : $UBYTE; (*Length of name  *)G EPMV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (EPMV$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (EPMV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMMDEF ***) N(* *)N(* GSD entry - Entry point definition, version mask symbols *)N(*  *) CONST EPMM$K_NAME = 16; EPMM$C_NAME = 16; 'TYPE EPMM$TYPE = RECORD CASE INTEGER OF2 1: (EPMM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G EPMM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G EPMM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G EPMM$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *)Q EPMM$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *)G EPMM$L_VERSION_MASK : UNSIGNED; (*Mask value for symbol *)G EPMM$W_MASK : $UWORD; (*Entry point mask *)G EPMM$B_NAMLNG : $UBYTE; (*Length of name *)G EPMM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (EPMM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (EPMM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PRODEF ***) N(*  *)N(* GSD entry - Procedure definition, normal symbols *)N(* *) CONST PRO$K_NAME = 12; PRO$C_NAME = 12; &TYPE PRO$TYPE = RECORD CASE INTEGER OF1 1: (PRO$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G PRO$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G PRO$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G PRO$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *)Q PRO$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *)G PRO$W_MASK : $UWORD; (*Entry point mask *)G PRO$B_NAMLNG : $UBYTE; (*Length of name *)G PRO$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (PRO$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();( 4: (PRO$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PROVDEF ***) N(* *)N(* GSD entry - Procedure definition, vectored symbols *)N(* *) CONST PROV$K_NAME = 16; PROV$C_NAME = 16; 'TYPE PROV$TYPE = RECORD CASE INTEGER OF2 1: (PROV$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G PROV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP  *)G PROV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G PROV$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *)Q PROV$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *)G PROV$L_VECTOR : UNSIGNED; (*Vectored entry point address *)G PROV$W_MASK : $UWORD; (*Entry point mask *)G PROV$B_NAMLNG : $UBYTE; (*Length of name *)G PROV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (PROV$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (PROV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PROMDEF ***) N(* *)N(* GSD entry - Procedure definition, version mask symbols *)N(* *) CONST PROM$K_NAME = 16; PROM$ C_NAME = 16; 'TYPE PROM$TYPE = RECORD CASE INTEGER OF2 1: (PROM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G PROM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G PROM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G PROM$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *)Q PROM$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *)G PROM$L_VERSION_MASK : UNSIGNED; (*Mask value for symbol *)G PROM$W_MASK : $UWORD; (*Entry point mask *)G PROM$B_NAMLNG : $UBYTE; (*Length of name *)G PROM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (PROM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (PROM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $FMLDEF ***) N(* *)N(* Appended to a procedure definition are the formal arguments: *)N(* FML$ - The fixed part of the formal arguments description *)N(* *) CONST FML$K_SIZE = 2; FML$C_SIZE = 2; TYPE FML$TYPE = RECORDG FML$B_MINARGS : $UBYTE; (*Minimum number of arguments *)Y FML$B_MAXARGS : $UBYTE; (*Maximum which include function if procedure is one *) END; (*** MODULE $ARGDEF ***) N(*  *)N(* ARG$ - The argument descriptors *)N(* *) LCONST ARG$C_UNKNOWN = 0; (* Unspecified or unknown *)G ARG$C_VALUE = 1; (* Passed by value *)G ARG$C_REF = 2; (* Passed by reference *)G ARG$C_DESC = 3; (* Passed by descriptor *) ARG$K_SIZE = 2; ARG$C_SIZE = 2; &TYPE ARG$TYPE = RECORD CASE INTEGER OF1 1: (ARG$R_VALCTL_OVERLAY : [BYTE(1)] RECORD END;G ARG$B_BYTECNT : $UBYTE; (*Remaining byte count *) );G 2: (ARG$B_VALCTL : [POS(0)] $UBYTE; (*Validation control byte *) ); 3: ();G 4: (ARG$V_PASSMECH : [POS(0)] $BIT2; (*Passing mechanism *)G (* Passing mechanisms *) ) END; (*** MODULE $SDFWDEF ***) N(* *)N(* Symbol definition with word of psect value *)N(* *) CONST SDFW$K_NAME = 11; SDFW$C_NAME = 11; 'TYPE SDFW$TYPE = RECORD CASE INTEGER OF2 1: (SDFW$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G SDFW$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G S DFW$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G SDFW$W_PSINDX : $UWORD; (*Owning psect number *)G SDFW$L_VALUE : UNSIGNED; (*Value of symbol *)G SDFW$B_NAMLNG : $UBYTE; (*Length of name *)G SDFW$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (SDFW$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (SDFW$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMWDEF ***) N(* *)N(* GSD entry - Entry point definition with word of psect value *)N(* *) CONST EPMW$K_NAME = 13; EPMW$C_NAME = 13; 'TYPE EPMW$TYPE = RECORD CASE INTEGER OF2 1: (EPMW$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G EPMW$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP  *)G EPMW$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G EPMW$W_PSINDX : $UWORD; (*Maps over SDFW$W_PSINDX *)R EPMW$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDFW$L_VALUE *)G EPMW$W_MASK : $UWORD; (*Entry point mask *)G EPMW$B_NAMLNG : $UBYTE; (*Length of name *)G EPMW$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (EPMW$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (EPMW$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PROWDEF ***) N(* *)N(* GSD entry - Procedure definition with word of psect value *)N(* *) CONST PROW$K_NAME = 13; PROW$C_NAME = 13; 'TYPE PROW$TYPE = RECORD CASE INTEGER OF2 1: (PROW$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G PROW$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G PROW$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G PROW$W_PSINDX : $UWORD; (*Maps over SDFW$W_PSINDX *)R PROW$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDFW$L_VALUE *)G PROW$W_MASK : $UWORD; (*Entry point mask *)G PROW$B_NAMLNG : $UBYTE; (*Length of name *)G PROW$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (PROW$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (PROW$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $IDCDEF ***) N(* *)N(* IDC - Random entity ident consistency check *)N(* *) CONST IDC$C_LEQ = 0; IDC$C_EQUAL = 1; &TYPE IDC$TYPE = RECORD CASE INTEGER OFG 1: (IDC$B_GSDTYP : $UBYTE; (*Type field *)0 IDC$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;1 IDC$R_NAMLNG_OVERLAY : [BYTE(1)] RECORD END; );G 2: (IDC$W_FLAGS : [POS(8)] $UWORD; (*Flags *)G IDC$B_NAMLNG : [POS(24)] $UBYTE; (*Length of entity name *) ); 3: ();V 4: (IDC$V_BINIDENT : [POS(8)] $BOOL; (*Ident is binary longword rather than ASCIC *)X IDC$V_IDMATCH : [POS(9)] $BIT2; (*Field for ident match control if binary ident *)P IDC$V_ERRSEV : [POS(11)] $BIT3; (*Error severity (default is warning-0) *)G (*Match control values *)G IDC$T_NAME : [POS(32)] RECORD END ; (* *)G (* Followed by entity name *)G (* Followed by *)G  (* byte of ident length *)[ (* ident string (length = string length) *)G (* or *)U (* ident binary value (length = 4) *)S (* Followed by byte of length of name of object *)G (* Followed by the object name *) ) END; (*** MODUL E $ENVDEF ***) N(* *)N(* ENV - Define/reference an environment *)N(* *) CONST ENV$M_DEF = 1; ENV$M_NESTED = 2; &TYPE ENV$TYPE = RECORD CASE INTEGER OFG 1: (ENV$B_GSDTYP : $UBYTE; (*Type field *)0 ENV$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;G ENV$W_ENVINDX : $UWORD;  (*Index of parent environment *)G ENV$B_NAMLNG : $UBYTE; (*Length of environment name *)G ENV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Environment name *) );G 2: (ENV$W_FLAGS : [POS(8)] $UWORD; (*Environment flags *) ); 3: ();G 4: (ENV$V_DEF : [POS(8)] $BOOL; (*Definition of environment *)G ENV$V_NESTED : [POS(9)] $BOOL; (*Nested environment if set *) ) END; (*** MODULE $LSYDEF ***) N(*  *)N(* LSY - Module-Local symbol definition *)N(* *)P(* Common to definitions, references, entry points, and procedure definitions *)N(* *) CONST LSY$M_WEAK = 1; LSY$M_DEF = 2; LSY$M_UNI = 4; LSY$M_REL = 8; &TYPE LSY$TYPE = RECORD CASE INTE GER OF1 1: (LSY$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G LSY$B_DATYP : $UBYTE; (*Symbol type *)0 LSY$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;G LSY$W_ENVINDX : $UWORD; (*Environment index *) );G 2: (LSY$B_GSDTYP : [POS(0)] $UBYTE; (*Type field *)G LSY$W_FLAGS : [POS(16)] $UWORD; (*Symbol flags *) ); 3: ();( 4: (LSY$T_START : [POS(0)] RECORD END ;G LSY$V_WEAK : [POS(16)] $BOOL; (*Weak symbol (not used) *)G LSY$V_DEF : [POS(17)] $BOOL; (*Defined symbol *)G LSY$V_UNI : [POS(18)] $BOOL; (*Universal (not used) *)G LSY$V_REL : [POS(19)] $BOOL; (*Relocatable *) ) END; (*** MODULE $LSRFDEF ***) N(* *)N(* Module-local Symbol reference (LSY$M_DEF in LSY$W_FLAGS is 0) *)N(*  *) CONST LSRF$K_NAME = 7; LSRF$C_NAME = 7; 'TYPE LSRF$TYPE = RECORD CASE INTEGER OF2 1: (LSRF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G LSRF$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *)G LSRF$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *)G LSRF$W_ENVINDX : $UWORD; (*Maps over LSY$W_ENVINDX *)G LSRF$B_NAMLNG : $UBYTE; (*Length of symbol name *)G LSRF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (LSRF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: ();) 4: (LSRF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $LSDFDEF ***) N(* *)N(* Module-local Symbol definition *)N(* *) CONST LSDF$K_NAME = 13; LSDF$C_NAME = 13; 'TYPE LSDF$TYPE = RECORD CASE INTEGER OF2 1: (LSDF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G LSDF$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *)G LSDF$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *)J LSDF$W_ENVINDX : $UWORD; (*Environment index symbol defined in *)G LSDF$W_PSINDX : $UWORD; (*Owning psect number *)G LSDF$L_VALUE : UNSIGNED; (*Value of symbol  *)G LSDF$B_NAMLNG : $UBYTE; (*Length of name *)G LSDF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (LSDF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: ();) 4: (LSDF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $LEPMDEF ***) N(* *)N(* GSD entry - Module local entry point definition  *)N(* *) CONST LEPM$K_NAME = 15; LEPM$C_NAME = 15; 'TYPE LEPM$TYPE = RECORD CASE INTEGER OF2 1: (LEPM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G LEPM$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *)G LEPM$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *)J LEPM$W_ENVINDX : $UWORD; (*Environment index symbol defined in *)G LEPM$W_PSINDX : $UWORD; (*Maps over LSDF$W_PSINDX *)G LEPM$L_ADDRS : UNSIGNED; (*Entry point address, maps *)G (* over LSDF$L_VALUE *)G LEPM$W_MASK : $UWORD; (*Entry point mask *)G LEPM$B_NAMLNG : $UBYTE; (*Length of name *)G LEPM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (LEPM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: ();) 4: (LEPM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $LPRODEF ***) N(* *)N(* GSD entry - Module Local Procedure definition *)N(* *) CONST LPRO$K_NAME = 15; LPRO$C_NAME = 15; 'TYPE LPRO$TYPE = RECORD CASE INTEGER OF2 1: (LPRO$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END;G LPRO$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *)G LPRO$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *)J LPRO$W_ENVINDX : $UWORD; (*Environment index symbol defined in *)G LPRO$W_PSINDX : $UWORD; (*Maps over LSDF$W_PSINDX *)G LPRO$L_ADDRS : UNSIGNED; (*Entry point address, maps *)G (* over LSDF$L_VALUE *)G LPRO$W_MASK : $UWORD; (*Entry point mask *)G LPRO$B_NAMLNG : $UBYTE; (*Length of name *)G LPRO$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (LPRO$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: ();) 4: (LPRO$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $TIRDEF ***) N(* *)N(* Text, information and relocation record (TIR) *)N(*  *) LCONST TIR$C_STA_GBL = 0; (*Stack global symbol value *)G TIR$C_STA_SB = 1; (*Stack signed byte *)G TIR$C_STA_SW = 2; (*Stack signed word *)G TIR$C_STA_LW = 3; (*Stack longword *)H TIR$C_STA_PB = 4; (*Stack psect base plus byte offset *)H TIR$C_STA_PW = 5; (*Stack psect base plus word offset *)L TIR$C_STA_PL = 6; (*Stack psect base plus longword offset *)G TIR$C_STA_UB = 7; (*Stack unsigned byte *)G TIR$C_STA_UW = 8; (*Stack unsigned word *)G TIR$C_STA_BFI = 9; (*Stack byte from image *)G TIR$C_STA_WFI = 10; (*Stack word from image *)G TIR$C_STA_LFI = 11; (*Stack longword from image *)G TIR$C_STA_EPM = 12; (*Stack entry point mask *)X TIR$C_STA_CKARG = 13; (*Stack result of argument checking (true or false) *)] TIR$C_STA_WPB = 14; (*Stack psect base plus byte offset -- word psect number *)] TIR$C_STA_WPW = 15; (*Stack psect base plus word offset -- word psect number *)d TIR$C_STA_WPL = 16; (*Stack psect base plus longword offset -- word of psect number *)G TIR$C_STA_LSY = 17; (*Stack local symbol value *)G TIR$C_STA_LIT = 18; (*Stack literal *)J TIR$C_STA_LEPM = 19; (*Stack local symbol entry point mask *)H TIR$C_MAXSTACOD = 19; (*Last assigned code of stack group *)H TIR$C_MINSTOCOD = 20; (*First assigned store command code *)G TIR$C_STO_SB = 20; (*Store signed byte *)G TIR$C_STO_SW = 21; (*Store signed word *)G TIR$C_STO_L = 22; (*Store longword *)G TIR$C_STO_BD = 23; (*Store byte displaced *)G TIR$C_STO_WD = 24; (*Store word displaced *)G TIR$C_STO_LD = 25; (*Store longword displaced *)G TIR$C_STO_LI = 26; (*Store short literal *)G TIR$C_STO_PIDR = 27; (*Store pos. indep. data reference *)G TIR$C_STO_PICR = 28; (*Store pos. indep. code reference *)G TIR$C_STO_RSB = 29; (*Store repeated signed byte *)G TIR$C_STO_RSW = 30; (*Store repeated signed word *)G TIR$C_STO_RL = 31; (*Store repeated longword *)G TIR$C_STO_VPS = 32; (*Store arbitrary field *)G TIR$C_STO_USB = 33; (*Store unsigned byte *)G TIR$C_STO_USW = 34; (*Store unsigned word *)G TIR$C_STO_RUB = 35; (*Store repeated unsigned byte *)G TIR$C_STO_RUW = 36; (*Store repeated unsigned word *)G TIR$C_STO_B = 37; (*Store byte *)G TIR$C_STO_W = 38; (*Store word *)G TIR$C_STO_RB = 39; (*Store repeated byte *)G TIR$C_STO_RW = 40; (*Store repeated word *)N TIR$C_STO_RIVB = 41; (*Store repeated immediate variable bytes *)K TIR$C_STO_PIRR = 42; (*Store pos. indep. relative reference *)G TIR$C_MAXSTOCOD = 42;  (*Last assigned store command code *)K TIR$C_MINOPRCOD = 50; (*First assigned operator command code *)G TIR$C_OPR_NOP = 50; (*No-op *)G TIR$C_OPR_ADD = 51; (*Add *)G TIR$C_OPR_SUB = 52; (*Subtract *)G TIR$C_OPR_MUL = 53; (*Multiply *)G TIR$C_OPR_DIV = 54; (*Divide *)G TIR$C_OPR_AND = 55; (*Logical AND *)G TIR$C_OPR_IOR = 56; (*Logical inclusive OR *)G TIR$C_OPR_EOR = 57; (*Logical exclusive OR *)G TIR$C_OPR_NEG = 58; (*Negate *)G TIR$C_OPR_COM = 59; (*Complement *)G TIR$C_OPR_INSV = 60; (*Insert bit field *)G TIR$C_OPR_ASH = 61; (*Arithmetic shift *)G TIR$C_OPR_USH = 62; (*Unsigned shift *)G TIR$C_OPR_ROT = 63; (*Rotate *)T TIR$C_OPR_SEL = 64; (*Select one of three longwords on top of stack *)H TIR$C_OPR_REDEF = 65; (*Redefine this symbol after pass 2 *)G TIR$C_OPR_DFLIT = 66; (*Define a literal *)J TIR$C_MAXOPRCOD = 66; (*Last assigned operator command code *)J TIR$C_MINCTLCOD = 80; (*First assig ned control command code *)G TIR$C_CTL_SETRB = 80; (*Set relocation base *)G TIR$C_CTL_AUGRB = 81; (*Augment relocation base *)G TIR$C_CTL_DFLOC = 82; (*Define debug location *)G TIR$C_CTL_STLOC = 83; (*Set debug location *)G TIR$C_CTL_STKDL = 84; (*Stack debug location *)I TIR$C_MAXCTLCOD = 84; (*Last assigned control command code *) TYPE TIR$TYPE = RECORDG  TIR$B_RECTYP : $UBYTE; (*Record type (OBJ$C_TIR) *)N(* Define relocation commands *) END;N(* *)N(* EVAX dependent structures start here *)N(* *) (*** MODULE $EOBJRECDEF ***) N(*  *)N(* These are the record types defined for VAX and EVAX object records. *)N(* Some types are only recognized in one format of object file, but *)N(* the types must be a single set of distinct codes. *)N(* *) LCONST EOBJ$C_EMH = 8; (*EVAX module header record *)G EOBJ$C_EEOM = 9; (*EVAX end of module record *)K EOBJ$C_EGSD = 10;  (*EVAX global symbol definition record *)G EOBJ$C_ETIR = 11; (*EVAX text information record *)G EOBJ$C_EDBG = 12; (*EVAX Debugger information record *)H EOBJ$C_ETBT = 13; (*EVAX Traceback information record *)G EOBJ$C_MAXRECTYP = 13; (*Last assigned record type *) EOBJ$K_SUBTYP = 4; EOBJ$C_SUBTYP = 4;G EOBJ$C_MAXRECSIZ = 8192; (*Maximum legal record size *)G EOBJ$C_STRLVL = 2;  (*Structure level *)G EOBJ$C_STRLVL64 = 3; (*Structure level *)G EOBJ$C_SYMSIZ = 64; (*Maximum symbol length *)M EOBJ$C_STOREPLIM = -1; (*Maximum repeat count on store commands *)G EOBJ$C_PSCALILIM = 16; (*Maximum p-sect alignment *) *TYPE EOBJREC$TYPE = RECORD CASE INTEGER OFG 1: ( (* *)a (* These are the record types defined for VAX object records. *)G (* *)G EOBJ$W_RECTYP : $UWORD; (*First byte always record type *)G EOBJ$W_SIZE : $UWORD; (*Second is always record size *)G (*Permissable record types *)G EOBJ$W_SUBTYP : $UWORD; (*Record sub-type byte *)G EOBJ$B_MHD_STRLV : $UBYTE; (*Structure level *)G  EOBJ$B_MHD_HOLD : $UBYTE; (*alignment temp *)5 EOBJ$R_MHD_RECSZ_OVERLAY : [BYTE(2)] RECORD END; );G 2: (EOBJ$W_MHD_RECSZ : [POS(64)] $UWORD; (*Maximum record size *) ); 3: ();G 4: (EOBJ$T_MHD_NAME : [POS(80)] RECORD END ; (*Module name field *)G (*Misc. constants *) ) END; (*** MODULE $EMHDEF ***) N(* *)N(* EVAX Module header record (EMH) *)N(* *) LCONST EMH$C_MHD = 0; (*Main header record *)G EMH$C_LNM = 1; (*Language name and version *)G EMH$C_SRC = 2; (*Source file specification *)G EMH$C_TTL = 3; (*Title text of module *)G EMH$C_CPR = 4; (*Cop yright notice *)G EMH$C_MTC = 5; (*Maintenence status *)G EMH$C_GTX = 6; (*General text *)G EMH$C_MAXHDRTYP = 6; (*Maximum allowable type *) TYPE EMH$TYPE = RECORDG EMH$W_RECTYP : $UWORD; (*Record type (OBJ$C_MHD) *)G EMH$W_SIZE : $UWORD; (*length of this EMH *)G EMH$W_HDRTYP : $UWORD; (*Type field for MHD *)G (*Types of header records *)G EMH$B_STRLVL : $UBYTE; (*Structure level *)G EMH$B_TEMP : $UBYTE; (*temp pad byte *)G EMH$L_ARCH1 : INTEGER; (*target architecture LW1 *)G EMH$L_ARCH2 : INTEGER; (*target architecture LW2 *)G EMH$L_RECSIZ : UNSIGNED; (*Maximum record size *)G EMH$B_NAMLNG : $UBYTE; (*Module name length  *)G EMH$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Module name *) END; (*** MODULE $EEOMDEF ***) N(* *)N(* EVAX End of module record (EEOM) *)N(* *) LCONST EEOM$C_SUCCESS = 0; (*Successful (no errors) *)G EEOM$C_WARNING = 1; (*Warnings issued  *)G EEOM$C_ERROR = 2; (*Errors detected *)G EEOM$C_ABORT = 3; (*Abort the link *)G EEOM$K_EOMMIN = 10; (*Min length of EOM record *)G EEOM$C_EOMMIN = 10; (*Min length of EOM record *)N EEOM$K_EOMMX1 = 10; (*Length of EOM record w/o transfer flags *)N EEOM$C_EOMMX1 = 10; (*Length of EOM record w/o transfer flags *) EEOM$M_WKTFR = 1;G EEOM$K_ EOMMAX = 24; (*Maximum length of EOM record *)G EEOM$C_EOMMAX = 24; (*Maximum length of EOM record *) 'TYPE EEOM$TYPE = RECORD CASE INTEGER OFG 1: (EEOM$W_RECTYP : $UWORD; (*Record type (OBJ$C_EOM) *)G EEOM$W_SIZE : $UWORD; (*size of this EEMOD *)X EEOM$L_TOTAL_LPS : UNSIGNED; (*Number of conditional linkage pairs - max-index/2 *)G EEOM$W_COMCOD : $UWORD; (*Compiler completion code *)G  (*Values *)2 EEOM$R_TFRFLG_OVERLAY : [BYTE(1)] RECORD END;G EEOM$B_TEMP : $UBYTE; (*pad to align PSINDX *)G EEOM$L_PSINDX : UNSIGNED; (*P-sect of transfer address *)2 EEOM$R_TFRADR_OVERLAY : [BYTE(8)] RECORD END; );G 2: (EEOM$B_TFRFLG : [POS(80)] $UBYTE; (*Transfer address flags *)G EEOM$Q_TFRADR : [POS(128)] $UQUAD; (*Transfer address *) );G 3: (EEOM$L_TFRADR :  [POS(128)] UNSIGNED; (*Transfer address *) );G 4: (EEOM$V_WKTFR : [POS(80)] $BOOL; (*Transfer address is weak *) ) END; (*** MODULE $EGSDEF ***) N(* *)N(* EVAX Global symbol definition record (EGSD) *)N(* *) LCONST EGSD$K_ENTRIES = 2; (*Offset to first entry in record *)G EGSD$C_ENTRIES = 2; (*Offset to first entry in record *)G EGSD$C_PSC = 0; (*Psect definition *)G EGSD$C_SYM = 1; (*Symbol specification *)G EGSD$C_IDC = 2; (*Random entity check *)G EGSD$C_SPSC = 5; (*Shareable image psect definition *)M EGSD$C_SYMV = 6; (*Vectored (dual-valued) versions of SYM, *)G EGSD$C_SYMM = 7; (*Masked versions o f SYM, *)G EGSD$C_SYMG = 8; (*EGST - gst version of SYM *)G EGSD$C_PSC64 = 9; (*Psect with 64-bit length *)U EGSD$C_SPSC64 = 10; (*Shareable image psect definition w/64b len/base *)G EGSD$C_MAXRECTYP = 10; (*Maximum entry type defined *) TYPE EGS$TYPE = RECORDG EGSD$W_RECTYP : $UWORD; (*Record type (OBJ$C_GSD) *)G EGSD$W_RECSIZ : $UWORD; (*Size of theis EVAX EGSD *) K EGSD$L_ALIGNLW : UNSIGNED; (*Insure that subrecords are QW aligned *)J EGSD$W_GSDTYP : $UWORD; (*Type of entry (first byte of entry) *)G EGSD$W_GSDSIZ : $UWORD; (*Size of this entry *) END; (*** MODULE $EGPSDEF ***) N(* *)N(* EVAX GSD entry - P-section definition *)N(*  *) CONST EGPS$M_PIC = 1; EGPS$M_LIB = 2; EGPS$M_OVR = 4; EGPS$M_REL = 8; EGPS$M_GBL = 16; EGPS$M_SHR = 32; EGPS$M_EXE = 64; EGPS$M_RD = 128; EGPS$M_WRT = 256; EGPS$M_VEC = 512; EGPS$M_NOMOD = 1024; EGPS$M_COM = 2048; EGPS$M_ALLOC_64BIT = 4096; EGPS$K_NAME = 12; EGPS$C_NAME = 12; 'TYPE EGPS$TYPE = RECORD CASE INTEGER OF2 1: (EGPS$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G EGPS$W_SIZE : $UWORD; (*size of this EGPS *)G EGP S$B_ALIGN : $UBYTE; (*P-sect alignment *)G EGPS$B_TEMP : $UBYTE; (*pad for aligning *)1 EGPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;G EGPS$L_ALLOC : UNSIGNED; (*Length of this contribution *)G EGPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *)G EGPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) );G 2: (EGPS$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *)G EGP S$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *) ); 3: ();) 4: (EGPS$T_START : [POS(0)] RECORD END ;G EGPS$V_PIC : [POS(48)] $BOOL; (*Position independent *)G EGPS$V_LIB : [POS(49)] $BOOL; (*From a shareable image *)G EGPS$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *)G EGPS$V_REL : [POS(51)] $BOOL; (*Relocatable *)G EGPS$V_GBL : [POS(52)] $BOOL; (*Global scope *)G EGPS$V_SHR : [POS(53)] $BOOL; (*Shareable *)G EGPS$V_EXE : [POS(54)] $BOOL; (*Executable *)G EGPS$V_RD : [POS(55)] $BOOL; (*Readable *)G EGPS$V_WRT : [POS(56)] $BOOL; (*Writeable *)G EGPS$V_VEC : [POS(57)] $BOOL; (*Vector psect *)G EGPS$V_NOMOD : [POS(58)] $BOOL; (*Not stored into *)G EGPS$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym  *)G EGPS$V_ALLOC_64BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; N(* *)N(* EVAX GSD entry - 64-Bit P-section definition *)N(* *) CONST EGPS64$M_PIC = 1; EGPS64$M_LIB = 2; EGPS64$M_OVR = 4; EGPS64$M_REL = 8; EGPS64$M_GBL = 16; EGPS64$M_SHR = 32; EGPS64$M_EXE = 64; EGPS64$M_RD = 128; EGPS64$M_WRT = 256; EGPS64$M_VEC = 512; EGPS64$M_NOMOD = 1024; EGPS64$M_COM = 2048; EGPS64$M_ALLOC_64BIT = 4096; EGPS64$K_NAME = 16; EGPS64$C_NAME = 16; )TYPE EGPS64$TYPE = RECORD CASE INTEGER OF4 1: (EGPS64$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G EGPS64$W_SIZE : $UWORD; (*size of this EGPS *)G EGPS64$B_ALIGN : $UBYTE; (*P-sect alignment *)G EGPS64$B_TEMP : $UBYTE; (*pad for aligning *)3  EGPS64$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;3 EGPS64$R_ALLOC_OVERLAY : [BYTE(8)] RECORD END;G EGPS64$B_NAMLNG : $UBYTE; (*Length of p-sect name *)G EGPS64$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) );G 2: (EGPS64$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *)G EGPS64$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *)I EGPS64$Q_ALLOC : [POS(64)] $UQUAD; (*Length of this contribution *) );G 3: (E GPS64$L_ALLOC : [POS(64)] UNSIGNED; (* Low Longword *) );+ 4: (EGPS64$T_START : [POS(0)] RECORD END ;G EGPS64$V_PIC : [POS(48)] $BOOL; (*Position independent *)G EGPS64$V_LIB : [POS(49)] $BOOL; (*From a shareable image *)G EGPS64$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *)G EGPS64$V_REL : [POS(51)] $BOOL; (*Relocatable *)G EGPS64$V_GBL : [POS(52)] $BOOL; (*Global scope *)G EGPS64$V_SHR : [POS(53)] $BOOL; (*Shareable *)G EGPS64$V_EXE : [POS(54)] $BOOL; (*Executable *)G EGPS64$V_RD : [POS(55)] $BOOL; (*Readable *)G EGPS64$V_WRT : [POS(56)] $BOOL; (*Writeable *)G EGPS64$V_VEC : [POS(57)] $BOOL; (*Vector psect *)G EGPS64$V_NOMOD : [POS(58)] $BOOL; (*Not stored into *)G EGPS64$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym *)G EGPS64$V_ALLOC_64BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; (*** MODULE $ESGPSDEF ***) N(* *)N(* EVAX GSD entry - P-section definition in shareable image *)N(* *) CONST ESGPS$M_PIC = 1; ESGPS$M_LIB = 2; ESGPS$M_OVR = 4; ESGPS$M_REL = 8; ESGPS$M_GBL = 16; ESGPS$M_SHR = 32; ESGPS$M_EXE = 64; ESGPS$M_RD = 128; ESGPS$M_WRT = 256; ESGPS$M_VEC = 512; ESGPS$M_NOMOD = 1024; ESGPS$M_COM = 2048; ESGPS$M_ALLOC_64BIT = 4096; ESGPS$K_NAME = 25; ESGPS$C_NAME = 25; (TYPE ESGPS$TYPE = RECORD CASE INTEGER OF3 1: (ESGPS$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G ESGPS$W_SIZE : $UWORD; (*size of this ESGPS *)G ESGPS$B_ALIGN : $UBYTE; (*P-sect alignment *)G ESGPS$B_TEMP : $UBYTE; (*pad for allignment  *)2 ESGPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;H ESGPS$L_ALLOC : UNSIGNED; (*Length of this psect in shr image *)U ESGPS$L_BASE : UNSIGNED; (*Offset into img of psect, copy of symbol vector *)2 ESGPS$R_VALUE_OVERLAY : [BYTE(8)] RECORD END;G ESGPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *)G ESGPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) );G 2: (ESGPS$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *)G  ESGPS$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *)' ESGPS$Q_VALUE : [POS(128)] $UQUAD; );) 3: (ESGPS$L_VALUE : [POS(128)] UNSIGNED; );* 4: (ESGPS$T_START : [POS(0)] RECORD END ;G ESGPS$V_PIC : [POS(48)] $BOOL; (*Position independent *)G ESGPS$V_LIB : [POS(49)] $BOOL; (*From a shareable image *)G ESGPS$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *)G ESGPS$V_REL : [POS(51)] $BOOL; (*Relocatable  *)G ESGPS$V_GBL : [POS(52)] $BOOL; (*Global scope *)G ESGPS$V_SHR : [POS(53)] $BOOL; (*Shareable *)G ESGPS$V_EXE : [POS(54)] $BOOL; (*Executable *)G ESGPS$V_RD : [POS(55)] $BOOL; (*Readable *)G ESGPS$V_WRT : [POS(56)] $BOOL; (*Writeable *)G ESGPS$V_VEC : [POS(57)] $BOOL; (*Vector psect *)G ESGPS$V_NOMOD : [POS(58)] $BOOL; (*Not stor ed into *)G ESGPS$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym *)G ESGPS$V_ALLOC_64BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; N(* *)N(* EVAX GSD entry - 64-Bit P-section definition in shareable image *)N(* *) CONST ESGPS64$M_PIC = 1; ESGPS64$M_LIB = 2; ESGPS64$M_OVR = 4; ESGPS64$M_REL = 8; ESGPS64$M_GBL = 16; ESGPS64$M_SHR = 32; ESGPS64$M_EXE = 64; ESGPS64$M_RD = 128; ESGPS64$M_WRT = 256; ESGPS64$M_VEC = 512; ESGPS64$M_NOMOD = 1024; ESGPS64$M_COM = 2048; ESGPS64$M_ALLOC_64BIT = 4096; ESGPS64$K_NAME = 33; ESGPS64$C_NAME = 33; *TYPE ESGPS64$TYPE = RECORD CASE INTEGER OF5 1: (ESGPS64$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G ESGPS64$W_SIZE : $UWORD; (*size of this ESGPS *)G ESGPS64$B_ALIGN : $UBYTE; (*P-s ect alignment *)G ESGPS64$B_TEMP : $UBYTE; (*pad for allignment *)4 ESGPS64$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;4 ESGPS64$R_ALLOC_OVERLAY : [BYTE(8)] RECORD END;3 ESGPS64$R_BASE_OVERLAY : [BYTE(8)] RECORD END;4 ESGPS64$R_VALUE_OVERLAY : [BYTE(8)] RECORD END;G ESGPS64$B_NAMLNG : $UBYTE; (*Length of p-sect name *)G ESGPS64$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) );G 2: (ESGPS64$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *)G ESGPS64$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *)P ESGPS64$Q_ALLOC : [POS(64)] $UQUAD; (*Length of this psect in shr image *)] ESGPS64$Q_BASE : [POS(128)] $UQUAD; (*Offset into img of psect, copy of symbol vector *)) ESGPS64$Q_VALUE : [POS(192)] $UQUAD; );G 3: (ESGPS64$L_ALLOC : [POS(64)] UNSIGNED; (* Low Longword *)G ESGPS64$L_BASE : [POS(128)] UNSIGNED; (* Low Longword *)+  ESGPS64$L_VALUE : [POS(192)] UNSIGNED; );, 4: (ESGPS64$T_START : [POS(0)] RECORD END ;G ESGPS64$V_PIC : [POS(48)] $BOOL; (*Position independent *)G ESGPS64$V_LIB : [POS(49)] $BOOL; (*From a shareable image *)G ESGPS64$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *)G ESGPS64$V_REL : [POS(51)] $BOOL; (*Relocatable *)G ESGPS64$V_GBL : [POS(52)] $BOOL; (*Global scope *)G ESGPS64$V_SHR : [POS(53)] $BOOL; (*Shareable *)G ESGPS64$V_EXE : [POS(54)] $BOOL; (*Executable *)G ESGPS64$V_RD : [POS(55)] $BOOL; (*Readable *)G ESGPS64$V_WRT : [POS(56)] $BOOL; (*Writeable *)G ESGPS64$V_VEC : [POS(57)] $BOOL; (*Vector psect *)G ESGPS64$V_NOMOD : [POS(58)] $BOOL; (*Not stored into *)G ESGPS64$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym *)G ESGPS64$V_ALLOC_6 4BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; (*** MODULE $EGSYDEF ***) N(* *)N(* EVAX GSD entry - Symbol definition *)N(* *)N(* common to definitions, references, and entry *)N(* point definitions. *)N(* *) CONST EGSY$M_WEAK = 1; EGSY$M_DEF = 2; EGSY$M_UNI = 4; EGSY$M_REL = 8; EGSY$M_COMM = 16; EGSY$M_VECEP = 32; EGSY$M_NORM = 64; EGSY$M_QUAD_VAL = 128; 'TYPE EGSY$TYPE = RECORD CASE INTEGER OF2 1: (EGSY$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G EGSY$W_SIZE : $UWORD; (*size of this EGSY *)G EGSY$B_DATYP : $UBYTE; (*Symbol data type *)G EGSY$B_ TEMP : $UBYTE; (*pad for alignment *)1 EGSY$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; );G 2: (EGSY$W_GSDTYP : [POS(0)] $UWORD; (*Type field *)G EGSY$W_FLAGS : [POS(48)] $UWORD; (*Symbol flags *) ); 3: ();) 4: (EGSY$T_START : [POS(0)] RECORD END ;G EGSY$V_WEAK : [POS(48)] $BOOL; (*Weak symbol *)G EGSY$V_DEF : [POS(49)] $BOOL; (*Definition *)G EGSY$V_UNI : [POS (50)] $BOOL; (*Universal *)G EGSY$V_REL : [POS(51)] $BOOL; (*Relocatable *)G EGSY$V_COMM : [POS(52)] $BOOL; (*C common globaldef *)G EGSY$V_VECEP : [POS(53)] $BOOL; (*Vectored Entry Point *)G EGSY$V_NORM : [POS(54)] $BOOL; (*Normal Procedure(FD) *)G EGSY$V_QUAD_VAL : [POS(55)] $BOOL; (*Value is quadword *) ) END; (*** MODULE $EGSTDEF ***) N(*  *)T(* EVAX Universal Symbol Definition - used by the linker instead of ESDF$ records *)R(* when building the global symbol table. The def and univ. bits should always *)N(* be set for these records. *)N(* *) CONST EGST$K_NAME = 37; EGST$C_NAME = 37; 'TYPE EGST$TYPE = RECORD CASE INTEGER OF2 1: (EGST$R_GSDTYP_OVERLAY : [BY TE(2)] RECORD END;G EGST$W_SIZE : $UWORD; (*size of this EGST *)G EGST$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G EGST$B_TEMP : $UBYTE; (*pad for alignment *)G EGST$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)/ EGST$R_VAL_OVERLAY : [BYTE(8)] RECORD END;/ EGST$R_LP1_OVERLAY : [BYTE(8)] RECORD END;/ EGST$R_LP2_OVERLAY : [BYTE(8)] RECORD END;G EGST$L_PSINDX : UNSIGNED; (*Ownin g psect number *)G EGST$B_NAMLNG : $UBYTE; (*Length of name *)G EGST$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (EGST$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *)% EGST$Q_VALUE : [POS(64)] $UQUAD;% EGST$Q_LP_1 : [POS(128)] $UQUAD;% EGST$Q_LP_2 : [POS(192)] $UQUAD; );' 3: (EGST$L_VALUE : [POS(64)] UNSIGNED;' EGST$L_LP_1 : [POS(128)] UNSIGNED;' EGST$L_LP_2 : [POS(192)] UNSIGNED; );) 4: (EGST$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESDFDEF ***) N(* *)N(* EVAX Symbol definition *)N(* *) CONST ESDF$K_NAME = 33; ESDF$C_NAME = 33; 'TYPE ESDF$TYPE = RECORD CASE INTEGER OF2 1: (ESDF$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD EN D;G ESDF$W_SIZE : $UWORD; (*size of this ESDF *)G ESDF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G ESDF$B_TEMP : $UBYTE; (*pad for alignment *)G ESDF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)/ ESDF$R_VAL_OVERLAY : [BYTE(8)] RECORD END;. ESDF$R_CA_OVERLAY : [BYTE(8)] RECORD END;S ESDF$L_CA_PSINDX : UNSIGNED; (*Psect index of the code address (which is in *)G  (*LP_1 if the norm bit is set). *)G ESDF$L_PSINDX : UNSIGNED; (*Owning psect number *)G ESDF$B_NAMLNG : $UBYTE; (*Length of name *)G ESDF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (ESDF$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *)% ESDF$Q_VALUE : [POS(64)] $UQUAD;- ESDF$Q_CODE_ADDRESS : [POS(128)] $UQUAD; );' 3: (ESDF$L_VALUE : [POS(64)] UNSIGNED;/ ESDF$L_CODE_ADDRESS : [POS(128)] UNSIGNED; );) 4: (ESDF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESDFVDEF ***) N(* *)N(* EVAX Symbol definition for vectored symbols *)N(* *) CONST ESDFV$K_NAME = 25; ESDFV$C_NAME = 25; (TYPE ESDFV$TYPE = RECORD CASE INTEGER OF3 1: (ESDFV$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G ESDFV$W_SIZE : $UWORD; (*size of this SDFV *)G ESDFV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G ESDFV$B_TEMP : $UBYTE; (*pad for alignment *)G ESDFV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)0 ESDFV$R_VAL_OVERLAY : [BYTE(8)] RECORD END;G ESDFV$L_PSINDX : UNSIGNED; (*Owning psect number *)G ESDFV$L_VECTOR : UNSIGNED; (*Vectored value of symbol *)G ESDFV$B_NAMLNG : $UBYTE; (*Length of name *)G ESDFV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (ESDFV$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *)& ESDFV$Q_VALUE : [POS(64)] $UQUAD; );( 3: (ESDFV$L_VALUE : [POS(64)] UNSIGNED; );* 4: (ESDFV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESDFMDEF ***) N(*  *)N(* EVAX Symbol definition for version mask symbols *)N(* *) CONST ESDFM$K_NAME = 25; ESDFM$C_NAME = 25; (TYPE ESDFM$TYPE = RECORD CASE INTEGER OF3 1: (ESDFM$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G ESDFM$W_SIZE : $UWORD; (*size of this ESDFM *)G ESDFM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G ESDFM$B_TEMP : $UBYTE; (*pad for alignment *)G ESDFM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)0 ESDFM$R_VAL_OVERLAY : [BYTE(8)] RECORD END;G ESDFM$L_PSINDX : UNSIGNED; (*Owning psect number *)G ESDFM$L_VERSION_MASK : UNSIGNED; (*Mask for symbol *)G ESDFM$B_NAMLNG : $UBYTE; (*Length of name *)G ESDFM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (ESDFM$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *)& ESDFM$Q_VALUE : [POS(64)] $UQUAD; );( 3: (ESDFM$L_VALUE : [POS(64)] UNSIGNED; );* 4: (ESDFM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESRFDEF ***) N(* *)N(* EVAX Symbol reference (SYM$M_DEF in EGSY$W_FLAGS is 0) *)N(* *) CONST ESRF$K _NAME = 9; ESRF$C_NAME = 9; 'TYPE ESRF$TYPE = RECORD CASE INTEGER OF2 1: (ESRF$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END;G ESRF$W_SIZE : $UWORD; (*size of this ESRF *)G ESRF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *)G ESRF$B_TEMP : $UBYTE; (*pad for alignment *)G ESRF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *)G ESRF$B_NAMLNG : $UBYTE; (*Length of symbol name *)G ESRF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) );G 2: (ESRF$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *) ); 3: ();) 4: (ESRF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EIDCDEF ***) N(* *)N(* EVAX IDC - Random entity ident consistency check *)N(* *)  CONST EIDC$C_LEQ = 0; EIDC$C_EQUAL = 1; 'TYPE EIDC$TYPE = RECORD CASE INTEGER OFG 1: (EIDC$W_GSDTYP : $UWORD; (*Type field *)G EIDC$W_SIZE : $UWORD; (*size of this EIDCDEF *)1 EIDC$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END;2 EIDC$R_NAMLNG_OVERLAY : [BYTE(1)] RECORD END; );G 2: (EIDC$L_FLAGS : [POS(32)] UNSIGNED; (*Flags *)G EIDC$B_NAMLNG : [POS(64)] $UBYTE; (*Length of entity name *) ); 3: ();X 4: (EIDC$V_BINIDENT : [POS(32)] $BOOL; (*Ident is binary longword rather than ASCIC *)Z EIDC$V_IDMATCH : [POS(33)] $BIT2; (*Field for ident match control if binary ident *)Q EIDC$V_ERRSEV : [POS(35)] $BIT3; (*Error severity (default is warning-0) *)G (*Match control values *)G EIDC$T_NAME : [POS(72)] RECORD END ; (* *)G (* Followed by entity name *)S (* Followed by byte of length of name of object *)G (* Followed by the object name *)G (* Followed by *)G (* byte of ident length *)[ (* ident string (length = string length) *)G (* or *)U  (* ident binary value (length = 4) *) ) END; (*** MODULE $ETIRDEF ***) N(* *)N(* EVAX Text, information and relocation record (ETIR) *)N(* *) LCONST ETIR$C_MINSTACOD = 0; (*Minimum store code *)G ETIR$C_STA_GBL = 0; (*Stack global symbol value *)G ETIR$C_STA_LW = 1; (*Stack longword *)G ETIR$C_STA_QW = 2; (*Stack quadword *)L ETIR$C_STA_PQ = 3; (*Stack psect base plus quadword offset *)G ETIR$C_STA_LI = 4; (*Stack literal *)G ETIR$C_STA_MOD = 5; (*Stack module *)G ETIR$C_STA_CKARG = 6; (*Check Arguments *)G ETIR$C_MAXSTACOD = 6; (*Maximum stack code  *)G ETIR$C_MINSTOCOD = 50; (*Minimum store code *)G ETIR$C_STO_B = 50; (*Store byte *)G ETIR$C_STO_W = 51; (*Store word *)G ETIR$C_STO_LW = 52; (*Store longword *)G ETIR$C_STO_QW = 53; (*Store quadword *)G ETIR$C_STO_IMMR = 54; (*Store immediate Repeated *)G ETIR$C_STO_GBL = 55; (*Store glo bal *)G ETIR$C_STO_CA = 56; (*Store code address *)G ETIR$C_STO_RB = 57; (*Store relative branch *)G ETIR$C_STO_AB = 58; (*Store absolute branch *)G ETIR$C_STO_OFF = 59; (*Store offset within psect *)G ETIR$C_STO_IMM = 61; (*Store immediate *)G ETIR$C_STO_GBL_LW = 62; (*Store global Longword *) N(*STO_LP_PSB not valid in level 2 use STC_LP_PSB *) UCONST ETIR$C_STO_BR_GBL = 64; (*Store 21 bit displayment to global address *)P ETIR$C_STO_BR_PS = 65; (*Store 21 bit displayment to psect + offset *)G ETIR$C_MAXSTOCOD = 65; (*Maximum store code *)G ETIR$C_MINOPRCOD = 100; (*Minimum operate code *)G ETIR$C_OPR_NOP = 100; (*No-op *)G ETIR$C_OPR_ADD = 101; (*Add  *)G ETIR$C_OPR_SUB = 102; (*Subtract *)G ETIR$C_OPR_MUL = 103; (*Multiply *)G ETIR$C_OPR_DIV = 104; (*Divide *)G ETIR$C_OPR_AND = 105; (*Logical AND *)G ETIR$C_OPR_IOR = 106; (*Logical inclusive OR *)G ETIR$C_OPR_EOR = 107; (*Logical exclusive OR *)G ETIR$C_OPR_NEG = 108; (*Negate  *)G ETIR$C_OPR_COM = 109; (*Complement *)G ETIR$C_OPR_INSV = 110; (*Insert bit field *)G ETIR$C_OPR_ASH = 111; (*Arithmetic shift *)G ETIR$C_OPR_USH = 112; (*Unsigned shift *)G ETIR$C_OPR_ROT = 113; (*Rotate *)T ETIR$C_OPR_SEL = 114; (*Select one of three longwords on top of stack *)H ETIR$C_OPR_REDEF = 115; (*Redefine this symbol after pass 2 *)G ETIR$C_OPR_DFLIT = 116; (*Define a literal *)G ETIR$C_MAXOPRCOD = 116; (*Maximum operate code *)G ETIR$C_MINCTLCOD = 150; (*Minimum control code *)G ETIR$C_CTL_SETRB = 150; (*Set relocation base *)G ETIR$C_CTL_AUGRB = 151; (*Augment relocation base *)G ETIR$C_CTL_DFLOC = 152; (*Define debug location *)G ETIR$C_CTL_STLOC = 153; (*Set debug location *)G ETIR$C_CTL_STKDL = 154; (*Stack debug location *)G ETIR$C_MAXCTLCOD = 154; (*Maximum control code *)G ETIR$C_MINSTCCOD = 200; (*Minimum store-conditional code *)G ETIR$C_STC_LP = 200; (*Store-conditional Linkage Pair *)] ETIR$C_STC_LP_PSB = 201; (*Store-conditional Linkage Pair with Procedure Signature *)Q ETIR$C_STC_GBL = 202; (*Store-conditional Address at global address *)V ETIR$C_STC_GCA = 203; (*Store-conditional Code Address at global address *)Q ETIR$C_STC_PS = 204; (*Store-conditional Address at psect + offset *)P ETIR$C_STC_NOP_GBL = 205; (*Store-conditional NOP at address of global *)L ETIR$C_STC_NOP_PS = 206; (*Store-conditional NOP at pect + offset *)M ETIR$C_STC_BSR_GBL = 207; (*Store-conditional BSR at global address *)L ETIR$C_STC_BSR_PS = 208; (*Store-conditional BSR at pect + offset *)M ETIR$C_STC_LDA_GBL = 209; (*Store-conditional LDA at global address *)M ETIR$C_STC_LDA_PS = 210; (*Store-conditional LDA at psect + offset *)U ETIR$C_STC_BOH_GBL = 211; (*Store-conditional BSR or Hint at global address *)T ETIR$C_STC_BOH_PS = 212; (*Store-conditional BSR or Hint at pect + offset *)Y ETIR$C_STC_NBH_GBL = 213; (*Store-conditional NOP,BSR or HINT at global address *)Y ETIR$C_STC_NBH_PS = 214; (*Store-conditional NOP,BSR o r HINT at psect + offset *)G ETIR$C_MAXSTCCOD = 214; (*Maximum store-conditional code *) o(********************************************************************************************************* *) TYPE ETIR$TYPE = RECORDG ETIR$W_RECTYP : $UWORD; (* Record type (OBJ$C_ETIR) *)G ETIR$W_SIZE : $UWORD; (* Record size *)G (* Define relocation commands *)=  (* ETIR descriptions *)G (* *); (* *)] (* MNEUMONIC DESCRIPTION FORMAT STACK EFFECT *)] (* --------- ----------- ------ ------------ *)V (* 0 2 4 6 8 12 16 20 24 *)U (* | | | |  | | | | | *)U (* v v v v v v v v v *)6 (* *)q (* STA_GBL pushes symbol value on stack |type|size|counted string... +1 *)G (* *)j (* STA_LW pushes longword value on stack |type|size|longword | +1 *)G (* *)r (* STA_QW pushes quadword value on stack |type|size| quadword | +1 *)G (* *)w (* STA_PQ pushes image offset associated |type|size| psect | quadword | +1 *)M (* with psect index + quadword *); (* offset on stack *)p   (* STA_LI pushes literal value on stack |type|size|counted string... +1 *)G (* *)q (* STA_MOD pushes image offset associated |type|size|counted string... +1 *)< (* with module on stack *)G (* *)u (* STA_CKARG compares poped stack element to  |type|size|counted string... 0 *)F (* symbol value and pushes result *); (* on stack *); (* *)` (* STO_B pops stack and stores low byte |type|size| -1 *); (* at location pointer *)G (* *)` ( * STO_W pops stack and stores low word |type|size| -1 *)? (* at location pointer *)G (* *)a (* STO_LW pops stack and stores low |type|size| -1 *)H (* longword at location pointer *)G (* *)a (* STO_QW pops stack  and stores qwadword |type|size| -1 *)? (* at location pointer *)G (* *)p (* STO_GBL stores value associated with |type|size|counted string... 0 *)F (* global symbol at location *)? (* pointer *)G (*   *)p (* STO_CA stores contents of value |type|size|counted string... 0 *)I (* associated with global symbol *)B (* +8 at location pointer *)2 (* *)o (* STO_RB adds offset from location |type|size|psect| quadword | 0 *)I (* pointer to image offset value *)I (* associated with psect index + *)G (* quadword offset to low word *)? (* at location pointer *)G (* *)p (* STO_AB stores value associated with |type|size|counted string... 0 *)H (* global symbol in low 21 bits *)?  (* at location pointer *)G (* *) (* STO_OFF pops offset into image from |type|size| -1 *)L (* stack and stores the value in *)I (* the linker's location counter *)G (* *)v (* STO_IMMR pops repeat count and stores |type|size| size |immediate... -1 *)K (* this number of immediates at *)? (* location counter *)G (* *)g (* STO_LP stores code address at |type|size|counted string... 0 *)C (* location pointer and global *)@  (* symbol value at location *); (* pointer + 8 *)G (* *)t (* STO_IMM stores this number of |type|size| size |immediate... 0 *)M (* immediates at location counter *)G (* *)s (* STO_GBL_LW stores low  order 32 bits of |type|size|counted string... 0 *)H (* value associated with global *)F (* symbol at location pointer *)G (* *) (* STO_LP_PSB stores code address at |type|size|counted string...|size|signature block...| 0 *)C (* location pointer and global *)@  (* symbol value at location *)A (* pointer + 8 and signature *)P (* information in fixup section *)R (* (following the LP_PSB fixups). *); (* *)} (* STO_BR_GBL Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 | *)Y (* signed offset from virtual |counted string 0 *)B (* address signified by ps2 + *)B (* off2 to virtual address of *)F (* global symbol shifted two bits *)P (* to the right into the 21 bit *)U (* displacement field of instruction *)K (* at location ps1 + off1. *)G (* *)} (* STO_BR_PS Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 | *)n (* signed offset from virtual |ps3 |off3 | 0 *)B (* address signified by ps2 + *)? (* off2 to virtual address *)G (* signified by ps3 + off3 shifted *)B (* two bits to the right into *)E (* the 21 bit displacement field *)B (* of instruction at location *); (* ps1 + off1. *)G (* *)R (* OPR_NOP nothing |type|size| 0 *)G (*  *)d (* OPR_ADD pop two elements from stack |type|size| -1 *)A (* adds and push results *)G (* *)d (* OPR_SUB pop two elements from stack |type|size| -1 *)F (* subtracts and push results *)G (* *)c (* OPR_MUL pop two elements from stack |type|size| -1 *)E (* multiplys and push results *)G (* *)d (* OPR_DIV pop two elements from stack |type|size| -1 *)D (* divides and push results *)G (* *)d  (* OPR_AND pop two elements from stack |type|size| -1 *)A (* ANDs and push results *)G (* *)d (* OPR_IOR pop two elements from stack |type|size| -1 *)J (* inclusive ors and push results *)G (* *)d  (* OPR_EOR pop two elements from stack |type|size| -1 *)J (* exclusive ors and push results *)G (* *)c (* OPR_NEG pop one element from stack |type|size| 0 *)D (* negates and push results *)G (* *)c  (* OPR_COM pop one element from stack |type|size| 0 *)H (* compliments and push results *)G (* *)d (* OPR_INSV pop two elements from stack |type|size| -1 *)H (* inserts bit field from first *)H (* into second and push results *)G (*  *)d (* OPR_USH pop two elements from stack |type|size| -1 *)K (* unsigned shift and push results *)G (* *)d (* OPR_ASH pop two elements from stack |type|size| -1 *)F (* arithmetic shift and push *)? (*  results *)G (* *)d (* OPR_ROT pop two elements from stack |type|size| -1 *)C (* rotate and push results *)G (* *)h (* OPR_SEL pop three elements from stack |type|size| -2 *)? (* if first is true *)? (* then push third *)? (* else push second *)B (* *)w (* OPR_REDEF pop value from stack and |type|size|counted string... -1 *)G (* assign this value to global *)? (* symbol *)G  (* *)w (* OPR_DFLIT pop value from stack and |type|size|counted string... -1 *)H (* assign this value to literal *)G (* *)G (* *)h (* CTL_SETRB pop value from stack and move |type|size| -1 *)@   (* to location pointer *)0 (* *)u (* CTL_AUGRB add quadword to location |type|size| quadword | 0 *)? (* pointer *)G (* *)x (* CTL_DFLOC pop index from stack and save |type|size| quadword index | -1 *)G ! (* current location pointer in *)C (* debug table using index *)G (* *){ (* CTL_STLOC pop index from stack, get |type|size| quadword index | -1 *)F (* saved location pointer in *)G (* debug table using index and *)G (* " move it to current location *)? (* pointer *)G (* *){ (* CTL_STKDL pop index from stack, get |type|size| quadword index | 0 *)E (* saved location pointer in *)G (* debug table using index and *)? (* push it # *)G (* *)G (* *)] (* MNEUMONIC DESCRIPTION FORMAT STACK EFFECT *)] (* --------- ----------- ------ ------------ *)V (* 0 2 4 6 8 12 16 20 24 *)U (* | | | | | | $ | | | *)U (* v v v v v v v v v *)+ (* *) (* STC_LP If the linkage pair specified |type|size|lp index |counted string...  0 *)O (* by the index is referenced, *)R (* i.e. all instructions ref'ing *)T (* % it weren't successfully replaced *)R (* by other STC_** commands, then *)R (* store code address at location *)S (* pointer and global symbol value *)L (* at location pointer + 8. *)G (* *) (* STC_LP_PSB If the link&age pair specified |type|size|lp index |counted string...|-  0 *)x (* by the index is referenced, |size|signature block...| *)R (* i.e. all instructions ref'ing *)T (* it weren't successfully replaced *)R (* by other STC_** commands, then *)R (* ' store code address at location *)S (* pointer and global symbol value *)R (* at location pointer + 8. Store *)R (* signature information in fixup *)P (* section following the LP_PSB *)G (* fixups. *)G (* ( *) (* STC_GBL store value associated with |type|size|lp index |counted string...  0 *)Q (* global symbol (if norm bit is *)S (* set this is the procedure desc. *)P (* address) in the linkage pair *)P (* pointed to by the index only *)[ ) (* if that part of the lp is referenced. *)[ (* When the norm bit is set the index will *)S (* point to the second quadword of *)G (* the linkage pair. *)G (* *) (* STC_GCA store the value from the field |type|size|lp index* |counted string...  0 *)M (* ESDF$L_LP_1 of the global *)N (* symbol in the linkage pair *)P (* pointed to by the index only *)[ (* if that part of the lp is referenced. *)Z (* The global symbol must be a procedure, *)Q (* + and the norm bit must be set. *)R (* The lp index must point to the *)W (* first quadword of the linkage pair. *)G (* *)+ (* *) (* STC_PS store the address associated |type|size|lp index |psct|qw offset|  0 *)R , (* with the psect + offset in the *)O (* lp pointed to by the index. *)Q (* The index may point to either *)G (* quadword. *)G (* *) (* STC_NOP_GBL Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - - *) (* compiler) at the location |repl inst|psc2|qw off2 |counted string  0 *)N (* pointed to by PS1, offset1 *)M (* if the displacement from *)P (* ps2, offset2 to the value in *)P (* the EGSY$L_LP_1 field of the *)R . (* global symbol + its psect base *)Q (* can be squished into 21 bits. *)G (* *)G (* *) (* STC_NOP_PS Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - *)| (* compiler) at the location / |repl inst|psc2|qw off2 | - *) (* pointed to by PS1, offset1 |psc3|qw off3 |  0 *)M (* if the displacement from *)O (* ps2, offset2 to ps3,offset3 *)Q (* can be squished into 21 bits. *)G (* *) 0 (* STC_BSR_GBL Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - *) (* repl inst) at the location |repl inst|psc2|qw off2 |counted string  0 *) (* pointed to by PS1, offset1  *)M (* if the displacement from *)P 1 (* ps2, offset2 to the value in *)P (* the EGSY$L_LP_1 field of the *)R (* global symbol + its psect base *)Q (* can be squished into 21 bits. *)R (* Insert the 21 bit displacement *)I (* into the instruction. *)G 2 (* *) (* STC_BSR_PS Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - *)| (* repl inst) at the location |repl inst|psc2|qw off2 | - *) (* pointed to by PS1, offset1 |psc3|qw off3 |  0 *)M (* 3 if the displacement from *)O (* ps2, offset2 to ps3,offset3 *)Q (* can be squished into 21 bits. *)R (* Insert the 21 bit displacement *)I (* into the instruction. *)G (* *) (* STC_LDA_GBL Store a LDA (specified 4in |type|size|lp index |psc1|qw off1 | - *) (* repl inst) at the location |repl inst|psc2|qw off2 |counted string  0 *) (* pointed to by PS1, offset1  *)M (* if the displacement from *)P (* ps2, offset2 to the value i5n *)Q (* the EGSY$L_VALUE field of the *)R (* global symbol + its psect base *)Q (* can be squished into 16 bits. *)T (* The global symbol cannot be from *)G (* a shareable image. *)R (* Insert the 16 bit displacement *)I 6 (* into the instruction. *)T (* The index is only nonzero if the *)S (* instruction being replaced refs *)G (* a linkage pair. *)G (* *) (* STC_LDA_PS Store a LDA (specified in |type|size|lp index |psc1|qw off17 | - *)| (* repl inst) at the location |repl inst|psc2|qw off2 | - *) (* pointed to by PS1, offset1 |psc3|qw off3 |  0 *)M (* if the displacement from *)O (* ps2, offset2 to ps3,offset3 *)Q (* can8 be squished into 16 bits. *)Z (* PS3 cannot be a shareable image psect. *)R (* Insert the 16 bit displacement *)I (* into the instruction. *)T (* The index is only nonzero if the *)S (* instruction being replaced refs *)G (* a9 linkage pair. *)G (* *) (* STC_BOH_GBL Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - *) (* repl inst) at the location |repl inst|ps2 |qw off2 |counted string  0 *) (* pointed to by ps1, off1 : *)M (* if the displacement from *)M (* ps2, off2 to the value in *)P (* the EGSY$L_LP_1 field of the *)R (* global symbol + its psect base *)Q (* can be squished into 21 bits. *)R (* Insert the 21 bit displacement *)R ; (* into the instruction. If the *)S (* displacement is too large, then *)R (* store the low order 16 bits of *)U (* the virtual address of the global *)R (* symbol shifted two bits to the *)K (* right into the location *)G < (* ps1 + off1. *)G (* *) (* STC_BOH_PS Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - *)z (* repl inst) at the location |repl inst|ps2 |qw off2 | - *) (* pointed to by PS1, off1 = |ps3 |qw off3 |  0 *)L (* if the displacement from *)I (* ps2, off2 to ps3,off3 *)Q (* can be squished into 21 bits. *)R (* Insert the 21 bit displacement *)R (* into the instruction. If the *)S (* displacem>ent is too large, then *)R (* store the low order 16 bits of *)U (* the virtual address of the global *)R (* symbol shifted two bits to the *)K (* right into the location *)G (* ps1, off1. *)G (* *?) (* STC_NBH_GBL Equivalent to STC_NOP_GBL, |type|size|lp index |ps1 |qw off1 | - *)| (* index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - *) (* off2 + 4, counted string, |repl ins2|counted string...  0 *)S (* followed by STC_BOH_GBL, index, *)S @ (* ps2, off2, ins2, ps2, off2 + 4, *)G (* counted string. *)P (* Implicit assumption is that *)X (* the original instructions (LDQ, JSR) *)G (* are contiguous. *)G (* *) (* ASTC_NBH_PS Equivalent to STC_NOP_PS, |type|size|lp index |ps1 |qw off1 | - *)| (* index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - *) (* off2 + 4, ps3, off3, |repl ins2|ps3 |qw off3 |  0 *)R (* followed by STC_BOH_PS, index, *)S (* ps2B, off2, ins2, ps2, off2 + 4, *)G (* ps3, off3. *)P (* Implicit assumption is that *)X (* the original instructions (LDQ, JSR) *)G (* are contiguous. *)G (* *) (******************************************** C****************************************************  *) END; N(* END. *) N(* MODULE OPCDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD D *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; ENDE; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UFNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; G *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; H *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [IBIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; J *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OPCDEF ***) LCONSKT OPC$_RQ_TERME = 1; (* ENABLE TERMINAL *)G OPC$_RQ_LOGI = 2; (* INITIALIZE THE LOG *)G OPC$_RQ_RQST = 3; (* OPERATOR REQUEST *)G OPC$_RQ_REPLY = 4; (* OPERATOR REPLY *)G OPC$_RQ_CANCEL = 5; (* CANCEL REQUEST *)G OPC$_RQ_STATUS = 6; (* REQUEST OPERATOR STATUS *)G OPC$_RQ_SECURITY = 7; (* MESSAGE TO SECURITY OPERATLOR *)G OPC$_RQ_LICENSE = 8; (* MESSAGE TO LICENSE OPERATOR *) OPC$M_RQ_NOOCS = 128; OPC$M_NM_CENTRL = 1; OPC$M_NM_PRINT = 2; OPC$M_NM_TAPES = 4; OPC$M_NM_DISKS = 8; OPC$M_NM_DEVICE = 16; OPC$M_NM_CARDS = 32; OPC$M_NM_NTWORK = 64; OPC$M_NM_CLUSTER = 128; OPC$M_NM_SECURITY = 256; OPC$M_NM_REPLY = 512; OPC$M_NM_SOFTWARE = 1024; OPC$M_NM_LICENSE = 2048; OPC$M_NM_OPER1 = 4096; OPC$M_NM_OPER2 = 8192; OPC$M_NM_OPER3 = 16384; OPC$M_NM_OPER4 = 3276M8; OPC$M_NM_OPER5 = 65536; OPC$M_NM_OPER6 = 131072; OPC$M_NM_OPER7 = 262144; OPC$M_NM_OPER8 = 524288; OPC$M_NM_OPER9 = 1048576; OPC$M_NM_OPER10 = 2097152; OPC$M_NM_OPER11 = 4194304; OPC$M_NM_OPER12 = 8388608; &TYPE OPC$TYPE = RECORD CASE INTEGER OFG 1: (OPC$B_MS_TYPE : $UBYTE; (* MESSAGE TYPE *)M OPC$R_MS_C_T_S_OVERLAY : [BYTE(3)] RECORD END; (* Class-Target-Status *)4 OPC$R_MS_RPLYID_OVERLAY : [BYTE(4)] RECORD END;2 OPC$R_MS_TEXT_OVE NRLAY : [BYTE(4)] RECORD END;G OPCDEF$$_FILL_1 : ARRAY [1..7] OF $WORD; (* SPACE FOR NAME *)G OPC$L_MS_OTEXT : ARRAY [1..32] OF UNSIGNED; (* OPERATOR TEXT *)3 OPC$R_MS_MAXSZ_OVERLAY : [BYTE(4)] RECORD END; );? 2: (OPC$R_MS_TARG_STAT_OVERLAY : [POS(8), BYTE(3)] RECORD END;G OPC$L_MS_RPLYID : [POS(32)] UNSIGNED; (* REPLY ID *)G OPC$L_MS_TEXT : [POS(64)] UNSIGNED; (* MESSAGE TEXT *)G OPC$L_MS_MAXSZ : [POS(1232)] UNSIGNED; (* MES OSAGE MAX SIZE *)N(* OPERATOR MESSAGE TYPES *) );< 3: (OPC$R_MS_TARGET_OVERLAY : [POS(8), BYTE(1)] RECORD END;G OPC$W_MS_STATUS : [POS(16)] $UWORD; (* MESSAGE STATUS *); OPC$R_MS_MASK_OVERLAY : [POS(32), BYTE(4)] RECORD END;: OPC$R_MS_TEXT_FIELDS : [POS(64), BYTE(3)] RECORD END;; OPC$R_MS_MAXSZ_BITS : [POS(1232), BYTE(3)] RECORD END; );G 4: (OPC$B_MS_TARGET : [POS(8)] $UBYTE; (* MESSAGE TARGET P *)G OPC$L_MS_MASK : [POS(32)] UNSIGNED; (* MESSAGE MASK *)G OPC$W_MS_OUNIT : [POS(64)] $UWORD; (* OPERATOR UNIT NUMBER *)G OPC$T_MS_ONAME : [POS(80)] CHAR; (* OPERATOR NAME *)G OPC$V_NM_CENTRL : [POS(1232)] $BOOL; (* *)( OPC$V_NM_PRINT : [POS(1233)] $BOOL;( OPC$V_NM_TAPES : [POS(1234)] $BOOL;( OPC$V_NM_DISKS : [POS(1235)] $BOOL;) OPC$V_NM_DEVICE : [POS(1236)] $BOOL;( OPC$V_NM_CARDS : [POS(1 Q237)] $BOOL;) OPC$V_NM_NTWORK : [POS(1238)] $BOOL;* OPC$V_NM_CLUSTER : [POS(1239)] $BOOL;+ OPC$V_NM_SECURITY : [POS(1240)] $BOOL;( OPC$V_NM_REPLY : [POS(1241)] $BOOL;+ OPC$V_NM_SOFTWARE : [POS(1242)] $BOOL;* OPC$V_NM_LICENSE : [POS(1243)] $BOOL;( OPC$V_NM_OPER1 : [POS(1244)] $BOOL;( OPC$V_NM_OPER2 : [POS(1245)] $BOOL;( OPC$V_NM_OPER3 : [POS(1246)] $BOOL;( OPC$V_NM_OPER4 : [POS(1247)] $BOOL;( OPC$V_NM_OPER5 : [POS(1248)] $BOOL;( OPC$V_NM_OP RER6 : [POS(1249)] $BOOL;( OPC$V_NM_OPER7 : [POS(1250)] $BOOL;( OPC$V_NM_OPER8 : [POS(1251)] $BOOL;( OPC$V_NM_OPER9 : [POS(1252)] $BOOL;) OPC$V_NM_OPER10 : [POS(1253)] $BOOL;) OPC$V_NM_OPER11 : [POS(1254)] $BOOL;) OPC$V_NM_OPER12 : [POS(1255)] $BOOL; );G 5: (OPC$B_MS_ENAB : [POS(8)] $UBYTE; (* MESSAGE ENABLES *)G OPC$L_MS_RQSTID : [POS(32)] UNSIGNED; (* REQUEST ID *) );? 6: (OPC$Z_MS_TARGET_CLASSES : [POS(8)] ARRAY [1..3] OSF $UBYTE; );? 7: (OPC$Z_MS_ENAB_TERMINALS : [POS(8)] ARRAY [1..3] OF $UBYTE; ) END; CONST OPC$M_OPR_CENTRAL = 1; OPC$M_OPR_PRINTER = 2; OPC$M_OPR_TAPES = 4; OPC$M_OPR_DISKS = 8; OPC$M_OPR_DEVICES = 16; OPC$M_OPR_CARDS = 32; OPC$M_OPR_NETWORK = 64; OPC$M_OPR_CLUSTER = 128; OPC$M_OPR_SECURITY = 256; OPC$M_OPR_REPLY = 512; OPC$M_OPR_SOFTWARE = 1024; OPC$M_OPR_LICENSE = 2048; OPC$M_OPR_USER1 = 4096; OPC$M_OPR_USER2 = 8192; OPC$M_OPR_USER3 = 16384;T OPC$M_OPR_USER4 = 32768; OPC$M_OPR_USER5 = 65536; OPC$M_OPR_USER6 = 131072; OPC$M_OPR_USER7 = 262144; OPC$M_OPR_USER8 = 524288; OPC$M_OPR_USER9 = 1048576; OPC$M_OPR_USER10 = 2097152; OPC$M_OPR_USER11 = 4194304; OPC$M_OPR_USER12 = 8388608; *TYPE OPC_OPR$TYPE = RECORD CASE INTEGER OF. 1: (OPC$R_OPRDEF_BITS : [BYTE(3)] RECORD END; );( 2: (OPC$V_OPR_CENTRAL : [POS(0)] $BOOL;( OPC$V_OPR_PRINTER : [POS(1)] $BOOL;& OPC$V_OPR_TAPES : [POS(2)] $BOOL;& OPC$V_OPR U_DISKS : [POS(3)] $BOOL;( OPC$V_OPR_DEVICES : [POS(4)] $BOOL;& OPC$V_OPR_CARDS : [POS(5)] $BOOL;( OPC$V_OPR_NETWORK : [POS(6)] $BOOL;( OPC$V_OPR_CLUSTER : [POS(7)] $BOOL;) OPC$V_OPR_SECURITY : [POS(8)] $BOOL;& OPC$V_OPR_REPLY : [POS(9)] $BOOL;* OPC$V_OPR_SOFTWARE : [POS(10)] $BOOL;) OPC$V_OPR_LICENSE : [POS(11)] $BOOL;' OPC$V_OPR_USER1 : [POS(12)] $BOOL;' OPC$V_OPR_USER2 : [POS(13)] $BOOL;' OPC$V_OPR_USER3 : [POS(14)] $BOOL;' OPC$V_OPR_UVSER4 : [POS(15)] $BOOL;' OPC$V_OPR_USER5 : [POS(16)] $BOOL;' OPC$V_OPR_USER6 : [POS(17)] $BOOL;' OPC$V_OPR_USER7 : [POS(18)] $BOOL;' OPC$V_OPR_USER8 : [POS(19)] $BOOL;' OPC$V_OPR_USER9 : [POS(20)] $BOOL;( OPC$V_OPR_USER10 : [POS(21)] $BOOL;( OPC$V_OPR_USER11 : [POS(22)] $BOOL;( OPC$V_OPR_USER12 : [POS(23)] $BOOL; ) END; CONST OPC$K_SYSTEM = 1; OPC$K_GROUP = 2; OPC$K_USER = 3; OPC$K_UNSPEC = 4; OPC$C_SYSTEM = 1; OPC$C_GROUP = 2;W OPC$C_USER = 3; OPC$C_UNSPEC = 4; OPC$K_SW_VERSION = 9; OPC$K_MAXREAD = 2560; OPC$K_MAXMESSAGE = 2048; OPC$K_COMHDRSIZ = 38;G OPC$_OPCOMERROR = 99999; (* New error message *) OPC$_X_OPRENABLE = 10; OPC$_X_LOGFILE = 11; OPC$_X_REQUEST = 12; OPC$_X_REPLY = 13; OPC$_X_CANCEL = 14; OPC$_X_STATUS = 15; OPC$_X_SHUTDOWN = 16; OPC$_X_TIMESTAMP = 17; OPC$_X_SECURITY = 18; OPC$_X_CLUSMSG = 19; OPC$_X_DEBUG = 20; OPC$_X_CNXMAN = 21; OPC$_X_REQUXEST_END_MARK = 22;G OPC$K_CLM__ACKNOWLEDGEMENT = 1; (* Response to acknowledge request *)T OPC$K_CLM__ACKNOWLEDGE_PLEASE = 2; (* Request for remote node to announce itself *)G OPC$K_CLM__CANCEL = 3; (* Explicit cancel of request *)Q OPC$K_CLM__CHECK_OPERATOR = 4; (* Make sure this operator is in the database *)M OPC$K_CLM__CHECK_REQUEST = 5; (* Make sure a request is in the database *)Q OPC$K_CLM__CLUMBX = 6; (* Cluster mailbox message passed from cnxman *)G OPCY$K_CLM__CLUSTER = 7; (* Cluster status change report *)M OPC$K_CLM__DEVICE = 8; (* Device message (on-line, off-line etc) *)G OPC$K_CLM__IMP_CANCEL = 9; (* Implicitly cancel a request *)G OPC$K_CLM__IMP_DISABLE = 10; (* Implicitly disable an operator *)Z OPC$K_CLM__OPRENABLE = 11; (* Tell everyone else to enable or disable an operator *)G OPC$K_CLM__REPLY = 12; (* REPLY /PEND etc command *)M OPC$K_CLM__REPLY_COMPLETE = 13; (* OperatZor request completed by operator *)G OPC$K_CLM__REQUEST = 14; (* Operator request *)g OPC$K_CLM__RPYBRD = 15; (* Message from OPCOM to remotes, info for cluster REPLY /TERM, etc *)Z OPC$K_CLM__RPYBRD_LOCAL = 16; (* Broadcast message from REPLY to OPCOM on local node *)G OPC$K_CLM__RPYNOT = 17; (* Reply notifications *)G OPC$K_CLM__SECURITY = 18; (* Security alarm from remote *)G OPC$K_CLM__SHUTDOWN = 19; (* Shut down op [erations *)G OPC$K_CLM__LOGFILE = 20; (* Enable/disable logfile operator *)" OPC$K_CLM__REQUEST_END_MARK = 21;G OPC$K_HDR_SIZE = 26; (* Size of common header *) 1TYPE HEADER_MESSAGE$TYPE = RECORD CASE INTEGER OFG 1: (OPC$B_RQSTCODE : $UBYTE; (* Request code *)G OPC$B_SCOPE : $UBYTE; (* Request SCOPE *)G OPC$L_OPTIONS : UNSIGNED; (* Request independent option bits. *)( OPC$R_RQOPT : \ [BYTE(4)] RECORD END;G OPC$L_ATTNMASK1 : UNSIGNED; (* Attention mask part 1 *)G OPC$L_ATTNMASK2 : UNSIGNED; (* Attention mask part 2 *)G OPC$L_RQSTID : UNSIGNED; (* User specified request id # *)G OPC$L_UIC : UNSIGNED; (* UIC of requestor *) );K 2: (OPC$L_RQ_OPTIONS : [POS(48)] UNSIGNED; (* Request dependent options *) ); 3: ();J 4: (OPC$B_RQOPT_CODE : [POS(48)] $UBYTE; (* a code byte and some fill *) ] ) END; CONST OPC$M_NOLOG = 1; OPC$M_NOBRD = 2; OPC$M_NOCLUSTER = 4;  LCONST OPC$K_OPRENABLE_MIN_SIZE = 30; (* Min message size header + 4 *) $TYPE OPRENABLE_MESSAGE$TYPE = RECORD3 OPC$B_OPRENABLE_FILL : ARRAY [1..26] OF $BYTE;G OPC$T_OPRENABLE_OPR : RECORD END ; (* Start of oper dev name *) END; CONST OPC$M_DISABLE = 1; OPC$M_PERMOPER = 2; OPC$M_NOREMIND = 4;  LCONST OPC$K_LOGFILE_MIN_SIZE = 30; (* Min message size header + 4 ^*)X OPC$K_INITLOG = 0; (* If one is open, close logfile. Open new logfile. *)G OPC$K_CLOSELOG = 1; (* Close logfile. *)M OPC$K_ENABLELOG = 2; (* If no logfile is open, open a logfile. *) N(* Add classes in ATTNMASK to logfile operator mask. *) bCONST OPC$K_DISABLELOG = 3; (* Remove classes in ATTNMASK from logfile operator mask. *) N(* If mask goes to 0, close logfile. _ *) LCONST OPC$K_MAX_LOGOPT = 4; (* One more than maximum allowed *) "TYPE LOGFILE_MESSAGE$TYPE = RECORDY OPC$B_LOGFILE_FILL : ARRAY [1..26] OF $BYTE; (* Skip to request dependent options *)G OPC$T_LOGFILE_OPR : RECORD END ; (* Start of oper dev name *) END; LCONST OPC$K_REQUEST_MIN_SIZE = 28; (* Min message size *) "TYPE REQUEST_MESSAGE$TYPE = RECORD1 OPC$B_REQUEST_FILL : ARRAY [1..26] OF $BYTE;G OPC$W_REQUEST_LEN`GTH : $UWORD; (* Length of text *)G OPC$T_REQUEST_TEXT : RECORD END ; (* Start of text *) END; LCONST OPC$K_SECURITY_MIN_SIZE = 28; (* Min message size *) #TYPE SECURITY_MESSAGE$TYPE = RECORD2 OPC$B_SECURITY_FILL : ARRAY [1..26] OF $BYTE;G OPC$W_SECURITY_LENGTH : $UWORD; (* Length of text *)G OPC$T_SECURITY_TEXT : RECORD END ; (* Start of text *) END; CONST OPC$K_REPLY_MIN_SIZE = 32; a TYPE REPLY_MESSAGE$TYPE = RECORD/ OPC$B_REPLY_FILL : ARRAY [1..26] OF $BYTE;# OPC$T_REPLY_OPR : RECORD END ; END; LCONST OPC$K_STATUS_MIN_SIZE = 30; (* Min message size header + 4 *) !TYPE STATUS_MESSAGE$TYPE = RECORD0 OPC$B_STATUS_FILL : ARRAY [1..26] OF $BYTE;G OPC$T_STATUS_OPR : RECORD END ; (* Start of text *) END; LCONST OPC$K_TIMESTAMP_MIN_SIZE = 26; (* Min message size *) $TYPE TIMESTAMP_MESSAGE$TYPE = RECObRD3 OPC$B_TIMESTAMP_FILL : ARRAY [1..26] OF $BYTE; END; LCONST OPC$K_SHUTDOWN_MIN_SIZE = 26; (* Min message size *) #TYPE SHUTDOWN_MESSAGE$TYPE = RECORD2 OPC$B_SHUTDOWN_FILL : ARRAY [1..26] OF $BYTE; END; CONST OPC$M_CLUSTER = 1;  LCONST OPC$K_CANCEL_MIN_SIZE = 26; (* Min message size *) !TYPE CANCEL_MESSAGE$TYPE = RECORD0 OPC$B_CANCEL_FILL : ARRAY [1..26] OF $BYTE; END; CONST OPC$M_RQSTDONE = 1;  +TY cPE OPCF_ARG$TYPE = RECORD CASE INTEGER OFG 1: (OPCF_ARG$l_arg_data : INTEGER; (* argument data *) );0 2: (OPCF_ARG$r_arg_desc : [BYTE(4)] RECORD END; );S 3: (OPCF_ARG$w_arg_offset : [POS(0)] $UWORD; (* The offset to the argument data *)X OPCF_ARG$w_arg_cntrl : [POS(16)] $UWORD; (* A control code for argument handling *) ) END; X(* This structure defines a message sent to OPCOM using the MSG$_OPCFAO message type. *) )TYPE OPCFAO$TYPE = RECORD CA dSE INTEGER OFG 1: (OPCF$w_msgtype : $UWORD; (* Dispatch message type code *)G OPCF$w_spare_1 : $UWORD; (* Unused word - alignment *)I OPCF$l_opc_msg : UNSIGNED; (* The message file code for msg text *)G OPCF$l_opc_class_msk : UNSIGNED; (* The operator class mask *)G OPCF$l_arg_count : UNSIGNED; (* The number of arguments *)3 OPCF$r_variable_data : [BYTE(240)] RECORD END; );V 2: (OPCF$r_item_arg : [POS(128)] ARRAY [1..60] OF OPC eF_ARG$TYPE; (* Argument items *) );_ 3: (OPCF$t_item_cd : [POS(128)] PACKED ARRAY [1..240] OF CHAR; (* Argument data - character *) );V 4: (OPCF$l_item_ld : [POS(128)] ARRAY [1..60] OF UNSIGNED; (* Argument data - long *) ) END; Q(* OPCFAO option codes. Unless commented otherwise, these codes correspond to *)O(* the equivalent FAO op code (e.g. !AC --> AC, !%T --> T). These codes are *)N(* used as input arguments to exe_std$sndopcfao as controls. *)f CONST OPCF$K_AC = 1; OPCF$K_AD = 2; OPCF$K_AF = 3; OPCF$K_AS = 4;d OPCF$K_AS_DEVICE_NAME = 5; (* Pass UCB for conversion to device name string with descriptor *) OPCF$K_AZ = 6; OPCF$K_D = 7; OPCF$K_I = 8; OPCF$K_OA = 9; OPCF$K_OB = 10; OPCF$K_OH = 11; OPCF$K_OI = 12; OPCF$K_OJ = 13; OPCF$K_OL = 14; OPCF$K_OQ = 15; OPCF$K_OW = 16; OPCF$K_SA = 17; OPCF$K_SB = 18; OPCF$K_SH = 19; OPCF$K_SI = 20; OPCF$K_SJ = 21; OPCF$K_SL = 22; OPCF$K_SQ = 23; OPCgF$K_SW = 24; OPCF$K_T = 25; OPCF$K_U = 26; OPCF$K_UA = 27; OPCF$K_UB = 28; OPCF$K_UH = 29; OPCF$K_UI = 30; OPCF$K_UJ = 31; OPCF$K_UL = 32; OPCF$K_UQ = 33; OPCF$K_UW = 34; OPCF$K_XA = 35; OPCF$K_XB = 36; OPCF$K_XH = 37; OPCF$K_XI = 38; OPCF$K_XJ = 39; OPCF$K_XL = 40; OPCF$K_XQ = 41; OPCF$K_XW = 42; OPCF$K_ZA = 43; OPCF$K_ZB = 44; OPCF$K_ZH = 45; OPCF$K_ZI = 46; OPCF$K_ZJ = 47; OPCF$K_ZL = 48; OPCF$K_ZQ = 49; OPCF$K_ZW = 50; OPCF$K_MIN_OPCFAO_CNTRL h = 1; OPCF$K_MAX_OPCFAO_CNTRL = 50;G OPCF$K_BY_REF = 1; (* Pass argument by reference *)G OPCF$K_BY_VAL = 2; (* Pass argument by value *)G OPCF$K_BY_DESC = 3; (* Pass argument by descriptor *) N(* END. *) N(* MODULE OPCMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)iJ(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; j *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; k *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFEl] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)Jm(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; n *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNoSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) pJ(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OPCMSG ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.07 *)N(* *)N(* OPCMSG.MSG - SYSTEM DEFINITION FILE FOR OPCOM q *)N(* *)J(* VERSION: 'X-21' *)N(* *)d(************************************************************************************************ *)d(** * *)d(** COPYRIGHT 2001,2002,2012 HEWLETT-PACKARD DEVELOPMENT COrMPANY, L.P. * *)d(** * *)d(** COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION TECHNOLOGIES GROUP, * *)d(** L.P. IN THE U.S. AND/OR OTHER COUNTRIES. * *)d(** * *)d(** CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM sCOMPAQ REQUIRED FOR POSSESSION, USE OR * *)d(** COPYING. CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *)d(** COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS ARE LICENSED TO * *)d(** THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. * *)d(** * *)d(***************************************************t********************************************* *)N(*++ *)N(* *)N(* FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES *)N(* *)N(* ABSTRACT: *)N(* u *)I(* THIS FILE CONTAINS THE SOURCE FOR OPCOM MESSAGES. *)N(* *)N(* ENVIRONMENT: *)N(* *)I(* N/A *)N(* *)N(*-- v *)N(* *)N(* *)H(* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *)N(* *)N(* MODIFIED BY: *)N(* w *)P(* X-21 SB SRIDATTA BAIRY 17-JAN-2012 *)N(* ADD LOCAL NODE NODENAME TO PEDRIVER OPCOM MESSAGES. *)N(* *)N(* X-20 BJ BHARGAVA JANDHYALA 3-MAY2011 *)S(* ADD PE_CHCL,PE_CHOP,PE_ECS_IN AND PE_ECS_OUT FOR PEDRIVER OPCOM *)N(* x *)1(* X-19 RAB0152 ROBERT A. BROOKS 23-FEB-2006 *)B(* ADD SHADISSOLVED, SHAMEMEXPEL, AND SHAMEMDMT *)N(* *)6(* X-18 JJF0317 J. JEFFERY FRIEDRICHS 9-JUN-2005 *)B(* ADD INSAMCVP AND HBMMRESET MESSAGES *)N(* *)&(* X-17 ABP ANU PANT 27-FEB-2003 *)B(* FOR MVSUPMSG, ADD THE NAME OF THE NODE y THAT IS IN MOUNT *)B(* VERIFICATION. *)N(* *)/(* X-16 KSG0145 KEVIN GREANEY 11-FEB-2003 *)B(* MOVE MESSAGE MVSUPMSG TO THE BOTTOM OF THE MESSAGE FILE. *)B(* THIS WAY, THE ASSOCIATED MESSAGES NUMBERS WILL STAY THE *)B(* SAME, AND ANY DEPENDENCE ON THOSE MESSAGE NUMBERS WILL NOT *)B(* BE IMPACTED. *)&(* X-15 ABzP ANU PANT 22-JAN-2003 *)E(* ADD NEW SUPPRESS MOUNT VERIFICAITON, MVSUPMSG, MESSAGE CODE. *)N(* *)/(* X-14 KSG0143 KEVIN GREANEY 19-MAR-2002 *)N(* FIX THE TEXT IN THE WSINCLUSTER MESSAGE. OPC$ENABLE_OPA0 *)N(* SHOULD BE OPC$OPA0_ENABLE, AND OPC$ENABLE_LOGFILE SHOULD *)N(* BE OPC$LOGFILE_ENABLE. *)N(* { *)0(* X-13 RAB010 ROBERT A. BROOKS 31-OCT-2001 *)B(* FOR PATHAUTSW AND PATHMANSW, ADD THE NAME OF THE NODE THAT *)B(* IS SERVING THE OLD AND NEW PATHS. *)N(* *)F(* X-12 KSG0138 KEVIN GREANEY 04-OCT-2000 *)B(* CHANGE THE TEXT IN WSINCLUSTER TO REMOVE THE REFERENCE TO *)B(* WORKSTATION. SINCE MANY ALPHA SERVERS ARE SHIPPIN|G WITH *)C(* GRAPHICS CARDS, THEY ARE SEEN AS WORKSTATIONS BY THE COMMAND *)B(* PROCEDURE VMS$DEVICE_STARTUP.COM. CUSTOMERS MIGHT NOT BE *)C(* HAPPY SEEING THEIR ALPHASERVER REFERRED TO AS A WORKSTATION. *)N(* *)F(* X-11 KSG0137 KEVIN GREANEY 07-SEP-2000 *)B(* MOVE THE MESSAGE ADDED IN X-10 TO THE BOTTOM OF THE FILE. *)B(* THIS WAY, MESSAGES WILL RETAIN THE SAME VALUE IN CASE }*)B(* SOMEONE USES THAT INSTEAD OF THE MESSAGE NAME. *)N(* *)F(* X-10 OH OLIVER HELLWIG 30-JUN-2000 *)N(* PTR 75-45-848 & 75-52-354 *)N(* ADD A NEW MESSAGE FOR THE FIBRE CHANNEL DRIVER (FGE) THAT *)P(* IS USED TO TELL THE USER THAT A FIBRE CHANNEL STORAGE DEVICE *)N(* REJECTED THE DRIVER POR~T LOGIN. *)N(* *)N(* X-9 KSG0132 KEVIN GREANEY 12-AUG-1999 *)N(* ADD A TRAILING BLANK LINE TO THE WSINCLUSTER MESSAGE *)N(* ADDED BELOW. IT WILL MAKE IT STAND OUT A LITTLE MORE. *)N(* *)O(* X-8 KSG0132 KEVIN GREANEY 08-JUL-1999 *)N(* ADD WSINCLUSTER MESSAGE TO LET USERS KNOW THAT THIS SYSTEM *)O(* IS A WORKSTATION IN A CLUSTER. AND, BY DEFAULT, OPCOM WILL *)N(* NOT ENABLE THE OPERATOR CONSOLE OR LOGFILE. *)N(* *)O(* X-7 KSG KEVIN GREANEY 15-APR-1999 *)N(* ADD THE CODE TO INCLUDE THE STANDARD HEADER IN THE TWO *)N(*  MESSAGES THAT WERE ADDED IN EDIT X-6. *)N(* *)N(* *)O(* X-6 KSG KEVIN GREANEY 05-APR-1999 *)N(* ADD OPA0CLERR AND LOGFCLERR ERROR MESSAGES. THIS *)N(* IS PART OF THE FIX FOR CFS.51506/PTR 70-3-112. *)N(*  *)B(* NOTE: PATHINUSE WAS NOT ADDED IN EDIT X-5. THE *)B(* REASON FOR THE OMISSION IS NOT KNOWN. *)N(* *)-(* X-5 JMB022 JAMES M. BLUE 14-JUL-1998 *)C(* THE FOLLOWING MESSAGES HAVE BEEN ADDED FOR DK DRIVER - FIBRE *)B(* CHANNEL AND MULTIPATH REQUIREMENTS - *)N(*  *)>(* PATHINUSE - ANOTHER WORLD WIDE ID DEVICE IS CURRENTLY *)8(* AT THE SAME PORT, TARGET, LUN COMBINATION. *)=(* PATHNOTAVL - THE SPECIFIED PATH NO LONGER HAS DEVICES *)4(* EITHER ENABLED OR ACCESSIBLE. *)=(* PATHUSERD - THE PATH WAS DISABLED FOR USE BY POLLER. *)?(* PATHAVL - THE SPECIFIED PATH HAS AT LEAST ONE DEVICE *)4(* ENABLED AND ACCESSIBLE. *)>(* PATHAUTSW - THE PATH TO THIS DEVICE HAS BEEN SWITC HED *)4(* AUTOMATICALLY TO A NEW PATH. *)>(* PATHMANSW - THE PATH TO THIS DEVICE HAS BEEN SWITCHED *)4(* MANUALLY TO A NEW PATH. *)N(* *)1(* X-4 KDM0235 KATHLEEN D. MORSE 29-JUL-1993 *)B(* ADD NEW SHADOW MESSAGES: SHANODMP AND SHADMPOK FOR ALPHA. *)N(* *)0(* X-3 DBM0001 DAVID B. MILLER 13-APR-1993 *)B(* BLADE PARITY; MERGE OF LATEST CHANGES: *)N(* *)9(* X-5 JJA92B05_1 JOHN J. ANDRUSZKIEWICZ 21-DEC-1992 *)B(* ALIGN TO EXPECTED VSC GENERATION NUMBER. *)B(* MOVE THOSE VOLUME SHADOWING PHASE II MESSAGES. *)N(* *)8(* X-10 JJA92B05 JOHN J. ANDRUSZKIEWICZ 14-DEC-1992 *)B(* ADD VOLUME SHADOWING PHASE II MESSAGES. *)N(* *)4(* X-2 WES WILLIAM E. SNAMAN 12-JUN-1992 14:32 *)B(* CHANGE VAXCLUSTER TO VMSCLUSTER. FIX IDENT TO MATCH CMS. *)N(* *))(* X-9 CWH5209 CW HOBBS 8-APR-1989 *)B(* ADD REQUEST NUMBER TO NOPERATOR MESSAGE. *)N(*  *))(* X-8 CWH5208 CW HOBBS 12-MAR-1989 *)B(* ADD A MORE MEANINGFUL MESSAGE FOR "OPCOM not running". *)N(* *)1(* X-7 WES0235 WILLIAM E. SNAMAN 08-JAN-1988 *)B(* FIX SPACING ERROR IN MESSAGE. *)N(* *)1(* X-6 WES0185 WILLIAM E. SNAMAN 02-SEP-1987 *)B(* ADD SOME NEW CLUSTER MESSAGES FOR SERVED Q UORUM DISKS. *)N(* *)1(* X-5 WES0171 WILLIAM E. SNAMAN 29-JUL-1987 *)B(* ADD SOME NEW CLUSTER MESSAGES AND FIX MODULE IDENT. *)N(* *)1(* X-2 NCD0001 NANCY C. DENARDO 29-DEC-1986 *)B(* ADD LICENSE OPERATOR CLASS *)N(* *)-(* V04-001 DBM0400 DB MILLS 9-SEP-1985 *)B(* ADD VOLUME SHADOWING MESSAGES. *)N(* *)-(* V03-013 CWH3013 CW HOBBS 2-SEP-1984 *)B(* RESTORE THE EMBEDDED IN RQST_PROMPT WHICH WAS *)B(* REMOVED IN ACG0449. *)N(* *)?(* V03-012 ACG0449 ANDREW C. GOLDSTEIN, 31-AUG-19 84 13:41 *)B(* FIX TEXT OF "counterfeit security alarm" MESSAGE *)N(* *)-(* V03-011 CWH3011 CW HOBBS 18-MAY-1984 *)B(* CHANGE THE IN OPREPLY TO A !/ DIRECTIVE. *)N(* *)2(* V03-010 MHB0158 MARK BRAMHALL 7-MAY-1984 *)B(* FIX UP THE SECURITY ALARM MESSAGE. *)N(*  *)-(* V03-009 CWH3169 CW HOBBS 5-MAY-1984 *)B(* SECOND PASS FOR CLUSTER-WIDE OPCOM: *)B(* - CHANGE SEVERAL MESSAGES TO USE THE STANDARD HEADER, ONLY *)B(* A FEW STILL USE THE SHORT HEADER. *)B(* - CHANGE THE FORMAT OF THE HEADER SLIGHTLY, MAKE IT MORE *)B(* CLEAR WHEN MESSAGES COME FROM OTHER NODES. *)B(* - REMOVE THE UDA50MVER AND TM78MVER MESSAGES AND REPLACE *)B(* THEM WITH THE SINGLE, GENERIC CTLRUCODE MESSAGE. *)B(* - ADD THE CLU_NOQUORUM CONNECTION MANAGER MESSAGE - IT *)B(* WAS APPARENTLY NEVER PUT IN. *)N(* *)-(* V03-008 CWH3008 CW HOBBS 12-APR-1984 *)B(* CHANGE SOME OF THE CONNECTION MANAGER MESSAGES *)N(* *)3(* V03-007 RSH0114 R.  SCOTT HANNA 12_MAR-1984 *)B(* CHANGE THE OPC$_COUNTERFEIT MESSAGE. *)N(* *)3(* V03-006 RSH0110 R. SCOTT HANNA 28-FEB-1984 *)B(* CHANGE THE FAO ARGUMENTS IN THE OPC$_SECUR_ALARM MESSAGE. *)N(* *)-(* V03-005 CWH3005 CW HOBBS 27-SEP-1983 *)B(* IMPROVE CONNECTION MANAGER MESSAGES. *)N(*  *)-(* V03-004 CWH3004 CW HOBBS 16-SEP-1983 *)B(* SHORTEN HEADER *)N(* *)-(* V03-003 CWH3003 CW HOBBS 16-SEP-1983 *)B(* ADD CONNECTION MANAGER MESSAGES. *)N(* *)-(* V03-002 CWH3001 CW HOBBS 30-JUL-1983  *)B(* VARIOUS AND SUNDRY THINGS TO MAKE OPCOM DISTRIBUTED *)B(* ACROSS THE CLUSTER. *)N(* *)>(* V03-001 RLRV3A1 ROBERT L. RAPPAPORT 5-APR-1982 *)B(* ADDED MSG$_UDA50MVER AND MSG$_DUPUNITNO. *)N(* *)>(* V02-006 STJ0180 STEVEN T. JEFFREYS, 07-JAN-1981 *)B(* ADDED MVCOMPLETE AND MVABORTED MESSAGES, AND SLIGHTLY *)C(* CHANGE THE TEST OF THE EXISTING MOUNT VERIFICATION MESSAGES. *)N(* *)>(* V02-005 STJ0079 STEVEN T. JEFFREYS, 31-JUL-1981 *)B(* ADDED BLANK MESSAGE FOR THE MAG. TAPE ACP. *)N(* *)>(* V02-004 STJ0063 STEVEN T. JEFFREYS, 14-JUL-1981 *)B(* ADDED AN ALTERNATE CANCEL MESSAGE. *)B(* ADDED AN INITIALIZE MESSAGE FOR THE MAG. TAPE ACP. *)B(* ADDED MESSAGES FOR MOUNT VERIFICATION SUPPORT. *)N(* *)>(* V02-003 STJ0042 STEVEN T. JEFFREYS, 22-MAY-1981 *)B(* CHANGE FORMAT OF RQSTCMPLTE, RQSTABORT, AND RQSTPEND *)B(* TO BE ENABLE EXISTING CODE TO PARSE THE MESSAGES. *)N(*  *)>(* V02-002 STJ0028 STEVEN T. JEFFREYS, 29-MAR-1981 *)B(* MODIFY EXISTING MESSAGES AND ADD NEW ONES AS PART OF *)B(* THE SUPPORT FOR THE NEW OPCOM. *)N(*+ *)N(* OPERATOR COMMUNICATIONS MESSAGES *)N(*- *) CONST OPCOM$_FACILITY = 5; OPC$_TERMENAB = 360449; OPC$_LOGINIT = 360457; OPC$_TERMDSBL = 360465; OPC$_RQSTABORT = 360476; OPC$_RQSTPEND = 360481; OPC$_RQSTCMPLTE = 360489; OPC$_LOGFAIL = 360500; OPC$_TERMFAIL = 360508; OPC$_NOSUCHRQST = 360516; OPC$_DEVOFFLINE = 360524; OPC$_DEVONLINE = 360532; OPC$_NOCLI = 360540; OPC$_NOPERATOR = 360545; OPC$_UNKNOPR = 360556; OPC$_DEVNOTERM = 360564; OPC$_ILLRQST = 360572; OPC$_RQSTCAN = 360580; OPC$_OPRNOTIF = 360585; OPC$_OPREPLY = 360593; OPC$_LOGTIME = 360601; OPC$_LOGCLOS = 360612; OPC$_USERQST = 360619; OPC$_USERMSG = 360627; OPC$_LOGSTS = 360635; OPC$_OPERSTS = 360643; OPC$_RQSTSTST = 360651; OPC$_SHUTDOWN = 360659; OPC$_SYSTEMOPER = 360667; OPC$_GROUPOPER = 360675; OPC$_USEROPER = 360683; OPC$_NOTENABLED = 360691; N(* *)O(* THE FOLLOWING MESSAGES GIVE THE ASCII TEXT FOR THE OPERATOR TYPES. IT IS *)O(* POSSIBLE TO CHANGE THE MESSAGE TEXT TO ANYTHING DESIRED. FOR EXAMPLE, AN *)N(* INSTALLATION MIGHT WANT TO CALL OPER12 BY ANOTHER NAME, SAY FRONT_DESK. *)N(* THAT INSTALLATION WOULD CHANGE THE LINE WITH OPER12 TO READ: *)N(* *):(* OPER12 *)N(* *)Y(* AFTERWARDS, USERS ON THAT SYSTEM COULD REPLY /ENABLE=FRONT_DE SK, REQUEST /TO=FRONT, *)W(* A FRONT_DESK OPERATOR COULD DO A REPLY /STAT AND SEE THAT FRONT_DESK WAS ENABLED. *)U(* OF COURSE, A PROGRAMMER ON THAT SYSTEM WOULD USE THE SYMBOL OPC$_OPER12 TO SEND *)N(* A MESSAGE TO THE FRONT_DESK, SINCE THE MESSAGE NAME CAN NOT BE CHANGED. *)N(* *) CONST OPC$_CENTRL = 360699; OPC$_PRINT = 360707; OPC$_TAPES = 360715; OPC$_DISKS = 360723; OPC$_DEVICE = 360731; OPC$_CARDS = 360739; OPC$_NTWORK = 360747; OPC$_CLUSTER = 360755; OPC$_SECURITY = 360763; OPC$_REPLY = 360771; OPC$_SOFTWARE = 360779; OPC$_LICENSE = 360787; OPC$_OPER1 = 360795; OPC$_OPER2 = 360803; OPC$_OPER3 = 360811; OPC$_OPER4 = 360819; OPC$_OPER5 = 360827; OPC$_OPER6 = 360835; OPC$_OPER7 = 360843; OPC$_OPER8 = 360851; OPC$_OPER9 = 360859; OPC$_OPER10 = 360867; OPC$_OPER11 = 360875; OPC$_OPER12 = 360883; N(*  *) CONST OPC$_DEVOFFLINX = 360891; OPC$_WRONGVOL = 360899; OPC$_DEVWRTLCK = 360907; N(* *) CONST OPC$_INITAPE = 360915; OPC$_RQSTDONE = 360923; OPC$_BLANKTAPE = 360931; N(* *) CONST OPC$_MVCOMPLETE = 360939; OPC$_MVABORTED = 360947; OPC$_CTLRUCODE = 360955; OPC$_DUPUNITNO = 360963; OPC$_SECUR_ALARM = 360971; OPC$_COUNTERFEIT = 360979; OPC$_NODE_ACTIVE = 360987; OPC$_NODE_DELETE = 360995; OPC$_NODE_DEPARTED = 361003; OPC$_NODE_INIT = 361011; OPC$_NODE_RETRY = 361019; OPC$_NODE_START = 361027; OPC$_UNKNOWN = 361035; OPC$_CLUSCOMM = 361043; OPC$_VALUERR = 361052; OPC$_NOTRQCB = 361060; OPC$_REPLY_GENERAL = 361067; OPC$_REPLY_SHUTDOWN = 361075; OPC$_REPLY_URGENT = 361083; OPC$_REPLY_NOTALL = 361091; OPC$_REPLY_NOTALLN = 361099; OPC$_REPLY_NO TDEV = 361107; OPC$_REPLY_NOTUSE = 361115; OPC$_REPLY_NOTUSEN = 361123;\ OPC$_ON_NODE = 361131; (* PREPOSITION FOR "on nodename" ("on ATHENS") MESSAGES *) OPC$_HEADER = 361139; OPC$_RQST_PROMPT = 361147; OPC$_NOLCLBROAD = 361152; OPC$_NOREMBROAD = 361160; OPC$_NOREMWAIT = 361168; N(* *)N(* CLUSTER MAILBOX MESSAGES *)N(* FAO PARAMETER LIST IS:  *)N(* *)I(* TIMESTAMP - POINTER TO QUADWORD TIME *)I(* LSYSNAML - LENGTH OF NAME OF LOCAL SYSTEM *)I(* LSYSNAMA - ADDRESS OF NAME OF LOCAL SYSTEM *)I(* LSYSIDW - HIGH ORDER WORD OF LOCAL SYSTEM ID *)I(* LSYSIDL - LOW ORDER LONGWORD OF LOCAL SYSTEM ID *)I(* LCSID - LOCAL SYSTEM CSID *)I(* RSYSNAML - LENGTH OF NAME OF REMOTE SYSTEM *)I(* RSYSNAMA - ADDRESS OF NAME OF REMOTE SYSTEM *)I(* RSYSIDW - HIGH ORDER WORD OF REMOTE SYSTEM ID *)I(* RSYSIDL - LOW ORDER LONGWORD OF REMOTE SYSTEM ID *)I(* RCSID - REMOTE SYSTEM CSID *)N(*  *)N(* MESSAGES USE THE "!+" DIRECTIVE TO SKIP OVER ITEMS WHICH *)N(* ARE NOT MEANINGFUL OR USEFUL FOR A PARTICULAR MESSAGE. *)N(* *) CONST OPC$_CLU_NEWSYS = 361179; OPC$_CLU_CNX = 361187; OPC$_CLU_RECNX = 361195; OPC$_CLU_LOSTCNX = 361203; OPC$_CLU_TIMCNX = 361211; OPC$_CLU_INIFORM = 361219; OPC$_CLU_INIADD = 361227; OPC$_CLU_INIRECNFIG = 361235; OPC$_CLU_MEMREQ = 361243; OPC$_CLU_ABORT = 361251; OPC$_CLU_ADD = 361259; OPC$_CLU_DROPNODE = 361267; OPC$_CLU_FORNCLUS = 361275; OPC$_CLU_INQUORUM = 361283; OPC$_CLU_LOSTDISK = 361291; OPC$_CLU_GAINDISK = 361299; OPC$_CLU_DISKRDERR = 361307; OPC$_CLU_DISKWRERR = 361315; OPC$_CLU_DISKINVDAT = 361323; OPC$_CLU_DISKTIMEOUT = 361331; OPC$_CLU_LOSTMSG = 361339; OPC$_CLU_NOQUORUM = 361347; OPC$_CLU_FORNDISK = 361355; OPC$_CLU_COMPLETE = 361363; OPC$_CLU_QUORUM = 361371; OPC$_CLU_ECNX = 361379; OPC$_CLU_HAVEDISK = 361387; OPC$_CLU_REMOTE = 361395; OPC$_CLU_LOCAL = 361403; OPC$_CLU_WTCHTIMEOUT = 361411;G OPC$_CLU_NOTRUST = 361419; (* *) N(* FOLLOWING ARE DEVICE MESSAGE FOR SHADOWING. *)N(* *) CONST OPC$_SHACHASTA = 361427; OPC$_SHAMEMFAL = 361435; OPC$_SHARDUCED = 361443; OPC$_SHACOPCOM = 361451; OPC$_SHACOPBEG = 361459; OPC$_SHAALLCOM = 361467; OPC$_SHAWROMEM = 361475; OPC$_SHAREDZER = 361483; OPC$_SHAPOSMEM = 361491; OPC$_SHAORGMEM = 361499; OPC$_NOOPCOM = 361504; N(* FOLLOWING ARE MORE DEVICE MESSAGE FOR SHADOWING. *)N(* *) CONST OPC$_SHAADPBAD = 361515; OPC$_SHAEMUPTH = 361523; OPC$_SHABENODMP = 361531; OPC$_SHABNODMP = 361539; OPC$_SHALOCDEV = 361547; OPC$_SHANOBPOK = 361555; OPC$_SHABDMPOK = 361563; OPC$_BOOTDMPOK = 361571; OPC$_SHABDBCK = 361579; OPC$_SHANODMP = 361587;_ OPC$_SHADMPOK = 361595; (* THE FOLLOWING MESSAGES ARE FOR FIBRE CHANNEL - MULTIPATH *) N(* *) CONST OPC$_PATHNOTAVL = 361603; OPC$_PATHAVL = 361611; OPC$_PATHUSERD = 361619; OPC$_PATHAUTSW = 361627; OPC$_PATHMANSW = 361635; OPC$_OPA0CLERR = 361640; OPC$_LOGFCLERR = 361648; OPC$_WSINCLUSTER = 361659; OPC$_LOGIN_REJECTED = 361664; OPC$_MVSUPMSG = 361675; OPC$_INSAMCVP = 361683; OPC$_HBMMRESET = 361691; OPC$_SHADISSOLVED = 361699; OPC$_SHAMEMEXPEL = 361707; OPC$_SHAMEMDMT = 361715; OPC$_PE_CHCL = 361723; OPC$_PE_CHOP = 361731; OPC$_PE_ECS_OUT = 361739; OPC$_PE_ECS_IN = 361747; N(* END. *) N(* MODULE OTSMSG ;  *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511;  *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911;  *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OTSDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.70 *)N(*  *)N(* FILE: OTSMSG.MSG EDIT: SBL2003 *)N(* *)Q(***************************************************************************** *)(** * *)8(** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJ ECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(*  *)N(* *)P(* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM OTSMSG.MDL *)I(* VERSION 1-009. SBL 22-APR-1981 *)N(* 2-002 - ADD OTS$_WRONUMARG. RKR 4-SEP-1981 *)N(* 2-003 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982 *)N(*--  *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* OTS$_ABCMNOXYZ *)N(* *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)P(* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)N(* MACRO-32 PROGRAMMING:  *)N(* *)N(* THE MACROS CALL: *)N(* *)I(* $OTSDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.  *)N(* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(*- *)N(*+ *)N(* DEFINE OTS$ SEVERE ERROR MESSAGES *)N(*- *)=(* ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$) *);(* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *);(* ; SET LH TO 23 (DECIMAL) OTS$ PREFIX *) CONST OTS$_FACILITY = 23; OTS$_INVSTRDES = 1540108; OTS$_FATINTERR = 1540116; OTS$_INTDATCOR = 1540124; OTS$_IO_CONCLO = 1540132; OTS$_INPCONERR = 1540140; OTS$_OUTCONERR = 1540148; OTS$_STRIS_INT = 1540156; OTS$_INSVIRMEM = 1540164; OTS$_WRONUMARG = 1540172; ;(* ; OTS$SCOPY  *)N(*+ *)N(* DEFINE OTS$ WARNING MESSAGES: *)N(*- *)=(* ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$) *);(* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE WARNING *);(* ; SET LH TO 23 (DECIMAL) OTS$ PREFIX *) CONST OTS$_USEFLORES = 1541120; N(* END.  *) N(* MODULE PSMMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END;  *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD  *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383;  *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(*  $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $PSMMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:57.86 *)N(* *)N(* *)Q(***************************************************************************** *)(** * *)C(** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993, 1994 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED . * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(**  * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(*++ *)N(* FACILITY: *)I(* PRINT SYMBIONT. *)N(* *)N(* ABSTRACT: *)I(* SYMBIONT MESSAGES. *)N(* *)N(* ENVIRONMENT: *)I(* VAX/VMS USER AND KERNEL MODE. *)N(* *)N(* AUTHOR: G. ROBERT, CREATION DATE: 31-AUG-1982 *)N(*  *)N(* MODIFIED BY: *)N(* *)?(* X-4 SG047 SHEELA GAYATRI 27-DEC-1994 *)B(* ADDED PSM$_INVPREFIX. *)N(* *)N(* X-3 ILR003 IRIS LANGSTEIN REALMUTO 26-OCT-1993 *)N(*  CHANGED COPYRIGHT TO 1993 *)N(* *)N(* X-2 ILR002 IRIS LANGSTEIN REALMUTO 27-AUG-1993 *)N(* ADDED PSM$_LATSYM *)N(* *)9(* 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 *)B(* ADD MISSING .END STATEMENT.  *)N(* *)<(* 3B-009 RRB3009 ROWLAND R. BRADLEY 24-JUL-1984 *)B(* SEPARATE THE PSM MESSAGES AND THE SMB MESSAGES. *)B(* *);(* 3B-008 GRR3008 GREGORY R. ROBERT 29-APR-1984 *)B(* ADDED PSM$_FLUSH *)N(* *);(* 3B-007 GRR3007 GREGORY R. ROBERT 23-AUG-1983 *)B(* BUGFIXES, PAGE_SETUP_MODULES, FORM_SETUP_MODULES, *)B(* SHEET_FEED, SYMBIONT INITIATED PAUSE_TASK AND STOP_STREAM, *)B(* HANGUP CODE, READ AND WRITE ITEM SERVICES *)N(* *);(* 3B-006 GRR3006 GREGORY R. ROBERT 03-AUG-1983 *)B(* CHANGED FUNNOTSUP TO SUCCESS. *)N(*  *);(* 3B-005 GRR3005 GREGORY R. ROBERT 29-JUL-1983 *)B(* ADDED MESSAGES FOR FT1. *)N(* *);(* 3B-004 GRR3004 GREGORY R. ROBERT 23-JUN-1983 *)B(* ADDED "module not found" AND "too many levels" MESSAGES. *)N(* *);(* 3B-003 GRR3003 GREGORY R. ROBERT 27-MAY-1983 *)B(* REMOVED UNUSED MESSAGES. ADDED NOMOREITEMS AND INVSTMNBR. *)N(* *);(* 3B-002 GRR3002 GREGORY R. ROBERT 04-APR-1983 *)B(* ADDED PSM$_NOMOREITEMS. *)N(* *)N(*** *)N(*  *)N(* THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FOR *)N(* MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY *)N(* THE $MSGDEF MACRO. *)N(* *) CONST PSM$_FACILITY = 262; PSM$_FUNNOTSUP = 17203201; PSM$_PENDING = 17203209; PSM$_FLUSH = 17203217; PSM$_BUFFEROVF = 17203224; PSM$_NEWPAGE = 17203232; PSM$_SUSPEND = 17203240; PSM$_ESCAPE = 17203248; PSM$_EOF = 17203258; PSM$_INVVMSOSC = 17203266; PSM$_MODNOTFND = 17203274; PSM$_NOFILEID = 17203282; PSM$_OSCTOOLON = 17203290; PSM$_TOOMANYLEV = 17203298; PSM$_INVITMCOD = 17203308; PSM$_LATSYM = 17203314; PSM$_INVPREFIX = 17203324; N(* END. *) N(* MODULE REGMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD  *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7;  *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535;  *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30  = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $REGMSG ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.53 *)N(* *)N(*!  *)I(*! FILE: REGMSG.MSG *)N(*! *)J(*! IDENT: X-17 *)N(*! *)R(*! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)R(*!  * *)R(*! COPYRIGHT 1996 BY * *)R(*! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * *)R(*! ALL RIGHTS RESERVED * *)R(*! * *)R(*! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)R(*! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)R(*! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)R(*! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)R(*! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)R(*! TRANSFERRED. * *)R(*! * *)R(*! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)R(*! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)R(*! CORPORATION. * *)R(*! * *)R(*! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)R(*! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)R(*!  * *)R(*! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)N(*!++ *)N(*! FACILITY: *)N(*! *)N(*! OPENVMS REGISTRY - SERVER *)N(*!  *)N(*! ABSTRACT: *)N(*! *)J(*! THIS MODULE CONTAINS THE REGISTRY ERROR MESSAGES *)N(*! *)N(*! AUTHORS: *)N(*! *)N(*! ELIE COHEN *)N(*! *)N(*! CREATION DATE: 25-JAN-1996 *)N(*! *)N(*! MODIFICATION HISTORY: *)N(*! *)N(*!  *)4(*! X-017 PRD PAUL R. DESTEFANO 17-JAN-2001 *)C(*! ADDED DTRWLOCKSELF AND DTRWLOCKLOCKED MESSAGES. *)N(*! *)7(*! X-016 MPD0134 MATTHEW DOREMUS 16-FEB-1999 *)C(*! ADDED MESSAGES: CVTDATATYPE, CANTOPENINFILE, & INVVALNAME. *)N(*! *)7(*! X-015 MPD0123 MATTHEW DOREMUS 14-JAN-1999 * )C(*! ADDED MESSAGES: INVTLV, ACTIVE, INACTIVE, & NOTSTARTED. *)N(*! *)4(*! X-014 PRD PAUL R. DESTEFANO 06-AUG-1998 *)C(*! FIX TYPOS, FIX CAPITALIZATION, REPHRASE A FEW MESSAGES. *)J(*! *)6(*! X-013 PRD PAUL R. DESTEFANO 01-JUL-1998 *)C(*! ADD IDNOTADDED AND NORESPONSE MESSAGES. *)N(*!  *)6(*! X-012 PRD PAUL R. DESTEFANO 29-JUN-1998 *)H(*! ADD /MACRO=$REGMSG TO THE .FACILITY DIRECTIVE. THIS INSURES THAT *)I(*! THE OUTPUT OF A MESSAGE/SDL CONTAINS A "module $REGMSG" STATEMENT *)G(*! AND THAT CONVERTING FROM .MSG TO .SDL TO .SDI TO .H (AS DONE BY *)F(*! THE BUILD OF THE [STARLET_H] FACILITY RESULTS IN A FILE CALLED *)F(*! REGMSG.H. WITHOUT THIS, THE MESSAGE GETS THE MODULE NAME FROM *)G(*! THE FACILITY NAME "REG" AND APPENDS "DEF" TO IT. THE RESULT IS *)G(*! A MODULE CALLED "REGDEF.H", WHICH CONFLICTS WITH ANOTHER HEADER *)C(*! MODULE OF THE SAME NAME. *)N(*! *)J(*! X-011 ELIE COHEN 14-MAR-1998 *)C(*! ADD NOTDELIVER MESSAGE *)J(*! X-010 ELIE COHEN 19-FEB-1998 *)C(*! ADD INVCREDENTIALS MESSAGE *)K(*!! X-009 ELIE COHEN 10-FEB-1998 *)C(*! ADD INVSECDESCRIPTOR MESSAGE *)J(*! X-008 ELIE COHEN 28-JAN-1998 *)C(*! REWORD CONTENT OF REG$_EXQUOTA *)J(*! X-007 ELIE COHEN 20-NOV-1997 *)C(*! ADD CANTCONVCS MESSAGE *)H(*! X-006  ELIE COHEN 13-AUG-1997 *)C(*! MODIFY INVDATA MESSAGE TEXT *)H(*! X-005 ELIE COHEN 12-AUG-1997 *)C(*! CORRECT TYPOS *)H(*! X-004 ELIE COHEN 23-MAY-1997 *)C(*! ADD STRINGTOOLONG MESSAGE *)H(*! X-003 PAT NELSON 03-APR-1997 *)C(*! ADD  KEYNAMEEXIST. EDITED MESSAGE TEXT *)N(*! X-002 KEN MATSUDA 28-MAR-1997 *)N(*! ADD INVDATA MESSAGE FOR INVALID VALUE ENTRIES. *)N(*! X-001 ELIE COHEN 25-JAN-1995 *)N(*! MODULE CREATION *)N(*!-- *) CONST REG$_FACILITY = 1862; REG$_KEYCHANGED = 122060803; REG$_NOMOREITEMS = 122060811;" REG$_NOMORESUBSTRING = 122060819; REG$_OBJWITHLINK = 122060827; REG$_REQRECEIVED = 122060835; REG$_IDNOTADDED = 122060843; REG$_DTRWLOCKSELF = 122060851; REG$_BADFILEVER = 122061200; REG$_DELROOTKEY = 122061208; REG$_DOUBLEDEALLOC = 122061216; REG$_HASLINK = 122061224; REG$_KEYEXIST = 122061232; REG$_VALUEEXIST = 122061240; REG$_NOKEY = 122061248; REG$_NOSUCHFILE = 122061256; REG$_NOVALUE = 122061264; REG$_NOTDELIVER = 122061272; REG$_CVTDATATYPE = 122061280; REG$_BUFFEROVF = 122061602; REG$_CANTCONVCS = 122061610; REG$_CANTCONVUNI = 122061618;" REG$_CANTOPENOUTFILE = 122061626;" REG$_DBALREADYLOADED = 122061634; REG$_DBCSMISMATCH = 122061642;! REG$_DBNOTYETLOADED = 122061650; REG$_DBVERMISMATCH = 122061658; REG$_DUPLREQUEST = 122061666; REG$_DTMUTEXERROR = 122061674; REG$_DTMUTEXINIT = 122061682; REG$_DTMUTEXLOCK = 122061690; REG$_DTMUTEXLOCKED = 122061698; REG$_DTMUTEXUNLOCK = 122061706; REG$_DTRWLOCKINIT = 122061714; REG$_DTRWLOCKLOCK = 122061722;! REG$_DTRWLOCKUNLOCK = 122061730; REG$_EXQUOTA = 122061738; REG$_FILECREATE = 122061746; REG$_FILENAMEINVAL = 122061754; REG$_FILEOPEN = 122061762; REG$_FILEREADEOF = 122061770; REG$_FNAMMISMATCH = 122061778; REG$_FSOCORRUPT = 122061786; REG$_FSOFILEINDEX = 122061794; REG$_FSOOFFSET = 122061802; REG$_FSOSEGNUMBER = 122061810; REG$_FSOSEGREADERR = 122061818; REG$_FTEALLOC = 122061826; REG$_FTEINUSE = 122061834; REG$_FTEDUPNAME = 122061842; REG$_FTEINSUFFINFO = 122061850;! REG$_FTEALREADYOPEN = 122061858; REG$_FTENOTOPEN = 122061866; REG$_FTENOTEXIST = 122061874;" REG$_FTEALREADYEXIST = 122061882; REG$_HAVESUBKEYS = 122061890;! REG$_INVCACHEACTION = 122061898; REG$_INVDATA = 122061906; REG$_INVDATATYPE = 122061914; REG$_INVFUNCCODE = 122061922; REG$_INVKEYID = 122061930; REG$_INVKEYFLAGS = 122061938; REG$_INVKEYNAME = 122061946; REG$_INVLINK = 122061954; REG$_INVLINKPATH = 122061962; REG$_INVLOG = 122061970; REG$_INVPARAM = 122061978; REG$_INVPATH = 122061986; REG$_INVSECPOLICY = 122061994; REG$_INVVOLROOTKEY = 122062002; REG$_IOREADERR = 122062010; REG$_IOWRITERR = 122062018; REG$_IPLTOOHIGH = 122062026; REG$_KEYLOCKED = 122062034; REG$_KEYNAMEEXIST = 122062042;! REG$_LOGFILETABFULL = 122062050; REG$_LTENOTEXIST = 122062058; REG$_MOREDATA = 122062066; REG$_NOTROOTKEY = 122062074; REG$_NOTSUPPORTED = 122062082; REG$_NOPATHFOUND = 122062090; REG$_RESERVED = 122062098; REG$_ROOTINSFILE = 122062106; REG$_RUIDMISMATCH = 122062114; REG$_SECVIO = 122062122; REG$_SEGREADERR = 122062130; REG$_STRINGTRUNC = 122062138;! REG$_SVRVERMISMATCH = 122062146; REG$_SVRSHUTDOWN = 122062154;! REG$_TOOMANYOPENKEY = 122062162; REG$_UNKTHRREQ = 122062170; REG$_VOLMISMATCH = 122062178; REG$_STRINGTOOLONG = 122062186;# REG$_INVSECDESCRIPTOR = 122062194; REG$_ACCESSDENIED = 122062202;! REG$_INVCREDENTIALS = 122062210; REG$_INVTLV = 122062218; REG$_ACTIVE = 122062226; REG$_INACTIVE = 122062234; REG$_NOTSTARTED = 122062242;! REG$_CANTOPENINFILE = 122062250; REG$_INVVALNAME = 122062258;! REG$_DTRWLOCKLOCKED = 122062266;" REG$_CANTCLEANVOLSEG = 122062404; REG$_DBACCESS = 122062412; REG$_DBCREATE = 122062420; REG$_DBFIND = 122062428; REG$_DBFULL = 122062436; REG$_DBLOAD = 122062444; REG$_FTIMISMATCH = 122062452; REG$_INTERNERR = 122062460; REG$_INVLOGREC = 122062468; REG$_INVSEGNUM = 122062476; REG$_IPCCONACC = 122062484; REG$_IPCCONREJ = 122062492; REG$_IPCDCLAST = 122062500; REG$_IPCOPEASS = 122062508; REG$_NOBLOCKFOUND = 122062516; REG$_NOMEMORY = 122062524; REG$_NOMORESEG = 122062532; REG$_NORESPONSE = 122062540; REG$_NOLOGNAM = 122062548; N(* END. *) N(* MODULE RMSDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD  *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7;  *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535;  *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607;  *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT( 30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $RMSDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:45.64 *)N(* *)H(* .TITLE RMSMSG -RMS COMPLETION CODES *)O(* ************************************************************************* *)O(* * * *)O(* * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1976, 1977, 1978, 1979, * *)O(* * 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, * *)O(* * 1991,1992-1999 * *)O(* * COMPAQ COMPUTER CORPORATION, 2000-2002 * *)O(* * HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., 2003-2005 * *)O(* * ALL RIGHTS RESERVED. * *)O(* * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *)O(* * STATES. * *)O(* * * *)O(* * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *)O(* * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *)O(* * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *)O(* * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *)O(* * DIGITAL EQUIPMENT CORPORATION. * *)O(* * * *)O(* * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *)O(* * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *)O(* * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *)O(* * * *)O(* ************************************************************************* *)N(*++ *)N(* FACILITY: RMS *)N(*  *)N(* ABSTRACT: *)N(* *)I(* THIS MODULE DEFINES ALL RMS COMPLETION CODES. *)N(* *)N(* ENVIRONMENT: *)N(*  *)I(* THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSMSG.MSG INTO *)I(* RMSMSG.SDL. THE SDL TRANSLATOR MUST THEN BE USED TO CONVERT *)I(* RMSMSG.SDL INTO RMSMSG.MAR (AND RMSMSG.B32). *)N(* *)K(* AUTHOR: LEO F. LAVERDURE, CREATION DATE: 10-DEC-1976 *)N(*  *)N(* MODIFIED BY: *)N(* *)?(* X-18 ACG0724 ANDY GOLDSTEIN, 10-FEB-2009 11:27 *)B(* ADD RMS$_IVSF MESSAGE FOR INVALID SYMLINKS *)N(* *)8(* X-17 EMW0362 ELINOR M. WOODS 02-MAY-2005 *)B(* ADD 2 NEW FATAL STATUSES RMS$_FOPEXTMBZ AND *)B(* RMS$_INVOP_SSIO (WITHOUT STV) FOR SSIO SUPPORT. *)N(* *)6(* X-16 SAD STUART A. DAVIDSON 5-OCT-2004 *)B(* ADD RMS$_ELOOP FOR SYMBOLIC LINK SUPPORT. ELOOP IS *)B(* RETURNED IF MORE THAN A CERTAIN NUMBER OF SYMBOLIC LINKS *)B(* ARE TRAVERSED IN A SINGLE FILE LOOKUP. *)N(* *)8(* X-15 EMW0300 ELINOR M. WOODS 03-JAN-2003 *)B(* KP THREADING CHANGE: ADD ONE NEW FATAL ERROR STATUS *)B(* (RSESTK_ALLOC) WITH AN ASSOCIATED STV THAT WILL CONTAIN *)B(* THE ACTUAL STATUS RETURNED BY EXE$KP_ALLOC_RSE_STACK_P2. *)N(* *)8(* X-14 EMW0196 ELINOR M. WOODS 08-SEP-1999 *)B(* BKT-LOCK ENHANCEMENTS: ADD ONE NEW FATAL ERROR *)B(* STATUS (CRBUFOBJ) WITH AN ASSOCIATED STV.  *)N(* *)8(* X-13 EMW0195 ELINOR M. WOODS 25-AUG-1999 *)B(* BKT-LOCK ENHANCEMENTS: ADD TWO NEW FATAL ERROR *)B(* STATUSES (BADGBD AND BADGBH). *)N(* *)4(* X-12 WBF BURNS FISHER 18-SEP-1997 *)B(* CHANGE NAMLESS AND NAMLRSS TO FATAL. ADD NAMLFSINV AND *)B(* NAMLFSSIZ.  *)N(* *)4(* X-11 WBF BURNS FISHER 18-JULY-1997 *)B(* INTEGRATE THE ONE HFS CHANGE INTO MAINSTREAM, AND ADD NAML *)B(* MESSAGE *)N(* *)0(* TAM0015 TERI A. MANSEAU 18-APR-1997 *);(* ADDED TWO NAML WARNING MESSAGES RMS$_NAMLESS  *);(* AND RMS$NAMLRSS. *)N(* *);(* X-10 EMW0132 ELINOR M. WOODS 11-APR-1997 *)B(* ADD NEW RMS-INTERNAL ERROR STATUS RMS$_EOFASY_SYNCH. *)B(* FOR INTERNAL USE ONLY; NEVER RETURNED TO USER. *)N(* *):(* X-9 EMW0084 ELINOR M. WOODS 08-FEB-1996 *)B(* PW INTEGRATION:  REMOVE NEW ALTERNATE SUCCESS STATUS: *)B(* RMS$_OK_URECEOF. ENDED UP NOT NEEDED. *)N(* *)@(* X-8 WDBPI1 WALTER D. BLASCHUK, JR. 19-DEC-1995 *)B(* PATHWORKS INTEGRATION: ADD NEW ALTERNATE SUCCESS *)B(* STATUS: RMS$_OK_URECEOF . THIS SYMBOL SIGNIFIES THAT AN *)B(* END-OF-FILE MARKER WAS ENCOUNTERED AND THERE WAS DATA *)B(* IN THE BUFFER. THIS OCCURS WHEN THE LAST RECORD OF A *)B(* SEQUENTIAL STREAM FILE DOES NOT HAVE A TERMINATING *)B(* CHARACTER. THIS IS A SUCCESS STATUS AND DOES NOT HAVE *)B(* A STV STATUS ASSOCIATED WITH IT. *)N(* *)N(* *)=(* X-7 EMW ELINOR M. WOODS 10-AUG-1994 *)B(* MERGE IN OPENVMS VAX DRAGON CHANGE: *)N(* *)9(* X-13 EMW0023 ELINOR M. WOODS 04-AUG-1994 *)B(* RMS$_KRF CAN BE RETURNED BY $CONNECT OR $REWIND, AS *)B(* WELL AS $GET/$FIND. MAKE TEXT ASSOCIATED WITH KRF *)B(* STATUS MORE GENERIC BY REMOVING "for $GET/$FIND." *)N(* *)=(* X-6 EMW ELINOR M. WOODS 30-JUN-1994 *)B(* MERGE IN OPENVMS VAX DRAGON CHANGE: *)N(* *);(* X-12 EMW0026 ELINOR M. WOODS 15-JUN-1994 *)B(* ADD ONE NEW USER-REPORTABLE STATUS: NXR *)B(* . THIS STATUS VALUE IS USED *)B(* AS AN STV ASSOCIATED WITH RNF STATUS (STS), AND IS *)B(* REPORTED FOR AN EXACT KEY MATCH OF A SECONDARY KEY *)B(* IF THE SECONDARY KEY ENTRY POINTS TO A NONEXISTENT *)B(* PRIMARY DATA RECORD IN DISK FILE. NOTE: RNF ERROR *)B(* STATUS PRE-EXISTED AS ERROR CODE WITHOUT STV. *)N(* *)N(* DEE RYAN 30-SEP-1993 *)N(* CORRECTED USE OF DIGITAL PRODUCT NAMES. *)N(*  *)3(* X-5 EMW ELINOR M. WOODS 28-SEP-1993 *)B(* MERGE IN OPENVMS VAX CORAL FIX: *)N(* *):(* X-10 EMW0019 ELINOR M. WOODS 21-SEP-1993 *)B(* ADD ONE NEW USER-REPORTABLE ERROR STATUS (WITH AN *)B(* ASSOCIATED STV): NETBTS. RELOCATE NEW IDXSEARCH STATUS *)B(* (SEE X-9) FROM "ERROR with STV" SECTION TO "ERROR WITHOUT *)B(* STV" section. Expand "WITH STV' AND "without STV" *)B(* COMMENTS TO CLARIFY DIFFERENCE BETWEEN TWO. *)N(* *)7(* X-4 EMW0016 ELINOR M. WOODS 10-AUG-1993 *)B(* MERGE IN CORAL FIX: *)N(* *)B(* MODIFY SEVERITY OF TWO DTF ERROR CODES (DTFACC AND  *)B(* DTFCRE) FROM FATAL TO ERROR, AS REQUESTED BY SNA/DTF *)5(* FACILITY. *)N(* *)B(* ALSO MOVE NEW IDXSEARCH STATUS FROM ERROR WITH NO *)B(* STV GROUPING TO ERROR WITH STV GROUPING. *)N(* *)7(* X-3 EMW0010 ELINOR M. WOODS 02-JUL-1993 *)B(* TO SUPPORT NEW KEY-LESS-THAN FUNCTIONALITY, ADDITION *)B(* OF ONE USER-REPORTABLE ERROR STATUS: IDXSEARCH, AND *)B(* TWO NEW RMS-INTERNAL ERROR STATUSES: LSCAN AND *)5(* ROOTSRCH. *)N(* *)5(* X-2 CW0019 CHRIS WHITAKER 11-NOV-1992 *)B(* MERGE IN OPENVMS VAX V6.0 CHANGES *)N(*  *)2(* X-8 JM0012 JOHN MUNZER 11-NOV-1992 *)B(* CHANGE TEXT FOR RMS$_LNE. *)N(* *)2(* X-7 JM0006 JOHN MUNZER 17-APR-1992 *)B(* ADD !XL PARAMETER TO RMS$_BUG TO REPORT R2. *)N(* *)4(* X-1 RAB RICHARD A. BISHOP 24-JUN-1991 *)B(* MOVED TO [STARLET] FACILITY  *)N(* *)I(* ================================== *)I(* OLD AUDIT TRAIL FOLLOWS: *)N(* *)<(* X-33 LSS0154 LEONARD S. SZUBOWICZ 4-APR-1990 *)B(* ALTER TEXT AND FAO PARAMETERS OF RMS$_RUH AND RMS$_BUG *)B(* CONDITION VALUES FOR RMS/DDTM SUPPORT. *)N(* *)4(* X-32 PJH PAUL J. HOULIHAN 17-JAN-1990 *)B(* CHANGE TEXT FOR RMS$_INCOMPSHR ERROR MESSAGE. *)N(* *)<(* X-31 LSS0130 LEONARD S. SZUBOWICZ 12-OCT-1989 *)B(* MERGE OF RMS/DDTM GENERATION X-30D2. *)D(* ADD GENERAL DDTM_ERR ERROR MESSAGE FOR DDTM SERVICE FA ILURES; *)C(* STV WILL CONTAIN THE FAILING SYSTEM SERVICE CONDITION VALUE. *)N(* *)<(* X-30 LSS0080 LEONARD S. SZUBOWICZ 06-OCT-1988 *)B(* ADD RMS$_OK_ACT MESSAGE FOR USE BY FUTURE WORK TO $DISPLAY. *)B(* THIS IS PART OF LATENT SUPPORT FOR RMS/DDTM. *)N(* *)8(* X-29 GJA0080 GARY J. ALLISON 06-JUN-1988 *)B(* CHANGE TEXT OF SEMANTICS MESSAGE. *)N(* *)8(* X-28 GJA0072 GARY J. ALLISON 02-MAR-1988 *)B(* ADD EXT_ERR, OPNOTSUP, EXTNOTFOU, AND SEMANTICS MESSAGES. *)N(* *)7(* X-27 PMV0072 PETER M. VATNE 08-OCT-1987 *)B(* CHANGE RMS$_NOJNLLIC TO RMS$_JNLNOTAUTH. *)N(*   *)=(* X-26 LSS0057 LEONARD S. SZUBOWICZ 15-SEP-1987 *)C(* CHANGE TEXT FOR THE RMS$_OK_DUP STATUS SUCH THAT THE MESSAGE *)B(* IS APPLICABLE TO $GET AS WELL AS $PUT. *)N(* *)7(* X-25 PMV0068 PETER M. VATNE 11-SEP-1987 *)B(* ADD RMS$_NOJNLLIC, NO RMS JOURNALING LICENSE, FOR LMF. *)N(*   *)9(* X-24 RNM0026 RUSSELL N. MURRAY 15-AUG-1987 *)B(* ADD RMS$_SYNCH MESSAGE FOR NOTIFICATION OF SYNCHRONOUS *)B(* COMPLETION. *)N(* *)8(* X-23 JEJ0479 JAMES E JOHNSON 13-AUG-1987 *)B(* ADD RMS$_IVATRACE MESSAGE. *)N(* *)7(* X-22 PMV0061 PETER M. VATNE 03-AUG-1987 *)F(* CHANGE RESERVED MESSAGE RMS$_BUG_XX5 TO RMS$_BUG_RU_COMMIT_FAIL *)B(* TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_COMMIT_FAIL. *)N(* *)=(* X-21 LSS0042 LEONARD S. SZUBOWICZ 13-MAY-1987 *)E(* CHANGE RESERVED MESSAGE RMS$_BUG_XX4 TO RMS$_BUG_RU_ABORT_FAIL *)B(* TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_ABORT_FAIL *)I(*   *):(* X-20 SAD0034 STUART A. DAVIDSON 12-MAR-1987 *)B(* DROP QUOTES FROM SNADTF MESSAGE TEXT. *)N(* *)4(* X-19 PJH PAUL J. HOULIHAN 19-JAN-1987 *)B(* MERGE IN 17J1. *)N(* *)/(* X-17J1 PJH PAUL J. HOULIHAN 15-JAN- 1987 *);(* FIX SEVERAL SMALL JNL PROBLEMS. *);(* ADD RMS$_BUG_FLUSH_JNL_FAILED CODE. *)N(* *)9(* X-18 KPS0148 KENNETH P. SIEGEL 04-DEC-1986 *)B(* ADDED SNPPF (STATISTICS MONITORING NOT SUPPORTED FOR *)B(* PROCESS PERMANENT FILES) ERROR MESSAGE. *)N(* *)7(* X-17 PMV0025  PETER M. VATNE 24-NOV-1986 *)B(* ADD NEW MESSAGE, RMS$_NOTSAMEJNL. THIS STATUS IS *)B(* USED TO RESTRICT AI/BI WITH RU JOURNALING TO A *)B(* SINGLE LONG-TERM JOURNAL FILE. *)N(* *)4(* X-16 DAS DAVID A. SOLOMON 18-NOV-1986 *)E(* ADD NEW MESSAGE, RMS$_DELJNS. REMOVE RMS$_XCR (BY REPLACING IT *)B(* WITH A PLACEHOLDER), AS JOURNALING BITS ARE NO LON GER *)B(* SPECIFIED IN THE $XABJNL. SLIGHT WORDING CHANGE ON DETACHED *)B(* RU RECOVERY ERROR MESSAGES. *)N(* *)4(* X-15 DAS DAVID A. SOLOMON 12-NOV-1986 *)B(* FIX ERROR IN X-5/X-6: JOURNALING VARIANT NOT MERGED *)B(* CORRECTLY, RESULTING IN SEVERAL JOURNALING MESSAGES NUMBERS *)B(* BEING DIFFERENT IN THE MAININE THAN WHAT THEY WERE ON THE *)C(* JOURNALING VARIANT. ALSO, MOVE NEW SNADTF MESSAGES TO RE-USE *)B(* AVAILABLE UNUSED MESSAGE NUMBERS, INSTEAD OF GENERATING NEW *)B(* ONES. FINALLY, CHANGE RMS$_BUG_ABORT TO RMS$_BUG_RU_ACTIVE. *)N(* *):(* X-14 SAD0014 STUART A. DAVIDSON 4-NOV-1986 *)B(* SNADTF - FIX TYPO IN DTFACC, DTFCRE *)N(* *):(* X-13 SAD0014 STUART A. DAVIDSON 3-NOV-1986 *)B(* SNADTF - FIX TYPO, ADD 2 ADDITIONAL MESSAGES. *)N(* *)8(* X-12 JEJ0377 JAMES E JOHNSON 29-OCT-1986 *)B(* ADD NOEXTEND ERROR CODE TO FLAG FAILED RELATIVE FILE *)B(* EXTENDS DUE TO PREVIOUS FAILURES. *)N(* *)9(* X-11 KPS0131 KENNETH P. SIEGEL 25-OCT-1986  *)B(* ADDED SNS ERROR CODE FOR STATISTICS NOT SUPPORT ON *)B(* NON-DISK DEVICES. *)N(* *)9(* X-10 SAD009 STUART A. DAVIDSON 06-OCT-1986 *)B(* ADD COMPLETION CODES FOR SNADTF (IBM DATA XFER) *)N(* *)7(* X-9 GJA0003 GARY J. ALLISON 29-SEP-1986 *)B(* ADD DETACHED RECOVERY ERROR MESSAGES *)N(* *)6(* X-8 PMV0008 PETER M. VATNE 24-SEP-1986 *)B(* MODIFY RMS$_ACC_AIJ, RMS$_ACC_BIJ, AND RMS$_ACC_ATJ *)B(* TO ALSO OUTPUT THE STV. *)N(* *)2(* X-7 JWT0243 JIM TEAGUE 2-SEP-1986 *)B(* ADD NEW ERRORS FOR COLLATED KEYS.  *)N(* *)3(* X-6 GJA GARY J. ALLISON 29-JUL-1986 *)B(* REMOVE DUPS FROM JNL MERGE. *)N(* *)3(* X-5 GJA GARY J. ALLISON 29-JUL-1986 *)B(* MERGE JOURNALING INTO MAINLINE *)N(* *).(* X- 3J6 DAS DAVID A. SOLOMON 14-APR-1986 *)C(* REMOVE RMS$_RUH_FILE (USING A GENERAL RUF MESSAGE INSTEAD). *)<(* CHANGE RMS$_RUH TEXT TO NOT HAVE FAO PARAMETERS. ADD *);(* RMS$_BUG_RURECERR. *)I(* *)2(* X-3J5 JEJ0302 JAMES E JOHNSON 4-APR-1986 *);(* ADD RMS$_RRF (ERROR DURING RU RECOVERY) AND *)F(* RMS$_RUH/RMS$_RUH_FILE (USED TO FORM TEXT OF RU HANDLER ERRORS *);(* SENT TO OPCOM). *)I(* *)2(* X-3J4 JEJ0272 JAMES E JOHNSON 11-FEB-1986 *);(* ADD RMS$_RUF, RMS$_BUG_ABORT CODES. *)I(* *)2(* X-3J3 JEJ0237 JAMES E JOHNSON 16-DEC-1985 *);(* ADD RMS$_RUNDOWN CODE *)I(* * )2(* X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985 *)>(* ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE *);(* THE GENERIC ERRWRTJNL CODE. *)N(* *)7(* X-4 JEJ0216 JAMES E JOHNSON 18-NOV-1985 *)B(* MERGE X-3J2 INTO MAIN LINE FOR V4.4. *)N(* *)2(* X-3J2 JEJ0205 JAMES E JOHNSON 25 -OCT-1985 *)>(* ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE *);(* THE GENERIC ERRWRTJNL CODE. *)N(* *)7(* X-3 JEJ0161 JAMES E JOHNSON 9-SEP-1985 *)B(* UPDATE RMS JOURNALING MESSAGES. *)N(* *)2(* X-2 JWT0212 JIM TEAGUE 4-SEP-1985 *)B(* ADD (WHAT IS FOR NOW) AN INTERNAL STATUS CODE TO *)B(* DIFFERENTIATE BETWEEN FINDING A DELETED RECORD (DEL) *)B(* AND FINDING IT BUT WITH A DIFFERENT KEY (KEY_MISMATCH). *)B(* *)8(* V03-024 RAS0314 RON SCHAEFER 21-JUN-1984 *)B(* WORK OVER THE MESSAGES ONE MORE TIME: FIX TYPO IN OK_RNF, *)B(* DELETE ACPEOF ERROR, DELETE WSF ERROR. *)N(*  *)8(* V03-023 RAS0282 RON SCHAEFER 28-MAR-1984 *)B(* MINOR TEXT CHANGES AND COMMENTS ADDED. *)B(* DELETE RMS$_COP ERROR. *)N(* *)9(* V03-022 DAS0005 DAVID SOLOMON 19-MAR-1984 *)B(* REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW *)B(* IMPLEMENTATION FOR ECHO SYS$INPUT -> SYS$OUTPUT). *)N(*  *)6(* V03-021 JWT0150 JIM TEAGUE 01-FEB-1984 *)B(* ADD RMS$_IFF FOR TRYING TO WRITE-ACCESS A FILE ON *)B(* MAGTAPE THAT HAS NON-0 VALUE FOR ANSI BUFFER OFFSET. *)N(* *)8(* V03-020 RAS0233 RON SCHAEFER 9-JAN-1984 *)B(* ADD RMS$_NOVALPRS ERROR FOR $SEARCH NOT PRECEDED BY *)B(* VALID $PARSE.  *)N(* *)6(* V03-019 JWT0148 JIM TEAGUE 20-DEC-1983 *)B(* ADD A JNL XAB ERROR FOR CONFLICTING RU ATTRIBUTES *)B(* ON $CREATE: RMS$_XCR. *)N(* *)8(* V03-018 RAS0171 RON SCHAEFER 28-JUL-1983 *)B(* ADD RMS$_BUSY; A STRUCTURE-LESS ERROR (R0-ONLY STATUS) *)B(* REPLACING TEMP3. *)N(* *)9(* V03-017 DAS0004 DAVID SOLOMON 28-JUN-1983 *)B(* ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR ZALEWSKI. *)N(* *)<(* V03-016 KPL0007 PETER LIEBERWIRTH 8-JUN-1983 *)B(* FIX SPELLING IN JNL ERROR MESSAGES, ADD CJF ERROR WHICH *)B(* WILL SOON SUBSUME COP AND CQE. *)N(* *)9(* V03-015 DAS0003 DAVID SOLOMON 18-FEB-1983 *)B(* ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW). *)N(* *)<(* V03-014 KBT0497 KEITH B. THOMPSON 18-FEB-1983 *)B(* ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT) *)N(*  *)8(* V03-013 RAS0120 RON SCHAEFER 2-FEB-1983 *)B(* ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO OF SYS$INPUT *)B(* TO SYS$OUTPUT. *)N(* *):(* V03-012 JWH0174 JEFFRY W. HORN 24-JAN-1983 *)B(* ADD CQE AND COP ERRORS. *)N(* *)<(* V03-011 KPL0006 PETER LIEBERWIRTH 7-JAN-1983 *)B(* ADD OK_RULK FOR RECOVERY UNIT SUPPORT. *)N(* *)B(* ADD REENT ERROR FOR $RENAME. *)B(* *);(* V03-009 JWH0153 JEFFREY W. HORN 8-DEC-1982 *)B(* ADD NRU ERROR. *)N(* ! *);(* V03-008 JWH0152 JEFFREY W. HORN 8-DEC-1982 *)B(* ADD JNS ERROR. *)N(* *)<(* V03-007 MCN0002 MARIA DEL C. NASR 15-NOV-1982 *)B(* REPLACE ORD ERROR CODE ELIMINATED BY MCN0001, SINCE *)B(* THE NETWORK CODE REFERENCES IT. *)N(* " *)<(* V03-006 MCN0001 MARIA DEL C. NASR 26-OCT-1982 *)B(* PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER *)B(* INSTEAD OF XAB ADDRESS FOR ERRORS RETURNED DURING *)B(* INDEXED FILE CREATION. ALSO RENAME ALL UNUSED ERROR *)B(* CODES TO TEMP. *)N(* *);(* V03-005 JWH0102 JEFFREY W. HORN 24-SEP-1982 # *)B(* ADD RUP ERROR. *)N(* *)8(* V03-004 RAS0095 RON SCHAEFER 7-SEP-1982 *)B(* ADD OVRDSKQUOTA ERROR. *)N(* *);(* V03-002 JWH0002 JEFFREY W. HORN 26-JUL-1982 *)B(* CONVERT TO .MSG FORMAT. ADD RUM ERROR. *)N(* $ *);(* V03-001 JWH0001 JEFFREY W. HORN 20-JUL-1982 *)B(* ADD JNF, JOP, AND NOJ ERRORS. *)N(* *)<(* V02-042 KPL0005 PETER LIEBERWIRTH 4-FEB-1982 *)B(* ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$_DEADLOCK *)B(* CORRECTLY. *)N(* % *)>(* V02-041 CDS0001 C D SAETHER 24-JAN-1982 *)B(* ADD GBC AND CRMP ERRORS. *)N(* *)=(* V02-040 JAK0069 J A KRYCKA 15-JAN-1982 *)B(* ADD SUPPORT AND NETFAIL ERROR CODES. *)N(* *)=(* V02-039 JAK0068 J A KRYCKA 31-DE&C-1981 *)B(* MODIFY TEXT FOR SUP, NET, BUG_DAP, AND ENV ERROR MESSAGES. *)N(* *)B(* V02-038 LJA0001 LAURIE ANDERSON 20-DEC-1981 *)B(* MODIFIED SOME MESSAGES TO READ BETTER. *)N(* *)=(* V02-037 JAK0063 J A KRYCKA 31-AUG-1981 *)B(* ADD CRE_STM SUCCESS CODE. ' *)N(* *)<(* V02-036 KPL0004 PETER LIEBERWIRTH 13-JAN-1981 *)C(* ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE $ENQ/$DEQ FAILURE. *)B(* ALSO ADD SUCCESS CODES OK_RRL, AND OK_WAT. *)N(* *)=(* V02-035 REFORMAT J A KRYCKA 30-JUL-1980 *)N(* ( *)N(*-- *) CONST RMS$_FACILITY = 1;G RMS$V_STVSTATUS = 14; (* MOVE TO BIT 14 OF THE *) N(* STATUS CODE IT INDICATES *)N(* THAT STV CONTAINS A SECONDARY *)N(* STATUS CODE. *) CONST RMS$_SUC = 65537; RMS$_NORMAL = 65537; N(*+ ) *)N(* *)I(* SUCCESS CODES *)N(* *)N(*- *)N(* BIT 16 = BIT 15 = 1 *) CONST RMS$_STALL = 98305; *N(* (NOTE: USER NEVER RECEIVES THIS CODE) *) CONST RMS$_PENDING = 98313; RMS$_OK_DUP = 98321; RMS$_OK_IDX = 98329; N(* (RECORD HAS BEEN INSERTED, BUT INDEX STRUCTURE IS NO LONGER *)N(* OPTIMAL.) *) CONST RMS$_OK_RLK = 98337; N(* (BECAUSE LOCKER SET RLK IN ROP FIELD WHEN RECORD WAS LOCKED.) *) CONST RMS$_OK_RRL = 98345; N(* (BECAUSE READER SET RRL + IN ROP FIELD WHEN ACCESSING RECORD.) *)N(* (THIS CODE USED TO BE OK_RRV) *)G(*OK_RRV ;MSG *)N(* (BUT IT MAY NOT BE ACCESSIBLE VIA ONE-OR-MORE SECONDARY KEYS, *)N(* AND NOT BY RFA ADDRESSING. FILE RE-ORGANIZATION RECOMMENDED!) *) CONST RMS$_KFF = 98353; RMS$_OK_ALK = 98361; RMS$_OK_DEL = 98369; RMS$_OK_RNF = 98377; RMS$_OK_LIM = 98385; RMS$_OK_NOP, = 98393; RMS$_OK_WAT = 98401; N(* (BECAUSE WAT BIT IN ROP WAS SET AND RECORD WAS ALREADY *)N(* LOCKED.) *) CONST RMS$_CRE_STM = 98409; RMS$_OK_RULK = 98417; RMS$_SYNCH = 98425; RMS$_OK_ACT = 98433; RMS$_OK_NOCURTID = 98441; N(*+ *)N(* *)B(* SUCCESS - CODES PASSED THRU FROM DRIVERS AND ACP - BIT 15 = 0 *)N(* *)N(*- *) NCONST RMS$_CONTROLC = 67153; (* TERMINAL I/O ABORTED DUE TO CTRL/C *) RMS$_CONTROLO = 67081; N(* TERMINAL I/O ABORTED DUE TO CTRL/O *) CONST RMS$_CONTROLY = 67089; N(* TERMINAL I/O ABORTED DUE TO CTRL/Y . *) CONST RMS$_CREATED = 67097; N(* FILE WAS CREATED, NOT OPENED *) CONST RMS$_SUPERSEDE = 67121; N(* CREATED FILE SUPERSEDED EXISTING VERSION *) CONST RMS$_OVRDSKQUOTA = 67177; N(* DISK USAGE EXCEEDS DISK QUOTA *) CONST RMS$_FILEPURGED = 67193; N(* CREATE FILE CAUSED OLDEST FILE *)N(*/ VERSION TO BE PURGED *)N(*+ *)N(* *)I(* WARNING CODES *)N(* *)N(*- *)N(* BIT 16 = BIT 15 = 1, BIT 14 =0 0 *) CONST RMS$_BOF = 98712; RMS$_RNL = 98720; RMS$_RTB = 98728; RMS$_TMO = 98736; RMS$_TNS = 98744; RMS$_BES = 98752; RMS$_PES = 98760; N(*+ *)N(* *)K(* ERROR CODES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED *)B(* CONDITION CODE IS IN STV) *)1N(* *)N(*- *)N(* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_ACT = 98906; RMS$_DEL = 98914; RMS$_INCOMPSHR = 98922; RMS$_DNR = 98930; RMS$_EOF = 98938; RMS$_FEX = 98946; RMS$_FLK = 98954; RMS$_FNF = 98962; RMS$_PRV = 98970; RMS$_REX = 98978; RMS$_RLK = 98986; RMS$_RNF = 98994; N(* 2(RECORD NEVER WAS IN FILE, OR HAS BEEN DELETED.) *) CONST RMS$_WLK = 99002; RMS$_EXP = 99010; RMS$_NMF = 99018; RMS$_SUP = 99026; N(* (NOTE THAT SUPPORT HAS REPLACED SUP EXCEPT WHEN RMS CANNOT *)N(* MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.) *)N(* (NOTE ALSO THAT SUP SHOULD HAVE BEEN DEFINED AS A SEVERE *)N(* ERROR CODE. HOWEVER, SUPPORT IS A SEVERE ERROR CODE.) *) CONST RMS$_R3SA = 99034; RMS$_CRC = 99042; RMS$_WCC = 99050; RMS$_IDR = 99058; RMS$_LWC = 99066; RMS$_UNUSED1 = 99074; RMS$_NOVALPRS = 99082; RMS$_KEY_MISMATCH = 99090; RMS$_RUH = 99098; RMS$_JND = 99106; RMS$_BADPHASE = 99114; RMS$_TOWDR = 99122; RMS$_NEXDR = 99130; RMS$_INVDRMSG = 99138; RMS$_RU_ACTIVE = 99146; RMS$_UNKRUFAC = 99154; RMS$_LIMBO = 99162; RMS$_IVATRACE = 99170; RMS$_OPNOTSUP = 99178; RMS$_EXTNOTFOU = 99186; RMS$_EXT_ERR = 99194; RMS$_SEMANTICS = 994202; RMS$_LSCAN = 99210; RMS$_ROOTSRCH = 99218; RMS$_IDXSEARCH = 99226; RMS$_NETBTS = 99234; RMS$_NXR = 99242; N(* IF EXACT KEY MATCH ON SECONDARY KEY AND SECONDARY KEY *)N(* ENTRY POINTS TO NONEXISTENT PRIMARY DATA RECORD IN *)N(* DISK FILE. *) CONST RMS$_EOFASY_SYNCH = 99250; RMS$_ELOOP = 99258; N(*+ 5 *)N(* *)\(* ERROR CODES - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) *)N(* *)N(*- *)N(* BIT 16 = BIT 15 = BIT 14 = 1 *) CONST RMS$_ACC = 114690; RMS$_CRE = 114698; RMS$_DAC = 114706; RMS$_ENT = 6114714; RMS$_EXT = 114722; RMS$_FND = 114730; RMS$_MKD = 114738; RMS$_DPE = 114746; RMS$_SPL = 114754; RMS$_DNF = 114762; RMS$_RUF = 114770; RMS$_WRTJNL_AIJ = 114778; RMS$_WRTJNL_BIJ = 114786; RMS$_WRTJNL_ATJ = 114794; RMS$_WRTJNL_RUJ = 114802; RMS$_RRF = 114810; RMS$_DDTM_ERR = 114818; N(*+ *)N(* *)R(* SEVERE ERROR CO 7DES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED *);(* CONDITION CODE IS IN STV) *)N(* *)N(*- *)N(* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_DTFCDDREC = 99308; RMS$_AID = 99316; RMS$_ALN = 99324; RMS$_ALQ = 99332; RMS$_ANI = 99340; RMS$_AOP = 99348; R8MS$_BKS = 99356; RMS$_BKZ = 99364; RMS$_BLN = 99372; RMS$_BUG = 99380; RMS$_BUG_DDI = 99388; RMS$_BUG_DAP = 99396; RMS$_BUG_RU_ACTIVE = 99404; RMS$_BUG_RURECERR = 99412;# RMS$_BUG_FLUSH_JNL_FAILED = 99420; RMS$_BUG_RU_ABORT_FAIL = 99428;! RMS$_BUG_RU_COMMIT_FAIL = 99436; RMS$_BUG_XX6 = 99444; RMS$_BUG_XX7 = 99452; RMS$_BUG_XX8 = 99460; RMS$_BUSY = 99468; RMS$_CCR = 99476; RMS$_CHG = 99484; RMS$_CHK = 99492; RMS$_COD = 99500; RMS$_CUR = 99508; RMS$_DAN = 99516;9 RMS$_DEV = 99524; RMS$_DIR = 99532; RMS$_DME = 99540; RMS$_DNA = 99548; RMS$_DTP = 99556; RMS$_DUP = 99564; RMS$_DVI = 99572; RMS$_ESA = 99580; RMS$_ESS = 99588; RMS$_FAB = 99596; RMS$_FAC = 99604; RMS$_FLG = 99612; RMS$_FNA = 99620; RMS$_FNM = 99628; RMS$_FSZ = 99636; RMS$_FOP = 99644; RMS$_FUL = 99652; RMS$_IAL = 99660; RMS$_IAN = 99668; RMS$_IDX = 99676; RMS$_IFI = 99684; RMS$_IMX = 99692; RMS$_IOP = 99700; RMS$_IRC = 99708; RMS$_ISI = 99716; RMS:$_KBF = 99724; RMS$_KEY = 99732; RMS$_KRF = 99740; RMS$_KSZ = 99748; RMS$_LAN = 99756; RMS$_RUNDOWN = 99764; RMS$_LNE = 99772; RMS$_DTFCVT = 99780; RMS$_MRN = 99788; RMS$_MRS = 99796; RMS$_NAM = 99804; RMS$_NEF = 99812; RMS$_DTFQUASYN = 99820; RMS$_NOD = 99828; RMS$_NPK = 99836;G RMS$_ORD = 99844; (*! NOT USED AS OF V4 *) RMS$_ORG = 99852; RMS$_PBF = 99860; RMS$_PLG = 99868; RMS$_POS = 99876; RMS$_DTFQUAVAL = 99884; RMS$_QUO = 9989;2; RMS$_RAB = 99900; RMS$_RAC = 99908; RMS$_RAT = 99916; RMS$_RBF = 99924; RMS$_RFA = 99932; RMS$_RFM = 99940; RMS$_RHB = 99948; RMS$_RLF = 99956; RMS$_ROP = 99964; RMS$_RRV = 99972; RMS$_RVU = 99980; RMS$_RSS = 99988; RMS$_RST = 99996; RMS$_RSZ = 100004; RMS$_SEQ = 100012; RMS$_SHR = 100020; RMS$_SIZ = 100028; RMS$_SQO = 100036; RMS$_DTFSESEST = 100044; RMS$_SYN = 100052; RMS$_TRE = 100060; RMS$_TYP = 100068; RMS$_UBF = 100076; RMS$_USZ = 1000<84; RMS$_VER = 100092; RMS$_XNF = 100100; RMS$_XAB = 100108; RMS$_ESL = 100116; RMS$_DTFSESTER = 100124; RMS$_ENV = 100132; RMS$_PLV = 100140; RMS$_MBC = 100148; RMS$_RSL = 100156; RMS$_WLD = 100164;a RMS$_NET = 100172; (* (NOTE THAT NETFAIL HAS REPLACED NET EXCEPT WHEN RMS CANNOT *) N(* MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.) *) CONST RMS$_IBF = 100180; RMS$_REF = 100188; RMS$_IFL = 100196; RMS$_DFL = 1002=04; RMS$_KNM = 100212; RMS$_IBK = 100220; RMS$_KSI = 100228; RMS$_LEX = 100236; RMS$_SEG = 100244;G RMS$_SNE = 100252; (*! NOT USED AS OF V4 *)G RMS$_SPE = 100260; (*! NOT USED AS OF V4 *) RMS$_UPI = 100268; RMS$_ACS = 100276; RMS$_STR = 100284; RMS$_FTM = 100292; RMS$_GBC = 100300; RMS$_DEADLOCK = 100308; RMS$_EXENQLM = 100316; RMS$_JOP = 100324; RMS$_RUM = 100332; RMS$_JNS = 100340; RMS$_NRU = 10 >0348; RMS$_IFF = 100356; RMS$_DTFTRATBL = 100364; RMS$_DTFUNSTYP = 100372; RMS$_DTFVERMIS = 100380; N(*+ *)N(* *)I(* ERROR CODES - WITHOUT STV *)N(* *)J(* DTFACC AND DTFCRE WERE ORIGINALLY INCLUDED IN THIS FATAL SEVERITY ?*)I(* (NO STV) GROUPING. IN ORDER TO CHANGE THEIR SEVERITY TO ERROR *)I(* (NO STV) AND RETAIN THE SAME MESSAGE CODE VALUE, THE FOLLOWING *)I(* SHIFTS IN SEVERITY FROM FATAL TO ERROR AND THEN BACK AGAIN ARE *)J(* DONE, WHILE RETAINING THE SAME ORIGINAL BASE ASSOCIATED WITH EACH. *)N(* *)N(*- *)N(* BIT 16 = BIT 15 = 1, BIT 14 = 0 @ *) CONST RMS$_DTFACC = 100386; N(*+ *)N(* *)I(* SEVERE ERROR CODES - WITHOUT STV *)N(* *)N(*- *)N(* BIT 16 = BIT 15 = 1, BIT 14 A = 0 *) CONST RMS$_BOGUSCOL = 100396; RMS$_ERRREADCOL = 100404; RMS$_ERRWRITECOL = 100412; RMS$_SNS = 100420;G RMS$_NOEXTEND = 100428; (*+ *) N(* *)I(* ERROR CODES - WITHOUT STV *)N(* *)N(*- B *)N(* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_DTFCRE = 100434; N(*+ *)N(* *)I(* SEVERE ERROR CODES - WITHOUT STV *)N(* *)N(*- C *)N(* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_DELJNS = 100444; RMS$_NOTSAMEJNL = 100452; RMS$_SNPPF = 100460; RMS$_NAML = 100468; RMS$_NAMLESS = 100476; RMS$_NAMLRSS = 100484; RMS$_NAMLFSSIZ = 100492; RMS$_NAMLFSINV = 100500; RMS$_BADGBH = 100508; RMS$_BADGBD = 100516; RMS$_FOPEXTMBZ = 100524; RMS$_INVOP_SSIO = 100532; RMS$_IVSF = 100540; N(*+ D *)N(* *)^(* SEVERE ERRORS - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) *)N(* *)N(*- *)N(* BIT 16 = BIT 15 = BIT 14 = 1 *) CONST RMS$_ATR = 114892;E RMS$_ATW = 114900; RMS$_CCF = 114908; RMS$_CDA = 114916; RMS$_CHN = 114924; RMS$_RER = 114932; RMS$_RMV = 114940; RMS$_RPL = 114948; RMS$_SYS = 114956; RMS$_WER = 114964; RMS$_WPL = 114972; RMS$_IFA = 114980; RMS$_WBE = 114988; RMS$_ENQ = 114996; RMS$_NETFAIL = 115004; RMS$_SUPPORT = 115012; RMS$_CRMP = 115020; RMS$_DTFCFGFIL = 115028; RMS$_REENT = 115036; RMS$_ACC_RUJ = 115044; RMS$_TMR = 115052; RMS$_ACC_AIJ = 115060; RMS$_ACC_BIJ = 11F5068; RMS$_ACC_ATJ = 115076; RMS$_DTFDEFFIL = 115084; RMS$_DTFREGFIL = 115092; RMS$_JNLNOTAUTH = 115100; RMS$_CRBUFOBJ = 115108; RMS$_RSESTK_ALLOC = 115116; N(* END. *) N(* MODULE RMSFALMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD G= [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; H*)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; I *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; J *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 =K [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; L *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..335M54431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 N = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FALDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:46.01 *)N(* *)N(* *)J(* VERSION: 'X-1' *)N(* O *)Q(***************************************************************************** *)(** * *)8(** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF P SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT Q * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(*++ R *)N(* FACILITY: *)N(* *)J(* MESSAGES ARE FOR THE FAL (DECNET FILE ACCESS LISTENER) FACILITY, BUT *)I(* ARE GENERATED ON BEHALF OF FAL BY RMS. *)N(* *)N(* ABSTRACT: *)N(* S *)K(* THIS MODULE DEFINES FAL STATUS CODE SYMBOLS AND CORRESPONDING MESSAGE *)J(* TEXT. NOTE THAT THIS MESSAGE FILE IS MAINTAINED BY THE RMS FACILITY, *)J(* NOT THE FAL FACILITY, BECAUSE RMS DOES THE TRANSLATION OF DAP STATUS *)N(* INTO FAL STATUS CODES WHICH ARE REPORTED AS SECONDARY STATUS INFORMATION *)M(* TO THE RMS$_NETFAIL AND RMS$_SUPPORT COMPLETION CODES ON BEHALF OF FAL. *)N(* T *)N(* ENVIRONMENT: VAX/VMS *)N(* *)I(* AUTHOR: JAMES A. KRYCKA, CREATION DATE: 15-JAN-1982 *)N(* *)N(* MODIFIED BY: *)N(* *)4(* X-1 RAB URICHARD A. BISHOP 24-JUN-1991 *)B(* MOVED TO [STARLET] FACILITY *)N(* *)I(* ================================== *)I(* OLD AUDIT TRAIL FOLLOWS: *)N(* *)8(* X-3 SAD009 STUART A. DAVIDSON 06-OCT-1986 *)B(* ADD STATUS CODES FOR SVNADTF. *)N(* *)3(* X-2 DAS DAVID A. SOLOMON 01-AUG-1986 *)B(* REMOVE /MACRO= ON .FACILITY SO THE PROPER MACROS WILL *)B(* BE GENERATED IN THE SDL FILE. *)N(* *)=(* V03-001 JAK0147 J A KRYCKA 09-JUL-1984 *)B(* ADD ERROR CODES THAT CORRESPOND TO DAP MICCODEWS 416 TO 470 *)B(* (OCTAL) FOR MACCODES 4 THROUGH 7 DEFINED IN THE DAP V7.0 *)B(* SPECIFICATION. *)N(* *)N(*-- *)N(*++ *)N(* DEFINE FAL STATUS CODES FOR USE BY RMS AS SECONDARY STATUS CODES. *)N(* X *)N(* LAYOUT OF MESSAGE SPACE: *)N(* *);(* MSG NUMBERS MSG NUMBERS MSG CODES DESCRIPTION *)A(* (DECIMAL) (HEXADECIMAL) (HEXADECIMAL) *)N(* *)=(* 0 - 1023 0000 - 03FF 8000 - 9FFF UNUSED *)=(* 1024 - 2047 0400 - 07 YFF A000 - BFFF FOR RMS$_NETFAIL *)=(* 2048 - 4095 0800 - 0FFF C000 - FFFF FOR RMS$_SUPPORT *)N(*-- *) CONST FAL$_FACILITY = 503; N(*+ *)R(* DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_NETFAIL COMPLETION *)N(* CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. *)N(* Z *)N(* USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITH *)P(* MACCODE = 4 THRU 7) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): *)N(* *)I(* MESSAGE-CODE = (2**15 + ((MICCODE + 1024) * 8) + SEVERITY-LEVEL) *)N(* *)M(* NOTE: THE FIRST THREE CHARACTERS OF THE MESSAGE IDENTIFICATION MNEM[ONIC *)I(* FOR EACH MESSAGE CODE IN THIS SET INDICATES ITS ORIGIN AS FOLLOWS: *)N(* *)K(* RMS --- THE CODE IS DEFINED FOR RMS-11 OR RMS-20, BUT NOT FOR RMS-32. *)B(* (RMS-32 COMPLETION CODES ARE DEFINED IN RMSDEF.MDL.) *)I(* FCS --- THE CODE IS DEFINED FOR THE FCS-11 ENVIRONMENT. *)I(* TEN --- THE CODE IS DEFINED FOR THE TOPS-10 ENVIRONMENT. *)I(* DAP --- ORIGIN IN THE DAP SPECIFICATION\ IS UNKNOWN. *)N(*- *) CONST FAL$_OFFSET_A = 1024; N(* MICCODE = 0000 (OCTAL) *) CONST FAL$_DAPFAIL = 33005572; FAL$_RMSABO = 33005580; N(* MICCODE = 0011 (OCTAL) *) CONST FAL$_RMSAST = 33005644; FAL$_RMSBPA = 33005652; FAL$_RMSBPS = 33005660; N(* MICCODE = 0026 (OCTAL) ] *) CONST FAL$_RMSCLS = 33005748; N(* MICCODE = 0056 (OCTAL) *) CONST FAL$_RMSFID = 33005940; N(* MICCODE = 0071 (OCTAL) *) CONST FAL$_RMSINI = 33006028; N(* MICCODE = 0102 (OCTAL) *) CONST FAL$_RMSLBL = 33006100; FAL$_RMSLBY = 33006108; FAL$_RMSLCH = 33006116; N(* MICCODE^ = 0106 (OCTAL) *) CONST FAL$_RMSLOC = 33006132; FAL$_RMSMAP = 33006140; N(* MICCODE = 0115 (OCTAL) *) CONST FAL$_RMSNID = 33006188; N(* MICCODE = 0117 (OCTAL) *) CONST FAL$_RMSOPN = 33006204; N(* MICCIDE = 0124 (OCTAL) *) CONST FAL$_RMSPRM = 33006244; N(* MICCODE_ = 0153 (OCTAL) *) CONST FAL$_RMSSTK = 33006428; N(* MICCODE = 0162 (OCTAL) *) CONST FAL$_RMSVOL = 33006484; N(* MICCODE = 0170 (OCTAL) *) CONST FAL$_RMSCAA = 33006532; N(* MICCODE = 0231 (OCTAL) *) CONST FAL$_RMSBLK = 33006796; FAL$_RMSBSZ = 33006804; FAL$_RMSCDR =` 33006812; FAL$_RMSCGJ = 33006820; FAL$_RMSCOF = 33006828; FAL$_RMSJFN = 33006836; FAL$_RMSPEF = 33006844; FAL$_RMSTRU = 33006852; FAL$_RMSUDF = 33006860; FAL$_RMSXCL = 33006868; FAL$_DAPDIRFUL = 33006876; FAL$_FCSHWR = 33006884; FAL$_FCSFHE = 33006892; FAL$_DAPWRTEOF = 33006900; FAL$_FCSONP = 33006908; FAL$_FCSDNA = 33006916; FAL$_FCSDAA = 33006924; FAL$_FCSDUN = 33006932; FAL$_FCSRSU = 33006940; FAL$_FCSOVR = 33006948; FAL$_FCSBCC = 33006956; FAL$_FCSNOD = 330a06964; FAL$_FCSIFU = 33006972; FAL$_FCSHFU = 33006980; FAL$_FCSWAC = 33006988; FAL$_FCSCKS = 33006996; FAL$_FCSWAT = 33007004; FAL$_FCSALN = 33007012; FAL$_FCSBTF = 33007020; FAL$_FCSILL = 33007028; FAL$_FCS2DV = 33007036; FAL$_FCSFEX = 33007044; FAL$_FCSRNM = 33007052; FAL$_FCSFOP = 33007060; FAL$_FCSVER = 33007068; FAL$_FCSEOV = 33007076; FAL$_FCSDAO = 33007084; FAL$_FCSBBE = 33007092; FAL$_FCSEOT = 33007100; FAL$_FCSNBF = 33007108; FAL$_FCSNBK = 33007116; FALb$_FCSNST = 33007124; FAL$_FCSULK = 33007132; FAL$_FCSNLN = 33007140; FAL$_FCSSRE = 33007148; N(* MICCODE = 0311 (OCTAL) *) CONST FAL$_DAPQUOEXC = 33007180; N(* MICCODE = 0346 (OCTAL) *) CONST FAL$_DAPDIRCAF = 33007412; FAL$_DAPDIRCRA = 33007420; FAL$_DAPDIRPRO = 33007428; FAL$_DAPDIRPRA = 33007436; FAL$_DAPDIRNFA = 33007444; FAL$_DAPDIRCON = 33007452; N(* MICCOcDE = 0416 (OCTAL) *) CONST FAL$_TENFILMOD = 33007732; FAL$_TENDEVNA = 33007740; FAL$_TENDEVNF = 33007748; FAL$_TENPARALL = 33007756; FAL$_TENBNFREE = 33007764; FAL$_TENCSDF = 33007772; FAL$_TENCDDF = 33007780; FAL$_TENSFDNF = 33007788; FAL$_TENSLE = 33007796; FAL$_TENSFDCNT = 33007804; FAL$_TENNCESL = 33007812; FAL$_TENCUPFIL = 33007820; FAL$_TENNETCAP = 33007828; FAL$_TENTSKNA = 33007836; FAL$_TENNODNF = 3300784d4; FAL$_TENSFDREN = 33007852; FAL$_TENCDFNDR = 33007860; FAL$_TENJCREAD = 33007868; FAL$_TENRENSFD = 33007876; FAL$_TENDEVDWN = 33007884; FAL$_TENDEVRES = 33007892; FAL$_TENDEVMDA = 33007900; FAL$_TENDEVALL = 33007908; FAL$_TENILLDM = 33007916; FAL$_TENLPTPAG = 33007924; FAL$_TENLPTVFU = 33007932; FAL$_TENLPTCHR = 33007940; FAL$_TENLPTRAM = 33007948; FAL$_TENFILSPC = 33007956; N(* MICCODE = 0453 (OCTAL) *)e CONST FAL$_TENNSNOD = 33007964; FAL$_TENANODI = 33007972; FAL$_TENSNODI = 33007980; FAL$_TENNSDEV = 33007988; FAL$_TENADEVI = 33007996; FAL$_TENSDEVI = 33008004; FAL$_TENNSDIR = 33008012; FAL$_TENADIRI = 33008020; FAL$_TENSDIRI = 33008028; FAL$_TENNSFIL = 33008036; FAL$_TENAFILI = 33008044; FAL$_TENSFILI = 33008052; FAL$_TENAFILR = 33008060; FAL$_TENSFILR = 33008068; N(* MICCODE = 475 (OCTAL) *) CONST FAL$_DTFFAfLSHT = 33008108; FAL$_DTFNOFIL = 33008116; FAL$_DTFNOREC = 33008124; FAL$_DTFNOTREG = 33008132; FAL$_DTFOPRABO = 33008140; N(* MICCODE = 504 (OCTAL) *) CONST FAL$_DTFRDCKP = 33008164; N(*+ *)R(* DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_SUPPORT COMPLETION *)N(* CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. *)N(*g *)N(* USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITH *)N(* MACCODE = 2) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): *)N(* *)I(* MESSAGE-CODE = (2**15 + ((MICCODE + 2048) * 8) + SEVERITY-LEVEL) *)N(* *)Q(* NOTE: THE INTENT IN THIS SECT hION IS TO DEFINE FAL STATUS CODES ONLY FOR DAP *)J(* FIELDS THAT CORRESPOND DIRECTLY TO RMS CONTROL BLOCK FIELDS USED FOR *)K(* INPUT. FOR OTHER DAP FIELDS THAT MAY BE REJECTED BY THE REMOTE FAL AS *)L(* BEING UNSUPPORTED, THE RMS$_SUP COMPLETION CODE IS RETURNED IN THE STS *)K(* FIELD OF THE FAB OR RAB WITH AN ASSOCIATED DAP CODE IN THE STV FIELD. *)N(*- *) CONST FAL$_OFFSET_B = 2048; N(* MICCODE = 0222 (OCTAL) i *) CONST FAL$_ORG = 33014932; FAL$_RFM = 33014940; FAL$_RAT = 33014948; FAL$_BLS = 33014956; FAL$_MRS = 33014964; FAL$_ALQ1 = 33014972; FAL$_BKS = 33014980; FAL$_FSZ = 33014988; FAL$_MRN = 33014996; N(* MICCODE = 0234 (OCTAL) *) CONST FAL$_DEQ1 = 33015012; FAL$_FOP1 = 33015020; N(* MICCODE = 0241 (OCTAL) *) jCONST FAL$_LRL = 33015052; N(* MICCODE = 0320 (OCTAL) *) CONST FAL$_ACCFUNC = 33015428; N(* MICCODE = 0323 (OCTAL) *) CONST FAL$_FAC = 33015452; FAL$_SHR = 33015460; N(* MICCODE = 0420 (OCTAL) *) CONST FAL$_CTLFUNC = 33015940; N(* MICCODE = 0422 (OCTAL) *) CONST FAkL$_RAC = 33015956; FAL$_KEY = 33015964; FAL$_KRF = 33015972; FAL$_ROP = 33015980; N(* MICCODE = 0520 (OCTAL) *) CONST FAL$_CONFUNC = 33016452; N(* MICCODE = 0720 (OCTAL) *) CONST FAL$_CMPFUNC = 33017476; FAL$_FOP2 = 33017484; N(* MICCODE = 1221 (OCTAL) *) CONST FAL$_FLG = 33019020; FAL$_DFL = 33019028; FAL$_IFL l= 33019036; N(* MICCODE = 1225 (OCTAL) *) CONST FAL$_POS = 33019052; FAL$_SIZ = 33019060; FAL$_REF = 33019068; FAL$_KNM = 33019076; FAL$_NUL = 33019084; FAL$_IAN = 33019092; FAL$_LAN = 33019100; FAL$_DAN = 33019108; FAL$_DTP = 33019116; N(* MICCODE = 1321 (OCTAL) *) CONST FAL$_VOL = 33019532; FAL$_ALN = 33019540; FAL$_AOP = 33019548; FAL$_LOC = 33019556m; N(* MICCODE = 1326 (OCTAL) *) CONST FAL$_ALQ2 = 33019572; FAL$_AID = 33019580; FAL$_BKZ = 33019588; FAL$_DEQ2 = 33019596; N(* MICCODE = 1521 (OCTAL) *) CONST FAL$_CDT = 33020556; FAL$_RDT = 33020564; FAL$_EDT = 33020572; FAL$_RVN = 33020580; N(* MICCODE = 1621 (OCTAL) *) CONST FAL$_OWNER = 33021068; FAL$_ nPROTSYS = 33021076; FAL$_PROTOWN = 33021084; FAL$_PROTGRP = 33021092; FAL$_PROTWLD = 33021100; N(* END. *) N(* MODULE SCRDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(*o $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD p *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; q *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0.r.63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* s$BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; t *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFEu] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) v(*** MODULE $SCRDEF ***) N(* SCREEN PACKAGE REQUEST TYPES *) LCONST SCR$C_PUT_SCREEN = 0; (* SCR$PUT_SCREEN *)G SCR$C_GET_SCREEN = 1; (* SCR$GET_SCREEN *)G SCR$C_ERASE_PAGE = 2; (* SCR$ERASE_PAGE *)G SCR$C_ERASE_LINE = 3; (* SCR$ERASE_LINE *)G SCR$C_SET_CURSOR = 4; (* SCR$SET_CURSOR *)G SCR$C_DOWN_SCROwLL = 5; (* SCR$DOWN_SCROLL *)G SCR$C_SCREEN_INFO = 6; (* SCR$SCREEN_INFO *)G SCR$C_PUT_LINE = 7; (* SCR$PUT_LINE *)G SCR$C_MOVE_CURSOR = 8; (* SCR$MOVE_CURSOR *)G SCR$C_SET_SCROLL = 9; (* SCR$SET_SCROLL *)G SCR$C_UP_SCROLL = 10; (* SCR$UP_SCROLL *) N(* x *)N(* DEFINE BIT MASKS AND VALUES FOR SCREEN ATTRIBUTES *)N(* *) CONST SCR$M_BOLD = 1; SCR$M_REVERSE = 2; SCR$M_BLINK = 4; SCR$M_UNDERLINE = 8;G SCR$M_NORMAL = 0; (*no bits set *) &TYPE SCR$TYPE = RECORD CASE INTEGER OF. 1: (SCR$R_SCRDEF_BITS : [BYTE(1)] RECORD END; );! 2: (SCR$V_BOLD : [POS(0)] $BOOL;$ SCR$V_REVERSE : [POS(1)] $BOOyL;" SCR$V_BLINK : [POS(2)] $BOOL;& SCR$V_UNDERLINE : [POS(3)] $BOOL; ) END; N(* *)N(* DEFINE FORMAT OF SCR$SCREEN_INFO RETURN BUFFER *)N(* *) CONST SCR$M_SCREEN = 1; SCR$M_ANSICRT = 2; SCR$M_REGIS = 4; SCR$M_BLOCK = 8; SCR$M_AVO = 16; SCR$M_EDIT = 32; SCR$M_DECCRT = 64;G SCR$K_LENGTH z= 20; (* LENGTH OF INFO RETURN BUFFER *)G SCR$C_LENGTH = 20; (* LENGTH OF INFO RETURN BUFFER *) 'TYPE SCR1$TYPE = RECORD CASE INTEGER OF0 1: (SCR$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END;G SCR$W_WIDTH : $UWORD; (* WIDTH OF EACH LINE *)G SCR$W_PAGESIZE : $UWORD; (* LINES IN SCREEN *)G SCR$B_DEVTYPE : $UBYTE; (* DEVICE TYPE (SEE $DCDEF) *)G SCRDEF$$_FILL_1 : ARRAY [1..11] OF $BYTE; (* (RES {ERVED) *) );G 2: (SCR$L_FLAGS : [POS(0)] UNSIGNED; (* FLAGS LONGWORD *) );5 3: (SCR$R_FLAGS_BITS : [POS(0), BYTE(1)] RECORD END; );M 4: (SCR$V_SCREEN : [POS(0)] $BOOL; (* 1 = SCREEN ORIENTED, 0 = SCROLLING *)G SCR$V_ANSICRT : [POS(1)] $BOOL; (* ANSI TERMINAL *)G SCR$V_REGIS : [POS(2)] $BOOL; (* REGIS TERMINAL *)G SCR$V_BLOCK : [POS(3)] $BOOL; (* BLOCK MODE TERMINAL *)G SCR$V_AVO : [POS(4) |] $BOOL; (* ADVANCED VIDEO TERMINAL *)G SCR$V_EDIT : [POS(5)] $BOOL; (* TERMINAL HAS EDIT CAPABILITY *)G SCR$V_DECCRT : [POS(6)] $BOOL; (* TERMINAL IS A DEC CRT *) ) END; N(* END. *) N(* MODULE SECSRVMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; } *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; ~ *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;  *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647;  *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SECSRVMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:48.38 *)N(* *)N(*+ SECSRVMSG.MSG *)N(*+ IDENT X-7  *)N(* *)N(* MESSAGE FILE FOR SECSRV FACILITY *)N(* *)N(* VAX AND AXP STREAMS SHOULD BE IDENTICAL. *)N(* *)N(* REVISION HISTORY:  *)5(* X-7 JAH0342 JOHN A HARNEY 05-OCT-1999 *)B(* ADD CLUSTER-WIDE INTRUSION DETECTION MESSAGES: *)B(* CIACRECLUDB CREATED CLUSTER DATABASE *)B(* CIACRELOCDB CREATED LOCAL DATABASE *)B(* CIAEXISTCLU USING EXISTING CLUSTER DATABASE *)B(* CIAEXISTLOC USING EXISTING LOCAL DATABASE *)N(* *)5(* X-6 JAH0298 JOHN A HARNEY 10-JUN-1998 *)B(* REMOVE "try again later" FROM PROXYNOTACTIVE MESSAGE. *)N(* *)5(* X-5 JAH0166 JOHN A HARNEY 14-NOV-1994 *)B(* FIX MORE MESSAGE TEXT. *)N(* *)5(* X-4 JAH0166 JOHN A HARNEY 09-NOV-1994 *)B(* FIX MESSAGE TEXT AND SPELLING ERRORS AFTER REVIEW BY THE *)B(* DOCUMENTATION GROUP. *)N(* *)c(* ** NOTE ** MAKE SURE WHEN YOU MODIFY THIS FILE THAT YOU ALSO MODIFY [SECSRV]SECSRVMSG_.ADA *)C(* TO MATCH YOUR CHANGES HERE. *)N(* *) CONST SECSRV$_FACILITY = 1774; N(*  *) ,CONST SECSRV$_SERVERRADIOACTIVE = 116299635; N(* *) (CONST SECSRV$_SERVERRESTART = 116299643;$ SECSRV$_SERVERSHUTDOWN = 116299651;" SECSRV$_COULDNTSTART = 116299659;$ SECSRV$_COULDNTRESTART = 116299667;# SECSRV$_PROXYSHUTDOWN = 116299675;! SECSRV$_CIASHUTDOWN = 116299683;& SECSRV$_SERVERSTARTINGUP = 116299691;% SECSRV$_PROXYSTARTINGUP = 116299699;# SECSRV$_CIASTARTINGUP = 116299707; SECSRV$_INTRUDER = 116299715; SECSRV$_SUSPECT = 116299723;# SECSRV$_CREATEPROXYDB = 116299731;# SECSRV$_PROXYMODIFIED = 116299739;' SECSRV$_NOSCANNEDINTRUDER = 116299747;% SECSRV$_INVALIDTERMNAME = 116299755;! SECSRV$_CIACRECLUDB = 116299763;! SECSRV$_CIACRELOCDB = 116299771;! SECSRV$_CIAEXISTCLU = 116299779;! SECSRV$_CIAEXISTLOC = 116299787;" SECSRV$_NORDPROXYREC = 116305632; SECSRV$_NOSUCHUSER = 116311634;# SECSRV$_DUPLICATEUSER = 116311642;# SECSRV$_INVALIDDELETE = 1 16311650;" SECSRV$_UPDATEFAILED = 116311658;! SECSRV$_NOSUCHPROXY = 116311666;% SECSRV$_DBALREADYEXISTS = 116311674;" SECSRV$_TOOMANYUSERS = 116311682;$ SECSRV$_BADNODENAMELEN = 116311690;# SECSRV$_BADREMUSERLEN = 116311698;% SECSRV$_BADLOCALUSERLEN = 116311706;! SECSRV$_PROXYACTIVE = 116311714;$ SECSRV$_PROXYNOTACTIVE = 116311722; SECSRV$_NOPROXYDB = 116311730;G SECSRV$_NOSUCHINTRUDER = 116311738; (* NOMATCH *)G SECSRV$_CIADBEMPTY = 116311746; (* DBEMPTY  *) SECSRV$_INSUFINFO = 116311754;! SECSRV$_AUDITFAILED = 116311762;" SECSRV$_ASSIGNFAILED = 116311770; SECSRV$_QIOFAILED = 116311778;" SECSRV$_DASSGNFAILED = 116311786; SECSRV$_BADJOBTYPE = 116311794;% SECSRV$_SERVERNOTACTIVE = 116311802;" SECSRV$_PROXYNOTOPEN = 116311810;% SECSRV$_PROXYTERMINATED = 116317636;# SECSRV$_CIATERMINATED = 116317644;& SECSRV$_SERVERTERMINATED = 116317652;" SECSRV$_CREMBXFAILED = 116317660; SECSRV$_RUNNING = 116317668; SECSRV$ _CONSTERROR = 116317676; SECSRV$_TASKERROR = 116317684;& SECSRV$_OUTCOMTERMINATED = 116317692;G SECSRV$_SRVREPLYTIMEOUT = 116317700; (* *) N(* ADD TEMPORARY MESSAGES HERE. *)N(* *) "CONST SECSRV$_CONVERT = 116323635;' SECSRV$_VERIFY_CONVERSION = 116323643;% SECSRV$_CONVERT_SUCCESS = 116323651; N(* END.  *) N(* MODULE SHRMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD  *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN;  *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151;  *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE ] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SHRDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:29.43 *)N(* *)N(* SHRMSG.MSG - SYSTEM DEFINITION FILE FOR SHARED MESSAGES *)N(* *)J(* VERSION: 'X-13' *)N(* *)O(* ************************************************************************* *)O(* * * *)O(* * COPYRIGHT 2003 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *)O(* * * *)O(* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR * *)O(* * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. * *)O(* * * *)O(* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *)O(* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *)O(* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *)O(* * COMMERCIAL LICENSE. * *)O(* * * *)O(* * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL * *)O(* * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION * *)O(* * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND * *)O(* * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS * *)O(* * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING * *)O(* * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN * *)O(* * ADDITIONAL WARRANTY. * *)O(* *  * *)O(* ************************************************************************* *)N(*++ *)N(* *)N(* FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES *)N(* *)N(* ABSTRACT:  *)N(* *)I(* THIS FILE CONTAINS THE MDL SOURCE FOR THE SHARED MESSAGES. *)N(* *)N(* ENVIRONMENT: *)N(* *)I(* N/A *)N(* *)N(*-- *)N(* *)N(* *)H(* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *)N(* *)N(* MODIFIED BY:  *)N(* *)2(* X-13 GP072104 GUY PELEG 21-JUL-2004 *)B(* ADD SYMLINKERR. *)N(* *)2(* X-12 GP011104 GUY PELEG 11-JAN-2004 *)B(* CHANGED TEXT OF MBXDEL. *)N(*  *)2(* X-11 GP010604 GUY PELEG 06-JAN-2004 *)B(* ADD NEW MESSAGE TO SUPPORT DELETE/MAILBOX. *)N(* *)2(* X-10 GP022503 GUY PELEG 25-FEB-2003 *)B(* ADD NEW MESSAGES TO SUPPORT B2B IN DELETE,COPY AND PURGE *)N(* *)6(* X-9 TMS0357 TODD SCHOELLER 19-FEB-1998 *)B(* ADD NOFIDS -- FIDS NOT PERMITTED. *)N(* *)6(* X-8 TMS0317 TODD SCHOELLER 9-MAR-1997 *)B(* ADD MESSAGES FOR HFS INVOLVING INABILITY FOR PROCESSING *)B(* FILES WITH DIDS AND FIDS (FILDID, FILFID, AND FILDIDFID). *)N(* *)6(* X-7 RG40042 RAY GUZMAN 11-JAN-1991 *)B(* ADD A MESSAGE BADFORMAT TO INDICATE A FILE FORMAT IS  *)B(* INCOMPATIBLE. *)N(* *)8(* X-6 SEH0021 SUSAN E. HEIMBACH 14-DEC-1989 *)B(* ADD MESSAGE NOMEANING; TO BE USED FOR QUEMAN'S *)B(* START/QUEUE/MANAGER COMMAND'S OBSOLETE QUALIFIERS. *)N(* ADD OPENERR AND CLOSEERR. *)N(* *)8(* X-5 SEH0011 SUSAN E. HEIMBACH 09-DEC-1988 *)B(* ADD MESSAGE NOTDELETED; TO BE USED BY QUEMAN DELETE *)B(* COMMANDS. *)N(* *).(* X-4 RJS RON SOMMER 12-OCT_1987 *)B(* ADD MESSAGE PRDCONT. COMMON LMF MESSAGE TO BE USED BY *)B(* SYSTEM LAYERED PRODUCTS WHEN LICENSE CHECK HAS FAILED *)B(* BUT PRODUCT EXECUTION IS CONTINUING.  *)N(* *)6(* X-3 AEW0002 ANNE E. WARNER 08-DEC-1986 *)B(* ADD MESSAGES ANBIGANS AND INVALANS USED FOR /CONFIRM *)B(* IN COMMON QUALIFIER PACKAGE (LIBCQUAL). *)N(* *)0(* X-2 CWH5002 CW HOBBS 30-MAY-1986 *)B(* CORRECT SPELLING IN NOSUCHID. *)N(*  *);(* V03-011 TSK0002 TAMAR KRICHEVSKY 28-MAR-1984 *)B(* ADD NOSUCHID. *)N(* *)N(* V03-010 AEW0001 ANNE E. WARNER 6-MAR-1984 *)N(* ADD FILSPCSRCH AND NOSRCHLIST. *)N(* FILSPCSRCH - FILE SPECIFICATION CONTAINS A SEARCH LIST. *)N(* NOSRCHLST - COMMAND DOES NOT SUPPORT SEARCH LISTS. *)N(* BOTH MESSAGES ORIGINALLY IN [CLIUTL.SRC]SETDIR.B32. *)N(* *);(* V03-009 TSK0001 TAMAR KRICHEVSKY 8-FEB-1984 *)B(* ADD QUALMISS. *)N(* *)?(* V03-008 SHZ0004 STEPHEN H. ZALEWSKI, 28-FEB-1983 *)B(* CHANGED TEXT OF NOFILPURG. *)N(* *)?(* V03-007 SHZ0003 STEPHEN H. ZALEWSKI, 11-JAN-1983 *)B(* ADD FILNOTACC. MAKE DELINTERR AND DIRTOBUSY OBSOLETE. *)N(* *)B(* V03-006 SBL3006 STEVEN B. LIONEL, 19-NOV-1982 *)B(* ADD NOFILES.  *)N(* *)B(* V03-005 MLJ0094 MARTIN L. JACK, 31-JUL-1982 23:18 *)B(* ADD INVQUAVAL. *)N(* *)?(* V03-004 SHZ0002 STEPHEN H. ZALEWSKI, 23-JUL-1982 16:40 *)B(* ADDED TOTAL, PURGED, AND FILDELETED MESSAGES. *)N(*  *)A(* V03-003 BLS0152 BENN SCHREIBER 25-MAY-1982 *)B(* ADD PRODNOTINS MESSAGE *)N(* *)>(* V03-002 GAS0068 GERRY SMITH 31-MAR-1982 *)B(* ADD NOTRUNC MESSAGE. *)N(* *)B(* V03-001 MLJ0084 MARTIN L. JACK, 28-MAR-1982 14:48  *)B(* CLEAN UP INITIAL CAPITALIZATION ERRORS. *)N(* *)N(* THESE MESSAGE CODES SHOULD NOT BE USED DIRECTLY BY A FACILITY SINCE *)N(* THEY DO NOT CONTAIN A SUBSYSTEM (I.E., FACILITY) IDENTIFIER OR A *)N(* SEVERITY CODE. USE THE FOLLOWING FORMULA TO CALCULATE ACTUAL FACILITY *)N(* MESSAGE CODES. *)I(* FACILITY MESSAGE CODE = COMMON MESSAGE CODE + *)4(* FACILITY ID * 65536 + *)4(* SEVERITY CODE *) CONST SHR$_FACILITY = 0; SHR$_APPENDEDB = 4096; SHR$_APPENDEDR = 4104; SHR$_BADBYTE = 4112; SHR$_BADFIELD = 4120; SHR$_BADLONG = 4128; SHR$_BADWORD = 4136; SHR$_BEGIN = 4144; SHR$_BEGIND = 4152; SHR$_BEGINT = 4160; SHR$_CLICB = 4168; SHR$_CLOSEIN = 4176; SHR$_CLOSEOUT = 4184; SHR$_COPIEDB = 4192; SHR$_COPIEDR = 4200; SHR$_CREATED = 4208; SHR$_ENDED = 4216; SHR$_ENDEDD = 4224; SHR$_ENDEDT = 4232; SHR$_NEWFILES = 4240; SHR$_OPENIN = 4248; SHR$_OPENOUT = 4256; SHR$_OVERLAY = 4264; SHR$_READERR = 4272; SHR$_REPLACED = 4280; SHR$_WILDCONCAT = 4288; SHR$_WILDOUTVER = 4296; SHR$_WRITEERR = 4304; SHR$_ABEND = 4312; SHR$_ABENDD = 4320; SHR$_ABENDT = 4328; SHR$_SYSERRORPC = 4336; SHR$_SYNTAX = 4344; SHR$_NOVALUE = 4352; SHR$_BADKEY = 4360; SHR$_BADVALUE = 4368; SHR$_BADDELIM = 4376; SHR$_BADLOGIC = 4384; SHR$_NOWILD = 4392; SHR$_TEXT = 4400; SHR$_IDXCONCAT = 4408; SHR$_RELCONCAT = 4416; SHR$_HIGHVER = 4424; SHR$_BADLOGICPC = 4432; SHR$_ATPC = 4440; SHR$_BADCOPIES = 4448; SHR$_BADFORM = 4456; SHR$_BADJOBID = 4464; SHR$_BADJOBNAME = 4472; SHR$_BADPRTY = 4480; SHR$_BADQNAME = 4488; SHR$_BADTIME = 4496; SHR$_NOQUEUE = 4504; SHR$_NOJOBID = 4512; SHR$_NOJOBNAME = 4520; SHR$_SYSERROR = 4528; SHR$_NOTCOPIED = 4536; SHR$_NOTCMPLT = 4544; SHR$_RMSERROR = 4552; SHR$_UNXPCTSTS = 4560; SHR$_HASHCONCAT = 4568; SHR$_INCOMPAT = 4576; SHR$_VALERR = 4584; SHR$_FILNOTDEL = 4592; SHR$_CONFDEL = 4600; SHR$_DELETED = 4608; SHR$_DELVER = 4616; SHR$_PURGEVER = 4624; SHR$_CLOSEDEL = 4632; SHR$_DIRTOOBUS = 4640; SHR$_NOFILPURG = 4648; SHR$_FILNOTPUR = 4656; SHR$_SEARCHFAIL = 4664; SHR$_DELINTERR = 4672; SHR$_PARSEFAIL = 4680; SHR$_FILPURGED = 4688; SHR$_ENDABORT = 4696; SHR$_ENDDIAGS = 4704; SHR$_ENDNOOBJ = 4712; SHR$_HALTED = 4720; SHR$_NOCMDMEM = 4728; SHR$_QEMPTY = 4736; SHR$_CBT = 4744; SHR$_EXISTS = 4752; SHR$_UNLOCKED = 4760; SHR$_RENAMED = 4768; SHR$_PROTECTED = 4776; SHR$_NOTLOCKED = 4784; SHR$_ACTIMAGE = 4792; SHR$_DIRNOTCRE = 4800; SHR$_NODESTQUE = 4808; SHR$_ILLDESQUE = 4816; SHR$_NOTTERM = 4824; SHR$_CONFQUAL = 4832; SHR$_ILLDIRCOPY = 4840; SHR$_INSVIRMEM = 4848; SHR$_CREATEDSTM = 4856; SHR$_NOTRUNC = 4864; SHR$_PRODNOTINS = 4872; SHR$_TOTAL = 4880; SHR$_FILPURG = 4888; SHR$_FILDEL = 4896; SHR$_INVQUAVAL = 4904; SHR$_NOFILES = 4912; SHR$_FILNOTACC = 4920; SHR$_QUALMISS = 4928; SHR$_FILSPCSRCH = 4936; SHR$_NOSRCHLST = 4944; SHR$_NOSUCHID = 4952; SHR$_AMBIGANS = 4960; SHR$_INVALANS = 4968; SHR$_PRDCONT = 4976; SHR$_NOTDELETED = 4984; SHR$_NOMEANING = 4992; SHR$_OPENERR = 5000; SHR$_CLOSEERR = 5008; SHR$_BADFORMAT = 5016; SHR$_FILDID = 5024; SHR$_FILFID = 5032; SHR$_FILDIDFID = 5040; SHR$_NOFIDS = 5048; SHR$_FILPURGBYT = 5056; SHR$_FILDELBYT = 5064; SHR$_TOTALBYT = 5072; SHR$_COPIEDBYT = 5080; SHR$_APPENDEDBYT = 5088; SHR$_MBXDEL = 5096; SHR$_SYMLINKERR = 5104; N(* END. *) N(* MODULE SMBMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SMBMSGDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.01 *)N(* *)N(* *)Q(*************************** ************************************************** *)(** * *)8(** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBI LITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(*++ *)N(* FACILITY: *)I(* SYMBIONT.  *)N(* *)N(* ABSTRACT: *)I(* SYMBIONT MESSAGES. *)N(* *)L(* THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FOR *)K(* MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY *)I(* THE $MSGDEF MACRO. *)N(* *)N(* ENVIRONMENT: *)I(* VAX/VMS USER AND KERNEL MODE. *)N(* *)N(* AUTHOR: ROWLAND R. BRADLEY, CREATION DATE: 20-JULY-1984 *)N(*  *)N(* MODIFIED BY: *)N(* *)7(* X-2 LMP0560 L. MARK PILANT, 27-MAR-1992 14:08 *)B(* CHANGE THE MACRO NAME FROM $PSMMSGDEF TO $SMBMSGDEF. *)N(* *)9(* 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 *)B(* ADD .END. *)N(* *)<(* 3B-009 RRB0009 ROWLAND R. BRADLEY 20-JUL-1984 *)B(* REMOVED THESE DEFINITIONS FOR SMB AND PLACED IN A SEPARATE *)D(* FILE SMBMSG.MSG. THIS ACCOMPLISHES THE RENAMING OF MESSAGES *)B(* WITH A SEPARATE FACILITY CODE. NOW TWO TYPES OF MESSAGES *)B(* SMB$... AND PSM$... DEPENDING ON THE CONTEXT OF THE *)B(* ERROR. AUDIT TRAIL BEGI NS AT HIGHER NUMBER SINCE THIS IS *)B(* A CONTINUATION OF PSMMSG.MSG. *)N(* *)N(*** *)N(* *) CONST SMB$_FACILITY = 272; SMB$_NOMOREITEMS = 17858562; SMB$_INVSTMNBR = 17858572; SMB$_INVSTRLEV = 17858580; N(* END.  *) N(* MODULE SMGDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD  *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN;  *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383;  *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151;  *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BI T(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SMGDEF ***) N(* Definitions for RTL Screen Management Facility *)N(*  *)N(* Input terminator codes *)N(* *) LCONST SMG$K_TRM_NULL_CHAR = 0; (* NUL *)G SMG$K_TRM_CTRLA = 1; (* SOH *)G SMG$K_TRM_CTRLB = 2; (* STX *)G SMG$K_TRM_CTRLC = 3; (* ETX  *)G SMG$K_TRM_CTRLD = 4; (* EOT *)G SMG$K_TRM_CTRLE = 5; (* ENQ *)G SMG$K_TRM_CTRLF = 6; (* ACK *)G SMG$K_TRM_CTRLG = 7; (* BEL *)G SMG$K_TRM_CTRLH = 8; (* BS *)G SMG$K_TRM_CTRLI = 9; (* HT *)G SMG$K_TRM_CTRLJ = 10; (* LF  *)G SMG$K_TRM_CTRLK = 11; (* VT *)G SMG$K_TRM_CTRLL = 12; (* FF *)G SMG$K_TRM_CTRLM = 13; (* CR *)G SMG$K_TRM_CTRLN = 14; (* SO *)G SMG$K_TRM_CTRLO = 15; (* SI *)G SMG$K_TRM_CTRLP = 16; (* DLE *)G SMG$K_TRM_CTRLQ = 17; (* DC1  *)G SMG$K_TRM_CTRLR = 18; (* DC2 *)G SMG$K_TRM_CTRLS = 19; (* DC3 *)G SMG$K_TRM_CTRLT = 20; (* DC4 *)G SMG$K_TRM_CTRLU = 21; (* NAK *)G SMG$K_TRM_CTRLV = 22; (* SYN *)G SMG$K_TRM_CTRLW = 23; (* ETB *)G SMG$K_TRM_CTRLX = 24;  (* CAN *)G SMG$K_TRM_CTRLY = 25; (* EM *)G SMG$K_TRM_CTRLZ = 26; (* SUB *)G SMG$K_TRM_ESCAPE = 27; (* ESC *)G SMG$K_TRM_FS = 28; (* FS *)G SMG$K_TRM_GS = 29; (* GS *)G SMG$K_TRM_RS = 30; (* RS *)G SMG$K_TRM_US = 31; (* US *)G SMG$K_TRM_SPACE = 32; (* SP *)G SMG$K_TRM_EXCLAMATION_POINT = 33; (* ! *)G SMG$K_TRM_DOUBLE_QUOTE = 34; (* " *)G SMG$K_TRM_NUMBER_SIGN = 35; (* # *)G SMG$K_TRM_DOLLAR_SIGN = 36; (* $ *)G SMG$K_TRM_PERCENT_SIGN = 37; (* % *)G SMG$K_TRM_AMPERSAND = 38; (* & *)G SMG$K_TRM_QUOTE = 39; (* ' *)G SMG$K_TRM_LEFT_PAREN = 40; (* ( *)G SMG$K_TRM_RIGHT_PAREN = 41; (* ) *)G SMG$K_TRM_ASTERISK = 42; (* * *)G SMG$K_TRM_PLUS_SIGN = 43; (* + *)G SMG$K_TRM_COMMA_CHAR = 44; (* ,  *)G SMG$K_TRM_DASH = 45; (* - *)G SMG$K_TRM_DOT = 46; (* . *)G SMG$K_TRM_SLASH = 47; (* / *)G SMG$K_TRM_ZERO = 48; (* 0 *)G SMG$K_TRM_ONE = 49; (* 1 *)G SMG$K_TRM_TWO = 50; (* 2 *)G SMG$K_TRM_THREE = 51; (* 3  *)G SMG$K_TRM_FOUR = 52; (* 4 *)G SMG$K_TRM_FIVE = 53; (* 5 *)G SMG$K_TRM_SIX = 54; (* 6 *)G SMG$K_TRM_SEVEN = 55; (* 7 *)G SMG$K_TRM_EIGHT = 56; (* 8 *)G SMG$K_TRM_NINE = 57; (* 9 *)G SMG$K_TRM_COLON = 58; (* :  *)G SMG$K_TRM_SEMICOLON = 59; (* ; *)G SMG$K_TRM_LESS_THAN = 60; (* < *)G SMG$K_TRM_EQUAL = 61; (* = *)G SMG$K_TRM_GREATER_THAN = 62; (* > *)G SMG$K_TRM_QUESTION_MARK = 63; (* ? *)G SMG$K_TRM_AT_SIGN = 64; (* @ *)G SMG$K_TRM_UPPERCASE_A = 65;  (* A *)G SMG$K_TRM_UPPERCASE_B = 66; (* B *)G SMG$K_TRM_UPPERCASE_C = 67; (* C *)G SMG$K_TRM_UPPERCASE_D = 68; (* D *)G SMG$K_TRM_UPPERCASE_E = 69; (* E *)G SMG$K_TRM_UPPERCASE_F = 70; (* F *)G SMG$K_TRM_UPPERCASE_G = 71; (* G *)G SMG$K_TRM_UPPERCASE_H = 72; (* H *)G SMG$K_TRM_UPPERCASE_I = 73; (* I *)G SMG$K_TRM_UPPERCASE_J = 74; (* J *)G SMG$K_TRM_UPPERCASE_K = 75; (* K *)G SMG$K_TRM_UPPERCASE_L = 76; (* L *)G SMG$K_TRM_UPPERCASE_M = 77; (* M *)G SMG$K_TRM_UPPERCASE_N = 78; (* N *)G SMG$K_TRM_UPPERCASE_O = 79; (* O *)G SMG$K_TRM_UPPERCASE_P = 80; (* P *)G SMG$K_TRM_UPPERCASE_Q = 81; (* Q *)G SMG$K_TRM_UPPERCASE_R = 82; (* R *)G SMG$K_TRM_UPPERCASE_S = 83; (* S *)G SMG$K_TRM_UPPERCASE_T = 84; (* T *)G SMG$K_TRM_UPPERCASE_U = 85; (* U  *)G SMG$K_TRM_UPPERCASE_V = 86; (* V *)G SMG$K_TRM_UPPERCASE_W = 87; (* W *)G SMG$K_TRM_UPPERCASE_X = 88; (* X *)G SMG$K_TRM_UPPERCASE_Y = 89; (* Y *)G SMG$K_TRM_UPPERCASE_Z = 90; (* Z *)G SMG$K_TRM_LEFT_BRACKET = 91; (* [ *)G SMG$K_TRM_BACKSLASH = 92; (* \  *)G SMG$K_TRM_RIGHT_BRACKET = 93; (* ] *)G SMG$K_TRM_CARET = 94; (* ^ *)G SMG$K_TRM_UNDERLINE = 95; (* _ *)G SMG$K_TRM_GRAVE_ACCENT = 96; (* ` *)G SMG$K_TRM_LOWERCASE_A = 97; (* a *)G SMG$K_TRM_LOWERCASE_B = 98; (* b *)G SMG$K_TRM_LOWERCASE_C = 99; (* c  *)G SMG$K_TRM_LOWERCASE_D = 100; (* d *)G SMG$K_TRM_LOWERCASE_E = 101; (* e *)G SMG$K_TRM_LOWERCASE_F = 102; (* f *)G SMG$K_TRM_LOWERCASE_G = 103; (* g *)G SMG$K_TRM_LOWERCASE_H = 104; (* h *)G SMG$K_TRM_LOWERCASE_I = 105; (* i *)G SMG$K_TRM_LOWERCASE_J = 106;  (* j *)G SMG$K_TRM_LOWERCASE_K = 107; (* k *)G SMG$K_TRM_LOWERCASE_L = 108; (* l *)G SMG$K_TRM_LOWERCASE_M = 109; (* m *)G SMG$K_TRM_LOWERCASE_N = 110; (* n *)G SMG$K_TRM_LOWERCASE_O = 111; (* o *)G SMG$K_TRM_LOWERCASE_P = 112; (* p *)G SMG$K_TRM_LOWERCASE_Q = 113; (* q *)G SMG$K_TRM_LOWERCASE_R = 114; (* r *)G SMG$K_TRM_LOWERCASE_S = 115; (* s *)G SMG$K_TRM_LOWERCASE_T = 116; (* t *)G SMG$K_TRM_LOWERCASE_U = 117; (* u *)G SMG$K_TRM_LOWERCASE_V = 118; (* v *)G SMG$K_TRM_LOWERCASE_W = 119; (* w *)G SMG$K_TRM_LOWERCASE_X = 120; (* x *)G SMG$K_TRM_LOWERCASE_Y = 121; (* y *)G SMG$K_TRM_LOWERCASE_Z = 122; (* z *)G SMG$K_TRM_LEFT_BRACE = 123; (* left curly brace *)G SMG$K_TRM_VERTICAL_LINE = 124; (* | *)G SMG$K_TRM_RIGHT_BRACE = 125; (* right curly brace *)G SMG$K_TRM_TILDE = 126; (* ~ *)G SMG$K_TRM_DELETE = 127; (* DEL *) N(* *)N(* Synonyms for control characters *)N(* *) CONST SMG$K_TRM_BS = 8; SMG$K_TRM_HT = 9; SMG$K_TRM_LF = 10; SMG$K_TRM_VT = 11; SMG$K_TRM_FF = 12; SMG$K_TRM_CR = 13; N(*  *)N(* Keypad keys *)N(* *) CONST SMG$K_TRM_PF1 = 256; SMG$K_TRM_PF2 = 257; SMG$K_TRM_PF3 = 258; SMG$K_TRM_PF4 = 259; SMG$K_TRM_KP0 = 260; SMG$K_TRM_KP1 = 261; SMG$K_TRM_KP2 = 262; SMG$K_TRM_KP3 = 263; SMG$K_TRM_KP4 = 264; SMG$K_TRM_KP5 = 265; SMG$K_TRM_KP6 = 266; SMG$K_TRM_KP7 = 267; SMG$K_TRM_KP8 = 268; SMG$K_TRM_KP9 = 269; SMG$K_TRM_ENTER = 270; SMG$K_TRM_MINUS = 271; SMG$K_TRM_COMMA = 272; SMG$K_TRM_PERIOD = 273; N(* *)N(* Cursor positioning keys *)N(* *) CONST SMG$K_TRM_UP = 274; SMG$K_TRM_DOWN = 275; SMG$K_TRM_LEFT = 276; SMG$K_TRM_RIGHT = 277; N(*  *)N(* Function keys *)N(* *) CONST SMG$K_TRM_F1 = 281; SMG$K_TRM_F2 = 282; SMG$K_TRM_F3 = 283; SMG$K_TRM_F4 = 284; SMG$K_TRM_F5 = 285; SMG$K_TRM_F6 = 286; SMG$K_TRM_F7 = 287; SMG$K_TRM_F8 = 288; SMG$K_TRM_F9 = 289; SMG$K_TRM_F10 = 290; SMG$K_TRM_F11 = 291; SMG$K_TRM_F12 = 292; SMG$K_TRM_F13 = 293; SMG$K_TRM_F14 = 294; SMG$K_TRM_F15 = 295; SMG$K_TRM_F16 = 296; SMG$K_TRM_F17 = 297; SMG$K_TRM_F18 = 298; SMG$K_TRM_F19 = 299; SMG$K_TRM_F20 = 300; N(* *)N(* Synonyms for function keys *)N(* *) CONST SMG$K_TRM_HELP = 295; SMG$K_TRM_DO = 296; N(*  *)N(* Editing keys *)N(* *) LCONST SMG$K_TRM_E1 = 311; (* FIND *)G SMG$K_TRM_E2 = 312; (* INSERT_HERE *)G SMG$K_TRM_E3 = 313; (* REMOVE *)G SMG$K_TRM_E4 = 314; (* SELECT  *)G SMG$K_TRM_E5 = 315; (* PREV_SCREEN *)G SMG$K_TRM_E6 = 316; (* NEXT_SCREEN *) N(* *)N(* Synonyms for editing keys *)N(* *) LCONST SMG$K_TRM_FIND = 311; (* E1 *)G SMG$K_TRM_INSERT_HERE = 312; (* E2 *)G SMG$K_TRM_REMOVE = 313; (* E3 *)G SMG$K_TRM_SELECT = 314; (* E4 *)G SMG$K_TRM_PREV_SCREEN = 315; (* E5 *)G SMG$K_TRM_NEXT_SCREEN = 316; (* E6 *) N(* *)N(* Locator keys  *)N(* *) LCONST SMG$K_TRM_FIRST_DOWN = 321; (* Left button down *)G SMG$K_TRM_SECOND_DOWN = 322; (* Middle button down *)G SMG$K_TRM_THIRD_DOWN = 323; (* Right button down *)G SMG$K_TRM_FOURTH_DOWN = 324; (* Fourth button down *)G SMG$K_TRM_FIRST_UP = 325; (* Left button up *)G SMG$K_TRM_SECOND_UP =  326; (* Middle button up *)G SMG$K_TRM_THIRD_UP = 327; (* Right button up *)G SMG$K_TRM_FOURTH_UP = 328; (* Fourth button up *) N(* *)N(* Conditions *)N(* *) MCONST SMG$K_TRM_CANCELLED = 508; (* I/O cancelled by SMG$CANCEL_INPUT *)G SMG$K_TRM_TIMEOUT = 509; (* Timeout period expired *)G SMG$K_TRM_BUFFER_FULL = 510; (* Buffer is full *)G SMG$K_TRM_UNKNOWN = 511; (* Unknown terminator *) N(* *)N(* Screen Management request types - These constants are used internally *)N(* by SMG$ and should not be used by users. *)N(*  *) "CONST SMG$C_CHANGE_RENDITION = 10; SMG$C_DELETE_CHARS = 11; SMG$C_ERASE_DISPLAY = 12; SMG$C_ERASE_LINE = 13; SMG$C_HOME_CURSOR = 14; SMG$C_INSERT_CHARS = 15; SMG$C_INSERT_LINE = 16; SMG$C_PUT_CHARS = 17; SMG$C_PUT_LINE = 18; SMG$C_PUT_DISPLAY_ENCODED = 19; SMG$C_RETURN_CURSOR_POS = 20; SMG$C_PUT_WITH_SCROLL = 21; SMG$C_SET_CURSOR_ABS = 22; SMG$C_SET_CURSOR_REL = 23; SMG$C_DELETE_LINE = 24; SMG$C_ERASE _CHARS = 25; SMG$C_SCROLL_DISPLAY_AREA = 26;# SMG$C_CHANGE_VIRTUAL_DISPLAY = 27; SMG$C_LABEL_BORDER = 28; SMG$C_END_DISPLAY_UPDATE = 29; SMG$C_MOVE_TEXT = 30; N(* *)J(* Character Set Codes *)N(* *) LCONST SMG$C_UNITED_KINGDOM = 0; (* Unused *)G SMG$C_ASCII = 1; (* ASCII char set *)G SMG$C_SPEC_GRAPHICS = 2; (* Line drawing set *)G SMG$C_ALT_CHAR = 3; (* Unused *)G SMG$C_ALT_GRAPHICS = 4; (* Unused *) SMG$C_UNKNOWN = 5; SMG$C_SUPPLEMENTAL = 6; SMG$C_JIS_ROMAN = 7; SMG$C_JIS_KANA = 8; SMG$C_KANJI = 9; SMG$C_HANZI = 10; SMG$C_HANYU = 11; SMG$C_HANGUL = 12; SMG$C_KS_ROMAN = 13; N(*  *)I(* The following constants define corner cursor positions used in *)I(* SMG$HOME_CURSOR. *)N(* *) LCONST SMG$C_UPPER_LEFT = 0; (* Home cursor to upper left corner *)G SMG$C_LOWER_LEFT = 1; (* Home cursor to lower left corner *)H SMG$C_UPPER_RIGHT = 2; (* Home cursor to upper  right corner *)H SMG$C_LOWER_RIGHT = 3; (* Home cursor to lower right corner *) N(* *)I(* The following constants define label positions used in *)I(* SMG$LABEL_BORDER. *)N(* *) LCONST SMG$K_TOP = 0; (* Place label on top border *)G SMG$K_BOTTOM = 1; (* Place label on bottom border *)G SMG$K_LEFT = 2; (* Place label on left border *)G SMG$K_RIGHT = 3; (* Place label on right border *) N(* *)I(* The following constants define menu types used in *)I(* SMG$CREATE_MENU. *)N(*  *) LCONST SMG$K_BLOCK = 0; (* Matrix of menu items *)G SMG$K_VERTICAL = 1; (* Vertical vector of menu items *)G SMG$K_HORIZONTAL = 2; (* Horizontal vector of menu items *) N(* *)I(* Master color wheel for screen background colors. *)I(* Used with SMG$CHANGE_PBD_CHARACTERISTICS. *)N(*  *) LCONST SMG$C_COLOR_UNKNOWN = 0; (* Unknown background *)G SMG$C_COLOR_WHITE = 1; (* White background *)G SMG$C_COLOR_BLACK = 2; (* Black background *)G SMG$C_COLOR_BLUE = 3; (* Blue background *)G SMG$C_COLOR_CYAN = 4; (* Cyan background *)G SMG$C_COLOR_GREEN = 5; (* Green background *)G SMG$C_COLOR_MAGENTA = 6; (* Magenta background *)G SMG$C_COLOR_RED = 7; (* Red background *)G SMG$C_COLOR_YELLOW = 8; (* Yellow background *)G SMG$C_COLOR_LIGHT = 9; (* Light background *)G SMG$C_COLOR_DARK = 10; (* Dark background *)G SMG$C_COLOR_USER1 = 11; (* User 1 background *)G SMG$C_COLOR_USER2 = 12; (* User 2 background  *)G SMG$C_COLOR_USER3 = 13; (* User 3 background *)G SMG$C_COLOR_USER4 = 14; (* User 4 background *)G SMG$C_COLOR_USER5 = 15; (* User 5 background *)G SMG$C_COLOR_USER6 = 16; (* User 6 background *)G SMG$C_COLOR_USER7 = 17; (* User 7 background *)G SMG$C_COLOR_USER8 = 18; (* User 8 background *) N(*  *)N(* The following constants describe the type of terminal *)N(* and are used with SMG$GET_PASTEBOARD_ATTRIBUTES. *)N(* *) LCONST SMG$K_UNKNOWN = 0; (* Unknown type *)G SMG$K_VT05 = 1; (* Unused *)G SMG$K_VT52 = 2; (* Unused *)G SMG$K_VT100 = 3; (* Unused *)G SMG$K_VTFOREIGN = 4; (* Foreign terminal (ft1-8) *)G SMG$K_HARDCOPY = 5; (* Hardcopy device *)G SMG$K_VTTERMTABLE = 6; (* Video terminal *)G SMG$K_FIRST_PRIV_TYPE = 191; (* Used internally by SMG$ *) N(* *)I(* Define bits, masks, and fields for the control mo des. *)N(* *) LCONST SMG$K_BUF_ENABLED = 0; (* Enable Buffering *)G SMG$K_MINUPD = 1; (* Enable minimal update *)G SMG$K_CLEAR_SCREEN = 2; (* Clear screen on exit *)G SMG$K_NOTABS = 3; (* Don't use physical tabs *)G SMG$K_PROTECT = 4; (* Protect against ASTs *)G SMG$K_IGNORE = 5;  (* Don't output PBD if batched *)G SMG$K_RELEASE_PBD = 6; (* Don't touch users part of PBD *) SMG$M_BUF_ENABLED = 1; SMG$M_MINUPD = 2; SMG$M_CLEAR_SCREEN = 4; SMG$M_NOTABS = 8; SMG$M_PROTECT = 16; SMG$M_IGNORE = 32; SMG$M_RELEASE_PBD = 64; SMG$m_spare15 = -128; TYPE SMGMODE_BITS$TYPE = RECORDG SMG$V_BUF_ENABLED : [POS(0)] $BOOL; (* Enable buffering *)I SMG$V_MINUPD : [POS(1)] $BOOL; (* Enable minimal update (default) *)G SMG $V_CLEAR_SCREEN : [POS(2)] $BOOL; (* Clear screen on exit *)G SMG$V_NOTABS : [POS(3)] $BOOL; (* Don't use physical tabs *)G SMG$V_PROTECT : [POS(4)] $BOOL; (* Protect against ASTs *)G SMG$V_IGNORE : [POS(5)] $BOOL; (* Don't output PBD if batched *)L SMG$V_RELEASE_PBD : [POS(6)] $BOOL; (* Don't touch users part of PBD *)G SMG$v_spare15 : [POS(7)] $BIT25; (* extra bits *) END; N(*  *)I(* Key definition attributes *)N(* *) CONST SMG$M_KEY_NOECHO = 1; SMG$M_KEY_TERMINATE = 2; SMG$M_KEY_LOCK = 4; SMG$M_KEY_PROTECTED = 8; SMG$M_KEY_SETSTATE = 16; SMG$m_spare18 = -32; "TYPE SMG$R_KEY__ATTR$TYPE = RECORDG SMG$V_KEY_NOECHO : [POS(0)] $BOOL; (* Don't echo strings *)I SMG$V_KEY_TERMINATE : [POS(1)] $BOOL; (* This key terminates read *)G SMG$V_KEY_LOCK : [POS(2)] $BOOL; (* Lock new state *)H SMG$V_KEY_PROTECTED : [POS(3)] $BOOL; (* Definition is protected *)U SMG$V_KEY_SETSTATE : [POS(4)] $BOOL; (* Definition sets a state (output only) *)G SMG$v_spare18 : [POS(5)] $BIT27; (* extra bits *) END; N(* *)N(* Define bit masks and values for display renditions.  *)N(* *) CONST SMG$M_BOLD = 1; SMG$M_REVERSE = 2; SMG$M_BLINK = 4; SMG$M_UNDERLINE = 8; SMG$M_INVISIBLE = 16; SMG$M_USER1 = 256; SMG$M_USER2 = 512; SMG$M_USER3 = 1024; SMG$M_USER4 = 2048; SMG$M_USER5 = 4096; SMG$M_USER6 = 8192; SMG$M_USER7 = 16384; SMG$M_USER8 = 32768; SMG$m_spare14 = -65536; TYPE SMG_BITS$TYPE = RECORDG SMG$V_BOLD : [POS(0)] $BOOL; (* Bold rendition  *)G SMG$V_REVERSE : [POS(1)] $BOOL; (* Reverse video rendition *)G SMG$V_BLINK : [POS(2)] $BOOL; (* Blink rendition *)G SMG$V_UNDERLINE : [POS(3)] $BOOL; (* Underline rendition *)G SMG$V_INVISIBLE : [POS(4)] $BOOL; (* Invisible rendition *)G SMG$v_fill1 : [POS(5)] $BIT3; (* internally used by SMG$ *)G SMG$V_USER1 : [POS(8)] $BOOL; (* User rendition 1 *)G SMG$V_USER2 : [POS(9)] $BOOL; (* User rendition 2 *)G SMG$V_USER3 : [POS(10)] $BOOL; (* User rendition 3 *)G SMG$V_USER4 : [POS(11)] $BOOL; (* User rendition 4 *)G SMG$V_USER5 : [POS(12)] $BOOL; (* User rendition 5 *)G SMG$V_USER6 : [POS(13)] $BOOL; (* User rendition 6 *)G SMG$V_USER7 : [POS(14)] $BOOL; (* User rendition 7 *)G SMG$V_USER8 : [POS(15)] $BOOL; (* User rendition 8 *)G SMG$v_spare14 : [POS(16)] $BIT16;  (* extra bits *) END; LCONST SMG$M_NORMAL = 0; (* no bits set *) N(* *)I(* The following masks define values to be used *)I(* to specify a display attribute. These may be added *)I(* together to specify multiple attributes. *)N(*  *) CONST SMG$M_BORDER = 1; SMG$M_TRUNC_ICON = 2; SMG$M_DISPLAY_CONTROLS = 4; SMG$M_USER_DISPLAY = 8; SMG$M_BLOCK_BORDER = 16; SMG$M_PROTECT_DISPLAY = 32; SMG$m_spare12 = -64; %TYPE DISPLAY_ATTRIBUTES$TYPE = RECORDG SMG$V_BORDER : [POS(0)] $BOOL; (* Display is bordered *)G SMG$V_TRUNC_ICON : [POS(1)] $BOOL; (* Truncation icon enabled *)M SMG$V_DISPLAY_CONTROLS : [POS(2)] $BOOL; (* Display carriage controls *)G SMG$V_USER_DISPLAY : [POS (3)] $BOOL; (* User display for DEBUG *)I SMG$V_BLOCK_BORDER : [POS(4)] $BOOL; (* Display is block bordered *)O SMG$V_PROTECT_DISPLAY : [POS(5)] $BOOL; (* Protect display against ASTs *)G SMG$v_spare12 : [POS(6)] $BIT26; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$CREATE_SUBPROCESS.  *)N(* *) CONST SMG$M_TRUSTED = 1; SMG$M_AUTHPRIV = 2; SMG$M_SUBSYSTEM = 4; SMG$m_spare20 = -8; +TYPE SMG$R_CREATE_SUBPROCESS_FLAGS = RECORDK SMG$V_TRUSTED : [POS(0)] $BOOL; (* Set TRUSTED flag for LIB$SPAWN *)L SMG$V_AUTHPRIV : [POS(1)] $BOOL; (* Set AUTHPRIV flag for LIB$SPAWN *)M SMG$V_SUBSYSTEM : [POS(2)] $BOOL; (* Set SUBSYSTEM flag for LIB$SPAWN *)G SMG$v_spare20 : [POS(3)] $BIT29; (* extra bits *) END; N(* *)I(* The following defines bits used with subprocess manipulation. *)N(* *) CONST SMG$M_DATA_FOLLOWS = 1; SMG$M_SEND_EOF = 2; SMG$M_NO_PRINT = 4; SMG$m_spare11 = -8; $TYPE SMG$R_SUBPROCESS_FLAGS = RECORDM SMG$V_DATA_FOLLOWS : [POS(0)] $BOOL; (* The next call specifies  data. *)Q SMG$V_SEND_EOF : [POS(1)] $BOOL; (* Send an end-of-file to the subprocess *)P SMG$V_NO_PRINT : [POS(2)] $BOOL; (* Do not output command to the display *)G SMG$v_spare11 : [POS(3)] $BIT29; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$DELETE_PASTEBOARD. *)N(*  *) CONST SMG$M_ERASE_PBD = 1; SMG$M_IGNORE_BATCHED = 2; SMG$m_spare10 = -4; $TYPE SMG$R_DELETE_PBD_FLAGS = RECORDG SMG$V_ERASE_PBD : [POS(0)] $BOOL; (* Erase the pasteboard *)O SMG$V_IGNORE_BATCHED : [POS(1)] $BOOL; (* Delete even if pbd is batched *)G SMG$v_spare10 : [POS(2)] $BIT30; (* extra bits *) END; N(*  *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$CREATE_PASTEBOARD. *)N(* *) CONST SMG$M_KEEP_CONTENTS = 1; SMG$M_WORKSTATION = 2; SMG$m_spare9 = -4; $TYPE SMG$R_CREATE_PBD_FLAGS = RECORDK SMG$V_KEEP_CONTENTS : [POS(0)] $BOOL; (* Don't erase the pasteboard *)P SMG$V_WORKSTATION : [POS(1)] $BOOL; (* Pasteboard is DE Cwindows terminal *)G SMG$v_spare9 : [POS(2)] $BIT30; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$READ_xxxx. *)N(* *) CONST SMG$M_FUNC_KEYS = 1; SMG$M_NOKEEP = 2; SMG$M_NORECALL = 4; SMG$m_spare 8 = -8; TYPE SMG$R_READ_FLAGS = RECORDG SMG$V_FUNC_KEYS : [POS(0)] $BOOL; (* Disable line-editting. *)K SMG$V_NOKEEP : [POS(1)] $BOOL; (* Don't save input in recall buffer *)N SMG$V_NORECALL : [POS(2)] $BOOL; (* Disable input recall for this call *)G SMG$v_spare8 : [POS(3)] $BIT29; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$SET_CURSOR_MODE. *)N(* *) CONST SMG$M_CURSOR_OFF = 1; SMG$M_CURSOR_ON = 2; SMG$M_SCROLL_JUMP = 4; SMG$M_SCROLL_SMOOTH = 8; SMG$m_spare16 = -16; $TYPE SMG$R_SET_CURSOR_FLAGS = RECORDJ SMG$V_CURSOR_OFF : [POS(0)] $BOOL; (* Turn the physical cursor off *)H SMG$V_CURSOR_ON : [POS(1)] $BOOL; (* Turn the physical cursor on *)G SMG $V_SCROLL_JUMP : [POS(2)] $BOOL; (* Set jump scroll *)G SMG$V_SCROLL_SMOOTH : [POS(3)] $BOOL; (* Set smooth scroll *)G SMG$v_spare16 : [POS(4)] $BIT28; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$GET_DISPLAY_ATTR. *)N(*  *) CONST SMG$M_VIEWPORT = 1; SMG$M_SUBPROCESS = 2; SMG$M_MENU = 4; SMG$m_spare7 = -8; %TYPE SMG$R_GET_DISPLAY_FLAGS = RECORDG SMG$V_VIEWPORT : [POS(0)] $BOOL; (* Display contains a viewport *)K SMG$V_SUBPROCESS : [POS(1)] $BOOL; (* Display contains a subprocess *)G SMG$V_MENU : [POS(2)] $BOOL; (* Display contains a menu *)G SMG$v_spare7 : [POS(3)] $BIT29; (* extra bits *) END; N(*  *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$PUT_CHARS. *)N(* *) CONST SMG$M_ERASE_LINE = 1; SMG$M_ERASE_TO_EOL = 2; SMG$m_spare6 = -4; #TYPE SMG$R_PUT_CHARS_FLAGS = RECORDG SMG$V_ERASE_LINE : [POS(0)] $BOOL; (* Erase the entire line *)P SMG$V_ERASE_T O_EOL : [POS(1)] $BOOL; (* Erase from cursor to end of line *)G SMG$v_spare6 : [POS(2)] $BIT30; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$MOVE_TEXT. *)N(* *) CONST SMG$M_TEXT_SAVE = 1; SMG$M_TEXT_ ONLY = 2; SMG$m_spare17 = -4; #TYPE SMG$R_MOVE_TEXT_FLAGS = RECORDM SMG$V_TEXT_SAVE : [POS(0)] $BOOL; (* Don't erase text after moving it *)G SMG$V_TEXT_ONLY : [POS(1)] $BOOL; (* Don't move attributes *)G SMG$v_spare17 : [POS(2)] $BIT30; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$PUT_PASTEBOARD and SMG$SNAP SHOT. *)N(* *) CONST SMG$M_FORM_FEED = 1; SMG$m_spare5 = -2; "TYPE SMG$R_SNAPSHOT_FLAGS = RECORDN SMG$V_FORM_FEED : [POS(0)] $BOOL; (* Output form feed before first row *)G SMG$v_spare5 : [POS(1)] $BIT31; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$PUT_xxxx. *)N(* *) CONST SMG$M_WRAP_CHAR = 1; SMG$M_WRAP_WORD = 2; SMG$m_spare4 = -4; "TYPE SMG$R_PUT_LINE_FLAGS = RECORDQ SMG$V_WRAP_CHAR : [POS(0)] $BOOL; (* Do character wrapping at end of line *)L SMG$V_WRAP_WORD : [POS(1)] $BOOL; (* Do word wrapping at end of line *)G SMG$v_spare4 : [POS(2)] $BIT30; ( * extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$SET_KEYPAD_MODE. *)N(* *) #CONST SMG$M_KEYPAD_APPLICATION = 1; SMG$M_KEYPAD_NUMERIC = 2; SMG$m_spare3 = -4; TYPE SMG$R_KEYPAD_MODES = RECORDH SMG$V_KEYPA D_APPLICATION : [POS(0)] $BOOL; (* Application keypad *)G SMG$V_KEYPAD_NUMERIC : [POS(1)] $BOOL; (* Numeric keypad *)G SMG$v_spare3 : [POS(2)] $BIT30; (* extra bits *) END; N(* *)I(* The following defines bits used with the FLAGS parameter for *)I(* SMG$GET_PASTING_INFO. *)N(*  *) CONST SMG$M_DISPLAY_PASTED = 1; SMG$m_spare19 = -2; &TYPE SMG$R_PASTING_INFO_FLAGS = RECORDG SMG$V_DISPLAY_PASTED : [POS(0)] $BOOL; (* Display is pasted *)G SMG$v_spare19 : [POS(1)] $BIT31; (* extra bits *) END; N(* *)I(* The following defines bits used with menu manipulation. *)N(*  *) CONST SMG$M_REMOVE_ITEM = 1; SMG$M_FIXED_FORMAT = 2; SMG$M_DOUBLE_SPACE = 4; SMG$M_RETURN_IMMED = 8; SMG$M_ERASE_MENU = 16; SMG$M_WIDE_MENU = 32; SMG$M_WRAP_MENU = 64; SMG$M_FULL_FIELD = 128; SMG$m_spare2 = -256; TYPE SMG$R_MENU_FLAGS = RECORDG SMG$V_REMOVE_ITEM : [POS(0)] $BOOL; (* Only select item once *)G SMG$V_FIXED_FORMAT : [POS(1)] $BOOL; (* Use fixed size cols *)G SMG$V_DOUBLE_SPACE : [POS(2)] $BOOL; (* Double space menu rows  *)G SMG$V_RETURN_IMMED : [POS(3)] $BOOL; (* Ret on non-arrow key *)G SMG$V_ERASE_MENU : [POS(4)] $BOOL; (* Erase menu when deleting *)G SMG$V_WIDE_MENU : [POS(5)] $BOOL; (* Wide menu items *)J SMG$V_WRAP_MENU : [POS(6)] $BOOL; (* Wrap menu items top to bottom *)G SMG$V_FULL_FIELD : [POS(7)] $BOOL; (* Highlight entire field *)_ (* SCROLL_BARS bitfield mask; /* Use scroll bar indicators *)a  (* MARK_ITEM bitfield mask; /* Use def rend for chosen items *)G SMG$v_spare2 : [POS(8)] $BIT24; (* extra bits *) END; N(* *)I(* The following are used with SMG$PUT_LINE_xxxx, *)I(* SMG$SCROLL_DISPLAY_AREA, and SMG$DRAW_CHAR. *)N(* *) CONST SMG$M_UP = 1; SMG$M_DOWN = 2; SMG$M_RIGHT = 4; SMG$M_LEFT = 8; SMG$m_spare1 = -16; TYPE SCROLL_DIRS$TYPE = RECORDG SMG$V_UP : [POS(0)] $BOOL; (* Up *)G SMG$V_DOWN : [POS(1)] $BOOL; (* Down *)G SMG$V_RIGHT : [POS(2)] $BOOL; (* Right *)G SMG$V_LEFT : [POS(3)] $BOOL; (* Left *)G SMG$v_spare1 : [POS(4)] $BIT28; (* extra bits *) END; N(*  *)N(* Define data structures *)N(* *) LCONST SMG$C_BAND_INFORMATION_TABLE = 12; (* Length of table in bytes *) N(* *) LCONST SMG$C_PASTEBOARD_INFO_BLOCK = 36; (* Length of table in bytes *) N(*  *) LCONST SMG$C_KEYBOARD_INFO_BLOCK = 36; (* Length of table in bytes *) &TYPE SMG$TYPE = RECORD CASE INTEGER OFN(* *)I(* When an out-of-band AST triggers, the user's AST routine *)I(* will get called. The first argument passed to his *)I(* routine is the address of a Band Information Table. *)I(* The offsets into this tab le are described below. *)I(* To make it easy to access from certain languages, *)I(* the table is arranged so that it is convenient to *)I(* reference it as a longword vector as well as a byte block. *)N(* *): 1: (SMG$R_BAND_INFORMATION_TABLE : [BYTE(12)] RECORD END; );G 2: (SMG$L_PASTEBOARD_ID : [POS(0)] UNSIGNED; (* Pasteboard ID *)G S MG$L_ARG : [POS(32)] UNSIGNED; (* User's AST argument *)= SMG$R_CHARACTER_OVERLAY : [POS(64), BYTE(4)] RECORD END; );G 3: (SMG$B_CHARACTER : [POS(64)] $UBYTE; (* The character typed *) );K 4: (SMG$L_CHARACTER : [POS(64)] UNSIGNED; (* The character and 3 spaces *)I(* When SMG$GET_PASTEBOARD_ATTRIBUTES is called, *)I(* it returns data in a pasteboard information block. *)I(* The following structure is used to reference fi elds *)I(* in this block. *)I(* Items marked with a plus (+) will be 0 unless the *)I(* device is a terminal (DEVCLASS=DC$_TERM). *)N(* *) );9 5: (SMG$R_PASTEBOARD_INFO_BLOCK : [BYTE(36)] RECORD END; );G 6: (SMG$L_DEVCHAR : [POS(0)] UNSIGNED; (* Device characteristics *)M SMG$L_DEVDEPEND : [POS(32)] UNSIGNED; (* Specific characteristics (1) *)N SMG$L_DEVDEPEND2 : [POS(64)] UNSIGNED; (* Specific characteristics (2) *)J SMG$B_DEVCLASS : [POS(96)] $UBYTE; (* Device class (e.g. DC$_TERM) *)J SMG$B_SMG_DEVTYPE : [POS(104)] $UBYTE; (* Internal SMG device type *)W SMG$B_PHY_DEVTYPE : [POS(112)] $UBYTE; (* Physical device type (e.g. DT$_VT100) *)G SMG$B_ROWS : [POS(120)] $UBYTE; (* Number of rows on device *)G SMG$W_WIDTH : [POS(128)] $UWORD; (* Terminal width *)G SMG$B_COLOR : [POS(144)] $UBYTE; (* PBD background color *)G SMG$B_PARITY : [POS(152)] $UBYTE; (* Parity attributes (+) *)G SMG$W_SPEED : [POS(160)] $UWORD; (* Terminal Speed (+) *)G SMG$W_FILL : [POS(176)] $UWORD; (* Fill characteristics (+) *)M SMG$W_CURSOR_ROW : [POS(192)] $UWORD; (* Row where physical cursor is *)G (* (1-origin) *)M SMG$W_CURSOR_COL : [POS(208)] $UWORD; (* Col where physical cursor is *)G (* (1-origin) *)H SMG$L_CURSOR_DID : [POS(224)] UNSIGNED; (* Display id of topmost *)G (* display that cursor is in. *)G (* 0 if cursor is not in a *)G (* virtual display *)O SMG$L_DEVDEPEND3 : [POS(256)] UNSIGNED; (* Specific characteristics (3) *)I(* When SMG$GET_KEYBOARD_ATTRIBUTES is called, *)I(* it returns data in a keyboard information block. *)I(* The following structure is used to reference fields *)I(* in this block. *)I(* Items marked with a plus (+) will be 0 unless the *)I(* device is a terminal (DEVCLASS=DC$_TERM). *)N(*  *) );7 7: (SMG$R_KEYBOARD_INFO_BLOCK : [BYTE(36)] RECORD END; );K 8: (SMG$B_RECALL_SIZE : [POS(104)] $UBYTE; (* Size of recall buffer (+) *)W SMG$B_TYPEAHEAD_CHAR : [POS(120)] $UBYTE; (* First char in typeahead buffer (+) *)] SMG$W_TYPEAHEAD_COUNT : [POS(144)] $UWORD; (* Number of chars in typeahead buffer (+) *) ) END; N(* *)N(* Define the out-of-band information table used when an out-of-band *)N(* AST routine is called as it's own record. *)N(* *) 5TYPE SMG$R_OUT_OF_BAND_TABLE = RECORD CASE INTEGER OFG 1: (SMG$L_PBD_ID : UNSIGNED; (* Pasteboard ID *)G SMG$L_USER_ARG : UNSIGNED; (* User's AST argument *)/ SMG$R_CHAR_OVERLAY : [BYTE(4)] RECORD END; );G 2: (SMG$B_CHAR : [POS(64)] $UBYTE; (* The character typed *) );G 3: (SMG$L_CHAR : [POS(64)] UNSIGNED; (* The character and 3 spaces *) ) END; LCONST SMG$C_OUT_OF_BAND_TABLE = 12; (* Length of table in bytes *) N(* *)N(* Define the subprocess information table used when a subprocess *)N(* AST routine is called as it's own record. *)N(*  *) )TYPE SMG$R_SUBPROCESS_INFO_TABLE = RECORDG SMG$L_DISP_ID : UNSIGNED; (* Display ID *)G SMG$L_USR_ARG : UNSIGNED; (* User's AST argument *)G SMG$L_STATUS : UNSIGNED; (* Status of executed command *) END; LCONST SMG$C_SUBPROCESS_INFO_TABLE = 12; (* Length of table in bytes *) N(* *)N(* Define an information  table that can be used by both *)N(* SMG$GET_PASTEBOARD_ATTRIBUTES and SMG$GET_KEYBOARD_ATTRIBUTES *)N(* as it's own record. *)N(* *) 8TYPE SMG$R_ATTRIBUTE_INFO_BLOCK = RECORD CASE INTEGER OFG 1: (SMG$L_DEV_CHAR : UNSIGNED; (* Device characteristics *)G SMG$L_DEV_DEPEND : UNSIGNED; (* Specific characteristics (1) *)G! SMG$L_DEV_DEPEND2 : UNSIGNED; (* Specific characteristics (2) *)G SMG$B_DEV_CLASS : $UBYTE; (* Device class (e.g. DC$_TERM) *). SMG$R_DEV_OVERLAY : [BYTE(1)] RECORD END;L SMG$B_DEV_TYPE : $UBYTE; (* Physical device type (e.g. DT$_VT100) *). SMG$R_ROW_OVERLAY : [BYTE(1)] RECORD END;G SMG$W_NUM_COLUMNS : $UWORD; (* Terminal width *)0 SMG$R_COUNT_OVERLAY : [BYTE(2)] RECORD END;G SMG$W_DEV_SPEED : $UWORD; (* Terminal Speed (+) " *)G SMG$W_DEV_FILL : $UWORD; (* Fill characteristics (+) *)G SMG$W_PHYS_CURSOR_ROW : $UWORD; (* Row where physical cursor is *)G SMG$W_PHYS_CURSOR_COL : $UWORD; (* Col where physical cursor is *)G SMG$L_DISPLAY_ID : UNSIGNED; (* Display containing phy cursor *)G SMG$L_DEV_DEPEND3 : UNSIGNED; (* Specific characteristics (3) *) );G 2: (SMG$B_PBD_TYPE : [POS(104)] $UBYTE; (* Internal SMG device type *)G SMG$B_NUM_ROWS : [POS(120)] $UBYT #E; (* Number of rows on device *)Y SMG$W_TYPEAHD_CNT : [POS(144)] $UWORD; (* Number of chars in typeahead buffer (+) *) );J 3: (SMG$B_RECALL_NUM : [POS(104)] $UBYTE; (* Size of recall buffer (+) *)U SMG$B_TYPEAHD_CHAR : [POS(120)] $UBYTE; (* First char in typeahead buffer (+) *)9 SMG$R_COUNT_STRUCT : [POS(144), BYTE(2)] RECORD END; );G 4: (SMG$B_PBD_COLOR : [POS(144)] $UBYTE; (* PBD background color *)G SMG$B_DEV_PARITY : [POS(152)] $UBYTE; (* Parity attribu $tes (+) *) ) END; LCONST SMG$C_ATTRIBUTE_INFO_BLOCK = 36; (* Length of table in bytes *) N(* END. *) N(* MODULE SMGTRMPTR ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; %*)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD & *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; ' *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSA(FE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *))J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; * *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),+UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; ,*) (*** MODULE $SMGTRMPTR ***)N(* Terminal Capability Pointers for RTL SMG$ facility *) N(* *)N(* Boolean capabilities here - 1 - 220 *)N(* *) CONST SMG$K_ADVANCED_VIDEO = 1; SMG$K_ANSI_CRT = 2; SMG$K_AUTO_MARGIN = 3; SMG$K_BACKSPACE = 4; SMG$K_BLOCK_MODE = 5; SMG$K_DEC-_CRT = 6; SMG$K_EDIT = 7; SMG$K_EIGHT_BIT = 8; SMG$K_FULLDUP = 9; SMG$K_IGNORE_NEWLINE = 10; SMG$K_INSERT_MODE_NULLS = 11; SMG$K_LOWERCASE = 12; SMG$K_NO_ERASE = 13; SMG$K_NO_SCROLL = 14; SMG$K_OVERSTRIKE = 15; SMG$K_PRINTER_PORT = 16; SMG$K_REGIS = 17; SMG$K_SCOPE = 18; SMG$K_SIXEL_GRAPHICS = 19; SMG$K_SOFT_CHARACTERS = 20; SMG$K_PHYSICAL_TABS = 21; SMG$K_PHYSICAL_FF = 22; SMG$K_UNDERLINE = 23; SMG$K_CURSOR_REPORT_ANSI = 24; SMG$K_DEC_CRT_2 = 25; SMG$K ._DEC_CRT_3 = 26; SMG$K_SET_CURSOR_COL_ROW = 27; SMG$K_TEXT16 = 28; SMG$K_DEC_CRT_4 = 29; SMG$K_DEC_CRT_5 = 30; SMG$K_ANSI_COLOR = 31; N(* *)N(* Private capabilities reserved for customer use. *)N(* Put them at the end of the range. *)N(* *) CONST SMG$K_PRIVATE_BOO_1 = 21/1; SMG$K_PRIVATE_BOO_2 = 212; SMG$K_PRIVATE_BOO_3 = 213; SMG$K_PRIVATE_BOO_4 = 214; SMG$K_PRIVATE_BOO_5 = 215; SMG$K_PRIVATE_BOO_6 = 216; SMG$K_PRIVATE_BOO_7 = 217; SMG$K_PRIVATE_BOO_8 = 218; SMG$K_PRIVATE_BOO_9 = 219; SMG$K_PRIVATE_BOO_10 = 220; SMG$K_MAX_BOOLEAN_CODE = 220; N(* *)N(* Numeric capabilities here - 221 to 440 *)N(* 0 *) CONST SMG$K_COLUMNS = 221; SMG$K_CR_FILL = 222; SMG$K_FRAME = 223; SMG$K_LF_FILL = 224; SMG$K_NUMBER_FN_KEYS = 225; SMG$K_ROWS = 226;! SMG$K_VMS_TERMINAL_NUMBER = 227;! SMG$K_WIDE_SCREEN_COLUMNS = 228; N(* *)N(* Private capabilities for customer use. *)N(* Put them at the end of the range. 1 *)N(* *) CONST SMG$K_PRIVATE_NUM_1 = 431; SMG$K_PRIVATE_NUM_2 = 432; SMG$K_PRIVATE_NUM_3 = 433; SMG$K_PRIVATE_NUM_4 = 434; SMG$K_PRIVATE_NUM_5 = 435; SMG$K_PRIVATE_NUM_6 = 436; SMG$K_PRIVATE_NUM_7 = 437; SMG$K_PRIVATE_NUM_8 = 438; SMG$K_PRIVATE_NUM_9 = 439; SMG$K_PRIVATE_NUM_10 = 440; SMG$K_MAX_NUMERIC_CODE = 440; N(* 2*)N(* String capabilities here - 441 - 660 *)N(* *) 'CONST SMG$K_BEGIN_ALTERNATE_CHAR = 441; SMG$K_BEGIN_BLINK = 442; SMG$K_BEGIN_BOLD = 443; SMG$K_BEGIN_DELETE_MODE = 444; SMG$K_BEGIN_INSERT_MODE = 445;% SMG$K_BEGIN_LINE_DRAWING_CHAR = 446; SMG$K_BEGIN_REVERSE = 447; SMG$K_BEGIN_UNDERSCORE = 448; SMG$K_BOTTOM_T_CHAR = 449; SMG$K_CLEAR_TAB = 450; SMG$K_CROSS_CHA3R = 451; SMG$K_CURSOR_DOWN = 452; SMG$K_CURSOR_LEFT = 453; SMG$K_CURSOR_RIGHT = 454; SMG$K_CURSOR_UP = 455; SMG$K_DARK_SCREEN = 456; SMG$K_DELETE_CHAR = 457; SMG$K_DELETE_LINE = 458; SMG$K_DEVICE_ATTRIBUTES = 459; SMG$K_DOUBLE_HIGH_BOTTOM = 460; SMG$K_DOUBLE_HIGH_TOP = 461; SMG$K_DOUBLE_WIDE = 462; SMG$K_DUPLICATE = 463; SMG$K_END_ALTERNATE_CHAR = 464; SMG$K_END_BLINK = 465; SMG$K_END_BOLD = 466; SMG$K_END_DELETE_MODE = 467; SMG$K_END_INSERT_MODE = 468;#4 SMG$K_END_LINE_DRAWING_CHAR = 469; SMG$K_END_REVERSE = 470; SMG$K_END_UNDERSCORE = 471;" SMG$K_ERASE_TO_END_DISPLAY = 472; SMG$K_ERASE_TO_END_LINE = 473;! SMG$K_ERASE_WHOLE_DISPLAY = 474; SMG$K_ERASE_WHOLE_LINE = 475; SMG$K_HOME = 476; SMG$K_HORIZONTAL_BAR = 477; SMG$K_INIT_STRING = 478; SMG$K_INSERT_CHAR = 479; SMG$K_INSERT_LINE = 480; SMG$K_INSERT_PAD = 481; SMG$K_KEY_0 = 482; SMG$K_KEY_1 = 483; SMG$K_KEY_2 = 484; SMG$K_KEY_3 = 485; SMG$K_KEY_4 = 486; S5MG$K_KEY_5 = 487; SMG$K_KEY_6 = 488; SMG$K_KEY_7 = 489; SMG$K_KEY_8 = 490; SMG$K_KEY_9 = 491; SMG$K_KEY_BACKSPACE = 492; SMG$K_KEY_COMMA = 493; SMG$K_KEY_DOWN_ARROW = 494; SMG$K_KEY_E1 = 495; SMG$K_KEY_E2 = 496; SMG$K_KEY_E3 = 497; SMG$K_KEY_E4 = 498; SMG$K_KEY_E5 = 499; SMG$K_KEY_E6 = 500; SMG$K_KEY_ENTER = 501; SMG$K_KEY_F1 = 502; SMG$K_KEY_F2 = 503; SMG$K_KEY_F3 = 504; SMG$K_KEY_F4 = 505; SMG$K_KEY_F5 = 506; SMG$K_KEY_F6 = 507; SMG$K_KEY_F7 = 508;6 SMG$K_KEY_F8 = 509; SMG$K_KEY_F9 = 510; SMG$K_KEY_F10 = 511; SMG$K_KEY_F11 = 512; SMG$K_KEY_F12 = 513; SMG$K_KEY_F13 = 514; SMG$K_KEY_F14 = 515; SMG$K_KEY_F15 = 516; SMG$K_KEY_F16 = 517; SMG$K_KEY_F17 = 518; SMG$K_KEY_F18 = 519; SMG$K_KEY_F19 = 520; SMG$K_KEY_F20 = 521; SMG$K_KEY_LEFT_ARROW = 522; SMG$K_KEY_MINUS = 523; SMG$K_KEY_PERIOD = 524; SMG$K_KEY_PF1 = 525; SMG$K_KEY_PF2 = 526; SMG$K_KEY_PF3 = 527; SMG$K_KEY_PF4 = 528; SMG$K_KEY_RIGHT_ARR7OW = 529; SMG$K_KEY_UP_ARROW = 530; SMG$K_LABEL_F1 = 531; SMG$K_LABEL_F2 = 532; SMG$K_LABEL_F3 = 533; SMG$K_LABEL_F4 = 534; SMG$K_LABEL_F5 = 535; SMG$K_LABEL_F6 = 536; SMG$K_LABEL_F7 = 537; SMG$K_LABEL_F8 = 538; SMG$K_LABEL_F9 = 539; SMG$K_LABEL_F10 = 540; SMG$K_LABEL_F11 = 541; SMG$K_LABEL_F12 = 542; SMG$K_LABEL_F13 = 543; SMG$K_LABEL_F14 = 544; SMG$K_LABEL_F15 = 545; SMG$K_LABEL_F16 = 546; SMG$K_LABEL_F17 = 547; SMG$K_LABEL_F18 = 548; SMG$K_LABEL_F198 = 549; SMG$K_LABEL_F20 = 550; SMG$K_LEFT_T_CHAR = 551; SMG$K_LIGHT_SCREEN = 552; SMG$K_LOWER_LEFT_CORNER = 553; SMG$K_LOWER_RIGHT_CORNER = 554; SMG$K_NAME = 555; SMG$K_NEWLINE_CHAR = 556; SMG$K_PAD_CHAR = 557; SMG$K_RESTORE_CURSOR = 558; SMG$K_RIGHT_T_CHAR = 559; SMG$K_SAVE_CURSOR = 560; SMG$K_SCROLL_FORWARD = 561; SMG$K_SCROLL_REVERSE = 562;& SMG$K_SEL_ERASE_TO_END_DISPLAY = 563;# SMG$K_SEL_ERASE_TO_END_LINE = 564;% SMG$K_SEL_ERASE_WHOLE_DISPLAY = 565;" SMG$K_SEL9_ERASE_WHOLE_LINE = 566;$ SMG$K_SET_APPLICATION_KEYPAD = 567;$ SMG$K_SET_CHAR_NOT_SEL_ERASE = 568; SMG$K_SET_CHAR_SEL_ERASE = 569; SMG$K_SET_CURSOR_ABS = 570; SMG$K_SET_NUMERIC_KEYPAD = 571; SMG$K_SET_SCROLL_REGION = 572; SMG$K_SET_TAB = 573; SMG$K_SINGLE_HIGH = 574; SMG$K_TAB_CHAR = 575; SMG$K_TOP_T_CHAR = 576; SMG$K_UNDERLINE_CHAR = 577; SMG$K_UPPER_LEFT_CORNER = 578; SMG$K_UPPER_RIGHT_CORNER = 579; SMG$K_VERTICAL_BAR = 580; SMG$K_WIDTH_NARROW = 581; SMG$K_WIDTH_WID:E = 582;$ SMG$K_CURSOR_POSITION_REPORT = 583;% SMG$K_REQUEST_CURSOR_POSITION = 584; SMG$K_CR_GRAPHIC = 585; SMG$K_FF_GRAPHIC = 586; SMG$K_LF_GRAPHIC = 587; SMG$K_HT_GRAPHIC = 588; SMG$K_VT_GRAPHIC = 589; SMG$K_TRUNCATION_ICON = 590; SMG$K_CURSOR_NEXT_LINE = 591;# SMG$K_CURSOR_PRECEDING_LINE = 592; SMG$K_INDEX = 593; SMG$K_REVERSE_INDEX = 594;$ SMG$K_BEGIN_NORMAL_RENDITION = 595;! SMG$K_BEGIN_AUTOWRAP_MODE = 596; SMG$K_END_AUTOWRAP_MODE = 597;# SMG$K_BEGIN_AUTOREPEAT_MO;DE = 598;! SMG$K_END_AUTOREPEAT_MODE = 599;! SMG$K_SET_ORIGIN_RELATIVE = 600;! SMG$K_SET_ORIGIN_ABSOLUTE = 601;" SMG$K_ERASE_LINE_TO_CURSOR = 602; SMG$K_NEXT_LINE = 603;" SMG$K_BEGIN_AUTOPRINT_MODE = 604; SMG$K_END_AUTOPRINT_MODE = 605; SMG$K_PRINT_SCREEN = 606; SMG$K_SET_CURSOR_ON = 607; SMG$K_SET_CURSOR_OFF = 608; SMG$K_SET_PRINTER_OUTPUT = 609; SMG$K_SET_SCREEN_OUTPUT = 610;% SMG$K_ERASE_DISPLAY_TO_CURSOR = 611;$ SMG$K_REQUEST_PRINTER_STATUS = 612; SMG$K_PRINTER_READY < = 613; SMG$K_PRINTER_NOT_READY = 614; SMG$K_NO_PRINTER = 615; SMG$K_SET_JUMP_SCROLL = 616; SMG$K_SET_SMOOTH_SCROLL = 617; SMG$K_ERROR_ICON = 618; SMG$K_PAGE_LENGTH = 619; N(* *)N(* Private capabilities reserved for customer use. *)N(* Put them at the end of the range. *)N(* = *) CONST SMG$K_PRIVATE_STR_1 = 651; SMG$K_PRIVATE_STR_2 = 652; SMG$K_PRIVATE_STR_3 = 653; SMG$K_PRIVATE_STR_4 = 654; SMG$K_PRIVATE_STR_5 = 655; SMG$K_PRIVATE_STR_6 = 656; SMG$K_PRIVATE_STR_7 = 657; SMG$K_PRIVATE_STR_8 = 658; SMG$K_PRIVATE_STR_9 = 659; SMG$K_PRIVATE_STR_10 = 660; SMG$K_MAX_STRING_CODE = 660; N(* *)N(* Second string capabilities here - 661 - 880 > *)N(* *) CONST SMG$K_BEGIN_USER1 = 661; SMG$K_BEGIN_USER2 = 662; SMG$K_BEGIN_USER3 = 663; SMG$K_BEGIN_USER4 = 664; SMG$K_BEGIN_USER5 = 665; SMG$K_BEGIN_USER6 = 666; SMG$K_BEGIN_USER7 = 667; SMG$K_BEGIN_USER8 = 668; SMG$K_END_USER1 = 669; SMG$K_END_USER2 = 670; SMG$K_END_USER3 = 671; SMG$K_END_USER4 = 672; SMG$K_END_USER5 = 673; SMG$K_END_USER6 = 674; SMG$K_END_USER7 = 675; SMG$K?_END_USER8 = 676; SMG$K_BLACK_SCREEN = 677; SMG$K_BLUE_SCREEN = 678; SMG$K_CYAN_SCREEN = 679; SMG$K_MAGENTA_SCREEN = 680; SMG$K_GREEN_SCREEN = 681; SMG$K_RED_SCREEN = 682; SMG$K_WHITE_SCREEN = 683; SMG$K_YELLOW_SCREEN = 684; SMG$K_USER1_SCREEN = 685; SMG$K_USER2_SCREEN = 686; SMG$K_BEGIN_STATUS_LINE = 687; SMG$K_END_STATUS_LINE = 688; SMG$K_BEGIN_LOCATOR = 689; SMG$K_END_LOCATOR = 690; SMG$K_KEY_FIRST_DOWN = 691; SMG$K_KEY_SECOND_DOWN = 692; SMG$K_KEY_THIRD_D@OWN = 693; SMG$K_KEY_FOURTH_DOWN = 694; SMG$K_KEY_FIRST_UP = 695; SMG$K_KEY_SECOND_UP = 696; SMG$K_KEY_THIRD_UP = 697; SMG$K_KEY_FOURTH_UP = 698; SMG$K_USER3_SCREEN = 699; SMG$K_USER4_SCREEN = 700; SMG$K_USER5_SCREEN = 701; SMG$K_USER6_SCREEN = 702; SMG$K_USER7_SCREEN = 703; SMG$K_USER8_SCREEN = 704; SMG$K_SET_ASCII = 705; SMG$K_SET_SPEC_GRAPHICS = 706; SMG$K_SET_SUPPLEMENTAL = 707; SMG$K_SET_JIS_KANA = 708; SMG$K_SET_KANJI = 709; SMG$K_SET_JIS_ROMAN = 710; S AMG$K_SET_HANZI = 711; SMG$K_SET_HANYU = 712; SMG$K_SET_HANGUL = 713; SMG$K_SET_KS_ROMAN = 714; SMG$K_MAX_STRING2_CODE = 880; N(* END. *) N(* MODULE SRMDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; B *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD C *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTDEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)JE(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; F *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNGSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)HJ(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; I *) (*** MODULE $DSCDEF ***) N(* Define Procedure argument data types *)N(* The following encoding is used for atomic data elements: *)N(* Mnemonic Code Description *) QCONST DSC$K_DTYPE_Z = 0; (* Unspecified. The calling program has *)S DSC64$K_DTYPE_Z = 0; (* specified no data type/* the called *) N(* procedure should assume J the argument is of *)N(* the correct type. *) SCONST DSC$K_DTYPE_BU = 2; (* Byte Logical. 8-bit unsigned quantity. *) DSC64$K_DTYPE_BU = 2;O DSC$K_DTYPE_WU = 3; (* Word Logical. 16-bit unsigned quantity. *) DSC64$K_DTYPE_WU = 3;I DSC$K_DTYPE_LU = 4; (* Longword Logical. 32-bit unsigned *)G DSC64$K_DTYPE_LU = 4; (* quantity. *)I DKSC$K_DTYPE_QU = 5; (* Quadword Logical. 64-bit unsigned *)G DSC64$K_DTYPE_QU = 5; (* quantity. *)J DSC$K_DTYPE_OU = 25; (* Octaword Logical. 128-bit unsigned *)G DSC64$K_DTYPE_OU = 25; (* quantity. *)Q DSC$K_DTYPE_B = 6; (* Byte Integer. 8-bit signed 2's-complement *)G DSC64$K_DTYPE_B = 6; (* integer. *)R DSC$K_DTYPE_W = 7; (* Word Integer. L16-bit signed 2's-complement *)G DSC64$K_DTYPE_W = 7; (* integer. *)G DSC$K_DTYPE_L = 8; (* Longword Integer. 32-bit signed *)G DSC64$K_DTYPE_L = 8; (* 2's-complement integer. *)G DSC$K_DTYPE_Q = 9; (* Quadword Integer. 64-bit signed *)G DSC64$K_DTYPE_Q = 9; (* 2's-complement integer. *)H DSC$K_DTYPE_O = 26; (* Octaword Integer. 128-bit signed *)G DSC64$K_DTYPE_O = 26; M (* 2's-complement integer. *)[ DSC$K_DTYPE_F = 10; (* F_floating. 32-bit F_floating quantity representing *)G DSC64$K_DTYPE_F = 10; (* a single-precision number. *)[ DSC$K_DTYPE_D = 11; (* D_floating. 64-bit D_floating quantity representing *)G DSC64$K_DTYPE_D = 11; (* a double-precision number. *)[ DSC$K_DTYPE_G = 27; (* G_floating. 64-bit G_floating quantity representing *)G DSC64$K_DTYPE_G = 27; N (* a double-precision number. *)\ DSC$K_DTYPE_H = 28; (* H_floating. 128-bit H_floating quantity representing *)G DSC64$K_DTYPE_H = 28; (* a quadruple-precision number. *)V DSC$K_DTYPE_FC = 12; (* F_floating complex. Ordered pair of F_floating *)Y DSC64$K_DTYPE_FC = 12; (* quantities representing a single-precision complex *) N(* number. The lower addressed quantity is the *)N(* real part, the higher addr Oessed quantity is the *)N(* imaginary part. *) [CONST DSC$K_DTYPE_DC = 13; (* D_floating complex. Ordered pair of D_floating *)Y DSC64$K_DTYPE_DC = 13; (* quantities representing a double-precision complex *) N(* number. The lower addressed quantity is the *)N(* real part, the higher addressed quantity is the *)N(* imaginary part. P *) [CONST DSC$K_DTYPE_GC = 29; (* G_floating complex. Ordered pair of G_floating *)Y DSC64$K_DTYPE_GC = 29; (* quantities representing a double-precision complex *) N(* number. The lower addressed quantity is the *)N(* real part, the higher addressed quantity is the *)N(* imaginary part. *) [CONST DSC$QK_DTYPE_HC = 30; (* H_floating complex. Ordered pair of H_floating *)\ DSC64$K_DTYPE_HC = 30; (* quantities representing a quadruple-precision complex *) N(* number. The lower addressed quantity is the *)N(* real part, the higher addressed quantity is the *)N(* imaginary part. *) gCONST DSC$K_DTYPE_FS = 52; (* IEEE floating basic single S. 32-bit quRantity representing *)G DSC64$K_DTYPE_FS = 52; (* a single-precision number. *)b DSC$K_DTYPE_FT = 53; (* IEEE floating basic double T. 64-bit quantity representing *)G DSC64$K_DTYPE_FT = 53; (* a double-precision number. *)h DSC$K_DTYPE_FSC = 54; (* IEEE floating basic single S complex. Ordered pair of S_floating *)Y DSC64$K_DTYPE_FSC = 54; (* quantities representing a single-precision complex *) N(* number. The lower addresse Sd quantity is the *)N(* real part, the higher addressed quantity is the *)N(* imaginary part. *) mCONST DSC$K_DTYPE_FTC = 55; (* IEEE floating basic double T complex. Ordered pair of T_floating *)Y DSC64$K_DTYPE_FTC = 55; (* quantities representing a double-precision complex *) N(* number. The lower addressed quantity is the *)N(* rTeal part, the higher addressed quantity is the *)N(* imaginary part. *) kCONST DSC$K_DTYPE_FX = 57; (* IEEE floating basic quadruple X. 128-bit quantity representing *)G DSC64$K_DTYPE_FX = 57; (* an extended-precision number. *)k DSC$K_DTYPE_FXC = 58; (* IEEE floating basic quadruple X complex. Ordered pair of X_floating *)\ DSC64$K_DTYPE_FXC = 58; (* quantities repre Usenting an extended-precision complex *) N(* number. The lower addressed quantity is the *)N(* real part, the higher addressed quantity is the *)N(* imaginary part. *) YCONST DSC$K_DTYPE_CIT = 31; (* COBOL Intermediate Temporary. Floating point *)P DSC64$K_DTYPE_CIT = 31; (* datum with an 18 digit normalized decimal *) N(* fraction and a 2 digit decimal expoVnent. The *)N(* fraction is represented as a packed decimal *)N(* number. The exponent is represented as a *)N(* 16-bit 2's complement integer. *)N(* The following string types are ordinarily described by a string *)N(* descriptor. The data type codes below occur in those descriptors: *) [CONST DSC$K_DTYPE_T = 14; (* Character-coded tex Wt. A single 8-bit character *)O DSC64$K_DTYPE_T = 14; (* (atomic data type) or a sequence of 0 to *) N(* 2**16-1 8-bit characters (string data type). *) TCONST DSC$K_DTYPE_VT = 37; (* Varying Character-coded Text Data Type. *) DSC64$K_DTYPE_VT = 37;G DSC$K_DTYPE_T2 = 38; (* 16-bit Text (Asian workstations) *) DSC64$K_DTYPE_T2 = 38;G DSC$K_DTYPE_NU = 15; (* Numeric string, unsigned. *) DSC64$K_DTYPE_N XU = 15;K DSC$K_DTYPE_NL = 16; (* Numeric string, left separate sign. *) DSC64$K_DTYPE_NL = 16;N DSC$K_DTYPE_NLO = 17; (* Numeric string, left overpunched sign. *) DSC64$K_DTYPE_NLO = 17;L DSC$K_DTYPE_NR = 18; (* Numeric string, right separate sign. *) DSC64$K_DTYPE_NR = 18;O DSC$K_DTYPE_NRO = 19; (* Numeric string, right overpunched sign. *) DSC64$K_DTYPE_NRO = 19;G DSC$K_DTYPE_NZ = 20; (* Numeric string, zoned sign. *) Y DSC64$K_DTYPE_NZ = 20;G DSC$K_DTYPE_P = 21; (* Packed decimal string. *) DSC64$K_DTYPE_P = 21;G DSC$K_DTYPE_V = 1; (* Bit. An aligned bit string. *) DSC64$K_DTYPE_V = 1;G DSC$K_DTYPE_VU = 34; (* Bit Unaligned. *) DSC64$K_DTYPE_VU = 34; N(* The following encodings are used for miscellaneous data types: *) LCONST DSC$K_DTYPE_ZI = 22; (* Sequence of instructions. *) DSC64$K_DTYPE_ZI Z= 22;G DSC$K_DTYPE_ZEM = 23; (* Procedure entry mask. *) DSC64$K_DTYPE_ZEM = 23;V DSC$K_DTYPE_DSC = 24; (* Descriptor. This data type allows a descriptor *)T DSC64$K_DTYPE_DSC = 24; (* to be an argument data type, thereby allowing *) N(* the use of levels of descriptors. *) YCONST DSC$K_DTYPE_BPV = 32; (* Bound Procedure Value. A two longword entity *)W DSC64$K_DTYPE_BPV = 32; (* in which[ the first longword contains the address *) N(* of a procedure entry mask and the second longword *)N(* contains the environment value. The environmeent *)N(* value is determined in a language specific *)N(* fashion when the original Bound Procedure Value *)N(* is generated. When the bound procedure is *)N(* invoked, the calling program loads the second \ *)N(* longword into R1. This data type can be passed *)N(* using the immediate value mechanism when the *)N(* environment value is not needed. In this case *)N(* the argument list entry contains the address of *)N(* the procedure entry mask and the second longword *)N(* is omitted. *) ]LCONST DSC$K_DTYPE_BLV = 33; (* Bound label value. *) DSC64$K_DTYPE_BLV = 33;G DSC$K_DTYPE_ADT = 35; (* Absolute Date and Time *) DSC64$K_DTYPE_ADT = 35; U(* K DTYPE_???,36 /* DTYPE code 36 is reserved for future definition *)N(* The following types are used by the VAX/VMS Debug Facility: \FOR *)N(* INTERNAL DOCUMENTATION ONLY. For details, see VAX/VMS Debug Facility *)N(* Documentation.\ ^ *) LCONST DSC$K_DTYPE_CAD = 178; (* Address calculation command *) DSC64$K_DTYPE_CAD = 178;G DSC$K_DTYPE_ENT = 179; (* Entry global definition *) DSC64$K_DTYPE_ENT = 179;G DSC$K_DTYPE_GBL = 180; (* Global symbol definition *) DSC64$K_DTYPE_GBL = 180;G DSC$K_DTYPE_EPT = 181; (* Entry point to routine. *) DSC64$K_DTYPE_EPT = 181;O DSC$K_DTYPE_R11 = 182; (* Line number relative t _o R11 correlation *)G DSC64$K_DTYPE_R11 = 182; (* table. *)G DSC$K_DTYPE_FLD = 183; (* BLISS FIELD name. *) DSC64$K_DTYPE_FLD = 183;G DSC$K_DTYPE_PCT = 184; (* PSECT information. *) DSC64$K_DTYPE_PCT = 184;L DSC$K_DTYPE_DPC = 185; (* PC correlation table for FORTRAN IV+ *) DSC64$K_DTYPE_DPC = 185;G DSC$K_DTYPE_LBL = 186; (* LITERAL or LABEL *) DSC64$K_DTYPE_LBL = 186 `;N DSC$K_DTYPE_SLB = 187; (* Label in non-assembly language modules *) DSC64$K_DTYPE_SLB = 187;G DSC$K_DTYPE_MOD = 188; (* Beginning of new module *) DSC64$K_DTYPE_MOD = 188;G DSC$K_DTYPE_EOM = 189; (* End of module *) DSC64$K_DTYPE_EOM = 189;G DSC$K_DTYPE_RTN = 190; (* Beginning of new routine *) DSC64$K_DTYPE_RTN = 190;G DSC$K_DTYPE_EOR = 191; (* End of routine *) DSC64$K_DTYPE a_EOR = 191; N(* The following type codes are RESERVED for future use: *)N(* 37-177 RESERVED to DEC *)N(* 192-255 RESERVED to CSS and customers *)N(* *)N(* A uniform descriptor mechanism is defined for use by all procedures *)N(* which conform to this standard. Descriptors are uniformly typed and *)N(* the mbechanism is extensible. As new varieties of descriptor become *)N(* necessary, they will be added to this catalogue. *)N(* Note: *)N(* *)N(* All fields represent unsigned quantities unless explicitly stated *)N(* otherwise. *)N(* c *)N(* 32-bit Descriptor Prototype *)N(* *)N(* Each class of 32-bit descriptor consists of at least 2 longwords in *)N(* the following format: *)N(* *)N(* +-------+-------+---------------+ d *)N(* | CLASS | DTYPE | LENGTH | :Descriptor *)N(* +-------+-------+---------------+ *)N(* | POINTER | *)N(* +-------------------------------+ *)N(* *)N(* DSC$W_LENGTH A one-word field specific to the descriptor *)N(* e <0,15:0> class/* typically a 16-bit (unsigned) length. *)N(* *)N(* DSC$B_DTYPE A one-byte atomic data type code *)N(* <0,23:16> *)N(* *)N(* DSC$B_CLASS A one-byte descriptor class code (see below) *)N(* <0,31:24> f *)N(* *)N(* DSC$A_POINTER A longword pointing to the first byte of the *)N(* <1,31:0> data element described. *)N(* *)N(* 64-bit Descriptor Prototype *)I(* g *)N(* Each class of 64-bit descriptor consists of at least 3 aligned *)N(* quadwords in the following format: *)N(* *)N(* +-------+-------+---------------+ *)N(* | CLASS | DTYPE | MBO (=1) | :Descriptor *)N(* +-------+-------+---------------+ *)N(* h| MBMO (=-1) | *)N(* +-------------------------------+ *)N(* | | : 8 *)N(* +- LENGTH -+ *)N(* | | *)N(* +-------------------------------+ *)N(* | i | : 16 *)N(* +- POINTER -+ *)N(* | | *)N(* +-------------------------------+ *)N(* *)N(* DSC64$W_MBO A one-word field which must contain the value 1. *)N(* <0,15:0> j *)N(* *)N(* DSC64$B_DTYPE A one-byte atomic data type code *)N(* <0,23:16> *)N(* *)N(* DSC64$B_CLASS A one-byte descriptor class code (see below) *)N(* <0,31:24> *)N(* k *)N(* DSC$L_MBMO A longword field which must contain the value -1. *)N(* <1,31:0> *)N(* *)N(* DSC64$Q_LENGTH A quadword containing the length of the *)N(* <2,63:0> data element described. *)N(* l *)N(* DSC64$PQ_POINTER A quadword pointing to the first byte of the *)N(* <4,63:0> data element described. *)N(* *)N(* Define the descriptor class codes *)N(* *) LCONST DSC$K_CLASS_Z = 0; (* Unspecified m *)G DSC64$K_CLASS_Z = 0; (* Unspecified *)G DSC$K_CLASS_S = 1; (* Scalar, String Descriptor *)G DSC64$K_CLASS_S = 1; (* Scalar, String Descriptor *)G DSC$K_CLASS_D = 2; (* Dynamic String Descriptor *)G DSC64$K_CLASS_D = 2; (* Dynamic String Descriptor *)G DSC$K_CLASS_V = 3; (* Reserved for use by Digital *)G DSC64$K_CLASS_V = 3; (* Renserved for use by Digital *)G DSC$K_CLASS_A = 4; (* Array Descriptor *)G DSC64$K_CLASS_A = 4; (* Array Descriptor *)G DSC$K_CLASS_P = 5; (* Procedure Descriptor *)G DSC64$K_CLASS_P = 5; (* Procedure Descriptor *)H DSC$K_CLASS_PI = 6; (* Procedure Incarnation Descriptor *)H DSC64$K_CLASS_PI = 6; (* Procedure Incarnation Descriptor *)G DSC$K_CLASS_J = 7; o (* Reserved for use by Digital *)G DSC64$K_CLASS_J = 7; (* Reserved for use by Digital *)G DSC$K_CLASS_JI = 8; (* Obsolete *)H DSC$K_CLASS_SD = 9; (* Decimal Scalar String Descriptor *)H DSC64$K_CLASS_SD = 9; (* Decimal Scalar String Descriptor *)G DSC$K_CLASS_NCA = 10; (* Non-contiguous Array Descriptor *)G DSC64$K_CLASS_NCA = 10; (* Non-contiguous Array Descriptor *)G DSC$K_CLASS_VpS = 11; (* Varying String Descriptor *)G DSC64$K_CLASS_VS = 11; (* Varying String Descriptor *)G DSC$K_CLASS_VSA = 12; (* Varying String Array Descriptor *)G DSC64$K_CLASS_VSA = 12; (* Varying String Array Descriptor *)G DSC$K_CLASS_UBS = 13; (* Unaligned Bit String Descriptor *)G DSC64$K_CLASS_UBS = 13; (* Unaligned Bit String Descriptor *)G DSC$K_CLASS_UBA = 14; (* Unaligned Bit Array Descriptor *)G DqSC64$K_CLASS_UBA = 14; (* Unaligned Bit Array Descriptor *)G DSC$K_CLASS_SB = 15; (* String with Bounds Descriptor *)G DSC64$K_CLASS_SB = 15; (* String with Bounds Descriptor *)S DSC$K_CLASS_UBSB = 16; (* Unaligned Bit String with Bounds Descriptor *)S DSC64$K_CLASS_UBSB = 16; (* Unaligned Bit String with Bounds Descriptor *) N(* *)N(* The following descriptor cl rass is FOR INTERNAL USE ONLY by the VAX *)N(* Common Run-Time Library and Debugger. This descriptor is not passed *)N(* between separately compiled modules. For further information, see *)N(* VAX-11 BASIC Description of Generated Code, Software Document *)N(* Retrieval Number JBS-79-004. *) LCONST DSC$K_CLASS_BFA = 191; (* BASIC File Array Descriptor *) N(* Descriptor classes 17-190 are RESERVED to DEC. s Classes *)N(* 192 through 255 are RESERVED to CSS and customers. *)N(* *)N(* Array Descriptor (DSC$K_CLASS_A) *)N(* *)N(* An array descriptor consists of 3 contiguous blocks. The first block *)N(* contains the descriptor prototype information and is part of every t*)N(* array descriptor. The second and third blocks are optional. If the *)N(* third block is present then so is the second. *)N(* *)N(* A complete 32-bit array descriptor has the form: *)N(* *)N(* +-------+-------+---------------+ *)N(* | 4 | DTYuPE | LENGTH | :Descriptor *)N(* +-------+-------+---------------+ *)N(* | POINTER | *)N(* +-------+-------+---------------+ *)N(* | DIMCT | AFLAGS|DIGITS | SCALE | Block 1 - Prototype *)N(* +-------+-------+---------------+ *)N(* | ARSIZE | v *)N(* +-------------------------------+ *)N(* *)N(* +-------------------------------+ *)N(* | A0 | *)N(* +-------------------------------+ *)N(* | M1 | w *)N(* +-------------------------------+ *)N(* | ... | Block 2 - Multipliers *)N(* +-------------------------------+ *)N(* | M(n-1) | *)N(* +-------------------------------+ *)N(* | Mn | *)N(* +----------x---------------------+ *)N(* *)N(* +-------------------------------+ *)N(* | L1 | *)N(* +-------------------------------+ *)N(* | U1 | *)N(* +-------------------------------+ y *)N(* | ... | Block 3 - Bounds *)N(* +-------------------------------+ *)N(* | Ln | *)N(* +-------------------------------+ *)N(* | Un | *)N(* +-------------------------------+ z *)N(* *)N(* Block 1 of a 64-bit array descriptor has the following *)N(* form. Blocks 2 and 3 have the same form as above, *)N(* EXCEPT that the entries are QUADWORDS rather than *)N(* longwords. *)N(* *)N(* +-------+{-------+---------------+ *)N(* | 4 | DTYPE | MBO | :Descriptor *)N(* +-------+-------+---------------+ *)N(* | MBMO | *)N(* +-------+-------+---------------+ *)N(* | | : 8 *)N(* +- LENGTH -+ | *)N(* | | *)N(* +-------------------------------+ *)N(* | | : 16 *)N(* +- POINTER -+ *)N(* | | *)N(* +-------------------------------+ } *)N(* | DIMCT | AFLAGS|DIGITS | SCALE | : 24 *)N(* +-------+-------+---------------+ *)N(* | MBZ | *)N(* +-------+-------+---------------+ *)N(* | | : 32 *)N(* +- ARSIZE -+ *)N(* | ~ | *)N(* +-------------------------------+ *)N(* *)N(* *)N(* Define descriptor fields. 32-bit versions are defined first, followed *)N(* by the 64-bit equivalents. *)N(*  *)N(* \The following three fields are only valid for descriptor *)N(* class DSC$K_CLASS_BFA (see above). \ *) ATYPE DSC$TYPE = RECORD (* WARNING: aggregate has origin of -12 *)V DSC$A_HANDLE : UNSIGNED; (* The address of a vector of data concerning the *)V (* current state of processing of the array. This *)K (* is set to zero by the creator of the *)S (* descriptor, and maintained thereafter by the *)M (* BASIC file array processing functions. *)T DSC$L_BYTEOFF : UNSIGNED; (* Byte offset in the file of element 0,0,...,0 *)Q (* of the array. This need not be within the *)R (* array, or even within the file if the array *)G (* does not have zero origin.  *)R DSC$L_LOGUNIT : UNSIGNED; (* The logical unit number (BASIC channel) on *)N (* which the file containing the array has *)V (* been opened. This is set by the creator of the *)U (* descriptor before first referencing the array. *)G (* *)i (* End of BASIC File Array specific descriptor fields . The remaining *)R (* fields are common to all array descriptors. *)G (* *)G (* *)[ DSC$W_LENGTH : $UWORD; (* A one-word field specifiec to the descriptor class; *)L (* typically a 16-bit (unsigned) length. *) END; DSC1$TYPE = RECORDZ DSC$W_MAXSTRLEN : $UWORD; (* Max length of the BODY field of the varying string *)J (* in bytes in the range 0 to 2**16-1. *)G (* (Classes VS, VSA) *)G DSC$B_DTYPE : $UBYTE; (* A one-byte atomic data type code *)Z (* Symbols used in this filed have form: DSC$K_DTYPE_t *)S (* where t is the data type mnemonic from above *)J (* and agrees with methodology manual. *)U DSC$B_CLASS : $UBYTE; (* A one-byte descriptor class code (see above). *)Z (* Symbols used in this field have form: DSC$K_CLASS_f *)W (* where f is the argument form mnemonic from above *)N (* and agrees with the methodology manual. *)Y DSC$A_POINTER : UNSIGNED; (* An address pointing to the first byte of the data *)G (* element descri bed. *) END; UCONST DSC$K_Z_BLN = 8; (* Block length in bytes for Z class descr. *)P DSC$C_Z_BLN = 8; (* Block length in bytes for Z class descr. *)P DSC$K_S_BLN = 8; (* Block length in bytes for S class descr. *)P DSC$C_S_BLN = 8; (* Block length in bytes for S class descr. *)P DSC$K_D_BLN = 8; (* Block length in bytes for D class descr. *)P DSC$C_D_BLN = 8; (* Block length in bytes for D class descr. *)P DSC$K_P_BLN = 8; (* Block length in bytes for P class descr. *)P DSC$C_P_BLN = 8; (* Block length in bytes for P class descr. *)P DSC$K_J_BLN = 8; (* Block length in bytes for J class descr. *)P DSC$C_J_BLN = 8; (* Block length in bytes for J class descr. *)Q DSC$K_VS_BLN = 8; (* Block length in bytes for VS class descr. *)Q DSC$C_VS_BLN = 8; (* Block length in bytes for VS c lass descr. *) TYPE DSC2$TYPE = RECORD- DSCDEF$$_FILL_3 : ARRAY [1..4] OF $BYTE;] DSC$A_BASE : UNSIGNED; (* Base of address relative to which the signed relative *)[ (* bit position, POS, is used to locate the bit string. *)G (* (Classes UBS, UBA and UBSB) *) END; N(*+ *)N(* End of common definitions for all descriptors.  *)N(*- *) WCONST DSC$K_UBS_BLN = 12; (* Block length in bytes for UBS class descr. *)R DSC$C_UBS_BLN = 12; (* Block length in bytes for UBS class descr. *) TYPE DSC3$TYPE = RECORD- DSCDEF$$_FILL_4 : ARRAY [1..8] OF $BYTE;M DSC$L_POS : INTEGER; (* Signed longword relative bit position *)L (* with respect to BASE of the first bit *)G (* of unaligned bit string *)U (* WARNING!! Do not use this symbol to reference *)T (* class UBA descriptors! The DSC$L_POS in that *)U (* descriptor is at a variable location after the *)G (* bounds and multiplier blocks. *) END; N(*+  *)N(* *Obsolete* Varying type descriptor definition *)N(* This form should not be used. *)N(*- *) TYPE DSC4$TYPE = RECORD- DSCDEF$$_FILL_5 : ARRAY [1..8] OF $BYTE;G DSC$W_MAXLEN : $UWORD; (* An unsigned word specifying the *)G (* maximum length of the data item *)G  (* (i.e., the space allocated) *)G DSCDEF$$_FILL_1 : $WORD; (* reserved word *) END; N(*+ *)N(* Array Descriptor definitions *)N(*- *) VCONST DSC$K_SD_BLN = 12; (* Block length in bytes for SD class descr. *)Q DSC$C_SD_BLN = 12; (* Block le ngth in bytes for SD class descr. *) 'TYPE DSC5$TYPE = RECORD CASE INTEGER OF0 1: (DSCDEF_64$$_FILL_6 : ARRAY [1..8] OF $BYTE;U DSC$B_SCALE : $BYTE; (* Signed power of ten multiplier to convert the *)T (* internal form to external form. For example, *)Q (* if internal number is 123 and scale is +1, *)T (* then the represented external number is 1230. *)O DSC$B_DIGITS : $UBYTE; (* If non-zero, unsigned number of decimal *)Q (* digits in the external representation. If *)Q (* zero, the number of digits can be computed *)G (* based on DSC$W_LENGTH. *)1 DSC$R_AFLAGS_OVERLAY : [BYTE(1)] RECORD END;G DSC$B_DIMCT : $UBYTE; (* Number of dimensions *)U DSC$L_ARSIZE : UNSIGNED; (* Total size of array (in bytes unless DTYPE is  *)L (* EQUL DSC$K_DTYPE_V or DSC$K_DTYPE_P). *)M DSC$A_A0 : UNSIGNED; (* Address of element A(0,0,...,0). This *)O (* need not be within the actual array/* it *)P (* is the same as DSC$A_POINTER for 0-origin *)G (* arrays. *) );G 2: (DSC$B_AFLAGS : [POS(80)] $UBYTE; (* Array flag bits. *) ); 3: ();U 4: (DSC$V_FL_REDIM : [POS(84)] $BOOL; (* If set, the array can be redimensioned; *)N (* i.e., DSC$A_A0, DSC$L_Mi, DSC$L_Li, and *)R (* DSC$L_Ui may be changed. The redimensioned *)P (* array cannot exceed the size allocated to *)G (* the array (i.e. DSC$L_ARSIZE). *)T DSC$V_FL_COLUMN : [POS(85)] $BOOL; (* If set, the elements of the array are *)N  (* stored by columns (FORTRAN)> Otherwise *)G (* the elements are stored by rows. *)X DSC$V_FL_COEFF : [POS(86)] $BOOL; (* If set, the multiplicative coefficients in *)G (* Block 2 are present. *)X DSC$V_FL_BOUNDS : [POS(87)] $BOOL; (* If set, the bounds information in Block 3 *)G (* is present. *) ) END; DSC6$TYPE = RECORD. DSCDEF$$_FILL_7 : ARRAY [1..16] OF $BYTE;U DSC$L_V0 : INTEGER; (* Signed bit offset of element A(0,0,...0) with *)G (* respect to BASE. (Class UBA) *)d (* The following two fields have meaning only if the array is of *)T (* class DSC$K_CLASS_NCA (Non-contiguous array). *)O DSC$L_S1 : UNSIGNED; (* Stride of the first dimension, i.e. the *)J  (* difference between the addresses of *)R (* successive elements of the first dimension. *)G DSC$L_S2 : UNSIGNED; (* Stride of the second dimension. *) END; DSC7$TYPE = RECORD. DSCDEF$$_FILL_8 : ARRAY [1..20] OF $BYTE;K DSC$L_M1 : UNSIGNED; (* Addressing coefficient M1 = U1-L1+1 *)K DSC$L_M2 : UNSIGNED; (* Addressing coefficient M2 = U2-L2+1 *) END; N(*+  *)N(* Procedure Incarnation descriptor (DSC$K_CLASS_PI) and *)N(* Label Incarnation descriptor (DSC$K_CLASS_JI). *)N(*- *) VCONST DSC$K_PI_BLN = 12; (* Block length in bytes for PI class descr. *)Q DSC$C_PI_BLN = 12; (* Block length in bytes for PI class descr. *)Q DSC$K_JI_BLN = 12; (* block length in bytes fo r JI class descr. *)Q DSC$C_JI_BLN = 12; (* block length in bytes for JI class descr. *) TYPE DSC8$TYPE = RECORD- DSCDEF$$_FILL_9 : ARRAY [1..8] OF $BYTE;G DSC$A_FRAME : UNSIGNED; (* Address of frame *) END; N(*+ *)N(* String with Bounds descriptor (DSC$K_CLASS_SB). *)N(*-  *) TYPE DSC9$TYPE = RECORD. DSCDEF$$_FILL_10 : ARRAY [1..8] OF $BYTE;L DSC$L_SB_L1 : INTEGER; (* Signed lower bound of first dimension *)L DSC$L_SB_U1 : INTEGER; (* Signed upper bound of first dimension *) END; N(*+ *)N(* Unaligned Bit String with Bounds descriptor (DSC$K_CLASS_UBSB). *)N(*- *) TYPE DSC10 $TYPE = RECORD/ DSCDEF$$_FILL_11 : ARRAY [1..12] OF $BYTE;L DSC$L_UBSB_L1 : INTEGER; (* Signed lower bound of first dimension *)L DSC$L_UBSB_U1 : INTEGER; (* Signed upper bound of first dimension *) END; N(* *)N(* 64-bit versions of the descriptors defined above. These are expected *)N(* to be quadword aligned. *)N(*-  *) TYPE DSC64$TYPE = RECORDc DSCDEF_64$$_FILL_1 : ARRAY [1..8] OF $BYTE; (* No 64-bit versions of handle/byteoff/logunit *)G DSC64$Q_LENGTH : $UQUAD; (* 64-bit LENGTH field *) END; DSC1_64$TYPE = RECORDQ DSC64$W_MBO : $UWORD; (* 32-bit LENGTH field is MBO in 64-bit descs *)G DSC64$B_DTYPE : $UBYTE; (* Identical to 32-bit form *)G DSC64$B_CLASS : $UBYTE; (* Identical to 32-bit form  *)S DSC64$L_MBMO : INTEGER; (* 32-bit POINTER field is MBMO in 64-bit descs *)G DSC64$Q_MAXSTRLEN : $UQUAD; (* 64-bit MAXSTRLEN field *)G DSC64$PQ_POINTER : $QUAD; (* 64-bit pointer field *) END; \CONST DSC64$K_Z_BLN = 24; (* Block length in bytes for 64-bit Z class descr. *)W DSC64$C_Z_BLN = 24; (* Block length in bytes for 64-bit Z class descr. *)W DSC64$K_S_BLN = 24; (* Block length in bytes for 64-bit S class descr. *)W DSC64$C_S_BLN = 24; (* Block length in bytes for 64-bit S class descr. *)W DSC64$K_D_BLN = 24; (* Block length in bytes for 64-bit D class descr. *)W DSC64$C_D_BLN = 24; (* Block length in bytes for 64-bit D class descr. *)W DSC64$K_P_BLN = 24; (* Block length in bytes for 64-bit P class descr. *)W DSC64$C_P_BLN = 24; (* Block length in bytes for 64-bit P class descr. *)W DSC64$K_J_BLN = 24;  (* Block length in bytes for 64-bit J class descr. *)W DSC64$C_J_BLN = 24; (* Block length in bytes for 64-bit J class descr. *)X DSC64$K_VS_BLN = 24; (* Block length in bytes for 64-bit VS class descr. *)X DSC64$C_VS_BLN = 24; (* Block length in bytes for 64-bit VS class descr. *) TYPE DSC2_64$TYPE = RECORD1 DSCDEF_64$$_FILL_3 : ARRAY [1..16] OF $BYTE;G DSC64$PQ_BASE : $QUAD; (* 64-bit BASE field *) END; N(*+  *)N(* End of common definitions for all descriptors. *)N(*- *) ^CONST DSC64$K_UBS_BLN = 32; (* Block length in bytes for 64-bit UBS class descr. *)Y DSC64$C_UBS_BLN = 32; (* Block length in bytes for 64-bit UBS class descr. *) TYPE DSC3_64$TYPE = RECORD1 DSCDEF_64$$_FILL_4 : ARRAY [1..24] OF $BYTE ;G DSC64$Q_POS : $QUAD; (* 64-bit POS field *) END; N(* *)N(* 64-bit version of the array descriptor *)N(* *) ]CONST DSC64$K_SD_BLN = 32; (* Block length in bytes for 64-bit SD class descr. *)X DSC64$C_SD_BLN = 32; (* Block length in bytes for 64-bit SD clas s descr. *) *TYPE DSC5_64$TYPE = RECORD CASE INTEGER OF1 1: (DSCDEF_64$$_FILL_6 : ARRAY [1..24] OF $BYTE;G DSC64$B_SCALE : $BYTE; (* 64-bit descriptor SCALE *)G DSC64$B_DIGITS : $UBYTE; (* 64-bit descriptor DIGITS *)G DSC64$R_AFLAGS_OVERLAY : [BYTE(1)] RECORD END; (* *)G DSC64$B_DIMCT : $UBYTE; (* 64-bit descriptor DIMCT *)G DSC64$L_MBZ : UNSIGNED; (* MBZ field for quad alignment. *)G DSC64$Q_ARSIZE : $UQUAD; (* 64-bit descriptor ARSIZE *)G DSC64$PQ_A0 : $QUAD; (* 64-bit descriptor A0 *) );G 2: (DSC64$B_AFLAGS : [POS(208)] $UBYTE; (* 64-bit descriptor AFLAGS *) ); 3: ();) 4: (DSC64$V_FL_REDIM : [POS(212)] $BOOL;* DSC64$V_FL_COLUMN : [POS(213)] $BOOL;) DSC64$V_FL_COEFF : [POS(214)] $BOOL;* DSC64$V_FL_BOUNDS : [POS(215)] $BOOL; ) END; DSC6_64$TYPE = RECORD1 DSCDEF_64$$_FILL_7 : ARRAY [1..40] OF $BYTE;G DSC 64$Q_V0 : $QUAD; (* 64-bit descriptor V0 *)G DSC64$Q_S1 : $UQUAD; (* Stride of the first dimension *)G DSC64$Q_S2 : $UQUAD; (* Stride of the second dimension. *) END; DSC7_64$TYPE = RECORD1 DSCDEF_64$$_FILL_8 : ARRAY [1..48] OF $BYTE;K DSC64$Q_M1 : $UQUAD; (* Addressing coefficient M1 = U1-L1+1 *)K DSC64$Q_M2 : $UQUAD; (* Addressing coefficient M2 = U2-L2+1 *) END; ]CONST DSC64$K_PI_BLN = 32; (*  Block length in bytes for 64-bit PI class descr. *)X DSC64$C_PI_BLN = 32; (* Block length in bytes for 64-bit PI class descr. *)X DSC64$K_JI_BLN = 32; (* block length in bytes for 64-bit JI class descr. *)X DSC64$C_JI_BLN = 32; (* block length in bytes for 64-bit JI class descr. *) TYPE DSC8_64$TYPE = RECORD1 DSCDEF_64$$_FILL_9 : ARRAY [1..24] OF $BYTE;G DSC64$PQ_FRAME : $QUAD; (* Address of frame *) END; DSC9_64$TYPE = RECORD2 DSCDEF_64$$_FILL_10 : ARRAY [1..24] OF $BYTE;L DSC64$Q_SB_L1 : $QUAD; (* Signed lower bound of first dimension *)L DSC64$Q_SB_U1 : $QUAD; (* Signed upper bound of first dimension *) END; DSC10_64$TYPE = RECORD2 DSCDEF_64$$_FILL_11 : ARRAY [1..32] OF $BYTE;L DSC64$Q_UBSB_L1 : $QUAD; (* Signed lower bound of first dimension *)L DSC64$Q_UBSB_U1 : $QUAD; (* Signed upper bound of first dimension *) END; (*** MODULE $SRMDEF ***) N(*+  *)N(* Define SRM Hardware symbols *)N(*- *) LCONST SRM$K_INT_OVF_T = 1; (* Integer overflow trap code *)H SRM$K_INT_DIV_T = 2; (* Integer divide by zero trap code *)G SRM$K_FLT_OVF_T = 3; (* Floating overflow trap code *)Q SRM$K_FLT_DIV_T = 4; (* Floating/decimal Divide by zero trap code *)G SRM$K_FLT_UND_T = 5; (* Floating Underflow trap code *)I SRM$K_DEC_OVF_T = 6; (* Decimal string overflow trap code *)G SRM$K_SUB_RNG_T = 7; (* Subscript range trap *)G SRM$K_FLT_OVF_F = 8; (* Floating Overflow fault code *)J SRM$K_FLT_DIV_F = 9; (* Floating Divide by zero fault code *)G SRM$K_FLT_UND_F = 10; (* Floating Underflow fault code *) SRM$M_EXC_SUM_SWC = 1; SRM$M_EXC_SUM_INV = 2; SRM$M_EXC_SUM_DZE = 4; SRM$M_EXC_SUM_OVF = 8; SRM$M_EXC_SUM_UNF = 16; SRM$M_EXC_SUM_INE = 32; SRM$M_EXC_SUM_IOV = 64; &TYPE SRM$TYPE = RECORD CASE INTEGER OF2 1: (SRM$R_EXC_SUM_OVERLAY : [BYTE(4)] RECORD END; );' 2: (SRM$L_EXC_SUM : [POS(0)] UNSIGNED; ); 3: ();( 4: (SRM$V_EXC_SUM_SWC : [POS(0)] $BOOL;( SRM$V_EXC_SUM_INV : [POS(1)] $BOOL;( SRM$V_EXC_SUM_DZE : [POS(2)] $BOOL;( SRM$V_EXC_SUM_OVF : [POS(3)] $BOOL;(  SRM$V_EXC_SUM_UNF : [POS(4)] $BOOL;( SRM$V_EXC_SUM_INE : [POS(5)] $BOOL;( SRM$V_EXC_SUM_IOV : [POS(6)] $BOOL; ) END; N(* END. *) N(* MODULE SSMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767;  *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095;  *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431;  *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED;  *) (*** MODULE $SSDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:30.67 *)N(* *)N(* *)N(* SSMSG.MSG - SYSTEM DEFINITION FILE FOR SYSTEM SERVICE MESSAGES *)N(*  *)J(* VERSION: 'X-139' *)N(* *)O(* ************************************************************************* *)O(* * * *)O(* * HP CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL PROPRIETARY SOFTWARE * *)O(* * LICENSED BY HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., AND IS NOT * *)O(* * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT THE * *)O(* * PRIOR WRITTEN PERMISSION OF HP. * *)O(* * (C) 2015 COPYRIGHT HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *)O(* * * *)O(* * VMS SOFTWARE, INC. CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL * *)O(* * PROPRIETARY SOFTWARE LICENSED BY VMS SOFTWARE, INC., AND IS NOT  * *)O(* * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT * *)O(* * THE PRIOR WRITTEN PERMISSION OF VMS SOFTWARE, INC. * *)O(* * (C) 2015-2018 COPYRIGHT VMS SOFTWARE, INC. * *)O(* * * *)O(* ************************************************************************* *)N(*++ *)N(*  *)N(* FACILITY: VMS SYSTEM MACRO LIBRARIES *)N(* *)N(* ABSTRACT: *)N(* *)I(* THIS FILE CONTAINS THE SDL SOURCE FOR SYSTEM SERVICE MESSAGES. *)N(*  *)N(* GUIDELINES: *)N(* *)J(* WITH THE RELEASE OF HELP MESSAGE, MESSAGE DOCUMENTATION MUST EXACTLY *)K(* MATCH THE MESSAGE TEXT IN THIS FILE IN ORDER FOR THE ONLINE SEARCH TO *)I(* SUCCEED. TO AVOID DOCUMENTING EMBARRASSING TYPOS OR GRAMMATICAL *)I(* ERRORS, PLEASE FORWARD YOUR NEW OR CHANGED MESSAGES TO THE MESSAGES *)I(* WRITER FOR A QUICK EDIT. VMS SENIOR MANAGEMENT SUPPORTS ENFORCING *)I(* STANDARD MESSAGE FORMATTING CONVENTIONS, WHICH ARE INCLUDED IN THE *)I(* FOLLOWING GUIDELINES. *)N(* *)Q(* O SS$ CODE NAMES SHOULD BE 15 OR FEWER CHARACTERS TO PREVENT TRUNCATION *)I(* IN MESSAGE TEXT, WHICH CAUSES GENERAL CONFUSION. *)N(*  *)P(* O WORDS IN MESSAGES SHOULD NOT BEGIN WITH CAPS UNLESS THEY WOULD START *)N(* WITH CAPS IN RUNNING TEXT. FOR EXAMPLE, *)N(* *)I(* WRONG: *)I(* RIGHT: *)N(*  *)J(* THIS IS NOT WELL KNOWN, BUT THE $GETMSG SYSTEM SERVICE AUTOMATICALLY *)K(* CONVERTS TO UPPERCASE THE INITIAL LETTER OF A MESSAGE WHEN RETRIEVING *)I(* A MESSAGE IN AN ENVIRONMENT WHERE THE FACILITY, SEVERITY, AND *)I(* IDENTIFICATION FIELDS HAVE BEEN SUPPRESSED. *)N(* *)G(* O ACRONYMS SHOULD BE UPPERCASE ONLY: *)N(*  *)I(* *)N(* *)G(* O DO NOT USE PUNCTUATION AT THE END OF A MESSAGE. *)N(* *)N(* O AVOID USING CONTRACTIONS IN MESSAGES. FOR EXAMPLE, USE "cannot" *)N(* INSTEAD OF "can't" AND "does not" INSTEAD OF "doesn't".  *)N(* *)J(* O "It's" IS A CONTRACTION FOR "it is". THE POSSESSIVE IS "its". *)N(* *)K(* O USE THE WORDS "and" OR "or" INSTEAD OF A "/" WHENEVER POSSIBLE. *)N(* *)I(* WRONG: *)I(* RIGHT: *)N(* *)N(* O AVOID USING HYPHENS TO SEPARATE CLAUSES. USE A SEMICOLON INSTEAD. *)N(* *)I(* WRONG: *)I(* RIGHT: *)N(*  *)K(* O SEMICOLONS SHOULD BE USED TO SEPARATE MAIN CLAUSES THAT ARE NOT *)J(* JOINED BY "and" OR "but". IN THE ABOVE EXAMPLE, IT IS GRAMMATICALLY *)M(* INCORRECT TO USE A COMMA IN PLACE OF THE SEMICOLON. A COMMA IS CORRECT *)L(* WHEN EITHER CLAUSE DOES NOT FORM A COMPLETE SENTENCE OR WHEN THE COMMA *)I(* IS USED TO SEPARATE ITEMS IN A LIST. FOR EXAMPLE, *)N(* *)I(* *)N(* *)G(* O ABOVE ALL, KEEP THE JARGON TO A MINIMUM AND CONCENTRATE ON *)I(* COMMUNICATING A MESSAGE THAT IS AS INFORMATIVE AND HELPFUL AS YOU *)I(* CAN MAKE IT. *)N(* *)N(*  *)N(* NOTE BENE: WHEN OBSOLETING OR ADDING MESSAGES: *)N(* *)N(* O REUSE OBSOLETE MESSAGE ENTRIES WHEN POSSIBLE. THESE ARE MARKED BY *)I(* A MESSAGE NAME OF OBSOLETE_. *)N(* *)N(* O IF YOU MUST REMOVE A MESSAGE, DON'T SIMPLY DELETE IT. IF MESSAGES *)K(* COME AFTER IT, OBSOLETE IT BY CHANGING THE NAME TO OBSOLETE_. *)I(* LOOK FOR THE OTHER OBSOLETE MESSAGES TO FIND OUT WHAT THE NEXT FREE *)K(* NUMBER IS. THIS WILL LET OTHERS KNOW THAT WHEN THEY WANT A SLOT, THEY *)I(* CAN REUSE SOME OBSOLETE MESSAGE INSTEAD OF ADDING A NEW ONE. *)N(* *)Q(* O THE 64-BIT PROJECT HAS ENABLED THE ENTIRE ALPHA VIRTUAL ADDRESS RANGE *)K(* (WITH THE EXCEPTION OF THE GAP) TO BE AVAILABLE. THEREFORE, MESSAGES *)J(* THAT DISPLAY ADDRESSES, INCLUDING PCS, MUST DISPLAY THE FULL 64-BITS *)K(* OF THOSE ADDRESSES. USE THE !XH FAO DIRECTIVE FOR THIS PURPOSE. FAO *)I(* (SYS$FAO & SYS$FAOL_64 ONLY) FOR ALPHA HANDLES QUADWORD ARGUMENTS *)J(* BY VALUE SO YOU DO NOT HAVE TO SPECIFY THE INDIRECTION OPERATOR (@). *)N(*-- *)N(* *)H(* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *)N(* *)N(* MODIFIED BY: *)N(* *)1(* X-139 DAG DOUG GORDON 25-JUL-2018 *)B(* ADD PWDPOLICY. *)N(* *)6(* X-138 MAS MARK A. STILES 10-FEB-2015 *)B(* WE'RE BAAAAACK! *)B(* ADD COWBOYUP AND UPDATE COPYRIGHT. *)N(* *)@(* X-137 ACG0722 ANDY GOLDSTEIN, 15-OCT-2008 12:00 *)B(* REMOVE UNUSED SS$_SYMLINKENTRY STATUS *)B(* ALSO GENERALIZE TEXT OF TOOMANYVER MESSAGE *)N(*  *)4(* X-136 AJ ANDERS JOHANSSON 10-OCT-2008 *)C(* ADD INVKTLIM MESSAGE, AND ADJUST THE "room left" ACCORDINGLY *)E(* FOR THAT SECTION. I ACTUALLY COUNTED THE MESSAGES, AND APPLIED *)B(* A GREATER ADJUSTMENT TO MATCH THE DEFINED NUMBER OF MSGS IN *)B(* THE COMMENT. *)N(* *)5(* X-135 SAN SANDEEP RAMAVANA 12-JUN-2008  *)B(* ADD A NEW SUCCESS STATUS RETURN, LOWPREC *)N(* *)N(* X-134 LSH LON HILDE 31-OCT-2004 *)S(* TWEAK ASTFLT MESSAGE CHANGING "target PC" TO "target PC or FV". *)N(* *)8(* X-133 MAS0823 MARK A. STILES 20-OCT-2006 *)B(* IT'S BEEN A LONG AND FUN RIDE, VMS. THIS IS MY LAST *)B(* CHECKIN ON MY LAST DAY. AN APPROPRIATE REMINDER STATUS *)E(* FOR FUTURE NOTIFICATION. FIXUP REVISION NUMBERS TO MATCH VDE. *)N(* *)N(* X-132 DOUGLAS FYFE 29-NOV-2005 *)B(* ADD SS$_TOOMANYPERSONA PERSONA ARRAY FULL STATUS. *)N(* *)N(* X-131 KGB KENNETH G. BLAYLOCK 23-SEP-2005 *)N(* ADD IN THE SUCCESS STATUS OF SS$_SYMLINKENTRY TO *)N(* INDICATE THAT THE DIRECTORY ENTRY HAS A SYMLINK *)N(* HINT VALUE. *)N(* *).(* X-129/130 WBF BURNS FISHER 12-MAY-2005 *)B(* ADD "reason mask" FIELD TO SS$_DEBUG_FAULT. IT SHOULD BE *)B(* JUST LIKE ACCVIO  *)N(* *)N(* X-128 KGB KENNETH G. BLAYLOCK 29-NOV-2004 *)N(* ADD IN A NEW FILE WARNING. FILEFULL WHICH INDICATES *)N(* THAT THE SUPPORTED ALLOCATION FOR THE FILE IS FULL. *)N(* *)9(* X-127 RAB0122 ROBERT A. BROOKS -SEP-2004 *)B(* CHANGE TEXT FOR NOMODNONEPOL TO CORRELATE WITH *)B(* NAME CHANGE OF HBMM NONE POLICY TO NODEFAULT (NO DEFAULT). *)B(* ERROR NAME STAYS THE SAME, OF COURSE. *)N(* *)B(* REMOVE THE WORD QIOSERVER FROM NOMOREPATHS. QIOSERVER IS *)C(* DEAD, BUT THE ERROR MESSAGE IS STILL BEING USED BY MULTIPATH *)B(* AND MULTIPATH-AWARE COMPONENTS ($GETDVI, FOR EXAMPLE). *)N(*  *)2(* X-126 RUTH GOLDENBERG 10-AUG-2004 *)I(* ADD INFORMATIONALS FOR GEM: ARGTYPN, FPMODECTL, FPMODEPC, FPMODERC *)N(* *)2(* X-125 RUTH GOLDENBERG 4-AUG-2004 *)B(* TWEAK TEXT FOR SS$_TOOMANYLNAM. *)N(* *)8(* X-124 MAS0800 MARK A. STILES 7-JUL -2004 *)B(* ADD GAMEOVER MESSAGE FOR INTERSTELLAR CONQUEST. *)N(* *)9(* X-123 RAB0106 ROBERT A. BROOKS 26-MAY-2004 *)B(* MORE SHADOWING MESSAGES. *)N(* *)9(* X-122 RAB0103 ROBERT A. BROOKS 17-MAY-2004 *)B(* MORE SHADOWING MESSAGES FOR HBMM. *)N(*  *)9(* X-121 RAB0102 ROBERT A. BROOKS 11-MAY-2004 *)B(* MORE SHADOWING MESSAGES FOR HBMM. *)N(* *)7(* X-120 SAD STUART A. DAVIDSON 7-MAY-2004 *)B(* ADD SS$_QIO_FAULT FOR SPECIAL TREATMENT THAT $QIO *)B(* NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE. *)B(* SS$_QIO_FAULT IS HANDLED BY A CALLER'S MODE JACT, *)B(* WHERAS QIO_CROCK IS HANDLED IN THE SYSTEM SERVICE *)B(* DISPATCHER (WHICH IS PROBLEMATIC WITH THE IA64 CALLING *)B(* STANDARD). *)N(* *)8(* X-119 RAB098 ROBERT A. BROOKS 05-MAY-2004 *)B(* ADD SEVERAL SHADOWING-RELATED MESSAGES TO REPLACE THE *)B(* TOO-GENERIC INCSHAMEM.  *)N(* *).(* X-118 CLAIR GRANT 21-APR-2004 *)B(* ELIMINATE "Digital" AND "DEC" FROM ERROR TEXT STRINGS *)N(* *)2(* X-117 WBF BURNS FISHER 31-MAR-2004 *)B(* ADD SS$_CALLUNDEFSYM *)N(* *)4(* X-116 JRC JOHN R. COVERT 12-MAR-2004 *)B(* ADD XVALNOTVALID FOR EXTENDED LOCK VALUE BLOCK *)N(* *)8(* X-115 RAB086 ROBERT A. BROOKS 03-FEB-2004 *)B(* ADD HBMMCREPOSTMRG FOR HBMM. *)N(* *)4(* X-114 DJM DENNIS MATTOON 27-JAN-2004 *)B(* ADD SYMBOLS/MESSAGES FOR TIE  *)N(* *)8(* X-113 RAB085 ROBERT A. BROOKS 16-JAN-2004 *)B(* ADD WLGCANTHBMM FOR HBMM, TO INDICATE THAT OLDER *)B(* DEVICES CAPABLE OF MSCP-BASED MINIMERGE (HSC/HSD/HSJ) *)B(* CANNOT USE HBMM. *)N(* *)8(* X-112 RAB084 ROBERT A. BROOKS 14-JAN-2004 *)B(* ADD SEVERAL MESSAGES FOR HOST-BASED MINIMERGE (HBMM). *)N(* *)7(* X-111 KLN3346 KAREN L. NOEL 7-SEP-2003 *)B(* O CHANGE TAKEN_BRANCH TO USE DISPLAY PC/PS. *)D(* O CHANGE NEW REASON MASKS TO BYTES OR WORDS INSTEAD OF QUADS. *)N(* *)7(* X-110 KLN3340 KAREN L. NOEL 28-AUG-2003 *)B(* O ADD SS CODES FOR TAKEN BRANCH FAULT, IA32 TRAP, DEBUG *)B(* FAULT AND SYSTEM BREAK. *)B(* O FIX SEVERITY OF APPLICATION BREAK. *)B(* O FIX NATFAULT TO DISPLAY REASON MASK INSTEAD OF ISR. *)N(* *)7(* X-109 KLN3299 KAREN L. NOEL 4-JUN-2003 *)B(* ADD SS$_INSF_SHM_REG. *)N(*  *)6(* X-108 LC0001 LARRY CAMILLI 12-MAR-2003 *)B(* ADD SS$_FILENOTCACHED. *)N(* *)5(* X-107 PJB0044 PAUL BENOIT 02-DEC-2002 *)B(* ADD SS$_BREAK_ARCH. *)N(* *)5(* X-106 PJB0029 PAUL BENOIT 08-NOV-2002 *)B(* ADD SS$_BREAK_APPL.  *)N(* *)5(* X-105 PJB0021 PAUL BENOIT 18-OCT-2002 *)B(* ADD SS$_FLTDENORMAL. *)N(* *)5(* X-104 PJB0013 PAUL BENOIT 12-SEP-2002 *)B(* ADD SS$_NATFAULT. *)N(*  *)7(* X-103 SAD STUART A. DAVIDSON 18-JUL-2002 *)B(* ADD TURSTCONF FOR USE WHEN AN OPERATION WOULD VIOLATE *)B(* THE TRUSTED ENVIRONMENT FOR PRIVILEGED IMAGE EXECUTION. *)N(* *)2(* X-102 RUTH GOLDENBERG 10-MAY-2002 *)B(* MODIFY SS$_INCOMPAT TEXT FOR USE BY $GETJPI IN A FAILURE *)B(* TO GET AN UNDEFINED ITEM CODE FROM A TARGET SYSTEM. *)N(*  *)8(* X-101 DJS011203 DAVE SWEENEY 07-DEC-2001 *)B(* ADD SS$_FORCEX FOR USE BY DCL COMMAND STOP/IMAGE. *)N(* *)9(* X-100 EMW0253 ELINOR M. WOODS 15-OCT-2001 *)B(* ADD SS$_EXITFORCED FOR USE BY SYS$DELPRC IN *)B(* SUPPORT OF NEW EXIT FUNCTIONALITY. *)N(*  *)7(* X-99 MAS0677 MARK A. STILES 24-AUG-2001 *)B(* ADD SS$_PRESTO FOR USE BY INTERRUPT OR FORK SERVICE *)B(* ROUTINES WHICH HAVE KNOWLEDGE THAT THE SAVED INTERRUPT *)B(* OR EXCEPTION FRAME NEED NOT BE MULTIPLY PRESERVED. *)N(* *)7(* X-98 MAS0671 MARK A. STILES 16-MAR-2001 *)B(* ADD SS$_FISH FOR MESSAGE TRANSLATION, OR LACK THEREOF. *)N(*  *)-(* X-97 ABP ANU PANT 18-SEP-2000 *)B(* ADD SS$_PATHAMBIG, SS$_INVMVIP, SS$_NOPATHAVAIL, *)B(* AND SS$_NOENACURINV FOR USE BY MULTIPATH SYSTEM *)B(* SERVICE. *)N(* *)5(* X-96 JMB224 JAMES M. BLUE 7-MAR-2000 *)B(* ADD SS$_NOSUCHQPOOLID FOR USE BY QIOSERVER'S  HANDLING OF *)B(* POOL DEALLOCATION. CORRECT PREVIOUS QIOSERVER MESSAGE *)B(* ADDS TO CONFORM WITH GUIDELINES ABOVE. *)N(* *)6(* X-95 KLN2158 KAREN L. NOEL 03-MAR-2000 *)B(* ADD BADRAD. *)N(* *)5(* X-94 JMB197 JAMES M. BLUE 6-JAN-2000 *)B(* ADD SS$_QPOOL_DEL_INIT, SS$_QPOOL_DEL_INPRG, AND *)B(* SS$_QPOOL_DEL_BUSY FOR USE BY QIOSERVER'S HANDLING OF *)B(* POOL DEALLOCATION. *)N(* *)5(* X-93 EMB ELLEN M. BATBOUTA 05-NOV-1999 *)H(* ADD SS$_NOADD AND SS$_SYSTEMUIC MESSAGES FOR THE CLASS *)B(* SCHEDULER. *)N(*  *)5(* X-92 JMB183 JAMES M. BLUE 23-SEP-1999 *)B(* ADD MESSAGES FOR QIOSERVER'S QIO$CONFIGURE AND QCP. *)N(* *)5(* X-91 EMB ELLEN M. BATBOUTA 12-AUG-1999 *)B(* ADD SS$_INCLASS ERROR MESSAGE. THIS ERROR MESSAGE WILL *)B(* BE RETURNED BY THE $SCHED SYSTEM SERVICE WHEN AN ATTEMPT *)B(* IS MADE TO CLASS SCHEDULE A PROCESS/KERNEL THREAD WHEN *)B(* IT ALREADY BELONGS TO A SCHEDULING CLASS FROM THE *)B(* CLASS SCHEDULER DATABASE FILE. *)N(* *)5(* X-90 JMB076 JAMES M. BLUE 22-MAR-1999 *)B(* ADD SS$_NOQIOSERVER - QIOSERVER'S QIO$CONFIGURE *)B(* PROCESS IS NOT AVAILABLE TO HANDLE SYS$QIOSERVER *)B(* REQUESTS. ADD SS$_INVQSRFNC - THE FUNCTION CODE *)B(* IN THE SYS$QIOSERVER REQUEST IS INVALID. *)N(* *)N(* X-89 GP GENADY PERCHENKO 18-FEB-1999 *)N(* ADD WRONGDRV *)N(* *)6(* X-88 JAH0323 JOHN A HARNEY 10-DEC-1998 *)B(* ADD PERSONARESERVED FOR OPERATIONS ATTEMPTED ON *)B(* A RESERVED PERSONA INDEX. *)N(* *)4(* X-87 JRK390 JIM KAUFFMAN 11-SEP-1998 *)B(* ADD NOCPUMATCH AND TRIM CPUSELECTED TO FIT PAGE *)N(* *)4(* X-86 JRK390 JIM KAUFFMAN 9-JUL-1998 *)B(* ADD CPUSELECTED *)N(*  *)7(* X-85 KJP-SDOS KEVIN PLAYFORD 29-JUN-1998 *)B(* UPDATE SNAPSHOT SERVICES MESSAGES BASED ON DEVICE NAME *)B(* CHANGE. *)N(* *)5(* X-84 EMB ELLEN M. BATBOUTA 04-JUN-1998 *)H(* ADD 2 NEW ERROR MESSAGES, NOFASTPATH AND CPUNOTAVAIL. *)N(* *)N(* X-83 GP GENADY PERCHENKO 26-MAY-1998 *)N(* FIX A TYPO IN ERROR SYMBOL. IT SGOULD BE DEVNOTCON *)N(* INSTEAD OF MPDEVNOTCON. *)N(* *)N(* X-82 GP GENADY PERCHENKO 20-MAY-1998 *)N(* ADD SOME MORE MULTIPATH STATUS CODES. AND RENAME SOME *)N(* EXISTING ONES. *)N(* *)N(* X-81 GP GENADY PERCHENKO 02-APR-1998 *)N(* ADD NEW STATUS CODES FOR MULTIPATH. *)N(* *)/(* X-80 DAVE BERNARDO 24-FEB-1998 *)B(* ADD BADLCKTBL AND MAKE BROKEN A SUCCESS STATUS CODE. *)B(* MAKE THE ERROR TEXT MORE MEANINGFUL. *)N(* *)2(* X-79 AHM039 DREW MASON 17-FEB-1998 *)B(* ADD MORE STATUS CODES FOR GALAXY MEMBERSHIP SERVICES. *)N(* *);(* X-78 PKH-G006 PAUL K. HARTER, JR. 27-JAN-1998 *)B(* ADDED TWO STATUS CODES FOR GALAXY MEMBERSHIP SERVICES. *)N(*  *)2(* X-77 AHM034 DREW MASON 26-JAN-1998 *)B(* ADD STATUS CODES FOR GALAXY MEMBERSHIP CALLBACKS. *)N(* *)2(* X-76 NELSON PAT NELSON 14-JAN-1998 *)B(* CLEANED UP INSTRUCTIONS AT TOP OF FILE. *)N(* *)2(* X-75 DMB DAVE BERNARDO 07-JAN-1998 *)B(* ADD MORE STATUS CODES FOR GALAXY LOCKING. *)N(* *)0(* X-74 HAR HAROLD READ 10-DEC-1997 *)B(* ADD NEW STATUS CODE FOR MSCP ERRORS. *)N(* *)N(* X-73 JAH0250 JOHN A HARNEY 11-NOV-1997 *)N(* ADD SS$_NOSUCHEXT FOR IMPERSONATION SERVICES TO TELL *)N(*  THE USER THERE'S NO SUCH EXTENSION. *)N(* *)2(* X-72 DMB DAVE BERNARDO 27-OCT-1997 *)B(* ADD STATUS CODES FOR GALAXY LOCKING. *)N(* *)6(* X-71 KLN2008 KAREN L. NOEL 21-OCT-1997 *)B(* ADD NEW STATUS CODES FOR GALAXY SHARED MEMORY. *)N(*  *))(* X-70 HAR HAROLD READ 18-SEP-1997 *)N(* ADD TEN NEW ERROR MESSAGES FOR DU/TUDRIVER. *)N(* *).(* X-69 ANDY KUEHNEL 10-SEP-1997 *)G(* ADD SS$_SECREFOVF ERROR TO BE RETURNED IF ADDING MORE REFERENCES *)G(* TO A GLOBAL SECTION WOULD CAUSE THE REFERENCE COUNT TO OVERFLOW. *)N(*  *)9(* X-68 WDB:MTD20 WALTER BLASCHUK 13 AUG 1997 *)B(* MULTIPLE TAPE DENSITY PROJECT: INSERT TWO INFORMATIONALS *)N(* SS$_NOTATBOT AND SS$_PREVSDENS. ALPHA AND VAX. *)N(* *)7(* X-67 KJP-SDOS KEVIN PLAYFORD 18-JUL-1997 *)E(* UPDATE SNAP CAPABLE DISK ERROR MESSAGES AND RESERVE SOME EXTRA *)B(* MESSAGES. *)N(* *)7(* X-66 KJP-SDOS KEVIN PLAYFORD 11-JUN-1997 *)D(* ADD SS$_TOOMANYFRAGS AND SS$_TOOMANYFAMILIES FOR SNAP CAPABLE *)B(* DISK. *)N(* *)5(* X-65 IBB038 IAN BROCKBANK 4-JUN-1997 *)B(* F11BXQP HFS LATENT SUPPORT - ADD SS$_NOTF11ODS5, *)B(* SS$_NOCONVJNL AND SS$_NORAD50. *)N(* *)5(* X-64 BMAN BRIAN MAN 21-MAR-1997 *)N(* NO CHANGES: CLEAN UP SOME SO DIFFS WORK BETTER BETWEEN *)B(* THE VAX VERSION *)N(* *)N(* X-63 DOUGLAS FYFE 14-FEB-1997 *)N(* MAINLINE MERGE OF PER-THREAD SECURITY SUPPORT: (GEN 58A1) *)N(* ADD SS$_PERSONADELPEND TO BE RETURNED WHEN A REQUEST *)N(* TO DELETE A PERSONA IS PREVENTED ONLY BY OUTSTANDING *)N(* REFERENCES IN REFCOUNT. *)N(* *):(* X-62 JMP-VDC JULIAN PALMER 29-JAN-1997 *)B(* ADD SS$_FLUSHFAIL FOR VDC LATENT SUPPORT. *)N(* *)1(* CW-SD CHRIS WHITAKER 29-JAN-1997 *)B(* ADD ADDITIONAL ERROR MESSAGES FOR SNAPSHOT-CAPABLE *)B(* DISK. *)N(* *)9(* X-61 NYK656 NITIN Y. KARKHANSI 21-AUG-1996 *)B(* ADDED SS$_NOSHPTS AS PART SHARED PAGE TABLE SUPPORT. *)N(*  *)6(* X-60 KLN1572 KAREN L. NOEL 6-AUG-1996 *)B(* O ADDED SS$_RES_MEM_INCON FOR RESERVED MEMORY REGISTRY. *)B(* O ADDED SS$_PTE_NOT_EMPTY FOR SYSTEM PTE DEALLOCATION. *)N(* *)9(* X-59 NYK640 NITIN Y. KARKHANIS 17-JUL-1996 *)C(* O ADDED SYSTEM SERVICE MESSAGE FOR SHARED PAGE TABLE SECTION *)B(* CREATION, SS$_CREATED_SHPT.  *)B(* O REMOVED SS$_MRES_NOTREG, SS$_MRES_REGSMALL AND *)B(* SS$_MRES_REGBIG FOR KAREN NOEL. *)N(* *)6(* X-58 KLN1546 KAREN L. NOEL 2-MAY-1996 *)B(* ADDED SYSTEM SERVICE MESSAGES FOR MEMORY RESIDENT SECTIONS. *)B(* MRES_REGSMALL, MRES_REGBIG, MRES_NOTREG, MRES_PFNSMALL, *)B(* MRES_INCON, NORESERVEDMEM, RESERVEDMEMUSED, NOMEMRESID *)N(*  *)9(* X-57 JACH0010 JEREMY A. C. HITT 2-MAR-1996 *)B(* ADDED THE FOLLOWING MESSAGES FOR ACME: NOEXTAUTH, *)B(* ERRMAPAUTH, AUTHFAIL AND INVUSER. *)N(* *)3(* X-56 WXD BILL DAVENPORT 13-DEC-1995 *)B(* PER-THREAD SECURITY STAGE 1 CHECKIN: *)N(*  *)B(* ADD NODELPERMANENT ERROR CODE TO BE RETURNED WHEN DELETION *)B(* OF A PERMANENT PERSONA IS ATTEMPTED. ALSO, RENAME DETACH *)B(* PRIVILEGE TO IMPERSONATE. ADD LITERAL SO THAT OLD SYMBOL *)B(* STILL GETS CREATED. *)N(* *)7(* X-55 PKW338 PAUL K. M. WEISS 8-NOV-1995 *)F(* ADD SS$_THREAD_UPCALL, WHICH IS USED TO COMMUNICATE FROM KERNEL *)C(* INTERNAL SERVICES TO THE CALLER'S MODE JACKET THAT IT SHOULD *)B(* MAKE AN UPCALL *)N(* *)?(* X-54 JCH703B JOHN C. HALLYBURTON, JR. 10-OCT-1995 *)C(* ADD SS$_NOBUFOBJID (ATTEMPTED USER MODE CREATE BUFFER OBJECT *)B(* WITHOUT A RIGHTS IDENTIFIER). *)N(*  *)6(* X-53 KLN1520 KAREN L. NOEL 28-SEP-1995 *)B(* 1. FIX SEVERAL NEW SS$ CODES TO BE ERRORS INSTEAD OF *)B(* WARNINGS. *)B(* 2. SHORTEN SEVERAL NEW SS$ CODE NAMES SO THEY ARE LESS *)C(* THEN 15 CHARACTERS. OTHERWISE, THEY GET TRUNCATED IN THE *)B(* MESSAGE TEXT. *)B(* 3. FIX TEXT OF SS$_CHANVIO. *)N(*  *)6(* X-52 KLN1514 KAREN L. NOEL 12-SEP-1995 *)B(* 1. CHANGE MESSAGE TEXT FOR SS$_IVPROTECT TO INCLUDE *)B(* INVALID GLOBAL SECTION PROTECTION *)B(* 2. FIX TYPO IN SS$_OFFSET_NOTBLOCK MESSAGE *)N(* *)1(* X-51 WBF BURNS FISHER 7-SEP-1995 *)B(* ADD SS$_EMULATE INFO MESSAGE *)N(* *)?(* X-50 JCH703A JOHN C. HALLYBURTON, JR. 8-MAR-1995 *)B(* ADD EXBUFOBJLM ERROR CODE. *)N(* *)9(* X-49 NYK292 NITIN Y. KARKHANIS 28-FEB-1995 *)B(* O DISPLAY THE FULL 64-BITS OF PCS WITH !XH. *)B(* O REPLACED INSTANCES OF !XQ WITH !XH (!XQ WAS INTRODUCED *)B(* IN EDIT X-47). *)N(* *)0(* X-48 RLP050 RAY PFAU 23-FEB-1995 *)B(* ADD SS$_NOMORETHREAD FOR KERNEL THREADS. *)N(* *)9(* X-47 NYK280 NITIN Y. KARKHANIS 23-FEB-1995 *)C(* 64-BIT PROJECT: PROMOTE ADDRESS ARGUMENTS IN SYSTEM MESSAGES *)B(* FROM !XL TO !XQ. $FAO NOW HANDLES QUA DWORD BY VALUE! *)N(* *)6(* X-46 KLN1389 KAREN L. NOEL 16-FEB-1995 *)B(* ADD EVEN MORE SS$ CODES FOR 64-BIT GLOBAL SECTION *)B(* SYSTEM SERVICES. *)N(* *)6(* X-45 KLN1377 KAREN L. NOEL 3-FEB-1995 *)B(* ADD ANOTHER SS$ CODE FOR 64-BIT MMG SYSTEM SERVICES. *)N(*  *)6(* X-43 KLN1342 KAREN L. NOEL 1-DEC-1994 *)B(* ADD SOME FORGOTTEN CODES FOR 64-BIT MMG SYSTEM SERVICES. *)N(* *)6(* X-42 KLN1333 KAREN L. NOEL 16-NOV-1994 *)B(* ADD NEW CODES NEEDED FOR 64-BIT MMG SYSTEM SERVICES. *)N(* *)/(* X-41 TRB TOM BENSON 02-NOV-1994 *)D(* ADDED SS$_RESIGNAL_64 AND SS$_CONTINUE_64. THESE ARE VARIANTS *)B(* OF THEIR 32-BIT COUNTERPARTS THAT TELL EXCEPTION THAT THE *)B(* 64-BIT SIGNAL ARRAY SHOULD BE USED. *)N(* *)<(* X-40 LSS0312 LEONARD S. SZUBOWICZ 20-OCT-1994 *)B(* ADD SS$_NOT64DEVFUNC. THIS IS RETURNED BY THE $QIO SYSTEM *)B(* SERVICE IF THE P1 PARAMETER HAS MORE THAN 32 SIGNIFICANT  *)B(* BITS AND THE DRIVER DOES NOT SUPPORT 64-BITS. *)N(* *)/(* X-39 KLN1326 KAREN L. NOEL 18-OCT-1994 *)B(* 64-BIT PROJECT: *)B(* ADD SS$_ARG_GTR_32_BITS *)N(* *)7(* X-38 JCH703 JOHN C. HALLYBURTON, JR. 5-OCT-1994 *)B(* ERROR CODES FOR FAST-IO: BADFANDLE THRU UNSUPVOLSET *)N(* *)1(* X-37 JFD0633 JAMES F. DUNHAM 15-SEP-1994 *)B(* FOLD FROM X-33U3 - ADD MESSAGES TO SUPPORT SCSI-2 TCQ *)N(* *)/(* X-36 NANCY JEAN BURKHOLDER 19 SEP 1994 *)B(* ADD SS$_ZEROALLOCLS MESSAGE *)N(*  *)*(* X-35 DBK001 DAN KYLER 7-SEP-1994 *)D(* ADD MESSAGES FOR SMFS LAYERED PRODUCT IN MME RESERVED REGION. *)B(* FOLDED FROM X-33U1. *)N(* *)1(* X-34 DMB002 DAVID M. BERNARDO 28-AUG-1994 *)B(* ADD SS$_NOMULTITHREAD, SS$_MTHREADACTIVE, SS$_MAXKTHREADS, *)B(* SS$_NOSUCHTHREAD, SS$_NOTHREADMAN, SS$_NOSUCHUPCALL, *)B(* SS$_TMACTIVE.  *)N(* *)*(* X-33 JHH-BL5 JIM HOGG 6-JUL-1994 *)B(* ADD SS$_INSFTHREADS & SS$_NOTSUPFS FOR F64 FILE SYSTEM. *)N(* *)2(* X-32 RAB0191 RICHARD A. BISHOP 3-JUN-1994 *)B(* ADD SS$_SIGNAL64 FOR MIKE HARVEY *)N(* *)3(* X-31 SAD0308 STUART A. DAVIDSON 22-MAR-1994 *)B(* ADD INSFP1POOL TO CLEARLY IDENTIFY INSUFFICIENT CTLPAGES. *)N(* *).(* X-30 RAB RICHARD A. BISHOP 15-MAR-1994 *)B(* PICK UP THE FOLLOWING CORAL CHANGE: *)N(* *)1(* X-35 FAK004 FORREST A. KENNEY 11-JAN-1994 *)D(* ADD NEW MESSAGE , IOC$CLONE_UCB RETURNS THIS *)B(* WHEN WE HAVE USED UP ALL THE AVAILABLE UNITS FOR A DEVICE. *)N(* *)5(* X-29 RWC136 RICHARD W. CRITZ, JR. 23-DEC-1993 *)B(* ADD SS$_CONFIG_SYNTAX FOR 3PB SUPPORT. IT REPLACES *)B(* SS$_OBSOLETE_6. *)N(* *).(* X-28 RAB RICHARD A. BISHOP 9-DEC-1993 *)B(* ADD IMPERSONATION MESSAGE CODE S FOR STU DAVIDSON *)N(* *)*(* X-27 HH1241 HAI HUANG 06-OCT-1993 *)B(* CORRECT PARAMETERS FOR SS$_ILLEGAL_SHADOW. *)N(* *)#(* X-26 DEE RYAN 30-SEP-1993 *)B(* CORRECTED SPELLING, PUNCTUATION, AND LEGAL ERRORS IN *)B(* MESSAGE TEXT. *)N(*  *).(* X-25 RAB RICHARD A. BISHOP 17-AUG-1993 *)B(* PICK UP NEW VAX SYMBOL: *)N(* *),(* X-32 WXD BILL DAVENPORT 11-AUG-1993 *)B(* ADD SS$_IVNODNAM, INVALID NODE NAME FOR DECNET. *)N(* *)*(* X-24 HH1202 HAI HUANG 12-AUG-1993 *)B(* ADD NEW IEEE ARITHMETIC EXCEPTIONS. *)N(* *),(* X-23 HH1110 GENE LEACHE 15-JUL-1993 *)B(* ADD SS$_NOCALLTRANS_SUP *)N(* *)*(* X-22 HH1110 HAI HUANG 14-JUN-1993 *)B(* ADD SS$_TARGET_UNWIND, SS$_TARGET_GOTO_UNWIND. *)N(*  *)*(* X-21 HH1101 HAI HUANG 26-MAY-1993 *)B(* REPLACE REASON MASK WITH I/O STATUS IN PAGE READ ERRORS. *)N(* *)O(* X-20 MW MARK WATTS 25-MAY-1993 *)N(* ADD A NEW FILESYSTEM ERROR MESSAGE CALLED SHELFERROR, THIS *)Q(* WILL BE RETURNED THROUGH THE FILESYSTEM BY THE SHELF HANDLER. *)N(*  *).(* X-19 RAB RICHARD A. BISHOP 14-MAY-1993 *)B(* FOLD INITIAL CORAL CHANGES: *)N(* *)3(* X-21A1A1 MME001 MICHAEL BEELER 12-OCT-1992 *)B(* ADD MME (MEDIA MANAGEMENT EXTENSION) MESSAGES *)N(* *).(* X-18 RAB RICHARD A. BISHOP 14-APR-1993 *)B(* FOLD OF BLADE/DELTA CLEANUP (REQUIRED SS$_FDT_COMPL TO *)B(* CHANGE VALUE): *)N(* *)7(* X-14U3 RAB RICHARD A. BISHOP 14-APR-1993 *)B(* MERGE BLADE CHANGES AND RESOLVE CONTENTION: *)N(* *);(* X-25A1 AJM93032 ANDREW J. MOSKAL 11-MAR-1993 *)B(* ADD NOTRANQUIL AND SMALLHEADER - MAC RELATED MESSAGES.  *)N(* *)3(* X-17 EHL003 GENE LEACHE 1-APR-1993 *)B(* ADD SIG_ARGMISMATCH *)N(* *)3(* X-16 EHL003 GENE LEACHE 22-MAR-1993 *)B(* ADD SIG_INVARGTYPE, SIG_INVFLTARG, SIG_INVARGLIST *)N(* *)N(* X-15  WDB:HLL004 WALTER D. BLASCHUK, JR. 06-JAN-1993 *)N(* HLLDD PROJECT: FDT PROCESSING CHANGES. *)B(* ADD THE SS$_FDT_COMPL CONSTANT. THIS WILL INDICATE *)B(* THAT FDT PROCESSING IS COMPLETE. IT SAYS NOTHING *)B(* ABOUT THE PRESENCE OF AN ERROR. *)N(* *)0(* X-14 RLP017 RAY PFAU 18-DEC-1992 *)B(* CLARIFY CPUSTOPPING TEXT. FIX TYPO IN NOTALLCANCELED *)B(* TEXT. *)N(* *)5(* X-13 RAB RICHARD A. BISHOP 20-NOV-1992 *)D(* NEW SYMBOLS FOR PAUL HOULIHAN (SCS), PLUS MORE BLADE CHANGES: *)N(* *)0(* PJH PAUL J. HOULIHAN 20-NOV-1992 *)B(* ADD SCS INTERNAL STATUS. THESE ARE NEVER SEEN BY USERS.  *)N(* *)>(* X-24 MWD0038 MICHAEL DANIELE 20-OCT-1992 14:13 *)B(* ADD NAMESERVCOMMERR - "Name service communications error" *)B(* ON BEHALF OF DECNET/OSI. *)N(* *)E(* X-23 DDP1354 DERRELL D. PIPER 30-SEP-1992 16:36 *)C(* ADD MESSAGE FOR ATTEMPT TO ADD A PROTECTED SUBSYSTEM ID WITH * )C(* ATTRIBUTES THAT EXCEED THOSE OF ITS HOLDER (SS$_SSANOTAUTH). *)B(* ALSO ADD A MESSAGE FOR INVALID FILE OWNER (SS$_BADOWNER). *)N(* *)E(* X-22 DDP1337 DERRELL D. PIPER 16-SEP-1992 17:55 *)B(* UPDATE NOPRIV, EXQUOTA, AND OBJNOTLOCKED MESSAGE TEXTS. *)N(* *)6(* X-12 RS00375 RICHARD SAYDE 1-SEP-1992 *)B(* CORRECT MESSAGE TEXT FOR ALIGNMENT FAULT TRAP. REGISTER *)B(* INFORMATION IS NO LONGER PROVIDED, IT IS NOW A FUNCTION *)B(* CODE - 0 MEANS LOAD, 1 MEANS STORE. *)N(* *)1(* X-11 HH0974 HAI HUANG 16-AUG-1992 *)B(* CORRECT MESSAGE TEXT FOR SS$_FLTINV. *)N(* *)5(* X-10 RAB RICHARD A. BISHOP  14-AUG-1992 *)B(* PICK UP ANOTHER BLADE CHANGE: *)N(* *)9(* X-21 JAD045 JOSEPH A. DZIEDZIC 29-JUN-1992 *)B(* ADD "page read error across access modes" STATUS, *)B(* SS$_PAGRDERRXM. *)N(* *)4(* X-9 RAB RICHARD A. BISHOP 16-JUL-1992 *)B(* PICK UP CHANGE FROM VAX, RESET IDENT & AUDIT TRAIL *)N(* *)1(* X-19 RLA095B ROBERT L. ADAMS 12-JUN-1992 *)B(* OBSOLETE CHARGE CODE ACCOUNTING AND REPLACE WITH *)B(* MORE DESCRIPTIVE PROTECTED SUBSYSTEMS ERRORS. *)B(* ADD COMMENT ON OBSOLETING MESSAGES. *)N(* *)3(* X-22 EHL002 GENE LEACHE 8-JUL-1992 *)B(* ADD SS$_ILLPOLICY *)N(* *)3(* X-21 EHL001 GENE LEACHE 18-JUN-1992 *)B(* ADD SS$_ILLPRIPOL *)N(* *)9(* X-20 EMB0170 ELLEN M. BATBOUTA 12-JUN-1992 *)B(* ADD 2 NEW FATAL ERROR MESSAGES, TRANSCALLER AND *) B(* NOCALLTRANS. THESE MESSAGES INDICATE THAT A NATIVE *)B(* IMAGE WAS NOT BUILT CORRECTLY TO INTEROPERATE WITH *)B(* TRANSLATED CODE. *)N(* *)1(* X-19 HH0931 HAI HUANG 27-MAY-1992 *)B(* CHANGE PSL IN ERROR MESSAGES TO PS. *)N(* *)5(* X-18 RAB RICHARD  A. BISHOP 19-MAY-1992 *)B(* PICK UP RECENT BLADE CHANGES: *)N(* *).(* X-17 ATP014.17 ALAN POTTER 2-APR-1992 *)B(* CHANGE ERROR MESSAGE TEXT FOR SS$_TPDISABLED AND *)B(* SS$_NOLOG. *)N(* *)G(* X-15/16 DDP1198 DERRELL D. PIPER 24-MAR-1 992 18:15 *)B(* FIX PUNCTUATION OF MESSAGES FOR HELP/MESSAGE AND ADD SOME *)B(* POMPOUS GUIDELINES FOR FUTURE GENERATIONS. *)N(* *)1(* X-17 HH0855 HAI HUANG 10-MAR-1992 *)F(* -16 ADD STATUS FOR GENTRAP CODES. *)N(* *)1(* X-15 HH0853 HAI HUANG 26-FEB-1992 *)B(* ADD SS$_GENTRA P, SS$_GOTO_UNWIND, SS$_EXIT_UNWIND. *)N(* *)9(* X-14 RAB0100 RICHARD A. BISHOP 30-JAN-1992 *)B(* MERGE BLADE AND ALPHA VERSIONS OF THIS FILE. THIS *)B(* IS BEING DONE SO AS TO LEAVE BLADE VALUES INTACT. *)B(* WHERE CHANGES IN VALUES ARE NECESSARY, THEY ARE *)B(* HAPPENING TO ALPHA. *)N(*   *)B(* ALSO MOVE SS$_IMGDMP (PREVIOUS BLADE CHECKIN). THIS *)B(* WAS WRONGLY PLACED, AND CAUSED SOME SYMBOLS TO MOVE. *)B(* THEY NOW GO BACK TO THEIR ORIGINAL VALUES. *)N(* *)B(* AS LUCK WOULD HAVE IT, THIS CHECKIN IS GENERATION *)B(* 14 ON BOTH MASTERPACKS..... *)N(*  *)I(* ======================================== *)N(* *)F(* 30-JAN-1992: WHAT FOLLOWS IS THE BLADE AUDIT TRAIL *);(* FROM 30-NOV-1990 TO 20-DEC-1991 *)N(* *)I(* ======================================== *)N(*  *)8(* X-13 SJVMAJ STEPHEN J. VIVIAN 20-DEC-1991 *)B(* ADD SS$_IMGDMP SIGNAL FOR MAJIQ SUPPORT. *)N(* *);(* X-12 CRB0711 COLIN R. BLAKE 18-DEC-1991 13:18:23.93 *)B(* THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. *)N(* *)N(* X-8A3A1A2 THE GREAT MERGE R NASSER ABBASI 11-DEC-1991 *)B(* MERGE T4 WITH BLADE_BLD6 *)B(* COPY OF HISTORY FROM BLD6 MODULE *)B(* -------------------------------- *)7(* X-11 JFD0031 JAMES F. DUNHAM 8-JAN-1991 *);(* ADD MESSAGES TO SUPPORT ISO 9660 VOLUME MOUNTS *)N(* *)9(* X-8A3A1A1 DOR DENNIS O. ROGERS 26-NOV-1991 12:19 *)B(* C2 BLADE MERGE (T4): *)N(* *)8(* X-10 CBD0238 CHARLES B. DUNN 14-OCT-1991 *)B(* ADD SS$_TIMENOTSET FOR DTSS SUPPORT *)N(* *)?(* X-8A3A1 CRB0044 COLIN R. BLAKE 6-NOV-1991 08:58 *)B(* T3 MERGE: *)N(*  *).(* X-9 EJL0610 EDWARD J. LOS 02-OCT-1991 *)>(* RESET VERSION TO MATCH GENERATION. ADD SYSTEM SNAPSHOT *);(* VALIDATION ERRORS *)N(* *)8(* X-8A3 CRB0030 COLIN R. BLAKE 23-OCT-1991 *)B(* MORE C2 MERGING: *)N(*  *)4(* T-6T9 SAD0144 STUART A. DAVIDSON 18-OCT-1991 *);(* ADD NOOJBSRV ERROR -- OBJECT SERVER NOT RUNNING. *)N(* *):(* X-8A2 FAK0003 FORREST A. KENNEY 16-OCT-1991 *)B(* MERGE LATEST C2 CHANGES. *)N(* *)<(* T-9 DDP0887 DERRELL D. PIPER 4-OCT-1991 18:43 *);(* ADD ITEM CODE ERROR MESSAGES. *)N(* *):(* X-8A1 FAK0002 FORREST A. KENNEY 20-SEP-1991 *)B(* MERGE C2 MESSAGES INTO MAINLINE, FIX IDENT TO AGREE WITH *)B(* CMS DUE TO MASTERPACK CLEANUP. *)N(* *):(* X-80T8 LMP0542 L. MARK PILANT, 29-JUL-1991 16:42 *)=(* ADD A MESSAGE TO INDICATE THAT DELETION OF FILES WITH *);(* ACTIVE RMS JOURNALING IS NOT ALLOWED. *)N(* *)4(* LMP0544 L. MARK PILANT, 30-JUL-1991 14:45 *);(* ADD A MESSAGE TO INDICATE THE SUPPLIED FILE *)=(* SPECIFICATION IS INVALID FOR THE ATTEMPTED OPERATION. *)N(* *),(* T-7 RLA ROBERT L. ADAMS 26-JUN-1991 *);(* FOLD MAGIC CHANGES INTO TRANQUILITY.  *)N(* *)6(* T-6 DDP0977 DERRELL D. PIPER 7-JUN-1991 10:01 *);(* ADD OVRMAXAUD. *)N(* *),(* T-5 AJM ANDREW J. MOSKAL 13-MAY-1991 *)?(* ADD INVSECOPER, NOCLASSSUPPORT - MAC PROTECTION RELATED *);(* MESSAGES. *)N(*  *)2(* T-4 SAD0116 STUART A. DAVIDSON 3-MAY-1991 *);(* ADD ILLRSDM (ILLEGAL RESOURCE DOMAIN OPERATION) *)N(* *)5(* X-80T3 SAD0109 STUART A. DAVIDSON 19-APR-1991 *);(* ADD OBJECT CONTEXT NOT LOCKED MESSAGE. *)N(* *)5(* X-80T2 SAD0109 STUART A. DAVIDSON 11-MAR-1991 *);(* ADD MISSED MESSAGES FOR SECURITY OBJECT MANAGEMENT *)N(* *)4(* X-81 RLA0147 ROBERT L. ADAMS 15-FEB-1991 *);(* ADD SECURITY MESSAGES ADDED FOR PHOENIX WORK. *)N(* *)7(* X-87 PMV0169 PETER M. VATNE 20-JUN-1991 *)B(* ADD SS$_DEVNOTWS. *)N(*  *)2(* X-86 CW CHRIS WHITAKER 10-MAR-1991 *)B(* ADD SS$_REMEMBER ALIAS. *)N(* *)8(* X-85 FAK001 FORREST A. KENNEY 08-MAR-1991 *)B(* ADD SS$_QUEUED. *)N(* *)2(* X-84 JLBBP01 J.L. BERG 28-FEB-1991 *)B(* ADD SS$_NOREADER AND SS$_NOWRITER. *)N(* *)2(* X-83 CW CHRIS WHITAKER 26-FEB-1991 *)B(* ADD ERROR CODES FOR DECDTM V1.2 SUPPORT. *)N(* *)7(* X-82 RG40077 RAY GUZMAN 21-FEB-1991 *)E(* ADD 4 NEW CODES. SS$_BADCHECKSUM, SS$_INVSECDOMAIN, *)B(* SS$_ARBTOOBIG, AND SS$_ORBTOOBIG.  *)N(* *)<(* X-81 RKK0058 ROBERT K. KOSAKOWSKI 19-FEB-1991 *)B(* RESERVE 20 MESSAGE CODES FOR MEDIA MANAGEMENT EXTENSIONS. *)B(* (FOR DAN KYLER) *)N(* *)5(* X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 *)B(* MERGED EDIT X-74 *)N(*  *)+(* X-74 LPL0001 LEE LEAHY 12 OCT 1990 *)<(* ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID, *);(* SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. *)N(* *)I(* ======================================== *)N(* *)F(* 30-JAN-1992: WHAT FOLLOWS IS THE ALPHA AUDIT TRAIL *);(* FROM 16-JUL-1990 TO 18-DEC-1991 *)N(* *)I(* ======================================== *)N(* *)6(* X-13 RS00233 RICHARD SAYDE 18-DEC-1991 *)B(* ADD ERROR CODES FOR ALIGNMENT FAULT REPORTING. *)N(*  *)5(* X-12 TNS001 TOM SCARPELLI 24-OCT-1991 *)B(* ADD MESSAGES FROM VAX SIDE FOR NEW QUEUE MANAGER. *)N(* *)8(* X-11 DMB001 DAVID M. BERNARDO 23-OCT-1991 *)B(* ADD SLICING_DISABLED. *)N(* *)5(* X-10 WMC010 WAYNE CARDOZA 24-SEP-1991 *)B(* ADD UNALIGNED SP LOAD. *)N(* *)4(* X-9 TNS001 TOM SCARPELLI 17-JUN-1991 *)B(* ADD MESSAGES FROM VAX SIDE FOR $FORGE_WORD SYSTEM SERVICE. *)N(* *)4(* X-8 RWC038 RICHARD W. CRITZ, JR. 12-JUN-1991 *)B(* CHANGE SS$_DRVEXISTS AND SS$_DEVEXISTS FROM INFORMATIONALS *)B(* TO WARNINGS.   *)N(* *)0(* X-7 HH0624 HAI HUANG 09-APR-1991 *)B(* ADD SS$_ALTER, ALTER STACK FRAMES, FOR TIE SUPPORT. *)N(* *)2(* X-K10 LPL001 LEE LEAHY 4 APR 1991 *)B(* INCLUDED THE DEFINITIONS FROM IOWA/SIGMA. *)N(* *) !.(* X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 *);(* MERGED EDIT X-74 *)N(* *),(* X-74 LPL0001 LEE LEAHY 12 OCT 1990 *)=(* ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID, *)6(* SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. *)N(* *)1(* X-K9 HH0610 HAI HUANG 25-FEB-1991 *)B(* ADD ALPHA HA"RDWARE EXCEPTIONS SS$_HPARITH, SS$_ALIGN. *)N(* *)8(* X-K8 RFH002 ROBERT F. HOFFMAN 23-JAN-1991 *)B(* ADD SS$_QIO_CROCK FOR SPECIAL TREATMENT THAT $QIO *)B(* NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE. *)N(* *)9(* X-K7 MSH1062 MICHAEL S. HARVEY 13-DEC-1990 *)B(* ADD SS$_INVARG FOR $CRMPSC AND $MPGB#LSC SERVICES. *)N(* *)8(* X-K6 RFH001 ROBERT F. HOFFMAN 11-DEC-1990 *)B(* ADD SS$_QUEUED FOR TTDRIVER PORT (REPLACES AN UNUSED *)B(* MESSAGE) *)N(* *)<(* X-K5 RWC003 RICHARD W. CRITZ, JR. 1-NOV-1990 *)B(* ADD SS$_DRVNOTVALID. $ *)N(* *)<(* X-K4 RWC003 RICHARD W. CRITZ, JR. 11-OCT-1990 *)B(* ADD $LOAD_DRIVER STATUSES. *)N(* *)6(* X-K3 KLN1027 KAREN L. NOEL 25-JUL-1990 *)B(* ADD SS$_NOT_LOADED *)N(* *)5(* X-K%2 WMC0K2 WAYNE CARDOZA 16-JUL-1990 *)B(* ADD WAIT IN CALLERS MODE. *)N(* *)I(* ======================================== *)N(* *)F(* 30-JAN-1992: WHAT FOLLOWS IS THE COMMON AUDIT TRAIL *);(* UP TO 21-MAY-1990 *)N(* & *)I(* ======================================== *)N(* *)9(* X-46U11 CW1024 CHRIS WHITAKER 21-MAY-1990 *)B(* ADD SS$_VOLATILE. *)N(* *)@(* X-46U10 DDP0643 DERRELL D. PIPER 28-MAR-1990 15:55 *)B(* ADD SS$_US'EGENPWD. *)N(* *)9(* X-46U9 MAS0254 MARK A. STILES 20-FEB-1990 *)B(* FIXUP OUT-OF-ORDER CODES. MOVE SOME NEW CODES INTO *)B(* UNUSED SLOTS. FIX TEXT OF INSFSPT TO BE MORE GENERIC. *)N(* *)=(* X-46U8 CAM0109 CHRISTOPHER A. MEGA 12-FEB-1990 *)F(* ADD BOOTREJECT WARNING STATU(S - USED BY START/CPU CODE IF A CPU *)B(* FAILS TO BOOT BECAUSE IT IS IN THE BOOT_REJECTED STATE. *)N(* *)5(* X-46U7 LBB0010 LEE BARTON 30-NOV-1989 *)B(* ADD SS$_ARCHIVING, SS$_ARCHIVED (XQP SUPPORT OF ALM) *)N(* *):(* X-46U6 LMP0517 L. MARK PILANT, 17-OCT-1989 16:42 *)B(* ADD PROTECTED SUBSYSTEM SUPPORT. ) *)N(* *)6(* X-46U5 RLF RICHARD L. FRANK 16-OCT-1989 *)B(* MODIFY INSFSPTS TO BE MORE GENERIC. ADD INSFRPGS AND *)B(* INSFLPGS. *)N(* *)=(* X-46U4 CAM0072 CHRISTOPHER A. MEGA 06-OCT-1989 *)B(* CHANGED CPUSTOPPD TO CPUSTOPPING *)N(* * *)@(* X-46U3 DDP0546 DERRELL D. PIPER 4-OCT-1989 14:24 *)B(* ADD SS$_NOCALLPRIV FOR $CHECK_ACCESS. *)N(* *);(* X-46U2 PRD0503 PAUL R. DESTEFANO 25-SEP-1989 *)B(* ADD SS$_NOSUCHFAC FOR EVENT FACILITY OBJECT SECURITY. *)N(* *);(* X-46U1 +PRD0495 PAUL R. DESTEFANO 18-SEP-1989 *)B(* ADD SS$_INVEVENT FATAL MESSAGE FOR $SETEVTAST AND *)B(* $CANEVTAST. *)N(* *)8(* X-46 SAS0203 SCOTT A. SHURTS 15-SEP-1989 *)B(* ADD SS$_INCONOLCK FATAL MESSAGE FOR $CHANGE_ACL. *)N(* *);(* X-45 CAM0063 CHRISTOPHER A. ,MEGA 13-SEP-1989 *)B(* ADD WARNING AND INFORMATIONAL STATUS FOR ENHANCED PRIMARY *)B(* CPU SWITCHING: CPUSTARTIP, CPUSTARTD, CPUSTOPPD, PRIMNOSTP. *)B(* ALSO ADDED /FAO=1 TO NSTPPD. *)N(* *)E(* X-44 DDP0429 DERRELL D. PIPER 11-SEP-1989 16:57 *)B(* CHANGE THE SEVERITY OF THE NEW PASSWORD STATUS CODES *)B(* FROM FATAL TO ERROR. - *)N(* *)8(* X-43 CBD0198 CHARLES B. DUNN 14-AUG-1989 *)B(* ADD SS$_EFNOTSET FOR IOC$PRE_SIMREQCOM SUPPORT *)N(* *)5(* X-42 RAP0491 ROD A. PAYNE 15-AUG-89 *)B(* ADD SS$_HSTBUFACC, TO REPORT HOST BUFFER ACCESS ERRORS. *)N(* *)8.(* X-41 CJB0041 CHERYL J. BULMER 9-AUG-1989 *)B(* ADD SS$_LOADER, TO REPORT LOADER CYCLE ERRORS. *)N(* *)7(* X-40 MAS0238 MARK A. STILES 9-AUG-1989 *)B(* ADD SS$_CPUCAP FOR USE WHEN A REQUESTED CPU DOES NOT *)B(* HAVE THE CAPABILITIES REQUIRED TO RUN THE PROCESS. *)B(* [FOLD FROM X-29U11 IN V5.3 STREAM] *)N(* / *)<(* X-39 MVI0033 MICHAEL V. ILES, 28-JUL-1989 10:08:05.45 *)B(* ADD MESSAGE CODE NOSUCHCPB AND CHANGE TEXT FOR ACLFULL *)N(* *)E(* X-38 DDP0387 DERRELL D. PIPER 25-JUL-1989 12:47 *)B(* ADD MESSAGE CODES FOR SITE-SPECIFIC PASSWORD POLICIES. *)N(* *)E(* X-37 DDP0375 DERRELL D. 0PIPER 31-MAY-1989 15:12 *)B(* REPLACE SOME OBSOLETE MESSAGE CODES. *)N(* *)1(* X-36 HH0340 HAI HUANG 03-OCT-1988 *)B(* ADD VECALIGN ERROR. *)N(* *)3(* X-35 SSA0002 STAN AMWAY 30-SEP-1988 *)B(* CORRECT TEXT FOR SS$_VECFULL. *)1N(* *)8(* X-34 JEJ0550 JAMES E JOHNSON 19-SEP-1988 *)B(* ADD ALRCURTID, RMALRDCL, NOSUCHPART, INVLOG, BADLOGVER, *)B(* LOGSTALL, LOGFULL, LOGNAME. *)N(* *)3(* X-33 SSA0001 STAN AMWAY 14-SEP-1988 *)B(* ADD NOSUSPEND ("process cannot be suspended"). *)N(* 2 *)?(* X-32 RJB0165 RICHARD J. BOUCHARD JR. 14-SEP-1988 *)B(* ADD NOMOREDEV MESSAGE FOR $DEVICE_SCAN SERVICE. *)N(* *)<(* X-31 ACG0559 ANDREW C. GOLDSTEIN, 31-AUG-1988 16:28 *)B(* ADD HWM_STALL FOR ABORT OF STALLED INTERNAL IRP'S *)N(* *)1(* X-30 HH0334 HAI HUANG 31-3AUG-1988 *)B(* REPLACE SYSVERDIF WITH A NEW VALUE (I.E. SEVERITY) AND *)B(* A NEW MESSAGE. *)N(* *)E(* X-29 DDP0308 DERRELL D. PIPER 21-JUL-1988 14:02 *)B(* ADD PWDSYNTAX, INVPWDLEN, AND PWDNOTDIF. *)N(* *)8(* X-28 JEJ0527 JAMES E JOHNSON 27-JUN-1988 4 *)B(* ADD NOSUCHTID, NOCURTID, WRONGSTATE, VETO, UNKRESULT, *)B(* FORGET, PREPARED, NOSUCHRM, ITEMNOTFOUND, NOMOREITEMS *)N(* *)1(* X-26 HH0315 HAI HUANG 18-APR-1988 *)F(* -27 ADD NEW STATUS CODES FOR VECTOR SUPPORT. *)N(* *)7(* X-25 PT00010 PANKAJ TANDON 30-DEC-1987 *)B(* ADD ALLSTARTED5,ALRDYSTRT,ALRDYSTPPD AND NSTPPD FOR *)B(* $START/STOP CPU ERRONEOUS CASES. *)N(* *)8(* X-24 LMP0465 L. MARK PILANT, 28-OCT-1987 15:58 *)B(* ADD A NEW MESSAGE, SS$_NORIGHTSDB, TO INDICATE THAT THERE *)B(* IS NOT A RIGHTS DATABASE IS NOT PRESENT ON THE SYSTEM. *)N(* *)0(* X-23 SJF STU FARNHAM 5-OCT-19 687 *)B(* ADD NOSUCHCPU *)N(* *)2(* X-22 DLM006 DAN MURPHY 13-SEP-1987 *)B(* INFORMATIONAL CODES FOR $GETSECI. *)N(* *)6(* X-21 WMC0021 WAYNE CARDOZA 4-SEP-1987 *)B(* FIX A MISSPELLING IN VA_IN_USE. *)N(* 7 *)6(* X-20 WMC0020 WAYNE CARDOZA 27-JUL-1987 *)B(* ADD NODELETE. *)N(* *)6(* X-19 WMC0019 WAYNE CARDOZA 10-MAR-1987 *)B(* EXPRCLM SHOULD NOT MENTION SUBPROCESSES. *)N(* *)6(* X-18 WMC0018 WAYNE CARDOZA 19-F 8EB-1987 *)B(* ADD VA_IN_USE. *)N(* *)8(* X-17 DDP0029 DERRELL D. PIPER 21-JAN-1987 *)B(* CONVERT SS$_BADXXXCTX TO SINGLE BADCONTEXT MSG. *)N(* *)8(* X-16 DDP0027 DERRELL D. PIPER 12-JAN-1987 *)B(* ADD SS$_TOOMUCHCTX AND SS$_BADUAICTX. *)N(* 9 *)1(* X-15 HH0237 HAI HUANG 06-JAN-1987 *)B(* ADD SS$_UNSUPPORTED. *)N(* *)8(* X-14 DDP0008 DERRELL D. PIPER 08-DEC-1986 *)B(* ADD SS$_LASTID, SS$_NOMOREID, SS$_RLSEMPTY, AND *)B(* SS$_BADJPICTX FOR JPI$_RIGHTSLIST ITEM CODE. *)B(* (NB: S VARIANT IS NOW OBSOLETE.) : *)N(* *)7(* X-9 NCD0001 NANCY C. DENARDO 21-OCT-1986 *)B(* ADDED SS$_EXLICENSE, SS$_INVLICENSE, SS$_LICENSE_LEVEL, *)B(* AND SS$_INV_HW_ID FOR LMF SERVICE. *)N(* *):(* X-8 SAS001 SCOTT A. SHURTS 02-OCT-1986 *)B(* ADDED SS$_SRVMMAT TO INDICATE CRYPTOGRAPHIC SERVICE ; *)B(* MISMATCH. *)N(* *)5(* X-7 KL 0001 KEITH LOEPERE 12-JUN-1986 *)B(* ADDED SS$_REMOVED TO INDICATE DIR ENTRY ONLY REMOVED. *)N(* *)0(* X-6 CWH5006 CW HOBBS 30-MAY-1986 *)B(* ADD SS$_REMOTE_PROC ERROR MESSAGE FOR CWPS. *)N(* < *)1(* X-5H2 SJF STU FARNHAM 29-MAY-1986 *)>(* ADD SS$_CPUNOTACT TO INDICATE THAT THE REQUESTED *)B(* CPU IN AN SMP SYSTEM IS NOT ACTIVE. *)N(* *)8(* X-5 PRD0184 PAUL R. DESTEFANO 07-NOV-1985 *)B(* ADD SS$_DATALOST "data lost" TO INDICATE DLS END *)B(* FLAG SET IN CACHING TAPE DRIVE OR DRIVER HAS OTHERWISE *)=B(* DETECTED THE LOSS OF CACHED DATA. *)N(* *)7(* X-4 LMP0382 L. MARK PILANT, 6-NOV-1985 10:10 *)C(* ADD SS$_OBJLOCKHELD TO INDICATE THAT A PROCESS ALREADY HOLDS *)B(* THE OBJECT'S ACL LOCK. *)N(* *)9(* X-3 JMK0002 JOSEPH M. KRAETSCH 17-SEP-1985 *)D(* ADD SS$_RUCONFLI>CT "file has active RUs by another facility". *)B(* REMOVE NOTMPJNL, NOPRMJNL (OBSOLETE). *)N(* *):(* V04-001 ROW0466 RALPH O. WEBER 11-JUN-1985 *)B(* REPLACE SS$_SHACPYINP (A NO LONGER USED SHADOWING ERROR *)D(* STATUS) WITH SS$_DEVNOTSHR, "device not currently shareable". *)C(* SS$_DEVNOTSHR IS AN ERROR STATUE FOR USE WITH DEVICES MARKED *)B(* FOR EXCLUSIVE ACCESS BY SOMEONE ELSE? BY AN MSCP CONTROLLER. *)N(* *)N(*--- *)N(*+ *)N(* SYSTEM STATUS CODES *)N(* *)I(* LAYOUT OF MESSAGE SPACE: *)N(*@ *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)?(* 0-127 0-3FF 128 FATAL ERRORS *)C(* 128-191 400-5FF 64 HARDWARE DEFINED FATAL ERRORS *)C(* 192-255 600-7FF 64 SUCCESS CODES *)C(* 256-383 800-BFF 128 WARNING CODES *)CA(* 384-447 C00-DFF 64 INFORMATIONAL CODES *)C(* 448-511 E00-FFF 64 NONFATAL ERROR CODES *)F(* 512-1023 1000-1FFF 512 SHARED MESSAGES (NOT HERE, SEE SHRMSG) *)C(* 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF) *)C(* 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS *)C(* 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS *)C(* 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS *)I(* 1408-1663B 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF) *)N(* 1664-1695 3400-341F 32 FATAL ERRORS (CONTINUED FROM 27FF) *)N(* 1696-4031 3420-7DFF 2334 (UNUSED) *)C(* 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS *)N(* *)N(*- *)N(* C *)N(* EXPLICITLY DEFINED SUCESS CODES *)N(* *)N(* DO NOT MIX THESE CODES WITH INCREMENTAL ASSIGNMENTS BELOW *)N(* *) CONST SYSTEM$_FACILITY = 0; SS$_NORMAL = 1; N(* *)N(* NOTE THAT CONTINUE,WA DSCLR,WASSET,REMEMBER DO NOT HAVE ANY MESSAGE TEXT *)N(* SINCE THESE CODES USE THE SAME MESSAGE NUMBER AS NORMAL AND ACCVIO, *)N(* THEY CAN NEVER BE MADE TO HAVE MESSAGES ASSOCIATED WITH THEM. *)N(* *) CONST SS$_CONTINUE = 1; SS$_WASCLR = 1; SS$_WASSET = 9; SS$_REMEMBER = 1; N(* *)E(* MSG #S RANGE # MSGS DESCREIPTION *)N(* *)?(* 0-127 0-3FF 128 FATAL ERRORS *)C(* 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF) *)N(* *) CONST SS$_ACCVIO = 12; SS$_BADPARAM = 20; SS$_EXQUOTA = 28; SS$_NOPRIV = 36; N(* MAKE THE ABOVE ERRORS FALL INTO SHORT LITERALS *) FCONST SS$_ABORT = 44; SS$_BADATTRIB = 52; SS$_BADESCAPE = 60; SS$_BADIMGHDR = 68; SS$_CHANINTLK = 76; SS$_CTRLERR = 84; SS$_DATACHECK = 92; SS$_DEVFOREIGN = 100; SS$_DEVMOUNT = 108; SS$_DEVNOTMBX = 116; SS$_DEVNOTMOUNT = 124; SS$_DEVOFFLINE = 132; SS$_DRVERR = 140; SS$_DUPLNAM = 148; SS$_FILACCERR = 156; SS$_FILALRACC = 164; SS$_FILNOTACC = 172; SS$_FILNOTEXP = 180; SS$_FORMAT = 188; SS$_GPTFULL = 196; SS$_GSDFULL = 204; SS$_LCKPAGFUL = 212; SS$_IGLLBLKNUM = 220; SS$_ILLCNTRFUNC = 228; SS$_ILLEFC = 236; SS$_ILLIOFUNC = 244; SS$_ILLPAGCNT = 252; SS$_ILLSER = 260; SS$_INCVOLLABEL = 268; SS$_INSFARG = 276; SS$_INSFWSL = 284; SS$_INSFMEM = 292; SS$_INSFRAME = 300; SS$_IVADDR = 308; SS$_IVCHAN = 316; SS$_IVDEVNAM = 324; SS$_IVGSDNAM = 332; SS$_IVLOGNAM = 340; SS$_IVLOGTAB = 348; SS$_IVQUOTAL = 356; SS$_IVSECFLG = 364; SS$_IVSSRQ = 372; SS$_IVSTSFLG = 380; SS$_IVTIME = 388; SS$_LENVIO = 396; SS$_LHKWSETFUL = 404; SS$_MBTOOSML = 412; SS$_MEDOFL = 420; SS$_NODATA = 428; SS$_NOIOCHAN = 436; SS$_NOLOGNAM = 444; SS$_NONEXDRV = 452; SS$_NOTFILEDEV = 460; SS$_NOTINTBLSZ = 468; SS$_NOTLABELMT = 476; SS$_NOTSQDEV = 484; SS$_PAGOWNVIO = 492; SS$_PARITY = 500; SS$_PARTESCAPE = 508; SS$_PFMBSY = 516; SS$_PSTFULL = 524; SS$_RESULTOVF = 532; SS$_SECTBLFUL = 540; SS$_TAPEPOSLOST = 548; SS$_TIMEOUT = 556; SS$_UNASEFC = 564; SS$_UNSAFE = 572; SS$_VASFULL = 580I; SS$_VECINUSE = 588; SS$_VOLINV = 596; SS$_WRITLCK = 604; SS$_NOTAPEOP = 612; SS$_IVCHNLSEC = 620; SS$_NOMBX = 628; SS$_NOLINKS = 636; SS$_NOSOLICIT = 644; SS$_NOSUCHNODE = 652; SS$_REJECT = 660; SS$_TOOMUCHDATA = 668; SS$_BUGCHECK = 676; SS$_FILNOTCNTG = 684; SS$_BADSTACK = 692; SS$_MCHECK = 700; SS$_DEVACTIVE = 708; SS$_HANGUP = 716; SS$_OPINCOMPL = 724; SS$_ILLSEQOP = 732; SS$_IVSECIDCTL = 740; SS$_NOTNETDEV = 748; SS$_IVPROTECT = 756; SS$_AJCPVAFUL = 764; SS$_MTLBLLONG = 772; SS$_BUFBYTALI = 780; SS$_NOAQB = 788; SS$_WRONGACP = 796; SS$_BUFNOTALIGN = 804; SS$_DEVCMDERR = 812; SS$_DEVREQERR = 820; SS$_INSFBUFDP = 828; SS$_INSFMAPREG = 836; SS$_IVBUFLEN = 844; SS$_IVMODE = 852; SS$_MCNOTVALID = 860; SS$_POWERFAIL = 868; SS$_SHMGSNOTMAP = 876; SS$_TOOMANYLNAM = 884; SS$_SHMNOTCNCT = 892; SS$_NOTCREATOR = 900; SS$_INTERLOCK = 908; SS$_BADQUEUEHDR = 916; SS$_NOSLOT = 924; SS$_SUSPENDED = 9K32; SS$_EXPORTQUOTA = 940; SS$_NOSHMBLOCK = 948; SS$_BADQFILE = 956; SS$_NOQFILE = 964; SS$_QFACTIVE = 972; SS$_QFNOTACT = 980; SS$_DUPDSKQUOTA = 988; SS$_NODISKQUOTA = 996; SS$_EXDISKQUOTA = 1004; SS$_IDMISMATCH = 1012; SS$_NOWRT = 1020; N(* ************** *)N(* NOTE: THE ABOVE SET OF SEVERE ERROR MESSAGES IS FULL!!!! *)I(* ANY ADDITIONAL SEVERE ERROR MESSAGES MUST BE ADDED *)LI(* BELOW, IN THE RANGE HEX 2000-2800. *)N(* ************** *) CONST SS$_BADISD = 8196; SS$_RELINK = 8204; SS$_NOTINSTALL = 8212; SS$_SHARTOOBIG = 8220; SS$_NOP1VA = 8228; SS$_MULTRMS = 8236; SS$_VECFULL = 8244; SS$_IVLVEC = 8252; SS$_INSFSPTS = 8260; SS$_DISCONNECT = 8268; SS$_PRIVINSTALL = 8276; SS$_PROTINSTALL = 8284; SS$_BADVEC = 8292; SS$_REMRSRC = 8300; SS$_PROTOMCOL = 8308; SS$_THIRDPARTY = 8316; SS$_NOSUCHUSER = 8324; SS$_SHUT = 8332; SS$_UNREACHABLE = 8340; SS$_INVLOGIN = 8348; SS$_NOSUCHOBJ = 8356; SS$_EXCPUTIM = 8364; SS$_OPRABORT = 8372; SS$_SHRIDMISMAT = 8380; SS$_COMMHARD = 8388; SS$_IVCHAR = 8396; SS$_DEVINACT = 8404; SS$_CONNECFAIL = 8412; SS$_LINKABORT = 8420; SS$_LINKDISCON = 8428; SS$_LINKEXIT = 8436; SS$_PATHLOST = 8444; SS$_CLEARED = 8452; SS$_RESET = 8460; SS$_UNSOLICIT = 8468; SS$_TOOMANYNREDS = 8476; SS$_IVLOCKID = 8484; SS$_SUBLOCKS = 8492; SS$_PARNOTGRANT = 8500; SS$_CVTUNGRANT = 8508; SS$_FORCEDERROR = 8516; SS$_ILLSELF = 8524; SS$_ILLCDTST = 8532; SS$_NOLISTENER = 8540; SS$_EXGBLPAGFIL = 8548; SS$_BADRCT = 8556; SS$_DIRNOTEMPTY = 8564; SS$_FORCEDEXIT = 8572; SS$_NOTPRINTED = 8580; SS$_JBCERROR = 8588; SS$_NOLICENSE = 8596; SS$_VCBROKEN = 8604; SS$_VCCLOSED = 8612; SS$_INSFCDT = 8620; SS$_DEVNOTDISM = 8628; SS$_NOSHRIMG = 8636;O SS$_DUPUNIT = 8644; SS$_BADACLCTX = 8652; SS$_SERIOUSEXCP = 8660; SS$_TEMPLATEDEV = 8668; SS$_IVACL = 8676; SS$_NOSUCHID = 8684; SS$_NOLCLMEDA = 8692; SS$_NOREGAVIL = 8700; SS$_NOREGSUIT = 8708; SS$_NOSUCHPGM = 8716; SS$_PGMLDFAIL = 8724; SS$_PGMSTDALN = 8732; SS$_IVIDENT = 8740; SS$_DUPIDENT = 8748; SS$_INCSEGTRA = 8756; SS$_NODELEAVE = 8764; SS$_KERNELINV = 8772; SS$_EXLNMQUOTA = 8780; SS$_PARENT_DEL = 8788; SS$_PARNOTSYS = 8796; SS$_INSSWAPSPACE = 8804;P SS$_VOLOERR = 8812; SS$_DATALATE = 8820; SS$_OVRMAXARG = 8828; SS$_SHACHASTA = 8836; SS$_TERMNETDEV = 8844; SS$_NOLOGTAB = 8852; SS$_WRONGNAME = 8860; SS$_NOVOLACC = 8868; SS$_NOFILACC = 8876; SS$_INVEXHLIST = 8884; SS$_NOACLSUPPORT = 8892; SS$_INVSECLASS = 8900; SS$_INCSHAMEM = 8908; SS$_DEVNOTSHR = 8916; SS$_RUCONFLICT = 8924; SS$_DATALOST = 8932; SS$_REMOTE_PROC = 8940; SS$_CPUNOTACT = 8948; SS$_SRVMMAT = 8956; SS$_EXLICENSE = 8964; SS$_INVLICENSQE = 8972; SS$_LICENSE_LEVEL = 8980; SS$_INV_HW_ID = 8988; SS$_BADCONTEXT = 8996; SS$_TOOMUCHCTX = 9004; SS$_VA_IN_USE = 9012; SS$_NODELETE = 9020; SS$_NOSUCHCPU = 9028; SS$_IMGVEXC = 9036; SS$_NOSAVPEXC = 9044; SS$_NOSUCHTID = 9052; SS$_NOSUCHRM = 9060; SS$_NOCURTID = 9068; SS$_WRONGSTATE = 9076; SS$_VETO = 9084; SS$_PWDSYNTAX = 9092; SS$_PWDNOTDIF = 9100; SS$_INVPWDLEN = 9108; SS$_SYSVERDIF = 9116; SS$_HWM_STALL = 9124; SS$_NOSUSPEND = 9132; SS$_NOSUCRHPART = 9140; SS$_RMALRDCL = 9148; SS$_ALRCURTID = 9156; SS$_INVLOG = 9164; SS$_BADLOGVER = 9172; SS$_OPINPROG = 9180; SS$_WRONGACMODE = 9188; SS$_SUBTRACED = 9196; SS$_ARCHIVING = 9204; SS$_ARCHIVED = 9212; SS$_SITEPWDFAIL = 9220; SS$_NOSUCHCPB = 9228; SS$_CPUCAP = 9236; SS$_LOADER = 9244; SS$_HSTBUFACC = 9252; SS$_INCONOLCK = 9260; SS$_INVEVENT = 9268; SS$_NOSUCHFAC = 9276; SS$_NOCALLPRIV = 9284; SS$_INSFLPGS = 9292; SS$_INSFRPGS = 9300; SS$_BADRESASON = 9308; SS$_NOSUCHBID = 9316; SS$_NOTORIGIN = 9324; SS$_NOLOG = 9332; SS$_TPDISABLED = 9340; SS$_BRANCHENDED = 9348; SS$_BRANCHSTARTED = 9356; SS$_NOSUCHREPORT = 9364; SS$_BADTIME = 9372; SS$_PARTJOINED = 9380; SS$_NOPRESUME = 9388; SS$_RECOVERCANCEL = 9396; SS$_CURTIDCHANGE = 9404; SS$_NOREADER = 9412; SS$_NOWRITER = 9420; SS$_DEVNOTWS = 9428; SS$_NOCLASS = 9436; SS$_CONTEXTSKEW = 9444; SS$_BADFORGEDB = 9452; SS$_NODOMAIN = 9460; SS$_OVRMAXAUD = 9T468; SS$_BADCHAIN = 9476; SS$_BADBUFLEN = 9484; SS$_BADITMCOD = 9492; SS$_BADBUFADR = 9500; SS$_BADRETLEN = 9508; SS$_SSINOTHELD = 9516; SS$_SSAMISSING = 9524; SS$_SSANOTAUTH = 9532; SS$_BADOWNER = 9540; SS$_NAMESERVCOMMERR = 9548; SS$_IVNODNAM = 9556; SS$_CONFIG_SYNTAX = 9564; SS$_SHELVED = 9572; SS$_DRVNOTVALID = 9580; SS$_SLICING_DISABLED = 9588; SS$_NOCALLTRANS = 9596; SS$_TRANSCALLER = 9604; SS$_ILLPRIPOL = 9612; SS$_ILLPOLICY = 9620; SS$_INSFRSPID =U 9628; SS$_INSFCREDITL = 9636; SS$_INSFCREDITH = 9644; SS$_INSFMAP = 9652; SS$_SIG_INVARGTYPE = 9660; SS$_SIG_INVFLTARG = 9668; SS$_SIG_INVARGLIST = 9676; SS$_SIG_INVFUNCTYPE = 9684; SS$_SIG_ARGMISMATCH = 9692; SS$_NOTRANQUIL = 9700; SS$_NOCALLTRANS_SUP = 9708; SS$_DEVLISTFULL = 9716; SS$_INSFP1POOL = 9724; SS$_SIGNAL64 = 9732; SS$_ZEROALLOCLS = 9740; SS$_QUEUE_FULL = 9748; SS$_DEVICE_RESET = 9756; SS$_ACA_ACTIVE = 9764; SS$_BUS_PHASE_ERROR = 9772; SS$_NOMVULTITHREAD = 9780; SS$_MTHREADACTIVE = 9788; SS$_MAXKTHREADS = 9796; SS$_NOSUCHTHREAD = 9804; SS$_NOTHREADMAN = 9812; SS$_NOSUCHUPCALL = 9820; SS$_BADFANDLE = 9828; SS$_FANDLEBUSY = 9836; SS$_UNALIGNED = 9844; SS$_BADIOSADR = 9852; SS$_ILLBUFOBJ = 9860; SS$_ILLMODIFIER = 9868; SS$_NOCCBBUFFOBJ = 9876; SS$_NORDACC = 9884; SS$_NOWRTACC = 9892; SS$_NOTNOCNVRT = 9900; SS$_UNSUPVOLSET = 9908; SS$_ARG_GTR_32_BITS = 9916; SS$_NOT64DEVFUNC = 9924; SS$_CHANVIO = 993W2; SS$_GBLSEC_MISMATCH = 9940; SS$_ILLRELPAG = 9948; SS$_IVACMODE = 9956; SS$_IVREGFLG = 9964; SS$_IVREGID = 9972; SS$_IVREGPROT = 9980; SS$_IVVAFLG = 9988; SS$_LEN_NOTBLKMULT = 9996; SS$_LEN_NOTPAGMULT = 10004; SS$_NOT_PROCESS_VA = 10012; SS$_OFF_NOTBLKALGN = 10020; SS$_OFF_NOTPAGALGN = 10028; SS$_OFFSET_TOO_BIG = 10036; SS$_REGOWNVIO = 10044; SS$_PROTVIO = 10052; SS$_TOO_MANY_ARGS = 10060; SS$_VA_NOTPAGALGN = 10068; SS$_NOEXTAUTH = 10076; SS$_AUTHFAIL = X10084; SS$_INVUSER = 10092; SS$_ERRMAPAUTH = 10100; SS$_NORAD50 = 10108; SS$_BADMEDIA = 10116; SS$_UNRECOVRDER = 10124; SS$_IVFORMAT = 10132; SS$_IVUNITFLAG = 10140; SS$_IVPARAM = 10148; SS$_NOSUCHENTRY = 10156; SS$_ALLOCFAILED = 10164; SS$_SHMEM_INCON = 10172; SS$_IVLOCKOP = 10180; SS$_IVLOCKTBL = 10188; SS$_LOCKINUSE = 10196; SS$_LOCK_TIMEOUT = 10204; SS$_BADLCKTBL = 10212; SS$_NOBREAK = 10220; SS$_IVPROTOCOL = 10228; SS$_NOWAIT = 10236; N(* Y *)N(* ***** NOTE: NO ROOM FOR MORE MESSAGES IN THIS SECTION ***** *)N(* *)N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(* 128-191 400-5FF 64 HARDWARE DEFIZNED FATAL ERRORS *)N(* *) CONST SS$_PLHLDR = 1028; SS$_ASTFLT = 1036; SS$_BREAK = 1044; SS$_CMODSUPR = 1052; SS$_CMODUSER = 1060; SS$_COMPAT = 1068; SS$_OPCCUS = 1076; SS$_OPCDEC = 1084; SS$_PAGRDERR = 1092; SS$_RADRMOD = 1100; SS$_ROPRAND = 1108; SS$_SSFAIL = 1116; SS$_TBIT = 1124; SS$_DEBUG = 1132; N(* THE FOLLOWING CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED *)[ CONST SS$_ARTRES = 1140; SS$_INTOVF = 1148; SS$_INTDIV = 1156; SS$_FLTOVF = 1164; SS$_FLTDIV = 1172; SS$_FLTUND = 1180; SS$_DECOVF = 1188; SS$_SUBRNG = 1196; SS$_FLTOVF_F = 1204; SS$_FLTDIV_F = 1212; SS$_FLTUND_F = 1220; N(* THE ABOVE CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED *) CONST SS$_INHCHMK = 1228; SS$_INHCHME = 1236; SS$_VECDIS = 1244; SS$_VARITH = 1252; SS$_ILLVECOP = 1260; SS$_VECALIGN = 1268; SS$_IMGDMP = 1276\; SS$_HPARITH = 1284; SS$_ALIGN = 1292; SS$_UNALIGN_SP_LOAD = 1300; SS$_GENTRAP = 1308; SS$_FLTINV = 1316; SS$_FLTINE = 1324; SS$_DECDIV = 1332; SS$_DECINV = 1340; SS$_ASSERTERR = 1348; SS$_NULPTRERR = 1356; SS$_STKOVF = 1364; SS$_STRLENERR = 1372; SS$_SUBSTRERR = 1380; SS$_RANGEERR = 1388; SS$_SUBRNG1 = 1396; SS$_SUBRNG2 = 1404; SS$_SUBRNG3 = 1412; SS$_SUBRNG4 = 1420; SS$_SUBRNG5 = 1428; SS$_SUBRNG6 = 1436; SS$_SUBRNG7 = 1444; SS$_PAGRDERRXM = 1452; ] SS$_ILLEGAL_SHADOW = 1460; SS$_FLTINV_F = 1468; SS$_FLTINE_F = 1476; SS$_INTOVF_F = 1484; SS$_NATFAULT = 1492; SS$_FLTDENORMAL = 1500; SS$_BREAK_SYS = 1508; SS$_BREAK_ARCH = 1516; N(* *)N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 2 MORE MESSAGES IN THIS SECTION ***** *)N(* ^ *)N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(* 192-255 600-7FF 64 SUCCESS CODES *)N(* *) CONST SS$_BUFFEROVF = 1537; SS$_CONTROLO = 1545; SS$_CONTROLY = 1553; SS$_CREATED = 1561;_ SS$_MSGNOTFND = 1569; SS$_NOTRAN = 1577; SS$_SUPERSEDE = 1585; SS$_WASECC = 1593; SS$_DEVALRALLOC = 1601; SS$_REMOTE = 1609; SS$_CONTROLC = 1617; SS$_NOTMODIFIED = 1625; SS$_RDDELDATA = 1633; SS$_OVRDSKQUOTA = 1641; SS$_OBSOLETE_1 = 1649; SS$_FILEPURGED = 1657; SS$_NOTALLPRIV = 1665; SS$_SYNCH = 1673; SS$_CONCEALED = 1681; SS$_INCOMPAT = 1689; SS$_DBGOPCREQ = 1697; SS$_ALRDYCLOSED = 1705; SS$_LNMCREATED = 1713; SS$_ACEIDMATCH = 1721; SS$_DBGEVENT = `1729; SS$_REMOVED = 1737; SS$_QUEUED = 1745; SS$_SUBDISABLED = 1753; SS$_FORGET = 1761; SS$_PREPARED = 1769; SS$_NOMOREITEMS = 1777; SS$_VOLATILE = 1785; SS$_CLASSUPER = 1793; SS$_CONTINUE_64 = 1801; SS$_THREAD_UPCALL = 1809; SS$_CREATED_SHPT = 1817; SS$_PERSONADELPEND = 1825; SS$_DEVAVAIL = 1833; SS$_LONGGAP = 1841; SS$_BROKEN = 1849; SS$_QPOOL_DEL_INIT = 1857; SS$_UNUSED_1 = 1865; SS$_LOWPREC = 1873; N(* a *)N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 18 MORE MESSAGES IN THIS SECTION ***** *)N(* *)N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(*b 256-383 800-BFF 128 WARNING CODES *)N(* *) CONST SS$_ACCONFLICT = 2048; SS$_BADCHKSUM = 2056; SS$_BADFILEHDR = 2064; SS$_BADFILENAME = 2072; SS$_BADFILEVER = 2080; SS$_BADIRECTORY = 2088; SS$_CANCEL = 2096; SS$_DATAOVERUN = 2104; SS$_DEVALLOC = 2112; SS$_DEVASSIGN = 2120; SS$_DEVICEFULL = 2128; SS$_DEVNOTALLOC = 2136; SS$_DIRFULL = 2144; SS$_DUPFILENAME = 2152;c SS$_ENDOFFILE = 2160; SS$_ENDOFTAPE = 2168; SS$_TMACTIVE = 2176; SS$_FCPREADERR = 2184; SS$_FCPREWNDERR = 2192; SS$_FCPSPACERR = 2200; SS$_FCPWRITERR = 2208; SS$_FILELOCKED = 2216; SS$_FILENUMCHK = 2224; SS$_FILESEQCHK = 2232; SS$_FILESTRUCT = 2240; SS$_HEADERFULL = 2248; SS$_IDXFILEFULL = 2256; SS$_MBFULL = 2264; SS$_NOHOMEBLK = 2272; SS$_NONEXPR = 2280; SS$_NONLOCAL = 2288; SS$_NOHANDLER = 2296; SS$_NOSIGNAL = 2304; SS$_NOSUCHDEV = 2312; SS$_NOSUCdHFILE = 2320; SS$_RESIGNAL = 2328; SS$_UNWIND = 2336; SS$_UNWINDING = 2344; SS$_NOMOREFILES = 2352; SS$_BEGOFFILE = 2360; SS$_BLOCKCNTERR = 2368; SS$_MUSTCLOSEFL = 2376; SS$_WAITUSRLBL = 2384; SS$_ILLUSRLBLRD = 2392; SS$_ILLUSRLBLWT = 2400; SS$_ILLLBLAST = 2408; SS$_ENDOFUSRLBL = 2416; SS$_NOSUCHSEC = 2424; SS$_CLIFRCEXT = 2432; SS$_FCPREPSTN = 2440; SS$_TOOMANYVER = 2448; SS$_NOTVOLSET = 2456; SS$_ENDOFVOLUME = 2464; SS$_NOMOREPROC = 2472; SS$_NODEVAVL = e2480; SS$_NOTQUEUED = 2488; SS$_DGQINCOMP = 2496; SS$_DIRALLOC = 2504; SS$_ACLEMPTY = 2512; SS$_NOENTRY = 2520; SS$_NOMOREACE = 2528; SS$_RIGHTSFULL = 2536; SS$_VALNOTVALID = 2544; SS$_ACLFULL = 2552; SS$_NOMORENODE = 2560; SS$_NOMORELOCK = 2568; SS$_BEGOFTAPE = 2576; SS$_OBJLOCKHELD = 2584; SS$_CPUSTARTIP = 2592; SS$_ALLSTARTED = 2600; SS$_ALRDYSTRT = 2608; SS$_ALRDYSTPPD = 2616; SS$_NSTPPD = 2624; SS$_UNKRESULT = 2632; SS$_ITEMNOTFOUND = 2640; SS$f_NOMOREDEV = 2648; SS$_EFNOTSET = 2656; SS$_PRIMNOSTP = 2664; SS$_BOOTREJECT = 2672; SS$_RMTPATH = 2680; SS$_OBJECT_EXISTS = 2688; SS$_NOSUCHOBJECT = 2696; SS$_NOVOLDESC = 2704; SS$_NOPTBLDIR = 2712; SS$_DRVEXISTS = 2720; SS$_DEVEXISTS = 2728; SS$_GOTO_UNWIND = 2736; SS$_EXIT_UNWIND = 2744; SS$_SMALLHEADER = 2752; SS$_FDT_COMPL = 2760; SS$_TARGET_UNWIND = 2768; SS$_TARGET_GOTO_UNWIND = 2776; SS$_RESIGNAL_64 = 2784; SS$_NOMOREREG = 2792; SS$_PAGNOTINREG = 2800;g SS$_REGISFULL = 2808; SS$_PAGTYPVIO = 2816; SS$_NOSUCHPAG = 2824; SS$_PAGNOTWRITE = 2832; SS$_NOMORETHREAD = 2840; SS$_NOTF11ODS5 = 2848; SS$_NOCONVJNL = 2856; SS$_MPDEVBUSY = 2864; SS$_MPDEVUSERDISABLE = 2872; SS$_NOCPUMATCH = 2880; SS$_NOMORECLIENTS = 2888; SS$_NOMOREDEVICES = 2896; SS$_NOMOREFILTERS = 2904; SS$_NOMOREPATHS = 2912; SS$_NOMORESERVERS = 2920; SS$_FISH = 2928; SS$_FILENOTCACHED = 2936; SS$_INSF_SHM_REG = 2944; SS$_HBMMNOTENABLED = 2952; S hS$_HBMMALREADYON = 2960; SS$_NODEVPOL = 2968; SS$_NONAMPOL = 2976; SS$_XVALNOTVALID = 2984; SS$_FILEFULL = 2992; SS$_REMINDER = 3000; N(* *)N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 8 MORE WARNING MESSAGES IN ABOVE SECTION ***** *)N(* *)N(* i *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(* 384-447 C00-DFF 64 INFORMATIONAL CODES *)N(* *) CONST SS$_EOTIN = 3075; SS$_CHAINW = 3083; SS$_NOTINSEC = 3091; SS$_NONXPAG = 3099; SS$_LOGNAME = 3107; SS$_CPUSTARTD = 3115; SS$_CPUSTOPjPING = 3123; SS$_NOTALLCANCELED = 3131; SS$_NOTHINGDONE = 3139; SS$_EVTNOTENAB = 3147; SS$_NOPATHTBL = 3155; SS$_RESELECTION = 3163; SS$_EMULATED = 3171; SS$_REMDONE = 3179; SS$_REMINPROG = 3187; SS$_DEVCON = 3195; SS$_DEVNOTCON = 3203; SS$_CPUSELECTED = 3211; SS$_QPOOL_DEL_INPRG = 3219; SS$_PRESTO = 3227; SS$_TAKEN_BRANCH = 3235; SS$_IA32_TRAP = 3243; SS$_DEBUG_FAULT = 3251; SS$_BREAK_APPL = 3259; SS$_TIE_GET_FRAMES = 3267; SS$_TIE_PRE_UNWIND = 3275; SkS$_TIE_UNWIND = 3283; SS$_TIE_GOTO_UNWIND = 3291; SS$_HBMMCREPOSTMRG = 3299; SS$_FPMODECTL = 3307; SS$_FPMODEPC = 3315; SS$_FPMODERC = 3323; SS$_ARGTYP1 = 3331; SS$_ARGTYP2 = 3339; SS$_ARGTYP3 = 3347; SS$_ARGTYP4 = 3355; SS$_ARGTYP5 = 3363; SS$_ARGTYP6 = 3371; SS$_ARGTYP7 = 3379; SS$_ARGTYP8 = 3387; SS$_DEFER_ASTS = 3395; SS$_COWBOYUP = 3403; N(* *)N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATElLY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 22 MORE MESSAGES IN THIS SECTION ***** *)N(* *)N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(* 448-511 E00-FFF 64 NONFATAL ERROR CODES *)N(* m *) CONST SS$_LINEABRT = 3586; SS$_DEADLOCK = 3594; SS$_NOLOCKID = 3602; SS$_EXDEPTH = 3610; SS$_PARTMAPPED = 3618; SS$_CANCELGRANT = 3626; SS$_RETRY = 3634; SS$_BADACL = 3642; SS$_ACEEXISTS = 3650; SS$_UNSUPPORTED = 3658; SS$_NORIGHTSDB = 3666; SS$_LOGSTALL = 3674; SS$_LOGFULL = 3682; SS$_PWDINDIC = 3690; SS$_PWDINHIS = 3698; SS$_PWDWEAK = 3706; SS$_USEGENPWD = 3714; SS$_INVBUSNAM = 3n722; SS$_INVCOMPTYPE = 3730; SS$_INVCOMPID = 3738; SS$_INVCOMPLIST = 3746; SS$_NOCOMPLSTS = 3754; SS$_INVSECDOMAIN = 3762; SS$_BADCHECKSUM = 3770; SS$_ARBTOOBIG = 3778; SS$_ORBTOOBIG = 3786; SS$_INVAJLNAM = 3794; SS$_TOOMANYAJL = 3802; SS$_RSDMINUSE = 3810; SS$_RSDMNOTFOU = 3818; SS$_INVUICGRP = 3826; SS$_RSDM_ACTIVE = 3834; SS$_OBJLOCKED = 3842; SS$_NOTMPNAM = 3850; SS$_INVCLSITM = 3858; SS$_NOTSHRTBL = 3866; SS$_MMATORB = 3874; SS$_NOSUCHVOL = 3882; SS$o_OBJNOTLOCKED = 3890; SS$_ILLRSDM = 3898; SS$_NOCLASSSUPPORT = 3906; SS$_INVSECOPER = 3914; SS$_NODELJNLACT = 3922; SS$_INVFILFOROP = 3930; SS$_NOOBJSRV = 3938; SS$_NOFILEACCESS = 3946; SS$_BADFILESIZE = 3954; SS$_NOTFULLYMAPPED = 3962; SS$_BADWINCNT = 3970; SS$_BADWINLBN = 3978; SS$_BADWINRVN = 3986; SS$_EXTRAWINDOW = 3994; SS$_REVISED = 4002; SS$_TIMENOTSET = 4010; SS$_WAIT_CALLERS_MODE = 4018; SS$_NOT_LOADED = 4026; SS$_DRV_NOUNLOAD = 4034; SS$_INVARG p= 4042; SS$_QIO_CROCK = 4050; SS$_ALTER = 4058; SS$_AFR_ENABLED = 4066; SS$_AFR_NOT_ENABLED = 4074; SS$_SHELFERROR = 4082; SS$_PERSONANONGRATA = 4090; N(* ************** *)N(* NOTE: THE ABOVE SET OF NONFATAL ERROR MESSAGES IS FULL!!!! *)I(* ANY ADDITIONAL NONFATAL ERROR MESSAGES MUST BE ADDED *)I(* BELOW, IN THE RANGE HEX 2C00-33FF. *)N(* ************** q *)N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(* 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS *)N(* *)N(* r *)N(* NB: THESE MESSAGES MUST BE KEPT IN THE SAME ORDER AS THE PRIVILEGE BIT *)R(* DEFINITIONS ($PRVDEF) AS THE PRIVILEGE BIT POSITION IS USED AS AN INDEX INTO *)N(* THESE MESSAGE CODES BY THE $CHECK_PRIVILEGE SYSTEM SERVICE. *)N(* *) CONST SS$_NOPRIVSTRT = 10240; SS$_NODETACH = 10284; SS$_NOCMKRNL = 10244; SS$_NOCMEXEC = 10252; SS$_NOSYSNAM = 10260; SS$_NOGRPNAM = 10268; SS$_NOALLSPOOsL = 10276; SS$_NOIMPERSONATE = 10284; SS$_NODIAGNOSE = 10292; SS$_NOLOG_IO = 10300; SS$_NOGROUP = 10308; SS$_NOACNT = 10316; SS$_NOPRMCEB = 10324; SS$_NOPRMMBX = 10332; SS$_NOPSWAPM = 10340; SS$_NOALTPRI = 10348; SS$_NOSETPRV = 10356; SS$_NOTMPMBX = 10364; SS$_NOWORLD = 10372; SS$_NOMOUNT = 10380; SS$_NOOPER = 10388; SS$_NOEXQUOTA = 10396; SS$_NONETMBX = 10404; SS$_NOVOLPRO = 10412; SS$_NOPHY_IO = 10420; SS$_NOBUGCHK = 10428; SS$_NOPRMGBL = 10436; SS$_NOStYSGBL = 10444; SS$_NOPFNMAP = 10452; SS$_NOSHMEM = 10460; SS$_NOSYSPRV = 10468; SS$_NOBYPASS = 10476; SS$_NOSYSLCK = 10484; SS$_NOSHARE = 10492; SS$_NOUPGRADE = 10500; SS$_NODOWNGRADE = 10508; SS$_NOGRPPRV = 10516; SS$_NOREADALL = 10524; SS$_NOIMPORT = 10532; SS$_NOAUDIT = 10540; SS$_NOSECURITY = 10548; SS$_NOPRIVEND = 10751; N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION u *)N(* *)C(* 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS *)N(* *) CONST SS$_EXQUOTASTRT = 10752; SS$_EXASTLM = 10756; SS$_EXBIOLM = 10764; SS$_EXBYTLM = 10772; SS$_EXDIOLM = 10780; SS$_EXFILLM = 10788; SS$_EXPGFLQUOTA = 10796; SS$_EXPRCLM = 10804; SS$_EXTQELM = 10812; SS$_EXENQLM = 10820; N(* v SYSTEMWIDE QUOTA -- WORK FROM END OF REGION *) CONST SS$_EXBUFOBJLM = 11004; SS$_EXQUOTAEND = 11007; N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(* 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS *)N(* w *) CONST SS$_MMSFAILED = 11012; SS$_QPOOL_DEL_BUSY = 11020; N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 1 MORE MESSAGE IN THIS SECTION ***** *) CONST SS$_TOOFEWDEV = 11032; SS$_AVRWAIT = 11040; N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 3 MORE MESSAGES IN THIS SECTION ***** *) CONST SS$_NO_MMS = 11075; SS$x_MMSREADY = 11083; SS$_MMSNOTREADY = 11091; SS$_SKIP_CHECKS = 11099; SS$_NO_NOTIFY = 11107; SS$_SKIP_EXPIRATION = 11115; SS$_NOTATBOT = 11123; SS$_PREVDENS = 11131; N(* A NEW BASE SHOULD BE CREATED FOR INFORMATIONALS *)N(* ***** NOTE: ROOM FOR 0 MORE MESSAGES IN ABOVE SECTION ***** *) CONST SS$_RDBERR = 11140; SS$_MDMSERR = 11148; SS$_IVMEDTYP = 11156; SS$_IVDENS = 11164; SS$_IVPOOL = 11172; SS$_IVEXPDAT = 11180; SS$_NOCONFM yEDIA = 11188; SS$_PTE_NOT_EMPTY = 11196; SS$_CPUNOTAVAIL = 11204; SS$_NOFASTPATH = 11212; SS$_EXITFORCED = 11220; SS$_FORCEX = 11228; N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)I(* 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF) *)N(* z *) CONST SS$_NOTASSUMING = 11266; SS$_ALREADYASSUMING = 11274; SS$_INUSE = 11282; SS$_USERDISABLED = 11290; SS$_NOCHJIB = 11298; SS$_NOTSUPFS = 11306; SS$_INSFTHREADS = 11314; SS$_NOBUFOBJID = 11322; SS$_NODELPERMANENT = 11330; SS$_NOMEMRESID = 11338; SS$_MRES_PFNSMALL = 11346; SS$_MRES_INCON = 11354; SS$_NORESERVEDMEM = 11362; SS$_RESERVEDMEMUSED = 11370; SS$_RES_MEM_INCON = 11378; SS$_NOSHPTS = 11386; SS$_FLUSHFAIL = 11394;{ SS$_NOTINSTALLED = 11402; SS$_POOLDEVEXISTS = 11410; SS$_NOUNITS = 11418; SS$_NOTAPOOL = 11426; SS$_MISSINGUNITS = 11434; SS$_DISKDEVEXISTS = 11442; SS$_TOOMANYUNITS = 11450; SS$_NOTINPOOL = 11458; SS$_WRONGPOOL = 11466; SS$_ALRBOUND = 11474; SS$_NOTPOOLMOUNTED = 11482; SS$_POOLINUSE = 11490; SS$_DISKINUSE = 11498; SS$_SDDISABLED = 11506; SS$_UNITINPOOL = 11514; SS$_FAMILYTOOBIG = 11522; SS$_NODISKNAME = 11530; SS$_DISKNAMEEXISTS = 11538; SS$_INSUFFREESEGS| = 11546; SS$_NOTBOUND = 11554; SS$_TOOMANYFRAGS = 11562; SS$_TOOMANYFAMILIES = 11570; SS$_DISKISBOUND = 11578; SS$_SNAPINFAM = 11586; SS$_CHKSNAPVER = 11594; SS$_BADSNAPVER = 11602; SS$_SD_RESERVED4 = 11610; SS$_SD_RESERVED5 = 11618; SS$_SECREFOVF = 11626; SS$_DATAERR = 11634; SS$_INVPFN = 11642; SS$_INV_SHMEM = 11650; SS$_INV_SHM_CPP = 11658; SS$_INV_SHM_REG = 11666; SS$_ONEMAPPER = 11674; SS$_NOSUCHEXT = 11682; SS$_CBKEXISTS = 11690; SS$_NOSUCHCBK =} 11698; SS$_NOTAMEMBER = 11706; SS$_GLXSPIUNAVAIL = 11714; SS$_MPDEVILLCURPATH = 11722; SS$_MPDEVINCOMPAT = 11730; SS$_MPDEVNOT = 11738; SS$_MPDEVNOTCONF = 11746; SS$_PERSONARESERVED = 11754; SS$_WRONGDRV = 11762; SS$_BADRAD = 11770; SS$_INVQSRFNC = 11778; SS$_NOQIOSERVER = 11786; SS$_INCLASS = 11794; SS$_INVBOOTDEV = 11802; SS$_CLIENT_UNAVAILABLE = 11810; SS$_CONFIGFILE_ERROR = 11818; SS$_INVDEVALLOC = 11826; SS$_DEVICE_UNAVAILABLE = 11834; SS$_INVDEVMOUNT~ = 11842; SS$_LOGGING_DISABLED = 11850; SS$_NOSUCHCLIENT = 11858; SS$_NOSUCHDEVICE = 11866; SS$_NOSUCHFILTER = 11874; SS$_NOSUCHPATH = 11882; SS$_NOSUCHSERVER = 11890; SS$_RQSTIMOUT = 11898; SS$_SERVER_UNAVAILABLE = 11906; SS$_QSRVINTERR = 11914; SS$_NOADD = 11922; SS$_SYSTEMUIC = 11930; SS$_NOSUCHQPOOLID = 11938; SS$_PATHAMBIG = 11946; SS$_INVMVIP = 11954; SS$_NOPATHAVAIL = 11962; SS$_NOENACURINV = 11970; SS$_TRUSTCONF = 11978; SS$_QIO_FAULT = 11986; S S$_HBVS_REDO_IO = 11994; SS$_TOOMANYPERSONA = 12002; SS$_INVKTLIM = 12010; SS$_PWDPOLICY = 12018; N(* *)N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 161 MORE NONFATAL MESSAGES IN ABOVE SECTION ***** *)N(* *)N(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)S(* 1664-1695 3400-341F 32 FATAL ERROR CODES (CONTINUED FROM 27FF) *) CONST SS$_MAXNAMPOL = 13316; SS$_HBMMENABLED = 13324; SS$_NOMODNONEPOL = 13332; SS$_SHADFEATNOMNT = 13340; SS$_NOTSUPALLNODES = 13348; SS$_WLGCANTHBMM = 13356; SS$_CALLUNDEFSYM = 13364; SS$_NOADDMCPYMBR = 13372; SS$_CANTDODDS = 13380; SS$_TOOMANYMBRS = 13388; SS$_SCBREADFAIL = 13396; SS$_SCBWRITEFAIL = 13404; SS$_NOMEMFORWBM = 13412; SS$_MUSTDMTVU = 13420; SS$_ONLYSRCMUSTSTAY = 13428; SS$_NOWBMDURINGCOPY = 13436; SS$_WBMERR = 13444; SS$_BADPOLCHAR = 13452; SS$_HBMMVERSIONBAD = 13460; SS$_ANADSKSHDBBLK = 13468; SS$_HBMMBADPOLSPEC = 13476; SS$_NOSHADOWSERVER = 13484; SS$_GAMEOVER = 13492; N(* N.B. DO NOT CORRECT THE GRAMMAR IN GAMEOVER, THE MESSAGE IS AS INTENDED *)N(* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *)N(* ***** NOTE: ROOM FOR 9 MORE FATAL MESSAGES IN ABOVE SECTION ***** *)N(* *)E(* MSG #S RANGE # MSGS DESCRIPTION *)N(* *)C(* 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS *)N(* *)I(* MESSAGE CODES IN THIS BLOCK ARE GUARANTEED NOT TO  *)I(* BE TRANSLATED BY VMS WHEN THEY ARE SEND OUT BY VMSSCS *)I(* OR WHEN THEY ARE RECEIVED BY VMSSCS. SCA SYSAPS ARE *)I(* FREE TO USE THESE CODES IN ANY SYSAP-DEPENDENT MANNER *)I(* IN WHICH THEY CHOOSE. *)N(* *)I(* THIS ADDRESS OF THIS BLOCK OF CODES MUST BE IN CONFORMANCE *)I(* WITH THE SCA ARCHITECTURE, I.E., MU ST NOT BE MOVED. *)N(* *) CONST SS$_SYSAPMIN = 32256; SS$_SYSAPMAX = 32767; N(* END. *)N(* [INHERIT('PASCAL$UTCBLKDEF', *)N(* 'PASCAL$ACMEDEF', *)N(* 'PASCAL$UTCBLKDEF', *)N(*  'PASCAL$ELFDATYP')] *)N(* (* The order in which the Inherited modules above ?? *)N(* (* are listed is not necessarily the canonical ?? *)N(* (* order in which they should be compiled. ?? *)N(* (* Examine Inherit requirements within each module ?? *)N(* (* to determine the proper compilation order. ?? *) N(* MODULE STARDEFAE ;  *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END;  *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3;  *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303;  *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29), UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $ACCDEF ***) LCONST ACC$K_TERMLEN = 84; (* TERMINATION MESSAGE LENGTH *)G ACC$C_TERMLEN = 84; (* TERMINATION MESSAGE LENGTH *) N(* AND ACCOUNTING RECORD FOR NON B ATCH JOBS *) RCONST ACC$K_JOB_LEN = 108; (* LENGTH OF BATCH JOB ACCOUNTING RECORD *)M ACC$C_JOB_LEN = 108; (* LENGTH OF BATCH JOB ACCOUNTING RECORD *) TYPE ACC$TYPE = RECORDG ACC$W_MSGTYP : $UWORD; (* MESSAGE TYPE CODE *)U ACC$W_MSGSIZ : $UWORD; (* LENGTH OF DATA MESSAGE (VALID ONLY IN ACCLOG) *)G ACC$L_FINALSTS : UNSIGNED; (* FINAL EXIT STATUS *)G ACC$L_PID : UNSIGNED;  (* PROCESS ID *)Q ACC$L_JOBID : UNSIGNED; (* JOB IDENTIFICATION (VALID ONLY IN ACCLOG) *)G ACC$Q_TERMTIME : $UQUAD; (* TERMINATION TIME (100NS UNITS) *)[ ACC$T_ACCOUNT : PACKED ARRAY [1..8] OF CHAR; (* ACCOUNT NAME STRING (BLANK FILLED) *)Z ACC$T_USERNAME : PACKED ARRAY [1..12] OF CHAR; (* USER NAME STRING (BLANK FILLED) *)G ACC$L_CPUTIM : UNSIGNED; (* CPUTIM IN 10MS UNITS *)G ACC$L_PAGEFLTS : UNSIGNED; (* TOTAL PAGE FAULTS *)G ACC$L_PGFLPEAK : UNSIGNED; (* PEAK PAGING FILE USAGE *)G ACC$L_WSPEAK : UNSIGNED; (* PEAK WORKING SET SIZE *)H ACC$L_BIOCNT : UNSIGNED; (* COUNT OF BUFFERED I/O OPERATIONS *)G ACC$L_DIOCNT : UNSIGNED; (* COUNT OF DIRECT I/O OPERATIONS *)G ACC$L_VOLUMES : UNSIGNED; (* COUNT OF VOLUMES MOUNTED *)G ACC$Q_LOGIN : $UQUAD; (* LOGIN TIME (100NS UNITS) *)G ACC$L_OWNER : UNSIGNED;  (* PID OF SUBPROCESS OWNER *)G (* END OF TERMINATION MESSAGE *)Q ACC$T_JOB_NAME : PACKED ARRAY [1..8] OF CHAR; (* JOB NAME (BLANK FILLED) *)M ACC$T_JOB_QUE : PACKED ARRAY [1..16] OF CHAR; (* QUEUE NAME (.ASCIC) *) END; NCONST ACC$K_PRT_LEN = 88; (* LENGTH OF PRINT ACCOUNTING RECORD *)I ACC$C_PRT_LEN = 88; (* LENGTH OF PRINT ACCOUNTING RECORD *) N(*  *) TYPE ACC1$TYPE = RECORD. ACCDEF$$_FILL_1 : ARRAY [1..48] OF $BYTE;G ACC$L_PAGCNT : UNSIGNED; (* SYMBIONT PAGE COUNT *)G ACC$L_QIOCNT : UNSIGNED; (* SYMBIONT QIO COUNT *)G ACC$L_GETCNT : UNSIGNED; (* SYMBIONT GET COUNT *)G ACC$Q_QUETIME : $UQUAD; (* TIME JOB WAS QUEUED *)K ACC$T_PRT_NAME : PACKED ARRAY [1..8] OF CHAR; (* NAME OF PRINT JOB *)M ACC$T_PRT_QUE : PACKE D ARRAY [1..12] OF CHAR; (* NAME OF PRINT QUEUE *)O (* DEFINE USER ACCOUNTING MESSAGE DATA AREA *)G (* *) END; LCONST ACC$K_INS_LEN = 176; (* LENGTH OF INSERT MESSAGE *)G ACC$C_INS_LEN = 176; (* LENGTH OF INSERT MESSAGE *) N(* *) LCONST ACC$K_PRCTRM = 1; (* JOB TERMINATION *)G ACC$K_BATTRM = 2; (* BATCH JOB TERMINATION *)G ACC$K_INTTRM = 3; (* INTERACTIVE JOB TERMINATION *)I ACC$K_LOGTRM = 4; (* LOGIN FAILURE PROCESS TERMINATION *)G ACC$K_IMGTRM = 5; (* IMAGE TERMINATION *)G ACC$K_SUBTRM = 6; (* SUBPROCESS TERMINATION *)G ACC$K_DETTRM = 7; (* DETACHED PROCESS TERMINATION *)G ACC$K_NETTRM = 8;  (* NETWORK PROCESS TERMINATION *) N(* MISC ACCOUNTING RECORDS *) LCONST ACC$K_PRTJOB = 16; (* PRINT JOB ACCOUNTING *)G ACC$K_INSMSG = 17; (* INSERTED MESSAGE *) N(* *) PCONST ACC$K_INSMESG = 1; (* INSERT MESSAGE INTO ACCOUNTING FILE *)G ACC$K_NEWFILE = 2; (* CREATE A NEW  ACCOUNT FILE *)G ACC$K_ENABACC = 3; (* ENABLE ACCOUNTING *)G ACC$K_DISAACC = 4; (* DISABLE ACCOUNTING *)G ACC$K_ENABSEL = 5; (* ENABLE SELECTIVE ACCOUNTING *)G ACC$K_DISASEL = 6; (* DISABLE SELECTIVE ACCOUNTING *) TYPE ACC2$TYPE = RECORD. ACCDEF$$_FILL_2 : ARRAY [1..44] OF $BYTE;_ ACC$T_USER_DATA : PACKED ARRAY [1..132] OF CHAR; (* ALLOW UP TO 132 BYTES OF USER DATA *)c  (* ASSIGN RECORD TYPE CODES FOR RECORDS IN THE ACCOUNT LOG FILE *)G (* *)G (* PROCESS ACCOUNTING RECORDS *)N (* DEFINE ACCOUNTING MANAGER MESSAGE CODES *)G (* *)G (* *) END; (*** MODULE $ACCESSDEF * **) N(* *)N(* Definitions for Acmode arugment to several MMG system services *)N(* *) CONST ACCESS$M_LOCK_IMAGE = 64; ACCESS$M_LKWSET_EXACT = 128; )TYPE ACCESS$TYPE = RECORD CASE INTEGER OF2 1: (ACCESS$R_ACCESS_UNION : [BYTE(8)] RECORD END; );] 2: (ACCESS$Q_QUAD : [POS(0)] $UQUAD; (* Combined acmode/arch/prot argument - full 64-bits *) ); 3: ();G 4: (ACCESS$B_MODE : [POS(0)] $UBYTE; (* Access mode *)G ACCESS$B_ARCH : [POS(8)] $UBYTE; (* Architecture 3=IA64 *)S ACCESS$W_PROT : [POS(16)] $UWORD; (* Page protection in architecture format *)G ACCESS$L_RESERVED1 : [POS(32)] INTEGER; (* Reserved *) ); 5: ();S 6: (ACCESS$V_LOCK_IMAGE : [POS(6)] $BOOL; (* For $LKWSET_64 and $ULWSET_64 only *)^ ACCESS$V_LKWSET_EXACT : [POS(7)] $BOOL; (* For $LKWSET[_64] and $ULWSET[_64] IA64 only *)G (* Alpha always performs exact *) ) END; LCONST ACCESS$C_IA64 = 3; (* IA64 *) (*** MODULE $ACEDEF ***) N(*+ *)N(* *)N(* Access Control list Entry structure definitions *)N(*  *)N(*- *) LCONST ACE$C_KEYID = 1; (* Key identifier entry *)G ACE$C_RMSJNL_BI = 2; (* RMS BI journal *)G ACE$C_RMSJNL_AI = 3; (* RMS AI journal *)G ACE$C_RMSJNL_AT = 4; (* RMS AT journal *)G ACE$C_AUDIT = 5; (* Security audit journal entry *)G ACE$C_ALARM = 6; (* Security alarm entry *)G ACE$C_INFO = 7; (* General purpose information *)G ACE$C_RMSJNL_RU_DEFAULT = 8; (* RU journal default volume *)G ACE$C_DIRDEF = 9; (* Directory default protection *)G ACE$C_RMSJNL_RU = 10; (* RU journal (many per file) *)G ACE$C_SUBSYSTEM_IDS = 11; (* Protected subsystem ids *)G ACE$C_OIL = 12; (* Object Information Label *)G ACE$C_NEW_OWNER = 13; (* Protection for owner ACE *)I ACE$C_POSIX_OWNER = 14; (* Posix UID/GID (persona) from image *)G ACE$C_MAX_CODE = 15; (* Maximum ACE type code plus 1 *)G ACE$C_RESERVED = 255; (* Reserved ACE type *)G ACE$C_APPLICATION = 7; (* Alternate application ACE code *)G ACE$C_CUST = 1; (* Customer defined *)G ACE$C_CSS = 2;  (* CSS defined *)G ACE$C_VMS = 3; (* VMS defined *) ACE$M_SUCCESS = 1; ACE$M_FAILURE = 2; ACE$M_DEFAULT = 256; ACE$M_PROTECTED = 512; ACE$M_HIDDEN = 1024; ACE$M_NOPROPAGATE = 2048; ACE$M_READ = 1; ACE$M_WRITE = 2; ACE$M_EXECUTE = 4; ACE$M_DELETE = 8; ACE$M_CONTROL = 16;G ACE$K_LENGTH = 8; (* Length of the overhead area *)G ACE$C_LENGTH = 8; (* Length of the overhead area  *)I ACE$C_RMS_ATTRIBUTES = 0; (* variant of ACE for file attributes *)I ACE$K_RMS_ATTRIBUTES = 0; (* variant of ACE for file attributes *)G ACE$K_RMSATR_MINOR_V50 = 2; (* minor ID for VMS 5.0 *)G ACE$K_RMSATR_MINOR_VDW = 2; (* minor ID for DECwindows V1.0 *)I ACE$C_RMSATR_MINOR_ID = 2; (* current minor ID (obsolete symbol) *) ACE$K_RMSATR_MINOR_ID = 2;G ACE$C_RMSATR_MAJOR_ID = 1; (* current major ID *) ACE$K_RMSATR_MAJOR_ ID = 1; ACE$M_STATISTICS = 1; ACE$M_XLATE_DEC = 2;U ACE$S_RMSATR = 20; (* size of RMS file attributes ACE (fixed fields) *)U ACE$S_RMSATR_V50 = 20; (* size of RMS file attributes ACE (fixed fields) *)U ACE$S_RMSATR_VDW = 20; (* size of RMS file attributes ACE (fixed fields) *) N(* Beyond the fixed fields, variable length information will by stored *) OCONST ACE$_RMSATR_ORGANIZATION = 1; (* organizational extension object ID *)G ACE$_RMSATR_S EMANTICS = 2; (* file semantics object ID *) ACE$K_RMSATR_ORG_MAX_LEN = 64; ACE$K_RMSATR_SEM_MAX_LEN = 64;G ACE$S_RMSJNL_RU_DEFAULT = 17; (* length of RMSJNL RU default ACE *) ACE$M_JOURNAL_DISABLED = 1; ACE$M_BACKUP_DONE = 2;G ACE$S_RMSJNL_RU = 38; (* length of RMSJNL RU ACE *)G ACE$S_RMSJNL = 50; (* length of RMSJNL AI/BI/AT ACE *)G ACE$S_OIL_S64I64 = 32; (* Length of Type 0 OIL ACE *)G ACE$S_OIL_S128 = 32;  (* Length of Type 1 OIL ACE *)G ACE$S_OIL = 32; (* Maximum OIL ACE Size *) ACE$M_USERNAME_VALID = 1; ACE$M_UIC_VALID = 2; ACE$M_UID_VALID = 4; ACE$M_GID_VALID = 8; ACE$M_GROUP_MODE_VALID = 16; ACE$M_OTHER = 7; ACE$M_GROUP = 56; ACE$M_USER = 448; ACE$M_S_IXOTH = 1; ACE$M_S_IWOTH = 2; ACE$M_S_IROTH = 4; ACE$M_S_IXGRP = 8; ACE$M_S_IWGRP = 16; ACE$M_S_IRGRP = 32; ACE$M_S_IXUSR = 64; ACE$M_S_IWUSR = 128; ACE$M_S_IRUSR  = 256; ACE$M_S_ISGID = 1024; ACE$M_S_ISUID = 2048;G ACE$S_POSIX_OWNER_LENGTH = 60; (* Length of POSIX_OWNER ACE *) &TYPE ACE$TYPE = RECORD CASE INTEGER OFG 1: (ACE$B_SIZE : $UBYTE; (* Size of the entry *)G ACE$B_TYPE : $UBYTE; (* Type of entry *)0 ACE$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;P ACE$R_ACE_FIELDS : [BYTE(56)] RECORD END; (* Start of ACE overlayed area *) );N 2: (ACE$W_FLAGS : [POS(16)] $UWORD; (* Type dependent & independent flags *) ); 3: ();G 4: (ACE$V_INFO_TYPE : [POS(16)] $BIT4; (* INFO ACE subtype *)G ACE$L_ACCESS : [POS(32)] UNSIGNED; (* Access rights bitmask *)G ACE$L_KEY : [POS(64)] UNSIGNED; (* Start of the key fields *) );g 5: (ACE$T_AUDITNAME : [POS(64)] PACKED ARRAY [1..16] OF CHAR; (* Start of the security journal name *) );H 6: (ACE$V_RESERVED : [POS(16)] $BIT4; (* Count of reserved longwords *)G ACE$V_READ : [POS(3 2)] $BOOL; (* Allowed to read *)G ACE$V_WRITE : [POS(33)] $BOOL; (* Allowed to write *)G ACE$V_EXECUTE : [POS(34)] $BOOL; (* Allowed to execute *)G ACE$V_DELETE : [POS(35)] $BOOL; (* Allowed to delete *)H ACE$V_CONTROL : [POS(36)] $BOOL; (* All privileges of the owner *) ); 7: ();G 8: (ACE$V_SUCCESS : [POS(16)] $BOOL; (* Audit or alarm upon success *)G ACE$V_FAILURE : [POS(17)] $BOOL; (* Audit ot alarm upon failu re *) );M 9: (ACE$L_INFO_FLAGS : [POS(32)] UNSIGNED; (* INFO type application flags *)G ACE$T_INFO_START : [POS(64)] CHAR; (* Start of the information *) );G 10: (ACE$V_DEFAULT : [POS(24)] $BOOL; (* Directory default entry *)G ACE$V_PROTECTED : [POS(25)] $BOOL; (* Protected ACE *)G ACE$V_HIDDEN : [POS(26)] $BOOL; (* Hidden ACE *)O ACE$V_NOPROPAGATE : [POS(27)] $BOOL; (* No propagation between versions *) );R 11: (ACE$W_APPLICATION_FLAGS : [POS(32)] $UWORD; (* VMS application flags word *)W ACE$W_APPLICATION_FACILITY : [POS(48)] $UWORD; (* VMS application facility code *)[ ACE$W_RMSATR_VARIANT : [POS(64)] $UWORD; (* Which variant of the RMS attributes ACE *)P ACE$B_RMSATR_FIXLEN : [POS(80)] $UBYTE; (* length of fixed format fields *)G (* (introduced at minor ID 3. Older *)O (* ACE's are assumed to be all fixed form) *)U ACE$W_RMSATR_MINOR_ID : [POS(96)] $UWORD; (* RMS file attributes ACE minor ID *)V ACE$W_RMSATR_MAJOR_ID : [POS(112)] $UWORD; (* RMS file attributes ACE major ID *)m (* using a {field-type, length, value? scheme. This allows extensibility *)G (* and compact representation. *)G (* *)G (* field types are: *) ) ;b 12: (ACE$L_RMS_ATTRIBUTE_FLAGS : [POS(128)] UNSIGNED; (* RMS file attributes flags definitions *) ); 13: ();[ 14: (ACE$V_STATISTICS : [POS(128)] $BOOL; (* Statistics monitoring enabled on this file *)K ACE$V_XLATE_DEC : [POS(129)] $BOOL; (* File semantics are DEC-local *) ); 15: ();^ 16: (ACE$T_VOLNAM : [POS(32)] PACKED ARRAY [1..12] OF CHAR; (* Volume name of journal file *)V ACE$B_VOLNAM_LEN : [POS(128)] $UBYTE; (* Length of volume name of journal file *)M ACE$B_RJRVER : [POS(136)] $UBYTE; (* RMS journal file structure level *)V ACE$R_FID_OVERLAY : [POS(144), BYTE(6)] RECORD END; (* File-id of journal file *)J ACE$L_JNLIDX : [POS(208)] UNSIGNED; (* journal stream index number *)I ACE$Q_CDATE : [POS(240)] $UQUAD; (* creation date/time of journal *)O ACE$L_BACKUP_SEQNO : [POS(304)] UNSIGNED; (* BACKUP sequence number (to *)G (* find where to start in journal). *)X ACE$Q_MODIFICATION_TIME : [POS( 336)] $UQUAD; (* timestamp of last backup or last *)G (* journal entry recovered. *) );G 17: (ACE$W_FID : [POS(144)] ARRAY [1..3] OF $UWORD; (* file id *), ACE$W_RMSJNL_FLAGS : [POS(192)] $UWORD; );8 18: (ACE$R_FID_FIELDS : [POS(144), BYTE(6)] RECORD END; );G 19: (ACE$W_FID_NUM : [POS(144)] $UWORD; (* file number *)G ACE$W_FID_SEQ : [POS(160)] $UWORD; (* sequence number *)< ACE$R_FID_RVN_OVE RLAY : [POS(176), BYTE(2)] RECORD END;I ACE$V_JOURNAL_DISABLED : [POS(192)] $BOOL; (* journaling disabled *)G (* (AI, BI, AT only; set by BACKUP) *)J ACE$V_BACKUP_DONE : [POS(193)] $BOOL; (* BACKUP done on this file; *)I (* RMS needs to write a backup marker *)G (* (AI, BI, AT only; set by BACKUP) *) );G 20: (ACE$W_FID_RVN : [POS(176)] $UWORD; (* relative volume number *) ) ;< 21: (ACE$R_FID_RVN_FIELDS : [POS(176), BYTE(2)] RECORD END; );G 22: (ACE$B_FID_RVN : [POS(176)] $UBYTE; (* alternate format RVN *)U ACE$B_FID_NMX : [POS(184)] $UBYTE; (* alternate format file number extension *) ); 23: ();G 24: (ACE$L_SPARE1 : [POS(32)] UNSIGNED; (* For alignment *)I ACE$L_SYS_PROT : [POS(64)] UNSIGNED; (* Default system protection *)H ACE$L_OWN_PROT : [POS(96)] UNSIGNED; (* Default owner protection *)I ACE$L_GRP_PROT : [P OS(128)] UNSIGNED; (* Default group protection *)I ACE$L_WOR_PROT : [POS(160)] UNSIGNED; (* Default world protection *) ); 25: ();G 26: (ACE$L_SPARE2 : [POS(32)] UNSIGNED; (* For alignment *)H ACE$Q_IMAGE_IDS : [POS(64)] $UQUAD; (* Start of the image ids (a *)G (* quadword for each identifier) *) ); 27: ();G 28: (ACE$L_OIL_FLAGS : [POS(32)] UNSIGNED; (* For Alignment *)H ACE$L_BRAND_NAME : [POS(64)] UNSIGNED; (* OIL Type-Specific Info *)G ACE$R_CLASS_PROT : [POS(96)] CHAR; (* OIL Class Block *)J(* - POSIX_OWNER ACE, Persona from Image - *)N(* Process effective persona derived from image activation. *)N(* Support for POSIX/COE effective UID/GID identities granted *)N(* to a process if the image has this ACE and it is valid. *)N(* The UID and GID are extensions to the Persona Security Block *)N(* (PSBDEF). *)N(* *)N(* Currently, only the SUID, SGID, GID and POSIX_MODE (GROUP) *)N(* fields are supported. VMS_GRP_PROT is also used internally. *)N(* *) ); 29: ();Y 30: (ACE$T_POSIX_USERNAME : [POS(64)] PACKED ARRAY [1..32] OF CHAR; (* Posix Username *) G ACE$L_POSIX_UID : [POS(352)] UNSIGNED; (* Posix User ID *)G ACE$L_POSIX_GID : [POS(384)] UNSIGNED; (* Posix Group ID *)M ACE$L_VMS_GRP_PROT : [POS(448)] UNSIGNED; (* Posix to VMS Group Prot. *) );G 31: (ACE$L_POSIX_FLAGS : [POS(32)] UNSIGNED; (* POSIX_OWNER Flags *)G ACE$L_POSIX_UIC : [POS(320)] UNSIGNED; (* Posix UIC *)O ACE$L_POSIX_MODE : [POS(416)] UNSIGNED; (* Posix file protection (mode) *) ); 32: ();M 33: (ACE$V_USERNAME_VALID : [POS(32)] $BOOL; (* Validates Posix username *)G ACE$V_UIC_VALID : [POS(33)] $BOOL; (* Validates Posix UIC *)G ACE$V_UID_VALID : [POS(34)] $BOOL; (* Validates Posix User ID *)G ACE$V_GID_VALID : [POS(35)] $BOOL; (* Validates Posix Group ID *)d ACE$V_GROUP_MODE_VALID : [POS(36)] $BOOL; (* Validates Posix mode for Group file protection *)G ACE$W_POSIX_MEM : [POS(320)] $UWORD; (* Member number in UIC *)G ACE$W_POSIX_GRP : [POS(336)] $UWORD; (*  Group number in UIC *)G ACE$V_OTHER : [POS(416)] $BIT3; (* Other Permissions *)G ACE$V_GROUP : [POS(419)] $BIT3; (* Group Permissions *)G ACE$V_USER : [POS(422)] $BIT3; (* User Permissions *) ); 34: ();G 35: ( (* - Other Permissions - *)H ACE$V_S_IXOTH : [POS(416)] $BOOL; (* Posix mode - other execute *)G ACE$V_S_IWOTH : [POS(417)] $BOOL; (* Posix mode - other write *)G ACE$V_S_IROTH : [POS(418)] $BOOL; (* Posix mode - other read *)G (* - Group Permissions - *)H ACE$V_S_IXGRP : [POS(419)] $BOOL; (* Posix mode - group execute *)G ACE$V_S_IWGRP : [POS(420)] $BOOL; (* Posix mode - group write *)G ACE$V_S_IRGRP : [POS(421)] $BOOL; (* Posix mode - group read *)G (* - User Permissions - *)G ACE$V_S_IXUSR : [POS(422)] $BOOL; (* Posix mode - user execute *)G ACE$V_S_IWUSR : [POS(423)] $BOOL; (* Posix mode - user write *)G ACE$V_S_IRUSR : [POS(424)] $BOOL; (* Posix mode - user read *)G ACE$V_S_SPARE : [POS(425)] $BOOL; (* Blank bit field *)G (* - SxID Bits - *)M ACE$V_S_ISGID : [POS(426)] $BOOL; (* Posix set group ID on execution *)L ACE$V_S_ISUID : [POS(427)] $BOOL; (* Posix set user ID on execution *)G (* End - POSIX_OW NER ACE *) ) END; (*** MODULE $ACLDEF ***) LCONST ACL$K_LENGTH = 12; (* Length of the overhead area *)G ACL$C_LENGTH = 12; (* Length of the overhead area *)G ACL$C_FILE = 1; (* Files *)G ACL$C_DEVICE = 2; (* MBX, MT, TT, etc. *)G ACL$C_JOBCTL_QUEUE = 3; (* Job controller queue *)G ACL$C_COMMON_EF_CLUSTER = 4; (* Common event flag clusters *)G ACL$C_LOGICAL_NAME_TABLE = 5; (* Logical name tables *)G ACL$C_PROCESS = 6; (* Process *)G ACL$C_GROUP_GLOBAL_SECTION = 7; (* Group global sections *)G ACL$C_SYSTEM_GLOBAL_SECTION = 8; (* System global sections *)G ACL$C_CAPABILITY = 9; (* Capability *)G ACL$C_EVENT_FACILITY = 10; (* Event facility *)G ACL$C_LOCK = 11; (* Lock block/r esource *)G ACL$C_VOLUME = 12; (* Disk volume (set) *)G ACL$C_MAX_OBJECT = 13; (* max object code *)G ACL$C_NUM_OBJECTS = 12; (* number of objects *)G ACL$K_NUM_OBJECTS = 12; (* number of objects *) N(* Action codes *) LCONST ACL$C_ADDACLENT = 1; (* Add an ACL entry *)G ACL$C_DELACLENT = 2; (* Delete an ACL entry *)G ACL$C_MODACLENT = 3; (* Modify an ACL entry *)G ACL$C_FNDACLENT = 4; (* Locate an ACL entry *)G ACL$C_FNDACETYP = 5; (* Locate specific ACE type *)G ACL$C_DELETEACL = 6; (* Delete ACL, leaving protected *)G ACL$C_READACL = 7; (* Read the ACL *)G ACL$C_ACLLENGTH = 8; (* Get the ACL's length *)G ACL$C_READACE = 9; (* Read a single ACE *)G ACL$C_RLOCK_ACL = 10; (* Read lock on ACL *)G ACL$C_WLOCK_ACL = 11; (* Write lock on ACL *)G ACL$C_UNLOCK_ACL = 12; (* Release exclusive lock *)G ACL$C_GRANT_ACE = 13; (* ACE granting access *)G ACL$C_NEXT_ACE = 14; (* Increment ACE number *)G ACL$C_DELETE_ALL = 15; (* Delete entire ACL  *)G ACL$C_RESERVED_ITEM_2 = 16; (* Reserved item code *)G ACL$C_RESERVED_ITEM_3 = 17; (* Reserved item code *)G ACL$S_ADDACLENT = 255; (* Add an ACL entry *)G ACL$S_DELACLENT = 255; (* Delete an ACL entry *)G ACL$S_MODACLENT = 255; (* Modify an ACL entry *)G ACL$S_FNDACLENT = 255; (* Locate an ACL entry *)G ACL$S_FNDACETYP = 255; (* Locate specific ACE type *)G ACL$S_DELETEACL = 255; (* Delete ACL, leaving protected *)G ACL$S_READACL = 512; (* Read the ACL *)G ACL$S_ACLLENGTH = 4; (* Get the ACL's length *)G ACL$S_READACE = 255; (* Read a single ACE *)G ACL$S_RLOCK_ACL = 4; (* Read lock on ACL *)G ACL$S_WLOCK_ACL = 4; (* Write lock on ACL *)G ACL$S_UNLOCK_ACL = 4; (* Remove lock on ACL *)G ACL$S_GRANT_ACE = 255; (* ACE granting access *)G ACL$S_NEXT_ACE = 4; (* Increment ACE number *)G ACL$S_DELETE_ALL = 255; (* Delete entire ACL *)G ACL$S_RESERVED_ITEM_2 = 255; (* Reserved item code *)G ACL$S_RESERVED_ITEM_3 = 255; (* Reserved item code *)G ACL$C_MAX_SEGMENT_SIZE = 512; (* Maximum ACL segemnt size *)G ACL$K_MAX_SEGMENT_SIZE = 512;  (* Maximum ACL segemnt size *) TYPE ACL$TYPE = RECORDN ACL$L_FLINK : UNSIGNED; (* Forward link to next list in the queue *)K ACL$L_BLINK : UNSIGNED; (* Back link to previous list in queue *)G ACL$W_SIZE : $UWORD; (* Total size of the list *)G ACL$B_TYPE : $UBYTE; (* Structure type code *)G ACLDEF$$_FILL_1 : $BYTE; (* Spare unused byte *)K ACL$L_LIST : UNSIGNED; (* Start of the Access Control Entries *)G (* Object types *) END; (*** MODULE $UTCBLKDEF ***) N(*+ *)N(* *)N(* $UTCBLKDEF defines the STARLET structure for UTC based times. *)N(* *)N(*-  *) TYPE UTCBLK$TYPE = RECORDS UTCBLK$O_TIME_BLOCK : ARRAY [1..2] OF $QUAD; (* Double quad for entire time *) END; #(*** MODULE $acmedef IDENT X-8 ***) N(*+ *)N(* *)N(* Miscellaneous constants *)N(*  *)N(*- *) LCONST acme$k_maxchar_ITEM = 16383; (* Maximum length (in characters) *) N(* of an item *) LCONST acme$k_maxchar_doi_name = 32; (* Maximum length (in characters) *) N(* of a DOI name string *) OCONST acme$k_maxchar_principal_name = 512; (* Maximum length (in cha racters) *) N(* of a principal name string *) LCONST acme$k_max_num_agents = 32; (* Maximum number of ACME agents *) N(* that can be loaded *) LCONST acme$k_max_cred_type = 32; (* Maximum number of credential *) N(* types supported *)N(*+ *)N(* *)N(* ACME agent id *)N(* *)N(* An ACME agent id is a 32-bit unsigned value, encoded as follows: *)N(* *)O(* Remote host address type is a 16-bit unsigned value, encoded as follows: *)N(*  *)N(* 3 2 2 1 1 *)N(* 1 4 3 6 5 8 7 0 *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* ^.............................^ ^ ^...........................^ *)N(* | | | | | *)c(* | | | +---------------------------+-- Bit [14:0] = ACME number *)N(* | | | *)m(* | | +-------------------------------- Bit [15] = 0 ==> Ancillary agent *)l(* | | 1 ==> Registe red DOI *)N(* | | *)e(* +-----------------------------+---------------------------------- Bit [31:16] = Server number *)N(* *)N(*- *) CONST acmeid$m_acme_num = 32767;! acmeid$m_doi_designator = 32768; acmeid$m_server_num = -65536; )TYPE acmeid$TYPE = RECORD CASE INTEGER OF. 1: (acmeid$r_fill_20_ : [BYTE(4)] RECORD END; );G 2: (acmeid$l_agent_id : [POS(0)] UNSIGNED; (* Composite id *) ); 3: ();G 4: (acmeid$v_acme_num : [POS(0)] $BIT15; (* ACME agent number *)G acmeid$v_doi_designator : [POS(15)] $BOOL; (* Registered DOI *)G acmeid$v_server_num : [POS(16)] $BIT16; (* Server number *) ) END; CONST acmeid$k_length = 4; N(*+ *)N(* *)N(* $ACM Function Codes and Modifiers *)N(* *)N(* Function code plus modifiers form a 32-bit unsigned value, encoded *)N(* as follows: *)N(* *)N(* 3 2 2 1 1 *)N(* 1 4 3 6 5 8 7 0 *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* ^.............................^ ^.................^ ^.........^ *)N(* | | |  | | | *)e(* | | | | +---------+-- Bit [5:0] = function code *)N(* | | | | *)p(* | | +-----------------+-------------- Bit [15:06] = cross function modifiers *)N(* | | *)s(* +-----------------------------+---------------------------------- Bit [31:16] = function sp ecific modifiers *)N(*- *)N(* *)N(* Function codes *)N(* *)N(* Function code values *) LCONST acme$_authenticate_principal = 1; (* AUTHENTICATE_PRINCIPAL *)G a cme$_change_password = 2; (* CHANGE_PASSWORD *)G acme$_release_credentials = 3; (* RELEASE_CREDENTIALS *)G acme$_query = 4; (* QUERY *)G acme$_event = 5; (* EVENT *) N(* Function code value *) LCONST acme$_free_context = 63; (* FREE_CONTEXT *) N(* Function code values  *) LCONST acme$_fc_authenticate_principal = 1; (* AUTHENTICATE_PRINCIPAL *)G acme$_fc_change_password = 2; (* CHANGE_PASSWORD *)G acme$_fc_release_credentials = 3; (* RELEASE_CREDENTIALS *)G acme$_fc_query = 4; (* QUERY *)G acme$_fc_event = 5; (* EVENT *) N(* Function code value *) LCONST acme$_fc_free_context = 63; (* FREE_CONTEXT *) acmefc$m_function = 63; acmefc$m_modifiers = -64; acme$m_noaudit = 64; acme$m_timeout = 128; acme$m_ucs2_4 = 32768;$ acme$m_acquire_credentials = 65536; acme$m_merge_persona = 131072; acme$m_copy_persona = 262144;" acme$m_override_mapping = 524288;( acme$m_native_authentication = 1048576;" acme$m_noauthorization = 2097152;' acme$m_foreign_policy_hints = 4194304;$ acme$m_default_principal = 8388608; ) TYPE acmefc$TYPE = RECORD CASE INTEGER OF- 1: (acmefc$r_overlay : [BYTE(4)] RECORD END; );N(* *)N(* Overall function code/modifiers structure *)N(* *) 2: ();G 3: (acmefc$l_fcode_struct : [POS(0)] UNSIGNED; (* Composite field *) ); 4: ();( 5: (acmefc$v_function : [POS(0)] $BIT6;G  (* Function code *)* acmefc$v_modifiers : [POS(6)] $BIT26;G (* Function modifiers *)N(* *)N(* Modifiers applicable to all function codes *)N(* *) ); 6: (); 7: (); 8: ();G 9: (acme$v_noaudit : [POS(6)] $BOOL; (* Suppress au diting *)G acme$v_timeout : [POS(7)] $BOOL; (* Timed operation *)N acme$v_ucs2_4 : [POS(15)] $BOOL; (* Strings are in 4-byte UCS-2 format *)G (* *)N(* Modifiers applicable to AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD *)N(* *) ); 10: (); 11: (); 12: ();M 13: (acme$v_acquire_credentials : [POS(16)] $BOOL; (* Acquire credentials *)N acme$v_merge_persona : [POS(17)] $BOOL; (* Merge with base credentials *)G acme$v_copy_persona : [POS(18)] $BOOL; (* Copy base credentials *)Z acme$v_override_mapping : [POS(19)] $BOOL; (* Override VMS username mapping checks *)Z acme$v_native_authentication : [POS(20)] $BOOL; (* Allow native DOI authentication *)N acme$v_noauthorization : [POS(21)] $BOOL; (* Skip authorization checks *)[ acme$v_foreign_policy_hints : [POS(22)] $BOOL; (* Honor NOA UDIT and NOAUTHORIZATION *)G (* for non-native authentications *)Q acme$v_default_principal : [POS(23)] $BOOL; (* Use principal name and DOI *)G (* designator defined by the *)G (* primary persona extension *) ) END; CONST acmefc$k_length = 4; N(*+ *)N(*  *)N(* $ACM Item Codes *)N(* *)N(* Item codes are 16-bit unsigned values, encoded as follows: *)N(* *)N(* 1 *)N(* 5 8 7 0  *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* | | | | | | | | | | | | | | | | | *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* ^ ^ ^ ^ ^ *)N(* | | | | | *)N(* | | | +-----------------------+-- Bit [12:0] = item *)N(* | | | *)d(* | | +---------------------------- Bit [13] = 0 ==> not subject to VTF-7 <-> UCS conversion *)`(* | | 1 ==> subject to VTF-7 <-> UCS conversion *)N(* | | *)N(* | +------------------------------ Bit [14] = 0 ==> input item *)N(* | 1 ==> output item *)N(* | *)N(* +-------------------------------- Bit [15] = 0 ==> common item *)O(* 1 ==> ACME specific item *)N(* *)N(*- *)N(* Specialty *)N(* Cross function  *)N(* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD *)N(* RELEASE_CREDENTIALS *)N(* QUERY *)N(* EVENT *) CONST acmeic$M_ITEM = 8191; acmeic$m_ucs = 8192; acmeic$m_output = 16384; acmeic$m_acme_specific = 32768; )TY PE acmeic$TYPE = RECORD CASE INTEGER OF. 1: (acmeic$r_fill_28_ : [BYTE(2)] RECORD END; );G 2: (acmeic$w_item_code : [POS(0)] $UWORD; (* Composite field *) ); 3: ();G 4: (acmeic$V_ITEM : [POS(0)] $BIT13; (* Ranged value *)X acmeic$v_ucs : [POS(13)] $BOOL; (* 0 ==> not subject to VTF-7 <-> UCS conversion *)P (* 1 ==> subject to VTF-7 <-> UCS conversion *)G acmeic$v_output : [POS(14)] $BOOL; (* 0 ==> input item  *)G (* 1 ==> output item *)G acmeic$v_acme_specific : [POS(15)] $BOOL; (* 0 ==> common item *)G (* 1 ==> ACME specific item *) ) END; CONST acmeic$k_length = 2; N(* *)N(* Input item codes not subject to VTF-7 <-> UCS conversion *)N(*  *) CONST acme$_min_spec_in = 1; N(* Specialty items *) WCONST acme$_null = 1; (* Place holder item (skip entry in item list) *)I acme$_chain = 2; (* Chain to another item list segment *) acme$_max_spec_in = 2; acme$_min_gen_in = 256; N(* Generic items *) NCONST acme$_access_mode = 256; (* Access mode for perso na operations *)G acme$_dialogue_support = 257; (* Dialogue capabilities *)G acme$_context_acme_id = 258; (* ID of ACME for specific context *)G acme$_persona_handle_in = 259; (* Target persona *)G acme$_target_doi_id = 260; (* ID of DOI for a directed call *)G acme$_timeout_interval = 261; (* Timeout interval in seconds *) acme$_max_gen_in = 261; acme$_min_auth_pwd_in = 512; N(* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items  *) LCONST acme$_auth_mechanism = 512; (* Authentication mechanism *)G acme$_challenge_data = 513; (* Challenge data *)G acme$_logon_type = 514; (* Logon type *)I acme$_new_password_flags = 515; (* New password request/control flags *)G acme$_remote_host_address = 516; (* Remote host address *)L acme$_remote_host_address_type = 517; (* Remote host address type/format *)G acme$_response_data = 5 18; (* Response data *) acme$_max_auth_pwd_in = 518; acme$_min_rel_cred_in = 768; N(* RELEASE_CREDENTIALS items *) SCONST acme$_credentials_type = 768; (* Index associated with persona extension *) acme$_max_rel_cred_in = 768; acme$_min_query_in = 1024; N(* QUERY items *) LCONST acme$_query_key_type = 1024; (* Key type  *)G acme$_query_key_value = 1025; (* Key value *)Q acme$_query_type = 1026; (* Type of data to be returned via QUERY_DATA *) acme$_max_query_in = 1026; acme$_min_event_in = 1280; N(* EVENT items *) LCONST acme$_event_data_in = 1280; (* Event function input data *)G acme$_event_type = 1281; (* Event type *) acme$_max_event_in = 1281; N(*  *)N(* Input item codes subject to VTF-7 <-> UCS conversion *)N(* *) "CONST acme$_min_gen_in_ucs = 8448; N(* Generic items *) MCONST acme$_context_acme_name = 8448; (* Name of ACME for specific context *)G acme$_locale = 8449; (* Language specifier (locati on) *)G acme$_target_doi_name = 8450; (* Name of DOI for a directed call *)G acme$_server_name_in = 8451; (* ACME relative server name *)G acme$_service_name = 8452; (* Caller's service name *) acme$_max_gen_in_ucs = 8452;" acme$_min_auth_pwd_in_ucs = 8704; N(* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items *) LCONST acme$_access_port = 8704; (* Access port name *)G acme$_new_password_1 = 8705; (* New primary password *)G acme$_new_password_2 = 8706; (* New secondary password *)G acme$_new_password_system = 8707; (* New system password *)G acme$_password_1 = 8708; (* Primary password *)G acme$_password_2 = 8709; (* Secondary password *)G acme$_password_system = 8710; (* System password *)G acme$_principal_name_in = 8711; (* Principal name *)G acme$_remote_host_fullnam e = 8712; (* Remote host expanded name *)G acme$_remote_host_name = 8713; (* Remote host name *)G acme$_remote_username = 8714; (* Remote username *)" acme$_max_auth_pwd_in_ucs = 8714;" acme$_min_rel_cred_in_ucs = 8960; N(* RELEASE_CREDENTIALS items *) RCONST acme$_credentials_name = 8960; (* Name associated with persona extension *)" acme$_max_rel_cred_in_ucs = 8960; N(*  *)N(* Output item codes not subject to VTF-7 <-> UCS conversion *)N(* *) !CONST acme$_min_spec_out = 16385; N(* Specialty items *) %CONST acme$_phase_transition = 16385; acme$_max_spec_out = 16385; acme$_min_gen_out = 16640; N(* Generic items  *) LCONST acme$_persona_handle_out = 16640; (* Persona acted upon *) acme$_max_gen_out = 16640; acme$_min_auth_pwd_out = 16896; N(* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items *) NCONST acme$_authenticating_doi_id = 16896; (* ID of DOI accepting principal *)G acme$_logon_information = 16897; (* Logon information *)G acme$_mapping_acme_id = 16898; (* ID of ACME mapping principal *) acme$_max_auth_pwd_out = 16898; acme$_min_query_out = 17408; N(* QUERY items *) LCONST acme$_query_data = 17408; (* Query function output data *) acme$_max_query_out = 17408; acme$_min_event_out = 17664; N(* EVENT items *) LCONST acme$_event_data_out = 17664; (* Event function output data *) acme$_max_event_out = 17664; N(*  *)N(* Output item codes subject to VTF-7 <-> UCS conversion *)N(* *) $CONST acme$_min_gen_out_ucs = 24832; N(* Generic items *) LCONST acme$_server_name_out = 24832; (* ACME relative server name *) acme$_max_gen_out_ucs = 24832;$ acme$_min_auth_pwd_out_ucs = 25088; N(* AUTHENTICAT E_PRINCIPAL/CHANGE_PASSWORD items *) RCONST acme$_authenticating_doi_name = 25088; (* Name of DOI accepting principal *)G acme$_mapped_vms_username = 25089; (* Resultant VMS Username *)G acme$_mapping_acme_name = 25090; (* Name of ACME mapping principal *)G acme$_principal_name_out = 25091; (* Processed principal name *)$ acme$_max_auth_pwd_out_ucs = 25091; N(* *)N(* Logo n (Job) Type Values *)N(* *) CONST acme$k_network = 1; acme$k_batch = 2; acme$k_local = 3; acme$k_dialup = 4; acme$k_remote = 5; N(*+ *)N(* *)N(* Revision Level  *)N(* *)N(* Revision level is a 16-bit unsigned value, encoded as follows: *)N(* *)N(* 1 *)N(* 5 8 7 0 *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* | | | | | | | | | | | | | | | | | *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* ^.............^ ^.............^ *)N(* | | | | *)N(* | | +-------------+-- Bit [7:0] = revision minor id *)N(* | | *)N(* +-------------+------------------ Bit [15:8] = revision major id *)N(* *)N(*- *) 'CONST acmerevlvl$k_minor_id_bitpos = 0;" acmerevlvl$k_major_id_bitpos = 8; -TYPE acmerevlvl$TYPE = RECORD CASE INTEGER OF2 1: (acmerevlvl$r_fill_30_ : [BYTE(2)] RECORD END; );I 2: (acmerevlvl$w_revision_level : [POS(0)] $UWORD; (* Composite field *) ); 3: ();K 4: (acmerevlvl$b_mi nor_id : [POS(0)] $UBYTE; (* Revision level minor id *)K acmerevlvl$b_major_id : [POS(8)] $UBYTE; (* Revision level major id *) ) END; CONST acmerevlvl$k_length = 2; N(*+ *)N(* *)N(* Authentication Mechanism *)N(*  *)O(* Authentication mechanism is a 16-bit unsigned value, encoded as follows: *)N(* *)N(* 3 2 2 1 1 *)N(* 1 4 3 6 5 8 7 0 *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* ^.............................^ ^ ^...........................^ *)N(* | | | | | *)p(* | | | +---------------------------+-- Bit [14:0] = authentication mechanism *)N(* | | | *)p(* | | +-------------------------------- Bit [15] = 0 ==> standard mechanism *)w(* | | 1 ==> vendor specific mechanism *)N(* | | *)n(* +-----------------------------+---------------------------------- Bit [31:16] = vendor's facility code *)N(* *)N(*- *)N(*  *)N(* Standard mechanism types *)J(* *) LCONST acmemech$k_password = 1; (* Username-Password *)G acmemech$k_challenge_response = 2; (* Challenge-Response *)# acmemech$m_mechanism_type = 32767;& acmemech$m_facility_specific = 32768; +TYPE acmemech$TYPE = RECORD CASE INTEGER OF0 1: (acmemech$r_fill_32_ : [BYTE(2)] RECORD END;H acmemech$w_facility : $UWORD; (* Vendor's assigned facility code *) );G 2: (acmemech$w_mechanism : [POS(0)] $UWORD; (* Composite field *) ); 3: ();P 4: (acmemech$v_mechanism_type : [POS(0)] $BIT15; (* Authentication mechanism *)S acmemech$v_facility_specific : [POS(15)] $BOOL; (* 0 ==> standard mechanism *)H (* 1 ==> facility specific mechanism *) ) END; CONST acme mech$k_length = 4; N(*+ *)N(* *)N(* Remote Host Address Type *)N(* *)O(* Remote host address type is a 16-bit unsigned value, encoded as follows: *)N(* *)N(* 3 2 2 1 1 *)N(* 1 4 3 6 5 8 7 0 *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* ^.............................^ ^ ^...........................^ *)N(* |  | | | | *)y(* | | | +---------------------------+-- Bit [14:0] = network protocol (address format) *)N(* | | | *)o(* | | +-------------------------------- Bit [15] = 0 ==> standard protocol *)v(* | | 1 ==> vendor specific protocol *)N(* |  | *)n(* +-----------------------------+---------------------------------- Bit [31:16] = vendor's facility code *)N(* *)N(*- *)N(* *)N(* Standard protocol types *)N(*  *) LCONST acmehat$k_decnet_iv = 1; (* DECnet Phase IV *)G acmehat$k_decnet_osi = 2; (* DECnet OSI *)G acmehat$k_ip_v4 = 3; (* Internet Protocol V4 *)G acmehat$k_ip_v6 = 4; (* Internet Protocol V6 *)! acmehat$m_protocol_type = 32767;% acmehat$m_facility_specific = 32768; *TYPE acmehat$TYPE = RECORD CASE INTEGER OF/ 1: (a cmehat$r_fill_34_ : [BYTE(2)] RECORD END;G acmehat$w_facility : $UWORD; (* Vendor's assigned facility code *) );G 2: (acmehat$w_protocol : [POS(0)] $UWORD; (* Composite field *) ); 3: ();U 4: (acmehat$v_protocol_type : [POS(0)] $BIT15; (* Network protocol/address format *)Q acmehat$v_facility_specific : [POS(15)] $BOOL; (* 0 ==> standard protocol *)G (* 1 ==> facility specific protocol *) ) END; CONST acmehat$k_le ngth = 4; N(*+ *)N(* *)N(* Password change request control flags *)N(* *)N(*- *) CONST acmepwdflg$k_system = 0; acmepwdflg$m_system = 1; acmepwdflg$k_password_1 = 1; acmepwdflg$m_password_1 = 2; acmepwdflg$k_password_2 = 2; acmepwdflg$m_password_2 = 4; acmepwdflg$k_max_flags = 3; acmepwdflg$k_specified = 31;& acmepwdflg$m_specified = -2147483648; acmepwdflg$m_valid_flags = 7;* acmepwdflg$m_password_flags = 2147483647; -TYPE acmepwdflg$TYPE = RECORD CASE INTEGER OF1 1: (acmepwdflg$r_overlay : [BYTE(4)] RECORD END; ); 2: ();I 3: (acmepwdflg$l_flags_struct : [POS(0)] UNSIGNED; (* Composite field *) ); 4: ();O 5: (acmepwdflg$v_system : [POS(0)] $BOOL; (* Request system password change *)N acmepwdflg$v_password_1 : [POS(1)] $BOOL; (* Request password 1 change *)N acmepwdflg$v_password_2 : [POS(2)] $BOOL; (* Request password 2 change *)S acmepwdflg$v_specified : [POS(31)] $BOOL; (* Used internally by the service *)H (* to indicate flags reflect caller *)I (* specified NEW_PASSWORD_FLAGS item *)G ( * Caller's setting is ignored *) );M 6: (acmepwdflg$v_valid_flags : [POS(0)] $BIT3; (* Currently defined flags *) );L 7: (acmepwdflg$v_password_flags : [POS(0)] $BIT31; (* Non-reserved flags *) ) END; CONST acmepwdflg$k_length = 4; N(*+ *)N(* *)N(* $ACM Item Set Message Category  *)N(* *)N(* Message Categories are 16-bit unsigned values, encoded as follows: *)N(* *)N(* 1 *)N(* 5 8 7 0 *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* | | | | | | | | | | | | | | | | | *)N(* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *)N(* ^ ^ ^ ^ *)N(* | | | | *)N(* | | +-------------------------+-- Bit [13:0] = message type *)N(* | | *)d(* | +------------------------------ Bit  [14] = 0 ==> not subject to VTF-7 <-> UCS conversion *)`(* | = 1 ==> subject to VTF-7 <-> UCS conversion *)N(* | *)N(* +-------------------------------- Bit [15] = 0 ==> common item *)O(* 1 ==> ACME specific item *)N(* *)N(*-  *) CONST acmemc$m_type = 16383; acmemc$m_ucs = 16384; acmemc$m_acme_specific = 32768; )TYPE acmemc$TYPE = RECORD CASE INTEGER OF. 1: (acmemc$r_fill_38_ : [BYTE(2)] RECORD END; );G 2: (acmemc$w_msg_code : [POS(0)] $UWORD; (* Composite field *) ); 3: ();G 4: (acmemc$v_type : [POS(0)] $BIT14; (* Ranged value *)X acmemc$v_ucs : [POS(14)] $BOOL; (* 0 ==> not subject to VTF-7 <-> UCS conversion *)  P (* 1 ==> subject to VTF-7 <-> UCS conversion *)J acmemc$v_acme_specific : [POS(15)] $BOOL; (* 0 ==> common category *)G (* 1 ==> ACME specific category *) ) END; CONST acmemc$k_length = 2; N(* *)N(* Generic output message categories *)N(*  *)N(* These are all subject to UCS conversion *)N(* *) #CONST acmemc$k_min_gen_msg = 16384;G acmemc$k_general = 16384; (* General text *)G acmemc$k_header = 16385; (* Header text *)G acmemc$k_trailer = 16386; (* Trailer text *)G acmemc$k_selection = 16387; (* Acceptable choices  *)G acmemc$k_dialogue_alert = 16388; (* Alert (advisory) *) acmemc$k_max_gen_msg = 16388; N(* *)N(* LOGINOUT related output message categories *)N(* *)N(* These are all subject to UCS conversion *)N(*  *) %CONST acmemc$k_min_logon_msg = 16640;I acmemc$k_system_identification = 16640; (* System identification text *)G acmemc$k_system_notices = 16641; (* System notices *)G acmemc$k_welcome_notices = 16642; (* Welcome notices, *)G acmemc$k_logon_notices = 16643; (* Logon notices *)G acmemc$k_password_notices = 16644; (* Password notices *)G acmemc$k_mail_notices = 16645; (* MAIL notices *)  acmemc$k_max_logon_msg = 16645; N(*+ *)N(* *)N(* ACMESB - ACM Status Block *)N(* *)N(*- *) TYPE acmesb$TYPE = RECORDG acmesb$l_status : INTEGER; (*  Primary status *)M acmesb$l_secondary_status : INTEGER; (* Auxillary (privileged) status *)S acmesb$l_acme_id : acmeid$TYPE; (* ID of ACME/DOI reporting specific status *)G acmesb$l_acme_status : INTEGER; (* ACME/DOI specific status *) END; CONST acmesb$k_length = 16; N(*+ *)N(* *)N(* ACMECB - ACM Commun  ications Buffer *)N(* *)N(*- *) CONST acmedlogflg$m_input = 1; acmedlogflg$m_noecho = 2;' acmedlogflg$m_specified = -2147483648; acmedlogflg$m_valid_flags = 3;+ acmedlogflg$m_dialogue_flags = 2147483647; .TYPE acmedlogflg$TYPE = RECORD CASE INTEGER OF2 1: (acmedlogflg$r_overlay : [BYTE(4)] RECORD END;   ); 2: ();J 3: (acmedlogflg$l_flags_struct : [POS(0)] UNSIGNED; (* Composite field *) ); 4: ();G 5: (acmedlogflg$v_input : [POS(0)] $BOOL; (* Response required *)V acmedlogflg$v_noecho : [POS(1)] $BOOL; (* When prompting, do not echo response *)T acmedlogflg$v_specified : [POS(31)] $BOOL; (* Used internally by the service *)H (* to indicate flags reflect caller *)G (* specified DIALOGUE_SUPPORT it em *)G (* Caller's setting is ignored *) );N 6: (acmedlogflg$v_valid_flags : [POS(0)] $BIT2; (* Currently defined flags *) );M 7: (acmedlogflg$v_dialogue_flags : [POS(0)] $BIT31; (* Non-reserved flags *) ) END; CONST acmedlogflg$k_length = 4; -TYPE acmeitmset$TYPE = RECORD CASE INTEGER OFG 1: (acmeis$l_flags : acmedlogflg$TYPE; (* Item set processing flags *)O acmeis$w_item_code : acmeic$TYPE; (* Item code reflecting t he nature of *)G (* information provided/requested *)1 acmeis$r_itm_msg_ctl : [BYTE(2)] RECORD END;G acmeis$q_data_1 : $UQUAD; (* Data 1 (prompt text) *)G acmeis$q_data_2 : $UQUAD; (* Data 2 (default response) *) );R 2: (acmeis$w_max_length : [POS(48)] $UWORD; (* Maximum length of an input data *) );V 3: (acmeis$w_msg_type : [POS(48)] acmemc$TYPE; (* Message category for output data *) ) END; CO NST acmeis$k_length = 24; acmecb$k_minor_id_000 = 0; acmecb$k_minor_id = 0; acmecb$k_major_id_001 = 1; acmecb$k_major_id = 1; acmecb$k_revision = 256; TYPE acmecb$TYPE = RECORDK acmecb$q_context_id : $UQUAD; (* ID of associated ACM Request Block *)G acmecb$w_size : $UWORD; (* Structure size, in bytes *)N acmecb$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *)M acmecb$l_acme_id : acmeid$TYPE; (* ID of ACME/DOI requesting dialogue *)I acmecb$l_item_set_count : UNSIGNED; (* Number of item set entries *), acmecb$ps_item_set : ^acmeitmset$TYPE ;G (* Pointer to item set array *) END; CONST acmecb$k_length = 24; N(*+ *)N(* *)N(* ACMELI - ACM Logon Information Block *)N(* *)N(*- *) 'CONST acmelgiflg$k_min_logon_flag = -1;$ acmelgiflg$k_new_mail_at_login = 0;$ acmelgiflg$m_new_mail_at_login = 1;# acmelgiflg$k_password_changed = 1;# acmelgiflg$m_password_changed = 2;# acmelgiflg$k_password_expired = 2;# acmelgiflg$m_password_expired = 4;# acmelgiflg$k_password_warning = 3;# acmelgiflg$m_password_warning = 8;$ acmelgiflg$k_ password2_changed = 4;% acmelgiflg$m_password2_changed = 16;$ acmelgiflg$k_password2_expired = 5;% acmelgiflg$m_password2_expired = 32;$ acmelgiflg$k_password2_warning = 6;% acmelgiflg$m_password2_warning = 64;! acmelgiflg$k_max_logon_flag = 6; -TYPE acmelgiflg$TYPE = RECORD CASE INTEGER OF2 1: (acmelgiflg$r_fill_42_ : [BYTE(4)] RECORD END; );H 2: (acmelgiflg$l_logon_flags : [POS(0)] UNSIGNED; (* Composite field *) ); 3: ();X 4: (acmelgiflg$v_new_mail_at_login : [POS (0)] $BOOL; (* User had new MAIL message(s) *)S acmelgiflg$v_password_changed : [POS(1)] $BOOL; (* Primary password changed *)\ acmelgiflg$v_password_expired : [POS(2)] $BOOL; (* Primary password expired on login *)_ acmelgiflg$v_password_warning : [POS(3)] $BOOL; (* Primary password expiration imminent *)V acmelgiflg$v_password2_changed : [POS(4)] $BOOL; (* Secondary password changed *)_ acmelgiflg$v_password2_expired : [POS(5)] $BOOL; (* Secondary password expired on login *)b acmelgiflg$v_password2_warning : [POS(6)] $BOOL; (* Secondary password expiration imminent *) ) END; CONST acmelgiflg$k_length = 4; acmelivms$k_minor_id_000 = 0; acmelivms$k_minor_id = 0; acmelivms$k_major_id_001 = 1; acmelivms$k_major_id = 1; acmelivms$k_revision = 256; TYPE acmelivms$TYPE = RECORDY acmelivms$l_acme_id : acmeid$TYPE; (* ID of ACME which reported logon information *)T acmelivms$l_phase : UNSIGNED; (* Phase during which information was  reported *)G acmelivms$w_size : $UWORD; (* Structure size, in bytes *)Q acmelivms$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *)P acmelivms$l_logfail_count : UNSIGNED; (* Number of failed logon attempts *)N acmelivms$o_logon_int : UTCBLK$TYPE; (* Time of last interactive logon *)U acmelivms$o_logon_nonint : UTCBLK$TYPE; (* Time of last non-interactive logon *) END; CONST acmelivms$k_length = 48; acmelidoi$k_minor_id_000 = 0; acmelid  oi$k_minor_id = 0; acmelidoi$k_major_id_001 = 1; acmelidoi$k_major_id = 1; acmelidoi$k_revision = 256; TYPE acmelidoi$TYPE = RECORDY acmelidoi$l_acme_id : acmeid$TYPE; (* ID of ACME which reported logon information *)T acmelidoi$l_phase : UNSIGNED; (* Phase during which information was reported *)G acmelidoi$w_size : $UWORD; (* Structure size, in bytes *)Q acmelidoi$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *)P acmelidoi$l_logfail_c ount : UNSIGNED; (* Number of failed logon attempts *)G acmelidoi$o_logon : UTCBLK$TYPE; (* Time of last logon *)N acmelidoi$o_logon_int : UTCBLK$TYPE; (* Time of last interactive logon *)U acmelidoi$o_logon_nonint : UTCBLK$TYPE; (* Time of last non-interactive logon *)H acmelidoi$o_logfail : UTCBLK$TYPE; (* Time of last logon failure *)X acmelidoi$o_logfail_int : UTCBLK$TYPE; (* Time of last interactive logon failure *)_ acmelidoi$o_logfail_nonint : UTCBLK$TYP E; (* Time of last non-interactive logon failure *) END; CONST acmelidoi$k_length = 112; acmeli$k_minor_id_000 = 0; acmeli$k_minor_id = 0; acmeli$k_major_id_001 = 1; acmeli$k_major_id = 1; acmeli$k_revision = 256; )TYPE acmeli$TYPE = RECORD CASE INTEGER OF, 1: (acmeli$r_li_doi : [BYTE(8)] RECORD END;G acmeli$w_size : $UWORD; (* Structure size, in bytes *)N acmeli$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *)G acmeli$l_logo  n_flags : acmelgiflg$TYPE; (* Logon flags *), acmeli$r_li_vms : [BYTE(8)] RECORD END;W acmeli$r_logon_info_vms : acmelivms$TYPE; (* Native (OpenVMS) logon information *)_ acmeli$r_logon_info_doi : acmelidoi$TYPE; (* Non-native (non-OpenVMS) logon information *) );1 2: (acmeli$pq_logon_info_doi64 : [POS(0)] $QUAD;N(* Non-native (non-OpenVMS) logon information *)3 acmeli$pq_logon_info_vms64 : [POS(128)] $QUAD;N(* Native (OpenVMS)  logon information *) ); 3: ();< 4: (acmeli$ps_logon_info_doi32 : [POS(0)] ^acmelidoi$TYPE ;Q (* Non-native (non-OpenVMS) logon information *)6 acmeli$l_logon_info_doi32se : [POS(32)] UNSIGNED;G (* Sign extension field *)> acmeli$ps_logon_info_vms32 : [POS(128)] ^acmelivms$TYPE ;I (* Native (OpenVMS) logon information *)7 acmel  i$l_logon_info_vms32se : [POS(160)] UNSIGNED;G (* Sign extension field *) ) END; CONST acmeli$k_length = 184;G acme$k_query_revision_level = 1; (* Service revision level *)G acme$k_query_acme_count = 2; (* Number of registered agents *)G acme$k_query_acme_id = 3; (* Specify/report agent id *)G acme$k_query_acme_name = 4; (* Specify/reprot agent name *)' acme$k_service_revision_001_000 = 256  ; N(* *)N(* Pre-$ACM definitions... *)N(* *)N(* Definitions for the $AUTHENTICATE[W], $LOGON[W], and $SET_PASSWORD[W] *)N(* system services. *)N(* *)N(*  *)N(* $LOGON[W] function codes. *)N(* *) LCONST ACME$_MAP_TO_USERNAME = 1; (* Map userid to username *)G ACME$_VERIFY_PASSWORD_ONLY = 2; (* Authenticate password *)G ACME$_MAX_FUNCTION_CODE = 3; (* maximum legal function code + 1 *) N(*  *)N(* Item codes. Codes specific to a particular service are noted: *)N(* *)I(* $AU = $AUTHENTICATE[W] *)I(* $LO = $LOGON[W] *)I(* $SP = $SET_PASSWORD[W] *)N(* *) LCONS T ACME$_DOMAIN = 2; (* Authentication domain *)G ACME$_USERID = 3; (* User ID *)G ACME$_PASSWORD = 4; (* Single password *)G ACME$_PASSWORD_LIST = 5; (* Password list *)G ACME$_NEW_PASSWORD = 6; (* New password ($SP) *)G ACME$_OUTPUT_VMS_USERNAME = 7; (* Mapped OpenVMS username ($LO) *)G ACME$_NOAUTHENTICATION = 8; (* No password authentication ($SP) *)G ACME$_OVERRIDE_POLICY = 9; (* Override password policy ($SP) *)H ACME$_SYNCHRONIZE = 10; (* Set password in all domains ($SP) *)G ACME$_REASON_CODE = 11; (* ACME-specific reason code *)G ACME$_VALIDATE_ONLY = 12; (* Validate user can login ($LO) *)O ACME$_UAF_RECORD_LOCKED = 13; (* Advisory that UAF record is locked ($LO) *)G ACME$_RESERVED_ITEM_1 = 14; (* Reserved 1 *)G ACME$_RESERVED_ITEM_2 = 15; (* Reserv  ed 2 *)G ACME$_MAX_ITEM_CODE = 16; (* maximum legal item code + 1 *) N(* *)N(* Structures and constants. *)N(* *) LCONST ACME$C_MAJOR_VERSION = 1; (* Major ACME version *)G ACME$C_MINOR_VERSION = 0; (* Minor ACME version *)G ACME$S_MAX_DOMAIN = 256; (* Maximum domain length *)G ACME$S_MAX_USERID = 256; (* Maximum userid length *)G ACME$S_MAX_PASSWORD = 256; (* Maximum password length *) N(* *)N(* The PASSWORD_LIST item code requires a list of password items with each *)N(* item specified by a PWDITM structure definition. The list is terminated *)N(* by a longword zero.  *)N(* *) +TYPE ACME$R_PWDITM = RECORD CASE INTEGER OF* 1: (ACME$R_PWDTRM : [BYTE(4)] RECORD END;J ACME$A_OLDPWD : $DEFPTR; (* Descriptor address for old password *)J ACME$A_NEWPWD : $DEFPTR; (* Descriptor address for new password *) );G 2: (ACME$L_TERMINATOR : [POS(0)] UNSIGNED; (* Termination longword *) ); 3: ();M 4: (ACME$W_PWDNUM : [POS(0)] $UWORD ; (* Password number (1=primary, etc.) *)I ACME$W_RSRVD1 : [POS(16)] $UWORD; (* reserved for future use, MBZ *) ) END; N(* *)N(* Maximum password number to be used in password list *)N(* *) "CONST ACME$C_MAX_PASSWORD_NUM = 8; '(*** MODULE $acmevmsdef IDENT X-12 ***) N(* ! *)N(* Item code biasing factors *)N(* *)N(* Backward-compatibility *)N(* Not for initial call *)N(* Contemporary supported *)N(* $CREPRC argument items " *)N(* UAI data *)N(* *)N(* ACME-specific output data types *)N(* *)N(* These codes are provided by the VMS ACME for return *)N(* in field MAX_LENGTH of an output Item Set. *)N(* # *)N(* The field MAX_LENGTH is named for its purpose within *)N(* Input Item Sets, but for Output Item Sets it allows *)N(* SYS$ACM[W] clients to categorize the output they receive *)N(* and dispatch to specialized handling. *)N(* *)N(* These ACME-specific values are $ provided only where the caller *)N(* is one the VMS ACME knows can handle these particular binary *)N(* codes, i.e. LOGINOUT. *)N(* *)P(* These data types are defined exclusively to provide backward compatibility *)N(* with interface methods used prior to the introduction of SYS$ACM[W] by *)N(* TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindo % ws interfaces. *)N(* They will not be provided to other clients which call SYS$ACM[W]. *)N(* *) %CONST acmevms$k_min_msg_type = 32768;G acmevms$k_old_decw_pwd_exp_1 = 32768; (* Binary expiration warning *)G acmevms$k_old_decw_pwd_exp_2 = 32769; (* Binary expiration warning *)M acmevms$k_old_decw_pwd_quality = 32770; (* Binary password quality status *)G acmevms$k_old_sysuaf_070 = 32771; (* Authorization & Record *)G acmevms$k_old_auth_flags = 32772; (* Password requirement flags *)H acmevms$k_old_terminal_connect = 32773; (* UIC, Username and Account *) acmevms$k_max_msg_type = 32773; N(* *)N(* ACME-specific Item Codes for the VMS ACME *)N(* *)N(* Items with these codes from the callr of SYS$ACM[W] wil' l *)N(* be provided to the VMS ACME (exclusively) if they follow *)N(* an instance of General Item Code ACME_TARGET_ACME_ID which *)N(* specifies the VMS ACME. *)N(* *)N(* ACME-specific Item Codes have the high bit (15) set, whereas *)N(* General Item Codes have it clear. *)N(* ( *)N(* *)N(* Input Item Codes *)N(* *)N(* While SYS$ACM does not specify semantics for the handling *)N(* of multiple input item codes of the same value, the semantics *)N(* of the VMS ACME are uniform) for all input item codes -- *)N(* the value associated with the last input item prevails. *)N(* *)N(* *)N(* Input item codes not subject to VTF-7 <-> UCS conversion *)N(* *)N(* * *)N(* Backward-compatibility Input Item Codes *)N(* *)N(* These codes are defined exclusively to provide backward compatibility *)N(* with interface methods used prior to the introduction of SYS$ACM[W] by *)N(* TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces. *)N(* They will not be honored from other clients which call SYS$ACM[W]. *)N(*+ *) "CONST acmevms$_min_old_in = 32768;T acmevms$_old_decwindows_flag = 32768; (* old DECwindows authentication mechanism *)Q acmevms$_old_hashed_password_1 = 32769; (* old ARGUS authentication mechanism *)Q acmevms$_old_hashed_password_2 = 32770; (* old ARGUS authentication mechanism *)O acmevms$_old_lgi_phase = 32771; (* old LGI-callout authentication mechanism *)P acmevms$_old_lgi_status = 32772; (* old LGI-callout , authentication mechanism *) acmevms$_max_old_in = 32772; N(* *)N(* Solicited Input Item Codes *)N(* *)N(* These codes support historic LOGINOUT behavour and in addition to *)N(* being retricted to LOGINOUT are not honored on initial calls from *)N(* LOGINOUT. They can only be provided - in response to an Input Item Set. *)N(* *) (CONST acmevms$_min_solicited_in = 33024;N acmevms$_loginout_cli_flags = 33024; (* LOGINOUT received these qualifiers *)H acmevms$_old_connection_flag = 33025; (* LOGINOUT did a reconnection *)Q acmevms$_old_process_name = 33026; (* the process name after LOGINOUT $SETPRN *)# acmevms$_max_solicited_in = 33026; N(* . *)N(* General Input Items *)N(* *)N(* These non-converting input item codes are permanent features *)N(* of the VMS ACME, although some require particular privileges. *)N(* *)N(* LOGINOUT_CREPRC_FLAGS is only honored from LOGINOUT, although *)N(* oth/ er clients can achieve the same results using other Item Codes. *)N(* The reason LOGINOUT_CREPRC_FLAGS exists is to minimize coding *)N(* changes for the transition of LOGINOUT to using SYS$ACM[W]. *)N(* *) &CONST acmevms$_min_general_in = 33280;U acmevms$_autologin_allowed_flag = 33280; (* autologin is allowed for this request *)H acmevms$_spare_1 = 33281; (* originally default_princ0 ipal_flag *)L acmevms$_genpwd_count = 33282; (* desired number of generated passwords *)P acmevms$_genpwd_mandatory_flag = 33283; (* generated password must be chosen *)N acmevms$_genpwd_maxlength = 33284; (* maximum length of generated password *)N acmevms$_genpwd_minlength = 33285; (* minimum length of generated password *)P acmevms$_loginout_creprc_flags = 33286; (* CTL$GL_CREPRC_FLAGS from LOGINOUT *)W acmevms$_requestor_pid = 33287; (* PID of client process (make spare after Kestrel) *)H1 acmevms$_preauthentication_flag = 33288; (* preauthenticated request *)S acmevms$_uses_system_password = 33289; (* this connection uses system passwords *)W acmevms$_requestor_uic = 33290; (* UIC of client process (make spare after Kestrel) *)G acmevms$_genpwd_algorithm = 33291; (* Password generator algorithm *)! acmevms$_max_general_in = 33291; N(* *)N(* Input item codes subject to VTF-7 <-> UCS conversion 2 *)N(* *) *CONST acmevms$_min_general_in_ucs = 41472;R acmevms$_net_proxy = 41472; (* network proxy username string from LOGINOUT *)a acmevms$_requestor_username = 41473; (* Username of client process (make spare after Kestrel) *)I acmevms$_confirm_password_sys = 41474; (* Reenter New System Password *)H acmevms$_confirm_password_1 = 41475; (* Reenter New Primary Password *)J acmevms$_confirm_password 3 _2 = 41476; (* Reenter New Secondary Password *)% acmevms$_max_general_in_ucs = 41476; N(* *)N(* Output Item Codes *)N(* *)N(* While SYS$ACM does not specify semantics for the handling *)N(* of multiple output item codes of the same value, the semantics *)N(* of the VM4 S ACME are uniform for all output item codes -- *)N(* all such codes are honored independently. *)N(* *)N(* *)N(* Output item codes not subject to VTF-7 <-> UCS conversion *)N(* *)N(* 5 *)N(* General Output Items *)N(* *)N(* These non-converting output item codes are permanent features *)N(* of the VMS ACME. *)N(* *) 'CONST acmevms$_min_general_out = 49664;K acmevms$_class_da 6 ys = 49664; (* primary days for the scheduler class *)G acmevms$_class_flags = 49665; (* flags for the scheduler class *)G acmevms$_class_number = 49666; (* number of the scheduler class *)V acmevms$_class_primeday_limit = 49667; (* hourly quantum percentage on primary day *)X acmevms$_class_seconday_limit = 49668; (* hourly quantum percentage on secondary day *)" acmevms$_max_general_out = 49668; N(* *)N7 (* CREPRC-based output items *)N(* *)N(* These Output Item Codes provide information in a format suitable *)N(* for passing to the $CREPRC System service, freeing callers of any *)N(* need to track the introduction of new VMS process quotas. *)N(* *) &CONST acmevms$_min_cre 8 prc_out = 49920;G acmevms$_creprc_baspri = 49920; (* Process base priority *)G acmevms$_creprc_image = 49921; (* Image name (LOGINOUT) *)G acmevms$_creprc_prcnam = 49922; (* Process name (blank) *)G acmevms$_creprc_prvadr = 49923; (* Process privilege *)G acmevms$_creprc_quota = 49924; (* Process quota list *)G acmevms$_creprc_uic = 49925; (* UIC for detached process *)! acmevms$_max_creprc_out = 49925; N(* 9 *)N(* UAI-based output items *)N(* *)N(* These codes provide the same information returned by $GETUAI, *)N(* but synchronized with the UAI data as used for authentication. *)N(* *)N(* Correspondence between thes: e codes and those from UAIDEF is *)N(* tested in the private part of module STARLET_WE_USE_ by arrays *)N(* ENSURE_UAI_NO_BIGGER_THAN_ACMEVMS_UAI and also by the array *)N(* ENSURE_ACMEVMS_UAI_NO_BIGGER_THAN_UAI. *)N(* *)N(* The UAI_BASE constant defined below, added to normal UAI$_ codes *)N(* used for the $SETUAI and $GETUAI system services will ; produce *)N(* the following values: *)N(* *) #CONST acmevms$_min_uai_out = 50176;G acmevms$_uai_rtype = 50176; (* UAF record type *)G acmevms$_uai_version = 50177; (* UAF format version *)L acmevms$_uai_usrdatoff = 50178; (* offset of counted string of user data *)G acmevms$_uai_username = 50179; (* username < *)G acmevms$_uai_username_tag = 50180; (* tag to differentiate records *)G acmevms$_uai_uic = 50181; (* user ID code *)G acmevms$_uai_mem = 50182; (* member subfield *)G acmevms$_uai_grp = 50183; (* group subfield *)G acmevms$_uai_sub_id = 50184; (* user sub-identifier *)J acmevms$_uai_parent_id = 50185; (* identifier of owner of this account *)G acmevms$_uai_account = 50186; (* acco= unt name *)G acmevms$_uai_owner = 50187; (* owner's name *)G acmevms$_uai_defdev = 50188; (* default device *)G acmevms$_uai_defdir = 50189; (* default directory *)G acmevms$_uai_lgicmd = 50190; (* login command file *)G acmevms$_uai_defcli = 50191; (* default command interpreter *)G acmevms$_uai_clitables = 50192; (* user CLI tables *)G acmevms$_uai_pwd = 50193; > (* hashed password *)G acmevms$_uai_pwd2 = 50194; (* second password *)G acmevms$_uai_logfails = 50195; (* count of login failures *)G acmevms$_uai_salt = 50196; (* random password salt *)G acmevms$_uai_encrypt = 50197; (* primary password hash algorithm *)H acmevms$_uai_encrypt2 = 50198; (* secondary password hash algorithm *)G acmevms$_uai_pwd_length = 50199; (* minimum password length *)G acmevms$_uai_ex? piration = 50200; (* expiration date for account *)G acmevms$_uai_pwd_lifetime = 50201; (* password lifetime *)G acmevms$_uai_pwd_date = 50202; (* date of password change *)G acmevms$_uai_pwd2_date = 50203; (* date of 2nd password change *)G acmevms$_uai_lastlogin_i = 50204; (* date of last interactive login *)K acmevms$_uai_lastlogin_n = 50205; (* date of last non-interactive login *)G acmevms$_uai_priv = 50206; (* process privilege vector *)G@ acmevms$_uai_def_priv = 50207; (* default process privileges *)G acmevms$_uai_min_class = 50208; (* minimum security class *)G acmevms$_uai_max_class = 50209; (* maximum security class *)G acmevms$_uai_flags = 50210; (* user flags longword *)L acmevms$_uai_network_access_p = 50211; (* hourly network access, primary *)N acmevms$_uai_network_access_s = 50212; (* hourly network access, secondary *)H acmevms$_uai_batch_access_p = 50213; (* hourly batcA h access, primary *)J acmevms$_uai_batch_access_s = 50214; (* hourly batch access, secondary *)H acmevms$_uai_local_access_p = 50215; (* hourly local access, primary *)J acmevms$_uai_local_access_s = 50216; (* hourly local access, secondary *)J acmevms$_uai_dialup_access_p = 50217; (* hourly dialup access, primary *)L acmevms$_uai_dialup_access_s = 50218; (* hourly dialup access, secondary *)J acmevms$_uai_remote_access_p = 50219; (* hourly remote access, primary *)L acmevms$_uai_remote_access_B s = 50220; (* hourly remote access, secondary *)G acmevms$_uai_primedays = 50221; (* bits representing primary days *)G acmevms$_uai_pri = 50222; (* base process priority *)G acmevms$_uai_quepri = 50223; (* maximum job queuing priority *)G acmevms$_uai_maxjobs = 50224; (* maximum jobs for UIC allowed *)I acmevms$_uai_maxacctjobs = 50225; (* maximum jobs for account allowed *)I acmevms$_uai_maxdetach = 50226; (* maximum detached processes for UIC *)G acmevmsC $_uai_prccnt = 50227; (* subprocess creation limit *)G acmevms$_uai_biolm = 50228; (* buffered I/O limit *)G acmevms$_uai_diolm = 50229; (* direct I/O limit *)G acmevms$_uai_tqcnt = 50230; (* timer queue entry limit *)G acmevms$_uai_astlm = 50231; (* AST queue limit *)G acmevms$_uai_enqlm = 50232; (* enqueue limit *)G acmevms$_uai_fillm = 50233; (* open file limit *D )G acmevms$_uai_shrfillm = 50234; (* shared file limit *)G acmevms$_uai_wsquota = 50235; (* working set size quota *)G acmevms$_uai_dfwscnt = 50236; (* default working set size *)G acmevms$_uai_wsextent = 50237; (* working set size limit *)G acmevms$_uai_pgflquota = 50238; (* page file quota *)G acmevms$_uai_cputim = 50239; (* CPU time quota *)G acmevms$_uai_bytlm = 50240; (* buffered I/O byte counE t limit *)H acmevms$_uai_pbytlm = 50241; (* paged buffer I/O byte count limit *)Q acmevms$_uai_jtquota = 50242; (* job-wide logical name table creation quota *)G acmevms$_uai_proxy_lim = 50243; (* number of proxies user can grant *)G acmevms$_uai_proxies = 50244; (* number of proxies granted *)G acmevms$_uai_account_lim = 50245; (* number of sub-accounts allowed *)G acmevms$_uai_accounts = 50246; (* number of sub-accounts in use *)G acmevms$_uai_user_data = 50247; (* F user data area *) N(* Next two codes not supported for output *) LCONST acmevms$_uai_password = 50248; (* plaintext primary password *)G acmevms$_uai_password2 = 50249; (* plaintext secondary password *) N(* Previous two codes not supported for output *) LCONST acmevms$_uai_def_class = 50250; (* default security classification *)R acmevms$_uai_audit_flags = 50251; (* audit flags to be used w G hen changing data *) acmevms$_max_uai_out = 50251; N(* *)N(* Output item codes subject to VTF-7 <-> UCS conversion *)N(* *) +CONST acmevms$_min_general_out_ucs = 57856;G acmevms$_class_name = 57856; (* name of the scheduler class *)& acmevms$_max_general_out_ucs = 57856; N(*+ H *)N(* *)N(* Bit mask types *)N(* *)N(*- *)N(* *)N(* Flags indicating CLI qualifiers were supplied I *)N(* *)N(* Most of these are passed to the VMS ACME to possibly *)N(* trigger (audited) rejection of the login attempt. *)N(* *) CONST acmevms$m_disk = 1; acmevms$m_cli = 2; acmevms$m_tables = 4; acmevms$m_command = 8; acmevms$m_connect = 16; acmevms$m_new_password = 32; acmevms$m J _local_password = 64; TYPE cli_flags$TYPE = RECORDG acmevms$v_disk : [POS(0)] $BOOL; (* /DISK= *)G acmevms$v_cli : [POS(1)] $BOOL; (* /CLI= *)G acmevms$v_tables : [POS(2)] $BOOL; (* /TABLES= *)G acmevms$v_command : [POS(3)] $BOOL; (* /COMMAND= *)G acmevms$v_connect : [POS(4)] $BOOL; (* /CONNECT[=] *)G acmevms$v_new_password : [POS(5)] $BOOL; (* /NEW_PASSWORD *)G K acmevms$v_local_password : [POS(6)] $BOOL; (* /LOCAL_PASSWORD *)2 acmevms$v_cli_flags_fill_1 : [POS(7)] $BIT25; END; CONST acmevms$k_length = 4; N(*+ *)N(* *)N(* Miscellaneous constants *)N(* *)N(*- L *)N(* Authentication mechanism for TNT$SERVER *) LCONST acmevms$k_auth_mech_argus = 13860864; (* Only for TNT$SERVER *) N(* Base to which UAI$_ codes can be added for use in SYS$ACM[W] *) LCONST acmevms$k_uai_base = 50175; (* Item Code Base *) N(* Maximum length (in characters) of a Mapped VMS Username *) LCONST acmevms$k_maxchar_vms_ M username = 32; (* in characters *) (*** MODULE $ACRDEF ***) N(*+ *)N(* ACRDEF - ACCOUNTING RECORD DEFINITIONS *)N(* *)N(*********************************************************************** *)N(* NOTE: IF ANY FIELDS CHANGE, A NEW VERSION NUMBER MUST BE ADDED AND * *)R(* "ACR$K_CURVN ER" EQUATED TO IT. * *)N(*********************************************************************** *)N(* *)N(*- *)N(* RECORD/PACKET VERSIONS (ACR$V_VERSION) *) LCONST ACR$K_VERSION2 = 0; (* VMS VERSION 2 ACCOUNTING FORMAT *)G ACR$K_VERSION3T = 1; (* VMS VE O RSION 3 FIELD TEST *)G ACR$K_VERSION3 = 2; (* VMS VERSION 3 ACCOUNTING FORMAT *)G ACR$K_VERSION4 = 3; (* VMS VERSION 4 ACCOUNTING FORMAT *)G ACR$K_CURVER = 3; (* CURRENT FORMAT VERSION NUMBER *) ACR$M_PACKET = 1; ACR$M_TYPE = 254; ACR$M_SUBTYPE = 3840; ACR$M_VERSION = 28672; ACR$M_CUSTOMER = 32768;G ACR$K_PRCDEL = 1; (* PROCESS DELETE *)G ACR$K_PRCPUR = 2; (* PROCESS PURGE P *)G ACR$K_IMGDEL = 3; (* IMAGE DELETE *)G ACR$K_IMGPUR = 4; (* IMAGE PURGE *)G ACR$K_SYSINIT = 5; (* SYSTEM INITIALIZATION *)G ACR$K_SETTIME = 6; (* SET SYSTEM TIME *)G ACR$K_LOGFAIL = 7; (* LOGIN VALIDATION FAILURE *)G ACR$K_PRINT = 8; (* PRINT JOB *)G ACR$K_USER = 9; (* USER SUPPLIED Q DATA *)G ACR$K_ENABLE = 10; (* ACC. MANG. FUNCTION ENABLE *)G ACR$K_DISABLE = 11; (* ACC. MANG. FUNCTION DISABLE *)G ACR$K_ALTACM = 12; (* DECLARE ALTERNATE ACC. MANG. *)G ACR$K_FILE_FL = 13; (* ACCOUNTING FILE - FORWARD LINK *)G ACR$K_FILE_BL = 14; (* ACCOUNTING FILE - BACKWARD LINK *) N(* RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS *) LCONST ACR$K_INTERACTIVE R = 1; (* INTERACTIVE PROCESS *)G ACR$K_SUBPROCESS = 2; (* SUBPROCESS *)G ACR$K_DETACHED = 3; (* DETACHED PROCESS *)G ACR$K_BATCH = 4; (* BATCH PROCESS *)G ACR$K_NETWORK = 5; (* NETWORK PROCESS *) N(* PACKET TYPE (ACR$V_TYPE) CONSTANTS *) LCONST ACR$K_ID = 1; (* IDENTIFICATION PACKET S *)G ACR$K_RESOURCE = 2; (* RESOURCE USAGE PACKET *)G ACR$K_IMAGENAME = 3; (* IMAGENAME PACKET *)G ACR$K_FILENAME = 4; (* FILENAME PACKET *)G ACR$K_USER_DATA = 5; (* USER DATA PACKET *) &TYPE ACR$TYPE = RECORD CASE INTEGER OF/ 1: (ACR$R_TYPE_OVERLAY : [BYTE(2)] RECORD END;G ACR$W_LENGTH : $UWORD; (* RECORD OR PACKET LENGTH *)G T (* *)G (* RECORD HEADER *)G (* *) );G 2: (ACR$W_TYPE : [POS(0)] $UWORD; (* RECORD/PACKET TYPE *) ); 3: ();G 4: (ACR$V_PACKET : [POS(0)] $BOOL; (* RECORD(0)/PACKET(1) *)G ACR$V_TYPE : [POS(1)] $BIT7; (* RECORD/PACKET TYPE *)G ACR$V_SUBTYPE : [POS(8)] $BIT4; (* RECORD/PACKET SUBTYPE U *)I ACR$V_VERSION : [POS(12)] $BIT3; (* RECORD/PACKET VERSION NUMBER *)G ACR$V_CUSTOMER : [POS(15)] $BOOL; (* DIGITAL(0)/CUSTOMER(1) *)N(* RECORD TYPE (ACR$V_TYPE) CONSTANTS *) ) END; LCONST ACR$K_HDRLEN = 12; (* RECORD HEADER LENGTH *)G ACR$C_HDRLEN = 12; (* RECORD HEADER LENGTH *) N(* *) TYPE A V CR1$TYPE = RECORD- ACRDEF$$_FILL_2 : ARRAY [1..4] OF $BYTE;G ACR$Q_SYSTIME : $UQUAD; (* EVENT SYSTEM TIME *)G (* IDENTIFICATION PACKET *)G (* *) END; CONST ACR$M_FULLNAME = 1; ACR$M_UIDGID = 2; ACR$M_FILL_1 = 252;J ACR$K_IDVAR = 58; (* BEGINNING OF VARIABLE STORAGE AREA *)J ACR$C_IDVAR = 58; (* BEGINNING OF VARIABLE W STORAGE AREA *) N(* *) 'TYPE ACR2$TYPE = RECORD CASE INTEGER OF- 1: (ACRDEF$$_FILL_3 : ARRAY [1..4] OF $BYTE;G ACR$L_PID : UNSIGNED; (* PROCESS ID *)G ACR$L_OWNER : UNSIGNED; (* OWNER PROCES ID *). ACR$R_UIC_OVERLAY : [BYTE(4)] RECORD END;G ACR$Q_PRIV : $UQUAD; (* PROCESS PRIV *)G ACR$B_PRI : $UBYTE; (* PROCX ESS PRIORITY *)1 ACR$R_IDFLGS_OVERLAY : [BYTE(1)] RECORD END;G ACR$W_USERNAME : $UWORD; (* USERNAME OFFSET *)G ACR$W_ACCOUNT : $UWORD; (* ACCOUNT NAME OFFSET *)G ACR$W_NODENAME : $UWORD; (* NODE NAME OFFSET *)G ACR$W_TERMINAL : $UWORD; (* TERMINAL NAME OFFSET *)G ACR$W_JOBNAME : $UWORD; (* JOB NAME OFFSET *)G ACR$L_JOBID : UNSIGNED; (* JOB ID Y *)G ACR$W_QUEUE : $UWORD; (* QUEUE NAME OFFSET *)G ACR$W_NODEADDR : $UWORD; (* REMOTE NODE ADDRESS *)G ACR$W_REMOTEID : $UWORD; (* REMOTE ID OFFSET *)G ACR$W_FULLADDR : $UWORD; (* REMOTE PHASE V ADDRESS *)G ACR$W_FULLNAME : $UWORD; (* REMOTE PHASE V FULLNAME *)G ACR$L_POSIX_UID : UNSIGNED; (* POSIX UID *)G ACR$L_POSIX_GID : UNSIGNED; (* PO Z SIX GID *)G (* RESOURCE PACKET *)G (* *) );G 2: (ACR$L_UIC : [POS(96)] UNSIGNED; (* PROCESS UIC *)G ACR$B_IDFLGS : [POS(200)] $UBYTE; (* FLAGS BIT MASK *) ); 3: ();G 4: (ACR$W_MEM : [POS(96)] $UWORD; (* MEMBER UIC *)G ACR$W_GRP : [POS(112)] $UWORD; (* GROUP UIC * [ )H ACR$V_FULLNAME : [POS(200)] $BOOL; (* NOT PRESENT (0)/PRESENT(1) *)G ACR$V_UIDGID : [POS(201)] $BOOL; (* NOT PRESENT (0)/PRESENT(1) *)G ACR$V_FILL_1 : [POS(202)] $BIT6; (* SPARE BITS *) ) END; ACR3$TYPE = RECORD- ACRDEF$$_FILL_4 : ARRAY [1..4] OF $BYTE;G ACR$Q_LOGIN : $UQUAD; (* PROCESS/IMAGE START TIME *)G ACR$L_STATUS : UNSIGNED; (* PROCESS/IMAGE FINAL STATUS *)M ACR$L_IMGCNT : UNSIGNED; (* IMAGE EXEC\ UTION COUNT/SEQUENCE NUMBER *)G ACR$L_CPUTIME : UNSIGNED; (* PROCESS/IMAGE CPU TIME *)G ACR$L_FAULTS : UNSIGNED; (* PROCESS/IMAGE PAGE FAULT COUNT *)J ACR$L_FAULTIO : UNSIGNED; (* PROCESS/IMAGE PAGE FAULT I/O COUNT *)G ACR$L_WSPEAK : UNSIGNED; (* PROCESS/IMAGE WORKING SET PEAK *)J ACR$L_PAGEFL : UNSIGNED; (* PROCESS/IMAGE PEAK PAGE FILE USAGE *)G ACR$L_DIOCNT : UNSIGNED; (* PROCESS/IMAGE DIRECT I/O COUNT *)H ACR$L_BIOCNT : UNSI ] GNED; (* PROCESS/IMAGE BUFFERED I/O COUNT *)H ACR$L_VOLUMES : UNSIGNED; (* PROCESS/IMAGE VOLUME MOUNT COUNT *)G ACR$L_VP_CPUTIME : UNSIGNED; (* PROCESS/IMAGE VECTOR CPU TIME *)G (* *)G (* IMAGENAME PACKET *)G (* *) END; ACR4$TYPE = RECORD- ACRDEF$$_FILL_5 : ARRAY [1..4] OF $BYTE;G ACR ^ $T_IMAGENAME : PACKED ARRAY [1..256] OF CHAR; (* IMAGENAME *)G (* *)G (* PRINT RESOURCE PACKET *)G (* *) END; ACR5$TYPE = RECORD- ACRDEF$$_FILL_6 : ARRAY [1..4] OF $BYTE;G ACR$L_PRINTSTS : UNSIGNED; (* JOB STATUS *)G ACR$Q_QUETIME : $UQUAD; (* TIME JOB WAS QUEUED _ *)G ACR$Q_BEGTIME : $UQUAD; (* TIME JOB WAS BEGUN *)G ACR$L_SYMCPUTIM : UNSIGNED; (* SYMBIONT CPU TIME *)G ACR$L_PAGECNT : UNSIGNED; (* TOTAL PAGES PRINTED *)G ACR$L_QIOCNT : UNSIGNED; (* TOTAL QIOS ISSUED *)G ACR$L_GETCNT : UNSIGNED; (* TOTAL GETS ISSUED *)G (* *)G (* FILENAME PACKET ` *)G (* *) END; ACR6$TYPE = RECORD- ACRDEF$$_FILL_7 : ARRAY [1..4] OF $BYTE;G ACR$T_FILENAME : PACKED ARRAY [1..256] OF CHAR; (* FILENAME *)G (* *)G (* USER DATA PACKET *)G (* *) END; ACR7$TYPE = RECORD- ACR a DEF$$_FILL_8 : ARRAY [1..4] OF $BYTE;G ACR$T_USER_DATA : PACKED ARRAY [1..256] OF CHAR; (* USER DATA *) END; (*** MODULE $AFRDEF ***) LCONST AFR$K_USER_LENGTH = 16; (* Length of user entry *)G AFR$C_USER_LENGTH = 16; (* Length of user entry *)G AFR$K_VMS_LENGTH = 24; (* Length of VMS entry *)G AFR$C_VMS_LENGTH = 24; (* Length of VMS entry *)G AFR$K_EXTENDED_LENGTH = 296; (* Extended lengt b h *)G AFR$C_EXTENDED_LENGTH = 296; (* Extended length *) AFR$C_UNINITIALIZED = 0; AFR$C_BUFFERED = 1;L AFR$C_EXCEPTION = 2; (* Values passed to start system service *) &TYPE AFR$TYPE = RECORD CASE INTEGER OF2 1: (AFR$R_PC_DATA_OVERLAY : [BYTE(8)] RECORD END;2 AFR$R_VA_DATA_OVERLAY : [BYTE(8)] RECORD END;3 AFR$R_RESERVED_OVERLAY : [BYTE(8)] RECORD END;G AFR$T_IMAGE_NAME : PACKED ARRAY [1..256] OF CHAR; (* Image name *)G c AFR$T_USER_NAME : PACKED ARRAY [1..16] OF CHAR; (* User name *) );G 2: (AFR$Q_FAULT_PC : [POS(0)] $UQUAD; (* PC of alignment fault *)G AFR$Q_FAULT_VA : [POS(64)] $UQUAD; (* Unaligned virtual address *)G AFR$Q_RESERVED : [POS(128)] $UQUAD; (* Reserved for VMS *) );< 3: (AFR$R_PC_DATA_LONGWORDS : [POS(0), BYTE(8)] RECORD END;= AFR$R_VA_DATA_LONGWORDS : [POS(64), BYTE(8)] RECORD END;? AFR$R_RESERVED_LONGWORDS : [POS(128), BYTE(8)] RECORD END; d );* 4: (AFR$L_FAULT_PC_L : [POS(0)] UNSIGNED;+ AFR$L_FAULT_PC_H : [POS(32)] UNSIGNED;+ AFR$L_FAULT_VA_L : [POS(64)] UNSIGNED;+ AFR$L_FAULT_VA_H : [POS(96)] UNSIGNED;, AFR$L_RESERVED_L : [POS(128)] UNSIGNED;, AFR$L_RESERVED_H : [POS(160)] UNSIGNED; ) END; CONST AFR$M_ENABLED = 1; AFR$M_TEMP_ENABLED = 2; AFR$M_PERM_ENABLED = 4; AFR$M_DISABLED = 0; AFR$M_USER_INFO = 8; TYPE AFRE$TYPE = RECORDG AFR$V_ENABLED : [POS(0)] $BOOL; (* Enable bite *)N AFR$V_TEMP_ENABLED : [POS(1)] $BOOL; (* TRUE if enabled image by image *)K AFR$V_PERM_ENABLED : [POS(2)] $BOOL; (* TRUE if permanently enabled *)G AFR$V_USER_INFO : [POS(3)] $BOOL; (* If set, user info is saved *)% AFR$V_FILL_44_ : [POS(4)] $BIT4; END; CONST AME$M_KERNEL_MODE = 1; AME$M_EXEC_MODE = 2; AME$M_SUPER_MODE = 4; AME$M_USER_MODE = 8; AME$M_USER_VA = 16; AME$M_SYSTEM_VA = 32; AME$M_USER_PC = 64; AME$M_SYSTEM_PC = 128; Af ME$M_USER_VA_P0 = 256; AME$M_USER_VA_P1 = 512; AME$M_USER_VA_P2 = 1024;G AME$C_SIZE = 4; (* Length in bytes for mask *)G AME$K_SIZE = 4; (* Length in bytes for mask *) TYPE AME$TYPE = RECORD( AME$V_KERNEL_MODE : [POS(0)] $BOOL;& AME$V_EXEC_MODE : [POS(1)] $BOOL;' AME$V_SUPER_MODE : [POS(2)] $BOOL;& AME$V_USER_MODE : [POS(3)] $BOOL;$ AME$V_USER_VA : [POS(4)] $BOOL;& AME$V_SYSTEM_VA : [POS(5)] $BOOL;$ AME$V g _USER_PC : [POS(6)] $BOOL;& AME$V_SYSTEM_PC : [POS(7)] $BOOL;' AME$V_USER_VA_P0 : [POS(8)] $BOOL;' AME$V_USER_VA_P1 : [POS(9)] $BOOL;( AME$V_USER_VA_P2 : [POS(10)] $BOOL;& AME$V_FILL_45_ : [POS(11)] $BIT5; END; N(* *)N(* AFLDEF defines which region a VA lies in *)N(* *) CONST AFL$M_P0_Vh A = 1; AFL$M_P1_VA = 2; AFL$M_P2_VA = 4; AFL$M_S0S1_VA = 8; AFL$M_S2_VA = 16; AFL$M_PROCESS_VA = 32; AFL$M_SYSTEM_VA = 64; KTYPE AFL$TYPE = RECORD CASE INTEGER OF (* Alignment fault location *). 1: (AFL$R_AFL_OVERLAY : [BYTE(4)] RECORD END; );& 2: (AFL$L_VA_LOC : [POS(0)] UNSIGNED; );9 3: (AFL$R_VA_LOC_BITDEFS : [POS(0), BYTE(1)] RECORD END; );G 4: (AFL$V_P0_VA : [POS(0)] $BOOL; (* Address is in P0 space *)G AFL$V_P1_VA : [POS(1)] $BOO i L; (* Address is in P1 space *)G AFL$V_P2_VA : [POS(2)] $BOOL; (* Address is in P2 space *)G AFL$V_S0S1_VA : [POS(3)] $BOOL; (* Address is in S0 or S1 space *)G AFL$V_S2_VA : [POS(4)] $BOOL; (* Address is in S2 space *)W AFL$V_PROCESS_VA : [POS(5)] $BOOL; (* Address is in P0,P1,or P2 (process space) *)U AFL$V_SYSTEM_VA : [POS(6)] $BOOL; (* Address is in S0,S1,or S2 (system space) *) ) END; (*** MODULE $AGNDEF ***) N(*+ j *)N(* $ASSIGN FLAGS bit definitions *)N(*- *) CONST AGN$M_READONLY = 1; AGN$M_WRITEONLY = 2; AGN$M_CLONE = 4; &TYPE AGN$TYPE = RECORD CASE INTEGER OF. 1: (AGN$R_AGNDEF_BITS : [BYTE(4)] RECORD END; );Z 2: (AGN$V_READONLY : [POS(0)] $BOOL; (* Channel to be assigned to device is READ ONLY. *)\ AGN$V k _WRITEONLY : [POS(1)] $BOOL; (* Channel to be assigned to device is WRITE ONLY. *)P AGN$V_CLONE : [POS(2)] $BOOL; (* Channel will be cloned by POSIX fork(). *) ) END; (*** MODULE $ALPHADEF ***) N(* *)N(* Not all of what you see here was built, shipped and/or announced. *)N(* So-called Whitebox (Microsoft Windows-Only) systems are not listed. *)N(* Various systems listed here are not supported l by OpenVMS Alpha. *)N(* *) LCONST ALPHA$K_NOT_A_VAX = 1024; (* A pseudo-SMM sometimes seen *)W ALPHA$K_MIN_ALPHA = 1024; (* The smallest architecturally-permitted Alpha SMM *)G ALPHA$K_MIN_SMM = 1025; (* The smallest Alpha SMM *) ALPHA$K_ID_BASE = 1025;G ALPHA$K_A7000_610 = 1025; (* DEC 7000 Model 610 *)G ALPHA$K_A7000_620 = 1026; (* DEC 7000 Modm el 620 *)G ALPHA$K_A7000_630 = 1027; (* DEC 7000 Model 630 *)G ALPHA$K_A7000_640 = 1028; (* DEC 7000 Model 640 *)G ALPHA$K_A10000_610 = 1029; (* DEC 10000 Model 610 *)G ALPHA$K_A10000_620 = 1030; (* DEC 10000 Model 620 *)G ALPHA$K_A10000_630 = 1031; (* DEC 10000 Model 630 *)G ALPHA$K_A10000_640 = 1032; (* DEC 10000 Model 640 *)G ALPHA$K_A3000_500W = 1033; (* n DEC 3000 Model 500 *)G ALPHA$K_A3000_500S = 1034; (* DEC 3000 Model 500S *)G ALPHA$K_A3000_400W = 1035; (* DEC 3000 Model 400 *)G ALPHA$K_A3000_400S = 1036; (* DEC 3000 Model 400S *)G ALPHA$K_A4000_610 = 1037; (* DEC 4000 Model 610 *)G ALPHA$K_A4000_620 = 1038; (* DEC 4000 Model 620 *) ALPHA$K_A4000_810 = 1039; ALPHA$K_A4000_820 = 1040; ALPHA$K_AADU = 1041;G ALPHA$K_A3000_300o = 1042; (* DEC 3000 Model 300 *)G ALPHA$K_A3000_300L = 1043; (* DEC 3000 Model 300L *)G ALPHA$K_A2000_300 = 1044; (* DEC 2000 Model 300 *)G ALPHA$K_A2000_300S = 1045; (* DEC 2000 Model 300S *)G ALPHA$K_A7000_650 = 1046; (* DEC 7000 Model 650 *)G ALPHA$K_A7000_660 = 1047; (* DEC 7000 Model 660 *)G ALPHA$K_A10000_650 = 1048; (* DEC 10000 Model 650 *)G ALPHA p $K_A10000_660 = 1049; (* DEC 10000 Model 660 *) ALPHA$K_A4000_630 = 1050; ALPHA$K_A4000_640 = 1051; ALPHA$K_A4000_650 = 1052; ALPHA$K_A4000_660 = 1053; ALPHA$K_A2000_200 = 1054; ALPHA$K_A2000_200S = 1055;G ALPHA$K_A3000_500X = 1056; (* DEC 3000 Model 500X *) N(* *)Y(* The following Alpha System entries have been added to this file for REFERENCE ONLY. *)T(* Please note thaq t the Alpha system model name string and System Marketing Model *)U(* value (SMM) are now passed by the SRM console to the Operating System through a *)S(* structure called the HWRPB (hardware restart parameter block); by the Dynamic *)V(* System Recognition (DSR) support that is present within all but the most ancient *)S(* of Alpha systems and the correspondingly ancient versions of the SRM console. *)N(* *)X(* The folr lowing symbol-naming convention was derived from the Alpha System Reference *)N(* Manual (SRM) Registry of Alpha Platforms, Systems, and Processors: *)N(* *)N(* ASa1a2b1b2c1c2d1d2e1e2 *)N(* *)N(* AS = Alpha System *)X(* a1a2 = Fams ily ID (2 digit hex value), Example: 0C (TurboLaser family) *)o(* b1b2 = Processor Type (2 digit hex value), Example: 02 (EV4) , 05 (EV5), 06 (EV45), 07(EV56) *)Q(* c1c2 = Member ID (2 digit hex value), Example: 04 (Rack Mount) *)o(* d1d2 = SRM Variant (2 digit hex value) for each Family ID/Processor Type/Member ID. Used for *)m(* differentiating between same platforms with different chip speed (MHz) and/or cache *)j(* t size and/or expansion capabilities and/or AlphaStation/AlphaServer variants. In *)l(* specific cases, there is the potential for the CPU count to spill into this field. *)n(* e1e2 = Number of CPUs (2 digit hex value), Example: 0A (10 cpus), or maximum number of CPUs *)N(* *) LCONST ALPHA$K_AS0202020001 = 1057; (* DEC 4000 Model 710 *)G ALPHA$K_AS0202020002 = 1058; u (* DEC 4000 Model 720 *)G ALPHA$K_AS0902020001 = 1059; (* AlphaServer 2100 4/200 (1cpu) *)G ALPHA$K_AS0902020002 = 1060; (* AlphaServer 2100 4/200 (2cpu) *)G ALPHA$K_AS0902020003 = 1061; (* AlphaServer 2100 4/200 (3cpu) *)G ALPHA$K_AS0902020004 = 1062; (* AlphaServer 2100 4/200 (4cpu) *)G ALPHA$K_AS0402040001 = 1063; (* DEC 3000 Model 800 *)G ALPHA$K_AS0402060001 = 1064; (* DEC 3000 Model 600 *)G ALPHA$K_AS060201000v 1 = 1065; (* DEC 2000 Model 500 *)G ALPHA$K_AS0B04000001 = 1067; (* DECAXPpci33 *)G ALPHA$K_AS0702020001 = 1068; (* DEC 3000 Model 300X *)G ALPHA$K_AS0702030001 = 1069; (* DEC 3000 Model 300LX *)G ALPHA$K_AS0406070001 = 1070; (* DEC 3000 Model 700 *)G ALPHA$K_AS0406080001 = 1071; (* DEC 3000 Model 900 *)G ALPHA$K_AS0706040001 = 1072; (* DEC 3000 series *)G ALPHA$Kw _AS0706050001 = 1073; (* DEC 3000 series *)G ALPHA$K_AS0306030001 = 1074; (* DEC 7000 Model 710 *)G ALPHA$K_AS0306030002 = 1075; (* DEC 7000 Model 720 *)G ALPHA$K_AS0306030003 = 1076; (* DEC 7000 Model 730 *)G ALPHA$K_AS0306030004 = 1077; (* DEC 7000 Model 740 *)G ALPHA$K_AS0306030005 = 1078; (* DEC 7000 Model 750 *)G ALPHA$K_AS0306030006 = 1079; (* DEC 7000 Model 760 *x )G ALPHA$K_AS0D02010001 = 1086; (* AlphaStation 400 4/166 *)G ALPHA$K_AS0D02020001 = 1087; (* AlphaStation 200 4/166 *)G ALPHA$K_AS0D02030001 = 1088; (* AlphaStation 200 4/133 *)G ALPHA$K_AS0F05010001 = 1089; (* AlphaStation 600 5/300 *)G ALPHA$K_AS1102010001 = 1090; (* AlphaServer 1000 4/200 *)G ALPHA$K_AS1106020001 = 1091; (* AlphaServer 1000 4/233 *)G ALPHA$K_AS0C05000001 = 1093; (* AlphaServer 8200 5/300y (1cpu) *)G ALPHA$K_AS0C05000002 = 1094; (* AlphaServer 8200 5/300 (2cpu) *)G ALPHA$K_AS0C05000003 = 1095; (* AlphaServer 8200 5/300 (3cpu) *)G ALPHA$K_AS0C05000004 = 1096; (* AlphaServer 8200 5/300 (4cpu) *)G ALPHA$K_AS0C05000005 = 1097; (* AlphaServer 8200 5/300 (5cpu) *)G ALPHA$K_AS0C05000006 = 1098; (* AlphaServer 8200 5/300 (6cpu) *)G ALPHA$K_AS0C05010001 = 1099; (* AlphaServer 8400 5/300 (1cpu) *)G ALPHA$K_AS0C05010002 = 1100; (* AlphaServez r 8400 5/300 (2cpu) *)G ALPHA$K_AS0C05010003 = 1101; (* AlphaServer 8400 5/300 (3cpu) *)G ALPHA$K_AS0C05010004 = 1102; (* AlphaServer 8400 5/300 (4cpu) *)G ALPHA$K_AS0C05010005 = 1103; (* AlphaServer 8400 5/300 (5cpu) *)G ALPHA$K_AS0C05010006 = 1104; (* AlphaServer 8400 5/300 (6cpu) *)G ALPHA$K_AS0C05010007 = 1105; (* AlphaServer 8400 5/300 (7cpu) *)G ALPHA$K_AS0C05010008 = 1106; (* AlphaServer 8400 5/300 (8cpu) *)G ALPHA$K_AS0C05010009 = 1107; ({ * AlphaServer 8400 5/300 (9cpu) *)G ALPHA$K_AS0C0501000A = 1108; (* AlphaServer 8400 5/300 (10cpu) *)G ALPHA$K_AS0C0501000B = 1109; (* AlphaServer 8400 5/300 (11cpu) *)G ALPHA$K_AS0C0501000C = 1110; (* AlphaServer 8400 5/300 (12cpu) *)G ALPHA$K_AS0906020001 = 1115; (* AlphaServer 2100 4/275 (1cpu) *)G ALPHA$K_AS0906020002 = 1116; (* AlphaServer 2100 4/275 (2cpu) *)G ALPHA$K_AS0906020003 = 1117; (* AlphaServer 2100 4/275 (3cpu) *)G ALPHA$K_AS0906020004 | = 1118; (* AlphaServer 2100 4/275 (4cpu) *)G ALPHA$K_AS0905020001 = 1119; (* AlphaServer 2100 5/250 (1cpu) *)G ALPHA$K_AS0905020002 = 1120; (* AlphaServer 2100 5/250 (2cpu) *)G ALPHA$K_AS0905020003 = 1121; (* AlphaServer 2100 5/250 (3cpu) *)G ALPHA$K_AS0905020004 = 1122; (* AlphaServer 2100 5/250 (4cpu) *)G ALPHA$K_AS0902010001 = 1123; (* AlphaServer 2000 4/200 (1cpu) *)G ALPHA$K_AS0902010002 = 1124; (* AlphaServer 2000 4/200 (2cpu) *)G ALPHA$K_A} S0902010003 = 1125; (* AlphaServer 2000 4/200 (3cpu) *)G ALPHA$K_AS0902010004 = 1126; (* AlphaServer 2000 4/200 (4cpu) *)G ALPHA$K_AS0906010001 = 1127; (* AlphaServer 2000 4/275 (1cpu) *)G ALPHA$K_AS0906010002 = 1128; (* AlphaServer 2000 4/275 (2cpu) *)G ALPHA$K_AS0906010003 = 1129; (* AlphaServer 2000 4/275 (3cpu) *)G ALPHA$K_AS0906010004 = 1130; (* AlphaServer 2000 4/275 (4cpu) *)G ALPHA$K_AS0905010001 = 1131; (* AlphaServer 2000 5/250 (1cpu) *)~ G ALPHA$K_AS0905010002 = 1132; (* AlphaServer 2000 5/250 (2cpu) *)G ALPHA$K_AS0905010003 = 1133; (* AlphaServer 2000 5/250 (3cpu) *)G ALPHA$K_AS0905010004 = 1134; (* AlphaServer 2000 5/250 (4cpu) *)K ALPHA$K_AS0902030001 = 1135; (* AlphaServer 2100 4/200 (1cpu) (rack) *)K ALPHA$K_AS0902030002 = 1136; (* AlphaServer 2100 4/200 (2cpu) (rack) *)K ALPHA$K_AS0902030003 = 1137; (* AlphaServer 2100 4/200 (3cpu) (rack) *)K ALPHA$K_AS0902030004 = 1138; (* AlphaServer  2100 4/200 (4cpu) (rack) *)K ALPHA$K_AS0906030001 = 1139; (* AlphaServer 2100 4/275 (1cpu) (rack) *)K ALPHA$K_AS0906030002 = 1140; (* AlphaServer 2100 4/275 (2cpu) (rack) *)K ALPHA$K_AS0906030003 = 1141; (* AlphaServer 2100 4/275 (3cpu) (rack) *)K ALPHA$K_AS0906030004 = 1142; (* AlphaServer 2100 4/275 (4cpu) (rack) *)K ALPHA$K_AS0905030001 = 1143; (* AlphaServer 2100 5/250 (1cpu) (rack) *)K ALPHA$K_AS0905030002 = 1144; (* AlphaServer 2100 5/250 (2cpu) (rack) *)K ALPHA$K _AS0905030003 = 1145; (* AlphaServer 2100 5/250 (3cpu) (rack) *)K ALPHA$K_AS0905030004 = 1146; (* AlphaServer 2100 5/250 (4cpu) (rack) *)G ALPHA$K_AS0D06040001 = 1151; (* AlphaStation 200 4/233 *)G ALPHA$K_AS0D06050001 = 1152; (* AlphaStation 400 4/233 *)G ALPHA$K_AS0D06060001 = 1153; (* AlphaStation 400 4/266 (2M) *)G ALPHA$K_AS0D06070001 = 1154; (* AlphaStation 400 4/266 (512kb) *) ALPHA$K_AS0D06080001 = 1155;G ALPHA$K_AS0D02090001 = 1156; (* AlphaStation 200 4/100 *)G ALPHA$K_AS0D060A0001 = 1157; (* AlphaStation 200 4/300 *)G ALPHA$K_AS0D060B0001 = 1158; (* AlphaStation 200 4/266, 512KB *) ALPHA$K_AS0D060C0001 = 1159;G ALPHA$K_AS0D060D0001 = 1160; (* AlphaStation 400 4/300 *)G ALPHA$K_AS0F05020001 = 1161; (* AlphaStation 600 5/266 *) ALPHA$K_AS1706010001 = 1167;G ALPHA$K_AS0906010101 = 1171; (* AlphaServer 2000 4/233 (1cpu) *)G ALPHA$K_AS0906010102 = 1172 ; (* AlphaServer 2000 4/233 (2cpu) *)G ALPHA$K_AS0906010103 = 1173; (* AlphaServer 2000 4/233 (3cpu) *)G ALPHA$K_AS0906010104 = 1174; (* AlphaServer 2000 4/233 (4cpu) *)G ALPHA$K_AS0905010101 = 1175; (* AlphaServer 2000 5/300 (1cpu) *)G ALPHA$K_AS0905010102 = 1176; (* AlphaServer 2000 5/300 (2cpu) *)G ALPHA$K_AS0905010103 = 1177; (* AlphaServer 2000 5/300 (3cpu) *)G ALPHA$K_AS0905010104 = 1178; (* AlphaServer 2000 5/300 (4cpu) *)G ALPHA$K_AS09060 20101 = 1179; (* AlphaServer 2100 4/233 (1cpu) *)G ALPHA$K_AS0906020102 = 1180; (* AlphaServer 2100 4/233 (2cpu) *)G ALPHA$K_AS0906020103 = 1181; (* AlphaServer 2100 4/233 (3cpu) *)G ALPHA$K_AS0906020104 = 1182; (* AlphaServer 2100 4/233 (4cpu) *)G ALPHA$K_AS0905020101 = 1183; (* AlphaServer 2100 5/300 (1cpu) *)G ALPHA$K_AS0905020102 = 1184; (* AlphaServer 2100 5/300 (2cpu) *)G ALPHA$K_AS0905020103 = 1185; (* AlphaServer 2100 5/300 (3cpu) *)G ALP HA$K_AS0905020104 = 1186; (* AlphaServer 2100 5/300 (4cpu) *)K ALPHA$K_AS0906030101 = 1187; (* AlphaServer 2100 4/233 (1cpu) (rack) *)K ALPHA$K_AS0906030102 = 1188; (* AlphaServer 2100 4/233 (2cpu) (rack) *)K ALPHA$K_AS0906030103 = 1189; (* AlphaServer 2100 4/233 (3cpu) (rack) *)K ALPHA$K_AS0906030104 = 1190; (* AlphaServer 2100 4/233 (4cpu) (rack) *)K ALPHA$K_AS0905030101 = 1191; (* AlphaServer 2100 5/300 (1cpu) (rack) *)K ALPHA$K_AS0905030102 = 1192; (* AlphaServe r 2100 5/300 (2cpu) (rack) *)K ALPHA$K_AS0905030103 = 1193; (* AlphaServer 2100 5/300 (3cpu) (rack) *)K ALPHA$K_AS0905030104 = 1194; (* AlphaServer 2100 5/300 (4cpu) (rack) *)G ALPHA$K_AS1806010001 = 1195; (* AlphaServer 2000A 4/233 (1cpu) *)G ALPHA$K_AS1806010002 = 1196; (* AlphaServer 2000A 4/233 (2cpu) *)G ALPHA$K_AS1806010003 = 1197; (* AlphaServer 2000A 4/233 (3cpu) *)G ALPHA$K_AS1806010004 = 1198; (* AlphaServer 2000A 4/233 (4cpu) *)G ALPHA$K_AS1806010101  = 1199; (* AlphaServer 2000A 4/275 (1cpu) *)G ALPHA$K_AS1806010102 = 1200; (* AlphaServer 2000A 4/275 (2cpu) *)G ALPHA$K_AS1806010103 = 1201; (* AlphaServer 2000A 4/275 (3cpu) *)G ALPHA$K_AS1806010104 = 1202; (* AlphaServer 2000A 4/275 (4cpu) *)G ALPHA$K_AS1805010001 = 1203; (* AlphaServer 2000A 5/250 (1cpu) *)G ALPHA$K_AS1805010002 = 1204; (* AlphaServer 2000A 5/250 (2cpu) *)G ALPHA$K_AS1805010003 = 1205; (* AlphaServer 2000A 5/250 (3cpu) *)G ALPHA$K_A S1805010004 = 1206; (* AlphaServer 2000A 5/250 (4cpu) *)G ALPHA$K_AS1805010101 = 1207; (* AlphaServer 2000A 5/300 (1cpu) *)G ALPHA$K_AS1805010102 = 1208; (* AlphaServer 2000A 5/300 (2cpu) *)G ALPHA$K_AS1805010103 = 1209; (* AlphaServer 2000A 5/300 (3cpu) *)G ALPHA$K_AS1805010104 = 1210; (* AlphaServer 2000A 5/300 (4cpu) *)G ALPHA$K_AS1806020001 = 1211; (* AlphaServer 2100A 4/233 (1cpu) *)G ALPHA$K_AS1806020002 = 1212; (* AlphaServer 2100A 4/233 (2cpu) *) G ALPHA$K_AS1806020003 = 1213; (* AlphaServer 2100A 4/233 (3cpu) *)G ALPHA$K_AS1806020004 = 1214; (* AlphaServer 2100A 4/233 (4cpu) *)G ALPHA$K_AS1806020101 = 1215; (* AlphaServer 2100A 4/275 (1cpu) *)G ALPHA$K_AS1806020102 = 1216; (* AlphaServer 2100A 4/275 (2cpu) *)G ALPHA$K_AS1806020103 = 1217; (* AlphaServer 2100A 4/275 (3cpu) *)G ALPHA$K_AS1806020104 = 1218; (* AlphaServer 2100A 4/275 (4cpu) *)G ALPHA$K_AS1805020001 = 1219; (* AlphaServer 2100A 5/250  (1cpu) *)G ALPHA$K_AS1805020002 = 1220; (* AlphaServer 2100A 5/250 (2cpu) *)G ALPHA$K_AS1805020003 = 1221; (* AlphaServer 2100A 5/250 (3cpu) *)G ALPHA$K_AS1805020004 = 1222; (* AlphaServer 2100A 5/250 (4cpu) *)G ALPHA$K_AS1805020101 = 1223; (* AlphaServer 2100A 5/300 (1cpu) *)G ALPHA$K_AS1805020102 = 1224; (* AlphaServer 2100A 5/300 (2cpu) *)G ALPHA$K_AS1805020103 = 1225; (* AlphaServer 2100A 5/300 (3cpu) *)G ALPHA$K_AS1805020104 = 1226; (* AlphaServer  2100A 5/300 (4cpu) *)L ALPHA$K_AS1806030001 = 1227; (* AlphaServer 2100A 4/233 (1cpu) (rack) *)L ALPHA$K_AS1806030002 = 1228; (* AlphaServer 2100A 4/233 (2cpu) (rack) *)L ALPHA$K_AS1806030003 = 1229; (* AlphaServer 2100A 4/233 (3cpu) (rack) *)L ALPHA$K_AS1806030004 = 1230; (* AlphaServer 2100A 4/233 (4cpu) (rack) *)L ALPHA$K_AS1806030101 = 1231; (* AlphaServer 2100A 4/275 (1cpu) (rack) *)L ALPHA$K_AS1806030102 = 1232; (* AlphaServer 2100A 4/275 (2cpu) (rack) *)L ALPHA$K_AS1 806030103 = 1233; (* AlphaServer 2100A 4/275 (3cpu) (rack) *)L ALPHA$K_AS1806030104 = 1234; (* AlphaServer 2100A 4/275 (4cpu) (rack) *)L ALPHA$K_AS1805030001 = 1235; (* AlphaServer 2100A 5/250 (1cpu) (rack) *)L ALPHA$K_AS1805030002 = 1236; (* AlphaServer 2100A 5/250 (2cpu) (rack) *)L ALPHA$K_AS1805030003 = 1237; (* AlphaServer 2100A 5/250 (3cpu) (rack) *)L ALPHA$K_AS1805030004 = 1238; (* AlphaServer 2100A 5/250 (4cpu) (rack) *)L ALPHA$K_AS1805030101 = 1239; (* AlphaServer 21 00A 5/300 (1cpu) (rack) *)L ALPHA$K_AS1805030102 = 1240; (* AlphaServer 2100A 5/300 (2cpu) (rack) *)L ALPHA$K_AS1805030103 = 1241; (* AlphaServer 2100A 5/300 (3cpu) (rack) *)L ALPHA$K_AS1805030104 = 1242; (* AlphaServer 2100A 5/300 (4cpu) (rack) *)G ALPHA$K_AS1A05010001 = 1245; (* EB164 266 *)G ALPHA$K_AS1A05020001 = 1246; (* EB164 300 *)G ALPHA$K_AS0D06200001 = 1250; (* AlphaStation 205 4/133 *)G ALPHA$K_AS0D06210001  = 1251; (* AlphaStation 205 4/166 *)G ALPHA$K_AS0D06220001 = 1252; (* AlphaStation 205 4/200 *)G ALPHA$K_AS0D06230001 = 1253; (* AlphaStation 205 4/233 *)G ALPHA$K_AS0D06240001 = 1254; (* AlphaStation 205 4/266 *)G ALPHA$K_AS0D06250001 = 1255; (* AlphaStation 205 4/300 *)G ALPHA$K_AS0D06260001 = 1256; (* AlphaStation 205 4/333 *)G ALPHA$K_AS0D06270001 = 1257; (* AlphaStation 255 4/133 *)G ALPHA$K_A S0D06280001 = 1258; (* AlphaStation 255 4/166 *)G ALPHA$K_AS0D06290001 = 1259; (* AlphaStation 255 4/200 *)G ALPHA$K_AS0D062A0001 = 1260; (* AlphaStation 255 4/233 *)G ALPHA$K_AS0D062B0001 = 1261; (* AlphaStation 255 4/266 *)G ALPHA$K_AS0D062C0001 = 1262; (* AlphaStation 255 4/300 *)G ALPHA$K_AS0D062D0001 = 1263; (* AlphaStation 255 4/333 *)G ALPHA$K_AS1106030001 = 1264; (* AlphaServer 1000 4/266 *) G ALPHA$K_AS1B06010001 = 1265; (* AlphaServer 1000A 4/266 *)G ALPHA$K_AS0F05030001 = 1266; (* AlphaStation 500 5/266 *)G ALPHA$K_AS0F05040001 = 1267; (* AlphaStation 500 5/300 *)G ALPHA$K_AS0F05050001 = 1268; (* AlphaStation 500 5/333 *)G ALPHA$K_AS1105040001 = 1269; (* AlphaServer 1000 5/300 *)G ALPHA$K_AS1B05020001 = 1270; (* AlphaServer 1000A 5/300 *)G ALPHA$K_AS0F05060001 = 1275; (* AlphaStation 600 5/333  *)G ALPHA$K_AS0F05070001 = 1276; (* AlphaStation 600 5/366 *)G ALPHA$K_AS0F05080001 = 1277; (* AlphaStation 600 5/400 *)G ALPHA$K_AS0F05090001 = 1278; (* AlphaStation 600 5/433 *)G ALPHA$K_AS0F050A0001 = 1279; (* AlphaStation 600 5/466 *)G ALPHA$K_AS0F050B0001 = 1280; (* AlphaStation 600 5/500 *)G ALPHA$K_AS0F070C0001 = 1281; (* AlphaStation 500/333 *)G ALPHA$K_AS0F070D0001 = 1282; (* AlphaStation 500/366 *)G ALPHA$K_AS0F070E0001 = 1283; (* AlphaStation 500/400 *)G ALPHA$K_AS0F070F0001 = 1284; (* AlphaStation 500/433 *)G ALPHA$K_AS0F07100001 = 1285; (* AlphaStation 500/466 *)G ALPHA$K_AS0F07110001 = 1286; (* AlphaStation 500/500 *)G ALPHA$K_AS0C05020001 = 1292; (* AlphaServer 8200 5/350 (1cpu) *)G ALPHA$K_AS0C05020002 = 1293; (* AlphaServer 8200 5/350 (2cpu) *)G ALPHA$K_AS0C05020003 = 1294; (*  AlphaServer 8200 5/350 (3cpu) *)G ALPHA$K_AS0C05020004 = 1295; (* AlphaServer 8200 5/350 (4cpu) *)G ALPHA$K_AS0C05020005 = 1296; (* AlphaServer 8200 5/350 (5cpu) *)G ALPHA$K_AS0C05020006 = 1297; (* AlphaServer 8200 5/350 (6cpu) *)G ALPHA$K_AS0C05030001 = 1298; (* AlphaServer 8400 5/350 (1cpu) *)G ALPHA$K_AS0C05030002 = 1299; (* AlphaServer 8400 5/350 (2cpu) *)G ALPHA$K_AS0C05030003 = 1300; (* AlphaServer 8400 5/350 (3cpu) *)G ALPHA$K_AS0C05030004 =  1301; (* AlphaServer 8400 5/350 (4cpu) *)G ALPHA$K_AS0C05030005 = 1302; (* AlphaServer 8400 5/350 (5cpu) *)G ALPHA$K_AS0C05030006 = 1303; (* AlphaServer 8400 5/350 (6cpu) *)G ALPHA$K_AS0C05030007 = 1304; (* AlphaServer 8400 5/350 (7cpu) *)G ALPHA$K_AS0C05030008 = 1305; (* AlphaServer 8400 5/350 (8cpu) *)G ALPHA$K_AS0C05030009 = 1306; (* AlphaServer 8400 5/350 (9cpu) *)G ALPHA$K_AS0C0503000A = 1307; (* AlphaServer 8400 5/350 (10cpu) *)G ALPHA$K_AS0 C0503000B = 1308; (* AlphaServer 8400 5/350 (11cpu) *)G ALPHA$K_AS0C0503000C = 1309; (* AlphaServer 8400 5/350 (12cpu) *)G ALPHA$K_AS1B07040001 = 1310; (* AlphaServer 600 5/333 *)G ALPHA$K_AS1B07030001 = 1311; (* AlphaServer 1000A 5/400 *)G ALPHA$K_AS1107050001 = 1312; (* AlphaServer 1000 5/400 *)H ALPHA$K_AS1605020001 = 1313; (* AlphaServer 4100 5/266 0MB (1cpu) *)H ALPHA$K_AS1605020002 = 1314; (* AlphaServer 4100 5/266 0MB (2cpu) *)H ALPHA$K_AS1605020003 = 1315; (* AlphaServer 4100 5/266 0MB (3cpu) *)H ALPHA$K_AS1605020004 = 1316; (* AlphaServer 4100 5/266 0MB (4cpu) *)H ALPHA$K_AS1605010001 = 1317; (* AlphaServer 4100 5/266 0MB (1cpu) *)H ALPHA$K_AS1605010002 = 1318; (* AlphaServer 4100 5/266 0MB (2cpu) *)H ALPHA$K_AS1605010003 = 1319; (* AlphaServer 4100 5/266 0MB (3cpu) *)H ALPHA$K_AS1605010004 = 1320; (* AlphaServer 4100 5/266 0MB (4cpu) *)H ALPHA$K_AS1605020101 = 1321; (* AlphaServer 4100 5/300 0MB (1cpu) *)H ALPHA$K_AS1605020102 = 1322; (* AlphaServer 4100 5/300 0MB (2cpu) *)H ALPHA$K_AS1605020103 = 1323; (* AlphaServer 4100 5/300 0MB (3cpu) *)H ALPHA$K_AS1605020104 = 1324; (* AlphaServer 4100 5/300 0MB (4cpu) *)H ALPHA$K_AS1605010101 = 1325; (* AlphaServer 4100 5/300 0MB (1cpu) *)H ALPHA$K_AS1605010102 = 1326; (* AlphaServer 4100 5/300 0MB (2cpu) *)H ALPHA$K_AS1605010103 = 1327; (* AlphaServer 4100 5/300 0MB (3cpu) *)H ALPHA$K_AS1605010104 = 1328; (* AlphaServer 41 00 5/300 0MB (4cpu) *)H ALPHA$K_AS1607020001 = 1329; (* AlphaServer 4100 5/400 0MB (1cpu) *)H ALPHA$K_AS1607020002 = 1330; (* AlphaServer 4100 5/400 0MB (2cpu) *)H ALPHA$K_AS1607020003 = 1331; (* AlphaServer 4100 5/400 0MB (3cpu) *)H ALPHA$K_AS1607020004 = 1332; (* AlphaServer 4100 5/400 0MB (4cpu) *)H ALPHA$K_AS1607010001 = 1333; (* AlphaServer 4100 5/400 0MB (1cpu) *)H ALPHA$K_AS1607010002 = 1334; (* AlphaServer 4100 5/400 0MB (2cpu) *)H ALPHA$K_AS1607010003 = 1335; (* Al phaServer 4100 5/400 0MB (3cpu) *)H ALPHA$K_AS1607010004 = 1336; (* AlphaServer 4100 5/400 0MB (4cpu) *)H ALPHA$K_AS1605020201 = 1337; (* AlphaServer 4100 5/266 1MB (1cpu) *)H ALPHA$K_AS1605020202 = 1338; (* AlphaServer 4100 5/266 1MB (2cpu) *)H ALPHA$K_AS1605020203 = 1339; (* AlphaServer 4100 5/266 1MB (3cpu) *)H ALPHA$K_AS1605020204 = 1340; (* AlphaServer 4100 5/266 1MB (4cpu) *)H ALPHA$K_AS1605010201 = 1341; (* AlphaServer 4100 5/266 1MB (1cpu) *)H ALPHA$K_AS1605010202 = 13 42; (* AlphaServer 4100 5/266 1MB (2cpu) *)H ALPHA$K_AS1605010203 = 1343; (* AlphaServer 4100 5/266 1MB (3cpu) *)H ALPHA$K_AS1605010204 = 1344; (* AlphaServer 4100 5/266 1MB (4cpu) *)H ALPHA$K_AS1605020301 = 1345; (* AlphaServer 4100 5/300 1MB (1cpu) *)H ALPHA$K_AS1605020302 = 1346; (* AlphaServer 4100 5/300 1MB (2cpu) *)H ALPHA$K_AS1605020303 = 1347; (* AlphaServer 4100 5/300 1MB (3cpu) *)H ALPHA$K_AS1605020304 = 1348; (* AlphaServer 4100 5/300 1MB (4cpu) *)H ALPHA$K_AS160 5010301 = 1349; (* AlphaServer 4100 5/300 1MB (1cpu) *)H ALPHA$K_AS1605010302 = 1350; (* AlphaServer 4100 5/300 1MB (2cpu) *)H ALPHA$K_AS1605010303 = 1351; (* AlphaServer 4100 5/300 1MB (3cpu) *)H ALPHA$K_AS1605010304 = 1352; (* AlphaServer 4100 5/300 1MB (4cpu) *)H ALPHA$K_AS1607020101 = 1353; (* AlphaServer 4100 5/400 1MB (1cpu) *)H ALPHA$K_AS1607020102 = 1354; (* AlphaServer 4100 5/400 1MB (2cpu) *)H ALPHA$K_AS1607020103 = 1355; (* AlphaServer 4100 5/400 1MB (3cpu) *)H A LPHA$K_AS1607020104 = 1356; (* AlphaServer 4100 5/400 1MB (4cpu) *)H ALPHA$K_AS1607010101 = 1357; (* AlphaServer 4100 5/400 1MB (1cpu) *)H ALPHA$K_AS1607010102 = 1358; (* AlphaServer 4100 5/400 1MB (2cpu) *)H ALPHA$K_AS1607010103 = 1359; (* AlphaServer 4100 5/400 1MB (3cpu) *)H ALPHA$K_AS1607010104 = 1360; (* AlphaServer 4100 5/400 1MB (4cpu) *)H ALPHA$K_AS1605020401 = 1361; (* AlphaServer 4100 5/266 2MB (1cpu) *)H ALPHA$K_AS1605020402 = 1362; (* AlphaServer 4100 5/266 2MB ( 2cpu) *)H ALPHA$K_AS1605020403 = 1363; (* AlphaServer 4100 5/266 2MB (3cpu) *)H ALPHA$K_AS1605020404 = 1364; (* AlphaServer 4100 5/266 2MB (4cpu) *)H ALPHA$K_AS1605010401 = 1365; (* AlphaServer 4100 5/266 2MB (1cpu) *)H ALPHA$K_AS1605010402 = 1366; (* AlphaServer 4100 5/266 2MB (2cpu) *)H ALPHA$K_AS1605010403 = 1367; (* AlphaServer 4100 5/266 2MB (3cpu) *)H ALPHA$K_AS1605010404 = 1368; (* AlphaServer 4100 5/266 2MB (4cpu) *)H ALPHA$K_AS1605020501 = 1369; (* AlphaServer 4100 5/300 2MB (1cpu) *)H ALPHA$K_AS1605020502 = 1370; (* AlphaServer 4100 5/300 2MB (2cpu) *)H ALPHA$K_AS1605020503 = 1371; (* AlphaServer 4100 5/300 2MB (3cpu) *)H ALPHA$K_AS1605020504 = 1372; (* AlphaServer 4100 5/300 2MB (4cpu) *)H ALPHA$K_AS1605010501 = 1373; (* AlphaServer 4100 5/300 2MB (1cpu) *)H ALPHA$K_AS1605010502 = 1374; (* AlphaServer 4100 5/300 2MB (2cpu) *)H ALPHA$K_AS1605010503 = 1375; (* AlphaServer 4100 5/300 2MB (3cpu) *)H ALPHA$K_AS1605010504 = 1376; (* Alph aServer 4100 5/300 2MB (4cpu) *)H ALPHA$K_AS1607020201 = 1377; (* AlphaServer 4100 5/400 2MB (1cpu) *)H ALPHA$K_AS1607020202 = 1378; (* AlphaServer 4100 5/400 2MB (2cpu) *)H ALPHA$K_AS1607020203 = 1379; (* AlphaServer 4100 5/400 2MB (3cpu) *)H ALPHA$K_AS1607020204 = 1380; (* AlphaServer 4100 5/400 2MB (4cpu) *)H ALPHA$K_AS1607010201 = 1381; (* AlphaServer 4100 5/400 2MB (1cpu) *)H ALPHA$K_AS1607010202 = 1382; (* AlphaServer 4100 5/400 2MB (2cpu) *)H ALPHA$K_AS1607010203 = 1383 ; (* AlphaServer 4100 5/400 2MB (3cpu) *)H ALPHA$K_AS1607010204 = 1384; (* AlphaServer 4100 5/400 2MB (4cpu) *)H ALPHA$K_AS1605020601 = 1385; (* AlphaServer 4100 5/266 4MB (1cpu) *)H ALPHA$K_AS1605020602 = 1386; (* AlphaServer 4100 5/266 4MB (2cpu) *)H ALPHA$K_AS1605020603 = 1387; (* AlphaServer 4100 5/266 4MB (3cpu) *)H ALPHA$K_AS1605020604 = 1388; (* AlphaServer 4100 5/266 4MB (4cpu) *)H ALPHA$K_AS1605010601 = 1389; (* AlphaServer 4100 5/266 4MB (1cpu) *)H ALPHA$K_AS16050 10602 = 1390; (* AlphaServer 4100 5/266 4MB (2cpu) *)H ALPHA$K_AS1605010603 = 1391; (* AlphaServer 4100 5/266 4MB (3cpu) *)H ALPHA$K_AS1605010604 = 1392; (* AlphaServer 4100 5/266 4MB (4cpu) *)H ALPHA$K_AS1605020701 = 1393; (* AlphaServer 4100 5/300 4MB (1cpu) *)H ALPHA$K_AS1605020702 = 1394; (* AlphaServer 4100 5/300 4MB (2cpu) *)H ALPHA$K_AS1605020703 = 1395; (* AlphaServer 4100 5/300 4MB (3cpu) *)H ALPHA$K_AS1605020704 = 1396; (* AlphaServer 4100 5/300 4MB (4cpu) *)H ALP HA$K_AS1605010701 = 1397; (* AlphaServer 4100 5/300 4MB (1cpu) *)H ALPHA$K_AS1605010702 = 1398; (* AlphaServer 4100 5/300 4MB (2cpu) *)H ALPHA$K_AS1605010703 = 1399; (* AlphaServer 4100 5/300 4MB (3cpu) *)H ALPHA$K_AS1605010704 = 1400; (* AlphaServer 4100 5/300 4MB (4cpu) *)H ALPHA$K_AS1607020301 = 1401; (* AlphaServer 4100 5/400 4MB (1cpu) *)H ALPHA$K_AS1607020302 = 1402; (* AlphaServer 4100 5/400 4MB (2cpu) *)H ALPHA$K_AS1607020303 = 1403; (* AlphaServer 4100 5/400 4MB (3c pu) *)H ALPHA$K_AS1607020304 = 1404; (* AlphaServer 4100 5/400 4MB (4cpu) *)H ALPHA$K_AS1607010301 = 1405; (* AlphaServer 4100 5/400 4MB (1cpu) *)H ALPHA$K_AS1607010302 = 1406; (* AlphaServer 4100 5/400 4MB (2cpu) *)H ALPHA$K_AS1607010303 = 1407; (* AlphaServer 4100 5/400 4MB (3cpu) *)H ALPHA$K_AS1607010304 = 1408; (* AlphaServer 4100 5/400 4MB (4cpu) *)H ALPHA$K_AS1605040001 = 1409; (* AlphaServer 4000 5/266 0MB (1cpu) *)H ALPHA$K_AS1605040002 = 1410; (* AlphaServer 4000 5 /266 0MB (2cpu) *)H ALPHA$K_AS1605030001 = 1411; (* AlphaServer 4000 5/266 0MB (1cpu) *)H ALPHA$K_AS1605030002 = 1412; (* AlphaServer 4000 5/266 0MB (2cpu) *)H ALPHA$K_AS1605040101 = 1413; (* AlphaServer 4000 5/300 0MB (1cpu) *)H ALPHA$K_AS1605040102 = 1414; (* AlphaServer 4000 5/300 0MB (2cpu) *)H ALPHA$K_AS1605030101 = 1415; (* AlphaServer 4000 5/300 0MB (1cpu) *)H ALPHA$K_AS1605030102 = 1416; (* AlphaServer 4000 5/300 0MB (2cpu) *)H ALPHA$K_AS1607040001 = 1417; (* AlphaS erver 4000 5/400 0MB (1cpu) *)H ALPHA$K_AS1607040002 = 1418; (* AlphaServer 4000 5/400 0MB (2cpu) *)H ALPHA$K_AS1607030001 = 1419; (* AlphaServer 4000 5/400 0MB (1cpu) *)H ALPHA$K_AS1607030002 = 1420; (* AlphaServer 4000 5/400 0MB (2cpu) *)H ALPHA$K_AS1605040201 = 1421; (* AlphaServer 4000 5/266 1MB (1cpu) *)H ALPHA$K_AS1605040202 = 1422; (* AlphaServer 4000 5/266 1MB (2cpu) *)H ALPHA$K_AS1605030201 = 1423; (* AlphaServer 4000 5/266 1MB (1cpu) *)H ALPHA$K_AS1605030202 = 1424;  (* AlphaServer 4000 5/266 1MB (2cpu) *)H ALPHA$K_AS1605040301 = 1425; (* AlphaServer 4000 5/300 1MB (1cpu) *)H ALPHA$K_AS1605040302 = 1426; (* AlphaServer 4000 5/300 1MB (2cpu) *)H ALPHA$K_AS1605030301 = 1427; (* AlphaServer 4000 5/300 1MB (1cpu) *)H ALPHA$K_AS1605030302 = 1428; (* AlphaServer 4000 5/300 1MB (2cpu) *)H ALPHA$K_AS1607040101 = 1429; (* AlphaServer 4000 5/400 1MB (1cpu) *)H ALPHA$K_AS1607040102 = 1430; (* AlphaServer 4000 5/400 1MB (2cpu) *)H ALPHA$K_AS1607030 101 = 1431; (* AlphaServer 4000 5/400 1MB (1cpu) *)H ALPHA$K_AS1607030102 = 1432; (* AlphaServer 4000 5/400 1MB (2cpu) *)H ALPHA$K_AS1605040401 = 1433; (* AlphaServer 4000 5/266 2MB (1cpu) *)H ALPHA$K_AS1605040402 = 1434; (* AlphaServer 4000 5/266 2MB (2cpu) *)H ALPHA$K_AS1605030401 = 1435; (* AlphaServer 4000 5/266 2MB (1cpu) *)H ALPHA$K_AS1605030402 = 1436; (* AlphaServer 4000 5/266 2MB (2cpu) *)H ALPHA$K_AS1605040501 = 1437; (* AlphaServer 4000 5/300 2MB (1cpu) *)H ALPHA $K_AS1605040502 = 1438; (* AlphaServer 4000 5/300 2MB (2cpu) *)H ALPHA$K_AS1605030501 = 1439; (* AlphaServer 4000 5/300 2MB (1cpu) *)H ALPHA$K_AS1605030502 = 1440; (* AlphaServer 4000 5/300 2MB (2cpu) *)H ALPHA$K_AS1607040201 = 1441; (* AlphaServer 4000 5/400 2MB (1cpu) *)H ALPHA$K_AS1607040202 = 1442; (* AlphaServer 4000 5/400 2MB (2cpu) *)H ALPHA$K_AS1607030201 = 1443; (* AlphaServer 4000 5/400 2MB (1cpu) *)H ALPHA$K_AS1607030202 = 1444; (* AlphaServer 4000 5/400 2MB (2cpu ) *)H ALPHA$K_AS1605040601 = 1445; (* AlphaServer 4000 5/266 4MB (1cpu) *)H ALPHA$K_AS1605040602 = 1446; (* AlphaServer 4000 5/266 4MB (2cpu) *)H ALPHA$K_AS1605030601 = 1447; (* AlphaServer 4000 5/266 4MB (1cpu) *)H ALPHA$K_AS1605030602 = 1448; (* AlphaServer 4000 5/266 4MB (2cpu) *)H ALPHA$K_AS1605040701 = 1449; (* AlphaServer 4000 5/300 4MB (1cpu) *)H ALPHA$K_AS1605040702 = 1450; (* AlphaServer 4000 5/300 4MB (2cpu) *)H ALPHA$K_AS1605030701 = 1451; (* AlphaServer 4000 5/3 00 4MB (1cpu) *)H ALPHA$K_AS1605030702 = 1452; (* AlphaServer 4000 5/300 4MB (2cpu) *)H ALPHA$K_AS1607040301 = 1453; (* AlphaServer 4000 5/400 4MB (1cpu) *)H ALPHA$K_AS1607040302 = 1454; (* AlphaServer 4000 5/400 4MB (2cpu) *)H ALPHA$K_AS1607030301 = 1455; (* AlphaServer 4000 5/400 4MB (1cpu) *)H ALPHA$K_AS1607030302 = 1456; (* AlphaServer 4000 5/400 4MB (2cpu) *)I ALPHA$K_AS1605060001 = 1457; (* AlphaServer 4000A 5/266 0MB (1cpu) *)I ALPHA$K_AS1605060002 = 1458; (* AlphaS erver 4000A 5/266 0MB (2cpu) *)I ALPHA$K_AS1605050001 = 1459; (* AlphaServer 4000A 5/266 0MB (1cpu) *)I ALPHA$K_AS1605050002 = 1460; (* AlphaServer 4000A 5/266 0MB (2cpu) *)I ALPHA$K_AS1605060101 = 1461; (* AlphaServer 4000A 5/300 0MB (1cpu) *)I ALPHA$K_AS1605060102 = 1462; (* AlphaServer 4000A 5/300 0MB (2cpu) *)I ALPHA$K_AS1605050101 = 1463; (* AlphaServer 4000A 5/300 0MB (1cpu) *)I ALPHA$K_AS1605050102 = 1464; (* AlphaServer 4000A 5/300 0MB (2cpu) *)I ALPHA$K_AS16070 60001 = 1465; (* AlphaServer 4000A 5/400 0MB (1cpu) *)I ALPHA$K_AS1607060002 = 1466; (* AlphaServer 4000A 5/400 0MB (2cpu) *)I ALPHA$K_AS1607050001 = 1467; (* AlphaServer 4000A 5/400 0MB (1cpu) *)I ALPHA$K_AS1607050002 = 1468; (* AlphaServer 4000A 5/400 0MB (2cpu) *)I ALPHA$K_AS1605060201 = 1469; (* AlphaServer 4000A 5/266 1MB (1cpu) *)I ALPHA$K_AS1605060202 = 1470; (* AlphaServer 4000A 5/266 1MB (2cpu) *)I ALPHA$K_AS1605050201 = 1471; (* AlphaServer 4000A 5/266 1MB (1 cpu) *)I ALPHA$K_AS1605050202 = 1472; (* AlphaServer 4000A 5/266 1MB (2cpu) *)I ALPHA$K_AS1605060301 = 1473; (* AlphaServer 4000A 5/300 1MB (1cpu) *)I ALPHA$K_AS1605060302 = 1474; (* AlphaServer 4000A 5/300 1MB (2cpu) *)I ALPHA$K_AS1605050301 = 1475; (* AlphaServer 4000A 5/300 1MB (1cpu) *)I ALPHA$K_AS1605050302 = 1476; (* AlphaServer 4000A 5/300 1MB (2cpu) *)I ALPHA$K_AS1607060101 = 1477; (* AlphaServer 4000A 5/400 1MB (1cpu) *)I ALPHA$K_AS1607060102 = 1478; (* Alph aServer 4000A 5/400 1MB (2cpu) *)I ALPHA$K_AS1607050101 = 1479; (* AlphaServer 4000A 5/400 1MB (1cpu) *)I ALPHA$K_AS1607050102 = 1480; (* AlphaServer 4000A 5/400 1MB (2cpu) *)I ALPHA$K_AS1605060401 = 1481; (* AlphaServer 4000A 5/266 2MB (1cpu) *)I ALPHA$K_AS1605060402 = 1482; (* AlphaServer 4000A 5/266 2MB (2cpu) *)I ALPHA$K_AS1605050401 = 1483; (* AlphaServer 4000A 5/266 2MB (1cpu) *)I ALPHA$K_AS1605050402 = 1484; (* AlphaServer 4000A 5/266 2MB (2cpu) *)I ALPHA$K_AS160 5060501 = 1485; (* AlphaServer 4000A 5/300 2MB (1cpu) *)I ALPHA$K_AS1605060502 = 1486; (* AlphaServer 4000A 5/300 2MB (2cpu) *)I ALPHA$K_AS1605050501 = 1487; (* AlphaServer 4000A 5/300 2MB (1cpu) *)I ALPHA$K_AS1605050502 = 1488; (* AlphaServer 4000A 5/300 2MB (2cpu) *)I ALPHA$K_AS1607060201 = 1489; (* AlphaServer 4000A 5/400 2MB (1cpu) *)I ALPHA$K_AS1607060202 = 1490; (* AlphaServer 4000A 5/400 2MB (2cpu) *)I ALPHA$K_AS1607050201 = 1491; (* AlphaServer 4000A 5/400 2MB  (1cpu) *)I ALPHA$K_AS1607050202 = 1492; (* AlphaServer 4000A 5/400 2MB (2cpu) *)I ALPHA$K_AS1605060601 = 1493; (* AlphaServer 4000A 5/266 4MB (1cpu) *)I ALPHA$K_AS1605060602 = 1494; (* AlphaServer 4000A 5/266 4MB (2cpu) *)I ALPHA$K_AS1605050601 = 1495; (* AlphaServer 4000A 5/266 4MB (1cpu) *)I ALPHA$K_AS1605050602 = 1496; (* AlphaServer 4000A 5/266 4MB (2cpu) *)I ALPHA$K_AS1605060701 = 1497; (* AlphaServer 4000A 5/300 4MB (1cpu) *)I ALPHA$K_AS1605060702 = 1498; (* Al phaServer 4000A 5/300 4MB (2cpu) *)I ALPHA$K_AS1605050701 = 1499; (* AlphaServer 4000A 5/300 4MB (1cpu) *)I ALPHA$K_AS1605050702 = 1500; (* AlphaServer 4000A 5/300 4MB (2cpu) *)I ALPHA$K_AS1607060301 = 1501; (* AlphaServer 4000A 5/400 4MB (1cpu) *)I ALPHA$K_AS1607060302 = 1502; (* AlphaServer 4000A 5/400 4MB (2cpu) *)I ALPHA$K_AS1607050301 = 1503; (* AlphaServer 4000A 5/400 4MB (1cpu) *)I ALPHA$K_AS1607050302 = 1504; (* AlphaServer 4000A 5/400 4MB (2cpu) *)G ALPHA$K_AS0 907010001 = 1505; (* AlphaServer 2000 5/375 (1cpu) *)G ALPHA$K_AS0907010002 = 1506; (* AlphaServer 2000 5/375 (2cpu) *)G ALPHA$K_AS0907010003 = 1507; (* AlphaServer 2000 5/375 (3cpu) *)G ALPHA$K_AS0907010004 = 1508; (* AlphaServer 2000 5/375 (4cpu) *)G ALPHA$K_AS0907020001 = 1509; (* AlphaServer 2100 5/375 (1cpu) *)G ALPHA$K_AS0907020002 = 1510; (* AlphaServer 2100 5/375 (2cpu) *)G ALPHA$K_AS0907020003 = 1511; (* AlphaServer 2100 5/375 (3cpu) *)G ALPHA$K_AS0907020004 = 1512; (* AlphaServer 2100 5/375 (4cpu) *)K ALPHA$K_AS0907030001 = 1513; (* AlphaServer 2100 5/375 (1cpu) (rack) *)K ALPHA$K_AS0907030002 = 1514; (* AlphaServer 2100 5/375 (2cpu) (rack) *)K ALPHA$K_AS0907030003 = 1515; (* AlphaServer 2100 5/375 (3cpu) (rack) *)K ALPHA$K_AS0907030004 = 1516; (* AlphaServer 2100 5/375 (4cpu) (rack) *)G ALPHA$K_AS0907010101 = 1517; (* AlphaServer 2000 5/400 (1cpu) *)G ALPHA$K_AS0907010102 = 1518; (* AlphaServe r 2000 5/400 (2cpu) *)G ALPHA$K_AS0907010103 = 1519; (* AlphaServer 2000 5/400 (3cpu) *)G ALPHA$K_AS0907010104 = 1520; (* AlphaServer 2000 5/400 (4cpu) *)G ALPHA$K_AS0907020101 = 1521; (* AlphaServer 2100 5/400 (1cpu) *)G ALPHA$K_AS0907020102 = 1522; (* AlphaServer 2100 5/400 (2cpu) *)G ALPHA$K_AS0907020103 = 1523; (* AlphaServer 2100 5/400 (3cpu) *)G ALPHA$K_AS0907020104 = 1524; (* AlphaServer 2100 5/400 (4cpu) *)K ALPHA$K_AS0907030101 = 1525; ( * AlphaServer 2100 5/400 (1cpu) (rack) *)K ALPHA$K_AS0907030102 = 1526; (* AlphaServer 2100 5/400 (2cpu) (rack) *)K ALPHA$K_AS0907030103 = 1527; (* AlphaServer 2100 5/400 (3cpu) (rack) *)K ALPHA$K_AS0907030104 = 1528; (* AlphaServer 2100 5/400 (4cpu) (rack) *)G ALPHA$K_AS1807010001 = 1529; (* AlphaServer 2000A 5/375 (1cpu) *)G ALPHA$K_AS1807010002 = 1530; (* AlphaServer 2000A 5/375 (2cpu) *)G ALPHA$K_AS1807010003 = 1531; (* AlphaServer 2000A 5/375 (3cpu) *)G ALPHA $K_AS1807010004 = 1532; (* AlphaServer 2000A 5/375 (4cpu) *)G ALPHA$K_AS1807020001 = 1533; (* AlphaServer 2100A 5/375 (1cpu) *)G ALPHA$K_AS1807020002 = 1534; (* AlphaServer 2100A 5/375 (2cpu) *)G ALPHA$K_AS1807020003 = 1535; (* AlphaServer 2100A 5/375 (3cpu) *)G ALPHA$K_AS1807020004 = 1536; (* AlphaServer 2100A 5/375 (4cpu) *)L ALPHA$K_AS1807030001 = 1537; (* AlphaServer 2100A 5/375 (1cpu) (rack) *)L ALPHA$K_AS1807030002 = 1538; (* AlphaServer 2100A 5/375 (2cp u) (rack) *)L ALPHA$K_AS1807030003 = 1539; (* AlphaServer 2100A 5/375 (3cpu) (rack) *)L ALPHA$K_AS1807030004 = 1540; (* AlphaServer 2100A 5/375 (4cpu) (rack) *)G ALPHA$K_AS1807010101 = 1541; (* AlphaServer 2000A 5/400 (1cpu) *)G ALPHA$K_AS1807010102 = 1542; (* AlphaServer 2000A 5/400 (2cpu) *)G ALPHA$K_AS1807010103 = 1543; (* AlphaServer 2000A 5/400 (3cpu) *)G ALPHA$K_AS1807010104 = 1544; (* AlphaServer 2000A 5/400 (4cpu) *)G ALPHA$K_AS1807020101 = 1545; (* Alph aServer 2100A 5/400 (1cpu) *)G ALPHA$K_AS1807020102 = 1546; (* AlphaServer 2100A 5/400 (2cpu) *)G ALPHA$K_AS1807020103 = 1547; (* AlphaServer 2100A 5/400 (3cpu) *)G ALPHA$K_AS1807020104 = 1548; (* AlphaServer 2100A 5/400 (4cpu) *)L ALPHA$K_AS1807030101 = 1549; (* AlphaServer 2100A 5/400 (1cpu) (rack) *)L ALPHA$K_AS1807030102 = 1550; (* AlphaServer 2100A 5/400 (2cpu) (rack) *)L ALPHA$K_AS1807030103 = 1551; (* AlphaServer 2100A 5/400 (3cpu) (rack) *)L ALPHA$K_AS18070 30104 = 1552; (* AlphaServer 2100A 5/400 (4cpu) (rack) *)G ALPHA$K_AS1406030001 = 1553; (* AlphaPCI64 275, EV45 2MB Cache *)G ALPHA$K_AS1E07010001 = 1554; (* Personal Workstation 433au *)G ALPHA$K_AS1E07020001 = 1555; (* Personal Workstation 466au *)G ALPHA$K_AS1E07030001 = 1556; (* Personal Workstation 500au *)G ALPHA$K_AS1E07040001 = 1557; (* Personal Workstation 533au *)G ALPHA$K_AS1B07030101 = 1558; (* AlphaServer 1000A 5/333 *)G ALPHA$K_AS1107050101 = 1559; (* AlphaServer 1000 5/333 *)G ALPHA$K_AS0C07040001 = 1560; (* AlphaServer 8200 5/440 (1cpu) *)G ALPHA$K_AS0C07040002 = 1561; (* AlphaServer 8200 5/440 (2cpu) *)G ALPHA$K_AS0C07040003 = 1562; (* AlphaServer 8200 5/440 (3cpu) *)G ALPHA$K_AS0C07040004 = 1563; (* AlphaServer 8200 5/440 (4cpu) *)G ALPHA$K_AS0C07040005 = 1564; (* AlphaServer 8200 5/440 (5cpu) *)G ALPHA$K_AS0C07040006 = 1565; (* AlphaServer 8200 5/440 (6c pu) *)G ALPHA$K_AS0C07050001 = 1566; (* AlphaServer 8400 5/440 (1cpu) *)G ALPHA$K_AS0C07050002 = 1567; (* AlphaServer 8400 5/440 (2cpu) *)G ALPHA$K_AS0C07050003 = 1568; (* AlphaServer 8400 5/440 (3cpu) *)G ALPHA$K_AS0C07050004 = 1569; (* AlphaServer 8400 5/440 (4cpu) *)G ALPHA$K_AS0C07050005 = 1570; (* AlphaServer 8400 5/440 (5cpu) *)G ALPHA$K_AS0C07050006 = 1571; (* AlphaServer 8400 5/440 (6cpu) *)G ALPHA$K_AS0C07050007 = 1572; (* AlphaServer 84 00 5/440 (7cpu) *)G ALPHA$K_AS0C07050008 = 1573; (* AlphaServer 8400 5/440 (8cpu) *)G ALPHA$K_AS0C07050009 = 1574; (* AlphaServer 8400 5/440 (9cpu) *)G ALPHA$K_AS0C0705000A = 1575; (* AlphaServer 8400 5/440 (10cpu) *)G ALPHA$K_AS0C0705000B = 1576; (* AlphaServer 8400 5/440 (11cpu) *)G ALPHA$K_AS0C0705000C = 1577; (* AlphaServer 8400 5/440 (12cpu) *)G ALPHA$K_AS1F05010001 = 1578; (* XXM, EV5 266 MHz *)G ALPHA$K_AS2007010001 = 1579; (* DI GITAL 21164 PICMG SBC *)H ALPHA$K_AS1B07030201 = 1580; (* AlphaServer 1000A 5/500 2MB Cache *)H ALPHA$K_AS1B07030301 = 1581; (* AlphaServer 1000A 5/500 8MB Cache *)G ALPHA$K_AS1107050201 = 1582; (* AlphaServer 1000 5/500 2MB Cache *)G ALPHA$K_AS1107050301 = 1583; (* AlphaServer 1000 5/500 8MB Cache *)G ALPHA$K_AS1B07040101 = 1584; (* AlphaServer 800 5/400 2MB Cache *)G ALPHA$K_AS1B07040201 = 1585; (* AlphaServer 800 5/500 2MB Cache *)G ALPHA$K_AS1A07060001 = 15 86; (* AlphaPC 164, EV56 466 MHz *)G ALPHA$K_AS1A07070001 = 1587; (* AlphaPC 164, EV56 500 MHz *)G ALPHA$K_AS2107000001 = 1588; (* AlphaVME 5/320, EV56 *)G ALPHA$K_AS2107010001 = 1589; (* AlphaVME 5/480, EV56 *)H ALPHA$K_AS1B07030401 = 1590; (* AlphaStation 600A 5/500 8MB Cache *)G ALPHA$K_AS0C0705000D = 1591; (* AlphaServer 8400 5/440 (13cpu) *)G ALPHA$K_AS0C0705000E = 1592; (* AlphaServer 8400 5/440 (14cpu) *)G ALPHA$K_AS0D0 6080101 = 1593; (* AlphaServer 300 4/266 *)O ALPHA$K_AS1607020401 = 1594; (* AlphaServer 4100 5/466 4MB (1cpu) (rack) *)O ALPHA$K_AS1607020402 = 1595; (* AlphaServer 4100 5/466 4MB (2cpu) (rack) *)O ALPHA$K_AS1607020403 = 1596; (* AlphaServer 4100 5/466 4MB (3cpu) (rack) *)O ALPHA$K_AS1607020404 = 1597; (* AlphaServer 4100 5/466 4MB (4cpu) (rack) *)S ALPHA$K_AS1607010401 = 1598; (* AlphaServer 4100 5/466 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607010402 = 1599;  (* AlphaServer 4100 5/466 4MB (2cpu) (pedestal) *)S ALPHA$K_AS1607010403 = 1600; (* AlphaServer 4100 5/466 4MB (3cpu) (pedestal) *)S ALPHA$K_AS1607010404 = 1601; (* AlphaServer 4100 5/466 4MB (4cpu) (pedestal) *)O ALPHA$K_AS1607020501 = 1602; (* AlphaServer 4100 5/533 4MB (1cpu) (rack) *)O ALPHA$K_AS1607020502 = 1603; (* AlphaServer 4100 5/533 4MB (2cpu) (rack) *)O ALPHA$K_AS1607020503 = 1604; (* AlphaServer 4100 5/533 4MB (3cpu) (rack) *)O ALPHA$K_AS1607020504 = 1605; ( * AlphaServer 4100 5/533 4MB (4cpu) (rack) *)S ALPHA$K_AS1607010501 = 1606; (* AlphaServer 4100 5/533 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607010502 = 1607; (* AlphaServer 4100 5/533 4MB (2cpu) (pedestal) *)S ALPHA$K_AS1607010503 = 1608; (* AlphaServer 4100 5/533 4MB (3cpu) (pedestal) *)S ALPHA$K_AS1607010504 = 1609; (* AlphaServer 4100 5/533 4MB (4cpu) (pedestal) *)O ALPHA$K_AS1607020601 = 1610; (* AlphaServer 4100 5/533 8MB (1cpu) (rack) *)O ALPHA$K_AS1607020602 = 1611;  (* AlphaServer 4100 5/533 8MB (2cpu) (rack) *)O ALPHA$K_AS1607020603 = 1612; (* AlphaServer 4100 5/533 8MB (3cpu) (rack) *)O ALPHA$K_AS1607020604 = 1613; (* AlphaServer 4100 5/533 8MB (4cpu) (rack) *)S ALPHA$K_AS1607010601 = 1614; (* AlphaServer 4100 5/533 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607010602 = 1615; (* AlphaServer 4100 5/533 8MB (2cpu) (pedestal) *)S ALPHA$K_AS1607010603 = 1616; (* AlphaServer 4100 5/533 8MB (3cpu) (pedestal) *)S ALPHA$K_AS1607010604 = 1617; ( * AlphaServer 4100 5/533 8MB (4cpu) (pedestal) *)O ALPHA$K_AS1607020701 = 1618; (* AlphaServer 4100 5/600 8MB (1cpu) (rack) *)O ALPHA$K_AS1607020702 = 1619; (* AlphaServer 4100 5/600 8MB (2cpu) (rack) *)O ALPHA$K_AS1607020703 = 1620; (* AlphaServer 4100 5/600 8MB (3cpu) (rack) *)O ALPHA$K_AS1607020704 = 1621; (* AlphaServer 4100 5/600 8MB (4cpu) (rack) *)S ALPHA$K_AS1607010701 = 1622; (* AlphaServer 4100 5/600 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607010702 = 1623; (* Alph aServer 4100 5/600 8MB (2cpu) (pedestal) *)S ALPHA$K_AS1607010703 = 1624; (* AlphaServer 4100 5/600 8MB (3cpu) (pedestal) *)S ALPHA$K_AS1607010704 = 1625; (* AlphaServer 4100 5/600 8MB (4cpu) (pedestal) *)O ALPHA$K_AS1607020801 = 1626; (* AlphaServer 4100 5/666 8MB (1cpu) (rack) *)O ALPHA$K_AS1607020802 = 1627; (* AlphaServer 4100 5/666 8MB (2cpu) (rack) *)O ALPHA$K_AS1607020803 = 1628; (* AlphaServer 4100 5/666 8MB (3cpu) (rack) *)O ALPHA$K_AS1607020804 = 1629; (* AlphaS erver 4100 5/666 8MB (4cpu) (rack) *)S ALPHA$K_AS1607010801 = 1630; (* AlphaServer 4100 5/666 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607010802 = 1631; (* AlphaServer 4100 5/666 8MB (2cpu) (pedestal) *)S ALPHA$K_AS1607010803 = 1632; (* AlphaServer 4100 5/666 8MB (3cpu) (pedestal) *)S ALPHA$K_AS1607010804 = 1633; (* AlphaServer 4100 5/666 8MB (4cpu) (pedestal) *)O ALPHA$K_AS1607040401 = 1634; (* AlphaServer 4000 5/466 4MB (1cpu) (rack) *)O ALPHA$K_AS1607040402 = 1635; (* Alph aServer 4000 5/466 4MB (2cpu) (rack) *)S ALPHA$K_AS1607030401 = 1636; (* AlphaServer 4000 5/466 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607030402 = 1637; (* AlphaServer 4000 5/466 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607040501 = 1638; (* AlphaServer 4000 5/533 4MB (1cpu) (rack) *)O ALPHA$K_AS1607040502 = 1639; (* AlphaServer 4000 5/533 4MB (2cpu) (rack) *)S ALPHA$K_AS1607030501 = 1640; (* AlphaServer 4000 5/533 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607030502 = 1641; (* AlphaS erver 4000 5/533 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607040601 = 1642; (* AlphaServer 4000 5/533 8MB (1cpu) (rack) *)O ALPHA$K_AS1607040602 = 1643; (* AlphaServer 4000 5/533 8MB (2cpu) (rack) *)S ALPHA$K_AS1607030601 = 1644; (* AlphaServer 4000 5/533 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607030602 = 1645; (* AlphaServer 4000 5/533 8MB (2cpu) (pedestal) *)O ALPHA$K_AS1607040701 = 1646; (* AlphaServer 4000 5/600 8MB (1cpu) (rack) *)O ALPHA$K_AS1607040702 = 1647; (* AlphaSer ver 4000 5/600 8MB (2cpu) (rack) *)S ALPHA$K_AS1607030701 = 1648; (* AlphaServer 4000 5/600 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607030702 = 1649; (* AlphaServer 4000 5/600 8MB (2cpu) (pedestal) *)O ALPHA$K_AS1607040801 = 1650; (* AlphaServer 4000 5/666 8MB (1cpu) (rack) *)O ALPHA$K_AS1607040802 = 1651; (* AlphaServer 4000 5/666 8MB (2cpu) (rack) *)S ALPHA$K_AS1607030801 = 1652; (* AlphaServer 4000 5/666 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607030802 = 1653; (* AlphaServe r 4000 5/666 8MB (2cpu) (pedestal) *)O ALPHA$K_AS1607060401 = 1654; (* AlphaServer 4000 5/466 4MB (1cpu) (rack) *)O ALPHA$K_AS1607060402 = 1655; (* AlphaServer 4000 5/466 4MB (2cpu) (rack) *)S ALPHA$K_AS1607050401 = 1656; (* AlphaServer 4000 5/466 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607050402 = 1657; (* AlphaServer 4000 5/466 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607060501 = 1658; (* AlphaServer 4000 5/533 4MB (1cpu) (rack) *)O ALPHA$K_AS1607060502 = 1659; (* AlphaServer  4000 5/533 4MB (2cpu) (rack) *)S ALPHA$K_AS1607050501 = 1660; (* AlphaServer 4000 5/533 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607050502 = 1661; (* AlphaServer 4000 5/533 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607060601 = 1662; (* AlphaServer 4000 5/533 8MB (1cpu) (rack) *)O ALPHA$K_AS1607060602 = 1663; (* AlphaServer 4000 5/533 8MB (2cpu) (rack) *)S ALPHA$K_AS1607050601 = 1664; (* AlphaServer 4000 5/533 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607050602 = 1665; (* AlphaServer 40 00 5/533 8MB (2cpu) (pedestal) *)O ALPHA$K_AS1607060701 = 1666; (* AlphaServer 4000 5/600 8MB (1cpu) (rack) *)O ALPHA$K_AS1607060702 = 1667; (* AlphaServer 4000 5/600 8MB (2cpu) (rack) *)S ALPHA$K_AS1607050701 = 1668; (* AlphaServer 4000 5/600 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607050702 = 1669; (* AlphaServer 4000 5/600 8MB (2cpu) (pedestal) *)O ALPHA$K_AS1607060801 = 1670; (* AlphaServer 4000 5/666 8MB (1cpu) (rack) *)O ALPHA$K_AS1607060802 = 1671; (* AlphaServer 4000 5/666 8MB (2cpu) (rack) *)S ALPHA$K_AS1607050801 = 1672; (* AlphaServer 4000 5/666 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607050802 = 1673; (* AlphaServer 4000 5/666 8MB (2cpu) (pedestal) *)G ALPHA$K_AS0C07060001 = 1674; (* AlphaServer 8200 5/622 (1cpu) *)G ALPHA$K_AS0C07060002 = 1674; (* AlphaServer 8200 5/622 (2cpu) *)G ALPHA$K_AS0C07060003 = 1674; (* AlphaServer 8200 5/622 (3cpu) *)G ALPHA$K_AS0C07060004 = 1674; (* AlphaServer 8200 5/622 (4cpu) *)G ALPHA$K _AS0C07060005 = 1674; (* AlphaServer 8200 5/622 (5cpu) *)G ALPHA$K_AS0C07060006 = 1674; (* AlphaServer 8200 5/622 (6cpu) *)G ALPHA$K_AS0C07070001 = 1680; (* AlphaServer 8400 5/622 (1cpu) *)G ALPHA$K_AS0C07070002 = 1681; (* AlphaServer 8400 5/622 (2cpu) *)G ALPHA$K_AS0C07070003 = 1682; (* AlphaServer 8400 5/622 (3cpu) *)G ALPHA$K_AS0C07070004 = 1683; (* AlphaServer 8400 5/622 (4cpu) *)G ALPHA$K_AS0C07070005 = 1684; (* AlphaServer 8400 5/622 (5cpu) * )G ALPHA$K_AS0C07070006 = 1685; (* AlphaServer 8400 5/622 (6cpu) *)G ALPHA$K_AS0C07070007 = 1686; (* AlphaServer 8400 5/622 (7cpu) *)G ALPHA$K_AS0C07070008 = 1687; (* AlphaServer 8400 5/622 (8cpu) *)G ALPHA$K_AS0C07070009 = 1688; (* AlphaServer 8400 5/622 (9cpu) *)G ALPHA$K_AS0C0707000A = 1689; (* AlphaServer 8400 5/622 (10cpu) *)G ALPHA$K_AS0C0707000B = 1690; (* AlphaServer 8400 5/622 (11cpu) *)G ALPHA$K_AS0C0707000C = 1691; (* AlphaServer 8400 5/622 (12cpu) *)G ALPHA$K_AS0C0707000D = 1692; (* AlphaServer 8400 5/622 (13cpu) *)G ALPHA$K_AS0C0707000E = 1693; (* AlphaServer 8400 5/622 (14cpu) *)G ALPHA$K_AS1A07080001 = 1694; (* AlphaPC 164LX 400, EV56 400 MHz *)G ALPHA$K_AS1A07090001 = 1695; (* AlphaPC 164LX 466, EV56 466 MHz *)G ALPHA$K_AS1A070A0001 = 1696; (* AlphaPC 164LX 533, EV56 533 MHz *)G ALPHA$K_AS1A070B0001 = 1697; (* AlphaPC 164LX 600, EV56 600 MHz *)G ALPHA$K_AS1A070C0001 = 1698; (* AlphaPC 16 4SX 400, EV56 400 MHz *)G ALPHA$K_AS1A070D0001 = 1699; (* AlphaPC 164SX 466, EV56 466 MHz *)G ALPHA$K_AS1A070E0001 = 1700; (* AlphaPC 164SX 533, EV56 533 MHz *)G ALPHA$K_AS1A070F0001 = 1701; (* AlphaPC 164SX 600, EV56 600 MHz *)G ALPHA$K_AS1E07050001 = 1702; (* Personal Workstation 566au *)G ALPHA$K_AS1E07060001 = 1703; (* Personal Workstation 600au *)G ALPHA$K_AS1E07070001 = 1704; (* Personal Workstation 633au *)G ALPHA$K_AS1E07080001 = 1705; ( * Personal Workstation 666au *)G ALPHA$K_AS1E07090001 = 1706; (* Personal Workstation 700au *)G ALPHA$K_AS1E070A0001 = 1707; (* Personal Workstation 733au *)G ALPHA$K_AS1E070B0001 = 1708; (* Personal Workstation 766au *)G ALPHA$K_AS1E070C0001 = 1709; (* Personal Workstation 800au *)G ALPHA$K_AS1E070D0001 = 1710; (* Personal Workstation 833au *)G ALPHA$K_AS1E070E0001 = 1711; (* Personal Workstation 866au *)G ALPHA$K_AS1E070F0001  = 1712; (* Personal Workstation 900au *)G ALPHA$K_AS1E07100001 = 1713; (* Personal Workstation 933au *)G ALPHA$K_AS1E07110001 = 1714; (* Personal Workstation 966au *)G ALPHA$K_AS1E07120001 = 1715; (* Personal Workstation 1000au *)G ALPHA$K_AS1E07130001 = 1716; (* Personal Workstation 466au *)G ALPHA$K_AS1E07140001 = 1717; (* Personal Workstation 533au *)G ALPHA$K_AS1E07150001 = 1718; (* Personal Workstation 600au *)G ALPHA$K_A S1E07160001 = 1719; (* Personal Workstation 666au *)G ALPHA$K_AS1E09140001 = 1720; (* Personal Workstation 466au *)G ALPHA$K_AS1E09140101 = 1721; (* Personal Workstation 550au *)O ALPHA$K_AS1605080001 = 1722; (* AlphaServer 1200 5/300 2MB (1cpu) (rack) *)O ALPHA$K_AS1605080002 = 1723; (* AlphaServer 1200 5/300 2MB (2cpu) (rack) *)S ALPHA$K_AS1605070001 = 1724; (* AlphaServer 1200 5/300 2MB (1cpu) (pedestal) *)S ALPHA$K_AS1605070002 = 1725; (* AlphaSer ver 1200 5/300 2MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080101 = 1726; (* AlphaServer 1200 5/400 4MB (1cpu) (rack) *)O ALPHA$K_AS1607080102 = 1727; (* AlphaServer 1200 5/400 4MB (2cpu) (rack) *)S ALPHA$K_AS1607070101 = 1728; (* AlphaServer 1200 5/400 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070102 = 1729; (* AlphaServer 1200 5/400 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080201 = 1730; (* AlphaServer 1200 5/466 4MB (1cpu) (rack) *)O ALPHA$K_AS1607080202 = 1731; (* AlphaServe r 1200 5/466 4MB (2cpu) (rack) *)S ALPHA$K_AS1607070201 = 1732; (* AlphaServer 1200 5/466 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070202 = 1733; (* AlphaServer 1200 5/466 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080301 = 1734; (* AlphaServer 1200 5/533 4MB (1cpu) (rack) *)O ALPHA$K_AS1607080302 = 1735; (* AlphaServer 1200 5/533 4MB (2cpu) (rack) *)S ALPHA$K_AS1607070301 = 1736; (* AlphaServer 1200 5/533 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070302 = 1737; (* AlphaServer  1200 5/533 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080401 = 1738; (* AlphaServer 1200 5/600 4MB (1cpu) (rack) *)O ALPHA$K_AS1607080402 = 1739; (* AlphaServer 1200 5/600 4MB (2cpu) (rack) *)S ALPHA$K_AS1607070401 = 1740; (* AlphaServer 1200 5/600 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070402 = 1741; (* AlphaServer 1200 5/600 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080501 = 1742; (* AlphaServer 1200 5/666 4MB (1cpu) (rack) *)O ALPHA$K_AS1607080502 = 1743; (* AlphaServer 12 00 5/666 4MB (2cpu) (rack) *)S ALPHA$K_AS1607070501 = 1744; (* AlphaServer 1200 5/666 4MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070502 = 1745; (* AlphaServer 1200 5/666 4MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080601 = 1746; (* AlphaServer 1200 5/533 8MB (1cpu) (rack) *)O ALPHA$K_AS1607080602 = 1747; (* AlphaServer 1200 5/533 8MB (2cpu) (rack) *)S ALPHA$K_AS1607070601 = 1748; (* AlphaServer 1200 5/533 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070602 = 1749; (* AlphaServer 1200 5/533 8MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080701 = 1750; (* AlphaServer 1200 5/600 8MB (1cpu) (rack) *)O ALPHA$K_AS1607080702 = 1751; (* AlphaServer 1200 5/600 8MB (2cpu) (rack) *)S ALPHA$K_AS1607070701 = 1752; (* AlphaServer 1200 5/600 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070702 = 1753; (* AlphaServer 1200 5/600 8MB (2cpu) (pedestal) *)O ALPHA$K_AS1607080801 = 1754; (* AlphaServer 1200 5/666 8MB (1cpu) (rack) *)O ALPHA$K_AS1607080802 = 1755; (* AlphaServer 1200 5 /666 8MB (2cpu) (rack) *)S ALPHA$K_AS1607070801 = 1756; (* AlphaServer 1200 5/666 8MB (1cpu) (pedestal) *)S ALPHA$K_AS1607070802 = 1757; (* AlphaServer 1200 5/666 8MB (2cpu) (pedestal) *)P ALPHA$K_AS16070A0101 = 1758; (* AlphaStation 1200 5/400 4MB (1cpu) (rack) *)P ALPHA$K_AS16070A0102 = 1759; (* AlphaStation 1200 5/400 4MB (2cpu) (rack) *)T ALPHA$K_AS1607090101 = 1760; (* AlphaStation 1200 5/400 4MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090102 = 1761; (* AlphaStation 1200 5/ 400 4MB (2cpu) (pedestal) *)P ALPHA$K_AS16070A0201 = 1762; (* AlphaStation 1200 5/466 4MB (1cpu) (rack) *)P ALPHA$K_AS16070A0202 = 1763; (* AlphaStation 1200 5/466 4MB (2cpu) (rack) *)T ALPHA$K_AS1607090201 = 1764; (* AlphaStation 1200 5/466 4MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090202 = 1765; (* AlphaStation 1200 5/466 4MB (2cpu) (pedestal) *)P ALPHA$K_AS16070A0301 = 1766; (* AlphaStation 1200 5/533 4MB (1cpu) (rack) *)P ALPHA$K_AS16070A0302 = 1767; (* AlphaStation 1200 5/53 3 4MB (2cpu) (rack) *)T ALPHA$K_AS1607090301 = 1768; (* AlphaStation 1200 5/533 4MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090302 = 1769; (* AlphaStation 1200 5/533 4MB (2cpu) (pedestal) *)P ALPHA$K_AS16070A0401 = 1770; (* AlphaStation 1200 5/600 4MB (1cpu) (rack) *)P ALPHA$K_AS16070A0402 = 1771; (* AlphaStation 1200 5/600 4MB (2cpu) (rack) *)T ALPHA$K_AS1607090401 = 1772; (* AlphaStation 1200 5/600 4MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090402 = 1773; (* AlphaStation 1200 5/600  4MB (2cpu) (pedestal) *)P ALPHA$K_AS16070A0501 = 1774; (* AlphaStation 1200 5/666 4MB (1cpu) (rack) *)P ALPHA$K_AS16070A0502 = 1775; (* AlphaStation 1200 5/666 4MB (2cpu) (rack) *)T ALPHA$K_AS1607090501 = 1776; (* AlphaStation 1200 5/666 4MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090502 = 1777; (* AlphaStation 1200 5/666 4MB (2cpu) (pedestal) *)P ALPHA$K_AS16070A0601 = 1778; (* AlphaStation 1200 5/533 8MB (1cpu) (rack) *)P ALPHA$K_AS16070A0602 = 1779; (* AlphaStation 1200 5/533 8M B (2cpu) (rack) *)T ALPHA$K_AS1607090601 = 1780; (* AlphaStation 1200 5/533 8MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090602 = 1781; (* AlphaStation 1200 5/533 8MB (2cpu) (pedestal) *)P ALPHA$K_AS16070A0701 = 1782; (* AlphaStation 1200 5/600 8MB (1cpu) (rack) *)P ALPHA$K_AS16070A0702 = 1783; (* AlphaStation 1200 5/600 8MB (2cpu) (rack) *)T ALPHA$K_AS1607090701 = 1784; (* AlphaStation 1200 5/600 8MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090702 = 1785; (* AlphaStation 1200 5/600 8MB  (2cpu) (pedestal) *)P ALPHA$K_AS16070A0801 = 1786; (* AlphaStation 1200 5/666 8MB (1cpu) (rack) *)P ALPHA$K_AS16070A0802 = 1787; (* AlphaStation 1200 5/666 8MB (2cpu) (rack) *)T ALPHA$K_AS1607090801 = 1788; (* AlphaStation 1200 5/666 8MB (1cpu) (pedestal) *)T ALPHA$K_AS1607090802 = 1789; (* AlphaStation 1200 5/666 8MB (2cpu) (pedestal) *)G ALPHA$K_AS1E07190001 = 1790; (* Personal Workstation 433au *)G ALPHA$K_AS1E071A0001 = 1791; (* Personal Workstation 500au *)G ALPHA$K_AS1E071B0001 = 1792; (* Personal Workstation 600au *)G ALPHA$K_AS0C07080001 = 1793; (* AlphaServer 8200 5/625 (1cpu) *)G ALPHA$K_AS0C07080002 = 1794; (* AlphaServer 8200 5/625 (2cpu) *)G ALPHA$K_AS0C07080003 = 1795; (* AlphaServer 8200 5/625 (3cpu) *)G ALPHA$K_AS0C07080004 = 1796; (* AlphaServer 8200 5/625 (4cpu) *)G ALPHA$K_AS0C07080005 = 1797; (* AlphaServer 8200 5/625 (5cpu) *)G ALPHA$K_AS0C07080006 = 1798; (* AlphaServer 8200 5/625 (6c pu) *)G ALPHA$K_AS0C07090001 = 1799; (* AlphaServer 8400 5/625 (1cpu) *)G ALPHA$K_AS0C07090002 = 1800; (* AlphaServer 8400 5/625 (2cpu) *)G ALPHA$K_AS0C07090003 = 1801; (* AlphaServer 8400 5/625 (3cpu) *)G ALPHA$K_AS0C07090004 = 1802; (* AlphaServer 8400 5/625 (4cpu) *)G ALPHA$K_AS0C07090005 = 1803; (* AlphaServer 8400 5/625 (5cpu) *)G ALPHA$K_AS0C07090006 = 1804; (* AlphaServer 8400 5/625 (6cpu) *)G ALPHA$K_AS0C07090007 = 1805; (* AlphaServer 84 00 5/625 (7cpu) *)G ALPHA$K_AS0C07090008 = 1806; (* AlphaServer 8400 5/625 (8cpu) *)G ALPHA$K_AS0C07090009 = 1807; (* AlphaServer 8400 5/625 (9cpu) *)G ALPHA$K_AS0C0709000A = 1808; (* AlphaServer 8400 5/625 (10cpu) *)G ALPHA$K_AS0C0709000B = 1809; (* AlphaServer 8400 5/625 (11cpu) *)G ALPHA$K_AS0C0709000C = 1810; (* AlphaServer 8400 5/625 (12cpu) *)G ALPHA$K_AS0C0709000D = 1811; (* AlphaServer 8400 5/625 (13cpu) *)G ALPHA$K_AS0C0709000E = 1812; (* Al phaServer 8400 5/625 (14cpu) *)] ALPHA$K_AS2208050001 = 1813; (* AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 8-slot MMB) *)G ALPHA$K_AS2208050002 = 1814; (* AlphaServer ES40 6/500 (2cpu) *)G ALPHA$K_AS2208050003 = 1815; (* AlphaServer ES40 6/500 (3cpu) *)G ALPHA$K_AS2208050004 = 1816; (* AlphaServer ES40 6/500 (4cpu) *)] ALPHA$K_AS2208050101 = 1817; (* AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 8-slot MMB) *)G ALPHA$K_AS2208050102 = 1818; (* AlphaServer ES40 6/6 67 (2cpu) *)G ALPHA$K_AS2208050103 = 1819; (* AlphaServer ES40 6/667 (3cpu) *)G ALPHA$K_AS2208050104 = 1820; (* AlphaServer ES40 6/667 (4cpu) *)L ALPHA$K_AS2208050201 = 1821; (* Professional Workstation XP1000 6/500 *)M ALPHA$K_AS220B090001 = 1822; (* Professional Workstation XP1000 67/667 *)G ALPHA$K_AS1E071C0001 = 1823; (* Personal Workstation 466au *)G ALPHA$K_AS1E071D0001 = 1824; (* Personal Workstation 533au *)G ALPHA$K_AS1E071E0001 = 1825; ( * Personal Workstation 600au *)G ALPHA$K_AS1E071F0001 = 1826; (* Personal Workstation 666au *)G ALPHA$K_AS1E07200001 = 1827; (* Personal Workstation 700au *)G ALPHA$K_AS1E07210001 = 1828; (* Personal Workstation 733au *)G ALPHA$K_AS1E07220001 = 1829; (* Personal Workstation 767au *)G ALPHA$K_AS1E07230001 = 1830; (* Personal Workstation 800au *)G ALPHA$K_AS1E07240001 = 1831; (* Personal Workstation 833au *)G ALPHA$K_AS1E07250001  = 1832; (* Personal Workstation 867au *)G ALPHA$K_AS1E07260001 = 1833; (* Personal Workstation 900au *)G ALPHA$K_AS1E07270001 = 1834; (* Personal Workstation 933au *)G ALPHA$K_AS1E07280001 = 1835; (* Personal Workstation 967au *)G ALPHA$K_AS1E07290001 = 1836; (* Personal Workstation 1000au *)G ALPHA$K_AS2508010001 = 1837; (* SMARTengine Alpha 21264 SBC *)G ALPHA$K_AS2208060001 = 1838; (* AlphaServer DS20 6/500 *)G ALPHA$K_A S2208070001 = 1839; (* AlphaServer DS10 6/466 *)G ALPHA$K_AS2208080001 = 1840; (* AlphaServer DS20E 6/500 *)G ALPHA$K_AS0C080A0001 = 1841; (* AlphaServer GS60 6/525 (1cpu) *)G ALPHA$K_AS0C080A0002 = 1842; (* AlphaServer GS60 6/525 (2cpu) *)G ALPHA$K_AS0C080A0003 = 1843; (* AlphaServer GS60 6/525 (3cpu) *)G ALPHA$K_AS0C080A0004 = 1844; (* AlphaServer GS60 6/525 (4cpu) *)G ALPHA$K_AS0C080A0005 = 1845; (* AlphaServer GS60 6/525 (5cpu) *) G ALPHA$K_AS0C080A0006 = 1846; (* AlphaServer GS60 6/525 (6cpu) *)G ALPHA$K_AS0C080B0001 = 1847; (* AlphaServer GS140 6/525 (1cpu) *)G ALPHA$K_AS0C080B0002 = 1848; (* AlphaServer GS140 6/525 (2cpu) *)G ALPHA$K_AS0C080B0003 = 1849; (* AlphaServer GS140 6/525 (3cpu) *)G ALPHA$K_AS0C080B0004 = 1850; (* AlphaServer GS140 6/525 (4cpu) *)G ALPHA$K_AS0C080B0005 = 1851; (* AlphaServer GS140 6/525 (5cpu) *)G ALPHA$K_AS0C080B0006 = 1852; (* AlphaServer GS140 6/525  (6cpu) *)G ALPHA$K_AS0C080B0007 = 1853; (* AlphaServer GS140 6/525 (7cpu) *)G ALPHA$K_AS0C080B0008 = 1854; (* AlphaServer GS140 6/525 (8cpu) *)G ALPHA$K_AS0C080B0009 = 1855; (* AlphaServer GS140 6/525 (9cpu) *)G ALPHA$K_AS0C080B000A = 1856; (* AlphaServer GS140 6/525 (10cpu) *)G ALPHA$K_AS0C080B000B = 1857; (* AlphaServer GS140 6/525 (11cpu) *)G ALPHA$K_AS0C080B000C = 1858; (* AlphaServer GS140 6/525 (12cpu) *)G ALPHA$K_AS0C080B000D = 1859; (* AlphaServer  GS140 6/525 (13cpu) *)G ALPHA$K_AS0C080B000E = 1860; (* AlphaServer GS140 6/525 (14cpu) *)\ ALPHA$K_AS2208050301 = 1861; (* AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 8-slot MMB) *)G ALPHA$K_AS2208050302 = 1862; (* AlphaServer ES40 6/500 (2cpu) *)G ALPHA$K_AS2208050303 = 1863; (* AlphaServer ES40 6/500 (3cpu) *)G ALPHA$K_AS2208050304 = 1864; (* AlphaServer ES40 6/500 (4cpu) *)\ ALPHA$K_AS2208050401 = 1865; (* AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 8-slot MMB)  *)G ALPHA$K_AS2208050402 = 1866; (* AlphaServer ES40 6/667 (2cpu) *)G ALPHA$K_AS2208050403 = 1867; (* AlphaServer ES40 6/667 (3cpu) *)G ALPHA$K_AS2208050404 = 1868; (* AlphaServer ES40 6/667 (4cpu) *)\ ALPHA$K_AS2208050501 = 1869; (* AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 4-slot MMB) *)G ALPHA$K_AS2208050502 = 1870; (* AlphaServer ES40 6/500 (2cpu) *)G ALPHA$K_AS2208050503 = 1871; (* AlphaServer ES40 6/500 (3cpu) *)G ALPHA$K_AS2208050504 = 1872; (* Al phaServer ES40 6/500 (4cpu) *)\ ALPHA$K_AS2208050601 = 1873; (* AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 4-slot MMB) *)G ALPHA$K_AS2208050602 = 1874; (* AlphaServer ES40 6/667 (2cpu) *)G ALPHA$K_AS2208050603 = 1875; (* AlphaServer ES40 6/667 (3cpu) *)G ALPHA$K_AS2208050604 = 1876; (* AlphaServer ES40 6/667 (4cpu) *)G ALPHA$K_AS2107040001 = 1877; (* AlphaVME 5/480A, 5/480U *)G ALPHA$K_AS2107050001 = 1878; (* AlphaVME 5/320U *)G ALPHA $K_AS2208070101 = 1879; (* AlphaStation XP900, DS10, 6/466 *)G ALPHA$K_AS0C080C0001 = 1880; (* AlphaServer GS60e 6/525 (1cpu) *)G ALPHA$K_AS0C080C0002 = 1881; (* AlphaServer GS60e 6/525 (2cpu) *)G ALPHA$K_AS0C080C0003 = 1882; (* AlphaServer GS60e 6/525 (3cpu) *)G ALPHA$K_AS0C080C0004 = 1883; (* AlphaServer GS60e 6/525 (4cpu) *)G ALPHA$K_AS0C080C0005 = 1884; (* AlphaServer GS60e 6/525 (5cpu) *)G ALPHA$K_AS0C080C0006 = 1885; (* AlphaServer GS60e 6/525 (6cpu)  *)G ALPHA$K_AS0C080C0007 = 1886; (* AlphaServer GS60e 6/525 (7cpu) *)G ALPHA$K_AS0C080C0008 = 1887; (* AlphaServer GS60e 6/525 (8cpu) *)G ALPHA$K_AS0C0B0D0001 = 1890; (* AlphaServer GS60 67/700 (1cpu) *)G ALPHA$K_AS0C0B0D0002 = 1891; (* AlphaServer GS60 67/700 (2cpu) *)G ALPHA$K_AS0C0B0D0003 = 1892; (* AlphaServer GS60 67/700 (3cpu) *)G ALPHA$K_AS0C0B0D0004 = 1893; (* AlphaServer GS60 67/700 (4cpu) *)G ALPHA$K_AS0C0B0D0005 = 1894; (* AlphaServer GS60 67/ 700 (5cpu) *)G ALPHA$K_AS0C0B0D0006 = 1895; (* AlphaServer GS60 67/700 (6cpu) *)G ALPHA$K_AS0C0B0E0001 = 1896; (* AlphaServer GS140 67/700 (1cpu) *)G ALPHA$K_AS0C0B0E0002 = 1897; (* AlphaServer GS140 67/700 (2cpu) *)G ALPHA$K_AS0C0B0E0003 = 1898; (* AlphaServer GS140 67/700 (3cpu) *)G ALPHA$K_AS0C0B0E0004 = 1899; (* AlphaServer GS140 67/700 (4cpu) *)G ALPHA$K_AS0C0B0E0005 = 1900; (* AlphaServer GS140 67/700 (5cpu) *)G ALPHA$K_AS0C0B0E0006 = 1901; (* AlphaSer ver GS140 67/700 (6cpu) *)G ALPHA$K_AS0C0B0E0007 = 1902; (* AlphaServer GS140 67/700 (7cpu) *)G ALPHA$K_AS0C0B0E0008 = 1903; (* AlphaServer GS140 67/700 (8cpu) *)G ALPHA$K_AS0C0B0E0009 = 1904; (* AlphaServer GS140 67/700 (9cpu) *)G ALPHA$K_AS0C0B0E000A = 1905; (* AlphaServer GS140 67/700 (10cpu) *)G ALPHA$K_AS0C0B0E000B = 1906; (* AlphaServer GS140 67/700 (11cpu) *)G ALPHA$K_AS0C0B0E000C = 1907; (* AlphaServer GS140 67/700 (12cpu) *)G ALPHA$K_AS0C0B0E000D = 1908;  (* AlphaServer GS140 67/700 (13cpu) *)G ALPHA$K_AS0C0B0E000E = 1909; (* AlphaServer GS140 67/700 (14cpu) *)G ALPHA$K_AS0C0B0F0001 = 1910; (* AlphaServer GS60e 67/700 (1cpu) *)G ALPHA$K_AS0C0B0F0002 = 1911; (* AlphaServer GS60e 67/700 (2cpu) *)G ALPHA$K_AS0C0B0F0003 = 1912; (* AlphaServer GS60e 67/700 (3cpu) *)G ALPHA$K_AS0C0B0F0004 = 1913; (* AlphaServer GS60e 67/700 (4cpu) *)G ALPHA$K_AS0C0B0F0005 = 1914; (* AlphaServer GS60e 67/700 (5cpu) *)G ALPHA$K_AS0C0B0F000 6 = 1915; (* AlphaServer GS60e 67/700 (6cpu) *)G ALPHA$K_AS0C0B0F0007 = 1916; (* AlphaServer GS60e 67/700 (7cpu) *)G ALPHA$K_AS0C0B0F0008 = 1917; (* AlphaServer GS60e 67/700 (8cpu) *)O ALPHA$K_AS2208060002 = 1920; (* AlphaServer DS20 6/500 (2cpu) (pedestal) *)K ALPHA$K_AS2208080002 = 1921; (* AlphaServer DS20 6/500 (2cpu) (rack) *)M ALPHA$K_AS220B050001 = 1822; (* Professional Workstation XP1000 67/750 *)] ALPHA$K_AS2208050701 = 1923; (* AlphaServer ES40 6/500 (1cpu , 10-slot PCI, 4-slot MMB) *)G ALPHA$K_AS2208050702 = 1924; (* AlphaServer ES40 6/500 (2cpu) *)G ALPHA$K_AS2208050703 = 1925; (* AlphaServer ES40 6/500 (3cpu) *)G ALPHA$K_AS2208050704 = 1926; (* AlphaServer ES40 6/500 (4cpu) *)] ALPHA$K_AS2208050801 = 1927; (* AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot MMB) *)G ALPHA$K_AS2208050802 = 1928; (* AlphaServer ES40 6/667 (2cpu) *)G ALPHA$K_AS2208050803 = 1929; (* AlphaServer ES40 6/667 (3cpu) *)G ALPHA$K _AS2208050804 = 1930; (* AlphaServer ES40 6/667 (4cpu) *)] ALPHA$K_AS2208050901 = 1931; (* AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 4-slot MMB) *)G ALPHA$K_AS2208050902 = 1932; (* AlphaServer ES40 6/500 (2cpu) *)G ALPHA$K_AS2208050903 = 1933; (* AlphaServer ES40 6/500 (3cpu) *)G ALPHA$K_AS2208050904 = 1934; (* AlphaServer ES40 6/500 (4cpu) *)] ALPHA$K_AS2208050A01 = 1935; (* AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot MMB) *)G ALPHA$K_AS2208050A02 = 19 36; (* AlphaServer ES40 6/667 (2cpu) *)G ALPHA$K_AS2208050A03 = 1937; (* AlphaServer ES40 6/667 (3cpu) *)G ALPHA$K_AS2208050A04 = 1938; (* AlphaServer ES40 6/667 (4cpu) *)M ALPHA$K_AS220B080001 = 1939; (* AlphaServer DS20E 67/667 (1cpu) (rack) *)M ALPHA$K_AS220B080002 = 1940; (* AlphaServer DS20E 67/667 (2cpu) (rack) *)M ALPHA$K_AS2208080101 = 1941; (* AlphaStation DS20E 6/500 (1cpu) (rack) *)M ALPHA$K_AS2208080102 = 1942; (* AlphaStation DS20E 6/500 (2cpu) (r ack) *)N ALPHA$K_AS220B080101 = 1943; (* AlphaStation DS20E 67/667 (1cpu) (rack) *)N ALPHA$K_AS220B080102 = 1944; (* AlphaStation DS20E 67/667 (2cpu) (rack) *)` ALPHA$K_AS2208050B01 = 1945; (* AlphaStation XP4000 6/500 (1cpu) (6-slot PCI, 4-slot MMB) *)G ALPHA$K_AS2208050B02 = 1946; (* AlphaStation XP4000 6/500 (2cpu) *)G ALPHA$K_AS2208050B03 = 1947; (* AlphaStation XP4000 6/500 (3cpu) *)G ALPHA$K_AS2208050B04 = 1948; (* AlphaStation XP4000 6/500 (4cpu) *)_ ALPHA$K_AS220B0 50101 = 1949; (* AlphaStation ES40 67/667 (1cpu) (6-slot PCI, 4-slot MMB) *)G ALPHA$K_AS220B050102 = 1950; (* AlphaStation ES40 67/667 (2cpu) *)G ALPHA$K_AS220B050103 = 1951; (* AlphaStation ES40 67/667 (3cpu) *)G ALPHA$K_AS220B050104 = 1952; (* AlphaStation ES40 67/667 (4cpu) *)a ALPHA$K_AS2208050C01 = 1953; (* AlphaStation XP4000 6/500 (1cpu) (10-slot PCI, 8-slot MMB) *)G ALPHA$K_AS2208050C02 = 1954; (* AlphaStation XP4000 6/500 (2cpu) *)G ALPHA$K_AS2208050C03 = 1955 ; (* AlphaStation XP4000 6/500 (3cpu) *)G ALPHA$K_AS2208050C04 = 1956; (* AlphaStation XP4000 6/500 (4cpu) *)` ALPHA$K_AS220B050201 = 1957; (* AlphaStation ES40 67/667 (1cpu) (10-slot PCI, 8-slot MMB) *)G ALPHA$K_AS220B050202 = 1958; (* AlphaStation ES40 67/667 (2cpu) *)G ALPHA$K_AS220B050203 = 1959; (* AlphaStation ES40 67/667 (3cpu) *)G ALPHA$K_AS220B050204 = 1960; (* AlphaStation ES40 67/667 (4cpu) *)G ALPHA$K_AS2208070201 = 1961; (* AlphaServer DS10L 6/466  *)G ALPHA$K_AS220B070001 = 1962; (* AlphaServer DS10L 67/616 *)G ALPHA$K_AS220B070101 = 1962; (* AlphaStation DS10 67/616 *)N ALPHA$K_AS220D080001 = 1964; (* AlphaServer DS20E 68A/833 (1cpu) (rack) *)N ALPHA$K_AS220D080002 = 1965; (* AlphaServer DS20E 68A/833 (2cpu) (rack) *)G ALPHA$K_AS230B080000 = 1966; (* AlphaServer GS40 67/728 *)G ALPHA$K_AS230B080100 = 1967; (* AlphaServer GS80 67/728 *)G ALPHA$K_AS230B080200 = 1968; (* AlphaS erver GS160 67/728 *)G ALPHA$K_AS230B080300 = 1969; (* AlphaServer GS320 67/728 *)G ALPHA$K_AS220B070201 = 1970; (* AlphaServer DS10 67/616 *)K ALPHA$K_AS260C010001 = 1971; (* AlphaServer ES45/3B 68CB/1000 (1cpu) *)K ALPHA$K_AS260C010002 = 1972; (* AlphaServer ES45/3B 68CB/1000 (2cpu) *)K ALPHA$K_AS260C010003 = 1973; (* AlphaServer ES45/3B 68CB/1000 (3cpu) *)K ALPHA$K_AS260C010004 = 1974; (* AlphaServer ES45/3B 68CB/1000 (4cpu) *)N ALPHA$K_AS260 C010101 = 1975; (* AlphaServer ES45/2, 2B 68CB/1000 (1cpu) *)N ALPHA$K_AS260C010102 = 1976; (* AlphaServer ES45/2, 2B 68CB/1000 (2cpu) *)N ALPHA$K_AS260C010103 = 1977; (* AlphaServer ES45/2, 2B 68CB/1000 (3cpu) *)N ALPHA$K_AS260C010104 = 1978; (* AlphaServer ES45/2, 2B 68CB/1000 (4cpu) *)H ALPHA$K_AS260D020002 = 1979; (* AlphaServer TS202c 68A/933 (2cpu) *)H ALPHA$K_AS260D030001 = 1980; (* AlphaServer TS212c 68A/933 (1cpu) *)H ALPHA$K_AS260D030002 = 1981; (* AlphaServer TS21 2c 68A/933 (2cpu) *)R ALPHA$K_AS220D080101 = 1982; (* AlphaServer DS20E 68A/833 (1cpu) (pedestal) *)R ALPHA$K_AS220D080102 = 1983; (* AlphaServer DS20E 68A/833 (2cpu) (pedestal) *)T ALPHA$K_AS220C050001 = 1984; (* AlphaStation ES40 68/833 (1cpu) (10-slot PCI) *)G ALPHA$K_AS220C050002 = 1985; (* AlphaStation ES40 68/833 (2cpu) *)G ALPHA$K_AS220C050003 = 1986; (* AlphaStation ES40 68/833 (3cpu) *)G ALPHA$K_AS220C050004 = 1987; (* AlphaStation ES40 68/833 (4cpu) *)S ALPHA$K _AS220C050101 = 1988; (* AlphaStation ES40 68/833 (1cpu) (6-slot PCI) *)G ALPHA$K_AS220C050102 = 1989; (* AlphaStation ES40 68/833 (2cpu) *)G ALPHA$K_AS220C050103 = 1990; (* AlphaStation ES40 68/833 (3cpu) *)G ALPHA$K_AS220C050104 = 1991; (* AlphaStation ES40 68/833 (4cpu) *)H ALPHA$K_AS260C040101 = 1992; (* AlphaServer DS25 68CB/1000 (1cpu) *)I ALPHA$K_AS260C040201 = 1993; (* AlphaStation DS25 68CB/1000 (1cpu) *)H ALPHA$K_AS260C040102 = 1994; (* AlphaServer DS25 68C B/1000 (1cpu) *)I ALPHA$K_AS260C040202 = 1995; (* AlphaStation DS25 68CB/1000 (1cpu) *)K ALPHA$K_AS260C010201 = 2002; (* AlphaServer ES45/1B 68CB/1000 (1cpu) *)K ALPHA$K_AS260C010202 = 2003; (* AlphaServer ES45/1B 68CB/1000 (2cpu) *)K ALPHA$K_AS260C010203 = 2004; (* AlphaServer ES45/1B 68CB/1000 (3cpu) *)K ALPHA$K_AS260C010204 = 2005; (* AlphaServer ES45/1B 68CB/1000 (4cpu) *)R ALPHA$K_AS220D0C0002 = 2006; (* AlphaServer DS20L, API CS20, 68A/833 (2cpu) *)J ALPHA$K_AS260C0 20002 = 2007; (* AlphaServer TS202c 68CB/1250 (2cpu) *)T ALPHA$K_AS220C050201 = 2008; (* AlphaStation TS40 68/833 (1cpu) (14-slot PCI) *)G ALPHA$K_AS220C050202 = 2009; (* AlphaStation TS40 68/833 (2cpu) *)G ALPHA$K_AS220C050203 = 2010; (* AlphaStation TS40 68/833 (3cpu) *)G ALPHA$K_AS220C050204 = 2011; (* AlphaStation TS40 68/833 (4cpu) *)K ALPHA$K_AS260C010301 = 2013; (* AlphaServer ES45/3B 68CB/1250 (1cpu) *)K ALPHA$K_AS260C010302 = 2014; (* AlphaServer ES45/3B 68CB /1250 (2cpu) *)K ALPHA$K_AS260C010303 = 2015; (* AlphaServer ES45/3B 68CB/1250 (3cpu) *)K ALPHA$K_AS260C010304 = 2016; (* AlphaServer ES45/3B 68CB/1250 (4cpu) *)N ALPHA$K_AS260C010401 = 2017; (* AlphaServer ES45/2, 2B 68CB/1250 (1cpu) *)N ALPHA$K_AS260C010402 = 2018; (* AlphaServer ES45/2, 2B 68CB/1250 (2cpu) *)N ALPHA$K_AS260C010403 = 2019; (* AlphaServer ES45/2, 2B 68CB/1250 (3cpu) *)N ALPHA$K_AS260C010404 = 2020; (* AlphaServer ES45/2, 2B 68CB/1250 (4cpu) *)K ALPHA$K_AS2 60C010501 = 2021; (* AlphaServer ES45/1B 68CB/1250 (1cpu) *)K ALPHA$K_AS260C010502 = 2022; (* AlphaServer ES45/1B 68CB/1250 (2cpu) *)K ALPHA$K_AS260C010503 = 2023; (* AlphaServer ES45/1B 68CB/1250 (3cpu) *)K ALPHA$K_AS260C010504 = 2024; (* AlphaServer ES45/1B 68CB/1250 (4cpu) *)G ALPHA$K_AS270F010000 = 2025; (* AlphaServer TS212c Series *)G ALPHA$K_AS270F020000 = 2029; (* AlphaServer TS80 *)G ALPHA$K_AS270F000104 = 2030; (* AlphaServer ES47  *)G ALPHA$K_AS270F000208 = 2031; (* AlphaServer GS80 *)H ALPHA$K_AS270F000008 = 2038; (* AlphaServer GS1280 (8cpu capable) *)I ALPHA$K_AS270F000010 = 2039; (* AlphaServer GS1280 (16cpu capable) *)I ALPHA$K_AS270F000020 = 2040; (* AlphaServer GS1280 (32cpu capable) *)I ALPHA$K_AS270F000040 = 2041; (* AlphaServer GS1280 (64cpu capable) *)J ALPHA$K_AS270F000080 = 2042; (* AlphaServer GS1280 (128cpu capable) *)G ALPHA$K_AS260C050001 = 2047; (* Al  phaServer DS15 68CB/1000 *)G ALPHA$K_AS260C050101 = 2048; (* AlphaStation DS15 68CB/1000 *)G ALPHA$K_AS260C050201 = 2049; (* AlphaServer TS15 68CB/1000 *) ALPHA$K_MAX_SMM = 2051; ALPHA$K_MAX_MODEL = 1056; ALPHA$K_MAX_ALPHA = 8191; (*** MODULE $ARMDEF ***) N(*+ *)N(* Access Rights Mask longword definitions *)N(*-  *) CONST ARM$M_READ = 1; ARM$M_WRITE = 2; ARM$M_EXECUTE = 4; ARM$M_DELETE = 8; ARM$M_CONTROL = 16; ARM$M_CREATE = 4; ARM$M_LOCK = 4; ARM$M_PHYSICAL = 4; ARM$M_LOGICAL = 8; ARM$M_ASSOCIATE = 1; ARM$M_SUBMIT = 2; ARM$M_MANAGE = 4; &TYPE ARM$TYPE = RECORD CASE INTEGER OF+ 1: (ARM$R_FILL_47_ : [BYTE(4)] RECORD END; ); 2: (); 3: ();G 4: (ARM$V_READ : [POS(0)] $BOOL; (* Read access *)G ARM$V_WRITE : [  POS(1)] $BOOL; (* Write access *)G ARM$V_EXECUTE : [POS(2)] $BOOL; (* Execute access *)G ARM$V_DELETE : [POS(3)] $BOOL; (* Delete access *)G ARM$V_CONTROL : [POS(4)] $BOOL; (* Control access *)V ARM$V_FILL : [POS(5)] $BIT27; (* [LOADSS]SYSACLSRV depends on this being here! *) );+ 5: (ARM$R_FILL_49_ : [BYTE(4)] RECORD END; ); 6: (); 7: ();G 8: (ARM$V_CREATE : [POS(2)] $BOOL; (* Create access (vo lume) *) );+ 9: (ARM$R_FILL_51_ : [BYTE(4)] RECORD END; ); 10: (); 11: ();G 12: (ARM$V_LOCK : [POS(2)] $BOOL; (* Lock access (resource domain) *) );, 13: (ARM$R_FILL_53_ : [BYTE(4)] RECORD END; ); 14: (); 15: ();I 16: (ARM$V_PHYSICAL : [POS(2)] $BOOL; (* Physical I/O access (device) *)G ARM$V_LOGICAL : [POS(3)] $BOOL; (* Logical I/O access (device) *) );, 17: (ARM$R_FILL_55_ : [BYTE(4)] RECORD END; ); 18: (); 19: ();U 20: ( ARM$V_ASSOCIATE : [POS(0)] $BOOL; (* Associate access (common event cluster) *) );, 21: (ARM$R_FILL_57_ : [BYTE(4)] RECORD END; ); 22: (); 23: ();G 24: (ARM$V_SUBMIT : [POS(1)] $BOOL; (* Submit access (queue) *)G ARM$V_MANAGE : [POS(2)] $BOOL; (* Manage access (queue) *) ) END; (*** MODULE $ATRDEF ***) P(* ATTRIBUTE LIST DESCRIPTION. THE ATTRIBUTE CONTROL LIST IS USED TO READ AND *)Q(* WRITE FILE ATTRIBUTES. IT CONSISTS OF CONCATENATED ATTR  IBUTE CONTROL BLOCKS *)N(* TERMINATED BY A SINGLE ZERO LONGWORD. *)N(* *) MCONST ATR$C_UCHAR = 3; (* 4 BYTE USER FILE CHARACTERISTICS *)G ATR$C_RECATTR = 4; (* 32 BYTES RECORD ATTRIBUTES *)G ATR$C_FILNAM = 5; (* 6 BYTE RAD-50 FILE NAME *)G ATR$C_FILTYP = 6; (* 2 BYTE RAD-50 FILE TYPE *)G ATR$C_FILVER  = 7; (* 2 BYTE BINARY FILE VERSION *)G ATR$C_EXPDAT = 8; (* 7 BYTE ASCII EXPIRATION DATE *)G ATR$C_STATBLK = 9; (* 32 BYTE STATISTICS BLOCK *)G ATR$C_HEADER = 10; (* 512 BYTE FILE HEADER *)G ATR$C_BLOCKSIZE = 11; (* MAGTAPE BLOCK SIZE *)G ATR$C_USERLABEL = 12; (* USER FILE LABEL *)M ATR$C_ASCDATES = 13; (* REVISION COUNT THRU EXP DATE IN ASCII * )J ATR$C_ALCONTROL = 14; (* COMPATIBILITY MODE ALLOCATION DATA *)d ATR$C_ENDLBLAST = 15; (* END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK *)J ATR$C_ASCNAME = 16; (* FILE NAME, TYPE & VERSION IN ASCII *)G ATR$C_CREDATE = 17; (* 64 BIT CREATION DATE *)G ATR$C_REVDATE = 18; (* 64 BIT REVISION DATE *)G ATR$C_EXPDATE = 19; (* 64 BIT EXPIRATION DATE *)G ATR$C_BAKDATE = 20;  (* 64 BIT BACKUP DATE *)G ATR$C_UIC = 21; (* 4 BYTE FILE OWNER UIC *)G ATR$C_FPRO = 22; (* 2 BYTE FILE PROTECTION *)G ATR$C_RPRO = 23; (* 2 BYTE RECORD PROTECTION *)G ATR$C_ACLEVEL = 24; (* 1 BYTE FILE ACCESS LEVEL *)G ATR$C_SEMASK = 25; (* FILE SECURITY MASK AND LIMIT *)G ATR$C_UIC_RO = 26; (* READ ONLY UIC *)G ATR$C_DIRSEQ = 27; (* DIRECTORY UPDATE SEQUENCE COUNT *)G ATR$C_BACKLINK = 28; (* FILE BACK LINK POINTER *)G ATR$C_JOURNAL = 29; (* JOURNAL CONTROL FLAGS *)H ATR$C_HDR1_ACC = 30; (* ANSI TAPE HEADER 1 ACCESSIBILITY *) N(* CHARACTER *) LCONST ATR$C_ADDACLENT = 31; (* ADD AN ACCESS CONTROL ENTRY *)G ATR$C_DELACLENT = 32; (* REMOVE AN ACCESS CONTR OL ENTRY *)G ATR$C_MODACLENT = 33; (* MODIFY AN ACL ENTRY *)G ATR$C_FNDACLENT = 34; (* LOCATE AN ACL ENTRY *)G ATR$C_FNDACLTYP = 35; (* FIND A SPECIFIC TYPE OF ACE *)G ATR$C_DELETEACL = 36; (* DELETE ACL LEAVING PROTECTED *)G ATR$C_READACL = 37; (* READ THE ENTIRE ACL *)G ATR$C_ACLLENGTH = 38; (* RETURN THE LENGTH OF THE ACL *)G ATR$C_READACE = 39; (* READ A SIN GLE ACE *)G ATR$C_RESERVED = 40; (* MODIFY RESERVED AREA *)J ATR$C_HIGHWATER = 41; (* HIGHWATER MARK (USER READ ONLY) *)G ATR$C_DUMMY_0 = 42; (* *** AVAILABLE CODE *)G ATR$C_PRIVS_USED = 43; (* PRIVILEGES USED TO GAIN ACCESS *)G ATR$C_MATCHING_ACE = 44; (* ACE USED TO GAIN ACCESS (IF ANY) *)V ATR$C_ACCESS_MODE = 45; (* ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORS *)G ATR$C_FILE_SPEC = 46; (* CONVERT FID TO FILE-SPEC *)L ATR$C_CLASS_MASK = 47; (* Non-discretionary classification mask *)f ATR$C_BUFFER_OFFSET = 48; (* For magnetic tape only length of buffer offset of block in file *)b ATR$C_RU_ACTIVE = 49; (* Recoverable facility id number (if non-zero, means file has *) N(* active recovery units managed by that facility) *) LCONST ATR$C_GRANT_ACE = 50; (* ACE granting access *)G A  TR$C_NEXT_ACE = 51; (* Increment ACE number *)G ATR$C_DELETE_ALL = 52; (* Delete the entire ACL *)P ATR$C_BACKUP_DONE = 53; (* Alter backup info in RMS journaling ACEs *) N(* ISO 9660 Descriptors *) LCONST ATR$C_EFFDATE = 54; (* ISO 9660 Backup Date *)G ATR$C_RCDDATE = 55; (* ISO 9660 Recorded Date *)D ATR$C_VD = 56; (* Vo lume Descriptor *)D ATR$C_PVD = 57; (* Primary Volume Descriptor *)G ATR$C_SVD = 58; (* Supplementary Volume Descriptor *)F ATR$C_VPD = 59; (* Volume Partition Descriptor *)H ATR$C_VDST = 60; (* Volume Descriptor Set Terminator *)F ATR$C_BOOT = 61; (* Boot Record *)D ATR$C_PTR = 62; (* Path Table Record *)C ATR$C_DIR = 63; (* Direct  ory Record *)D ATR$C_XAR = 64; (* Extended Attribute Record *) N(* ISO 9660 Descriptors Fields *) LCONST ATR$C_VOLUME_ID = 65; (* Volume Identifier *)G ATR$C_VOLUME_FLAGS = 66; (* Volume Flags *)G ATR$C_ESCAPE_SEQUENCES = 67; (* Escape Sequences *)G ATR$C_VOLUME_SET_ID = 68; (* Volume Set Identifier *)G ATR$C_COPYRIGHT_FID = 69; (* Copyright File Identifier *)G ATR$C_ABSTRACT_FID = 70; (* Abstract File Identifier *)G ATR$C_BIBLIOGRAPHIC_FID = 71; (* Bibliographic File Identifier *)G ATR$C_CACHE_SEQ = 72; (* Cache sequence number *)G ATR$C_FILE_SYSTEM_INFO = 73; (* File system structure level *)G ATR$C_FILE_ATTR_CACHING_POLICY = 74; (* F64 caching only *)G ATR$C_FILE_DATA_CACHING_POLICY = 75; (* F64 caching only *)G ATR$C_C ACHING_OPTIONS = 76; (* Spiralog/VDC caching options *)G ATR$C_POSIX_DATA = 77; (* POSIX private data area *)G ATR$C_ACCDATE = 78; (* ODS-5 last access time *)G ATR$C_ATTDATE = 79; (* ODS-5 last attribute mod time *)G ATR$C_LENGTH_HINT = 80; (* ODS-5 file length hint area *)O ATR$C_EX_RECATTR = 81; (* ODS-5 extended RMS attributes - Reserved *) N(* to Digital for future use. Must be zero.  *) LCONST ATR$C_EXTFLAGS = 82; (* PATHWORKS MS-DOS flags *)G ATR$C_MODDATE = 83; (* ODS-5 last data mod time *)G ATR$C_LINKCOUNT = 84; (* ODS-5 (hard) link count *)G ATR$C_SYMLINK = 85; (* ODS-5 symlink data *) N(* All new attributes should be *)N(* added here before MAX_PLUS1 *) LCONST ATR$C_ MAX_PLUS1 = 86; (* Maximum code plus one *) ATR$C_MAX_CODE = 85; ATR$C_FNDACETYP = 35; N(* Valid values for ATR$C_CACHING_POLICY *) 'CONST ATR$C_CACHE_POLICY_WRITETHRU = 1;" ATR$C_CACHE_POLICY_WRITEBACK = 2; ATR$C_CACHE_POLICY_DEFAULT = 3; N(* ATTRIBUTE MAXIMUM LENGTHS *) MCONST ATR$S_UCHAR = 4; (* 4 BYTE USER FILE CHARACTERISTICS *)G ATR$S_RECATTR = 32;  (* 32 BYTES RECORD ATTRIBUTES *)G ATR$S_FILNAM = 6; (* 6 BYTE RAD-50 FILE NAME *)G ATR$S_FILTYP = 2; (* 2 BYTE RAD-50 FILE TYPE *)G ATR$S_FILVER = 2; (* 2 BYTE BINARY FILE VERSION *)G ATR$S_EXPDAT = 7; (* 7 BYTE ASCII EXPIRATION DATE *)G ATR$S_STATBLK = 32; (* 32 BYTE STATISTICS BLOCK *)G ATR$S_HEADER = 512; (* 512 BYTE FILE HEADER *)G ATR$S_BLOCK SIZE = 2; (* MAGTAPE BLOCK SIZE *)G ATR$S_USERLABEL = 80; (* USER FILE LABEL *)M ATR$S_ASCDATES = 35; (* REVISION COUNT THRU EXP DATE IN ASCII *)J ATR$S_ALCONTROL = 14; (* COMPATIBILITY MODE ALLOCATION DATA *)d ATR$S_ENDLBLAST = 4; (* END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK *)G ATR$S_ASCNAME = 252; (* FILE NAME, TYPE & VERSION *)G ATR$S_CREDATE = 8; (* 64 BIT CREATION DATE *)G ATR$S_REVDATE = 8; (* 64 BIT REVISION DATE *)G ATR$S_EXPDATE = 8; (* 64 BIT EXPIRATION DATE *)G ATR$S_BAKDATE = 8; (* 64 BIT BACKUP DATE *)G ATR$S_UIC = 4; (* 4 BYTE FILE OWNER UIC *)G ATR$S_FPRO = 2; (* 2 BYTE FILE PROTECTION *)G ATR$S_RPRO = 2; (* 2 BYTE RECORD PROTECTION *)G ATR$S_ACLEVEL = 1;  (* 1 BYTE FILE ACCESS LEVEL *)G ATR$S_SEMASK = 8; (* FILE SECURITY MASK AND LIMIT *)G ATR$S_UIC_RO = 4; (* READ ONLY UIC *)G ATR$S_DIRSEQ = 2; (* DIRECTORY UPDATE SEQUENCE COUNT *)G ATR$S_BACKLINK = 6; (* FILE BACK LINK POINTER *)G ATR$S_JOURNAL = 1; (* JOURNAL CONTROL FLAGS *)H ATR$S_HDR1_ACC = 1; (* ANSI TAPE HEADER 1 ACCESSIBILITY *) N(* CHARAC TER *) LCONST ATR$S_ADDACLENT = 255; (* ADD AN ACCESS CONTROL ENTRY *)G ATR$S_DELACLENT = 255; (* REMOVE AN ACCESS CONTROL ENTRY *)G ATR$S_MODACLENT = 255; (* MODIFY AN ACL ENTRY *)G ATR$S_FNDACLENT = 255; (* LOCATE AN ACL ENTRY *)G ATR$S_FNDACLTYP = 255; (* FIND A SPECIFIC TYPE OF ACE *)G ATR$S_FNDACETYP = 255; (* FIND A SPECIFIC TYPE O F ACE *)G ATR$S_DELETEACL = 255; (* DELETE ACL LEAVING PROTECTED *)G ATR$S_READACL = 512; (* READ THE ENTIRE ACL *)G ATR$S_ACLLENGTH = 4; (* RETURN THE LENGTH OF THE ACL *)G ATR$S_READACE = 255; (* READ A SINGLE ACE *)G ATR$S_RESERVED = 380; (* MODIFY RESERVED AREA *)P ATR$S_HIGHWATER = 4; (* FILE HIGH WATER MARK (USER READ ONLY) *)G ATR$S_DUMMY_0 = 4; (* ** * AVAILABLE CODE *)G ATR$S_PRIVS_USED = 4; (* PRIVS USED TO GAIN ACCESS *)G ATR$S_MATCHING_ACE = 255; (* ACE USED TO GAIN ACCESS *)V ATR$S_ACCESS_MODE = 1; (* ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORS *)G ATR$S_FILE_SPEC = 4098; (* CONVERT FID TO FILE-SPEC *)L ATR$S_CLASS_MASK = 20; (* Non-discretionary classification mask *)G ATR$S_BUFFER_OFFSET = 2; (* Buffer offset length field *)L ATR$S_R  U_ACTIVE = 1; (* Recoverable facility id if RUs active *)G ATR$S_GRANT_ACE = 255; (* ACE granting access *)G ATR$S_NEXT_ACE = 4; (* Increment ACE number *)G ATR$S_DELETE_ALL = 255; (* Delete the entire ACL *)O ATR$S_BACKUP_DONE = 1; (* Alter backup info in RMS journaling ACEs *) N(* ISO 9660 Descriptors *) LCONST ATR$S_EFFDATE = 8; (* 64  BIT EFFECTIVE DATE *)G ATR$S_RCDDATE = 8; (* 64 BIT RECORDED DATE *)D ATR$S_VD = 7; (* Volume Descriptor *)D ATR$S_PVD = 1395; (* Primary Volume Descriptor *)G ATR$S_SVD = 1395; (* Supplementary Volume Descriptor *)F ATR$S_VPD = 88; (* Volume Partition Descriptor *)H ATR$S_VDST = 7; (* Volume Descriptor Set Terminator *)F ATR$S_BOOT = 71; (* Bo  ot Record *)D ATR$S_PTR = 45; (* Path Table Record *)C ATR$S_DIR = 512; (* Directory Record *)D ATR$S_XAR = 512; (* Extended Attribute Record *) N(* ISO 9660 Descriptors Fields *) LCONST ATR$S_VOLUME_ID = 32; (* Volume Identifier *)G ATR$S_VOLUME_FLAGS = 1; (* Volume Flags *)G ATR$S_ESCAPE_SEQUENCE S = 32; (* Escape Sequences *)G ATR$S_VOLUME_SET_ID = 128; (* Volume Set Identifier *)G ATR$S_COPYRIGHT_FID = 37; (* Copyright File Identifier *)G ATR$S_ABSTRACT_FID = 37; (* Abstract File Identifier *)G ATR$S_BIBLIOGRAPHIC_FID = 37; (* Bibliographic File Identifier *)G ATR$S_CACHE_SEQ = 8; (* Cache sequence number *)G ATR$S_FILE_SYSTEM_INFO = 2; (* file system structure level *)G ATR$S_FIL E_ATTR_CACHING_POLICY = 1; (* F64 caching only *)G ATR$S_FILE_DATA_CACHING_POLICY = 1; (* F64 caching only *)G ATR$S_POSIX_DATA = 64; (* F64 caching only *)G ATR$S_CACHING_OPTIONS = 4; (* Spiralog/VDC caching options *)G ATR$S_ACCDATE = 8; (* ODS-5 last access time *)G ATR$S_ATTDATE = 8; (* ODS-5 last attribute mod time *)G ATR$S_LENGTH_HINT = 16; (* ODS-5 file length hint area *) ! G ATR$S_EX_RECATTR = 8; (* ODS-5 extended RMS attributes *)G ATR$S_EXTFLAGS = 2; (* PATHWORKS MS-DOS flags *)G ATR$S_LINKCOUNT = 2; (* ODS-5 (hard) link count *)G ATR$S_MODDATE = 8; (* ODS-5 last data mod time *)G ATR$S_SYMLINK = 1024; (* ODS-5 symlink data *) TYPE ATR$TYPE = RECORDG ATR$W_SIZE : $UWORD; (* SIZE OF ATTRIBUTE IN BYTES *)G ATR$W_TYPE : $UWORD; " (* ATTRIBUTE TYPE CODE *)G ATR$L_ADDR : $DEFPTR; (* ADDRESS OF ATTRIBUTE TEXT *)G (* ATTRIBUTE CODES *) END; N(* Define fields and constant values for ATR$_CACHING_OPTIONS longword. *)N(* These must match [STARLET]FIBDEF.SDL exactly *) !CONST ATR$M_FILE_ATTRIBUTES = 15; ATR$M_FILE_CONTENTS = 240; ATR$C_DEFAULT = 0; ATR$C_WRITETHROUGH = 1; ATR$C_WRITEBEHIND = 2;# ATR$C_NOCACHING = 3; ATR$M_FLUSH_ON_CLOSE = 3840; ATR$C_FLUSH = 1; ATR$C_NOFLUSH = 2;# ATR$M_CACHING_OPTIONS_MBZ = -4096; ,TYPE ATR_CACHING_OPTIONS_FLAGS$TYPE = RECORD, ATR$V_FILE_ATTRIBUTES : [POS(0)] $BIT4;* ATR$V_FILE_CONTENTS : [POS(4)] $BIT4;+ ATR$V_FLUSH_ON_CLOSE : [POS(8)] $BIT4;2 ATR$V_CACHING_OPTIONS_MBZ : [POS(12)] $BIT20; END; N(* Define fields and constant values for ATR$_FILESYSTEM_INFO word. *)N(* These must match [LIB]F11DEF.SDL exac$ tly *) CONST ATR$C_ODS1 = 1; ATR$C_ODS2 = 2; ATR$C_ODS64 = 64; -TYPE ATR_FILESYSTEM_INFO_FIELDS$TYPE = RECORD ATR$B_STRUCVER : $UBYTE; ATR$B_STRUCLEV : $UBYTE; END; (*** MODULE $BREAKDEF ***) N(*+ *)N(* BREAK Immediate value definitions *)N(* *)N% (*- *)N(*BASE AND OFFSET OF 1 *) CONST BREAK$C_ARCH_BASE = 0; BREAK$C_ARCH_UNKNOWN = 0; BREAK$C_ARCH_INTDIV = 1; BREAK$C_ARCH_INTOVR = 2; BREAK$C_ARCH_SUBRNG = 3; BREAK$C_ARCH_NULPTRERR = 4; BREAK$C_ARCH_BADALIGN = 5; BREAK$C_ARCH_DECOVF = 6; BREAK$C_ARCH_DECDIV = 7; BREAK$C_ARCH_PKDEC = 8; BREAK$C_ARCH_DECINV = 9; BREAK$C_ARCH_PKDECINV = 10;& BREAK$C_ARCH_PPSTKOVF = 11; BREAK$C_ARCH_MAX = 262143; BREAK$C_APPL_BASE = 262144; N(* Values in this range produce a signal of SS$_BREAKAPPL *) CONST BREAK$C_APPL_MAX = 524287; BREAK$C_DBG_BASE = 524288; BREAK$C_DBG_PAL_BPT = 524288;" BREAK$C_DBG_INSTRUCTION = 524289; BREAK$C_DBG_LINE = 524290; BREAK$C_DBG_INIBRK = 524291; N(* Meanings in this range are defined by the debugger in use *) CONST BREAK$C_DBG_MAX = 1048575; BREAK$C_SYS' _BASE = 1048576; BREAK$C_SYS_UNUSED = 1048576; BREAK$C_SYS_GENTRAP = 1048577; BREAK$C_SYS_BUGCHECK = 1048578; BREAK$C_SYS_HALT = 1048579; BREAK$C_SYS_CHKASTS = 1048580; BREAK$C_SYS_RFI = 1048581; BREAK$C_SYS_SWIS_LOG = 1048582;$ BREAK$C_SYS_DISABLE_UAST = 1048583; N(* The remainder of codes in this range are OS-defined *) CONST BREAK$C_SYS_MAX = 2097151; (*** MODULE $BRKDEF ***) N(*+ ( *)N(* *)N(* Breakthru system service input definitions. *)N(* *)N(*- *) LCONST BRK$C_DEVICE = 1; (* device name *)G BRK$C_USERNAME = 2; (* user name *)G BRK$C_ALLUSERS ) = 3; (* all users *)G BRK$C_ALLTERMS = 4; (* all logged in users *) BRK$C_MAXSENDTYPE = 4; N(* *)N(* Requestor ID's, DEC use only (0-31) *)N(* *) LCONST BRK$C_GENERAL = 0; (* GENERAL (OR UNSPECIFIED) *)G BRK$C_PHONE = 1; * (* PHONE *)G BRK$C_MAIL = 2; (* MAIL *)G BRK$C_QUEUE = 3; (* QUEUE MANAGER *)G BRK$C_SHUTDOWN = 4; (* SYSTEM SHUTDOWN *)G BRK$C_URGENT = 5; (* URGENT MESSAGE *)G BRK$C_DCL = 6; (* DCL (control T) *)G BRK$C_OPCOM = 7; (* OPERATOR MESSAGE *) N(* Not+ e that only first 16 are really stored by TTDRIVER now *) LCONST BRK$C_USER1 = 32; (* reserved to customer *)G BRK$C_USER2 = 33; (* reserved to customer *)G BRK$C_USER3 = 34; (* reserved to customer *)G BRK$C_USER4 = 35; (* reserved to customer *)G BRK$C_USER5 = 36; (* reserved to customer *)G BRK$C_USER6 = 37; (* reserved to custom, er *)G BRK$C_USER7 = 38; (* reserved to customer *)G BRK$C_USER8 = 39; (* reserved to customer *)G BRK$C_USER9 = 40; (* reserved to customer *)G BRK$C_USER10 = 41; (* reserved to customer *)G BRK$C_USER11 = 42; (* reserved to customer *)G BRK$C_USER12 = 43; (* reserved to customer *)G BRK$C_USER13 = 44; (* reserv - ed to customer *)G BRK$C_USER14 = 45; (* reserved to customer *)G BRK$C_USER15 = 46; (* reserved to customer *)G BRK$C_USER16 = 47; (* reserved to customer *) BRK$M_SCREEN = 256; BRK$M_BOTTOM = 512; BRK$M_NOREFRESH = 1024; BRK$M_CLUSTER = 2048; KTYPE FLAGS_INPUT$TYPE = RECORD (* mimics $BRDCSTDEF *)G BRK$V_ERASE_LINES : [POS(0)] $BIT8; (* number of lines to erase *)G . BRK$V_SCREEN : [POS(8)] $BOOL; (* Do screen formatted write *)G BRK$V_BOTTOM : [POS(9)] $BOOL; (* "screen" message at bottom *)I BRK$V_NOREFRESH : [POS(10)] $BOOL; (* Refresh an interrupted read *)G BRK$V_CLUSTER : [POS(11)] $BOOL; (* broadcast to cluster *)& BRK$V_FILL_64_ : [POS(12)] $BIT4; END; (*** MODULE $CAPDEF ***) N(*+ *) CONST CAP$K_ALL_USER = -1; CAP$K_ALL_USER_/ ADD = -1; CAP$K_ALL_CPU_ADD = -1; CAP$K_ALL_ACTIVE_CPUS = -1; CAP$K_ALL_USER_REMOVE = 0; CAP$K_ALL_CPU_REMOVE = 0; CAP$K_GET_FREE_CAP = 0; N(* *)N(* Constants defining user capability numbers *)N(* *) CONST CAP$M_USER1 = 1; CAP$M_USER2 = 2; CAP$M_USER3 = 4; CAP$M_USER4 = 8; CAP$M_USER5 = 16; C0 AP$M_USER6 = 32; CAP$M_USER7 = 64; CAP$M_USER8 = 128; CAP$M_USER9 = 256; CAP$M_USER10 = 512; CAP$M_USER11 = 1024; CAP$M_USER12 = 2048; CAP$M_USER13 = 4096; CAP$M_USER14 = 8192; CAP$M_USER15 = 16384; CAP$M_USER16 = 32768; &TYPE CAP$TYPE = RECORD CASE INTEGER OF+ 1: (CAP$R_FILL_65_ : [BYTE(4)] RECORD END; );# 2: (CAP$L_CAP : [POS(0)] UNSIGNED; ); 3: ();" 4: (CAP$V_USER1 : [POS(0)] $BOOL;" CAP$V_USER2 : [POS(1)] $BOOL;" CAP$V_USER3 : [POS(2)] 1 $BOOL;" CAP$V_USER4 : [POS(3)] $BOOL;" CAP$V_USER5 : [POS(4)] $BOOL;" CAP$V_USER6 : [POS(5)] $BOOL;" CAP$V_USER7 : [POS(6)] $BOOL;" CAP$V_USER8 : [POS(7)] $BOOL;" CAP$V_USER9 : [POS(8)] $BOOL;# CAP$V_USER10 : [POS(9)] $BOOL;$ CAP$V_USER11 : [POS(10)] $BOOL;$ CAP$V_USER12 : [POS(11)] $BOOL;$ CAP$V_USER13 : [POS(12)] $BOOL;$ CAP$V_USER14 : [POS(13)] $BOOL;$ CAP$V_USER15 : [POS(14)] $BOOL;$ CAP$V_USER16 : [POS(15)] $BOOL; ) END;2 N(* *)N(* Constants defining user CPU numbers *)N(* *) CONST CAP$M_CPU0 = 1; CAP$M_CPU1 = 2; CAP$M_CPU2 = 4; CAP$M_CPU3 = 8; CAP$M_CPU4 = 16; CAP$M_CPU5 = 32; CAP$M_CPU6 = 64; CAP$M_CPU7 = 128; CAP$M_CPU8 = 256; CAP$M_CPU9 = 512; CAP$M_CPU10 = 1024; CAP$M_CPU11 = 2048; CAP$M_CPU12 = 43 096; CAP$M_CPU13 = 8192; CAP$M_CPU14 = 16384; CAP$M_CPU15 = 32768; CAP$M_CPU16 = 65536; CAP$M_CPU17 = 131072; CAP$M_CPU18 = 262144; CAP$M_CPU19 = 524288; CAP$M_CPU20 = 1048576; CAP$M_CPU21 = 2097152; CAP$M_CPU22 = 4194304; CAP$M_CPU23 = 8388608; CAP$M_CPU24 = 16777216; CAP$M_CPU25 = 33554432; CAP$M_CPU26 = 67108864; CAP$M_CPU27 = 134217728; CAP$M_CPU28 = 268435456; CAP$M_CPU29 = 536870912; CAP$M_CPU30 = 1073741824; CAP$M_CPU31 = -2147483648; +TYPE C4 AP_CPUS$TYPE = RECORD CASE INTEGER OF+ 1: (CAP$R_FILL_67_ : [BYTE(4)] RECORD END; );( 2: (CAP$L_CAP_CPUS : [POS(0)] UNSIGNED; ); 3: ();! 4: (CAP$V_CPU0 : [POS(0)] $BOOL;! CAP$V_CPU1 : [POS(1)] $BOOL;! CAP$V_CPU2 : [POS(2)] $BOOL;! CAP$V_CPU3 : [POS(3)] $BOOL;! CAP$V_CPU4 : [POS(4)] $BOOL;! CAP$V_CPU5 : [POS(5)] $BOOL;! CAP$V_CPU6 : [POS(6)] $BOOL;! CAP$V_CPU7 : [POS(7)] $BOOL;! CAP$V_CPU8 : [POS(8)] $BOOL;! CAP$V_CPU9 : [POS(95 )] $BOOL;# CAP$V_CPU10 : [POS(10)] $BOOL;# CAP$V_CPU11 : [POS(11)] $BOOL;# CAP$V_CPU12 : [POS(12)] $BOOL;# CAP$V_CPU13 : [POS(13)] $BOOL;# CAP$V_CPU14 : [POS(14)] $BOOL;# CAP$V_CPU15 : [POS(15)] $BOOL;# CAP$V_CPU16 : [POS(16)] $BOOL;# CAP$V_CPU17 : [POS(17)] $BOOL;# CAP$V_CPU18 : [POS(18)] $BOOL;# CAP$V_CPU19 : [POS(19)] $BOOL;# CAP$V_CPU20 : [POS(20)] $BOOL;# CAP$V_CPU21 : [POS(21)] $BOOL;# CAP$V_CPU22 : [POS(22)] $BOOL;#6 CAP$V_CPU23 : [POS(23)] $BOOL;# CAP$V_CPU24 : [POS(24)] $BOOL;# CAP$V_CPU25 : [POS(25)] $BOOL;# CAP$V_CPU26 : [POS(26)] $BOOL;# CAP$V_CPU27 : [POS(27)] $BOOL;# CAP$V_CPU28 : [POS(28)] $BOOL;# CAP$V_CPU29 : [POS(29)] $BOOL;# CAP$V_CPU30 : [POS(30)] $BOOL;# CAP$V_CPU31 : [POS(31)] $BOOL; ) END; (CONST CAP$M_IMPLICIT_AFFINITY_CLEAR = 1;! CAP$M_IMPLICIT_AFFINITY_SET = 2;! CAP$M_IMPLICIT_DEFAULT_ONLY = 4; CAP$M_IMPLICIT_ALL_THREADS = 7 8; ,TYPE IMP_FLAGS$TYPE = RECORD CASE INTEGER OF, 1: (CAP$R_IMP_FLAGS : [BYTE(1)] RECORD END; );U 2: (CAP$V_IMPLICIT_AFFINITY_CLEAR : [POS(0)] $BOOL; (* Shut implicit affinity off *)R CAP$V_IMPLICIT_AFFINITY_SET : [POS(1)] $BOOL; (* Turn implicit affinity on *)T CAP$V_IMPLICIT_DEFAULT_ONLY : [POS(2)] $BOOL; (* Only system default changed *)d CAP$V_IMPLICIT_ALL_THREADS : [POS(3)] $BOOL; (* Change affects all kernel threads in process *) ) END; N(* 8 *)N(* Note: the following flags structure must mimic that of [LIB]CPBDEF.SDL *)N(* *) CONST CAP$M_FLAG_CHECK_CPU = 1; CAP$M_FLAG_PERMANENT = 2;! CAP$M_FLAG_CHECK_CPU_ACTIVE = 8; CAP$M_FLAG_DEFAULT_ONLY = 16; CAP$M_ALL_THREADS = 32; CAP$M_PURGE_WS_IF_NEW_RAD = 64; ,TYPE CAP_FLAGS$TYPE = RECORD CASE INTEGER OF, 1: (CAP$R_CAP_FLAGS : [BYTE(1)] RECOR9 D END; );L 2: (CAP$V_FLAG_CHECK_CPU : [POS(0)] $BOOL; (* Check that process can run *)G CAP$V_FLAG_PERMANENT : [POS(1)] $BOOL; (* Affect permanent mask *)W CAP$V_FLAG_CHECK_CPU_ACTIVE : [POS(3)] $BOOL; (* Check all selected CPUs active *)P CAP$V_FLAG_DEFAULT_ONLY : [POS(4)] $BOOL; (* Only system default changed *)[ CAP$V_ALL_THREADS : [POS(5)] $BOOL; (* Change affects all kernel threads in process *)i CAP$V_PURGE_WS_IF_NEW_RAD : [POS(6)] $BOOL; (* If the home RAD wa: s changed, purge the working set *) ) END; (*** MODULE $CBODEF ***) N(*+ *)N(* Define Create Buffer Object bits *)N(*- *) CONST CBO$M_RETSVA = 1; CBO$M_EXMAXLIM = 2; CBO$M_SVA_32 = 4; CBO$M_NOSVA = 8; CBO$M_SYSBUFOBJ = 16; -TYPE CREATE_BUFFER_OBJECT_FLAGS$TYPE = RECORDO CBO$V ; _RETSVA : [POS(0)] $BOOL; (* (Priv) Return SVA, not PVA, of object *)d CBO$V_EXMAXLIM : [POS(1)] $BOOL; (* (Priv) Bypass MAXBOBMEM check (VMS development use only) *)\ CBO$V_SVA_32 : [POS(2)] $BOOL; (* Allocate SVA from S0 space, $CREATE_BUFOBJ_64 only *)I CBO$V_NOSVA : [POS(3)] $BOOL; (* Do not allocate any system space *)S CBO$V_SYSBUFOBJ : [POS(4)] $BOOL; (* System buffer object (no process ties) *)$ CBO$v_filler : [POS(5)] $BIT27; END; (*** MODULE $CHFDEF ***) < N(* *)N(* CONDITION HANDLING ARGUMENT LIST OFFSETS *)N(* THERE ARE FOUR CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENT *)N(* LIST, THE SIGNAL AND MECHANISM ARRAYS AND THE ALPHA EXCEPTION RECORD *)N(* ALL ARE IDENTIFIED BY THE SAME BLOCK PREFIX. *)N(* *) TYPE CHF$TYPE = RE = CORDG CHFDEF$$_FILL_1 : INTEGER; (* Primary Argument Count *)G CHF$L_SIGARGLST : INTEGER; (*ADDRESS OF SIGNAL ARGUMENTS *)G CHF$L_MCHARGLST : INTEGER; (*ADDRESS OF MECHANISM ARGUMENTS *) END;# CHF1$TYPE = RECORD CASE INTEGER OF0 1: (CHF$R_SIG_ARGS_DESC : [BYTE(4)] RECORD END;0 CHF$R_SIG_NAME_DESC : [BYTE(4)] RECORD END;0 CHF$R_SIG_ARG1_DESC : [BYTE(4)] RECORD END; );H 2: (CHF$IS_SIG_ARGS : [POS(0)] INTEGER; (*NUMBER OF SIGNAL ARGUMENTS *) > G CHF$IS_SIG_NAME : [POS(32)] INTEGER; (*SIGNAL NAME *)M CHF$IS_SIG_ARG1 : [POS(64)] INTEGER; (*FIRST SIGNAL SPECIFIC ARGUMENT *) );G 3: (CHF$L_SIG_ARGS : [POS(0)] INTEGER; (*obsolete def *)G CHF$L_SIG_NAME : [POS(32)] INTEGER; (*obsolete def *)G CHF$L_SIG_ARG1 : [POS(64)] INTEGER; (*obsolete def *) ) END; CONST CHF$M_FPREGS_VALID = 1; CHF$M_FPREGS2_VALID = 2; 'TYPE CHF2$TYPE = RECORD CASE INTEG ? ER OF0 1: (CHF$R_MCH_ARGS_DESC : [BYTE(4)] RECORD END;1 CHF$R_MCH_FLAGS_DESC : [BYTE(4)] RECORD END;1 CHF$R_MCH_FRAME_DESC : [BYTE(8)] RECORD END;1 CHF$R_MCH_DEPTH_DESC : [BYTE(4)] RECORD END;G CHF$IS_MCH_RESVD1 : INTEGER; (*reserved, paired with DEPTH *)G CHF$PH_MCH_DADDR : $QUAD; (*ESTABLISHER HANDLER DATA CELL *)H CHF$PH_MCH_ESF_ADDR : $QUAD; (*ESTABLISHER EXCEPTION STACK FRAME *)H CHF$PH_MCH_SIG_ADDR : $QUAD; (*ESTABLISHER EXCEPTION STACK FRAME @ *)1 CHF$R_MCH_SAVR0_DESC : [BYTE(8)] RECORD END;1 CHF$R_MCH_SAVR1_DESC : [BYTE(8)] RECORD END;G CHF$PH_MCH_SIG64_ADDR : $QUAD; (*64-bit sig array ptr *)' CHF$PH_MCH_SAVF32_SAVF127 : $QUAD;7 CHF$FH_MCH_RETVAL_FLOAT : ARRAY [1..16] OF $UBYTE;8 CHF$FH_MCH_RETVAL2_FLOAT : ARRAY [1..16] OF $UBYTE;0 CHF$FH_MCH_SAVF2 : ARRAY [1..16] OF $UBYTE;0 CHF$FH_MCH_SAVF3 : ARRAY [1..16] OF $UBYTE;0 CHF$FH_MCH_SAVF4 : ARRAY [1..16] OF $UBYTE;0 CHF$FH_MCH_ A SAVF5 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF12 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF13 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF14 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF15 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF16 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF17 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF18 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF19 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF20 : ARRAY [1..16] OF $UBYTE;1 B CHF$FH_MCH_SAVF21 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF22 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF23 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF24 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF25 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF26 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF27 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF28 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF29 : ARRAY [1..16] OF $UBYTE;1 CHF$FH_MCH_SAVF30 : ARRAY [1..16] OF C $UBYTE;1 CHF$FH_MCH_SAVF31 : ARRAY [1..16] OF $UBYTE; CHF$IH_MCH_SAVB1 : $QUAD; CHF$IH_MCH_SAVB2 : $QUAD; CHF$IH_MCH_SAVB3 : $QUAD; CHF$IH_MCH_SAVB4 : $QUAD; CHF$IH_MCH_SAVB5 : $QUAD; CHF$IH_MCH_AR_LC : $QUAD; CHF$IH_MCH_AR_EC : $QUAD; CHF$PH_MCH_OSSD : $QUAD;$ CHF$Q_MCH_INVO_HANDLE : $UQUAD;" CHF$PH_MCH_UWR_START : $QUAD; CHF$IH_MCH_FPSR : $UQUAD; CHF$IH_MCH_FPSS : $UQUAD; );L 2: (CHF$IS_MCH_ARGS : [POS(0)] INTEGER; D (*NUMBER OF MECHANISM ARGUMENTS *)G CHF$IS_MCH_FLAGS : [POS(32)] INTEGER; (*Flags *)H CHF$PH_MCH_FRAME : [POS(64)] $QUAD; (*ESTABLISHER FRAME ADDRESS *)L CHF$IS_MCH_DEPTH : [POS(128)] INTEGER; (*FRAME DEPTH OF ESTABLISHER *)* CHF$IH_MCH_RETVAL : [POS(384)] $QUAD;+ CHF$IH_MCH_RETVAL2 : [POS(448)] $QUAD; );K 3: (CHF$R_MCH_FLAGS_BITS : [POS(32), BYTE(1)] RECORD END; (*Flags bits. *)G CHF$IH_MCH_DEPTH : [POS(128)] INTEGER; (*temp E *) );K 4: (CHF$V_FPREGS_VALID : [POS(32)] $BOOL; (*FP registers stored in MCH. *)+ CHF$V_FPREGS2_VALID : [POS(33)] $BOOL;G CHF$IH_MCH_SAVR0 : [POS(384)] $QUAD; (*SAVED REGISTER R0 *)G CHF$IH_MCH_SAVR1 : [POS(448)] $QUAD; (*SAVED REGISTER R1 *) ); 5: ();G 6: (CHF$IL_MCH_SAVR0_LOW : [POS(384)] INTEGER; (*LOW ORDER 32 BITS *)I CHF$IL_MCH_SAVR0_HIGH : [POS(416)] UNSIGNED; (*HIGH ORDER 32 BITS *)G CHF$IL_MCH_SAVR1_LOW : [POS(448)] INTEG F ER; (*LOW ORDER 32 BITS *)I CHF$IL_MCH_SAVR1_HIGH : [POS(480)] UNSIGNED; (*HIGH ORDER 32 BITS *) ) END; CONST CHF$M_CALEXT_CANCEL = 1; CHF$M_CALEXT_LAST = 2;G CHF$K_CALEXT_LENGTH = 16; (*LENGTH OF CATCH-ALL DESC BLOCK *)G CHF$C_CALEXT_LENGTH = 16; (*LENGTH OF CATCH-ALL DESC BLOCK *) 'TYPE CHF3$TYPE = RECORD CASE INTEGER OFG 1: (CHF$L_CALEXT_LINK : INTEGER; (*CATCH-ALL EXTENSION LINK *)H CHF$L_CALEXT_ADDRESS : INTEGER; (*ADDRESS OF CATC G H-ALL EXTENSION *)4 CHF$R_CALEXT_FLAGS_DESC : [BYTE(4)] RECORD END;G CHF$L_CALEXT_RESERVED : UNSIGNED; (*RESERVED *) );G 2: (CHF$L_CALEXT_FLAGS : [POS(64)] UNSIGNED; (*FLAGS *) ); 3: ();K 4: (CHF$V_CALEXT_CANCEL : [POS(64)] $BOOL; (*REMOVE CATCH-ALL EXTENSION *)G CHF$V_CALEXT_LAST : [POS(65)] $BOOL; (*LAST CATCH-ALL EXTENSION *) ) END;# CHF6$TYPE = RECORD CASE INTEGER OF3 1: (CHF64$R_SIG_ARGS_UNION : [BYTE(4)] RECORD E H ND;Y CHF64$L_SIGNAL64 : INTEGER; (* 64-bit array tag: overlays sig_name of 32b version *)G CHF64$Q_SIG_NAME : $QUAD; (* Signal value *)G CHF64$Q_SIG_ARG1 : $QUAD; (* First signal argument *) );R 2: (CHF64$L_SIG_ARGS : [POS(0)] INTEGER; (* Longword including count & options *) ); 3: ();L 4: (CHF64$W_SIG_ARG_COUNT : [POS(0)] $WORD; (* Word holding count itself *)U CHF64$W_SIG_MSG_OPTIONS : [POS(16)] $WORD; (* Word containing mI essage options *) ) END; (*** MODULE $CHKPNTDEF ***) N(*- *)N(* *)N(* Define flags for calls to create checkpointable processes *)N(*+ *) CONST CHKPNT$M_AUTO_RESTART = 1; CHKPNT$M_DEBUG = 2; CHKPNT$M_ASYNC = 4; TYPE CHKPNT$TYPE = RECORD J P CHKPNT$V_AUTO_RESTART : [POS(0)] $BOOL; (* auto-restart detached process *)G CHKPNT$V_DEBUG : [POS(1)] $BOOL; (* merge in DEBUG *)L CHKPNT$V_ASYNC : [POS(2)] $BOOL; (* asynchronous checkpoint process *)( CHKPNT$V_FILL_77_ : [POS(3)] $BIT5; END; (*** MODULE $CHPDEF ***) N(* *)N(* Item code definition for the $CHKPRO (check protection) system service. *)N(* K *) LCONST CHP$_END = 0; (* list end *)G CHP$_ACCESS = 1; (* intended access *)G CHP$_FLAGS = 2; (* read / write flags *)G CHP$_PRIV = 3; (* privilege mask *)G CHP$_ACMODE = 4; (* accessor access mode *)G CHP$_ACCLASS = 5; (* accessor security classification *)GL CHP$_RIGHTS = 6; (* rights list *)G CHP$_ADD_RIGHTS = 7; (* additional rights list segments *)G CHP$_MODE = 8; (* simple access mode *)G CHP$_MODES = 9; (* per action access mode *)G CHP$_MIN_CLASS = 10; (* minimum security classification *)G CHP$_MAX_CLASS = 11; (* maximum security classification *)G CHP$_OWNER = 12; (* object owner UIC M *)G CHP$_PROT = 13; (* protection mask *)G CHP$_ACL = 14; (* access control list segment *)G CHP$_AUDIT_NAME = 15; (* audit names returned *)G CHP$_ALARM_NAME = 16; (* alarm names returned *)G CHP$_MATCHED_ACE = 17; (* address of matching ACE *)I CHP$_PRIVUSED = 18; (* address of mask of privileges used *)N CHP$_AUDIT_LIST = 19; (* address of s N upplemental audit item list *)G CHP$_OBJECT_NAME = 20; (* object name descriptor *)G CHP$_OBJECT_CLASS = 21; (* object class name descriptor *)G CHP$_UIC = 22; (* accessor UIC *)I CHP$_OBJECT_SPECIFIC = 23; (* object specific longword (for OSR) *) N(* add new item codes before here *) LCONST CHP$_MAX_CODE = 24; (* highest CHP$ item code *) CHP$_ADDRO IGHTS = 7; CHP$_MINCLASS = 10; CHP$_MAXCLASS = 11; CHP$_AUDITNAME = 15; CHP$_ALARMNAME = 16; CHP$_MATCHEDACE = 17; CHP$_CLASS = 5; CHP$K_MATCHED_ACE_LENGTH = 255; CHP$K_ALARM_LENGTH = 768; CHP$K_AUDIT_LENGTH = 1560; CHP$M_SYSPRV = 1; CHP$M_BYPASS = 2; CHP$M_UPGRADE = 4; CHP$M_DOWNGRADE = 8; CHP$M_GRPPRV = 16; CHP$M_READALL = 32; CHP$M_OPER = 64; CHP$M_GRPNAM = 128; CHP$M_SYSNAM = 256; CHP$M_GROUP = 512; CHP$M_WORLD = 1024; CHP$M_PRMCEB = 2048; CHP$K P _NUMBER_OF_PRIVS = 12; "TYPE PRIVS_USED_BITS$TYPE = RECORDG CHP$V_SYSPRV : [POS(0)] $BOOL; (* access via SYSPRV privilege *)G CHP$V_BYPASS : [POS(1)] $BOOL; (* access via BYPASS privilege *)G CHP$V_UPGRADE : [POS(2)] $BOOL; (* access via UPGRADE privilege *)K CHP$V_DOWNGRADE : [POS(3)] $BOOL; (* access via DOWNGRADE privilege *)G CHP$V_GRPPRV : [POS(4)] $BOOL; (* access via GRPPRV privilege *)G CHP$V_READALL : [POS(5)] $BOOL; (* access via READALL privilege Q *)G CHP$V_OPER : [POS(6)] $BOOL; (* access via OPER privilege *)G CHP$V_GRPNAM : [POS(7)] $BOOL; (* access via GRPNAM privilege *)G CHP$V_SYSNAM : [POS(8)] $BOOL; (* access via SYSNAM privilege *)G CHP$V_GROUP : [POS(9)] $BOOL; (* access via GROUP privilege *)G CHP$V_WORLD : [POS(10)] $BOOL; (* access via WORLD privilege *)G CHP$V_PRMCEB : [POS(11)] $BOOL; (* access via PRMCEB privilege *)& CHP$V_FILL_78_ : [POS(12)] $BIT4; END; CONSR T CHP$M_OBSERVE = 1; CHP$M_ALTER = 2; CHP$M_READ = 1; CHP$M_WRITE = 2; CHP$M_USEREADALL = 4; CHP$M_AUDIT = 8; CHP$M_NOFAILAUD = 16; CHP$M_NOSUCCAUD = 32; CHP$M_DELETE = 64; CHP$M_MANDATORY = 128; CHP$M_FLUSH = 256; CHP$M_CREATE = 512; CHP$M_INTERNAL = 1024; CHP$M_SERVER = 2048; ,TYPE FLAG_BITS$TYPE = RECORD CASE INTEGER OF- 1: (CHP$R_SEVMS_DEFS : [BYTE(1)] RECORD END; );H 2: (CHP$V_OBSERVE : [POS(0)] $BOOL; (* non-discretionary read access *)G CHP$V S _ALTER : [POS(1)] $BOOL; (* non-discretionary write access *) );+ 3: (CHP$R_VMS_DEFS : [BYTE(2)] RECORD END; );G 4: (CHP$V_READ : [POS(0)] $BOOL; (* non-discretionary read access *)G CHP$V_WRITE : [POS(1)] $BOOL; (* non-discretionary write access *)G CHP$V_USEREADALL : [POS(2)] $BOOL; (* READALL privilege applies *)G CHP$V_AUDIT : [POS(3)] $BOOL; (* access audit requested *)O CHP$V_NOFAILAUD : [POS(4)] $BOOL; (* do not perform failed access audit *)T S CHP$V_NOSUCCAUD : [POS(5)] $BOOL; (* do not perform successful access audit *)L CHP$V_DELETE : [POS(6)] $BOOL; (* perform audit as delete event type *)G CHP$V_MANDATORY : [POS(7)] $BOOL; (* perform mandatory audit *)K CHP$V_FLUSH : [POS(8)] $BOOL; (* force buffer flush in AUDIT_SERVER *)L CHP$V_CREATE : [POS(9)] $BOOL; (* perform audit as create event type *)G CHP$V_INTERNAL : [POS(10)] $BOOL; (* audit on behalf of VMS TCB *)Q CHP$V_SERVER : [POS(11)] $BOOL;U (* audit originates in TCB server process *) ) END; CONST CHP$M_NOACCESS = 1; CHP$M_REMDUPID = 2; CHP$M_INCSYSID = 4; CHP$M_INCIMGID = 8; CHP$M_DEFPRIV = 16; CHP$M_DEFCLASS = 32; TYPE PROFILE_FLAGS$TYPE = RECORDN CHP$V_NOACCESS : [POS(0)] $BOOL; (* do not access UAF to build profile *)N CHP$V_REMDUPID : [POS(1)] $BOOL; (* remove duplicate system rights IDs *)G CHP$V_INCSYSID : [POS(2)] $BOOL; (* include system rights IDs *)G CHP$V_INCIMGID : [POSV (3)] $BOOL; (* include image rights IDs *)M CHP$V_DEFPRIV : [POS(4)] $BOOL; (* initialize privs from default mask *)N CHP$V_DEFCLASS : [POS(5)] $BOOL; (* initialize class from default mask *)% CHP$V_FILL_81_ : [POS(6)] $BIT2; END; !(*** MODULE CIADEF IDENT x-4 ***) CONST CIA$K_SCAN = 1; CIA$K_DELETE = 2; CIA$K_SHOW = 3; CIA$K_PERFORMANCE = 4; CIA$K_ZERO_PERFORMANCE = 5; CIA$K_SCAN_EXTENDED = 6; CIA$K_DELETE_EXTENDED = 7; CIA$K_SHOW_EXTENDED = 8; CW IA$K_MAX_CIA_CODE = 9; CIA$K_PERFORMANCE_LENGTH = 40; TYPE PERFORMANCE$TYPE = RECORD% CIA$L_TOTAL_MESSAGES : UNSIGNED;' CIA$L_TOTAL_EXCEPTIONS : UNSIGNED; CIA$L_SHOWS : UNSIGNED; CIA$L_SCANS : UNSIGNED; CIA$L_DELETES : UNSIGNED;" CIA$L_PERFORMANCE : UNSIGNED; CIA$L_AUDITS : UNSIGNED;' CIA$L_INVALID_MESSAGES : UNSIGNED; CIA$L_INTRUDERS : UNSIGNED; CIA$L_SUSPECTS : UNSIGNED; END; (CONST CIA$K_SOURCE_TERMINAL_LENGTH = 64;% CIA$KX _SOURCE_NODE_MAX_LENGTH = 1024;# CIA$K_USER_SPEC_MAX_LENGTH = 1058;# CIA$K_USER_STRING_MAX_LENGTH = 32; CIA$K_PASSWORD_MAX_LENGTH = 32;' CIA$K_SOURCE_ADDRESS_MAX_LENGTH = 128; CIA$K_SCSNODE_LENGTH = 8;! CIA$K_SCSNODE_REPLY_LENGTH = 12; CIA$K_USERDATA_LENGTH = 256; TYPE CIA$GENERIC_DESC = RECORD CIA$W_DESC_LENGTH : $UWORD; CIA$W_FILL1 : $UWORD; CIA$T_DESC_DATA : CHAR; END; CONST CIAEXT$S_PACKET = 4; #TYPE EXTENSION_PACKET$TYPE = RECORDG CIAEXT$W_ Y TYPE : $UWORD; (* packet type *)L CIAEXT$W_LENGTH : $UWORD; (* packet length NOT including T/L words *)G CIAEXT$R_VALUE : RECORD END ; (* start of data *) END; CONST CIAEXT$_USER_DATA = 100; CIAEXT$_SCSNODE = 101; CIAEXT$_SCSNODE_REPLY = 102; CIAEXT$_IMAGE_NAME = 103; CIAEXT$_MAX_CIAEXT_CODE = 104;G CIA$_SCSNODE_LIST = 200; (* List of nodes for which to act *)G CIA$_SCSNODE = 201; (* Single node for SCAN Z *)G CIA$_OUTPUT_LIST = 202; (* List of nodes records occured on *)G CIA$_USER_DATA = 203; (* Opaque Data. We don't use it. *)L CIA$_USER_CRITERIAL = 204; (* Existing argument passed by item list *)M CIA$_FAILED_USERNAME = 205; (* Existing argument passsed by item list *)G CIA$_IMAGE_NAME = 206; (* Image name performing scan *) CIA$_MAX_CIA_ITEM = 207;" CIA$K_IMAGE_NAME_MAX_SIZE = 4096; TYPE IMAGE_NAME$TYPE = RECORD! CIA[ $W_IMAGE_LENGTH : $UWORD;! CIA$W_IMAGE_UNUSED : $UWORD;9 CIA$T_IMAGE_STRING : PACKED ARRAY [1..4096] OF CHAR; END; CONST CIA$M_IGNORE_RETURN = 1; CIA$M_RESERVED_1 = 254; CIA$M_SUSPECTS = 256; CIA$M_INTRUDERS = 512;! CIA$M_SECONDARY_PASSWORD = 1024; CIA$M_NOAUDIT = 2048; CIA$M_REAL_USERNAME = 4096; CIA$M_SHOW_NODE = 8192; CIA$M_ITEMLIST = 16384; CIA$M_FILL_1 = -32768; CIA$K_HEADER_LENGTH = 8; )TYPE HEADER$TYPE = RECORD CASE INTEGER OF 1: (CIA$L_CONTEXT\ : UNSIGNED;+ CIA$R_FILL_82_ : [BYTE(4)] RECORD END; );- 2: (CIA$L_HEADER_FLAGS : [POS(32)] UNSIGNED; ); 3: ();+ 4: (CIA$V_IGNORE_RETURN : [POS(32)] $BOOL;( CIA$V_RESERVED_1 : [POS(33)] $BIT7;& CIA$V_SUSPECTS : [POS(40)] $BOOL;' CIA$V_INTRUDERS : [POS(41)] $BOOL;0 CIA$V_SECONDARY_PASSWORD : [POS(42)] $BOOL;% CIA$V_NOAUDIT : [POS(43)] $BOOL;+ CIA$V_REAL_USERNAME : [POS(44)] $BOOL;' CIA$V_SHOW_NODE : [POS(45)] $BOOL;& CIA$V_ITEMLIST ] : [POS(46)] $BOOL;% CIA$V_FILL_1 : [POS(47)] $BIT17; ) END; %CONST CIA$K_SHOW_INPUT_LENGTH = 1062;" CIA$K_DELETE_INPUT_LENGTH = 1062; TYPE CONTENTS$TYPE = RECORD CIA$W_LENGTH : $UWORD; CIA$W_UNUSED : $UWORD;1 CIA$T_NAME : PACKED ARRAY [1..1058] OF CHAR; END; (CONST CIA$K_SCAN_CONTENTS_LENGTH = 1386; 0TYPE SCAN_CONTENTS$TYPE = RECORD CASE INTEGER OF 1: (CIA$L_PARENT_ID : UNSIGNED; CIA$L_JOB_TYPE : UNSIGNED;# CIA$L_LOGIN_STATUS : UN ^ SIGNED;, CIA$R_FILL_84_ : [BYTE(68)] RECORD END;, CIA$R_FILL_86_ : [BYTE(36)] RECORD END;- CIA$R_FILL_88_ : [BYTE(132)] RECORD END; CIA$W_UNUSED_4 : $UWORD;/ CIA$R_FAILED_USER : [BYTE(36)] RECORD END;, CIA$R_FILL_90_ : [BYTE(36)] RECORD END;, CIA$R_FILL_92_ : [BYTE(36)] RECORD END;. CIA$R_FILL_94_ : [BYTE(1028)] RECORD END; );D 2: (CIA$T_SOURCE_TERMINAL : [POS(96)] PACKED ARRAY [1..68] OF CHAR;A CIA$T_SOURCE_USER : [POS(640)] PACKED ARRAY [1..3 _ 6] OF CHAR;E CIA$T_SOURCE_ADDRESS : [POS(928)] PACKED ARRAY [1..132] OF CHAR;3 CIA$W_FAILED_USER_LENGTH : [POS(2000)] $UWORD;G CIA$T_FAILED_USER_NAME : [POS(2032)] PACKED ARRAY [1..32] OF CHAR;F CIA$T_FAILED_PASSWORD : [POS(2288)] PACKED ARRAY [1..36] OF CHAR;B CIA$T_PARENT_USER : [POS(2576)] PACKED ARRAY [1..36] OF CHAR;D CIA$T_SOURCE_NODE : [POS(2864)] PACKED ARRAY [1..1028] OF CHAR; ); 3: ();1 4: (CIA$W_SOURCE_TERM_LENGTH : [POS(96)] $UWORD;F CIA$T ` _SOURCE_TERM_NAME : [POS(128)] PACKED ARRAY [1..64] OF CHAR;2 CIA$W_SOURCE_USER_LENGTH : [POS(640)] $UWORD;F CIA$T_SOURCE_USER_NAME : [POS(672)] PACKED ARRAY [1..32] OF CHAR;2 CIA$W_SOURCE_ADDR_LENGTH : [POS(928)] $UWORD;J CIA$T_SOURCE_ADDRESS_NAME : [POS(960)] PACKED ARRAY [1..128] OF CHAR;3 CIA$W_FAILED_PASS_LENGTH : [POS(2288)] $UWORD;G CIA$T_FAILED_PASS_NAME : [POS(2320)] PACKED ARRAY [1..32] OF CHAR;3 CIA$W_PARENT_USER_LENGTH : [POS(2576)] $UWORD;G CIA$Ta _PARENT_USER_NAME : [POS(2608)] PACKED ARRAY [1..32] OF CHAR;3 CIA$W_SOURCE_NODE_LENGTH : [POS(2864)] $UWORD;I CIA$T_SOURCE_NODE_NAME : [POS(2896)] PACKED ARRAY [1..1024] OF CHAR; ) END; CONST CIA$M_INTRUDER = 1; CIA$M_SUSPECT = 2; CIA$M_NETWORK = 4; CIA$M_TERM_USER = 8; CIA$M_TERMINAL = 16; CIA$M_USERNAME = 32; CIA$M_FILL_2 = -64;! CIA$K_SHOW_OUTPUT_LENGTH = 1086; .TYPE SHOW_OUTPUT$TYPE = RECORD CASE INTEGER OF 1: (CIA$L_STATUS : UNSIGNED;' Cb IA$L_RETURNED_CONTEXT : UNSIGNED;$ CIA$Q_EXPIRATION_TIME : $UQUAD;+ CIA$R_FILL_96_ : [BYTE(4)] RECORD END;$ CIA$L_ATTEMPT_COUNT : UNSIGNED;. CIA$R_FILL_98_ : [BYTE(1062)] RECORD END; );' 2: (CIA$L_FLAGS : [POS(128)] UNSIGNED;A CIA$T_USER_SPEC : [POS(192)] PACKED ARRAY [1..1062] OF CHAR; ); 3: ();' 4: (CIA$V_INTRUDER : [POS(128)] $BOOL;& CIA$V_SUSPECT : [POS(129)] $BOOL;& CIA$V_NETWORK : [POS(130)] $BOOL;( CIA$V_TERM_USER : [POS(131)] $BOOc L;' CIA$V_TERMINAL : [POS(132)] $BOOL;' CIA$V_USERNAME : [POS(133)] $BOOL;0 CIA$W_USER_SPEC_LENGTH : [POS(192)] $UWORD;F CIA$T_USER_SPEC_NAME : [POS(224)] PACKED ARRAY [1..1058] OF CHAR; ) END; BREAKIN_BLOCK$TYPE = RECORD" CIA$L_BREAK_FLAGS : UNSIGNED;" CIA$L_BREAK_COUNT : UNSIGNED; CIA$Q_BREAK_TIME : $UQUAD; END; CIA$GENERIC_REPLY = RECORDG CIA$L_REPLY_STATUS : UNSIGNED; (* status of request *) END; (*** MODULE $CLIDEF d ***) N(*++ *)N(* *)N(* $CLIDEF --- COMMAND LAGUAGE INTERFACE DEFINITIONS *)N(* *)N(* THIS MODULE DEFINES THE OFFSET VALUES FOR THE DATA STRUCTURES *)N(* USED TO COMMUNICATED COMMAND INFORMATION BETWEEN THE CLI AND *)N(* THE UTILITY Te HAT WAS REQUESTED TO PERFORM THE OPERATION. *)N(* *)N(*-- *) CONST CLI$M_DEBUG = 1; CLI$M_DBGTRU = 2; CLI$M_VERIFY = 4; CLI$M_BATCH = 8; CLI$M_INDIRECT = 16; CLI$M_VFYINP = 32; CLI$M_TRMVRBLV = 768; CLI$M_DBGEXCP = 65536; &TYPE CLI$TYPE = RECORD CASE INTEGER OFG 1: (CLI$L_INIARGCNT : UNSIGNED; (* INITIAL ARG COUNT f *)G CLI$A_PROGXFER : $DEFPTR; (* PROGRAM TRANSFER VECTOR ADDRESS *)G CLI$A_UTILSERV : $DEFPTR; (* ADDRESS OF CLI UTILITY SERVICE *)G CLI$A_IMGHDADR : $DEFPTR; (* ADDRESS OF IMAGE HEADER *)G CLI$A_IMGFILED : $DEFPTR; (* ADDRESS OF IMAGE FILE DATA *)G CLI$L_LINKFLAG : UNSIGNED; (* LINK FLAG LONGWORD *)2 CLI$R_CLIFLAG_OVERLAY : [BYTE(4)] RECORD END;L CLI$L_ARGLIST : INTEGER; (* ADDRESS OF APPLICATION ARGUM g ENT LIST *)K (* (USED FOR MERGED IMAGE ARG. PASSING) *)G (* *)X (* DEFINE CLI COMMAND INTERFACE REQUEST BLOCK *)G (* *) );G 2: (CLI$L_CLIFLAG : [POS(192)] UNSIGNED; (* CLI FLAG LONGWORD *) ); 3: ();G 4: (CLI$V_DEBUG : [POS(192)] $BOOL; (* DEBUG QUALIFIER SEEN *)h G CLI$V_DBGTRU : [POS(193)] $BOOL; (* DEBUG WAS TRUE *)G CLI$V_VERIFY : [POS(194)] $BOOL; (* VERIFY IS ON *)G CLI$V_BATCH : [POS(195)] $BOOL; (* THIS PROCESS IS A BATCH JOB *)O CLI$V_INDIRECT : [POS(196)] $BOOL; (* INDIRECT LEVEL NOT EQUAL TO ZERO *)H CLI$V_VFYINP : [POS(197)] $BOOL; (* UTILITY SHOULD VERFIY INPUT *)G CLI$V_TRMVRBLV : [POS(200)] $BIT2; (* TERMINAL VERBOSITY LEVEL *)S CLI$V_DBGEXCP : [POS(208)] $BOOL; (* DEBUGGER Ci ALLED VIA "DEBUG" EXCEPTION *)i (* THE FOLLOWING ARGUMENTS ARE OPTIONAL DEPENDING ON INIARGCNT *) ) END; CONST CLI$M_PARMREQ = 1; CLI$M_ABSADR = 2; CLI$M_EXPNAM = 4; CLI$M_LASTVAL = 1; CLI$M_DUMMY = 2; CLI$M_PARMPRS = 1; CLI$M_CONCATINP = 2; CLI$M_MOREINP = 4; CLI$M_PARMDEF = 8; CLI$M_MOREVALS = 1; CLI$M_KEYVALU = 2;G CLI$K_REQDESC = 28; (* SIZE OF THE STRUCTURE *)G CLI$C_REQDESC = 28; j (* SIZE OF THE STRUCTURE *) N(* *) 'TYPE CLI1$TYPE = RECORD CASE INTEGER OF1 1: (CLI$R_FILL_3_OVERLAY : [BYTE(4)] RECORD END;G CLI$A_ERRACT : $DEFPTR; (* ADDRESS OF ERROR ACTION ROUTINE *)1 CLI$R_RQDESC_OVERLAY : [BYTE(8)] RECORD END;H CLI$A_PRSACT : $DEFPTR; (* PARAMETER PRESENT ACTION ROUTINE *)G CLI$A_ABSACT : $DEFPTR; (* PARAMETER ABSENT ACTION ROUTINE *)G k CLI$A_QUALST : $DEFPTR; (* ADDRESS OF QUALIFIERS *)f (* Define the Descriptor Used by Symbol and Logical-name Callbacks *)G (* *) );H 2: (CLI$Q_RQDESC : [POS(64)] $UQUAD; (* QUADWORD REQUEST DESCRIPTOR *) ); 3: ();H 4: (CLI$W_RQSIZE : [POS(64)] $UWORD; (* RESULTANT SIZE OF PARAMETER *) );G 5: (CLI$B_RQTYPE : [POS(0)] $UBYTE; (* TYPE OF REQUEST BEING MADE * l )G CLI$W_SERVCOD : [POS(8)] $UWORD; (* CLI SERVICE CODE *)G CLI$B_RQSTAT : [POS(24)] $UBYTE; (* OUTPUT STATUS FLAGS *)P CLI$L_RQVALU : [POS(96)] UNSIGNED; (* ACTUAL VALUE IN VALUE CONVERSTION *) );L 6: (CLI$A_RQADDR : [POS(96)] $DEFPTR; (* ADDRESS OF RESULTANT PARAMETER *) );G 7: (CLI$V_SUBTYP : [POS(0)] $BIT4; (* SUB TYPE VIELD *)G CLI$V_PRITYP : [POS(4)] $BIT4; (* PRIMARY TYPYE *)G CLI$V_PARMPRS : [POS( m 24)] $BOOL; (* PARAMETER IS PRESENT *)I CLI$V_CONCATINP : [POS(25)] $BOOL; (* INPUT CONCATONATION EXISTS *)L CLI$V_MOREINP : [POS(26)] $BOOL; (* ANOTHER SET OF INPUT PARAMETERS *)L CLI$V_PARMDEF : [POS(27)] $BOOL; (* PARAMETER WAS DEFAULTED PRESENT *) );J 8: (CLI$B_RQINDX : [POS(8)] $UBYTE; (* OFFSET FOR VALUE KEYWORD INDEX *)K CLI$B_RQFLGS : [POS(16)] $UBYTE; (* INPUT FLAGS CONCERNING REQUEST *) );N 9: (CLI$B_BITNUM : [POS(8)] $UBYTE; (* BIT TO SET I n F REQUEST IS SUCESSFUL *)G CLI$V_MOREVALS : [POS(24)] $BOOL; (* UNPROCESSED VALUES REMAIN *)N CLI$V_KEYVALU : [POS(25)] $BOOL; (* SUBSEQUENT TOKEN IS VALUE FOR KEY *) );G 10: (CLI$V_PARMREQ : [POS(16)] $BOOL; (* PARAMATER IS REQUIRED *)G CLI$V_ABSADR : [POS(17)] $BOOL; (* ALL ADDRESS ARE ABSOLUTE *)G CLI$V_EXPNAM : [POS(18)] $BOOL; (* RETURN EXPLICIT NAMES ONLY *) ); 11: ();G 12: (CLI$V_LASTVAL : [POS(16)] $BOOL; (* LAST VALUE ALLOWED *) o I CLI$V_DUMMY : [POS(17)] $BOOL; (* *** SAVE PLACE FOR ABS ADR *** *) ) END; CLI2$TYPE = RECORD- CLIDEF$$_FILL_8 : ARRAY [1..4] OF $BYTE;G CLI$Q_NAMDESC : $UQUAD; (* Logical name or symbol name *)H CLI$Q_VALDESC : $UQUAD; (* Equivalence name or symbol value *)G CLI$Q_TABDESC : $UQUAD; (* Name of logical name table *)G CLI$L_ITMLST : INTEGER; (* Address of item list *)G CLI$L_ATTR : INTEGER; (* Address of p attribute longword *)G (* *)[ (* Define the Descriptor Locations Used for the Old/New *)G (* Out-of-Band Character(s) Masks *)G (* *) END; CLI3$TYPE = RECORD- CLIDEF$$_FILL_9 : ARRAY [1..4] OF $BYTE;G CLI$L_NEW_MASK : UNSIGNED; (* Enable/disable mask *)G CLI$L q _OLD_MASK : UNSIGNED; (* Previous enabled values mask *)G (* *)U (* Define the descriptor used for ATTACH callback *)G (* *) END; CLI4$TYPE = RECORD. CLIDEF$$_FILL_10 : ARRAY [1..4] OF $BYTE;G CLI$L_PID : UNSIGNED; (* PID of "destination" process *)G (* r *)T (* Define the descriptor used for SPAWN callback *)G (* *) END; CONST CLI$M_NOWAIT = 1; CLI$M_NOCLISYM = 2; CLI$M_NOLOGNAM = 4; CLI$M_NOKEYPAD = 8; CLI$M_NOTIFY = 16; CLI$M_NOCONTROL = 32; CLI$M_TRUSTED = 64; CLI$M_AUTHPRIV = 128; CLI$M_SUBSYSTEM = 256; CLI$M_DETACHED = 512;G CLI$K_SPAWN_VERSION = 1; (* Latest version *)G CLI$C s _SPAWN_VERSION = 1; (* Latest version *)L CLI$K_SRVDESC = 88; (* Length of longest "service" callback *)L CLI$C_SRVDESC = 88; (* Length of longest "service" callback *) N(* *) 'TYPE CLI5$TYPE = RECORD CASE INTEGER OF. 1: (CLIDEF$$_FILL_11 : ARRAY [1..4] OF $BYTE;0 CLI$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END;G CLIDEF$$_FILL_5 : ARRAY [1..2] OF $BYTE; (* Unuset d *)G CLI$L_OUTPID : UNSIGNED; (* PID of subprocess on return *)P CLI$L_LSTSTATUS : INTEGER; (* Address to store final subprocess status *)G CLI$Q_CMDSTR : $UQUAD; (* Descriptor of command string *)G CLI$Q_INPUT : $UQUAD; (* Descriptor of input filespec *)G CLI$Q_OUTPUT : $UQUAD; (* Descriptor of output filespec *)I CLI$Q_PRCNAM : $UQUAD; (* Descriptor of name for subprocess *)J CLI$L_ASTADR : INTEGER; u (* Address of termination AST routine *)H CLI$L_ASTPRM : INTEGER; (* Address of AST routine parameter *)H CLI$B_EFN : $UBYTE; (* Event flag to set on termination *)G CLI$B_VERSION : $UBYTE; (* Data structure version *)G CLIDEF$$_FILL_6 : ARRAY [1..2] OF $BYTE; (* Unused *)G CLI$Q_PROMPT : $UQUAD; (* Descriptor of prompt string *)G CLI$Q_CLI : $UQUAD; (* Descriptor of cli name *)G CLI$Q_TABLE :v $UQUAD; (* Descriptor of cli table name *)G CLI$L_KT_LIMIT : INTEGER; (* Kernel thread limit *)G (* *)p (* Define the length of the longest "supervisor-mode service" request block, *)k (* so that programs can allocate a fixed amount of space for the block. *)G (* *)P w (* DEFINE THE PARAMETER QUALIFIER DESCRIPTOR *)G (* *) );G 2: (CLI$B_FLAGS : [POS(32)] $UBYTE; (* Flags (as byte) *) );G 3: (CLI$W_FLAGS : [POS(32)] $UWORD; (* Flags (as word) *) ); 4: ();Q 5: (CLI$V_NOWAIT : [POS(32)] $BOOL; (* Do not wait for subprocess completion *)S CLI$V_NOCLISYM : [POS(33)] $BOOL; (* Do not copy CLI symbols to subprocess *x )U CLI$V_NOLOGNAM : [POS(34)] $BOOL; (* Do not copy logical names to subprocess *)S CLI$V_NOKEYPAD : [POS(35)] $BOOL; (* Do not copy keypad state to subprocess *)G CLI$V_NOTIFY : [POS(36)] $BOOL; (* Output notification message *)X CLI$V_NOCONTROL : [POS(37)] $BOOL; (* Do not put CR/LF in front of prompt string *)V CLI$V_TRUSTED : [POS(38)] $BOOL; (* Allow spawn regardless of UAF CAPTIVE flag *)M CLI$V_AUTHPRIV : [POS(39)] $BOOL; (* Propagate AUTHPRIV to subprocess *y )X CLI$V_SUBSYSTEM : [POS(40)] $BOOL; (* Copy protected subsystem IDs to subprocess *)G CLI$V_DETACHED : [POS(41)] $BOOL; (* Spawn a detached process *) ) END; CONST CLI$M_ALLOCCUR = 1; CLI$M_QDUSRV = 2; CLI$M_QDEXPA = 4; CLI$M_QUALTRU = 1; CLI$M_QUALEXP = 2;G CLI$K_QUALDEF = 20; (* SIZE OF FIXED PART OF STRUCTURE *)G CLI$C_QUALDEF = 20; (* SIZE OF FIXED PART OF STRUCTURE *)L CLI$K_QDBITS = 20; (* START OF BIT LISTS(VAR z IALBLE LENGTH) *)L CLI$C_QDBITS = 20; (* START OF BIT LISTS(VARIALBLE LENGTH) *) 'TYPE CLI6$TYPE = RECORD CASE INTEGER OFG 1: (CLI$B_QDBLKSIZ : $UBYTE; (* SIZE OF THE FINAL BLOCK *)G CLI$B_QDCODE : $UBYTE; (* ID CODE FOR THE QUALIFIER *)1 CLI$R_QDFLGS_OVERLAY : [BYTE(1)] RECORD END;1 CLI$R_QDSTAT_OVERLAY : [BYTE(1)] RECORD END;4 CLI$R_QDVALDESC_OVERLAY : [BYTE(8)] RECORD END;G CLI$A_TRUACT : $DEFPTR; (* QUALIFIER TRUE ACTIO { N ROUTINE *)G CLI$A_FLSACT : $DEFPTR; (* QUALIFIER FALSE ACTION ROUTINE *)G CLI$L_USRVAL : UNSIGNED; (* OPTION USER VALUE IF PRESENT *)G (* *)R (* DEFINE SPACE FOR THE RESULT PARSE WORK AREA *)G (* *) );G 2: (CLI$B_QDFLGS : [POS(16)] $UBYTE; (* FLAGS BYTE *)G CLI$B_QDSTAT : [POS | (24)] $UBYTE; (* QUALIFIER STATUS *)J CLI$Q_QDVALDESC : [POS(32)] $UQUAD; (* QUALIFIER VALUE DESCRIPTOR *) ); 3: ();K 4: (CLI$V_ALLOCCUR : [POS(16)] $BOOL; (* TAKE ACTION ON ALL OCCURANCES *)H CLI$V_QDUSRV : [POS(17)] $BOOL; (* USER CONTEX VALUE IS PRESENT *)N CLI$V_QDEXPA : [POS(18)] $BOOL; (* TAKE ACTION ON EXPLICIT OCCURANCES *)G CLI$V_QUALTRU : [POS(24)] $BOOL; (* QUALIFIER IS TRUE *)H CLI$V_QUALEXP : [POS(25)] $BOOL; (* QUALIFIER EXP } LICITLY STATED *)G CLI$W_QDVALSIZ : [POS(32)] $UWORD; (* SIZE OF VALUE *)G CLI$A_QDVALADR : [POS(64)] $DEFPTR; (* ADDRESS OF VALUE STRING *) ) END; LCONST CLI$K_WORKAREA = 128; (* SIZE OF HEADER *)G CLI$C_WORKAREA = 128; (* SIZE OF HEADER *) N(* *) LCONST CLI$K_UTILOPR = 0; (* UTILITY OPERATIONS *)J ~ CLI$K_INPSPEC = 1; (* REQUEST FOR AN INPUT SPECIFICATION *)G CLI$K_OUTSPEC = 2; (* AN OUTPUT FILE SPECIFICATION *)G CLI$K_PARDONE = 3; (* PARAMETER DONE REQUEST *)G CLI$K_VALCONV = 4; (* REQUEST A VALUE CONVERSION *)G CLI$K_CLINT = 5; (* CLINT OPERATIONS *) N(* *) LCONST CLI$K_INITPRS = 0; (* REQUE  ST INITIALIZATION OF PARSE *)G CLI$K_GETCMD = 1; (* GET COMMAND BUFFER LIMITS *)G CLI$K_GETQUAL = 2; (* OPTAIN STATE OF QUALIFIERS *)G CLI$K_GETOPT = 3; (* DECODE COMMAND OPTION *)G CLI$K_GETLINE = 4; (* GET COMMAND LINE *) N(* *)N(* THE CLISERV REQUEST TYPE APPEARS HERE, INSTEAD OF WITH THE OTHER REQUEST *)N(* TYPES, BECA USE IT HAS NO SUBFUNCTIONS ASSOCIATED WITH IT, AND BECAUSE A *)N(* DAY 1 CODING ERROR CAUSES DCL TO EXPECT THAT THIS REQUEST NUMBER WILL *)N(* APPEAR IN THE SUBFUNCTION BITS. THIS MEANS THAT NO UTILITY OPERATION *)N(* CAN BE DEFINED WITH THE SUBFUNCTION NUMBER 5. *)N(* *) LCONST CLI$K_CLISERV = 5; (* REQUEST A SERVICE FROM THE CLI *) N(* *) LCONST CLI$K_INPUT1 = 16; (* PRIMARY INPUT *)G CLI$K_INPUT2 = 17; (* SECONDARY INPUT *)G CLI$K_INPUT3 = 18; (* THIRD, *)G CLI$K_INPUT4 = 19; (* ETC,ETC,ETC *) N(* *) LCONST CLI$K_OUTPUT1 = 32; (* FIRST OUTPUT *)G CLI$K_OUTPUT2 = 33; (* SECOND OUTPUT *)G CLI$K_OUTPUT3 = 34; (* THIRD,- *)G CLI$K_OUTPUT4 = 35; (* ETC,ETC,ETC *) N(* *) LCONST CLI$K_ENDPRM1 = 48; (* COMPLETED PARAMETER SET 1 *)G CLI$K_ENDPRM2 = 49; (* COMPLETED PARAMETER SET 2 *)G CLI$K_ENDPRM3 = 50; ( * COMPLETED PARAMETER SET 3 *)G CLI$K_ENDPRM4 = 51; (* COMPLETED PARAMETER SET 4 *) N(* *) LCONST CLI$K_NUMERVAL = 64; (* NUMBERIC VALUE *)G CLI$K_ASCIIVAL = 65; (* ASCII VALUE *)G CLI$K_KEYWORD = 66; (* KEYWORD VALUE *)G CLI$K_KEYVAL = 67; (* KEYWORD WITH VALUE *)G CLI $K_FILSPEC = 68; (* VALUE IS A FILESPEC *) N(* *) LCONST CLI$K_PRESENT = 80; (* DETERMINE IF ENTITY IS PRESENT *)G CLI$K_GETVALUE = 81; (* GET VALUE OF ENTITY *)G CLI$K_ENDPARSE = 82; (* CLEAN UP AFTER PARSING COMMAND *)G CLI$K_DCLPARSE = 83; (* PARSE USER COMMAND LINE *)G CLI$K_DISPATCH = 84; (* DISPATCH TO ACTION ROUTINE *)G CLI$K_NEXTQUAL = 85; (* PROCESS NEXT QUALIFIER *) N(* *) TYPE CLI7$TYPE = RECORDN CLI$L_WORKAREA : ARRAY [1..32] OF UNSIGNED; (* ALLOCATE 32 LONG WORDS *)N(* DEFINE CLI UTILITY REQUEST CODES *)N(* *)N(* CODES ARE 8 BITS, CONSISTING OF 2 4 BIT FI ELDS *)N(* THE LEAST 4 BITS ARE SUBFUCTION DEFINITONS *)N(* AND THE MOST SIGNIFICANT 4 BITS ARE REQUEST TYPE *)N(* *)N(* DEFINE REQUEST TYPE CODES *)N(* DEFINE COMPLETE CODES FOR UTILITY OPERATIONS *)N(* *) N(* DEFINE COMPLETE CODES FOR INPUT SPECIFICATIONS *)N(* *)N(* DEFINE COMPLETE CODES FOR OUTPUT SPECIFICATIONS *)N(* *)N(* DEFINE CODES FOR RESULT PARSE PARAMETER COMPLETION *)N(* *)N(* DEFINE CODES FOR VALU E CONVERSION REQUESTS *)N(* *)N(* DEFINE COMPLETE CODES FOR UTILITY OPERATIONS *)N(* *)N(* DEFINE SET CODE SET REQUEST BLOCK *)N(* *) END; CLI8$TYPE = RECORD. CLIDEF$$_FILL_1 2 : ARRAY [1..4] OF $BYTE;G CLI$L_CODESET : UNSIGNED; (* CODE SET VALUE *) END; (*** MODULE $CLISERVDEF ***) N(* *)N(* DEFINE CLI SERVICE REQUEST CODES *)N(* *)N(* DEFINE CLI SERVICE CODES *) LCONST CLI$K_PAUSE = 1;  (* PAUSE THE IMAGE *)J CLI$K_DEFLOCAL = 2; (* DEFINE A SYMBOL IN THE LOCAL TABLE *)K CLI$K_DEFGLOBAL = 3; (* DEFINE A SYMBOL IN THE GLOBAL TABLE *)K CLI$K_CHAIN = 4; (* PASS AN IMAGE TO RUN AFTER THIS ONE *)L CLI$K_COMMAND = 5; (* PASS A COMMAND LINE TO LATER EXECUTE *)G CLI$K_CREALOG = 6; (* DEFINE A PROCESS LOGICAL NAME *)G CLI$K_DELELOG = 7; (* DELETE A PROCESS LOGICAL NAME *)H CLI $K_DISACTRLY = 8; (* DISABLE DCL CONTROL Y PROCESSING *)G CLI$K_ENABCTRLY = 9; (* ENABLE DCL CONTROL Y PROCESSING *)G CLI$K_GETSYM = 10; (* RETURN VALUE OF A SYMBOL *)G CLI$K_DELELCL = 11; (* DELETE A LOCAL SYMBOL *)G CLI$K_DELEGBL = 12; (* DELETE A GLOBAL SYMBOL *)H CLI$K_DISAOOB = 13; (* DISABLE OUT-OF-BAND CHARACTER(S) *)J CLI$K_ENABOOB = 14; (* RE-ENABLE OUT-OF-BAND CHARACTE R(S) *)G CLI$K_SPAWN = 15; (* SPAWN A SUBPROCESS *)G CLI$K_ATTACH = 16; (* ATTACH TO A PROCESS *)Z CLI$K_LIBDEFLOCAL = 17; (* DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOL *)[ CLI$K_LIBDEFGLOBAL = 18; (* DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOL *)N CLI$K_LIBGETSYM = 19; (* GET A SYMBOL VALUE USING LIB$GET_SYMBOL *)N CLI$K_LIBDELELCL = 20; (* DELETE A SYMBOL USING LIB$DELETE_SYMBOL *)U C LI$K_LIBDELEGBL = 21; (* DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOL *)G CLI$K_SETCODESET = 22; (* SET CODE SET *) N(* *)N(* Define local/global symbol flag returned by GETSYM *)N(* *) LCONST CLI$K_LOCAL_SYM = 1; (* Local symbol *)G CLI$K_GLOBAL_SYM = 2; (* Global symbol *) (*** MODULE $CLIVERBDEF ***) N(* *)N(* DEFINE GENERIC CODES FOR VERBS *)N(* *)N(* DEFINE VERB QENERIC CODES *) LCONST CLI$K_VERB_ALLO = 1; (* ALLOCATE *)G CLI$K_VERB_ ANAL = 2; (* ANALIZE *)G CLI$K_VERB_ASSI = 3; (* ASSIGN *)G CLI$K_VERB_BASI = 4; (* BASIC *)G CLI$K_VERB_BLIS = 5; (* BLISS *)G CLI$K_VERB_COBO = 6; (* COBOL *)G CLI$K_VERB_CONT = 7; (* CONTINUE *)G CLI$K_VERB_COPY = 8; (* COPY *)G CLI$K_VERB_CREA = 9; (* CREATE *)G CLI$K_VERB_DATA = 10; (* DATA *)G CLI$K_VERB_DEAL = 11; (* DEALLOCATE *)G CLI$K_VERB_DEAS = 12; (* DEASSIGN *)G CLI$K_VERB_DEBU = 13; (* DEBUG *)G CLI$K_VERB_DEFI = 14; (* DEFINE *)G CLI$K_VERB_DELE = 15; (* DELETE  *)G CLI$K_VERB_DEPO = 16; (* DEPOSIT *)G CLI$K_VERB_DIFF = 17; (* DIFFERENCE COMMAND *)G CLI$K_VERB_DIRE = 18; (* DIRECTORY *)G CLI$K_VERB_DISM = 19; (* DISMOUNT *)G CLI$K_VERB_EDIT = 20; (* EDIT *)G CLI$K_VERB_EOD = 21; (* EOD *)G CLI$K_VERB_EXAM = 22; (* EXAMINE  *)G CLI$K_VERB_EXIT = 23; (* EXIT *)G CLI$K_VERB_FORT = 24; (* FORTRAN *)G CLI$K_VERB_GOTO = 25; (* GOTO *)G CLI$K_VERB_HELP = 26; (* HELP *)G CLI$K_VERB_IF = 27; (* IF *)G CLI$K_VERB_INIT = 28; (* INITIALIZE *)G CLI$K_VERB_INQU = 29; (* IN QUIRE *)G CLI$K_VERB_LINK = 30; (* LINK *)G CLI$K_VERB_LOGO = 31; (* LOGOUT *)G CLI$K_VERB_MACR = 32; (* MACRO *)G CLI$K_VERB_MCR = 33; (* MCR *)G CLI$K_VERB_ON = 34; (* ON *)G CLI$K_VERB_PRIN = 35; (* PRINT *)G CLI$K_VERB_RUN = 36;  (* RUN *)G CLI$K_VERB_SET = 37; (* SET *)G CLI$K_VERB_SHOW = 38; (* SHOW *)G CLI$K_VERB_STAR = 39; (* START *)G CLI$K_VERB_STOP = 40; (* STOP *)G CLI$K_VERB_SUBM = 41; (* SUBMIT *)G CLI$K_VERB_TYPE = 42; (* TYPE *)G CLI$K_VERB_MO UN = 43; (* MOUNT *)G CLI$K_VERB_PATC = 44; (* PATCH *)G CLI$K_VERB_REPL = 45; (* REPLAY *)G CLI$K_VERB_UNLO = 46; (* UNLOCK *)G CLI$K_VERB_APPE = 47; (* APPEND COMMAND *)G CLI$K_VERB_DUMP = 48; (* DUMP *)G CLI$K_VERB_PURG = 49; (* PURGE *)G C LI$K_VERB_RENA = 50; (* RENAME *)G CLI$K_VERB_CANC = 51; (* CANCEL *)G CLI$K_VERB_LIBR = 52; (* LIBRARY *)G CLI$K_VERB_SORT = 53; (* SORT *)G CLI$K_VERB_REQU = 54; (* REQUEST *)G CLI$K_VERB_SYNC = 55; (* SYNCRONIZE *)G CLI$K_VERB_CORA = 56; (* CORAL *)G CLI$K_VERB_PASC = 57; (* PASCAL *)G CLI$K_VERB_PLI = 58; (* PL/1 *)G CLI$K_VERB_MESS = 59; (* MESSAGE *) N(* DEFINE VERB QENERIC CODES *) LCONST CLI$K_VERB_FORE = 255; (* FOREIGN COMMAND *) (*** MODULE $CLSDEF ***) N(*+ *)N(* *)N(* Security classification block. Contains secrecy and integrity *)N(* level and categories for non-discretionary (mandatory) access controls. *)N(* *)N(*- *) LCONST CLS$S_CLSDEF_TLVRNG = 4; (* Preserve previous size symbol *) KTYPE CLS_TLVRN G$TYPE = RECORD (* Range specifier field references *)G CLS$W_RANGE_LOW : $UWORD; (* Range low limit *)G CLS$W_RANGE_HIGH : $UWORD; (* Range high limit *) END; LCONST CLS$K_END = 0; (* List terminator *)G CLS$K_SC_ENUMERATE = 1; (* Secrecy category enumerated list *)G CLS$K_SC_RANGE = 2; (* Secrecy category range list *)G CLS$K_SC_MASK = 3; (* Secrecy category bit mask *)I CLS$K_IC_ENUMERATE = 17; (* Integrity category enumerated list *)G CLS$K_IC_RANGE = 18; (* Integirty category range list *)G CLS$K_IC_MASK = 19; (* Integrity category bitmask *)G CLS$K_VOID = 255; (* Voided entry *)G CLS$S_CLSDEF_TLV = 8; (* Preserve previous size symbol *) KTYPE CLS_TLV$TYPE = RECORD CASE INTEGER OF (* TLV entry field references *)& 1: (CLS$R_TLV : [BYTE(8)] RECORD END; );G 2: (CLS$B_TAG : [POS(0)] $UBYTE; (* Format code *)[ CLS$B_LENGTH : [POS(8), BYTE(1)] RECORD END; (* Field length, intrepretation format *)G CLS$R_VALUE_SET : [POS(16), BYTE(6)] RECORD END; (* Value set. *) );N(* dependent: *)J 3: (CLS$B_COUNT : [POS(8)] $UBYTE; (* # entries in an enumerated list *)N(* # range pairs in a range list *)N(* # longwords following voided entry *) );G 4: (CLS$B_MASK_SIZE : [POS(8)] $UBYTE; (* # longwords in a bitmask *)] CLS$W_CATLST : [POS(16)] ARRAY [1..1] OF $UWORD; (* Vector of enumerated cat. *) ); 5: ();] 6: (CLS$L_RNGLST : [POS(32)] ARRAY [1..1] OF UNSIGNED; (* Vector of high:low word *)G (* range pairs *) ); 7: ();G 8: (CLS$W_BASE : [POS(16)] $UWORD; (* Bias value *)U CLS$L_MASK : [POS(32)] ARRAY [1..1] OF UNSIGNED; (* <32 * MASK_SIZE> bit mask *) ); 9: (); 10: (); 11: ();P 12: (CLS$W_VOID : [POS(16)] ARRAY [1..1] OF $UWORD; (* words *) ) END; LCONST CLS$K_MIN_SEC_LEV = 0; (* Minimum secrecy level *)G CLS$K_MIN_INT_LEV = 0; (* Minimum integrity level *)G CLS$K_MAX_SEC_LEV = 255; (* Maximum secrecy level *)G CLS$K_MAX_INT _LEV = 255; (* Maximum integrity level *)G CLS$K_MIN_SEC_CAT = 1; (* Minimum secrecy category *)G CLS$K_MIN_INT_CAT = 1; (* Minimum integrity category *)J CLS$K_MAX_SEC_CAT = 65536; (* Maximum supported secrecy category *)L CLS$K_MAX_INT_CAT = 65536; (* Maximum supported integrity category *)G CLS$K_MAX_SEC_CAT_S64I64 = 64; (* Maximum type 0 secrecy category *)I CLS$K_MAX_INT_CAT_S64I64 = 64; (* Maximum type 0 integrity category  *)G CLS$K_MAX_SEC_CAT_S128 = 128; (* Maximum type 1 secrecy category *)J CLS$K_MAX_SEC_CAT_DYN_CAT = 65536; (* Maximum type 2 secrecy category *)L CLS$K_MAX_INT_CAT_DYN_CAT = 65536; (* Maximum type 2 integrity category *)G CLS$K_TYP_S64I64 = 0; (* Type 0 class block identifier *)G CLS$K_TYP_S128 = 1; (* Type 1 class block identifier *)G CLS$K_TYP_DYN_CAT = 2; (* Type 2 class blook identifier *)G CLS$K_LENGTH_HDR = 4; (* Size of common header *)G CLS$K_LENGTH_S64I64 = 20; (* Size of type 0 class block *)G CLS$K_LENGTH_S128 = 20; (* Size of type 1 class block *)G CLS$K_LENGTH_DYN_CAT = 4; (* Size of type 2 class block *) N(* fixed portion *) MCONST CLS$S_CLSDEF = 20; (* Preserve previous size definition *)G CLS$K_LENGTH = 20; (* length of structure *) &TYPE CLS$TYPE = RECORD CASE INTEGER OF. 1: (CLS$R_SEVMS_DEFS : [BYTE(20)] RECORD END; );G 2: (CLS$B_SEC_LEV : [POS(0)] $UBYTE; (* Secrecy level *)G CLS$B_INT_LEV : [POS(8)] $UBYTE; (* Integrity level *)G CLS$B_TYPE : [POS(16)] $UBYTE; (* Class block type *)G (* Class block type identifiers *)Q CLS$B_TLVLST_SIZE : [POS(24)] $UBYTE; (* Size in longwords of TLV list in *)G (* a type 2 class block. *) );N(* *)N(* Usage of the ..._S64I64 and ..._S128 symbolic name forms is preferred. *)N(* Previous name forms have been retained for backwards compatibility only. *)N(* *) 3: ();J 4: (CLS$Q_SEC_CAT_S64I64 : [POS(32)] $UQUAD; (* Secrecy category mask *)L CLS$Q_INT_CAT_S64I64 : [POS(96)] $UQUAD; (* Integrit y category mask *) ); 5: ();H 6: (CLS$O_SEC_CAT_S128 : [POS(32)] $UOCTA; (* Secrecy category mask *) ); 7: ();W 8: (CLS$L_TLVLST : [POS(32)] ARRAY [1..1] OF UNSIGNED; (* Tag-Length-Value_set list *)N(* *)m(* The following definitions have been superseded and are being retained for backwards compatibility only. *)N(* Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. *)N(* *) ); 9: ();q 10: (CLS$Q_SEC_CAT_0 : [POS(32)] $UQUAD; (* Secrecy category mask - Usage of CLS$Q_SEC_CAT_S64I64 preferred *)q CLS$Q_INT_CAT_0 : [POS(96)] $UQUAD; (* Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred *) ); 11: ();n 12: (CLS$O_SEC_CAT_1 : [POS(32)] $UOCTA; (* Secrecy category mask - Usage of CLS$O_SEC_CAT_S128 preferred *)N(* *)m(* The following definitions have been superseded and are being retained for backwards compatibility only. *)N(* Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. *)N(* *) );- 13: (CLS$R_VMS_DEFS : [BYTE(20)] RECORD END; );` 14: (CLS$B_SECUR_LEV : [POS(0)] $UBYTE; (* Security level - Usage of CLS$B_SEC_LEV preferred *)` CLS$B_INTEG_LEV : [POS(8)] $UBYTE;  (* Integrity level - Usage of CLS$B_INT_LEV preferred *) CLS$Q_SECUR_CAT : [POS(32)] $UQUAD; (* Security category mask - Usage of CLS$Q_SEC_CAT_S64I64/CLS$O_SEC_CAT_S128 preferred *)p CLS$Q_INTEG_CAT : [POS(96)] $UQUAD; (* Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred *)N(* *)O(* The CLS$S_CLSDEF definition is provided for backwards compatibility only. *)l(* Usage of the CLS$K_LENGTH_S64I64, CLS $K_LENGTH_S128 and CLS$K_LENGTH_DYN_CAT definitions is preferred. *)N(* *) ) END; N(* *)N(* $CHANGE_CLASS, PARSE_CLASS, FORMAT_CLASS system service item codes *)N(* *) LCONST CLS$_SECSTR = 1; (* Textual secrecy/security string *)G CLS$_INTSTR = 2; (* Textual integrity string *)G CLS$_CLSBLK = 3; (* Simple classification block *)G CLS$_MINCLSBLK = 4; (* Minimum classification block *)G CLS$_MAXCLSBLK = 5; (* Maximum classification block *)I CLS$_WIDTH = 6; (* Width of display for $FORMAT_CLASS *)H CLS$_TRMDSC = 7; (* Line terminator for $FORMAT_CLASS *)G CLS$_INDENT = 8; (* Line indenting for $FORMAT_CLASS *)G CLS$_OLDCLSBLK = 9; (* Previous classification block *)G CLS$_OLDMINCLS = 10; (* Previous minimum class block *)G CLS$_OLDMAXCLS = 11; (* Previous maximum class block *)^ CLS$_TRANQUIL = 12; (* Override tranquility checks - Usage reserved to Digital *)G CLS$_FLAGS = 13; (* Formatting control flags *) N(* ADD ITEM-CODES BEFORE THIS COMMENT *) CONST CLS$_MIN_ITEM_CODE = 1; CLS$_MAX_ITEM_CODE = 13; CLS$M_COMPRESS = 1; CLS$M_EXPAND = 2;  (*** MODULE $CLUEVTDEF ***) LCONST CLUEVTHNDL$K_LENGTH = 8; (* Length of block. *)G CLUEVTHNDL$C_LENGTH = 8; (* Length of block. *) TYPE CLUEVTHNDL$TYPE = RECORD) cluevthndl$l_cluacb_addr : UNSIGNED;% cluevthndl$l_seq_num : UNSIGNED; END; CONST CLUEVT$C_ADD = 1; CLUEVT$C_REMOVE = 2; (*** MODULE $CMBDEF ***) N(*+ *)N(* $CREMBX FLAGS bit definitions *)N(*- *) CONST CMB$M_READONLY = 1; CMB$M_WRITEONLY = 2; &TYPE CMB$TYPE = RECORD CASE INTEGER OF. 1: (CMB$R_CMBDEF_BITS : [BYTE(4)] RECORD END; );[ 2: (CMB$V_READONLY : [POS(0)] $BOOL; (* Channel to be assigned to mailbox is READ ONLY. *)] CMB$V_WRITEONLY : [POS(1)] $B OOL; (* Channel to be assigned to mailbox is WRITE ONLY. *) ) END; (*** MODULE $CPUIDEF ***) LCONST CPUI$K_TICKS = 1; (* Get CPU's tick info *) N(*+ *)N(* CPUI Flags Definitions *)N(*- *) CONST CPUI$M_SEARCH = 1; CPUI$M_RESERVED = -2; -TYPE CPUI_FL AGS$TYPE = RECORD CASE INTEGER OF1 1: (CPUI$R_CPUIDEF_UNION : [BYTE(4)] RECORD END; );& 2: (CPUI$L_FLAGS : [POS(0)] UNSIGNED; ); 3: ();Q 4: (CPUI$V_SEARCH : [POS(0)] $BOOL; (* If CPU not active, search for next CPU *)Q CPUI$V_RESERVED : [POS(1)] $BIT31; (* No other flags defined at this time *) ) END; LCONST CPUI$K_KERNEL_TICKS_INDEX = 0; (* 0 - kernel mode *)G CPUI$K_EXEC_TICKS_INDEX = 1; (* 1 - exec mode *)G CPUI$K_ SUPER_TICKS_INDEX = 2; (* 2 - super mode *)G CPUI$K_USER_TICKS_INDEX = 3; (* 3 - user mode *)G CPUI$K_INT_TICKS_INDEX = 4; (* 4 - interrupt *)G CPUI$K_MPSYNCH_TICKS_INDEX = 5; (* 5 - mpsynch *)G CPUI$K_IDLE_TICKS_INDEX = 6; (* 6 - idle *)G CPUI$K_TICKS_ENTRIES = 7; (* 7 - Total number of entries *) (*** MODULE $CRDEF ***) N(*+ *)N(* CARD READER STATUS BITS *)N(*- *) CONST CR$M_TMODE = 15;G CR$K_T026 = 0; (*026 PUNCH CODE TRANSLATION *)G CR$K_T029 = 1; (*029 PUNCH CODE TRANSLATION *) %TYPE CR$TYPE = RECORD CASE INTEGER OF, 1: (CR$R_CRDEF_BITS : [BYTE(1)] RECORD END; );G 2: (CR$V_TMODE : [POS(0)] $BIT4; (* TRANSLATION MODE *)G (* *)N(* TRANSLATION MODE DEFINITIONS *)N(* *)N(* *) ) END; !(*** MODULE CSHDEF IDENT X-1 ***) N(* $SCHED function codes *) L CONST CSH$_READ_ALL = 23; (* Read data on all processes *)G CSH$_READ_NEW = 24; (* Read data on new processes *)G CSH$_SET_CLASS = 25; (* Place process(es) into class(es) *) CSH$_RES1 = 26; CSH$_RES2 = 27; CSH$_RES3 = 28; CSH$_RES4 = 29;G CSH$_SET_NEW = 30; (* Define this process as "new" *)G CSH$_SET_TIMEOUT = 31; (* Set deadman timer *) CSH$_RES5 = 32; CSH$_RES6 = 33; CSH$_RES7 = 34; CSH$_ RES8 = 35;G CSH$_READ_QUANT = 36; (* Read per-class quanta remaining *)G CSH$_SET_QUANT = 37; (* Define per-class quanta *) CSH$_RES9 = 38; CSH$_RESA = 39; CSH$_RESB = 40; CSH$_RESC = 41;G CSH$_SET_ATTN_AST = 42; (* Establish attention AST *) CSH$_RSED = 43; CSH$_RESE = 44; CSH$_RESF = 45; CSH$_RES0 = 46;G CSH$_CLEAR_ATTN_AST = 47; (* Clear attention AST *) CSH$_MAX_SCHED_FUNC = 48; N(* AST reason mask *) LCONST CSH$V_NEW_PROC = 1; (* Possible new process *) N(* CSHC -- Class ScHeduler Class block *)N(* *)N(* Used to communicate from user to system, defining process/class mapping *) CONST CSHC$K_LENGTH = 8; CSHC$C_LENGTH = 8; TYPE CSHC$TYPE = RECORDG CSHC$L_EPID : UNSIGNED; (* EPID of target process *)H CSHC$W_CLASS : $WORD; (* Class number, 0-N, %X'FFFF' means *)G (* `Take out of class scheduling' *)G CSHC$W_WINDFALL : $UWORD; (* Windfall ticks to grant *) END; N(* CSHP -- Class ScHeduler data block for Processes *)N(* *)N(* Used to communicate from system to user, showing various characteristics *) N(* of processes. *) CONST CSHP$K_LENGTH = 24; CSHP$C_LENGTH = 24; TYPE CSHP$TYPE = RECORDG CSHP$L_STATUS : UNSIGNED; (* Copy of PCB$L_STS *)G CSHP$W_PIX : $UWORD; (* Process index slot *)G CSHP$B_PRI : $BYTE; (* Current priority (internal) *)G CSHP$B_PRIB : $BYTE; (* Current base priority (internal) *)G CSHP$L_EPID : UNSIGNED; (* The offi cial PID *)P CSHP$T_ACCOUNT : PACKED ARRAY [1..8] OF CHAR; (* Account string from PCB *)G CSHP$L_CPUTIM : UNSIGNED; (* CPU time charged *) END; (*** MODULE $CSTDEF ***) N(*+ *)N(* *)N(* Constants defining single-transition operations *)N(*  *) CONST CST$K_CPU_STOP = 1; CST$K_CPU_MIGRATE = 2; CST$K_CPU_START = 3; CST$K_CPU_ASSIGN = 4; CST$K_CPU_DEASSIGN = 5; CST$K_CPU_FAILOVER = 6; CST$K_CPU_POWER_OFF = 7; CST$K_CPU_POWER_ON = 8; N(* *)N(* Constants defining multiple operation masks. The starting *)N(* position of these values must be in the upper word to save *)N(* space for future single-operation codes *)N(* *) CONST CST$m_reserved1 = 255; CST$M_CPU_STOP = 256; CST$M_CPU_MIGRATE = 512; CST$M_CPU_START = 1024; CST$M_CPU_ASSIGN = 2048; CST$M_CPU_DEASSIGN = 4096; CST$M_CPU_FAILOVER = 8192; CST$M_CPU_POWER_OFF = 16384; CST$M_CPU_POWER_ON = 32768; +TYPE CST_MASK$TYPE = RECORD CASE INTEGER OF+ 1: (CST$R_CST_MASK : [BYTE(2)] RECORD END ; );& 2: (CST$v_reserved1 : [POS(0)] $BIT8;% CST$V_CPU_STOP : [POS(8)] $BOOL;( CST$V_CPU_MIGRATE : [POS(9)] $BOOL;' CST$V_CPU_START : [POS(10)] $BOOL;( CST$V_CPU_ASSIGN : [POS(11)] $BOOL;* CST$V_CPU_DEASSIGN : [POS(12)] $BOOL;* CST$V_CPU_FAILOVER : [POS(13)] $BOOL;+ CST$V_CPU_POWER_OFF : [POS(14)] $BOOL;* CST$V_CPU_POWER_ON : [POS(15)] $BOOL; ) END; N(* *)N(* Const ants defining target software nodes for reassignment *)N(* *) CONST CST$K_PARTITION = -1; CST$K_COMMUNITY = -2; CST$K_HARD_PARTITION = -3; CST$K_SW_ROOT = -4; N(* *)N(* Constants defining CPU types *)N(* *) CONST CST$K_ANY_OWNED_CPU = -1; CST$K_ANY_ACTIVE_CPU = -2; CST$K_ANY_STOPPED_CPU = -3; CST$K_ANY_UNOWNED_CPU = -4; N(* *)N(* Constants defining flag parameter characteristics *)N(* *) )CONST CST$M_CPU_DEFAULT_CAPABILITIES = 1; CST$M_CPU_ALLOW_ORPHANS = 2; CST$M_CPU_DECONFIGURE = 4; ,TYPE CST_FLAGS$TYPE  = RECORD CASE INTEGER OF, 1: (CST$R_CST_FLAGS : [BYTE(1)] RECORD END; );5 2: (CST$V_CPU_DEFAULT_CAPABILITIES : [POS(0)] $BOOL;. CST$V_CPU_ALLOW_ORPHANS : [POS(1)] $BOOL;, CST$V_CPU_DECONFIGURE : [POS(2)] $BOOL; ) END; (*** MODULE $DCDEF ***) N(* *)N(* DEVICE ADAPTER, CLASS, AND TYPE DEFINITIONS *)N(*  *)N(* *)N(* DEFINE ADAPTER TYPES *)N(* When adding a new adapter type, make sure a corresponding entry is added *)R(* to the ADP_TBL_UP and ADP_TBL_DWN tables in any affected [SYSLOA]ERRSUB*.MAR *)N(* modules. *)N(* *)P(***** *********************************************************************** *)N(* FURTHERMORE, when altering the list of AT$_ symbols, you MUST update the *)N(* module [MANAGE]SMIIOGEN-UTILS.C. *)P(**************************************************************************** *)N(*DEFINE ADAPTER TYPES *) LCONST AT$_MBA = 0; (* MASSBUS ADAPTER *)G AT$_UBA = 1;  (* UNIBUS ADAPTER *)G AT$_DR = 2; (* DR32 ADAPTER *)G AT$_MPM = 3; (* MULTI-PORT MEMORY *)G AT$_CI = 4; (* CI BUS *)G AT$_NULL = 5; (* NULL (SOFTWARE) ADAPTER *)G AT$_BDA = 6; (* BI DISK ADAPTER(KDB50) *)G AT$_DMB32 = 7; (* DMB32 ADAPTER *)G AT$_DRB32 = 8 ; (* DRB32 ADAPTER *)G AT$_BVP = 9; (* BVP GENERIC ADAPTER *)G AT$_BVP_SSP = 10; (* BVP STORAGE SYSTEMS PORT *)G AT$_BVP_NIP = 11; (* BVP NI PORT *)G AT$_KA410 = 12; (* VAXstar system *)G AT$_KA420 = 12; (* PVAX/CVAXstar system *)G AT$_GENBI = 13; (* Generic BI device *)G A T$_NBI = 14; (* NBIB on BI. *) AT$_DISK9 = 15; AT$_XBI = 16; AT$_TERM9 = 17; AT$_TAPE9 = 18; AT$_PRTR9 = 19; AT$_SFUN9 = 20; AT$_USER9 = 21; AT$_MBUSIO = 22; AT$_MBUSGFX = 23; AT$_KA640 = 24; AT$_XWATCH = 25; AT$_XBI_PLUS_XMI = 26; AT$_XBI_PLUS_BI = 27; AT$_XJA = 28; AT$_HSX50 = 29; AT$_KDM70 = 29; AT$_NI = 30; AT$_KA43 = 31; AT$_SJA = 32; AT$_GENXMI = 33; AT$_KA440 = 34; AT$_KA46 = 34; AT$_KA520 = 35; AT$_X SA = 36; AT$_XZA = 37; AT$_XZA_SCSI = 37; AT$_VME = 38; AT$_IOP = 39; AT$_LAMB = 40; AT$_KA49 = 41; AT$_TC = 42; AT$_X1303 = 43; AT$_XMI = 44; AT$_FBUS = 45; AT$_COREIO = 46; AT$_KA0202 = 47; AT$_KA0202_LBUS = 48; AT$_KA0302 = 49; AT$_KA0402 = 50; AT$_TURBO_SCSI = 51; AT$_CIMNA = 52; AT$_XZA_DSSI = 53; AT$_DEMNA = 54; AT$_FFA = 55; AT$_KA0602 = 56; AT$_EISA = 57; AT$_VTI_COMBO = 58; AT$_KA0702 = 64; AT$_TC_MULTI_NI = 65; AT$_AHA_1742A = 66; AT$_KA0902 = 67; AT$_PCI = 68; AT$_KA0802 = 69; AT$_MULTIFUNCTION_PCI = 70; AT$_ISA = 71; AT$_XBUS = 72; AT$_KA0C05 = 73; AT$_KA0E04 = 74; AT$_KA0D02 = 75; AT$_THIRDPARTY0 = 76; AT$_THIRDPARTY1 = 77; AT$_THIRDPARTY2 = 78; AT$_THIRDPARTY3 = 79; AT$_THIRDPARTY4 = 80; AT$_THIRDPARTY5 = 81; AT$_THIRDPARTY6 = 82; AT$_THIRDPARTY7 = 83; AT$_MULTIFUNCTION_ISA = 84; AT$_KA0F05 = 85; AT$_LMCP = 86; AT$_TIOP = 87; AT$_ITIOP = 88; AT$_KA1102 = 89; AT$ _KA1504 = 90; AT$_HPC = 91; AT$_PCMCIA = 92; AT$_KA1402 = 93; AT$_KA0905 = 94; AT$_KA1802 = 95; AT$_KA1805 = 96; AT$_MEMCHAN = 97; AT$_KA1B02 = 98; AT$_KA1B05 = 99; AT$_KA1A05 = 100; AT$_KA1605 = 101; AT$_MC_BUS = 102; AT$_KA1105 = 103; AT$_KA1702 = 104; AT$_KA1E07 = 105; AT$_KA2005 = 106; AT$_KA2405 = 107; AT$_KA2208 = 108; AT$_KA2508 = 109; AT$_KA2308 = 110; AT$_WFQBB = 111; AT$_WFIOP = 112; AT$_WFPCA = 113; AT$_KA2608 = 114; AT$_KA270F =  115; AT$_IO7 = 116; AT$_I2000 = 117; AT$_ACPI_IA64_PLTFRM = 118; AT$_ACPI_IA64_CONTAIN = 119; AT$_ACPI_IA64_SYSBUS = 120; AT$_ACPI_IA64_BUSLESS = 121; AT$_ACPI_IA64_IOC = 122; AT$_PCIE = 123; N(* *)N(* DEFINE DEVICE CLASSES *)N(* *)N(*DEFINE DEVICE CLASSES *) LCONST DC$_ANY = 0; (* ANY *) N(* NOTE: This "special" device class *)N(* is only used by [SYS]SYSGETDVI.MAR for *)N(* item code validation. It should not be *)N(* used for anything else, especially for *)N(* device creation by driver writers! *) LCONST DC$_DISK = 1; (* DISK *)G DC$_TAPE = 2; (* TAPES *)I DC$_SCOM = 32; (* SYNCHRONOUS COMMUNICATIONS DEVICES *)G DC$_CARD = 65; (* CARD READER *)G DC$_TERM = 66; (* TERMINAL *)G DC$_LP = 67; (* LINE PRINTER *)G DC$_WORKSTATION = 70; (* WORK STATIONS *)G DC$_REALTIME = 96; (* REAL-TIME *)G DC$_DECVOICE = 97; (* DECVOICE products *)G DC$_AUDIO = 98; (* General audio *)G DC$_VIDEO = 99; (* General video *)G DC$_BUS = 128; (* BUSES, E.G, CI *)G DC$_MAILBOX = 160; (* MAILBOX *)G DC$_REMCSL_STORAGE = 170;  (* REMOTE CONSOLE STORAGE *)G DC$_MISC = 200; (* MISCELLANEOUS DEVICES *) N(* *)N(* DEFINE DEVICE TYPES *)N(* *)N(* *)N(* DISK DEVICES *)N(* *) LCONST DT$_RK06 = 1; (*RK06 DISK *)G DT$_RK07 = 2; (*RK07 DISK *)G DT$_RP04 = 3; (*RP04 DISK *)G DT$_RP05 = 4; (*RP05 DISK *)G DT$_RP06 = 5; (*RP06 DISK *)G DT$_RM03 = 6;  (*RM03 DISK *)G DT$_RP07 = 7; (*RP07 DISK *)G DT$_RP07HT = 8; (*RP07 DISK WITH HEAD/TRACK *)G DT$_RL01 = 9; (*RL01 DISK *)G DT$_RL02 = 10; (*RL02 DISK *)G DT$_RX02 = 11; (*RX02 DISK *)G DT$_RX04 = 12; (*RX04 DISK *)G DT$_RM80 = 13;  (*RM80 DISK *)G DT$_TU58 = 14; (*TU58 *)G DT$_RM05 = 15; (*RM05 DISK *)G DT$_RX01 = 16; (*RX01 DISK *)G DT$_ML11 = 17; (*ML11 disk *)G DT$_RB02 = 18; (*R02 ON RB730 *)G DT$_RB80 = 19; (*R80 ON RB730 *)G DT$_R A80 = 20; (*R80 ON INTELLIGENT CONTROLLER *)G DT$_RA81 = 21; (*R81 ON INTELLIGENT CONTROLLER *)G DT$_RA60 = 22; (*PINON ON INTELLIGENT CONTROLLER *)G DT$_RZ01 = 23; (*AZTEC REMOVABLE (Old name) *)G DT$_RC25 = 23; (*AZTEC REMOVABLE (New name) *)G DT$_RZF01 = 24; (*AZTEC FIXED (Old name) *)G DT$_RCF25 = 24; (*AZTEC FIXED (New name)  *)G DT$_RD51 = 25; (*RD51 FIXED DISK DRIVE *)G DT$_RX50 = 26; (*RX50 FLOPPY DISK DRIVE *)G DT$_RD52 = 27; (*RD52 FIXED DISK DRIVE *)G DT$_RD53 = 28; (*RD53 FIXED DISK DRIVE *)G DT$_RD26 = 29; (*RD26 FIXED DISK DRIVE *)G DT$_RA82 = 30; (*RA82 FIXED DISK DRIVE *)G DT$_RD31 = 31; (*RD31 FIXED DISK DRIVE *)G DT$_RD54 = 32; (*RD54 FIXED DISK DRIVE *)G DT$_CRX50 = 33; (*Console RX50 *)G DT$_RRD50 = 34; (*RRD50 *)G DT$_GENERIC_DU = 35; (*Brand X Disk *)G DT$_RX33 = 36; (*RX33 DISKETTE DRIVE *)G DT$_RX18 = 37; (*RX18 *) DT$_RA70 = 38; DT$_RA90 = 39; DT$_RD3 2 = 40; DT$_DISK9 = 41; DT$_RX35 = 42; DT$_RF30 = 43; DT$_RF70 = 44; DT$_RF71 = 44; DT$_RD33 = 45; DT$_ESE20 = 46; DT$_TU56 = 47; DT$_RZ22 = 48; DT$_RZ23 = 49; DT$_RZ24 = 50; DT$_RZ55 = 51; DT$_RRD40S = 52; DT$_RRD40 = 53; DT$_GENERIC_DK = 54; DT$_RX23 = 55; DT$_RF31 = 56; DT$_RF72 = 57; DT$_RAM_DISK = 58; DT$_RZ25 = 59; DT$_RZ56 = 60; DT$_RZ57 = 61; DT$_RX23S = 62; DT$_RX33S = 63; DT$_RA92 = 64; DT$_SSTRIPE = 65; DT$_RZ23L = 6 6; DT$_RX26 = 67; DT$_RZ57I = 68; DT$_RZ31 = 69; DT$_RZ58 = 70; DT$_SCSI_MO = 71; DT$_RWZ01 = 71; DT$_RRD42 = 72; DT$_CD_LOADER_1 = 73; DT$_ESE25 = 74; DT$_RFH31 = 75; DT$_RFH72 = 76; DT$_RF73 = 77; DT$_RFH73 = 78; DT$_RA72 = 79; DT$_RA71 = 80; DT$_RAH72 = 80; DT$_RF32 = 81; DT$_RF35 = 81; DT$_RFH32 = 82; DT$_RFH35 = 82; DT$_RFF31 = 83; DT$_RF31F = 83; DT$_RZ72 = 84; DT$_RZ73 = 85; DT$_RZ35 = 86; DT$_RZ24L = 87; DT$_RZ25L = 88; DT$_RZ5 5L = 89; DT$_RZ56L = 90; DT$_RZ57L = 91; DT$_RA73 = 92; DT$_RZ26 = 93; DT$_RZ36 = 94; DT$_RZ74 = 95; DT$_ESE52 = 96; DT$_ESE56 = 97; DT$_ESE58 = 98; DT$_RZ27 = 99; DT$_RZ37 = 100; DT$_RZ34L = 101; DT$_RZ35L = 102; DT$_RZ36L = 103; DT$_RZ38 = 104; DT$_RZ75 = 105; DT$_RZ59 = 106; DT$_RZ13 = 107; DT$_RZ14 = 108; DT$_RZ15 = 109; DT$_RZ16 = 110; DT$_RZ17 = 111; DT$_RZ18 = 112; DT$_EZ51 = 113; DT$_EZ52 = 114; DT$_EZ53 = 115; DT$_EZ54 = 116; DT$ _EZ58 = 117; DT$_EF51 = 118; DT$_EF52 = 119; DT$_EF53 = 120; DT$_EF54 = 121; DT$_EF58 = 122; DT$_RF36 = 123; DT$_RF37 = 124; DT$_RF74 = 125; DT$_RF75 = 126; DT$_HSZ10 = 127; DT$_RZ28 = 128; DT$_GENERIC_RX = 180;G DT$_FD1 = 129; (*FOREIGN DISK TYPE 1 *)G DT$_FD2 = 130; (*FOREIGN DISK TYPE 2 *)G DT$_FD3 = 131; (*FOREIGN DISK TYPE 3 *)G DT$_FD4 = 132; (*FOREIGN DIS K TYPE 4 *)G DT$_FD5 = 133; (*FOREIGN DISK TYPE 5 *)G DT$_FD6 = 134; (*FOREIGN DISK TYPE 6 *)G DT$_FD7 = 135; (*FOREIGN DISK TYPE 7 *)G DT$_FD8 = 136; (*FOREIGN DISK TYPE 8 *) DT$_RZ29 = 137; DT$_RZ26L = 138; DT$_RRD43 = 139; DT$_RRD44 = 140; DT$_HSX00 = 141; DT$_HSX01 = 142; DT$_RZ26B = 143; DT$_RZ27B = 144; DT$_RZ28B = 145; DT$ _RZ29B = 146; DT$_RZ73B = 147; DT$_RZ74B = 148; DT$_RZ75B = 149; DT$_RWZ21 = 150; DT$_RZ27L = 151; DT$_HSZ20 = 152; DT$_HSZ40 = 153; DT$_HSZ15 = 154; DT$_RZ26M = 155; DT$_RW504 = 156; DT$_RW510 = 157; DT$_RW514 = 158; DT$_RW516 = 159; DT$_RWZ52 = 160; DT$_RWZ53 = 161; DT$_RWZ54 = 162; DT$_RWZ31 = 163; DT$_EZ31 = 164; DT$_EZ32 = 165; DT$_EZ33 = 166; DT$_EZ34 = 167; DT$_EZ35 = 168; DT$_EZ31L = 169; DT$_EZ32L = 170; DT$_EZ33L = 171; DT$_RZ28L = 172; DT$_RWZ51 = 173; DT$_EZ56R = 174; DT$_RAID0 = 175; DT$_RAID5 = 176; DT$_CONSOLE_CALLBACK = 177; DT$_FILES_64 = 178; DT$_SWXCR = 179; DT$_SNAPPY_DISK = 180; DT$_SNAPPY_POOL = 181; DT$_USB_CB_DISK = 182; N(* *)N(* TAPE DEVICES *)N(* *) LCONST DT $_TE16 = 1; (*TE16 MAGTAPE *)G DT$_TU45 = 2; (*TU45 MAGTAPE *)G DT$_TU77 = 3; (*TU77 MAGTAPE *)G DT$_TS11 = 4; (*TS11 MAGTAPE *)G DT$_TU78 = 5; (*TU78 MAGTAPE *)G DT$_TA78 = 6; (*TA78 MAGTAPE *)G DT$_TU80 = 7; (*TU80 MAGTAPE *)G DT$_TU81 = 8; (*TU81 MAGTAPE *) DT$_TA81 = 9;G DT$_TK50 = 10; (*TK50 CARTRIDGE TAPE *)G DT$_MR_TU70 = 11; (*TU70 STC TAPE (DX20) *)G DT$_MR_TU72 = 12; (*TU72 STC TAPE *)G DT$_MW_TSU05 = 13; (*TSU05 TAPE (CSS) *)G DT$_MW_TSV05 = 14; (*TSV05 TAPE (CSS) *)G DT$_TK70 = 15; (*TK7 0 CARTRIDGE TAPE *) DT$_RV20 = 16; DT$_RV80 = 16;G DT$_TK60 = 17; (*TK60 CARTRIDGE TAPE *)G DT$_GENERIC_TU = 18; (*Brand X Tape *)G DT$_TA79 = 19; (*TA79 *) DT$_TAPE9 = 20; DT$_TA90 = 21; DT$_TF30 = 22; DT$_TF85 = 22; DT$_TF70 = 23; DT$_RV60 = 24; DT$_TZ30 = 25; DT$_TM32 = 26; DT$_TZX0 = 27; DT$_TSZ05 = 27; DT$_GENERIC_MK = 28; DT$_TK5 0S = 29; DT$_TZ30S = 30; DT$_TK70L = 31; DT$_TLZ04 = 32; DT$_TZK10 = 33; DT$_TSZ07 = 34; DT$_TSZ08 = 35; DT$_TA90E = 36; DT$_TZK11 = 37; DT$_TZ85 = 38; DT$_TZ86 = 39; DT$_TZ87 = 40; DT$_TZ857 = 41; DT$_EXABYTE = 42; DT$_TAPE_LOADER_1 = 43; DT$_TA91 = 44; DT$_TLZ06 = 45; DT$_TA85 = 46; DT$_TKZ60 = 47; DT$_TLZ6 = 48; DT$_TZ867 = 49; DT$_TZ877 = 50; DT$_TAD85 = 51; DT$_TF86 = 52; DT$_TKZ09 = 53; DT$_TA86 = 54; DT$_TA87 = 55; DT$_TD34 = 56; DT$_TD44 = 57; DT$_HST00 = 58; DT$_HST01 = 59; DT$_TLZ07 = 60; DT$_TLZ7 = 61; DT$_TZ88 = 62; DT$_TZ885 = 63; DT$_TZ887 = 64; DT$_TZ89 = 65; DT$_TZ895 = 66; DT$_TZ897 = 67; DT$_TZ875 = 68; DT$_TL810 = 69; DT$_TL820 = 70; DT$_TZ865 = 71; N(* *)N(* TERMINAL DEVICE TYPES *)N(* *)N(* new definitions for terminal types should be placed in $ttdef only *)N(* this table remains around for compatibility only *)N(* *)N(* **** MATCHES $TTDEF ***** *) LCONST DT$_TTYUNKN = 0; (* UNKNOWN TERMINAL *)G DT$_VT05 = 1; (* VT05 *)G DT$_FT1 = 16;  (* FOREIGN TERMINAL TYPES *) DT$_FT2 = 17; DT$_FT3 = 18; DT$_FT4 = 19; DT$_FT5 = 20; DT$_FT6 = 21; DT$_FT7 = 22;G DT$_FT8 = 23; (* END OF FOREIGN TYPES *) N(* RESERVE REST UP TO 32 FOR EXTENSIONS *) LCONST DT$_LAX = 32; (* LA TYPE TERMINAL *)G DT$_LA36 = 32; (* LA36 *) DT$_LA120 = 33;G DT$_VT5X = 64; (* VT5X TYPE *)G DT$_VT52 = 64; (* VT52 *)G DT$_VT55 = 65; (* VT55 *)G DT$_TQ_BTS = 4; (* TQ_BTS *)G DT$_TEK401X = 10; (* TEK401X series *)G DT$_VT100 = 96; (* VT100 *) DT$_VK100 = 2; DT$_VT173 = 3; DT$_LA34 = 34; DT$_LA38 = 35; DT$_LA12 = 36;  DT$_LA24 = 37; DT$_LA100 = 37; DT$_LQP02 = 38; DT$_VT101 = 97; DT$_VT102 = 98; DT$_VT105 = 99; DT$_VT125 = 100; DT$_VT131 = 101; DT$_VT132 = 102;G DT$_DZ11 = 66; (* DZ11 CONTROLLER *)G DT$_DZ32 = 67; (* DZ32 CONTROLLER *)G DT$_DZ730 = 68; (* DZ730 (COMBO) CONTROLLER *)G DT$_DMZ32 = 69; (* DMZ32 CONTROLLER *)G DT$_DHV = 70; (* DHV CONTROLLER *)G DT$_DHU = 71; (* DHU CONTROLLER *)G DT$_SLU = 72; (* Onboard Serial Line Unit *)G DT$_TERM9 = 73; (*Terminal on 009 *)G DT$_LAT = 74; (* LAT terminals *) N(* *)N(* Terminal WORKSTATIONS *)N(* *) LCONST DT$_VS100 = 1; (* VAXstation 100 *)G DT$_VS125 = 2; (* VAXstation 125 *)G DT$_VL_VS8200 = 3; (* VAXstation 8200 (Lynx) *)G DT$_VD = 4; (* VAXstation Vir. Device *) DT$_DECW_OUTPUT = 5; DT$_DECW_INPUT = 6; DT$_DECW_PSEUDO = 7; N(* *)N(* SYNCHRONOUS COMMUNICATIONS DEVICE TYPES *)N(* *) LCONST DT$_DMC11 = 1; (* DMC11 *)G DT$_DMR11 = 2; (* DMR11 *)H DT$_XK_3271 = 3; (* DUP-11 FOR 3271 PROTOCOL EMULATOR *)G DT$_XJ_2780 = 4; (* DUP-11 FOR 2780 " " *)G DT$_NW_X25 = 5;  (* X25 PROTOCOL EMULATOR *)G DT$_NV_X29 = 6; (* X29 " " *)G DT$_SB_ISB11 = 7; (* ISB-11 DEC dataway *)G DT$_MX_MUX200 = 8; (* MUX-200 PROTOCOL EMULATOR *)G DT$_DMP11 = 9; (* DMP11 *)G DT$_DMF32 = 10; (* DMF32 *)G DT$_XV_3271 = 11; (* DV-11 3271 PROTOCOL EMULATOR *)G DT$_CI =  12; (* CI - Computer Interconnect *)G DT$_NI = 13; (* NI - Network Interconnect *)G DT$_UNA11 = 14; (* UNIBUS to NI adapter *)G DT$_DEUNA = 14; (* UNIBUS to NI adapter *)G DT$_YN_X25 = 15; (* KMS11 X.25 P. E. *)G DT$_YO_X25 = 16; (* " " " *)G DT$_YP_ADCCP = 17; (* " ADCCP P.E. *) G DT$_YQ_3271 = 18; (* " " " *)G DT$_YR_DDCMP = 19; (* " DDCMP *)G DT$_YS_SDLC = 20; (* " SDLC *)G DT$_UK_KTC32 = 21; (* " KTC32 *)G DT$_DEQNA = 22; (* Q-BUS to NI adapter *)G DT$_DMV11 = 23; (* DMV11 *)G DT$_ES_LANCE = 24; (* SCORPIO to NI adapter  *)G DT$_DELUA = 25; (* LSI version of DEUNA *)G DT$_NQ_3271 = 26; (* DHCF *)G DT$_DMB32 = 27; (* DMB32 (BICombo) *)K DT$_YI_KMS11K = 28; (* not a product, used by field service *)G DT$_ET_DEBNT = 29; (* DEBNT (DEBNA grandpa) *)G DT$_ET_DEBNA = 29; (* DEBNA (BI-NI adapter) *)G DT$_SJ_DSV11 = 30; (* DSV11 Q- BUS sync adapter *)G DT$_SL_DSB32 = 31; (* DSB32 BI sync adaptor *)G DT$_ZS_DST32 = 32; (* DST32, X25 *)G DT$_XQ_DELQA = 33; (* DELQA - Q-BUS to NI adaptor *)G DT$_ET_DEBNI = 34; (* DEBNI (BI-NI adapter) *)G DT$_EZ_SGEC = 35; (* SGEC CVAX to ethernet chip *) DT$_EX_DEMNA = 36; DT$_DIV32 = 37; DT$_XQ_DEQTA = 38; DT$_FT_NI = 39; DT$_EP_LANCE = 40; DT$ _KWV32 = 41; DT$_SM_DSF32 = 42; DT$_FX_DEMFA = 43;I DT$_SF_DSF32 = 44; (* FT unit for DSF32 CIRRUS sync comm *)G DT$_SE_DUP11 = 45; (* SEDRIVER common DUP11 sync comm *)G DT$_SE_DPV11 = 46; (* SEDRIVER common DPV11 sync comm *)G DT$_ZT_DSW = 47; (* Generic DSW sync com *)G DT$_FC_DEFZA = 48; (* Turbochannel to FDDI *)G DT$_EC_PMAD = 49; (* Turbochannel to Ethernet *)G D T$_EZ_TGEC = 50; (* TGEC ethernet chip *)G DT$_EA_DEANA = 51; (* Futurebus to Ethernet *)G DT$_EY_NITC2 = 52; (* Turbochannel to Ethernet *)G DT$_ER_DE422 = 53; (* EISA bus to Ethernet *)G DT$_ER_DE200 = 54; (* ISA bus to Ethernet *)I DT$_EW_TULIP = 55; (* Integral PCI bus to TULIP Ethernet *)G DT$_FA_DEFAA = 56; (* Futurebus to FDDI  *)G DT$_FC_DEFTA = 57; (* Turbochannel to FDDI *)G DT$_FQ_DEFQA = 58; (* Q-bus to FDDI *)G DT$_FR_DEFEA = 59; (* EISA bus to FDDI *)G DT$_FW_DEFPA = 60; (* PCI bus to FDDI *)G DT$_IC_DETRA = 61; (* Turbochannel to Token Ring *)G DT$_IQ_DEQRA = 62; (* Q-bus to Token Ring *)G DT$_IR_DW300 = 63; (* EISA bus to To ken Ring *)G DT$_ZR_SCC = 64; (* SCC on AXP workstations *)G DT$_ZY_DSYT1 = 65; (* Turbo channel sync interface *)G DT$_ZE_DNSES = 66; (* EISA sync interface *)G DT$_ER_DE425 = 67; (* EISA bus to TULIP Ethernet *)G DT$_EW_DE435 = 68; (* PCI bus to TULIP Ethernet *)G DT$_ER_DE205 = 69; (* ISA bus to LEMAC Ethernet *)G DT$_HC_OTTO = 70; (* Tu rbochannel to ATM *)G DT$_ZS_PBXDI = 71; (* ISA sync comms card *)G DT$_EL_ELAN = 72; (* Emulated CSMACD LAN for ATM *)G DT$_HW_OTTO = 73; (* PCI to ATM *)G DT$_EO_3C598 = 74; (* PCMCIA to Ethernet *)G DT$_IW_TC4048 = 75; (* PCI to TokenRing *)G DT$_EW_DE450 = 76; (* PCI to DC21040 Ethernet *)G DT$_EW_DE500 = 77;  (* PCI to DC21140 Ethernet *)G DT$_CL_CLIP = 78; (* Classical IP over ATM *)G DT$_ZW_PBXDP = 79; (* PCI sync comms card *)G DT$_HW_METEOR = 80; (* PCI-ATM ATMworks 351 *)G DT$_ER_DE305 = 81; (* ISA bus to Ethernet *)G DT$_EW_DEGPA = 82; (* PCI to Gigabit Ethernet (DEGPA) *)G DT$_IW_RACORE = 83; (* PCI to TokenRing (Racore) *)G DT$_EB_SMLAN  = 84; (* Shared Memory (Galaxy) *)G DT$_EI_82558 = 85; (* PCI to Fast Ethernet (82558) *)G DT$_EI_82559 = 86; (* PCI to Fast Ethernet (82559) *)G DT$_HW_HE622 = 87; (* PCI to ATM (HE622) *)G DT$_HW_HE155 = 88; (* PCI to ATM (HE155) *)G DT$_EW_BCM5703 = 89; (* PCI/PCIX to GBE (Broadcom 5703) *)G DT$_EW_BCM5704 = 90; (* PCI/PCIX to GBE (Broadcom 5704) *)G D T$_EW_XFRAME = 91; (* PCI/PCIX 10 GBE (S2io) *)G DT$_EW_BCM5701 = 92; (* PCI/PCIX to GBE (Broadcom 5701) *)G DT$_LL_LLAN = 93; (* Logical LAN (failover) *)G DT$_EG_ELP_FC = 94; (* Emulex LP Fibre Channel *)G DT$_EG_Q_FC = 95; (* Qlogic Fibre Channel *)G DT$_EI_82540 = 96; (* Intel Gigabit (8254x) *)G DT$_VL_VLAN = 97; (* VLAN *)G DT$_EW_BCM5715 = 98; (* PCIE to GBE (Broadcom 5715) *)G DT$_EI_AVIO = 99; (* HPVM AVIO LAN Device *)G DT$_ER_BCM57711 = 100; (* PCIe 10 GBE (Broadcom 57711-LOM) *)G DT$_EW_BCM57711 = 101; (* PCIe 10 GBE (Broadcom 57711) *)G DT$_EB_BE = 102; (* PCIe 10 GBE CNA (Emulex BE3) *)N DT$_EW_BE = 103; (* PCIe 10 GBE CNA (Emulex BE3 Tiger LOM) *) N(* *)N(* LINE PRINTER AND CARD READER DEVICE TYPES *)N(* *) LCONST DT$_LP11 = 1; (* LP11 *)G DT$_LA11 = 2; (* LA11 *)G DT$_LA180 = 3; (* LA180 *)G DT$_LC_DMF32 = 4; (* DMF32 *)G DT$ _LI_DMB32 = 5; (* DMB32 *)G DT$_PRTR9 = 6; (*Printer on 009 *)G DT$_SCSI_SCANNER_1 = 7; (* SCSI Scanner *)G DT$_PC_PRINTER = 8; (*PC Printer *)G DT$_CR11 = 1; (* CR11 CARD READER *) N(* *)N(* MAILBOX DEVICE TYPES *)N(* *) LCONST DT$_MBX = 1; (* LOCAL MEMORY MAILBOX *)G DT$_SHRMBX = 2; (* SHARED MEMORY MAILBOX *)G DT$_NULL = 3; (* The NULL DEVICE *)G DT$_PIPE = 4; (* PIPE DEVICE *) N(* *)N(* REMOTE CONS OLE STORAGE DEVICE TYPES *)N(* *) LCONST DT$_DAP_DEVICE = 1; (* DAP-ACCESSED DEVICE *) N(* *)N(* REALTIME DEVICE TYPES *)N(* *) LCONST DT$_LPA11 = 1;  (* LPA-11 *)G DT$_DR780 = 2; (* DR780 *)G DT$_DR750 = 3; (* DR750 *)G DT$_DR11W = 4; (* DR11W *)G DT$_PCL11R = 5; (* PCL11 RECEIVER (CSS) *)G DT$_PCL11T = 6; (* PCL11 TRANSMTTER (CSS) *)G DT$_DR11C = 7; (* DR11C PARALLEL INTERFACE *)G DT$_BS_DT07 = 8; (* UNIBUS SWITCH *)N DT$_XP_PCL11B = 9; (* PCL-11B (DECNET and NONDECNET mode CSS) *)G DT$_IX_IEX11 = 10; (* IEEE-488 to UNIBUS INTERFACE *)G DT$_FP_FEPCM = 11; (* FEPCM CSS frontend processor *)G DT$_TK_FCM = 12; (* FEPCM CSS frontend processor *)G DT$_XI_DR11C = 13; (* PARALLEL INTERFACE ON DMF-32 *)G DT$_XA_DRV11WA = 14; (* DMA Parallel Interface * )G DT$_DRB32 = 15; (* DRB32 (or MFA) *)G DT$_HX_DRQ3B = 16; (* DRQ3B PARALLEL INTERFACE *) N(* *)N(* DECVOICE DEVICES *)N(* *) LCONST DT$_DECVOICE = 1; (* VQ- DECVOICE class driver *)G DT$_DTC04 = 2; (* VX DECvoice 1 M7132 port driver *)H DT$_DTC05 = 3; (* VM Decvoice III M3135 port driver *)H DT$_DTCN5 = 4; (* VN Decvoice III M3136 port driver *) N(* *)N(* AUDIO DEVICES *)N(* *) LCONST DT$_AMD79C30A = 1; (* AMD79C30A on VLC/PMARIA H *)S DT$_CMI8738 = 2; (* CMI8738 sound chip bearing HP Part no AD317A *) N(* *)N(* BUS CLASS DEVICES *)N(* *) LCONST DT$_CI780 = 1; (* CI780 *)G DT$_CI750 = 2; (* CI750 *)G DT$_U QPORT = 3; (* UQPORT is generic UDA *)G DT$_UDA50 = 3; (* UDA50 *)G DT$_UDA50A = 4; (* UDA50A *)G DT$_LESI = 5; (* Low end storage *)G DT$_TU81P = 6; (* TU81 port *)G DT$_RDRX = 7; (* RDRX port *)G DT$_TK50P = 8; (* TK50 port  *)G DT$_RUX50P = 9; (* RUX50 port *)G DT$_RC26P = 10; (* RC26P port *)G DT$_QDA50 = 11; (* KDA50 port (old name) *)G DT$_KDA50 = 11; (* KDA50 port *)G DT$_BDA50 = 12; (* KDB50 port (old name) *)G DT$_KDB50 = 12; (* KDB50 port (alias BDA50) *)G DT$_RRD50P = 13; (* RRD50 port  *)G DT$_QDA25 = 14; (* KDA25 port (old name) *)G DT$_KDA25 = 14; (* KDA25 port *)G DT$_BCI750 = 15; (* BI-CI750 port *)G DT$_BCA = 16; (* BI-CI port *)G DT$_RQDX3 = 17; (* RQDX3 port *)G DT$_NISCA = 18; (* NI-SCA port *)G DT$_AIO = 19; (* BVP SSP port *)G DT$_KFBTA = 19; (* BVP SSP port *)G DT$_AIE = 20; (* BVP multi-port *)G DT$_DEBNT = 20; (* BVP multi-port *) DT$_BSA = 21; DT$_KSB50 = 21;G DT$_TK70P = 22; (* TK70 port *) DT$_RV20P = 23; DT$_RV80P = 23;G DT$_TK60P = 24; (* TK60 port *) DT$_SII = 25; DT$_KFSQSA = 26; DT$_KFQSA = 26; DT$_SHAC = 27; DT$_CIXCD = 28; DT$_N5380 = 29; DT$_SCSII = 30; DT$_HSX50 = 31; DT$_KDM70 = 31; DT$_TM32P = 32; DT$_TK7LP = 33; DT$_SWIFT = 34; DT$_N53C94 = 35; DT$_KFMSA = 36; DT$_SCSI_XTENDR = 37; DT$_FT_TRACE_RAM = 38; DT$_XVIB = 39; DT$_XZA_SCSI = 40; DT$_XZA_DSSI = 41; DT$_N710_SCSI = 42; DT$_N710_DSSI = 43; DT$_AHA1742A = 44; DT$_TZA_SCSI = 45; DT$_N810_SCSI = 46; DT$_CIPCA = 47; DT$_ISP1020 = 48; DT$_MC_SPUR = 49; DT$_PZA _SCSI = 50;G DT$_MCSCA = 51; (* MC-SCA port pmdriver *)G DT$_SMCI = 52; (* SMCI port (pbdriver) *) DT$_KZPCM_SCSI = 53; DT$_SYM896_SCSI = 54; DT$_FCP_SCSI = 55; DT$_LP7000_FC = 56; DT$_SYM895_SCSI = 57; DT$_KZPCA_SCSI = 58; DT$_ADAPTEC7892_SCSI = 59; DT$_ADAPTEC7895_SCSI = 60; DT$_ADAPTEC7897_SCSI = 61; DT$_ADAPTEC7899_SCSI = 62; DT$_CISS = 63; DT$_ISP23XX_FC = 64; DT$_LSI1010_SCSI = 65; DT$_LSI1030_SCS I = 66; DT$_ISP24XX_FC = 67; DT$_LSI106X_SAS = 68; DT$_SW_ISCSI = 69; DT$_LP8000_FC = 70; DT$_LP9000_FC = 71; DT$_LP9802_FC = 72; DT$_LP10000_FC = 73; DT$_LP11002_FC = 74; DT$_ISP243X_FC = 75; DT$_EP2422_FC = 76; DT$_ISP253X_FC = 77; DT$_GSP = 78; DT$_ICH10_AHCI = 79; DT$_ISP266X_FC = 80; N(* *)N(* MISCELLANEOUS DEVICES *)N(*  *) LCONST DT$_DN11 = 1; (* AUTODIALER *)G DT$_PV = 2; (* Pseudo keyboard *) DT$_SFUN9 = 3; DT$_USER9 = 4; DT$_GENERIC_SCSI = 5; DT$_DMA_520 = 6; DT$_T3270 = 7; DT$_IPMI = 9; DT$_ACPI_SE = 10; (*** MODULE $DDTMDEF ***) N(* *)N(* Transaction Manager services s  tructure definitions *)N(* *) #TYPE DDTM$X_TRANSACTION_ID =$UOCTA;N(* Transaction Id type *) DDTM$X_UTC_DATE_TIME =$UOCTA;N(* UTC type *) LCONST DDTM$S_TID = 16; (* Size of a transaction id *) N(*  *)N(* System services modifier flags *)N(* *) CONST DDTM$M_SYNC = 1; DDTM$M_NONDEFAULT = 2; DDTM$M_PROCESS = 4; DDTM$M_VOLATILE = 8; DDTM$M_RUNDOWN = 16; DDTM$M_CANCEL = 32; DDTM$M_FULL_STATE = 64; DDTM$M_BRANCH_UNSYNCHED = 128; DDTM$M_COORDINATOR = 256; DDTM$M_NOWAIT = 512; DDTM$M_FINAL_STATE = 1024; DDTM$M_LATE = -2147483648; TYPE DDTM$R_FLAGS = RECORDG DDTM$V_SYNC : [POS(0)] $BOOL; (* Synchronous status requested *)J DDTM$V_NONDEFAULT : [POS(1)] $BOOL; (* Not the default transaction *)G DDTM$V_PROCESS : [POS(2)] $BOOL; (* Process-permanent RM *)G DDTM$V_VOLATILE : [POS(3)] $BOOL; (* volatile-only state *)G DDTM$V_RUNDOWN : [POS(4)] $BOOL; (* forget all RMs *)G DDTM$V_CANCEL : [POS(5)] $BOOL; (* Cancel GET operation *)G DDTM$V_FULL_STATE : [POS(6)] $B  OOL; (* Full state information *)N DDTM$V_BRANCH_UNSYNCHED : [POS(7)] $BOOL; (* Don't need to sync branch *)G DDTM$V_COORDINATOR : [POS(8)] $BOOL; (* Join Coordinating RM *)G DDTM$V_NOWAIT : [POS(9)] $BOOL; (* Don't wait for termination *)N DDTM$V_FINAL_STATE : [POS(10)] $BOOL; (* Get final transaction outcome *)G DDTM$V_FILL_1 : [POS(11)] $BIT20; (* Fill out to a longword *)G DDTM$V_LATE : [POS(31)] $BOOL; (* Phase one branch or join *) END; N  (* *)N(* Resource manager event request options *)N(* *) CONST DDTM$M_EV_PREPARE = 1; DDTM$M_EV_ABORT = 2; DDTM$M_EV_COMMIT = 4; DDTM$M_EV_DEFAULT_TRANS = 8; DDTM$M_EV_TRANS_START = 16; TYPE DDTM$R_EVENT_MASK = RECORDG DDTM$V_EV_PREPARE : [POS(0)] $BOOL; (* Vote request required *)G DDTM$  V_EV_ABORT : [POS(1)] $BOOL; (* Abort notificiation *)G DDTM$V_EV_COMMIT : [POS(2)] $BOOL; (* Commit notificiation *)G DDTM$V_EV_DEFAULT_TRANS : [POS(3)] $BOOL; (* New default TID *)S DDTM$V_EV_TRANS_START : [POS(4)] $BOOL; (* Request transaction start events *)G DDTM$V_FILL_2 : [POS(5)] $BIT27; (* Fill out to a longword *) END; N(* *)N(* $TRANS_EVENT system service event types  *)N(* *) LCONST DDTM$K_TX_PREPARE = 1; (* Prepare transaction request *)G DDTM$K_TX_COMMIT = 2; (* Commit transaction order *)G DDTM$K_TX_ABORT = 3; (* Abort transaction order *)G DDTM$K_TX_RECOVER_COMMIT = 4; (* Commit order on recovery *)G DDTM$K_TX_RECOVER_ABORT = 5; (* Abort order on recovery *) N(*  *)N(* Resource manager event report types *)N(* *) LCONST DDTM$K_PREPARE = 1; (* Prepare operation *)G DDTM$K_COMMIT = 2; (* Commit operation *)G DDTM$K_ABORT = 3; (* Abort operation *)G DDTM$K_ONE_PHASE_COMMIT = 4; (* One-ph ase commit *)G DDTM$K_DEFAULT_CLEARED = 5; (* Tid no longer default *)G DDTM$K_DEFAULT_SET = 6; (* Tid now process default *)G DDTM$K_STARTED_DEFAULT = 7; (* New process default transaction *)G DDTM$K_STARTED_NONDEFAULT = 8; (* New nondefault transaction *)G DDTM$K_RECOVER_COMMITTED = 9; (* Transaction committed *)G DDTM$K_RECOVER_ERROR = 10; (* Error during recovery *)G DDTM$K_RECOVER_INDOUBT = 11; (* Transaction is indoubt *)G DDTM$K_RECOVER_RESOLVE = 12; (* RM resposible for resolution *) N(* *)N(* Transaction report structure (DECdtm V1.0) *)N(* *) KTYPE DDTM$R_AST$TYPE = RECORD (* Transaction event AST parameter *)G DDTM$L_ARGLEN : UNSIGNED; (* Structure length  *)G DDTM$A_TID : $DEFPTR; (* Transaction id *)G DDTM$L_PART_ID : UNSIGNED; (* Participant identifier *)G DDTM$L_RM_CTX : UNSIGNED; (* RM event ASTPRM *)G DDTM$L_OPTYPE : UNSIGNED; (* Operation type *)G DDTM$L_REASON : UNSIGNED; (* Abort extended reason code *)G DDTM$O_UTC_CMT_TIME : $UOCTA; (* Reserved to Digital *)G DDTM$O_UTC_LATEST : $UOCTA; (* Reserved to Di gital *) END; N(* *)N(* Transaction report structure *)N(* *) TYPE DDTM$R_REPORT$TYPE = RECORDG DDTM$L_REPORT_LEN : UNSIGNED; (* Structure length *)G DDTM$A_TID_PTR : $DEFPTR; (* Transaction id *)G DDTM$L_REPORT_ID : UNSIGNED; (* Report  identifier *)G DDTM$L_RM_CONTEXT : UNSIGNED; (* RM event ASTPRM *)G DDTM$L_EVENT_TYPE : UNSIGNED; (* Event report type *)G DDTM$L_ABORT_REASON : UNSIGNED; (* Abort extended reason code *)G DDTM$O_COMMIT_TIME : $UOCTA; (* Reserved to Digital *)G DDTM$O_LATEST_TIME : $UOCTA; (* Reserved to Digital *)G DDTM$Q_TX_CLASS : $UQUAD; (* Transaction class descriptor *)G DDTM$Q_PART_NAME : $UQUAD;  (* RM Instance descriptor *) END; (*** MODULE $DELPRCSYMDEF ***) N(*+ *)N(* *)N(* $DELPRCSYMDEF - $DELPRC symbol definitions *)N(* *)N(*- *) CONST DELPRC $M_EXIT = 4; DELPRC$M_NOEXIT = 8; TYPE DELPRCFLAGS$TYPE = RECORDW DELPRC$V_MODE : [POS(0)] $BIT2; (* Access mode to start exit functionality with *)G DELPRC$V_EXIT : [POS(2)] $BOOL; (* Enable exit functionality *)M DELPRC$V_NOEXIT : [POS(3)] $BOOL; (* Do not enable exit functionality *)' DELPRC$$_FILL_1 : [POS(4)] $BIT28; END; (*** MODULE $DEVDEF ***) N(* *)N(* THE FOLLOWING BITS D EFINE THE DEVICE CHARACTERISTICS FOR *)N(* BOTH THE UCBS AND RMS. *)N(* *) CONST DEV$M_REC = 1; DEV$M_CCL = 2; DEV$M_TRM = 4; DEV$M_DIR = 8; DEV$M_SDI = 16; DEV$M_SQD = 32; DEV$M_SPL = 64; DEV$M_OPR = 128; DEV$M_RCT = 256; DEV$M_QSVD = 512; DEV$M_QSVBL = 1024; DEV$M_MPDEV_SECONDARY = 2048; DEV$M_MPDEV_MEMBER = 4096; DEV$M_NET = 8192; DEV$M_FOD = 16384; DEV$M_DUA = 32768; DEV$M_SHR = 65536; DEV$M_GEN = 131072; DEV$M_AVL = 262144; DEV$M_MNT = 524288; DEV$M_MBX = 1048576; DEV$M_DMT = 2097152; DEV$M_ELG = 4194304; DEV$M_ALL = 8388608; DEV$M_FOR = 16777216; DEV$M_SWL = 33554432; DEV$M_IDV = 67108864; DEV$M_ODV = 134217728; DEV$M_RND = 268435456; DEV$M_RTM = 536870912; DEV$M_RCK = 1073741824; DEV$M_WCK = -2147483648; DEV$M_CLU = 1; DEV$M_DET = 2; DEV$M_RTT = 4; DEV$M_CDP = 8; DEV$M_2P = 16; DEV$M_MSCP = 32; DEV$M_SSM = 64; DEV$M_SRV = 128; DEV$M_RED = 256; DEV$M_NNM = 512; DEV$M_WBC = 1024; DEV$M_WTC = 2048; DEV$M_HOC = 4096; DEV$M_LOC = 8192; DEV$M_DFS = 16384; DEV$M_DAP = 32768; DEV$M_NLT = 65536; DEV$M_SEX = 131072; DEV$M_SHD = 262144; DEV$M_VRT = 524288; DEV$M_LDR = 1048576; DEV$M_NOLB = 2097152; DEV$M_NOCLU = 4194304; DEV$M_VMEM = 8388608; DEV$M_SCSI = 16777216; DEV$M_WLG = 33554432; DEV$M_NOFE = 67108864;   DEV$M_FILL_2 = 134217728; DEV$M_CRAMIO = 268435456; DEV$M_DTN = 536870912; DEV$M_FILL_3 = 1073741824; DEV$M_POOL_MBR = -2147483648; &TYPE DEV$TYPE = RECORD CASE INTEGER OF/ 1: (DEV$R_DEVDEF_BITS0 : [BYTE(4)] RECORD END; );G 2: (DEV$V_REC : [POS(0)] $BOOL; (* DEVICE RECORD ORIENTED *)G DEV$V_CCL : [POS(1)] $BOOL; (* CARRIAGE CONTROL DEVICE *)G DEV$V_TRM : [POS(2)] $BOOL; (* DEVICE IS A TERMINAL *)G DEV$V_DIR : [POS(3)] $BOOL; ( * DEVICE IS DIRECTORY STRUCTURED *)M DEV$V_SDI : [POS(4)] $BOOL; (* DEVICE IS SINGLE DIRECTORY STRUCTURED *)X DEV$V_SQD : [POS(5)] $BOOL; (* SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) *)G DEV$V_SPL : [POS(6)] $BOOL; (* DEVICE BEING SPOOLED *)G DEV$V_OPR : [POS(7)] $BOOL; (* DEVICE IS AN OPERATOR *)Q DEV$V_RCT : [POS(8)] $BOOL; (* DISK CONTAINS RCT (DEC STANDARD 166 DISK) *)L DEV$V_QSVD : [POS(9)] $BOOL; (* Client device is served by  QIOserver *)P DEV$V_QSVBL : [POS(10)] $BOOL; (* Server device is servable by QIOserver *)_ DEV$V_MPDEV_SECONDARY : [POS(11)] $BOOL; (* Indicates secondary unit in a multipath set *)S DEV$V_MPDEV_MEMBER : [POS(12)] $BOOL; (* Device is part of a multipath set. *)G DEV$V_NET : [POS(13)] $BOOL; (* NETWORK DEVICE *)R DEV$V_FOD : [POS(14)] $BOOL; (* FILES-ORIENTED DEVICE (I.E., DISK AND MT) *)G DEV$V_DUA : [POS(15)] $BOOL; (* DEVICE IS DUAL PORTED  *)G DEV$V_SHR : [POS(16)] $BOOL; (* DEVICE SHAREABLE *)G DEV$V_GEN : [POS(17)] $BOOL; (* DEVICE IS A GENERIC DEVICE *)G DEV$V_AVL : [POS(18)] $BOOL; (* DEVICE AVAILABLE FOR USE *)G DEV$V_MNT : [POS(19)] $BOOL; (* DEVICE IS MOUNTED *)G DEV$V_MBX : [POS(20)] $BOOL; (* DEVICE IS A MAILBOX *)G DEV$V_DMT : [POS(21)] $BOOL; (* DEVICE MARKED FOR DISMOUNT *)I DEV$V_ELG : [POS(22)] $BOOL; (* DEVICE HAS ERROR LO GGING ENABLED *)G DEV$V_ALL : [POS(23)] $BOOL; (* DEVICE IS ALLOCATED *)^ DEV$V_FOR : [POS(24)] $BOOL; (* DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) *)H DEV$V_SWL : [POS(25)] $BOOL; (* DEVICE IS SOFTWARE WRITE LOCKED *)J DEV$V_IDV : [POS(26)] $BOOL; (* DEVICE CAPABLE OF PROVIDING INPUT *)K DEV$V_ODV : [POS(27)] $BOOL; (* DEVICE CAPABLE OF PROVIDING OUTPUT *)G DEV$V_RND : [POS(28)] $BOOL; (* DEVICE ALLOWS RANDOM ACCESS *)G DEV$V_RTM  : [POS(29)] $BOOL; (* DEVICE IS REALTIME IN NATURE *)I DEV$V_RCK : [POS(30)] $BOOL; (* DEVICE HAS READ CHECKING ENABLED *)J DEV$V_WCK : [POS(31)] $BOOL; (* DEVICE HAS WRITE CHECKING ENABLED *) );/ 3: (DEV$R_DEVDEF_BITS1 : [BYTE(4)] RECORD END; );G 4: (DEV$V_CLU : [POS(0)] $BOOL; (* DEVICE IS AVAILABLE CLUSTER-WIDE *)G DEV$V_DET : [POS(1)] $BOOL; (* DEVICE IS DETACHED TERMINAL *)O DEV$V_RTT : [POS(2)] $BOOL; (* DEVICE HAS REMOTE TERMINAL UCB EXTENSION *)G DEV$V_CDP : [POS(3)] $BOOL; (* DUAL PATH DEVICE WITH 2 UCBs *)I DEV$V_2P : [POS(4)] $BOOL; (* TWO PATHS ARE KNOWN TO THIS DEVICE *)Q DEV$V_MSCP : [POS(5)] $BOOL; (* DEVICE ACCESSED USING MSCP (disk or tape) *)V DEV$V_SSM : [POS(6)] $BOOL; (* this bit was set for Phase I (controller-based) *)P (* shadowing only. This bit is not set for *)P (* Phase II (host-based) shadowing; Phase II *)G  (* sets the SHD bit (see below). *)K DEV$V_SRV : [POS(7)] $BOOL; (* DEVICE IS SERVED VIA THE MSCP SERVER *)G DEV$V_RED : [POS(8)] $BOOL; (* DEVICE IS redirected terminal *)G DEV$V_NNM : [POS(9)] $BOOL; (* DEVICE HAS "node$" PREFIX *)J DEV$V_WBC : [POS(10)] $BOOL; (* DEVICE SUPPORTS WRITE-BACK CACHING *)M DEV$V_WTC : [POS(11)] $BOOL; (* DEVICE SUPPORTS WRITE-THROUGH CACHING *)G DEV$V_HOC : [POS(12)] $BOOL; (* DEVICE SUPPORTS HOST CACHIN G *)] DEV$V_LOC : [POS(13)] $BOOL; (* DEVICE ACCESSIBLE VIA LOCAL (NON-EMULATED) CONTROLLER *)G DEV$V_DFS : [POS(14)] $BOOL; (* DEVICE IS DFS-SERVED *)G DEV$V_DAP : [POS(15)] $BOOL; (* DEVICE IS DAP ACCESSED *)Z DEV$V_NLT : [POS(16)] $BOOL; (* DEVICE IS NOT-LAST-TRACK (I.E. IT HAS NO BAD BLOCK *)G (* INFORMATION ON ITS LAST TRACK) *)Y DEV$V_SEX : [POS(17)] $BOOL; (* DEVICE (tape) SUPPORTS SERIOUS EXCEPTION HANDLING *)U DEV$V_SHD : [POS(18)] $BOOL; (* DEVICE IS A MEMBER OF A HOST BASED SHADOW SET *)K DEV$V_VRT : [POS(19)] $BOOL; (* DEVICE IS A SHADOW SET VIRTUAL UNIT *)G DEV$V_LDR : [POS(20)] $BOOL; (* LOADER PRESENT (TAPES) *)V DEV$V_NOLB : [POS(21)] $BOOL; (* DEVICE IGNORES SERVER LOAD BALANCING REQUESTS *)U DEV$V_NOCLU : [POS(22)] $BOOL; (* DEVICE WILL NEVER BE AVAILABLE CLUSTER-WIDE *)L DEV$V_VMEM : [POS(23)] $BOOL; (* Virtual member of a constituent set *)G D EV$V_SCSI : [POS(24)] $BOOL; (* DEVICE IS A SCSI DEVICE *)` DEV$V_WLG : [POS(25)] $BOOL; (* DEVICE HAS MSCP Based (Phase I) WRITE LOGGING CAPABILITY *)L DEV$V_NOFE : [POS(26)] $BOOL; (* DEVICE DOESN'T SUPPORT FORCED ERROR *)U DEV$V_FILL_2 : [POS(27)] $BOOL; (* Reserved for: Allocation in progress (MME) *)G DEV$V_CRAMIO : [POS(28)] $BOOL; (* Performs Mailbox I/O *)Q DEV$V_DTN : [POS(29)] $BOOL; (* Device has DDR Device Type Name available *)L DEV$V_POOL_  MBR : [POS(31)] $BOOL; (* Unit is bound to a storage pool *) ) END; (*** MODULE $DIBDEF ***) N(*+ *)N(* DEVICE INFORMATION BLOCK DEFINITIONS *)N(*- *) LCONST DIB$K_LENGTH = 116; (*LENGTH OF TOTAL BUFFER *)G DIB$C_LENGTH = 116; (*LENGTH OF TOTAL BUFFER *)  &TYPE DIB$TYPE = RECORD CASE INTEGER OFG 1: (DIB$L_DEVCHAR : UNSIGNED; (*DEVICE CHARACTERISTICS *)G DIB$B_DEVCLASS : $UBYTE; (*DEVICE CLASS *)G DIB$B_DEVTYPE : $UBYTE; (*DEVICE TYPE *)G DIB$W_DEVBUFSIZ : $UWORD; (*DEVICE BUFFER SIZE *)4 DIB$R_DEVDEPEND_OVERLAY : [BYTE(4)] RECORD END;G DIB$W_UNIT : $UWORD; (*DEVICE UNIT NUMBER *)K DIB$W_DEVNAMOFF : $UWORD; (*O! FFSET TO DEVICE NAME COUNTED STRING *)J DIB$L_PID : UNSIGNED; (*DEVICE OWNER PROCESS IDENTIFICATION *)L DIB$L_OWNUIC : UNSIGNED; (*DEVICE OWNER USER IDENTIFICATION CODE *)G DIB$W_VPROT : $UWORD; (*DEVICE PROTECTION MASK *)G DIB$W_ERRCNT : $UWORD; (*DEVICE ERROR COUNT *)G DIB$L_OPCNT : UNSIGNED; (*DEVICE OPERATIONS COUNT *)L DIB$W_VOLNAMOFF : $UWORD; (*OFFSET TO VOLUME LABEL COUNTED STRING *)G DIB$W " _RECSIZ : $UWORD; (*BLOCKED RECORD SIZE *)\ DIB$T_DEVNAME : PACKED ARRAY [1..76] OF CHAR; (*SPACE FOR DEVNAME AND LABEL (64+12) *)G DIB$L_MAXBLOCK : UNSIGNED; (*DISK VOLUME SIZE IN BLOCKS *) );M 2: (DIB$L_DEVDEPEND : [POS(64)] UNSIGNED; (*DEVICE DEPENDENT INFORMATION *) ); 3: ();J 4: (DIB$B_SECTORS : [POS(64)] $UBYTE; (*(DISK ONLY) SECTORS PER TRACK *)G DIB$B_TRACKS : [POS(72)] $UBYTE; (* " TRACKS PER CYLINDER *)G DIB$W_CYL# INDERS : [POS(80)] $UWORD; (* " NUMBER OF CYLINDERS *) ) END; (*** MODULE $DIRENTDEF ***) CONST dirent$k_name = 1; dirent$k_version = 2; TYPE dirent$TYPE = RECORD dirent$iw_size : $WORD; dirent$iw_type : $WORD; END; dirent_nam$TYPE = RECORD dirent_nam$iw_size : $WORD; dirent_nam$iw_type : $WORD;) dirent_nam$iw_version_limit : $WORD; dirent_nam$IW_FILL : $WORD;) dirent_nam$il_name_length : INTEGER;. dirent_nam$t_name :$ ARRAY [1..1] OF CHAR; END; CONST dirent$k_file = 1; dirent$k_directory = 2; -TYPE dirent_ver$TYPE = RECORD CASE INTEGER OF 1: (dirent_ver$iw_size : $WORD; dirent_ver$iw_type : $WORD;# dirent_ver$iw_version : $WORD;$ dirent_ver$iw_obj_type : $WORD; dirent_ver$IW_FILL : $WORD;5 dirent_ver$r_fid_overlay : [BYTE(6)] RECORD END; );: 2: (dirent_ver$iw_fid : [POS(80)] ARRAY [1..3] OF $UWORD; ); 3: ();. 4: (dirent_ver$iw_fid_num : [POS(80)] $UW% ORD;. dirent_ver$iw_fid_seq : [POS(96)] $UWORD; );/ 5: (dirent_ver$iw_fid_rvn : [POS(112)] $UWORD; ); 6: ();/ 7: (dirent_ver$ib_fid_rvn : [POS(112)] $UBYTE;/ dirent_ver$ib_fid_nmx : [POS(120)] $UBYTE; ) END; (*** MODULE $DMTDEF ***) N(* *)N(* FLAG BITS FOR THE $DISMOU (DISMOUNT) SYSTEM SERVICE. *)N(* & *) CONST DMT$M_NOUNLOAD = 1; DMT$M_UNIT = 2; DMT$M_ABORT = 4; DMT$M_CLUSTER = 8; DMT$M_UNLOAD = 16; DMT$M_OVR_CHECKS = 32; DMT$M_CHECK_ONLY = 64; DMT$M_REMOTE = 128; DMT$M_MINICOPY_REQUIRED = 256; DMT$M_MINICOPY_OPTIONAL = 512; DMT$M_FORCE = 1024; &TYPE DMT$TYPE = RECORD CASE INTEGER OF. 1: (DMT$R_DMTDEF_BITS : [BYTE(2)] RECORD END; );Q 2: (DMT$V_NOUNLOAD : [POS(0)] $BOOL; (* DO NOT UNLOAD (SPIN DOWN) THE VOLUME *)K DMT$V_UNIT : [POS(1' )] $BOOL; (* DISMOUNT ONLY THE SPECIFIED VOLUME *)D DMT$V_ABORT : [POS(2)] $BOOL; (* FORCED DISMOUNT *)G DMT$V_CLUSTER : [POS(3)] $BOOL; (* CLUSTER-WIDE DISMOUNT *)Q DMT$V_UNLOAD : [POS(4)] $BOOL; (* EXPLICIT UNLOAD (OVERRIDE UCB$x_UNLOAD) *)G DMT$V_OVR_CHECKS : [POS(5)] $BOOL; (* OVERRIDE OPEN FILE CHECKS *)X DMT$V_CHECK_ONLY : [POS(6)] $BOOL; (* CHECK ONLY FOR OPEN FILES - DON'T DISMOUNT *)a DMT$V_REMOTE : [POS(7)] $BOOL; (* CURRENT DISMOUNTER IS ( REMOTE WITH RESPECT TO ORIGINATOR *)G DMT$V_MINICOPY_REQUIRED : [POS(8)] $BOOL; (* BITMAP REQUIRED *)G DMT$V_MINICOPY_OPTIONAL : [POS(9)] $BOOL; (* BITMAP OPTIONAL *)G DMT$V_FORCE : [POS(10)] $BOOL; (* FORCE dismount of SSM *) ) END; (*** MODULE $DPSDEF ***) N(*+ *)N(* *)N(* Get Device path information ) *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added at the END of the list so that *)N(* users will not have to rebuild. *)N(* * *)N(*- *) UCONST DPS$_MP_PATHNAME = 1; (* Device path name *) N(* *)L(**** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** *)N(* *) (*** MODULE $DTIDEF ***) N(* + *)N(* DTI flag definitions *)N(* *)N(* Item list definitions *) LCONST DTI$_ENDITEM = 0; (* End of item list code *)G DTI$_TRANSACTION_INFORMATION = 1; (* Active transaction list *)G DTI$_CURRENT_TID = 2; (* Current transaction identifier , *)G DTI$_MEMBERSHIP_COUNT = 3; (* # members still in transaction *)G DTI$_BRANCH_COUNT = 4; (* # branches still in transaction *)G DTI$_ROOT_NODE_NAME = 5; (* Root node *)G DTI$_STARTING_TIME = 6; (* Transaction start time *) dti$K_MAX_ITEM_CODE = 6; N(* Transaction states *) CONST DTI$K_NULL = 0;G DTI$K_STARTING = 1; (* Starting state - *)G DTI$K_ACTIVE = 2; (* Active state *)G DTI$K_ONE_P_COMMITTING = 3; (* Committing (one-phase) *)G DTI$K_PREPARING = 4; (* Preparing state *)G DTI$K_PREPARED = 5; (* Prepared state *)G DTI$K_COMMITTING = 6; (* Committing state *)G DTI$K_COMMITTED = 7; (* Committed state *)G DTI$K_ONE_P_COMMITTED = 8; (* Committed (one-p . hase) *)G DTI$K_ABORTING = 9; (* Aborting state *)G DTI$K_ABORTED = 10; (* Aborted or forgotten state *)I DTI$K_IN_DOUBT = 11; (* Transaction has prepared and RM is *) N(* coordinator; resolution must come *)N(* from external entity *)N(* SET item codes *) LCONST DTI$K_ / ILLEGAL = 0; (* Make code 0 illegal *)G DTI$K_DELETE_TRANSACTION = 1; (* Delete transaction *)G DTI$K_DELETE_RM_NAME = 2; (* Delete resource manager *)G DTI$K_MODIFY_STATE = 3; (* Modify transaction state *)G DTI$K_DELETE_BRANCH_NODE = 4; (* Delete branch node *)M DTI$K_SET_CURRENT_TID = 5; (* Set the current transaction identifier *) DTI$K_MAX_SET_CODE = 5; DTI$M_SEARCH_STARTING = 1; DTI$M_S 0 EARCH_ACTIVE = 2; DTI$M_SEARCH_1P_COMITTING = 4; DTI$M_SEARCH_PREPARING = 8; DTI$M_SEARCH_PREPARED = 16; DTI$M_SEARCH_COMMITTING = 32; DTI$M_SEARCH_COMMITTED = 64;! DTI$M_SEARCH_1P_COMMITTED = 128; DTI$M_SEARCH_ABORTING = 256; DTI$M_SEARCH_ABORTED = 512;G DTI$_ENDSEARCH = 0; (* End of search list *)G DTI$_SEARCH_AS_NODE = 1; (* Search as node *)L DTI$_SEARCH_CURRENT_TID = 2; (* Search current transaction identifier *)G DTI 1 $_SEARCH_TID = 3; (* Search transaction identifier *)G DTI$_SEARCH_RM_NAME = 4; (* Search resource manager *)G DTI$_SEARCH_BRANCH_NAME = 5; (* Search branch node names *)G DTI$_SEARCH_STATE = 6; (* Search state *)G DTI$_SEARCH_RESOLVED_STATE = 7; (* Search resolved state *) DTI$K_MAX_SEARCH_CODE = 7; KTYPE DTISEARCH$TYPE = RECORD (* Search list codes *)G DTI$V_SEARCH_STARTING :2 [POS(0)] $BOOL; (* Starting state *)G DTI$V_SEARCH_ACTIVE : [POS(1)] $BOOL; (* Active state *)J DTI$V_SEARCH_1P_COMITTING : [POS(2)] $BOOL; (* 1P Committing state *)G DTI$V_SEARCH_PREPARING : [POS(3)] $BOOL; (* Preparing state *)G DTI$V_SEARCH_PREPARED : [POS(4)] $BOOL; (* Prepared state *)G DTI$V_SEARCH_COMMITTING : [POS(5)] $BOOL; (* Committing state *)G DTI$V_SEARCH_COMMITTED : [POS(6)] $BOOL; (* Committed state *)I DTI$V_SEA 3 RCH_1P_COMMITTED : [POS(7)] $BOOL; (* 1P Committed state *)G DTI$V_SEARCH_ABORTING : [POS(8)] $BOOL; (* Aborting state *)G DTI$V_SEARCH_ABORTED : [POS(9)] $BOOL; (* Aborted state *)G (* Search item list definitions *)' DTI$V_FILL_118_ : [POS(10)] $BIT6; END; CONST DTI$M_UPDATE = 1; DTI$M_LOCAL_RM = 2;S DTI$S_TRANSACTION_INFORMATION = 84; (* length of transaction information record *) ZTYPE DTIREC$TYPE = RECORD CASE4 INTEGER OF (* Transaction information record definitions *), 1: (DTI$R_FILL_119_ : [BYTE(2)] RECORD END;G DTI$B_STATE : $UBYTE; (* Transaction state *)G DTI$B_PART_NAME_LEN : $UBYTE; (* Length of participant name *)K DTI$T_PART_NAME : PACKED ARRAY [1..32] OF CHAR; (* Participant name *)O DTI$T_PART_LOG_ID : PACKED ARRAY [1..16] OF CHAR; (* Participant log id *)G DTI$T_TID : PACKED ARRAY [1..16] OF CHAR; (* Transaction ID *)G DTI$O_UTC_C5 OMMIT_TIME : $UOCTA; (* UTC commit time *) );G 2: (DTI$W_FLAGS : [POS(0)] $UWORD; (* Modifier flags *) ); 3: ();R 4: (DTI$V_UPDATE : [POS(0)] $BOOL; (* Delete resource manager from transaction *)O DTI$V_LOCAL_RM : [POS(1)] $BOOL; (* Participant type (1 = RM, 0 = node) *) ) END; (*** MODULE $DVIDEF ***) N(*+ *)N(* 6 *)N(* Get Device and Volume Information Data Identifier Definitions *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added at the END of the list so that *)N(* users will not have to rebuild. 7 *)N(* *)N(*- *) UCONST DVI$_DEVCHAR = 2; (* Device characteristics - VALUE - 4 bytes *)G DVI$_DEVCLASS = 4; (* Device class - VALUE - 1 byte *)G DVI$_DEVTYPE = 6; (* Device type - VALUE - 1 byte *)L DVI$_DEVBUFSIZ = 8; (* Device buffer size - VALUE - 2 bytes *)V DVI$_DEVDEPEND = 10; 8 (* Device dependent information - VALUE - 4 bytes *)G DVI$_UNIT = 12; (* Unit number - VALUE - 4 bytes *)` DVI$_PID = 14; (* Process identification of device owner - VALUE - 4 bytes *)M DVI$_OWNUIC = 16; (* UIC of device owner - VALUE - 4 bytes *)P DVI$_VPROT = 18; (* Volume protection mask - VALUE - 2 bytes *)G DVI$_ERRCNT = 20; (* Error count - VALUE - 2 bytes *)I DVI$_OPCNT = 22; 9 (* Operation count - VALUE - 4 bytes *)M DVI$_RECSIZ = 24; (* Blocked record size - VALUE - 2 bytes *)g DVI$_MAXBLOCK = 26; (* Number of logical blocks on the volume (disk) - VALUE - 4 bytes *)Z DVI$_DEVDEPEND2 = 28; (* Additional device dependent data - VALUE - 4 bytes *)V DVI$_REFCNT = 30; (* Reference count of processes - VALUE - 2 bytes *)G DVI$_DEVNAM = 32; (* Device name - STRING - 64 bytes *)G DVI$_VOLNAM = 34; : (* Volume name - STRING - 12 bytes *)[ DVI$_SECTORS = 36; (* Number of sectors per track (disk) - VALUE - 1 byte *)] DVI$_TRACKS = 38; (* Number of tracks per cylinder (disk) - VALUE - 1 byte *)b DVI$_CYLINDERS = 40; (* Number of cylinders on the volume (disk) - VALUE - 2 bytes *)d DVI$_FREEBLOCKS = 42; (* Number of free blocks on the volume (disk) - VALUE - 4 bytes *)O DVI$_LOGVOLNAM = 44; (* Logical volume name - STRI; NG - 64 bytes *)c DVI$_VOLNUMBER = 46; (* Number of this volume in volume set (disk) - VALUE - 4 byte *)^ DVI$_VOLCOUNT = 48; (* Count of volumes in volume set (disk) - VALUE - 4 byte *)k DVI$_ROOTDEVNAM = 50; (* Device name of root volume in volume set (disk) - STRING - 64 bytes *)k DVI$_NEXTDEVNAM = 52; (* Device name of next volume in volume set (disk) - STRING - 64 bytes *)R DVI$_TRANSCNT = 54; (* Volume Transaction Count - VALUE< - 2 bytes *)G DVI$_MOUNTCNT = 56; (* Mount count - VALUE - 2 bytes *)T DVI$_CLUSTER = 58; (* Volume Cluster Size (disk) - VALUE - 2 bytes *)X DVI$_MAXFILES = 60; (* Maximum Files on Volume (disk) - VALUE - 4 bytes *)U DVI$_SERIALNUM = 62; (* Volume Serial Number (disk) - VALUE - 4 bytes *)H DVI$_ACPPID = 64; (* ACP Process ID - VALUE - 4 bytes *)G DVI$_ACPTYPE = 66; (* ACP type code - VALUE - 1 byte *)V DVI = $_CONCEALED = 68; (* Device is a concealed device - BOOLEAN - 1 byte *) N(* *)N(** THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVCHAR LONGWORD *)N(* *) LCONST DVI$_REC = 70; (* DEVICE RECORD ORIENTED *)G DVI$_CCL = 72; (* CARRIAGE CONTROL DEVICE *)G DVI$_TRM = 74; > (* DEVICE IS A TERMINAL *)G DVI$_DIR = 76; (* DEVICE IS DIRECTORY STRUCTURED *)M DVI$_SDI = 78; (* DEVICE IS SINGLE DIRECTORY STRUCTURED *)X DVI$_SQD = 80; (* SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) *)G DVI$_SPL = 82; (* DEVICE BEING SPOOLED *)G DVI$_OPR = 84; (* DEVICE IS AN OPERATOR *)Q DVI$_RCT = 86; (* DISK CONTAINS RCT (DEC STA? NDARD 166 DISK) *)G DVI$_NET = 88; (* NETWORK DEVICE *)Q DVI$_FOD = 90; (* FILES-ORIENTED DEVICE (I.E., DISK AND MT) *)G DVI$_DUA = 92; (* DEVICE IS DUAL PORTED *)G DVI$_SHR = 94; (* DEVICE SHAREABLE *)G DVI$_GEN = 96; (* DEVICE IS A GENERIC DEVICE *)G DVI$_AVL = 98; (* DEVICE AVAILABLE FOR USE *)G DVI$_MNT = 100; @ (* DEVICE IS MOUNTED *)G DVI$_MBX = 102; (* DEVICE IS A MAILBOX *)G DVI$_DMT = 104; (* DEVICE MARKED FOR DISMOUNT *)H DVI$_ELG = 106; (* DEVICE HAS ERROR LOGGING ENABLED *)G DVI$_ALL = 108; (* DEVICE IS ALLOCATED *)] DVI$_FOR = 110; (* DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) *)G DVI$_SWL = 112; (* DEVICE IS SOFTWARE WRITE LOCKED * A )I DVI$_IDV = 114; (* DEVICE CAPABLE OF PROVIDING INPUT *)J DVI$_ODV = 116; (* DEVICE CAPABLE OF PROVIDING OUTPUT *)G DVI$_RND = 118; (* DEVICE ALLOWS RANDOM ACCESS *)G DVI$_RTM = 120; (* DEVICE IS REALTIME IN NATURE *)H DVI$_RCK = 122; (* DEVICE HAS READ CHECKING ENABLED *)I DVI$_WCK = 124; (* DEVICE HAS WRITE CHECKING ENABLED *) N(* B *)N(** THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND LONGWORD *)N(** (AS DEFINED FOR TERMINALS: TTDEF IN STARDEFQZ.SDL) *)N(* *) CONST DVI$_TT_PASSALL = 126; DVI$_TT_NOECHO = 128; DVI$_TT_NOTYPEAHD = 130; DVI$_TT_ESCAPE = 132; DVI$_TT_HOSTSYNC = 134; DVI$_TT_TTSYNC = 136; DVI$_TT_SCRIPT = 138; DVI$_TT_LOWER = 140; DVI$_TT_MECHTAB = 142;C DVI$_TT_WRAP = 144; DVI$_TT_CRFILL = 146; DVI$_TT_LFFILL = 148; DVI$_TT_SCOPE = 150; DVI$_TT_REMOTE = 152; DVI$_TT_EIGHTBIT = 154; DVI$_TT_MBXDSABL = 156; DVI$_TT_NOBRDCST = 158; DVI$_TT_READSYNC = 160; DVI$_TT_MECHFORM = 162; DVI$_TT_HALFDUP = 164; DVI$_TT_MODEM = 166; DVI$_TT_OPER = 168; DVI$_TT_PAGE = 170; N(* *)N(** THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND2 LONGWORD *)ND (** (AS DEFINED FOR TERMINALS: TT2DEF IN STARDEFQZ.SDL) *)N(* *) CONST DVI$_TT_LOCALECHO = 172; DVI$_TT_AUTOBAUD = 174; DVI$_TT_HANGUP = 176; DVI$_TT_MODHANGUP = 178; DVI$_TT_BRDCSTMBX = 180; DVI$_TT_DMA = 182; DVI$_TT_ALTYPEAHD = 184; DVI$_TT_SETSPEED = 186;G DVI$_TT_DCL_MAILBX = 188; (* TEMP DEFINITIONS FOR DCL SPAWN *) DVI$_TT_EDITING = 190; DVI$_TT_INSERT = 192; DVIE $_TT_FALLBACK = 194; DVI$_TT_DIALUP = 196; DVI$_TT_SECURE = 198; DVI$_TT_DISCONNECT = 200; DVI$_TT_PASTHRU = 202; DVI$_TT_SIXEL = 204; DVI$_TT_DRCS = 206; DVI$_TT_PRINTER = 208; DVI$_TT_APP_KEYPAD = 210; DVI$_TT_SYSPWD = 212; DVI$_TT_ANSICRT = 214; DVI$_TT_REGIS = 216; DVI$_TT_BLOCK = 218; DVI$_TT_AVO = 220; DVI$_TT_EDIT = 222; DVI$_TT_DECCRT = 224; N(* *)N(** THE FOLLOWING CODES ARE REGF ULAR ITEMS *)N(* *) LCONST DVI$_STS = 226; (* STATUS LONGWORD *)G DVI$_DEVSTS = 228; (* DEVICE STATUS WORD *)` DVI$_DEVCHAR2 = 230; (* Second device characteristics longword - VALUE - 4 bytes *)G DVI$_FULLDEVNAM = 232; (* Fully qualified device name *)G DVI$_LOCKID = 234; (* Device lock id G - VALUE - 4 bytes *)G DVI$_ALLDEVNAM = 236; (* Allocation class + device name *)G DVI$_VOLSETMEM = 238; (* Volume set member *)G DVI$_DEVLOCKNAM = 240; (* Device lock name *) N(* *)O(** THE FOLLOWING CODES SUPPORT FEATURES OF DUAL-PATH AND SHADOW-SET DEVICES *)N(* *) LCONST DVI$H _ALLOCLASS = 242; (* Allocation class of host(s) *)G DVI$_ALT_HOST_AVAIL = 244; (* Alternate host is active *)J DVI$_ALT_HOST_NAME = 246; (* Name of host serving alternate path *)G DVI$_ALT_HOST_TYPE = 248; (* Type of alternate host *)G DVI$_HOST_AVAIL = 250; (* Primary host is active *)G DVI$_HOST_COUNT = 252; (* Number of paths to the device *)L DVI$_HOST_NAME = 254; (* Name of host serving the primaI ry path *)k DVI$_HOST_TYPE = 256; (* Type of primary host (today one of "V785", "V780", "V750" or "HS50") *)L DVI$_REMOTE_DEVICE = 258; (* Device is not connected to local node *)G DVI$_SERVED_DEVICE = 260; (* Device is served to the cluster *)G DVI$_SHDW_CATCHUP_COPYING = 262; (* Catch-up copy is in progress *)W DVI$_SHDW_MASTER = 264; (* Device is "virtual" master device for shadow set *)[ DVI$_SHDW_MASTER_NAME = 266; (* Name of the "virtual" master devJ ice for a shadow set *)W DVI$_SHDW_MEMBER = 268; (* Device is one of the volumes making a shadow set *)G DVI$_SHDW_MERGE_COPYING = 270; (* Merge copy is in progress *)L DVI$_SHDW_NEXT_MBR_NAME = 272; (* Name of the next device in shadow set *) N(* *)N(** THE FOLLOWING CODES ARE REGULAR ITEMS *)N(* K *) ]CONST DVI$_TT_PHYDEVNAM = 274; (* Terminal physical device name - STRING - 64 bytes *)W DVI$_TT_DECCRT2 = 276; (* DEC_CRT level 2 part of devdepend2 longword for *) N(* terminals. *) dCONST DVI$_MEDIA_NAME = 278; (* Decoded media name from UCB$L_MEDIA_ID field (ie. RK07 ) *)] DVI$_MEDIA_TYPE = 280; (* Decoded media type from UCB$L_MEDIA_ID field (ie. DM ) *)N DVI$_MEDIA_ID = 282; L (* NONdecoded media id from UCB$L_MEDIA_ID *) N(* *) [CONST DVI$_SHDW_FAILED_MEMBER = 284; (* Member unit has been failed out from shadow set *)P DVI$_MSCP_UNIT_NUMBER = 286; (* MSCP unit number of device (internal hash *) N(* value, not useful for customers or applications) *) VCONST DVI$_DISPLAY_DEVNAM = 288; (* A displayable device name, useful for user *) N(* di M splays but not for $ASSIGN *) YCONST DVI$_TT_ACCPORNAM = 290; (* Name of local port on remote system. Counted *) N(* string in remote native format, ie: LAT, X.29 *) LCONST DVI$_DEVDEPEND3 = 292; (* Device dependent longword 3 *)G DVI$_TT_MULTISESSION = 294; (* Multi-session terminal *)G DVI$_TT_DECCRT3 = 296; (* VT3xx series terminal *)G DVI$_SET_HOST_TERMINA N L = 298; (* SET HOST session terminal *)G DVI$_DFS_ACCESS = 300; (* DFS client access point device *)P DVI$_DAPDEVNAM = 302; (* DAP device name, used to store the remote *) N(* name string of a device that is accessed via *)N(* the DAP protocol (without DECnet), such as *)N(* certain console disks. *) LCONST DVI$_TT_DECCRT4 = 304; (* VT4xx ser O ies terminal *)I DVI$_TT_CHARSET = 306; (* Terminal character set information *) N(* *)N(** The following codes are the individual bits of the TT_CHARSET longword *)N(** in the terminal UCB (as defined in TTCDEF) *)N(* *) LCONST DVI$_TT_CS_KANA = 308; (* Support Kana character set P *)G DVI$_TT_CS_KANJI = 310; (* Support Kanji character set *)G DVI$_TT_CS_HANZI = 312; (* Support Hanzi character set *)G DVI$_TT_CS_HANGUL = 314; (* Support Hangul character set *)G DVI$_TT_CS_HANYU = 316; (* Support Hanyu character set *)G DVI$_TT_CS_THAI = 318; (* Support Thai character set *) N(* *)N(** THE FOLLOWING CODES ARE REGULAR ITEMS Q *)N(* *) LCONST DVI$_DEVDEPEND4 = 320; (* Device dependent longword 4 *)G DVI$_DEVICE_TYPE_NAME = 322; (* DDR Device type name *)I DVI$_TT_ASIAN_MODE = 324; (* Asian terminal I/O characteristics *)G DVI$_PREFERRED_CPU = 326; (* Return CPU affinity of device *)G DVI$_TT_DECCRT5 = 328; (* VT5xx series terminal *)T DVI$_TT_ANSI_ R COLOR = 330; (* Terminal supports ANSI color escape sequences *)H DVI$_MT3_SUPPORTED = 332; (* Tape UCB owned by an MTD enhanced *) N(* driver? (longword) *) LCONST DVI$_MT3_DENSITY = 334; (* Tape density. (longword) *)G DVI$_DRIVER_IMAGE_NAME = 336; (* Driver image name -- STRING *)G DVI$_CLIENT_DEVICE = 338; (* Client device flag -- BOOLEAN *)H DVI$_FC_PORT_NAME = 340; (* Fibre Chan S nel Port Name -- STRING *)H DVI$_FC_NODE_NAME = 342; (* Fibre Channel Node Name -- STRING *)S DVI$_WWID = 344; (* SCSI Fibre Channel Device (Disk, Tape, etc.) *) N(* World Wide Identifier -- STRING *) MCONST DVI$_VOLCHAR = 346; (* Volume Characteristics (16 bytes) *)T DVI$_HBVS_MASTER_MEMBER = 348; (* This device is master member of of shadow set *)Q DVI$_MULTIPATH = 350; (* this device is a member of aT multipath set *)L DVI$_MPDEV_CURRENT_PATH = 352; (* the current path of the multipath set *)G DVI$_VOLSIZE = 354; (* the current logical volume size *)G DVI$_EXPSIZE = 356; (* the growth limit of the volume *)G DVI$_QLEN = 358; (* the queue length on the device *)W DVI$_SHDW_SITE = 360; (* the shadowing site-specific value for the device *)S DVI$_SHDW_MBR_COUNT = 362; (* the number of full members in a virtual unit *)N DVI$_SHDWU _DEVICE_COUNT = 364; (* the number of members in a virtual unit *)G DVI$_SHDW_MBR_READ_COST = 366; (* the read cost for a member *)T DVI$_SHDW_READ_SOURCE = 368; (* the name of the member from which reads occur *)G DVI$_SHDW_TIMEOUT = 370; (* the timeout value for the device *)G DVI$_DVI_UNUSED_1 = 372; (* Had been shdw_start_delay *)G DVI$_SHDW_GENERATION = 374; (* the generation number *)V DVI$_SHDW_STATUS = 376; (* the status of eithV er the member or virtual unit *)K DVI$_SHDW_MBR_COPY_DONE = 378; (* the percent done of a copy operation *)Q DVI$_SHDW_MBR_MERGE_DONE = 380; (* the percent done of a full merge operation *)U DVI$_SHDW_MINIMERGE_ENABLE = 382; (* is this virtual unit enabled for mini-merge? *)G DVI$_DVI_UNUSED_2 = 384; (* had been shdw_minimerge_capable *)O DVI$_SHDW_COPIER_NODE = 386; (* the node on which the copy is being done *)_ DVI$_SHDW_MASTER_MBR = 388; (* the device that is the master W member of the virtual unit *)g DVI$_MPDEV_AUTO_PATH_SW_CNT = 390; (* number of times the device switched paths due to an I/O error *)z DVI$_MPDEV_MAN_PATH_SW_CNT = 392; (* number of times the device switched paths due to $SET DEVICE /PATH= /SWITCH *)G DVI$_WRITETHRU_CACHE_ENABLED = 394; (* vcb$v_writethru *)G DVI$_NOCACHE_ON_VOLUME = 396; (* vcb$v_nocache *)G DVI$_MOUNTVER_ELIGIBLE = 398; (* vcb$v_mountver *)G DVI$_ERASE_ON_DELETE X = 400; (* vcb$v_erase *)G DVI$_NOHIGHWATER = 402; (* vcb$v_nohighwater *)G DVI$_NOSHARE_MOUNTED = 404; (* vcb$v_noshare *)G DVI$_CLUSLOCK = 406; (* vcb$v_cluslock *)G DVI$_ODS2_SUBSET0 = 408; (* vcb$v_subset0 *)G DVI$_PROT_SUBSYSTEM_ENABLED = 410; (* vcb$v_subsystem *)G DVI$_ODS5 = 412; (* vcb$v_struc_ods5 *)G DVI$_ACCEY SSTIMES_RECORDED = 414; (* vcb$v_accesstimes *)G DVI$_HARDLINKS_SUPPORTED = 416; (* vcb$v_hardlinks *)T DVI$_SCSI_DEVICE_FIRMWARE_REV = 418; (* firmware revision level for SCSI devices *)K DVI$_TOTAL_PATH_COUNT = 420; (* number of configured multipath paths *)K DVI$_AVAILABLE_PATH_COUNT = 422; (* number of working and enabled paths *)H DVI$_VOLUME_EXTEND_QUANTITY = 424; (* default volume extend quantity *)G DVI$_MOUNT_TIME = 426; (* time the volume Z was mounted *)G DVI$_VOLUME_MOUNT_SYS = 428; (* vcb$v_system *)G DVI$_VOLUME_MOUNT_GROUP = 430; (* vcb$v_group *)G DVI$_PATH_AVAILABLE = 432; (* *)G DVI$_PATH_USER_DISABLED = 434; (* *)G DVI$_PATH_NOT_RESPONDING = 436; (* sud$v_not_responding *)G DVI$_PATH_POLL_ENABLED = 438; (* *)G DVI$_MVSUPMSG = 440; (* sud$[ v_mvsupmsg_auto *) DVI$_PATH_SWITCH_TO_TIME = 442;" DVI$_PATH_SWITCH_FROM_TIME = 444; DVI$_ERROR_RESET_TIME = 446; DVI$_DEVICE_MAX_IO_SIZE = 448; DVI$_VOLUME_RETAIN_MAX = 450; DVI$_VOLUME_RETAIN_MIN = 452;G DVI$_PREFERRED_CPU_BITMAP = 454; (* Bitmap indicating Fast Path CPU *)" DVI$_MAILBOX_INITIAL_QUOTA = 456;! DVI$_MAILBOX_BUFFER_QUOTA = 458; DVI$_VOLUME_WINDOW = 460;# DVI$_VOLUME_SPOOLED_DEV_CNT = 462;% DVI$_VOLUME_PENDING_WRITE_ERR = 464; DVI$_LAN_SPEED = 46\ 6; DVI$_LAN_LINK_UP = 468;$ DVI$_LAN_DEFAULT_MAC_ADDRESS = 470; DVI$_LAN_MAC_ADDRESS = 472; DVI$_LAN_FULL_DUPLEX = 474;# DVI$_LAN_ALL_MULTICAST_MODE = 476;! DVI$_LAN_PROMISCUOUS_MODE = 478;% DVI$_LAN_JUMBO_FRAMES_ENABLED = 480; DVI$_LAN_AUTONEG_ENABLED = 482; DVI$_LAN_PROTOCOL_TYPE = 484; DVI$_LAN_PROTOCOL_NAME = 486;! DVI$_LAN_LINK_STATE_VALID = 488; DVI$_FC_HBA_FIRMWARE_REV = 490; DVI$_ADAPTER_IDENT = 492; DVI$_MOUNTCNT_CLUSTER = 494;" DVI$_SHDW_HBMM_RESET_COUNT = 496;! ] DVI$_SHDW_HBMM_RESET_TIME = 498;G DVI$_SPECIAL_FILES = 500; (* vcb$v_special_files *)G DVI$_NOXFCCACHE_ON_VOLUME = 502; (* vcb$v_noxfccache *)G DVI$_XFC_DEPOSING = 504; (* vcb$v_xfc_deposing *)G DVI$_SSD_USAGE_REMAINING = 506; (* for SSD disk *)G DVI$_SSD_LIFE_REMAINING = 508; (* for SSD disk *) N(* *)L(**** ADD NEW IT ^ EM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** *)N(* *)N(* *)N(* Define flag bits in the item code. *)N(* *) CONST DVI$M_SECONDARY = 1; DVI$M_NOREDIRECT = 32768; TYPE DVI$TYPE = RECORDQ DVI$V_SECONDARY : [POS(0)] $BOO_ L; (* Use secondary device characteristics *)G DVI$V_ITEM_CODE : [POS(1)] $BIT14; (* Space for item code *)e (* Define additional flags here, subtracting the space out of the *)g (* above item code. (The item code must contain all the unused bits *)M (* for proper validation in the service.) *)Q DVI$V_NOREDIRECT : [POS(15)] $BOOL; (* Don't redirect to virtual terminal *) END; ` N(* *)N(* Define flag bits in the volume characteristics item code. *)N(* *) CONST DVI$M_VOL_READDIR = 15;_ DVI$C_READDIR_NONE = 0; (* directory cannot be read (scan with repeated IO$_ACCESS) *)G DVI$C_READDIR_VIO = 1; (* read directory via IO$_READVBLK *)G DVI$C_READDIR_IO = 2; (* read directory via Ia O$_READDIR *)G DVI$C_READDIR_ACP = 3; (* read directory via IO$_ACPCNTRL *) DVI$M_VOL_LENGTH_HINT = 16; DVI$M_VOL_CACHING_ATTR = 32; DVI$M_VOL_ACCESS_DATE = 64; DVI$M_VOL_HARDLINK = 128; DVI$M_VOL_SET_SECURITY = 256; DVI$M_VOL_FID_TO_NAME = 512;# DVI$M_VOL_ODS1_STYLE_PURGE = 1024;" DVI$M_VOL_SHARED_TRUNCATE = 2048; DVI$M_VOL_WRITE_BARRIER = 4096; DVI$M_VOL_DIRSEQ_QIO = 8192; DVI$M_VOL_EFS = 16384; DVI$M_VOL_UCS2 = 32768; DVI$M_VOL_CASE_VARIANT = 65536; DVI b $M_VOL_MODDATE = 131072;! DVI$M_VOL_SPECIAL_FILE = 262144; DVI$M_VOL_SSIO = 524288;$ DVI$M_VOL_LOOKUP_SPECIAL = 1048576; )TYPE DVIVOL$TYPE = RECORD CASE INTEGER OF2 1: (DVI$R_DVIVOL_OVERLAY : [BYTE(16)] RECORD END; ); 2: (); 3: ();S 4: (DVI$V_VOL_READDIR : [POS(0)] $BIT4; (* Read/scan a directory (4 bit field): *)G DVI$V_VOL_LENGTH_HINT : [POS(4)] $BOOL; (* file length hint *)p DVI$V_VOL_CACHING_ATTR : [POS(5)] $BOOL; (* support 'caching attribute' (contents, c atttribute, on_close) *)G DVI$V_VOL_ACCESS_DATE : [POS(6)] $BOOL; (* access date *)G DVI$V_VOL_HARDLINK : [POS(7)] $BOOL; (* hardlink *)W DVI$V_VOL_SET_SECURITY : [POS(8)] $BOOL; (* set volume security profile support *)^ DVI$V_VOL_FID_TO_NAME : [POS(9)] $BOOL; (* ATR$C_FILE_SPEC attribute (lib$fid_to_name) *)X DVI$V_VOL_ODS1_STYLE_PURGE : [POS(10)] $BOOL; (* post ODS1 style purge operation *)j DVI$V_VOL_SHARED_TRUNCATE : [POS(11)] $BOOL; (* Supd port truncate when open shared (Spiralog only?) *)b DVI$V_VOL_WRITE_BARRIER : [POS(12)] $BOOL; (* Support IO$M_WRITE_BARRIER (vs IO$M_BARRIER) *)I DVI$V_VOL_DIRSEQ_QIO : [POS(13)] $BOOL; (* read/arm DIRSEQ by QIO *)G DVI$V_VOL_EFS : [POS(14)] $BOOL; (* extended file specification *)G DVI$V_VOL_UCS2 : [POS(15)] $BOOL; (* ucs2 file names *)G DVI$V_VOL_CASE_VARIANT : [POS(16)] $BOOL; (* case variant names *)^ DVI$V_VOL_MODDATE : [POS(17)] $BOOL; (* support for e modification date (ATR$C_MODDATE). *)l DVI$V_VOL_SPECIAL_FILE : [POS(18)] $BOOL; (* special file support including symbolic links (SYMLINK) *)Q DVI$V_VOL_SSIO : [POS(19)] $BOOL; (* support for shared stream I/O (SSIO) *)h DVI$V_VOL_LOOKUP_SPECIAL : [POS(20)] $BOOL; (* support for special file detection in file lookup *) ) END; N(* *)N(* Constant form of name for past compatibility. f *)N(* *) CONST DVI$C_SECONDARY = 1; N(* *)N(* The following ACP type codes are formally defined in $AQBDEF *)N(* These synonyms are available to user programs and they are *)N(* guaranteed to be consistent by ASSUME's in SYSGETDVI. Additions *)N(* to the ACP type codes in $AQBDEF should be reflected g here and *)N(* in the ASSUMES in SYSGETDVI. *)N(* *)N(* If you add ACP codes here, you must also update the ACP_TYPES *)N(* text translation table embedded over in [lib]liblexica.bli. *)N(* *) LCONST DVI$C_ACP_F11V1 = 1; (* FILES-11 STRUCTURE LEVEL 1 *)Gh DVI$C_ACP_F11V2 = 2; (* FILES-11 STRUCTURE LEVEL 2 *)G DVI$C_ACP_MTA = 3; (* MAGTAPE *)G DVI$C_ACP_NET = 4; (* NETWORKS *)G DVI$C_ACP_REM = 5; (* REMOTE I/O *)G DVI$C_ACP_HBS = 6; (* HOST BASED SHADOWING *)H DVI$C_ACP_F11V3 = 7; (* Files-11 presentation of ISO 9660 *)K DVI$C_ACP_F11V4 = 8; (* Files-11 presentation of H i igh Sierra *)G DVI$C_ACP_F64 = 9; (* Files 64 support for Dollar *)J DVI$C_ACP_UCX = 10; (* ACP for TCP/IP Services for OpenVMS *)G DVI$C_ACP_F11V5 = 11; (* FILES-11 STRUCTURE LEVEL 5 *)G DVI$C_ACP_F11V6 = 12; (* FILES-11 STRUCTURE LEVEL 6 *)G DVI$C_ACP_HBVS = 13; (* Host Based Volume Shadowing SCP *) (*** MODULE $DVSDEF ***) N(*+ *)N(* j *)N(* Device Scan Data Identifier Definitions *)N(* *)N(* **** NOTE **** *)N(* *)I(* New items must always be added at the END of the list so that *)I(* users will not have to rebuil k d. *)N(* *)N(*- *) ZCONST DVS$_DEVCLASS = 1; (* Device class - VALUE - 4 bytes (only one used) *)T DVS$_DEVTYPE = 2; (* Device type - VALUE - 4 bytes (only one used) *) (*** MODULE $EFNDEF ***) LCONST EFN$C_ENF = 128; (* Event No Flag (no stored state) *)G EFN$C_CTXl = 129; (* Wait for context *) #(*** MODULE ELFDATYP IDENT X-4 ***) TYPE Elf64_Addr =$QUAD; Elf64_Off =$UQUAD; Elf64_Half =$UWORD; Elf64_Word =UNSIGNED; Elf64_Sword =INTEGER; Elf64_Xword =$UQUAD; Elf64_Sxword =$QUAD; Elf64_Section =UNSIGNED; Elf64_Symndx =UNSIGNED; subsys_majmin$TYPE = RECORD ver$w_minor_id : $UWORD; ver$w_major_id : $UWORD; END; sysver_majmin$TYPE = RECORD& ver$v_minor_id : [POS(0)] $BIT24;& m ver$v_major_id : [POS(24)] $BIT8; END; CONST lnkg_desc1$m_type = 1; lnkg_desc1$m_notused0 = 2; lnkg_desc1$M_GP = 4; lnkg_desc1$m_notused1 = 8; lnkg_desc1$M_R2 = 48; lnkg_desc1$M_R3 = 192; lnkg_desc1$M_R4 = 768; lnkg_desc1$M_R5 = 3072; lnkg_desc1$M_R6 = 12288; lnkg_desc1$M_R7 = 49152; lnkg_desc1$M_R8 = 196608; lnkg_desc1$M_R9 = 786432; lnkg_desc1$M_R10 = 3145728; lnkg_desc1$M_R11 = 12582912; lnkg_desc1$M_R12 = 50331648; lnkg_desc1$M_R13 = 201326592; lnkn g_desc1$M_R14 = 805306368; lnkg_desc1$M_R15 = -1073741824; lnkg_desc1$M_R16 = 0; lnkg_desc1$M_R17 = 0; lnkg_desc1$M_R18 = 0; lnkg_desc1$M_R19 = 0; lnkg_desc1$M_R20 = 0; lnkg_desc1$M_R21 = 0; lnkg_desc1$M_R22 = 0; lnkg_desc1$M_R23 = 0; lnkg_desc1$M_R24 = 0; lnkg_desc1$M_AI = 0; lnkg_desc1$m_notused25 = 0; lnkg_desc1$M_R26 = 0; lnkg_desc1$M_R27 = 0; lnkg_desc1$M_R28 = 0; lnkg_desc1$M_R29 = 0; lnkg_desc1$M_R30 = 0; lnkg_desc1$M_R31 = 0; LNKG_DESC1$K_SIZE = 8; LNKo G_DESC1$C_SIZE = 8; !TYPE vms_lnkg_desc1$TYPE = RECORD( lnkg_desc1$v_type : [POS(0)] $BOOL;, lnkg_desc1$v_notused0 : [POS(1)] $BOOL;& lnkg_desc1$V_GP : [POS(2)] $BOOL;, lnkg_desc1$v_notused1 : [POS(3)] $BOOL;& lnkg_desc1$V_R2 : [POS(4)] $BIT2;& lnkg_desc1$V_R3 : [POS(6)] $BIT2;& lnkg_desc1$V_R4 : [POS(8)] $BIT2;' lnkg_desc1$V_R5 : [POS(10)] $BIT2;' lnkg_desc1$V_R6 : [POS(12)] $BIT2;' lnkg_desc1$V_R7 : [POS(14)] $BIT2;' lnkg_desc1$V_R8 : [ p POS(16)] $BIT2;' lnkg_desc1$V_R9 : [POS(18)] $BIT2;( lnkg_desc1$V_R10 : [POS(20)] $BIT2;( lnkg_desc1$V_R11 : [POS(22)] $BIT2;( lnkg_desc1$V_R12 : [POS(24)] $BIT2;( lnkg_desc1$V_R13 : [POS(26)] $BIT2;( lnkg_desc1$V_R14 : [POS(28)] $BIT2;( lnkg_desc1$V_R15 : [POS(30)] $BIT2;( lnkg_desc1$V_R16 : [POS(32)] $BIT2;( lnkg_desc1$V_R17 : [POS(34)] $BIT2;( lnkg_desc1$V_R18 : [POS(36)] $BIT2;( lnkg_desc1$V_R19 : [POS(38)] $BIT2;( lnkg_desc1$V_R20 : [P q OS(40)] $BIT2;( lnkg_desc1$V_R21 : [POS(42)] $BIT2;( lnkg_desc1$V_R22 : [POS(44)] $BIT2;( lnkg_desc1$V_R23 : [POS(46)] $BIT2;( lnkg_desc1$V_R24 : [POS(48)] $BIT2;' lnkg_desc1$V_AI : [POS(50)] $BOOL;. lnkg_desc1$v_notused25 : [POS(51)] $BOOL;( lnkg_desc1$V_R26 : [POS(52)] $BIT2;( lnkg_desc1$V_R27 : [POS(54)] $BIT2;( lnkg_desc1$V_R28 : [POS(56)] $BIT2;( lnkg_desc1$V_R29 : [POS(58)] $BIT2;( lnkg_desc1$V_R30 : [POS(60)] $BIT2;( lnkg_desc1$V_R31 r : [POS(62)] $BIT2; END; "(*** MODULE ELFDEF IDENT X-39 ***) CONST EHDR$K_EI_NIDENT = 16; EHDR$SC_EF_VMS_COMCOD = 0; ehdr$m_ef_vms_comcod = 3; EHDR$SC_EF_VMS_LINKAGES = 2; ehdr$m_ef_vms_linkages = 4; ehdr$m_ef_fill_1 = 8; EHDR$SC_EF_IA_64_ABI64 = 4; ehdr$m_ef_ia_64_abi64 = 16; EHDR$SC_EF_IA_64_REDUCEDFP = 5; ehdr$m_ef_ia_64_reducedfp = 32; EHDR$SC_EF_IA_64_CONS_GP = 6; ehdr$m_ef_ia_64_cons_gp = 64;# EHDR$SC_EF_IA_64_NOFD_CONS_GP = 7;$ ehdr$m_ef_ia_64_nofd_cons_gp s = 128; EHDR$SC_EF_IA_64_ABSOLUTE = 8; ehdr$m_ef_ia_64_absolute = 256; ehdr$m_ef_fill_2 = 16776704; EHDR$SC_EF_IA_64_ARCH = 24;" ehdr$m_ef_ia_64_arch = -16777216; EHDR$SC_EF_IA_64_LOOS = 0; ehdr$m_ef_ia_64_loos = 15; ehdr$m_ef_fill_1a = 65520; EHDR$SC_EF_IA_64_HIOS = 16;! ehdr$m_ef_ia_64_hios = 16711680; ELF64_EHDR$K_E_SIZE = 64; ELF64_EHDR$C_E_SIZE = 64;! ELF64_EHDR$S_VMS_OBJECT_V1 = 64; ELF64_EHDR$S_VMS_IMAGE_V1 = 72; -TYPE Elf64_Ehdr$TYPE = RECORD CASE INTEGER OFt * 1: (ehdr$r_ident : [BYTE(16)] RECORD END; ehdr$w_e_type : Elf64_Half;# ehdr$w_e_machine : Elf64_Half;# ehdr$l_e_version : Elf64_Word;" ehdr$pq_e_entry : Elf64_Addr; ehdr$q_e_phoff : Elf64_Off; ehdr$q_e_shoff : Elf64_Off;1 ehdr$r_flags_overlay : [BYTE(4)] RECORD END;" ehdr$w_e_ehsize : Elf64_Half;% ehdr$w_e_phentsize : Elf64_Half;! ehdr$w_e_phnum : Elf64_Half;% ehdr$w_e_shentsize : Elf64_Half;! ehdr$w_e_shnum : Elf64_Half;$ eu hdr$w_e_shstrndx : Elf64_Half;+ ehdr$q_e_vms_needed_cnt : Elf64_Xword; );7 2: (ehdr$t_e_ident : [POS(0)] ARRAY [1..16] OF $UBYTE;, ehdr$l_e_flags : [POS(384)] Elf64_Word; ); 3: ();& 4: (ehdr$b_ei_mag0 : [POS(0)] $UBYTE;& ehdr$b_ei_mag1 : [POS(8)] $UBYTE;' ehdr$b_ei_mag2 : [POS(16)] $UBYTE;' ehdr$b_ei_mag3 : [POS(24)] $UBYTE;( ehdr$b_ei_class : [POS(32)] $UBYTE;' ehdr$b_ei_data : [POS(40)] $UBYTE;* ehdr$b_ei_version : [POS(48)] $UBYTE;( v ehdr$b_ei_osabi : [POS(56)] $UBYTE;- ehdr$b_ei_abiversion : [POS(64)] $UBYTE;6 ehdr$b_ei_pad : [POS(72)] ARRAY [1..7] OF $UBYTE;- ehdr$v_ef_vms_comcod : [POS(384)] $BIT2;/ ehdr$v_ef_vms_linkages : [POS(386)] $BOOL;) ehdr$v_ef_fill_1 : [POS(387)] $BOOL;. ehdr$v_ef_ia_64_abi64 : [POS(388)] $BOOL;2 ehdr$v_ef_ia_64_reducedfp : [POS(389)] $BOOL;0 ehdr$v_ef_ia_64_cons_gp : [POS(390)] $BOOL;5 ehdr$v_ef_ia_64_nofd_cons_gp : [POS(391)] $BOOL;1 ehdr$v_efw _ia_64_absolute : [POS(392)] $BOOL;* ehdr$v_ef_fill_2 : [POS(393)] $BIT15;- ehdr$v_ef_ia_64_arch : [POS(408)] $BIT8; ); 5: ();- 6: (ehdr$v_ef_ia_64_loos : [POS(384)] $BIT4;+ ehdr$v_ef_fill_1a : [POS(388)] $BIT12;- ehdr$v_ef_ia_64_hios : [POS(400)] $BIT8; ) END; CONST EHDR$K_EI_MAG0 = 0; EHDR$K_EI_MAG1 = 1; EHDR$K_EI_MAG2 = 2; EHDR$K_EI_MAG3 = 3; EHDR$K_EI_CLASS = 4; EHDR$K_EI_DATA = 5; EHDR$K_EI_VERSION = 6; EHDR$K_EI_OSABI = 7; EHDx R$K_EI_ABIVERSION = 8; EHDR$K_EI_PAD = 9; EHDR$K_ELFMAG0 = 127; EHDR$K_ELFMAG1 = 69; EHDR$K_ELFMAG2 = 76; EHDR$K_ELFMAG3 = 70; EHDR$K_ELFCLASSNONE = 0; EHDR$K_ELFCLASS32 = 1; EHDR$K_ELFCLASS64 = 2; EHDR$K_ELFDATANONE = 0; EHDR$K_ELFDATA2LSB = 1; EHDR$K_ELFDATA2MSB = 2; EHDR$K_ELFOSABI_NONE = 0; EHDR$K_ELFOSABI_OPENVMS = 13;# EHDR$K_ELFABIVERSION_VMS_CURR = 2;" EHDR$K_ELFABIVERSION_VMS_OBJ = 2;" EHDR$K_ELFABIVERSION_VMS_IMG = 2; EHDR$K_ET_NONE = 0; EHDR$K_ET_RELy = 1; EHDR$K_ET_EXEC = 2; EHDR$K_ET_DYN = 3; EHDR$K_ET_CORE = 4; EHDR$K_ET_LOOS = 65024; EHDR$K_ET_HIOS = 65279; EHDR$K_ET_LOPROC = 65280; EHDR$K_ET_HIPROC = 65535; EHDR$K_ET_VMS_LINK_STB = 65024; EHDR$K_ET_VMS_DSF = 65025; EHDR$K_EM_NONE = 0; EHDR$K_EM_IA_64 = 50; IIHA$K_VMSXFER_SIZE = 48; IIHA$C_VMSXFER_SIZE = 48; 3TYPE transfer_address$TYPE = RECORD CASE INTEGER OF 1: (iiha$l_size : Elf64_Word; iiha$l_spare : Elf64_Word;0 iiha$r_tfr_overlay : [BYTE(40z )] RECORD END; );; 2: (iiha$ar_tfradr : [POS(64)] ARRAY [1..5] OF Elf64_Addr; ); 3: ();, 4: (iiha$pq_tfradr1 : [POS(64)] Elf64_Addr;- iiha$pq_tfradr2 : [POS(128)] Elf64_Addr;- iiha$pq_tfradr3 : [POS(192)] Elf64_Addr;- iiha$pq_tfradr4 : [POS(256)] Elf64_Addr;- iiha$pq_tfradr5 : [POS(320)] Elf64_Addr; ) END; CONST IIHA$C_INIT = 1; IIHA$C_MAIN = 2; IIHA$C_EXE_INIT = 3; EHDR$K_EV_NONE = 0; EHDR$K_EV_CURRENT = 1; EHDR$K_VMS_COMCOD_SUCCE{ SS = 0; EHDR$K_VMS_COMCOD_WARNING = 1; EHDR$K_VMS_COMCOD_ERROR = 2; EHDR$K_VMS_COMCOD_ABORT = 3;# EHDR$K_EF_IA_64_MASKOS = 16711695;! EHDR$K_EF_IA_64_ARCHVERSION = 1; SHDR$SC_SHF_WRITE = 0; shdr$m_shf_write = 1; SHDR$SC_SHF_ALLOC = 1; shdr$m_shf_alloc = 2; SHDR$SC_SHF_EXECINSTR = 2; shdr$m_shf_execinstr = 4; shdr$m_shf_f64_bitfill_1 = 8; SHDR$SC_SHF_MERGE = 4; shdr$m_shf_merge = 16; SHDR$SC_SHF_STRINGS = 5; shdr$m_shf_strings = 32; SHDR$SC_SHF_INFO_LINK = 6| ; shdr$m_shf_info_link = 64; SHDR$SC_SHF_LINK_ORDER = 7; shdr$m_shf_link_order = 128;" SHDR$SC_SHF_OS_NONCONFORMING = 8;# shdr$m_shf_os_nonconforming = 256; SHDR$SC_SHF_GROUP = 9; shdr$m_shf_group = 512; SHDR$SC_SHF_TLS = 10; shdr$m_shf_tls = 1024;& shdr$m_shf_f64_bitfill_2 = 268433408; SHDR$SC_SHF_IA_64_SHORT = 28;$ shdr$m_shf_ia_64_short = 268435456; SHDR$SC_SHF_IA_64_NORECOV = 29;& shdr$m_shf_ia_64_norecov = 536870912;( shdr$m_shf_f64_bitfill_3 = -1073741824; SHDR$SC} _SHF_VMS_GLOBAL = 32; shdr$m_shf_vms_global = 0; SHDR$SC_SHF_VMS_OVERLAID = 33; shdr$m_shf_vms_overlaid = 0; SHDR$SC_SHF_VMS_SHARED = 34; shdr$m_shf_vms_shared = 0; SHDR$SC_SHF_VMS_VECTOR = 35; shdr$m_shf_vms_vector = 0;" SHDR$SC_SHF_VMS_ALLOC_64BIT = 36; shdr$m_shf_vms_alloc_64bit = 0; SHDR$SC_SHF_VMS_PROTECTED = 37; shdr$m_shf_vms_protected = 0; shdr$m_shf_f64_bitfill_4 = 0;# shdr$m_shf_f64_osfill_1 = 1048575; SHDR$SC_SHF_MASK_LOOS = 20;" shdr$m_shf_mask_loos = 26~ 7386880;& shdr$m_shf_f64_osfill_2 = -268435456; SHDR$SC_SHF_MASK_HIOS = 32; shdr$m_shf_mask_hios = 0;' shdr$m_shf_f64_procfill_1 = 268435455; SHDR$SC_SHF_MASKLOPROC = 28;$ shdr$m_shf_maskloproc = -268435456; SHDR$SC_SHF_MASKHIPROC = 32; shdr$m_shf_maskhiproc = 0; ELF64_SHDR$K_SH_SIZE = 64; ELF64_SHDR$C_SH_SIZE = 64; -TYPE Elf64_Shdr$TYPE = RECORD CASE INTEGER OF! 1: (shdr$l_sh_name : Elf64_Word;! shdr$l_sh_type : Elf64_Word;1 shdr$r_flags_overlay : [BYTE(8)] RE CORD END;" shdr$pq_sh_addr : Elf64_Addr;" shdr$q_sh_offset : Elf64_Off;" shdr$q_sh_size : Elf64_Xword;! shdr$l_sh_link : Elf64_Word;! shdr$l_sh_info : Elf64_Word;' shdr$q_sh_addralign : Elf64_Xword;% shdr$q_sh_entsize : Elf64_Xword; );- 2: (shdr$q_sh_flags : [POS(64)] Elf64_Xword; ); 3: ();( 4: (shdr$v_shf_write : [POS(64)] $BOOL;( shdr$v_shf_alloc : [POS(65)] $BOOL;, shdr$v_shf_execinstr : [POS(66)] $BOOL;0 shdr$v_shf_f64_bitf ill_1 : [POS(67)] $BOOL;( shdr$v_shf_merge : [POS(68)] $BOOL;* shdr$v_shf_strings : [POS(69)] $BOOL;, shdr$v_shf_info_link : [POS(70)] $BOOL;- shdr$v_shf_link_order : [POS(71)] $BOOL;3 shdr$v_shf_os_nonconforming : [POS(72)] $BOOL;( shdr$v_shf_group : [POS(73)] $BOOL;& shdr$v_shf_tls : [POS(74)] $BOOL;1 shdr$v_shf_f64_bitfill_2 : [POS(75)] $BIT17;. shdr$v_shf_ia_64_short : [POS(92)] $BOOL;0 shdr$v_shf_ia_64_norecov : [POS(93)] $BOOL;0 shdr$v_sh f_f64_bitfill_3 : [POS(94)] $BIT2;- shdr$v_shf_vms_global : [POS(96)] $BOOL;/ shdr$v_shf_vms_overlaid : [POS(97)] $BOOL;- shdr$v_shf_vms_shared : [POS(98)] $BOOL;- shdr$v_shf_vms_vector : [POS(99)] $BOOL;3 shdr$v_shf_vms_alloc_64bit : [POS(100)] $BOOL;1 shdr$v_shf_vms_protected : [POS(101)] $BOOL;2 shdr$v_shf_f64_bitfill_4 : [POS(102)] $BIT26; ); 5: ();0 6: (shdr$v_shf_f64_osfill_1 : [POS(64)] $BIT20;, shdr$v_shf_mask_loos : [POS(84)] $BIT8;/  shdr$v_shf_f64_osfill_2 : [POS(92)] $BIT4;- shdr$v_shf_mask_hios : [POS(96)] $BIT32; ); 7: ();2 8: (shdr$v_shf_f64_procfill_1 : [POS(64)] $BIT28;- shdr$v_shf_maskloproc : [POS(92)] $BIT4;. shdr$v_shf_maskhiproc : [POS(96)] $BIT32; ) END; CONST SHDR$K_SHN_UNDEF = 0; SHDR$K_SHN_LORESERVE = 65280; SHDR$K_SHN_LOPROC = 65280; SHDR$K_SHN_HIPROC = 65311; SHDR$K_SHN_LOOS = 65312; SHDR$K_SHN_VMS_SYMVEC = 65312; SHDR$K_SHN_HIOS = 65343; SHDR$K_SH N_ABS = 65521; SHDR$K_SHN_COMMON = 65522; SHDR$K_SHN_XINDEX = 65535; SHDR$K_SHN_HIRESERVE = 65535; SHDR$K_SHT_NULL = 0; SHDR$K_SHT_PROGBITS = 1; SHDR$K_SHT_SYMTAB = 2; SHDR$K_SHT_STRTAB = 3; SHDR$K_SHT_RELA = 4; SHDR$K_SHT_HASH = 5; SHDR$K_SHT_DYNAMIC = 6; SHDR$K_SHT_NOTE = 7; SHDR$K_SHT_NOBITS = 8; SHDR$K_SHT_REL = 9; SHDR$K_SHT_SHLIB = 10; SHDR$K_SHT_DYNSYM = 11; SHDR$K_SHT_UNUSED_12 = 12; SHDR$K_SHT_UNUSED_13 = 13; SHDR$K_SHT_INIT_ARRAY = 14; SHDR$ K_SHT_FINI_ARRAY = 15; SHDR$K_SHT_PREINIT_ARRAY = 16; SHDR$K_SHT_GROUP = 17; SHDR$K_SHT_SYMTAB_SHNDX = 18; GRPSEC$M_COMDAT_FLAG = 1; SHDR$K_SHT_LOOS = 1610612736; SHDR$K_SHT_HIOS = 1879048191; SHDR$K_SHT_LOPROC = 1879048192; SHDR$K_SHT_HIPROC = 2147483647;! SHDR$K_SHT_LOUSER = -2147483648; SHDR$K_SHT_HIUSER = -1;# SHDR$K_SHT_VMS_TRACE = 1610612736;, SHDR$K_SHT_VMS_TIE_SIGNATURES = 1610612737;# SHDR$K_SHT_VMS_DEBUG = 1610612738;' SHDR$K_SHT_VMS_DEBUG_STR = 1610612739;& SHD R$K_SHT_VMS_LINKAGES = 1610612740;+ SHDR$K_SHT_VMS_SYMBOL_VECTOR = 1610612741;# SHDR$K_SHT_VMS_FIXUP = 1610612742;. SHDR$K_SHT_VMS_DISPLAY_NAME_INF = 1610612743;' SHDR$K_SHT_IA_64_LOPSREG = 2013265920;' SHDR$K_SHT_IA_64_HIPSREG = 2147483647;# SHDR$K_SHT_IA_64_EXT = 1879048192;& SHDR$K_SHT_IA_64_UNWIND = 1879048193;- SHDR$K_SHT_IA_64_PRIORITY_INIT = 2030043136; VMSSIG$$K_SIZE = 8; VMSSIG$$C_SIZE = 8; TYPE VMSSigEntry$TYPE = RECORD% vmssig$l_se_symbol : Elf64_Word;% vms sig$l_se_offset : Elf64_Word; END; CONST UNWIND$K_SIZE = 24; UNWIND$C_SIZE = 24; %TYPE IA_64_Unwind_Entry$TYPE = RECORD% unwind$pq_ue_start : Elf64_Addr;# unwind$pq_ue_end : Elf64_Addr;$ unwind$pq_ue_info : Elf64_Addr; END; CONST ELF64_NHDR$K_NH_SIZE = 24; ELF64_NHDR$C_NH_SIZE = 24; TYPE Elf64_Nhdr$TYPE = RECORD$ nhdr$q_nh_namesz : Elf64_Xword;$ nhdr$q_nh_descsz : Elf64_Xword;" nhdr$q_nh_type : Elf64_Xword; END; CONST ELF64_MHDR $K_MH_SIZE = 34; ELF64_MHDR$C_MH_SIZE = 34; TYPE Elf64_Mhdr$TYPE = RECORD5 mhdr$b_mh_create_date : ARRAY [1..17] OF $UBYTE;4 mhdr$b_mh_patch_date : ARRAY [1..17] OF $UBYTE;% mhdr$b_mh_name_version : $UBYTE;. mhdr$b_fill_123_ : ARRAY [0..4] OF $BYTE; END; #CONST ELF64_ORIGDYN$K_MAJOR_ID = 1; ELF64_ORIGDYN$K_MINOR_ID = 3; TYPE Elf64_OrigDyn$TYPE = RECORD# origdyn$l_major_id : UNSIGNED;# origdyn$l_minor_id : UNSIGNED;* origdyn$q_manipulation_ date : $UQUAD;# origdyn$q_link_flags : $UQUAD;$ origdyn$l_elf_flags : UNSIGNED;! origdyn$l_filler : UNSIGNED;. origdyn$b_imgid : ARRAY [1..1] OF $UBYTE;1 origdyn$b_fill_124_ : ARRAY [0..6] OF $BYTE; END; CONST NHDR$K_NT_VMS_MHD = 1; NHDR$K_NT_VMS_LNM = 2; NHDR$K_NT_VMS_SRC = 3; NHDR$K_NT_VMS_TITLE = 4; NHDR$K_NT_VMS_EIDC = 5; NHDR$K_NT_VMS_FPMODE = 6; NHDR$K_NT_VMS_LINKTIME = 101; NHDR$K_NT_VMS_IMGNAM = 102; NHDR$K_NT_VMS_IMGID = 103; NHDR$K_NT _VMS_LINKID = 104; NHDR$K_NT_VMS_IMGBID = 105; NHDR$K_NT_VMS_GSTNAM = 106; NHDR$K_NT_VMS_ORIG_DYN = 107; NHDR$K_NT_VMS_PATCHTIME = 108;$ NHDR$K_VMS_EIDC_ERRSEV_WARNING = 0;$ NHDR$K_VMS_EIDC_ERRSEV_SUCCESS = 1;" NHDR$K_VMS_EIDC_ERRSEV_ERROR = 2;# NHDR$K_VMS_EIDC_ERRSEV_SEVERE = 4; ELF64_SYM$K_ST_SIZE = 24; ELF64_SYM$C_ST_SIZE = 24; TYPE Elf64_Sym$TYPE = RECORD# symtab$l_st_name : Elf64_Word; symtab$b_st_info : $UBYTE; symtab$b_st_other : $UBYTE;$ symtab$w_ st_shndx : Elf64_Half;% symtab$pq_st_value : Elf64_Addr;$ symtab$q_st_size : Elf64_Xword; END; CONST SYMTAB$K_STB_LOCAL = 0; SYMTAB$K_STB_GLOBAL = 1; SYMTAB$K_STB_WEAK = 2; SYMTAB$K_STB_LOOS = 10; SYMTAB$K_STB_VMS_WEAK = 11; SYMTAB$K_STB_VMS_SYSTEM = 12; SYMTAB$K_STB_HIOS = 12; SYMTAB$K_STB_LOPROC = 13; SYMTAB$K_STB_HIPROC = 15; SYMTAB$K_STT_NOTYPE = 0; SYMTAB$K_STT_OBJECT = 1; SYMTAB$K_STT_FUNC = 2; SYMTAB$K_STT_SECTION = 3; SYMTAB$K_STT_FILE = 4; SYMTAB$K_STT_COMMON = 5; SYMTAB$K_STT_TLS = 6; SYMTAB$K_STT_LOOS = 10; SYMTAB$K_STT_HIOS = 12; SYMTAB$K_STT_LOPROC = 13; SYMTAB$K_STT_HIPROC = 15; SYMTAB$K_STV_DEFAULT = 0; SYMTAB$K_STV_INTERNAL = 1; SYMTAB$K_STV_HIDDEN = 2; SYMTAB$K_STV_PROTECTED = 3; SYMTAB$K_STV_UNIVERSAL = 3;! SYMTAB$K_VMS_STO_VISIBILITY = 3;! SYMTAB$K_VMS_STO_FUNC_TYPE = 48; SYMTAB$K_VMS_STO_LINKAGE = 192; SYMTAB$K_VMS_SFT_CODE_ADDR = 0; SYMTAB$K_VMS_SFT_SYMV_IDX = 1; SYMTAB$K_VMS_SFT_FD = 2;  SYMTAB$K_VMS_SFT_RESERVE = 3; SYMTAB$K_VMS_STL_IGNORE = 0; SYMTAB$K_VMS_STL_RESERVED = 1; SYMTAB$K_VMS_STL_STD = 2; SYMTAB$K_VMS_STL_LNK = 3; ELF64_RELA64$K_R_SIZE = 24; ELF64_RELA64$C_R_SIZE = 24; /TYPE Elf64_Rela64$TYPE = RECORD CASE INTEGER OF# 1: (rela$pq_r_offset : Elf64_Addr;- rela$r_info_olay : [BYTE(8)] RECORD END;$ rela$q_r_addend : Elf64_Sxword; );+ 2: (rela$q_r_info : [POS(64)] Elf64_Xword; ); 3: ();* 4: (rela$l_r_type : [POS(64)] Elf64 _Word;) rela$l_r_sym : [POS(96)] Elf64_Word; ) END; CONST RELA$K_R_IA_64_NONE = 0; RELA$K_R_IA_64_IMM14 = 33; RELA$K_R_IA_64_IMM22 = 34; RELA$K_R_IA_64_IMM64 = 35; RELA$K_R_IA_64_DIR32MSB = 36; RELA$K_R_IA_64_DIR32LSB = 37; RELA$K_R_IA_64_DIR64MSB = 38; RELA$K_R_IA_64_DIR64LSB = 39; RELA$K_R_IA_64_GPREL22 = 42; RELA$K_R_IA_64_GPREL64I = 43; RELA$K_R_IA_64_GPREL32MSB = 44; RELA$K_R_IA_64_GPREL32LSB = 45; RELA$K_R_IA_64_GPREL64MSB = 46; RELA$K_R_IA_64_GP REL64LSB = 47; RELA$K_R_IA_64_LTOFF22 = 50; RELA$K_R_IA_64_LTOFF64I = 51; RELA$K_R_IA_64_PLTOFF22 = 58; RELA$K_R_IA_64_PLTOFF64I = 59;! RELA$K_R_IA_64_PLTOFF64MSB = 62;! RELA$K_R_IA_64_PLTOFF64LSB = 63; RELA$K_R_IA_64_FPTR64I = 67; RELA$K_R_IA_64_FPTR32MSB = 68; RELA$K_R_IA_64_FPTR32LSB = 69; RELA$K_R_IA_64_FPTR64MSB = 70; RELA$K_R_IA_64_FPTR64LSB = 71; RELA$K_R_IA_64_PCREL60B = 72; RELA$K_R_IA_64_PCREL21B = 73; RELA$K_R_IA_64_PCREL21M = 74; RELA$K_R_IA_64_PCREL21F = 75; RELA$K_R_IA_64_PCREL32MSB = 76; RELA$K_R_IA_64_PCREL32LSB = 77; RELA$K_R_IA_64_PCREL64MSB = 78; RELA$K_R_IA_64_PCREL64LSB = 79;" RELA$K_R_IA_64_LTOFF_FPTR22 = 82;# RELA$K_R_IA_64_LTOFF_FPTR64I = 83;% RELA$K_R_IA_64_LTOFF_FPTR32MSB = 84;% RELA$K_R_IA_64_LTOFF_FPTR32LSB = 85;% RELA$K_R_IA_64_LTOFF_FPTR64MSB = 86;% RELA$K_R_IA_64_LTOFF_FPTR64LSB = 87;! RELA$K_R_IA_64_SEGREL32MSB = 92;! RELA$K_R_IA_64_SEGREL32LSB = 93;! RELA$K_R_IA_64_SEGREL64MSB = 94;! RELA$K_R_IA_64_SEGR EL64LSB = 95;" RELA$K_R_IA_64_SECREL32MSB = 100;" RELA$K_R_IA_64_SECREL32LSB = 101;" RELA$K_R_IA_64_SECREL64MSB = 102;" RELA$K_R_IA_64_SECREL64LSB = 103; RELA$K_R_IA_64_REL32MSB = 108; RELA$K_R_IA_64_REL32LSB = 109; RELA$K_R_IA_64_REL64MSB = 110; RELA$K_R_IA_64_REL64LSB = 111; RELA$K_R_IA_64_LTV32MSB = 116; RELA$K_R_IA_64_LTV32LSB = 117; RELA$K_R_IA_64_LTV64MSB = 118; RELA$K_R_IA_64_LTV64LSB = 119; RELA$K_R_IA_64_PCREL21BI = 121; RELA$K_R_IA_64_PCREL22 = 122; RELA$K_ R_IA_64_PCREL64I = 123; RELA$K_R_IA_64_IPLTMSB = 128; RELA$K_R_IA_64_IPLTLSB = 129; RELA$K_R_IA_64_COPY = 132; RELA$K_R_IA_64_SUB = 133; RELA$K_R_IA_64_LTOFF22X = 134; RELA$K_R_IA_64_LDXMOV = 135; RELA$K_R_IA_64_TPREL14 = 145; RELA$K_R_IA_64_TPREL22 = 146; RELA$K_R_IA_64_TPREL64I = 147;! RELA$K_R_IA_64_TPREL64MSB = 150;! RELA$K_R_IA_64_TPREL64LSB = 151;! RELA$K_R_IA_64_LTOFF_TP22 = 154;" RELA$K_R_IA_64_DTPMOD64MSB = 166;" RELA$K_R_IA_64_DTPMOD64LSB = 167;% RELA$K_R_IA_6 4_LTOFF_DTPMOD22 = 170; RELA$K_R_IA_64_DTPREL14 = 177; RELA$K_R_IA_64_DTPREL22 = 178; RELA$K_R_IA_64_DTPREL64I = 179;" RELA$K_R_IA_64_DTPREL32MSB = 180;" RELA$K_R_IA_64_DTPREL32LSB = 181;" RELA$K_R_IA_64_DTPREL64MSB = 182;" RELA$K_R_IA_64_DTPREL64LSB = 183;% RELA$K_R_IA_64_LTOFF_DTPREL22 = 186;" RELA$K_R_IA_64_LOOS = 1879048192; RELA$K_R_IA_64_HIOS = -1;" RELA$K_R_IA_64_DIR8 = 1879048192;& RELA$K_R_IA_64_DIR16LSB = 1879048193;* RELA$K_R_IA_64_VMS_CALL_SIG = 1879048194;. RELA$K_R_ IA_64_VMS_EXECLET_FUNC = 1879048195;. RELA$K_R_IA_64_VMS_EXECLET_DATA = 1879048196;& RELA$K_R_IA_64_VMS_FIX8 = 1879048197;' RELA$K_R_IA_64_VMS_FIX16 = 1879048198;' RELA$K_R_IA_64_VMS_FIX32 = 1879048199;' RELA$K_R_IA_64_VMS_FIX64 = 1879048200;' RELA$K_R_IA_64_VMS_FIXFD = 1879048201;* RELA$K_R_IA_64_VMS_ACC_LOAD = 1879048202;) RELA$K_R_IA_64_VMS_ACC_ADD = 1879048203;) RELA$K_R_IA_64_VMS_ACC_SUB = 1879048204;) RELA$K_R_IA_64_VMS_ACC_MUL = 1879048205;) RELA$K_R_IA_64_VMS_ACC_DIV = 187904 8206;) RELA$K_R_IA_64_VMS_ACC_AND = 1879048207;) RELA$K_R_IA_64_VMS_ACC_IOR = 1879048208;) RELA$K_R_IA_64_VMS_ACC_EOR = 1879048209;) RELA$K_R_IA_64_VMS_ACC_ASH = 1879048210;* RELA$K_R_IA_64_VMS_ACC_STO8 = 1879048212;. RELA$K_R_IA_64_VMS_ACC_STO16LSB = 1879048213;. RELA$K_R_IA_64_VMS_ACC_STO32LSB = 1879048214;. RELA$K_R_IA_64_VMS_ACC_STO64LSB = 1879048215; I(* Display Name Info (dni) - aka Demangler info - entries *)I(* Internally some more structures and names are used. However, a *)I(* developer should only use the types Elf64_vms_dni32 and *)I(* Elf64_vms_dni64, both contain all necessary fields. In C notation *)I(* all the necesary 32 bit fields are: *)B(* dni32$l_dni_format *)B(* dni32$l_fmt1_info[i].fmt1$l_dni_demangler *)B(* dni32$l_fmt1_info[i].fmt1$l_dni_symbol *)B(* dni32$l_fmt1_info[i].fmt1$l_dni_data *)B(* dni32$l_fmt2_info[i].fmt2$l_dni_symbol *)B(* dni32$l_fmt2_info[i].fmt2$l_dni_data *)B(* dni32$l_fmt3.fmt3$l_dni_demangler *)B(* dni32$l_fmt4.fmt4$l_dni_demangler *)B(* dni32$l_fmt4_info[i].fmt4$l_dni_symbol *)B(* dni32$l_fmt4_info[i].fmt4$l_dni_data *) CONST DNI$_SUCCESS = 1;K DNI$_NORMAL = 1; (* demangled string is in result buffer *)G DNI$_ERROR = 2; (* error in demangling *) DNI$_ALTERNATE_SUCCESS = 9;Q DNI$_SAME = 9; (* demangled string identical to input string *) N(* Data representations (0,4,8) *) LCONST DNI$_DATA_ULEB = 0; (* ULEBs (see DWARF spec) *)G DNI$_DATA_WORD = 4; (* ELF64_Word, VMS Longword *)G DNI$_DATA_XWORD = 8; (* ELF64_Xword, VMS Quadword *) N(* DNI formats (1, ..., 4) *) CONST DNI$_FMT1 = 1; DNI$_FMT2 = 2; DNI$_FMT3 = 3; DNI$_FMT4 = 4; N(* *)N(* 32 bit variants *)N(* *) 'TYPE Elf64_vms_dni32_fmt1$TYPE = RECORD' fmt1$l_dni_demangler : El f64_Word;$ fmt1$l_dni_symbol : Elf64_Word;" fmt1$l_dni_data : Elf64_Word; END;# Elf64_vms_dni32_fmt2$TYPE = RECORD$ fmt2$l_dni_symbol : Elf64_Word;" fmt2$l_dni_data : Elf64_Word; END;# Elf64_vms_dni32_fmt3$TYPE = RECORD' fmt3$l_dni_demangler : Elf64_Word; END;# Elf64_vms_dni32_fmt4$TYPE = RECORD' fmt4$l_dni_demangler : Elf64_Word; END;' Elf64_vms_dni32_fmt4_sub$TYPE = RECORD$ fmt4$l_dni_symbol : Elf64_Word;" fmt4$l_dni_data : Elf64_Word; END;. Elf64_vms_dni32$TYPE = RECORD CASE INTEGER OF% 1: (dni32$l_dni_format : Elf64_Word;- dni32$r_entry32 : [BYTE(12)] RECORD END; );8 2: (dni32$r_format_l1 : [POS(32), BYTE(12)] RECORD END; );M 3: (dni32$l_fmt1_info : [POS(32)] ARRAY [1..1] OF Elf64_vms_dni32_fmt1$TYPE; );7 4: (dni32$r_format_l2 : [POS(32), BYTE(8)] RECORD END; );M 5: (dni32$l_fmt2_info : [POS(32)] ARRAY [1..1] OF Elf64_vms_dni32_fmt2$TYPE; );7 6: (dni32$r_format_l3 : [POS(32), B YTE(4)] RECORD END; );8 7: (dni32$l_fmt3 : [POS(32)] Elf64_vms_dni32_fmt3$TYPE; );8 8: (dni32$r_format_l4 : [POS(32), BYTE(12)] RECORD END; );8 9: (dni32$l_fmt4 : [POS(32)] Elf64_vms_dni32_fmt4$TYPE;Q dni32$l_fmt4_info : [POS(64)] ARRAY [1..1] OF Elf64_vms_dni32_fmt4_sub$TYPE; ) END; N(* *)N(* 64 bit variants *)N(*  *) 'TYPE Elf64_vms_dni64_fmt1$TYPE = RECORD( fmt1$q_dni_demangler : Elf64_Xword;% fmt1$q_dni_symbol : Elf64_Xword;# fmt1$q_dni_data : Elf64_Xword; END;# Elf64_vms_dni64_fmt2$TYPE = RECORD% fmt2$q_dni_symbol : Elf64_Xword;# fmt2$q_dni_data : Elf64_Xword; END;# Elf64_vms_dni64_fmt3$TYPE = RECORD( fmt3$q_dni_demangler : Elf64_Xword; END;# Elf64_vms_dni64_fmt4$TYPE = RECORD( fmt4$q_dni_de mangler : Elf64_Xword; END;' Elf64_vms_dni64_fmt4_sub$TYPE = RECORD% fmt4$q_dni_symbol : Elf64_Xword;# fmt4$q_dni_data : Elf64_Xword; END;. Elf64_vms_dni64$TYPE = RECORD CASE INTEGER OF& 1: (dni64$q_dni_format : Elf64_Xword;- dni64$r_entry64 : [BYTE(24)] RECORD END; );8 2: (dni64$r_format_q1 : [POS(64), BYTE(24)] RECORD END; );M 3: (dni64$q_fmt1_info : [POS(64)] ARRAY [1..1] OF Elf64_vms_dni64_fmt1$TYPE; );8 4: (dni64$r_format_q2 : [POS(64), BYTE(16 )] RECORD END; );M 5: (dni64$q_fmt2_info : [POS(64)] ARRAY [1..1] OF Elf64_vms_dni64_fmt2$TYPE; );7 6: (dni64$r_format_q3 : [POS(64), BYTE(8)] RECORD END; );8 7: (dni64$q_fmt3 : [POS(64)] Elf64_vms_dni64_fmt3$TYPE; );8 8: (dni64$r_format_q4 : [POS(64), BYTE(24)] RECORD END; );8 9: (dni64$q_fmt4 : [POS(64)] Elf64_vms_dni64_fmt4$TYPE;R dni64$q_fmt4_info : [POS(128)] ARRAY [1..1] OF Elf64_vms_dni64_fmt4_sub$TYPE; ) END; CONST PHDR$SC_PF_X = 0;  phdr$m_pf_x = 1; PHDR$SC_PF_W = 1; phdr$m_pf_w = 2; PHDR$SC_PF_R = 2; phdr$m_pf_r = 4; phdr$m_pf_fill_3to19 = 1048568;" PHDR$SC_PF_VMS_NOWRIT_RELOC = 20;& phdr$m_pf_vms_nowrit_reloc = 1048576;! PHDR$SC_PF_VMS_INITIALCODE = 21;% phdr$m_pf_vms_initialcode = 2097152; PHDR$SC_PF_VMS_RESIDENT = 22;" phdr$m_pf_vms_resident = 4194304; PHDR$SC_PF_VMS_VECTOR = 23; phdr$m_pf_vms_vector = 8388608; PHDR$SC_PF_VMS_PROTECT = 24;" phdr$m_pf_vms_protect = 16777216;" PHDR$SC_PF_VMS_NO WRIT_FIXUP = 25;' phdr$m_pf_vms_nowrit_fixup = 33554432; PHDR$SC_PF_VMS_SHORT = 26; phdr$m_pf_vms_short = 67108864; PHDR$SC_PF_VMS_SHARED = 27;" phdr$m_pf_vms_shared = 134217728; PHDR$SC_PF_IA_64_NORECOV = 31;' phdr$m_pf_ia_64_norecov = -2147483648; phdr$m_fill_1 = 1048575; PHDR$SC_PF_MASKOS = 20; phdr$m_pf_maskos = 267386880; PHDR$SC_PF_MASKPROC = 28;! phdr$m_pf_maskproc = -268435456; ELF64_PHDR$K_SIZE = 56; ELF64_PHDR$C_SIZE = 56; -TYPE Elf64_Phdr$TYPE = RECORD CASE INTEGER OF 1: (phdr$l_p_type : Elf64_Word;) phdr$r_flags : [BYTE(4)] RECORD END;! phdr$q_p_offset : Elf64_Off;" phdr$pq_p_vaddr : Elf64_Addr;" phdr$pq_p_paddr : Elf64_Addr;# phdr$q_p_filesz : Elf64_Xword;" phdr$q_p_memsz : Elf64_Xword;" phdr$q_p_align : Elf64_Xword; );+ 2: (phdr$l_p_flags : [POS(32)] Elf64_Word; ); 3: ();# 4: (phdr$v_pf_x : [POS(32)] $BOOL;# phdr$v_pf_w : [POS(33)] $BOOL;# phdr$v_pf_r : [POS(34)] $BOOL;- p hdr$v_pf_fill_3to19 : [POS(35)] $BIT17;2 phdr$v_pf_vms_nowrit_reloc : [POS(52)] $BOOL;1 phdr$v_pf_vms_initialcode : [POS(53)] $BOOL;. phdr$v_pf_vms_resident : [POS(54)] $BOOL;, phdr$v_pf_vms_vector : [POS(55)] $BOOL;- phdr$v_pf_vms_protect : [POS(56)] $BOOL;2 phdr$v_pf_vms_nowrit_fixup : [POS(57)] $BOOL;+ phdr$v_pf_vms_short : [POS(58)] $BOOL;, phdr$v_pf_vms_shared : [POS(59)] $BOOL;- phdr$v_pf_fill_24to30 : [POS(60)] $BIT3;/ phdr$v_pf_ia_64_norec ov : [POS(63)] $BOOL; ); 5: ();& 6: (phdr$v_fill_1 : [POS(32)] $BIT20;( phdr$v_pf_maskos : [POS(52)] $BIT8;* phdr$v_pf_maskproc : [POS(60)] $BIT4; ) END; CONST PHDR$K_PT_NULL = 0; PHDR$K_PT_LOAD = 1; PHDR$K_PT_DYNAMIC = 2; PHDR$K_PT_INTERP = 3; PHDR$K_PT_NOTE = 4; PHDR$K_PT_SHLIB = 5; PHDR$K_PT_PHDR = 6; PHDR$K_PT_TLS = 7; PHDR$K_PT_LOOS = 1610612736; PHDR$K_PT_HIOS = 1879048191; PHDR$K_PT_LOPROC = 1879048192; PHDR$K_PT_HIPROC = 21474836 47;$ DYNSEG$SC_DT_VMS_LF_CALL_DEBUG = 0;# dynseg$m_dt_vms_lf_call_debug = 1;" DYNSEG$SC_DT_VMS_LF_NOP0BUFS = 1;! dynseg$m_dt_vms_lf_nop0bufs = 2;! DYNSEG$SC_DT_VMS_LF_P0IMAGE = 2; dynseg$m_dt_vms_lf_p0image = 4;# DYNSEG$SC_DT_VMS_LF_MKTHREADS = 3;" dynseg$m_dt_vms_lf_mkthreads = 8;! DYNSEG$SC_DT_VMS_LF_UPCALLS = 4;! dynseg$m_dt_vms_lf_upcalls = 16; DYNSEG$SC_DT_VMS_LF_IMGSTA = 5; dynseg$m_dt_vms_lf_imgsta = 32;$ DYNSEG$SC_DT_VMS_LF_INITIALIZE = 6;$ dynseg$m_dt_vms_lf_initialize = 64; DYNSEG$SC_DT_VMS_LF_MAIN = 7; dynseg$m_dt_vms_lf_main = 128; DYNSEG$SC_DT_VMS_LF_UNUSED = 8;! dynseg$m_dt_vms_lf_unused = 256;" DYNSEG$SC_DT_VMS_LF_EXE_INIT = 9;# dynseg$m_dt_vms_lf_exe_init = 512;% DYNSEG$SC_DT_VMS_LF_TBK_IN_IMG = 10;& dynseg$m_dt_vms_lf_tbk_in_img = 1024;% DYNSEG$SC_DT_VMS_LF_DBG_IN_IMG = 11;& dynseg$m_dt_vms_lf_dbg_in_img = 2048;% DYNSEG$SC_DT_VMS_LF_TBK_IN_DSF = 12;& dynseg$m_dt_vms_lf_tbk_in_dsf = 4096;% DYNSEG$SC_DT_VMS_LF_DBG_IN_DSF = 13;& dynseg$ m_dt_vms_lf_dbg_in_dsf = 8192;% DYNSEG$SC_DT_VMS_LF_SIGNATURES = 14;' dynseg$m_dt_vms_lf_signatures = 16384;& DYNSEG$SC_DT_VMS_LF_REL_SEG_OFF = 15;( dynseg$m_dt_vms_lf_rel_seg_off = 32768;$ DYNSEG$SC_DT_VMS_LF_SSI_INCAP = 16;& dynseg$m_dt_vms_lf_ssi_incap = 65536; DYNSEG$K_SIZE = 16; DYNSEG$C_SIZE = 16; ,TYPE Elf64_Dyn$TYPE = RECORD CASE INTEGER OF# 1: (dynseg$q_d_tag : Elf64_Sxword;* dynseg$r_d_un : [BYTE(8)] RECORD END; );, 2: (dynseg$q_d_val : [POS(64)] Elf64_Xword; );, 3: (dynseg$pq_d_ptr : [POS(64)] Elf64_Addr; ); 4: ();5 5: (dynseg$v_dt_vms_lf_call_debug : [POS(64)] $BOOL;3 dynseg$v_dt_vms_lf_nop0bufs : [POS(65)] $BOOL;2 dynseg$v_dt_vms_lf_p0image : [POS(66)] $BOOL;4 dynseg$v_dt_vms_lf_mkthreads : [POS(67)] $BOOL;2 dynseg$v_dt_vms_lf_upcalls : [POS(68)] $BOOL;1 dynseg$v_dt_vms_lf_imgsta : [POS(69)] $BOOL;5 dynseg$v_dt_vms_lf_initialize : [POS(70)] $BOOL;/ dynseg$v_dt_vms_lf_main : [POS(71)] $BOOL;3 dynseg$v_dt_vms_lf_exe_init : [POS(73)] $BOOL;5 dynseg$v_dt_vms_lf_tbk_in_img : [POS(74)] $BOOL;5 dynseg$v_dt_vms_lf_dbg_in_img : [POS(75)] $BOOL;5 dynseg$v_dt_vms_lf_tbk_in_dsf : [POS(76)] $BOOL;5 dynseg$v_dt_vms_lf_dbg_in_dsf : [POS(77)] $BOOL;5 dynseg$v_dt_vms_lf_signatures : [POS(78)] $BOOL;6 dynseg$v_dt_vms_lf_rel_seg_off : [POS(79)] $BOOL;4 dynseg$v_dt_vms_lf_ssi_incap : [POS(80)] $BOOL; ) END; CONST DYNSEG$K_DT_NULL = 0; DYNSEG$K_DT_NEE DED = 1; DYNSEG$K_DT_STRSZ = 10;, DYNSEG$K_DT_IA_64_PLT_RESERVE = 1879048192; DYNSEG$K_DT_LOOS = 1610612749;& DYNSEG$K_DT_VMS_SUBTYPE = 1610612749;+ DYNSEG$K_DT_VMS_DTLOOSPLUS_1 = 1610612750;' DYNSEG$K_DT_VMS_IMGIOCNT = 1610612751;+ DYNSEG$K_DT_VMS_DTLOOSPLUS_3 = 1610612752;+ DYNSEG$K_DT_VMS_DTLOOSPLUS_4 = 1610612753;+ DYNSEG$K_DT_VMS_DTLOOSPLUS_5 = 1610612754;+ DYNSEG$K_DT_VMS_DTLOOSPLUS_6 = 1610612755;+ DYNSEG$K_DT_VMS_DTLOOSPLUS_7 = 1610612756;' DYNSEG$K_DT_VMS_LNKFLAGS = 1610 612757;+ DYNSEG$K_DT_VMS_DTLOOSPLUS_9 = 1610612758;. DYNSEG$K_DT_VMS_VIR_MEM_BLK_SIZ = 1610612759;, DYNSEG$K_DT_VMS_DTLOOSPLUS_11 = 1610612760;$ DYNSEG$K_DT_VMS_IDENT = 1610612761;, DYNSEG$K_DT_VMS_DTLOOSPLUS_13 = 1610612762;, DYNSEG$K_DT_VMS_DTLOOSPLUS_14 = 1610612763;, DYNSEG$K_DT_VMS_DTLOOSPLUS_15 = 1610612764;+ DYNSEG$K_DT_VMS_NEEDED_IDENT = 1610612765;, DYNSEG$K_DT_VMS_DTLOOSPLUS_17 = 1610612766;+ DYNSEG$K_DT_VMS_IMG_RELA_CNT = 1610612767;, DYNSEG$K_DT_VMS_DTLOOSPLUS_19 = 161061276 8;+ DYNSEG$K_DT_VMS_SEG_RELA_CNT = 1610612769;, DYNSEG$K_DT_VMS_DTLOOSPLUS_21 = 1610612770;- DYNSEG$K_DT_VMS_FIXUP_RELA_CNT = 1610612771;, DYNSEG$K_DT_VMS_DTLOOSPLUS_23 = 1610612772;+ DYNSEG$K_DT_VMS_FIXUP_NEEDED = 1610612773;, DYNSEG$K_DT_VMS_DTLOOSPLUS_25 = 1610612774;) DYNSEG$K_DT_VMS_SYMVEC_CNT = 1610612775;, DYNSEG$K_DT_VMS_DTLOOSPLUS_27 = 1610612776;, DYNSEG$K_DT_VMS_DTLOOSPLUS_28 = 1610612777;, DYNSEG$K_DT_VMS_DTLOOSPLUS_29 = 1610612778;% DYNSEG$K_DT_VMS_XLATED = 1610612779;, D YNSEG$K_DT_VMS_DTLOOSPLUS_31 = 1610612780;( DYNSEG$K_DT_VMS_STACKSIZE = 1610612781;, DYNSEG$K_DT_VMS_DTLOOSPLUS_33 = 1610612782;' DYNSEG$K_DT_VMS_UNWINDSZ = 1610612783;, DYNSEG$K_DT_VMS_DTLOOSPLUS_35 = 1610612784;, DYNSEG$K_DT_VMS_UNWIND_CODSEG = 1610612785;, DYNSEG$K_DT_VMS_DTLOOSPLUS_37 = 1610612786;- DYNSEG$K_DT_VMS_UNWIND_INFOSEG = 1610612787;, DYNSEG$K_DT_VMS_DTLOOSPLUS_39 = 1610612788;' DYNSEG$K_DT_VMS_LINKTIME = 1610612789;, DYNSEG$K_DT_VMS_DTLOOSPLUS_41 = 1610612790;% DYNSEG$K_DT _VMS_SEG_NO = 1610612791;, DYNSEG$K_DT_VMS_DTLOOSPLUS_43 = 1610612792;, DYNSEG$K_DT_VMS_SYMVEC_OFFSET = 1610612793;, DYNSEG$K_DT_VMS_DTLOOSPLUS_45 = 1610612794;) DYNSEG$K_DT_VMS_SYMVEC_SEG = 1610612795;, DYNSEG$K_DT_VMS_DTLOOSPLUS_47 = 1610612796;, DYNSEG$K_DT_VMS_UNWIND_OFFSET = 1610612797;, DYNSEG$K_DT_VMS_DTLOOSPLUS_49 = 1610612798;) DYNSEG$K_DT_VMS_UNWIND_SEG = 1610612799;, DYNSEG$K_DT_VMS_DTLOOSPLUS_51 = 1610612800;, DYNSEG$K_DT_VMS_STRTAB_OFFSET = 1610612801;, DYNSEG$K_DT_VMS_DTLOO SPLUS_53 = 1610612802;, DYNSEG$K_DT_VMS_SYSVER_OFFSET = 1610612803;, DYNSEG$K_DT_VMS_DTLOOSPLUS_55 = 1610612804;+ DYNSEG$K_DT_VMS_IMG_RELA_OFF = 1610612805;, DYNSEG$K_DT_VMS_DTLOOSPLUS_57 = 1610612806;+ DYNSEG$K_DT_VMS_SEG_RELA_OFF = 1610612807;, DYNSEG$K_DT_VMS_DTLOOSPLUS_59 = 1610612808;- DYNSEG$K_DT_VMS_FIXUP_RELA_OFF = 1610612809;, DYNSEG$K_DT_VMS_DTLOOSPLUS_61 = 1610612810;, DYNSEG$K_DT_VMS_PLTGOT_OFFSET = 1610612811;, DYNSEG$K_DT_VMS_DTLOOSPLUS_63 = 1610612812;) DYNSEG$K_DT_VMS_PLT GOT_SEG = 1610612813;, DYNSEG$K_DT_VMS_DTLOOSPLUS_65 = 1610612814;% DYNSEG$K_DT_VMS_FPMODE = 1610612815;! DYNSEG$K_DT_VMS_SUBTYPE_CLI = 1; TYPE vms_ident$TYPE = RECORD IDENTl_minor_id : UNSIGNED; IDENTw_major_id : $UWORD; IDENTb_match : $UBYTE; IDENTb_unused : $UBYTE; END; CONST TBK$K_RECTYPE_HDR32 = 1; TBK$K_RECTYPE_RTN32 = 2; TBK$K_RECTYPE_FIL = 3; TBK$K_RECTYPE_LN1 = 4; TBK$K_RECTYPE_LN2 = 5; TBK$K_RECTYPE_LN4 = 6; TBK$K_RECTYPE_PC1 = 7;  TBK$K_RECTYPE_PC2 = 8; TBK$K_RECTYPE_PC4 = 9; TBK$K_RECTYPE_VERSION = 10; TBK$K_RECTYPE_HDR64 = 11; TBK$K_RECTYPE_RTN64 = 12; TBK$K_RECTYPE_PC8 = 13; 'TYPE system_version_array$TYPE = RECORDU sysver$v_subsystem_mask : [POS(0)] $BIT32; (* Bit mask of valid array entries *)N sysver$r_system_ver : sysver_majmin$TYPE; (* Version of sys$base_image *)c sysver$r_subsys_ver : ARRAY [1..31] OF subsys_majmin$TYPE; (* Version of various subsystems *) END; CONST SYSVER $K_LENGTH = 33; SYSVER$C_LENGTH = 33; IMF$K_SIZE = 32; IMF$C_SIZE = 32; TYPE image_fixup$TYPE = RECORD& imf$q_fixup_offset : Elf64_Xword; imf$l_type : Elf64_Word;" imf$l_fixup_seg : Elf64_Word;! imf$q_addend : Elf64_Sxword;% imf$l_symvec_index : Elf64_Word;" imf$l_data_type : Elf64_Word; END; CONST IMR$K_SIZE = 40; IMR$C_SIZE = 40; TYPE image_rela$TYPE = RECORD% imr$q_rela_offset : Elf64_Xword; imr$l_type : Elf64_Word;!  imr$l_rela_seg : Elf64_Word;! imr$q_addend : Elf64_Sxword;$ imr$q_sym_offset : Elf64_Xword; imr$l_sym_seg : Elf64_Word; imr$l_fill_1 : Elf64_Word; END; CONST SGR$K_SIZE = 32; SGR$C_SIZE = 32; /TYPE segment_rela$TYPE = RECORD CASE INTEGER OF% 1: (sgr$q_rela_offset : Elf64_Xword; sgr$l_type : Elf64_Word;! sgr$l_rela_seg : Elf64_Word;! sgr$q_addend : Elf64_Sxword;1 sgr$r_symbol_overlay : [BYTE(8)] RECORD END; );/ 2: (sgr$q_gp_of fset : [POS(192)] Elf64_Sxword; ); 3: ();0 4: (sgr$l_symvec_index : [POS(192)] Elf64_Word;0 sgr$l_needed_index : [POS(224)] Elf64_Word; ) END; CONST VMS_FIXUP$K_SIZE = 24; VMS_FIXUP$C_SIZE = 24; TYPE vms_fixup$TYPE = RECORD& vms_fixup$pq_offset : Elf64_Addr;' vms_fixup$q_addend : Elf64_Sxword;& vms_fixup$l_symindx : Elf64_Word;# vms_fixup$l_type : Elf64_Word; END; CONST LNKG$K_SIZE = 8; LNKG$C_SIZE = 8; &TYPE vms_linkages_head er$TYPE = RECORD lnkg$l_type : Elf64_Word;$ lnkg$l_decl_count : Elf64_Word; END; CONST LNKG_ENTRY1$K_SIZE = 12; LNKG_ENTRY1$C_SIZE = 12; 2TYPE vms_lnkg_entry1$TYPE = RECORD CASE INTEGER OF' 1: (lnkg_entry1$l_symidx : Elf64_Word;4 lnkg_entry1$r_lnkg_desc : [BYTE(8)] RECORD END; );9 2: (lnkg_entry1$ps_desc : [POS(32)] vms_lnkg_desc1$TYPE; );: 3: (lnkg_entry1$q_vms_linkage_qw : [POS(32)] Elf64_Xword; ) END; &CONST VMSLNKG$K_VMS_LINKAGE_TYPE1  = 1; VMSLNKG$K_REG_POL_VOL = 0; VMSLNKG$K_REG_POL_SCR = 1; VMSLNKG$K_REG_POL_OUT = 2; VMSLNKG$K_REG_POL_PRE = 3; TYPE func_descr$TYPE = RECORD fd$pq_entryVA : Elf64_Addr; fd$pq_GPtr : Elf64_Addr; END; CONST UNWIND$K_DESC_VERSION = 1; unwind$m_unw_length = -1;" UNWIND$SC_UNW_FLAG_EHANDLER = 32; unwind$m_unw_flag_ehandler = 0;" UNWIND$SC_UNW_FLAG_UHANDLER = 33; unwind$m_unw_flag_uhandler = 0;" unwind$m_unw_flag_rsvd_43_34 = 0;" UNWIND$SC_UNW_FLAG_VMS_OSDA = 44; unwind$m_unw_flag_vms_osda = 0;% UNWIND$SC_UNW_FLAG_VMS_HANDLER = 45;# unwind$m_unw_flag_vms_handler = 0; UNWIND$SC_UNW_FLAG_MASK = 32; unwind$m_unw_flag_mask = 0; unwind$m_osmask_unused = 0; UNWIND$SC_UNW_FLAG_OSMASK = 44; unwind$m_unw_flag_osmask = 0; unwind$m_ivmsmode_unused = 0; UNWIND$SC_UNW_IVMS_MODE = 44; unwind$m_unw_ivms_mode = 0; unwind$m_version_unused = 0; UNWIND$SC_UNW_VERSION = 48; unwind$m_unw_version = 0; UNWIND$K_DESC_SIZE = 8; UNWIND$C_DESC_SIZ E = 8; 1TYPE exceptn_unwind$TYPE = RECORD CASE INTEGER OF1 1: (unwind$r_unwind_desc : [BYTE(8)] RECORD END; ); 2: ();/ 3: (unwind$w_unw_flags : [POS(32)] Elf64_Half;1 unwind$w_unw_version : [POS(48)] Elf64_Half; );/ 4: (unwind$l_unw_length : [POS(0)] Elf64_Word; ); 5: ();+ 6: (unwind$v_unw_length : [POS(0)] $BIT32; ); 7: (); 8: ();, 9: (unwind$v_unused_31_0 : [POS(0)] $BIT32;2 unwind$v_unw_flag_ehandler : [POS(32)] $BOOL;2 unwind$v_ unw_flag_uhandler : [POS(33)] $BOOL;2 unwind$v_unw_flag_vms_osda : [POS(44)] $BOOL;5 unwind$v_unw_flag_vms_handler : [POS(45)] $BOOL; ); 10: ();0 11: (unwind$v_unw_flag_mask : [POS(32)] $BIT16; ); 12: ();1 13: (unwind$v_unw_flag_osmask : [POS(44)] $BIT4; ); 14: ();/ 15: (unwind$v_unw_ivms_mode : [POS(44)] $BIT2; ); 16: ();. 17: (unwind$v_unw_version : [POS(48)] $BIT16; ) END; !CONST UNWIND$K_FLAGS_UNUSED0 = 0; UNWIND$K_FLAGS_UNUSED1  = 1; UNWIND$K_FLAGS_SEMANTICS = 2;# UNWIND$K_FLAGS_SEMANTICS_DATA = 3; UNWIND$K_ABI_UNIX = 0; UNWIND$K_ABI_HPUX = 1; UNWIND$K_ABI_WNT = 2; UNWIND$K_ABI_VMS = 3; UNWIND$K_HDR_PATTERN = 0; UNWIND$M_HDR_MASK = 128; UNWIND$K_R1_PATTERN = 0; UNWIND$M_R1_MASK = 192; UNWIND$K_R2_PATTERN = 64; UNWIND$M_R2_MASK = 248; UNWIND$K_R3_PATTERN = 96; UNWIND$M_R3_MASK = 252; UNWIND$K_P1_PATTERN = 128; UNWIND$M_P1_MASK = 224; UNWIND$K_P2_PATTERN = 160; UNWIND$M_P2_MASK = 240; UNWIND$K_P3_PATTERN = 176; UNWIND$M_P3_MASK = 248; UNWIND$K_P4_PATTERN = 184; UNWIND$M_P4_MASK = 255; UNWIND$K_P5_PATTERN = 185; UNWIND$M_P5_MASK = 255; UNWIND$K_P6_PATTERN = 192; UNWIND$M_P6_MASK = 224; UNWIND$K_P7_PATTERN = 224; UNWIND$M_P7_MASK = 240; UNWIND$K_P8_PATTERN = 240; UNWIND$M_P8_MASK = 255; UNWIND$K_P9_PATTERN = 241; UNWIND$M_P9_MASK = 255; UNWIND$K_P10_PATTERN = 255; UNWIND$M_P10_MASK = 255; UNWIND$K_B1_PATTERN = 128; UNWIND$M_B1_MASK = 192; UNWIND$K_B2_PATTERN = 192; UNWIND$M_B2_MASK = 224; UNWIND$K_B3_PATTERN = 224; UNWIND$M_B3_MASK = 255; UNWIND$K_B4_PATTERN = 240; UNWIND$M_B4_MASK = 247; UNWIND$K_X1_PATTERN = 249; UNWIND$M_X1_MASK = 255; UNWIND$K_X2_PATTERN = 250; UNWIND$M_X2_MASK = 255; UNWIND$K_X3_PATTERN = 251; UNWIND$M_X3_MASK = 255; UNWIND$K_X4_PATTERN = 252; UNWIND$M_X4_MASK = 255; UNWIND$K_P10_ABI_UNIX = 0; UNWIND$K_P10_ABI_HPUX = 1; UNWIND$K_P10_ABI_WNT = 2; UNWIND$K_P10_ABI_VMS = 3;  (*** MODULE $ERADEF ***) N(* *)N(* *)N(* Define erase type codes. The codes LODUMMY and HIDUMMY are *)N(* used as placeholders, to make the definition of the upper and *)N(* lower bound erase type symbols automatic. New erase type codes *)N(* should be added at the end of the list, but before HIDUMMY. *)N(* *)N(* *) LCONST ERA$K_LODUMMY = 0; (* *)G ERA$K_MEMORY = 1; (* Erase main memory *)G ERA$K_DISK = 2; (* Erase disk mass storage *)G ERA$K_TAPE = 3; (* Erase magnetic tape mass storage *)G ERA$K_HIDUMMY = 4; (* *)G ERA$K_MINTYPE = 1; (* Lower bound of erase type codes *)G ERA$K_MAXTYPE = 3; (* Upper bound of erase type codes *) (*** MODULE ESFDEF ***) N(* *)N(* Enumerate Item Codes for the various types of Environmental Sensor FRUs. *)N(* *) CONST ESF$K_TEMP = 4096; ESF$K_POWER = 4097; ESF$K_FAN = 4098; N(* *)N(* The sys$get_env_sensors system service will populate the user's buffer *)N(* with an array of the following structure. The dimension of the array is *)N(* determined by the number of sensors corresponding to the item code by a *)N(* run-time call to sys$get_env_sensors() with a buffer address of zero or *)O(* buffer size of zero. sys$get_env_sensors() will pass the dimensions b ack *)N(* to the caller so he can allocate buffers to contain the arrays for *)N(* subsequent calls to sys$get_env_sensors() with valid buffer pointers and *)N(* sizes. *)N(* See [SYS]SYS_GET_ENV_SENSORS.C *)N(* *) CONST esf$m_valid_status = 1; esf$m_valid_value = 2; esf$m_feat_reserved = 252; * TYPE esfitem$TYPE = RECORD CASE INTEGER OFG 1: (esf$b_type : $UBYTE; (* CFG_NODE config type field *)G esf$b_subtype : $UBYTE; (* CFG_NODE config subtype field *)G esf$B_VALUE : $UBYTE; (* Value byte *)G esf$b_status : $UBYTE; (* Status byte *)3 esf$r_features_overlay : [BYTE(1)] RECORD END;G (* *)G (* Pa d out to next quad word *)G (* *)/ esf$b_reserved_1 : ARRAY [1..3] OF $UBYTE;G (* *)f (* fru_node_id contains FRU Descriptor Node ID information to help *)j (* identify the location of the associated sensor. See "Alpha Systems *)n (* Configuration Tree Imple mentation Specification" Table 1-79 on Page 50. *)k (* The byte fields in this 8-byte structure are declared in CFGDEF.H as *)b (* struct cfg$_cfg_node_id_fru_desc in the CFG_NODE structure. *)G (* *) esf$q_fru_node_id : $UQUAD;G (* *)n (* fru_flags contains the Nod e Flags for the FRU. See "Alpha Configuration *)X (* Tree Specification" Release T6.0-0023 page 7-45. *)N (* See also cfg$iq_node_flags in CFGDEF.H. *)G (* *) esf$q_fru_flags : $UQUAD;G (* *)n (* console_id is a quadword that contains the offset and bitfield element s *)n (* to be used to access the low-level hardware status or value information *)G (* *). esf$r_cid_overlay : [BYTE(8)] RECORD END; );H 2: (esf$b_features : [POS(32)] $UBYTE; (* Features of the Sensor FRU *)G esf$q_console_id : [POS(192)] $UQUAD; (* Whole Console ID *) ); 3: ();* 4: (esf$v_valid_status : [POS(32)] $BOOL;) esf$v_valid_value : [POS(33)] $BOOL;+ esf$v_feat_reserved : [POS(34)] $BIT6;H esf$l_offset : [POS(192)] UNSIGNED; (* Offset part of Console ID *)L esf$L_BITFIELD : [POS(224)] UNSIGNED; (* Bitfield part of Console ID *) ) END; (*** MODULE $EVENTDEF ***) N(* EVSB - Event Status Block *)R(* The Event Status Block receives $EVENT service VMS and NT completion status *) TYPE EVSB$TYPE = RECORDG EVT$L_VMS_STATUS : UNSIGNED; (* VMS completion status *)G EVT$L_NT_STATUS : UNSIGNED; (* NT completion status *) END; LCONST EVSB$K_LENGTH = 8; (* Length of EVSB *)G EVSB$C_LENGTH = 8; (* Length of EVSB *) N(* *)N(* +-------------------------------------------------------------------+ *)N(* | function codes *)N(* +------- ------------------------------------------------------------+ *)N(* *) LCONST EVT$FC_REGISTER_EVENT_SOURCE = 1; (* register event source *)G EVT$FC_REPORT_EVENT = 2; (* report event *)G EVT$FC_DEREGISTER_EVENT_SOURCE = 3; (* deregister event source *)J EVT$FC_FUNCTION_CODE_TOO_BIG = 4; (* Always keep as last function code *) N(*  *)N(* +-------------------------------------------------------------------+ *)N(* | item codes *)N(* +-------------------------------------------------------------------+ *)N(* *) NCONST EVT$_SERVER_NAME = 1; (* PW server name - currently ignored *)G EVT$_SOURCE = 2; (* Event source id * )I EVT$_HANDLE = 3; (* handle of registered event channel *)G EVT$_EVENT_TYPE = 4; (* info, warning or error *)G EVT$_EVENT_CATEGORY = 5; (* Event category *)G EVT$_EVENT_ID = 6; (* Event ID *)G EVT$_USER_SID = 7; (* NT security ID *)H EVT$_NUMSTRINGS = 8; (* # counted strings in STRING_ARRAY *)G EVT$_DATASIZE = 9; (* # bytes in RAW_DATA *)G EVT$_STRING_ARRAY = 10; (* event log string data *)G EVT$_RAW_DATA = 11; (* event log non-string data *)G EVT$_ITEM_CODE_TOO_BIG = 12; (* Always keep as last item code *) N(* *)N(* max length of SERVER_NAME string is 8 wchars, 32 bytes (4 * 8) *)N(* *) $CONST EVT$_MAX_SER VER_NAME_LEN = 32; N(* *)O(* Values for EVT$_EVENT_TYPE. NOTE! These values must be kept in sync with *)N(* the corresponding values in Microsoft's winnt.h *)N(* *) LCONST EVT$_SUCCESS = 0; (* MS EVENTLOG_SUCCESS *)G EVT$_ERROR = 1; (* MS EVENTLOG_ERROR_TYPE *)G EVT $_WARNING = 2; (* MS EVENTLOG_WARNING_TYPE *)G EVT$_INFO = 4; (* MS EVENTLOG_INFORMATION_TYPE *)G EVT$_AUDIT_SUCCESS = 8; (* MS EVENTLOG_AUDIT_SUCCESS *)G EVT$_AUDIT_FAILURE = 16; (* MS EVENTLOG_AUDIT_FAILURE *) (*** MODULE $SDVDEF ***) N(*+ *)N(* *)N(* Switch, enable/di sable device path information *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added at the END of the list so that *)N(* users will not have to rebuild. *)N(* *)N(*- *) LCONST SDV$_MP_SWITCH_PATH = 1; (* Switch device path *)G SDV$_MP_ENABLE_PATH = 2; (* Enable device path *)G SDV$_MP_DISABLE_PATH = 3; (* Disable device path *) N(* *)L(**** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** *)N (* *) N(* END. *) N(* MODULE STARDEFFL ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RE CORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNS IGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $D EFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63;  *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE]  0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(*  $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FDLDEF ***)  N(*+ *)N(* Define the version level of the FDL file structure *)N(*- *) CONST FDL$C_VERSION = 2; FDL$K_VERSION = 2; N(*+ *)N(* FDL CALL INTERFACE CONTROL FLAGS *)N(*-  *) CONST FDL$M_SIGNAL = 1; FDL$M_FDL_STRING = 2; FDL$M_DEFAULT_STRING = 4; FDL$M_FULL_OUTPUT = 8; FDL$M_$CALLBACK = 16; FDL$M_LONG_NAMES = 32; &TYPE FDL$TYPE = RECORD CASE INTEGER OF. 1: (FDL$R_FDLDEF_BITS : [BYTE(1)] RECORD END; );G 2: (FDL$V_SIGNAL : [POS(0)] $BOOL; (* SIGNAL ERRORS, DON'T RETURN *)L FDL$V_FDL_STRING : [POS(1)] $BOOL; (* MAIN FDL SPEC IS A CHAR STRING *)S FDL$V_DEFAULT_STRING : [POS(2)] $BOOL; (* DEFAULT FDL SPEC IS A CHAR STRING *)L FDL$V_FULL_OUTPUT : [POS(3)] $BOOL; (* PRODUCE A 'COMPLETE' FDL SPEC *)L FDL$V_$CALLBACK : [POS(4)] $BOOL; (* USED BY EDF ON INPUT (DEC ONLY) *)Q FDL$V_LONG_NAMES : [POS(5)] $BOOL; (* Allocate and use NAML for FDL$PARSE *) ) END; (*** MODULE $FDSCDEF ***) N(* *)N(* Function descriptor offset definitions for the IA64 VMS calling *)N(* standard. This definiti on includes the offsets and fields for *)N(* local, official, translated/native, and bound function descriptors. *)N(* *)<(* Function descriptor kind quadwords in FD *)N(* *)G(* Local FD w/o translated image support 2 *)H(* Local FD with translated image support 4 *)J(* Official FD w/o translated image support 2 or 3 (see note) *)K(* Official FD with translated image support 3 *).(* Bound FD 6 *)N(* *)N(* Note: the official FD w/o translated image support could be 2 *)N(* quadwords if the linker knows it's not a universal symbol and *)N(* that no module exports its address. Until there's a way for *)N(* compilers to notify the linker of this, all such FDs are 3 *)N(* quadwords in length. *)N(* *) NCONST FDSC$K_BOUND_SIZE = 48; (* Size of bound procedure descriptor *) 'TYPE FDSC$TYPE = RECORD CASE INTEGER OF1 1: (FDSC$R_ENTRY_OVERLAY : [BYTE(8)] RECORD END;. FDSC$R_GP_OVERLAY : [BYTE(8)] RECORD END;5 FDSC$R_SIGNATURE_ OVERLAY : [BYTE(8)] RECORD END;8 FDSC$R_TARGET_ENTRY_OVERLAY : [BYTE(8)] RECORD END;5 FDSC$R_TARGET_GP_OVERLAY : [BYTE(8)] RECORD END;8 FDSC$R_TARGET_ENVIR_OVERLAY : [BYTE(8)] RECORD END; );G 2: (FDSC$Q_ENTRY : [POS(0)] $QUAD; (* Simple FD: Entry code address *)G FDSC$Q_GP : [POS(64)] $QUAD; (* Simple FD: Global pointer *)L FDSC$Q_SIGNATURE : [POS(128)] $UQUAD; (* Signature information field *)| FDSC$Q_TARGET_ENTRY : [POS(192)] $QUAD; (* PD address of tr anslated routine or entry code address of bound procedure *)R FDSC$Q_TARGET_GP : [POS(256)] $QUAD; (* Global pointer for bound procedure *)u FDSC$Q_TARGET_ENVIR : [POS(320)] $QUAD; (* Environment value for bound procedure (uplevel-addressing pointer) *) );& 3: (FDSC$L_ENTRY : [POS(0)] UNSIGNED;$ FDSC$L_GP : [POS(64)] UNSIGNED;/ FDSC$L_TARGET_ENTRY : [POS(192)] UNSIGNED;, FDSC$L_TARGET_GP : [POS(256)] UNSIGNED;/ FDSC$L_TARGET_ENVIR : [POS(320)] UNSIGNED; ) ;] 4: (FDSC$Q_OTS_ENTRY : [POS(0)] $QUAD; (* Bound FD: Entry code address of OTS$JUMP_TO_BPV *)x FDSC$Q_OTS_PSEUDO_GP : [POS(64)] $QUAD; (* Bound FD: Global pointer for OTS$JUMP_TO_BPV (ie. address of this FD) *). FDSC$L_SIGNATURE_L : [POS(128)] UNSIGNED;. FDSC$L_SIGNATURE_H : [POS(160)] UNSIGNED; );* 5: (FDSC$L_OTS_ENTRY : [POS(0)] UNSIGNED;/ FDSC$L_OTS_PSEUDO_GP : [POS(64)] UNSIGNED; ) END; (*** MODULE $FIBDEF ***) N(*----  *)N(* *)N(* LAYOUT OF THE FILE IDENTIFICATION BLOCK (FIB) *)N(* *)N(***** *)N(* *)Y(* NOTE: If the size of the FIB is changed the following must be changed *)N(* to reflect the change: *)N(* *)N(* In Module: [RMS.SRC]RMSFWADEF.SDL *)N(* *)N(* Field: FWA$T_FIBBUF *)N(*  *)N(* Constant: FWA$C_FIBLEN *)N(* *)N(* Both the field and constant must be GEQ to the size of *)N(* the FIB, i.e. FIB$C_LENGTH. FIB length is currently 96. *)N(* *)N(***** *)N(*  *) CONST FIB$M_NOWRITE = 1; FIB$M_DLOCK = 2; FIB$M_BLK_LOCK = 4; FIB$M_FASTRDSQNOS = 8; FIB$M_SPOOL = 16; FIB$M_WRITECK = 32; FIB$M_SEQONLY = 64; FIB$M_SEQNO = 128; FIB$M_WRITE = 256; FIB$M_READCK = 512; FIB$M_NOREAD = 1024; FIB$M_NOTRUNC = 2048; FIB$M_CONTROL = 4096; FIB$M_NO_READ_DATA = 8192; FIB$M_SSIO = 16384; FIB$M_EXECUTE = 65536; FIB$M_PRSRV_ATR = 131072; FIB$M_RMSLOCK = 262144; FIB$M_WRITETH RU = 524288; FIB$M_NOLOCK = 1048576; FIB$M_NORECORD = 2097152; FIB$M_NOVERIFY = 4194304; FIB$M_CHANGE_VOL = 8388608; FIB$M_REWIND = 8; FIB$M_CURPOS = 16; FIB$M_UPDATE = 64;G FIB$K_ACCDATA = 10; (* ABOVE DATA NECESSARY FOR ACCESS *)G FIB$C_ACCDATA = 10; (* ABOVE DATA NECESSARY FOR ACCESS *)N FIB$K_DIRDATA = 22; (* ABOVE DATA NECESSARY FOR DIRECTORY OPS *)N FIB$C_DIRDATA = 22; (* ABOVE DATA NECESSARY FOR DIRECTORY OPS *) FIB$M_N AMES_8BIT = 1; FIB$M_NAMES_16BIT = 2; FIB$M_PERCENT_LITERAL = 4; FIB$M_ALLVER = 8; FIB$M_ALLTYP = 16; FIB$M_ALLNAM = 32; FIB$M_CASE_SENSITIVE = 64; FIB$M_SEARCH = 128; FIB$M_WILD = 256; FIB$M_NEWVER = 512; FIB$M_SUPERSEDE = 1024; FIB$M_FINDFID = 2048; FIB$M_FINDDIR = 4096; FIB$M_CASE_VARIANT = 8192; FIB$M_LOWVER = 16384; FIB$M_HIGHVER = 32768; FIB$M_ALCON = 1; FIB$M_ALCONB = 2; FIB$M_FILCON = 4; FIB$M_ALDEF = 8; FIB$M_ALLOCATR = 16; FIB$M_EXTEND = 12 8; FIB$M_TRUNC = 256; FIB$M_NOHDREXT = 512; FIB$M_MARKBAD = 1024; FIB$M_NOPLACE = 16384; FIB$M_NOCHARGE = 32768;P FIB$K_EXTDATA = 32; (* ABOVE NECESSARY FOR BASIC FILE EXTENSION *)P FIB$C_EXTDATA = 32; (* ABOVE NECESSARY FOR BASIC FILE EXTENSION *) FIB$M_EXACT = 1; FIB$M_ONCYL = 2;G FIB$C_CYL = 1; (* CYLINDER ADDRESS SPECIFIED *)G FIB$C_LBN = 2; (* LBN SPECIFIED *)G FIB$C_VBN = 3;  (* PROXIMATE VBN SPECIFIED *)G FIB$C_RFI = 4; (* RELATED FILE ID SPECIFIED *)J FIB$K_ALCDATA = 44; (* ABOVE DATA NECESSARY FOR PLACEMENT *)J FIB$C_ALCDATA = 44; (* ABOVE DATA NECESSARY FOR PLACEMENT *) FIB$M_ALT_REQ = 1; FIB$M_ALT_GRANTED = 2; FIB$M_DIRACL = 4; FIB$M_PROPAGATE = 8; FIB$M_NOCOPYACL = 16; FIB$M_NOCOPYOWNER = 32; FIB$M_NOCOPYPROT = 64; FIB$M_EXCLPREVIOUS = 128; FIB$M_ALIAS_ENTRY = 256; FIB$M_WIL DFID_FLAG = 512; FIB$M_DID_FILESPEC = 1024; FIB$M_IS_SPECIAL = 2048; FIB$M_CHECK_SPECIAL = 4096;G FIB$K_MOVEFILE = 72; (* end of FIB required by MOVEFILE *)G FIB$C_MOVEFILE = 72; (* end of FIB required by MOVEFILE *) FIB$M_FILE_ATTRIBUTES = 15; FIB$M_FILE_CONTENTS = 240;G FIB$C_DEFAULT = 0; (*Use default caching policy *)G FIB$C_WRITETHROUGH = 1; (*Use writethrough caching *)G FIB$C_WRITEBEHIND = 2; (*Use write behind caching *)G FIB$C_NOCACHING = 3; (*Do not cache file *) FIB$M_FLUSH_ON_CLOSE = 3840;L FIB$C_FLUSH = 1; (*Flush file from cache when file closed *)K FIB$C_NOFLUSH = 2; (*Retain file in cache when file closed *)# FIB$M_CACHING_OPTIONS_MBZ = -4096;H FIB$C_ODS2 = 0; (* Name is ODS-2 legal ASCII encoded *)G FIB$C_ISL1 = 1; (* Name is 8-bit (ISO Latin 1) *)G FIB$C_ISO_LATIN = 1;  (* Synonym for ISL1 *) N(* NOTE - Name format type 2 reserved (was UTF8) *) LCONST FIB$C_UCS2 = 3; (* Name is UCS-2 encoded (both) *)N FIB$C_NAMETYPE_LEN = 96; (* Length of FIB including NAMETYPE fields *) FIB$K_LENGTH = 96; FIB$C_LENGTH = 96; FIB$K_F64LEN = 96; FIB$C_F64LEN = 96; &TYPE FIB$TYPE = RECORD CASE INTEGER OF0 1: (FIB$R_ACCTL_OVERLAY : [BYTE(4)] RECORD END;. FIB$R_FID_OVERLAY : [BYTE(6 )] RECORD END;. FIB$R_DID_OVERLAY : [BYTE(6)] RECORD END;G FIB$L_WCC : UNSIGNED; (* WILD CARD CONTEXT *)0 FIB$R_NMCTL_OVERLAY : [BYTE(2)] RECORD END;0 FIB$R_EXCTL_OVERLAY : [BYTE(2)] RECORD END;G FIB$L_EXSZ : UNSIGNED; (* EXTEND SIZE *)G FIB$L_EXVBN : UNSIGNED; (* EXTENSION VBN *)1 FIB$R_ALOPTS_OVERLAY : [BYTE(1)] RECORD END;G FIB$B_ALALIGN : $UBYTE; (* ALLOCATION ALIGNMENT *)1 FIB$R_ALLOC_OVERLAY : [BYTE(10)] RECORD END;G FIB$W_VERLIMIT : $UWORD; (* DIRECTORY ENTRY VERSION LIMIT *)G FIB$B_AGENT_MODE : $UBYTE; (* AGENTS ACCESS MODE *)G FIB$B_RU_FACILITY : $UBYTE; (* RECOVERABLE-FACILITY CODE *)G FIB$L_ACLCTX : UNSIGNED; (* ACL CONTEXT FOR READ *)H FIB$L_ACL_STATUS : UNSIGNED; (* RETURN STATUS FROM ACL OPERATION *)1 FIB$R_STATUS_OVERLAY : [BYTE(4)] RECORD END;G FIB$L_ALT_ACCESS : UN SIGNED; (* ALTERNATE ACCESS MASK *)- FIB$R_FUNCDEPEND : [BYTE(8)] RECORD END;Q FIB$W_FILE_HDRSEQ_INCR : $UWORD; (*header seq no increment for indiv file *)T FIB$W_DIR_HDRSEQ_INCR : $UWORD; (*header seq no increment for directory file *)P FIB$W_FILE_DATASEQ_INCR : $UWORD; (*data seq no increment for indiv file *)S FIB$W_DIR_DATASEQ_INCR : $UWORD; (*data seq no increment for driectory file *)m (* Define fields and constant values fo r FIB$L_CACHING_OPTIONS longword. *)S (* These must match [STARLET]ATRDEF.SDL exactly *): FIB$R_CACHING_OPTIONS_OVERLAY : [BYTE(4)] RECORD END;[ FIB$R_SD_FID_OVERLAY : [BYTE(6)] RECORD END; (* FID field for Secondary File Delete *)G FIB$$_RESERVED_1 : $WORD; (* Pad up to a longword boundary *)G FIB$B_NAME_FORMAT_IN : $UBYTE; (* Inbound file name encoding *)J FIB$B_NAME_FORMAT_OUT : $UBYTE; (* Returned file name encoding *)G  FIB$B_ASCNAME_FORMAT : $UBYTE; (* ASCNAME attribute encoding *)N FIB$B_RESERVED_2 : $UBYTE; (* For alignment. NOTE - Must be zero. *) );G 2: (FIB$L_ACCTL : [POS(0)] UNSIGNED; (* ACCESS CONTROL BITS *)G FIB$W_FID : [POS(32)] ARRAY [1..3] OF $UWORD; (* FILE ID *)G FIB$W_DID : [POS(80)] ARRAY [1..3] OF $UWORD; (* DIRECTORY ID *)G FIB$W_NMCTL : [POS(160)] $UWORD; (* NAME CONTROL BITS *)G FIB$W_EXCTL : [POS(176)] $UWORD; (* EXTEND CONTROL *)G FIB$B_ALOPTS : [POS(256)] $UBYTE; (* ALLOCATION OPTIONS *)P FIB$W_ALLOC : [POS(272)] ARRAY [1..5] OF $UWORD; (* ALLOCATION LOCATION *)G FIB$L_STATUS : [POS(448)] UNSIGNED; (* GENERAL STATUS LONGWORD *)U FIB$L_CACHING_OPTIONS : [POS(640)] UNSIGNED; (*F64XQP cache control bitvector *)G FIB$W_SD_FID : [POS(672)] ARRAY [1..3] OF $UWORD; (* FILE ID *) );H 3: (FIB$L_MOV_SVBN : [POS(512)] UNSIGNED; (* starting VBN (MOVEFILE) *)K  FIB$L_MOV_VBNCNT : [POS(544)] UNSIGNED; (* count of VBNs (MOVEFILE) *) );G 4: (FIB$V_NOWRITE : [POS(0)] $BOOL; (* NO OTHER WRITERS *)G FIB$V_DLOCK : [POS(1)] $BOOL; (* ENABLE DEACCESS LOCK *)H FIB$V_BLK_LOCK : [POS(2)] $BOOL; (* ENABLE RMS-11 BLOCK LOCKING *)K FIB$V_FASTRDSQNOS : [POS(3)] $BOOL; (* READ HDRSEQ AND DATASEQ VALS *)G FIB$V_SPOOL : [POS(4)] $BOOL; (* SPOOL FILE ON CLOSE *)G FIB$V_WRITECK : [POS(5)] $BOOL; (* ENABLE W RITE CHECK *)G FIB$V_SEQONLY : [POS(6)] $BOOL; (* SEQUENTIAL ONLY ACCESS *)G FIB$V_SEQNO : [POS(7)] $BOOL; (* STORE SEQNOS FOR THIS FILE *)G FIB$V_WRITE : [POS(8)] $BOOL; (* WRITE ACCESS *)G FIB$V_READCK : [POS(9)] $BOOL; (* ENABLE READ CHECK *)G FIB$V_NOREAD : [POS(10)] $BOOL; (* NO OTHER READERS *)G FIB$V_NOTRUNC : [POS(11)] $BOOL; (* FILE MAY NOT BE TRUNCATED *)G FIB$V_CONTROL : [POS(12)] $BOOL ; (* CONTROL ACCESS TO FILE *)L FIB$V_NO_READ_DATA : [POS(13)] $BOOL; (* NO READ ACCESS TO FILE DATA *)G FIB$V_SSIO : [POS(14)] $BOOL; (* File is opened for SSIO access *)G (* THE HIGH 8 BITS CANNOT BE COPIED *)N (* INTO THE ACCESS MODE WORD IN THE WINDOW *)X FIB$V_EXECUTE : [POS(16)] $BOOL; (* ACCESS FOR EXECUTE (USE EXECUTE PROTECTION) *)S FIB$V_PRSRV_ATR : [POS(17)] $BOOL; (* PRESERVE ORIGINAL ATTRIBUTES  OF FILE *)I FIB$V_RMSLOCK : [POS(18)] $BOOL; (* OPEN WITH RMS RECORD LOCKING *)U FIB$V_WRITETHRU : [POS(19)] $BOOL; (* FORCE CACHE WRITE-THROUGH ON OPERATION *)G FIB$V_NOLOCK : [POS(20)] $BOOL; (* OVERRIDE ACCESS INTERLOCKS *)G FIB$V_NORECORD : [POS(21)] $BOOL; (* DO NOT RECORD FILE ACCESS *)L FIB$V_NOVERIFY : [POS(22)] $BOOL; (* Do not perform compare on move. *)\ FIB$V_CHANGE_VOL : [POS(23)] $BOOL; (* Allow Movefile move between volumes in a set. *)G FIB $W_FID_NUM : [POS(32)] $UWORD; (* FILE NUMBER *)G FIB$W_FID_SEQ : [POS(48)] $UWORD; (* FILE SEQUENCE NUMBER *)G FIB$W_DID_NUM : [POS(80)] $UWORD; (* FILE NUMBER *)G FIB$W_DID_SEQ : [POS(96)] $UWORD; (* FILE SEQUENCE NUMBER *)L FIB$V_NAMES_8BIT : [POS(160)] $BOOL; (* RETURN 8BIT FILENAMES (HFS) *)M FIB$V_NAMES_16BIT : [POS(161)] $BOOL; (* RETURN 16BIT FILENAMES (HFS) *)Q FIB$V_PERCENT_LITERAL : [POS(162)] $BOOL; (* PERCENT IS LITERAL (HFS) *)G FIB$V_ALLVER : [POS(163)] $BOOL; (* MATCH ALL VERSIONS *)G FIB$V_ALLTYP : [POS(164)] $BOOL; (* MATCH ALL TYPES *)G FIB$V_ALLNAM : [POS(165)] $BOOL; (* MATCH ALL NAMES *)I FIB$V_CASE_SENSITIVE : [POS(166)] $BOOL; (* case sensitive lookup *)T FIB$V_SEARCH : [POS(167)] $BOOL; (* Match names in purely case blind manner. *)S (* (intended for search operations; normal file *)U  (* access should give preference to exact match) *)G FIB$V_WILD : [POS(168)] $BOOL; (* WILD CARDS IN FILE NAME *)G FIB$V_NEWVER : [POS(169)] $BOOL; (* MAXIMIZE VERSION NUMBER *)G FIB$V_SUPERSEDE : [POS(170)] $BOOL; (* SUPERSEDE EXISTING FILE *)G FIB$V_FINDFID : [POS(171)] $BOOL; (* SEARCH FOR FILE ID *)Y FIB$V_FINDDIR : [POS(172)] $BOOL; (* SEARCH FOR DIR EXTENTION (Internal use only) *)O (* the fo llowing bits are output, not input *)X FIB$V_CASE_VARIANT : [POS(173)] $BOOL; (* A case variant of this filename exists *)I FIB$V_LOWVER : [POS(174)] $BOOL; (* LOWER VERSION OF FILE EXISTS *)K FIB$V_HIGHVER : [POS(175)] $BOOL; (* HIGHER VERSION OF FILE EXISTS *)G FIB$V_ALCON : [POS(176)] $BOOL; (* ALLOCATE CONTIGUOUS *)G FIB$V_ALCONB : [POS(177)] $BOOL; (* CONTIGUOUS BEST EFFORT *)G FIB$V_FILCON : [POS(178)] $BOOL; (* MARK FILE CONTIGUOUS *)G FIB$V_ALDEF : [POS(179)] $BOOL; (* ALLOCATE DEFAULT AMOUNT *)W FIB$V_ALLOCATR : [POS(180)] $BOOL; (* PLACEMENT DATA PRESENT IN ATTRIBUTE LIST *)G FIB$V_EXTEND : [POS(183)] $BOOL; (* ENABLE EXTENSION *)G FIB$V_TRUNC : [POS(184)] $BOOL; (* ENABLE TRUNCATION *)H FIB$V_NOHDREXT : [POS(185)] $BOOL; (* INHIBIT EXTENSION HEADERS *)G FIB$V_MARKBAD : [POS(186)] $BOOL; (* MARK BLOCKS BAD *)U FIB$V_NOPLACE : [POS(190)] $BOOL; (* DON' T ADD PLACEMENT POINTERS IN MOVEFILE *)G FIB$V_NOCHARGE : [POS(191)] $BOOL; (* DON'T CHARGE DISKQUOTA *)G FIB$V_EXACT : [POS(256)] $BOOL; (* EXACT PLACEMENT REQUIRED *)J FIB$V_ONCYL : [POS(257)] $BOOL; (* PUT ALLOCATION ON ONE CYLINDER *)R FIB$L_LOC_ADDR : [POS(320)] UNSIGNED; (* LOCATION ADDRESS (VBN, LBN, CYL) *)G FIB$V_ALT_REQ : [POS(448)] $BOOL; (* ALTERNATE ACCESS REQUIRED *)I FIB$V_ALT_GRANTED : [POS(449)] $BOOL; (* ALTERNATE ACCESS GRANTED *)H F IB$V_DIRACL : [POS(450)] $BOOL; (* DO DIRECTORY ACL PROPAGATION *)M FIB$V_PROPAGATE : [POS(451)] $BOOL; (* DO PROPAGATION ON ENTER/MODIFY *)G FIB$V_NOCOPYACL : [POS(452)] $BOOL; (* DON'T PROPAGATE THE ACL *)N FIB$V_NOCOPYOWNER : [POS(453)] $BOOL; (* DON'T PROPAGATE THE OWNER UIC *)S FIB$V_NOCOPYPROT : [POS(454)] $BOOL; (* DON'T PROPAGATE THE SOGW PROTECTION *)_ FIB$V_EXCLPREVIOUS : [POS(455)] $BOOL; (* EXCLUDE THE PREVIOUS VERSION FROM PROPAGATION *)[ FIB$V_ALIAS_ENT RY : [POS(456)] $BOOL; (* FILE ACCESSED VIA AN ALIAS DIRECTORY ENTRY *)G FIB$V_WILDFID_FLAG : [POS(457)] $BOOL; (* WILDCARD FID FLAG *)J FIB$V_DID_FILESPEC : [POS(458)] $BOOL; (* FILESPEC HAD BEEN DID'ED *)Q FIB$V_IS_SPECIAL : [POS(459)] $BOOL; (* Special file detected and handled *)J FIB$V_CHECK_SPECIAL : [POS(460)] $BOOL; (* Check for special files *)Q FIB$V_FILE_ATTRIBUTES : [POS(640)] $BIT4; (*File attributes caching field *)M FIB$V_FILE_CONTENTS : [POS(644)] $BIT4; (*File contents caching field *)L FIB$V_FLUSH_ON_CLOSE : [POS(648)] $BIT4; (*Flush file on close field *)G FIB$V_CACHING_OPTIONS_MBZ : [POS(652)] $BIT20; (*Must be zero *)G FIB$W_SD_FID_NUM : [POS(672)] $UWORD; (* FILE NUMBER *)G FIB$W_SD_FID_SEQ : [POS(688)] $UWORD; (* FILE SEQUENCE NUMBER *) );G 5: (FIB$W_FID_RVN : [POS(64)] $UWORD; (* RELATIVE VOLUME NUMBER *)G FIB$W_DID_RVN : [POS(112)] $UWORD; (* RELATIVE VOLUME NUMBER *)N F IB$W_LOC_FID : [POS(272)] ARRAY [1..3] OF $UWORD; (* RELATED FILE ID *)H FIB$W_SD_FID_RVN : [POS(704)] $UWORD; (* RELATIVE VOLUME NUMBER *) );G 6: (FIB$V_REWIND : [POS(3)] $BOOL; (* REWIND TAPE *)J FIB$V_CURPOS : [POS(4)] $BOOL; (* CREATE AT CURRENT TAPE POSITION *)R FIB$V_UPDATE : [POS(6)] $BOOL; (* UPDATE MODE (POSITION TO START OF FILE) *) );G 7: (FIB$B_FID_RVN : [POS(64)] $UBYTE; (* SHORT FORM RVN *)G FIB$B_FID_NMX : [POS(72)] $UBYTE; (* EXTENDED FILE NUMBER *)G FIB$B_DID_RVN : [POS(112)] $UBYTE; (* SHORT FORM RVN *)G FIB$B_DID_NMX : [POS(120)] $UBYTE; (* EXTENDED FILE NUMBER *)G FIB$W_LOC_NUM : [POS(272)] $UWORD; (* RELATED FILE NUMBER *)G FIB$W_LOC_SEQ : [POS(288)] $UWORD; (* FILE SEQUENCE NUMBER *)G FIB$B_SD_FID_RVN : [POS(704)] $UBYTE; (* SHORT FORM RVN *)G FIB$B_SD_FID_NMX : [POS(712)] $UBYTE; (* EXTENDED FILE NUMBER *) );G 8: (FIB  $B_WSIZE : [POS(24)] $BYTE; (* WINDOW SIZE *)G FIB$W_LOC_RVN : [POS(304)] $UWORD; (* RELATED RVN *) );K 9: (FIB$W_FID_DIRNUM : [POS(32)] $UWORD; (* Directory number of File-Id *)J FIB$L_FID_RECNUM : [POS(48)] UNSIGNED; (* Record number of File-ID *)K FIB$W_DID_DIRNUM : [POS(80)] $UWORD; (* Directory number of File-Id *)J FIB$L_DID_RECNUM : [POS(96)] UNSIGNED; (* Record number of File-ID *) );G 10: (FIB$B_LOC_RVN : [POS(304)] $UBYT  E; (* SHORT FORM RVN *)G FIB$B_LOC_NMX : [POS(312)] $UBYTE; (* EXTENDED FILE NUMBER *) ) END; LCONST FIB$C_REWINDVOL = 1; (* REWIND VOLUME SET *)G FIB$C_POSEND = 2; (* POSITION TO END OF VOLUME SET *)G FIB$C_NEXTVOL = 3; (* FORCE NEXT VOLUME *)G FIB$C_SPACE = 4; (* SPACE MAGNETIC TAPE *)G FIB$C_ILLEGAL = 5; (* *)G F  IB$C_REWINDFIL = 6; (* REWIND FILE *)G FIB$C_LOCK_VOL = 7; (* LOCK VOLUME AGAINST ALLOCATION *)G FIB$C_UNLK_VOL = 8; (* UNLOCK VOLUME *) N(* QUOTA FILE OPERATIONS *) LCONST FIB$C_ENA_QUOTA = 9; (* ENABLE QUOTA FILE *)G FIB$C_DSA_QUOTA = 10; (* DISABLE QUOTA FILE *)G FIB$C_ADD_QUOTA = 11; (* ADD QUOTA  FILE ENTRY *)G FIB$C_EXA_QUOTA = 12; (* EXAMINE QUOTA FILE ENTRY *)G FIB$C_MOD_QUOTA = 13; (* MODIFY QUOTA FILE ENTRY *)G FIB$C_REM_QUOTA = 14; (* REMOVE QUOTA FILE ENTRY *)H FIB$C_USEREOT = 15; (* ENABLE USER END OF TAPE HANDLING *)G FIB$C_REMAP = 16; (* REMAP FILE WINDOW *)_ FIB$C_CLSEREXCP = 17; (* ALLOW THE USER TO CLEAR A SERIOUS EXCP FROM A TAPE DRIVE *)G FIB$C_FLU SH_CACHE = 18; (* FLUSH SELECTED CACHE *)H FIB$C_FORCE_MV = 19; (* FORCE MOUNT VERIFICATION TO OCCUR *)W FIB$C_VALIDATE_VOLUME = 20; (* VALIDATE VOLUME SET FOLLOWING SNAPSHOT FILE BOOT *)Q FIB$C_VALIDATE_FILE = 21; (* VALIDATE FILE FOLLOWING SNAPSHOT FILE BOOT *)U FIB$C_UPDATE_VOL_PROFILE = 22; (* UPDATE A VOLUME'S (PERMANENT) SECURITY PROFILE *)S FIB$C_UPDATE_FIL_PROFILE = 23; (* UPDATE A FILE'S (PERMANENT) SECURITY PROFILE *)N FIB$C_CHECK_PROTECT ION = 24; (* PERFORM FILE OR VOLUME PROTECTION CHECK *)G FIB$C_ADD_THREAD = 25; (* ADD A NEW THREAD *)G FIB$C_REM_THREAD = 26; (* REMOVE A THREAD *)G FIB$C_EXA_THREAD = 27; (* INQUIRE ABOUT THREADS *)G FIB$C_CHECK_PATH = 28; (* FIND DIRSEQ VAL AND ARM BLKAST *)G FIB$C_ENA_DW = 29; (* ENABLE DEFERRED WRITE *)G FIB$C_DSA_DW = 30; (* DISABLE DEFERRED WRITE *)G F IB$C_WRITEBACK_CACHE = 31; (* F64 caching *)G FIB$C_WRITETHRU_CACHE = 32; (* F64 caching *)G FIB$C_FILE_SYNCH = 33; (* VDC/Spiralog flush file to disk *)G FIB$C_CACHING_OPTIONS = 34; (* VDC/Spiralog select caching mode *)P FIB$C_WRITE_BARRIER = 35; (* VDC/Spiralog barrier writes to this point *)G FIB$C_VOL_FLUSH = 36; (* VDC volume flush local node only *)L FIB$C_VOL_FLUSH_ALL = 37; (* VDC flush all volume s local node only *)Y FIB$C_CLONE_FIL_PROFILE = 38; (* RETURN A COPY OF A FILE'S CURRENT SECURITY PROFILE *)G FIB$C_STRUC_LEVEL2 = 39; (* Set the vcb to ods2 *)G FIB$C_STRUC_LEVEL5 = 40; (* Set the vcb to ods5 *)G FIB$C_EXPAND_VOLUME = 41; (* Expand the volume size *)G FIB$C_EXPAND_BITMAP = 42; (* Increase the BITMAP.SYS size *)G FIB$K_MTALEN = 28; (* LENGTH OF MTAACP DATA *)G FIB$C_MTALEN = 28; (* LENGTH OF MTAACP DATA *) N(* *) LCONST FIB$C_FID_CACHE = 1; (* FLUSH THE FID CACHE *)G FIB$C_EXTENT_CACHE = 2; (* FLUSH THE EXTENT CACHE *)G FIB$C_QUOTA_CACHE = 3; (* FLUSH THE QUOTA CACHE *)G FIB$C_BFRD_CACHE = 4; (* FLUSH THE BFRD CACHE *)G FIB$C_VBN_CACHE = 5; (* FLUSH THE VBN CACHE  *) N(* *) LCONST FIB$C_FLUSH_FILE_ATTRIBUTES = 1; (* Only flush file attributes *)G FIB$C_FLUSH_FILE_CONTENTS = 2; (* Only flush file contents *)G FIB$C_FLUSH_FILE = 3; (* Flush all of file *) N(* *) CONST FIB$M_ALL_MEM = 1; FIB$M_ALL_GRP = 2; FIB$M_MOD_USE = 4; FIB$M_MOD_PERM = 8; FIB $M_MOD_OVER = 16; 'TYPE FIB1$TYPE = RECORD CASE INTEGER OF/ 1: (FIBDEF$$_FILL_14 : ARRAY [1..22] OF $BYTE;G FIB$W_CNTRLFUNC : $UWORD; (* ACP CONTROL FUNCTION *)H (* DEFINE ACP CONTROL FUNCTION CODES *)G (* *)3 FIB$R_CNTRLVAL_OVERLAY : [BYTE(4)] RECORD END; );V 2: (FIB$L_CNTRLVAL : [POS(192)] UNSIGNED; (* ACP CONTROL FUNCTION VALUE PARAMETER *)N(* CACHE IDENTIF IER CODES FOR FLUSH_CACHE *)N(* *)N(* Files-64 CACHE IDENTIFIER CODES FOR FILE_SYNC *)N(* *)N(* CONTROL BITS FOR QUOTA FILE OPERATIONS *)N(* *) ); 3: ();G 4: (FIB$V_ALL_MEM : [ POS(192)] $BOOL; (* MATCH ALL MEMBER NUMBERS *)G FIB$V_ALL_GRP : [POS(193)] $BOOL; (* MATCH ALL GROUP NUMBERS *)G FIB$V_MOD_USE : [POS(194)] $BOOL; (* MODIFY USAGE DATA *)G FIB$V_MOD_PERM : [POS(195)] $BOOL; (* MODIFY PERMANENT QUOTA *)G FIB$V_MOD_OVER : [POS(196)] $BOOL; (* MODIFY OVERDRAFT LIMIT *) ) END; N(* Add a synonym for FIB$C_FILE_SYNCH to keep naming consistency *) CONST FIB$C_FILE_FLUSH = 33; (*** MODULE $FIDDEF  ***) N(* *)N(* STRUCTURE OF A FILE ID (FID) *)N(* *) CONST FID$K_LENGTH = 6; FID$C_LENGTH = 6;G FID$C_INDEXF = 1; (* INDEX FILE *)G FID$C_BITMAP = 2; (* STORAGE MAP FILE *)G FID$C_BADBLK = 3; (* BAD BLOCK FILE  *)G FID$C_MFD = 4; (* MASTER FILE DIRECTORY *)G FID$C_CORIMG = 5; (* CORE IMAGE FILE *)G FID$C_VOLSET = 6; (* VOLUME SET LIST FILE *)G FID$C_CONTIN = 7; (* STANRARD CONTINUATION FILE *)G FID$C_BACKUP = 8; (* BACKUP LOG FILE *)G FID$C_BADLOG = 9; (* BAD BLOCK LOG FILE *)G FID$C_SECURITY = 10; (* SECURITY F  ILE *)G FID$C_GPT = 11; (* GPT FILE *)G FID$C_FREFIL = 10; (* FREE SPACE FILE *) &TYPE FID$TYPE = RECORD CASE INTEGER OF. 1: (FID$R_FID_OVERLAY : [BYTE(6)] RECORD END; );R 2: (FID$W_FID : [POS(0)] ARRAY [1..3] OF $UWORD; (* File Identification Number *) ); 3: ();G 4: (FID$W_NUM : [POS(0)] $UWORD; (* FILE NUMBER *)G FID$W_SEQ : [POS(16)] $UWORD; (* FILE SEQUENC  E NUMBER *) );G 5: (FID$W_RVN : [POS(32)] $UWORD; (* RELATIVE VOLUME NUMBER *) ); 6: ();G 7: (FID$B_RVN : [POS(32)] $UBYTE; (* BYTE FORM OF RVN *)G FID$B_NMX : [POS(40)] $UBYTE; (* FILE NUMBER EXTENSION *)G (* FILE ID'S OF THE RESERVED FILES *) ); 8: ();F 9: (FID$W_DIRNUM : [POS(0)] $UWORD; (* Directory number of File-Id *)F FID$L_RECNUM : [POS(16)] UNSIGNED; (* Record number of File -ID *) ) END; (*** MODULE $FLTDEF ***) N(* *)N(* FLAG BITS FOR THE $SETFLT SYSTEM SERVICE. *)N(* *) CONST FLT$M_NO_EXECUTE = 1; FLT$M_EXECUTE_ONLY = 2; FLT$M_PERM = 4; FLT$M_EXECUTABLE = 8; &TYPE FLT$TYPE = RECORD CASE INTEGER OF. 1: (FLT$R_FLTDEF_BITS : [BYTE(1)] RECORD END; );G 2:  (FLT$V_NO_EXECUTE : [POS(0)] $BOOL; (* No Execute *)M FLT$V_EXECUTE_ONLY : [POS(1)] $BOOL; (* Execute Only (for future use) *)E FLT$V_PERM : [POS(2)] $BOOL; (* Permanent (for future use) *)G FLT$V_EXECUTABLE : [POS(3)] $BOOL; (* Set page to executable *) ) END; (*** MODULE $GEN64DEF ***) N(*+ *)N(* Define the generic quadword structure. *)  N(*- *) -TYPE GENERIC_64$TYPE = RECORD CASE INTEGER OFN 1: (GEN64$R_QUAD_OVERLAY : [BYTE(8)] RECORD END; (* You can treat me as... *) );K 2: (GEN64$Q_QUADWORD : [POS(0)] $UQUAD; (* ...a single 64-bit value, or *) );Y 3: (GEN64$L_LONGWORD : [POS(0)] ARRAY [1..2] OF UNSIGNED; (* ...two 32-bit values, or *) );P 4: (GEN64$W_WORD : [POS(0)] ARRAY [1..4] OF $UWORD; (* ...four 16-bit values *) ) E  ND; LCONST GEN64$K_LENGTH = 8; (* Length of GEN64 structure *)G GEN64$C_LENGTH = 8; (* Length of GEN64 structure *) (*** MODULE $GETSPIDEF ***) N(*+ *)N(* Get System Performance Information Data Identifier Definitions *)N(* *)I(* The following constants define the items which can be collected *)I(* with the Get System Performance Information service (GETSPI). *)I(* The item numbers are defined as follows: *)N(* *)I(* 16 12 0 *)I(* +------------------+-------------+ *)I(* | Structure number | Item number | *)I(* +------------------+------------- + *)N(* *)K(* The top four bits represent the structure of the item and the last 12 *)I(* bits represent the item within the structure. *)N(* *)N(* Caution! *)N(* The SPIDEF in the [montor] facility contained the following  *)N(* instructions on adding new symbols. With this interface being added *)N(* to STARLET, changing any item number is unacceptable. Some spare item *)O(* number exist in each range; if these are ever exhausted, new ranges must *)N(* be defined and support added, rather than changing item numbers. *)N(* *)L(* * The item numbers start *)N(* * at 0 and inc rease sequentially to the last item (even across tables). *)N(* * If new items are added to a table, programs MUST be relinked to allow *)L(* * the old definitions to change. This was done to simplify some table *)M(* * lookups in the Monitor Utility. To get around this, new items can be *)L(* * added at the end of the list. *)N(* * *)O(* * Each table has one item at the end to act  as a place holder. It should *)M(* * have the same item number as the first item of the next table. These *)S(* * items are not counters in the total number of SPI items GETSPI$_TABLESIZE. *)N(*- *)N(* DEFINE TABLE TYPES *) LCONST GETSPI$C_EXETYPE = 1; (* Executive cells *)G GETSPI$C_EWSTYPE = 2; (* Executive writable storage a  rea *)G GETSPI$C_MONTYPE = 3; (* Monitor specific items *)G GETSPI$C_RMSTYPE = 4; (* Monitor RMS specific items *)G GETSPI$C_LISTEND = 0; (* End of table list *) N(* *)T(* The following section defines items which are collected during initialization. *)P(* There items include general system information, and server version number. *)N(* The server version  number is also defined here. *)N(* *) LCONST GETSPI$_initial = -1; (* Initialization item list *)G GETSPI$_data_collection = -2; (* Data collection item list *)G GETSPI$_sysinfo = -3; (* System information item *)G GETSPI$_version_number = -4; (* Monitor version number *)G GETSPI$_rms_file = -5; (* Parse file name  *)G GETSPI$_rms_gs = -6; (* Get global section address *) GETSPI$_last_type = -7; GETSPI$_server_version = 5; N(* *)N(* Define bits in the PMS flags field PMS$GL_FLAGS. These are used to *)N(* synchronize access to some PMS field and enable other activity. *)N(* *) .TYPE getspi$pms_flags = RECORD CASE IN TEGER OFX 1: (GETSPI$l_flags : [BYTE(4)] RECORD END; (* Class qualifier flags for CDB (Active) *) );\ 2: (GETSPI$v_disk_enable : [POS(0)] $BOOL; (* YES => Enable disk queue length collection *)\ (* This field must be accessed via an interlocked *)G (* bit instruction. *)N GETSPI$v_filler1 : [POS(1)] $BIT7; (* Fill out remainder of first byte *)a GETSPI$v_disk_sync : [POS(8)] $BOOL; (* YES => Sy nchronize access to several PMS counters *)Z (* used in the collection of disk queue length. *)\ (* This field must be accessed via an interlocked *)X (* bit instruction, AND MUST BE IN A SEPARATE *)X (* BYTE from the disk_enable bit (required by *)\ (* the architecture to maintain synchronization). *)J GETSPI$v_filler2 : [POS(9)] $BIT23; (* Fill out remainder of field *) ) END; N(* *)N(* Define two contants to handle help handle large lookaside lists. The *)N(* maximum number that SPISHR will count to is defined with *)N(* GETSPI$K_MAX_PACKET and the value returned when this threshold is *)N(* reached is defined as GETSPI$K_POOL_OVF. *)N(* ! *) CONST GETSPI$k_max_packet = 500;! GETSPI$k_pool_ovf = -2147483647; N(* *)N(* Define item identifier numbers. Each data item has an associated *)N(* value which is used to find its entry in the EXETBL. The item table *)N(* is defined by the macros SPI_GENERATE_TABLE which makes multiple calls *)N(* to the macro SPI_ITEM_CODE defined " in the SYSGETSPI module. *)N(* *) LCONST GETSPI$_MODES = 4096; (* All modes counters on all CPU's *)I GETSPI$_INTERRUPT = 4097; (* time on interrupt stack -- primary *)G GETSPI$_KERNEL = 4098; (* time in kernel mode -- primary *)G GETSPI$_EXEC = 4099; (* time in exec mode -- primary *)I GETSPI$_SUPER = 4100; (* time in supervisor mode -- primary *)G G# ETSPI$_USER = 4101; (* time in user mode -- primary *)G GETSPI$_COMPAT = 4102; (* time in compat. mode -- primary *)Q GETSPI$_INTERRUPT_BUSY = 4103; (* Time spent spinning on the interrupt stack *)N GETSPI$_KERNEL_BUSY = 4104; (* Time spent spinning on the lernel stack *)G GETSPI$_IDLE = 4105; (* idle time -- primary *)G GETSPI$_CPUBUSY = 4106; (* RETIRED ITEM - RETURNS 0 *)G GETSPI$_COLPG = 4107; (* collided pag$ e wait *)G GETSPI$_MWAIT = 4108; (* memory wait *)G GETSPI$_CEF = 4109; (* common event flag wait *)G GETSPI$_PFW = 4110; (* page wait *)G GETSPI$_LEF = 4111; (* local event flag wait *)G GETSPI$_LEFO = 4112; (* lef wait out of bal. set *)G GETSPI$_HIB = 4113; (* hibernating *)G GETSPI$_HIBO = 4114; (* % hibernating outswapped *)G GETSPI$_SUSP = 4115; (* suspended *)G GETSPI$_SUSPO = 4116; (* suspended outswapped *)G GETSPI$_FPG = 4117; (* free page wait *)G GETSPI$_COM = 4118; (* computing *)G GETSPI$_COMO = 4119; (* computable outswapped *)G GETSPI$_CUR = 4120; (* current *)G GETSPI$_OTHSTAT = 4121;& (* RETIRED ITEM - RETURNS 0 *)G GETSPI$_PROCS = 4122; (* process count for SYSTEM class *)G GETSPI$_PROC = 4123; (* collect all process information *)G GETSPI$_FRLIST = 4124; (* size of free list *)G GETSPI$_MODLIST = 4125; (* size of modified list *)G GETSPI$_FAULTS = 4126; (* page fault count *)G GETSPI$_PREADS = 4127; (* page reads *)G GETSPI$_PWR' ITES = 4128; (* page writes *)G GETSPI$_PWRITIO = 4129; (* physical page write I/O's *)G GETSPI$_PREADIO = 4130; (* physical page read I/O's *)G GETSPI$_GVALFLTS = 4131; (* global valid faults *)G GETSPI$_WRTINPROG = 4132; (* faults from write in progress *)G GETSPI$_FREFLTS = 4133; (* faults from free list *)G GETSPI$_MFYFLTS = 4134; (* faults from modified list *)G( GETSPI$_DZROFLTS = 4135; (* demand zero faults *)G GETSPI$_SYSFAULTS = 4136; (* system page faults *)G GETSPI$_LRPCNT = 4137; (* number of LRP packets available *)G GETSPI$_LRPINUSE = 4138; (* number of LRPs in use *)G GETSPI$_IRPCNT = 4139; (* number of IRP packets available *)G GETSPI$_IRPINUSE = 4140; (* number of IRPs in use *)G GETSPI$_SRPCNT = 4141; (* number of SRP packets avai) lable *)G GETSPI$_SRPINUSE = 4142; (* number of SRPs in use *)G GETSPI$_HOLECNT = 4143; (* number of blocks in dyn. memory *)G GETSPI$_BIGHOLE = 4144; (* largest hole *)G GETSPI$_SMALLHOLE = 4145; (* smallest hole *)K GETSPI$_HOLESUM = 4146; (* total space in dyn. memory available *)G GETSPI$_DYNINUSE = 4147; (* dynamic memory space in use *)J GETSPI$_SMALLCNT = 4148; (* number of * blocks < 32 bytes in size *)G GETSPI$_ISWPCNT = 4149; (* total inswaps *)G GETSPI$_DIRIO = 4150; (* count of direct I/Os *)G GETSPI$_BUFIO = 4151; (* count of buffered I/Os *)G GETSPI$_MBREADS = 4152; (* total mailbox reads *)G GETSPI$_MBWRITES = 4153; (* total mailbox writes *)G GETSPI$_LOGNAM = 4154; (* logical name translations *)G GETSPI$_FCPCALLS = 4155; + (* total fcp calls *)G GETSPI$_FCPREAD = 4156; (* number of disk reads by FCP *)G GETSPI$_FCPWRITE = 4157; (* number of disk writes by FCP *)G GETSPI$_FCPCACHE = 4158; (* number of FCP cache hits *)G GETSPI$_FCPCPU = 4159; (* number of CPU tics by FCP *)G GETSPI$_FCPHIT = 4160; (* number of window hits *)G GETSPI$_FCPSPLIT = 4161; (* number of split transfers *)G GETSPI$_FCPFAULT = , 4162; (* number of FCP page faults *)G GETSPI$_ENQNEW = 4163; (* number of ENQ's (new) *)G GETSPI$_ENQCVT = 4164; (* number of ENQ's (conversions) *)G GETSPI$_DEQ = 4165; (* number of DEQ's *)G GETSPI$_BLKAST = 4166; (* number of blocking AST's *)G GETSPI$_ENQWAIT = 4167; (* number of ENQ's forced to wait *)G GETSPI$_ENQNOTQD = 4168; (* number of ENQ's not queued *)G GETSPI$- _DLCKSRCH = 4169; (* number of deadlock searches *)G GETSPI$_DLCKFND = 4170; (* number of deadlocks found *)G GETSPI$_NUMLOCKS = 4171; (* total locks *)G GETSPI$_NUMRES = 4172; (* total resources *)G GETSPI$_ARRLOCPK = 4173; (* arriving local packets *)G GETSPI$_DEPLOCPK = 4174; (* departing local packets *)G GETSPI$_ARRTRAPK = 4175; (* arriving transit packets *. )G GETSPI$_TRCNGLOS = 4176; (* transit congestion loss *)G GETSPI$_RCVBUFFL = 4177; (* receiver buffer failures *)G GETSPI$_RESERVED1 = 4178; (* Reserved PMS location 1 *)G GETSPI$_RESERVED2 = 4179; (* Reserved PMS location 2 *)G GETSPI$_RESERVED3 = 4180; (* Reserved PMS location 3 *)G GETSPI$_RESERVED4 = 4181; (* Reserved PMS location 4 *)G GETSPI$_RESERVED5 = 4182; (* Reserved PMS location / 5 *)G GETSPI$_RESERVED6 = 4183; (* Reserved PMS location 6 *)G GETSPI$_RESERVED7 = 4184; (* Reserved PMS location 7 *)G GETSPI$_RESERVED8 = 4185; (* Reserved PMS location 8 *)G GETSPI$_RESERVED9 = 4186; (* Reserved PMS location 9 *)G GETSPI$_RESERVED10 = 4187; (* Reserved PMS location 10 *)G GETSPI$_RESERVED11 = 4188; (* Reserved PMS location 11 *)G GETSPI$_RESERVED12 = 4189; (* Reserved P0 MS location 12 *)G GETSPI$_RESERVED13 = 4190; (* Reserved PMS location 13 *)G GETSPI$_RESERVED14 = 4191; (* Reserved PMS location 14 *)G GETSPI$_RESERVED15 = 4192; (* Reserved PMS location 15 *)G GETSPI$_RESERVED16 = 4193; (* Reserved PMS location 16 *)G GETSPI$_RESERVED17 = 4194; (* Reserved PMS location 17 *)G GETSPI$_RESERVED18 = 4195; (* Reserved PMS location 18 *)G GETSPI$_FID_TRIES = 4196; (1 * count of File Id cache attempts *)J GETSPI$_FILHDR_TRIES = 4197; (* count of File header cache attempts *)N GETSPI$_DIRFCB_TRIES = 4198; (* count of Directory block cache attempts *)M GETSPI$_DIRDATA_TRIES = 4199; (* count of Directory data cache attempts *)G GETSPI$_EXT_TRIES = 4200; (* count of Extent cache attempts *)G GETSPI$_QUO_TRIES = 4201; (* count of Quota cache attempts *)M GETSPI$_STORAGMAP_TRIES = 4202; (* count of storage bitmap cache attempts *)G G2 ETSPI$_DISKS = 4203; (* all disk data *)q GETSPI$_TOTAL_LOCKS = 4204; (* Total of all locking activity - NOT COLLECTED BY SPI - COMPUTED BY MONITOR *)G GETSPI$_ENQNEWLOC = 4205; (* new lock requests (local) *)G GETSPI$_ENQNEWIN = 4206; (* new lock requests (incoming) *)G GETSPI$_ENQNEWOUT = 4207; (* new lock requests (outgoing) *)G GETSPI$_ENQCVTLOC = 4208; (* lock conversion requests (local) *)J GETSPI$_ENQCVTIN = 423 09; (* lock conversion requests (incoming) *)J GETSPI$_ENQCVTOUT = 4210; (* lock conversion requests (outgoing) *)G GETSPI$_DEQLOC = 4211; (* dequeues (local) *)G GETSPI$_DEQIN = 4212; (* dequeues (incoming) *)G GETSPI$_DEQOUT = 4213; (* dequeues (outgoing) *)G GETSPI$_BLKLOC = 4214; (* blocking ASTs queued (local) *)G GETSPI$_BLKIN = 4215; (* blocking ASTs queued (incoming) *)G GETSP4 I$_BLKOUT = 4216; (* blocking ASTs queued (outgoing) *)G GETSPI$_DIRIN = 4217; (* directory operations (incoming) *)G GETSPI$_DIROUT = 4218; (* directory operations (outgoing) *)M GETSPI$_DLCKMSGS = 4219; (* deadlock detection messages (in & out) *)G GETSPI$_SCS = 4220; (* All SCS information *)G GETSPI$_SYSTIME = 4221; (* Current system time *)I GETSPI$_MSCP_REQUEST = 4222; (* IO request rate to the MSC5 P server *)K GETSPI$_MSCP_READ = 4223; (* Read request rate to the MSCP server *)L GETSPI$_MSCP_WRITE = 4224; (* Write request rate to the MSCP server *)I GETSPI$_MSCP_FRAGMENT = 4225; (* Rate at which I/O's are fragmented *)G GETSPI$_MSCP_SPLIT = 4226; (* Rate at which I/O's are split *)` GETSPI$_MSCP_BUFWAIT = 4227; (* Rate at which incoming requests have to wait for a buffer *)G GETSPI$_MSCP_SIZE1 = 4228; (* I/O rate for sizes 1-2 blocks *)G GETSPI$_MSCP_6 SIZE2 = 4229; (* I/O rate for sizes 2-3 blocks *)G GETSPI$_MSCP_SIZE3 = 4230; (* I/O rate for sizes 4-7 blocks *)G GETSPI$_MSCP_SIZE4 = 4231; (* I/O rate for sizes 8-15 blocks *)G GETSPI$_MSCP_SIZE5 = 4232; (* I/O rate for sizes 16-31 blocks *)G GETSPI$_MSCP_SIZE6 = 4233; (* I/O rate for sizes 32-63 blocks *)G GETSPI$_MSCP_SIZE7 = 4234; (* I/O rate for sizes 64-127 blocks *)X GETSPI$_MSCP_ALL = 4235; (* Dummy item to collect all MSCP server cl7 ass items *)G GETSPI$_DDTM_STARTS = 4236; (* Local Transaction starts *)G GETSPI$_DDTM_PREPARES = 4237; (* Local Transaction prepare event *)I GETSPI$_DDTM_ONE_PHASE = 4238; (* Transaction ONE_PHASE commit event *)G GETSPI$_DDTM_COMMITS = 4239; (* Local Transaction commit event *)G GETSPI$_DDTM_ABORTS = 4240; (* Local Transaction abort event *)G GETSPI$_DDTM_ENDS = 4241; (* Local Transaction ends *)G GETSPI$_DDTM_BRANCHS = 4242; (* Start bran8 ch event *)G GETSPI$_DDTM_ADDS = 4243; (* Add branch event *)G GETSPI$_DDTM_BUCKETS1 = 4244; (* TPS rate for < 1 *)G GETSPI$_DDTM_BUCKETS2 = 4245; (* TPS rate for 1-2 *)G GETSPI$_DDTM_BUCKETS3 = 4246; (* TPS rate for 2-3 *)G GETSPI$_DDTM_BUCKETS4 = 4247; (* TPS rate for 3-4 *)G GETSPI$_DDTM_BUCKETS5 = 4248; (* TPS rate for 4-5 *)G GETSPI$_DDTM_BUCKETS6 = 4249; ( 9 * TPS rate for > 6 *)X GETSPI$_DDTM_ALL = 4250; (* Dummy item to collect all TRANSACTION class items *)G GETSPI$_VECTORP = 4251; (* Vector Processor tics scheduled *)G GETSPI$_VBYTE_READ = 4252; (* VBS bytes read *)G GETSPI$_VBYTE_WRITE = 4253; (* VBS bytes written *) GETSPI$_VVBS_TRAN = 4254; GETSPI$_VRBS_TRAN = 4255; GETSPI$_VDIO_SEL = 4256; GETSPI$_VDIOMAP_ALLOC = 4257; GETSPI$_VRBS_AVAIL = 4258; GETSPI$ : _VSEL_FAIL = 4259; GETSPI$_VVBSM_HIT = 4260; GETSPI$_VVBSM_CACHE = 4261; GETSPI$_VFLUIDBAL = 4262; GETSPI$_VRECOPY = 4263; GETSPI$_VCPUTICKS = 4264;G GETSPI$_RESERVEDEXE1 = 4265; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE2 = 4266; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE3 = 4267; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE4 = 4268; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE5 = 4269; (* Reserved EXE i; tems *)G GETSPI$_RESERVEDEXE6 = 4270; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE7 = 4271; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE8 = 4272; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE9 = 4273; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE10 = 4274; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE11 = 4275; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE12 = 4276; (* Re< served EXE items *)G GETSPI$_RESERVEDEXE13 = 4277; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE14 = 4278; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE15 = 4279; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE16 = 4280; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE17 = 4281; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE18 = 4282; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE19 = 4= 283; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE20 = 4284; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE21 = 4285; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE22 = 4286; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE23 = 4287; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE24 = 4288; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE25 = 4289; (* Reserved EXE items *)G GETSPI$_RESER> VEDEXE26 = 4290; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE27 = 4291; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE28 = 4292; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE29 = 4293; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE30 = 4294; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE31 = 4295; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE32 = 4296; (* Reserved EXE items *)G G? ETSPI$_RESERVEDEXE33 = 4297; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE34 = 4298; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE35 = 4299; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE36 = 4300; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE37 = 4301; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE38 = 4302; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE39 = 4303; (* Reserved EXE items @ *)G GETSPI$_RESERVEDEXE40 = 4304; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE41 = 4305; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE42 = 4306; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE43 = 4307; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE44 = 4308; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE45 = 4309; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE46 = 4310; (* Reserved EXE iteA ms *)G GETSPI$_RESERVEDEXE47 = 4311; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE48 = 4312; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE49 = 4313; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE50 = 4314; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE51 = 4315; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE52 = 4316; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE53 = 4317; (* ReseB rved EXE items *)G GETSPI$_RESERVEDEXE54 = 4318; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE55 = 4319; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE56 = 4320; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE57 = 4321; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE58 = 4322; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE59 = 4323; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE60 = 432C 4; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE61 = 4325; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE62 = 4326; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE63 = 4327; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE64 = 4328; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE65 = 4329; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE66 = 4330; (* Reserved EXE items *)G GETSPI$_RESERVED DEXE67 = 4331; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE68 = 4332; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE69 = 4333; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE70 = 4334; (* Reserved EXE items *)G GETSPI$_RESERVEDEXE71 = 4335; (* Reserved EXE items *)G GETSPI$_LASTEXE = 4336; (* Last item in the EXE table *) N(* E *)N(* These next items are located in an executive writable page in memory *)N(* *) LCONST GETSPI$_ACCESS = 8432; (* number of file accesses *)G GETSPI$_ALLOC = 8433; (* number of file extends *)G GETSPI$_FCPCREATE = 8434; (* number of file creations *)L GETSPI$_VOLWAIT = 8435; (* # of times XQP waited for volume lock *)G GETSPI$_FCPTURN = 8436; F (* number of window turns *)G GETSPI$_FCPERASE = 8437; (* number of erase calls *)G GETSPI$_OPENS = 8438; (* number of file opens *)G GETSPI$_FIDHIT = 8439; (* count of File Id cache hits *)G GETSPI$_FIDMISS = 8440; (* count of File Id cache misses *)G GETSPI$_FILHDR_HIT = 8441; (* count of File header cache hits *)J GETSPI$_DIRFCB_HIT = 8442; (* count of Directory block cache hits *)L GETSPI$_DIRFCB_MIG SS = 8443; (* count of Directory block cache misses *)I GETSPI$_DIRDATA_HIT = 8444; (* count of Directory data cache hits *)G GETSPI$_EXTHIT = 8445; (* count of Extent cache hits *)G GETSPI$_EXTMISS = 8446; (* count of Extent cache misses *)G GETSPI$_QUOHIT = 8447; (* count of Quota cache hits *)G GETSPI$_QUOMISS = 8448; (* count of Quota cache misses *)I GETSPI$_STORAGMAP_HIT = 8449; (* count of storage bitmap cache hits *)H G GETSPI$_VOLLCK = 8450; (* Volume synch locks *)G GETSPI$_SYNCHLCK = 8451; (* directory and file synch locks *)_ GETSPI$_SYNCHWAIT = 8452; (* # of times XQP waited for a directory or file synch lock *)G GETSPI$_ACCLCK = 8453; (* access locks *)[ GETSPI$_XQPCACHEWAIT = 8454; (* # of times XQP had to wait for free space in a cache *)G GETSPI$_RESERVEDEWS1 = 8455; (* Reserved EWS items *)G GETSPI$_RESERVEI DEWS2 = 8456; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS3 = 8457; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS4 = 8458; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS5 = 8459; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS6 = 8460; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS7 = 8461; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS8 = 8462; (* Reserved EWS items *)G GETJ SPI$_RESERVEDEWS9 = 8463; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS10 = 8464; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS11 = 8465; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS12 = 8466; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS13 = 8467; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS14 = 8468; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS15 = 8469; (* Reserved EWS items K *)G GETSPI$_RESERVEDEWS16 = 8470; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS17 = 8471; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS18 = 8472; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS19 = 8473; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS20 = 8474; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS21 = 8475; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS22 = 8476; (* Reserved EWS itemsL *)G GETSPI$_RESERVEDEWS23 = 8477; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS24 = 8478; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS25 = 8479; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS26 = 8480; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS27 = 8481; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS28 = 8482; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS29 = 8483; (* ReservM ed EWS items *)G GETSPI$_RESERVEDEWS30 = 8484; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS31 = 8485; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS32 = 8486; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS33 = 8487; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS34 = 8488; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS35 = 8489; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS36 = 8490;N (* Reserved EWS items *)G GETSPI$_RESERVEDEWS37 = 8491; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS38 = 8492; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS39 = 8493; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS40 = 8494; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS41 = 8495; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS42 = 8496; (* Reserved EWS items *)G GETSPI$_RESERVEDEO WS43 = 8497; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS44 = 8498; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS45 = 8499; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS46 = 8500; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS47 = 8501; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS48 = 8502; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS49 = 8503; (* Reserved EWS items *)G GETSPP I$_RESERVEDEWS50 = 8504; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS51 = 8505; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS52 = 8506; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS53 = 8507; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS54 = 8508; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS55 = 8509; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS56 = 8510; (* Reserved EWS items Q *)G GETSPI$_RESERVEDEWS57 = 8511; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS58 = 8512; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS59 = 8513; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS60 = 8514; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS61 = 8515; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS62 = 8516; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS63 = 8517; (* Reserved EWS items R *)G GETSPI$_RESERVEDEWS64 = 8518; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS65 = 8519; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS66 = 8520; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS67 = 8521; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS68 = 8522; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS69 = 8523; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS70 = 8524; (* ReservedS EWS items *)G GETSPI$_RESERVEDEWS71 = 8525; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS72 = 8526; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS73 = 8527; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS74 = 8528; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS75 = 8529; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS76 = 8530; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS77 = 8531; T (* Reserved EWS items *)G GETSPI$_RESERVEDEWS78 = 8532; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS79 = 8533; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS80 = 8534; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS81 = 8535; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS82 = 8536; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS83 = 8537; (* Reserved EWS items *)G GETSPI$_RESERVEDEWSU 84 = 8538; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS85 = 8539; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS86 = 8540; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS87 = 8541; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS88 = 8542; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS89 = 8543; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS90 = 8544; (* Reserved EWS items *)G GETSPI$V _RESERVEDEWS91 = 8545; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS92 = 8546; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS93 = 8547; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS94 = 8548; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS95 = 8549; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS96 = 8550; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS97 = 8551; (* Reserved EWS items * W )G GETSPI$_RESERVEDEWS98 = 8552; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS99 = 8553; (* Reserved EWS items *)G GETSPI$_RESERVEDEWS100 = 8554; (* Reserved EWS items *)K GETSPI$_LASTEWS = 8555; (* Last item in the exec writable table *) N(* *)N(* Begin monitor specific data items. The items listed below are *)N(* NOT collected by the SPI as individX ual items. Some are NOT collected *)N(* at all but are computed by MONITOR. *)N(* *) XCONST GETSPI$_FIDHITPCNT = 12651; (* percentage of file id cache hits/hits+misses *)W GETSPI$_FILHDR_HITPCNT = 12652; (* percentage of file header cache hits/hits+misses *)[ GETSPI$_DIRFCB_HITPCNT = 12653; (* percentage of directory block cache hits/hits+misses *)[ GETSPI$_DIRDATA_HITPCNT =Y 12654; (* percentage of directory data cache hits/hits+misses *)R GETSPI$_EXTHITPCNT = 12655; (* percentage of extent cache hits/hits+misses *)Q GETSPI$_QUOHITPCNT = 12656; (* percentage of quota cache hits/hits+misses *)Z GETSPI$_STORAGMAP_HITPCNT = 12657; (* percentage of storage map cache hits/hits+misses *)G GETSPI$_OPCNT = 12658; (* disk io operation count *)G GETSPI$_IOQUELEN = 12659; (* disk io queue length *)G GETSPI$_IOAQUELEN = 12660; Z (* Accurate disk io queue length *)G GETSPI$_DISKRESPTIM = 12661; (* disk io response time *)P GETSPI$_JNLIOCNT = 12662; (* journaling io operation count (for disks) *)G GETSPI$_JDNQLEN = 12663; (* jdevice normal io queue length *)G GETSPI$_JDWQLEN = 12664; (* jdevice wait irp queue length *)G GETSPI$_JDFQLEN = 12665; (* jdevice force io queue length *)G GETSPI$_JDEXCNT = 12666; (* jdevice extend count *)G GETSPI$_J[ NLWRTSS = 12667; (* obsolete *)G GETSPI$_JNLBUFWR = 12668; (* obsolete *)G GETSPI$_DGSENT = 12669; (* SCS application datagrams sent *)I GETSPI$_DGRCVD = 12670; (* SCS application datagrams received *)J GETSPI$_DGDISCARD = 12671; (* SCS application datagrams discarded *)G GETSPI$_MSGSENT = 12672; (* SCS application messages sent *)H GETSPI$_MSGRCVD = 12673; (* SCS application messages receive\ d *)G GETSPI$_SNDATS = 12674; (* SCS block send datas initiated *)G GETSPI$_KBYTSENT = 12675; (* SCS kbytes sent via send datas *)H GETSPI$_REQDATS = 12676; (* SCS block request datas initiated *)L GETSPI$_KBYTREQD = 12677; (* SCS kbytes received via request datas *)K GETSPI$_KBYTMAPD = 12678; (* SCS kbytes mapped for block transfer *)R GETSPI$_QCR_CNT = 12679; (* SCS times connection queued for send credit *)X GETSPI$_QBDT_CNT = 12680; (* SC] S times connection queued for buffer descriptor *)G GETSPI$_DIRLOOK = 12681; (* directory lookups *)G GETSPI$_DIRINS = 12682; (* directory inserts *)G GETSPI$_DIRDEL = 12683; (* directory deletes *)G GETSPI$_PACKETS = 12684; (* Ethernet packets/second *)G GETSPI$_KBYTES = 12685; (* Kbytes/second *)G GETSPI$_PACKETSIZE = 12686; (* Packets size (bytes) *)G GETSPI$_M^ PACKETS = 12687; (* Multicast packets/second *)G GETSPI$_MKBYTES = 12688; (* Multicast Kbytes/second *)G GETSPI$_MPACKETSIZE = 12689; (* Multicast packet size (bytes) *)I GETSPI$_SINGLECOLL = 12690; (* Transmit single collision detected *)I GETSPI$_MULTICOLL = 12691; (* Transmit multi collisions detected *)G GETSPI$_INITDEFER = 12692; (* Transmit initially deferred *)G GETSPI$_INTERNALBUFERR = 12693; (* Receive internal buffer error _ *)G GETSPI$_LOCBUFERR = 12694; (* Receive local buffer error *)G GETSPI$_BUFFUNAVAIL = 12695; (* System buffer unavailable *)G GETSPI$_FILLER = 12696; (* Dummy pad item *)G GETSPI$_RESERVEDMON1 = 12697; (* Reserved MON items *)G GETSPI$_RESERVEDMON2 = 12698; (* Reserved MON items *)G GETSPI$_RESERVEDMON3 = 12699; (* Reserved MON items *)G GETSPI$_RESERVEDMON4 = 12700; (* Reserved MON items ` *)G GETSPI$_RESERVEDMON5 = 12701; (* Reserved MON items *)G GETSPI$_RESERVEDMON6 = 12702; (* Reserved MON items *)G GETSPI$_RESERVEDMON7 = 12703; (* Reserved MON items *)G GETSPI$_RESERVEDMON8 = 12704; (* Reserved MON items *)G GETSPI$_RESERVEDMON9 = 12705; (* Reserved MON items *)G GETSPI$_RESERVEDMON10 = 12706; (* Reserved MON items *)G GETSPI$_RESERVEDMON11 = 12707; (* Reserveda MON items *)G GETSPI$_RESERVEDMON12 = 12708; (* Reserved MON items *)G GETSPI$_RESERVEDMON13 = 12709; (* Reserved MON items *)G GETSPI$_RESERVEDMON14 = 12710; (* Reserved MON items *)G GETSPI$_RESERVEDMON15 = 12711; (* Reserved MON items *)G GETSPI$_RESERVEDMON16 = 12712; (* Reserved MON items *)G GETSPI$_RESERVEDMON17 = 12713; (* Reserved MON items *)G GETSPI$_RESERVEDMON18 = 12714; b (* Reserved MON items *)G GETSPI$_RESERVEDMON19 = 12715; (* Reserved MON items *)G GETSPI$_RESERVEDMON20 = 12716; (* Reserved MON items *)G GETSPI$_RESERVEDMON21 = 12717; (* Reserved MON items *)G GETSPI$_RESERVEDMON22 = 12718; (* Reserved MON items *)G GETSPI$_RESERVEDMON23 = 12719; (* Reserved MON items *)G GETSPI$_RESERVEDMON24 = 12720; (* Reserved MON items *)G GETSPI$_RESERVEDMONc 25 = 12721; (* Reserved MON items *)G GETSPI$_RESERVEDMON26 = 12722; (* Reserved MON items *)G GETSPI$_RESERVEDMON27 = 12723; (* Reserved MON items *)G GETSPI$_RESERVEDMON28 = 12724; (* Reserved MON items *)G GETSPI$_RESERVEDMON29 = 12725; (* Reserved MON items *)G GETSPI$_RESERVEDMON30 = 12726; (* Reserved MON items *)G GETSPI$_RESERVEDMON31 = 12727; (* Reserved MON items *)G GETSPI$d _RESERVEDMON32 = 12728; (* Reserved MON items *)G GETSPI$_RESERVEDMON33 = 12729; (* Reserved MON items *)G GETSPI$_RESERVEDMON34 = 12730; (* Reserved MON items *)G GETSPI$_RESERVEDMON35 = 12731; (* Reserved MON items *)G GETSPI$_RESERVEDMON36 = 12732; (* Reserved MON items *)G GETSPI$_RESERVEDMON37 = 12733; (* Reserved MON items *)G GETSPI$_RESERVEDMON38 = 12734; (* Reserved MON items *e )G GETSPI$_RESERVEDMON39 = 12735; (* Reserved MON items *)G GETSPI$_RESERVEDMON40 = 12736; (* Reserved MON items *)G GETSPI$_RESERVEDMON41 = 12737; (* Reserved MON items *)G GETSPI$_RESERVEDMON42 = 12738; (* Reserved MON items *)G GETSPI$_RESERVEDMON43 = 12739; (* Reserved MON items *)G GETSPI$_RESERVEDMON44 = 12740; (* Reserved MON items *)G GETSPI$_RESERVEDMON45 = 12741; (* Reserved MON items f *)G GETSPI$_RESERVEDMON46 = 12742; (* Reserved MON items *)G GETSPI$_RESERVEDMON47 = 12743; (* Reserved MON items *)G GETSPI$_RESERVEDMON48 = 12744; (* Reserved MON items *)G GETSPI$_RESERVEDMON49 = 12745; (* Reserved MON items *)G GETSPI$_RESERVEDMON50 = 12746; (* Reserved MON items *)G GETSPI$_RESERVEDMON51 = 12747; (* Reserved MON items *)G GETSPI$_RESERVEDMON52 = 12748; (* Reserved Mg ON items *)G GETSPI$_RESERVEDMON53 = 12749; (* Reserved MON items *)G GETSPI$_RESERVEDMON54 = 12750; (* Reserved MON items *)G GETSPI$_RESERVEDMON55 = 12751; (* Reserved MON items *)G GETSPI$_RESERVEDMON56 = 12752; (* Reserved MON items *)G GETSPI$_RESERVEDMON57 = 12753; (* Reserved MON items *)G GETSPI$_RESERVEDMON58 = 12754; (* Reserved MON items *)G GETSPI$_RESERVEDMON59 = 12755; (h * Reserved MON items *)G GETSPI$_RESERVEDMON60 = 12756; (* Reserved MON items *)G GETSPI$_RESERVEDMON61 = 12757; (* Reserved MON items *)G GETSPI$_RESERVEDMON62 = 12758; (* Reserved MON items *)G GETSPI$_RESERVEDMON63 = 12759; (* Reserved MON items *)G GETSPI$_RESERVEDMON64 = 12760; (* Reserved MON items *)G GETSPI$_RESERVEDMON65 = 12761; (* Reserved MON items *)G GETSPI$_RESERVEDMON66i = 12762; (* Reserved MON items *)G GETSPI$_RESERVEDMON67 = 12763; (* Reserved MON items *)G GETSPI$_RESERVEDMON68 = 12764; (* Reserved MON items *)G GETSPI$_RESERVEDMON69 = 12765; (* Reserved MON items *)G GETSPI$_RESERVEDMON70 = 12766; (* Reserved MON items *)G GETSPI$_RESERVEDMON71 = 12767; (* Reserved MON items *)G GETSPI$_RESERVEDMON72 = 12768; (* Reserved MON items *)G GETSPI$_Rj ESERVEDMON73 = 12769; (* Reserved MON items *)G GETSPI$_RESERVEDMON74 = 12770; (* Reserved MON items *)G GETSPI$_RESERVEDMON75 = 12771; (* Reserved MON items *)G GETSPI$_RESERVEDMON76 = 12772; (* Reserved MON items *)G GETSPI$_RESERVEDMON77 = 12773; (* Reserved MON items *)G GETSPI$_RESERVEDMON78 = 12774; (* Reserved MON items *)G GETSPI$_RESERVEDMON79 = 12775; (* Reserved MON items *)k G GETSPI$_RESERVEDMON80 = 12776; (* Reserved MON items *)G GETSPI$_RESERVEDMON81 = 12777; (* Reserved MON items *)G GETSPI$_RESERVEDMON82 = 12778; (* Reserved MON items *)G GETSPI$_RESERVEDMON83 = 12779; (* Reserved MON items *)G GETSPI$_RESERVEDMON84 = 12780; (* Reserved MON items *)G GETSPI$_RESERVEDMON85 = 12781; (* Reserved MON items *)G GETSPI$_RESERVEDMON86 = 12782; (* Reserved MON items l *)G GETSPI$_RESERVEDMON87 = 12783; (* Reserved MON items *)G GETSPI$_RESERVEDMON88 = 12784; (* Reserved MON items *)G GETSPI$_RESERVEDMON89 = 12785; (* Reserved MON items *)G GETSPI$_RESERVEDMON90 = 12786; (* Reserved MON items *)G GETSPI$_RESERVEDMON91 = 12787; (* Reserved MON items *)G GETSPI$_RESERVEDMON92 = 12788; (* Reserved MON items *)G GETSPI$_RESERVEDMON93 = 12789; (* Reserved MONm items *)G GETSPI$_RESERVEDMON94 = 12790; (* Reserved MON items *)G GETSPI$_RESERVEDMON95 = 12791; (* Reserved MON items *)G GETSPI$_RESERVEDMON96 = 12792; (* Reserved MON items *)G GETSPI$_RESERVEDMON97 = 12793; (* Reserved MON items *)G GETSPI$_RESERVEDMON98 = 12794; (* Reserved MON items *)G GETSPI$_RESERVEDMON99 = 12795; (* Reserved MON items *)G GETSPI$_RESERVEDMON100 = 12796; (* n Reserved MON items *)N GETSPI$_LASTMON = 12797; (* Last item in the monitor specific table *) N(* *)O(* Begin items specific to the Monitor RMS class. These items are maintained *)R(* by RMS and collected from a global section with the following naming scheme: *)O(* _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the *)N(* file being monitored. o *)N(* *) OCONST GETSPI$_RMS_STATS = 16893; (* All of the following rms statistics *)G GETSPI$_SEQGETS = 16894; (* Total # of sequential gets *)G GETSPI$_KEYGETS = 16895; (* Total # of keyed gets *)G GETSPI$_RFAGETS = 16896; (* Total # of gets by RFA *)G GETSPI$_GETBYTES = 16897; (* Total size in bytes of all GETS *)G GETSPI$_SEQPUTS = 1p 6898; (* Total # of sequential puts *)G GETSPI$_KEYPUTS = 16899; (* Total # of puts by key *)G GETSPI$_PUTBYTES = 16900; (* Total # of bytes put to file *)G GETSPI$_UPDATES = 16901; (* Total # of updates to the file *)G GETSPI$_UPDATEBYTES = 16902; (* Total # of bytes updated in file *)G GETSPI$_DELETES = 16903; (* Total # of deletes to file *)O GETSPI$_TRUNCATES = 16904; (* Total # of times file has been truncated *)Pq GETSPI$_TRUNCBLKS = 16905; (* Total # of blocks file has been truncated *)G GETSPI$_SEQFINDS = 16906; (* Total # of sequential finds *)G GETSPI$_KEYFINDS = 16907; (* Total # of keyed finds *)G GETSPI$_RFAFINDS = 16908; (* Total # of RFA finds *)G GETSPI$_READS = 16909; (* Total # of $READS *)H GETSPI$_READBYTES = 16910; (* Total # of bytes read from $READS *)G GETSPI$_CONNECTS = 16911; (* Total connect requr ests *)G GETSPI$_DISCONNECTS = 16912; (* Total disconnect requests *)G GETSPI$_EXTENDS = 16913; (* Total extends *)T GETSPI$_EXTBLOCKS = 16914; (* Total number of blocks file has been extended *)G GETSPI$_FLUSHES = 16915; (* Total number of calls to flush *)G GETSPI$_REWINDS = 16916; (* Total number of calls to REWIND *)G GETSPI$_WRITES = 16917; (* Total number of calls to $WRITE *)G GETSPI$_WRITEBYTES = 16918; s (* Total bytes written using $WRITE *)G GETSPI$_FLCKENQS = 16919; (* Total number of file lock ENQ's *)G GETSPI$_FLCKDEQS = 16920; (* Total number of file lock DEQ's *)L GETSPI$_FLCKCNVS = 16921; (* Total number of file lock conversions *)N GETSPI$_LBLCKENQS = 16922; (* Total number of local buffer lock ENQ's *)N GETSPI$_LBLCKDEQS = 16923; (* Total number of local buffer lock DEQ's *)T GETSPI$_LBLCKCNVS = 16924; (* Total number of local buffer lock convert sions *)O GETSPI$_GBLCKENQS = 16925; (* Total number of global buffer lock ENQ's *)O GETSPI$_GBLCKDEQS = 16926; (* Total number of global buffer lock DEQ's *)U GETSPI$_GBLCKCNVS = 16927; (* Total number of global buffer lock conversions *)P GETSPI$_GSLCKENQS = 16928; (* Total number of global section lock ENQ's *)P GETSPI$_GSLCKDEQS = 16929; (* Total number of global section lock DEQ's *)V GETSPI$_GSLCKCNVS = 16930; (* Total number of global section lock conversiu ons *)H GETSPI$_RLCKENQS = 16931; (* Total number of record lock ENQ's *)H GETSPI$_RLCKDEQS = 16932; (* Total number of record lock DEQ's *)N GETSPI$_RLCKCNVS = 16933; (* Total number of record lock conversions *)H GETSPI$_APPLCKENQS = 16934; (* Total number of append lock ENQ's *)H GETSPI$_APPLCKDEQS = 16935; (* Total number of append lock DEQ's *)N GETSPI$_APPLCKCNVS = 16936; (* Total number of append lock conversions *)N GETSPI$_FLBLKASTS = 16937; (* Total v number of file lock blocking ASTs *)V GETSPI$_LBLBLKASTS = 16938; (* Total number of local buffer lock blocking ASTs *)W GETSPI$_GBLBLKASTS = 16939; (* Total number of global buffer lock blocking ASTs *)W GETSPI$_APPBLKASTS = 16940; (* Total number of shared append lock blocking ASTs *)S GETSPI$_LCACHEHITS = 16941; (* Total cache hits on buckets in local buffers *)W GETSPI$_LCACHETRIES = 16942; (* Total cache attempts on buckets in local buffers *)T GETSPI$_GCACHEHITS = 16w 943; (* Total cache hits on buckets in global buffers *)X GETSPI$_GCACHETRIES = 16944; (* Total cache attempts on buckets in global buffers *)\ GETSPI$_GBRDIRIOS = 16945; (* Total direct IO's causes by global buffer cache reads *)] GETSPI$_GBWDIRIOS = 16946; (* Total direct IO's causes by global buffer cache writes *)[ GETSPI$_LBRDIRIOS = 16947; (* Total direct IO's causes by local buffer cache reads *)\ GETSPI$_LBWDIRIOS = 16948; (* Total direct IO's causes by local x buffer cache writes *)Y GETSPI$_BKTSPLT = 16949; (* Total number of 2 bucket splits done for this file *)] GETSPI$_MBKTSPLT = 16950; (* Total number of multi-bucket splits done for this file *)Q GETSPI$_RMSOPENS = 16951; (* Total number of times file has been opened *)Q GETSPI$_CLOSES = 16952; (* Total number of times file has been closed *)G GETSPI$_GSBLKASTS = 16953; (* Global Section Blocking ASTS *)G GETSPI$_FLWAITS = 16954; (* File lock ENQs fy orced to wait *)G GETSPI$_LBWAITS = 16955; (* Local buffer ENQs forced to wait *)H GETSPI$_GBWAITS = 16956; (* Global buffer ENQs forced to wait *)I GETSPI$_GSWAITS = 16957; (* Global section ENQs forced to wait *)G GETSPI$_RLWAITS = 16958; (* Record lock ENQs forced to wait *)G GETSPI$_APWAITS = 16959; (* Append lock ENQs forced to wait *)G GETSPI$_TOTWAITS = 16960; (* Total ENQs forced to wait *)Y GETSPI$_OUTBUFQUO = 16961; (* Nuz mber of times a process runs out of buffer quota *)V GETSPI$_RMSDEV1 = 16962; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV2 = 16963; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV3 = 16964; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV4 = 16965; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV5 = 16966; (* Reserved for RMS development private monitoring *)V GETSPI$_RMS{ DEV6 = 16967; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV7 = 16968; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV8 = 16969; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV9 = 16970; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV10 = 16971; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV11 = 16972; (* Reserved for RMS development private monit| oring *)V GETSPI$_RMSDEV12 = 16973; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV13 = 16974; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV14 = 16975; (* Reserved for RMS development private monitoring *)V GETSPI$_RMSDEV15 = 16976; (* Reserved for RMS development private monitoring *)T GETSPI$_XQPQIOS = 16977; (* Number of XQP operations for this file by RMS *)G GETSPI$_LCACHEHITPCNT = 16978; (* Local RMS buffer hit p} ercent *)G GETSPI$_GCACHEHITPCNT = 16979; (* Global RMS buffer hit percent *)G GETSPI$_TOTALGET = 16980; (* Total $GET call rate *)G GETSPI$_TOTALPUT = 16981; (* Total $PUT call rate *)G GETSPI$_TOTALFIND = 16982; (* Total $FIND call rate *)G GETSPI$_BYTESGET = 16983; (* Bytes per $GET *)G GETSPI$_BYTESPUT = 16984; (* Bytes per $PUT *)G GETSPI$_BYTESUPDATE = 16985; (* Bytes per ~ $UPDATE *)G GETSPI$_BYTESREAD = 16986; (* Bytes per $READ *)G GETSPI$_BYTESWRITE = 16987; (* Bytes per $WRITE *)G GETSPI$_BLOCKSTRUNCATE = 16988; (* Bytes per $TRUNCATE *)G GETSPI$_BLOCKSEXTEND = 16989; (* Bytes per $EXTEND *)G GETSPI$_ACTIVE_STREAMS = 16990; (* Active connects to file *)G GETSPI$_TOTAL_ENQS = 16991; (* Total new ENQs *)G GETSPI$_TOTAL_DEQS = 16992; ( * Total DEQs *)G GETSPI$_TOTAL_CNVS = 16993; (* Total ENQ conversions *)G GETSPI$_TOTAL_BLKAST = 16994; (* Total blocking ASTs *)G GETSPI$_RMS_ORG = 16995; (* RMS File org *)V GETSPI$_INTCOL_HSHTBL = 16996; (* Interlock collision on global buffer hash table *)R GETSPI$_INTCOL_GBH = 16997; (* Interlock Collision on global buffer header *)V GETSPI$_INTRES_SETIMR = 16998; (* Interlock Collision resolved by call to $SETIMR *)Z GETSPI$_INTNOTRES = 16999; (* Interlock collision not resolved by call to $SETIMR *)G GETSPI$_RESERVEDRMS5 = 17000; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS6 = 17001; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS7 = 17002; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS8 = 17003; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS9 = 17004; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS10 = 170 05; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS11 = 17006; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS12 = 17007; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS13 = 17008; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS14 = 17009; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS15 = 17010; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS16 = 17011; (* Reserved RMS items *)G GETSPI$_RESERVE DRMS17 = 17012; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS18 = 17013; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS19 = 17014; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS20 = 17015; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS21 = 17016; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS22 = 17017; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS23 = 17018; (* Reserved RMS items *)G GET SPI$_RESERVEDRMS24 = 17019; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS25 = 17020; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS26 = 17021; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS27 = 17022; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS28 = 17023; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS29 = 17024; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS30 = 17025; (* Reserved RMS items  *)G GETSPI$_RESERVEDRMS31 = 17026; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS32 = 17027; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS33 = 17028; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS34 = 17029; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS35 = 17030; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS36 = 17031; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS37 = 17032; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS38 = 17033; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS39 = 17034; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS40 = 17035; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS41 = 17036; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS42 = 17037; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS43 = 17038; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS44 = 17039; (* Reserv ed RMS items *)G GETSPI$_RESERVEDRMS45 = 17040; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS46 = 17041; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS47 = 17042; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS48 = 17043; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS49 = 17044; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS50 = 17045; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS51 = 17046 ; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS52 = 17047; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS53 = 17048; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS54 = 17049; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS55 = 17050; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS56 = 17051; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS57 = 17052; (* Reserved RMS items *)G GETSPI$_RESERVEDR MS58 = 17053; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS59 = 17054; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS60 = 17055; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS61 = 17056; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS62 = 17057; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS63 = 17058; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS64 = 17059; (* Reserved RMS items *)G GETSP I$_RESERVEDRMS65 = 17060; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS66 = 17061; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS67 = 17062; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS68 = 17063; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS69 = 17064; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS70 = 17065; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS71 = 17066; (* Reserved RMS items  *)G GETSPI$_RESERVEDRMS72 = 17067; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS73 = 17068; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS74 = 17069; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS75 = 17070; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS76 = 17071; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS77 = 17072; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS78 = 17073; (* Reserved RMS items  *)G GETSPI$_RESERVEDRMS79 = 17074; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS80 = 17075; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS81 = 17076; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS82 = 17077; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS83 = 17078; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS84 = 17079; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS85 = 17080; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS86 = 17081; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS87 = 17082; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS88 = 17083; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS89 = 17084; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS90 = 17085; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS91 = 17086; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS92 = 17087;  (* Reserved RMS items *)G GETSPI$_RESERVEDRMS93 = 17088; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS94 = 17089; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS95 = 17090; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS96 = 17091; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS97 = 17092; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS98 = 17093; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS 99 = 17094; (* Reserved RMS items *)G GETSPI$_RESERVEDRMS100 = 17095; (* Reserved RMS items *)N GETSPI$_LASTRMS = 17096; (* Last item in the monitor specific table *) N(* *)O(* Add new data items specific to MONITOR (not collected by the SPI on a per *)N(* item basis) above this point. *)N(* *) CONST GETSPI$_TABLESIZE = 712; KTYPE getspi$scs_offsets = RECORD (* SCS class information *)G GETSPI$q_scs_nodename : $QUAD; (* System node name *)G GETSPI$l_scs_dgsent : INTEGER; (* Application datagrams sent *)H GETSPI$l_scs_dgrcvd : INTEGER; (* Application datagrams received *)L GETSPI$l_scs_dgdiscard : INTEGER; (* Application datagrams discarded *)G GETSPI$l_scs_msgsent : INTEGER; (* Application messages sent *)H GETSPI$l_scs_msgrcvd : INTEGER; (* Application messages received *)G GETSPI$l_scs_snddats : INTEGER; (* Block send datas initiated *)G GETSPI$l_scs_kbytsent : INTEGER; (* Kbytes sent via send datas *)H GETSPI$l_scs_reqdats : INTEGER; (* Block request datas initiated *)M GETSPI$l_scs_kbytreqd : INTEGER; (* Kbytes received via request datas *)M GETSPI$l_scs_kbytmapd : INTEGER; (* Kbytes mapped for block transfers *)R GETSPI$l_scs_qcr_cnt : INTEGER; (* Times connection queued for send credit *)Y GETSPI$l_scs_qbdt_cnt : INTEGER; (* Times connection queued for buffer descriptor *) END; VCONST GETSPI$c_scs_minsize = 56; (* Size of one collection block for scs class *) KTYPE getspi$disk_offsets = RECORD (* DISK class information for *)G (* the current revision level *)G GETSPI$w_disk_alloclass : $WORD; (* Allocation class *)G GETSPI$l_disk_devname : INTEGER ; (* Device name *)G GETSPI$w_disk_unitnum : $WORD; (* Unit number *)Q GETSPI$b_disk_flags : $BYTE; (* Flags byte (low bit indicates served disk *)G GETSPI$q_disk_nodename : $QUAD; (* Nodename *)G GETSPI$q_disk_volnamel : $QUAD; (* Volume name (low) *)G GETSPI$l_disk_volnameh : INTEGER; (* Volume name (high) *)G GETSPI$l_disk_optcnt : INTEGER; (* Operation count *)G GETSPI$l_ disk_qcount : INTEGER; (* Queue length accumulator *) END; LCONST GETSPI$c_disk_minsize = 37; (* Size of one block *) KTYPE getspi$disk_offsets_rev4 = RECORD (* DISK class information *)G (* for "revision level 4" *)G GETSPI$b_disk_alloclass_rev4 : $BYTE; (* Allocation class *)G GETSPI$l_disk_devname_rev4 : INTEGER; (* Device name *)G GETSPI$w_disk_unitnum_rev4 : $WORD; (* Unit num ber *)V GETSPI$b_disk_flags_rev4 : $BYTE; (* Flags byte (low bit indicates served disk *)G GETSPI$q_disk_nodename_rev4 : $QUAD; (* Nodename *)G GETSPI$q_disk_volnamel_rev4 : $QUAD; (* Volume name (low) *)G GETSPI$l_disk_volnameh_rev4 : INTEGER; (* Volume name (high) *)G GETSPI$l_disk_optcnt_rev4 : INTEGER; (* Operation count *)H GETSPI$l_disk_qcount_rev4 : INTEGER; (* Queue length accumulator *) END; LCONST GETSPI$c _disk_minsize_rev4 = 36; (* Size of one block *) KTYPE getspi$proc_class = RECORD (* PROCESSES Class Data Block *)G GETSPI$l_proc_ipid : INTEGER; (* Internal PID *)G GETSPI$l_proc_uic : INTEGER; (* UIC (Member is low-order word) *)G GETSPI$w_proc_state : $WORD; (* State value *)G GETSPI$b_proc_pri : $BYTE; (* Priority (negative value) *)G GETSPI$o_proc_lname : $OCTA; (* Process name (counted strin g) *)G GETSPI$l_proc_gpgcnt : INTEGER; (* Global page count *)G GETSPI$l_proc_ppgcnt : INTEGER; (* Process page count *)G GETSPI$l_proc_sts : INTEGER; (* PCB Status Vector *)M (* (PCB$V_RES bit clear => swapped out) *)G GETSPI$l_proc_diocnt : INTEGER; (* Direct I/O count *)G GETSPI$l_proc_pageflts : INTEGER; (* Page fault count *)J GETSPI$l_proc_cputim : INTEGER; (* Accumu lated CPU time (in ticks) *)G GETSPI$l_proc_biocnt : INTEGER; (* Buffered I/O count *)G GETSPI$l_proc_epid : INTEGER; (* Extended PID *)J GETSPI$l_proc_efwm : INTEGER; (* Event flag wait mask (for MWAITs) *)I GETSPI$l_proc_rbstran : INTEGER; (* Real balance slot transitions *)G (* Size of process data block *) END; !CONST GETSPI$c_proc_minsize = 67; (*** MODULE $GLOCKDEF ***) LCONST glock$c_nowa it = 1; (* $acquire_lock will not auto-wait *)G glock$c_nospin = 2; (* $acquire_lock will not spin *)R glock$c_nobreak = 4; (* $acquire_lock will not break lock ownership *)Q glock$c_auto_wait = 8; (* kernel mode code waints an automatic wait *)G glock$c_num_nodes = 64; (* max number of gnodes supported *)H glcktbl$c_process = 0; (* lock region is mapped in P2 space *)H glcktbl$c_system = 1; (* lock region is mappe d in S2 space *)G glcktbl$c_private = 2; (* lock region is pre-allocated *) TYPE glock_hist$TYPE = RECORD glock_hist$l_pc : INTEGER; glock_hist$q_lock : $UQUAD; END; CONST glock_hist$c_entries = 10; glock$m_owned = 1; glock$m_broken = 2; glock$m_waiters = 4; glock$m_process = 8; glock$m_reserved_4_7 = 240; glock$m_owner_count = 65280; glock$m_node = 16711680; glock$m_node_seq = 0; glock$m_owner = 0; (TYPE GLOCK$TYPE = RECORD CASE IN TEGER OFG 1: (glock$l_flink : UNSIGNED; (* Forward link (lock handle) *)G glock$l_spare1 : UNSIGNED; (* not used *)G glock$w_size : $UWORD; (* size of structure *)G glock$b_type : $UBYTE; (* Structure type *)G glock$b_subtype : $UBYTE; (* subtype *)G glock$b_ipl : $UBYTE; (* IPL to raise to on acquire *)G glock$b_prev_ipl : $UBYTE; (* IPL to lower to  on release *)G glock$b_rank : $UBYTE; (* Rank of lock *)G glock$b_spare2 : $UBYTE; (* not used *), glock$r_fill_6_ : [BYTE(8)] RECORD END;G glock$q_thread_id : $UQUAD; (* thread id of lock owner *)G glock$q_waiters : $UQUAD; (* bitmask of waiters *)G glock$l_timeout : UNSIGNED; (* wait timeout *)G glock$t_name : PACKED ARRAY [1..16] OF CHAR; (* lock name *)G glock$l_spare4 : UNSIGNED; (* not used *)G glock$l_spare5 : UNSIGNED; (* not used *)K glock$l_history_idx : UNSIGNED; (* next history longword to be used *)X glock$r_history : ARRAY [1..10] OF glock_hist$TYPE; (* acquire - release history *) );G 2: (glock$q_lock : [POS(128)] $UQUAD; (* the lock *) ); 3: ();G 4: (glock$b_owner_count : [POS(136)] $BIT8; (* nested owner count *)G g lock$b_node : [POS(144)] $BIT8; (* node where lock is owned *)G glock$w_node_seq : [POS(152)] $BIT16; (* node sequence number *)G glock$v_owner : [POS(168)] $BIT24; (* owner EPID or CPU # *) );G 5: (glock$b_flags : [POS(128)] $BIT8; (* lock flags *) ); 6: ();G 7: (glock$v_owned : [POS(128)] $BOOL; (* lock is owned *)G glock$v_broken : [POS(129)] $BOOL; (* lock ownership is broken *)G glock$v_waiters : [POS(130)] $BOO L; (* there are waiters *)O glock$v_process : [POS(131)] $BOOL; (* lock is owned in process context *)G glock$v_reserved_4_7 : [POS(132)] $BIT4; (* the unused bits *) ) END; LCONST glock$c_length = 64; (* Length *)G glock$k_length = 64; (* Length *)G glock$c_max_length = 192; (* max length *)G glock$k_max_length = 192; (* max length  *) glock_lock$m_owned = 1; glock_lock$m_broken = 2; glock_lock$m_waiters = 4; glock_lock$m_process = 8;! glock_lock$m_reserved_4_7 = 240;" glock_lock$m_owner_count = 65280; glock_lock$m_node = 16711680; glock_lock$m_node_seq = 0; glock_lock$m_owner = 0; -TYPE glock_lock$TYPE = RECORD CASE INTEGER OF2 1: (glock_lock$r_fill_10_ : [BYTE(8)] RECORD END; );G 2: (glock_lock$q_lock : [POS(0)] $UQUAD; (* the lock *) ); 3: ();H 4: (glock_lock$b_owne r_count : [POS(8)] $BIT8; (* nested owner count *)H glock_lock$b_node : [POS(16)] $BIT8; (* node where lock is owned *)I glock_lock$w_node_seq : [POS(24)] $BIT16; (* node sequence number *)G glock_lock$v_owner : [POS(40)] $BIT24; (* owner EPID or CPU # *) );G 5: (glock_lock$b_flags : [POS(0)] $BIT8; (* lock flags *) ); 6: ();G 7: (glock_lock$v_owned : [POS(0)] $BOOL; (* lock is owned *)I glock_lock$v_broken : [POS(1)] $BOOL; (* lock o wnership is broken *)G glock_lock$v_waiters : [POS(2)] $BOOL; (* there are waiters *)R glock_lock$v_process : [POS(3)] $BOOL; (* lock is owned in process context *)G glock_lock$v_reserved_4_7 : [POS(4)] $BIT4; (* the unused bits *) ) END; CONST glcktbl$m_valid = 1; glcktbl$m_private = 2; glcktbl$m_space = 4; glcktbl$m_reserved_3_7 = 248; *TYPE GLCKTBL$TYPE = RECORD CASE INTEGER OFG 1: (glcktbl$l_flink : UNSIGNED; (* Forward link (region offset) *) G glcktbl$w_lock_size : $UWORD; (* size of locks for the table *)/ glcktbl$r_fill_14_ : [BYTE(1)] RECORD END;G glcktbl$b_accmode : $UBYTE; (* access mode of global section *)G glcktbl$q_reg_id : $UQUAD; (* ID of shared memory region *)R glcktbl$q_reg_phys_size : $UQUAD; (* physical size of shared memory region *)Q glcktbl$q_reg_virt_size : $UQUAD; (* virtual size of shared memory region *)G glcktbl$q_num_locks : $UQUAD; (* number of locks in the reg ion *)G glcktbl$l_free_list : UNSIGNED; (* free glock list *)G glcktbl$l_used_list : UNSIGNED; (* used glock list *)G glcktbl$q_nodes : $UQUAD; (* bitmask of connected nodes *)G glcktbl$q_glock_handle : $UQUAD; (* handle of embedded glock *)G glcktbl$b_glock : ARRAY [1..64] OF $BYTE; (* embedded GLOCK *)P glcktbl$w_ref_counts : ARRAY [1..64] OF $UWORD; (* per-node ref counters *) );G 2: (glcktbl$b_flags : [POS(48)] $ UBYTE; (* lock table flags *) ); 3: ();G 4: (glcktbl$v_valid : [POS(48)] $BOOL; (* lock table is valid *)J glcktbl$v_private : [POS(49)] $BOOL; (* user allocated lock memory *)P glcktbl$v_space : [POS(50)] $BOOL; (* clear for process, set for system *)G glcktbl$v_reserved_3_7 : [POS(51)] $BIT5; (* the unused bits *) ) END; LCONST glcktbl$c_length = 256; (* Length *)G glcktbl$k_length = 256; (* Length *) TYPE glock_nodeb$TYPE = RECORDG glock_nodeb$q_lock_handle : $UQUAD; (* lockhandle for ipint *)I glock_nodeb$b_spares : ARRAY [1..24] OF $BYTE; (* pad to 32 bytes *) END; LCONST glock_nodeb$c_length = 32; (* length *) TYPE gmdb_glock$TYPE = RECORDG gmdb_glock$q_nodes : $UQUAD; (* connected nodes *)G gmdb_glock$q_max_nodes : $UQUAD; (* max nodes supported *)G gmdb_gloc k$q_flags : $UQUAD; (* flags *)G gmdb_glock$q_handle : $UQUAD; (* lock handle *)` gmdb_glock$b_lock : ARRAY [1..64] OF $BYTE; (* GLOCK for the locking portion of the GMDB *)` gmdb_glock$b_lcktbl : ARRAY [1..256] OF $BYTE; (* embedded GLCKTBL for locks in the GMDB *)` gmdb_glock$q_num_tables : ARRAY [1..2] OF $UQUAD; (* number of locktables in the regions *)W gmdb_glock$l_free_list : ARRAY [1..2] OF UNSIGNED; (* lists of free lock tables *)W gmdb_glock$l_used_list : ARRAY [1..2] OF UNSIGNED; (* lists of used lock tables *)b gmdb_glock$q_reg_handle : ARRAY [1..2] OF $UQUAD; (* lock handles for locktable list locks *)\ gmdb_glock$b_prc_lock : ARRAY [1..64] OF $BYTE; (* GLOCK for process locktable lists *)[ gmdb_glock$b_sys_lock : ARRAY [1..64] OF $BYTE; (* GLOCK for system locktable lists *)Q gmdb_glock$r_nodeb : ARRAY [1..64] OF glock_nodeb$TYPE; (* per node cells *) END; LCONST gmdb_glock$c_l ength = 2576; (* Length *) (*** MODULE $HWDEF ***) LCONST HW$_VAX = 1; (* VAX architecture *)G HW$_ALPHA = 2; (* Alpha architecture *)G HW$_IA64 = 3; (* IA64 architecture *)G HW$_X86_64 = 4; (* x86_64 architecture *) (*** MODULE $IA64REGDEF ***) N(* Special Registers  *) LCONST IA64_REG$_IP = 1016; (* getReg only *) IA64_REG$_PSR_UM = 1017; IA64_REG$_PSR = 1019; IA64_REG$_PSR_L = 1019; N(* General Integer Registers *) LCONST IA64_REG$_GP = 1025; (* R1 *)G IA64_REG$_SP = 1036; (* R12 *)G IA64_REG$_TP = 1037; (* R13 *) N(* Constants for 'hint'  instruction *) CONST IA64_REG$HINT_PAUSE = 0; IA64_REG$HINT_WAIT = 64; N(* Application Registers *) CONST IA64_REG$_AR_KR0 = 3072; IA64_REG$_AR_KR1 = 3073; IA64_REG$_AR_KR2 = 3074; IA64_REG$_AR_KR3 = 3075; IA64_REG$_AR_KR4 = 3076; IA64_REG$_AR_KR5 = 3077; IA64_REG$_AR_KR6 = 3078; IA64_REG$_AR_KR7 = 3079; IA64_REG$_AR_RSC = 3088; IA64_REG$_AR_BSP = 3089; IA64_REG$_AR_ BSPSTORE = 3090; IA64_REG$_AR_RNAT = 3091; IA64_REG$_AR_FCR = 3093; IA64_REG$_AR_EFLAG = 3096; IA64_REG$_AR_CSD = 3097; IA64_REG$_AR_SSD = 3098; IA64_REG$_AR_CFLAG = 3099; IA64_REG$_AR_FSR = 3100; IA64_REG$_AR_FIR = 3101; IA64_REG$_AR_FDR = 3102; IA64_REG$_AR_CCV = 3104; IA64_REG$_AR_UNAT = 3108; IA64_REG$_AR_FPSR = 3112; IA64_REG$_AR_ITC = 3116; IA64_REG$_AR_RUC = 3117; IA64_REG$_AR_PFS = 3136; IA64_REG$_AR_LC = 3137; IA64_REG$_AR_EC = 3138; N(* Contr ol Registers *) CONST IA64_REG$_CR_DCR = 4096; IA64_REG$_CR_ITM = 4097; IA64_REG$_CR_IVA = 4098; IA64_REG$_CR_PTA = 4104; IA64_REG$_CR_IPSR = 4112; IA64_REG$_CR_ISR = 4113; IA64_REG$_CR_IIP = 4115; IA64_REG$_CR_IFA = 4116; IA64_REG$_CR_ITIR = 4117; IA64_REG$_CR_IIPA = 4118; IA64_REG$_CR_IFS = 4119; IA64_REG$_CR_IIM = 4120; IA64_REG$_CR_IHA = 4121;G IA64_REG$_CR_IIB0 = 4122; (* getReg only *)G IA64_REG$_CR_IIB1 = 4123; (* getReg only *) IA64_REG$_CR_LID = 4160;G IA64_REG$_CR_IVR = 4161; (* getReg only *) IA64_REG$_CR_TPR = 4162; IA64_REG$_CR_EOI = 4163;G IA64_REG$_CR_IRR0 = 4164; (* getReg only *)G IA64_REG$_CR_IRR1 = 4165; (* getReg only *)G IA64_REG$_CR_IRR2 = 4166; (* getReg only *)G IA64_REG$_CR_IRR3 = 4167; (* getR eg only *) IA64_REG$_CR_ITV = 4168; IA64_REG$_CR_PMV = 4169; IA64_REG$_CR_CMCV = 4170; IA64_REG$_CR_LRR0 = 4176; IA64_REG$_CR_LRR1 = 4177; N(* Indirect Registers for getIndReg() and setIndReg() *) LCONST IA64_REG$_INDR_CPUID = 9000; (* getIndReg only *) IA64_REG$_INDR_DBR = 9001; IA64_REG$_INDR_IBR = 9002; IA64_REG$_INDR_PKR = 9003; IA64_REG$_INDR_PMC = 9004; IA64_REG$_INDR_PMD = 9005; IA64_REG$_INDR_ RR = 9006; (*** MODULE $IACDEF ***) N(*+ *)N(* IMAGE ACTIVATION CONTROL FLAGS *)N(*- *) CONST IAC$M_NOACT = 1; IAC$M_WRITABLE = 2; IAC$M_SHAREABLE = 4; IAC$M_PRIVILEGE = 8; IAC$M_MERGE = 16; IAC$M_EXPREG = 32; IAC$M_P1MERGE = 64; IAC$M_PARANOID = 128; IAC$M_LASTCLU = 256; IAC$M_LIM = 512; IAC$M_RETRY = 1024; IAC$M_NOCMKRNL = 2048; IAC$M_SEQDEVLOD = 4096; IAC$M_XLINKER = 8192; IAC$M_KP_RESHDR = 16384; IAC$M_IS_RESHDR = 32768; IAC$M_NOTSHARED = 65536; IAC$M_GBLCLUSTR = 131072; IAC$M_SHMIDENT = 262144; IAC$M_NOCOPY = 524288; IAC$M_P1MERG_P0 = 1048576; IAC$M_SETVECTOR = 2097152; IAC$M_PROTECTED = 4194304; IAC$M_P1DIRECT = 8388608; IAC$M_DEBUG = 16777216; IAC$M_PERMANENT = 33554432; IAC$M_NOTRANS = 67108864;$ IAC$M_NO_SHARE_LINKAGE = 1342 17728; IAC$M_PAGE_PROTECT = 268435456;G IAC$C_LARGEST = 6; (*LARGEST FLAG CALLER MAY SPECIFY *) &TYPE IAC$TYPE = RECORD CASE INTEGER OF. 1: (IAC$R_IACDEF_BITS : [BYTE(4)] RECORD END; );P 2: (IAC$V_NOACT : [POS(0)] $BOOL; (*DO NOT ACTIVATE THE IMAGE (FOR INSTALL) *)G IAC$V_WRITABLE : [POS(1)] $BOOL; (*MAKE IMAGE FILE WRITABLE *)T IAC$V_SHAREABLE : [POS(2)] $BOOL; (*ACT. SHAREABLE IMAGE FOR EXECUTABLE IMG *)T IAC$V_PRIVILEGE : [POS(3)] $BOOL; (*ACT.  SHARE. IMG FOR PRIV EXECUTABLE IMG *)N IAC$V_MERGE : [POS(4)] $BOOL; (*ACT 2ND EXECUTABLE IMG INTO ADR SPACE *)K IAC$V_EXPREG : [POS(5)] $BOOL; (*MAP IMAGE INTO NEXT FREE VA SPACE *)R IAC$V_P1MERGE : [POS(6)] $BOOL; (*P1 MERGED ACTIVATION (LEGAL INPUT FLAG) *)G IAC$V_PARANOID : [POS(7)] $BOOL; (*GO INTO PARANOIA MODE *)G IAC$V_LASTCLU : [POS(8)] $BOOL; (*LAST CLUSTER FLAG *)G IAC$V_LIM : [POS(9)] $BOOL; (*LINKABLE IMAGE *)G  IAC$V_RETRY : [POS(10)] $BOOL; (*RETRY IMAGE ACTIVATION *)O IAC$V_NOCMKRNL : [POS(11)] $BOOL; (*SHUT OFF CMKRNL,CMEXEC-SYSVER DIFF *)R IAC$V_SEQDEVLOD : [POS(12)] $BOOL; (*LOADING FROM SEQUENTIAL DEVICE (NET) *)G IAC$V_XLINKER : [POS(13)] $BOOL; (*CROSS LINKER FORMAT *)H IAC$V_KP_RESHDR : [POS(14)] $BOOL; (*MAKE IMAGE HEADER RESIDENT *)G IAC$V_IS_RESHDR : [POS(15)] $BOOL; (*IMAGE HEADER IS RESIDENT *)O IAC$V_NOTSHARED : [POS(16)] $BOOL; (*DO N OT SET IS_SHARED IN KFI ENTRY *)R IAC$V_GBLCLUSTR : [POS(17)] $BOOL; (*CURRENTLY PROCESSING GBL ISD CLUSTER *)Q IAC$V_SHMIDENT : [POS(18)] $BOOL; (*SHARED MEMORY IDENT USED FOR GBL SEC *)Q IAC$V_NOCOPY : [POS(19)] $BOOL; (*NO PRIVATE COPY OF SECTION IN EXEC IMG *)R IAC$V_P1MERG_P0 : [POS(20)] $BOOL; (*P1 MERGED ACTIVATION WITH P0 ADDRESS *)G (* RANGE (INTERNAL FLAG ONLY) *)S IAC$V_SETVECTOR : [POS(21)] $BOOL; (*SIGNAL ATLERNATE E NTRY TO SET VECTORS *)M IAC$V_PROTECTED : [POS(22)] $BOOL; (*REQUIRE SHAREABLES BE /PROTECTED *)G IAC$V_P1DIRECT : [POS(23)] $BOOL; (*DIRECT P1 MERGE *)H IAC$V_DEBUG : [POS(24)] $BOOL; (*DEBUG SPECIFIED WITH ACTIVATION *)G IAC$V_PERMANENT : [POS(25)] $BOOL; (*MAKE P1 IMAGE PERMANENT *)O IAC$V_NOTRANS : [POS(26)] $BOOL; (*DO LOOKUP ON UNTRANSLATED IMAGE NAME *)S IAC$V_NO_SHARE_LINKAGE : [POS(27)] $BOOL; (*Activate without shared linkage *)W IAC$V _PAGE_PROTECT : [POS(28)] $BOOL; (*Protect image pages according to acmode *) ) END; "(*** MODULE $ICCDEF IDENT X-4 ***) N(* *)N(* ICC IOSB data structure for data transfer routines *)N(* *)N(* Past the 1st longword, the IOC_ICC fields vary depending on the type of *)N(* request/operation. The diagram attempts to picture those relationships *)N(* below. Longwords 2-5 are done in columns, each column representing the *)N(* value of that longword for that type of request/operation. *)N(* *)*(* +4 +2 +0 *)J(* +---------------------------------------------------------+ *)N(* L1: | Undefined | Return status code | *)J(* |--------------------------- ------------------------------| *)J(* |---------------------------------------------------------| *)#(* | | | | | *)J(* | RECEIVE | REPLY | TRANSCEIVE | CONNECT | *)#(* | | | | | *)N(* L2: | rcv_len | replyto_handle| txrcv_len | RemStat | *)N(* |---------------|---------------|---------------|---------| *)N(* L3: | req_handle | Unused | | Unused | *)N(* |---------------|---------------| reply_buffer | | *)N(* L4: | reply_len | Unused | | | *)N(* |---------------|---------------|---------------| | *)N(* L5: | Unused | Unused | txreply_len | | *)N(* |---------------+---------------+---------------+---------| *)N(* *) *TYPE IOS_ICC$TYP E = RECORD CASE INTEGER OFG 1: (IOS_ICC$w_status : $UWORD; (* return status *)G IOS_ICC$w_reserved : $UWORD; (* reserved *)2 IOS_ICC$r_parameters : [BYTE(16)] RECORD END; );8 2: (IOS_ICC$r_connect : [POS(32), BYTE(16)] RECORD END; );K 3: (IOS_ICC$l_remstat : [POS(32)] UNSIGNED; (* remote status (returned) *) );8 4: (IOS_ICC$r_receive : [POS(32), BYTE(16)] RECORD END; );K 5: (IOS_ICC$l_rcv_len : [POS(32)] UNSIGNED; (* return len (returned) *)P IOS_ICC$l_req_handle : [POS(64)] UNSIGNED; (* request handle (returned) *)O IOS_ICC$l_reply_len : [POS(96)] UNSIGNED; (* reply len (returned) *) );6 6: (IOS_ICC$r_reply : [POS(32), BYTE(16)] RECORD END; );Q 7: (IOS_ICC$l_replyto_handle : [POS(32)] UNSIGNED; (* request_handle (input) *) );; 8: (IOS_ICC$r_transceive : [POS(32), BYTE(16)] RECORD END; );Q 9: (IOS_ICC$l_txrcv_len : [POS(32)] UNSIGNED; (* return length (returned) *)N IOS_ICC$A_reply_buffer : [POS(64)] $QUAD; (* 64-bit bfr addr (Alpha) *)N IOS_ICC$l_txreply_len : [POS(128)] UNSIGNED; (* reply len (input) *) ) END; CONST ICC$C_receive_len = 16; ICC$C_reply_len = 8; ICC$C_transceive_len = 20; N(* *)N(* Length constants *)N(*  *) CONST ICC$C_MAX_ASSOC_LEN = 31; ICC$C_MAX_CONN_DATA_LEN = 1000; N(* *)N(* Connection flag bit definitions (for connect/accept services) *)N(* *) CONST ICC$M_Synch_Mode = 1; 'TYPE ICC_CONNECTION_FLAGS$TYPE = RECORDO ICC$V_Synch_Mode : [POS(0)] $BOOL; (* Set (1) if data transfer routines *)H (* are allowed to return SS$_SYNCH *)G (* to the user. *)% ICC$V_FILL_17_ : [POS(1)] $BIT7; END; N(* *)N(* ICC event codes (first parameter) for the connect/disconnect routines *)N(* *) CONST ICC$C_EV_CONNECT = 0; ICC$C_EV_DISCONNECT = 1; ICC$C_min _event = 0; ICC$C_max_event = 1; N(* *)N(* Default ICC association handle *)N(* *) "CONST ICC$C_DFLT_ASSOC_HANDLE = 1; N(* *)N(* Default flow control value *)N(* *) LCONST ICC$C_DEFAULT_MAXFLOWBUFCNT = 5; (* Pending inbound msgs *) (*** MODULE $IEEEDEF ***) CONST IEEE$K_VERSION_NUMBER = 2; N(* *)N(* IEEE Floating Point control definitions. *)N(* *)N(*  *)`(* The following values are used to set the precision control and rounding control fields via *)](* SYS$IEEE_SET_PRECISION_MODE and SYS$IEEE_SET_ROUNDING_MODE. (Note that one can not set *)N(* precision mode on Alpha). *)N(* *) OCONST IEEE$C_PM_NO_CHANGE = -1; (* No change. Just get previous value *)G IEEE$C_PM_SINGLE = 0; (*  Single Precision *)G IEEE$C_PM_UNUSED = 1; (* This value has no meaning *)G IEEE$C_PM_DOUBLE = 2; (* Double Precision *)G IEEE$C_PM_DOUBLE_EXTENDED = 3; (* Double-Extended Precision *)G IEEE$C_PM_MAX = 3; (* Maximum legal value *)J IEEE$C_RM_NO_CHANGE = -1; (* No change. Just get previous value *)G IEEE$C_RM_NEAREST = 0; (* Nearest (or even) *)G IEEE$C_RM_DOWN = 1;  (* -Infinity (down) *)G IEEE$C_RM_UP = 2; (* +Infinity (up) *)G IEEE$C_RM_TRUNCATE = 3; (* Zero (truncate/chop) *)G IEEE$C_RM_MAX = 3; (* Maximum legal value *) N(* *)R(* The following structure defines bits for the (software) IEEE Floating Point *)U(* control register on Alpha, and for the values passed to SYS$I EEE_SET_FP_CONTROL *)N(* on all architectures (except VAX where it does not exist). *)N(* *) !CONST IEEE$M_TRAP_ENABLE_INV = 2; IEEE$M_TRAP_ENABLE_DZE = 4; IEEE$M_TRAP_ENABLE_OVF = 8; IEEE$M_TRAP_ENABLE_UNF = 16; IEEE$M_TRAP_ENABLE_INE = 32; IEEE$M_TRAP_ENABLE_DNOE = 64; IEEE$M_MAP_DNZ = 8192; IEEE$M_MAP_UMZ = 16384; IEEE$M_INHERIT = 32768; IEEE$M_STATUS_INV = 131072; IEEE$M_STATUS_DZE = 262144; IEEE$M_STATUS_OVF = 524288; IEEE$M_STATUS_UNF = 1048576; IEEE$M_STATUS_INE = 2097152; IEEE$M_STATUS_DNO = 4194304; IEEE$M_PC = 25165824; IEEE$M_RC = 100663296; IEEE$M_WPFP = 134217728; 'TYPE IEEE$TYPE = RECORD CASE INTEGER OF, 1: (IEEE$R_FILL_18_ : [BYTE(8)] RECORD END; );G 2: (IEEE$Q_FLAGS : [POS(0)] $UQUAD; (* Internal flags *) ); 3: ();G 4: ( (* Trap enable flags *)G IEEE$V_TRAP_ENA BLE_INV : [POS(1)] $BOOL; (* invalid operation *)G IEEE$V_TRAP_ENABLE_DZE : [POS(2)] $BOOL; (* divide by zero *)G IEEE$V_TRAP_ENABLE_OVF : [POS(3)] $BOOL; (* overflow *)G IEEE$V_TRAP_ENABLE_UNF : [POS(4)] $BOOL; (* underflow *)G IEEE$V_TRAP_ENABLE_INE : [POS(5)] $BOOL; (* inexact *)V IEEE$V_TRAP_ENABLE_DNOE : [POS(6)] $BOOL; (* denormal operand exception enable *)L IEEE$V_MAP_DNZ : [POS(13)] $BOOL; (* denormal operands mapped t o 0.0 *)F IEEE$V_MAP_UMZ : [POS(14)] $BOOL; (* underflows mapped to 0.0 *)N IEEE$V_INHERIT : [POS(15)] $BOOL; (* inherit FP state on thread create *)G IEEE$V_STATUS_INV : [POS(17)] $BOOL; (* invalid operation *)G IEEE$V_STATUS_DZE : [POS(18)] $BOOL; (* divide by zero *)G IEEE$V_STATUS_OVF : [POS(19)] $BOOL; (* overflow *)G IEEE$V_STATUS_UNF : [POS(20)] $BOOL; (* underflow *)G IEEE$V_STATUS_INE : [POS(21)] $BOOL; (* ine xact *)G IEEE$V_STATUS_DNO : [POS(22)] $BOOL; (* denormal operand *)k (* Precision, rounding, and WPFP are not currently supported on Alpha. *)G IEEE$V_PC : [POS(23)] $BIT2; (* Precision control *)G IEEE$V_RC : [POS(25)] $BIT2; (* Rounding control *)K IEEE$V_WPFP : [POS(27)] $BOOL; (* Whole program floating point mode *) ) END; (*** MODULE $ILEDEF ***) N(*+ *)N(* Define the 32-bit Item List Entry 3 structure *)N(*- *) TYPE ILE3$TYPE = RECORDG ILE3$W_LENGTH : $UWORD; (* Length of buffer in bytes *)G ILE3$W_CODE : $UWORD; (* Item code value *)G ILE3$PS_BUFADDR : UNSIGNED; (* Buffer address *)M ILE3$PS_RETLEN_ADDR : ^$UWORD ; (* Address of word for returned length *) END; LCONST ILE3$K_LENGTH = 12; (* Length of ILE3 *)G ILE3$C_LENGTH = 12; (* Length of ILE3 *) N(*+ *)N(* Define the 64-Bit Item List Entry B structure. This is the 64-bit *)N(* counterpart of the 32-bit item list 3 structure. *)N(*- *) TYPE ILEB_64$TYPE = RECORDG ILEB_64$W_MBO : $UWORD; (* Must be One field *)G ILEB_64$W_CODE : $UWORD; (* Item code value *)G ILEB_64$L_MBMO : INTEGER; (* Must be Minus One field *)G ILEB_64$Q_LENGTH : $UQUAD; (* Length of buffer in bytes *)G ILEB_64$PQ_BUFADDR : $QUAD; (* Buffer address *)R ILEB_64$PQ_RETLEN_ADDR : $QUAD; (* Address of quadword for returned len gth *) END; LCONST ILEB_64$K_LENGTH = 32; (* Length of ILEB *)G ILEB_64$C_LENGTH = 32; (* Length of ILEB *) N(*+ *)N(* Define the 32-bit Item List Entry 2 structure *)N(*- *) TYPE ILE2$TYPE = RECORDG ILE2$W_LENGTH : $UWORD; (* Length of buffer in byte s *)G ILE2$W_CODE : $UWORD; (* Item code value *)G ILE2$PS_BUFADDR : UNSIGNED; (* Buffer address *) END; LCONST ILE2$K_LENGTH = 8; (* Length of ILE2 *)G ILE2$C_LENGTH = 8; (* Length of ILE2 *) N(*+ *)N(* Define the 64-Bit Item List Entry 2 structure. This is the 64-bit *)N(* counterpart o f the 32-bit item list 2 structure. *)N(*- *) TYPE ILEA_64$TYPE = RECORDG ILEA_64$W_MBO : $UWORD; (* Must be One field *)G ILEA_64$W_CODE : $UWORD; (* Item code value *)G ILEA_64$L_MBMO : INTEGER; (* Must be Minus One field *)G ILEA_64$Q_LENGTH : $UQUAD; (* Length of buffer in bytes *)G ILEA_64$PQ_BUFADDR : $QUAD; ( * Buffer address *) END; LCONST ILEA_64$K_LENGTH = 24; (* Length of ILEA *)G ILEA_64$C_LENGTH = 24; (* Length of ILEA *) (*** MODULE $INDICTDEF ***) N(*+ *)N(* *)N(* Object Indictment Definitions *)N(*  *)N(* This file is in [STARLET] to allow other outside developers call the *)N(* sys$indict_object call properly. Today the only group who calls that *)N(* object is Compaq Analyze. *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added to the END of each item list *)N(* so that users will not have to relink. *)N(* *)N(*- *) LCONST INDICT$_VERSION = 1; (* Request information version *)G INDICT$_OBJTYPE = 2; (* Indictment Object type *)J INDICT$_HANDLE = 3; (* Indicted object or failing PFN Page *)G INDICT$_COMPONENT_ID = 4; (* Component Handle ID *)G INDICT$_COMPONENT_TYPE = 5; (* Component Handle Type *)G INDICT$_COMPONENT_SUBTYPE = 6; (* Component Handle Subtype *)G INDICT$_MODULE_ID = 7; (* Module Handle Id *)G INDICT$_MODULE_TYPE = 8; (* Module Handle Type *)G INDICT$_MODULE_SUBTYPE = 9; (* Module Handle Subtype *)H INDICT$_URGENCY = 10; (* Urgency of the indictment request *)G INDICT$_PROBABILITY = 11; (* Probability of correct fault *)G INDICT$_TOTALINDICTMENTS = 12; (* Total number to be indicted *)J INDICT$_DESCRIPTION = 13; (* Readable description of the problem *)G INDICT$_REPORTHANDLE = 14; (* report_handle program name *)L INDICT$_INITIATOR = 15; (* Who called us (e.g. Compaq Analyze). *) (*** MODULE $INITDEF ***) N(*  *)N(* Values for INIT$_DENSITY item code. *)N(* *) LCONST INIT$K_DENSITY_800_BPI = 1; (* 800 bpi tape *)G INIT$K_DENSITY_1600_BPI = 2; (* 1600 bpi tape *)G INIT$K_DENSITY_6250_BPI = 3; (* 6250 bpi tape *)G INIT$K_DENSITY_SINGLE_DISK = 4; (* Single -density RX02 *)G INIT$K_DENSITY_DOUBLE_DISK = 5; (* RX33 or double-density RX02 *)S INIT$K_DENSITY_DD_DISK = 6; (* "Double density" (lower than "High Density") *)G INIT$K_DENSITY_HD_DISK = 7; (* High density diskette *)G INIT$K_DENSITY_COMPACT = 8; (* TA90 with data compaction on *)G INIT$K_DENSITY_ED_DISK = 9; (* New density for RX26 *) N(* *)N(* Value s for INIT$_HOMEBLOCKS item code. *)N(* *) LCONST INIT$K_HOMEBLOCKS_GEOMETRY = 1; (* geometry dependent *)G INIT$K_HOMEBLOCKS_FIXED = 2; (* fixed position *)G INIT$K_HOMEBLOCKS_CONTIGUOUS = 3; (* contiguous *) N(* *)N(* Item codes for $INIT_VOL parameters. *)N(* *) !TYPE BADBLOCKS_LBN_$TYPE = RECORDG INIT$L_BADBLOCKS_LBN : UNSIGNED; (* LBN of first block *)N INIT$L_BADBLOCKS_LBN_COUNT : UNSIGNED; (* Count of blocks to be marked *) END; BADBLOCKS_SEC_$TYPE = RECORDG INIT$L_BADBLOCKS_SECTOR : UNSIGNED; (* Sector of first block *)N INIT$L_BADBLOCKS_SEC_COUNT : UNSIGNED; (* Count of blocks to be marked *) G INIT$L_BADBLOCKS_TRACK : UNSIGNED; (* Track of first block *)H INIT$L_BADBLOCKS_CYLINDER : UNSIGNED; (* Cylinder of first block *) END; N(* Define codes as constants *) QCONST INIT$_ACCESSED = 1; (* Number of directories in system space *)N INIT$_BADBLOCKS_LBN = 2; (* Bad block areas by logical block number *)Q INIT$_BADBLOCKS_SEC = 3; (* Bad block areas by sector, track, cylinder *)G INIT$_CLUST ERSIZE = 4; (* Minimum allocation unit *)G INIT$_COMPACTION = 5; (* Data compaction for TA90 *)G INIT$_NO_COMPACTION = 6; (* No data compaction *)G INIT$_DENSITY = 7; (* Format *)K INIT$_DIRECTORIES = 8; (* Preallocated entries for directories *)G INIT$_ERASE = 9; (* Destroy data on volume *)G INIT$_NO_ERASE = 10; (* Do not destroy data on volume * )G INIT$_EXTENSION = 11; (* Default extension size for files *)G INIT$_FPROT = 12; (* Default protection for files *)L INIT$_HEADERS = 13; (* Number of file headers for index file *)L INIT$_HIGHWATER = 14; (* Set the file highwater mark attribute *)S INIT$_NO_HIGHWATER = 15; (* Do not set the file highwater mark attribute *)N INIT$_INDEX_BEGINNING = 16; (* Place index file at beginning of volume *)G INIT$_INDEX_BLOCK = 17;  (* LBN for index file *)H INIT$_INDEX_END = 18; (* Place index file at end of volume *)K INIT$_INDEX_MIDDLE = 19; (* Place index file at middle of volume *)L INIT$_INTERCHANGE = 20; (* Do not write VMS-specific information *)G INIT$_NO_INTERCHANGE = 21; (* Write VMS-specific information *)M INIT$_LABEL_ACCESS = 22; (* Character for ANSI accessability field *)G INIT$_LABEL_VOLO = 23; (* Text for ANSI owner ID field *)H INIT$ _MAXFILES = 24; (* Maximum number of files on volume *)H INIT$_OVR_ACCESS = 25; (* Override ANSI accessability field *)O INIT$_NO_OVR_ACCESS = 26; (* Do not override ANSI accessability field *)G INIT$_OVR_EXP = 27; (* Override expiration date *)G INIT$_NO_OVR_EXP = 28; (* Do not override expiration date *)G INIT$_OVR_VOLO = 29; (* Override ANSI owner ID field *)J INIT$_NO_OVR_VOLO = 30; (* Do not override ANSI own er ID field *)G INIT$_OWNER = 31; (* UIC for volume *)G INIT$_READCHECK = 32; (* Check all read operations *)G INIT$_NO_READCHECK = 33; (* Do not check all read operations *)G INIT$_SIZE = 34; (* Size of RAM disk *)G INIT$_STRUCTURE_LEVEL_1 = 35; (* Format in Files-11 level 1 *)G INIT$_STRUCTURE_LEVEL_2 = 36; (* Format in Files-11 level 2 *)O INIT$_STRUCTURE_LEVEL_2_SUB_0 = 37; (* Format in subset of Files-11 level 2 *)G INIT$_USER_NAME = 38; (* User name for volume *)G INIT$_VERIFIED = 39; (* Use bad block data on volume *)G INIT$_NO_VERIFIED = 40; (* Ignore bad block data on volume *)G INIT$_VPROT = 41; (* Volume protection *)R INIT$_WINDOW = 42; (* Number of mapping pointers for file windows *)G INIT$_WRITECHECK = 43; (* Check all write operations *)H INIT$_NO_WRITEC HECK = 44; (* Do not check all write operations *)G INIT$_MIN_CLASS = 45; (* Minimum security classfication *)G INIT$_MAX_CLASS = 46; (* Maximum security classfication *)I INIT$_NO_PROTECTION = 47; (* No default security classification *)J INIT$_HOMEBLOCKS = 48; (* Homeblock placement strategy to use *)G INIT$_STRUCTURE_LEVEL_5 = 49; (* Format in Files-11 level 5 *)G INIT$_SHADOW = 50; (* Format disks with Shadowing SCBs *)U INIT$_HARDLINKS = 51; (* Use a linkcount in creating files (ODS-5 only) *)S INIT$_ACCESS_DATES = 52; (* Use access dates for attributes (ODS-5 only) *) INIT$_SPARE = 53;G INIT$_VOLUME_LIMIT = 54; (* Maximum logical volume size *)O INIT$_GPT = 55; (* Create a GUID Partition Table Structure. *)G INIT$_NO_GPT = 56; (* Do not create a GPT *)G INIT$_ERASE_ON_DELETE = 57; (* Set HM2$V_ERASE bit *)G INIT$_E RASE_ON_INIT = 58; (* Perform DSE erase now *)Q INIT$_STRUCTURE_LEVEL_6 = 59; (* Format in Files-11 level 6 (CFS container) *)G INIT$_LOGSIZE = 60; (* CFS log file size *)Q INIT$_SPECIAL_FILES = 61; (* Volume supports special files (ODS-5 only) *)L INIT$_NO_SPECIAL_FILES = 62; (* Volume does not support special files *)S INIT$_LAST_INIT_ITEM = 63; (* Note add all new INIT items before this one. *)G INIT$_MAX_ITEM_CODE = 62; ( * Maximum item code. *)G INIT$S_USER_NAME = 12; (* Max size of user name on volume *)G INIT$S_DEVICE_NAME = 64; (* Max size of device names *)G INIT$C_MIN_SECURITY_BLKCNT = 6; (* Min size of SECURITY.SYS *)G INIT$C_MIN_GPT_BLKCNT = 34; (* Min size of GPT.SYS *) (*** MODULE $IODEF ***) N(*+ *)N(* I/O FUNCTION CODE DEFINITIONS *)N(*- *)N(* *)N(* *** START PHYSICAL I/O FUNCTION CODES *** *)N(* *) LCONST IO$_NOP = 0; (*NO OPERATION *)G IO$_UNLOAD = 1; (*UNLOAD DRIVE *)G IO$_L OADMCODE = 1; (*LOAD MICROCODE *)G IO$_START_BUS = 1; (*START LAVC BUS *)G IO$_SEEK = 2; (*SEEK CYLINDER *)G IO$_SPACEFILE = 2; (*SPACE FILES *)G IO$_STARTMPROC = 2; (*START MICROPROCESSOR *)G IO$_STOP_BUS = 2; (*STOP LAVC BUS *)G IO$_RECAL = 3; (*RECALIBRATE DRIVE  *)G IO$_DUPLEX = 3; (*ENTER DUPLEX MODE *)G IO$_STOP = 3; (*STOP *)G IO$_DEF_COMP = 3; (*DEFINE NETWORK COMPONENT *)G IO$_DRVCLR = 4; (*DRIVE CLEAR *)G IO$_INITIALIZE = 4; (*INITIALIZE *)G IO$_MIMIC = 4; (*ENTER MIMIC MODE *)G IO$_DEF_COMP_LIST = 4; (*DEFINE NETWORK COMPON ENT LIST *)G IO$_FLUSH_ERROR = 4; (*FLUSH SCSI ERRORS *)G IO$_RELEASE = 5; (*RELEASE PORT *)G IO$_SETCLOCKP = 5; (*SET CLOCK (PHYSICAL) *)G IO$_START_ANALYSIS = 5; (*START LAVC FAILURE ANALYSIS *)G IO$_BIND = 5; (*BIND UNITS INTO A STORAGE POOL *)G IO$_PATH_VERIFY = 5; (*VERIFY PATH TO DEVICE *)G IO$_OFFSET = 6; (*OFFSET RE AD HEADS *)G IO$_ERASETAPE = 6; (*ERASE TAPE *)G IO$_STARTDATAP = 6; (*START DATA TRANSFER (PHYSICAL) *)G IO$_STOP_ANALYSIS = 6; (*STOP LAVC FAILURE ANALYSIS *)G IO$_UNBIND = 6; (*REMOVE UNITS FROM A STORAGE POOL *)G IO$_RETCENTER = 7; (*RETURN TO CENTERLINE *)G IO$_QSTOP = 7; (*QUEUE STOP REQUEST *)G IO$_START_MONITOR = 7;  (*START LAVC CHANNEL MONITOR. *)G IO$_CREDISK = 7; (*CREATE A DISK IN A STORAGE POOL *)G IO$_LOCAL_DRAIN = 7; (*DRAIN LOCAL IO *)G IO$_PACKACK = 8; (*PACK ACKNOWLEDGE *)G IO$_STOP_MONITOR = 8; (*STOP LAVC CHANNEL MONITOR. *)G IO$_SEARCH = 9; (*SEARCH FOR SECTOR *)G IO$_SPACERECORD = 9; (*SPACE RECORDS *)G IO$_READRCT = 9;  (*READ REPLACEMENT & CACHING TABLE *)G IO$_REMDISK = 9; (*REMOVE A DISK FROM A STORAGE POOL *)G IO$_WRITECHECK = 10; (*WRITE CHECK DATA *)G IO$_EXPORT = 10; (*EXPORT A DISK FROM A STORAGE POOL *)G IO$_WRITEPBLK = 11; (*WRITE PHYSICAL BLOCK *)G IO$_READPBLK = 12; (*READ PHYSICAL BLOCK *)G IO$_WRITEHEAD = 13; (*WRITE HEADER AND DATA *)G IO$_RDS TATS = 13; (*READ STATISTICS *)G IO$_CRESHAD = 13; (*CREATE A SHADOW SET *)G IO$_READHEAD = 14; (*READ HEADER AND DATA *)G IO$_ADDSHAD = 14; (*ADD MEMBER TO SHADOW SET *)G IO$_WRITETRACKD = 15; (*WRITE TRACK DATA *)H IO$_COPYSHAD = 15; (*PERFORM SHADOW SET COPY OPERATIONS *)G IO$_READTRACKD = 16; (*READ TRACK DATA * )G IO$_REMSHAD = 16; (*REMOVE MEMBER FROM SHADOW SET *)G IO$_AVAILABLE = 17; (*AVAILABLE (DISK AND TAPE CLASS) *)G IO$_SETPRFPATH = 18; (*SET PREFERRED PATH *)G IO$_DISPLAY = 19; (*DISPLAY VOLUME LABEL *)G IO$_REMSHADMBR = 20; (*REMOVE MEMBER FROM SHADOW SET *)G IO$_DSE = 21; (*DATA SECURITY ERASE (AND REWIND) *)G IO$_REREADN = 22; (*REREAD NEXT  *)G IO$_DISK_COPY_DATA = 22; (*DISK_COPY_DATA *)G IO$_MOUNTSHAD = 23; (*CREATE A SHADOW SET *)G IO$_REREADP = 23; (*REREAD PREVIOUS *)G IO$_WHM = 23; (*WRITE HISTORY MANAGEMENT *)G IO$_AS_SETCHAR = 23; (*ASIAN SET CHARACTERISTICS *)G IO$_WRITERET = 24; (*WRITE RETRY *)G IO$_WRITECHECKH = 24; (*WRITE CHECK HEADER AND DATA *)G IO$_AS_SENSECHAR = 24; (*ASIAN SENSE CHARACTERISTICS *)G IO$_ADDSHADMBR = 25; (*ADD MEMBER TO SHADOW SET *)G IO$_READPRESET = 25; (*READIN PRESET *)G IO$_STARTSPNDL = 25; (*START SPINDLE *)G IO$_SETCHAR = 26; (*SET CHARACTERISTICS *)G IO$_SENSECHAR = 27; (*SENSE TAPE CHARACTERISTICS *)G IO$_WRITEMARK = 28; ( *WRITE TAPE MARK *)G IO$_COPYMEM = 28; (*COPY MEMORY *)G IO$_PSXSETCHAR = 28; (*POSIX SET CHARACTERISTICS *)G IO$_WRTTMKR = 29; (*WRITE TAPE MARK RETRY *)G IO$_DIAGNOSE = 29; (*DIAGNOSE *)G IO$_SHADMV = 29; (*PREFORM MOUNT VER. ON SHADOW SET *)G IO$_PSXSENSECHAR = 29; (*POSIX SENSE CHARACTERISTICS *)G IO$_FORMAT = 30;  (*FORMAT *)G IO$_CLEAN = 30; (*CLEAN TAPE *)G IO$_UPSHAD = 30; (*UPDATE SHADOW SYSDEVICE *)I IO$_PHYSICAL = 31; (*HIGHEST PHYSICAL I/O FUNCTION CODE *) N(* *)N(* *** START LOGICAL I/O FUNCTION CODES *** *)N(* *) LCONST IO$_WRITELBLK = 32; (*WRITE LOGICAL BLOCK *)G IO$_READLBLK = 33; (*READ LOGICAL BLOCK *)G IO$_REWINDOFF = 34; (*REWIND AND SET OFFLINE *)G IO$_READRCTL = 34; (*READ RCT SECTOR ZERO *)G IO$_SETMODE = 35; (*SET MODE *)G IO$_REWIND = 36; (*REWIND TAPE *)G IO$_SKIPFILE = 37; (*SKIP  FILES *)G IO$_PSXSETMODE = 37; (*POSIX SET MODE *)G IO$_SKIPRECORD = 38; (*SKIP RECORDS *)G IO$_PSXSENSEMODE = 38; (*POSIX SENSE MODE *)G IO$_SENSEMODE = 39; (*SENSE TAPE MODE *)G IO$_WRITEOF = 40; (*WRITE END OF FILE *)L IO$_TTY_PORT_BUFIO = 40; (*BUFFERED I/O TERMINAL PORT FDT ROUTINE *)G IO$_TTY_PORT = 41;  (*TERMINAL PORT FDT ROUTINE *)G IO$_FREECAP = 41; (*RETURN FREE CAPACITY *)G IO$_FLUSH = 42; (*FLUSH CONTROLLER CACHE *)G IO$_AS_SETMODE = 42; (*ASIAN SET MODE *)G IO$_READLCHUNK = 43; (*READ LARGE LOGICAL BLOCK *)G IO$_AS_SENSEMODE = 43; (*ASIAN SENSE MODE *)G IO$_WRITELCHUNK = 44; (*WRITE LARGE LOGICAL BLOCK *)H IO$_LOGICAL = 47; (*HIGHEST LOGICAL I/O FUNCTION CODE *) N(* *)N(* *** START VIRTUAL I/O FUNCTION CODES *)N(* *)N(* NOTE: *)R(* Virtual IO operations to a non-file oriented device require that the process *)N(* has READ access priviledges for t hat device. Specificly, EXE$QIO calls *)N(* EXE$CHECK_DEVICE_ACCESS for the following virtual IO function codes to *)N(* verify that the the process has read access rights: *)N(* READPBLK,READLBLK,READVBLK, READHEAD,READTRACKD,REREADN,REREADP, *)N(* READPROMPT,TTYREADALL,TTYREADPALL *) LCONST IO$_WRITEVBLK = 48; (*WRITE VIRTUAL BLOCK *)G IO$_READVBLK = 49; (*READ VIRTUAL BLOCK  *)G IO$_ACCESS = 50; (*ACCESS FILE *)G IO$_PSXWRITEVBLK = 50; (*POSIX WRITE VIRTUAL *)G IO$_CREATE = 51; (*CREATE FILE *)G IO$_DEACCESS = 52; (*DEACCESS FILE *)G IO$_PSXREADVBLK = 52; (*POSIX READ VIRTUAL *)G IO$_DELETE = 53; (*DELETE FILE *)G IO$_MODIFY = 54; (*MODIFY FILE  *)G IO$_NETCONTROL = 54; (*X25 NETWORK CONTROL FUNCTION *)G IO$_READPROMPT = 55; (*READ TERMINAL WITH PROMPT *)G IO$_SETCLOCK = 55; (*SET CLOCK *)G IO$_AUDIO = 55; (*CD-ROM AUDIO *)G IO$_ACPCONTROL = 56; (*MISCELLANEOUS ACP CONTROL *)G IO$_STARTDATA = 56; (*START DATA *)G IO$_IOCTLV = 56; (*G ENERIC UNIX IOCTL FUNCTIONS *)G IO$_MANAGE = 56; (*MANAGE DEVICE *)G IO$_MOUNT = 57; (*MOUNT VOLUME *)G IO$_TTYREADALL = 58; (* TERMINAL READ PASSALL *)G IO$_DISMOUNT = 58; (* F64 dismount *)G IO$_TTYREADPALL = 59; (* TERM READ W/PROMPT PASSALL *)G IO$_USBATTR = 59; (* USB device attributes *)G IO$_CONINTREAD = 60;  (* Connect to interrupt readonly *)G IO$_CONINTWRITE = 61; (* Connect to interrupt with write *)G IO$_READDIR = 62; (*READ DIRECTORY CONTENTS *)G IO$_VIRTUAL = 63; (*HIGHEST VIRTUAL I/O FUNCTION *) N(* *)N(* FUNCTION MODIFIER BIT DEFINITIONS *)N(*  *) CONST IO$M_FCODE = 63; IO$M_FMODIFIERS = 65472; IO$M_INHERLOG = 2048; IO$M_ERASE = 1024; IO$M_EXFUNC = 8192; IO$M_DATACHECK = 16384; IO$M_INHRETRY = 32768; IO$M_SYNCSTS = 65536; IO$M_NOVCACHE = 131072; IO$M_BUFOBJ = 262144; IO$M_TRUSTED = 524288; IO$M_FILE_FLUSH = 1048576; IO$M_BARRIER = 2097152; IO$M_RAH_HINT = 4194304; IO$M_INHSEEK = 4096; IO$M_READ_TO_EOF = 2097152; IO$M_REVERSE = 64; IO$M_NOWAIT = 128; IO$M_INHEXTGAP = 4096; IO$M_RETENS ION = 8192; IO$M_ALLOWFAST = 16384; IO$M_MT3_DENSITY = 32768; IO$M_MSCPMODIFS = 256; IO$M_SHADOW = 64; IO$M_LOCATE = 128; IO$M_MSCP_FORMAT = 64; IO$M_ALLHOSTS = 64; IO$M_DISSOLVE = 128; IO$M_NOCLEANUP = 256; IO$M_SPINDOWN = 64; IO$M_EST_COM_PATH = 64; IO$M_LCL_SRC_UNIT = 128; IO$M_RTN_COM_PATH = 256; IO$M_DEALC_ALL = 64; IO$M_DEALC_HRN = 128; IO$M_DEALC_ENTLOC = 256; IO$M_DECR_AFC = 512; IO$M_READ_ALL = 1024; IO$M_READ_HRN = 2048; IO$M_BREAK_CONN = 409 6; IO$M_STEPOVER = 64; IO$M_COPYOP = 256; IO$M_EXISTS = 64; IO$M_CBS = 128; IO$M_BOOTING = 256; IO$M_REQ_MINICOPY = 512; IO$M_OPT_MINICOPY = 1024; IO$M_NOMINICOPY = 2048; IO$M_EXPECT_MOUNT_DONE = 8192; IO$M_VUEX_FC = 512; IO$M_WRITE_SCB = 512; IO$M_UPD_SCBLBN = 8192; IO$M_FORCEPATH = 64; IO$M_PREFERRED_CPU = 128; IO$M_SYS_ASSIGNABLE = 256; IO$M_COMMOD = 64; IO$M_MOVETRACKD = 128; IO$M_DIAGNOSTIC = 256; IO$M_SKPSECINH = 512; IO$M_DELDATA = 64; IO$M_NOMR SP = 64; IO$M_SWAP = 256; IO$M_OPPOSITE = 512; IO$M_CLSEREXCP = 512; IO$M_CHUNKDIAG = 64; IO$M_TBC = 1024; IO$M_ENAREP = 64; IO$M_ACCESS = 64; IO$M_CREATE = 128; IO$M_DELETE = 256; IO$M_MOUNT = 512; IO$M_DMOUNT = 1024; IO$M_REMOUNT = 2048; IO$M_MOVEFILE = 4096; IO$M_RWSHELVED = 16384; IO$M_SETDIR = 32768; IO$M_BINARY = 64; IO$M_PACKED = 128; IO$M_NOW = 64; IO$M_STREAM = 128; IO$M_READERCHECK = 256; IO$M_WRITERCHECK = 512; IO$M_NORSWAIT = 1024; I O$M_MB_ROOM_NOTIFY = 64; IO$M_READATTN = 128; IO$M_WRTATTN = 256; IO$M_SETPROT = 512; IO$M_READERWAIT = 1024; IO$M_WRITERWAIT = 2048; IO$M_NOECHO = 64; IO$M_TIMED = 128; IO$M_CVTLOW = 256; IO$M_NOFILTR = 512; IO$M_DSABLMBX = 1024; IO$M_PURGE = 2048; IO$M_TRMNOECHO = 4096; IO$M_REFRESH = 8192; IO$M_ESCAPE = 16384; IO$M_EXTEND = 32768; IO$M_CANCTRLO = 64; IO$M_ENABLMBX = 128; IO$M_NOFORMAT = 256; IO$M_BREAKTHRU = 512; IO$M_NEWLINE = 1024; IO$M_TYPEAHDC NT = 64; IO$M_MAINT = 64; IO$M_CTRLYAST = 128; IO$M_CTRLCAST = 256; IO$M_HANGUP = 512; IO$M_OUTBAND = 1024; IO$M_TT_CONNECT = 2048; IO$M_TT_DISCON = 4096; IO$M_TT_PROCESS = 8192; IO$M_BRDCST = 16384; IO$M_LOOP = 128; IO$M_UNLOOP = 256; IO$M_LINE_OFF = 512; IO$M_SET_MODEM = 1024; IO$M_LINE_ON = 2048; IO$M_LOOP_EXT = 4096; IO$M_AUTXOF_ENA = 8192; IO$M_AUTXOF_DIS = 16384; IO$M_INCLUDE = 2048; IO$M_TT_ABORT = 4096; IO$M_POSIXINIT = 64; IO$M_POSIXFLO W = 128; IO$M_SET_POSIX = 128; IO$M_CLEAR_POSIX = 256; IO$M_SET_TERMIOS = 512; IO$M_SET_PTC = 1024; IO$M_CLEAR_PTC = 2048; IO$M_FLUSH_TAB = 4096; IO$M_FLUSH_OUTPUT = 8192; IO$M_UPDATE_PTC = 16384; IO$M_OUT_XOFF = 256; IO$M_OUT_XON = 512; IO$M_IN_XOFF = 1024; IO$M_IN_XON = 2048; IO$M_O_NONBLOCK = 64; IO$M_INTERRUPT = 64; IO$M_MULTIPLE = 128; IO$M_LOCKBUF = 256; IO$M_NOBLOCK = 512; IO$M_ABORT = 256; IO$M_SYNCH = 512; IO$M_RESPONSE = 64; IO$M_STARTUP = 64 ; IO$M_SHUTDOWN = 128; IO$M_ATTNAST = 256; IO$M_CTRL = 512; IO$M_SET_MAC = 2048; IO$M_UPDATE_MAP = 4096; IO$M_ROUTE = 8192; IO$M_RD_MEM = 64; IO$M_RD_MODEM = 128; IO$M_RD_COUNT = 256; IO$M_CLR_COUNT = 1024; IO$M_SENSE_MAC = 2048; IO$M_SHOW_MAP = 4096; IO$M_SHOW_ROUTE = 8192;G IO$K_SRRUNOUT = 0; (* Send or rcv until cnt runout *)G IO$K_PTPBSC = 8192; (* Point to point BSC control *)G IO$K_LOOPTEST = 57344; (* Loop test  *) N(* X25 driver WRITEBLK function modifier bits. *) CONST IO$M_MORE = 64; IO$M_QUALIFIED = 128; IO$M_REDIRECT = 64; IO$M_ACCEPT = 128; IO$M_SETEVF = 64; IO$M_WORD = 64; IO$M_SETFNCT = 512; IO$M_DATAPATH = 1024; IO$M_CYCLE = 4096; IO$M_RESET = 8192; IO$M_SETCUADR = 256; IO$M_SETBSIZE = 512; IO$M_SETPOOLSZ = 1024; IO$M_SETENQCNT = 2048; IO$M_CLEAR = 4096; IO$M_LPBEXT = 8192; IO$M_LPBINT = 16384; I O$M_READCSR = 32768; IO$M_NOCTSWAIT = 64; IO$M_SLAVLOOP = 128; IO$M_NODSRWAIT = 256; IO$M_MAINTLOOP = 512; IO$M_LASTBLOCK = 1024; IO$M_INTCLOCK = 4096; IO$M_LT_CONNECT = 64; IO$M_LT_DISCON = 128; IO$M_LT_READPORT = 256; IO$M_LT_MAP_PORT = 512; IO$M_LT_RATING = 1024; IO$M_LT_SOL_INFO = 2048; IO$M_LT_RCV_INFO = 4096; IO$M_LT_SETMODE = 8192; IO$M_LT_SENSEMODE = 16384; IO$M_LT_QUE_CHG_NOTIF = 32768; IO$M_LT_MAP_FILLER = 1; IO$M_LT_MAP_NODNAM = 2; IO$M_LT_MAP_P ORNAM = 4; IO$M_LT_MAP_SRVNAM = 8; IO$M_LT_MAP_LNKNAM = 16; IO$M_LT_MAP_NETADR = 32; IO$M_FLUSH = 64; IO$M_WRITE_BARRIER = 128; IO$M_MKFILL1 = 64; IO$M_ALLOWFAST_NEVER = 128; IO$M_ALLOWFAST_PER_IO = 256; IO$M_ALLOWFAST_ALWAYS = 512; IO$M_ADD = 64; IO$M_IDSTRING = 64; IO$M_SERIALNUM = 128; IO$M_BYPASS_VALID_CHK = 128; %TYPE IO$TYPE = RECORD CASE INTEGER OFN(* Basic I/O function code/modifiers structure *)1 1: (IO$R_FCODE_STRUCTURE :  [BYTE(2)] RECORD END; );G 2: (IO$V_FCODE : [POS(0)] $BIT6; (* Function Code Field *)G IO$V_FMODIFIERS : [POS(6)] $BIT10; (* Function Modifiers Field *)N(* Function modifiers common to all drivers which do error logging *) );2 3: (IO$R_ERRLOG_MODIFIERS : [BYTE(2)] RECORD END; );G 4: (IO$V_INHERLOG : [POS(11)] $BOOL; (* Inhibit error logging *)T (* General disk and tape function code modifiers *) );5 5 : (IO$R_DISK_TAPE_MODIFIERS : [BYTE(3)] RECORD END; );G 6: (IO$V_ERASE : [POS(10)] $BOOL; (* Erase data *)G IO$V_EXFUNC : [POS(13)] $BOOL; (* func<31:16> are valid *)L IO$V_DATACHECK : [POS(14)] $BOOL; (* Write check data after transfer *)G IO$V_INHRETRY : [POS(15)] $BOOL; (* Inhibit error retry *)T (* the following are only valid if EXFUNC is set *)G IO$V_SYNCSTS : [POS(16)] $BOOL; (* allow synchronou s completion *)G IO$V_NOVCACHE : [POS(17)] $BOOL; (* do not use VBN cache *)G IO$V_BUFOBJ : [POS(18)] $BOOL; (* Buffer object I/O *)G IO$V_TRUSTED : [POS(19)] $BOOL; (* I/O from trusted component *)G IO$V_FILE_FLUSH : [POS(20)] $BOOL; (* Flush file to disk *)K IO$V_BARRIER : [POS(21)] $BOOL; (* Insert a barrier after the write *)H IO$V_RAH_HINT : [POS(22)] $BOOL; (* Readahead hint (used by XFC) *)K (* Gene  ral disk function code modifiers *) );0 7: (IO$R_DISK_MODIFIERS : [BYTE(2)] RECORD END; );U 8: (IO$V_INHSEEK : [POS(12)] $BOOL; (* Inhibit implied seek on physical functions *)P (* General disk READ function code modifiers *) );5 9: (IO$R_DISK_READ_MODIFIERS : [BYTE(3)] RECORD END; );T 10: ( (* the following are only valid if EXFUNC is set *)N IO$V_READ_TO_EOF : [POS(21)] $BOOL; (* Reserved for Internal  Use only. *)K (* General tape function code modifiers *) );1 11: (IO$R_TAPE_MODIFIERS : [BYTE(2)] RECORD END; );G 12: (IO$V_REVERSE : [POS(6)] $BOOL; (* Reverse operation *)G IO$V_NOWAIT : [POS(7)] $BOOL; (* No wait for rewind to complete *)O IO$V_INHEXTGAP : [POS(12)] $BOOL; (* Inhibit extended inter-record gap *)j IO$V_RETENSION : [POS(13)] $BOOL; (* Traverse the entire tape to uniformly set the tape's tension. *)V  (* Applies only to IO$_REWIND/REWINDOFF functions *)V IO$V_ALLOWFAST : [POS(14)] $BOOL; (* Allow fast skip by filemarks when enabled *)X (* Applies only to IO$_SKIPFILE/SPACEFILE functions *)k IO$V_MT3_DENSITY : [POS(15)] $BOOL; (* Density Setmode and Sensemode for MTD enhanced tape drivers. *)N(* DU & TU, disk & tape class driver transfer function modifier bits *) );6 13: (IO$R_DUTU_XFER_MODIFIERS : [BYTE(2)] R ECORD END; );G 14: (IO$V_MSCPMODIFS : [POS(8)] $BOOL; (* Use MSCP modifiers in P5 *) );5 15: (IO$R_DU_SENSE_MODIFIERS : [BYTE(1)] RECORD END; );G 16: (IO$V_SHADOW : [POS(6)] $BOOL; (* Shadowing SENSECHAR *)G IO$V_LOCATE : [POS(7)] $BOOL; (* Shadowing Locate function *) );7 17: (IO$R_DU_PACKACK_MODIFIERS : [BYTE(1)] RECORD END; );K 18: (IO$V_MSCP_FORMAT : [POS(6)] $BOOL; (* PACKACK media for formatting *) );5 19: (IO$R_DU_AVAIL_ MODIFIERS : [BYTE(2)] RECORD END; );Q 20: (IO$V_ALLHOSTS : [POS(6)] $BOOL; (* Do available as for all class drivers *)G IO$V_DISSOLVE : [POS(7)] $BOOL; (* Dissolve shadow set *)S IO$V_NOCLEANUP : [POS(8)] $BOOL; (* Normal shadow set cleanup not necessary *) );7 21: (IO$R_DU_REMSHAD_MODIFIERS : [BYTE(1)] RECORD END; );G 22: (IO$V_SPINDOWN : [POS(6)] $BOOL; (* Spin down removed member *) );3 23: (IO$R_DU_DCD_MODIFIERS : [BYTE(2)] RECORD END; );L 24: (IO$V_EST_COM_PATH : [POS(6)] $BOOL; (* Establish Communication Path *)G IO$V_LCL_SRC_UNIT : [POS(7)] $BOOL; (* Local Source Unit *)H IO$V_RTN_COM_PATH : [POS(8)] $BOOL; (* Retain Communication Path *) );3 25: (IO$R_DU_WHM_MODIFIERS : [BYTE(2)] RECORD END; );G 26: (IO$V_DEALC_ALL : [POS(6)] $BOOL; (* Deallocate All *)O IO$V_DEALC_HRN : [POS(7)] $BOOL; (* Deallocate by Host Reference Number *)J IO$V_DEALC_ENTLOC : [POS(8)] $BOOL; (* Deallocate by Entry Locator *)M IO$V_DECR_AFC : [POS(9)] $BOOL; (* Decrement Allocation Failure Count *)G IO$V_READ_ALL : [POS(10)] $BOOL; (* Read All *)I IO$V_READ_HRN : [POS(11)] $BOOL; (* Read by Host Reference Number *)G IO$V_BREAK_CONN : [POS(12)] $BOOL; (* Break Connection *)Q (* HBS driver transfer function modifier bits *)N(* Make sure that IO$V_SHADOW .ne. IO$V_LOCATE .ne. IO$V_COPYOP *)  );9 27: (IO$R_HBS_COPYSHAD_MODIFIERS : [BYTE(2)] RECORD END; );G 28: (IO$V_STEPOVER : [POS(6)] $BOOL; (* Stepover SCBLBN. *)G IO$V_COPYOP : [POS(8)] $BOOL; (* Shad Server Cpy Operation *) );8 29: (IO$R_HBS_CRESHAD_MODIFIERS : [BYTE(2)] RECORD END; );G 30: (IO$V_EXISTS : [POS(6)] $BOOL; (* VU already exists. *)G IO$V_CBS : [POS(7)] $BOOL; (* Controller based shadowing. *)G IO$V_BOOTING : [POS(8)] $BOOL; (* Creshad for sys  tem disk. *)G IO$V_REQ_MINICOPY : [POS(9)] $BOOL; (* MINICOPY required *)G IO$V_OPT_MINICOPY : [POS(10)] $BOOL; (* MINICOPY optional *)G IO$V_NOMINICOPY : [POS(11)] $BOOL; (* NOMINICOPY *)Z IO$V_EXPECT_MOUNT_DONE : [POS(13)] $BOOL; (* All SSMs on command line sent to HBVS *) );5 31: (IO$R_HBS_XFER_MODIFIERS : [BYTE(2)] RECORD END; );G 32: (IO$V_VUEX_FC : [POS(9)] $BOOL; (* Exclude Full copy members *) );4 33: (IO$R_H  BS_SCB_MODIFIERS : [BYTE(2)] RECORD END; );G 34: (IO$V_WRITE_SCB : [POS(9)] $BOOL; (* Write the SCB *)T IO$V_UPD_SCBLBN : [POS(13)] $BOOL; (* Update HVBS on new location of the SCB *)V (* Function modifier bits for Set Preferred Path. *) );4 35: (IO$R_PRFPATH_MODIFIERS : [BYTE(2)] RECORD END; );^ 36: ( (* No modifiers set, passes in a preferred path (DUDRIVER) *)N IO$V_FORCEPATH : [POS(6)] $BOOL  ; (* Make path change happen (DUDRIVER) *)` IO$V_PREFERRED_CPU : [POS(7)] $BOOL; (* Set Fast Path CPU affinity of port (port driver) *)G IO$V_SYS_ASSIGNABLE : [POS(8)] $BOOL; (* system assignable port *)H (* DR driver function modifier bits. *) );/ 37: (IO$R_DR_MODIFIERS : [BYTE(2)] RECORD END; );G 38: (IO$V_COMMOD : [POS(6)] $BOOL; (* Diagnostic command *)G IO$V_MOVETRACKD : [POS(7)] $BOOL; (* Move track descriptor *)  G IO$V_DIAGNOSTIC : [POS(8)] $BOOL; (* Diagnostic function *)G IO$V_SKPSECINH : [POS(9)] $BOOL; (* Skip sector inhibit *)H (* DY driver function modifier bits. *) );/ 39: (IO$R_DY_MODIFIERS : [BYTE(1)] RECORD END; );G 40: (IO$V_DELDATA : [POS(6)] $BOOL; (* Write deleted data mark *)O (* DD driver (TU58) function modifier bits. *) );/ 41: (IO$R_DD_MODIFIERS : [BYTE(1)] RECORD END  ; );L 42: (IO$V_NOMRSP : [POS(6)] $BOOL; (* Do not use MRSP for this operation *)] (* Magnetic tape I/O function modifier bits for the TS11. *) );1 43: (IO$R_TS11_MODIFIERS : [BYTE(2)] RECORD END; );G 44: (IO$V_SWAP : [POS(8)] $BOOL; (* Swap byte (TS11) *)J IO$V_OPPOSITE : [POS(9)] $BOOL; (* Opposite bit for rereads (TS11) *)G (* TU driver function modifier bits *) );/ 45: (IO$R_T  U_MODIFIERS : [BYTE(2)] RECORD END; );N 46: (IO$V_CLSEREXCP : [POS(9)] $BOOL; (* Clear serious exception condition *)c (* Tape class driver segmented and large transfer modifier bits *) );; 47: (IO$R_TU_LG_TRANSFER_MODIFIERS : [BYTE(2)] RECORD END; );G 48: (IO$V_CHUNKDIAG : [POS(6)] $BOOL; (* Allow diagnostic buffers *)G IO$V_TBC : [POS(10)] $BOOL; (* To be continued modifier *)O (* TUDRIVER S  ETMODE function modifier bits. *) );7 49: (IO$R_TU_SETMODE_MODIFIERS : [BYTE(1)] RECORD END; );G 50: (IO$V_ENAREP : [POS(6)] $BOOL; (* Enable media quality *)G (* reporting. *)N(* ACP function modifier bits. *) );0 51: (IO$R_ACP_MODIFIERS : [BYTE(2)] RECORD END; );G 52: (IO$V_ACCESS : [POS(6)] $BOOL; (* Access file *)G IO$V_CREATE : [ POS(7)] $BOOL; (* Create file *)G IO$V_DELETE : [POS(8)] $BOOL; (* Delete file *)G IO$V_MOUNT : [POS(9)] $BOOL; (* Mount volume *)G IO$V_DMOUNT : [POS(10)] $BOOL; (* Dismount volume *)G IO$V_REMOUNT : [POS(11)] $BOOL; (* Remount volume *)G IO$V_MOVEFILE : [POS(12)] $BOOL; (* Move a file *)G IO$V_RWSHELVED : [POS(14)] $BOOL; (* Access shelved files *)G IO$  V_SETDIR : [POS(15)] $BOOL; (* Set file as a directory *)G (* Bit 19 used for TRUSTED *)N(* CR (card reader) driver function modifier bits. *) );/ 53: (IO$R_CR_MODIFIERS : [BYTE(1)] RECORD END; );G 54: (IO$V_BINARY : [POS(6)] $BOOL; (* Binary read *)G IO$V_PACKED : [POS(7)] $BOOL; (* Packed read *)N(* MB (mailbox) driver function modifier bits.  *)N(* The following modifers are for the QIO READ, WRITE and SENSEMODE *)N(* functions. *) );/ 55: (IO$R_MB_MODIFIERS : [BYTE(2)] RECORD END; );I 56: (IO$V_NOW : [POS(6)] $BOOL; (* Do not wait for operation complete *)X IO$V_STREAM : [POS(7)] $BOOL; (* Perform stream mode operation (vs. record mode) *)n IO$V_READERCHECK : [POS(8)] $BOOL; (* Perform operation if no read channel is assigned to the mailbox. *)o IO$V_WRITERCHECK : [POS(9)] $BOOL; (* Perform operation if no write channel is assigned to the mailbox. *)G IO$V_NORSWAIT : [POS(10)] $BOOL; (* Do not allow resource waits *)G (* Bit 13 used for EXFUNC *)G (* Bit 19 used for TRUSTED *)W (* More MB (mailbox) driver function modifier bits. *)N(* Mailbox QIO SETMODE function modifiers.  *) );7 57: (IO$R_MB_SETMODE_MODIFIERS : [BYTE(2)] RECORD END; );k 58: (IO$V_MB_ROOM_NOTIFY : [POS(6)] $BOOL; (* Notify when some (any) space in the mailbox is available. *)H IO$V_READATTN : [POS(7)] $BOOL; (* Request ast on waiting reader *)G IO$V_WRTATTN : [POS(8)] $BOOL; (* Request ast on waiting writer *)G IO$V_SETPROT : [POS(9)] $BOOL; (* Set volume protection *)d IO$V_READERWAIT : [POS(10)] $BOOL; (* Wait for a read channel to be assigned  to the mailbox. *)e IO$V_WRITERWAIT : [POS(11)] $BOOL; (* Wait for a write channel to be assigned to the mailbox. *)M (* TT driver READ function modifier bits. *) );4 59: (IO$R_TT_READ_MODIFIERS : [BYTE(2)] RECORD END; );G 60: (IO$V_NOECHO : [POS(6)] $BOOL; (* Noecho *)G IO$V_TIMED : [POS(7)] $BOOL; (* Timed *)G IO$V_CVTLOW : [POS(8)] $BOOL; (* Convert lower case *)G I O$V_NOFILTR : [POS(9)] $BOOL; (* No filter *)G IO$V_DSABLMBX : [POS(10)] $BOOL; (* Disable mailbox *)G IO$V_PURGE : [POS(11)] $BOOL; (* Purge typeahead *)G IO$V_TRMNOECHO : [POS(12)] $BOOL; (* Terminators are not echoed *)G IO$V_REFRESH : [POS(13)] $BOOL; (* Control-R interrupted read *)K IO$V_ESCAPE : [POS(14)] $BOOL; (* Terminate read on escape sequence *)I IO$V_EXTEND : [POS(15)] $BOOL; (* Used by alternate class d  rivers *)N(* TT driver WRITE function modifier bits. *) );5 61: (IO$R_TT_WRITE_MODIFIERS : [BYTE(2)] RECORD END; );G 62: (IO$V_CANCTRLO : [POS(6)] $BOOL; (* Cancel control O *)G IO$V_ENABLMBX : [POS(7)] $BOOL; (* Enable mailbox *)G IO$V_NOFORMAT : [POS(8)] $BOOL; (* Do not format output *)G IO$V_BREAKTHRU : [POS(9)] $BOOL; (* Broadcast I/O *)G IO$V_NEWLINE : [POS(10)] $BOOL; (* Ou  tput a newline *)R (* TT driver SENSEMODE function modifier bits. *) );9 63: (IO$R_TT_SENSEMODE_MODIFIERS : [BYTE(1)] RECORD END; );I 64: (IO$V_TYPEAHDCNT : [POS(6)] $BOOL; (* Sense typeahead information *)S (* TT driver SETMODE subfunction modifier bits. *) );7 65: (IO$R_TT_SETMODE_MODIFIERS : [BYTE(2)] RECORD END; );G 66: (IO$V_MAINT : [POS(6)] $BOOL; (* Enable maint sub modifiers * )G IO$V_CTRLYAST : [POS(7)] $BOOL; (* Set control Y AST *)G IO$V_CTRLCAST : [POS(8)] $BOOL; (* Set Control C *)G IO$V_HANGUP : [POS(9)] $BOOL; (* Set mode and hang up line *)G IO$V_OUTBAND : [POS(10)] $BOOL; (* Set out of band AST *)J IO$V_TT_CONNECT : [POS(11)] $BOOL; (* Connect to detached terminal *)I IO$V_TT_DISCON : [POS(12)] $BOOL; (* Disconnect detached terminal *)H IO$V_TT_PROCESS : [POS(13)] $BOOL; (* Define cont rolling process *)G IO$V_BRDCST : [POS(14)] $BOOL; (* Define broadcast mask *)Y (* TT driver MAINTIANCE subfunction submodifier bits. *) );5 67: (IO$R_TT_MAINT_MODIFIERS : [BYTE(2)] RECORD END; );G 68: (IO$V_LOOP : [POS(7)] $BOOL; (* Diagnostic loopback *)G IO$V_UNLOOP : [POS(8)] $BOOL; (* Diagnostic reset loopback *)G IO$V_LINE_OFF : [POS(9)] $BOOL; (* Disable line *)G IO$V_SET_MODEM : ! [POS(10)] $BOOL; (* Diagnostic modem control *)G IO$V_LINE_ON : [POS(11)] $BOOL; (* Enable line *)H IO$V_LOOP_EXT : [POS(12)] $BOOL; (* Diagnostic external loopback *)G IO$V_AUTXOF_ENA : [POS(13)] $BOOL; (* Enable auto XOFF *)G IO$V_AUTXOF_DIS : [POS(14)] $BOOL; (* Disable auto XOFF *)K (* TT driver out-of-band modifier bits. *) );9 69: (IO$R_TT_OUTOFBAND_MODIFIERS : [BYTE(2)] RECORD END; );G " 70: (IO$V_INCLUDE : [POS(11)] $BOOL; (* Include character in stream *)G IO$V_TT_ABORT : [POS(12)] $BOOL; (* Abort current I/O *)_ (* Posix terminal driver SETMODE subfunction modifier bits. *) );: 71: (IO$R_TT_PSXSETMODE_MODIFIERS : [BYTE(1)] RECORD END; );O 72: (IO$V_POSIXINIT : [POS(6)] $BOOL; (* Enable initialization subfunctions *)L IO$V_POSIXFLOW : [POS(7)] $BOOL; (* Enable flow control subfunctions *)N(* Posix terminal dr # iver INIT subfunction submodifier bits. *) );9 73: (IO$R_TT_POSIXINIT_MODIFIERS : [BYTE(2)] RECORD END; );K 74: (IO$V_SET_POSIX : [POS(7)] $BOOL; (* Set TT3$M_POSIX and set up PTC *)Q IO$V_CLEAR_POSIX : [POS(8)] $BOOL; (* Clear TT3$M_POSIX (opt. delete PTC) *)G IO$V_SET_TERMIOS : [POS(9)] $BOOL; (* Set up termios *)G IO$V_SET_PTC : [POS(10)] $BOOL; (* Set up all of PTC *)G IO$V_CLEAR_PTC : [POS(11)] $BOOL; (* clear PTC $ *)G IO$V_FLUSH_TAB : [POS(12)] $BOOL; (* flush typeahead buffer *)H IO$V_FLUSH_OUTPUT : [POS(13)] $BOOL; (* flush outstanding writes *)G IO$V_UPDATE_PTC : [POS(14)] $BOOL; (* update PTC *)_ (* Posix terminal driver FLOW subfunction submodifier bits. *) );9 75: (IO$R_TT_POSIXFLOW_MODIFIERS : [BYTE(2)] RECORD END; );G 76: (IO$V_OUT_XOFF : [POS(8)] $BOOL; (* Simulate output XOFF *)G IO$V_OUT_ % XON : [POS(9)] $BOOL; (* Simulate output XON *)G IO$V_IN_XOFF : [POS(10)] $BOOL; (* Simulate input XOFF *)G IO$V_IN_XON : [POS(11)] $BOOL; (* Simulate input XON *)Y (* Posix terminal driver READ function modifier bits. *) );7 77: (IO$R_TT_PSXREAD_MODIFIERS : [BYTE(1)] RECORD END; );G 78: (IO$V_O_NONBLOCK : [POS(6)] $BOOL; (* Nonblock *)] (* Network WRITE and & READ VIRTUAL function modifier bits. *) );; 79: (IO$R_NET_WRITE_READ_MODIFIERS : [BYTE(2)] RECORD END; );G 80: (IO$V_INTERRUPT : [POS(6)] $BOOL; (* Interrupt message *)G IO$V_MULTIPLE : [POS(7)] $BOOL; (* Multiple write/read request *)G IO$V_LOCKBUF : [POS(8)] $BOOL; (* Direct I/O request *)G IO$V_NOBLOCK : [POS(9)] $BOOL; (* Segment message w/o blocking *)G (* Bit 13 used for EXFUNC *)G ' (* Bit 19 used for TRUSTED *)V (* Network ACCESS/DEACCESS function modifier bits. *) );7 81: (IO$R_NET_ACCDEA_MODIFIERS : [BYTE(2)] RECORD END; );H 82: (IO$V_ABORT : [POS(8)] $BOOL; (* Disconnect abort/connect reject *)G IO$V_SYNCH : [POS(9)] $BOOL; (* Synchronous disconnect *)W (* DATALINK driver WRITE subfunction modifier bits. *) );8 83: (IO$R_DLINK_WRITE_MODIFIE ( RS : [BYTE(1)] RECORD END; );N 84: (IO$V_RESPONSE : [POS(6)] $BOOL; (* Transmit this packet as a response *)Z (* DATALINK driver SETMODE subfunction modifier bits. *) );: 85: (IO$R_DLINK_SETMODE_MODIFIERS : [BYTE(2)] RECORD END; );G 86: (IO$V_STARTUP : [POS(6)] $BOOL; (* Start protocol *)G IO$V_SHUTDOWN : [POS(7)] $BOOL; (* Stop protocol *)G IO$V_ATTNAST : [POS(8)] $BOOL; (* Attention AST ) *)L IO$V_CTRL : [POS(9)] $BOOL; (* Controller (ie. not station) function *)G IO$V_SET_MAC : [POS(11)] $BOOL; (* Set MAC parameters *)G IO$V_UPDATE_MAP : [POS(12)] $BOOL; (* Functional Addr Map *)G IO$V_ROUTE : [POS(13)] $BOOL; (* Source Routing Ops *)[ (* DATALINK driver SENSEMODE subfunction modifier bits. *) );< 87: (IO$R_DLINK_SENSEMODE_MODIFIERS : [BYTE(2)] RECORD END; );G 88: (IO$V_RD_MEM : [POS * (6)] $BOOL; (* Read device memory *)G IO$V_RD_MODEM : [POS(7)] $BOOL; (* Read modem status *)G IO$V_RD_COUNT : [POS(8)] $BOOL; (* Read counters *)G IO$V_CLR_COUNT : [POS(10)] $BOOL; (* Clear counters *)G IO$V_SENSE_MAC : [POS(11)] $BOOL; (* Sense MAC parameters *)G IO$V_SHOW_MAP : [POS(12)] $BOOL; (* Functional Addr Map *)G IO$V_SHOW_ROUTE : [POS(13)] $BOOL; (* Source Routing Ops *) );6 8 + 9: (IO$R_X25_WRITE_MODIFIERS : [BYTE(1)] RECORD END; );G 90: (IO$V_MORE : [POS(6)] $BOOL; (* More data follows (M-bit) *)M IO$V_QUALIFIED : [POS(7)] $BOOL; (* Use qualified sub-channel (Q-bit) *)N(* X25 driver ACCESS function modifier bits. *) );7 91: (IO$R_X25_ACCESS_MODIFIERS : [BYTE(1)] RECORD END; );G 92: (IO$V_REDIRECT : [POS(6)] $BOOL; (* Redirect virtual call *)G IO$V_ACCEPT : [POS(7)] $BOOL; (* Accept virtual cal , l *)N(* LPA-11 driver STARTDATA modifier bits. *) );6 93: (IO$R_LPA_START_MODIFIERS : [BYTE(1)] RECORD END; );G 94: (IO$V_SETEVF : [POS(6)] $BOOL; (* Set event flag *)Q (* XA (DR11-W) driver function modifier bits. *) );/ 95: (IO$R_XA_MODIFIERS : [BYTE(2)] RECORD END; );S 96: (IO$V_WORD : [POS(6)] $BOOL; (* Word (interrupt)/block (DMA) mode specifier *)G IO$V_SETFNCT - : [POS(9)] $BOOL; (* Set "FNCT" bits in device CSR *)Q IO$V_DATAPATH : [POS(10)] $BOOL; (* Change UBA datapath (direct/buffered) *)G IO$V_CYCLE : [POS(12)] $BOOL; (* Set "cycle" bit in device CSR *)G IO$V_RESET : [POS(13)] $BOOL; (* Device reset specifier *)J (* 3271 driver function modifier bits. *) );4 97: (IO$R_IBM3271_MODIFIERS : [BYTE(2)] RECORD END; );G 98: (IO$V_SETCUADR : [POS(8)] $BOOL; (* Set a new CU address . *)H IO$V_SETBSIZE : [POS(9)] $BOOL; (* Set a new maximum buffer size *)G IO$V_SETPOOLSZ : [POS(10)] $BOOL; (* Set a new pool size *)G IO$V_SETENQCNT : [POS(11)] $BOOL; (* Set a new ENQ threshold *)G IO$V_CLEAR : [POS(12)] $BOOL; (* Zero status counters *)G IO$V_LPBEXT : [POS(13)] $BOOL; (* Loopback is external loopback *)O IO$V_LPBINT : [POS(14)] $BOOL; (* Loopback is internal loopback (DUP11) *)G IO$V_READCSR : [POS(15)] $BOOL; (* Read CSR / s on DUP11 *)N(* XW driver function modifier bits. *) );/ 99: (IO$R_XW_MODIFIERS : [BYTE(2)] RECORD END; );G 100: (IO$V_NOCTSWAIT : [POS(6)] $BOOL; (* Diagnostic function *)G IO$V_SLAVLOOP : [POS(7)] $BOOL; (* Diagnostic function *)G IO$V_NODSRWAIT : [POS(8)] $BOOL; (* Do not wait for DSR (diag) *)G IO$V_MAINTLOOP : [POS(9)] $BOOL; (* Internal maint loop *)G IO$V_LASTBLOCK : [POS(10)] $B 0 OOL; (* Last block of message *)G IO$V_INTCLOCK : [POS(12)] $BOOL; (* Internal clock *)I (* LAT driver function modifier bits. *) );0 101: (IO$R_LT_MODIFIERS : [BYTE(2)] RECORD END; );V 102: (IO$V_LT_CONNECT : [POS(6)] $BOOL; (* Solicit connection to remote LAT device *)G IO$V_LT_DISCON : [POS(7)] $BOOL; (* Disconnect LAT session *)G IO$V_LT_READPORT : [POS(8)] $BOOL; (* Read LAT device info *)G IO$V_1 LT_MAP_PORT : [POS(9)] $BOOL; (* Map application port *)G IO$V_LT_RATING : [POS(10)] $BOOL; (* Set service rating *)G IO$V_LT_SOL_INFO : [POS(11)] $BOOL; (* Request solicit info *)G IO$V_LT_RCV_INFO : [POS(12)] $BOOL; (* Setup to recive reply *)G IO$V_LT_SETMODE : [POS(13)] $BOOL; (* SETMODE on LTA device *)G IO$V_LT_SENSEMODE : [POS(14)] $BOOL; (* SENSEMODE on LTA device *)G IO$V_LT_QUE_CHG_NOTIF : [POS(15)] $BOOL; (* Queue change AST *) 2 N(* LAT item list definitions for MAP_PORT *) );. 103: (IO$R_LT_MAPITEM : [BYTE(1)] RECORD END; );G 104: (IO$V_LT_MAP_FILLER : [POS(0)] $BOOL; (* Item 0 not used *)G IO$V_LT_MAP_NODNAM : [POS(1)] $BOOL; (* Server node name *)G IO$V_LT_MAP_PORNAM : [POS(2)] $BOOL; (* Server port name *)G IO$V_LT_MAP_SRVNAM : [POS(3)] $BOOL; (* Server service name *)G IO$V_LT_MAP_LNKNAM : [POS(4)] $BOOL; (* Link name 3 *)G IO$V_LT_MAP_NETADR : [POS(5)] $BOOL; (* Server Ethernet Add. *)N (* FSDRIVER function modifiers for Dollar. *) );0 105: (IO$R_FS_MODIFIERS : [BYTE(1)] RECORD END; );G 106: (IO$V_FLUSH : [POS(6)] $BOOL; (* Flush writes *)L IO$V_WRITE_BARRIER : [POS(7)] $BOOL; (* Barrier writes to this point *)N(* MKDRIVER function modifiers for SETMODE *) );8 107: (IO$R_MK_SETMODE_MOD4 IFIERS : [BYTE(2)] RECORD END; );` 108: (IO$V_MKFILL1 : [POS(6)] $BOOL; (* Filler to not coincide with TU modifier (for safety) *)O IO$V_ALLOWFAST_NEVER : [POS(7)] $BOOL; (* Disable all skip by filemarks *)a IO$V_ALLOWFAST_PER_IO : [POS(8)] $BOOL; (* Enable skip by filemarks with i/o fcn modifier *)d IO$V_ALLOWFAST_ALWAYS : [POS(9)] $BOOL; (* Default all IO$_SKIPFILE to use skip by filemarks *)` (* Snapshot-capable disk (SD) driver function mod 5 ifier bits. *) );0 109: (IO$R_SD_MODIFIERS : [BYTE(1)] RECORD END; );G 110: (IO$V_ADD : [POS(6)] $BOOL; (* Add UNIT to an existing pool *)G (* USB usbattr modifiers *) );9 111: (IO$R_USB_USBATTR_MODIFIERS : [BYTE(1)] RECORD END; );X 112: (IO$V_IDSTRING : [POS(6)] $BOOL; (* Request for printer's 1284 device ID string *)^ IO$V_SERIALNUM : [POS(7)] $BOOL; (* Request for printer's serial number (if supported) *)N(* Dis 6 k-specific PACKACK modifiers *) );: 113: (IO$R_DISK_PACKACK_MODIFIERS : [BYTE(1)] RECORD END; );t 114: (IO$V_BYPASS_VALID_CHK : [POS(7)] $BOOL; (* Send PACKACK to driver even if UCB$M_VALID is set (LCLDSKVALID) *) ) END; (*** MODULE $IOSADEF ***) N(*+ *)N(* Define I/O Status Area *)N(*- 7 *) LCONST IOSA$K_LENGTH = 32; (* Length of IOSA *)G IOSA$C_LENGTH = 32; (* Length of IOSA *)G IOSA$S_IOSADEF = 32; (* Size of IOSA *) 'TYPE IOSA$TYPE = RECORD CASE INTEGER OF0 1: (IOSA$R_IOSB_OVERLAY : [BYTE(8)] RECORD END;- IOSA$R_BYTECOUNT : [BYTE(8)] RECORD END;' IOSA$R_CTX : [BYTE(8)] RECORD END;G IOSA$R_RESERVED : [BYTE(8)] 8 RECORD END; (* Just in case we need *) );0 2: (IOSA$R_IOSB : [POS(0), BYTE(8)] RECORD END;G IOSA$Q_COUNT_Q : [POS(64)] $QUAD; (* Force size *)G IOSA$Q_CONTEXT_Q : [POS(128)] $QUAD; (* Force size *)Q IOSA$L_RESL : [POS(192)] ARRAY [1..2] OF UNSIGNED; (* in the future some *) );G 3: (IOSA$W_IOSB_STATUS : [POS(0)] $UWORD; (* Final I/O status *)G IOSA$IH_COUNT : [POS(64)] $QUAD; (* Number of bytes *)G IOSA$PH_C 9 ONTEXT_P : [POS(128)] $QUAD; (* User context area *)G IOSA$Q_RESQ : [POS(192)] $QUAD; (* additional space *) );G 4: (IOSA$IH_CONTEXT : [POS(128)] $QUAD; (* User context area *)G IOSA$Q_CONTEXT_ID : [POS(192)] $QUAD; (* User context ID *) );G 5: (IOSA$W_IOSB_BCNT : [POS(16)] $UWORD; (* 16-bit byte count *). IOSA$r_l : [POS(32), BYTE(4)] RECORD END;Y IOSA$PH_UPDSEC_NOWRT_VA : [POS(128)] $QUAD; (* First VA not written by $UPDSE : C_64 *) );T 6: (IOSA$L_IOSB_DEV_DEPEND : [POS(32)] UNSIGNED; (* 32-bit device dependent info *) );G 7: (IOSA$L_IOSB_PID : [POS(32)] UNSIGNED; (* 32-bit pid *) ); 8: ();O 9: (IOSA$L_IOSB_BCNT : [POS(16)] UNSIGNED; (* 32-bit byte count (unaligned) *)W IOSA$W_IOSB_DEV_DEPEND_HIGH : [POS(48)] $UWORD; (* 16-bit device dependent info *) );4 10: (IOSA$R_STATUSQ : [POS(0), BYTE(8)] RECORD END; );G 11: (IOSA$L_STATUS : [POS(0)] UNSIGNED; (* Status; *)G IOSA$L_RESD : [POS(32)] UNSIGNED; (* Reserved (driver) *) ) END; N(*+ *)N(* $IO_SETUP flag bits *)N(*- *) CONST FIO$M_EXPEDITE = 1; FIO$M_AST_NOFLOAT = 2; FIO$M_CTX = 4; .TYPE SETUP_FLAGS$TYPE = RECORD CASE INTEGER OF$ 1: (FIO$L_FLAGS_LON< GWORD : INTEGER; );, 2: (FIO$R_FLAG_BITS : [BYTE(1)] RECORD END; );I 3: (FIO$V_EXPEDITE : [POS(0)] $BOOL; (* Make this a high-priority I/O *)U FIO$V_AST_NOFLOAT : [POS(1)] $BOOL; (* The AST routine does not use f.p. regs *)Q FIO$V_CTX : [POS(2)] $BOOL; (* Completion notification done via EFN$C_CTX *) ) END; (*** MODULE $IOSBDEF ***) N(*+ *)N(* Define I/O Status Block = *)N(*- *) 'TYPE IOSB$TYPE = RECORD CASE INTEGER OF* 1: (IOSB$R_IO_GET : [BYTE(8)] RECORD END; ); 2: ();G 3: (IOSB$W_STATUS : [POS(0)] $UWORD; (* Final I/O status *) ); 4: ();G 5: (IOSB$W_BCNT : [POS(16)] $UWORD; (* 16-bit byte count *). IOSB$r_l : [POS(32), BYTE(4)] RECORD END; );O 6: (IOSB$L_DEV_DEPEND : [POS(32)] UNSIGNED; (* 32-b> it device dependent info *) );G 7: (IOSB$L_PID : [POS(32)] UNSIGNED; (* 32-bit pid *) ); 8: ();J 9: (IOSB$L_BCNT : [POS(16)] UNSIGNED; (* 32-bit byte count (unaligned) *)R IOSB$W_DEV_DEPEND_HIGH : [POS(48)] $UWORD; (* 16-bit device dependent info *) ); 10: (); 11: ();I 12: (IOSB$L_GETXXI_STATUS : [POS(0)] UNSIGNED; (* Final GETxxI status *) );I 13: (IOSB$L_REG_STATUS : [POS(0)] UNSIGNED; (* Final $Registry status *) ) END; L ? CONST IOSB$K_LENGTH = 8; (* Length of IOSB *)G IOSB$C_LENGTH = 8; (* Length of IOSB *) (*** MODULE $ISSDEF ***) N(*+ *)N(* $PERSONA_CREATE, $PERSONA_CREATE_INT itemlist item codes *)N(* These item codes must match the TLV item codes in [LIB]PSBDEF.SDL *)N(* *)N@ (*- *)N(*+ *)O(* At the time of this modules creation there are four CHP$ item codes which *)O(* must have the same value as their ISS$ counterparts. They are as follows: *)N(* *)N(* ISS$_WORKPRIV = CHP$_PRIV = 3 *)N(* ISS$_CLASS = CA HP$_CLASS = 5 *)N(* ISS$_ADD_RIGHTS = CHP$_ADD_RIGHTS = 7 *)N(* ISS$_UIC = CHP$_UIC = 22 *)N(* *)N(* This is to preserve backward comptibility with $CREATE_USER_PROFILE. *)N(*- *) LCONST ISS$_FLAGS = 1; (* 1 B Persona flags *)G ISS$_ARBFLAGS = 2; (* 2 Unused *)G ISS$_WORKPRIV = 3; (* 3 Working privileges *)G ISS$_MODE = 4; (* 4 Access mode *)G ISS$_WORKCLASS = 5; (* 5 Working classification *)G ISS$_RIGHTS = 6; (* 6 Rights *)G ISS$_ADD_RIGHTS = 7; (* 7 Add to the Rights *)G ISS$_ADD_AUTHRIGHTS = 8; C (* 8 Add to the AuthRights *)G ISS$_USERNAME = 9; (* 9 Username *)G ISS$_ACCOUNT = 10; (* 10 Account *)G ISS$_NOAUDIT = 11; (* 11 No Audit setting *)G ISS$_AUTHPRIV = 12; (* 12 Authorized privileges *)G ISS$_PERMPRIV = 13; (* 13 Permanent privileges *)G ISS$_IMAGE_WORKPRIV = 14; (* 14 Image working privileges *)G ISS$_ENABLED = D 15; (* 15 Rights enabled mask *)G ISS$_AUTHRIGHTS = 16; (* 16 Authorized rights *)G ISS$_MINCLASS = 17; (* 17 Minimum classification *)G ISS$_MAXCLASS = 18; (* 18 Maximum classification *)G ISS$_UID = 19; (* 19 UID *)G ISS$_PERSONA_ID = 20; (* 20 Persona ID *)G ISS$_PRINCIPAL = 21; (* 21 Principal Name *)G ISSE $_UIC = 22; (* 22 UIC *)G ISS$_SWITCH_EXTENSION = 23; (* 23 Switch Extension directive *)G ISS$_PRIMARY_EXTENSION = 24; (* 24 PSB Primary Extension *)G ISS$_EXTENSION_COUNT = 25; (* 25 Count of valid extensions *)G ISS$_EXTENSION_ARRAY = 26; (* 26 Array of valid extension IDs *)G ISS$_RIGHTS_INDEX = 27; (* 27 Rights Chain Index - sets the *) N(* chain for all rights list F *)N(* operations. *) NCONST ISS$_INPUT_DATA = 28; (* 28 Generic buffer for IN/OUT query *)G ISS$_POSIX_UID = 29; (* 29 POSIX User ID *)G ISS$_POSIX_GID = 30; (* 30 POSIX Group ID *) ISS$_MIN_ITEM_CODE = 1; ISS$_MAX_ITEM_CODE = 30; N(*+ *)N(* Bits within item code ISS$_FLAGS G *)N(*- *) CONST ISS$M_FLAG_PERMANENT = 1; ISS$M_FLAG_SECAUDIT = 2; +TYPE ISSFLAGS$TYPE = RECORD CASE INTEGER OF0 1: (ISS$R_ISSFLAGS_BITS : [BYTE(4)] RECORD END; );+ 2: (ISS$V_FLAG_PERMANENT : [POS(0)] $BOOL;* ISS$V_FLAG_SECAUDIT : [POS(1)] $BOOL; ) END; N(* Codes that represent common attributes that are normally *)N(* present in all H persona extensions *) LCONST ISS$_COMMON_FLAGS = 1024; (* Flags *)G ISS$_COMMON_USERNAME = 1025; (* Username *)G ISS$_COMMON_ACCOUNT = 1026; (* Account *)G ISS$_DOMAIN = 1027; (* Domain *)G ISS$_COMMON_PRINCIPAL = 1028; (* principal *) ISS$_DOI = 1029;G ISS$_EXTENSION = 1030; (* Extension I name *)G ISS$_MAKE_TLV = 1031; (* For NSA$MAKE_TLV *)" ISS$_MIN_COMMON_ITEM_CODE = 1024;" ISS$_MAX_COMMON_ITEM_CODE = 1031; N(* Codes that represent attributes specific to each persona extension. *)N(* These codes are shared by all extensions. *)N(* NT Persona extension item codes *) LCONST ISS$_NT_TOKEN = 8192; (* token *)G ISS$_ J NT_SECURITY_SUBJECT = 8193; (* securtiy context *) ISS$_NT_FLAGS = 8194; ISS$_NT_USER_REFCOUNT = 8195; ISS$_NT_PRINCIPAL = 8196;G ISS$_NT_CREDENTIALS = 8197; (* access token + security context *)G ISS$_NT_NT_OWF_PASSWORD = 8198; (* *)G ISS$_NT_LM_OWF_PASSWORD = 8199; (* *)! ISS$_NT_UNPACK_CRED_SIZE = 8200; ISS$_NT_TOKEN_TOKENID = 8201;' ISS$_NT_TOKEN_IMPERSONATELEVEL = 8202;' ISS$_NT_TOKEN_AUTHENTK ICATIONID = 8203;( ISS$_NT_TOKEN_USERANDGROUPCOUNT = 8204;% ISS$_NT_TOKEN_VARIABLELENGTH = 8205;$ ISS$_NT_TOKEN_USERANDGROUPS = 8206;( ISS$_NT_TOKEN_USERANDGROUPS_SID = 8207;# ISS$_NT_TOKEN_PRIMARYGROUP = 8208;! ISS$_NT_TOKEN_PRIVILEGES = 8209;" ISS$_NT_TOKEN_DEFAULTDACL = 8210; ISS$_NT_TOKEN_UNIXUID = 8211; ISS$_NT_TOKEN_UNIXGID = 8212; ISS$_NT_TOKEN_GIDINFO = 8213;# ISS$_NT_TOKEN_GIDINFO_GIDS = 8214; ISS$_NT_TOKEN_UNIXNAME = 8215;! ISS$_NT_TOKEN_DOMAINNAME = 8216; ISS$_NT_TL OKEN_USERNAME = 8217;% ISS$_NT_TOKEN_USERSESSIONKEY = 8218;# ISS$_NT_TOKEN_LMSESSIONKEY = 8219;# ISS$_NT_TOKEN_VARIABLEPART = 8220;! ISS$_NT_TOKEN_GROUP_LIST = 8221;& ISS$_NT_TOKEN_PRIVILEGES_LIST = 8222;# ISS$_NT_SECURITY_SIGNATURE = 8223; ISS$_NT_SECURITY_SMBUID = 8224;( ISS$_NT_SECURITY_PROCESSAUDITID = 8225;# ISS$_NT_SECURITY_PROCESSID = 8226;! ISS$_NT_SECURITY_LOGONID = 8227;# ISS$_NT_SECURITY_LOGONTYPE = 8228;& ISS$_NT_SECURITY_SUBJECTFLAGS = 8229;' ISS$_NT_SECURITY_CONTEXM T_OTHER = 8230; ISS$_MIN_NT_ITEM_CODE = 8192; ISS$_MAX_NT_ITEM_CODE = 8230; N(*+ *)N(* Bits within item code ISS$_ENABLED *)N(*- *) CONST ISS$M_ENABLED_PERSONA = 1; ISS$M_ENABLED_SUBSYSTEM = 2; ISS$M_ENABLED_IMAGE = 4; ISS$M_ENABLED_SYSTEM = 8; ISS$M_ENABLED_TEMPORARY = 16; -TYPE ISSENABLED$TYN PE = RECORD CASE INTEGER OF2 1: (ISS$R_ISSENABLED_BITS : [BYTE(4)] RECORD END; );, 2: (ISS$V_ENABLED_PERSONA : [POS(0)] $BOOL;. ISS$V_ENABLED_SUBSYSTEM : [POS(1)] $BOOL;* ISS$V_ENABLED_IMAGE : [POS(2)] $BOOL;+ ISS$V_ENABLED_SYSTEM : [POS(3)] $BOOL;. ISS$V_ENABLED_TEMPORARY : [POS(4)] $BOOL; ) END; N(* ARB_SUPPORT constants *) !CONST ISS$C_ARB_UNSPECIFIED = -1; ISS$C_ARB_NONE = 0; ISS$C_ARB_CLEAR = 1O ; ISS$C_ARB_READ_ONLY = 2; ISS$C_ARB_FULL = 3;M ISS$C_ARB_FORCE = 4; (* Ignore multiple usermode persona check *) ISS$C_ARB_MAX_CODE = 4; ISS$C_ARB_MIN_CODE = 0; N(* Reserved Persona Ids *) CONST ISS$C_ID_NATURAL = 1; ISS$C_ID_POSIX_REAL = -2; ISS$C_ID_IMAGE_PERSONA = -2; N(*+ *)N(* Persona services control flags P *)N(*- *) CONST ISS$M_IMP_FLAGS = 127;" ISS$M_ASSUME_NODEREF_OLD = 65536;! ISS$M_ASSUME_NOREF_NEW = 131072; ISS$M_CREATE_DEFPRIV = 8; ISS$M_CREATE_DEFCLASS = 16; ISS$M_CREATE_AUTHPRIV = 32; ISS$M_NOACCESS = 1048576; -TYPE ISSSRVCFLG$TYPE = RECORD CASE INTEGER OFN(* *)N(* Common flags Q *)N(* *)/ 1: (ISS$R_COMMON_FLAGS : [BYTE(4)] RECORD END; );I 2: (ISS$V_IMP_FLAGS : [POS(0)] $BIT7; (* Previously defined IMP flags *)G (* *)N(* ASSUME service control flags *)N(* *) );/ 3: (ISS$R_ASSUMR E_FLAGS : [BYTE(4)] RECORD END; );Q 4: (ISS$V_ASSUME_NODEREF_OLD : [POS(16)] $BOOL; (* Do not drop a reference to *)G (* the old (pre-ASSUME) persona *)N ISS$V_ASSUME_NOREF_NEW : [POS(17)] $BOOL; (* Do not add a reference to *)G (* the new (post-ASSUME) persona *)G (* *)N(* CREATE service control flags S *)N(* *) );/ 5: (ISS$R_CREATE_FLAGS : [BYTE(4)] RECORD END; );K 6: (ISS$V_CREATE_DEFPRIV : [POS(3)] $BOOL; (* Create psb w/ def. privs. *)L ISS$V_CREATE_DEFCLASS : [POS(4)] $BOOL; (* Create psb w/ def. class. *)M ISS$V_CREATE_AUTHPRIV : [POS(5)] $BOOL; (* Create psb w/ auth. privs. *)G (* and the assume flags. *)G ISS$V_NOACCESS : [POS(20)] $BOOL; (* T When set, do not access *)G (* the SYSUAF or RIGHTSLIST. *)G (* This is similar to *)G (* CREATE_USER_PROFILE. *) ) END; N(* NT TLV version number *) CONST ISS$K_NT_VERSION_1 = 1; (*** MODULE $JPIDEF ***) N(*+ *)N(*U *)N(* Get Job Process Information Data Identifier Definitions *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added to the END of each item list *)N(* (preceeding the ENV Dlistname item) so that users will not have *)N(* to relink. *)N(*- *)N(* Scheduler policy definitions *) LCONST JPI$K_DEFAULT_POLICY = 0; (* Native VMS scheduling policy *)G JPI$K_PSX_FIFO_POLICY = 1; (* POSIX fifo policy *)G JPI$K_PSX_RR_POLICY = 2; (* POSIX round-robbin pol W icy *)H JPI$K_ALL_THREADS = -2147483648; (* policy affectsall kernel threads *) N(* DEFINE TABLE NUMBERS *)N(* STRUCTURE CODES MUST START AT 1 *) LCONST JPI$C_ADRTYPE = 1; (* ITEM IS ADDRESS OF DATA *)G JPI$C_CTLTYPE = 2; (* ITEM IS IN CONTROL REGION *)G JPI$C_PCBTYPE = 3; (* ITEM IN PCB *)G JPI$C_PHDTYPE = 4; X (* ITEM IN PHD *)G JPI$C_PCBFLDTYPE = 5; (* ITEM IS BIT FIELD *)G JPI$C_PHDFLDTYPE = 6; (* ITEM IS BIT FIELD *)G JPI$C_JIBTYPE = 7; (* ITEM IN JIB (SUBTYPE) *) N(* NOTE: The PSB replaces the ARB within this context! *) LCONST JPI$C_PSBTYPE = 8; (* ITEM IN PSB (SUBTYPE) *)G JPI$C_KTBTYPE = 9; (* ITEM IN KTB (SUBTYPE) Y *)G JPI$C_MAXSTRUC = 6; (* TOTAL OF 6 TABLES *)G JPI$C_LISTEND = 0; (* DEFINE ITMLST TERMINATOR *)G JPI$_CHAIN = -1; (* CHAIN INDICATOR *)G JPI$_GETJPI_CONTROL_FLAGS = -2; (* SPECIAL CONTROL ITEMS *) JPI$M_NO_TARGET_INSWAP = 1; JPI$M_NO_TARGET_AST = 2; JPI$M_IGNORE_TARGET_STATUS = 4; JPI$M_THREAD = 8; JPI$M_NATURAL_PERSONA = 16; JPI$M_FILL1 = 32736; JPI$M_NEED_THREAD_CAP = 32768; Z )TYPE JPICTL$TYPE = RECORD CASE INTEGER OF+ 1: (JPI$R_FILL_62_ : [BYTE(4)] RECORD END; ); 2: (); 3: ();y 4: (JPI$V_NO_TARGET_INSWAP : [POS(0)] $BOOL; (* Do not inswap the target process, (do deliver ASTs if it is resident) *)J JPI$V_NO_TARGET_AST : [POS(1)] $BOOL; (* Do not send AST to target *)P JPI$V_IGNORE_TARGET_STATUS : [POS(2)] $BOOL; (* Don't check target state *)j JPI$V_THREAD : [POS(3)] $BOOL; (* Return information about each thread for multithreaded processe[ s *)u JPI$V_NATURAL_PERSONA : [POS(4)] $BOOL; (* Select natural persona when processing security profile item codes *)T JPI$V_FILL1 : [POS(5)] $BIT10; (* Filler so NEED_THREAD_CAP bit is in bit 15 *) (* NOTE: This bit is used internally by $GETJPI in cluster environments. It is not specified by the user. *)w JPI$V_NEED_THREAD_CAP : [POS(15)] $BOOL; (* Indicates that target node in a cluster needs to know about kernel *)G \ (* threads *) ) END; N(* NOTE: the following constants must match values in $JIBDEF! *) LCONST JPI$K_OTHER = 0; (* JPI$_Mode values *)G JPI$K_NETWORK = 1; (* JPI$_Mode values *)G JPI$K_BATCH = 2; (* JPI$_Mode values *)G JPI$K_INTERACTIVE = 3; (* JPI$_Mode values *)G JPI$K_DETACHED = 0; (* JPI$_JOBTYPE value ] s *)G JPI$K_LOCAL = 3; (* JPI$_JOBTYPE values *)G JPI$K_DIALUP = 4; (* JPI$_JOBTYPE values *)G JPI$K_REMOTE = 5; (* JPI$_JOBTYPE values *) N(* (also BATCH & INTERACTIVE) *) "CONST JPI$M_NEW_MAIL_AT_LOGIN = 1; JPI$M_PASSWORD_CHANGED = 2; JPI$M_PASSWORD_EXPIRED = 4; JPI$M_PASSWORD_WARNING = 8; JPI$M_PASSWORD2_CHANGED = 16; JPI$M_PASSWORD2_E ^ XPIRED = 32; JPI$M_PASSWORD2_WARNING = 64; )TYPE JPILGI$TYPE = RECORD CASE INTEGER OF+ 1: (JPI$R_FILL_64_ : [BYTE(4)] RECORD END; ); 2: (); 3: ();Q 4: (JPI$V_NEW_MAIL_AT_LOGIN : [POS(0)] $BOOL; (* User had new MAIL message(s) *)L JPI$V_PASSWORD_CHANGED : [POS(1)] $BOOL; (* Primary password changed *)U JPI$V_PASSWORD_EXPIRED : [POS(2)] $BOOL; (* Primary password expired on login *)X JPI$V_PASSWORD_WARNING : [POS(3)] $BOOL; (* Primary password expiration imminent _ *)O JPI$V_PASSWORD2_CHANGED : [POS(4)] $BOOL; (* Secondary password changed *)X JPI$V_PASSWORD2_EXPIRED : [POS(5)] $BOOL; (* Secondary password expired on login *)[ JPI$V_PASSWORD2_WARNING : [POS(6)] $BOOL; (* Secondary password expiration imminent *) ) END; T(* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *)N(* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *) LCONST JPI$K_SEARCH_SYMLINK_NONE = 1; (* JPI$_ ` SEARCH_SYMLINK_xxx values *)G JPI$K_SEARCH_SYMLINK_ALL = 2; (* JPI$_SEARCH_SYMLINK_xxx values *)H JPI$K_SEARCH_SYMLINK_NOELLIPS = 3; (* JPI$_SEARCH_SYMLINK_xxx values *) N(* ITEM IDENTIFIERS FOR PCB *) LCONST JPI$_ASTACT = 768; (* ACCESS MODES WITH ACTIVE ASTS *)G JPI$_ASTEN = 769; (* ACCESS MODES WITH ASTS ENABLED *)G JPI$_PRI = 770; (* CURRENT PROCESS PRIORITY *)U JPI$_OWNER a = 771; (* Epid of owner process, if this is a subprocess *)G JPI$_UIC = 772; (* UIC OF PROCESS *)G JPI$_STS = 773; (* PROCESS STATUS *)G JPI$_STATE = 774; (* PROCESS STATE *)G JPI$_MEM = 775; (* MEMBER FIELD OF UIC *)G JPI$_GRP = 776; (* GROUP FIELD OF UIC *)G JPI$_PRIB = 777; (* PROCESS BASE PRIORITY b *)G JPI$_APTCNT = 778; (* ACTIVE PAGE TABLE COUNT *)G JPI$_TMBU = 779; (* TERMINATION MAILBOX UNIT *)H JPI$_GPGCNT = 780; (* GLOBAL PAGE COUNT IN WORKING SET *)I JPI$_PPGCNT = 781; (* PROCESS PAGE COUNT IN WORKING SET *)G JPI$_ASTCNT = 782; (* AST COUNT REMAINING *)G JPI$_BIOCNT = 783; (* BUFFERED I/O COUNT REMAINING *)G JPI$_BIOLM = 784; (* BUFFERED Ic /O LIMIT *)M JPI$_BYTCNT = 785; (* BYTE COUNT REMAINING FOR BUFFERED I/O *)G JPI$_DIOCNT = 786; (* DIRECT I/O COUNT REMAINING *)G JPI$_DIOLM = 787; (* DIRECT I/O COUNT LIMIT *)G JPI$_FILCNT = 788; (* COUNT REMAINING OF OPEN FILES *)N JPI$_TQCNT = 789; (* COUNT REMAINING OF TIMER QUEUE ENTRIES *)G JPI$_EFWM = 790; (* EVENT FLAG WAIT MASK *)G JPI$_EFCS = 791; d (* LOCAL EVENT FLAGS 0-31 *)G JPI$_EFCU = 792; (* LOCAL EVENT FLAGS 32-63 *)G JPI$_PID = 793; (* PROCESS IDENTIFICATION *)G JPI$_BYTLM = 794; (* BUFFERED I/0 BYTE COUNT LIMIT *)G JPI$_PRCCNT = 795; (* SUBPROCESS COUNT *)G JPI$_PRCNAM = 796; (* PROCESS NAME *)G JPI$_TERMINAL = 797; (* LOGIN TERMINAL NAME *)L JPI$_JOBPe RCCNT = 798; (* TOTAL COUNT OF SUBPROCESSES IN A JOB *)G JPI$_ENQCNT = 799; (* ENQUEUE COUNT REMAINING *)G JPI$_ENQLM = 800; (* ENQUEUE COUNT LIMIT *)G JPI$_SWPFILLOC = 801; (* SWAP FILE BACKING STORE ADDRESS *)L JPI$_MODE = 802; (* MODE VALUE (FROM STS) - DEFINED ABOVE *)G JPI$_JOBTYPE = 803; (* JOB TYPE CODE *)G JPI$_PROC_INDEX = 804; (* PROCESS INDEX f *)G JPI$_MASTER_PID = 805; (* MASTER PROCESS PID *)G JPI$_RIGHTSLIST = 806; (* PSB composite rights *)G JPI$_CPU_ID = 807; (* CPU ID *)G JPI$_STS2 = 808; (* Second process status longword *)O JPI$_NODENAME = 809; (* Name of node on which process is running *)O JPI$_NODE_CSID = 810; (* CSID of node on which process is running *)V JPI$_NODE_VERSION = 811; (* g VMS version of node on which process is running *)G JPI$_TT_PHYDEVNAM = 812; (* Physical device name of terminal *)G JPI$_TT_ACCPORNAM = 813; (* Access port name of terminal *)G JPI$_PROCESS_RIGHTS = 814; (* PSB persona rights *)G JPI$_SYSTEM_RIGHTS = 815; (* PSB system rights *)G JPI$_IMAGE_RIGHTS = 816; (* PSB protected sub-system rights *)Z JPI$_RIGHTS_SIZE = 817; (* Approximate size (in bytes) of all PSB rights lih sts *)G JPI$_CLASSIFICATION = 818; (* PSB current MAC classification *)G JPI$_SCHED_POLICY = 819; (* Scheduler policy *)N JPI$_RMS_FILEPROT = 820; (* Process default file protection for RMS *)H JPI$_MULTITHREAD = 821; (* Kernel threads - max thread count *)G JPI$_KT_COUNT = 822; (* Kernel threads - thread count *)J JPI$_INITIAL_THREAD_PID = 823; (* Kernel threads - initial thread PID *)G JPI$_THREAD_INDEX = 824; (* Kernel thri eads - thread index *)J JPI$_CURRENT_USERCAP_MASK = 825; (* KTB current user capabilities mask *)N JPI$_PERMANENT_USERCAP_MASK = 826; (* KTB permanent user capabilities mask *)G JPI$_CURRENT_AFFINITY_MASK = 827; (* KTB current affinity mask *)G JPI$_PERMANENT_AFFINITY_MASK = 828; (* KTB permanent affinity mask *)G JPI$_PERSONA_ID = 829; (* Persona (PSB) id *)G JPI$_PERSONA_AUTHPRIV = 830; (* PSB authorized privilege mask *)M JPI$_PERSONA_PERMPRIV = 8j 31; (* PSB permanent (default) privilege mask *)J JPI$_PERSONA_WORKPRIV = 832; (* PSB working (active) privilege mask *)Z JPI$_IMAGE_WORKPRIV = 833; (* PSB installed image working (active) privilege mask *)X JPI$_PERSONA_RIGHTS_SIZE = 834; (* Approximate size (in bytes) of PSB persona rights *)G JPI$_PERSONA_RIGHTS = 835; (* PSB persona rights *)g JPI$_SUBSYSTEM_RIGHTS_SIZE = 836; (* Approximate size (in bytes) of PSB protected sub-system rights *)G JPI$_SUBSYSTEk M_RIGHTS = 837; (* PSB protected sub-system rights *)` JPI$_INSTALL_RIGHTS_SIZE = 838; (* Approximate size (in bytes) of PSB installed image rights *)G JPI$_INSTALL_RIGHTS = 839; (* PSB installed image rights *)W JPI$_SYSTEM_RIGHTS_SIZE = 840; (* Approximate size (in bytes) of PSB system rights *)G JPI$_CURRENT_CAP_MASK = 841; (* KTB current capabilities mask *)G JPI$_PERMANENT_CAP_MASK = 842; (* KTB permanent capabilities mask *)G JPI$_SCHED_CLASS_NAME = 843; (* l Scheduling class name *)G JPI$_HOME_RAD = 844; (* KTB Home RAD *)G JPI$_POSIX_SID = 845; (* Session ID for POSIX and COE *)I JPI$_POSIX_PGID = 846; (* Process Group ID for POSIX and COE *)R JPI$_CREATOR = 847; (* Epid of creator process (Unix-style parent) *)G JPI$_KRNLTIM = 848; (* Kernel mode cpu time *)G JPI$_EXECTIM = 849; (* Executive mode cpu time *)G JPI$_SUPRTI m M = 850; (* Supervisor mode cpu time *)G JPI$_USERTIM = 851; (* User mode cpu time *)N JPI$_ORG_BYTLM = 852; (* Original buffered I/O byte count limit *)Q JPI$_DEADLOCK_WAIT = 853; (* Per-process sub-second deadlock wait value *)P JPI$_KT_LIMIT = 854; (* Per-process multiple kernel threads limit *) N(* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) LCONST JPI$_LASTPCB = 855; n (* MAX INDEX IN PCB TABLE *) N(* ITEM IDENTIFIERS FOR PHD *) LCONST JPI$_CURPRIV = 1024; (* CURRENT PROCESS PRIVILEGE MASK *)G JPI$_WSAUTH = 1025; (* AUTHORIZED WORKING SET SIZE *)G JPI$_WSQUOTA = 1026; (* QUOTA ON WORKING SET SIZE *)G JPI$_DFWSCNT = 1027; (* DEFAULT WORKING SET SIZE *)S JPI$_FREP0VA = 1028; (* FIRST FREE VIRTUAL ADDR. AT END OF P0 SPo ACE *)K JPI$_FREP1VA = 1029; (* FIRST FREE ADDR. AT END OF P1 SPACE *)G JPI$_DFPFC = 1030; (* DEFAULT PAGE FAULT CLUSTER *)G JPI$_CPUTIM = 1031; (* ACCUMULATED CPU TIME *)G JPI$_PRCLM = 1032; (* SUBPROCESS QUOTA *)G JPI$_ASTLM = 1033; (* AST LIMIT *)G JPI$_PAGEFLTS = 1034; (* COUNT OF PAGE FAULTS *)G JPI$_DIRIO = 1035; (* PROCESS DIREp CT I/O OPERATIONS *)G JPI$_BUFIO = 1036; (* PROCESS BUFFERED I/O OPERATIONS *)G JPI$_CPULIM = 1037; (* LIMIT ON CPUTIM FOR PROCESS *)G JPI$_PGFLQUOTA = 1038; (* MAX. VIRTUAL PAGE COUNT *)G JPI$_FILLM = 1039; (* OPEN FILE LIMIT *)G JPI$_TQLM = 1040; (* TIMER QUEUE LIMIT *)G JPI$_WSSIZE = 1041; (* CURRENT WORKING SET SIZE *)G JPI$_AUTHPRIV = 1042; (* q PSB authorized privilege mask *)] JPI$_IMAGPRIV = 1043; (* PHD installed image permanent (default) privilege mask *)Q JPI$_PAGFILCNT = 1044; (* Remaining paging file quota of the process *)L JPI$_FREPTECNT = 1045; (* ROOM FOR EXPANSION OF P0 OR P1 SPACE *)G JPI$_WSEXTENT = 1046; (* EXTENT OF WORKING SET SIZE *)G JPI$_WSAUTHEXT = 1047; (* MAX EXTENT OF WORKING SET SIZE *)G JPI$_AUTHPRI = 1048; (* AUTHORIZED PRIORITY FOR $Sr ETPRI *)G JPI$_PAGFILLOC = 1049; (* PAGE FILE BACKING STORE ADDRESS *)J JPI$_IMAGECOUNT = 1050; (* IMAGE COUNTER (CLOCKED BY RUNDOWN) *)G JPI$_PHDFLAGS = 1051; (* PROCESS HEADER FLAGS WORD *)G JPI$_VP_CPUTIM = 1052; (* VECTOR CPU TIME *)Q JPI$_VP_CONSUMER = 1053; (* Flag -- is this process a vector consumer? *)G JPI$_P0_FIRST_FREE_VA_64 = 1054; (* First free VA in P0 space *)G JPI$_P1_FIRST_FREE_VA_64 = 1055; (* F s irst free VA in P1 space *)G JPI$_P2_FIRST_FREE_VA_64 = 1056; (* First free VA in P2 space *)T JPI$_IMAGE_AUTHPRIV = 1057; (* PHD installed image authorized privilege mask *)] JPI$_IMAGE_PERMPRIV = 1058; (* PHD installed image permanent (default) privilege mask *) N(* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) LCONST JPI$_LASTPHD = 1059; (* MAX INDEX IN PROCESS HEADER *) N(* ITEM IDENTIFIERS FOR CONTROL REGION t *) LCONST JPI$_VIRTPEAK = 512; (* PEAK VIRTUAL SIZE *)G JPI$_WSPEAK = 513; (* PEAK WORKING SET SIZE *)G JPI$_USERNAME = 514; (* PSB username string *)G JPI$_ACCOUNT = 515; (* PSB account name string *)M JPI$_PROCPRIV = 516; (* PSB permanent (default) privilege mask *)G JPI$_VOLUMES = 517; (* VOLUMES MOUNTED *)I JPI$_LOGINTu IM = 518; (* TIME OF LOGIN OR PROCESS CREATION *)G JPI$_IMAGNAME = 519; (* CURRENT IMAGE FILE NAME *)G JPI$_SITESPEC = 520; (* PER-PROCESS SITE-SPECIFIC CELL *)G JPI$_MSGMASK = 521; (* PROCESS DEFAULT MESSAGE FLAGS *)H JPI$_CLINAME = 522; (* COMMAND LANGUAGE INTERPRETER NAME *)N JPI$_TABLENAME = 523; (* COMMAND LANGUAGE INTERPRETER TABLE NAME *)P JPI$_CREPRC_FLAGS = 524; (* $CREPRC FLAGS USED TO CREATE Tv HIS PROCESS *)G JPI$_UAF_FLAGS = 525; (* FLAGS FROM UAF RECORD *)Q JPI$_MAXDETACH = 526; (* MAXIMUM DETACHED PROCESSES FOR SINGLE USER *)O JPI$_MAXJOBS = 527; (* MAXIMUM ACTIVE PROCESSES FOR SINGLE USER *)G JPI$_SHRFILLM = 528; (* MAXIMUM OPEN SHARED FILES *)M JPI$_FAST_VP_SWITCH = 529; (* NUMBER OF FAST VECTOR CONTEXT SWITCHES *)M JPI$_SLOW_VP_SWITCH = 530; (* NUMBER OF SLOW VECTOR CONTEXT SWITCHES *)G JPI$_LAST_LOGINw _I = 531; (* Last interactive login *)G JPI$_LAST_LOGIN_N = 532; (* Last non-interactive login *)H JPI$_LOGIN_FAILURES = 533; (* Number of login failures at login *)G JPI$_LOGIN_FLAGS = 534; (* Miscellaneous login flags *)G JPI$_RMS_DFMBC = 535; (* RMS default: multi-block count *)L JPI$_RMS_DFMBFSDK = 536; (* " " multi-buffer count for disk (SEQ) *)G JPI$_RMS_DFMBFSMT = 537; (* " " multi-buffer count for tape *)Mx JPI$_RMS_DFMBFSUR = 538; (* " " multi-buffer count for unit record *)K JPI$_RMS_DFMBFREL = 539; (* " " multi-buffer count for REL files *)L JPI$_RMS_DFMBFIDX = 540; (* " " multi-buffer count for ISAM files *)G JPI$_RMS_PROLOGUE = 541; (* " " prolog *)G JPI$_RMS_EXTEND_SIZE = 542; (* " " file extend quantity *)G JPI$_RMS_DFNBC = 543; (* " " network block count *)G JPI$_RMS_DFLRL = 544; (* " " Heuristiy c default LRL *)K JPI$_RMS_HEURISTIC = 545; (* " " Heuristic enable/disable setting *)G JPI$_PARSE_STYLE_PERM = 546; (* Parse style for life of process *)G JPI$_PARSE_STYLE_IMAGE = 547; (* Parse style for life of image *)G JPI$_RMSD6 = 548; (* RMS dynamic parameter RMSD6 *)L JPI$_RMS_QUERY_LOCK = 549; (* RMS QUERY_LOCK enable/disable setting *)K JPI$_CASE_LOOKUP_PERM = 550; (* Case lookup mode for life of process *)I JPI$_CASE_LOOKUP_IMAGE z = 551; (* Case lookup mode for life of image *)G JPI$_UNITS = 552; (* Bytes or Blocks *)G JPI$_TOKEN = 553; (* Small or Large Token *)N JPI$_SEARCH_SYMLINK_PERM = 554; (* Symlink search mode for life of process *)L JPI$_SEARCH_SYMLINK_TEMP = 555; (* Symlink search mode for life of image *) N(* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) LCONST JPI$_LASTCTL = 556; (* MAX INDEX IN CONTRO { L REGION *) N(* ITEM IDENTIFIERS FOR ADDRESS DATA *) QCONST JPI$_EXCVEC = 256; (* ADDRESS OF "EXCEPTION VECTOR" VECTOR *)P JPI$_FINALEXC = 257; (* ADDRESS OF LAST CHANCE EXCEPTION VECTORS *) N(* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) LCONST JPI$_LASTADR = 258; (* MAX INDEX IN ADDRESS TABLE *) N(* ITEM IDENTIFIERS FOR PCBFLD | *)N(* ADD ITEM-CODES BEFORE THIS COMMENT *) LCONST JPI$_LASTPCBFLD = 1280; (* MAX INDEX IN PCBFLD TABLE *) N(* ITEM IDENTIFIERS FOR PHDFLD *)N(* ADD ITEM-CODES BEFORE THIS COMMENT *) LCONST JPI$_LASTPHDFLD = 1536; (* MAX INDEX IN PHDFLD TABLE *) (*** MODULE $JPIFDEF ***) N(*+ } *)N(* *)N(* Get Job Process Information "Fast" Data Identifier Definitions *)N(* *)N(*- *) CONST JPIF$M_UASTACT = 1; JPIF$C_UASTACT = 0; JPIF$M_RMS_DFMBC = 2; JPIF$C_RMS_DFMBC = 1; JPIF$M_PARSE_STYLE_PERM = 4; JPIF$C_PARSE_STYL~ E_PERM = 2; JPIF$M_PARSE_STYLE_IMAGE = 8; JPIF$C_PARSE_STYLE_IMAGE = 3; JPIF$M_LOGINTIM_L = 16; JPIF$C_LOGINTIM_L = 4; JPIF$M_LOGINTIM_H = 32; JPIF$C_LOGINTIM_H = 5; JPIF$M_CPUTIM = 64; JPIF$C_CPUTIM = 6; 'TYPE JPIF$TYPE = RECORD CASE INTEGER OF, 1: (JPIF$R_FILL_67_ : [BYTE(8)] RECORD END; ); 2: (); 3: ();G 4: (JPIF$V_UASTACT : [POS(0)] $BOOL; (* User mode AST active *)K JPIF$V_RMS_DFMBC : [POS(1)] $BOOL; (* RMS default multi-block count *)J J  PIF$V_PARSE_STYLE_PERM : [POS(2)] $BOOL; (* Permanent parse style *)H JPIF$V_PARSE_STYLE_IMAGE : [POS(3)] $BOOL; (* Image parse style *)G JPIF$V_LOGINTIM_L : [POS(4)] $BOOL; (* Login time - low LW *)G JPIF$V_LOGINTIM_H : [POS(5)] $BOOL; (* Login time - high LW *)G JPIF$V_CPUTIM : [POS(6)] $BOOL; (* Process accumulated CPU time *) ) END; (*** MODULE $KGBDEF ***) N(*++ *)N(* Key Gra nt Block definitions: Format of records in the rights database *)N(* file. These records (1) associate identifier codes with names, and *)N(* (2) list the holders of all identifiers in the system. *)N(*-- *)Q(* WARNING : If you add attributes, you must change the following modules: *)N(* *)F(* [AUDSRV]FORMATBL.B32 - ad d name to id_attr_table *)N(* *)Y(* Changing these modules is necessary so that auditing will reflect the new attr name *)N(* *)N(* *)N(* WARNING : If you add any fields, or change the size of the *)N(* NAME, the HOLDER, or the SYS_ID, be s ure to update *)N(* the contents at the bottom of this file. *)N(* *) CONST KGB$M_RESOURCE = 1; KGB$M_DYNAMIC = 2; KGB$M_NOACCESS = 4; KGB$M_SUBSYSTEM = 8; KGB$M_IMPERSONATE = 16; KGB$M_HOLDER_HIDDEN = 32; KGB$M_NAME_HIDDEN = 64;G KGB$K_HOLD_RECORD = 16; (* End of holder record *)G KGB$K_IDENT_RECORD = 48; (* End of identifier record *)G KGB$K_LEVEL1 = 257; (* Version 1 structure level *)G KGB$K_MAINT_RECORD = 64; (* End of maintenance record *) KGB$K_NUMBER_OF_ATTRIBUTES = 7; &TYPE KGB$TYPE = RECORD CASE INTEGER OFG 1: (KGB$L_IDENTIFIER : UNSIGNED; (* Binary identifier code *)+ KGB$R_FILL_70_ : [BYTE(4)] RECORD END;G KGB$Q_HOLDER : $UQUAD; (* Holder identifier *)[ KGB$T_NAME : PACKED ARRAY [1..32] OF CHAR; (* Identifier name (blank fill ed string) *)G KGB$W_LEVEL : $UWORD; (* File structure level *) KGB$$$_FILL_1 : $WORD;G KGB$Q_SYS_ID : $UQUAD; (* System identifier *)G KGB$L_NEXT_ID : UNSIGNED; (* Next available identifier *) );K 2: (KGB$L_ATTRIBUTES : [POS(32)] UNSIGNED; (* Attribute bit definitions *) ); 3: ();R 4: (KGB$V_RESOURCE : [POS(32)] $BOOL; (* Resource may be charged to identifier *)Q KGB$V_DYNAMIC : [POS(33)] $BOOL; (* Ident ifier may be enabled or disabled *)] KGB$V_NOACCESS : [POS(34)] $BOOL; (* Identifier will not be used in protection checks *)[ KGB$V_SUBSYSTEM : [POS(35)] $BOOL; (* Identifier denotes active protected subsystem *)X KGB$V_IMPERSONATE : [POS(36)] $BOOL; (* Identifier can be used for impersonation *)O KGB$V_HOLDER_HIDDEN : [POS(37)] $BOOL; (* Holder records are restricted *)^ KGB$V_NAME_HIDDEN : [POS(38)] $BOOL; (* $IDTOASC or $ASCTOID translation is restricted *) ) E ND; N(*++ *)N(* Define the environmental rights ID values *)N(*-- *) LCONST KGB$K_BATCH_ID = -2147483647; (* Batch ID value *)G KGB$K_DIALUP_ID = -2147483646; (* Dialup ID value *)G KGB$K_INTERACTIVE_ID = -2147483645; (* Interactive ID value *)G KGB$K_LOCAL_ID = -2147483 644; (* Local ID value *)G KGB$K_NETWORK_ID = -2147483643; (* Network ID value *)G KGB$K_REMOTE_ID = -2147483642; (* Remote ID value *)G KGB$K_DECWINDOWS_ID = -2147483641; (* Decwindows ID value *)G KGB$K_BOBUSER_ID = -2147483640; (* Buffer Object User ID value *)N KGB$K_MRES_USER_ID = -2147483639; (* Memory Resident Section User ID value *)G KGB$K_SAT_ACCESS_ID = -2147483638; (* VMS$SATELLITE_ACCESS id value *)J KGB$K_L AST_ENV_ID = -2147483637; (* NOTE: Add all new ones before this *) N(* *)N(* Define the range of environmental identifiers *)N(* *) &CONST KGB$K_BASE_ENV_ID = -2147483647; KGB$K_NUMBER_OF_ENV_IDS = 10; N(* *)R(* Define the restricted range of system identifiers as lowest id (%x800000000) *)N(* to %x80010000. *)N(* *) +CONST KGB$K_RESTRICTED_RANGE = -2147418112; N(* *)N(* Define the various access class ranges. *)N(* *) )CONST KGB$K_SEC_LEVEL_BASE = -2147482648;$ KGB$K_INT_LEVEL_BASE = -2147482392;' KGB$K_SEC_CATEGORY_BASE = -2147482136;' KGB$K_INT_CATEGORY_BASE = -2147482072;+ KGB$K_SEC_ACCESS_CLASS_BASE = -2147482648;* KGB$K_SEC_ACCESS_CLASS_END = -2147482008; N(* *)N(* Define the values for the optional $GRANTID/$REVOKID FLAGS argument. *)N(* *) L CONST KGB$K_PROCESS = 0; (* local rights *)G KGB$K_SYSTEM = 1; (* system rights *)G KGB$K_EXTENDED = 2; (* local rights (extended) *)I KGB$K_IMAGE = 3; (* image (protected subsystem) rights *) KGB$K_MAX_SEG = 4;I KGB$K_SUBSYSTEM = 3; (* image (protected subsystem) rights *)G KGB$S_NAME = 32; (* Size of KGB Identifier Name *)G KGB$S_HOLDER = 8; (* Size of KGB Holder ID value *)G KGB$S_SYS_ID = 8; (* Size of KGB System Ident *)G KGB$S_KGBDEF = 64; (* Size of KGB structure *) (*** MODULE $LADEF ***) N(*+ *)N(* *)N(* LPA-11 CHARACTERISTICS DEFINITIONS *)N(* *)N(*- *)N(*MICROCODE TYPE VALUES *) LCONST LA$K_MRMCODE = 1; (* MULTIREQUEST MICROCODE *)G LA$K_ADMCODE = 2; (* DEDICATED A/D MICROCODE *)G LA$K_DAMCODE = 3; (* DEDICATED D/A MICROCODE *) LA$M_MCVALID = 1; LA$M_CLOCKA = 8; LA$M_CLOCKB = 16; LA$M_AD1 = 32; LA$M_AD2 = 64; LA$M_DA = 128; LA$M_DIO1 = 256; LA$M_DIO2 = 512; LA$M_DIO3 = 1024; LA$M_DIO4 = 2048; LA$M_DIO5 = 4096; LA$M_BFROVRN = 8388608; %TYPE LA$TYPE = RECORD CASE INTEGER OF- 1: (LA$R_LADEF_BITS0 : [BYTE(4)] RECORD END; );G 2: (LA$V_MCVALID : [POS(0)] $BOOL; (* MICROCODE VALID *)G LA$V_MCTYPE : [POS(1)] $BIT2; (* MICROCODE TYPE *)G LA$V_CONFIG : [POS(3)] $BIT10; (* DEVICE CONFIGURATION BITS *)G LA$V_RATE : [PO S(13)] $BIT3; (* CLOCK RATE *)G LA$V_PRESET : [POS(16)] $BIT16; (* CLOCK PRESET *) );- 3: (LA$R_LADEF_BITS1 : [BYTE(2)] RECORD END; );G 4: (LA$V_CLOCKA : [POS(3)] $BOOL; (* CLOCK A *)G LA$V_CLOCKB : [POS(4)] $BOOL; (* CLOCK B *)G LA$V_AD1 : [POS(5)] $BOOL; (* A/D ! 1 *)G LA$V_AD2 : [POS(6)] $BOOL; (* A/D ! 2 *)G LA$V_DA : [POS(7)] $BOOL; (* D/A *)G LA$V_DIO1 : [POS(8)] $BOOL; (* DIGITAL I/O ! 1 *)G LA$V_DIO2 : [POS(9)] $BOOL; (* DIGITAL I/O ! 2 *)G LA$V_DIO3 : [POS(10)] $BOOL; (* DIGITAL I/O ! 3 *)G LA$V_DIO4 : [POS(11)] $BOOL; (* DIGITAL I/O ! 4 *)G LA$V_DIO5 : [POS(12)] $BOOL; (* DIGITAL I/O ! 5 *) );- 5: (LA$R_LADEF_BITS2 : [BYTE(3)] RECORD END; );H 6: (LA$ V_BFROVRN : [POS(23)] $BOOL; (* BUFFER OVERRUN NON-FATAL BIT *) ) END; (*** MODULE $latdef ***) CONST LAT$M_ETYPE = 65535; LAT$C_ENT_NODE = 1; LAT$C_ENT_SERVICE = 2; LAT$C_ENT_LINK = 3; LAT$C_ENT_PORT = 4; LAT$C_ENT_CONNECTION = 5; LAT$C_ENT_QUEUE_ENTRY = 6; LAT$C_MAXETYPE = 6; LAT$M_ESTATUS = 15;G LAT$C_ENTS_OLD = 0; (* Must already exist *)G LAT$C_ENTS_NEW = 1; (* Must NOT exist. Create it. *)G LAT$C_ENTS_UNK = 2; (* Create if it does not exist *)G LAT$C_ENTS_DEL = 3; (* Must exist. Delete it. *) LAT$M_SENSE_NEXT = 1; LAT$M_SENSE_FULL = 2; LAT$M_READ_HISTORY = 4; )TYPE ENTITY$TYPE = RECORD CASE INTEGER OF# 1: (LAT$V_ETYPE : [POS(0)] $BIT16;- LAT$R_ESTATFLAGS : [BYTE(1)] RECORD END; );% 2: (LAT$V_ESTATUS : [POS(16)] $BIT4; );1 3: (LAT$R_EFLAG : [POS(16), BYTE(1)] RECORD END; );G 4: (LAT$B_EFLAGS : [POS(16)] $UBYTE; (* Flags f or SENSEmode *) );5 5: (LAT$R_EFLAGBITS : [POS(16), BYTE(1)] RECORD END; );G 6: (LAT$V_SENSE_NEXT : [POS(16)] $BOOL; (* Wildcard flag *)G LAT$V_SENSE_FULL : [POS(17)] $BOOL; (* Full (vs. summary) flag *)H LAT$V_READ_HISTORY : [POS(18)] $BOOL; (* Used for history buffer *) ) END; CONST LAT$M_ITEMINDEX = 16383; LAT$M_STRING = 16384; LAT$M_CLEAR = 32768;G LAT$_ITM_STATE = 1; (*Entity (node or port) state *)G LAT$_IT M_CIRCUIT_TIMER = 2; (*Circuit timer value *)G LAT$_ITM_KEEPALIVE_TIMER = 3; (*Keepalive timer value *)G LAT$_ITM_MULTICAST_TIMER = 4; (*Multicast timer value *)G LAT$_ITM_NODE_LIMIT = 5; (*Maximum number of nodes *)G LAT$_ITM_RETRANSMIT_LIMIT = 6; (*Retransmit limit value *)G LAT$_ITM_SERVER_MODE = 7; (*Enable LAT master flag *)G LAT$_ITM_OUTGOING_SES_LIMIT = 8; (*Outgoing sessions limit * )G LAT$_ITM_INCOMING_SES_LIMIT = 9; (*Incoming sessions limit *)G LAT$_ITM_CONNECTIONS = 10; (*Enable LAT slave flag *)G LAT$_ITM_DECNET_ADDRESS = 11; (*Use DECnet address flag *)G LAT$_ITM_RATING = 12; (*Static LAT rating value *)G LAT$_ITM_RATING_TYPE = 13; (*Dynamic/static rating flag *)G LAT$_ITM_NODE_TYPE = 14; (*Local/remote node type flag *)G LAT$_ITM_NODE_STATUS = 15; (*Reachable/unreachable f lag *)G LAT$_ITM_SERVICE_STATUS = 16; (*Available/unavailable flag *)G LAT$_ITM_PORT_TYPE = 17; (*Port type value *)G LAT$_ITM_QUEUED = 18; (*Queued/nonqueued access flag *)G LAT$_ITM_DISCONNECT_REASON = 19; (*Reason for last disconnect *)G LAT$_ITM_CONNECTED_COUNT = 20; (*Number of current sessions *)G LAT$_ITM_SERVICE_TYPE = 21; (*Service type value *)G LAT$_ITM_CTNOD_SSZ = 22; (*(node) Seco nds since zeroed *)G LAT$_ITM_CTNOD_MSGR = 23; (*(node) Messages received *)G LAT$_ITM_CTNOD_MSGT = 24; (*(node) Messages transmitted *)G LAT$_ITM_CTNOD_SLTR = 25; (*(node) Slots received *)G LAT$_ITM_CTNOD_SLTT = 26; (*(node) Slots transmitted *)G LAT$_ITM_CTNOD_BYTR = 27; (*(node) Bytes received *)G LAT$_ITM_CTNOD_BYTT = 28; (*(node) Bytes transmitted *)G LAT$_ITM_CTNOD_MNA = 29; ( *(node) Multiple node addresses *)G LAT$_ITM_CTNOD_DUP = 30; (*(node) Duplicates received *)G LAT$_ITM_CTNOD_MRT = 31; (*(node) Messages retransmitted *)G LAT$_ITM_CTNOD_ILM = 32; (*(node) Illegal messages received *)G LAT$_ITM_CTNOD_ILS = 33; (*(node) Illegal slots received *)G LAT$_ITM_CTNOD_SLCA = 34; (*(node) Solicitations accepted *)G LAT$_ITM_CTNOD_SLCR = 35; (*(node) Solicitations rejected *)G LAT$_ITM_CTNOD_TER =  36; (*(node) Transmit errors *)G LAT$_ITM_CTNOD_RES = 37; (*(node) Resource errors *)G LAT$_ITM_CTNOD_NTB = 38; (*(node) No transmit buffer *)G LAT$_ITM_CTNOD_TMO = 39; (*(node) Virtual circuit timeouts *)G LAT$_ITM_CTNOD_DOB = 40; (*(node) Discarded output bytes *)G LAT$_ITM_CTNOD_LSTER = 41; (*(node) Last transmit error *)G LAT$_ITM_CTNOD_PROTO = 42; (*(node) Protocol error count *)N LAT$_ITM_ CTPRO_IVM = 43; (*(protocol) Invalid message type received *)O LAT$_ITM_CTPRO_ISM = 44; (*(protocol) Invalid start message received *)H LAT$_ITM_CTPRO_IVS = 45; (*(protocol) Invalid sequence number *)I LAT$_ITM_CTPRO_NIZ = 46; (*(protocol) Zero node index received *)J LAT$_ITM_CTPRO_ICI = 47; (*(protocol) Invalid server slot index *)I LAT$_ITM_CTPRO_CSI = 48; (*(protocol) Circuit sequence invalid *)N LAT$_ITM_CTPRO_NLV = 49; (*(protocol) Circui t index no longer valid *)G LAT$_ITM_CTPRO_HALT = 50; (*(protocol) Circuit forced to halt *)J LAT$_ITM_CTPRO_MIZ = 51; (*(protocol) Invalid master slot index *)I LAT$_ITM_CTPRO_SIZ = 52; (*(protocol) Invalid slave slot index *)G LAT$_ITM_CTPRO_CRED = 53; (*(protocol) Invalid credit field *)J LAT$_ITM_CTPRO_RCSM = 54; (*(protocol) Repeat master slot create *)N LAT$_ITM_CTPRO_RDSM = 55; (*(protocol) Repeat master slot disconnect *)G LAT$_ITM_CTSRV_SSZ =  56; (*(service) Seconds since zeroed *)G LAT$_ITM_CTSRV_MCNA = 57; (*(service) Connections attempted *)G LAT$_ITM_CTSRV_MCNC = 58; (*(service) Connections completed *)G LAT$_ITM_CTSRV_SCNA = 59; (*(service) Connections accepted *)G LAT$_ITM_CTSRV_SCNR = 60; (*(service) Connections rejected *)G LAT$_ITM_CTPRT_SSZ = 61; (*(port) Seconds since zeroed *)G LAT$_ITM_CTPRT_RMT = 62; (*(port) Remote accesses *)G LAT$_ITM_ CTPRT_BYTR = 63; (*(port) Bytes received *)G LAT$_ITM_CTPRT_BYTT = 64; (*(port) Bytes transmitted *)G LAT$_ITM_MAXIMUM_UNITS = 65; (*Maximum LTA device unit number *)G LAT$_ITM_SERVICE_CLASS = 66; (* Port service class item *)G LAT$_ITM_DISPLAY_NUMBER = 67; (* X Display Number (Binary) *)G LAT$_ITM_CPU_RATING = 68; (* CPU rating *)G LAT$_ITM_SERVICE_RESPONDER = 69; (* Service responder *) G LAT$_ITM_CTNOD_MCBXMT = 70; (*(node) Multicast bytes xmt *)G LAT$_ITM_CTNOD_MCBRCV = 71; (*(node) Multicast bytes rcv *)G LAT$_ITM_CTNOD_MCMXMT = 72; (*(node) Multicast msgs xmt *)G LAT$_ITM_CTNOD_MCMRCV = 73; (*(node) Multicast msgs rcv *)G LAT$_ITM_CTNOD_SOLFAIL = 74; (*(node) Solicit failures *)G LAT$_ITM_CTNOD_ATLOS = 75; (*(node) Attention slot lost *)G LAT$_ITM_CTNOD_DATLOS = 76; (*(node) User data lost  *)G LAT$_ITM_CTNOD_NOREJ = 77; (*(node) No reject slot sent *)G LAT$_ITM_CTNOD_LOSCT = 78; (*(node) Node counter lost *)G LAT$_ITM_CTNOD_LOSSAM = 79; (*(node) s.a.m. lossage *)G LAT$_ITM_CTNOD_NOSAM = 80; (*(node) Couldn't send s.a.m. *)G LAT$_ITM_CTNOD_NOSTS = 81; (*(node) Lost node status *)G LAT$_ITM_CTNOD_NOXMT = 82; (*(node) No link to send on *)G LAT$_ITM_HISTORY = 83; (*(node) Histor y buffer enable *)G LAT$_ITM_CTNOD_CTLERR = 84; (*(node) Controller errors *)G LAT$_ITM_CTNOD_CERRCOD = 85; (*(node) Last controller error *)I LAT$_ITM_CTNOD_ISOLA = 86; (*(node) (Incoming) solicits accepted *)I LAT$_ITM_CTNOD_ISOLR = 87; (*(node) (Incoming) solicits rejected *)G LAT$_ITM_CONNECTED_SESSIONS = 88; (* Connected session count *)G LAT$_ITM_CONNECT_TYPE = 89; (* Connection type *)G LAT$_ITM_CONNECTION_SESS_LIM =  90; (* Connection session limit *)G LAT$_ITM_CTCON_MSGRCV = 91; (*(conn) msgs received *)G LAT$_ITM_CTCON_DUPRCV = 92; (*(conn) dup msgs rcvd *)G LAT$_ITM_CTCON_MSGXMT = 93; (*(conn) msgs xmtd *)G LAT$_ITM_CTCON_MSGILL = 94; (*(conn) illegal msgs rcvd *)G LAT$_ITM_CTCON_MSGRXT = 95; (*(conn) msgs retransmitted *)G LAT$_ITM_CTCON_SLTILL = 96; (*(conn) ill slots rcvd *)G LAT$_ITM_CTCON_DUPN OD = 97; (*(conn) duplicate node *)G LAT$_ITM_CTCON_SECZER = 98; (*(conn) seconds since zero *)G LAT$_ITM_CTCON_BYTRCV = 99; (*(conn) bytes received *)G LAT$_ITM_CTCON_BYTXMT = 100; (*(conn) bytes xmtd *)G LAT$_ITM_CTCON_SLTRCV = 101; (*(conn) slots rcvd *)G LAT$_ITM_CTCON_SLTXMT = 102; (*(conn) slots transmitted *)G LAT$_ITM_CTCON_SOLACP = 103; (*(conn) solicits accepted *)G LAT$_IT M_CTCON_SOLREJ = 104; (*(conn) solicits rejected *)G LAT$_ITM_CTCON_XERR = 105; (*(conn) last transmit error *)G LAT$_ITM_CTCON_XERRCOD = 106; (*(conn) last xmt error code *)G LAT$_ITM_CTCON_ATTLOS = 107; (*(conn) attention slot loss *)G LAT$_ITM_CTCON_DATLOS = 108; (*(conn) data loss *)G LAT$_ITM_CTCON_CANTREJ = 109; (*(conn) reject slot loss *)H LAT$_ITM_SESSION_NUMBER = 110; (*(conn) session number for subblock *)H LAT$_ITM_FORWARD_SESSION_LIMIT = 111; (*(node) forward session limit *)G LAT$_ITM_EXTRA_DATALINK_BUFFERS = 112; (*Extra datalink buffers *)G LAT$_ITM_TRANSMIT_BUFFERS_INUSE = 113; (*Transmit buffers in use *)G LAT$_ITM_QUE_POS_OBSOLETE = 114; (*Queue position for entry *) N(*Obsolete - node queue and *)N(*service queue position are *)N(*now implemented. *) LCONST LAT$_ITM_QUEUE_DEPTH_LIMIT = 115; (*(node) queue depth limit *)G LAT$_ITM_DEVICE_SEED = 116; (*(node) device seed *)G LAT$_ITM_NODE_QUEUE_POSITION = 117; (*(port) minimum queue position *)J LAT$_ITM_SERVICE_QUEUE_POSITION = 118; (*(port) maximum queue position *)G LAT$_ITM_DIALUP = 119; (*(port) dialup characteristic *)G LAT$_ITM_AUTOPROMPT = 120; (*(port) autoprompt char *)P LAT$_ITM_RATI NG_LOAD_OBSOLETE = 121; (*obsolete - portion of rating for load *)G LAT$_ITM_CTPRT_LCL = 122; (*(port) local accesses *)G LAT$_ITM_CTPRT_SLCA = 123; (*(port) Solicitations accepted *)G LAT$_ITM_CTPRT_SLCR = 124; (*(port) Solicitations rejected *)I LAT$_ITM_CTPRT_ISOLA = 125; (*(node) (Incoming) solicits accepted *)I LAT$_ITM_CTPRT_ISOLR = 126; (*(node) (Incoming) solicits rejected *) N(* *)N(* This next item code is only returned (it cannot be supplied as a *)N(* SETMODE item). It indicates whether or not a service on the local *)N(* node is password protected. *)N(* *) LCONST LAT$_ITM_PASSWORD = 127; (*(svc) Password enabled/disabled *)G LAT$_ITM_HI_CIRCUITS = 128; (*(node) Hi circuit count *)G LAT$_ITM_ CUR_CIRCUITS = 129; (*(node) Current circuit count *)G LAT$_ITM_MAX_CIRCUITS = 130; (*(node) Maximum virtual circuits *)G LAT$_ITM_HI_SESSIONS = 131; (*(node) Hi session count *)G LAT$_ITM_CUR_SESSIONS = 132; (*(node) Current session count *)G LAT$_ITM_MAX_SESSIONS = 133; (*(node) Maximum session count *)G LAT$_ITM_HI_OUT_QUEUE = 134; (*(node) Hi outgoing queue entries *)G LAT$_ITM_CUR_OUT_QUEUE = 135; (*(node) Current outgoing q entries *) G LAT$_ITM_MAX_OUT_QUEUE = 136; (*(node) Maximum outgoing q entries *)G LAT$_ITM_HI_IN_QUEUE = 137; (*(node) Hi incoming queue entries *)G LAT$_ITM_CUR_IN_QUEUE = 138; (*(node) Current incoming q entries *)G LAT$_ITM_MAX_IN_QUEUE = 139; (*(node) Maximum incoming q entries *)G LAT$_ITM_HI_SAMS_QUEUED = 140; (*(node) Hi unprocessed SAMs *)G LAT$_ITM_CUR_SAMS_QUEUED = 141; (*(node) Current unprocessed SAMs *)G LAT$_ITM_MAX_SAMS_QUEUED = 142; (*(node) Maximum unprocesse d SAMs *)G LAT$_ITM_HI_SOL_QUEUED = 143; (*(node) Hi unprocessed sol infos *)J LAT$_ITM_CUR_SOL_QUEUED = 144; (*(node) Current unprocessed sol infos *)J LAT$_ITM_MAX_SOL_QUEUED = 145; (*(node) Maximum unprocessed sol infos *)G LAT$_ITM_HI_AVAIL_SVCS = 146; (*(node) Hi available services *)G LAT$_ITM_CUR_AVAIL_SVCS = 147; (*(node) Current available services *)G LAT$_ITM_MAX_AVAIL_SVCS = 148; (*(node) Maximum available services *)G LAT$_ITM_HI_REACH_NODES = 149; (*(node) Hi reachable nodes *)G LAT$_ITM_CUR_REACH_NODES = 150; (*(node) Current reachable nodes *)G LAT$_ITM_MAX_REACH_NODES = 151; (*(node) Maximum reachable nodes *)G LAT$_ITM_HI_LCL_SVCS = 152; (*(node) Hi local services *)G LAT$_ITM_CUR_LCL_SVCS = 153; (*(node) Current local services *)G LAT$_ITM_MAX_LCL_SVCS = 154; (*(node) Maximum local services *)G LAT$_ITM_DISCARDED_NODES = 155; (*(node) Discarded nodes *)G LAT$_ITM_MAX_DL_BUFFERS = 156;  (*(conn) Maximum datalink buffers *)G LAT$_ITM_PRODUCT_TYPE = 157; (*(conn) Product type *)G LAT$_ITM_REM_PRODUCT_VERSION = 158; (*(conn) Remote product version *)G LAT$_ITM_CTPRT_FRAMERR = 159; (*(port) Framing errors *)G LAT$_ITM_CTPRT_PARERR = 160; (*(port) Parity errors *)G LAT$_ITM_CTPRT_OVERRUN = 161; (*(port) Data overruns *)U LAT$_ITM_CTPRO_INVCLASS = 162; (*(protocol) protocol error invalid service class *)W LAT$_ ITM_CTPRO_EXCSTART = 163; (*(protocol) protocol error (excessive start slots) *)M LAT$_ITM_CTNOD_XSTR = 164; (*(node) Remote node too many START slots *)H LAT$_ITM_PASSWORD_FAILURES = 165; (*(service,port) Password failures *)G LAT$_ITM_CTPRO_ILLSAM = 166; (*(protocol) Illegal SAMs *)G LAT$_ITM_TYPEAHEAD = 167; (*(port) 1 = typeahd present *)G LAT$_ITM_CTLAT_RMSG = 168; (*(link) LAT msgs rcvd *)G LAT$_ITM_CTLAT_RBYT = 169; (*(link) LAT  bytes rcvd *)G LAT$_ITM_CTLAT_XMSG = 170; (*(link) LAT msgs xmt *)G LAT$_ITM_CTLAT_XBYT = 171; (*(link) LAT bytes xmt *)G LAT$_ITM_CTLAT_MUL_RMSG = 172; (*(link) LAT multicast msgs rcvd *)G LAT$_ITM_CTLAT_MUL_RBYT = 173; (*(link) LAT multicast bytes rcvd *)G LAT$_ITM_CTLAT_MUL_XMSG = 174; (*(link) LAT multicast msgs xmt *)G LAT$_ITM_CTLAT_MUL_XBYT = 175; (*(link) LAT multicast bytes xmt *)G LAT$_ITM_PATH_STATE = 176; ( *Datalink path state *)G LAT$_ITM_LARGE_BUFFERS = 177; (*Use of large buffers by default *)K LAT$_ITM_ANNOUNCEMENTS = 178; (*(node) Transmit service announcements *)G LAT$_ITM_PORT_STATE = 179; (*(port) Current state *)G LAT$_ITM_CTPRO_BADUID = 180; (*(protocol) Invalid node UID event *) LAT$C_ITM_MAXSCALAR = 180;N LAT$_ITM_IDENTIFICATION = 16640; (*Entity (node or service) identification *)G LAT$_ITM_SERVICE_NAME = 16641; (*Service name  *)G LAT$_ITM_NODE_NAME = 16642; (*Node name *)G LAT$_ITM_PORT_NAME = 16643; (*Port name *)L LAT$_ITM_CONNECTED_SERVICE_NAME = 16644; (*Port's connected service name *)G LAT$_ITM_CONNECTED_NODE_NAME = 16645; (*Port's connected node name *)G LAT$_ITM_CONNECTED_PORT_NAME = 16646; (*Port's connected port name *)G LAT$_ITM_TARGET_SERVICE_NAME = 16647; (*Port's target service name *)G LAT$_ITM_TARGET_NODE_NAME = 16648; (*Po rt's target node name *)G LAT$_ITM_TARGET_PORT_NAME = 16649; (*Port's target port name *)G LAT$_ITM_SERVICE_GROUPS = 16650; (*Enabled service groups bitmask *)G LAT$_ITM_USER_GROUPS = 16651; (*Enabled user groups bitmask *)G LAT$_ITM_LINK_NAME = 16652; (*Link name *)G LAT$_ITM_SERVICE_PASSWORD = 16653; (*Service password *)G LAT$_ITM_DEVICE_NAME = 16654; (*Link's device name *)G LAT$_ITM_DATALINK_ADDRESS = 16655; (*6-byte binary Ethernet address *)G LAT$_ITM_PROTOCOL_VERSION = 16656; (*LAT protocol version string *)G LAT$_ITM_SVC_NODE_BLOCK = 16657; (*Subblock for SENSE SERVICE *)G LAT$_ITM_NODE_SVC_BLOCK = 16658; (*Subblock for SENSE NODE *)G LAT$_ITM_DED_PORT_BLOCK = 16659; (*Subblock for dedicated ports *)G LAT$_ITM_COUNTERS = 16660; (*Subblock for counters *)G LAT$_ITM_PROTOCOL_ERRORS = 16661; (*Subblock for protocol errors *)G LAT$_ITM_CONNEC TED_LINK_NAME = 16662; (*Port's connected link name *)G LAT$_ITM_HISTORY_ENTRY = 16663; (*Node history buffer entry *)G LAT$_ITM_CONNECT_ID = 16664; (*Connect ID name *)G LAT$_ITM_SESSION_BLOCK = 16665; (*Subblock for SENSE CONNECTION *)G LAT$_ITM_QUEUED_ENTRY_ID = 16666; (*Queued entry ID string *)G LAT$_ITM_LIM_PORT_BLOCK = 16667; (*subblock for limited ports *)G LAT$_ITM_SERVICE_CLASSES = 16668; (*service class bitmask for node *)G LAT $_ITM_LAT_DEV_CTR_BLOCK = 16669; (*link LAT only counters *)G LAT$_ITM_PATH_BLOCK = 16670; (*Datalink path information *) LAT$C_ITM_MAXSTRING = 16670; -TYPE ITEM_ENTRY$TYPE = RECORD CASE INTEGER OF+ 1: (LAT$R_ITM_CODE : [BYTE(2)] RECORD END;- LAT$R_ITEM_VALUE : [BYTE(4)] RECORD END; );& 2: (LAT$W_ITEMCODE : [POS(0)] $UWORD; );3 3: (LAT$R_ITM_BITS : [POS(0), BYTE(2)] RECORD END;( LAT$B_ITEM_BCNT : [POS(16)] $UBYTE;> LAT$T_ITEM_STRING_VALUE : [POS(24)] ARRAY [1..1] OF CHAR; );' 4: (LAT$V_ITEMINDEX : [POS(0)] $BIT14;$ LAT$V_STRING : [POS(14)] $BOOL;# LAT$V_CLEAR : [POS(15)] $BOOL;2 LAT$L_ITEM_SCALAR_VALUE : [POS(16)] UNSIGNED; ) END; CONST LAT$C_DISABLED = 0; LAT$C_ENABLED = 1; LAT$C_OFF = 0; LAT$C_ON = 1; LAT$C_SHUT = 2; LAT$M_FLUSH_DATA = 1;G LAT$C_PT_FORWARD = 0; (*"Forward" connection port *)G LAT$C_PT_INTERACTIVE = 1; (*Interactive incoming port * )G LAT$C_PT_APPLICATION = 2; (*Application port *)G LAT$C_PT_DEDICATED = 3; (*Dedicated port *)G LAT$C_PT_LIMITED = 4; (*Limited port *)G LAT$C_PT_STATE_INACTIVE = 0; (*Idle, no connection *)G LAT$C_PT_STATE_CONNECTING = 1; (*Connection in progress, not done *)G LAT$C_PT_STATE_ACTIVE = 2; (*Fully connected *)G LAT$C_PT_STATE_DISCONNECTING = 3; (*In the disconnect pro cess *)G LAT$C_NT_LOCAL = 0; (*My own node *)G LAT$C_NT_REMOTE = 1; (*The other guy *)G LAT$C_ST_GENERAL = 0; (*General timesharing service *)G LAT$C_ST_APPLICATION = 1; (*Application service *)G LAT$C_ST_LIMITED = 2; (*Limited service *)G LAT$C_DYNAMIC = 0; (*Dynamic calculation *)G LAT$C_STATIC = 1; (*Fixed ratin g *) LAT$C_PS_WORKING = 0; LAT$C_PS_SUSPECT = 1; LAT$C_PS_FAILED = 2;G LAT$C_CN_UNKNOWN = 0; (*Unknown connection type *)G LAT$C_CN_INCOMING = 1; (*Slave connection *)G LAT$C_CN_OUTGOING = 2; (*Master connection *)G LAT$C_UNREACHABLE = 0; (*Known not there *)G LAT$C_UNKNOWN = 1; (*Haven't heard in a while *)G LAT$C_REACHABLE = 2; (*I heard from him *)G LAT$C_UNAVAILABLE = 0; (*Can't get it *)G LAT$C_AVAILABLE = 1; (*It IS there *)G LAT$C_SERVCLASS_INTERACTIVE = 1; (* SC1 = TTDRIVER *)G LAT$C_SERVCLASS_TESTSERVICE = 2; (* SC2 = TEST SERVICE *)G LAT$C_SERVCLASS_XTRANSPORT = 3; (* SC3 = X Transport *)G LAT$C_SERVCLASS_FONT = 4; (* SC4 = X Fonts *) -TYPE LATSETBITS$TYPE = RECORD CASE INTEGER OF 1: (LAT$T_FILLER : RECORD END ; ); 2: (LAT$T_FILLER2 : CHAR; ) END; LCONST LAT$C_RATING_VECTOR_LENGTH = 56; (* Size of vector *) TYPE RATING_VEC$TYPE = RECORDG LAT$A_CONTROL_INIT_RTN : $DEFPTR; (* Address of controller init *)G LAT$A_UNIT_INIT_RTN : $DEFPTR; (* Address of init init *)Q LAT$A_RATING_INIT_RTN : $DEFPTR; (* Address of initial call from LTDRIVER *)G LAT$A_TIMER_RTN : $DEFPTR; (* Rout ine called each second *)J LAT$A_CALC_RATING_RTN : $DEFPTR; (* Routine that calculates rating *)G LAT$A_STOP_RTN : $DEFPTR; (* Routine called at LAT shutdown *)G LAT$A_SPARE1_RTN : $DEFPTR; (* Expansion placeholder *)G LAT$A_SPARE2_RTN : $DEFPTR; (* Expansion placeholder *)G LAT$A_SPARE3_RTN : $DEFPTR; (* Expansion placeholder *)G LAT$A_SPARE4_RTN : $DEFPTR; (* Expansion placeholder *)G LAT$A_SPARE5_RTN : $D EFPTR; (* Expansion placeholder *)G LAT$A_SPARE6_RTN : $DEFPTR; (* Expansion placeholder *)G LAT$A_SPARE7_RTN : $DEFPTR; (* Expansion placeholder *)G LAT$A_SPARE8_RTN : $DEFPTR; (* Expansion placeholder *) END; (*** MODULE $LCKDEF ***) N(*+ *)N(* LOCK MANAGER DEFINITIONS *)N(*-  *) CONST LCK$M_VALBLK = 1; LCK$M_CONVERT = 2; LCK$M_NOQUEUE = 4; LCK$M_SYNCSTS = 8; LCK$M_SYSTEM = 16; LCK$M_NOQUOTA = 32; LCK$M_CVTSYS = 64; LCK$M_RECOVER = 128; LCK$M_PROTECT = 256; LCK$M_NODLCKWT = 512; LCK$M_NODLCKBLK = 1024; LCK$M_EXPEDITE = 2048; LCK$M_QUECVT = 4096; LCK$M_BYPASS = 8192; LCK$M_NOIOLOCK8 = 16384; LCK$M_NOFORK = 32768; LCK$M_XVALBLK = 65536; LCK$M_DEQALL = 1; LCK$M_CANCEL = 2; LCK$M_I NVVALBLK = 4; LCK$M_RESV_NOIOLOCK8 = 16384; LCK$M_RESV_NOFORK = 32768; LCK$M_RESV_XVALBLK = 65536;G LCK$K_NLMODE = 0; (* NULL *)G LCK$K_CRMODE = 1; (* CONCURRENT READ *)G LCK$K_CWMODE = 2; (* CONCURRENT WRITE *)G LCK$K_PRMODE = 3; (* PROTECTED READ *)G LCK$K_PWMODE = 4; (* PROTECTED WRITE *)G LCK$K_EXMODE = 5; (* EXCLUSIVE *) &TYPE LCK$TYPE = RECORD CASE INTEGER OF/ 1: (LCK$R_LCKDEF_BITS0 : [BYTE(3)] RECORD END; );G 2: (LCK$V_VALBLK : [POS(0)] $BOOL; (* VALUE BLOCK INCLUDED *)G LCK$V_CONVERT : [POS(1)] $BOOL; (* CONVERSION REQUEST *)G LCK$V_NOQUEUE : [POS(2)] $BOOL; (* DO NOT QUEUE REQUEST *)H LCK$V_SYNCSTS : [POS(3)] $BOOL; (* SYNCHRONOUS STATUS REQUESTED *)G LCK$V_SYSTEM : [POS(4)] $BOOL; (* SYSTEM LOCK  *)G LCK$V_NOQUOTA : [POS(5)] $BOOL; (* DON'T CHARGE QUOTA *)G LCK$V_CVTSYS : [POS(6)] $BOOL; (* CONVERT TO SYSTEM *)G LCK$V_RECOVER : [POS(7)] $BOOL; (* RECOVER LOCK DURING FAILOVER *)G LCK$V_PROTECT : [POS(8)] $BOOL; (* PROTECT LOCK DURING FAILOVER *)G LCK$V_NODLCKWT : [POS(9)] $BOOL; (* NO DEADLOCK WAITING *)G LCK$V_NODLCKBLK : [POS(10)] $BOOL; (* NO DEADLOCK BLOCKING *)G LCK$V_EXPEDITE : [POS(11)] $BOOL; (* EXPEDI TE NLMODE REQUEST *)G LCK$V_QUECVT : [POS(12)] $BOOL; (* FORCE CONVERSION TO QUEUE *)G LCK$V_BYPASS : [POS(13)] $BOOL; (* BYPASS WAITING REQUESTS *)N LCK$V_NOIOLOCK8 : [POS(14)] $BOOL; (* DO NOT LOCK IOLOCK8 FOR CALLBACK *)Q LCK$V_NOFORK : [POS(15)] $BOOL; (* SAFE TO PERFORM OPERATION WITHOUT FORK *)G LCK$V_XVALBLK : [POS(16)] $BOOL; (* LONG VALUE BLOCK INCLUDED *)G (* *)m (* IFBLKING bitfield mask; /* PERFORM CONVERSION IF BLOCKING *)G (* *) );/ 3: (LCK$R_LCKDEF_BITS1 : [BYTE(3)] RECORD END; );G 4: (LCK$V_DEQALL : [POS(0)] $BOOL; (* DEQUEUE ALL LOCKS *)G LCK$V_CANCEL : [POS(1)] $BOOL; (* CANCEL REQUEST *)G LCK$V_INVVALBLK : [POS(2)] $BOOL; (* INVALIDATE VALUE BLOCK *)G (*LOCK MODES  *) ) END; (*** MODULE $LDDEF ***) CONST IO$_LD_CONTROL = 20; LDIO$K_CONNECT = 0; LDIO$K_DISCONNECT = 1; LDIO$K_ENABLE_TRACE = 2; LDIO$K_DISABLE_TRACE = 3; LDIO$K_GET_TRACE = 4; LDIO$K_RESET_TRACE = 5; LDIO$K_GET_CONNECTION = 6; LDIO$K_SET_SEED = 7; LDIO$K_ENABLE_WATCH = 8; LDIO$K_DISABLE_WATCH = 9; LDIO$K_GET_WATCH = 10; LDIO$K_RESUME_WATCH = 11; LDIO$K_GET_SUSPEND_LIST = 12; LDIO$K_ENABLE_PROTECT = 13; LDIO$K_DISABLE_PROTEC T = 14; LDIO$K_SET_ALLOCLASS = 15;" LDIO$K_GET_TRACE_PARAMETERS = 16; LDIO$K_GET_VERSION = 17; LDIO$K_GET_METADATA = 18; LDIO$K_LOAD = 19; LDIO$K_UNLOAD = 20; LDIO$M_REPLACE = 256; LDIO$M_ABORT = 512; LDIO$M_INQUIRE = 1024; LDIO$M_NOWAIT = 2048; LDIO$M_RESET = 4096; LDIO$M_SHARE = 8192; LDIO$M_ACCURATE = 16384; LDIO$M_FDTTRACE = 32768; LDIO$M_LBN = 65536; LDIO$M_OVERRIDE = 131072; LDIO$M_LOCK = 262144; LDIO$M_NOFE = 524288; LDIO$M_INIT = 1048576; LDIO$M_ TRACE_ALL = 2097152; LDIO$M_KEEP = 4194304; LDIO$M_LOADONLY = 8388608; LDIO$M_NOLOAD = 16777216; LDIO$M_EXTEND = 33554432; LDIO$M_TRUNCATE = 67108864; LDIO$M_ITEMLIST = 134217728; TYPE LDIO$TYPE = RECORD" LDIO$V_FUNC : [POS(0)] $BIT8;% LDIO$V_REPLACE : [POS(8)] $BOOL;# LDIO$V_ABORT : [POS(9)] $BOOL;& LDIO$V_INQUIRE : [POS(10)] $BOOL;% LDIO$V_NOWAIT : [POS(11)] $BOOL;$ LDIO$V_RESET : [POS(12)] $BOOL;$ LDIO$V_SHARE : [POS(13)] $BOOL;' LDIO$ V_ACCURATE : [POS(14)] $BOOL;' LDIO$V_FDTTRACE : [POS(15)] $BOOL;" LDIO$V_LBN : [POS(16)] $BOOL;' LDIO$V_OVERRIDE : [POS(17)] $BOOL;# LDIO$V_LOCK : [POS(18)] $BOOL;# LDIO$V_NOFE : [POS(19)] $BOOL;# LDIO$V_INIT : [POS(20)] $BOOL;( LDIO$V_TRACE_ALL : [POS(21)] $BOOL;# LDIO$V_KEEP : [POS(22)] $BOOL;' LDIO$V_LOADONLY : [POS(23)] $BOOL;% LDIO$V_NOLOAD : [POS(24)] $BOOL;% LDIO$V_EXTEND : [POS(25)] $BOOL;' LDIO$V_TRUNCATE : [POS(26)] $BOOL ;' LDIO$V_ITEMLIST : [POS(27)] $BOOL;' LDIO$V_FILL_77_ : [POS(28)] $BIT4; END; CONST LDITM$K_CHANNEL = 1; LDITM$K_EXTENDSIZE = 2; LDITM$K_EXTENDLIMIT = 3; LDITM$K_DEVICENAME = 4; LDITM$K_FILEID = 5; LDITM$K_STARTLBN = 6; LDITM$K_ENDLBN = 7; LDITM$K_FLAGS = 8; LDITM$K_TRACKS = 9; LDITM$K_CYLINDERS = 10; LDITM$K_SECTORS = 11; LDITM$K_MAXBLOCKS = 12; LDRSN$K_NOTSHARED = 1; LDRSN$K_NOSHARE = 2; LDRSN$K_ALLOCLASS = 3; LDRSN$K_UNITNUMBER = 4; LDRSN$K _TRACKS = 5; LDRSN$K_SECTORS = 6; LDRSN$K_CYLINDERS = 7; LDRSN$K_MAXBLOCK = 8; LDRSN$K_NOLBNMAP = 9; LDRSN$K_STARTLBN = 10; LDRSN$K_DEVICENAME = 11; LDRSN$K_NOTREPLACED = 12; LDRSN$K_RANGEINUSE = 13; LDRSN$K_FILEIDINUSE = 14; LDRSN$K_INCMPPROT = 15; LDRSN$K_INCMPDEVTYPE = 16; LDTRC$C_LENGTH = 88; LDTRC$K_LENGTH = 88; ,TYPE TRACE_ENT$TYPE = RECORD CASE INTEGER OF 1: (LDTRC$L_PID : UNSIGNED; LDTRC$L_LBN : UNSIGNED; LDTRC$L_BCNT : UNSIGNED; LDTRC $W_FUNC : $UWORD; LDTRC$W_RESERVED : $UWORD;- LDTRC$L_IOSB : ARRAY [1..2] OF UNSIGNED;0 LDTRC$R_STIME_UNION : [BYTE(8)] RECORD END;0 LDTRC$R_ETIME_UNION : [BYTE(8)] RECORD END; LDTRC$Q_START_SCC : $UQUAD; LDTRC$Q_END_SCC : $UQUAD;! LDTRC$L_STARTCPU : UNSIGNED; LDTRC$L_ENDCPU : UNSIGNED;2 LDTRC$R_ELAPSED_UNION : [BYTE(8)] RECORD END;! LDTRC$Q_START_USEC : $UQUAD; LDTRC$Q_END_USEC : $UQUAD; );, 2: (LDTRC$Q_START_TIME : [POS(192)] $UQUAD;* LDTRC$Q_END_TIME : [POS(256)] $UQUAD;) LDTRC$Q_ELAPSED : [POS(512)] $UQUAD; );. 3: (LDTRC$L_START_TIME : [POS(192)] UNSIGNED;, LDTRC$L_END_TIME : [POS(256)] UNSIGNED;+ LDTRC$L_ELAPSED : [POS(512)] UNSIGNED; ) END; CONST LDWTC$M_CHARS = 127; LDWTC$M_NOLBN = 1; LDWTC$M_FILE = 2; LDWTC$M_FILE_CHAN = 4; LDWTC$M_REMOVE_ALL = 128; LDWTC$C_SUSPEND = 0; LDWTC$C_CRASH = 1; LDWTC$C_ERROR = 2; LDWTC$C_OPCOM = 3; LDWTC$C_MAX = 3; LDW TC$C_LENGTH = 22; LDWTC$K_LENGTH = 22; *TYPE WATCHPT$TYPE = RECORD CASE INTEGER OF 1: (LDWTC$L_LBN : UNSIGNED;- LDWTC$R_FILL_78_ : [BYTE(2)] RECORD END; LDWTC$W_ACTION : $UWORD; LDWTC$W_FUNC : $UWORD; LDWTC$W_RETCODE : $UWORD;, LDWTC$R_SBK_FCB : [BYTE(4)] RECORD END;- LDWTC$R_FIDAREA1 : [BYTE(6)] RECORD END; );& 2: (LDWTC$W_FLAGS : [POS(32)] $UWORD;% LDWTC$W_CHAN : [POS(96)] $UWORD;5 LDWTC$W_FID : [POS(128)] ARRAY [1..3] OF $UWORD;  );% 3: (LDWTC$A_SBK : [POS(96)] $DEFPTR; );% 4: (LDWTC$A_FCB : [POS(96)] $DEFPTR;) LDWTC$W_FID_NUM : [POS(128)] $UWORD;) LDWTC$W_FID_SEQ : [POS(144)] $UWORD;) LDWTC$W_FID_RVN : [POS(160)] $UWORD; );% 5: (LDWTC$V_CHARS : [POS(32)] $BIT7; ); 6: ();% 7: (LDWTC$V_NOLBN : [POS(32)] $BOOL;$ LDWTC$V_FILE : [POS(33)] $BOOL;) LDWTC$V_FILE_CHAN : [POS(34)] $BOOL;( LDWTC$V_RESERVED : [POS(35)] $BIT4;* LDWTC$V_REMOVE_ALL : [POS(39)] $BOOL;  ) END; CONST LDSUSP$C_LENGTH = 16; LDSUSP$K_LENGTH = 16; TYPE SUSPEND_LIST$TYPE = RECORD LDSUSP$L_PID : UNSIGNED; LDSUSP$L_LBN : UNSIGNED; LDSUSP$W_FLAGS : $UWORD; LDSUSP$W_ACTION : $UWORD; LDSUSP$W_FUNC : $UWORD; LDSUSP$W_RETCODE : $UWORD; END; (*** MODULE $LIBFILDEF ***) N(* Interface definitions for LIB$*_FILE *)N(* *)N(* LIB$FIND_FILE flag definitions *) LCONST LIB$M_FIL_NOWILD = 1; (* No wild carding allow *)G LIB$M_FIL_MULTIPLE = 2; (* Multiple input files *) N(* LIB$RENAME_FILE flag definitions *) LCONST LIB$M_FIL_CUR_VER = 1; (* Current version used *)G LIB$M_FIL_INH_SECUR = 2; (* Inherit security *) N(* LIB$DELETE_FILE & LIB$FIND_FILE & LIB$RENAME_FILE flag definition *) LCONST LIB$M_FIL_LONG_NAMES = 4; (* Handle long file names *)G LIB$M_FIL_IGNORE_ACCESS = 8; (* Ignore write access on delete *)I LIB$M_FIL_OPEN_SPECIAL = 16; (* Correspands to NAML$V_OPEN_SPECIAL *) T(* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *)N(* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *) LCONST LIB$M_FIL_SYMLINK_DEFAULT = 0; (* use process default *)G LIB$M_FIL_SYMLINK_NONE = 32; (* use no symlinks *)G LIB$M_FIL_SYMLINK_ALL = 64; (* use symlinks always *)G LIB$M_FIL_SYMLINK_NOELLIPS = 96; (* use symlinks except in ellipsis *) (*** MODULE $LIBFISDEF ***) N(* Interface definitions for LIB$FIND_IMAGE_SYMBOL *)N(* *)N(* LIB$FIND_IMAGE_SYMBOL flag definitions *) CONST LIB$M_FIS_PARANOID = 1; LIB$M_FIS_NOTRANSLOG = 8; LIB$M_FIS_MIXEDCASE = 16; LIB$M_FIS_TV_AV = 32; TYPE LIB$FIS_FLAGS = RECORDQ LIB$V_FIS_PARANOID : [POS(0)] $BOOL; (* Force paranoid bit on for $IMGACT *)' LIB$V_FIS_FILL_2 : [POS(1)] $BIT2;X LIB$V_FIS_NOTRANSLOG : [POS(3)] $BOOL; (* $IMGACT lookup on untranslated logical *)G LIB$V_FIS_MIXEDCASE : [POS(4)] $BOOL; (* Mixed case symbols *)N LIB$V_FIS_TV_AV : [POS(5)] $B OOL; (* Append "_TV_AV" to the image name *)% LIB$V_FILL_80_ : [POS(6)] $BIT2; END; (*** MODULE $LIBWAITDEF ***) N(* Interface definitions for LIB$WAIT *)N(* *)N(* LIB$WAIT floating-point format codes (must equal CVT$K_VAX_F,... codes) *) LCONST LIB$K_VAX_F = 0; (* VAX F Floating point data *)G LIB$K_VAX_D = 1; (* VAX D Floati ng point data *)G LIB$K_VAX_G = 2; (* VAX G Floating point data *)G LIB$K_VAX_H = 3; (* VAX H Floating point data *)G LIB$K_IEEE_S = 4; (* IEEE S Floating point data *)G LIB$K_IEEE_T = 5; (* IEEE T Floating point data *) N(* LIB$WAIT option definitions *) LCONST LIB$K_WAKE = 0; (* WAKE option, interruptable *)G LIB$K_NOWAKE = 1; (* NOWAKE option, non-interruptable *) (*** MODULE $LOGTYPDEF ***) N(* *)N(* Entry type definitions *)N(* *) LCONST LOGTYP$C_SS_ENTRY = 0; (*Standard service entry *)G LOGTYP$C_SS_EXIT = 1; (*Standard service exit *)G LOGTYP$C_PS_ENTRY = 2; (*Protected service entry *)G LOGTYP$C_PS_EXIT = 3; (*Protected service exit *)G LOGTYP$C_STARTUP = 4; (*Startup logging *)G LOGTYP$C_STOP = 5; (*Stop logging *)G LOGTYP$C_UNLOAD = 6; (*Stop logging and delete buffers *)I LOGTYP$C_FILE_OPENED = 7; (*Internal file open kernel mode part *) LOGTYP$C_EOBUF = -1; LOGTYP$M_ARGS = 1; LOGTYP$M_FILE = 2; TYPE log typ$flags = RECORD$ LOGTYP$V_ARGS : [POS(0)] $BOOL;$ LOGTYP$V_FILE : [POS(1)] $BOOL;' LOGTYP$v_fill_1 : [POS(2)] $BIT30; END; (*** MODULE $LKIDEF ***) N(*+ *)N(* *)N(* Get Lock Information Data Identifier Definitions *)N(* *)N(* *** * NOTE **** *)I(* The LKIDEF structure is defined multiple times to accomidate C! *)N(* *)N(* New items can not be added to the end of LKIDEF or LKIDEF_BR *)I(* since this require all users to re-link. GETLKI can return *)I(* multiples of these structures concatenated and thus any *)I(* new items returned should really be pla ced in a new structure. *)N(*- *) WCONST LKI$K_LENGTH = 24; (*LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO *)R LKI$C_LENGTH = 24; (*LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO *)O LKI$K_BR_LENGTH = 56; (*LENGTH OF LIST BLOCK WITH BYTE RANGE INFO *)O LKI$C_BR_LENGTH = 56; (*LENGTH OF LIST BLOCK WITH BYTE RANGE INFO *) &TYPE LKI$TYPE = RECORD CASE INTEGER OF% 1: (LKI $R_U1 : [BYTE(4)] RECORD END;G LKI$L_PID : UNSIGNED; (*PROCESS ID *)% LKI$R_U2 : [BYTE(4)] RECORD END;G LKI$B_RQMODE : $UBYTE; (*REQUEST MODE *)G LKI$B_GRMODE : $UBYTE; (*GRANTED MODE *)G LKI$B_QUEUE : $BYTE; (*LOCK QUEUE *)G LKI$$$_SPARE : $BYTE; (*SPARE BYTE *)% LKI$R_U3 : [BYTE(4)] RECORD END;% LKI$R_U4 : [BYTE(4) ] RECORD END;G LKI$Q_RQSTART : $UQUAD; (* REQUEST RANGE START *)G LKI$Q_RQLENGTH : $UQUAD; (* REQUEST RANGE LENGTH *)G LKI$Q_GRSTART : $UQUAD; (* GRANTED RANGE START *)G LKI$Q_GRLENGTH : $UQUAD; (* GRANTED RANGE LENGTH *) );G 2: (LKI$L_MSTLKID : [POS(0)] UNSIGNED; (*LOCK ID ON MASTER *)G LKI$L_MSTCSID : [POS(64)] UNSIGNED; (*CSID OF MASTER *)G LKI$L_LKID : [POS(128)] UNSIGNE D; (*LOCK ID ON PROCESS NODE *)G LKI$L_CSID : [POS(160)] UNSIGNED; (*CSID OF PROCESS NODE *) );G 3: (LKI$L_LOCKID : [POS(0)] UNSIGNED; (*OLD SYMBOL *)G LKI$L_SYSID : [POS(64)] UNSIGNED; (*OLD SYMBOL *)G LKI$L_REMLKID : [POS(128)] UNSIGNED; (*OLD SYMBOL *)G LKI$L_REMSYSID : [POS(160)] UNSIGNED; (*OLD SYMBOL *) ) END; N(* DEFINE NAMSPACE FIELDS  *) !CONST LKI$M_SYSNAM = -2147483648; +TYPE NAMSPACE$TYPE = RECORD CASE INTEGER OF1 1: (LKI$R_NAMSPACE_UNION : [BYTE(4)] RECORD END; ); 2: ();G 3: (LKI$W_GROUP : [POS(0)] $UWORD; (*GROUP OF OWNER UIC *)G LKI$B_RMOD : [POS(16)] $UBYTE; (*ACCESS MODE OF REQUEST *)G LKI$B_STATUS : [POS(24)] $UBYTE; (*STATUS OF RESOURCE *) );6 4: (LKI$R_STATUS_BITS : [POS(0), BYTE(4)] RECORD END; );G 5: (LKI$V_SYSNAM : [POS(31)] $BOO L; (* SYSTEM WIDE RSB *) ) END; N(* DEFINE STATE FIELDS *) TYPE STATEF$TYPE = RECORDG LKI$B_STATE_RQMODE : $UBYTE; (*REQUEST MODE *)G LKI$B_STATE_GRMODE : $UBYTE; (*GRANTED MODE *)G LKI$B_STATE_QUEUE : $BYTE; (*LOCK STATE CODE *) END; CONST LKIUSR$K_LENGTH = 20; LKIUSR$C_LENGTH = 20;V LKIUSR$K_BLOCKER_START = 20; (* OFFSET TO THE START OF THE RETURNED INFORMATION *) TYPE LKIUSR$TYPE = RECORDG LKIUSR$Q_START : $UQUAD; (* START OF THE REQUESTED RANGE *)G LKIUSR$Q_LENGTH : $UQUAD; (* LENGTH OF THE REQUESTED RANGE *)G LKIUSR$B_RQMODE : $UBYTE; (* REQUESTED MODE *)Z LKIUSR$B_IGNORE_OWN : $UBYTE; (* FLAG TO IGNORE LOCKS OWNED BY THE CALLING PROCESS *)G LKI$$_FILL_1 : $WORD; (* reserved *) END; RNG$TYPE = RECORDG LKI$_RNG_Q_ RQSTART : $UQUAD; (* REQUEST RANGE START *)G LKI$_RNG_Q_RQLENGTH : $UQUAD; (* REQUEST RANGE LENGTH *)G LKI$_RNG_Q_GRSTART : $UQUAD; (* GRANTED RANGE START *)G LKI$_RNG_Q_GRLENGTH : $UQUAD; (* GRANTED RANGE LENGTH *) END; N(*LOCK STATE CODE VALUES *) LCONST LKI$C_GRANTED = 1; (* GRANTED *)G LKI$C_CONVERT = 0; (* CONVERSION  *)G LKI$C_WAITING = -1; (* WAITING *)G LKI$C_RETRY = -2; (* RETRY REQUEST *)G LKI$C_SCSWAIT = -3; (* SCS WAIT *)G LKI$C_RSPNOTQED = -4; (* RESPONSE NOT QUEUED *)G LKI$C_RSPQUEUED = -5; (* RESPONSE QUEUED *)G LKI$C_RSPGRANTD = -6; (* RESPONSE GRANTED *)G LKI$C_RSPDOLOCL = -7; (* RESP ONSE DO LOCALLY *)G LKI$C_RSPRESEND = -8; (* RESPONSE RESEND *) N(* DEFINE TABLE NUMBERS *)N(* STRUCTURE CODES MUST START AT 1 *) LCONST LKI$C_LKBTYPE = 1; (* ITEM IN LKB *)G LKI$C_RSBTYPE = 2; (* ITEM IN RSB *)G LKI$C_LISTEND = 0; (* DEFINE ITMLST TERMINATOR *) N (* ITEM IDENTIFIERS FOR LKB *) LCONST LKI$_PID = 256; (* PROCESS ID *)G LKI$_STATE = 257; (* CURRENT LOCK STATE *)G LKI$_PARENT = 258; (* ID OF PARENT LOCK *)G LKI$_LCKREFCNT = 259; (* SUB-LOCK REFERENCE COUNT *)G LKI$_LOCKID = 260; (* LOCK ID *)G LKI$_REMLKID = 261; (* REMOTE LOCK ID *)G LKI$_MSTLKID = 262; (* LOCK ID ON RESOURCE MASTER *)G LKI$_LKID = 263; (* LOCK ID ON PROCESS NODE *)G LKI$_CSID = 264; (* CSID OF PROCESS NODE *)G LKI$_BRL = 265; (* IS THE LOCK A BYTE RANGE LOCK *) ,(** , TSKID /* TASK ID FOR MULTITASK *) LCONST LKI$_RANGE = 266; (* Range of request *)G LKI$_LASTLKB = 267; (* MAX INDEX IN LKB TABLE *) N(* ITEM IDENTIFIERS FOR RSB *) LCONST LKI$_NAMSPACE = 512; (* RESOURCE NAME SPACE *)G LKI$_RESNAM = 513; (* RESOURCE NAME *)G LKI$_RSBREFCNT = 514; (* SUB-RESOURCE REFERENCE COUNT *)G LKI$_VALBLK = 515; (* VALUE BLOCK *)H LKI$_SYSTEM = 516; (* SYSTEM ID OF SYSTEM WITH RESOURCE *)G LKI$_LCKCOUNT = 517;  (* COUNT OF LOCKS ON RESOURCE *)L LKI$_BLOCKEDBY = 518; (* LIST OF LOCKS BLOCKED BY CURRENT LOCK *)J LKI$_BLOCKING = 519; (* LIST OF LOCKS BLOCKING CURRENT LOCK *)G LKI$_LOCKS = 520; (* LIST OF ALL LOCKS ON RESOURCE *)I LKI$_CVTCOUNT = 521; (* COUNT OF LOCKS ON CONVERSION QUEUE *)G LKI$_WAITCOUNT = 522; (* COUNT OF LOCKS ON WAIT QUEUE *)G LKI$_GRANTCOUNT = 523; (* COUNT OF LOCKS ON GRANT QUEUE *)G L KI$_MSTCSID = 524; (* CSID OF RESOURCE MASTER *)G LKI$_VALBLKST = 525; (* VALUE BLOCK STATUS *)] LKI$_BLOCKEDBY_BR = 526; (* LIST OF LOCKS BLOCKED BY CURRENT LOCK WITH BYTE RANGES *)_ LKI$_BLOCKING_BR = 527; (* LIST OF LOCKS BLOCKING THE CURRENT LOCK WITH BYTE RANGES *)] LKI$_LOCKS_BR = 528; (* LIST OF LOCKS ALL LOCKS ON A RESOURCE WITH BYTE RANGES *)X LKI$_BLOCKER_BR = 529; (* LOCK THAT WILL BLOCK THE REQUESTED RANGE AND MODE *)G LKI$_XVALBLK = 530; (* EXTENDED VALUE BLOCK *)G LKI$_XVALNOTVALID = 531; (* VALIDITY OF EXTENDED VALUE BLOCK *)X LKI$_LASTRSB = 532; (* MAX INDEX IN RSB (MUST BE LAST internal use only) *)G LKISND$K_HDRLEN = 16; (*LENGTH OF HEADER *)G LKISND$C_HDRLEN = 16; (*LENGTH OF HEADER *) TYPE LKISND$TYPE = RECORDp (* Format for local system buffer h eader when sending an information request *)G (* to a remote system. *)G LKISND$W_RETSIZE : $UWORD; (* size of return info *)G LKISND$W_STATUS : $UWORD; (* status of operation *)G LKISND$W_FLAGS : $UWORD; (* flags *)G LKISND$W_SEQNUM : $UWORD; (* rebuild seqnm *)G LKISND$W_SIZE : $UWORD; (* size of structure *)G LKISND$B_TY PE : $UBYTE; (* type of stucture *)G LKISND$B_FILL_2 : $UBYTE; (* *)G LKISND$B_ITEM_LENGTH : $UBYTE; (* len of item info *)G LKISND$B_FILL_3 : $UBYTE; (* *)G LKISND$W_FILL_4 : $UWORD; (* *) END; (*** MODULE $LKSBDEF ***) N(*+ *)N(* Define Lock Status Block *)N(*- *) TYPE LKSB$TYPE = RECORDG LKSB$W_STATUS : $UWORD; (* Status *)G LKSB$W_RESERVED : $UWORD; (* Reserved *)G LKSB$L_LKID : UNSIGNED; (* Lock identification *)G LKSB$B_VALBLK : ARRAY [1..16] OF $UBYTE; (* Lock value block *) END; LCONST LKSB$K_LENGTH = 24; (* Length of LKSB *)G LKSB$C_LENGTH = 24; (* Length of LKSB *) TYPE XLKSB$TYPE = RECORDG XLKSB$W_STATUS : $UWORD; (* Status *)G XLKSB$W_RESERVED : $UWORD; (* Reserved *)G XLKSB$L_LKID : UNSIGNED; (* Lock identification *)G XLKSB$B_XVALBLK : ARRAY [1..64] OF $UBYTE; (* Lock value block *) END; LCONST XLKSB$K_LENGTH = 72; (* Length of X LKSB *)G XLKSB$C_LENGTH = 72; (* Length of XLKSB *) (*** MODULE $LMFDEF ***) CONST LMF$_PROD_TOKEN = 1; LMF$_HW_ID = 2; LMF$_PROD_VERSION = 3; LMF$_PROD_DATE = 4; LMF$_CHARGE_TYPE = 5; LMF$_UNITS_IN_USE = 6; LMF$_USERNAME = 7; LMF$_CHECK_TOKEN = 8; LMF$_CHECK_HWID = 9; LMF$_NO_RELEASE = 10; LMF$C_PRDNAMLEN = 24; LMF$K_PRDNAMLEN = 24; LMF$C_PRDUCERLEN = 24; LMF$K_PRDUCERLEN = 24; LMF$C_CONTEXTLEN = 16; LMF$K_C ONTEXTLEN = 16; LMF$C_TOKENLEN = 31; LMF$K_TOKENLEN = 31; LMF$C_HW_IDLEN = 31; LMF$K_HW_IDLEN = 31; LMF$C_VERSIONLEN = 4; LMF$K_VERSIONLEN = 4; LMF$K_DATELEN = 8; LMF$C_DATELEN = 8; LMF$M_RETURN_FAILURES = 1; LMF$M_BROADCAST_FAILURES = 2; LMF$M_OUTPUT_FAILURES = 4; LMF$M_KERNEL_GRANT = 8;" LMF$M_LOOKUP_LICENSE_SPARE = -16; TYPE dvspm_masks$TYPE = RECORDL LMF$V_RETURN_FAILURES : [POS(0)] $BOOL; (* return status .vs. signal *)G LMF$V_BROADCAST_FAILURES :  [POS(1)] $BOOL; (* do an OPCOM *)G LMF$V_OUTPUT_FAILURES : [POS(2)] $BOOL; (* do a PUTMSG *)G LMF$V_KERNEL_GRANT : [POS(3)] $BOOL; (* grant in kernel mode *)G LMF$V_LOOKUP_LICENSE_SPARE : [POS(4)] $BIT28; (* spare area *) END; (*** MODULE $LNMDEF ***) CONST LNM$M_NO_ALIAS = 1; LNM$M_CONFINE = 2; LNM$M_CRELOG = 4; LNM$M_TABLE = 8; LNM$M_CONCEALED = 256; LNM$M_TERMINAL = 512; LNM$M_EXISTS = 1024; LNM$M_SHAREABLE = 65536; LNM$M_C LUSTERWIDE = 131072; LNM$M_DCL_REQUEST = 262144; LNM$M_CREATE_IF = 16777216; LNM$M_CASE_BLIND = 33554432; LNM$M_INTERLOCKED = 67108864; LNM$M_LOCAL_ACTION = 134217728; TYPE LNM$TYPE = RECORDJ (* Logical name attributes -- bits 0-7 *)I LNM$V_NO_ALIAS : [POS(0)] $BOOL; (* Do not allow outer mode alias *)G LNM$V_CONFINE : [POS(1)] $BOOL; (* Do not copy into subprocess *)J LNM$V_CRELOG : [POS(2)] $BOOL; (* Created with old $CRELOG service  *)G LNM$V_TABLE : [POS(3)] $BOOL; (* This is a table name *)G LNM$V_FILL_0 : [POS(4)] $BIT4; (* Fill out logical name byte *)W (* Logical name translation attributes -- bits 8-15 *)Q LNM$V_CONCEALED : [POS(8)] $BOOL; (* Do not display result of translation *)T LNM$V_TERMINAL : [POS(9)] $BOOL; (* Do not retranslate result of translation *)O LNM$V_EXISTS : [POS(10)] $BOOL; (* Translation does exist at this index *)G LNM$V_F ILL_1 : [POS(11)] $BIT5; (* Fill out translation byte *)W (* Logical name table characteristics -- bits 16-23 *)X LNM$V_SHAREABLE : [POS(16)] $BOOL; (* Logical name table is shareable (S0 space) *)V LNM$V_CLUSTERWIDE : [POS(17)] $BOOL; (* This is a clusterwide table (or name) *)U (* Only supported as returned $TRNLNM attribute *)V LNM$V_DCL_REQUEST : [POS(18)] $BOOL; (* $CRELNM or $CRELNT request made by DCL *)G LNM$V_FILL_2 : [POS(19)] $BOOL; (* Reserved bit numbers 18-19 *)G LNM$V_FILL_3 : [POS(20)] $BIT4; (* Fill out table byte *)K (* System service options -- bits 24-31 *)T LNM$V_CREATE_IF : [POS(24)] $BOOL; (* May map to existing logical name table *)S LNM$V_CASE_BLIND : [POS(25)] $BOOL; (* Perform case-insensitive translation *)e LNM$V_INTERLOCKED : [POS(26)] $BOOL; (* Translate clusterwide name with LNM$CWLOGICALS locked *)Y  LNM$V_LOCAL_ACTION : [POS(27)] $BOOL; (* A local operation on a clusterwide name *)W (* done in response to a request from another node *)G (* Only supported from kernel mode *)G LNM$V_FILL_4 : [POS(28)] $BIT4; (* Fill out options byte *) END; gCONST LNM$C_TABNAMLEN = 31; (* Maximum length of a name contained within a directory table *)P LNM$C_NAMLENGTH = 255; (* Maximum logical name / tra nslation length *)K LNM$C_MAXDEPTH = 10; (* Maximum logical name recursion depth *)G LNM$_INDEX = 1; (* Translation index *)G LNM$_STRING = 2; (* Translation string *)G LNM$_ATTRIBUTES = 3; (* Attribute bits *)G LNM$_TABLE = 4; (* Logical name table name *)G LNM$_LENGTH = 5; (* Length of translation string *)G LNM$_ACMODE = 6; (* Ac cess mode of name *)G LNM$_MAX_INDEX = 7; (* Maximum translation index *)G LNM$_PARENT = 8; (* Parent logical name table name *)G LNM$_LNMB_ADDR = 9; (* Return LNM block address *) N(* internal use by MTL *)N(* and mailbox UCB *) XCONST LNM$_AGENT_ACMODE = 10; (* Probes to be done at a different access mode *) N(* Define item list codes *) LCONST LNM$_CHAIN = -1; (* Chain to next list *) (*** MODULE $LPDEF ***) N(*+ *)N(* LINE PRINTER CHARACTERISTICS DEFINITIONS *)N(*- *) CONST LP$M_CR = 1; LP$M_MECHFORM = 2; LP$M_PRIN TALL = 4; LP$M_DAVFU = 8; LP$M_WRAP = 16; LP$M_TRUNCATE = 32; LP$M_TAB = 64; LP$M_LOWER = 128; LP$M_PASSALL = 256; LP$M_FALLBACK = 512; LP$M_SIXELS = 1024; LP$M_BITMAPPED = 2048; LP$M_POLLED = 4096; LP$M_BIDIRECTIONAL = 8192; LP$M_PAGE_L = -16777216; LP$_LP11 = 1; LP$_LA11 = 2; LP$_LA180 = 3; LP$_PC_PRINTER = 8; %TYPE LP$TYPE = RECORD CASE INTEGER OF, 1: (LP$R_LPDEF_BITS : [BYTE(4)] RECORD END; );G 2: (LP$V_CR : [POS(0)] $BOOL; (* CARRIAGE RETURN  NEEDED *)G LP$V_MECHFORM : [POS(1)] $BOOL; (* MECHANICAL FORM FEED *)N LP$V_PRINTALL : [POS(2)] $BOOL; (* NON PRINTABLE CHAR. ACCEPT(DMF-32) *)G LP$V_DAVFU : [POS(3)] $BOOL; (* DAVFU AVAIL. *)G LP$V_WRAP : [POS(4)] $BOOL; (* CHAR. WRAP MODE *)L LP$V_TRUNCATE : [POS(5)] $BOOL; (* TRUNCATE output at carriage width *)G LP$V_TAB : [POS(6)] $BOOL; (* TAB needed *)G LP$V_LOWER : [POS(7)] $BO OL; (* PRINTER HAS LOWER CASE *)G LP$V_PASSALL : [POS(8)] $BOOL; (* PASSALL MODE *)G LP$V_FALLBACK : [POS(9)] $BOOL; (* FALLBACK MODE *)G LP$V_SIXELS : [POS(10)] $BOOL; (* HANDLES SIXELS *)G LP$V_BITMAPPED : [POS(11)] $BOOL; (* HANDLES BIT MAPS *)G LP$V_POLLED : [POS(12)] $BOOL; (* Printer will poll device *)J LP$V_BIDIRECTIONAL : [POS(13)] $BOOL; (* Bidirectional USB printer *)G LP$V_PAGE_L : [POS(24)] $BIT8; (* PAGE LENGTH *) ) END; N(* END. *) N(* MODULE STARDEFMP ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD  *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR  = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63;  *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..819 1; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863;  *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MACIDDEF ***) N(*+ *)N(* *)N(* Module $UICDEF defines the rightslist identifier space from %XA0000000 *)N(* thru %XA3FFFFFF as being reserved for use by SEVMS. *)N(* *)N(* This space has been segmented as: *)N(*  *)I(* %XA0000000 thru %XA000FFFF for MAC secrecy level identifiers *)I(* %XA0010000 thru %XA001FFFF for MAC secrecy category identifiers *)I(* %XA0020000 thru %XA002FFFF for MAC integrity level identifiers *)I(* %XA0030000 thru %XA003FFFF for MAC integrity category identifiers *)N(* *)O(* to provide 64K identifiers within each grouping. This allows for growth *)N(* consistent with variable format (i.e. type DYN_CAT) class blocks. *)N(* *)N(*- *) CONST MACID$M_ID_NUM = 65535; MACID$M_LVL_CAT_SEL = 65536;G MACID$K_LVL = 0; (* Level ID sub-group *)G MACID$K_CAT = 1; (* Category ID sub-group *) MACID$M_SEC_INT_SEL = 131072;G M ACID$K_SEC = 0; (* Secrecy ID group *)G MACID$K_INT = 1; (* Integrity ID group *) MACID$M_MBZ = 66846720; MACID$M_FMT_SEL = -67108864;G MACID$K_SEVMS_ID = 40; (* Format specifier for SEVMS *) N(* identifiers as defined by $UICDEF *)  (*** MODULE $MAILDEF ***) N(* *)N(* Definitions needed for callable mail. *)N(* *)N(* *)N(* NOTE: New item codes must be appended to the end of *)N(* each category so users will not have to relink. *)N(* We allow 1024 entries in eatch category. *)N(*  *)N(* *)N(* Send input codes *)N(* *) CONST mail$_send_spare_0 = 1;G mail$_send_foreign = 2; (* Send foreign format message *)G mail$_send_cc_line = 3; (* CC text specification *)G mail$_send_default_name = 4; (* Default file name for send *)N mail$_send_default_transport = 5; (* Default transport used for addressees *)I mail$_send_error_entry = 6; (* Entry point for send error routine *)I mail$_send_filename = 7; (* Specification of file name to send *)G mail$_send_from_line = 8; (* From text specification *)S mail$_send_no_default_transport = 9; (* Don't use any default transport on send *)G mail$_send_pers_name = 10; (* Personal name text for message *)G mail$_send_record  = 11; (* Record to be sent *)G mail$_send_resultspec = 12; (* Resultant filespec bodypart *)N mail$_send_server = 13; (* Operate in server mode (signal success) *)G mail$_send_subject = 14; (* Subject text specification *)K mail$_send_success_entry = 15; (* Entry point for send success routine *)G mail$_send_to_line = 16; (* To line text specification *)G mail$_send_uflags = 17; (* User flags (for header) to send * )Q mail$_send_user_data = 18; (* User specified context for action routines *)G mail$_send_username = 19; (* Username to add to the "To" list *)G mail$_send_username_type = 20; (* Username type - TO or CC *)G mail$_send_fid = 21; (* FID of file to send *)I mail$_send_no_pers_name = 22; (* Send message without personal name *)G mail$_send_sigfile = 23; (* Signature file *)G mail$_send_no_sigfile = 24; (* Signature file *)G mail$_send_parse_quotes = 25; (* Reply String Parsing Quotes *) N(* *)N(* Send output codes *)N(* *) LCONST mail$_send_copy_reply = 26; (* Copy self reply set in profile *)G mail$_send_copy_send = 27; (* Copy self send set in profile *)G mai l$_send_user = 28; (* Username of caller *)G mail$_send_copy_forward = 29; (* Copy self forward set in profile *)P mail$_send_recip_folder = 30; (* Recipient folder name to send the mail to *) mail$_send_out_spare3 = 31; mail$_send_out_spare4 = 32; mail$_send_out_spare5 = 33; mail$k_send_min_item = 1; mail$k_send_max_item = 33; mail$k_send_items = 33; N(* *)N(* file input codes   *)N(* *) $CONST mail$_mailfile_spare_0 = 1025;G mail$_mailfile_default_name = 1026; (* Default filespec to open *)Z mail$_mailfile_folder_routine = 1027; (* Entry point of routine to process foldernames *)Z mail$_mailfile_full_close = 1028; (* Do a PURGE, CONVERT/RECLAIM if necessary on close *)G mail$_mailfile_name = 1029; (* File spec to open  *)G mail$_mailfile_reclaim = 1030; (* Do RECLAIM on PURGE command *)R mail$_mailfile_user_data = 1031; (* User specified context for action routines *)L mail$_mailfile_wastebasket_name = 1032; (* New wastebasket name for file *)G mail$_mailfile_collate_seq = 1033; (* I18N collating sequence *)! mail$_mailfile_in_spare2 = 1034;! mail$_mailfile_in_spare3 = 1035;! mail$_mailfile_in_spare4 = 1036;! mail$_mailfile_in_spare5 = 1037;! mail$_mailfile_in_spare6 = 1038;! mail$_mailfile_in_spare7 = 1039;! mail$_mailfile_in_spare8 = 1040;! mail$_mailfile_in_spare9 = 1041;" mail$_mailfile_in_spare10 = 1042;" mail$_mailfile_in_spare11 = 1043;" mail$_mailfile_in_spare12 = 1044;" mail$_mailfile_in_spare13 = 1045;" mail$_mailfile_in_spare14 = 1046;" mail$_mailfile_in_spare15 = 1047;" mail$_mailfile_in_spare16 = 1048;" mail$_mailfile_in_spare17 = 1049;" mail$_mailfile_in_spare18 = 1050;" mail$_mailfile_in_spare19 = 1051;" mail$_mailfile_in_spare20 = 1052; N(*  *)N(* file output codes *)N(* *) PCONST mail$_mailfile_data_reclaim = 1053; (* Number of data buckets reclaimed *)G mail$_mailfile_data_scan = 1054; (* Number of data buckets scanned *)M mail$_mailfile_deleted_bytes = 1055; (* Number of free bytes in mail file *)M mail$_mailfile_index_reclaim = 1056; (* Number of index buckets reclaimed *)M mail$_mailfile_mail_directory = 1057; (* Mail sub-directory specification *)I mail$_mailfile_messages_deleted = 1058; (* Number of messages deleted *)G mail$_mailfile_resultspec = 1059; (* Resultant file spec *)G mail$_mailfile_total_reclaim = 1060; (* Total buckets reclaimed *)G mail$_mailfile_wastebasket = 1061; (* Wastebasket name *)G mail$_mailfile_indexed = 1062; (* ISAM file *)" mail$_mailfile_out_spare2 = 1063;" mail$_mailfile_out_spare3 = 1064;" mail$_mailfile_out_spare4 = 1065;" mail$_mailfile_out_spare5 = 1066;" mail$_mailfile_out_spare6 = 1067;" mail$_mailfile_out_spare7 = 1068;" mail$_mailfile_out_spare8 = 1069;" mail$_mailfile_out_spare9 = 1070;# mail$_mailfile_out_spare10 = 1071;# mail$_mailfile_out_spare11 = 1072;# mail$_mailfile_out_spare12 = 1073;# mail$_mailfile_out_spare13 = 1074;# mail$_mailfile_out_spare14 = 1075;# mail$_mailfile_out_spare15 = 1076; # mail$_mailfile_out_spare16 = 1077;# mail$_mailfile_out_spare17 = 1078;# mail$_mailfile_out_spare18 = 1079;# mail$_mailfile_out_spare19 = 1080;# mail$_mailfile_out_spare20 = 1081;! mail$k_mailfile_min_item = 1025;! mail$k_mailfile_max_item = 1081; mail$k_mailfile_items = 57; N(* *)N(* message input codes *)N(*  *) #CONST mail$_message_spare_0 = 2048;G mail$_message_back = 2049; (* Get previous message *)G mail$_message_before = 2050; (* Select messages BEFORE date *)Q mail$_message_cc_substring = 2051; (* Select messages containing CC substring *)G mail$_message_continue = 2052; (* Read next record *)G mail$_message_file_action = 2053; (* File create action routine *)G mail$_message_folder_action = 2054; (* Folder create action routine *)G mail$_message_default_name = 2055; (* Default file name *)G mail$_message_delete = 2056; (* Delete message *)G mail$_message_erase = 2057; (* Erase message *)G mail$_message_file_ctx = 2058; (* File level context *)G mail$_message_filename = 2059; (* File name specification *)G mail$_message_flags = 2060; (* Header flags specification *)G mail$_message_folder = 2061; (* Folder name specification *)U mail$_message_from_substring = 2062; (* Select messages containing FROM substring *)G mail$_message_id = 2063; (* ID of message *)G mail$_message_next = 2064; (* Retrive NEXT message *)G mail$_message_since = 2065; (* Select messages SINCE date *)U mail$_message_subj_substring = 2066; (* Select messages containing SUBJ substring *)Q mail$_message_to_substring = 2067; (* Select messages containing TO subst ring *)G mail$_message_uflags = 2068; (* User flags specification *)G mail$_message_auto_newmail = 2069; (* Move newmail to MAIL auto *)G mail$_message_user_data = 2070; (* User context for action routines *)S mail$_message_flags_mbz = 2071; (* Select messages with these flags set at zero *)G mail$_message_min_class = 2072; (* Min access class for message *)G mail$_message_max_class = 2073; (* Max access class for message *) mail$_message_in_spare1 = 2074; mail$_message_in_spare2 = 2075; mail$_message_in_spare3 = 2076; mail$_message_in_spare4 = 2077; mail$_message_in_spare5 = 2078; mail$_message_in_spare6 = 2079; mail$_message_in_spare7 = 2080; mail$_message_in_spare8 = 2081; mail$_message_in_spare9 = 2082;! mail$_message_in_spare10 = 2083;! mail$_message_in_spare11 = 2084;! mail$_message_in_spare12 = 2085;! mail$_message_in_spare13 = 2086;! mail$_message_in_spare14 = 2087;! mail$_message_in_spare15 = 2088;! mail$_message_in_spare1 6 = 2089;! mail$_message_in_spare17 = 2090;! mail$_message_in_spare18 = 2091;! mail$_message_in_spare19 = 2092;! mail$_message_in_spare20 = 2093; N(* *)N(* message output codes *)N(* *) LCONST mail$_message_cc = 2094; (* CC text of message *)G mail$_message_current_id = 2095; (* ID of current message *)G mail$_message_date = 2096; (* Date of current message *)G mail$_message_extid = 2097; (* Filespec of external message *)G mail$_message_file_created = 2098; (* Mailfile created... *)G mail$_message_folder_created = 2099; (* Folder created... *)G mail$_message_from = 2100; (* From text of message *)G mail$_message_record = 2101; (* Record from message *)G mail$_message_record_type = 2102; (* Type of record, header or text *)G mail$_message_reply_path = 2103; (* Reply path of sender *)G mail$_message_resultspec = 2104; (* Resultant file spec *)G mail$_message_return_flags = 2105; (* Message header system flags *)G mail$_message_return_uflags = 2106; (* Message header user flags *)G mail$_message_selected = 2107; (* Number of messages selected *)G mail$_message_sender = 2108; (* Sender name *)G mail$_message_size = 2109; (* Size of the current message *)G mail$_message_subject = 2110; (* Subject text of the message *)G mail$_message_to = 2111; (* To text of the message *)G mail$_message_buffer = 2112; (* Buffer address *)G mail$_message_return_class = 2113; (* Class of current message *)G mail$_message_binary_date = 2114; (* Binary date/time quadword *) mail$_message_spare4 = 2115;G mail$_message_parse_quotes = 2116; (* Reply String Parsing Quotes *) mail$_message_spare6 = 2117; mail$_message_spare7 = 2118; mail$_message_spare8 = 2119; mail$_message_spare9 = 2120; mail$_message_spare10 = 2121; mail$_message_spare11 = 2122; mail$_message_spare12 = 2123; mail$_message_spare13 = 2124; mail$_message_spare14 = 2125; mail$_message_spare15 = 2126; mail$_message_spare16 = 2127; mail$_message_spare17 = 2128; mail$_message_spare18 = 2129; mail$_message_spare19 = 2130; N(*  *)N(* Constants returned *)N(* *) LCONST mail$_message_null = 2131; (* Null bodypart *)G mail$_message_header = 2132; (* Header record returned *)G mail$_message_text = 2133; (* Text record returned *) mail$_message_spare20 = 2134; mail$k_messag e_min_item = 2048; mail$k_message_max_item = 2134; mail$k_message_items = 87; N(* *)N(* user input codes *)N(* *) CONST mail$_user_spare_0 = 3072;G mail$_user_first = 3073; (* Retrive first user record *)G mail$_user_next = 3074; (* Retrive next user record   *)G mail$_user_username = 3075; (* Retrive record for username *)G mail$_user_set_auto_purge = 3076; (* Set auto-purge *)G mail$_user_set_no_auto_purge = 3077; (* Clear auto-purge *)G mail$_user_set_sub_directory = 3078; (* Set sub-dir field *)G mail$_user_set_no_sub_directory = 3079; (* Clear sub-dir field *)G mail$_user_set_forwarding = 3080; (* Set forwarding address *)G mail$_user_set_no_forwarding = 3081; (* Clear forward!ing address *)G mail$_user_set_personal_name = 3082; (* Set personal name *)G mail$_user_set_no_personal_name = 3083; (* Clear personal name *)G mail$_user_set_copy_send = 3084; (* Set copy-send *)G mail$_user_set_no_copy_send = 3085; (* Clear copy send *)G mail$_user_set_copy_reply = 3086; (* Set copy reply *)G mail$_user_set_no_copy_reply = 3087; (* Clear copy reply *)G mail$_user_set_new_messages = 3088; (* Se"t new message count *)G mail$_user_create_if = 3089; (* Create record if does not exist *)G mail$_user_set_mailplus = 3090; (* Set M+ *)G mail$_user_set_no_mailplus = 3091; (* Clear M+ *)G mail$_user_set_transport = 3092; (* Set transport field *)G mail$_user_set_no_transport = 3093; (* Clear transport field *)G mail$_user_set_editor = 3094; (* Set editor field *)G mail$_user_set_no_editor = 30#95; (* Clear editor field *)G mail$_user_set_queue = 3096; (* Set queue field *)G mail$_user_set_no_queue = 3097; (* Clear queue field *)G mail$_user_set_user1 = 3098; (* Set user1 field *)G mail$_user_set_no_user1 = 3099; (* Clear user1 field *)G mail$_user_set_user2 = 3100; (* Set user2 field *)G mail$_user_set_no_user2 = 3101; (* Clear user2 field *)G mail$_user_set_us$er3 = 3102; (* Set user3 field *)G mail$_user_set_no_user3 = 3103; (* Clear user3 field *)G mail$_user_set_form = 3104; (* Set form field *)G mail$_user_set_no_form = 3105; (* Clear form field *)G mail$_user_set_copy_forward = 3106; (* Set copy self forward *)G mail$_user_set_no_copy_forward = 3107; (* Clear copy self forward *)G mail$_user_set_cc_prompt = 3108; (* Set CC prompting *)G mail$ %_user_set_no_cc_prompt = 3109; (* Clear CC prompting *)G mail$_user_set_sigfile = 3110; (* Set signature file *)G mail$_user_set_no_sigfile = 3111; (* Clear signature file *) mail$_user_in_spare1 = 3112; mail$_user_in_spare2 = 3113; mail$_user_in_spare3 = 3114; mail$_user_in_spare4 = 3115; mail$_user_in_spare5 = 3116; mail$_user_in_spare6 = 3117; mail$_user_in_spare7 = 3118; mail$_user_in_spare8 = 3119; mail$_user_in_spare9 = 3120; m&ail$_user_in_spare10 = 3121; mail$_user_in_spare11 = 3122; mail$_user_in_spare12 = 3123; mail$_user_in_spare13 = 3124; mail$_user_in_spare14 = 3125; mail$_user_in_spare15 = 3126; mail$_user_in_spare16 = 3127; mail$_user_in_spare17 = 3128; mail$_user_in_spare18 = 3129; mail$_user_in_spare19 = 3130; mail$_user_in_spare20 = 3131; N(* *)N(* Output item parameters ' *)N(* *) LCONST mail$_user_mailplus = 3132; (* M+ field *)G mail$_user_transport = 3133; (* Transport field *)G mail$_user_editor = 3134; (* Editor field *)G mail$_user_queue = 3135; (* Queue field *)G mail$_user_user1 = 3136; (* User1 field *)G mail$_user_user2 = 3137; (* User(2 field *)G mail$_user_user3 = 3138; (* User3 field *)G mail$_user_form = 3139; (* Form field *)G mail$_user_copy_forward = 3140; (* Copy forward flag *)G mail$_user_sigfile = 3141; (* Signature file *)G mail$_user_return_username = 3142; (* Username of current record *)G mail$_user_auto_purge = 3143; (* Auto purge flag *)G mail$_user_sub_directory = )3144; (* Sub-dir spec *)G mail$_user_full_directory = 3145; (* Full directory spec *)G mail$_user_new_messages = 3146; (* New message count *)G mail$_user_forwarding = 3147; (* Forwarding field *)G mail$_user_personal_name = 3148; (* Personal name field *)G mail$_user_copy_send = 3149; (* Copy send flag *)G mail$_user_copy_reply = 3150; (* Copy reply flag *)G mail$_user_capt*ive = 3151; (* User is captive *)G mail$_user_cc_prompt = 3152; (* CC prompting flag *) mail$_user_out_spare2 = 3153; mail$_user_out_spare3 = 3154; mail$_user_out_spare4 = 3155; mail$_user_out_spare5 = 3156; mail$_user_out_spare6 = 3157; mail$_user_out_spare7 = 3158; mail$_user_out_spare8 = 3159; mail$_user_out_spare9 = 3160; mail$_user_out_spare10 = 3161; mail$_user_out_spare11 = 3162; mail$_user_out_spare12 = 3163; mail$_user_out_+spare13 = 3164; mail$_user_out_spare14 = 3165; mail$_user_out_spare15 = 3166; mail$_user_out_spare16 = 3167; mail$_user_out_spare17 = 3168; mail$_user_out_spare18 = 3169; mail$_user_out_spare19 = 3170; mail$_user_out_spare20 = 3171; mail$k_user_min_item = 3072; mail$k_user_max_item = 3171; mail$k_user_items = 100; N(* *)N(* Special items , *)N(* *) LCONST mail$_noop = 4097; (* Do nothing - used for testing *)G mail$_nosignal = 4098; (* Don't signal errors *)H mail$_noprobe = 4099; (* Don't probe the item list buffers *)M mail$_tld_input = 4100; (* This item is a tld to be used as input *)K mail$_tld_output = 4101; (* This item describes a buffer to fill *) N(* - *)N(* Username types for mail$send_add_address *)N(* *) LCONST mail$_to = 1; (* Address part of the TO line *)G mail$_cc = 2; (* Address part of the CC line *) mail$_spare1 = 3; mail$_spare2 = 4; N(* *)N(* Define the .flag values for mail system flags *)N(* *) CONST MAIL$m_newmsg = 1; MAIL$m_replied = 2; MAIL$m_dwmail = 4; MAIL$m_extmsg = 8; MAIL$m_extfnf = 16; MAIL$m_notrans = 32; MAIL$m_extnstd = 64; MAIL$m_marked = 128; MAIL$m_recmode = 256; +TYPE flagsdef$TYPE = RECORD CASE INTEGER OF+ 1: (MAIL$r_fill_2_ : [BYTE(2)] RECORD END; );G 2: (MAIL$w_flags : [POS(0)] $UWORD; (*F /lags word *) ); 3: ();G 4: (MAIL$v_newmsg : [POS(0)] $BOOL; (*This is a new message *)K MAIL$v_replied : [POS(1)] $BOOL; (*This message has been replied to *)G MAIL$v_dwmail : [POS(2)] $BOOL; (*DW mail flag *)G MAIL$v_extmsg : [POS(3)] $BOOL; (*Message text in external file *)I MAIL$v_extfnf : [POS(4)] $BOOL; (*External message file not found *)I MAIL$v_notrans : [POS(5)] $BOOL; (*No translator for this message *)L0 MAIL$v_extnstd : [POS(6)] $BOOL; (*External file is not var-seq file *)G MAIL$v_marked : [POS(7)] $BOOL; (*This message has been marked *)U MAIL$v_recmode : [POS(8)] $BOOL; (*This message should be read in record mode *) ) END; &(*** MODULE $MAPPINGDEF IDENT X-2 ***) CONST MAPPING$K_ADD = 1; MAPPING$K_CREATE = 2; MAPPING$K_DEFINE = 3; MAPPING$K_DELETE = 4; MAPPING$K_MODIFY = 5; MAPPING$K_SCAN = 6; MAPPING$K_LOOKUP = 7; MAPPING$K_PERFORMANCE = 8; MAP1PING$K_ZERO_PERFORMANCE = 9; MAPPING$K_STOP = 10; MAPPING$K_START = 11;! MAPPING$K_MAX_MAPPING_CODE = 12; MAPPING$K_END = 100; MAPPING$K_TYPE = 101; MAPPING$K_REMOTE_AREA = 102; MAPPING$K_REMOTE_NAME = 103; MAPPING$K_LOCAL_NAME = 104; MAPPING$K_FLAGS = 105; MAPPING$K_USER_DATA = 106;" MAPPING$K_USER_DATA_LENGTH = 107; MAPPING$K_WILDCARD_MC = 108; MAPPING$K_WILDCARD_SC = 109; MAPPING$K_WILDCARD_TC = 110; MAPPING$K_WILDCARD_TS = 111; MAPPING$K_DEFINE_NAME = 112;2 MAPPING$K_DEFINE_FLAGS = 113; MAPPING$K_SCAN_BUFFER = 114; MAPPING$K_PROPOSED_NAME = 115; MAPPING$K_WC_RESOLUTION = 116;# MAPPING$K_MAX_MAPPING_ITEMS = 117;# MAPPING$K_WC_MUST_BE_UNIQUE = 200;" MAPPING$K_WC_MATCH_LONGEST = 201;# MAPPING$K_WC_MATCH_SHORTEST = 202;% MAPPING$K_WC_MATCH_MOST_TERMS = 203;' MAPPING$K_WC_MATCH_FEWEST_TERMS = 204;# MAPPING$K_WC_MATCH_LEFTMOST = 205;$ MAPPING$K_WC_MATCH_RIGHTMOST = 206; MAPPING$K_MAX_MAPPING_WC = 207;" MAPPING$K_ANY_TYPE = -21474833648;" MAPPING$K_TCP_USER = -2147483391;# MAPPING$K_TCP_GROUP = -2147483390;# MAPPING$K_TCP_PROXY = -2147483389;% MAPPING$K_DCE_MAPPING = -2147483135;# MAPPING$K_DCE_PROXY = -2147483134;) MAPPING$K_PATHWORKS_PROXY = -2147482879;& MAPPING$K_DECNET_PROXY = -2147482623;* MAPPING$K_KERBEROS_MAPPING = -2147482367;# MAPPING$K_PERFORMANCE_LENGTH = 56; !TYPE MAPPING$PERFORMANCE = RECORD) MAPPING$L_TOTAL_MESSAGES : UNSIGNED;+ MAPPING$L_TOTAL_EXCEPTIONS : UNSIGNED; MAPPING$L4_ADDS : UNSIGNED;" MAPPING$L_CREATES : UNSIGNED;# MAPPING$L_DEFINESS : UNSIGNED;" MAPPING$L_DELETES : UNSIGNED;" MAPPING$L_MODIFYS : UNSIGNED; MAPPING$L_SCANS : UNSIGNED;" MAPPING$L_LOOKUPS : UNSIGNED;& MAPPING$L_PERFORMANCE : UNSIGNED; MAPPING$L_STOPS : UNSIGNED;! MAPPING$L_STARTS : UNSIGNED;! MAPPING$L_AUDITS : UNSIGNED;+ MAPPING$L_INVALID_MESSAGES : UNSIGNED; END; !CONST MAPPING$M_LOCAL_UNIQUE = 1; MAPPING$M_REMOTE_UNIQUE = 2;5 MAPPING$M_DEFAULT_IN = 4; MAPPING$M_DEFAULT_OUT = 8; MAPPING$M_NO_DEFAULT_IN = 16; MAPPING$M_NO_DEFAULT_OUT = 32; MAPPING$M_MODIFY = 64; MAPPING$M_DEFINITION = 128; MAPPING$M_CASE_BLIND = 256; MAPPING$M_WILDCARD = 512; MAPPING$M_FIND_LOCAL = 1024; MAPPING$M_FIND_REMOTE = 2048; MAPPING$M_FILL_1 = -4096; MAPPING$K_HEADER_LENGTH = 40; ,TYPE MAPPING$HEADER = RECORD CASE INTEGER OF! 1: (MAPPING$L_LENGTH : UNSIGNED;" MAPPING$L_CONTEXT : UNSIGNED;. MAPPING$R_FILL_67_ : [BYTE(4)] RECORD END; MAPPING$L_TYPE : UNSIGNED;$ MAPPING$L_WILDFLAGS : UNSIGNED;$ MAPPING$L_WILDMULTI : UNSIGNED;% MAPPING$L_WILDSINGLE : UNSIGNED;# MAPPING$L_WILDTERM : UNSIGNED;" MAPPING$L_TERMSEP : UNSIGNED;! MAPPING$L_UNUSED : UNSIGNED; );* 2: (MAPPING$L_FLAGS : [POS(64)] UNSIGNED; ); 3: ();. 4: (MAPPING$V_LOCAL_UNIQUE : [POS(64)] $BOOL;/ MAPPING$V_REMOTE_UNIQUE : [POS(65)] $BOOL;, MAPPING$V_DEFAULT_IN : [POS(66)] $BOOL;- 7 MAPPING$V_DEFAULT_OUT : [POS(67)] $BOOL;/ MAPPING$V_NO_DEFAULT_IN : [POS(68)] $BOOL;0 MAPPING$V_NO_DEFAULT_OUT : [POS(69)] $BOOL;( MAPPING$V_MODIFY : [POS(70)] $BOOL;, MAPPING$V_DEFINITION : [POS(71)] $BOOL;, MAPPING$V_CASE_BLIND : [POS(72)] $BOOL;* MAPPING$V_WILDCARD : [POS(73)] $BOOL;, MAPPING$V_FIND_LOCAL : [POS(74)] $BOOL;- MAPPING$V_FIND_REMOTE : [POS(75)] $BOOL;) MAPPING$V_FILL_1 : [POS(76)] $BIT20; ) END; MAPPING$GENERIC_DESC1 = R8ECORD$ MAPPING$W_DESC_LENGTH : $UWORD; MAPPING$W_FILL1 : $UWORD; MAPPING$T_DESC_DATA : CHAR; END; !(*** MODULE MMEDEF IDENT X-3 ***) CONST MME$_UNLOAD = 1; MME$_ALLOC = 2; MME$_BACKUP_FILE = 3; MME$_CLOSE_READ = 4; MME$_CLOSE_WRITE = 5; MME$_CONTINUATION_VOLUME = 6; MME$_DEALLOCATE = 7; MME$_DEVICE_AVAIL = 8; MME$_DEVICE_UNAVAIL = 9; MME$_DISMOUNT = 10; MME$_DISPLAY_MESSAGE = 11; MME$_EOV_READ = 12; MME$_EOV_WRITE = 13; MME$_INITIALIZE = 194; MME$_MOUNT = 15; MME$_MOUNT_REQUEST = 16; MME$_NEWVOL_REQUEST = 17; MME$_NOTIFY_DEVICE = 18; MME$_OPCOM_ACP = 19; MME$_OPCOM_MOUNT = 20; MME$_OPEN_READ = 21; MME$_OPEN_WRITE = 22; MME$_VOLUME_ONLINE = 23; MME$_BACKUP_END = 24; MME$_BACKUP_START = 25; MME$_WRITE_REQUEST = 26; MME$_MOUNT_END = 27; MME$_INIT_END = 28; MME$_NEWVOL_END = 29; MME$_DISMNT_PROC_DEL = 30; MME$S_ACMODE = 4; MME$S_BLOCKSIZE = 4; MME$S_DENSITY = 4; MME$S_DEVICE_CONTEXT = 4;: MME$S_DMT_FLAGS = 4; MME$S_ERASE = 4; MME$S_EXPIRATION = 8; MME$S_FILESEQNO = 4; MME$S_FILESECNO = 4; MME$S_IO_FUNCTION = 4; MME$S_LABEL_ACCESS = 1; MME$S_MOUNT_CONTEXT = 4; MME$S_MNT_FLAGS = 8; MME$S_OBJCNT = 4; MME$S_OVR_ACCESS = 4; MME$S_OVR_EXP = 4; MME$S_OVR_VOLO = 4; MME$S_OWNER_UIC = 4; MME$S_PID = 4; MME$S_RECORDSIZ = 4; MME$S_RESPONSEREQ = 4; MME$S_SETNEW1 = 4; MME$S_SETNEW2 = 4; MME$S_VPROT = 4; MME$S_FILE_ID = 6; MME$S_GROUPSIZE = 4;; MME$S_PROTECTION = 4; MME$S_STATUS = 4; MME$S_ASSIGNMENT_UNIT = 4; MME$S_CARTRIDGE_SIDE = 4; MME$S_DISPOSITION = 4; MME$S_RECFORMAT = 1; N(* MME action routine argument item codes *) CONST MME$_ACMODE = 1; MME$_BLOCKSIZE = 2; MME$_COMMENT = 3; MME$_DENSITY = 4; MME$_DEVICE_CONTEXT = 5; MME$_DMT_FLAGS = 6; MME$_EOF1 = 7; MME$_EOF2 = 8; MME$_EOF3 = 9; MME$_EOF4 = 10; MME$_EOV1 = 11; MME$_EOV2 = 12; MME$_EOV3 = 13;< MME$_EOV4 = 14; MME$_ERASE = 15; MME$_FIB = 16; MME$_FILESEQNO = 17; MME$_HDR1 = 18; MME$_HDR2 = 19; MME$_HDR3 = 20; MME$_HDR4 = 21; MME$_IO_FUNCTION = 22; MME$_LABEL_ACCESS = 23; MME$_LABEL_VOLO = 24; MME$_MOUNT_CONTEXT = 25; MME$_MNT_FLAGS = 26; MME$_MSG1 = 27; MME$_MSG2 = 28; MME$_NEWDEVNAM = 29; MME$_NEWMSG1 = 30; MME$_NEWMSG2 = 31; MME$_NEWVOLNAM = 32; MME$_NXTVOL = 33; MME$_OBJCNT = 34; MME$_OVR_ACCESS = 35; MME$_OVR_EXP = 36; MME$_OVR_VO=LO = 37; MME$_OWNER_UIC = 38; MME$_PHYDEVNAM = 39; MME$_PID = 40; MME$_PREV_VOL = 41; MME$_PROCESSOR = 42; MME$_RECORDSIZ = 43; MME$_REQDEVNAM = 44; MME$_RESPONSEREQ = 45; MME$_SETNEW1 = 46; MME$_SETNEW2 = 47; MME$_VOL1 = 48; MME$_VOL2 = 49; MME$_VOLNAM = 50; MME$_VPROT = 51; MME$_BACKUP_FILE_FLAGS = 52; MME$_BACKUP_FLAGS = 53; MME$_EXPIRATION = 54; MME$_FILENAME = 55; MME$_FILE_ID = 56; MME$_GROUPSIZE = 57; MME$_IN_SAVE = 58; MME$_IN_SPECIFICA>TION = 59; MME$_IN_VOLUME = 60; MME$_OUT_SAVE = 61; MME$_PROTECTION = 62; MME$_STATUS = 63; MME$_ASSIGNMENT_UNIT = 64; MME$_CART_MEDIA_NAME = 65; MME$_CARTRIDGE_NAME = 66; MME$_CARTRIDGE_SIDE = 67; MME$_COLLECTION = 68; MME$_DEVICE_TYPE = 69; MME$_DISPOSITION = 70; MME$_LOCATION = 71; MME$_MEDIA_NAME = 72; MME$_LABEL_TYPE = 73; MME$_EXPDATE = 74; MME$_CREDATE = 75; MME$_RECFORMAT = 76; MME$_FILESECNO = 77; MME$_REPLY = 78; MME$M_IMAGE = 1; MME$M_CRC? = 2; MME$M_DELETE = 4; MME$M_IGN_INTERLOCK = 8; MME$M_IGN_LABEL = 16; MME$M_IGN_NOBACKUP = 32; MME$M_INTERCHANGE = 64; MME$M_RECORD = 128; MME$M_REWIND = 256; MME$M_VERIFY = 512; MME$M_PHYSICAL = 1024; MME$M_COMPACTION = 2048; /TYPE BACKUP_FLAGS$TYPE = RECORD CASE INTEGER OFV 1: (MME$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flag mask for MME$_BACKUP_FLAGS *) );* 2: (MME$L_FLAGS_MASK : [POS(0)] UNSIGNED; ); 3: ();" 4: (MME$V_IMAGE : [POS(0)] $BOOL; @ MME$V_CRC : [POS(1)] $BOOL;# MME$V_DELETE : [POS(2)] $BOOL;* MME$V_IGN_INTERLOCK : [POS(3)] $BOOL;& MME$V_IGN_LABEL : [POS(4)] $BOOL;) MME$V_IGN_NOBACKUP : [POS(5)] $BOOL;( MME$V_INTERCHANGE : [POS(6)] $BOOL;# MME$V_RECORD : [POS(7)] $BOOL;# MME$V_REWIND : [POS(8)] $BOOL;# MME$V_VERIFY : [POS(9)] $BOOL;& MME$V_PHYSICAL : [POS(10)] $BOOL;( MME$V_COMPACTION : [POS(11)] $BOOL; ) END; CONST MME$M_VERIF_ERR = 1; MME$M_NOBACKUP = 2;A MME$M_FILE_OPEN = 4; MME$M_ACC_CONF = 8; 4TYPE BACKUP_FILE_FLAGS$TYPE = RECORD CASE INTEGER OF[ 1: (MME$R_FILE_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flag mask for MME$_BACKUP_FLAGS *) );/ 2: (MME$L_FILE_FLAGS_MASK : [POS(0)] UNSIGNED; ); 3: ();& 4: (MME$V_VERIF_ERR : [POS(0)] $BOOL;% MME$V_NOBACKUP : [POS(1)] $BOOL;& MME$V_FILE_OPEN : [POS(2)] $BOOL;% MME$V_ACC_CONF : [POS(3)] $BOOL;# MME$v_fill1 : [POS(4)] $BIT28; ) END; CONST MMBE$C_ANSI_1 = 1; MME$C_ANSI_2 = 2; MME$C_ANSI_3 = 3; MME$C_ANSI_4 = 4; MME$C_IBM_STD = 5; MME$C_UNLABELLED = 6; MME$C_ODS1 = 7; MME$C_ODS2 = 8; "(*** MODULE $MMIDEF IDENT X-1 ***) CONST MMI$_FACILITY = 1; MMI$_MBUNIT = 2; MMI$_PID = 3; MMI$_MBXUCB = 4; MMI$_UNLOAD = 5; MMI$_ALLOC = 6; MMI$_BACKUP_END = 7; MMI$_BACKUP_FILE = 8; MMI$_BACKUP_START = 9; MMI$_CLOSE_READ = 10; MMI$_CLOSE_WRITE = 11; MMI$_CONTINUATION_VOLUME = 12; MMI$_DEALLOCATE = 13;C MMI$_DEVICE_AVAIL = 14; MMI$_DEVICE_UNAVAIL = 15; MMI$_DISMOUNT = 16; MMI$_DISPLAY_MESSAGE = 17; MMI$_EOV_READ = 18; MMI$_EOV_WRITE = 19; MMI$_INITIALIZE = 20; MMI$_MOUNT = 21; MMI$_MOUNT_REQUEST = 22; MMI$_NEWVOL_REQUEST = 23; MMI$_NOTIFY_DEVICE = 24; MMI$_OPCOM_ACP = 25; MMI$_OPCOM_MOUNT = 26; MMI$_OPEN_READ = 27; MMI$_OPEN_WRITE = 28; MMI$_VOLUME_ONLINE = 29; MMI$_WRITE_REQUEST = 30; MMI$_MOUNT_END = 31; MMI$_INIT_END = 32; MMI$_NEWVOL_END = 33; D(*** MODULE $MNTDEF ***) N(*+ *)N(* *)N(* FLAG BITS FOR THE $MOUNT SYSTEM SERVICE. *)N(* *)N(*- *) CONST MNT$M_FOREIGN = 1; MNT$M_GROUP = 2; MNT$M_NOASSIST = 4; MENT$M_NODISKQ = 8; MNT$M_NOHDR3 = 16; MNT$M_NOLABEL = 32; MNT$M_NOWRITE = 64; MNT$M_OVR_ACCESS = 128; MNT$M_OVR_EXP = 256; MNT$M_OVR_IDENT = 512; MNT$M_OVR_SETID = 1024; MNT$M_READCHECK = 2048; MNT$M_SHARE = 4096; MNT$M_MESSAGE = 8192; MNT$M_SYSTEM = 16384; MNT$M_WRITECHECK = 32768; MNT$M_WRITETHRU = 65536; MNT$M_NOCACHE = 131072; MNT$M_OVR_LOCK = 262144; MNT$M_NOMNTVER = 524288; MNT$M_NOUNLOAD = 1048576;! MNT$M_TAPE_DATA_WRITE = 2097152; MNT$M_NOCOPY = 4194F304; MNT$M_NOAUTO = 8388608; MNT$M_INIT_ALL = 16777216; MNT$M_INIT_CONT = 33554432; MNT$M_OVR_VOLO = 67108864; MNT$M_INTERCHG = 134217728; MNT$M_CLUSTER = 268435456; MNT$M_NOREBUILD = 536870912; MNT$M_OVR_SHAMEM = 1073741824; MNT$M_MULTI_VOL = -2147483648; MNT2$M_DISKQ = 1; MNT2$M_COMPACTION = 2; MNT2$M_INCLUDE = 4; MNT2$M_PASS2 = 8; MNT2$M_OVR_NOFE = 16; MNT2$M_SCRATCH = 32; MNT2$M_CDROM = 64; MNT2$M_XAR = 128; MNT2$M_DSI = 256; MNT2$M_SUBSYSTEM = 512;G MNT2$M_NOCOMPACTION = 1024; MNT2$M_OVR_SECURITY = 2048;" MNT2$M_OVR_LIMITED_SEARCH = 4096; MNT2$M_POOL = 8192; MNT2$M_WLG_ENABLE = 16384; MNT2$M_WLG_DISABLE = 32768; MNT2$M_REQUIRE_MEMBERS = 65536; MNT2$M_VERIFY_LABEL = 131072; MNT2$M_FULL_MERGE = 262144; MNT2$M_WRITE_FIRST = 524288; MNT2$M_DCD = 1048576; MNT2$M_NODCD = 2097152; MNT2$M_LOCAL_HOST = 4194304; MNT2$M_FACTOR = 8388608; MNT2$M_PRIORITY = 16777216;G MNT$_DEVNAM = 1; (* DEVICE NAME H *)G MNT$_VOLNAM = 2; (* VOLUME NAME *)G MNT$_LOGNAM = 3; (* LOGICAL NAME *)G MNT$_FLAGS = 4; (* MOUNT FLAGS *)G MNT$_ACCESSED = 5; (* ACCESSED VALUE *)G MNT$_PROCESSOR = 6; (* PROCESSOR NAME *)G MNT$_VOLSET = 7; (* VOLUME SET NAME *)G MNT$_BLOCKSIZE = 8; (* BLOCKSIZE VAILUE *)G MNT$_DENSITY = 9; (* TAPE DENSITY VALUE *)G MNT$_EXTENT = 10; (* NUMBER OF EXTENT CACHE ENTRIES *)G MNT$_FILEID = 11; (* FILE ID CACHE SIZE *)G MNT$_LIMIT = 12; (* EXTENT CACHE LIMIT *)G MNT$_OWNER = 13; (* VOLUME OWNER UIC *)G MNT$_VPROT = 14; (* VOLUME PROTECTION *)G MNT$_QUOTA = 15; (* JQUOTA CACHE SIZE *)G MNT$_RECORDSIZ = 16; (* RECORD SIZE VALUE *)G MNT$_WINDOW = 17; (* NUMBER OF WINDOWS *)G MNT$_EXTENSION = 18; (* DEFAULT FILE EXTENSION *)G MNT$_VISUAL_ID = 19; (* VISUAL IDENTIFICATION *)G MNT$_COMMENT = 20; (* USER COMMENT *)G MNT$_CLASS = 21; (* SECURITY CLASSFICATION *)a MNT$_UNUSED2 = 22; K (* SPARE (was used for now obsolete journaling-related items) *)G MNT$_ACCPTNAM = 23; (* ACCESS POINT NAME (DECdfs) *)G MNT$_SHACOPY_BUF = 24; (* SHADOW COPY BUFFER *)G MNT$_SHANAM = 25; (* SHADOW SET VIRTUAL UNIT NAME *)G MNT$_SHAMEM = 26; (* SHADOW SET MEMBER UNIT NAME *)O MNT$_SHAMEM_MGCOPY = 27; (* SHADOW SET MEMBER UNIT NAME (MERGE COPY) *)N MNT$_SHAMEM_COPY = 28; (* SHADOW SET MEMBELR UNIT NAME (FULL COPY) *)G MNT$_PRFD_PATH = 29; (* PREFERRED DSA PATH *)G MNT$_ASSIGNMENT_UNIT = 30; (* Assignment unit (MME) *)G MNT$_CART_MEDIA_NAME = 31; (* Cartridge Media Name (MME) *)G MNT$_CARTRIDGE_NAME = 32; (* Cartridge Name (MME) *)G MNT$_CARTRIDGE_SIDE = 33; (* Cartridge Side (MME) *)G MNT$_COLLECTION = 34; (* Collection name (MME) *)G MNT$_DEVICE_TYPE = 35; (M* Device Selection criteria (MME) *)G MNT$_DISPOSITION = 36; (* Dismount Disposition (MME) *)G MNT$_LOCATION = 37; (* Cartridge Location (MME) *)G MNT$_MEDIA_NAME = 38; (* Media Name (MME) *)G MNT$_UNUSED4 = 39; (* SPARE *)G MNT$_UNDEFINED_FAT = 40; (* Undefined File Attributes *)G MNT$_UCS = 41; (* Universal Character Set string *)G MNT$_TAPE_EXPIRATION N= 42; (* Date Tape Expires (MME) *)G MNT$_PRIORITY = 43; (* SHDRIVER merge priority *)O MNT$_FACTOR = 44; (* SHDRIVER IO completion factor for merges *)G MNT$_WBM_SIZE = 45; (* MINICOPY size *)G MNT$_DATA = 46; (* Enable data (XFC) cache *)C MNT$_NODATA = 47; (* Disable data (XFC) cache *) N(* O*)N(* Add new item codes before this line *)N(* *) LCONST MNT$_LAST_ITEM_CODE = 48; (* last item code plus 1 *)G MNT$C_BASE_CARTRIDGE = 1; (* Assign a whole cartridge *)G MNT$C_COMPOUND_CARTRIDGE = 2; (* Assign a magazine *)K MNT$C_PREASSIGNED_SIDE = 3; (* Assign a pre-assigned cartridge side *)G MNT$C_SIDE = 4; ( P* Assign a single cartridge side *)G MNT$C_KEEP = 1; (* Keep the media assigned *)G MNT$C_RELEASE = 2; (* Release the media *) &TYPE MNT$TYPE = RECORD CASE INTEGER OF. 1: (MNT$R_MNTDEF_BITS : [BYTE(8)] RECORD END; );G 2: (MNT$V_FOREIGN : [POS(0)] $BOOL; (* FOREIGN OPTION SELECTED *)G MNT$V_GROUP : [POS(1)] $BOOL; (* GROUP OPTION SELECTED *)G MNT$V_NOASSIST : [POS(2)] $BOOL; (* NOASSIST OPTION SELECTED Q *)G MNT$V_NODISKQ : [POS(3)] $BOOL; (* NODISKQ OPTION SELECTED *)G MNT$V_NOHDR3 : [POS(4)] $BOOL; (* NOHDR3 OPTION SELECTED *)G MNT$V_NOLABEL : [POS(5)] $BOOL; (* NOLABEL OPTION SELECTED *)G MNT$V_NOWRITE : [POS(6)] $BOOL; (* NOWRITE OPTION SELECTED *)T MNT$V_OVR_ACCESS : [POS(7)] $BOOL; (* OVERRIDE ACCESSIBLITY OPTION SELECTED *)N MNT$V_OVR_EXP : [POS(8)] $BOOL; (* OVERRIDE EXPIRATON OPTION SELECTED *)G MNT$V_OVR_IDENT : [POS(9)] $BOOL;R (* OVERRIDE VOLUME LABEL *)Y MNT$V_OVR_SETID : [POS(10)] $BOOL; (* OVERRIDE VOLUME SET IDENT OPTION SELECTIED *)H MNT$V_READCHECK : [POS(11)] $BOOL; (* READCHECK OPTION SELECTED *)G MNT$V_SHARE : [POS(12)] $BOOL; (* SHARE OPTION SELECTED *)K MNT$V_MESSAGE : [POS(13)] $BOOL; (* ALLOW $MOUNT TO PRINT MESSAGES *)G MNT$V_SYSTEM : [POS(14)] $BOOL; (* SYSTEM OPTION SELECTED *)J MNT$V_WRITECHECK : [POS(15)] $BOOL; (* WRITECHECK OPTION SELECTED *)H S MNT$V_WRITETHRU : [POS(16)] $BOOL; (* WRITETHRU OPTION SELECTED *)G MNT$V_NOCACHE : [POS(17)] $BOOL; (* TURN OFF ALL CACHING *)K MNT$V_OVR_LOCK : [POS(18)] $BOOL; (* OVERRIDE AUTOMATIC WRITE-LOCK *)H MNT$V_NOMNTVER : [POS(19)] $BOOL; (* DISABLE MOUNT VERIFICATION *)N MNT$V_NOUNLOAD : [POS(20)] $BOOL; (* DO NOT UNLOAD VOLUME AT DISMOUNT *)S MNT$V_TAPE_DATA_WRITE : [POS(21)] $BOOL; (* ENABLE WRITE-BACK CACHE ON TAPE *)M MNT$V_NOCOPY : [POS(22)] $BOOL; (* DOT NOT ALLOW SHADOW COPY OPERATION *)V MNT$V_NOAUTO : [POS(23)] $BOOL; (* DO NOT SET THE MTAACP INTO AVR AND AVL MODE *)Y MNT$V_INIT_ALL : [POS(24)] $BOOL; (* INITIALIZE ALL VOLUMES IN SET BEFORE WRITING *)\ MNT$V_INIT_CONT : [POS(25)] $BOOL; (* INITIALIZE CONTINUATION VOLUMES BEFORE WRITING *)R MNT$V_OVR_VOLO : [POS(26)] $BOOL; (* OVERRIDE VOL1 VOLUME IDENTIFIER FIELD *)b MNT$V_INTERCHG : [POS(27)] $BOOL; (* VOL FOR INTERCHG NO VMS SPECIFIC INFO WRITTEN TO TAPE *)N MNT$VU_CLUSTER : [POS(28)] $BOOL; (* CLUSTER-WIDE MOUNT OPTION SELECTED *)G MNT$V_NOREBUILD : [POS(29)] $BOOL; (* DO NOT REBUILD VOLUME *)U MNT$V_OVR_SHAMEM : [POS(30)] $BOOL; (* OVERRIDE SHADOW MEMBERSHIP RESTRICTION *)G MNT$V_MULTI_VOL : [POS(31)] $BOOL; (* MULTI_VOLUME TAPE SET *)G MNT$V_DISKQ : [POS(32)] $BOOL; (* QUOTA EXPLICITLY SELECTED *)I MNT$V_COMPACTION : [POS(33)] $BOOL; (* MAGTAPE DATA COMPACTION ON *)N MNT$V_INCLUDE : [POS(34)] $BOOL; (* INCLUDE PVREVIOUS SHADOWSET MEMBERS *)N MNT$V_PASS2 : [POS(35)] $BOOL; (* PASS2 of /INCLUDE/CONFIRM PROCESSING *)G MNT$V_OVR_NOFE : [POS(36)] $BOOL; (* /OVERRIDE=NO_FORCED_ERROR *)G MNT$V_SCRATCH : [POS(37)] $BOOL; (* Scratch tape requested flag *)Q MNT$V_CDROM : [POS(38)] $BOOL; (* Force mounting of a Files-11 C/D Volume *)G MNT$V_XAR : [POS(39)] $BOOL; (* Enable protection based on XARs *)\ MNT$V_DSI : [POS(40)] $BOOL; (* Enable protection based on Digital System Id in XARs W*)G MNT$V_SUBSYSTEM : [POS(41)] $BOOL; (* /SUBSYSTEM *)L MNT$V_NOCOMPACTION : [POS(42)] $BOOL; (* MAGTAPE DATA COMPACTION OFF *)G MNT$V_OVR_SECURITY : [POS(43)] $BOOL; (* /OVERRIDE=SECURITY *)P MNT$V_OVR_LIMITED_SEARCH : [POS(44)] $BOOL; (* /OVERRIDE=LIMITIED_SEARCH *)Q MNT$V_POOL : [POS(45)] $BOOL; (* /POOL operation for snapshot pool member *)G MNT$V_WLG_ENABLE : [POS(46)] $BOOL; (* /POLICY=ENABLE_WLG *)G MNT$V_WLG_DISABLE : [POS(47)] $XBOOL; (* /POLICY=DISABLE_WLG *)K MNT$V_REQUIRE_MEMBERS : [POS(48)] $BOOL; (* /POLICY=REQUIRE_MEMBERS *)G MNT$V_VERIFY_LABEL : [POS(49)] $BOOL; (* /VERIFY_LABEL *)G MNT$V_FULL_MERGE : [POS(50)] $BOOL; (* /POLICY=MERGE *)G MNT$V_WRITE_FIRST : [POS(51)] $BOOL; (* /POLCIY=WRITE_FIRST *)G MNT$V_DCD : [POS(52)] $BOOL; (* /POLICY=DCD *)G MNT$V_NODCD : [POS(53)] $BOOL; (* /POLICY=NODCD *)G MNT$V_LOCAL_HOS YT : [POS(54)] $BOOL; (* /POLICY=LOCAL_HOST *)G MNT$V_FACTOR : [POS(55)] $BOOL; (* /POLICY=FACTOR *)G MNT$V_PRIORITY : [POS(56)] $BOOL; (* /POLICY=PRIORITY *)J MNT$V_MINICOPY_REQUIRED : [POS(57)] $BOOL; (* /POLICY=MINICOPY=REQ *)J MNT$V_MINICOPY_OPTIONAL : [POS(58)] $BOOL; (* /POLICY=MINICOPY=OPT *)G MNT$V_NOMINICOPY : [POS(59)] $BOOL; (* /POLICY=NOMINICOPY *) );/ 3: (MNT$R_MNT2DEF_BITS : [BYTE(4)] RECORD END; );G 4: (MNTZ2$V_DISKQ : [POS(0)] $BOOL; (* QUOTA EXPLICITLY SELECTED *)I MNT2$V_COMPACTION : [POS(1)] $BOOL; (* MAGTAPE DATA COMPACTION ON *)N MNT2$V_INCLUDE : [POS(2)] $BOOL; (* INCLUDE PREVIOUS SHADOWSET MEMBERS *)N MNT2$V_PASS2 : [POS(3)] $BOOL; (* PASS2 of /INCLUDE/CONFIRM PROCESSING *)G MNT2$V_OVR_NOFE : [POS(4)] $BOOL; (* /OVERRIDE=NO_FORCED_ERROR *)G MNT2$V_SCRATCH : [POS(5)] $BOOL; (* Scratch tape requested flag *)Q MNT2$V_CDROM : [POS(6)] $BOOL; (* Force mounting of[ a Files-11 C/D Volume *)G MNT2$V_XAR : [POS(7)] $BOOL; (* Enable protection based on XARs *)\ MNT2$V_DSI : [POS(8)] $BOOL; (* Enable protection based on Digital System Id in XARs *)G MNT2$V_SUBSYSTEM : [POS(9)] $BOOL; (* /SUBSYSTEM *)M MNT2$V_NOCOMPACTION : [POS(10)] $BOOL; (* MAGTAPE DATA COMPACTION OFF *)G MNT2$V_OVR_SECURITY : [POS(11)] $BOOL; (* /OVERRIDE=SECURITY *)Q MNT2$V_OVR_LIMITED_SEARCH : [POS(12)] $BOOL; (* /OVERRIDE=LIMITIED_SEARCH *)\R MNT2$V_POOL : [POS(13)] $BOOL; (* /POOL operation for snapshot pool member *)G MNT2$V_WLG_ENABLE : [POS(14)] $BOOL; (* /POLICY=ENABLE_WLG *)G MNT2$V_WLG_DISABLE : [POS(15)] $BOOL; (* /POLICY=DISABLE_WLG *)L MNT2$V_REQUIRE_MEMBERS : [POS(16)] $BOOL; (* /POLICY=REQUIRE_MEMBERS *)G MNT2$V_VERIFY_LABEL : [POS(17)] $BOOL; (* /VERIFY_LABEL *)G MNT2$V_FULL_MERGE : [POS(18)] $BOOL; (* /POLICY=MERGE *)G MNT2$V_WRITE_FIRST : [POS(19)] $BOOL; (* ]/POLCIY=WRITE_FIRST *)G MNT2$V_DCD : [POS(20)] $BOOL; (* /POLICY=DCD *)G MNT2$V_NODCD : [POS(21)] $BOOL; (* /POLICY=NODCD *)G MNT2$V_LOCAL_HOST : [POS(22)] $BOOL; (* /POLICY=LOCAL_HOST *)G MNT2$V_FACTOR : [POS(23)] $BOOL; (* /POLICY=FACTOR *)G MNT2$V_PRIORITY : [POS(24)] $BOOL; (* /POLICY=PRIORITY *)G MNT2$V_MINICOPY : [POS(25)] $BOOL; (* /POLICY=MINICOPY *)K MNT2$V_MINICOPY_OPTIONAL : [P ^OS(26)] $BOOL; (* /POLICY=MINICOPY=OPT *)G MNT2$V_NOMINICOPY : [POS(27)] $BOOL; (* /POLICY=NOMINICOPY *)G (* *)N(* Item codes for mount parameters. *)N(* *)N(* DEFINE CODES AS CONSTANTS *) ) END; N(* _ *)N(* Define format of the /UNDEFINED_FAT block *)N(* *) TYPE UNINED_FAT$TYPE = RECORDG UNFAT$W_MRS : $UWORD; (* FAT Maximum Record Size *)G UNFAT$B_RAT : $UBYTE; (* FAT Record Attributes *)G UNFAT$B_RFM : $UBYTE; (* FAT Record Format *) END; (*** MODULE $MSGDEF ***) N(*+ ` *)N(* *)N(* SYSTEM WIDE MAILBOX MESSAGE TYPES *)N(* *)N(*- *)N(* DEFINE CODES AS CONSTANTS *) LCONST MSG$_TRMUNSOLIC = 1; (* UaNSOLICITED TERMINAL DATA *)G MSG$_CRUNSOLIC = 2; (* UNSOLICTED CARD READER DATA *)G MSG$_DELPROC = 3; (* DELETE PROCESS *)G MSG$_SNDSMB = 4; (* SEND TO SYMBIONT MANAGER *)G MSG$_DEVOFFLIN = 5; (* DEVICE OFFLINE *)G MSG$_TRMHANGUP = 6; (* TERMINAL HANG UP *)G MSG$_DEVONLIN = 7; (* DEVICE ONLINE *)P MSG$_OPRQST = 8; b (* OPERATOR REQUEST *** OVERLAPPED CODE *** *)N MSG$_OPREPLY = 9; (* OPERATOR REPLY *** OVERLAPPED CODE *** *) N(* DEFINE SYMBIONT RESPONSE MESSAGES *) LCONST MSG$_SMBINI = 8; (* SYMBIONT HAS INITED *)G MSG$_SMBDON = 9; (* SYMBIONT FINISHED *)J MSG$_SNDACC = 10; (* SEND MESSAGE TO ACCOUNTING MANAGER *)M MSG$_PURPROC = 11; (* PURGE PROCESS *** cOVERLAPPED CODE *** *)L MSG$_DELIMAG = 12; (* DELETE IMAGE *** OVERLAPPED CODE *** *)K MSG$_PURIMAG = 13; (* PURGE IMAGE *** OVERLAPPED CODE *** *)O MSG$_SYSFUNC = 14; (* SYSTEM FUNCTION *** OVERLAPPED CODE *** *)G MSG$_SNDJBC = 15; (* Send message to job controller *)R MSG$_GETQUI = 16; (* Get queue information (from job controller) *) N(* DEFINE DMC MESSAGES *) d LCONST MSG$_XM_DATAVL = 11; (* DMC UNSOLICITED DATA *)G MSG$_XM_SHUTDN = 12; (* DMC LINE DOWN *)G MSG$_XM_ATTN = 13; (* DMC ATTENTION MESSAGE *) N(* SYMBIONT COMMAND MESSAGES *) LCONST MSG$_INIOPR = 16; (* INITIATE PRINTING A FILE *)G MSG$_ABOOPR = 17; (* ABORT PRINTING A FILE *)G MSG$_SUSOPR = 18; (* ePAUSE PRINTING THE FILE *)G MSG$_RESOPR = 19; (* RESUME PRINTING THE FILE *)G MSG$_DELSMB = 20; (* SYMBIONT SHOULD DELETE ITSELF *)G MSG$_REQUE = 21; (* REQUEUE A FILE FOR PRINTING *) N(* *) LCONST MSG$_SMBRSP = 32; (* SYMBIONT MANAGER RESPONSE *)G MSG$_ACCRSP = 33; (* ACCOUNTING MANAGER RESPONSE *) N(* f FILE ACP MESSAGES *) LCONST MSG$_SCANBAD = 40; (* SCAN FILE FOR BAD BLOCKS *)G MSG$_SCANRSP = 41; (* RESPONSE FROM FILE SCANNER *) N(* NETWORK ATTENTION CODES *) LCONST MSG$_ABORT = 48; (* PARTNER ABORTED LINK *)G MSG$_CONFIRM = 49; (* CONNECT CONFIRM *)G MSG$_CONNECT = 50; g (* INBOUND CONNECT INITIATE *)G MSG$_DISCON = 51; (* PARTNER DISCONNECTED - HANGUP *)G MSG$_EXIT = 52; (* PARTNER EXITED PREMATURELY *)L MSG$_INTMSG = 53; (* INTERRUPT MESSAGE - UNSOLICITED DATA *)G MSG$_PATHLOST = 54; (* NFW - PATH LOST TO PARTNER *)G MSG$_PROTOCOL = 55; (* PROTOCOL ERROR *)G MSG$_REJECT = 56; (* CONNECT REJECT *)G MSG$_THIRDPARTYh = 57; (* THIRD PARTY DISCONNECT *)G MSG$_TIMEOUT = 58; (* CONNECT TIMEOUT *)G MSG$_NETSHUT = 59; (* Network shutting down *)G MSG$_NODEACC = 60; (* Node has become accessible *)G MSG$_NODEINACC = 61; (* Node has become inaccessible *)G MSG$_EVTAVL = 62; (* Events are available to EVL *)G MSG$_EVTRCVCHG = 63; (* Event receiver database change *)G MSG i$_INCDAT = 64; (* X25 INCOMING DATA *)G MSG$_RESET = 65; (* X25 CIRCUIT RESET *)G MSG$_LINUP = 66; (* X25 PVC LINE UP *)G MSG$_LINDWN = 67; (* X25 PVC LINE DOWN *)I MSG$_EVTXMTCHG = 68; (* Event transmitter database change *) N(* MOUNT VERIFICATION MESSAGES *) LCONST MSG$_DEVOFFLINX = 80; (* DEVICE OFjFLINE *)G MSG$_WRONGVOL = 81; (* WRONG VOLUME IN DEVICE *)G MSG$_DEVWRTLCK = 82; (* DEVICE HAS BEEN WRITE LOCKED *)G MSG$_TRMBRDCST = 83; (* TERMINAL BROADCAST *)G MSG$_MVCOMPLETE = 84; (* MOUNT VERIFICATION COMPLETED *)G MSG$_MVABORTED = 85; (* MOUNT VERIFICATION ABORTED *)G MSG$_DISMOUNTED = 86; (* VOLUME DISMOUNTED *)G MSG$_UDA50MVER = 87; (k* UDA50 MICORCODE NOT UPTO REV *)J MSG$_DUPUNITNO = 88; (* MSCP CONTROLLER - DUPLICATE UNIT ! *)G MSG$_CLUMBX = 89; (* CNXMGR to OPCOM messages *)I MSG$_TM78MVER = 90; (* TM78 Microcode not up to rev level *)G MSG$_SHAMEMFAL = 91; (* Member failed out of shadow set *)G MSG$_SHARDUCED = 92; (* Shadow set reduced *)G MSG$_RC25MVER = 93; (* RC25 MICORCODE NOT UPTO REV *)G MSG$_RDRXMVER = 9l4; (* RDRX MICORCODE NOT UPTO REV *)G MSG$_TU81MVER = 95; (* TU81 MICORCODE NOT UPTO REV *)G MSG$_MAYAMVER = 96; (* MAYA MICORCODE NOT UPTO REV *)G MSG$_SHACHASTA = 97; (* Shadow set has changed state *)J MSG$_SHACOPCOM = 98; (* Shadow copy operation has completed *)I MSG$_SHAREDZER = 99; (* Shadow set reduced to zero members *)G MSG$_SHAPOSMEM = 100; (* Possible shadow set member *)O MmSG$_SHAALLCOM = 101; (* All shadow set copy operations completed *)G MSG$_SHACOPBEG = 102; (* Shadow copy operation begun *)J MSG$_SHAWROMEM = 103; (* Shadow member contains wrong volume *)O MSG$_SHAORGMEM = 104; (* Shadow system disk missing VMB R3 member *)G MSG$_TRMLOSE_KB = 105; (* terminal lost physical KB *)G MSG$_TRMGAIN_KB = 106; (* terminal gained physical KB *)G MSG$_TRMSHRINK = 107; (* terminal wnindow shrunk to icon *)G MSG$_TRMEXPAND = 108; (* terminal window icon expanded *)G MSG$_TRMRESIZE = 109; (* terminal window resized *)G MSG$_TRMMOVE = 110; (* terminal window moved *)M MSG$_SNDMME = 111; (* message to media management extensions *)V MSG$_RETMME = 112; (* message returned from media management software *) MSG$_SHAADPBAD = 113; (* Shadow VMB R3 member not currently connected to origoinal boot adapter type (PA versus PU) *) MSG$_SHAEMUPTH = 114; (* Shadow VMB R3 member not currently connected to original boot adapter - on an emulated path *)j MSG$_SHABENODMP = 115; (* Shadow VMB R3 member not on original adapter, current type unknown *)m MSG$_SHABNODMP = 116; (* Shadow VMB R3 member not the master of set or not on PATH named to VMB *)~ MSG$_SHALOCDEV = 117; (* A Satellites shadow master member is now on a local device, no reboot or dumpps possible *)V MSG$_SHANOBPOK = 118; (* Shadow VMB R3 member is not a member of the set *)V MSG$_SHABDMPOK = 119; (* Shadow VMB R3 member is on the original adapter *)h MSG$_BOOTDMPOK = 120; (* System dump will has been redirected to the current master member *)a MSG$_SHABDBCK = 121; (* Shadow VMB R3 member has returned to the original adapter *)j MSG$_SHANODMP = 122; (* Shadow master changed. Dump will NOT be written if system crashes. *)fq MSG$_SHADMPOK = 123; (* Shadow master changed. Dump WILL be written if system crashes. *)d MSG$_OPCFAO = 124; (* Message contains dynamic FAO parameters to format the message *)[ MSG$_INSAMCVP = 125; (* Shadowing - not all requested bitmaps were converted *)H MSG$_HBMMRESET = 126; (* Shadowing - HBMM bitmap was reset *)T MSG$_SHADISSOLVED = 127; (* Shadowing -- virtual unit has been vapourized *)U MSG$_SHAMEMEXPEL = 128; (* Shadowing r-- a member device has been expelled *)g MSG$_SHAMEMDMT = 129; (* Shadowing -- a member device has been dismounted from shadow set *) N(* DEFINE MESSAGES FOR USE BY QMAN *) LCONST MSG$_QMAN_INTERNAL = 200; (* QMAN internal message *) N(* DEFINE MESSAGES FOR USE BY PEDRIVER *) LCONST MSG$_PEMBX = 220; (* PEDRIVER to OPCOM messages *) %(*** MODULE $MSGHLPDEF s IDENT X-4 ***) CONST MSGHLP$M_NOSORT = 1; MSGHLP$M_BRIEF = 2; MSGHLP$M_MACHINE = 4; MSGHLP$M_NOSUBSTRING = 8; TYPE MSGHLP$TYPE = RECORDG MSGHLP$V_NOSORT : [POS(0)] $BOOL; (* Do *NOT* sort the output *)P MSGHLP$V_BRIEF : [POS(1)] $BOOL; (* Give only the names of the messages *)Y MSGHLP$V_MACHINE : [POS(2)] $BOOL; (* Return the text in machine-readable format *)[ MSGHLP$V_NOSUBSTRING : [POS(3)] $BOOL; (* Match only entire words, no abreviations *)( MSG tHLP$V_FILL_10_ : [POS(4)] $BIT4; MSGHLP$w_unused : $WORD;G MSGHLP$B_WORK_FILES : $BYTE; (* How many workfiles for /SORT? *) END; (*** MODULE $MTADEF ***) N(*+ *)N(* MAGTAPE ACCESSIBILTY ROUTINE CODES *)N(*- *)N(* DEFINITIONS FOR ACCESS_SPEC *) L uCONST MTA$K_NOCHAR = 0; (* ACCESS CHAR IS NOVALID *)G MTA$K_CHARVALID = 1; (* ACCESS CHAR IS VALID *) N(* DEFINITIONS FOR TYPE *) LCONST MTA$K_INVOL1 = 0; (* INPUT A VOL1 ACCESS CODE *)G MTA$K_INHDR1 = 1; (* INPUT A HDR1 ACCESS CODE *)G MTA$K_OUTVOL1 = 2; (* OUTPUT A VOL1 ACCESS CODE *)G MTA$K_OUTHDR1 = 3; (* OUTPvUT A HDR1 ACCESS CODE *) (*** MODULE $MTDEF ***) N(*+ *)N(* MAGTAPE STATUS BITS *)N(*- *) CONST MT$M_SEREXCP = 1; MT$M_ENAUTOPACK = 2; MT$M_ENSEREXCP = 4; MT$M_PARITY = 8; MT$M_FORMAT = 240; MT$M_DENSITY = 7936; MT$M_FASTSKIP_USED = 8192; MT$M_LOGSOFT = 16384; MwT$M_LOGSOFTOG = 32768; MT$M_BOT = 65536; MT$M_EOF = 131072; MT$M_EOT = 262144; MT$M_HWL = 524288; MT$M_LOST = 1048576; MT$M_SUP_NRZI = 2097152; MT$M_SUP_PE = 4194304; MT$M_SUP_GCR = 8388608; MT$M_SPEED = -16777216;G MT$K_DEFAULT = 0; (* DEFAULT FORMAT *)G MT$K_NORMAL11 = 12; (* PDP-11 NORMAL *)G MT$K_CORDMP11 = 13; (* PDP-11 CORE DUMP *)G MT$K_NORMAL15 = 14; (* PDP-15 N xORMAL *) N(* *) LCONST MT$K_NRZI_800 = 3; (* NRZI 800 BPI *)G MT$K_PE_1600 = 4; (* PE 1600 BPI *)G MT$K_GCR_6250 = 5; (* GCR 6250 BPI *)G MT$K_WOD_6250 = 8; (* RV80 6250 BPI EQUIVALENT *)G MT$K_SCSI_DC1 = 10; (* Data Compaction algorithm 1 *)G MT$K_HPC_40K y= 12; (* HPC 39872 BPI *)G MT$K_HPC_COMP = 13; (* HPC 39872 compacted *)G MT$K_XPC_80K = 14; (* *)G MT$K_XPC_COMP = 15; (* *)G MT$K_BLK_833 = 17; (* BLOCK (TK50) 833 BPI *)G MT$K_BLK_1250 = 18; (* BLOCK (TK70) 1250 BPI *)G MT$K_BLK_10K = 19; (* BLOCK (TF85) 10625 BPI *)G M zT$K_BLK_20K = 20; (* BLOCK (TF86) 10626 *)G MT$K_BLK_60K = 21; (* BLOCK (Tx87) 62500 *)G MT$K_BLK_COMP = 22; (* BLOCK (Tx87) COMPRESSED 62501 *)I MT$K_DAT_61K = 24; (* DAT CARTRIDGE 61000 BPI EQUIVALENT *) N(* *) LCONST MT$K_SPEED_DEF = 0; (* DEFAULT SPEED *)G MT$K_SPEED_25 = 25; (* 25 IPS { *)G MT$K_SPEED_75 = 75; (* 75 IPS *) %TYPE MT$TYPE = RECORD CASE INTEGER OF, 1: (MT$R_MTDEF_BITS : [BYTE(4)] RECORD END; );G 2: (MT$V_SEREXCP : [POS(0)] $BOOL; (* SERIOUS EXCEPTION PRESENT *)G MT$V_ENAUTOPACK : [POS(1)] $BOOL; (* ENABLE AUTO PACKACK *)I MT$V_ENSEREXCP : [POS(2)] $BOOL; (* ENABLE SERIOUS EXCEPTION MODE *)G MT$V_PARITY : [POS(3)] $BOOL; (* PARITY SELECT (0=ODD, 1=EVEN) *)G | MT$V_FORMAT : [POS(4)] $BIT4; (* RECORDING FORMAT *)G MT$V_DENSITY : [POS(8)] $BIT5; (* RECORDING DENSITY AND METHOD *)T MT$V_FASTSKIP_USED : [POS(13)] $BOOL; (* IO$_SKIPFILE USED SKIP BY FILEMARKS *)P MT$V_LOGSOFT : [POS(14)] $BOOL; (* LOG SOFT (TU78) ERRORS (0=NO, 1=YES) *)Q MT$V_LOGSOFTOG : [POS(15)] $BOOL; (* TOGGLE TO REVERSE LOGSOFT STATE BIT *)G MT$V_BOT : [POS(16)] $BOOL; (* AT BEGINNING OF TAPE *)G MT$V_EOF : [POS(17)] $BOOL; (* }AT END OF FILE *)G MT$V_EOT : [POS(18)] $BOOL; (* AT END OF TAPE *)G MT$V_HWL : [POS(19)] $BOOL; (* TAPE IS HARDWARE WRITELOCKED *)G MT$V_LOST : [POS(20)] $BOOL; (* TAPE POSITION LOST *)I MT$V_SUP_NRZI : [POS(21)] $BOOL; (* DRIVE SUPPORTS NRZI (800 BPI) *)G MT$V_SUP_PE : [POS(22)] $BOOL; (* DRIVE SUPPORTS PE (1600 BPI) *)H MT$V_SUP_GCR : [POS(23)] $BOOL; (* DRIVE SUPPORTS GCR (6250 BPI) *)G MT$V_SPEED : [POS~(24)] $BIT8; (* TAPE SPEED *)N(* *)N(* RECORDING FORMAT DEFINTIONS *)N(* *)N(* *)N(* RECORDING DENSITY AND METHOD DEFINITIONS *)N(*  *)4(* Default 0 *)4(* 9 Track 1 - 7 *)8(* Optical Disk 8 - 9 *)@(* SCSI Compaction codes 10 - 11 *)D(* High Performance Cartridge 12 - 15 *)6(* Block Mode 16 - 23 *)4(* Reserved 24 - 31 *)N(*  *)N(* *)P(* DEFAULT,0 /* DEFAULT DENSITY (SAME AS ABOVE) *)N(* TAPE SPEED VALUE DEFINITIONS *)N(* *) ) END; (*** MODULE $MT2DEF ***) N(*+ *)N(* EXTENDED MAGTAPE CHARACTERISTICS BITS  *)N(*- *) CONST MT2$M_SUP_DENS = 65535; MT2$M_WBC_ENABLE = 65536; MT2$M_RDC_DISABLE = 131072; MT2$M_CACHED_DATA = 262144; MT2$M_CD_LOST = 524288; MT2$M_TAPE_MARK = 1048576; MT2$M_COMP_SUP = 2097152; MT2$M_COMP_ENA = 4194304; MT2$M_MT3_SUPPORTED = 8388608; MT2$M_ALLOWFAST_SUP = 16777216;# MT2$M_ALLOWFAST_ALWAYS = 33554432;# MT2$M_ALLOWFAST_PER_IO = 67108864;# MT2$M_A LLOWFAST_NEVER = 134217728; &TYPE MT2$TYPE = RECORD CASE INTEGER OF. 1: (MT2$R_MT2DEF_BITS : [BYTE(4)] RECORD END; );G 2: (MT2$V_SUP_DENS : [POS(0)] $BIT16; (* SUPPORTED DENSITIES *)L MT2$V_WBC_ENABLE : [POS(16)] $BOOL; (* WRITE-BACK CACHING IS ENABLED *)H MT2$V_RDC_DISABLE : [POS(17)] $BOOL; (* READ CACHING IS DISABLED *)S MT2$V_CACHED_DATA : [POS(18)] $BOOL; (* CLASS DRIVER DETECTED DATA IN CACHE *)R MT2$V_CD_LOST : [POS(19)] $BOOL; (* CLASS DRIVER DETECTED CACHED DATA LOST *)H MT2$V_TAPE_MARK : [POS(20)] $BOOL; (* TAPE MARK HAS BEEN WRITTEN *)G MT2$V_COMP_SUP : [POS(21)] $BOOL; (* COMPACTION supported *)G MT2$V_COMP_ENA : [POS(22)] $BOOL; (* COMPACTION enabled *)[ MT2$V_MT3_SUPPORTED : [POS(23)] $BOOL; (* Driver supports Multiple Tape Densities. *)L MT2$V_ALLOWFAST_SUP : [POS(24)] $BOOL; (* SCSI Fast Search supported *)K MT2$V_ALLOWFAST_ALWAYS : [POS(25)] $BOOL; (* ALWAYS use Fast Search *)N MT2$V_A LLOWFAST_PER_IO : [POS(26)] $BOOL; (* PER_IO use of Fast Search *)J MT2$V_ALLOWFAST_NEVER : [POS(27)] $BOOL; (* NEVER use Fast Search *) ) END; (*** MODULE $MT3DEF ***) N(*+ *)N(* MAGNETIC TAPE DENSITY/COMPRESSION DEFINITIONS *)N(* *)N(* These values are used only for MTD enhanced tape drivers  *)N(* and are not found in MTDEF. *)$(* *) LCONST MT3$K_DEFAULT = 0; (* DEFAULT DENSITY/COMPRESSION *)G MT3$K_NRZI_800 = 257; (* NRZI 800 BPI *)G MT3$K_PE_1600 = 258; (* PE 1600 BPI *)G MT3$K_GCR_6250 = 260; (* GCR 6250 BPI *)G MT3$K_TK50 = 513; (* DLT TK50: 833 BPI *)G MT3$K_TK70 = 514; (* DLT TK70: 1250 BPI *)G MT3$K_3480 = 769; (* IBM 3480 HPC 39872 BPI *)G MT3$K_3490E = 770; (* IBM 3480: compressed *)G MT3$K_3480_COMP = 772; (* IBM 3490 density *)G MT3$K_3490E_COMP = 776; (* IBM 3490: compressed *)G MT3$K_WOD_6250 = 1025; (* RV80 6250 BPI EQUIVALENT *)G MT3$K_DAT = 1281; (* DAT - 61000 bpi  *)G MT3$K_DAT_COMP = 1282; (* DAT Compressed *) Q(* Only the Symbols to here are understood by pre-Raven TMSCP / TUDRIVER code. *) UCONST MT3$K_DENSITY_INVALID = 31; (* Indicates,, DEVDEPEND density is invalid. *)G MT3$K_8200 = 1537; (* Exa-Byte 8200 *)G MT3$K_8500 = 1538; (* Exa-Byte 8500 *)G MT3$K_8500_COMP = 1540; (* Exa-Byte 8500 Compressed *)G MT3$K_8200_COMP = 1544; (* Exa-Byte 8200 Compressed *)G MT3$K_8900 = 1552; (* Exa-Byte 8900 *)G MT3$K_8900_COMP = 1568; (* Exa-Byte 8900 Compressed *)N MT3$K_QIC = 1793; (* All QIC drives are drive settable only. *)G MT3$K_TK85 = 2052; (* DLT Tx85: 10625 BPI -- Cmpt III *)G MT3$K_TK86 = 2056; (* DLT Tx86: 10626 BPI -- Cmpt III *)G MT3$K_TK87 = 2064; (* DLT Tx87: 62500 BPI -- Cmpt III *)G MT3$K_TK87_COMP = 2080; (* DLT Tx87: Compressed 62501 BPI *)J MT3$K_TK89 = 2305; (* DLT Tx89: (Quantum 7000) -- Cmpt IV *)G MT3$K_TK89_COMP = 2306; (* DLT Tx89: Compressed -- Cmpt IV *)J MT3$K_TK88 = 2368; (* DLT Tx88: (Quantum 4000) -- Cmpt IV *)G MT3$K_TK88_COMP = 2432; (* DLT Tx88: Compressed -- Cmpt IV *)G MT3$K_DLT8000 = 3588; (* DLT8000 *)G MT3$K_DLT8000_COMP = 3592; (* DLT8000 Compressed  *)G MT3$K_SDLT = 3600; (* Super DLT *)G MT3$K_SDLT_COMP = 3616; (* Super DLT Compressed *)G MT3$K_SDLT320 = 3648; (* Super DLT320 *)G MT3$K_SDLT320_COMP = 3712; (* Super DLT320 Compressed *)G MT3$K_AIT1 = 2561; (* Sony Advanced Intelligent Tapes *)Q MT3$K_AIT1_COMP = 2562; (* Sony Advanced Intelligent Tapes Compressed *)G MT3$K_AIT2 = 2564; (* AIT2 *)G MT3$K_AIT2_COMP = 2568; (* AIT2 Compressed *)G MT3$K_AIT3 = 2576; (* AIT3 *)G MT3$K_AIT3_COMP = 2592; (* AIT3 Compressed *)G MT3$K_AIT4 = 2624; (* AIT4 *)G MT3$K_AIT4_COMP = 2688; (* AIT4 Compressed *)G MT3$K_DDS2 = 2817; (* Digital Data Storage 2 *)H MT3$K_DDS2_COMP = 2818;  (* Digital Data Storage 2 Compressed *)G MT3$K_DDS3 = 3073; (* Digital Data Storage 3 *)J MT3$K_DDS3_COMP = 3074; (* Digital Data Storage 3 Compressed *)G MT3$K_DDS4 = 3329; (* Digital Data Storage 4 *)J MT3$K_DDS4_COMP = 3330; (* Digital Data Storage 4 Compressed *)G MT3$K_DAT72 = 3332; (* DAT72 *)G MT3$K_DAT72_COMP = 3336; (* DAT72 Compressed *)G MT3$K_DAT160 = 3344; (* DAT160 *)G MT3$K_DAT160_COMP = 3360; (* DAT160 Compressed *)G MT3$K_SDLT600 = 3585; (* Super DLT600 *)G MT3$K_SDLT600_COMP = 3586; (* Super DLT600 Compressed *)G MT3$K_LTO2 = 3841; (* Ultrium460 *)G MT3$K_LTO2_COMP = 3842; (* Ultrium460 Compressed *)G MT3$K_LTO3 = 3844; (* Ultrium960 *) G MT3$K_LTO3_COMP = 3848; (* Ultrium960 Compressed *)G MT3$K_LTO4 = 3856; (* Ultrium 1840 *)G MT3$K_LTO4_COMP = 3872; (* Ultrium 1840 Compressed *) N(* Compression Only codes. *)R(* The X%FFxx codes below are layed out so that future compression enhancments *)N(* may take advantage of multiple compression types. *) LCONST MT3$K_NO_COMP = 65280;  (* All Compression OFF *)G MT3$K_COMP = 65281; (* Compression ON *) (*** MODULE $NETDEF ***) N(*+ *)I(* DECnet-VAX definitions *)N(*- *) TYPE NET$TYPE = RECORDG NET$B_USER_ECO : $UBYTE; (* User ECO of DECnet *)G NET$B_D EC_ECO : $UBYTE; (* Digital ECO of DECnet *)G NET$B_DEC_VERSION : $UBYTE; (* DECnet Version *)G NET$B_RESERVED : $UBYTE; (* Reserved to Digital *) END; (*** MODULE $NSADEF ***) N(* *)N(* Define the packet header and record types used for security auditing. *)N(* *) LCONST NSA$C_MSG_SERVER = 1; (* Audit server control message *)G NSA$C_MSG_AUDIT = 2; (* Change in auditable events *)G NSA$C_MSG_BREAKIN = 3; (* Breakin attempt *)G NSA$C_MSG_INSTALL = 4; (* Change to INSTALLed database *)G NSA$C_MSG_LOGFAIL = 5; (* Login failure *)G NSA$C_MSG_LOGIN = 6; (* Successful login *)G NSA$C_MSG_LOGOUT = 7; (* Successful logout  *)G NSA$C_MSG_MOUNT = 8; (* Volume mount or dismount *)G NSA$C_MSG_NETPROXY = 9; (* Network proxy data base change *)G NSA$C_MSG_ACCESS = 10; (* Object access *** obsolete *** *)G NSA$C_MSG_SYSUAF = 11; (* UAF change *)G NSA$C_MSG_RIGHTSDB = 12; (* Rights database change *)G NSA$C_MSG_CUSTOMER = 13; (* Customer application event *)G NSA$C_MSG_CSS = 14; (* CSS application event *)G NSA$C_MSG_LP = 15; (* Layered product event *)G NSA$C_MSG_PRVAUD = 16; (* Privilege audit *)G NSA$C_MSG_RESERVED_1 = 17; (* Reserved message type code *)G NSA$C_MSG_RESERVED_2 = 18; (* Reserved message type code *)G NSA$C_MSG_RESERVED_3 = 19; (* Reserved message type code *)G NSA$C_MSG_RESERVED_4 = 20; (* Reserved message type code *)G NSA$C_MSG_SYSTIME = 21; (* System time modification *)G NSA$C_MSG_SYSGEN = 22; (* SYSGEN parameter modification *)G NSA$C_MSG_OBJ_CREATE = 23; (* Object creation *)G NSA$C_MSG_OBJ_DELETE = 24; (* Object deletion *)G NSA$C_MSG_OBJ_DEACCESS = 25; (* Object deaccess *)G NSA$C_MSG_OBJ_ACCESS = 26; (* Object access *)G NSA$C_MSG_CONNECTION = 27; (* Connection *)G NSA$C_MSG_RESERVED_5 = 28;  (* Reserved Message type code *)G NSA$C_MSG_NCP = 29; (* NCP command line auditing *)G NSA$C_MSG_PROCESS = 30; (* Process control auditing *)H NSA$C_MSG_OBJECT_SERVICE = 31; (* Cluster visable object processing *)G NSA$C_MSG_AUTHENTICATE = 32; (* Distributed authentication *)G NSA$C_MSG_PERSONA = 33; (* Persona event *)G NSA$C_MSG_MAX_CODE = 34; (* Last type code (plus one) *) NSA$M_MANDATORY = 1; NSA$M_ACL = 2; NSA$M_INTERNAL = 4; NSA$M_ALARM = 8; NSA$M_AUDIT = 16; NSA$M_FOREIGN = 32; NSA$M_FLUSH = 64; NSA$M_SERVER = 128; NSA$M_DEACCESS = 256; NSA$M_SYNCH = 512; NSA$M_IDENTIFIER = 1024; NSA$M_PROCPRIV = 2048; NSA$M_AUTHPRIV = 4096; NSA$M_NOEVTCHECK = 8192; NSA$M_NOFAILAUD = 16384; NSA$M_NOSUCCAUD = 32768;G NSA$C_VERSION_1 = 1; (* First version of auditing *)G NSA$C_VERSION_2 = 2; (* Second version of auditing *)X  NSA$C_VERSION_3 = 3; (* Third version of auditing (support facility code) *)G NSA$C_V1_MSG_HDR_LENGTH = 12; (* For version 1 messages *) NSA$K_V1_MSG_HDR_LENGTH = 12;G NSA$C_MSG_HDR_LENGTH = 20; (* For latest version messages *) NSA$K_MSG_HDR_LENGTH = 20; )TYPE NSAMSG$TYPE = RECORD CASE INTEGER OFG 1: ( (* Define the packet header *)G NSA$W_RECORD_TYPE : $UWORD; (* Audit event type *)G NSA$W_RECORD_SUBTYPE : $UWORD; (* Audit event subtype *)+ NSA$R_FILL_12_ : [BYTE(2)] RECORD END;G NSA$W_PACKET_COUNT : $UWORD; (* Number of data packets *)3 NSA$R_REC_SIZE_OVERLAY : [BYTE(2)] RECORD END;G NSA$B_SPARE_3 : $UBYTE; (* Spare *)G NSA$B_VERSION : $UBYTE; (* Security auditing version number *)G NSA$W_SPARE_4 : ARRAY [1..3] OF $UWORD; (* Spare words *)G NSA$W_FACILITY : $UWORD; (* VMS facili ty code *)G NSA$R_PACKET_LIST : $UBYTE; (* Start of packets *) );G 2: (NSA$W_FLAGS : [POS(32)] $UWORD; (* Auditing flags *)' NSA$W_REC_SIZE : [POS(64)] $UWORD; );S 3: (NSA$W_RECORD_SIZE : [POS(64)] $UWORD; (* Total size (header + data packets) *) );G 4: (NSA$V_MANDATORY : [POS(32)] $BOOL; (* Event must be logged *)G NSA$V_ACL : [POS(33)] $BOOL; (* Event results from ACE *)G NSA$V_INTERNAL : [POS(34)] $BOOL; (* Event generated by TCB *)G NSA$V_ALARM : [POS(35)] $BOOL; (* Event is an alarm *)G NSA$V_AUDIT : [POS(36)] $BOOL; (* Event is an audit *)G NSA$V_FOREIGN : [POS(37)] $BOOL; (* Event outside of TCB *)I NSA$V_FLUSH : [POS(38)] $BOOL; (* Force audit server buffer flush *)H NSA$V_SERVER : [POS(39)] $BOOL; (* Override process no-audit bit *)G NSA$V_DEACCESS : [POS(40)] $BOOL; (* Deaccess audit required *)H NSA$V_SYNCH : [POS(41)] $BOOL; (* Synchronous return if possible *)M NSA$V_IDENTIFIER : [POS(42)] $BOOL; (* Privilege check via identifier *)W NSA$V_PROCPRIV : [POS(43)] $BOOL; (* Privilege check against process privileges *)Z NSA$V_AUTHPRIV : [POS(44)] $BOOL; (* Privilege check against authorized privileges *)G NSA$V_NOEVTCHECK : [POS(45)] $BOOL; (* Bypass event check *)R NSA$V_NOFAILAUD : [POS(46)] $BOOL; (* Do not audit failed privilege checks *)V NSA$V_NOSUCCAUD :  [POS(47)] $BOOL; (* Do not audit successful privilege checks *) ) END; N(* Server control message types *) LCONST NSA$C_SRV_ADD_JOURNAL = 1; (* Add a new audit journal *)G NSA$C_SRV_REM_JOURNAL = 2; (* Remove an existing audit journal *)G NSA$C_SRV_FLUSH_JOURNAL = 3; (* Flush specified journal *)G NSA$C_SRV_FLUSH_ALL_JOURNALS = 4; (* Flush all audit journals *)G NSA$C_SRV_FLUSH_INTERVAL = 5; (* Journal flushing time interval *)G NSA$C_SRV_ARCHIVE_DEVICE = 6; (* Specify archiving device *)G NSA$C_SRV_ARCHIVE_ENABLE = 7; (* Archiving enable flags *)G NSA$C_SRV_ARCHIVE_DISABLE = 8; (* Archiving disable flags *)G NSA$C_SRV_ARCHIVE_INTERVAL = 9; (* Guaranteed archinving interval *)G NSA$C_SRV_BADJNL_INTERVAL = 10; (* Bad journal scan interval *)V NSA$C_SRV_BADJNL_LIMIT = 11; (* Maximum number of bad journals to keep track of *)G NSA$C_SRV_EXIT = 12; (* Shut down the server *)K NSA$C_SRV_CREATE_SYSTEM_LOG = 13; (* Create a new system audit log file *)O NSA$C_SRV_AUDIT_CHANGE = 14; (* Change state of system auditing/alarming *)_ NSA$C_SRV_REDIRECT_SYSTEM_LOG = 15; (* Open the latest version of the system audit log file *)N NSA$C_SRV_REM_ENABLE = 16; (* Enable resource monitoring on a journal *)O NSA$C_SRV_REM_DISABLE = 17; (* Disable resource monitoring on a journal *)G NSA$C_SRV_REM_MONITOR_INTERVAL = 18; (* Resource monitor interval *)K NSA$C_SRV_REM_RESUME_INTERVAL = 19; (* Resource resume monitor interval *)I NSA$C_SRV_REM_MONITOR_MODE = 20; (* Specify new resource monitor mode *)P NSA$C_SRV_REM_FINAL_ACTION = 21; (* Specify final resource exhaustion action *)G NSA$C_SRV_REM_WARN_THRESHOLD = 22; (* Resource warning threshold *)P NSA$C_SRV_REM_ACTION_THRESHOLD = 23; (* Resource exhaustion action threshold *)I NSA$C_SRV_REM_RESUME_THRESHOLD = 24; (* Resource resumption threshold *)G NSA$C_SRV_REM_RESUME = 25; (* Force resource re-evaluation *)G NSA$C_SRV_REM_ADD_EXCLUDE = 26; (* Add process to exclusion list *)I NSA$C_SRV_REM_DEL_EXCLUDE = 27; (* Remove process from exclusion list *)G NSA$C_SRV_LISTENER_ENABLE = 28; (* Specify listener device *)G NSA$C_SRV_LISTENER_DISABLE = 29; (* Cancel listener device *)T NSA$C_SRV_NEW_LOG = 30; (* Create new cluster-wide system audit log file *)G NSA$C_SRV_RESTART = 31; (* Restart audit server *)J NSA$C_SRV_LOCK_SERVER = 32; (* Lock audit server to prevent change *)G NSA$C_SRV_RESERVED_1 = 33; (* Reserved server code *)G NSA$C_SRV_RESERVED_2 = 34; (* Reserved server code *)G NSA$C_SRV_RESERVED_3 = 35; (* Reserved server code *)G NSA$C_SRV_RESERVED_4 = 36; (* Reserved server code *)L NSA$C_SRV_FAILURE_MODE = 37; (* Change security auditing failure mode *)G NSA$C_SRV_SNAPS HOT = 38; (* System snapshot in progress *)G NSA$C_SRV_BACKLOG_TOTAL = 39; (* Flow control total backlog *)G NSA$C_SRV_BACKLOG_PROCESS = 40; (* Flow control process backlog *)G NSA$C_SRV_INITIATE = 41; (* Initiate event logging *)G NSA$C_SRV_RESTART_ALL = 42; (* Restart all audit servers *)G NSA$C_SRV_RESTART_OBJECT = 43; (* Restart object server *)G NSA$C_SRV_MAX_CODE = 44; (* Last message code (plus one) *) N (* Define resource exhaustion monitor modes. *) LCONST NSA$C_REM_SPACE = 1; (* # blocks to keep free on volume *)G NSA$C_REM_PERCENTAGE = 2; (* % of volume to keep free *)G NSA$C_REM_COUNT = 3; (* # msgs to reserve space for *)K NSA$C_REM_TIME = 4; (* # secs to reserve ave. msg space for *)L NSA$C_REM_MAX_MODE = 5; (* Last resource monitor mode (plus one) *) N(* Define final action to take when process buffer space exhausted. *) LCONST NSA$C_REM_PURGE_OLD = 1; (* Purge oldest entry from queue *)G NSA$C_REM_IGNORE_NEW = 2; (* Ignore newest (current) message *)K NSA$C_REM_RESTART = 3; (* Restart server - create process dump *)G NSA$C_REM_CRASH = 4; (* Shutdown VMS (BUG_CHECK) *)H NSA$C_REM_MAX_FINAL = 5; (* Last final action mode (plus one) *) N(* Define security auditing state modification codes. *) CONST NSA$C_AUDIT_DISABLED = 1; NSA$C_AUDIT_ENABLED = 2; NSA$C_AUDIT_TERMINATE = 3; NSA$C_AUDIT_INITIATE = 4;G NSA$C_SNAPSHOT_SAVE = 5; (* System snapshot save in progress *)J NSA$C_SNAPSHOT_ABORT = 6; (* System snapshot attempt has aborted *)I NSA$C_SNAPSHOT_STARTUP = 7; (* System booted from a snapshot file *)G NSA$C_SNAPSHOT_ACCESS = 8; (* Snapshot file access/deaccess *)G NSA$C_AUDIT_STATE = 9; (* New state of audit flags *)G NSA $C_ALARM_STATE = 10; (* New state of alarm flags *)N NSA$C_AUDIT_LOG_FINAL = 11; (* Final entry in audit log (forward link) *)K NSA$C_AUDIT_LOG_FIRST = 12; (* First entry in audit log (back link) *)M NSA$C_AUDIT_BAD_TCB_AUDIT = 13; (* An internal (TCB) audit was ill-formed *) NSA$C_AUDIT_MAX_CODE = 14; N(* Define security auditing failure mode codes. *) LCONST NSA$C_FAIL_WAIT = 1; (* Wait for resource (if possible) *)G NSA$C_FAIL_CRASH = 2; (* Crash system on failure *)G NSA$C_FAIL_IGNORE = 3; (* Ignore failing audit *)G NSA$C_FAIL_MAX_MODE = 4; (* Last failure mode (plus one) *) N(* Define BREAKIN, LOGIN, LOGOUT, and LOGIN failure codes. *) CONST NSA$C_BATCH = 1; NSA$C_DETACHED = 2; NSA$C_DIALUP = 3; NSA$C_LOCAL = 4; NSA$C_NETWORK = 5; NSA$C_REMOTE = 6; NSA$C_SUBPROCESS = 7; NSA$C_SERVER = 8; NSA$C_JOBTYPE_MAX_CODE = 9; N(* Define INSTALLed file database state modification codes. *) CONST NSA$C_INSTALL_ADD = 1; NSA$C_INSTALL_REMOVE = 2; NSA$C_INSTALL_MAX_CODE = 3; S(* Define INSTALLed file database state modification qualifier codes. Also, the *)N(* codes used by the audit message formatting tables. *) CONST NSA$M_INS_SPARE_0 = 1; NSA$M_INS_OPEN = 2; NSA$M_INS_HEADER_RESIDENT = 4; NSA$M_INS_SHARED = 8; NSA$M_INS_EXECUTE_ONLY = 16; NSA$M_INS_WRITEABLE = 32; NSA$M_INS_PRIVILEGED = 64; NSA$M_INS_PROTECTED = 128; NSA$M_INS_NOPURGE = 256; NSA$M_INS_ACCOUNTING = 512; NSA$M_INS_AUTHORIZED = 1024; NSA$M_INS_SIGNAL = 2048;  CONST NSA$C_INS_SPARE_0 = 1; NSA$C_INS_OPEN = 2; NSA$C_INS_HEADER_RESIDENT = 3; NSA$C_INS_SHARED = 4; NSA$C_INS_EXECUTE_ONLY = 5; NSA$C_INS_WRITEABLE = 6; NSA$C_INS_PRIVILEGED = 7; NSA$C_INS_PROTECTED = 8; NSA$C_INS_NOPURGE = 9; NSA$C_INS_ACCOUNTING = 10; NSA$C_INS_AUTHORIZED = 11; NSA$C_INS_SIGNAL = 12; NSA$C_INS_MAX_CODE = 13; N(* Define volume state modification codes. *) CONST NSA$C_VOL_DISMOUNT = 1; NSA$C_VOL_MOUNT = 2; NSA$C_VOL_MAX_CODE = 3; N(* Define volume state modification qualifier codes. *) CONST NSA$M_MNT_FOREIGN = 1; NSA$M_MNT_GROUP = 2; NSA$M_MNT_NOASSIST = 4; NSA$M_MNT_NODISKQ = 8; NSA$M_MNT_NOHDR3 = 16; NSA$M_MNT_NOLABEL = 32; NSA$M_MNT_NOWRITE = 64; NSA$M_MNT_OVR_ACCESS = 128; NSA$M_MNT_OVR_EXP = 256; NSA$M_MNT_OVR_IDENT = 512; NSA$M_MNT_OVR_SETID = 1024; NSA$M_MNT_READCHECK = 2048; NSA$M_MNT_SHARE = 4096; NSA$M_MNT_MESSAGE = 8192; NSA$M_MNT_SYSTEM = 16384; NSA$M_MNT_WRITECHECK = 32768; NSA$M_MNT_WRITETHRU = 65536; NSA$M_MNT_NOCACHE = 131072; NSA$M_MNT_OVR_LOCK = 262144; NSA$M_MNT_NOMNTVER = 524288; NSA$M_MNT_NOUNLOAD = 1048576;% NSA$M_MNT_TAPE_DATA_WRITE = 2097152; NSA$M_MNT_NOCOPY = 4194304; NSA$M_MNT_NOAUTO = 8388608; NSA$M_MNT_INIT_ALL = 16777216; NSA$M_MNT_INIT_CONT = 33554432; NSA$M_MNT_OVR_VOLO = 67108864; NSA$M_MNT_INTERCHG = 134217728; NSA$M_MNT_CLUSTER = 268435456;! NSA$M_MNT_NOREBUILD = 536870912;# NSA$M_MNT_OVR_SHAMEM = 1073741824;# NSA$M_MNT_MULTI_VOL = -2147483648;  LCONST NSA$C_MNT_MAX_CODE = 47; (* # of mount bits (plus one) *) N(* Define dismount flags. *) LCONST NSA$C_DMT_MAX_CODE = 5; (* # of dismount bits (plus one) *) NSA$M_DMT_NOUNLOAD = 1; NSA$M_DMT_UNIT = 2; NSA$M_DMT_ABORT = 4; NSA$M_DMT_CLUSTER = 8;  N(* Define network authorization file modification codes. *) CONST NSA$C_NETPROXY_ADD = 1; NSA$C_NETPROXY_DELETE = 2; NSA$C_NETPROXY_MODIFY = 3; NSA$C_NETPROXY_NCP = 4; NSA$C_NETPROXY_SHUTDOWN = 5; NSA$C_NETPROXY_STARTUP = 6; NSA$C_NETPROXY_CREATE = 7; NSA$C_NETPROXY_MAX_CODE = 8; N(* Define persona event codes  *) CONST NSA$C_PERSONA_CREATE = 1; NSA$C_PERSONA_DELETE = 2; NSA$C_PERSONA_MODIFY = 3; NSA$C_PERSONA_MAX_CODE = 4; Q(* Define object access codes. This table must parallel the object type codes *)P(* defined in $ACEDEF (in STARDEFAE.SDL). Any additional objects must appear *)O(* in both places. These same subtype codes are shared for all of the other *)N(* object message type codes (CREATE, DELETE, MODIFY, DEACCESS). *) CONST NSA$C_FILE_ACCESS = 1; NSA$C_DEVICE_ACCESS = 2; NSA$C_QUEUE_ACCESS = 3; NSA$C_CEF_ACCESS = 4; NSA$C_LNM_ACCESS = 5; NSA$C_PROCESS_ACCESS = 6; NSA$C_GRPGBL_ACCESS = 7; NSA$C_SYSGBL_ACCESS = 8; NSA$C_CAPABILITY_ACCESS = 9; NSA$C_EVENT_ACCESS = 10; NSA$C_LOCK_ACCESS = 11; NSA$C_VOLUME_ACCESS = 12; NSA$C_OBJECT_MAX_CODE = 13; N(* Define system authorization file modification codes. *) CONST NSA$C_SYSUAF_ADD = 1; NSA$C_SYSUAF_COPY = 2; NSA$C_SYSUAF_DELETE = 3; NSA$C_SYSUAF_MODIFY = 4; NSA$C_SYSUAF_RENAME = 5; NSA$C_SYSUAF_MAX_CODE = 6; N(* Define rights database modification codes. *) CONST NSA$C_RDB_ADD_ID = 1; NSA$C_RDB_CREATE = 2; NSA$C_RDB_GRANT_ID = 3; NSA$C_RDB_MOD_HOLDER = 4; NSA$C_RDB_MOD_ID = 5; NSA$C_RDB_REM_ID = 6; NSA$C_RDB_REVOKE_ID = 7; NSA$C_RDB_MAX_CODE = 8; N(* Define enhanced privilege audit codes. *) LCONS T NSA$C_PRVAUD_SUCCESS = 1; (* Successful use of privilege *)G NSA$C_PRVAUD_FAILURE = 2; (* Event due to privilege failure *) NSA$C_PRVAUD_MAX_CODE = 3; N(* Define system time audit codes. *) LCONST NSA$C_SYSTIM_SET = 1; (* Explicit setting of time *)G NSA$C_SYSTIM_CAL = 2; (* Calibration from todr *) NSA$C_SYSTIM_MAX_CODE = 3; N(* Define SYSGEN audit codes.  *) LCONST NSA$C_SYSGEN_SET = 1; (* Sysgen parameter modification *) NSA$C_SYSGEN_MAX_CODE = 2; N(* Define the create object event subtypes. *) LCONST NSA$C_OBJ_CREATE = 1; (* Create object *) NSA$C_CREATE_MAX_CODE = 2; N(* Define the delete object event subtypes. *) LCONST NSA$C_OBJ_DELETE = 1; (* Delete object *) NSA$C_DELETE_MAX_CODE = 2; N(* Define the access object event subtypes. *) LCONST NSA$C_OBJ_ACCESS = 1; (* Access object *) NSA$C_ACCESS_MAX_CODE = 2; N(* Define the deaccess object event subtypes. *) LCONST NSA$C_OBJ_DEACCESS = 1; (* Deaccess object *) NSA$C_DEACCESS_MAX_CODE = 2; N(* Define connection message event subtypes. *) LCONST NSA$C_CNX_REQUEST = 1; (* Connection request *)G NSA$C_CNX_ACCEPT = 2; (* Connection accepted *)G NSA$C_CNX_REJECT = 3; (* Connection rejected *)G NSA$C_CNX_DISCONNECT = 4; (* Connection disconnected *)H NSA$C_CNX_ABORT = 5; (* Connection aborted by third-party *)G NSA$C_CNX_DECNET_CREATE = 6; (* DECnet logical link created *)G NSA$C_CNX_DECNET_DELETE = 7; (* DECnet logical link disconnected *)G NSA$C_CNX_IPC_OPEN = 8; (* IPC association opened *)G NSA$C_CNX_IPC_CLOSE = 9; (* IPC association closed *)G NSA$C_CNX_INC_REQUEST = 10; (* Incomming connection request *)G NSA$C_CNX_INC_ACCEPT = 11; (* Connection request accepted *)G NSA$C_CNX_INC_REJECT = 12; (* Connection request rejected *)G NSA$C_CNX_INC_DISCONNECT = 13; (* Incoming connection disconnected *)Q NSA$C_CNX_INC_ABORT = 14; (* Incoming c onnection aborted by third-party *) NSA$C_CNX_MAX_CODE = 15;G NSA$C_NCP_COMMAND = 1; (* NCP command issued *) NSA$C_NCP_MAX_CODE = 2;G NSA$C_PRC_CREPRC = 1; (* Create process *)G NSA$C_PRC_DELPRC = 2; (* Delete process *)G NSA$C_PRC_SCHDWK = 3; (* Schedule process wakeup *)G NSA$C_PRC_CANWAK = 4; (* Cancel process wakeup *)G NSA$C_PRC_WAKE = 5; (* Wake process *)G NSA$C_PRC_SUSPND = 6; (* Suspend process *)G NSA$C_PRC_RESUME = 7; (* Resume process *)G NSA$C_PRC_GRANTID = 8; (* Grant identifier *)G NSA$C_PRC_REVOKID = 9; (* Revoke identifier *)G NSA$C_PRC_GETJPI = 10; (* Get job or process information *)G NSA$C_PRC_FORCEX = 11; (* Force image exit *)G NSA$C_PRC_SIGPRC = 12;  (* Signal process (undocumented) *)G NSA$C_PRC_SETPRI = 13; (* Set process priority *)P NSA$C_PRC_PRCTERM = 14; (* Detect process termination (undocumented) *)G NSA$C_PRC_CPU_CAPABILITIES = 15; (* Change in CPU capability *)H NSA$C_PRC_PROCESS_CAPABILITIES = 16; (* Change in process capability *)G NSA$C_PRC_PROCESS_AFFINITY = 17; (* Change in process affinity *)H NSA$C_PRC_SET_IMPLICIT_AFFINITY = 18; (* Change in implicit affinity *) NSA$C_PRC_M AX_CODE = 19;G NSA$C_INSTANTIATE_ORB = 1; (* Create an instance of an ORB *) N(* the profile may, or may not, *)N(* present in the database. *) LCONST NSA$C_DISTRIBUTE_ORB = 2; (* ORB distribution *)G NSA$C_OBJECT_AUDIT_CHANGE = 3; (* Change in audit/alarm vectors *)G NSA$C_DISTRIBUTE_NOTICE = 4; (* Notify agents of change *) N(* used for objec ts which *)N(* provide permanent storage *) CONST NSA$C_OBJSRV_MAX_CODE = 5; N(* Define distributed authentication subtypes here. *) RCONST NSA$C_AUTH_NETWORK_LOGIN = 2; (* authenticated network login *)M NSA$C_AUTH_RENEW_LOGIN = 3; (* authentication credential renewal *)M NSA$C_AUTH_INIT_SEC_CTX = 4; (* initiate security context  *)M NSA$C_AUTH_ACC_SEC_CTX = 5; (* accept security context *)N NSA$C_AUTH_INSTALL_DEF_CRED = 6; (* install application credential handle *)M NSA$C_AUTH_ACQUIRE_CRED = 7; (* acquire credential handle *)M NSA$C_AUTH_GRANT_CRED = 8; (* grant credential to another process *)M NSA$C_AUTH_RELEASE_CRED = 9; (* release credential handle *)M NSA$C_AUTH_DEL_SEC_CTX = 10; (* delete security context *)M NSA$C_AUTH_PROC_CTX_TOKEN = 11; (* process context token *)M NSA$C_AUTH_VERIFY = 12; (* verify signature *)G NSA$C_AUTH_SIGN = 13; (* sign a message *)G NSA$C_AUTH_SEAL = 14; (* seal a message *)G NSA$C_AUTH_UNSEAL = 15; (* unseal a message *)S NSA$C_CA_STARTUP = 16; (* the certification authority has been started *)M NSA$C_CA_EXIT = 17; (* the certification authority has exited *)G NSA$C_CA_ADD_DIRECTORY = 18; (* a name directory has been added *)G NSA$C_CA_ADD_PRINCIPAL = 19; (* a principal has been added *)G NSA$C_CA_LINK_DIRECTORY = 20; (* two directories have been linked *)V NSA$C_CA_CHANGE_LINK = 21; (* a link between two directories has been changed *)b NSA$C_CA_CHANGE_PRINCIPAL = 22; (* a principal's keypair/password or duration has been changed *)H NSA$C_CA_REMOVE_DIRECTORY = 23; (* a name directory has been removed *)G NSA$C_CA_REMOVE_PRINCIPAL = 24; (* a principal has been removed *)H NSA$C_CA_CERTIFICATE_DELETED = 25; (* a certificate has been deleted *)Z NSA$C_CA_REVOKED_CERT_FOUND = 26; (* a revoked certificate has been read from the CSS *)N NSA$C_CA_PASSWORD_CHANGE = 27; (* the password to the CA has been changed *)G NSA$C_CSS_OBJECT_CREATED = 28; (* a CSS object has been created *)G NSA$C_CSS_OBJECT_DELETED = 29; (* a CSS object has been deleted *)I NSA$C_CSS_CERTIFICATE_DELETED = 30; (* a certificate has been deleted *)W NSA$C_CSS_CREDENTIAL_READ = 31; (* a principal's permanent credential has been read *)R NSA$C_CSS_CERTIFICATE_ADDED = 32; (* a certificate has been added to an object *)g NSA$C_CSS_CREDENTIAL_WRITTEN = 33; (* an encrypted permanent credential has been added to an object *)U NSA$C_CSS_USER_CHANGED_PASSWORD = 34; (* a principal has changed his/her password *)a NSA$C_CSS_UPDATED_SECONDARY = 35; (* a CSS secondary has been updated from the local database *)_ NSA$C_CSS_DATABASE_UPDATED = 36; (* a secondary CSS has updated its database from a primary *)S NSA$C_CSS_STARTED = 37; (* the CSS server has been successfully started *)L NSA$C_CSS_WINDOW_OPEN = 38; (* the CSS access window has been opened *)L NSA$C_CSS_WINDOW_CLOSED = 39; (* the CSS access window has been closed *)O NSA$C_CSS_LOCTABLE_UPDATED = 40; (* the CSS location table has been updated *) NSA$C_AUTH_MAX_CODE = 41; N(* Define data packet format  *) LCONST NSA$C_PKT_ACCESS_DESIRED = 1; (* Access requested *)G NSA$C_PKT_ACCOUNT = 2; (* Account name *)G NSA$C_PKT_ALARM_NAME = 3; (* Alarm journal name *)G NSA$C_PKT_APPL_DATA = 4; (* Application supplied data *)G NSA$C_PKT_AUDIT_FLAGS = 5; (* Audit flags *)G NSA$C_PKT_AUDIT_NAME = 6; (* Audit journal name *)G NSA$C_PKT_SYSTEM_NAME = 7; (* SCS system node name *)G NSA$C_PKT_SYSTEM_ID = 8; (* SCS system node identification *)V NSA$C_PKT_DEVICE_NAME = 9; (* Primary device name on which the volume resides *)G NSA$C_PKT_DISMOUNT_FLAGS = 10; (* Volume dismount flags *)G NSA$C_PKT_HOLDER_NAME = 11; (* Holder name *)G NSA$C_PKT_HOLDER_OWNER = 12; (* Holder owner ID *)G NSA$C_PKT_ID_ATTRIBUTES = 13; (* Identifier attributes *)G NSA$C_PKT_ID_NAME = 14; (* Identifier name *)G NSA$C_PKT_ID_NEW_NAME = 15; (* Identifer new name *)G NSA$C_PKT_ID_VALUE = 16; (* Identifier value *)G NSA$C_PKT_ID_NEW_VALUE = 17; (* Identifier new value *)G NSA$C_PKT_IDENTIFIERS_USED = 18; (* Identifiers used to gain access *)G NSA$C_PKT_IMAGE_NAME = 19; (* Name of the image being executed *)G NSA$C_PKT_INSTALL_FILE = 20; (* Installed file  *)G NSA$C_PKT_INSTALL_FLAGS = 21; (* INSTALL flags *)G NSA$C_PKT_INSTALL_PRIVS = 22; (* INSTALL privileges *)O NSA$C_PKT_LOGICAL_NAME = 23; (* Logical name associated with the device. *)G NSA$C_PKT_MOUNT_FLAGS = 24; (* Volume mount flags *)G NSA$C_PKT_NEW_DATA = 25; (* Data after modification *)G NSA$C_PKT_FILE_ID = 26; (* File identification (FID) *)L NSA$C_PKT_OBJECT_MIN_CLASS = 27; (* Minimum object access classification *)L NSA$C_PKT_OBJECT_MAX_CLASS = 28; (* Maximum object access classification *)G NSA$C_PKT_OBJECT_NAME = 29; (* The object's name *)G NSA$C_PKT_OBJECT_NAME_2 = 30; (* Secondary (path) object name *)L NSA$C_PKT_OBJECT_OWNER = 31; (* Owner identifier (UIC) of the process *)K NSA$C_PKT_OBJECT_PROTECTION = 32; (* UIC based protection of the object *)G NSA$C_PKT_OBJECT_TYPE = 33; (* Object's type code *)G NSA$C_PKT_ORIGINAL_DATA = 34; (* Data before modification *)G NSA$C_PKT_PARENT_ID = 35; (* PID of the parent process *)G NSA$C_PKT_PARENT_NAME = 36; (* Parent process name *)G NSA$C_PKT_PARENT_OWNER = 37; (* Parent process owner (UIC) *)G NSA$C_PKT_PARENT_USERNAME = 38; (* Parent process username *)G NSA$C_PKT_PASSWORD = 39; (* Breakin password *)G NSA$C_PKT_PRIVS_USED = 40; (* Privileges used to gain access *)G NSA$C_PKT_PROCESS_ID = 41; (* Current process PID *)G NSA$C_PKT_PROCESS_NAME = 42; (* Current process name *)G NSA$C_PKT_REMOTE_NODE_ID = 43; (* Node ID of network source *)G NSA$C_PKT_REMOTE_NODENAME = 44; (* Remote nodename *)G NSA$C_PKT_REMOTE_USERNAME = 45; (* Remote username *)G NSA$C_PKT_SUBJECT_CLASS = 46; (* Process current access class *)G NSA$C_PKT_SUBJECT_OWNER = 47; (* Process owner (UIC)  *)G NSA$C_PKT_FINAL_STATUS = 48; (* Completion status *)G NSA$C_PKT_TERMINAL = 49; (* Process terminal name *)G NSA$C_PKT_TIME_STAMP = 50; (* When the event took place *)G NSA$C_PKT_UAF_ADD = 51; (* UAF record added *)G NSA$C_PKT_UAF_DELETE = 52; (* UAF record removed *)G NSA$C_PKT_UAF_MODIFY = 53; (* UAF record modified *)G NSA$C_PKT_UAF_COPY = 54; (* UAF record copied *)G NSA$C_PKT_UAF_FIELDS = 55; (* UAF fields modified *)G NSA$C_PKT_USERNAME = 56; (* Requestor username *)G NSA$C_PKT_UAF_SOURCE = 57; (* UAF source username *)G NSA$C_PKT_UAF_RENAME = 58; (* UAF record renamed *)G NSA$C_PKT_VOLUME_NAME = 59; (* Mount/dismount volume name *)G NSA$C_PKT_VOLUME_SET_NAME = 60; (* Volume set name *)G NSA$C_PKT_SERVER_ACCOUNT = 61; (* Server account *)G NSA$C_PKT_SERVER_SYSTEM_ID = 62; (* Server system id *)G NSA$C_PKT_SERVER_SYSTEM_NAME = 63; (* Server system name *)G NSA$C_PKT_SERVER_FINAL_STATUS = 64; (* Server status *)G NSA$C_PKT_SERVER_IMAGE_NAME = 65; (* Server image name *)G NSA$C_PKT_SERVER_PARENT_ID = 66; (* Server parent id *)G NSA$C_PKT_SERVER_PARENT_OWNER = 67; (* Server parent owner (UIC) *)G NSA$C_PKT_SERVER_PARENT_NAME = 68; (* Server parent process name *)G NSA$C_PKT_SERVER_PROCESS_ID = 69; (* Server process id *)G NSA$C_PKT_SERVER_PROCESS_NAME = 70; (* Server process name *)G NSA$C_PKT_SERVER_SUBJECT_CLASS = 71; (* Server classification *)G NSA$C_PKT_SERVER_SUBJECT_OWNER = 72; (* Server owner (UIC) *)G NSA$C_PKT_SERVER_TERMINAL = 73; (* Server terminal *)G NSA$C_PKT_SERVER_TIME_STAMP = 74; (* Server timestamp *)G NSA$C_PKT_SERVER_USERNAME = 75; (* Server username *)G NSA$C_PKT_AUDIT_DISABLE = 76; (* Audit event disable mask *)G NSA$C_PKT_AUDIT_ENABLE = 77; (* Audit event enable mask *)G NSA$C_PKT_ALARM_DISABLE = 78; (* Alarm event disable mask *)G NSA$C_PKT_ALARM_ENABLE = 79; (* Alarm event enable mask *)G NSA$C_PKT_NOP = 80; (* Nop (for static item lists) *)G NSA$C_PKT_REPLY_MAILBOX = 81; (* Message acknowledge mailbox *)G NSA$C_PKT_DEFAULT_USERNAME = 82; (* NETPROXY default proxy account *)G NSA$C_PKT_LOCAL_USERNAME = 83; (* NETPROXY local proxy account *)M NSA$C_PKT_FIELD_NAME = 84; (* Name of (NEW_DATA/ORIGINAL_DATA) field *)G NSA$C_PKT_LISTENER_DEVICE = 85; (* Listener device name *)G NSA$C_PKT_FIELD_TITLE_STR = 86; (* Field title string *)G NSA$C_PKT_FIELD_DATA_STR = 87; (* Field data string *)G NSA$C_PKT_MESSAGE_TYPE_STR = 88; (* Event message type stri ng *)H NSA$C_PKT_EVENT_TYPE = 89; (* Event message type ($AUDIT_EVENT) *)K NSA$C_PKT_EVENT_SUBTYPE = 90; (* Event message subtype ($AUDIT_EVENT) *)G NSA$C_PKT_EVENT_FACILITY = 91; (* Event facility ($AUDIT_EVENT) *)T NSA$C_PKT_DIRECTORY_ENTRY = 92; (* Directory entry associated with XQP operation *)G NSA$C_PKT_DIRECTORY_ID = 93; (* Directory file-id *) Q(* The following three blocks of codes are obsolete with V5.4. With V5.4, one *)N(* should use the NSA$W_FACILITY field for layered product and/or customer *)Q(* audit messages. These symbols must not be reused as versions of SeVMS (and *)N(* fiends) depend on their existence. *) LCONST NSA$C_PKT_CUSTOMER_1 = 94; (* obsolete codes *) NSA$C_PKT_CUSTOMER_2 = 95; NSA$C_PKT_CUSTOMER_3 = 96; NSA$C_PKT_CUSTOMER_4 = 97; NSA$C_PKT_CUSTOMER_5 = 98; NSA$C_PKT_CUSTOMER_6 = 99; NSA$C_PKT_CUSTOMER_7 = 100; NSA$C_PKT_CUSTOMER_8 = 101;G NSA$C_PKT_CSS_1 = 102; (* obsolete codes *) NSA$C_PKT_CSS_2 = 103; NSA$C_PKT_CSS_3 = 104; NSA$C_PKT_CSS_4 = 105; NSA$C_PKT_CSS_5 = 106; NSA$C_PKT_CSS_6 = 107; NSA$C_PKT_CSS_7 = 108; NSA$C_PKT_CSS_8 = 109;G NSA$C_PKT_LP_1 = 110; (* obsolete codes *) NSA$C_PKT_LP_2 = 111; NSA$C_PKT_LP_3 = 112; NSA$C_PKT_LP_4 = 113; NSA$C_PKT_LP_5 = 114; NSA$C_PKT_LP_6 = 115; NSA$C_PKT_LP_7 = 116; NSA$C_PKT_LP_8 = 11 7; N(* End of obsolete codes. *) LCONST NSA$C_PKT_ALARM_FAILURE = 118; (* Alarm failure mode *)G NSA$C_PKT_AUDIT_FAILURE = 119; (* Audit failure mode *)G NSA$C_PKT_SEVMS_0 = 120; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_1 = 121; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_2 = 122; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_3 = 123; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_4 = 124; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_5 = 125; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_6 = 126; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_7 = 127; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_8 = 128; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_9 = 129; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_10 = 130;  (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_11 = 131; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_12 = 132; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_13 = 133; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_14 = 134; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_15 = 135; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_16 = 136; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_17 = 137; (* Reserved for SeVMS *)G NSA$C_PKT_SEVMS_18 = 138; (* Reserved for SeVMS *)G NSA$C_PKT_SNAPSHOT_TIME = 139; (* Snapshot time *)H NSA$C_PKT_TRANSPORT_NAME = 140; (* Transport name (IPC, DECnet, SMI) *)G NSA$C_PKT_DECNET_LINK_ID = 141; (* DECnet logical link ID *)G NSA$C_PKT_DECNET_OBJECT_NAME = 142; (* DECnet object name *)G NSA$C_PKT_DECNET_OBJECT_NUMBER = 143; (* DECnet object number *)G NSA$C_PKT_REMOTE_LINK_ID = 144; (* Remote logical link ID *)G NSA$C_PKT_COMMAND_LINE = 145; (* Command line *)G NSA$C_PKT_ASSOCIATION_NAME = 146; (* IPC association name *)H NSA$C_PKT_REM_ASSOCIATION_NAME = 147; (* IPC remote association name *)G NSA$C_PKT_CONNECTION_ID = 148; (* IPC connection ID *)G NSA$C_PKT_MESSAGE = 149; (* Associated message code *)G NSA$C_PKT_MSGFILNAM = 150; (* Associated message file name  *)G NSA$C_PKT_OBJECT_POINTER = 151; (* Object container (Directory) *)G NSA$C_PKT_ID_NEW_ATTRIBUTES = 152; (* Identifier new attributes *)G NSA$C_PKT_SYSTIM_NEW = 153; (* New system time *)G NSA$C_PKT_SYSTIM_OLD = 154; (* Old system time *)H NSA$C_PKT_PARAMS_WRITE = 155; (* SYSGEN filename for WRITE command *)P NSA$C_PKT_PARAMS_INUSE = 156; (* SYSGEN parameter set name for USE command *)G NSA$C_PKT_MATCHING_ACE = 157; (* ACE granting or denying access *)G NSA$C_PKT_SNAPSHOT_SAVE_FILNAM = 158; (* Snapshot save file name *)G NSA$C_PKT_MAILBOX_UNIT = 159; (* Mailbox unit number *)G NSA$C_PKT_NEW_OWNER = 160; (* New process owner (UIC) *)G NSA$C_PKT_NEW_PRIORITY = 161; (* New process priority *)G NSA$C_PKT_OLD_PRIORITY = 162; (* Old process priority *)G NSA$C_PKT_DIAG_FUNC = 163; (* Diagnostic function *)G NSA$C_PKT_RESOURCE_NAME = 164; (* Lock resource name *)G NSA$C_PKT_LNM_TABLE_NAME = 165; (* Logical name table name *)G NSA$C_PKT_LNM_PARENT_NAME = 166; (* Parent logical name table name *)G NSA$C_PKT_EFC_NAME = 167; (* Event Flag Cluster name *)J NSA$C_PKT_TARGET_PROCESS_CLASS = 168; (* Target process classification *)G NSA$C_PKT_TARGET_PROCESS_ID = 169; (* Target process PID *)G NSA$C_PKT_TARGET_PROCESS_NAME = 170; (* Target process name *)G NSA$C_PKT_TARGET_PROCESS_OWNER = 171; (* Target process owner (UIC) *)G NSA$C_PKT_TARGET_USERNAME = 172; (* Target username *)G NSA$C_PKT_NEW_PRIVILEGES = 173; (* New privileges *)G NSA$C_PKT_OLD_PRIVILEGES = 174; (* Old privileges *)G NSA$C_PKT_REMOTE_NODE_FULLNAME = 175; (* Remote node fullname *)G NSA$C_PKT_UID = 176; (* UID of object *)G NSA$C_PKT_UNUSED_3 = 177; (* Unused packet *)G NSA$C_PKT_UNUSED_4 = 178; (* Unused packet *)G NSA$C_PKT_UNUSED_5 = 179; (* Unused packet *)G NSA$C_PKT_UNUSED_6 = 180; (* Unused packet *)G NSA$C_PKT_UNUSED_7 = 181; (* Unused packet *)G NSA$C_PKT_UNUSED_8 = 182; (* Unused packet *)G NSA$C_PKT_UNUSED_9 = 183; (* Unused packet *)G NSA$C_PKT_UNUSED_10 = 184; (* Unused packet *)G NSA$C_PKT_PRIVS_MISSING = 185; (* Privileges missing *)G NSA$C_PKT_TARGET_DEVICE_NAME = 186; (* Target device name *)G NSA$C_PKT_SECTION_NAME = 187; (* Global section name *)G NSA$C_PKT_ID_VALUE_ASCII = 188; (* ID value via $IDTOASC *)G NSA$C_PKT_OBJECT_CLASS = 189; (* Object class name *)G NSA$C_PKT_SUPPRESS = 190; (* Suppress supplied items *)G NSA$C_PKT_SNAPSHOT_BOOTFILE = 191; (* Snapshot boot file name *)K NSA$C_PKT_SOURCE_PROCESS_ID = 192; (* Source process ID (impersonation) *)G NSA$C_PKT_REQUEST_NUMBER = 193; (* Request number *)G NSA$C_PKT_ACCESS_MODE = 194; (* Access mode *)G NSA$C_PKT_SYSTEM_SERVICE_NAME = 195; (* System service name *)G NSA$C_PKT_NEW_AUTH_PRIVILEGES = 196; (* New authorized privileges *)G NSA$C_PKT_OLD_AUTH_PRIVILEGES = 197; (* Old authorized privileges *)G NSA$C_PKT_NEW_DEF_PRIVILEGES = 198; (* New default privileges *)G NSA$C_PKT_OLD_DEF_PRIVILEGES = 199; (* Old default privileges *)G NSA$C_PKT_NEW_PROCESS_ID = 200; (* New process ID *)G NSA$C_PKT_NEW_PROCESS_OWNER = 201; (* New process owner (UIC) *)G NSA$C_PKT_NEW_PROCESS_NAME = 202; (* New process name *)G NSA$C_PKT_NEW_IMAGE_NAME = 203; (* New image name *)G NSA$C_PKT_NEW_USERNAME = 204; (* New username *)G NSA$C_PKT_DEACCESS_KEY = 205;  (* Deaccess audit key *)G NSA$C_PKT_OBJECT_RIGHTS_BLOCK = 206; (* Object Rights Block *)T NSA$C_PKT_OBJSRV_COMPLETE = 207; (* Object service processing completion routine *)G NSA$C_PKT_TLV_ORB = 208; (* Object distribution *)G NSA$C_PKT_FILE_NAME = 209; (* File name (volume auditing) *)G NSA$C_PKT_DIRECTORY_NAME = 210; (* Directory file name *)G NSA$C_PKT_SEQUENCE_KEY = 211; (* Sequence key (XQP auditing) *) N(* DAS item codes. *) )CONST NSA$C_PKT_PRINCIPAL_FULLNAME = 212;! NSA$C_PKT_TARGET_FULLNAME = 213;! NSA$C_PKT_SOURCE_FULLNAME = 214;" NSA$C_PKT_DESIRED_FULLNAME = 215;" NSA$C_PKT_CLAIMED_USERNAME = 216;" NSA$C_PKT_CLAIMED_FULLNAME = 217;" NSA$C_PKT_CLAIMED_NODENAME = 218; NSA$C_PKT_TIME_REQ = 219; NSA$C_PKT_TIME_REC = 220; NSA$C_PKT_REQ_FLAGS = 221; NSA$C_PKT_RET_FLAGS = 222; NSA$C_PKT_LIFETIME_REQ = 223; NSA$C_PKT_LIFETIME_REC = 224; NSA$C_PKT_CRED_USAGE = 225; NSA$C_PKT_CONTEXT_HANDLE = 226; NSA$C_PKT_QOP_STATE = 227; NSA$C_PKT_CONF_STATE = 228;# NSA$C_PKT_DELEG_CRED_HANDLE = 229; NSA$C_PKT_MAJOR_STATUS = 230; NSA$C_PKT_DAS_1 = 231; NSA$C_PKT_DAS_2 = 232; NSA$C_PKT_DAS_3 = 233; NSA$C_PKT_DAS_4 = 234; NSA$C_PKT_DAS_5 = 235; NSA$C_PKT_DAS_6 = 236; NSA$C_PKT_DAS_7 = 237; NSA$C_PKT_DAS_8 = 238; NSA$C_PKT_DAS_9 = 239; NSA$C_PKT_DAS_10 = 240;! NSA$C_PKT_STATE_FILE_NAME = 241;$  NSA$C_PKT_DIRECTORY_FULLNAME = 242;# NSA$C_PKT_FROM_DIR_FULLNAME = 243;! NSA$C_PKT_TO_DIR_FULLNAME = 244;! NSA$C_PKT_ISSUER_FULLNAME = 245;" NSA$C_PKT_SUBJECT_FULLNAME = 246; NSA$C_PKT_CERTIF_TYPE = 247;$ NSA$C_PKT_CSS_SECONDARY_NAME = 248;% NSA$C_PKT_CSS_OBJECT_FULLNAME = 249;" NSA$C_PKT_CSS_REQUEST_FROM = 250;" NSA$C_PKT_CSS_PRIMARY_NAME = 251;& NSA$C_PKT_CERTIF_SERIAL_NUMBER = 252;! NSA$C_PKT_WINDOW_END_TIME = 253;G NSA$C_PKT_LOG_CLOSED = 254; (* log file closed  *)G NSA$C_PKT_LOG_OPENED = 255; (* log file opened *)G NSA$C_PKT_IDENTIFIERS_MISSING = 256; (* identifiers missing *)& NSA$C_PKT_SENSITIVE_FIELD_NAME = 257;% NSA$C_PKT_SENSITIVE_ORIG_DATA = 258;$ NSA$C_PKT_SENSITIVE_NEW_DATA = 259;' NSA$C_PKT_SENSITIVE_FIELD_TITLE = 260;& NSA$C_PKT_SENSITIVE_FIELD_DATA = 261;J NSA$C_PKT_INSTALL_AUTHPRIVS = 262; (* installed image authorized privs *)G NSA$C_PKT_PERSONA_FLAGS = 263; (* persona flags *)G NSA$C_PKT_PERSONA_UID = 264; (* persona UID *)G NSA$C_PKT_PERSONA_MODE = 265; (* persona creation mode *)G NSA$C_PKT_PERSONA_USERNAME = 266; (* persona username *)G NSA$C_PKT_PERSONA_ACCOUNT = 267; (* persona account *)G NSA$C_PKT_PERSONA_NOAUDIT = 268; (* persona noaudit counter *)G NSA$C_PKT_PERSONA_UIC = 269; (* persona UIC *)G NSA$C_PKT_PERSONA_AUTHPRIV = 270; (* persona authorized privs *)G NSA$C_PKT_PERSONA_PERMPRIV = 271; (* persona permanent privs *)G NSA$C_PKT_PERSONA_WORKPRIV = 272; (* persona working privs *)G NSA$C_PKT_PERSONA_ENABLED = 273; (* persona rights enabled flags *)G NSA$C_PKT_PERSONA_RIGHTS = 274; (* persona rights *)G NSA$C_PKT_PERSONA_MINCLASS = 275; (* persona minimum classification *)G NSA$C_PKT_PERSONA_MAXCLASS = 276; (* persona maximum classification *)H NSA$C_PKT_PERSONA_WORKCLASS = 277; (* persona w orking classification *)G NSA$C_PKT_PERSONA_ID = 278; (* persona Id *)# NSA$C_PKT_PERSONA_POSIX_UID = 279;# NSA$C_PKT_PERSONA_POSIX_GID = 280;" NSA$C_PKT_PARENT_POSIX_UID = 281;" NSA$C_PKT_PARENT_POSIX_GID = 282;G NSA$C_PKT_MAX_CODE = 283; (* Must be last *) NSA$C_PKT_HDR_LENGTH = 4; NSA$K_PKT_HDR_LENGTH = 4;G NSA$_ACCESS_DESIRED = 1; (* Access requested *)G NSA$_ACCOUNT = 2; (* Account name  *)G NSA$_ALARM_NAME = 3; (* Alarm journal name *)G NSA$_APPL_DATA = 4; (* Application supplied data *)G NSA$_AUDIT_FLAGS = 5; (* Audit flags *)G NSA$_AUDIT_NAME = 6; (* Audit journal name *)G NSA$_SYSTEM_NAME = 7; (* SCS system node name *)G NSA$_SYSTEM_ID = 8; (* SCS system node identification *)V NSA$_DEVICE_NAME = 9; (* Primary device name on which the volume resides *)G NSA$_DISMOUNT_FLAGS = 10; (* Volume dismount flags *)G NSA$_HOLDER_NAME = 11; (* Holder name *)G NSA$_HOLDER_OWNER = 12; (* Holder owner ID *)G NSA$_ID_ATTRIBUTES = 13; (* Identifier attributes *)G NSA$_ID_NAME = 14; (* Identifier name *)G NSA$_ID_NEW_NAME = 15; (* Identifer new name *)G NSA$_ID_VALUE = 16; (* Identifier value *)G NSA$_ID_NEW_VALUE = 17; (* Identifier new value *)G NSA$_IDENTIFIERS_USED = 18; (* Identifiers used to gain access *)G NSA$_IMAGE_NAME = 19; (* Name of the image being executed *)G NSA$_INSTALL_FILE = 20; (* Installed file *)G NSA$_INSTALL_FLAGS = 21; (* INSTALL flags *)G NSA$_INSTALL_PRIVS = 22; (* INSTALL privileges *)O NSA$_LOGICAL_NAME = 23; (* Logical name associated with the device. *)G NSA$_MOUNT_FLAGS = 24; (* Volume mount flags *)G NSA$_NEW_DATA = 25; (* Data after modification *)G NSA$_FILE_ID = 26; (* File identification (FID) *)K NSA$_OBJECT_MIN_CLASS = 27; (* Minimum object access classification *)K NSA$_OBJECT_MAX_CLASS = 28; (* Maximum object access classification *)G NSA$_OBJECT_NAME = 29; (* The object's name *)G NSA$_OBJECT_NAME_2 = 30; (* Secondary (path) object name *)L NSA$_OBJECT_OWNER = 31; (* Owner identifier (UIC) of the process *)I NSA$_OBJECT_PROTECTION = 32; (* UIC based protection of the object *)G NSA$_OBJECT_TYPE = 33; (* Object's type code *)G NSA$_ORIGINAL_DATA = 34; (* Data before modification *)G NSA$_PARENT_ID = 35; (* PID of the parent process *)G NSA$_PARENT_NAME = 36;  (* Parent process name *)G NSA$_PARENT_OWNER = 37; (* Parent process owner (UIC) *)G NSA$_PARENT_USERNAME = 38; (* Parent process username *)G NSA$_PASSWORD = 39; (* Breakin password *)G NSA$_PRIVS_USED = 40; (* Privileges used to gain access *)G NSA$_PROCESS_ID = 41; (* Current process PID *)G NSA$_PROCESS_NAME = 42; (* Current process name *)G NSA$_REMOTE_NODE_ID = 43; (* Node ID of network source *)G NSA$_REMOTE_NODENAME = 44; (* Remote nodename *)G NSA$_REMOTE_USERNAME = 45; (* Remote username *)G NSA$_SUBJECT_CLASS = 46; (* Process current access class *)G NSA$_SUBJECT_OWNER = 47; (* Process owner (UIC) *)G NSA$_FINAL_STATUS = 48; (* Completion status *)G NSA$_TERMINAL = 49; (* Process terminal name *)G NSA$_TIME_STAMP = 50; (* When the event took place *)G NSA$_UAF_ADD = 51; (* UAF record added *)G NSA$_UAF_DELETE = 52; (* UAF record removed *)G NSA$_UAF_MODIFY = 53; (* UAF record modified *)G NSA$_UAF_COPY = 54; (* UAF record copied *)G NSA$_UAF_FIELDS = 55; (* UAF fields modified *)G NSA$_USERNAME = 56; (* Requestor username *)G NSA$_UAF_SOURCE = 57; (* Secondary username *)G NSA$_UAF_RENAME = 58; (* UAF record renamed *)G NSA$_VOLUME_NAME = 59; (* Mount/dismount volume name *)G NSA$_VOLUME_SET_NAME = 60; (* Volume set name *)G NSA$_SERVER_ACCOUNT = 61; (* Server account *)G NSA$_SERVER_SYSTEM_ID = 62; (* Server system id *)G NSA$_SERVER_SYSTEM_NAME = 63; (* Server system name  *)G NSA$_SERVER_FINAL_STATUS = 64; (* Server status *)G NSA$_SERVER_IMAGE_NAME = 65; (* Server image name *)G NSA$_SERVER_PARENT_ID = 66; (* Server parent id *)G NSA$_SERVER_PARENT_OWNER = 67; (* Server parent owner *)G NSA$_SERVER_PARENT_NAME = 68; (* Server parent process name *)G NSA$_SERVER_PROCESS_ID = 69; (* Server process id *)G NSA$_SERVER_PROCESS_NAME = 70; (* Server process name *)G NSA$_SERVER_SUBJECT_CLASS = 71; (* Server classification *)G NSA$_SERVER_SUBJECT_OWNER = 72; (* Server owner ('UIC') *)G NSA$_SERVER_TERMINAL = 73; (* Server terminal *)G NSA$_SERVER_TIME_STAMP = 74; (* Server timestamp *)G NSA$_SERVER_USERNAME = 75; (* Server username *)G NSA$_AUDIT_DISABLE = 76; (* Audit event disable mask *)G NSA$_AUDIT_ENABLE = 77; (* Audit event enable mask *)G NSA$_ALARM_DISABLE = 78; (* Alarm event disable mask *)G NSA$_ALARM_ENABLE = 79; (* Alarm event enable mask *)G NSA$_NOP = 80; (* Nop (for static item lists) *)G NSA$_REPLY_MAILBOX = 81; (* Message acknowledge mailbox *)G NSA$_DEFAULT_USERNAME = 82; (* NETPROXY proxy default account *)G NSA$_LOCAL_USERNAME = 83; (* NETPROXY proxy local account *)M NSA$_FIELD_NAME = 84; (* Name of (NEW_DATA/ORIGINAL_DATA) field *)G NSA$_LISTENER_DEVICE = 85; (* Listener device name *)G NSA$_FIELD_TITLE_STR = 86; (* Field title string *)G NSA$_FIELD_DATA_STR = 87; (* Field data string *)G NSA$_MESSAGE_TYPE_STR = 88; (* Event message type string *)H NSA$_EVENT_TYPE = 89; (* Event message type ($AUDIT_EVENT) *)K NSA$_EVENT_SUBTYPE = 90; (* Event message subtype ($AUDIT_EVENT) *)G  NSA$_EVENT_FACILITY = 91; (* Event facility ($AUDIT_EVENT) *)T NSA$_DIRECTORY_ENTRY = 92; (* Directory entry associated with XQP operation *)G NSA$_DIRECTORY_ID = 93; (* Directory file-id *)G NSA$_CUSTOMER_1 = 94; (* obsolete codes *) NSA$_CUSTOMER_2 = 95; NSA$_CUSTOMER_3 = 96; NSA$_CUSTOMER_4 = 97; NSA$_CUSTOMER_5 = 98; NSA$_CUSTOMER_6 = 99; NSA$_CUSTOMER_7 = 100; NSA$_CUSTOMER_8 = 101;G NSA$_CSS_1 = 102;  (* obsolete codes *) NSA$_CSS_2 = 103; NSA$_CSS_3 = 104; NSA$_CSS_4 = 105; NSA$_CSS_5 = 106; NSA$_CSS_6 = 107; NSA$_CSS_7 = 108; NSA$_CSS_8 = 109;G NSA$_LP_1 = 110; (* obsolete codes *) NSA$_LP_2 = 111; NSA$_LP_3 = 112; NSA$_LP_4 = 113; NSA$_LP_5 = 114; NSA$_LP_6 = 115; NSA$_LP_7 = 116; NSA$_LP_8 = 117;G NSA$_ALARM_FAILURE = 118; (* Alarm failure mode *)G NSA$_AUDIT_FAILURE = 119;  (* Audit failure mode *)G NSA$_SEVMS_0 = 120; (* Reserved for SeVMS *)G NSA$_SEVMS_1 = 121; (* Reserved for SeVMS *)G NSA$_SEVMS_2 = 122; (* Reserved for SeVMS *)G NSA$_SEVMS_3 = 123; (* Reserved for SeVMS *)G NSA$_SEVMS_4 = 124; (* Reserved for SeVMS *)G NSA$_SEVMS_5 = 125; (* Reserved for SeVMS *)G NSA$_SEVMS_6 = 126; (* Reserved for SeVMS *)G NSA$_SEVMS_7 = 127; (* Reserved for SeVMS *)G NSA$_SEVMS_8 = 128; (* Reserved for SeVMS *)G NSA$_SEVMS_9 = 129; (* Reserved for SeVMS *)G NSA$_SEVMS_10 = 130; (* Reserved for SeVMS *)G NSA$_SEVMS_11 = 131; (* Reserved for SeVMS *)G NSA$_SEVMS_12 = 132; (* Reserved for SeVMS *)G NSA$_SEVMS_13 = 133; (* Reserved for SeVMS *)G NSA$_SEVMS_14 = 134; (* Reserved for SeVMS *)G NSA$_SEVMS_15 = 135; (* Reserved for SeVMS *)G NSA$_SEVMS_16 = 136; (* Reserved for SeVMS *)G NSA$_SEVMS_17 = 137; (* Reserved for SeVMS *)G NSA$_SEVMS_18 = 138; (* Reserved for SeVMS *)G NSA$_SNAPSHOT_TIME = 139; (* Snapshot time  *)G NSA$_TRANSPORT_NAME = 140; (* Transport name (DECwindows) *)G NSA$_DECNET_LINK_ID = 141; (* DECnet logical link ID *)G NSA$_DECNET_OBJECT_NAME = 142; (* DECnet object name *)G NSA$_DECNET_OBJECT_NUMBER = 143; (* DECnet object number *)G NSA$_REMOTE_LINK_ID = 144; (* Remote logical link ID *)G NSA$_COMMAND_LINE = 145; (* Command line *)G NSA$_ASSOCIATION_NAME = 146; (* IPC association name *)G NSA$_REM_ASSOCIATION_NAME = 147; (* IPC remote association name *)G NSA$_CONNECTION_ID = 148; (* IPC connection ID *)G NSA$_MESSAGE = 149; (* Associated message code *)G NSA$_MSGFILNAM = 150; (* Associated message file name *)G NSA$_OBJECT_POINTER = 151; (* Object container (Directory) *)G NSA$_ID_NEW_ATTRIBUTES = 152; (* Identifier new attributes *)G NSA$_SYSTIM_NEW = 153; (* New syst em time *)G NSA$_SYSTIM_OLD = 154; (* Old system time *) NSA$_PARAMS_WRITE = 155; NSA$_PARAMS_INUSE = 156;G NSA$_MATCHING_ACE = 157; (* ACE granting or denying access *)G NSA$_SNAPSHOT_SAVE_FILNAM = 158; (* Snapshot save file name *)G NSA$_MAILBOX_UNIT = 159; (* Mailbox unit number *)G NSA$_NEW_OWNER = 160; (* New process owner (UIC) *)G NSA$_NEW_PRIORITY = 161; (* New process priority *)G NSA$_OLD_PRIORITY = 162; (* Old process priority *)G NSA$_DIAG_FUNC = 163; (* Diagnostic function *)G NSA$_RESOURCE_NAME = 164; (* Lock resource name *)G NSA$_LNM_TABLE_NAME = 165; (* Logical name table name *)G NSA$_LNM_PARENT_NAME = 166; (* Parent logical name table name *)G NSA$_EFC_NAME = 167; (* Event Flag Cluster name *)G NSA$_TARGET_PROCESS_CLASS = 168; (* Target process classification *)G NSA$_TARGET_PROCESS_ID = 169; (* Target process PID *)G NSA$_TARGET_PROCESS_NAME = 170; (* Target process name *)G NSA$_TARGET_PROCESS_OWNER = 171; (* Target process owner (UIC) *)G NSA$_TARGET_USERNAME = 172; (* Target username *)G NSA$_NEW_PRIVILEGES = 173; (* New privileges *)G NSA$_OLD_PRIVILEGES = 174; (* Old privileges *)G NSA$_REMOTE_NODE_FULLNAME = 175; (* Remote node fullname *)G NSA$_UID = 176; (* UID of object *)G NSA$_UNUSED_3 = 177; (* Unused item code *)G NSA$_UNUSED_4 = 178; (* Unused item code *)G NSA$_UNUSED_5 = 179; (* Unused item code *)G NSA$_UNUSED_6 = 180; (* Unused item code *)G NSA$_UNUSED_7 = 181; (* Unused item code *)G NSA$_UNUSED_8 = 182; (* Unused item code *)G NSA$_UNUSED_9 = 183; (* Unused item code *)G NSA$_UNUSED_10 = 184; (* Unused item code *)G NSA$_PRIVS_MISSING = 185; (* Privileges missing *)G NSA$_TARGET_DEVICE_NAME = 186; (* Target device name *)G NSA$_SECTION_NAME = 187; (* Global section name *)G NSA$_ID_VALUE_ASCII = 188; (* ID value via $IDTOASC *)G NSA$_OBJECT_CLASS = 189; (* Object class name *)G NSA$_SUPPRESS = 190; (* Suppress supplied items *)G NSA$_SNAPSHOT_BOOTFILE = 191; (* Snapshot boot file name *)H NSA$_SOURCE_PROCESS_ID = 192; (* Source process ID (impersonation) *)G NSA$_REQUEST_NUMBER = 193; (* Request number *)G NSA$_ACCESS_MODE = 194; (* Access mode *)G NSA$_SYSTEM_SERVICE_NAME = 195; (* System service name  *)G NSA$_NEW_AUTH_PRIVILEGES = 196; (* New authorized privileges *)G NSA$_OLD_AUTH_PRIVILEGES = 197; (* Old authorized privileges *)G NSA$_NEW_DEF_PRIVILEGES = 198; (* New default privileges *)G NSA$_OLD_DEF_PRIVILEGES = 199; (* Old default privileges *)G NSA$_NEW_PROCESS_ID = 200; (* New process ID *)G NSA$_NEW_PROCESS_OWNER = 201; (* New process owner (UIC) *)G NSA$_NEW_PROCESS_NAME = 202; (* New process name *)G NSA$_NEW_IMAGE_NAME = 203; (* New image name *)G NSA$_NEW_USERNAME = 204; (* New username *)G NSA$_DEACCESS_KEY = 205; (* Deaccess audit key *)G NSA$_OBJECT_RIGHTS_BLOCK = 206; (* Object Rights Block *)S NSA$_OBJSRV_COMPLETE = 207; (* Object service processing completion routine *)G NSA$_TLV_ORB = 208; (* Object distribution *)G NSA$_FILE_NAME = 209;  (* File name (volume auditing) *)G NSA$_DIRECTORY_NAME = 210; (* Directory file name *)G NSA$_SEQUENCE_KEY = 211; (* Sequence key (XQP auditing) *) N(* DAS item codes. *) $CONST NSA$_PRINCIPAL_FULLNAME = 212; NSA$_TARGET_FULLNAME = 213; NSA$_SOURCE_FULLNAME = 214; NSA$_DESIRED_FULLNAME = 215; NSA$_CLAIMED_USERNAME = 216; NSA$_CLAIMED_FULLNAME = 217; NSA$_CLAIMED_NODENAME = 218; NSA$_TIME_REQ = 219; NSA$_TIME_REC = 220; NSA$_REQ_FLAGS = 221; NSA$_RET_FLAGS = 222; NSA$_LIFETIME_REQ = 223; NSA$_LIFETIME_REC = 224; NSA$_CRED_USAGE = 225; NSA$_CONTEXT_HANDLE = 226; NSA$_QOP_STATE = 227; NSA$_CONF_STATE = 228; NSA$_DELEG_CRED_HANDLE = 229; NSA$_MAJOR_STATUS = 230; NSA$_DAS_1 = 231; NSA$_DAS_2 = 232; NSA$_DAS_3 = 233; NSA$_DAS_4 = 234; NSA$_DAS_5 = 235; NSA$_DAS_6 = 236; NSA$_DAS_7 = 237; NSA$_DAS_8 = 238; NSA$_DAS_9 = 239; NSA$_DAS_10 = 240; NSA$_STATE_FILE_NAME = 241; NSA$_DIRECTORY_FULLNAME = 242;$ NSA$_FROM_DIRECTORY_FULLNAME = 243;" NSA$_TO_DIRECTORY_FULLNAME = 244; NSA$_ISSUER_FULLNAME = 245; NSA$_SUBJECT_FULLNAME = 246; NSA$_CERTIF_TYPE = 247; NSA$_CSS_SECONDARY_NAME = 248; NSA$_CSS_OBJECT_FULLNAME = 249; NSA$_CSS_REQUEST_FROM = 250; NSA$_CSS_PRIMARY_NAME = 251;! NSA$_CERTIF_SERIAL_NUMBER = 252; NSA$_WINDOW_END_TIME = 253;G NSA$_LOG_CLOSED = 254; (* log file closed  *)G NSA$_LOG_OPENED = 255; (* log file opened *)G NSA$_IDENTIFIERS_MISSING = 256; (* identifiers missing *)! NSA$_SENSITIVE_FIELD_NAME = 257; NSA$_SENSITIVE_ORIG_DATA = 258; NSA$_SENSITIVE_NEW_DATA = 259;" NSA$_SENSITIVE_FIELD_TITLE = 260;! NSA$_SENSITIVE_FIELD_DATA = 261;G NSA$_INSTALL_AUTHPRIVS = 262; (* installed image authorized privs *)G NSA$_PERSONA_FLAGS = 263; (* persona flags *)G NSA$_PERSONA_UID = 264;  (* persona UID *)G NSA$_PERSONA_MODE = 265; (* persona creation mode *)G NSA$_PERSONA_USERNAME = 266; (* persona username *)G NSA$_PERSONA_ACCOUNT = 267; (* persona account *)G NSA$_PERSONA_NOAUDIT = 268; (* persona noaudit counter *)G NSA$_PERSONA_UIC = 269; (* persona UIC *)G NSA$_PERSONA_AUTHPRIV = 270; (* persona authorized privs *)G NSA$_PERSONA_PERMPRIV = 271; (* persona permanent privs *)G NSA$_PERSONA_WORKPRIV = 272; (* persona working privs *)G NSA$_PERSONA_ENABLED = 273; (* persona rights enabled flags *)G NSA$_PERSONA_RIGHTS = 274; (* persona rights *)G NSA$_PERSONA_MINCLASS = 275; (* persona minimum classification *)G NSA$_PERSONA_MAXCLASS = 276; (* persona maximum classification *)G NSA$_PERSONA_WORKCLASS = 277; (* persona working classification *)G N SA$_PERSONA_ID = 278; (* persona Id *) NSA$_PERSONA_POSIX_UID = 279; NSA$_PERSONA_POSIX_GID = 280; NSA$_PARENT_POSIX_UID = 281; NSA$_PARENT_POSIX_GID = 282;G NSA$_MAX_ITM_CODE = 283; (* Must be last *)J NSA$_CHAIN = 65535; (* For $AUDIT_EVENT item list chaining *) NSA$_CLIENT_ACCOUNT = 2; NSA$_CLIENT_SYSTEM_ID = 8; NSA$_CLIENT_SYSTEM_NAME = 7; NSA$_CLIENT_FINAL_STATUS = 48; NSA$_CLIENT_IMAGE_NAME = 19;  NSA$_CLIENT_PARENT_ID = 35; NSA$_CLIENT_PARENT_OWNER = 37; NSA$_CLIENT_PARENT_NAME = 36; NSA$_CLIENT_PROCESS_ID = 41; NSA$_CLIENT_PROCESS_NAME = 42; NSA$_CLIENT_SUBJECT_CLASS = 46; NSA$_CLIENT_SUBJECT_OWNER = 47; NSA$_CLIENT_TERMINAL = 49; NSA$_CLIENT_TIME_STAMP = 50; NSA$_CLIENT_USERNAME = 56; TYPE NSADATA$TYPE = RECORDG NSA$W_PACKET_SIZE : $UWORD; (* Data packet size *)G NSA$W_PACKET_TYPE : $UWORD; (* Data packet type *)G  NSA$R_PACKET_DATA : $UBYTE; (* Start of packet data *)G (* Define $AUDIT_EVENT item codes. *) END; N(* Define flag masks for NSA$EVENT_AUDIT supplied parameter. *)N(* Each bit set tells NSA$EVENT_AUDIT *not* to default that *)N(* corresponding packet from the current process. *) CONST NSA$M_ACCOUNT_NAME = 1; NSA$M_SYSTEM_ID = 2; NSA$M_SYSTEM_NAME = 4; NSA$M_FINAL_STATUS = 8;  NSA$M_IMAGE_NAME = 16; NSA$M_PARENT_ID = 32; NSA$M_PARENT_OWNER = 64; NSA$M_PARENT_NAME = 128; NSA$M_PROCESS_ID = 256; NSA$M_PROCESS_NAME = 512; NSA$M_SUBJECT_CLASS = 1024; NSA$M_SUBJECT_OWNER = 2048; NSA$M_TERMINAL = 4096; NSA$M_TIME_STAMP = 8192; NSA$M_USERNAME = 16384; NSA$M_PARENT_USERNAME = 32768; NSA$M_POSIX_UID = 65536; NSA$M_POSIX_GID = 131072;! NSA$M_PARENT_POSIX_UID = 262144;! NSA$M_PARENT_POSIX_GID = 524288;  N(* Define the format of an audit s erver reply message. This defines the *)N(* format of the message written to any supplied reply mailbox. *) CONST NSA$C_REPLY_LENGTH = 4; NSA$K_REPLY_LENGTH = 4; TYPE NSAREPLY$TYPE = RECORDG NSA$L_REPLY_STATUS : UNSIGNED; (* condition status value *) END; N(* *)T(* Define the structure of a message formating table entry. These entries define *)U(* the order in which the data p ackets are displayed, and the manner in which they *)N(* are formatted. *)N(* *) LCONST NSA$C_FMTINF_NONE = 0; (* No value to format *)G NSA$C_FMTINF_LONG_VALUE = 1; (* Value is supplied as a longword *)G NSA$C_FMTINF_IDENTIFIER = 2; (* Value supplied is an identifier *)Q NSA$C_FMTINF_DATE = 3; (* Value supplied is addres s of quadword date *)V NSA$C_FMTINF_STRING = 4; (* String size (count) and address supplied to FAO *)J NSA$C_FMTINF_CLASSIFICATION = 5; (* Vector represents a classification *)G NSA$C_FMTINF_UID = 6; (* Value supplied is address of UID *)O NSA$C_FMTINF_RIGHTS = 7; (* Value supplied is address of rights info *)G NSA$C_FMTINF_SPECIAL = 8; (* Special processing required *)! NSA$M_FMTINF_CHECK_PREVIOUS = 1; NSA$M_FMTINF_NTH_NEW_LINE = 2; NSA$M_FMTINF_NOFORMAT = 4; NSA$M_FMTINF_SENSITIVE = 8; NSA$K_FMTINF_LENGTH = 28; NSA$C_FMTINF_LENGTH = 28; N(* Define the format style codes. *) QCONST NSA$C_FORMAT_STYLE_BRIEF = 1; (* Single line briefly formatted message *)G NSA$C_FORMAT_STYLE_FULL = 2; (* Fully formatted message *)G NSA$C_FORMAT_STYLE_PACKET_TYPE = 3; (* Packet type format *) N(* Define classification string format constants *) LCONST NSA$C_FMTINF_MAX_SINGLE_SEC_STR = 3895; (* Simple secrecy string *)G NSA$C_FMTINF_MAX_SINGLE_INT_STR = 1977; (* Simple integrity string *)G NSA$C_FMTINF_MAX_RANGE_SEC_STR = 7801; (* Compound secrecy string *)G NSA$C_FMTINF_MAX_RANGE_INT_STR = 3963; (* Compound integrity string *) )TYPE FMTTBL$TYPE = RECORD CASE INTEGER OFT 1: (NSA$L_FMTINF_PACKET_NAME : INTEGER; (* Address of the packet name descriptor *)q NSA$W_FMTINF_PACKET_TYPE : $UWORD; (* Define the type of packet represented by this entry (NSA$C_PKT_xxx) *)T NSA$W_FMTINF_OUTPUT_ORDER : $UWORD; (* Define the order in the output buffer *)G NSA$L_FMTINF_FAO_CTRSTR : INTEGER; (* Normal FAO control string *)e NSA$L_FMTINF_CLIENT_FAO_CTRSTR : INTEGER; (* FAO control string for client/server combination *)h NSA$L_FMTINF_NTH_FAO_CTRSTR : INTEGER; (* FAO control string for the Nth packet of the same type *)G NSA$B_FMTINF_DATA_TYPE : $UBYTE; (* Type of data to format *)+ NSA$R_FILL_26 _ : [BYTE(1)] RECORD END;G NSA$W_FMTINF_SERVER_PKT : $UWORD; (* Associated (server) packet *)G NSA$W_FMTINF_INDENT : $UWORD; (* Indent for multi-line packets *)G NSA$W_FMTINF_SPARE_1 : $UWORD; (* Unused *) );0 2: (NSA$B_FMTINF_FMT_FLAGS : [POS(168)] $UBYTE; ); 3: ();d 4: (NSA$V_FMTINF_CHECK_PREVIOUS : [POS(168)] $BOOL; (* Check adjacency with previous output item *)^ NSA$V_FMTINF_NTH_NEW_LINE : [POS(169)] $BOOL; (* Force duplicate pack ets to a new line *)O NSA$V_FMTINF_NOFORMAT : [POS(170)] $BOOL; (* Don't format the packet(s) *)[ NSA$V_FMTINF_SENSITIVE : [POS(171)] $BOOL; (* Packet contains sensitive information *) ) END; N(* *)^(* Define the structure of the format image callout block. This block is used to determine *)`(* which routines should be used to format event messages and event message data packets that *)N(* are unknown  to the base VMS operating system. *)N(* *) CONST NSA$K_IMGXFR_LENGTH = 53; NSA$C_IMGXFR_LENGTH = 53; TYPE FMTCALL$TYPE = RECORDN NSA$L_IMGXFR_FLINK : INTEGER; (* Address of next entry (must be first) *)S NSA$L_IMGXFR_BLINK : INTEGER; (* Address of previous entry (must be secomd) *)G NSA$W_IMGXFR_SIZE : $UWORD; (* Size of entry block *)G NSA$W_IMGXFR_FACILITY : $UWORD; (* Facility code for image *)N NSA$L_IMGXFR_BASE_ORDER_OFFSET : UNSIGNED; (* Base output order offset *)P (* Start of sharable image routine addresses *)K NSA$A_IMGXFR_MESSAGE_INFO : $DEFPTR; (* Message information routine *)L NSA$A_IMGXFR_VALIDATE_PACKET : $DEFPTR; (* Packet validation routine *)R NSA$A_IMGXFR_DISPLAY_INFO : $DEFPTR; (* Packet display information routine *)K NSA$A_IMGXFR_LINE_BREAK : $DEFPTR; (* Line break processing routine *)S NSA$A_IMGXFR_FORMAT_SPECIAL : $DEFPTR; (* Special packet formatting routine *)O NSA$A_IMGXFR_FORMAT_INFO : $DEFPTR; (* Normal packet formatting routine *)G NSA$A_IMGXFR_FORMAT_BRIEF : $DEFPTR; (* Brief format routine *)P NSA$A_IMGXFR_FORMAT_PACKET_TYPE : $DEFPTR; (* Packet type format routine *)X NSA$A_IMGXFR_FORMAT_EVENT_TYPE : $DEFPTR; (* Message type/subtype format routine *)N (* End of sharable image routine addresses *)N NSA$T_IMGXFR_IMAGE_NAME : ARRAY [1..1] OF CHAR; (* Start of image name *) END; Q(* The following structure defines the common argument block passed to all the *)N(* various formatting routines (which actually format information). *) !CONST NSA$M_FMTARG_SENSITIVE = 1; NSA$M_FMTARG_DISPLAY_TITLE = 2;! NSA$M_FMTARG_CHECK_PREVIOUS = 1; NSA$M_FMTARG_NTH_NEW_LINE = 2; NSA$M_FMTARG_NOFORMAT = 4; NSA$K_FMTARG_LENGTH = 36; NSA$C_FMTARG_LENGTH = 36; )TYPE FMTARG$TYPE = RECORD CASE INTEGER OF+ 1: (NSA$R_FILL_29_ : [BYTE(8)] RECORD END;Q NSA$W_FMTARG_BUFFER_OFFSET : $UWORD; (* Current position in output buffer *)P NSA$W_FMTARG_BOL_OFFSET : $UWORD; (* Offset to beginning of current line *)+ NSA$R_FILL_31_ : [BYTE(8)] RECORD END;G NSA$W_FMTARG_LINE_WIDTH : $UWORD; (* Output display width *)O NSA$W_FMTARG_LINE_INDENT : $UWORD; (* Positions to indent (when needed) *)N NSA$A_FMTARG_OUTPUT_ROUTINE : INTEGER; (* Add ress of an output routine *)+ NSA$R_FILL_33_ : [BYTE(4)] RECORD END;G NSA$L_FMTARG_USER_CONTEXT : UNSIGNED; (* User context cell *) );* 2: (NSA$Q_FMTARG_BUFFER : [POS(0)] $QUAD;/ NSA$Q_FMTARG_TERMINATOR : [POS(96)] $QUAD;. NSA$L_FMTARG_FLAGS : [POS(224)] UNSIGNED; ); 3: ();I 4: (NSA$W_FMTARG_BUFFER_SIZE : [POS(0)] $UWORD; (* Output buffer size *)Q NSA$A_FMTARG_BUFFER_POINTER : [POS(32)] INTEGER; (* Output buffer address *)M NSA$W_FMTARG_TERM_S IZE : [POS(96)] $UWORD; (* Size of line terminator *)R NSA$A_FMTARG_TERM_TEXT : [POS(128)] INTEGER; (* Address of terminator text *) );0 5: (NSA$W_FMTARG_FLAGS_LOW : [POS(224)] $UWORD;1 NSA$W_FMTARG_FLAGS_HIGH : [POS(240)] $UWORD; ); 6: ();[ 7: (NSA$V_FMTARG_SENSITIVE : [POS(224)] $BOOL; (* Packet contains sensitive information *)G NSA$V_FMTARG_DISPLAY_TITLE : [POS(225)] $BOOL; (* Display title *)d NSA$V_FMTARG_CHECK_PREVIOUS : [POS(240)] $BOOL; (* Check adja cency with previous output item *)^ NSA$V_FMTARG_NTH_NEW_LINE : [POS(241)] $BOOL; (* Force duplicate packets to a new line *)O NSA$V_FMTARG_NOFORMAT : [POS(242)] $BOOL; (* Don't format the packet(s) *) ) END; T(* The following structure defines the transfer vector area for the format image. *) LCONST NSA$C_IMGXFR_MESSAGE_INFO = 0; (* Message information routine *)G NSA$C_IMGXFR_VALIDATE_PACKET = 1; (* Packet validation routine *)I NSA$C_IMGXFR_DISPLAY_INFO = 2 ; (* Packet display information routine *)G NSA$C_IMGXFR_LINE_BREAK = 3; (* Line break processing routine *)I NSA$C_IMGXFR_FORMAT_SPECIAL = 4; (* Special packet formatting routine *)G NSA$C_IMGXFR_FORMAT_INFO = 5; (* Normal packet formatting routine *)G NSA$C_IMGXFR_FORMAT_BRIEF = 6; (* Brief format routine *)G NSA$C_IMGXFR_FORMAT_PACKET_TYPE = 7; (* Packet type format routine *)N NSA$C_IMGXFR_FORMAT_EVENT_TYPE = 8; (* Message type/subtype format routine *) TYPE FMTXFER$TYPE = RECORDJ NSA$R_IMGXFR_MESSAGE_INFO : $UQUAD; (* Message information routine *)K NSA$R_IMGXFR_VALIDATE_PACKET : $UQUAD; (* Packet validation routine *)Q NSA$R_IMGXFR_DISPLAY_INFO : $UQUAD; (* Packet display information routine *)J NSA$R_IMGXFR_LINE_BREAK : $UQUAD; (* Line break processing routine *)R NSA$R_IMGXFR_FORMAT_SPECIAL : $UQUAD; (* Special packet formatting routine *)N NSA$R_IMGXFR_FORMAT_INFO : $UQUAD; (* Normal packet formatting routine *)G  NSA$R_IMGXFR_FORMAT_BRIEF : $UQUAD; (* Brief format routine *)O NSA$R_IMGXFR_FORMAT_PACKET_TYPE : $UQUAD; (* Packet type format routine *)W NSA$R_IMGXFR_FORMAT_EVENT_TYPE : $UQUAD; (* Message type/subtype format routine *)u (* The following list of constants is used to index into the transfer vector area *){ (* defined above. The structure definition and constant list must parallel each other. *) END; N(*  *)N(* Define block to hold access bitname information for a particular object *)N(* *) LCONST NSA$K_ACCNAM_LENGTH = 139; (* Length of block *) NSA$C_ACCNAM_LENGTH = 139; TYPE FMTACCNAM$TYPE = RECORDN NSA$L_ACCNAM_FLINK : INTEGER; (* Address of next entry (must be first) *)S NSA$L_ACCNAM_BLINK : INTEGER; (* Address of previous entry (must be secomd) *)G NSA$W_ACCNAM_SIZE : $UWORD; (* Size of entry block *)` NSA$L_ACCNAM_CODES : ARRAY [1..32] OF INTEGER; (* 32 pointers to access name descriptors *)P NSA$T_ACCNAM_OBJECT_TYPE : ARRAY [1..1] OF CHAR; (* Start of object name *) END; N(* *)Z(* Define the format of the message information block. This block defines some general *)N(* characteristics of messag !es for a particular facility. *)N(* *) CONST NSA$K_MSGINF_LENGTH = 8; NSA$C_MSGINF_LENGTH = 8; TYPE MSGINFO$TYPE = RECORDP NSA$L_MSGINF_MAX_ORDER_OFFSET : UNSIGNED; (* Maximum (output) line index *)P NSA$A_MSGINF_BRIEF_TITLE : INTEGER; (* Address of brief format titleline *) END; N(* *)W(* Define the structur "e of a formatting table subtype entry. This entry consists of *)N(* a description of the subtype as well as the name of the subtype. *)N(* *) CONST NSA$K_SUBTBL_LENGTH = 8; NSA$C_SUBTBL_LENGTH = 8; ,TYPE SUBFMTTBL$TYPE = RECORD CASE INTEGER OF3 1: (NSA$R_SUBTBL_OVERLAY_3 : [BYTE(4)] RECORD END;H NSA$L_SUBTBL_MNEMONIC : UNSIGNED; (* Mnemonic name for the entry *) );Y 2: (NSA$L_SUBTBL_DESCRIPT#ION : [POS(0)] INTEGER; (* Address of the description string *) );Y 3: (NSA$L_SUBTBL_TABLE_SIZE : [POS(0)] UNSIGNED; (* Number of entries in the subtable *) ) END; N(* Define obsolete message types and subtypes here. *) CONST NSA$C_MSG_NETUAF = 9; NSA$C_MSG_PRIV_AUDIT = 16; NSA$C_PRIV_AUDIT = 1; NSA$C_JOBCTL_QUEUE_ACCESS = 3; NSA$C_NETUAF_ADD = 1; NSA$C_NETUAF_DELETE = 2; NSA$C_NETUAF_MODIFY = 3; NSA$C_NETUAF_NCP = 4; NSA$C_NETUA$F_MAX_CODE = 8; N(* Define obsolete packet types and item code equivalents here. *) CONST NSA$C_PKT_OBJECT_ID = 26; NSA$_OBJECT_ID = 26; N(* Define packet pseudonyms here. *) CONST NSA$C_PKT_PRIV_MASK = 22; NSA$_PRIV_MASK = 22; NSA$C_PKT_PRIVILEGES = 22; NSA$_PRIVILEGES = 22;! NSA$C_PKT_SNAPSHOT_FILNAM = 158; NSA$_SNAPSHOT_FILNAM = 158; NSA$C_PKT_PERFORMANCE_NOP = 80; NSA$_PERFORMANCE_NOP = 80; NSA$C_PKT_S %UPPLIED_FLAGS = 190; NSA$_SUPPLIED_FLAGS = 190; (*** MODULE $NSARECDEF ***) N(*+ *)N(* Security Auditing record definitions *)N(*- *) LCONST NSA$C_REC_MAXLENGTH = 1024; (* Maximum record size *)G NSA$K_REC_MAXLENGTH = 1024; (* Maximum record size *)G NSA$S_REC_MAXLENGTH & = 1024; (* Maximum record size *) N(*+ *)N(* Audit record type definitions *)N(*- *) LCONST NSA$K_RECTYP_FIL = 1; (* File access *)G NSA$K_RECTYP_SYSUAF = 2; (* System UAF *)G NSA$K_RECTYP_NETUAF = 3; (* Network UAF ' *)G NSA$K_RECTYP_LOGB = 4; (* Login breakin detection *)G NSA$K_RECTYP_LOGI = 5; (* Successful login *)G NSA$K_RECTYP_LOGF = 6; (* Login failure *)G NSA$K_RECTYP_LOGO = 7; (* Logout *)G NSA$K_RECTYP_VOL = 8; (* Volume operations *)G NSA$K_RECTYP_GBL = 9; (* Global section access *)G NSA$K_RECTYP_INSTAL = 10; (* INST (ALL operations *)G NSA$K_RECTYP_RIGHTS = 11; (* Rights database operations *)G NSA$K_RECTYP_AUDIT = 12; (* SET AUDIT operations *) NSA$K_RECTYPNUM = 12; N(*+ *)N(* Audit record subtype and ID definitions *)N(*- *)N(* File access ) *) LCONST NSA$K_RECTYP_FIL_SUCC = 1; (* Successful file access *)G NSA$K_RECTYP_FIL_FAIL = 2; (* File access failure *) NSA$K_RECTYPNUM_FIL = 2; NSA$K_RECID_FIL_SUCC = 65537; NSA$K_RECID_FIL_FAIL = 131073; N(* Global section access *) LCONST NSA$K_RECTYP_GBL_SUCC = 1; (* Successful Global section access *)G NSA$K_RECTYP_GBL_FAIL = 2; (* Global section access failure * *) NSA$K_RECTYPNUM_GBL = 2; NSA$K_RECID_GBL_SUCC = 65545; NSA$K_RECID_GBL_FAIL = 131081; N(* System UAF *) LCONST NSA$K_RECTYP_SYSUAF_ADD = 1; (* System UAF record addition *)G NSA$K_RECTYP_SYSUAF_DEL = 2; (* System UAF record deletion *)G NSA$K_RECTYP_SYSUAF_MOD = 3; (* System UAF record modification *)G NSA$K_RECTYP_SYSUAF_COP = 4; (* System UAF record copied *)G NSA$K_RECTYP_SY +SUAF_REN = 5; (* System UAF record renamed *) NSA$K_RECTYPNUM_SYSUAF = 5; NSA$K_RECID_SYSUAF_ADD = 65538;! NSA$K_RECID_SYSUAF_DEL = 131074;! NSA$K_RECID_SYSUAF_MOD = 196610;! NSA$K_RECID_SYSUAF_COP = 262146;! NSA$K_RECID_SYSUAF_REN = 327682; N(* Network UAF *) LCONST NSA$K_RECTYP_NETUAF_ADD = 1; (* Network UAF record addition *)G NSA$K_RECTYP_NETUAF_DEL = 2; (* Network UAF record deletion *)G , NSA$K_RECTYP_NETUAF_MOD = 3; (* Network UAF record modification *) NSA$K_RECTYPNUM_NETUAF = 3; NSA$K_RECID_NETUAF_ADD = 65539;! NSA$K_RECID_NETUAF_DEL = 131075;! NSA$K_RECID_NETUAF_MOD = 196611; N(* Login breakin detection *) PCONST NSA$K_RECTYP_LOGB_DIA = 1; (* Dialup interactive breakin detection *)J NSA$K_RECTYP_LOGB_LOC = 2; (* Local interactive breakin detection *)K NSA$K_RECTYP_LOGB_REM = 3; (* Remote interac -tive breakin detection *)G NSA$K_RECTYP_LOGB_NET = 4; (* Network breakin detection *)I NSA$K_RECTYP_LOGB_DET = 5; (* Detached process breakin detection *) NSA$K_RECTYPNUM_LOGB = 5; NSA$K_RECID_LOGB_DIA = 65540; NSA$K_RECID_LOGB_LOC = 131076; NSA$K_RECID_LOGB_REM = 196612; NSA$K_RECID_LOGB_NET = 262148; NSA$K_RECID_LOGB_DET = 327684; N(* Successful login *) LCONST NSA$K_RECTYP_LOGI_BAT = 1; (* Bat .ch process login *)G NSA$K_RECTYP_LOGI_DIA = 2; (* Dialup interactive login *)G NSA$K_RECTYP_LOGI_LOC = 3; (* Local interactive login *)G NSA$K_RECTYP_LOGI_REM = 4; (* Remote interactive login *)G NSA$K_RECTYP_LOGI_NET = 5; (* Network login *)G NSA$K_RECTYP_LOGI_SUB = 6; (* Subprocess login *)G NSA$K_RECTYP_LOGI_DET = 7; (* Detached process login *) NSA$K_RECTYPNUM_LOGI = 7; / NSA$K_RECID_LOGI_BAT = 65541; NSA$K_RECID_LOGI_DIA = 131077; NSA$K_RECID_LOGI_LOC = 196613; NSA$K_RECID_LOGI_REM = 262149; NSA$K_RECID_LOGI_NET = 327685; NSA$K_RECID_LOGI_SUB = 393221; NSA$K_RECID_LOGI_DET = 458757; N(* Login failure *) LCONST NSA$K_RECTYP_LOGF_BAT = 1; (* Batch process login failure *)G NSA$K_RECTYP_LOGF_DIA = 2; (* Dialup interactive login failure *)G NSA$K_RECTYP_LOGF_LOC = 3; 0 (* Local interactive login failure *)G NSA$K_RECTYP_LOGF_REM = 4; (* Remote interactive login failure *)G NSA$K_RECTYP_LOGF_NET = 5; (* Network login failure *)G NSA$K_RECTYP_LOGF_SUB = 6; (* Subprocess login failure *)G NSA$K_RECTYP_LOGF_DET = 7; (* Detached process login failure *) NSA$K_RECTYPNUM_LOGF = 7; NSA$K_RECID_LOGF_BAT = 65542; NSA$K_RECID_LOGF_DIA = 131078; NSA$K_RECID_LOGF_LOC = 196614; NSA$K_RECID_LOGF_REM = 262150; NSA 1$K_RECID_LOGF_NET = 327686; NSA$K_RECID_LOGF_SUB = 393222; NSA$K_RECID_LOGF_DET = 458758; N(* Logout *) LCONST NSA$K_RECTYP_LOGO_BAT = 1; (* Batch process logout *)G NSA$K_RECTYP_LOGO_DIA = 2; (* Dialup interactive logout *)G NSA$K_RECTYP_LOGO_LOC = 3; (* Local interactive logout *)G NSA$K_RECTYP_LOGO_REM = 4; (* Remote interactive logout *)G NSA$K_RECTYP_LOGO_N 2ET = 5; (* Network logout *)G NSA$K_RECTYP_LOGO_SUB = 6; (* Subprocess logout *)G NSA$K_RECTYP_LOGO_DET = 7; (* Detached process logout *) NSA$K_RECTYPNUM_LOGO = 7; NSA$K_RECID_LOGO_BAT = 65543; NSA$K_RECID_LOGO_DIA = 131079; NSA$K_RECID_LOGO_LOC = 196615; NSA$K_RECID_LOGO_REM = 262151; NSA$K_RECID_LOGO_NET = 327687; NSA$K_RECID_LOGO_SUB = 393223; NSA$K_RECID_LOGO_DET = 458759; N(* Volume operations 3 *) LCONST NSA$K_RECTYP_VOL_MOU = 1; (* Volume mounts *)G NSA$K_RECTYP_VOL_DMOU = 2; (* Volume dismounts *) NSA$K_RECTYPNUM_VOL = 2; NSA$K_RECID_VOL_MOU = 65544; NSA$K_RECID_VOL_DMOU = 131080; N(* INSTALL operations *) LCONST NSA$K_RECTYP_INSTAL_ADD = 1; (* Add known file *)G NSA$K_RECTYP_INSTAL_REM = 2; (* Remove kno 4wn file *) NSA$K_RECTYPNUM_INSTAL = 2; N(* Rights database operations *) LCONST NSA$K_RECTYP_RIGHTS_CRE = 1; (* Create rights database *)G NSA$K_RECTYP_RIGHTS_ADD = 2; (* Add identifier *)G NSA$K_RECTYP_RIGHTS_REM = 3; (* Remove identifier *)G NSA$K_RECTYP_RIGHTS_MOD_ID = 4; (* Modify identifier *)G NSA$K_RECTYP_RIGHTS_MOD_HO = 5; (* Modify identifier holder 5 *)G NSA$K_RECTYP_RIGHTS_GRANT = 6; (* Grant identifier *)G NSA$K_RECTYP_RIGHTS_REVOK = 7; (* Revoke identifier *) NSA$K_RECTYPNUM_RIGHTS = 7; N(* SET AUDIT operations *) LCONST NSA$K_RECTYP_AUDIT_ENA_AL = 1; (* Enable alarm *)G NSA$K_RECTYP_AUDIT_DIS_AL = 2; (* Disable alarm *)G NSA$K_RECTYP_AUDIT_ENA_JL = 3; (* Enable journal *)G 6 NSA$K_RECTYP_AUDIT_DIS_JL = 4; (* Disable journal *) NSA$K_RECTYPNUM_AUDIT = 4; N(*+ *)N(* SYSUAFF stuff *)N(*- *) /TYPE sysuaff_bits$TYPE = RECORD CASE INTEGER OF+ 1: (nsa$r_fill_41_ : [BYTE(8)] RECORD END; );G 2: (nsa$q_sysuaff : [POS(0)] $UQUAD; (* SYSUAFF 7 flags: *) ); 3: ();G 4: (nsa$v_access : [POS(0)] $BOOL; (* ACCESS modified *)G nsa$v_account : [POS(1)] $BOOL; (* ACCOUNT modified *)G nsa$v_astlm : [POS(2)] $BOOL; (* ASTLM modified *)G nsa$v_batch : [POS(3)] $BOOL; (* BATCH modified *)G nsa$v_biolm : [POS(4)] $BOOL; (* BIOLM modified *)G nsa$v_bytlm : [POS(5)] $BOOL; (* BYTLM modified *)G nsa$v_cli :8 [POS(6)] $BOOL; (* CLI modified *)G nsa$v_clitables : [POS(7)] $BOOL; (* CLITABLES modified *)G nsa$v_cputime : [POS(8)] $BOOL; (* CPUTIME modified *)H nsa$v_defprivileges : [POS(9)] $BOOL; (* DEFPRIVILEGES modified *)G nsa$v_device : [POS(10)] $BOOL; (* DEVICE modified *)G nsa$v_dialup : [POS(11)] $BOOL; (* DIALUP modified *)G nsa$v_diolm : [POS(12)] $BOOL; (* DIOLM modified *)G 9 nsa$v_directory : [POS(13)] $BOOL; (* DIRECTORY modified *)G nsa$v_enqlm : [POS(14)] $BOOL; (* ENQLM modified *)G nsa$v_expiration : [POS(15)] $BOOL; (* EXPIRATION modified *)G nsa$v_fillm : [POS(16)] $BOOL; (* FILLM modified *)G nsa$v_flags : [POS(17)] $BOOL; (* FLAGS modified *)G nsa$v_interactive : [POS(18)] $BOOL; (* INTERACTIVE modified *)G nsa$v_jtquota : [POS(19)] $BOOL; (* JTQUOTA modified : *)G nsa$v_lgicmd : [POS(20)] $BOOL; (* LGICMD modified *)G nsa$v_local : [POS(21)] $BOOL; (* LOCAL modified *)G nsa$v_maxdetach : [POS(22)] $BOOL; (* MAXDETACH modified *)G nsa$v_maxjobs : [POS(23)] $BOOL; (* MAXJOBS modified *)G nsa$v_maxacctjobs : [POS(24)] $BOOL; (* MAXACCTJOBS modified *)G nsa$v_network : [POS(25)] $BOOL; (* NETWORK modified *)G nsa$v_owner : [POS(26)] $BOOL; (* OWNER modified; *)G nsa$v_password : [POS(27)] $BOOL; (* PASSWORD modified *)G nsa$v_pbytlm : [POS(28)] $BOOL; (* PBYTLM modified *)G nsa$v_pflags : [POS(29)] $BOOL; (* PFLAGS modified *)G nsa$v_p_restrict : [POS(30)] $BOOL; (* P_RESTRICT modified *)G nsa$v_pgflquota : [POS(31)] $BOOL; (* PGFLQUOTA modified *)G nsa$v_prclm : [POS(32)] $BOOL; (* PRCLM modified *)G nsa$v_primedays : [POS(33)] $BOOL; (*< PRIMEDAYS modified *)G nsa$v_priority : [POS(34)] $BOOL; (* PRIORITY modified *)G nsa$v_privileges : [POS(35)] $BOOL; (* PRIVILEGES modified *)G nsa$v_pwdlifetime : [POS(36)] $BOOL; (* PWDLIFETIME modified *)G nsa$v_pwdminimum : [POS(37)] $BOOL; (* PWDMINIMUM modified *)G nsa$v_quepriority : [POS(38)] $BOOL; (* QUEPRIORITY modified *)G nsa$v_remote : [POS(39)] $BOOL; (* REMOTE modified *)G nsa$v_sflags : [POS(40)] =$BOOL; (* SFLAGS modified *)G nsa$v_s_restrict : [POS(41)] $BOOL; (* S_RESTRICT modified *)G nsa$v_shrfillm : [POS(42)] $BOOL; (* SHRFILLM modified *)G nsa$v_tqelm : [POS(43)] $BOOL; (* TQELM modified *)G nsa$v_uic : [POS(44)] $BOOL; (* UIC modified *)G nsa$v_wsdefault : [POS(45)] $BOOL; (* WSDEFAULT modified *)G nsa$v_wsextent : [POS(46)] $BOOL; (* WSEXTENT modified *)G nsa$v_wsquota> : [POS(47)] $BOOL; (* WSQUOTA modified *) ) END; N(*+ *)N(* Record header offset definitions *)N(*- *) !CONST NSA$M_REC_FLAGS_PKTCON = 1; NSA$C_RECHDR_LENGTH = 76; NSA$K_RECHDR_LENGTH = 76; ,TYPE NSARECHDR$TYPE = RECORD CASE INTEGER OF1 1: (NSA$R_REC_ID_OVERLAY : [BYTE(4)] RECORD ? END;G NSA$B_REC_SEQNUM : $UBYTE; (* This records sequence number *)G NSA$B_REC_SEQLAST : $UBYTE; (* Last records sequence number *)4 NSA$R_REC_FLAGS_OVERLAY : [BYTE(1)] RECORD END;G NSA$B_REC_PKTNUM : $UBYTE; (* Number of data packets in record *)G NSA$W_REC_PKTOFF : $UWORD; (* Offset to first packet *)G NSA$W_REC_PKTHDRSIZ : $UWORD; (* Data packet header size *)G NSA$L_REC_EPID : UNSIGNED; (* Extended PID *)G@ NSA$Q_REC_TIME : $UQUAD; (* Event time (EXE$GQ_SYSTIME) *)N NSA$T_REC_CLUSNAM : PACKED ARRAY [1..16] OF CHAR; (* Cluster node name *)I NSA$T_REC_PROCNAM : PACKED ARRAY [1..16] OF CHAR; (* Process name *)G NSA$T_REC_USERNAM : PACKED ARRAY [1..12] OF CHAR; (* username *)H NSA$T_REC_ACCTNAM : PACKED ARRAY [1..8] OF CHAR; (* Account name *) );K 2: (NSA$L_REC_ID : [POS(0)] UNSIGNED; (* Record identification longword *)G NSA$B_REC_FLAGS : [POS(48)] $UBYTE; A (* Record flags byte *) ); 3: ();G 4: (NSA$W_REC_TYPE : [POS(0)] $UWORD; (* Record type *)G NSA$W_REC_SUBTYPE : [POS(16)] $UWORD; (* Record subtype *)M NSA$V_REC_FLAGS_PKTCON : [POS(48)] $BOOL; (* Last packet in record is *)G (* continued in next record *) ) END; N(*+ *)N(* Data packet type definitions B *)N(*- *) LCONST NSA$K_PKTTYP_IMGNAM = 1; (* Image name packet *)G NSA$K_PKTTYP_FACMOD = 2; (* File access mode *)G NSA$K_PKTTYP_PRIVUSED = 3; (* Privilege used to access file *)G NSA$K_PKTTYP_FILNAM = 4; (* File name *)G NSA$K_PKTTYP_DEVNAM = 5; (* Device name *)G NSA$K_PKTTYP_LOGNCAM = 6; (* Logical name *)G NSA$K_PKTTYP_VOLNAM = 7; (* Volume name *)G NSA$K_PKTTYP_VOLSNAM = 8; (* Volume set name *)G NSA$K_PKTTYP_NODENAM = 9; (* Node name *)G NSA$K_PKTTYP_USERNAM = 10; (* User name *)G NSA$K_PKTTYP_PASSWORD = 11; (* Password *)G NSA$K_PKTTYP_UIC = 12; (* User identification code *)G NSA$KD_PKTTYP_VOLPRO = 13; (* Volume protection *)G NSA$K_PKTTYP_MOUFLG = 14; (* Mount flags *)G NSA$K_PKTTYP_DMOUFLG = 15; (* Dismount flags *)G NSA$K_PKTTYP_NODEID = 16; (* Node ID *)G NSA$K_PKTTYP_EPID = 17; (* Extended PID *)G NSA$K_PKTTYP_SYSUAFF = 18; (* System UAF record fields *)G NSA$K_PKTTYP_STATUS = 19; (* Status longword E *)G NSA$K_PKTTYP_SECNAM = 20; (* Global section name *)G NSA$K_PKTTYP_PRIVS = 21; (* Full privilege mask *)G NSA$K_PKTTYP_INSFLG = 22; (* Install flags *)G NSA$K_PKTTYP_IDNAME = 23; (* Identifier name *)G NSA$K_PKTTYP_IDVAL = 24; (* Identifier value *)G NSA$K_PKTTYP_IDATTR = 25; (* Identifier attributes *)G NSA$K_PKTTYP_HOLDER = 26; (* Identifier holder F *)G NSA$K_PKTTYP_AUDIT = 27; (* Audit item *)G NSA$K_PKTTYP_DEFUSERNAM = 28; (* Default proxy name *)G NSA$K_PKTTYP_OLDUSERNAM = 29; (* Old proxy name *)G NSA$K_PKTTYP_OLDDEFUNAM = 30; (* Old default local proxy name *)G NSA$K_PKTTYP_OLDNODENAM = 31; (* Old remote node name *) NSA$K_PKTTYPNUM = 31; N(*+ *)N(* Data paGcket offset definitions *)N(*- *) CONST NSA$C_PKTHDR_LENGTH = 4; NSA$K_PKTHDR_LENGTH = 4; NSA$M_PKT_INS_OPEN = 2; NSA$M_PKT_INS_HDR = 4; NSA$M_PKT_INS_SHARE = 8; NSA$M_PKT_INS_EXEC = 16; NSA$M_PKT_INS_WRITE = 32; NSA$M_PKT_INS_PRIV = 64; NSA$M_PKT_INS_PROT = 128; NSA$M_PKT_INS_NOPRG = 256; NSA$M_PKT_INS_ACC = 512; NSA$M_PKT_INS_RESIDENT = 1024; STYPE H NSAPKT$TYPE = RECORD (* WARNING: aggregate has origin of -4 *) CASE INTEGER OFG 1: (NSA$W_PKT_TYPE : $UWORD; (* Packet data type *)G NSA$W_PKT_SIZE : $UWORD; (* Packet size *)" NSA$T_PKT_DATA : RECORD END ;5 NSA$R_PKT_DATA_OVERLAY : [BYTE(444)] RECORD END; );Q 2: (NSA$T_PKT_IMGNAM : [POS(32)] PACKED ARRAY [1..444] OF CHAR; (* Image name *) );G 3: (NSA$L_PKT_FACMOD : [POS(32)] UNSIGNED; (* File access mode *) ) I;Q 4: (NSA$L_PKT_PRIVUSED : [POS(32)] UNSIGNED; (* Privilege used to access file *) );P 5: (NSA$T_PKT_FILNAM : [POS(32)] PACKED ARRAY [1..444] OF CHAR; (* File name *) );a 6: (NSA$T_PKT_DEVNAM : [POS(32)] PACKED ARRAY [1..64] OF CHAR; (* Device and access port name *) );S 7: (NSA$T_PKT_LOGNAM : [POS(32)] PACKED ARRAY [1..255] OF CHAR; (* Logical name *) );Q 8: (NSA$T_PKT_VOLNAM : [POS(32)] PACKED ARRAY [1..12] OF CHAR; (* Volume name *) );V 9: (NSA$T_PKT_V JOLSNAM : [POS(32)] PACKED ARRAY [1..12] OF CHAR; (* Volume set name *) );P 10: (NSA$T_PKT_NODENAM : [POS(32)] PACKED ARRAY [1..6] OF CHAR; (* Node name *) );Q 11: (NSA$T_PKT_USERNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* User name *) );Q 12: (NSA$T_PKT_PASSWORD : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Password *) );G 13: (NSA$L_PKT_UIC : [POS(32)] UNSIGNED; (* Volume UIC *) );G 14: (NSA$W_PKT_VOLPRO : [POS(32)] $UWORD; (* Volume protect Kion *) );G 15: (NSA$L_PKT_MOUFLG : [POS(32)] UNSIGNED; (* Mount flags *) );G 16: (NSA$W_PKT_DMOUFLG : [POS(32)] $UWORD; (* Dismount flags *) );G 17: (NSA$Q_PKT_NODEID : [POS(32)] $UQUAD; (* Node ID *) );G 18: (NSA$L_PKT_EPID : [POS(32)] UNSIGNED; (* Extended PID *) );J 19: (NSA$Q_PKT_SYSUAFF : [POS(32)] $UQUAD; (* System UAF record fields *) );G 20: (NSA$L_PKT_STATUS : [POS(32)] UNSIGNED; (* Status longw Lord *) );Z 21: (NSA$T_PKT_SECNAM : [POS(32)] PACKED ARRAY [1..54] OF CHAR; (* Global section name *) );G 22: (NSA$Q_PKT_PRIVS : [POS(32)] $UQUAD; (* Full privilege mask *) ); 23: ();G 24: (NSA$L_PKT_INSFLG : [POS(32)] UNSIGNED; (* Install flags *) ); 25: ();G 26: (NSA$V_PKT_INS_OPEN : [POS(33)] $BOOL; (* /OPEN *)G NSA$V_PKT_INS_HDR : [POS(34)] $BOOL; (* /HEADER_RESIDENT *)G NSA$V_PKT_INS_SHARE : [POS(35)] $BOOL; M(* /SHARE *)G NSA$V_PKT_INS_EXEC : [POS(36)] $BOOL; (* /EXECUTE *)G NSA$V_PKT_INS_WRITE : [POS(37)] $BOOL; (* /WRITE *)G NSA$V_PKT_INS_PRIV : [POS(38)] $BOOL; (* /PRIVILEGE *)G NSA$V_PKT_INS_PROT : [POS(39)] $BOOL; (* /PROTECTED *)G NSA$V_PKT_INS_NOPRG : [POS(40)] $BOOL; (* /NOPURGE *)G NSA$V_PKT_INS_ACC : [POS(41)] $BOOL; (* /ACCOUNTING *)G NSA$V_PKT_INS_RESIDENT : [P NOS(42)] $BOOL; (* /RESIDENT *) );V 27: (NSA$T_PKT_IDNAME : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Identifier name *) );G 28: (NSA$L_PKT_IDVAL : [POS(32)] UNSIGNED; (* Identifier value *) );H 29: (NSA$L_PKT_IDATTR : [POS(32)] UNSIGNED; (* Identifier attributes *) );G 30: (NSA$Q_PKT_HOLDER : [POS(32)] $UQUAD; (* Identifier holder *) );J 31: (NSA$R_PKT_AUDIT : [POS(32)] RECORD END ; (* Audit item (not used) *) );] 32: (NSA$T_PKT_DE OFUSERNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Default proxy name *) );Y 33: (NSA$T_PKT_OLDUSERNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Old proxy name *) );g 34: (NSA$T_PKT_OLDDEFUNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Old default local proxy name *) );^ 35: (NSA$T_PKT_OLDNODENAM : [POS(32)] PACKED ARRAY [1..6] OF CHAR; (* Old remote node name *) ) END; (*** MODULE $OPRDEF ***) N(*+ P *)N(* OPERATOR COMMUNICATIONS MESSAGE TYPES AND VALUES These are now obsolete. *)N(*- *)N(* OPERATOR MESSAGE TYPES *) LCONST OPR$_TERMENABL = 1; (* ENABLE TERMINAL *)G OPR$_LOGINIT = 2; (* INITIALIZE THE LOG *)G OPR$_OPRQST = 3; (* OPERATOR REQUEST *)G OPR$_OPREQPLY = 4; (* OPERATOR REPLY *) OPR$M_CENTRAL = 1; OPR$M_PRINTER = 2; OPR$M_TAPES = 4; OPR$M_DISKS = 8; OPR$M_DEVICES = 16; OPR$M_USER1 = 131040; OPR$M_USER2 = 131072; OPR$M_USER3 = 262144; OPR$M_USER4 = 524288; OPR$M_USER5 = 1048576; OPR$M_USER6 = 2097152; OPR$M_USER7 = 4194304; OPR$M_USER8 = 8388608; OPR$M_USER9 = 16777216; OPR$M_USER10 = 33554432; OPR$M_USER11 = 67108864; OPR$M_USER12 = 134217728; KTYPE OPR$TYPE = RECORDR CASE INTEGER OF (* Obsolete. *)G 1: (OPR$R_OPRDEF_BITS : [BYTE(4)] RECORD END; (* Obsolete. *) );G 2: (OPR$V_CENTRAL : [POS(0)] $BOOL; (* Obsolete. *)G OPR$V_PRINTER : [POS(1)] $BOOL; (* Obsolete. *)G OPR$V_TAPES : [POS(2)] $BOOL; (* Obsolete. *)G OPR$V_DISKS : [POS(3)] $BOOL; (* Obsolete. *)G OPR$V_DEVICES : [POS(4)] $BOOL; (* Obsolete. *S)G OPR$V_USER1 : [POS(5)] $BIT12; (* Obsolete. *)G OPR$V_USER2 : [POS(17)] $BOOL; (* Obsolete. *)G OPR$V_USER3 : [POS(18)] $BOOL; (* Obsolete. *)G OPR$V_USER4 : [POS(19)] $BOOL; (* Obsolete. *)G OPR$V_USER5 : [POS(20)] $BOOL; (* Obsolete. *)G OPR$V_USER6 : [POS(21)] $BOOL; (* Obsolete. *)G OPR$V_USER7 : [POS(22)] $BOOL; (* Obsolete. T *)G OPR$V_USER8 : [POS(23)] $BOOL; (* Obsolete. *)G OPR$V_USER9 : [POS(24)] $BOOL; (* Obsolete. *)G OPR$V_USER10 : [POS(25)] $BOOL; (* Obsolete. *)G OPR$V_USER11 : [POS(26)] $BOOL; (* Obsolete. *)G OPR$V_USER12 : [POS(27)] $BOOL; (* Obsolete. *) ) END; (*** MODULE $OSSDDEF ***) N(* U *)N(* Operating System Specific Data area offset definitions for the IA64 *)N(* VMS calling standard. *)N(* *)N(* *)N(* Spill Data triple *)N(* *) CONST OSSD V$M_REG = 31; OSSD$M_MBZ_5_7 = 224; OSSD$M_TREG = 32512; OSSD$M_MBZ_15 = 32768; 2TYPE OSSD_SPILL_DATA$TYPE = RECORD CASE INTEGER OF1 1: (OSSD$R_SPILL_OVERLAY : [BYTE(2)] RECORD END;] OSSD$T_T : ARRAY [1..1] OF $UBYTE; (* ULEB128 slot offset to save/restore instruction *) ); 2: ();K 3: (OSSD$V_REG : [POS(0)] $BIT5; (* Static general register being saved *)G OSSD$V_MBZ_5_7 : [POS(5)] $BIT3; (* MBZ *)U OSSD$V_TREG : [POS(8)] $BIT7; (* Targ Wet register for save or zero for restore *)G OSSD$V_MBZ_15 : [POS(15)] $BOOL; (* MBZ *) ); 4: ();M 5: (OSSD$B_REG_BYTE : [POS(0)] $UBYTE; (* Byte containing 5-bit REG field *)O OSSD$B_TREG_BYTE : [POS(8)] $UBYTE; (* Byte containing 7-bit TREG field *) ) END; N(* *)N(* OSSD layout for general and caller spill register information segments *)N(* X *) CONST OSSD$M_TYPE = 32767;I OSSD$K_GENERAL_INFO = 1; (* General info (always one quadword) *)J OSSD$K_CALL_SPILL_INFO = 2; (* Caller spill info (variable length) *)I OSSD$K_CONTEXT_INFO = 3; (* Context info (always one quadword) *) OSSD$M_S = 32768; OSSD$M_EXCEPTION_MODE = 458752;G OSSD$K_EXC_MODE_SIGNAL = 0; (* Signal *)G OSSD$K_EXC_MODE_SIGNAL_ALL = 1; (* Signal all Y *)G OSSD$K_EXC_MODE_SIGNAL_SILENT = 2; (* Signal silent *)G OSSD$K_EXC_MODE_FULL_IEEE = 3; (* Signal full IEEE *)G OSSD$K_EXC_MODE_CALLER = 4; (* Use caller's mode *) OSSD$M_TARGET_INVO = 524288; OSSD$M_BASE_FRAME = 1048576;& OSSD$M_HANDLER_REINVOKABLE = 2097152; OSSD$M_AST_FRAME = 4194304;" OSSD$M_EXCEPTION_FRAME = 8388608; OSSD$M_TIE_FRAME = 16777216;# OSSD$M_BOTTOM_OF_STACK = 33554432;& OSSD$M_HANDLER_DATA_VALID = 671 Z08864;& OSSD$M_SS_DISPATCH_FRAME = 134217728;# OSSD$M_KP_START_FRAME = 268435456;% OSSD$M_FRAMELESS_HELPER = 536870912; OSSD$M_MBZ_30_63 = 0;G OSSD$K_GENERAL_INFO_LENGTH = 8; (* Size of general data segment *) OSSD$M_CONTEXT_TYPE = 16711680;G OSSD$K_CTX_TYPED = 0; (* A VMS typed data structure *)G OSSD$K_CTX_CHFCTX = 1; (* A CHFCTX block *) OSSD$M_CONTEXT_GR = -16777216; OSSD$M_CONTEXT_OFFSET = 0; OSSD$M_CONTEXT_HINT = 0;G OSSD$K_ [HINT_EXCEPTION = 1; (* Exception dispatcher *)G OSSD$K_HINT_SS = 2; (* System Service dispatcher *)G OSSD$K_HINT_AST = 3; (* AST dispatcher *)G OSSD$K_HINT_KP_START = 4; (* KP_START frame *)G OSSD$K_CONTEXT_INFO_LENGTH = 8; (* Size of context info segment *) 'TYPE OSSD$TYPE = RECORD CASE INTEGER OF0 1: (OSSD$R_DATA_OVERLAY : [BYTE(8)] RECORD END; );U 2: (OSSD$Q_GENERAL_INFO_SEGMENT : [PO \S(0)] $UQUAD; (* Entire general info segment *) ); 3: ();G 4: (OSSD$V_TYPE : [POS(0)] $BIT15; (* OSSD segment type *)G OSSD$V_S : [POS(15)] $BOOL; (* Continuation marker *)X OSSD$V_EXCEPTION_MODE : [POS(16)] $BIT3; (* Desired exception-reporting behavior *)R OSSD$V_TARGET_INVO : [POS(19)] $BOOL; (* Invoke handler when unwind target *)K OSSD$V_BASE_FRAME : [POS(20)] $BOOL; (* Logical base frame of stack *)c OSSD$V_HANDLER_REINVOKABLE : [P]OS(21)] $BOOL; (* Handler may be invoked when already active *)G OSSD$V_AST_FRAME : [POS(22)] $BOOL; (* AST dispatch frame *)M OSSD$V_EXCEPTION_FRAME : [POS(23)] $BOOL; (* Exception dispatch frame *)Z OSSD$V_TIE_FRAME : [POS(24)] $BOOL; (* Frame created by Translated Image Executive *)X OSSD$V_BOTTOM_OF_STACK : [POS(25)] $BOOL; (* End of call stack (no predecessors) *)j OSSD$V_HANDLER_DATA_VALID : [POS(26)] $BOOL; (* Exception handler data field exists in unwind info ^*)T OSSD$V_SS_DISPATCH_FRAME : [POS(27)] $BOOL; (* System Service dispatch frame *)L OSSD$V_KP_START_FRAME : [POS(28)] $BOOL; (* Used to tag EXE$KP_START *)y OSSD$V_FRAMELESS_HELPER : [POS(29)] $BOOL; (* Tags code executing in context of another routine whose IP is in B0 *)G OSSD$V_MBZ_30_63 : [POS(30)] $BIT32; (* MBZ *) ); 5: ();H 6: (OSSD$W_LENGTH : [POS(16)] $UWORD; (* # quadwords in this segment *)_ OSSD$T_SPILL_DATA : [POS(32)] OSSD_SPILL_ _DATA$TYPE; (* Start of first spill data triple *) );U 7: (OSSD$Q_CONTEXT_INFO_SEGMENT : [POS(0)] $UQUAD; (* Entire context info segment *) ); 8: ();Q 9: (OSSD$V_CONTEXT_TYPE : [POS(16)] $BIT8; (* Type of context block described *)V OSSD$V_CONTEXT_GR : [POS(24)] $BIT8; (* GR containing pointer to context block *)Y OSSD$V_CONTEXT_OFFSET : [POS(32)] $BIT24; (* Offset (in octawords) from SP, or GR *)U OSSD$V_CONTEXT_HINT : [POS(56)] $BIT8; (* Hint as to purpose of con `text block *)G (* Hints: (0 = no hint) *) ) END; P(* The following macro can be used in IAS code to create a context info OSSD *)N(* segment. Cut and paste to your IAS module *)N(* *)N(*#define __CONTEXT_OSSD(type,gr,offset,hint) \ *)I(* .vms_ossd ((hint) << OSSD$V_CONTEXT_HINT) | \ *) aB(* (((offset) & 0xFFFFFF) << OSSD$V_CONTEXT_OFFSET) | \ *)B(* ((gr) << OSSD$V_CONTEXT_GR) | \ *)B(* ((type) << OSSD$V_CONTEXT_TYPE) | OSSD$K_CONTEXT_INFO *)N(* *) (*** MODULE $OSSDEF ***) N(*+ *)N(* Object Security Service processing flag *)N(* and itemcode definition bs. *)N(*- *) CONST OSS$M_WLOCK = 1; OSS$M_RELCTX = 2; OSS$M_LOCAL = 4; &TYPE OSS$TYPE = RECORD CASE INTEGER OF- 1: (OSS$R_FLAGS_BITS : [BYTE(1)] RECORD END; );G 2: (OSS$V_WLOCK : [POS(0)] $BOOL; (* Maintain Write lock *)G OSS$V_RELCTX : [POS(1)] $BOOL; (* Release context *)G OSS$V_LOCAL : [POS(2)] $BOOL; (* update local pro cfile only *) ) END; LCONST OSS$_ACCESS_NAMES = 1; (* *)G OSS$_ACCESS_NAMES_LENGTH = 2; (* *)G OSS$_ACL_ADD_ENTRY = 3; (* *)G OSS$_ACL_DELETE_ENTRY = 4; (* *)G OSS$_ACL_DELETE = 5; (* *)G OSS$_ACL_DELETE_ALL = 6; (* *)G OSS$_ACL_FIND_ENTdRY = 7; (* *)G OSS$_ACL_FIND_NEXT = 8; (* *)G OSS$_ACL_FIND_TYPE = 9; (* *)G OSS$_ACL_GRANT_ACE = 10; (* *)G OSS$_ACL_LENGTH = 11; (* *)G OSS$_ACL_MODIFY_ENTRY = 12; (* *)G OSS$_ACL_POSITION = 13; (* *)G OSS$_eACL_POSITION_TOP = 14; (* *)G OSS$_ACL_POSITION_BOTTOM = 15; (* *)G OSS$_ACL_READ_ENTRY = 16; (* *)G OSS$_ACL_READ = 17; (* *)G OSS$_MAX_CLASS = 18; (* *)G OSS$_MIN_CLASS = 19; (* *)G OSS$_NEXT_OBJECT = 20; (* f *)G OSS$_OWNER = 21; (* *)G OSS$_PROTECTION = 22; (* *)G OSS$_SYS_PROT = 23; (* *)G OSS$_OWN_PROT = 24; (* *)G OSS$_GRP_PROT = 25; (* *)G OSS$_WOR_PROT = 26; (* *)G OSS$_CLASS_NAME = 27; (* g *)G OSS$_FIRST_TEMPLATE = 28; (* *)G OSS$_NEXT_TEMPLATE = 29; (* *)G OSS$_OBJECT_NAME = 30; (* *)G OSS$_ACCESS_CLASS_NAME = 31; (* *)G OSS$_DAMAGED_ACL = 32; (* *)G OSS$_IN_TRANSITION = 33; (* *) OSS$_TRANQUILITY_COUNT = 34;G OSS$_POSIX_ hGID = 35; (* Posix Group ID *)G OSS$_POSIX_GRP_MODE = 36; (* Posix Group Mode Permission *)G OSS$_POSIX_MODE = 37; (* Posix Mode Permissions (all) *)G OSS$_POSIX_SGID = 38; (* Posix SETGID Effective Group ID *)G OSS$_POSIX_SUID = 39; (* Posix SETUID Effective User ID *) OSS$_ACCESS_BITNAMES = 1;! OSS$_ACCESS_BITNAMES_LENGTH = 2; OSS$_ACL_ADDACE = 3; OSS$_ACL_DELACE = 4; OSS$_ACL_FNDACE = 7; OSS$_ACL_FNiDNXT = 8; OSS$_ACL_FNDTYP = 9; OSS$_ACL_MODACE = 12; OSS$_ACL_READACE = 16; (*** MODULE PAGEDEF ***) LCONST MMG$C_VAX_PAGE_SIZE = 512; (* SIZE OF VAX PAGE *)G MMG$C_ALPHA_MAX_PAGE_SIZE = 65536; (* MAX. PAGE SIZE *)G IOC$C_DISK_BLKSIZ = 512; (* STANDARD DISK BLOCK SIZE *)G IOC$C_CD_DVD_BLKSIZ = 2048; (* Typical CD and DVD sector size *) IOC$M_BLOCK_BYTEMASK = 511; IOC$M_BLOCK_BLKNUM = -512; (TYPE BLOCK$TYPE = RECOjRD CASE INTEGER OF1 1: (IOC$R_BLOCKDEF_BITS0 : [BYTE(4)] RECORD END; );G 2: (IOC$V_BLOCK_BYTEMASK : [POS(0)] $BIT9; (*BYTE VIELD *)G IOC$V_BLOCK_BLKNUM : [POS(9)] $BIT23; (*BLOCK NUMBER *) ) END; #CONST IOC$M_DVDBLK_BYTEMASK = 2047; IOC$M_DVDBLK_BLKNUM = -2048; )TYPE DVDBLK$TYPE = RECORD CASE INTEGER OF2 1: (IOC$R_DVDBLKDEF_BITS0 : [BYTE(4)] RECORD END; );G 2: (IOC$V_DVDBLK_BYTEMASK : [POS(0)] $BIT11; (* CD/DVD Vield *)G k IOC$V_DVDBLK_BLKNUM : [POS(11)] $BIT21; (* CD/DVD Block Number *) ) END; (*** MODULE $PCCDEF ***) N(*+ *)N(* PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS *)N(*-- *) CONST PCC$M_CHAR = 31; PCC$M_EIGHTBIT = 64; PCC$M_SINGLE = 128; PCC$M_LINECNT = 127;G PCC$_FTN_SINGLE = 32; (* SINGLE SPA lCE *)G PCC$_FTN_DOUBLE = 48; (* DOUBLE SPACE *)G PCC$_FTN_PAGE = 49; (* PAGE SPACE *)G PCC$_FTN_OVRPRT = 43; (* OVER PRINT *)G PCC$_FTN_PROMPT = 36; (* PROMPT *) &TYPE PCC$TYPE = RECORD CASE INTEGER OFG 1: (PCC$W_FORTRAN : $UWORD; (* FORTRAN FIELD *)G PCC$R_PREFIX_OVERLAY : [BYTE(1)] RECORD END; (* PREFIX FIEL mD *)2 PCC$R_POSTFIX_OVERLAY : [BYTE(1)] RECORD END; );% 2: (PCC$B_PREFIX : [POS(16)] $UBYTE;G PCC$B_POSTFIX : [POS(24)] $UBYTE; (* POSTFIX FIELD *) ); 3: ();G 4: (PCC$V_CHAR : [POS(24)] $BIT5; (* CHARACTER FIELD *)G PCC$V_EIGHTBIT : [POS(30)] $BOOL; (* EIGHTBIT CHARACTER SET *)G PCC$V_SINGLE : [POS(31)] $BOOL; (* SINGLE CHARACTER *) ); 5: ();G 6: (PCC$V_LINECNT : [POS(24)] $BIT7; (* LINE COUNT FOR NE nWLINES *)G (* FORTRAN CONSTANTS *) ) END; (*** MODULE $PDSCDEF ***) N(* *)P(* Procedure descriptor offset definitions for the Alpha-32 calling standard. *)O(* This definition includes the offsets and fields for stack frame (SF) and *)N(* register frame (RF) procedure descriptors. *)N(* o *) LCONST PDSC$K_KIND_BOUND = 0; (* bound procedure *)G PDSC$K_KIND_NULL = 8; (* null procedure *)G PDSC$K_KIND_FP_STACK = 9; (* SF procedure *)G PDSC$K_KIND_FP_REGISTER = 10; (* RF procedure *) PDSC$M_HANDLER_VALID = 16;! PDSC$M_HANDLER_REINVOKABLE = 32; PDSC$M_HANDLER_DATA_VALID = 64; PDSC$M_BASE_REG_IS_FP = 128; PDSC$M_REI_RETURN = 256;! P pDSC$M_STACK_RETURN_VALUE = 512; PDSC$M_BASE_FRAME = 1024; PDSC$M_TARGET_INVO = 2048; PDSC$M_NATIVE = 4096; PDSC$M_NO_JACKET = 8192; PDSC$M_TIE_FRAME = 16384; PDSC$M_FUNC_RETURN = 15; PDSC$M_EXCEPTION_MODE = 112;G PDSC$K_EXC_MODE_SIGNAL = 0; (* signal *)G PDSC$K_EXC_MODE_SIGNAL_ALL = 1; (* signal all *)G PDSC$K_EXC_MODE_SIGNAL_SILENT = 2; (* signal silent *)G PDSC$K_EXC_MODE_FULL_IEEE = 3; (* signal full ieeqe *)G PDSC$K_EXC_MODE_CALLER = 4; (* use caller's mode *)G PDSC$K_NULL_SIZE = 16; (* length of NULL descriptor *)U PDSC$K_BOUND_SIZE = 24; (* length of the basic bound precedure descriptor *)\ PDSC$K_MIN_BOUND_SIZE = 24; (* minimum size of the basic bound procedure descriptor *)R PDSC$K_MIN_LENGTH_SF = 32; (* length of required portion of SF descriptor *)G PDSC$K_MIN_STACK_SIZE = 32; (* min size of SF descriptor * r)G PDSC$K_MAX_STACK_SIZE = 48; (* max size of SF descriptor *)R PDSC$K_MIN_LENGTH_RF = 24; (* length of required portion of RF descriptor *)G PDSC$K_MIN_REGISTER_SIZE = 24; (* min size of RF descriptor *)G PDSC$K_MAX_REGISTER_SIZE = 40; (* max size of RF descriptor *)d PDSC$K_BOUND_ENVIRONMENT_SIZE = 32; (* length of the bound precedure descriptor with environment *) 'TYPE PDSC$TYPE = RECORD CASE INTEGER OF, 1: (PDSC$R_FILL_52_ : [BYTE(2)] RECORD END;6 s PDSC$R_RSA_OFFSET_OVERLAY : [BYTE(2)] RECORD END;Q PDSC$B_ENTRY_RA : $BYTE; (* register in which return address is passed *)5 PDSC$R_MORE_FLAGS_STRUCT : [BYTE(1)] RECORD END;Y PDSC$W_SIGNATURE_OFFSET : $WORD; (* offset from procedure descriptor to signature *), PDSC$R_FILL_54_ : [BYTE(8)] RECORD END;G PDSC$R_SIZE_OVERLAY : [BYTE(8)] RECORD END; (* *)2 PDSC$R_KIND_SPECIFIC : [BYTE(24)] RECORD END; );R 2: (PDSC$W_FLAGS : [POS(0)] $UWORD; (t* flags including procedure kind bitfield *)` PDSC$W_RSA_OFFSET : [POS(16)] $WORD; (* offset to register save area from base (SF only) *)a PDSC$V_FUNC_RETURN : [POS(40)] $BIT4; (* register specificatons for function value return *)e PDSC$V_EXCEPTION_MODE : [POS(44)] $BIT3; (* the caller's desired exception reporting behavior *)M PDSC$Q_ENTRY : [POS(64)] $QUAD; (* address of start of procedure code *)L PDSC$L_SIZE : [POS(128)] UNSIGNED; (* size of fixed portion of stack *)u );M 3: (PDSC$L_IREG_MASK : [POS(192)] UNSIGNED; (* integer register save mask *)N PDSC$L_FREG_MASK : [POS(224)] UNSIGNED; (* floating register save mask *)b PDSC$Q_STACK_HANDLER : [POS(256)] $QUAD; (* absolute pointer to procedure descriptor (opt) *)U PDSC$Q_STACK_HANDLER_DATA : [POS(320)] $QUAD; (* data for stack handler (opt) *) );G 4: (PDSC$V_KIND : [POS(0)] $BIT4; (* kind of procedure *)l PDSC$V_HANDLER_VALID : [POS(4)] $BOOL; (* optional STACK_HAvNDLER or REG_HANDLER is present and valid *)X PDSC$V_HANDLER_REINVOKABLE : [POS(5)] $BOOL; (* exception handler is reinvokable *){ PDSC$V_HANDLER_DATA_VALID : [POS(6)] $BOOL; (* optional STACK_HANDLER_DATA or REG_HANDLER_DATA is present and valid *)T PDSC$V_BASE_REG_IS_FP : [POS(7)] $BOOL; (* FP is also base register (vs. SP) *)J PDSC$V_REI_RETURN : [POS(8)] $BOOL; (* exit from procedure via REI *)W PDSC$V_STACK_RETURN_VALUE : [POS(9)] $BOOL; (* function value returned on stawck *)G PDSC$V_BASE_FRAME : [POS(10)] $BOOL; (* base frame indicator *)Y PDSC$V_TARGET_INVO : [POS(11)] $BOOL; (* unwind target invo handler to be called *)G PDSC$V_NATIVE : [POS(12)] $BOOL; (* set to 1 for compiled code *)I PDSC$V_NO_JACKET : [POS(13)] $BOOL; (* set to 1 for compiled code *)J PDSC$V_TIE_FRAME : [POS(14)] $BOOL; (* must be 0 for compiled code *)T PDSC$B_SAVE_FP : [POS(16)] $UBYTE; (* register number for saved FP (RF only) *)` PDSC$B_SAVE_RA x: [POS(24)] $UBYTE; (* register number for saved return address (RF only) *)X PDSC$L_ENTRY : [POS(64)] INTEGER; (* first longword is sign extended to quadword *)P PDSC$Q_PROC_VALUE : [POS(128)] $QUAD; (* for bound procedure descriptor, *) );` 5: (PDSC$Q_REG_HANDLER : [POS(192)] $QUAD; (* absolute pointer to procedure descriptor (opt) *)M PDSC$Q_REG_HANDLER_DATA : [POS(256)] $QUAD; (* data for handler (opt) *) );X 6: (PDSC$L_PROC_VALUE : [POS(128)] INTEGER; (* this valuey is a procedure descriptor. *) );- 7: (PDSC$L_ENVIRONMENT : [POS(192)] INTEGER; );+ 8: (PDSC$Q_ENVIRONMENT : [POS(192)] $QUAD; ) END; LCONST PDSC$K_LKP_LENGTH = 16; (* Linkage pair size *) KTYPE PDSC_LKP$TYPE = RECORD CASE INTEGER OF (* Linkage pair def *), 1: (PDSC$R_FILL_58_ : [BYTE(8)] RECORD END;, PDSC$R_FILL_60_ : [BYTE(8)] RECORD END; );G 2: (PDSC$Q_LKP_ENTRY : [POS(0)] $QUAD; (* Entry point addr *)G z PDSC$Q_LKP_PROC_VALUE : [POS(64)] $QUAD; (* Proc desc addr *) ); 3: ();+ 4: (PDSC$PS_LKP_ENTRY : [POS(0)] UNSIGNED;1 PDSC$PS_LKP_PROC_VALUE : [POS(64)] UNSIGNED; ) END; LCONST LKP$K_SIZE = 16; (* Linkage pair size *) KTYPE LKP$TYPE = RECORD CASE INTEGER OF (* Linkage pair def *)G 1: (LKP$R_ENTRY_UNION : [BYTE(8)] RECORD END; (* Entry point addr *)H LKP$R_PROC_VALUE_UNION : [BYTE(8)] RECORD END; (* Proc desc{ addr *) );" 2: (LKP$Q_ENTRY : [POS(0)] $QUAD;( LKP$Q_PROC_VALUE : [POS(64)] $QUAD; );& 3: (LKP$PS_ENTRY : [POS(0)] UNSIGNED;, LKP$PS_PROC_VALUE : [POS(64)] UNSIGNED; ) END; (*** MODULE $PMMDEF ***) N(*+ *)Q(* PFN memory data structure definition. This structure is used to access the *)O(* fields within the PFN memory map returned by $GETSYI. $GETSYI copies the *)N(* contents of t |he pool packet stored at MMG$GL_SYI_PFN_MEMORY_MAP to a *)N(* user-supplied buffer. *)N(*- *) CONST PMM$m_console = 1; PMM$m_openvms = 2; PMM$m_available = 4; PMM$m_base = 8; PMM$m_galaxy_shared = 16; PMM$m_undefined_5_15 = 65504;G PMM$C_LENGTH = 12; (* Length of structure *)G PMM$K_LENGTH = 12; (* Length of structur }e *) &TYPE PMM$TYPE = RECORD CASE INTEGER OFG 1: (PMM$W_LENGTH : $WORD; (* Size of a PMM structure *)+ PMM$r_fill_62_ : [BYTE(2)] RECORD END;G PMM$l_start_pfn : UNSIGNED; (* First PFN in this cluster *)G PMM$l_pfn_count : UNSIGNED; (* Number of PFNs in this cluster *) );$ 2: (PMM$w_flags : [POS(16)] $UWORD; ); 3: ();G 4: (PMM$v_console : [POS(16)] $BOOL; (* Used by Console *)G PMM$v_openvms : [POS(17)] $ ~BOOL; (* Used by OpenVMS *)G PMM$v_available : [POS(18)] $BOOL; (* Available for Other Uses *)G PMM$v_base : [POS(19)] $BOOL; (* Galaxy base memory segment *)G PMM$v_galaxy_shared : [POS(20)] $BOOL; (* Galaxy shared memory *)Q PMM$v_undefined_5_15 : [POS(21)] $BIT11; (* Undefined bits should be zero *) ) END; N(* Expanded version for larger PFNs *) CONST PMM64$m_console = 1; PMM64$m_openvms = 2; P MM64$m_available = 4; PMM64$m_base = 8; PMM64$m_galaxy_shared = 16; PMM64$m_undefined_5_15 = 65504;G PMM64$C_LENGTH = 24; (* Length of structure *)G PMM64$K_LENGTH = 24; (* Length of structure *) (TYPE PMM64$TYPE = RECORD CASE INTEGER OFG 1: (PMM64$W_LENGTH : $WORD; (* Size of a PMM structure *)- PMM64$r_fill_64_ : [BYTE(2)] RECORD END;G PMM64$l_reserved : UNSIGNED; (* padding *)G PMM 64$q_start_pfn : $UQUAD; (* First PFN in this cluster *)G PMM64$q_pfn_count : $UQUAD; (* Number of PFNs in this cluster *) );& 2: (PMM64$w_flags : [POS(16)] $UWORD; ); 3: ();G 4: (PMM64$v_console : [POS(16)] $BOOL; (* Used by Console *)G PMM64$v_openvms : [POS(17)] $BOOL; (* Used by OpenVMS *)H PMM64$v_available : [POS(18)] $BOOL; (* Available for Other Uses *)G PMM64$v_base : [POS(19)] $BOOL; (* Galaxy base memory segment *)H  PMM64$v_galaxy_shared : [POS(20)] $BOOL; (* Galaxy shared memory *)S PMM64$v_undefined_5_15 : [POS(21)] $BIT11; (* Undefined bits should be zero *) ) END; "(*** MODULE $POSIX_SERVICEDEF ***) N(* The following definitions are passed in the ctrl parameter. *) LCONST POSIX$C_BLOCK_FORK = 1; (* block fork execution *)G POSIX$C_UNBLOCK_FORK = 2; (* unblock fork execution *)G POSIX$C_DISABLE_FORK = 3; (* disable fork  *)G POSIX$C_SETUP_CALLBACK = 4; (* setup image callback *)G POSIX$C_SYSTEM_CALLBACK = 5; (* setup system callback *)G POSIX$C_PROCESS_CALLBACK = 6; (* setup process permanent callback *)G POSIX$C_CANCEL_CALLBACK = 7; (* cancel a callback *)G POSIX$C_CONTINUE = 8; (* continue callbacks *)G POSIX$C_TEST_CALLS = 9; (* temporary value for testing *) POSIX$C_MAX_CNTRL = 9; POSIX$K_MAX _CNTRL = 9; N(* *)N(* The following definitions are for the 'when' mask. They define when *)N(* callbacks are to be made. *)N(* *) #CONST POSIX$V_CALL_BEFORE_COPY = 0; POSIX$V_CALL_IN_CHILD = 1; POSIX$V_CALL_AFTER_CHILD = 2; POSIX$V_CALL_ON_FAILURE = 3;# POSIX$V_CALL_BEFORE_COPY_FAIL = 4; POSIX$V_CALL_IN_CHILD_FAIL = 5;# POSIX$V_CALL_AFTER_CHILD_FAIL = 6; POSIX$M_CALL_BEFORE_COPY = 1; POSIX$M_CALL_IN_CHILD = 2; POSIX$M_CALL_AFTER_CHILD = 4; POSIX$M_CALL_ON_FAILURE = 8;$ POSIX$M_CALL_BEFORE_COPY_FAIL = 16;! POSIX$M_CALL_IN_CHILD_FAIL = 32;$ POSIX$M_CALL_AFTER_CHILD_FAIL = 64; (*** MODULE $POWERDEF ***) N(*+ *)N(*  *)N(* Power Control Definitions *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added to the END of each item list *)N(* (preceeding the ENDlistname item) so that users will not have *)N(* to recompi le. *)N(*- *) CONST POWER$C_HIGH_PERF = 0; POWER$C_LOW_POWER = 1; POWER$C_EFFICIENCY = 2;G POWER$C_OS_CONTROL = 3; (* Only works from kernel mode *)U POWER$M_OS_CONTROL_OFF = 4; (* OR with the above. Only works from kernel mode *) (*** MODULE $PPROPDEF ***) N(*+ *)N(* *)N(* Set Process Properties Data Identifier Definitions *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added to the END of each item list *)N(* (preceeding the ENDlistname item) so that users will not have *)N(* to relink. *)N(*- *)N(* Property definitions *) [CONST PPROP$C_PARSE_STYLE_TEMP = 0; (* Change the parse style for the life of an image *)Y PPROP$C_PARSE_STYLE_PERM = 1; (* Change the parse style for the life of the process *)H PPROP$C_HOME_RAD = 2;  (* Change the home rad of the thread *)[ PPROP$C_CASE_LOOKUP_TEMP = 3; (* Change the case lookup mode for the life of an image *)^ PPROP$C_CASE_LOOKUP_PERM = 4; (* Change the case lookup mode for the life of the process *)X PPROP$C_MEDDLE_ENABLE = 5; (* Record the fact of alterations to process logical *) N(* names or symbols *) ^CONST PPROP$C_MEDDLE = 6; (* Process logical names or symbols have been altered *)b PPROP$C_UNITS = 7; (* Change the units for the life of the process (blocks/bytes) *)T PPROP$C_SS_LOG_ENABLE = 8; (* Enable system service logging for the process *)U PPROP$C_SS_LOG_DISABLE = 9; (* Disable system service logging for the process *)S PPROP$C_SS_LOG_UNLOAD = 10; (* Stop system service logging & delete buffers *)\ PPROP$C_TOKEN = 11; (* Change the DCL token size for the life of the process *)Y PPROP$C_DEADLOCK_WAIT = 12; (* Change p er-process deadlock wait (in 10msec units) *)` PPROP$C_SEARCH_SYMLINK_TEMP = 13; (* Change the symlink search mode for the life of an image *)c PPROP$C_SEARCH_SYMLINK_PERM = 14; (* Change the symlink search mode for the life of the process *)O PPROP$C_KERNEL_THREAD_LIMIT = 15; (* Change per-process kernel thread limit *) N(* Parse style definitions *) VCONST PARSE_STYLE$C_ODS2 = 0; (* Values for the above properties (old name) *)Q  PARSE_STYLE$C_ODS5 = 1; (* Values for the above properties (old name) *)Q PARSE_STYLE$C_TRADITIONAL = 0; (* Values for the above properties (new name) *)Q PARSE_STYLE$C_EXTENDED = 1; (* Values for the above properties (new name) *) N(* case lookup definitions *) LCONST PPROP$K_CASE_BLIND = 0; (* case blind operation *)G PPROP$K_CASE_SENSITIVE = 1; (* case sensitive operation *) N(* symlink  search mode definitions *)T(* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *)N(* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *) LCONST PPROP$K_SEARCH_SYMLINK_NONE = 1; (* use no symlinks *)G PPROP$K_SEARCH_SYMLINK_ALL = 2; (* use symlinks always *)K PPROP$K_SEARCH_SYMLINK_NOELLIPS = 3; (* use symlinks except in ellipsis *) (*** MODULE $PQLDEF ***) N(*+ *)N(* PROCESS QUOTA LIST CODES *)N(*- *) LCONST PQL$_LISTEND = 0; (*LIST END CODE (MUST BE FIRST) *)G PQL$_ASTLM = 1; (*AST LIMIT *)G PQL$_BIOLM = 2; (*BUFFERED I/O LIMIT *)G PQL$_BYTLM = 3; (*BYTE LIMIT FOR BUFFERED I/O *)G PQL$_CPULM = 4; (*CPU TIME LIMIT *)G PQL$_DIOLM = 5; (*DIRECT I/O LIMIT *)G PQL$_FILLM = 6; (*OPEN FILE LIMIT *)G PQL$_PGFLQUOTA = 7; (*PAGING FILE QUOTA *)G PQL$_PRCLM = 8; (*SUB-PROCESS LIMIT *)G PQL$_TQELM = 9; (*TIMER QUEUE ENTRY LIMIT *)G PQL$_WSQUOTA = 10;  (*WORKING SET QUOTA *)G PQL$_WSDEFAULT = 11; (*WORKING SET DEFAULT *)G PQL$_ENQLM = 12; (*ENQUEUE LIMIT *)G PQL$_WSEXTENT = 13; (*WORKING SET EXTENT LIMIT *)P PQL$_JTQUOTA = 14; (*JOB-WIDE LOGICAL NAME TABLE CREATION QUOTA *)G PQL$_LENGTH = 15; (*NUMBER OF QUOTAS (MUST BE LAST) *) (*** MODULE $PRCDEF ***) N(*+  *)N(* $CREPRC STATUS FLAGS AND ITEM CODES *)N(*- *) CONST PRC$M_SSRWAIT = 1; PRC$M_SSFEXCU = 2; PRC$M_PSWAPM = 4; PRC$M_NOACNT = 8; PRC$M_BATCH = 16; PRC$M_HIBER = 32; PRC$M_NOUAF = 64; PRC$M_NETWRK = 128; PRC$M_DISAWS = 256; PRC$M_DETACH = 512; PRC$M_INTER = 1024; PRC$M_IMGDMP = 2048; PRC$M_CLISPEC = 4096; PRC$M_NOPASSWORD = 8192; PRC$M_DEBUG = 16384; PRC$M_DBGTRU = 32768; PRC$M_SUBSYSTEM = 65536; PRC$M_TCB = 131072; PRC$M_NO_IMAGE_PRIVS = 262144; PRC$M_PERM_SUBSYSTEM = 524288; PRC$M_PARSE_EXTENDED = 1048576;! PRC$M_INHERIT_PERSONA = 2097152; PRC$M_HOME_RAD = 4194304; PRC$M_CASE_SENSITIVE = 8388608;! PRC$M_SPAWN_DETACHED = 16777216; PRC$M_SSLOG_ENABLE = 33554432; PRC$M_KT_LIMIT = 67108864; PRC$M_LOGIN = 64; &TYPE PRC$TYPE = RECORD CASE INTEGER OF. 1: (PRC$R_PRCDEF_BITS : [BYTE(4)] RECOR D END; );G 2: (PRC$V_SSRWAIT : [POS(0)] $BOOL; (* RESOURCE WAIT DISABLE *)N PRC$V_SSFEXCU : [POS(1)] $BOOL; (* SYSTEM SERVICE FAIL EXCEPTION MODE *)G PRC$V_PSWAPM : [POS(2)] $BOOL; (* PROCESS SWAP MODE *)G PRC$V_NOACNT : [POS(3)] $BOOL; (* ACCOUNTING MESSAGE DISABLE *)G PRC$V_BATCH : [POS(4)] $BOOL; (* BATCH INDICATOR *)P PRC$V_HIBER : [POS(5)] $BOOL; (* HIBERNATE BEFORE CALLING INITIAL IMAGE *)V PRC$V_NOUAF : [POS(6)] $BOOL; (* BYPASS LOGIN VERIFICATION FOR DETACHED PROC. *)G PRC$V_NETWRK : [POS(7)] $BOOL; (* NETWORK INDICATOR *)G PRC$V_DISAWS : [POS(8)] $BOOL; (* DISABLE WORKING SET ADJUST *)G PRC$V_DETACH : [POS(9)] $BOOL; (* DETACHED PROCESS *)G PRC$V_INTER : [POS(10)] $BOOL; (* INTERACTIVE INDICATOR *)G PRC$V_IMGDMP : [POS(11)] $BOOL; (* IMAGE DUMP REQUESTED *)G PRC$V_CLISPEC : [POS(12)] $BOOL; (* PASS CLI SPECIFICATIONS *)U  PRC$V_NOPASSWORD : [POS(13)] $BOOL; (* DON'T PROMPT FOR USERNAME AND PASSWORD *)G PRC$V_DEBUG : [POS(14)] $BOOL; (* /DEBUG desired *)G PRC$V_DBGTRU : [POS(15)] $BOOL; (* debugger present *)V PRC$V_SUBSYSTEM : [POS(16)] $BOOL; (* inherit protected subsystem identifiers *)G PRC$V_TCB : [POS(17)] $BOOL; (* process is part of TCB *)X PRC$V_NO_IMAGE_PRIVS : [POS(18)] $BOOL; (* image privileges not to be propagated *)R PRC$V_PERM_SUBSYSTEM : [POS(19)] $BOOL; (* make subsystem rights permanent *)] PRC$V_PARSE_EXTENDED : [POS(20)] $BOOL; (* make new process have parse_style extended *)R PRC$V_INHERIT_PERSONA : [POS(21)] $BOOL; (* process gets persona of caller *)J PRC$V_HOME_RAD : [POS(22)] $BOOL; (* Home RAD specified by creator *)N PRC$V_CASE_SENSITIVE : [POS(23)] $BOOL; (* Use CASE_LOOKUP = SENSITIVE *)K PRC$V_SPAWN_DETACHED : [POS(24)] $BOOL; (* Spawn a detached process *)N PRC$V_SSLOG_ENABLE : [POS (25)] $BOOL; (* Enable system service logging *)U PRC$V_KT_LIMIT : [POS(26)] $BOOL; (* Kernel thread limit specified by creator *) );2 3: (PRC$R_PRCDEF_OBSOLETE : [BYTE(1)] RECORD END; );V 4: (PRC$V_LOGIN : [POS(6)] $BOOL; (* BYPASS LOGIN VERIFICATION FOR DETACHED PROC. *) ) END; ZCONST PRC$M_IMPERSONATE = 512; (* Impersonate other - synonym for DETACH - 0x200 *) N(*+ *)N(*  *)N(* Create Process Item List Data Identifier Definitions *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added at the END of the list so that *)N(* users will not have to relin k or reassemble. *)N(* *)N(*- *) LCONST PRC$_LISTEND = 0; (* End of list (must be first code) *)G PRC$_PGFLCHAR = 1; (* Page file characteristics *)G PRC$_PGFLINDEX = 2; (* Page file index *)G PRC$_INPUT_ATT = 3; (* SYS$INPUT attributes *)G  PRC$_OUTPUT_ATT = 4; (* SYS$OUTPUT attributes *)G PRC$_ERROR_ATT = 5; (* SYS$ERROR attributes *)G PRC$_CLASS = 6; (* Process classification *)G PRC$_SSLOG_FLAGS = 7; (* System service logging flags *)I PRC$_SSLOG_BUFSIZE = 8; (* System service logging buffer size *)J PRC$_SSLOG_BUFCNT = 9; (* System service logging buffer count *) (*** MODULE $PRDEF ***) N(*+  *)N(* PROCESSOR REGISTER DEFINITIONS *)N(* *)I(* The following IPR symbols are provided for the convenience *)I(* of common Macro-32 code using the VAX MFPR/MTPR instructions *)I(* to operate against IPRs that exist in both architectures *)I(* architectures. Even Alpha-specific Macro-32 code would benefit *)I(* since the compiler can calculate register live-ness around the *)I(* VAX MFPR/MTPR instructions. *)N(* *)I(* The assigned values for the PR$_ipr symbols match the VAX *)I(* IPR numbers themselves wherever possible. VAX IPR numbers that *)I(* are extremely unlikely ever to be encountered are otherwise used. *)I(* The compiler uses the VAX val ues to validate the invocation of *)I(* MTPR/MFPR instructions. *)N(*- *) LCONST PR$_ESP = 1; (* Executive Stack Pointer *)G PR$_SSP = 2; (* Supervisor Stack Pointer *)G PR$_USP = 3; (* User Stack Pointer *)G PR$_ASN = 6; (* Address Space Number *)G PR$_ASTEN = 48; (* AST Enabled Register (MFPR only) *)G PR$_ASTSR = 49; (* AST Summary Register (MFPR only) *)R PR$_DATFX = 23; (* Data Alignment Trap Fixup in PALcode Enable *)G PR$_IPIR = 22; (* Interprocess Interrupt Request *)G PR$_IPL = 18; (* Interrupt Priority Level *)G PR$_MCES = 38; (* Machine Check Error Summary *)G PR$_PCBB = 16; (* Privileged Context Block Base *)G PR$_PME = 61; (* Performance Monitor Enable *)G PR$_PRBR = 15; (* Processor Base Register *)G PR$_SCBB = 17; (* System Control Block Base *)G PR$_SIRR = 20; (* Software Interrupt Request *)G PR$_SISR = 21; (* Software Interrupt Summary *)H PR$_TBIA = 57; (* Translation Buffer Invalidate All *)P PR$_TBIAP = 50; (* Translation Buffer Invalidate All Process *)W PR$_TBIS = 58; (* Translation Buffer Invalidate Single - 32 bit VA *)W PR$_TBIS_64 = 60; (* Translation Buffer Invalidate Single - 64 bit VA *)g PR$_TBISD = 59; (* Translation Buffer Invalidate Single - 64 bit VA - D-stream only *)g PR$_TBISI = 47; (* Translation Buffer Invalidate Single - 64 bit VA - I-stream only *)G PR$_VPTB = 12; (* Virtual Page Table Base Register *)  N(*+ *)N(* PROCESSOR REGISTER FIELD DEFINITIONS *)N(*- *) LCONST PR$_SID_TYP780 = 1; (* VAX 11/780 *)G PR$_SID_TYP750 = 2; (* VAX 11/750 *)G PR$_SID_TYP730 = 3; (* VAX 11/730 *)G PR$_SID_TYP790 = 4;  (* VAX 11/790 *)G PR$_SID_TYP8SS = 5; (* Scorpio for now *)G PR$_SID_TYP8NN = 6; (* Nautilus for now *)G PR$_SID_TYPUV1 = 7; (* MicroVAX I *)G PR$_SID_TYPUV2 = 8; (* MicroVAX II *)G PR$_SID_TYP410 = 8; (* VAXstar *)G PR$_SID_TYP009 = 9; (* Virtual VAX *)G PR$_SID_TYP420 = 10; (* PVAX *)G PR$_SID_TYP520 = 10; (* Cirrus I *)G PR$_SID_TYP650 = 10; (* Mayfair *)G PR$_SID_TYP9CC = 10; (* Calypso/XCP *) PR$_SID_TYP9CI = 10;G PR$_SID_TYP60 = 10; (* Firefox *)G PR$_SID_TYP670 = 11; (* KA670 (Pele) *)G PR$_SID_TYP9RR = 11; (* XRP  *)G PR$_SID_TYP43 = 11; (* KA43 (RigelMAX) *)G PR$_SID_TYP9AQ = 14; (* Aquarius *)G PR$_SID_TYP8PS = 17; (* Polarstar *)G PR$_SID_TYP1202 = 18; (* Mariah/XMP *)G PR$_SID_TYP46 = 18; (* PV-Mariah *) PR$_SID_TYP600 = 19; PR$_SID_TYP690 = 19; PR$_SID_TYP700 = 19; PR$_SID_TYP1302 = 19; PR$_SID_TYP49 = 19; PR$_SID_TYP1303 = 19;G PR$_SID_TYP660 = 20; (* KA660 (Spitfire) *)G PR$_SID_TYP440 = 20; (* PVAX2 *)G PR$_SID_TYP4A = 20; (* PCVAX *)G PR$_SID_TYP550 = 20; (* Cirrus II *)G PR$_SID_TYP1701 = 23; (* Laser/Neon *)G PR$_SID_TYPMAX = 23; (* MAX LEGAL CPU TYPE *)J PR$_SID_TYP_NOTAVAX = 128; (* Not a VAX (i.e. Alpha or some such) *) N(*Chip CPU types *) LCONST PR$_SID_TYPUV = 8; (* MicroVAX chip *) N(*MicroVAX chip CPU Subtypes *) MCONST PR$_XSID_UV_UV = 0; (* Generic MicroVAX (unused subtype) *)G PR$_XSID_UV_UV2 = 1; (* MicroVAX II *)G PR$_XSID_UV_410 = 4; (* VAXstar  *)G PR$_SID_TYPCV = 10; (* CVAX chip *) N(*CVAX chip CPU Subtypes *) LCONST PR$_XSID_CV_CV = 0; (* Generic CVAX (unused subtype) *)G PR$_XSID_CV_650 = 1; (* Mayfair *)G PR$_XSID_CV_9CC = 2; (* Calypso/XCP *)G PR$_XSID_CV_60 = 3; (* Firefox *)G PR$_XSID_CV_420 = 4;  (* PVAX *) PR$_XSID_CV_9CI = 5;G PR$_XSID_CV_520 = 7; (* CIRRUS I *)G PR$_SID_TYPRV = 11; (* Rigel chip *) N(* Rigel chip CPU Subtypes *) LCONST PR$_XSID_RV_RV = 0; (* Generic Rigel (unused subtype) *)G PR$_XSID_RV_670 = 1; (* KA670 (Pele) *)G PR$_XSID_RV_9RR = 2; (* Calypso/XRP  *)G PR$_XSID_RV_43 = 4; (* KA43 (RigelMAX) *)G PR$_SID_TYPV12 = 18; (* Mariah chip set *) N(* Mariah chip CPU Subtypes *) LCONST PR$_XSID_V12_V12 = 0; (* Generic Mariah (unused subtype) *)G PR$_XSID_V12_1202 = 2; (* MARIAH/XMP *)G PR$_XSID_V12_46 = 4; (* PVAX- mariah subtype *) PR$_SID_TYPV13 = 19; PR$_XSID_V13_V13 = 0; PR$_XSID_V13_690 = 1; PR$_XSID_V13_1302 = 2; PR$_XSID_V13_1303 = 3; PR$_XSID_V13_49 = 4; PR$_XSID_V13_700 = 5; PR$_XSID_V13_600 = 6;G PR$_SID_TYPV14 = 20; (* SOC Chip SID *) N(* SOC chip CPU subtypes *) LCONST PR$_XSID_V14_V14 = 0; (* unused subtype *)G PR$_XSID_V14_660 = 1; (* KA660 (Spitfire) *)G PR$_XSID_V14_440 = 4; (* PVAX2 subtype *)G PR$_XSID_V14_4A = 5; (* PCVAX subtype *)G PR$_XSID_V14_550 = 7; (* CIRRUS II *)G PR$_SID_TYPV17 = 23; (* NVAX+ Chip SID *) N(* NVAX+ chip CPU subtypes *) LCONST PR$_XSID_V17_V17 = 0; (* unused subtype *)G PR$_XSID_V17_1701 = 1; (* Laser/Neon  *) N(*Nautilus CPU Subtypes *) LCONST PR$_XSID_N8800 = 0; (* VAX 8800 *)G PR$_XSID_N8700 = 1; (* VAX 8700 *)G PR$_XSID_N2 = 2; (* Undefined Nautilus CPU *)G PR$_XSID_N3 = 3; (* Undefined Nautilus CPU *)G PR$_XSID_N4 = 4; (* Undefined Nautilus CPU *)G PR$_XSID_N5 = 5;  (* Undefined Nautilus CPU *)G PR$_XSID_N8550 = 6; (* VAX 8550 *)G PR$_XSID_N8500 = 7; (* VAX 8500 *)G PR$_XSID_N8NNN = -1; (* Unknown Nautilus CPU *) N(*------------------------------------------------------------------- *) CONST PR$M_ASTEN = 15; PR$M_ASTEN_KEN = 1; PR$M_ASTEN_EEN = 2; PR$M_ASTEN_SEN = 4; PR$M_ASTEN_UEN = 8;G PR$M_ASTEN_DSBL_ALL = 0; (* Disable all ASTs *)G PR$M_ASTEN_ENBL_ALL = 255; (* Enable all ASTs *)G PR$M_ASTEN_ENBL_K = 17; (* Enable kernel ASTs *)G PR$M_ASTEN_ENBL_E = 34; (* Enable executive ASTs *)G PR$M_ASTEN_ENBL_S = 68; (* Enable supervisor ASTs *)G PR$M_ASTEN_ENBL_U = 136; (* Enable user ASTs *)I PR$M_ASTEN_PRSRV_ALL = 15; (* Preserve all enable/disable states *)G PR$M_ASTEN_PRSRV_K = 1;  (* Preserve kernel enable/disable *)H PR$M_ASTEN_PRSRV_E = 2; (* Preserve executive enable/disable *)I PR$M_ASTEN_PRSRV_S = 4; (* Preserve supervisor enable/disable *)G PR$M_ASTEN_PRSRV_U = 8; (* Preserve user enable/disable *) N(*------------------------------------------------------------------- *) CONST PR$M_ASTSR = 15; PR$M_ASTSR_KPD = 1; PR$M_ASTSR_EPD = 2; PR$M_ASTSR_SPD = 4; PR$M_ASTSR_UPD = 8;G PR$M_ASTSR_CLR_ALL = 0; (* Clear pending ASTs *)G PR$M_ASTSR_SET_ALL = 255; (* Set all ASTs pending *)G PR$M_ASTSR_SET_K = 17; (* Set kernel AST pending *)G PR$M_ASTSR_SET_E = 34; (* Set executive AST pending *)G PR$M_ASTSR_SET_S = 68; (* Set supervisor AST pending *)G PR$M_ASTSR_SET_U = 136; (* Set user AST pending *)G PR$M_ASTSR_PRSRV_ALL = 15; (* Preserve all pending bits *)G PR$M_ASTSR_PRSRV_K = 1; (* Preserve kernel pending *)G PR$M_ASTSR_PRSRV_E = 2; (* Preserve executive pending *)G PR$M_ASTSR_PRSRV_S = 4; (* Preserve supervisor pending *)G PR$M_ASTSR_PRSRV_U = 8; (* Preserve user pending *) N(*------------------------------------------------------------------- *) CONST PR$M_FEN_FEN = 1; PR$M_DATFX_DATFX = 1; PR$M_IPL_IPL = 31; PR$M_MCES_MCK = 1; PR$M_MCES_SCE = 2; PR$M_MCES_PCE = 4; PR$M_MCES_DPC = 8; PR$M_MCES_DSC = 16;G PR$V_PCBB_PA = 0; (* HWPCB Physical Address *)G PR$S_PCBB_PA = 48; (* HWPCB Physical Address *) N(*------------------------------------------------------------------- *) CONST PR$M_PS_SW = 3; PR$M_PS_PRVMOD = 3; PR$M_PS_SYSSTATE = 4; PR$M_PS_CURMOD = 24; PR$M_PS_VMM = 128; PR$M_PS_IPL = 7936; PR$M_PS_SP_ALIGN = 0; PR$M_PS_MBZ_62 = 0; PR$M_PS_MBZ_63 = 0; PR$V_PS_MAX_PS_REG_BIT = 13 ; N(* *) LCONST PR$C_PS_KERNEL = 0; (* Kernel Mode *)G PR$C_PS_EXEC = 1; (* Executive Mode *)G PR$C_PS_SUPER = 2; (* Supervisor Mode *)G PR$C_PS_USER = 3; (* User Mode *) N(*------------------------------------------------------------------- *) CONST PR$M_PTBR_PFN = -1; PR$M_SCBB_PFN = -1; PR$M_SIRR_LVL = 15; PR$M_SISR_SUMMARY = 65535; PR$M_SISR_RAZ = 1; PR$M_SISR_IR1 = 2; PR$M_SISR_IR2 = 4; PR$M_SISR_IR3 = 8; PR$M_SISR_IR4 = 16; PR$M_SISR_IR5 = 32; PR$M_SISR_IR6 = 64; PR$M_SISR_IR7 = 128; PR$M_SISR_IR8 = 256; PR$M_SISR_IR9 = 512; PR$M_SISR_IR10 = 1024; PR$M_SISR_IR11 = 2048; PR$M_SISR_IR12 = 4096; PR$M_SISR_IR13 = 8192; PR$M_SISR_IR14 = 16384; PR$M_SISR_IR15 = 32768; PR$M_TBCHK_VA_PRESENT = 1; PR$M_IEEE_DNOD = 0; PR$M_IEEE_DNZ = 0; PR$M_IEEE_INVD = 0; PR$M_IEEE_DZED = 0; PR$M_IEEE_OVFD = 0; PR$M_IEEE_INV = 0; PR$M_IEEE_DZE = 0; PR$M_IEEE_OVF = 0; PR$M_IEEE_UNF = 0; PR$M_IEEE_INE = 0; PR$M_IEEE_IOV = 0; PR$M_IEEE_UNDZ = 0; PR$M_IEEE_UNFD = 0; PR$M_IEEE_INED = 0; PR$M_IEEE_SUMMARY = 0; %TYPE PR$TYPE = RECORD CASE INTEGER OFG 1: (PR$Q_QUAD_ACCESS : $UQUAD; (* Access to register as a quadword *) );X 2: (PR$L_LONG_ACCESS : ARRAY [1..2] OF UNSIGNED; (* Access to  register as a quadword *) );, 3: (PR$R_PRDEF_BITS : [BYTE(4)] RECORD END; );G 4: (PR$V_SID_SN : [POS(0)] $BIT12; (* SERIAL NUMBER FIELD *)G PR$V_SID_PL : [POS(12)] $BIT3; (* PLANT ID *)G PR$V_SID_ECO : [POS(15)] $BIT9; (* ECO LEVEL *)G PR$V_SID_TYPE : [POS(24)] $BIT8; (* CPU TYPE CODE *) );- 5: (PR$R_PRDEF_XBITS : [BYTE(4)] RECORD END; );G 6: (PR$V_XSID_TYPE : [POS(24)] $BIT8; (* CPU SUBTYPE CODE *)N(* SYSTEM ID REGISTER CPU TYPES *)N(* Number assignments are *)N(* based upon the jumpers *)N(* read by the console from *)N(* the MPS backplane *)N(* ASTEN - AST Enabled Register *)N(* *)N(* NOTE WELL: These bit symbols are to be used only when interfacing to the *)I(* ASTEN internal processor register. They are NOT to be used when *)I(* interfacing to the copy of ASTEN which is stored in the Hardware *)I(* Privileged Context Block (HWPCB). See the HWPCB-specific symbols *)I(* for how to refer to the ASTEN field in the HWPCB. *)N(*  *) );+ 7: (PR$R_ASTEN_DEF : [BYTE(1)] RECORD END; );G 8: (PR$V_ASTEN : [POS(0)] $BIT4; (* Enabled AST mask *) ); 9: ();G 10: (PR$V_ASTEN_KEN : [POS(0)] $BOOL; (* Kernel AST Enabled *)G PR$V_ASTEN_EEN : [POS(1)] $BOOL; (* Executive AST Enabled *)G PR$V_ASTEN_SEN : [POS(2)] $BOOL; (* Supervisor AST Enabled *)G PR$V_ASTEN_UEN : [POS(3)] $BOOL; (* User AST Enabled *)G  (* ASTSR - AST Summary Register *)N(* *)N(* NOTE WELL: These bit symbols are to be used only when interfacing to the *)I(* ASTSR internal processor register. They are NOT to be used when *)I(* interfacing to the copy of ASTSR which is stored in the Hardware *)I(* Privileged Context Block (HWPCB). See the HWPCB-specific symbols *)I(* for how to refer to the ASTSR field in the HWPCB.  *)N(* *) );, 11: (PR$R_ASTSR_DEF : [BYTE(1)] RECORD END; );G 12: (PR$V_ASTSR : [POS(0)] $BIT4; (* AST pending summary mask *) ); 13: ();G 14: (PR$V_ASTSR_KPD : [POS(0)] $BOOL; (* Kernel AST Pending *)G PR$V_ASTSR_EPD : [POS(1)] $BOOL; (* Executive AST Pending *)G PR$V_ASTSR_SPD : [POS(2)] $BOOL; (* Supervisor AST Pending *)G PR$V_ASTSR_UPD : [POS(3)] $BOOL; (* User AST Pending *)G (* FEN - Floating Point Enable *)N(* *)N(* NOTE WELL: These bit symbols are to be used only when interfacing to the *)I(* FEN internal processor register. They are NOT to be used when *)I(* interfacing to the copy of FEN which is stored in the Hardware *)I(* Privileged Context Block (HWPCB). See the HWPCB-specific symbols  *)I(* for how to refer to the FEN field in the HWPCB. *)N(* *) );G 15: (PR$V_FEN_FEN : [POS(0)] $BOOL; (* Floating point enabled = 1 *)N(*------------------------------------------------------------------- *)N(* DATFX - Data Alignment Trap Fixup *)N(* *) );H 16: (PR$V_DATFX_DATFX : [POS(0)] $BOOL; (* Data Alignment Trap Fixup *)N(*------------------------------------------------------------------- *)N(* IPL - Interrupt Priority Level *)N(* *) );G 17: (PR$V_IPL_IPL : [POS(0)] $BIT5; (* Interrupt Priority Level *)N(*------------------------------------------------------------------- *)N(* MCES - Machine Check Error Summary Register *)N(* *) );/ 18: (PR$R_MCES_OVERLAY : [BYTE(1)] RECORD END; );G 19: (PR$V_MCES_MCK : [POS(0)] $BOOL; (* Machine Check (W1C) *)I PR$V_MCES_SCE : [POS(1)] $BOOL; (* System Correctable Error (W1C) *)L PR$V_MCES_PCE : [POS(2)] $BOOL; (* Processor Correctable Error (W1C) *)U PR$V_MCES_DPC : [POS(3)] $BOOL; (* Disable Processor Correctable Error report *)R PR$V_MCES_DSC : [POS(4)] $BOOL; (* Disable System Correctable Error report *)i (*------------------------------------------------------------------- *)N(* PCBB - Privileged Context Block Base *)N(* *)N(* PS - Processor Status *)N(*  *)N(* The PS is not an IPR in the sense that it isn't read/written using *)N(* the MxPR operators. However, the bitfields of the PS are defined *)N(* here since this is the repository for bitfields of architected IPRs, *)N(* hence it's convenient to define them here. *)N(* *)N(* Although the 'software' field of the PS is not privileged state and *)N(* may be used by users as they see fit in User mode, VMS imposes a *)N(* privileged interpretation on the bits when used in any of the three *)N(* inner processor modes (Kernel, Executive, Supervisor). There are *)N(* consequences of this: *)N(* *)I(* 1) Should User mode code be using the software field bits, it *)B(* must be assumed that the User mode setting o f these *)B(* bits are entirely ignored by inner mode software. *)N(* *)I(* 2) VMS reserves the right to redefine its privileged (inner *)B(* mode) interpretation of these bits at any time. *)N(* *) );0 20: (PR$R_PS_SWDEF_BITS : [BYTE(1)] RECORD END; );G 21: (PR$V_PS_SW : [POS(0)] $BIT2; (* Softwa re Bits *) );- 22: (PR$R_PSDEF_BITS : [BYTE(8)] RECORD END; );G 23: (PR$V_PS_PRVMOD : [POS(0)] $BIT2; (* Previous Processor Mode *)G PR$V_PS_SYSSTATE : [POS(2)] $BOOL; (* System State Indicator *)G PR$V_PS_CURMOD : [POS(3)] $BIT2; (* Current Processor Mode *)G PR$V_PS_VMM : [POS(7)] $BOOL; (* Virtual Machine Monitor *)G PR$V_PS_IPL : [POS(8)] $BIT5; (* Interrupt Priority Level *)G PR$V_PS_SP_ALIGN : [POS(56)] $BIT6; (* Stack Pointer Alignment *)L PR$V_PS_MBZ_62 : [POS(62)] $BOOL; (* Reserved bit above SP alignment *)L PR$V_PS_MBZ_63 : [POS(63)] $BOOL; (* Reserved bit above SP alignment *)N(* *)N(* Maximum bit number used in the PS register *)N(* *)N(* MODE SYMBOL DEFINITIONS  *)N(* *)N(* PTBR - Page Table Base Register *)N(* *) );G 24: (PR$V_PTBR_PFN : [POS(0)] $BIT32; (* PFN of current L1PT *)N(*------------------------------------------------------------------- *)N(* SCBB - System Control Block Base *)N(*  *) );G 25: (PR$V_SCBB_PFN : [POS(0)] $BIT32; (* PFN of SCB *)N(*------------------------------------------------------------------- *)N(* SIRR - Software Interrupt Request Register *)N(* *) );L 26: (PR$V_SIRR_LVL : [POS(0)] $BIT4; (* Software Interrupt Request Level *)N(*---------------------------- --------------------------------------- *)N(* SISR - Software Interrupt Summary Register *)N(* *) );. 27: (PR$R_SISR_FIELDS : [BYTE(2)] RECORD END; );J 28: (PR$V_SISR_SUMMARY : [POS(0)] $BIT16; (* Sofware Interrupt Summary *) ); 29: ();G 30: (PR$V_SISR_IR1 : [POS(1)] $BOOL; (* Softint 1 pending *)G PR$V_SISR_IR2 : [POS(2)] $BOOL; (* Softint 2 pending  *)G PR$V_SISR_IR3 : [POS(3)] $BOOL; (* Softint 3 pending *)G PR$V_SISR_IR4 : [POS(4)] $BOOL; (* Softint 4 pending *)G PR$V_SISR_IR5 : [POS(5)] $BOOL; (* Softint 5 pending *)G PR$V_SISR_IR6 : [POS(6)] $BOOL; (* Softint 6 pending *)G PR$V_SISR_IR7 : [POS(7)] $BOOL; (* Softint 7 pending *)G PR$V_SISR_IR8 : [POS(8)] $BOOL; (* Softint 8 pending *)G PR$V_SISR_IR9 : [POS(9)] $BOOL; (* Softint 9 pending *)G PR$V_SISR_IR10 : [POS(10)] $BOOL; (* Softint 10 pending *)G PR$V_SISR_IR11 : [POS(11)] $BOOL; (* Softint 11 pending *)G PR$V_SISR_IR12 : [POS(12)] $BOOL; (* Softint 12 pending *)G PR$V_SISR_IR13 : [POS(13)] $BOOL; (* Softint 13 pending *)G PR$V_SISR_IR14 : [POS(14)] $BOOL; (* Softint 14 pending *)G PR$V_SISR_IR15 : [POS(15)] $BOOL; (* Softint 15 pending *)N(*------------------------------------------------------------------- *)N(* TBCHK - Translation Buffer Check *)N(* *)N(* This IPR may always be referenced with MFPR without causing an error *)N(* to occur (unlike VAX), but the feature provided by TBCHK may or may *)P(* not be implemented. If not, then =1 and *)N(* should be ignored. If TBCHK's function IS implemented, then *)N(* =0 and returns the desired data. *)N(* *) );- 31: (PR$R_TBCHK_BITS : [BYTE(8)] RECORD END; );G 32: (PR$V_TBCHK_VA_PRESENT : [POS(0)] $BOOL; (* VA in TB = 1 *)G PR$V_TBCHK_NO_TBCHK : [POS(63)] $BOOL; (* Not implemented = 1 *)N(*------------------------------------------------------------------- *)N(* FPCR - Floating Point Control Register *)N(* *)N(* NOTE WELL: These bit symbols are to be used only when interfacing to the *)M(* hardware FPCR internal processor register. They are NOT to be used when *)L(* interfacing to the software floating point control register pointed to *)J(* by CTL$GQ_IEEE_FP_CONTROL/PKTA$Q_IEEE_FP_CONTROL. *)N(*  *)K(* The hardware FPCR should only be manipulated via the system service, *)I(* SYS$IEEE_FP_CONTROL, rather than directly. *)N(* *) );, 33: (PR$R_FPCR_BITS : [BYTE(8)] RECORD END; );P 34: (PR$V_IEEE_DNOD : [POS(47)] $BOOL; (* Denormal operand exception disable *)G PR$V_IEEE_DNZ : [POS(48)] $BOOL; (* Denormal operands to 0.0 *)G PR$V_IEEE_INVD : [POS(49)] $BOOL; (* Invalid operation disable *)G PR$V_IEEE_DZED : [POS(50)] $BOOL; (* Division by zero disable *)G PR$V_IEEE_OVFD : [POS(51)] $BOOL; (* Overflow disable *)G PR$V_IEEE_INV : [POS(52)] $BOOL; (* Invalid operation. *)G PR$V_IEEE_DZE : [POS(53)] $BOOL; (* Division by zero occured. *)G PR$V_IEEE_OVF : [POS(54)] $BOOL; (* Overflow occured. *)G PR$V_IEEE_UNF : [POS(55)] $BOOL; (* Underflow occured. *)G PR$V_IEEE_INE : [POS(56)] $BOOL; (* Inexact result occured. *)G PR$V_IEEE_IOV : [POS(57)] $BOOL; (* Integer overflow occured *)G PR$V_IEEE_DYN_RND : [POS(58)] $BIT2; (* Dynamic Rounding mode *)G PR$V_IEEE_UNDZ : [POS(60)] $BOOL; (* Underflow to zero *)G PR$V_IEEE_UNFD : [POS(61)] $BOOL; (* Underflow disable *)G PR$V_IEEE_INED : [POS(62)] $BOOL; (* Inexact disable *)Q PR$V_IEEE_SUMMARY : [POS(63)] $BOOL; (* Bitwise OR of FPCR exception bits * ) ) END; (*** MODULE $PRTDEF ***) N(*+ *)N(* Protection field definitions *)N(*- *) LCONST PRT$C_NA = 0; (* No Access *)G PRT$C_KR = 3; (* Kernel Read only *)G PRT$C_KW = 2; (* Kernel Write  *)G PRT$C_ER = 7; (* Exec Read only *)G PRT$C_EW = 5; (* Exec Write *)G PRT$C_SR = 11; (* Super Read only *)G PRT$C_SW = 8; (* Super Write *)G PRT$C_UR = 15; (* User Read only *)G PRT$C_UW = 4; (* User Write *)G PRT$C_ERKW = 6; (* Exec Rea d Kernel Write *)G PRT$C_SRKW = 10; (* Super Read Kernel Write *)G PRT$C_SREW = 9; (* Super Read Exec Write *)G PRT$C_URKW = 14; (* User Read Kernel Write *)G PRT$C_UREW = 13; (* User Read Exec Write *)G PRT$C_URSW = 12; (* User Read Super Write *)G PRT$C_RESERVED = 1; (* Reserved *) N(*  *)N(* These protections are not VAX / Alpha compatible: *)N(* *) LCONST PRT$C_KRO = 16; (* Kernel Read Only *)G PRT$C_ERO = 17; (* Exec Read Only *)G PRT$C_SRO = 18; (* Super Read Only *)G PRT$C_URO = 19; (* User Read Only  *)G PRT$C_KWX = 20; (* Kernel Write+Execute *)G PRT$C_EWX = 21; (* Exec Write+Execute *)G PRT$C_SWX = 22; (* Super Write+Execute *)G PRT$C_UWX = 23; (* User Write+Execute *)G PRT$C_KPX = 24; (* Kernel promote, execute only *)G PRT$C_EPX = 25; (* Exec promote, execute only *)G PRT$C_SPX = 26; (* Super promote, execute only *)G PRT$C_UX = 27; (* User execute only *) (*** MODULE $PRVDEF ***) N(* *)N(* PRIVILEGE BIT DEFINITIONS *)N(* *) CONST PRV$M_CMKRNL = 1; PRV$M_CMEXEC = 2; PRV$M_SYSNAM = 4; PRV$M_GRPNAM = 8; PRV$M_ALLSPOOL = 16; PRV$M_IMPERSONATE = 32; PRV$M_DIAGNOSE = 64; PRV$M_LOG_IO = 128; PRV$M_GROUP = 256; PRV$M_NOACNT = 512; PRV$M_PRMCEB = 1024; PRV$M_PRMMBX = 2048; PRV$M_PSWAPM = 4096; PRV$M_SETPRI = 8192; PRV$M_SETPRV = 16384; PRV$M_TMPMBX = 32768; PRV$M_WORLD = 65536; PRV$M_MOUNT = 131072; PRV$M_OPER = 262144; PRV$M_EXQUOTA = 524288; PRV$M_NETMBX = 1048576; PRV$M_VOLPRO = 2097152; PRV$M_PHY_IO = 4194304; PRV$M_BUGCHK = 8388608; PRV$M_PRMGBL = 16777216; PRV$M_SYSGBL = 33554432; PRV$M_PFNMAP = 67108864; PRV$M_SHMEM = 134217728; PRV$M_SYSPRV = 268435456; PRV$M_BYPASS = 536870912; PRV$M_SYSLCK = 1073741824; PRV$M_SHARE = -2147483648; PRV$M_UPGRADE = 0; PRV$M_DOWNGRADE = 0; PRV$M_GRPPRV = 0; PRV$M_READALL = 0; PRV$M_IMPORT = 0; PRV$M_AUDIT = 0; PRV$M_SECURITY = 0;G PRV$K_NUMBER_OF_PRIVS = 39; (* Total number of privilege bits. *) PRV$M_ACNT = 512; PRV$M_ALTPRI = 8192; PRV$M_DETACH = 32; &TYPE PRV$TYPE = RECORD CASE INTEGER OF/ 1: (PRV$R_PRVDEF_BITS0 : [BYTE(8)] RECORD END; );G 2: (PRV$V_CMKRNL : [POS(0)] $BOOL; (* MAY CHANGE MODE TO KERNEL *)G PRV$V_CMEXEC : [POS(1)] $BOOL; (* MAY CHANGE MODE TO EXEC *)R PRV$V_SYSNAM : [POS(2)] $BOOL; (* MAY INSERT IN SYSTEM LOGICAL NAME TABLE *)Q PRV$V_GRPNAM : [POS(3)] $BOOL; (* MAY INSERT IN GROUP LOGICAL NAME TABLE *)H PRV$V_ALLSPOOL : [POS(4)] $BOOL; (* MAY ALLOCATE SPOOLED DEVICE *)U PRV$V_IMPERSONATE : [POS(5)] $BOOL; (* Replacement name for DETACH (synonyms) *)G PRV$V_DIAGNOSE : [POS(6)] $BOOL; (* MAY DIAGNOSE DEVICES *)G PRV$V_LOG_IO : [POS(7)] $BOOL; (* MAY DO LOGICAL I/O *)R PRV$V_GROUP : [POS(8)] $BOOL; (* MAY AFFECT OTHER PROCESSES IN SAME GROUP *)J PRV$V_NOACNT : [POS(9)] $BOOL; (* MAY SUPPRESS ACCOUNTING MESSAGE *)V PRV$V_PRMCEB : [POS(10)] $BOOL; (* MAY CREATE PERMANENT COMMON EVENT CLUSTERS *)H PRV$V_PRMMBX : [POS(11)] $BOOL; (* MAY CREATE PERMANENT MAILBOX *)H PRV$V_PSWAPM : [POS(12)] $BOOL; (* MAY CHANGE PROCESS SWAP MODE *)G PRV$V_SETPRI : [POS(13)] $BOOL; (* MAY SET ANY PRIORITY VALUE *)G PRV$V_SETPRV : [POS(14)] $BOOL; (* MAY SET ANY PRIVILEGE BIT *)H PRV$V_TMPMBX : [POS(15)] $BOOL; (* MAY CREATE TEMPORARY MAILBOX *)R PRV$V_WORLD : [POS(16)] $BOOL; (* MAY AFFECT OTHER PROCESSES IN THE WORLD *)J PRV$V_MOUNT : [POS(17)] $BOOL; (* MAY EXECUTE MOUNT ACP FUNCTIONS *)G PRV$V_OPER : [POS(18)] $BOOL; (* OPERATOR PRIVILEGE  *)G PRV$V_EXQUOTA : [POS(19)] $BOOL; (* MAY EXCEED QUOTAS *)G PRV$V_NETMBX : [POS(20)] $BOOL; (* MAY CREATE NETWORK DEVICE *)J PRV$V_VOLPRO : [POS(21)] $BOOL; (* MAY OVERRIDE VOLUME PROTECTION *)G PRV$V_PHY_IO : [POS(22)] $BOOL; (* MAY DO PHYSICAL I/O *)P PRV$V_BUGCHK : [POS(23)] $BOOL; (* MAY MAKE BUG CHECK ERROR LOG ENTRIES *)P PRV$V_PRMGBL : [POS(24)] $BOOL; (* MAY CREATE PERMANENT GLOBAL SECTIONS *)R PRV$V_SYSGBL : [POS(25)] $BOOL; (* MAY CREATE SYSTEM WIDE GLOBAL SECTIONS *)G PRV$V_PFNMAP : [POS(26)] $BOOL; (* MAY MAP TO SECTION BY PFN *)S PRV$V_SHMEM : [POS(27)] $BOOL; (* MAY ALLOCATE STRUCTURES IN SHARED MEMORY *)P PRV$V_SYSPRV : [POS(28)] $BOOL; (* ELIGIBLE FOR SYSTEM PROTECTION FIELD *)K PRV$V_BYPASS : [POS(29)] $BOOL; (* MAY BYPASS UIC BASED PROTECTION *)H PRV$V_SYSLCK : [POS(30)] $BOOL; (* MAY CREATE SYSTEM WIDE LOCKS *)Q PRV$V_SHARE : [POS(31)] $BOOL; (* MAY ASSIGN CHANNEL TO NON-SHARED DEVICE *)H PRV$V_UPGRADE : [POS(32)] $BOOL; (* May upgrade object integrity *)J PRV$V_DOWNGRADE : [POS(33)] $BOOL; (* May downgrade object secrecy *)_ PRV$V_GRPPRV : [POS(34)] $BOOL; (* May access group objects via system protection field *)G PRV$V_READALL : [POS(35)] $BOOL; (* May read any object *)V PRV$V_IMPORT : [POS(36)] $BOOL; (* May set classification for unlabeled object *)W PRV$V_AUDIT : [POS(37)] $BOOL; (* May direct audit to system security  audit log *)K PRV$V_SECURITY : [POS(38)] $BOOL; (* May perform security functions *)U (* XXXXXX bitfield mask; /* Reserved for SEVMS *) );/ 3: (PRV$R_PRVDEF_BITS1 : [BYTE(2)] RECORD END; );R 4: (PRV$V_ACNT : [POS(9)] $BOOL; (* MAY SUPPRESS ACCOUNTING MESSAGES (NOACNT) *)N PRV$V_ALTPRI : [POS(13)] $BOOL; (* MAY SET ANY PRIORITY VALE (SETPRI) *) );/ 5: (PRV$R_PRVDEF_BITS2 : [BYTE(8)] RECORD END; );G 6: (PRV$L_L1_BITS : [POS(0)] UNSIGNED; (* Bits in first longword *)G PRV$L_L2_BITS : [POS(32)] UNSIGNED; (* Bits in second longword *) );/ 7: (PRV$R_PRVDEF_BITS3 : [BYTE(1)] RECORD END; );H 8: (PRV$V_DETACH : [POS(5)] $BOOL; (* MAY CREATE DETACHED PROCESSES *) ) END; CONST PRV$M_SORTED = 1; PRV$M_BRIEF = 2; PRV$M_FILLED = 4; TYPE PRVDSP_BITS$TYPE = RECORDG PRV$V_SORTED : [POS(0)] $BOOL; (* sort privilege list *)G PRV$V_BRIEF : [POS(1)] $BOOL; (* display only privilege names *)G PRV$V_FILLED : [POS(2)] $BOOL; (* display names in columns *)% PRV$V_FILL_74_ : [POS(3)] $BIT5; END; TCONST PRV$K_PRVMASK_WORKING = 0; (* Working (Temporary) privs to be modified *)G PRV$K_PRVMASK_PERMANENT = 1; (* Permanent privs to be modified *)G PRV$K_PRVMASK_IMAGE = 2; (* Image privs to be modified *) "(*** MODULE $PRXDEF IDENT X-9 ***) CONST PRX$K_ADD = 1; PRX$K_DELETE = 2; PRX$K_SHOW = 3; PRX$K_VERIFY = 4; PRX$K_PERFORMANCE = 5; PRX$K_ZERO_PERFORMANCE = 6; PRX$K_CREATE = 7; PRX$K_STOP = 8; PRX$K_START = 9; PRX$K_MAX_PROXY_CODE = 10; PRX$K_PERFORMANCE_LENGTH = 48; TYPE PRX$PERFORMANCE = RECORD% PRX$L_TOTAL_MESSAGES : UNSIGNED;' PRX$L_TOTAL_EXCEPTIONS : UNSIGNED; PRX$L_SHOWS : UNSIGNED; PRX$L_ADDS : UNSIGNED; PRX$L_DELETES : UNSIGNED; PRX$L_VERIFYS : UNSIGNED;" PRX$L_PERFORMANCE : UNSIGNED; PRX$L_CREATES : UNSIGNED;  PRX$L_STOPS : UNSIGNED; PRX$L_STARTS : UNSIGNED; PRX$L_AUDITS : UNSIGNED;' PRX$L_INVALID_MESSAGES : UNSIGNED; END; CONST PRX$M_IGNORE_RETURN = 1; PRX$M_BYPASS_EXPAND = 2; PRX$M_RESERVE_1 = 252; PRX$M_DEFAULT = 256; PRX$M_EXACT = 512; PRX$M_DELETE_ALLOWED = 1024; PRX$M_FILL_1 = -2048; PRX$K_HEADER_LENGTH = 8; (TYPE PRX$HEADER = RECORD CASE INTEGER OF 1: (PRX$L_CONTEXT : UNSIGNED;+ PRX$R_FILL_77_ : [BYTE(4)] RECORD END; );& 2: (PRX$L_FLAGS : [POS(32)] UNSIGNED; ); 3: ();+ 4: (PRX$V_IGNORE_RETURN : [POS(32)] $BOOL;+ PRX$V_BYPASS_EXPAND : [POS(33)] $BOOL;% PRX$V_DEFAULT : [POS(40)] $BOOL;# PRX$V_EXACT : [POS(41)] $BOOL;, PRX$V_DELETE_ALLOWED : [POS(42)] $BOOL;% PRX$V_FILL_1 : [POS(43)] $BIT21; ) END; PRX$GENERIC_DESC1 = RECORD PRX$W_DESC_LENGTH : $UWORD; PRX$W_FILL1 : $UWORD; PRX$T_DESC_DATA : CHAR; END; "CONST PRX$K_USER_NAME_LENGTH = 32;& PRX$K_REMOTE_NODE_NAME_LENGTH = 1024; PRX$K_MAX_LOCAL_USERS = 16; PRX$K_LOCAL_USER_ENTRY = 36; TYPE DATA$TYPE = RECORD& PRX$W_LOCAL_USER_LENGTH : $UWORD; PRX$W_UNUSED_3 : $UWORD;: PRX$T_LOCAL_USER_NAME : PACKED ARRAY [1..32] OF CHAR;' PRX$W_REMOTE_USER_LENGTH : $UWORD; PRX$W_UNUSED_4 : $UWORD;; PRX$T_REMOTE_USER_NAME : PACKED ARRAY [1..32] OF CHAR;' PRX$W_REMOTE_NODE_LENGTH : $UWORD; PRX$W_UNUSED_5 : $UWORD;= PRX$T_REMOTE_NODE_NAME : PACKED ARRAY [1..1024] OF CHAR; END; CONST PRX$K_DATA_LENGTH = 1100; !TYPE BUFSIZ_SUMMARY$TYPE = RECORDG PRX$W_BUFSIZ_USER : $UWORD; (* proxy user length *)G PRX$W_BUFSIZ_NODE : $UWORD; (* proxy node length *)G PRX$W_BUFSIZ_LOCAL_COUNT : $UWORD; (* number of local users *)G PRX$W_BUFSIZ_DEF_USER : $UWORD; (* length of default user *) END; CONST PRX$K_MAX_REPLY = 1692; .TYPE REPLY_UNION$TYPE = RECORD CASE INTEGER OF0 1: (PRX$R_G ENERIC_REPLY : [BYTE(4)] RECORD END; );G 2: (PRX$L_REPLY_STATUS : [POS(0)] UNSIGNED; (* status of request *) );0 3: (PRX$R_VERIFY_REPLY : [BYTE(40)] RECORD END; );I 4: (PRX$W_VALID_USER : [POS(32)] $UWORD; (* length of proxy user_name *)N PRX$T_VALID_USER : [POS(64)] ARRAY [1..32] OF CHAR; (* proxy usernname *) );. 5: (PRX$R_SHOW_REPLY : [BYTE(88)] RECORD END; );G 6: (PRX$L_SHOW_CONTEXT : [POS(32)] UNSIGNED; (* returned context *)N PRX$W_SHOW_DEF_USER : [POS(64)] $UWORD; (* length of default user_name *)S PRX$T_SHOW_DEF_USER : [POS(96)] ARRAY [1..32] OF CHAR; (* default user_name *)N PRX$W_SHOW_REM_USER : [POS(352)] $UWORD; (* length of remote user_name *)S PRX$T_SHOW_REM_USER : [POS(384)] ARRAY [1..32] OF CHAR; (* remote user_name *)P PRX$W_SHOW_LOCAL_COUNT : [POS(640)] $UWORD; (* count of local user_names *)U PRX$W_SHOW_LOCAL_SIZE : [POS(656)] $UWORD; (* size of local user_name (bytes) *)\ PRX$R_SHOW_LOCAL_DATA : [POS(672), BYTE(4)] RECORD END; (* start of local user_names *) ); 7: () END; CONST PRX$K_MAX_LENGTH = 1108; (*** MODULE $PSCANDEF ***) N(*+ *)N(* *)N(* Process_Scan item code definitions *)N(* *)N(*-  *)N(* Item code definitions *) CONST pscan$_BEGIN = 0;G pscan$_ACCOUNT = 1; (* Match on account name *)G pscan$_AUTHPRI = 2; (* Match on authorized priority *)G pscan$_CURPRIV = 3; (* Match on current privs *)G pscan$_GRP = 4; (* Match on GRP field *)G pscan$_HW_MODEL = 5; (* Match on system's HW_MODEL *)G pscan$_HW_NAME = 6; (* Match on system's HW_NAME *)G pscan$_JOBPRCCNT = 7; (* Match on job subprocess count *)G pscan$_JOBTYPE = 8; (* Match on job origin type field *)G pscan$_MASTER_PID = 9; (* Match on PID of master process *)G pscan$_MEM = 10; (* Match on MEM field *)G pscan$_MODE = 11; (* Match on process mode *)G pscan$_NODE_CSID = 12; (* Match on system's CSID *)G pscan$_NODENAME = 13; (* Match on system's nodename *)G pscan$_OWNER = 14; (* Match on PID of owner *)G pscan$_PRCCNT = 15; (* Match on subprocess count *)G pscan$_PRCNAM = 16; (* Match on process name *)G pscan$_PRI = 17; (* Match on current priority *)G pscan$_PRIB = 18; (* Match on base priority *)G pscan$_STATE = 19; (* Match on process state *)G pscan$_STS = 20; (* Match on process status *)G pscan$_TERMINAL = 21; (* Match on terminal name *)G pscan$_UIC = 22; (* Match on UIC field *)G pscan$_USERNAME = 23; (* Match on username *)G pscan$_GETJPI_BUFFER_SIZE = 24; (* Buffer for blocking *)G pscan$_PSCAN_CONTROL_FLAGS = 25; (* Control Flags *) G pscan$_KT_COUNT = 26; (* Current count of kernel threads *)G pscan$_MULTITHREAD = 27; (* Maximum number of kernel threads *)Q pscan$_SCHED_CLASS_NAME = 28; (* Match on name of process' scheduling class *) pscan$_END = 29; pscan$k_type = 129; PSCAN$M_THREAD = 1; +TYPE PSCANCTL$TYPE = RECORD CASE INTEGER OF- 1: (PSCAN$R_FILL_79_ : [BYTE(4)] RECORD END; ); 2: (); 3: ();l 4: (PSCAN$V_THREAD : [POS(0)] $BOOL; (* Return information about each thread for multithreaded processes *) ) END; CONST pscan$M_OR = 1; pscan$M_BIT_ALL = 2; pscan$M_BIT_ANY = 4; pscan$M_GEQ = 8; pscan$M_GTR = 16; pscan$M_LEQ = 32; pscan$M_LSS = 64; pscan$M_PREFIX_MATCH = 128; pscan$M_WILDCARD = 256; pscan$M_CASE_BLIND = 512; pscan$M_EQL = 1024; pscan$M_NEQ = 2048; &TYPE item_specific_flags$TYPE = RECORDG pscan$V_OR : [POS(0)] $BOOL; (* Logical OR of items *)G pscan$V_BIT_ALL : [POS(1)] $BOOL; (* All bits set in pattern *)G pscan$V_BIT_ANY : [POS(2)] $BOOL; (* Any bit set in pattern *)" pscan$V_GEQ : [POS(3)] $BOOL;" pscan$V_GTR : [POS(4)] $BOOL;" pscan$V_LEQ : [POS(5)] $BOOL;" pscan$V_LSS : [POS(6)] $BOOL;L pscan$V_PREFIX_MATCH : [POS(7)] $BOOL; (* Match on leading substring *)G pscan$V_WILDCARD : [POS(8)] $BOOL; (* Wildcard pattern *)K pscan$V_CASE_BLIND : [POS(9)] $BOOL; (* Ignore case of text strings *)# pscan$V_EQL : [POS(10)] $BOOL;#  pscan$V_NEQ : [POS(11)] $BOOL;( pscan$v_fill_82_ : [POS(12)] $BIT4; END; (*** MODULE $PSIGDEF ***) N(* *)N(* Signature block offset definitions for the Alpha/IA64 calling standard. *)N(* *) LCONST PSIG$K_FR_I64 = 0; (* 64 bit in R0 *) N(* or - No function result provided  *) _CONST PSIG$K_FR_D64 = 1; (* 32 bit low in R0, 32 bit high in r1 - sign extended *)G PSIG$K_FR_I32 = 2; (* 32 bit sign extended in R0 *)G PSIG$K_FR_U32 = 3; (* 32 bit unsigned in R0 *)G PSIG$K_FR_FF = 4; (* F floating in F0 *)G PSIG$K_FR_FD = 5; (* D floating in F0 *)G PSIG$K_FR_FG = 6; (* G floating in F0 *)G PSIG$K_FR_FS = 7; (* S floating in F0 *)G PSIG$K_FR_FT = 8; (* T floating in F0 *)G PSIG$K_FR_FFC = 11; (* F floating complex in F0 and F1 *)G PSIG$K_FR_FDC = 12; (* D floating complex in F0 and F1 *)G PSIG$K_FR_FGC = 13; (* G floating complex in F0 and F1 *)G PSIG$K_FR_FSC = 14; (* S floating complex in F0 and F1 *)G PSIG$K_FR_FTC = 15; (* T floating complex in F0 and F1 *) N(* *) CONST PSIG$M_CTRL = 7; PSIG$M_X = 248; PSIG$M_FUNC_RETURN = 3840; PSIG$M_REG_ARG_INFO = 0; PSIG$M_SU_VLIST = 16384;G PSIG$K_MIN_LENGTH = 8; (* Minimum length *)G PSIG$K_MAX_LENGTH = 72; (* Maximum length *)G PSIG$K_MIN_SIZE = 8; (* Minimum size *)G PSIG$K_MAX_SIZE = 72; (* Maximum size *) 'TYPE PSIG$TYPE = RECORD CASE INTEGER OFJ 1: ( (* or - First parameter mechanism used *)H (* First quadword of signature block *)G (* *)9 PSIG$R_REGISTER_INFO_OVERLAY : [BYTE(8)] RECORD END; ); 2: ();, 3: (PSIG$Q_REGISTER_INFO : [POS(0)] $UQUAD; ); 4: ();G 5: (PSIG$V_CTRL : [POS(0)] $BIT3; (* Control information field *)G PSIG$V_X : [POS(3)] $BIT5; (* Not used. Must be zero *)R PSIG$V_FUNC_RETURN : [POS(8)] $BIT4; (* Function return signature encoding *)G PSIG$V_SUMMARY : [POS(12)] $BIT4; (* Entire summary field *)G PSIG$B_ARG_COUNT : [POS(16)] $UBYTE; (* Argument count *)X PSIG$V_REG_ARG_INFO : [POS(24)] $BIT32; (* Register argument signature encodings *)c PSIG$V_MEMORY_ARG_INFO : [POS(56)] $BIT8; (* Minimum length for memory argument information *)N(*  *)N(* Summary bits which are contained in the high bits of the first word *)N(* *) ); 6: ();+ 7: (PSIG$Q_SUMMARY_INFO : [POS(0)] $UQUAD; ); 8: ();# 9: (PSIG$V_FILL : [POS(0)] $BIT12;U PSIG$V_SU_ASUM : [POS(12)] $BIT2; (* summary of arguments 9 through arg_count *)N PSIG$V_SU_VLIST : [POS(14)] $BOOL; (* VAX style argument list expecte d *)% PSIG$V_UNUSED : [POS(15)] $BOOL; ) END; CONST RASE$M_SIG_ENC = 15;G RASE$K_RA_I64 = 0; (* (obsolete) *)G RASE$K_RA_NOARG = 0; (* Argument is not present *)G RASE$K_RA_Q = 1; (* 64 bit in Rxx *)G RASE$K_RA_I32 = 2; (* 32 bit sign extended in Rxx *)G RASE$K_RA_U32 = 3; (* 32 bit unsigned in Rxx *)G RASE$K_RA_FF = 4; (* F floa ting passed in Fxx *)G RASE$K_RA_FD = 5; (* D floating passed in Fxx *)G RASE$K_RA_FG = 6; (* G floating passed in Fxx *)G RASE$K_RA_FS = 7; (* S floating passed in Fxx *)G RASE$K_RA_FT = 8; (* T floating passed in Fxx *) TYPE RASE$TYPE = RECORDK RASE$V_SIG_ENC : [POS(0)] $BIT4; (* per register signature encoding *)& RASE$V_FILL_87_ : [POS(4)] $BIT4; END; LCONST MASE$K_MA_I6 4 = 0; (* (obsolete) *)G MASE$K_MA_Q = 0; (* 64 bit argument *)G MASE$K_MA_I32 = 2; (* 32 bit signed argument *) TYPE MASE$TYPE = RECORDR MASE$V_SIG_ENC : [POS(0)] $BIT2; (* per memory location signature encoding *)& MASE$V_FILL_88_ : [POS(2)] $BIT6; END; N(* *)T(* Argument Information structure definition for the  Alpha/IA64 calling standard. *)N(* *) LCONST AI$K_AR_I64 = 0; (* Integer argument *)G AI$K_AR_FF = 1; (* VAX F float argument *)G AI$K_AR_FD = 2; (* VAX D float argument *)G AI$K_AR_FG = 3; (* VAX G float argument *)G AI$K_AR_FS = 4; (* IEEE S float argument *)G AI$K_AR_FT = 5; (* IEEE T float argument *)G AI$K_AR_RESERVED_6 = 6; (* Reserved value 6 *)G AI$K_AR_RESERVED_7 = 7; (* Reserved value 7 *) AI$M_ARG_REG_INFO = 1792;G AI$K_AI_SIZE = 8; (* Minimum length *)G AI$K_REGNO = 25; (* The AI register number *) TYPE AI$TYPE = RECORD AI$B_ARG_COUNT : $UBYTE;u AI$V_ARG_REG_INFO : [POS(8),BIT(24)] PACKED ARRAY [1..8] OF $BIT3; (* per arg type info for up to 8 arguments *)G AI$V_ARG_MBZ2 : [POS(32)] $BIT32; (* must be zero *) END; (*** MODULE $PSLDEF ***) N(*+ *)N(* PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS *)N(* *)I(* This definition file provides PSL$xxxx symbols *)I(* strictly for the purpose of providing compatibility *)I(* for code being ported from VAX which refers to the *)I(* fields of the PSL. Only those fields that exist in *)I(* both architectures are defined. *)N(* *)I(* The preferred approach for code that DOES NOT run *)I(* on VAX is to use the symbols defined by the $PRDEF  *)I(* macro instead. *)N(*- *) CONST PSL$M_PRVMOD = 3; PSL$M_CURMOD = 24; PSL$M_IPL = 7936; PSL$V_MAX_PS_REG_BIT = 13; N(* *) LCONST PSL$C_KERNEL = 0; (* Kernel Mode *)G PSL$C_EXEC = 1; (* Executive Mode  *)G PSL$C_SUPER = 2; (* Supervisor Mode *)G PSL$C_USER = 3; (* User Mode *) &TYPE PSL$TYPE = RECORD CASE INTEGER OF. 1: (PSL$R_PSLDEF_BITS : [BYTE(2)] RECORD END; );G 2: (PSL$V_PRVMOD : [POS(0)] $BIT2; (* Previous Processor Mode *)G PSL$V_CURMOD : [POS(3)] $BIT2; (* Current Processor Mode *)G PSL$V_IPL : [POS(8)] $BIT5; (* Interrupt Priority Level *)G  (* *)N(* Maximum bit number used in the PS register *)N(* *)N(* MODE SYMBOL DEFINITIONS *)N(* *) ) END; (*** MODULE $PTDDEF ***) N(*+ *)N(*  *)N(* Pseudo terminal driver notification AST type definitions. *)N(* *)N(* N.B. *)I(* These definitions are in a specific order and must not be changed *)N(* without matching changes to FTUCBDEF, and FTDRIVER. *)N(*  *)N(*- *) LCONST PTD$C_SEND_XON = 0; (* Enable or disable XON AST *)G PTD$C_SEND_BELL = 1; (* Enable or disable BELL AST *)G PTD$C_SEND_XOFF = 2; (* Enable or disable XOFF AST *)H PTD$C_STOP_OUTPUT = 3; (* Enable or disable stop output AST *)J PTD$C_RESUME_OUTPUT = 4; (* Enable or disable resume output AST *)S PTD$C_CHAR_CHANGED = 5; (* Enable or disable characteristics change AST *)I PTD$C_ABORT_OUTPUT = 6; (* Enable or disable abort output AST *)G PTD$C_START_READ = 7; (* Enable or disable start read AST *)H PTD$C_MIDDLE_READ = 8; (* Enable or disable middle read AST *)G PTD$C_END_READ = 9; (* Enable or disable end read AST *)G PTD$C_ENABLE_READ = 10; (* Enable read ASTs *)G PTD$C_DISABLE_READ = 11; (* Disable read ASTs  *) PTD$C_MAX_EVENTS = 12; N(* END. *) N(* MODULE STARDEFQZ ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD  *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END;  *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP;  *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [B IT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191;   *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..10485 75; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 =  [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $QUIDEF ***) N(*   *)N(* Get Queue Information Service ($GETQUI) definitions. *)N(* *)X(* NOTE: New items must always be added at the end so users will not have to relink. *)N(* *)N(* NOTE: Update [VMSLIB.SRC]QUITABLE.MAR to reflect changes in $QUIDEF. *)N(*  *)N(* *)N(* Function codes *)N(* *) LCONST QUI$_CANCEL_OPERATION = 1; (* Cancel a wildcard operation *)H QUI$_DISPLAY_CHARACTERISTIC = 2; (* Return characteristic attributes *)G QUI$_DISPLAY_FILE = 3; (* Return file attributes *)G QUI$_DISPLAY_FORM = 4; (* Return form attributes *)G QUI$_DISPLAY_JOB = 5; (* Return job attributes *)G QUI$_DISPLAY_QUEUE = 6; (* Return queue attributes *)H QUI$_TRANSLATE_QUEUE = 7; (* Validate and translate queue name *)v QUI$_DISPLAY_ENTRY = 8; (* Return entry (job) attributes (without first having to establish queue context) *)i QUI$_DISPLAY_QMAN = 9; (* Reserved for Digital (used by job control to get qman information) *)G QUI$_DISPLAY_MANAGER = 10; (* Return queue manager attributes *)G QUI$K_MIN_FUNC = 1; (* Minimum GETQUI function code *)G QUI$K_MAX_FUNC = 10; (* Maximum GETQUI function code *) N(* *)N(* Item codes *)N(* *) LCONST QUI$_ACCOUNT_NAME = 1; (* Job: Submitter's account name *)G QUI$_AFTER_TIME = 2; (* Job: /AFTER=time *)G QUI$_ASSIGNED_QUEUE_NAME = 3; (* Queue: ASSIGN/QUEUE target *)G QUI$_BASE_PRIORITY = 4; (* Queue: /BASE_PRIORITY=n *)G QUI$_CHARACTERISTIC_NAME = 5; (* Characteristic: Name *)G QUI$_CHARACTERISTIC_NUMBER = 6; (* Characteristic: Number *)K QUI$_CHARACTERISTICS = 7; (* Job, queue: /CHARACTERISTICS=(c,...) *)G QUI$_CHECKPOINT_DATA = 8; (* Job: Checkpoint data *)G QUI$_CLI = 9; (* Job: /CLI=filename *)Q QUI$_COMPLETED_BLOCKS = 10; (* Job: Completed blocks including checkpoint *)G QUI$_CONDITION_VECTOR = 11; (* Job: Completion status *)G QUI$_CPU_DEFAULT = 12; (* Queue: /CPUDEFAULT=t *)G QUI$_CPU_LIMIT = 13; (* Job, queue: /CPUMAXIMUM=t *)G QUI$_DEVICE_NAME = 14; (* Queue: /ON=dev ice *)G QUI$_ENTRY_NUMBER = 15; (* Job: Entry number *)G QUI$_FILE_COPIES = 16; (* File: /COPIES=n *)[ QUI$_FILE_COPIES_CHKPT = 17; (* File: File copies checkpoint (for internal use only) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST QUI$_FILE_COPIES_DONE = 18; (* File: File copies completed *)G QUI$_FILE_FLAGS = 19; (* File: Boolean information  *)G QUI$_FILE_SETUP_MODULES = 20; (* File: /SETUP=(module,...) *)G QUI$_FILE_SPECIFICATION = 21; (* File: Full file specification *)G QUI$_FILE_STATUS = 22; (* File: Status information *)G QUI$_FIRST_PAGE = 23; (* File: /PAGES=(n,"") *)G QUI$_FORM_DESCRIPTION = 24; (* Form: /DESCRIPTION=string *)G QUI$_FORM_FLAGS = 25; (* Form: Boolean information *)G QUI$_FORM_LENGTH = 26; (* Form: /LENGTH=n  *)G QUI$_FORM_MARGIN_BOTTOM = 27; (* Form: /MARGIN=BOTTOM=n *)G QUI$_FORM_MARGIN_LEFT = 28; (* Form: /MARGIN=LEFT=n *)G QUI$_FORM_MARGIN_RIGHT = 29; (* Form: /MARGIN=RIGHT=n *)G QUI$_FORM_MARGIN_TOP = 30; (* Form: /MARGIN=TOP=n *)G QUI$_FORM_NAME = 31; (* Form, job, queue: Form name *)G QUI$_FORM_NUMBER = 32; (* Form: Number *)G QUI$_FORM_SETUP_MODULES = 33; (* Form: /SETUP=(module,...) *)G QUI$_FORM_STOCK = 34; (* Form: /STOCK=stock-name *)G QUI$_FORM_WIDTH = 35; (* Form: /WIDTH=n *)G QUI$_GENERIC_TARGET = 36; (* Queue: /GENERIC=(queue-name,...) *)G QUI$_INTERVENING_BLOCKS = 37; (* Job: Intervening pending blocks *)G QUI$_INTERVENING_JOBS = 38; (* Job: Intervening pending jobs *)G QUI$_JOB_COPIES = 39; (* Job: /JOB_COUNT=n *)Y QUI$_JOB_COPIES_CHKPT = 40;  (* Job: Job copies checkpoint (for internal use only) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST QUI$_JOB_COPIES_DONE = 41; (* Job: Job copies completed *)G QUI$_JOB_FLAGS = 42; (* Job: Boolean information *)G QUI$_JOB_LIMIT = 43; (* Queue: /JOB_LIMIT=n *)G QUI$_JOB_NAME = 44; (* Job: Name *)J QUI$_JOB_RESET_MODULES = 45; (* Queue: /SEPARATE=RESET=(module,...) *)G QUI$_JOB_SIZE = 46; (* Job: Total blocks in job *)G QUI$_JOB_SIZE_MAXIMUM = 47; (* Queue: /BLOCK_LIMIT=n *)G QUI$_JOB_SIZE_MINIMUM = 48; (* Queue: /BLOCK_LIMIT=(n,"") *)G QUI$_JOB_STATUS = 49; (* Job: Status information *)G QUI$_LAST_PAGE = 50; (* File: /PAGES=n *)J QUI$_LIBRARY_SPECIFICATION = 51; (* Queue: /LIBRARY=file-specification *)G QUI$_LOG_QUEUE = 52;  (* Job: /PRINTER=queue-name *)H QUI$_LOG_SPECIFICATION = 53; (* Job: /LOG_FILE=file-specification *)G QUI$_NOTE = 54; (* Job: /NOTE=string *)G QUI$_OPERATOR_REQUEST = 55; (* Job: /OPERATOR=string *)G QUI$_OWNER_UIC = 56; (* Queue: /OWNER=uic *)G QUI$_PAGE_SETUP_MODULES = 57; (* Form: /PAGE_SETUP=(module,...) *)G QUI$_PARAMETER_1 = 58; (* Job: /PARAMETER=string *) QUI$_PARAMETER_ 2 = 59; QUI$_PARAMETER_3 = 60; QUI$_PARAMETER_4 = 61; QUI$_PARAMETER_5 = 62; QUI$_PARAMETER_6 = 63; QUI$_PARAMETER_7 = 64; QUI$_PARAMETER_8 = 65;G QUI$_PRIORITY = 66; (* Job: /PRIORITY=n *)G QUI$_PROCESSOR = 67; (* Queue: /PROCESSOR=filename *)G QUI$_PROTECTION = 68; (* Queue: /PROTECTION=mask *)G QUI$_QUEUE_FLAGS = 69; (* Queue: Boolean information *)G QUI$_QUEUE_NAME = 70; (* Job, que ue: Queue name *)G QUI$_QUEUE_STATUS = 71; (* Queue: Status information *)_ QUI$_REFUSAL_REASON = 72; (* Job: Reason symbiont refused job (for internal use only) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) _CONST QUI$_REQUEUE_PRIORITY = 73; (* Job: Priority after requeue (for internal use only) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST QUI$_REQUEUE_QUEUE_NAME = 74; (* Job: Queue after requeue *)G QUI$_SCSNODE_NAME = 75; (* Queue: /ON=node:: *)G QUI$_SEARCH_FLAGS = 76; (* Flags to control search *)D QUI$_SEARCH_NAME = 77; (* Object name to search for *)G QUI$_SEARCH_NUMBER = 78; (* Object number to search for *)G QUI$_SUBMISSION_TIME = 79; (* Job: Submission time *)G QUI$_UIC = 80; (* Job: Submitter's UIC *)G QUI$_USERNAME = 81; (* Job: Submitter's username *)G QUI$_WSDEFAULT = 82; (* Job, queue: /WSDEFAULT=n *)G QUI$_WSEXTENT = 83; (* Job, queue: /WSEXTENT=n *)G QUI$_WSQUOTA = 84; (* Job, queue: /WSQUOTA=n *)I QUI$_RAD = 85; (* RAD assigned to queue or batch job *)Q QUI$_RESERVED_OUTPUT_86 = 86; (* Reserved for Digital use (name may change) *)d QUI$_JOB_CONTROL_GQC = 87; (* Reserved for Digital (Use to send GQC to job control process) *)P QUI$_SEARCH_USERNAME = 88; (* Username of owner of job to modify search *)G QUI$_DEFAULT_FORM_NAME = 89; (* Default form name on queue *)G QUI$_DEFAULT_FORM_NUMBER = 90; (* Default form number on queue *)G QUI$_DEFAULT_FORM_STOCK = 91; (* Stock name for default form *)G QUI$_JOB_PID = 92; (* Pid of batch job *)O QUI$_FILE_IDENTIFICATION = 93; (* File identification (From RMS NAM block) *)U QUI$_PENDING_JOB_BLOCK_COUNT = 94; (* Total number of blocks for all pending jobs *)o QUI$_JOB_RETENTION_TIME = 95; (* The amount of time the job should be retained (may be delta or absolute) *)K QUI$_JOB_COMPLETION_TIME = 96; (* The time the job completed execution *)[ QUI$_JOB_COMPLETION_QUEUE = 97; (* The name of the queue the job completed execution on *)Q QUI$_RESERVED_OUTPUT_98 = 98; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_99 = 99; (* Rese rved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_100 = 100; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_101 = 101; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_102 = 102; (* Reserved for Digital use (name may change) *)G QUI$_SEARCH_BATCH_EPID = 103; (* Batch job EPID to search for *)G QUI$_SEARCH_JOB_NAME = 104; (* Job name to search for *)Q QUI$_RESERVED_INPUT_105 = 105; (* Reserved for Digital use ( !name may change) *)Q QUI$_RESERVED_INPUT_106 = 106; (* Reserved for Digital use (name may change) *)H QUI$_EXECUTING_JOB_COUNT = 107; (* Number of jobs that are executing *)G QUI$_HOLDING_JOB_COUNT = 108; (* Number of holding jobs *)T QUI$_TIMED_RELEASE_JOB_COUNT = 109; (* Number of jobs specified with /AFTER_TIME *)U QUI$_PENDING_JOB_REASON = 110; (* Secondary status describing why job is pending *)G QUI$_ORB = 111; (* ORB data in TLV format *) X "(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST QUI$_QUEUE_DESCRIPTION = 112; (* Queue: /DESCRIPTION *)[ QUI$_SYMBIONT_FLAGS = 113; (* Symbiont options (requests) passed to job controller *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) `CONST QUI$_JOB_ACCESS_CLASS = 114; (* Job access class information (for internal use only) *) X(* (note this item code is intentionally # not documented and reserved for Digital use) *) yCONST QUI$_ORB_LOCK_KEY = 115; (* Key value for locking of in-memory ORB data structure (for internal use only) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) gCONST QUI$_CHECKPOINT_FREQUENCY = 116; (* Number of pages in interval at which symbiont takes chkpts *)G QUI$_PENDING_JOB_COUNT = 117; (* Number of pending jobs *)G QUI$_RETAINED_JOB_COUNT = 118; (* Number of reta$ined jobs *)h QUI$_RESTART_QUEUE_NAME = 119; (* Name of queue into which a job would be restarted, if appropriate *)G QUI$_FILE_COUNT = 120; (* Count of files in job *)n QUI$_ATTRIBUTES = 121; (* Keywds and values of extens attribs associated with queue, job, or file *)k QUI$_ATTRIBUTES_SIZE = 122; (* Length of list of extens attribs associated with queue, job, or file *)Q QUI$_QUEUE_SUPPORT = 123; (* Queue Support Images defined on this queue *%)Y QUI$_QUEUE_ATTRIBUTES = 124; (* Valid keywords for operations that alter the queue *)e QUI$_QUEUE_ATTRIBUTES_SIZE = 125; (* Length of list of keywords for queue-oriented extens attribs *)^ QUI$_JOB_ATTRIBUTES = 126; (* Valid keywords for operations that create or alter jobs *)a QUI$_JOB_ATTRIBUTES_SIZE = 127; (* Length of list of keywords for job-oriented extens attribs *)Z QUI$_FILE_ATTRIBUTES = 128; (* Valid keywords for file submissions or alter_file's *)c QUI$_FILE_ATTRIBU&TES_SIZE = 129; (* Length of list of keywords for file-oriented extens attribs *)s QUI$_AUTOSTART_ON = 130; (* Node(s) (and for print queues, device(s)) on which queue can be auto started *)G QUI$_AGENT_PROFILE = 131; (* Security information *)G QUI$_MANAGER_NAME = 132; (* Queue manager name *)Q QUI$_MANAGER_STATUS = 133; (* Queue manager state and status information *)Q QUI$_RESERVED_OUTPUT_134 = 134; (* Reserved for Digital use (name may c'hange) *)] QUI$_MANAGER_NODES = 135; (* Preferred node listed specified on start queue manager *)O QUI$_MANAGER_AUTOSTART = 136; (* List of nodes that are autostart enabled *)f QUI$_QUEUE_DIRECTORY = 137; (* Directory specification provided when queue manager was started *)Q QUI$_RESERVED_OUTPUT_138 = 138; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_139 = 139; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_140 = 140; (* Reserved( for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_141 = 141; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_142 = 142; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_143 = 143; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_144 = 144; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_145 = 145; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_146 = 146; (* Reserved f)or Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_147 = 147; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_148 = 148; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_149 = 149; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_150 = 150; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_151 = 151; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_152 = 152; (* Reserved for* Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_153 = 153; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_154 = 154; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_155 = 155; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_156 = 156; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_157 = 157; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_OUTPUT_158 = 158; (* Reserved for D+igital use (name may change) *)Q QUI$_RESERVED_OUTPUT_159 = 159; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_INPUT_160 = 160; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_INPUT_161 = 161; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_INPUT_162 = 162; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_INPUT_163 = 163; (* Reserved for Digital use (name may change) *)Q QUI$_RESERVED_INPUT_164 = 164; (* Reserved for Dig ,ital use (name may change) *)Q QUI$_RESERVED_INPUT_165 = 165; (* Reserved for Digital use (name may change) *)G QUI$K_MIN_ITEM = 1; (* Minimum GETQUI item code *)G QUI$K_MAX_ITEM = 165; (* Maximum GETQUI item code *)G QUI$_CHARGE_CODE = 1; (* synonym for QUI$_ACCOUNT_NAME *) N(* *)N(* Subfields of FILE_FLAGS item code. *)N(* - *) CONST QUI$M_FILE_BURST = 1; QUI$M_FILE_BURST_EXP = 2; QUI$M_FILE_DELETE = 4; QUI$M_FILE_DOUBLE_SPACE = 8; QUI$M_FILE_FLAG = 16; QUI$M_FILE_FLAG_EXP = 32; QUI$M_FILE_TRAILER = 64; QUI$M_FILE_TRAILER_EXP = 128; QUI$M_FILE_PAGE_HEADER = 256; QUI$M_FILE_PAGINATE = 512; QUI$M_FILE_PASSALL = 1024; QUI$M_FILE_PAGINATE_EXP = 2048;! QUI$M_FILE_DELETE_ALWAYS = 4096; TYPE FILE_FLAGS$TYPE = RECORDG. QUI$V_FILE_BURST : [POS(0)] $BOOL; (* /BURST *)d QUI$V_FILE_BURST_EXP : [POS(1)] $BOOL; (* /[NO]BURST explicit (intentionally not documented) *)G QUI$V_FILE_DELETE : [POS(2)] $BOOL; (* /DELETE *)G QUI$V_FILE_DOUBLE_SPACE : [POS(3)] $BOOL; (* /SPACE *)G QUI$V_FILE_FLAG : [POS(4)] $BOOL; (* /FLAG *)b QUI$V_FILE_FLAG_EXP : [POS(5)] $BOOL; (* /[NO]FLAG explicit (intentionally not documented) *)G QUI/$V_FILE_TRAILER : [POS(6)] $BOOL; (* /TRAILER *)h QUI$V_FILE_TRAILER_EXP : [POS(7)] $BOOL; (* /[NO]TRAILER explicit (intentionally not documented) *)G QUI$V_FILE_PAGE_HEADER : [POS(8)] $BOOL; (* /HEADER *)G QUI$V_FILE_PAGINATE : [POS(9)] $BOOL; (* /FEED *)G QUI$V_FILE_PASSALL : [POS(10)] $BOOL; (* /PASSALL *)g QUI$V_FILE_PAGINATE_EXP : [POS(11)] $BOOL; (* /[NO]FEED explicit (intentionally not documented) *)G Q 0UI$V_FILE_DELETE_ALWAYS : [POS(12)] $BOOL; (* /DELETE_ALWAYS *)% QUI$v_filler : [POS(13)] $BIT19; END; N(* *)N(* Subfields of FILE_STATUS item code. *)N(* *) "CONST QUI$M_FILE_CHECKPOINTED = 1; QUI$M_FILE_EXECUTING = 2; TYPE FILE_STATUS$TYPE = RECORDG QUI$V_FILE_CHECKPOINTED : [POS(0)] $B1OOL; (* File checkpointed *)J QUI$V_FILE_EXECUTING : [POS(1)] $BOOL; (* File currently executing *)$ QUI$v_filler : [POS(2)] $BIT30; END; N(* *)N(* Subfields of FORM_FLAGS item code. *)N(* *) CONST QUI$M_FORM_SHEET_FEED = 1; QUI$M_FORM_TRUNCATE = 2; QUI$M_FORM_WRAP = 4; TYPE FORM_FLAG 2S$TYPE = RECORDG QUI$V_FORM_SHEET_FEED : [POS(0)] $BOOL; (* /SHEET_FEED *)G QUI$V_FORM_TRUNCATE : [POS(1)] $BOOL; (* /TRUNCATE *)G QUI$V_FORM_WRAP : [POS(2)] $BOOL; (* /WRAP *)$ QUI$v_filler : [POS(3)] $BIT29; END; N(* *)N(* Subfields of JOB_FLAGS item code. *)N(* 3 *) CONST QUI$M_JOB_CPU_LIMIT = 1; QUI$M_JOB_FILE_BURST = 2; QUI$M_JOB_FILE_BURST_ONE = 4; QUI$M_JOB_FILE_BURST_EXP = 8; QUI$M_JOB_FILE_FLAG = 16; QUI$M_JOB_FILE_FLAG_ONE = 32; QUI$M_JOB_FILE_FLAG_EXP = 64; QUI$M_JOB_FILE_TRAILER = 128;" QUI$M_JOB_FILE_TRAILER_ONE = 256;" QUI$M_JOB_FILE_TRAILER_EXP = 512; QUI$M_JOB_LOG_DELETE = 1024; QUI$M_JOB_LOG_NULL = 2048; QUI$M_JOB_LOG_SPOOL = 4096; QUI$M_JOB_LOWERCASE = 8192; QUI$M_JOB_NOTIFY = 16384; QUI$M_J4OB_RESTART = 32768; QUI$M_JOB_WSDEFAULT = 65536; QUI$M_JOB_WSEXTENT = 131072; QUI$M_JOB_WSQUOTA = 262144;" QUI$M_JOB_FILE_PAGINATE = 524288;' QUI$M_JOB_FILE_PAGINATE_EXP = 1048576; QUI$M_JOB_RETENTION = 2097152;% QUI$M_JOB_ERROR_RETENTION = 4194304; QUI$M_JOB_RAD = 8388608; TYPE JOB_FLAGS$TYPE = RECORDG QUI$V_JOB_CPU_LIMIT : [POS(0)] $BOOL; (* /CPUTIME explicit *)G QUI$V_JOB_FILE_BURST : [POS(1)] $BOOL; (* /BURST=ALL *)G QUI$V_JOB_FILE_BURST_ON5E : [POS(2)] $BOOL; (* /BURST=ONE *)h QUI$V_JOB_FILE_BURST_EXP : [POS(3)] $BOOL; (* /[NO]BURST explicit (intentionally not documented) *)G QUI$V_JOB_FILE_FLAG : [POS(4)] $BOOL; (* /FLAG=ALL *)G QUI$V_JOB_FILE_FLAG_ONE : [POS(5)] $BOOL; (* /FLAG=ONE *)f QUI$V_JOB_FILE_FLAG_EXP : [POS(6)] $BOOL; (* /[NO]FLAG explicit (intentionally not documented) *)G QUI$V_JOB_FILE_TRAILER : [POS(7)] $BOOL; (* /TRAILER=ALL *)G QUI$V_JOB_FILE_TRAILER_6ONE : [POS(8)] $BOOL; (* /TRAILER=ONE *)l QUI$V_JOB_FILE_TRAILER_EXP : [POS(9)] $BOOL; (* /[NO]TRAILER explicit (intentionally not documented) *)G QUI$V_JOB_LOG_DELETE : [POS(10)] $BOOL; (* /NOKEEP *)G QUI$V_JOB_LOG_NULL : [POS(11)] $BOOL; (* /NOLOG_FILE *)G QUI$V_JOB_LOG_SPOOL : [POS(12)] $BOOL; (* /PRINTER *)G QUI$V_JOB_LOWERCASE : [POS(13)] $BOOL; (* /LOWERCASE *)G QUI$V_JOB_NOTIFY : [POS(14)] $BOOL; (* /NOTIFY 7 *)G QUI$V_JOB_RESTART : [POS(15)] $BOOL; (* /RESTART *)G QUI$V_JOB_WSDEFAULT : [POS(16)] $BOOL; (* /WSDEFAULT explicit *)G QUI$V_JOB_WSEXTENT : [POS(17)] $BOOL; (* /WSEXTENT explicit *)G QUI$V_JOB_WSQUOTA : [POS(18)] $BOOL; (* /WSQUOTA explicit *)G QUI$V_JOB_FILE_PAGINATE : [POS(19)] $BOOL; (* /FEED *)k QUI$V_JOB_FILE_PAGINATE_EXP : [POS(20)] $BOOL; (* /[NO]FEED explicit (intentionally not documented) *)G Q 8UI$V_JOB_RETENTION : [POS(21)] $BOOL; (* /RETAIN=ALWAYS *)G QUI$V_JOB_ERROR_RETENTION : [POS(22)] $BOOL; (* /RETAIN=ERROR *)G QUI$V_JOB_RAD : [POS(23)] $BOOL; (* /RAD explicit *)$ QUI$v_filler : [POS(24)] $BIT8; END; N(* *)N(* Subfields of JOB_STATUS item code. *)N(* *)9 CONST QUI$M_JOB_ABORTING = 1; QUI$M_JOB_EXECUTING = 2; QUI$M_JOB_HOLDING = 4; QUI$M_JOB_INACCESSIBLE = 8; QUI$M_JOB_REFUSED = 16; QUI$M_JOB_REQUEUE = 32; QUI$M_JOB_RESTARTING = 64; QUI$M_JOB_RETAINED = 128; QUI$M_JOB_STARTING = 256; QUI$M_JOB_TIMED_RELEASE = 512; QUI$M_JOB_SUSPENDED = 1024; QUI$M_JOB_PENDING = 2048; QUI$M_JOB_UNDEFINED = 4096; QUI$M_JOB_STALLED = 8192; QUI$M_JOB_INCOMPLETE = 16384; QUI$M_JOB_COMPLETING = 32768; TYPE JOB_STATUS$TYPE = RECORD:G QUI$V_JOB_ABORTING : [POS(0)] $BOOL; (* Job is aborting *)G QUI$V_JOB_EXECUTING : [POS(1)] $BOOL; (* Job is executing *)G QUI$V_JOB_HOLDING : [POS(2)] $BOOL; (* Job is holding for /HOLD *)G QUI$V_JOB_INACCESSIBLE : [POS(3)] $BOOL; (* Job is inaccessible *)J QUI$V_JOB_REFUSED : [POS(4)] $BOOL; (* Job was refused by symbiont *)j QUI$V_JOB_REQUEUE : [POS(5)] $BOOL; (* Job will requeue after abort (intentionally not documented) *)t QUI$V_JOB_RESTARTIN;G : [POS(6)] $BOOL; (* Job started execution at least once (intentionally not documented) *)K QUI$V_JOB_RETAINED : [POS(7)] $BOOL; (* Job was retained by /RETAIN *)G QUI$V_JOB_STARTING : [POS(8)] $BOOL; (* Job is starting *)N QUI$V_JOB_TIMED_RELEASE : [POS(9)] $BOOL; (* Job is holding for /AFTER *)X QUI$V_JOB_SUSPENDED : [POS(10)] $BOOL; (* Job is suspended by STOP/QUEUE command *)q QUI$V_JOB_PENDING : [POS(11)] $BOOL; (* Job is pending (see QUI$_JOB_PENDING_REASON f <or more information) *)j QUI$V_JOB_UNDEFINED : [POS(12)] $BOOL; (* Job does not yet exist in db or is being removed from db *)L QUI$V_JOB_STALLED : [POS(13)] $BOOL; (* Current job on stalled queue *)x QUI$V_JOB_INCOMPLETE : [POS(14)] $BOOL; (* Job was processed by the symbiont but further processing is necessary *)T QUI$V_JOB_COMPLETING : [POS(15)] $BOOL; (* Job has been completely processed *)% QUI$v_filler : [POS(16)] $BIT16; END; dCONST QUI$V_JOB_TIMED = 9; = (* Synonym for QUI$V_JOB_TIMED_RELEASE for V4 compatibility *)_ QUI$M_JOB_TIMED = 512; (* Synonym for QUI$M_JOB_TIMED_RELEASE for V4 compatibility *) N(* *)N(* Subfields of PENDING_JOB_REASON. *)N(* *)(* Note that in the descriptions below "queue" refers to the execution queue in which a job resi>des, or to the set of execution *)N(* queues that is the target of the generic queue in which a job resides. *)N(* *) #CONST QUI$M_PEND_CHAR_MISMATCH = 1; QUI$M_PEND_JOB_SIZE_MAX = 2; QUI$M_PEND_JOB_SIZE_MIN = 4;# QUI$M_PEND_LOWERCASE_MISMATCH = 8; QUI$M_PEND_NO_ACCESS = 16; QUI$M_PEND_QUEUE_BUSY = 32; QUI$M_PEND_QUEUE_STATE = 64;! QUI$M_PEND_STOCK_MISMATCH = 128; %TYPE PENDING_JOB_REASON$TYPE = REC?ORDm QUI$V_PEND_CHAR_MISMATCH : [POS(0)] $BOOL; (* Queue's characteristics do not match job's requirements *)} QUI$V_PEND_JOB_SIZE_MAX : [POS(1)] $BOOL; (* Print job's block size is too large to execute on queue (print job only) *)} QUI$V_PEND_JOB_SIZE_MIN : [POS(2)] $BOOL; (* Print job's block size is too small to execute on queue (print job only) *) QUI$V_PEND_LOWERCASE_MISMATCH : [POS(3)] $BOOL; (* Queue's lowercase attribute does not match job's requirements (print job @only) *)T QUI$V_PEND_NO_ACCESS : [POS(4)] $BOOL; (* User does not have access to queue *) QUI$V_PEND_QUEUE_BUSY : [POS(5)] $BOOL; (* Job is ready to execute but must wait until other jobs ahead of it in the queue *)u (* complete execution (this is a normal state that requires no user intervention) *) QUI$V_PEND_QUEUE_STATE : [POS(6)] $BOOL; (* Queue state prevents job from executing (see QUI$_QUEUE_STATUS for more info) *)z QUI$V_PEND_STOCK_MISM AATCH : [POS(7)] $BOOL; (* Stock type of mounted form on output execution queue does not match *)m (* stock stock type required by form associated with job (print job only) *)$ QUI$v_filler : [POS(8)] $BIT24; END; N(* *)N(* Subfields of QUEUE_FLAGS item code. *)N(* *) COBNST QUI$M_QUEUE_BATCH = 1; QUI$M_QUEUE_CPU_DEFAULT = 2; QUI$M_QUEUE_CPU_LIMIT = 4; QUI$M_QUEUE_FILE_BURST = 8;! QUI$M_QUEUE_FILE_BURST_ONE = 16; QUI$M_QUEUE_FILE_FLAG = 32; QUI$M_QUEUE_FILE_FLAG_ONE = 64; QUI$M_QUEUE_FILE_TRAILER = 128;$ QUI$M_QUEUE_FILE_TRAILER_ONE = 256; QUI$M_QUEUE_GENERIC = 512;& QUI$M_QUEUE_GENERIC_SELECTION = 1024; QUI$M_QUEUE_JOB_BURST = 2048; QUI$M_QUEUE_JOB_FLAG = 4096;# QUI$M_QUEUE_JOB_SIZE_SCHED = 8192;! QUI$M_QUEUE_JOB_TRAILER = 16384; QUI$MC_QUEUE_RETAIN_ALL = 32768;" QUI$M_QUEUE_RETAIN_ERROR = 65536; QUI$M_QUEUE_SWAP = 131072; QUI$M_QUEUE_TERMINAL = 262144; QUI$M_QUEUE_WSDEFAULT = 524288; QUI$M_QUEUE_WSEXTENT = 1048576; QUI$M_QUEUE_WSQUOTA = 2097152;% QUI$M_QUEUE_FILE_PAGINATE = 4194304;' QUI$M_QUEUE_RECORD_BLOCKING = 8388608; QUI$M_QUEUE_PRINTER = 16777216;& QUI$M_QUEUE_ACL_SPECIFIED = 33554432;, QUI$M_QUEUE_NOTIFY_ON_INTERRUPT = 67108864;) QUI$M_QUEUE_CHECKPOINT_FREQ = 134217728;# QUI$M_QUEUE_AUTOSTART = 26843 D5456;) QUI$M_SECURITY_INACCESSIBLE = 536870912;( QUI$M_QUEUE_NO_INITIAL_FF = 1073741824; QUI$M_QUEUE_RAD = -2147483648; TYPE QUEUE_FLAGS$TYPE = RECORDG QUI$V_QUEUE_BATCH : [POS(0)] $BOOL; (* /BATCH *)J QUI$V_QUEUE_CPU_DEFAULT : [POS(1)] $BOOL; (* /CPUDEFAULT specified *)H QUI$V_QUEUE_CPU_LIMIT : [POS(2)] $BOOL; (* /CPUMAXIMUM specified *)G QUI$V_QUEUE_FILE_BURST : [POS(3)] $BOOL; (* /DEFAULT=BURST=ALL *)J QUI$V_QUEUE_FILE_BURST_ONE : [POS(4)] $EBOOL; (* /DEFAULT=BURST=ONE *)G QUI$V_QUEUE_FILE_FLAG : [POS(5)] $BOOL; (* /DEFAULT=FLAG=ALL *)H QUI$V_QUEUE_FILE_FLAG_ONE : [POS(6)] $BOOL; (* /DEFAULT=FLAG=ONE *)J QUI$V_QUEUE_FILE_TRAILER : [POS(7)] $BOOL; (* /DEFAULT=TRAILER=ALL *)N QUI$V_QUEUE_FILE_TRAILER_ONE : [POS(8)] $BOOL; (* /DEFAULT=TRAILER=ONE *)G QUI$V_QUEUE_GENERIC : [POS(9)] $BOOL; (* /GENERIC *)K QUI$V_QUEUE_GENERIC_SELECTION : [POS(10)] $BOOL; (* /ENABLE_GENERIC *)G QUI$V_QUEUE_JFOB_BURST : [POS(11)] $BOOL; (* /SEPARATE=BURST *)E QUI$V_QUEUE_JOB_FLAG : [POS(12)] $BOOL; (* /SEPARATE=FLAG *)G QUI$V_QUEUE_JOB_SIZE_SCHED : [POS(13)] $BOOL; (* /SCHEDULE=SIZE *)G QUI$V_QUEUE_JOB_TRAILER : [POS(14)] $BOOL; (* /SEPARATE=TRAILER *)G QUI$V_QUEUE_RETAIN_ALL : [POS(15)] $BOOL; (* /RETAIN=ALL *)G QUI$V_QUEUE_RETAIN_ERROR : [POS(16)] $BOOL; (* /RETAIN=ERROR *)G QUI$V_QUEUE_SWAP : [POS(17)] $BOOL; (* /NODISABLE_SWAPPING *)p QUIG$V_QUEUE_TERMINAL : [POS(18)] $BOOL; (* /DEVICE=TERMINAL or terminal device type reported by symbiont *)H QUI$V_QUEUE_WSDEFAULT : [POS(19)] $BOOL; (* /WSDEFAULT specified *)G QUI$V_QUEUE_WSEXTENT : [POS(20)] $BOOL; (* /WSEXTENT specified *)G QUI$V_QUEUE_WSQUOTA : [POS(21)] $BOOL; (* /WSQUOTA specified *)G QUI$V_QUEUE_FILE_PAGINATE : [POS(22)] $BOOL; (* /DEFAULT=FEED *)J QUI$V_QUEUE_RECORD_BLOCKING : [POS(23)] $BOOL; (* /RECORD_BLOCKING *)m QUI$V_QUEUE_PRINTER : [HPOS(24)] $BOOL; (* /DEVICE=PRINTER or printer device type reported by symbiont *)X QUI$V_QUEUE_ACL_SPECIFIED : [POS(25)] $BOOL; (* ACL has been specified for queue *)R QUI$V_QUEUE_NOTIFY_ON_INTERRUPT : [POS(26)] $BOOL; (* /NOTIFY=INTERRUPTION *)Y QUI$V_QUEUE_CHECKPOINT_FREQ : [POS(27)] $BOOL; (* /CHECKPOINT_FREQUENCY specified *)K QUI$V_QUEUE_AUTOSTART : [POS(28)] $BOOL; (* /AUTOSTART_ON specified *)p QUI$V_SECURITY_INACCESSIBLE : [POS(29)] $BOOL; (* Requestor does not have I access to security information *)G QUI$V_QUEUE_NO_INITIAL_FF : [POS(30)] $BOOL; (* /NO_INITIAL_FF *)G QUI$V_QUEUE_RAD : [POS(31)] $BOOL; (* /RAD specified *) END; N(* *)N(* Subfields of QUEUE_STATUS item code. *)N(* *) CONST QUI$M_QUEUE_ALIGNING = 1; QUI$M_QUEUE_IDLE = 2; QUI$M_QJUEUE_LOWERCASE = 4;" QUI$M_QUEUE_OPERATOR_REQUEST = 8; QUI$M_QUEUE_PAUSED = 16; QUI$M_QUEUE_PAUSING = 32; QUI$M_QUEUE_REMOTE = 64; QUI$M_QUEUE_RESETTING = 128; QUI$M_QUEUE_RESUMING = 256; QUI$M_QUEUE_SERVER = 512; QUI$M_QUEUE_STALLED = 1024; QUI$M_QUEUE_STARTING = 2048; QUI$M_QUEUE_STOPPED = 4096; QUI$M_QUEUE_STOPPING = 8192;! QUI$M_QUEUE_UNAVAILABLE = 16384; QUI$M_QUEUE_CLOSED = 32768; QUI$M_QUEUE_BUSY = 65536; QUI$M_QUEUE_UNDEFINED = 131072; QUI$M_QUEUE_AVAILABLE K = 262144; QUI$M_QUEUE_DISABLED = 524288;* QUI$M_QUEUE_AUTOSTART_INACTIVE = 1048576;$ QUI$M_QUEUE_STOP_PENDING = 2097152; TYPE QUEUE_STATUS$TYPE = RECORDG QUI$V_QUEUE_ALIGNING : [POS(0)] $BOOL; (* Queue is aligning *)p QUI$V_QUEUE_IDLE : [POS(1)] $BOOL; (* Queue is idle: no jobs executing and none available for execution *)G QUI$V_QUEUE_LOWERCASE : [POS(2)] $BOOL; (* Lowercase device *)q QUI$V_QUEUE_OPERATOR_REQUEST : [POS(3)] $BOOL; (* Queue is doing /OPERATOLR (intentionally not documented) *)G QUI$V_QUEUE_PAUSED : [POS(4)] $BOOL; (* Queue is paused *)G QUI$V_QUEUE_PAUSING : [POS(5)] $BOOL; (* Queue is pausing *)G QUI$V_QUEUE_REMOTE : [POS(6)] $BOOL; (* Remote device *)a QUI$V_QUEUE_RESETTING : [POS(7)] $BOOL; (* Incomplete remote request to reset (OBSOLETE) *)U QUI$V_QUEUE_RESUMING : [POS(8)] $BOOL; (* Queue is resuming from paused state *)o QUI$V_QUEUE_SERVER : [POS(9)] $BOOL; (* /DEVICE=SERVEMR or reported to be a served queue by the symbiont *)G QUI$V_QUEUE_STALLED : [POS(10)] $BOOL; (* Device is stalled *)G QUI$V_QUEUE_STARTING : [POS(11)] $BOOL; (* Queue is starting *)G QUI$V_QUEUE_STOPPED : [POS(12)] $BOOL; (* Queue is stopped *)G QUI$V_QUEUE_STOPPING : [POS(13)] $BOOL; (* Queue is stopping *)K QUI$V_QUEUE_UNAVAILABLE : [POS(14)] $BOOL; (* Device is unavailable *)G QUI$V_QUEUE_CLOSED : [POS(15)] $BOOL; (* Queue is closed *)l N QUI$V_QUEUE_BUSY : [POS(16)] $BOOL; (* Queue is executing as many jobs as it is capable of executing *)n QUI$V_QUEUE_UNDEFINED : [POS(17)] $BOOL; (* Queue does not yet exist in db or is being removed from db *)} QUI$V_QUEUE_AVAILABLE : [POS(18)] $BOOL; (* At least one job is executing, but the queue is capable of executing more *)u QUI$V_QUEUE_DISABLED : [POS(19)] $BOOL; (* Queue is not able to accept or process jobs; its QSIs are inactive *)_ QUI$V_QUEUE_AUTOSTART_INACTIVE : O[POS(20)] $BOOL; (* AUTOSTART queue explicitly stopped *)z QUI$V_QUEUE_STOP_PENDING : [POS(21)] $BOOL; (* Queue will be stopped when work currently in progress has completed *)% QUI$v_filler : [POS(22)] $BIT10; END; N(* *)N(* Subfields of SEARCH_FLAGS item code. *)N(* *) CONST QUI$M_SEARCH_ALL_JOBPS = 1; QUI$M_SEARCH_WILDCARD = 2; QUI$M_SEARCH_BATCH = 4; QUI$M_SEARCH_SYMBIONT = 8; QUI$M_SEARCH_THIS_JOB = 16; QUI$M_SEARCH_PRINTER = 32; QUI$M_SEARCH_SERVER = 64; QUI$M_SEARCH_TERMINAL = 128; QUI$M_SEARCH_GENERIC = 256;# QUI$M_SEARCH_GENERIC_TARGET = 512;" QUI$M_SEARCH_PENDING_JOBS = 1024;$ QUI$M_SEARCH_EXECUTING_JOBS = 2048;( QUI$M_SEARCH_TIMED_RELEASE_JOBS = 4096;" QUI$M_SEARCH_HOLDING_JOBS = 8192;$ QUI$M_SEARCH_RETAINED_JOBS = 16384;% QUI$M_SEARCH_FREEZE_CONTEXT = 327 Q68; QUI$M_SEARCH_OPEN_JOBS = 65536;% QUI$M_SEARCH_RESERVED_BIT1 = 131072;% QUI$M_SEARCH_RESERVED_BIT2 = 262144; TYPE SEARCH_FLAGS$TYPE = RECORDq QUI$V_SEARCH_ALL_JOBS : [POS(0)] $BOOL; (* Select all jobs (else only those with same username as caller) *)M QUI$V_SEARCH_WILDCARD : [POS(1)] $BOOL; (* Force a wildcard operation *)G QUI$V_SEARCH_BATCH : [POS(2)] $BOOL; (* Select batch queues *) QUI$V_SEARCH_SYMBIONT : [POS(3)] $BOOL; (* Select symbiont (output) queueRs (note that QUI$V_SEARCH_SYMBIONT is equivalent *)w (* to setting QUI$V_SEARCH_PRINTER, QUI$V_SEARCH_SERVER, and QUI$V_SEARCH_TERMINAL) *)g QUI$V_SEARCH_THIS_JOB : [POS(4)] $BOOL; (* Select only caller's batch job (forcing new context) *)G QUI$V_SEARCH_PRINTER : [POS(5)] $BOOL; (* Select printer queues *)G QUI$V_SEARCH_SERVER : [POS(6)] $BOOL; (* Select server queues *)I QUI$V_SEARCH_TERMINAL : [POS(7)] $BOOL; (* Select terminal queues *)GS QUI$V_SEARCH_GENERIC : [POS(8)] $BOOL; (* Select generic queues *) QUI$V_SEARCH_GENERIC_TARGET : [POS(9)] $BOOL; (* Select generic target queues after selecting generic queue (for internal use) *)q (* (note this option is NOT supported; it is intentionally not documented and *)G (* reserved for Digital use) *)P QUI$V_SEARCH_PENDING_JOBS : [POS(10)] $BOOL; (* Select only pending jobs *)T QUI$V_SEARCH_EXECTUTING_JOBS : [POS(11)] $BOOL; (* Select only executing jobs *)\ QUI$V_SEARCH_TIMED_RELEASE_JOBS : [POS(12)] $BOOL; (* Select only timed release jobs *)P QUI$V_SEARCH_HOLDING_JOBS : [POS(13)] $BOOL; (* Select only holding jobs *)R QUI$V_SEARCH_RETAINED_JOBS : [POS(14)] $BOOL; (* Select only retained jobs *) QUI$V_SEARCH_FREEZE_CONTEXT : [POS(15)] $BOOL; (* Do not advance wildcard context to next object in list at end of operation *)J QUI$V_SEARCH_OPEN_JOBS : [POS(16)] $BOOL; ( U* Select only open jobs *)K QUI$V_SEARCH_RESERVED_BIT1 : [POS(17)] $BOOL; (* Reserved to Compaq *)K QUI$V_SEARCH_RESERVED_BIT2 : [POS(18)] $BOOL; (* Reserved to Compaq *)% QUI$v_filler : [POS(19)] $BIT13; END; N(* *)N(* Subfields of SYMBIONT_FLAGS item code. *)N(* *)X(* Note: this item code is int Ventionally not documented and reserved for Digital use. *)N(* *) CONST QUI$M_SYM_NOTIFIES = 1; QUI$M_SYM_REQUESTS_OPER = 2; QUI$M_SYM_COPIES_FILE = 4; QUI$M_SYM_COPIES_JOB = 8;" QUI$M_SYM_ACCEPTS_ALL_FORMS = 16;" QUI$M_SYM_NO_JOB_CHECKPOINT = 32; !TYPE SYMBIONT_FLAGS$TYPE = RECORDU QUI$V_SYM_NOTIFIES : [POS(0)] $BOOL; (* Symbiont notifies for job completions *)Y QUI$V_SYM_REQUESTS_OPER : [POS(1)] W$BOOL; (* Symbiont generates operator messages *)Z QUI$V_SYM_COPIES_FILE : [POS(2)] $BOOL; (* Symbiont generates multiple file copies *)X QUI$V_SYM_COPIES_JOB : [POS(3)] $BOOL; (* Symbiont generates multiple job copies *)Z QUI$V_SYM_ACCEPTS_ALL_FORMS : [POS(4)] $BOOL; (* Symbiont processes all form types *)_ QUI$V_SYM_NO_JOB_CHECKPOINT : [POS(5)] $BOOL; (* Always reprocess full job on a restart *)$ QUI$v_filler : [POS(6)] $BIT26; END; N(* X *)N(* Subfields of MANAGER_STATUS item code. *)N(* *) &CONST QUI$M_MANAGER_START_PENDING = 1; QUI$M_MANAGER_STARTING = 2; QUI$M_MANAGER_RUNNING = 4; QUI$M_MANAGER_FAILOVER = 8; QUI$M_MANAGER_STOPPING = 16; QUI$M_MANAGER_STOPPED = 32; !TYPE MANAGER_STATUS$TYPE = RECORDj QUI$V_MANAGER_START_PENDING : [POS(0)] $BOOL; (* Queue maYnager will start when a node is available *)M QUI$V_MANAGER_STARTING : [POS(1)] $BOOL; (* Queue manager is starting *)S QUI$V_MANAGER_RUNNING : [POS(2)] $BOOL; (* Queue manager is processing work *)o QUI$V_MANAGER_FAILOVER : [POS(3)] $BOOL; (* Queue manager is failing over to pick up new startup values *)R QUI$V_MANAGER_STOPPING : [POS(4)] $BOOL; (* Queue manager is shutting down *)K QUI$V_MANAGER_STOPPED : [POS(5)] $BOOL; (* Queue manager is stopped *)$ QUI$v_filler Z: [POS(6)] $BIT26; END; #(*** MODULE $QSRVDEF IDENT X-9 ***) N(* *)N(* QIOserver Control and Information ($QIOSERVER) definitions. *)N(* *)X(* NOTE: New items must always be added at the end so users will not have to relink. *)N(* *)N(* [ *)N(* Function codes *)N(* *) LCONST QSRV$_CANCEL_OPERATION = 1; (* Cancel a wildcard operation *)U QSRV$_COMMIT_VOLATILE = 2; (* Commit the volatile configuration to permanent *)H QSRV$_SET_CLIENT = 3; (* Set client configuration controls *)H QSRV$_SET_DEVICE = 4; (* Set devi\ce configuration controls *)G QSRV$_SET_LOGGING = 5; (* Set logging *)H QSRV$_SET_SERVER = 6; (* Set server configuration controls *)G QSRV$_SET_SERVICE = 7; (* Set client-server path service *)U QSRV$_SHOW_CLIENT = 8; (* Show client configuration and operational data *)G QSRV$_SHOW_DEVICE = 9; (* Show device configuration *)G QSRV$_SHOW_LOGGING = 10; (* Show logging *)U QSRV$_SHOW_SERVER] = 11; (* Show server configuration and operational data *)G QSRV$_SHOW_SERVICE = 12; (* Show client-server path service *)G QSRV$K_MIN_FUNC = 1; (* Minimum QIOSERVER function code *)G QSRV$K_MAX_FUNC = 12; (* Maximum QIOSERVER function code *) N(* *)N(* Item codes *)N(* ^ *)V(* Item codes are limited to a byte value for use with the context block validation *)N(* *) LCONST QSRV$_ADD_FILTER = 1; (* Add message event filter 3 tuple *)O QSRV$_ADD_POOL = 2; (* Add a block of memory for server I/O use *)G QSRV$_AUTO_ADD_NPP = 3; (* T/F auto add NPP for server I/O *)G QSRV$_CLEAR_FILTERS = 4; (* Clear all message event filters *_)K QSRV$_CLIENT_NAME = 5; (* Client SCSNODE name - SYSGEN SCSNODE *)P QSRV$_CLIENT_SCSSYSTEMID = 6; (* Client SCS system id - SYSGEN SCSSYSTEMID *)G QSRV$_DEFAULT_PRIORITY = 7; (* The default path priority *)G QSRV$_DELETE_POOL_BLOCK = 8; (* Remove an allocated pool block *)G QSRV$_DEVICE_NAME = 9; (* Full device name *)G QSRV$_FLAGS = 10; (* System service control flags *)G QSRV$_KCC_COUNTERS = 11; (* KClient co`nnection counter data *)G QSRV$_KCD_COUNTERS = 12; (* KClient device counter data *)G QSRV$_KCR_COUNTERS = 13; (* KClient root counter data *)G QSRV$_KSC_COUNTERS = 14; (* KServer connection counter data *)G QSRV$_KSD_COUNTERS = 15; (* KServer device counter data *)G QSRV$_KSR_COUNTERS = 16; (* KServer root counter data *)I QSRV$_KSR_FUNCTION_HISTOGRAM = 17; (* KServer function code histogram *)P QSRV$_KSR_IO_BUFFER_HISTOGRAM =a 18; (* KServer histogram of I/O buffer sizes *)G QSRV$_LIST_FILTERS = 19; (* List all message event filters *)G QSRV$_LIST_POOL_BLOCKS = 20; (* Display server I/O pool blocks *)I QSRV$_LIST_POOL_STATS = 21; (* Display server I/O pool statistics *)G QSRV$_LOG_MODE = 22; (* Logging modes *)G QSRV$_LOG_NODE = 23; (* Logging SCSNODE name *)G QSRV$_LOG_RESTART = 24; (* Restart data logging *)P QSRV$_NBRb_ALTERNATE_PATHS = 25; (* Number of client resident alternate paths *)G QSRV$_NBR_CLIENTS = 26; (* Number of clients seen by server *)I QSRV$_NBR_CLIENT_THREADS = 27; (* Number of client configure threads *)G QSRV$_NBR_CREDITS = 28; (* Number of SCS credits *)K QSRV$_NBR_DEVICES = 29; (* Number of devices seen and available *)N QSRV$_NBR_FILTERS = 30; (* Number of message event filters in list *)O QSRV$_NBR_IO_FRAGMENTS = 31; (* Max number of I/cO fragments per transfer *)G QSRV$_NBR_SERVERS = 32; (* Number of servers seen by client *)I QSRV$_NBR_SERVER_THREADS = 33; (* Number of server configure threads *)G QSRV$_PATH_STATE = 34; (* Path state *)J QSRV$_POOL_WAIT_TMO = 35; (* Number of seconds KServer Pool hold *)M QSRV$_QSLUN_AUTO = 36; (* T/F KClient to get QSLUN automatically *)L QSRV$_QSRV_COMPONENT = 37; (* Component of the QIOserver sub-system *)J QSRV$_REMOVE_FILTdER = 38; (* Remove message event filter 3 tuple *)N QSRV$_SEARCH_NAME = 39; (* Node or device name for wildcard search *)S QSRV$_SEQUENTIAL_ORDER = 40; (* T/F Order IRPs by sequence #, def - priority *)L QSRV$_SERVER_NAME = 41; (* Server SCS node name - SYSGEN SCSNODE *)P QSRV$_SERVER_SCSSYSTEMID = 42; (* Server SCS system id - SYSGEN SCSSYSTEMID *)G QSRV$_SERVICE_STATE = 43; (* Device serve/noserve state *)G QSRV$_UCC_COUNTERS = 44; (* UClient conn eection counter data *)G QSRV$_UCR_COUNTERS = 45; (* UClient root counter data *)G QSRV$_USC_COUNTERS = 46; (* UServer connection counter data *)G QSRV$_USR_COUNTERS = 47; (* UServer root counter data *)G QSRV$K_MIN_ITEM = 1; (* Minimum documented item code *)G QSRV$K_MAX_ITEM = 47; (* Maximum documented item code *) N(* *)R(* The following structuref defines the bit masks for the QSRV$_FLAGS item code. *)N(* *) CONST QSRV$M_PERMANENT = 1; QSRV$M_VOLATILE = 2; QSRV$M_ADD = 4; QSRV$M_CLIENT_CONFIG = 65536; QSRV$M_SERVER_CONFIG = 131072; QSRV$M_CLIENT_SEARCH = 262144; QSRV$M_DEVICE_SEARCH = 524288; QSRV$M_SERVER_SEARCH = 1048576; QSRV$M_SEARCH_DONE = 2097152; QSRV$M_CTX_ALLOCATED = 4194304; -TYPE QSRV_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (Q gSRV$L_FLAGS : UNSIGNED; );- 2: (QSRV$R_FLAG_BITS : [BYTE(4)] RECORD END; );K 3: (QSRV$V_PERMANENT : [POS(0)] $BOOL; (* Applies to permanent database *)I QSRV$V_VOLATILE : [POS(1)] $BOOL; (* Applies to volatile database *)R QSRV$V_ADD : [POS(2)] $BOOL; (* Allow volatile database structure creation *)` (* The following flags are reserved for Compaq internal use. *)O QSRV$V_CLIENT_CONFIG : [POS(16)] $BOOL; (* Use the client configuration h *)O QSRV$V_SERVER_CONFIG : [POS(17)] $BOOL; (* Use the server configuration *)M QSRV$V_CLIENT_SEARCH : [POS(18)] $BOOL; (* Search name is for clients *)M QSRV$V_DEVICE_SEARCH : [POS(19)] $BOOL; (* Search name is for devices *)M QSRV$V_SERVER_SEARCH : [POS(20)] $BOOL; (* Search name is for servers *)G QSRV$V_SEARCH_DONE : [POS(21)] $BOOL; (* Search is done *)K QSRV$V_CTX_ALLOCATED : [POS(22)] $BOOL; (* Allocated context block *) ) END; CONST iQSRV_FLAGS$C_LENGTH = 4; QSRV_FLAGS$K_LENGTH = 4; N(* *)U(* The following structure defines the bit masks for the QSRV$_LOG_MODE item code. *)N(* *) %CONST QSRV_LOG$M_ACTIV_UCLOG = 65536;! QSRV_LOG$M_ACTIV_USLOG = 131072;! QSRV_LOG$M_ACTIV_KCLOG = 262144;! QSRV_LOG$M_ACTIV_KSLOG = 524288; QSRV_LOG$M_ACTIV_MSG = 1048576; QSRV_LOG$M_AC jTIV_EVT = 2097152; QSRV_LOG$M_ACTIV_CNT = 4194304; QSRV_LOG$M_ACTIV_HST = 8388608;! QSRV_LOG$M_ACTIV_VBS = 16777216; +TYPE QSRV_LOG$TYPE = RECORD CASE INTEGER OF! 1: (QSRV_LOG$L_FLAGS : UNSIGNED; );, 2: (QSRV_LOG$R_BITS : [BYTE(4)] RECORD END; );M 3: (QSRV_LOG$v_filler1 : [POS(0)] $BIT16; (* Reserved Compaq internal use *)L QSRV_LOG$V_ACTIV_UCLOG : [POS(16)] $BOOL; (* Turn on Uclient logging *)L QSRV_LOG$V_ACTIV_USLOG : [POS(17)] $BOOL; (* Turn on Userver logginkg *)L QSRV_LOG$V_ACTIV_KCLOG : [POS(18)] $BOOL; (* Turn on Kclient logging *)L QSRV_LOG$V_ACTIV_KSLOG : [POS(19)] $BOOL; (* Turn on Kserver logging *)J QSRV_LOG$V_ACTIV_MSG : [POS(20)] $BOOL; (* Turn on message logging *)H QSRV_LOG$V_ACTIV_EVT : [POS(21)] $BOOL; (* Turn on event logging *)J QSRV_LOG$V_ACTIV_CNT : [POS(22)] $BOOL; (* Turn on counter logging *)L QSRV_LOG$V_ACTIV_HST : [POS(23)] $BOOL; (* Turn on histogram logging *)P QSRV_LOG$V_ACTIV_VBS : [POS(24)] $B lOOL; (* Turn on QIO$CONFIGURE verbose *)M QSRV_LOG$v_filler2 : [POS(25)] $BIT7; (* Reserved Compaq internal use *) ) END; CONST QSRV_LOG$C_LENGTH = 4; QSRV_LOG$K_LENGTH = 4; N(* *)N(* Message logging type codes *)N(* *) LCONST QSRV$K_MSG_SCS = 1; (* SCS messages m *)G QSRV$K_MSG_QSP = 2; (* QSP messages *)K QSRV$K_MSG_ICC_CONN = 3; (* ICC messages - connection management *)G QSRV$K_MSG_ICC_DATA = 4; (* ICC messages - data transfer *)R QSRV$K_MIN_MSG = 1; (* Minimum documented message filter type code *)R QSRV$K_MAX_MSG = 4; (* Minimum documented message filter type code *) N(* *)N(* The fol nlowing structure defines the data required to specify or receive *)N(* a logging data filter tuple. Associated with QSRV$_ADD_FILTER, *)N(* QSV$_LIST_FILTERS, and QSRV$_REMOVE_FILTER item codes. *)N(* *) TYPE QSRV_FILTER$TYPE = RECORDQ QSRV_FILTER$t_node : PACKED ARRAY [1..16] OF CHAR; (* Message source node *)G QSRV_FILTER$l_type : UNSIGNED; (* Message source type *)U o QSRV_FILTER$t_device : PACKED ARRAY [1..64] OF CHAR; (* Message source device *) END; CONST QSRV_FILTER$C_LENGTH = 84; QSRV_FILTER$K_LENGTH = 84; N(* *)N(* The following structure is used to receive histogram data *)N(* with QSRV$_KSR_FUNCTION_HISTOGRAM and QSRV$_KSR_IO_BUFFER_HISTOGRAM *)N(* item codes. *)N(* p *)N(* The bucket_count is within the range 1 to 64. data[1] to data[64] *)N(* will hold the in range histogram data. data[0] will hold the *)N(* underflow data and data[65] will hold the overflow data. This *)N(* structure is for reporting predefined histograms via item code. The *)N(* low value is in bucket_base and the high value is bucket_base plus *)N(* bucket_range. q *)N(* *) !TYPE QSRV_HISTOGRAM$TYPE = RECORDJ QSRV_HISTOGRAM$L_BUCKET_COUNT : UNSIGNED; (* Number of buckets - 2 *)6 QSRV_HISTOGRAM$B_FILL_0_ : ARRAY [0..3] OF $BYTE;G QSRV_HISTOGRAM$Q_BUCKET_BASE : $UQUAD; (* Base value *)G QSRV_HISTOGRAM$Q_BUCKET_RANGE : $UQUAD; (* Value range *)J QSRV_HISTOGRAM$Q_DATA : ARRAY [1..66] OF $UQUAD; (* Histogram data r*) END; %CONST QSRV_HISTOGRAM$C_UNDERFLOW = 0; QSRV_HISTOGRAM$C_OVERFLOW = 65; QSRV_HISTOGRAM$C_LENGTH = 552; QSRV_HISTOGRAM$K_LENGTH = 552; N(* *)N(* The following structure is used for the IOSB declaration. The IOSB is a *)O(* 2 longword structure which is initialized to zero by the QIOSERVER system *)Q(* service as part of request initialization. The first longword will receive *)N(* the final condi stion code for the request as determined by QIO$CONFIGURE. *)N(* *) TYPE QSRV_IOSB$TYPE = RECORDG QSRV_IOSB$l_pri_status : UNSIGNED; (* Primary request status *)G QSRV_IOSB$l_sec_status : UNSIGNED; (* Secondary request status *) END; CONST QSRV_IOSB$C_LENGTH = 8; QSRV_IOSB$K_LENGTH = 8; N(* *)R(* The following structure dtefines the bit masks for the QSRV$_DEFAULT_PRIORITY *)N(* and QSRV$_PATH_STATE item codes. *)N(* *)O(* For the QSRV$_DEFAULT_PRIORITY item code only the priority mask is valid. *)N(* *)O(* For the QSRV$_PATH_STATE item code an array of two of these structures is *)P(* used. The first entry contains a mask of t uhe associated bits in the value *)N(* component (second entry) which are valid for the operation during a SET *)N(* function. Only the value component is filled for a SHOW function. *)N(* *) !CONST QSRV_PATH$M_PRIORITY = 255;% QSRV_PATH$M_LOCAL2SERVER = 67108864; QSRV_PATH$M_QVALID = 134217728; QSRV_PATH$M_VALID = 268435456; QSRV_PATH$M_SERVED = 536870912;$ QSRV_PATH$M_EXCLUSIVE = 1073741824;# QSRV_PATH v$M_CURRENT = -2147483648; QSRV_PATH$m_filler2 = 67108863;' QSRV_PATH$M_USEABLE_PATH = 1006632960;# QSRV_PATH$m_filler3 = -1073741824; ,TYPE QSRV_PATH$TYPE = RECORD CASE INTEGER OFG 1: (QSRV_PATH$L_PATH_STATE : UNSIGNED; (* Path state *) );8 2: (QSRV_PATH$R_PATH_STATE_BITS : [BYTE(4)] RECORD END; );G 3: (QSRV_PATH$V_PRIORITY : [POS(0)] $BIT8; (* Path priority *)T QSRV_PATH$V_LOCAL2SERVER : [POS(26)] $BOOL; (* Device is local to the server *)G w QSRV_PATH$V_QVALID : [POS(27)] $BOOL; (* Path QSLUN is valid *)G QSRV_PATH$V_VALID : [POS(28)] $BOOL; (* Path is valid *)G QSRV_PATH$V_SERVED : [POS(29)] $BOOL; (* Path is served *)G QSRV_PATH$V_EXCLUSIVE : [POS(30)] $BOOL; (* Path exclusivity *)O QSRV_PATH$V_CURRENT : [POS(31)] $BOOL; (* This path is the current path *) );: 4: (QSRV_PATH$R_PATH_USEABLE_BITS : [BYTE(4)] RECORD END; );+ 5: (QSRV_PATH$v_filler2 : [POS(0)] $BIT26;W x QSRV_PATH$V_USEABLE_PATH : [POS(26)] $BIT4; (* Mask for Qvalid,valid,and served *)+ QSRV_PATH$v_filler3 : [POS(30)] $BIT2; ) END; CONST QSRV_PATH$C_LENGTH = 4; QSRV_PATH$K_LENGTH = 4; N(* *)N(* The following structure defines bit masks for the QSRV$_ADD_POOL item *)N(* code and a structure for the QSRV$_DELETE_POOL_BLOCK item code. *)N(* y *) $CONST QSRV_POOL$M_SIZE = 2147483647; QSRV_POOL$M_NPP = -2147483648; ,TYPE QSRV_POOL$TYPE = RECORD CASE INTEGER OFG 1: (QSRV_POOL$L_BLOCK_ID : UNSIGNED; (* ID of pool block to delete *) );I 2: (QSRV_POOL$R_ADD_BLOCK_BITS : [BYTE(4)] RECORD END; (* Add to pool *) );G 3: (QSRV_POOL$V_SIZE : [POS(0)] $BIT31; (* Number of bytes *)G QSRV_POOL$V_NPP : [POS(31)] $BOOL; (* From non-paged pool and *)N(* from S2 space if not set z *) );G 4: (QSRV_POOL$L_MODIFY : UNSIGNED; (* Change to pool *) ) END; CONST QSRV_POOL$C_LENGTH = 4; QSRV_POOL$K_LENGTH = 4; N(* *)N(* The following structure defines the data for the QSRV$_LIST_POOL_STATS *)N(* item code. *)N(* { *) ,TYPE QSRV_PLST$TYPE = RECORD CASE INTEGER OF3 1: (QSRV_PLST$R_POOL_STAT : [BYTE(56)] RECORD END; );S 2: (QSRV_PLST$L_TOT_SIZE : [POS(0)] UNSIGNED; (* Total number of bytes for type *)T QSRV_PLST$L_FREE_SIZE : [POS(32)] UNSIGNED; (* Amount of free space in bytes *)R QSRV_PLST$L_NBR_BLOCKs : [POS(64)] UNSIGNED; (* Number of active additions *)T QSRV_PLST$L_NBR_FRAGMENTS : [POS(96)] UNSIGNED; (* Total number of fragments *)] QSRV_PLST$L_MAX_FRA |G_SIZE : [POS(128)] UNSIGNED; (* Size in bytes of largest fragment *)W QSRV_PLST$L_NPP_ADD_REQS : [POS(160)] UNSIGNED; (* Count of requests to add NPP *)R QSRV_PLST$L_MAX_NPP_ADD_REQ : [POS(192)] UNSIGNED; (* Max NPP request size *) ) END; N(* *)N(* The following constants may be used to reference the pool statistics *)N(* data defined previously. *)N }(* *) LCONST QSRV_PLST$K_S2 = 0; (* S2 Space pool *)G QSRV_PLST$K_NPP = 1; (* Non-paged pool *) QSRV_PLST$C_LENGTH = 56; QSRV_PLST$K_LENGTH = 56; N(* *)N(* The following structure defines the data for the QSRV$_LIST_POOL_BLOCKS *)N(* item code. ~ *)N(* *) %CONST QSRV_PLBLK$M_SIZE = 2147483647; QSRV_PLBLK$M_NPP = -2147483648; -TYPE QSRV_PLBLK$TYPE = RECORD CASE INTEGER OFG 1: (QSRV_PLBLK$L_BLOCK_ID : UNSIGNED; (* Block identifier *)4 QSRV_PLBLK$R_BLOCK_DESC : [BYTE(4)] RECORD END;K QSRV_PLBLK$L_FREE_SIZE : UNSIGNED; (* Amount of free space in bytes *)K QSRV_PLBLK$L_NBR_FRAGMENTS : UNSIGNED; (* Total number of fragments *)S QSRV_PLBLK$L_MAX_FRAG_SIZE : UNSIGNED; (* Size in bytes of largest fragment *) );7 2: (QSRV_PLBLK$L_BLOCK_SIZE_TYPE : [POS(32)] UNSIGNED; ); 3: ();I 4: (QSRV_PLBLK$V_SIZE : [POS(32)] $BIT31; (* Number of bytes in block *)I QSRV_PLBLK$V_NPP : [POS(63)] $BOOL; (* From non-paged pool if set *) ) END; CONST QSRV_PLBLK$C_LENGTH = 20; QSRV_PLBLK$K_LENGTH = 20; N(* *)N(* The following structure defines the data for the QSRV$_KCR_COUNTERS *)N(* item code. It will receive QIOServer Client root data. *)N(* *) TYPE QSRV_KCRC$TYPE = RECORDG QSRV_KCRC$L_DRIVERS : UNSIGNED; (* Number of drivers configured *)G QSRV_KCRC$L_DEVICES : UNSIGNED; (* Number of devices configured *)W QSRV_KCRC$L_ACT_SERVER_CONNS : UNSIGNED; (* Number of active server connect ions *)U QSRV_KCRC$L_TOT_SERVERS_SEEN : UNSIGNED; (* Total number of servers ever seen *)P QSRV_KCRC$Q_CYCLES_PER_SEC : $UQUAD; (* Number of cycle ticks per second *)Q QSRV_KCRC$Q_TOT_SIO_TICS : $UQUAD; (* Accumulated CPU time per simple I/O *)G QSRV_KCRC$Q_TOT_SIO : $UQUAD; (* Total simple I/Os *) END; CONST QSRV_KCRC$C_LENGTH = 40; QSRV_KCRC$K_LENGTH = 40; N(* *)N(* The following structure defines the data for the QSRV$_KCC_COUNTERS *)N(* item code. It will receive QIOServer Client connection event data. *)N(* *)N(* QSRV_KCRC$L_SERVERS indicates the number of active connections. *)N(* *) TYPE QSRV_KCCC$TYPE = RECORDV QSRV_KCCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of server for this connection *)S QSRV_KCCC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations on this connection *)^ QSRV_KCCC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations on this connection *)^ QSRV_KCCC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations on this connection *)c QSRV_KCCC$Q_NBR_CONN : $UQUAD; (* Number of times a connection has been made to this server *)G QSRV_KCCC$Q_CONN_TIME : $UQUAD; (* Time of last connection *)d QSRV_KCCC$Q_NBR_DEVICES : $UQUAD; (* Number  of devices using this connection as current path *)f QSRV_KCCC$L_OPS_STALLED : UNSIGNED; (* Total operations stalled in Kclient for this connection *)^ QSRV_KCCC$W_CREDIT_WAIT : $UWORD; (* SCS credit waits for this connection from the CDT *)G QSRV_KCCC$w_reserved_1 : $UWORD; (* Reserved for alignment *) END; CONST QSRV_KCCC$C_LENGTH = 64; QSRV_KCCC$K_LENGTH = 64; N(* *)N(* The following struc ture defines the data for the QSRV$_KCD_COUNTERS *)N(* item code. It will receive QIOServer Client device data. *)N(* *)N(* QSRV_KCRC$L_DEVICES indicates the number of devices. *)N(* *) ,TYPE QSRV_KCDC$TYPE = RECORD CASE INTEGER OF6 1: (QSRV_KCDC$r_name_overlay : [BYTE(16)] RECORD END;O QSRV_KCDC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations to this device *)Z QSRV_KCDC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations to this device *)Z QSRV_KCDC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations to this device *)G QSRV_KCDC$Q_RT_TIME : $UQUAD; (* Overall round-trip time *)] QSRV_KCDC$L_OPS_IN_SERVER : UNSIGNED; (* Current operations in server for this device *)b QSRV_KCDC$L_OPS_STALLED : UNSIGNED; (* Total operations stalled in Kclient for this device *)O QSRV_KCDC$L_PATHS : UNSIGNED; (* Total paths configured for this device *)% QSRV_KCDC$l_reserved : UNSIGNED; );^ 2: (QSRV_KCDC$T_NAME : [POS(0)] PACKED ARRAY [1..16] OF CHAR; (* Device name in ASCIC form *) ); 3: ();Z 4: (QSRV_KCDC$T_NAME_STR : [POS(8)] PACKED ARRAY [1..15] OF CHAR; (* Character string *) );, 5: (QSRV_KCDC$B_NAME_LEN : [POS(0)] $UBYTE; ); 6: ();G 7: (QSRV_KCDC$IB_NAME_LEN : [POS(0)] $UBYTE; (* Character count *) )  END; CONST QSRV_KCDC$C_LENGTH = 64; QSRV_KCDC$K_LENGTH = 64; N(* *)N(* The following structure defines the data for the QSRV$_KSR_COUNTERS *)N(* item code. It will receive QIOServer Server root data. *)N(* *) TYPE QSRV_KSRC$TYPE = RECORDG QSRV_KSRC$L_DEVICES : UNSIGNED; (* Number of devices configured *)]  QSRV_KSRC$L_ACT_CLIENT_CONNS : UNSIGNED; (* Number of active connections with clients *)U QSRV_KSRC$L_TOT_CLIENTS_SEEN : UNSIGNED; (* Total number of clients ever seen *)1 QSRV_KSRC$B_FILL_3_ : ARRAY [0..3] OF $BYTE;P QSRV_KSRC$Q_CYCLES_PER_SEC : $UQUAD; (* Number of cycle ticks per second *)I QSRV_KSRC$Q_PEAK_BUFFER : $UQUAD; (* Peak buffer pool usage in KB *)Y QSRV_KSRC$Q_BUFFER_WAIT : $UQUAD; (* Number of times I/Os waited for buffer space *)L QSRV_KSRC$Q_FRAGM ENTS : $UQUAD; (* Number of I/O fragments performed *)L QSRV_KSRC$Q_FRAG_IO : $UQUAD; (* Number of I/O operations fragmented *)V QSRV_KSRC$Q_QSMQE_EXP : $UQUAD; (* Number of times Kserver expanded QSMQE list *)O QSRV_KSRC$Q_PEAK_QSMQE : $UQUAD; (* Max number of QSMQEs ever allocated *)Q QSRV_KSRC$Q_TOT_SIO_TICS : $UQUAD; (* Accumulated CPU time per simple I/O *)E QSRV_KSRC$Q_TOT_SIO : $UQUAD; (* Total simple I/O operations *) END; CONST QSRV_KSRC$C_LENGTH = 88; QSRV_KSRC$K_LENGTH = 88; N(* *)N(* The following structure defines the data for the QSRV$_KSC_COUNTERS *)N(* item code. It will receive QIOServer Server connection event data. *)N(* *)N(* QSRV_KSRC$L_CLIENTS indicates the number of connections. *)N(* *) TYPE QSRV_KSCC$TYPE = RECORDV QSRV_KSCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of client for this connection *)S QSRV_KSCC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations on this connection *)^ QSRV_KSCC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations on this connection *)^ QSRV_KSCC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations on this connection *)c QSRV_KSCC$Q_NBR_CONN : $UQUAD; (* Number of times a connection has been made to this client *)G  QSRV_KSCC$Q_CONN_TIME : $UQUAD; (* Time of last connection *)\ QSRV_KSCC$Q_BAD_MSGS : $UQUAD; (* Number of bad messages received on this connection *)Q QSRV_KSCC$W_CREDIT_WAIT : $UWORD; (* SCS credit waits for this connection *)M QSRV_KSCC$W_BDLT_WAIT : $UWORD; (* SCS BDLT waits for this connection *)% QSRV_KSCC$l_reserved : UNSIGNED; END; CONST QSRV_KSCC$C_LENGTH = 64; QSRV_KSCC$K_LENGTH = 64; N(*  *)N(* The following structure defines the data for the QSRV$_KSD_COUNTERS *)N(* item code. It will receive QIOServer server device data. *)N(* *)N(* QSRV_KSRC$L_DEVICES indicates the number of devices. *)N(* *) ,TYPE QSRV_KSDC$TYPE = RECORD CASE INTEGER OF6 1: (QSRV_KSDC$r_name_overlay : [BYTE(16)] RECORD END;O QSRV_KSDC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations to this device *)Z QSRV_KSDC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations to this device *)Z QSRV_KSDC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations to this device *)f QSRV_KSDC$Q_SIO_DEV_TIME : $UQUAD; (* Total time spent in the device for simple I/O operations *)c QSRV_KSDC$L_QUEUE_LENGTH : UNSIGNED; (* Number of operations in the device now from Kserver *)K QSRV_KSDC$L_OPS_STALLED : UNSIGNED; (* Number of operations stalled *) );^ 2: (QSRV_KSDC$T_NAME : [POS(0)] PACKED ARRAY [1..16] OF CHAR; (* Device name in ASCIC form *) ); 3: ();Z 4: (QSRV_KSDC$T_NAME_STR : [POS(8)] PACKED ARRAY [1..15] OF CHAR; (* Character string *) );, 5: (QSRV_KSDC$B_NAME_LEN : [POS(0)] $UBYTE; ); 6: ();G 7: (QSRV_KSDC$IB_NAME_LEN : [POS(0)] $UBYTE; (* Character count *) ) END; CONST QSRV_KSDC$C_LENGTH = 56; QSRV_KSDC$K_LENGTH = 56; N(* *)N(* The following structure defines the data for the QSRV$_UCR_COUNTERS *)N(* item code. It will receive QIO$CONFIGURE Client root data. *)N(* *) TYPE QSRV_UCRC$TYPE = RECORDG QSRV_UCRC$L_DEVICES : UNSIGNED; (* Number of configured devices *)I QSRV_UCRC$L_PATHS : UNSIGNED; (* Total number of configured p aths *)M QSRV_UCRC$L_SERVERS : UNSIGNED; (* Total number of configured servers *)R QSRV_UCRC$L_PK_DC_THREADS : UNSIGNED; (* Peak device configuration threads *)H QSRV_UCRC$L_PK_SRV_THREAD : UNSIGNED; (* Peak servers per thread *)1 QSRV_UCRC$B_FILL_6_ : ARRAY [0..3] OF $BYTE;N QSRV_UCRC$Q_SYSMGT_RQSTS : $UQUAD; (* Total system management requests *)H QSRV_UCRC$Q_UBUF_WAITS : $UQUAD; (* Total waits for Ubuf/Uapibuf *) END; CONST QSRV_UCRC$C_LENGTH = 40; QSRV_UC RC$K_LENGTH = 40; N(* *)N(* The following structure defines the data for the QSRV$_UCC_COUNTERS *)N(* item code. It will receive QIO$CONFIGURE Client connection event data. *)N(* *)N(* QSRV_UCRC$L_SERVERS indicates the number of connections. *)N(* *)N(* Note that Uclient does not maintain an active connection to a server; *)N(* it establishes a connection only when Uclient wants something. These *)N(* counters count all events since Uclient discovered the server. *)N(* *) TYPE QSRV_UCCC$TYPE = RECORDG QSRV_UCCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of this server *)W QSRV_UCCC$Q_CONNECTIONS : $UQUAD; (* Number of ICC connections made to a se rver *)G QSRV_UCCC$Q_CONN_TIME : $UQUAD; (* Time of last ICC connection *)I QSRV_UCCC$Q_DC_MSGS : $UQUAD; (* Number of device config messages *)Q QSRV_UCCC$Q_CM_MSGS : $UQUAD; (* Number of connection management messages *) END; CONST QSRV_UCCC$C_LENGTH = 40; QSRV_UCCC$K_LENGTH = 40; N(* *)N(* The following structure defines the data for the QSRV$_USR_COUNTERS *)N(* item code. It will rec eive QIO$CONFIGURE Server root data. *)N(* *) TYPE QSRV_USRC$TYPE = RECORDG QSRV_USRC$L_DEVICES : UNSIGNED; (* Number of configured devices *)M QSRV_USRC$L_CLIENTS : UNSIGNED; (* Total number of configured servers *)R QSRV_USRC$L_PK_DC_THREADS : UNSIGNED; (* Peak device configuration threads *)H QSRV_USRC$L_PK_CLT_THREAD : UNSIGNED; (* Peak clients per thread *)N QSRV_USRC$Q_SYSMGT_RQ STS : $UQUAD; (* Total system management requests *)H QSRV_USRC$Q_UBUF_WAITS : $UQUAD; (* Total waits for Ubuf/Uapibuf *) END; CONST QSRV_USRC$C_LENGTH = 32; QSRV_USRC$K_LENGTH = 32; N(* *)N(* The following structure defines the data for the QSRV$_USC_COUNTERS *)N(* item code. It will receive QIO$CONFIGURE Server connection event data. *)N(*  *)N(* QSRV_USRC$L_CLIENTS indicates the number of connections. *)N(* *)P(* These counters count all events since Userver was connected to the client. *)N(* *) TYPE QSRV_USCC$TYPE = RECORDG QSRV_USCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of this client *)W QSRV_USCC$Q_CONNECTIONS : $UQUAD; (* Number of ICC co nnections made to a client *)G QSRV_USCC$Q_CONN_TIME : $UQUAD; (* Time of last ICC connection *)I QSRV_USCC$Q_DC_MSGS : $UQUAD; (* Number of device config messages *)Q QSRV_USCC$Q_CM_MSGS : $UQUAD; (* Number of connection management messages *) END; CONST QSRV_USCC$C_LENGTH = 40; QSRV_USCC$K_LENGTH = 40; N(* *)N(* QIOserver Counters Buffer. This defines the buffer header, *)N(* and contains a union of all the various counter types included. *)N(* *)N(* *)N(* The following structure defines the data for the common portion of *)N(* each of the counter item codes and forms the root structure. *)N(* *) -CONST QSRV_COUNTERS$M_RESERVED_FLAGS = 65535; 1TYPE QSRV_CNTR_ROOT$TYPE = RECORD CASE INTEGER OFI 1: (QSRV_COUNTERS$L_KC_VERS : UNSIGNED; (* KClient version identifier *)I QSRV_COUNTERS$L_KS_VERS : UNSIGNED; (* KServer version identifier *)m QSRV_COUNTERS$W_COUNTERS_TYPE : $UWORD; (* Counter type -- value matches the system service item code *)p QSRV_COUNTERS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; (* Flags -- passed from QIO$CONFIGURE to requestor *)k QSRV_COUNTERS$L_SIZE : UNSIGNED; (* Size in bytes of counters structure returned from QIO$CONFIGURE *)P QSRV_COUNTERS$Q_TIME : $UQUAD; (* System Time when the counters obtained *) );. 2: (QSRV_COUNTERS$W_FLAGS : [POS(80)] $UWORD; ); 3: ();X 4: (QSRV_COUNTERS$V_RESERVED_FLAGS : [POS(80)] $BIT16; (* No flags currently defined *) ) END; #CONST QSRV_CNTR_ROOT$C_LENGTH = 24; QSRV_CNTR_ROOT$K_LENGTH = 24; N(* Note changes to this structure will need to be matched in *)N(* [LIB]QSMQEDEF  *) )CONST QSRV_COUNTERS$K_KCROOT_LENGTH = 64;$ QSRV_COUNTERS$K_KCCONN_LENGTH = 88;# QSRV_COUNTERS$K_KCDEV_LENGTH = 88;% QSRV_COUNTERS$K_KSROOT_LENGTH = 112;$ QSRV_COUNTERS$K_KSCONN_LENGTH = 88;# QSRV_COUNTERS$K_KSDEV_LENGTH = 80;$ QSRV_COUNTERS$K_UCROOT_LENGTH = 64;$ QSRV_COUNTERS$K_UCCONN_LENGTH = 64;$ QSRV_COUNTERS$K_USROOT_LENGTH = 56;$ QSRV_COUNTERS$K_USCONN_LENGTH = 64; 0TYPE QSRV_COUNTERS$TYPE = RECORD CASE INTEGER OF8 1 : (QSRV_COUNTERS$R_QSRVCNTRROOT : QSRV_CNTR_ROOT$TYPE;P QSRV_COUNTERS$R_COUNTERS_BODY : [BYTE(88)] RECORD END; (* Counters union *) );T 2: (QSRV_COUNTERS$R_KCROOT : [POS(192)] QSRV_KCRC$TYPE; (* Kclient root counters *) );Z 3: (QSRV_COUNTERS$R_KCCONN : [POS(192)] QSRV_KCCC$TYPE; (* Kclient connection counters *) );U 4: (QSRV_COUNTERS$R_KCDEV : [POS(192)] QSRV_KCDC$TYPE; (* Kclient device counters *) );T 5: (QSRV_COUNTERS$R_KSROOT : [POS(192)] QSRV_KSRC$TYPE; (* Ks erver root counters *) );Z 6: (QSRV_COUNTERS$R_KSCONN : [POS(192)] QSRV_KSCC$TYPE; (* Kserver connection counters *) );U 7: (QSRV_COUNTERS$R_KSDEV : [POS(192)] QSRV_KSDC$TYPE; (* Kserver device counters *) );T 8: (QSRV_COUNTERS$R_UCROOT : [POS(192)] QSRV_UCRC$TYPE; (* Uclient root counters *) );Z 9: (QSRV_COUNTERS$R_UCCONN : [POS(192)] QSRV_UCCC$TYPE; (* Uclient connection counters *) );U 10: (QSRV_COUNTERS$R_USROOT : [POS(192)] QSRV_USRC$TYPE; (* Userver root counters *) );[ 11: (QSRV_COUNTERS$R_USCONN : [POS(192)] QSRV_USCC$TYPE; (* Userver connection counters *) ) END; #CONST QSRV_COUNTERS$C_LENGTH = 112; QSRV_COUNTERS$K_LENGTH = 112; (*** MODULE $RMIDEF ***) N(*+ *)N(* Get System Performance Information Data Identifier Definitions *)N(* *)I(* The following constants define the items which can be collected *)I(* with the Get System Performance Information service (GETRMI). *)I(* The item numbers are defined as follows: *)N(* *)I(* 16 12 0 *)I(* +------------------+-------------+ *)I(* | Structure number | Item number |  *)I(* +------------------+-------------+ *)N(* *)K(* The top four bits represent the structure of the item and the last 12 *)I(* bits represent the item within the structure. *)N(* *)N(******* Caution! *)N(******* This file is no longer intended to be modified. *)N(******* *)N(* The following had been guidelines for adding symbols to RMIDEF. *)N(* This interface is now defined in [STARLET]GETSYIDEF.SDL. *)N(* Therefore, changing any item number is unacceptable. Some spare item *)O(* number exist in each range; if these are ever exhausted, new ranges must *)N(* be defined and support added, rather than changing item numbers. *)N(* *)N(* As any enhancements are mode to $GETRMI, changes should be made to *)N(* STARLET, and modules should be changed to use the new GETRMI$ symbols *)N(* to replace RMI$ symbols. *)N(* *)L(* * The item numbers start *)N(* * at 0 and increase sequentially to the last item (even across tables). *)N(* * If new items are added to a table, programs MUST be relinked to allow *)L(* * the old definitions to change. This was done to simplify some table *)M(* * lookups in the Monitor Utility. To get around this, new items can be *)L(* * added at the end of the list. *)N(* * *)O(* * Each table has one item at the end to act as a place holder. It should *)M(* * have the same item number as the first item of the next table. These *)S(* * items are not counters in the total number of RMI items GETRMI$_TABLESIZE. *)N(*- *)N(* DEFINE TABLE TYPES *) LCONST RMI$C_EXETYPE = 1; (* Executive cells *)G RMI$C_EWSTYPE = 2; (* Executive wr itable storage area *)G RMI$C_MONTYPE = 3; (* Monitor specific items *)G RMI$C_RMSTYPE = 4; (* Monitor RMS specific items *)G RMI$C_EX2TYPE = 5; (* Ececutive cells extension *)G RMI$C_LISTEND = 0; (* End of table list *) N(* *)T(* The following section defines items which are collected during initialization. *)P(* There items include general system information, and server version number. *)N(* The server version number is also defined here. *)N(* *) LCONST RMI$_initial = -1; (* Initialization item list *)G RMI$_data_collection = -2; (* Data collection item list *)G RMI$_sysinfo = -3; (* System information item *)G RMI$_version_number = -4; (* Monitor vers ion number *)G RMI$_rms_file = -5; (* Parse file name *)G RMI$_rms_gs = -6; (* Get global section address *) RMI$_last_type = -7; RMI$_server_version = 5; N(* *)N(* Define bits in the PMS flags field PMS$GL_FLAGS. These are used to *)N(* synchronize access to some PMS field and enable other activity. *)N(*  *) +TYPE rmi$pms_flags = RECORD CASE INTEGER OFU 1: (RMI$l_flags : [BYTE(4)] RECORD END; (* Class qualifier flags for CDB (Active) *) );Y 2: (RMI$v_disk_enable : [POS(0)] $BOOL; (* YES => Enable disk queue length collection *)\ (* This field must be accessed via an interlocked *)G (* bit instruction. *)K RMI$v_filler1 : [POS(1)] $BIT7; (* Fill out remainder of first byte *)^ RMI$v_disk_sync : [POS(8)] $BOOL; (* YES => Synchronize access to several PMS counters *)Z (* used in the collection of disk queue length. *)\ (* This field must be accessed via an interlocked *)X (* bit instruction, AND MUST BE IN A SEPARATE *)X (* BYTE from the disk_enable bit (required by *)\  (* the architecture to maintain synchronization). *)G RMI$v_filler2 : [POS(9)] $BIT23; (* Fill out remainder of field *) ) END; N(* *)N(* Define two contants to handle help handle large lookaside lists. The *)N(* maximum number that RMISHR will count to is defined with *)N(* RMI$K_MAX_PACKET and the value returned when this threshold is *)N(* reached is defi ned as RMI$K_POOL_OVF. *)N(* *) CONST RMI$k_max_packet = 500; RMI$k_pool_ovf = -2147483647; N(* *)N(* Define item identifier numbers. Each data item has an associated *)N(* value which is used to find its entry in the EXETBL. The item table *)N(* is defined by the macros RMI_GENERATE_TABLE which  makes multiple calls *)N(* to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. *)N(* *) LCONST RMI$_MODES = 4096; (* All modes counters on all CPU's *)I RMI$_INTERRUPT = 4097; (* time on interrupt stack -- primary *)G RMI$_KERNEL = 4098; (* time in kernel mode -- primary *)G RMI$_EXEC = 4099; (* time in exec mode -- primary *)I RMI$_SUPER = 4100; (* time in supervisor mode -- primary *)G RMI$_USER = 4101; (* time in user mode -- primary *)G RMI$_COMPAT = 4102; (* time in compat. mode -- primary *)Q RMI$_INTERRUPT_BUSY = 4103; (* Time spent RMInning on the interrupt stack *)N RMI$_KERNEL_BUSY = 4104; (* Time spent RMInning on the lernel stack *)G RMI$_IDLE = 4105; (* idle time -- primary *)G RMI$_CPUBUSY = 4106; (* RETIRED ITEM - RETURNS 0 *)G RMI$_COLPG = 4107; (* collided page wait *)G RMI$_MWAIT = 4108; (* memory wait *)G RMI$_CEF = 4109; (* common event flag wait *)G RMI$_PFW = 4110; (* page wait *)G RMI$_LEF = 4111; (* local event flag wait *)G RMI$_LEFO = 4112; (* lef wait out of bal. set *)G RMI$_HIB = 4113; (* hibernating *)G RMI$_HIBO = 4114; (* hibernating outswapped *)G RMI$_SUSP = 4115; (* suspended *)G RMI$_SUSPO = 4116; (* suspended outswapped *)G RMI$_FPG = 4117; (* free page wait *)G RMI$_COM = 4118; (* computing *)G RMI$_COMO = 4119; (* computable outswapped *)G RMI$_CUR = 4120;  (* current *)G RMI$_OTHSTAT = 4121; (* RETIRED ITEM - RETURNS 0 *)G RMI$_PROCS = 4122; (* process count for SYSTEM class *)G RMI$_PROC = 4123; (* collect all process information *)G RMI$_FRLIST = 4124; (* size of free list *)G RMI$_MODLIST = 4125; (* size of modified list *)G RMI$_FAULTS = 4126; (* page fault count *)G RMI$_PREADS = 4127; (* page reads *)G RMI$_PWRITES = 4128; (* page writes *)G RMI$_PWRITIO = 4129; (* physical page write I/O's *)G RMI$_PREADIO = 4130; (* physical page read I/O's *)G RMI$_GVALFLTS = 4131; (* global valid faults *)G RMI$_WRTINPROG = 4132; (* faults from write in progress *)G RMI$_FREFLTS = 4133; (* faults from free list *)G RMI$_MFYFLTS = 4134; (* faults from modified list *)G RMI$_DZROFLTS = 4135; (* demand zero faults *)G RMI$_SYSFAULTS = 4136; (* system page faults *)G RMI$_LRPCNT = 4137; (* number of LRP packets available *)G RMI$_LRPINUSE = 4138; (* number of LRPs in use *)G RMI$_IRPCNT = 4139; (* number of IRP packets available *)G RMI$_IRPINUSE = 4140; (* number of IRPs in use *)G RMI$_SRPCNT = 4141; (* number of SRP packets available *)G RMI$_SRPINUSE = 4142; (* number of SRPs in use *)G RMI$_HOLECNT = 4143; (* number of blocks in dyn. memory *)G RMI$_BIGHOLE = 4144; (* largest hole *)G RMI$_SMALLHOLE = 4145; (* smallest hole *)K RMI$_HOLESUM = 4146; (* total space in dyn. memory available *)G RMI$_DYNINUSE = 4147; (* dynamic memory space in use *)J RMI$_SMALLCNT = 4148; (* number of blocks < 32 bytes in size *)G RMI$_ISWPCNT = 4149; (* total inswaps *)G RMI$_DIRIO = 4150; (* count of direct I/Os *)G RMI$_BUFIO = 4151; (* count of buffered I/Os *)G RMI$_MBREADS = 4152; (* total mailbox reads *)G RMI$_MBWRITES = 4153; (* total mailbox writes *)G RMI$_LOGNAM = 4154; (* logical name translations *)G RMI$_FCPCALLS = 4155; (* total fcp calls *)G RMI$_FCPREAD = 4156; (* number of disk reads by FCP *)G RMI$_FCPWRITE = 4157; (* number of disk writes by FCP *)G RMI$_FCPCACHE = 4158; (* number of FCP cache hits *)G RMI$_FCPCPU = 4159; (* number of CPU tics by FCP *)G RMI$_FCPHIT = 4160; (* number of window hits *)G RMI$_FCPSPLIT = 4161;  (* number of split transfers *)G RMI$_FCPFAULT = 4162; (* number of FCP page faults *)G RMI$_ENQNEW = 4163; (* number of ENQ's (new) *)G RMI$_ENQCVT = 4164; (* number of ENQ's (conversions) *)G RMI$_DEQ = 4165; (* number of DEQ's *)G RMI$_BLKAST = 4166; (* number of blocking AST's *)G RMI$_ENQWAIT = 4167; (* number of ENQ's forced to wait *)G RMI$_ENQNOTQD = 4168; (* number of ENQ's not queued *)G RMI$_DLCKSRCH = 4169; (* number of deadlock searches *)G RMI$_DLCKFND = 4170; (* number of deadlocks found *)G RMI$_NUMLOCKS = 4171; (* total locks *)G RMI$_NUMRES = 4172; (* total resources *)G RMI$_ARRLOCPK = 4173; (* arriving local packets *)G RMI$_DEPLOCPK = 4174; (* departing local packets *)G RMI$_ARRTRAPK = 4175; (* arriving transit packets *)G RMI$_TRCNGLOS = 4176; (* transit congestion loss *)G RMI$_RCVBUFFL = 4177; (* receiver buffer failures *)G RMI$_RESERVED1 = 4178; (* Reserved PMS location 1 *)G RMI$_RESERVED2 = 4179; (* Reserved PMS location 2 *)G RMI$_RESERVED3 = 4180; (* Reserved PMS location 3 *)G RMI$_RESERVED4 = 4181; (* Reserved PMS location 4  *)G RMI$_RESERVED5 = 4182; (* Reserved PMS location 5 *)G RMI$_RESERVED6 = 4183; (* Reserved PMS location 6 *)G RMI$_RESERVED7 = 4184; (* Reserved PMS location 7 *)G RMI$_RESERVED8 = 4185; (* Reserved PMS location 8 *)G RMI$_RESERVED9 = 4186; (* Reserved PMS location 9 *)G RMI$_RESERVED10 = 4187; (* Reserved PMS location 10 *)G RMI$_RESERVED11 = 4188; (* Reserved PMS location 11 *)G RMI$_RESERVED12 = 4189; (* Reserved PMS location 12 *)G RMI$_RESERVED13 = 4190; (* Reserved PMS location 13 *)G RMI$_RESERVED14 = 4191; (* Reserved PMS location 14 *)G RMI$_RESERVED15 = 4192; (* Reserved PMS location 15 *)G RMI$_RESERVED16 = 4193; (* Reserved PMS location 16 *)G RMI$_RESERVED17 = 4194; (* Reserved PMS location 17 *)G RMI$_RESERVED18 = 4195; (* Reserved PMS location 18 *)G RMI$_FID_TRIES = 4196; (* count of File Id cache attempts *)J RMI$_FILHDR_TRIES = 4197; (* count of File header cache attempts *)N RMI$_DIRFCB_TRIES = 4198; (* count of Directory block cache attempts *)M RMI$_DIRDATA_TRIES = 4199; (* count of Directory data cache attempts *)G RMI$_EXT_TRIES = 4200; (* count of Extent cache attempts *)G RMI$_QUO_TRIES = 4201; (* count of Quota cache attempts *)M RMI$_STORAGMAP_TRIES = 4202; (* count of storage bitmap cache attempts *)G RMI$_DISKS = 4203; (* all disk data *)q RMI$_TOTAL_LOCKS = 4204; (* Total of all locking activity - NOT COLLECTED BY RMI - COMPUTED BY MONITOR *)G RMI$_ENQNEWLOC = 4205; (* new lock requests (local) *)G RMI$_ENQNEWIN = 4206; (* new lock requests (incoming) *)G RMI$_ENQNEWOUT = 4207; (* new lock requests (outgoing) *)G RMI$_ENQCVTLOC = 4208;  (* lock conversion requests (local) *)J RMI$_ENQCVTIN = 4209; (* lock conversion requests (incoming) *)J RMI$_ENQCVTOUT = 4210; (* lock conversion requests (outgoing) *)G RMI$_DEQLOC = 4211; (* dequeues (local) *)G RMI$_DEQIN = 4212; (* dequeues (incoming) *)G RMI$_DEQOUT = 4213; (* dequeues (outgoing) *)G RMI$_BLKLOC = 4214; (* blocking ASTs queued (local) *)G RMI$_BLKIN = 4215; (* blocking ASTs queued (incoming) *)G RMI$_BLKOUT = 4216; (* blocking ASTs queued (outgoing) *)G RMI$_DIRIN = 4217; (* directory operations (incoming) *)G RMI$_DIROUT = 4218; (* directory operations (outgoing) *)M RMI$_DLCKMSGS = 4219; (* deadlock detection messages (in & out) *)G RMI$_SCS = 4220; (* All SCS information *)G RMI$_SYSTIME = 4221; (* Current system time *)I RMI$_MSCP_REQUEST = 4222; (* IO request rate to the MSCP server *)K RMI$_MSCP_READ = 4223; (* Read request rate to the MSCP server *)L RMI$_MSCP_WRITE = 4224; (* Write request rate to the MSCP server *)I RMI$_MSCP_FRAGMENT = 4225; (* Rate at which I/O's are fragmented *)G RMI$_MSCP_SPLIT = 4226; (* Rate at which I/O's are split *)` RMI$_MSCP_BUFWAIT = 4227; (* Rate at which incoming requests have to wait for a buffer *)G RMI$_MSCP_SIZE1 = 4228; (* I/O rate for sizes 1-2 blocks *)G RMI$_MSCP_SIZE2 = 4229; (* I/O rate for sizes 2-3 blocks *)G RMI$_MSCP_SIZE3 = 4230; (* I/O rate for sizes 4-7 blocks *)G RMI$_MSCP_SIZE4 = 4231; (* I/O rate for sizes 8-15 blocks *)G RMI$_MSCP_SIZE5 = 4232; (* I/O rate for sizes 16-31 blocks *)G RMI$_MSCP_SIZE6 = 4233; (* I/O rate for sizes 32-63 blocks *)G RMI$_MSCP_SIZE7 = 4234; (* I/O rate for sizes 64-127 blocks *)X RMI$_MSCP_ALL = 4235; (* Dummy item to collect all MSCP server class items *)G RMI$_DDTM_STARTS = 4236; (* Local Transaction starts *)G RMI$_DDTM_PREPARES = 4237; (* Local Transaction prepare event *)I RMI$_DDTM_ONE_PHASE = 4238; (* Transaction ONE_PHASE commit event *)d RMI$_DDTM_COMMITS = 4239; (* Local Transaction commit event (sum of phase 1 and 2 commits) *)G RMI$_DDTM_ABORTS = 4240; (* Local Transaction abort event *)G RMI$_DDTM_ENDS = 4241;  (* Local Transaction ends *)G RMI$_DDTM_BRANCHS = 4242; (* Start branch event *)G RMI$_DDTM_ADDS = 4243; (* Add branch event *)G RMI$_DDTM_BUCKETS1 = 4244; (* TPS rate for < 1 *)G RMI$_DDTM_BUCKETS2 = 4245; (* TPS rate for 1-2 *)G RMI$_DDTM_BUCKETS3 = 4246; (* TPS rate for 2-3 *)G RMI$_DDTM_BUCKETS4 = 4247; (* TPS rate for 3-4 *)G RMI$_DDTM_BUC KETS5 = 4248; (* TPS rate for 4-5 *)G RMI$_DDTM_BUCKETS6 = 4249; (* TPS rate for > 6 *)X RMI$_DDTM_ALL = 4250; (* Dummy item to collect all TRANSACTION class items *)G RMI$_VECTORP = 4251; (* Vector Processor tics scheduled *)G RMI$_VBYTE_READ = 4252; (* VBS bytes read *)G RMI$_VBYTE_WRITE = 4253; (* VBS bytes written *) RMI$_VVBS_TRAN = 4254; RMI$_VRBS_TRAN = 4255; RMI$_VD IO_SEL = 4256; RMI$_VDIOMAP_ALLOC = 4257; RMI$_VRBS_AVAIL = 4258; RMI$_VSEL_FAIL = 4259; RMI$_VVBSM_HIT = 4260; RMI$_VVBSM_CACHE = 4261; RMI$_VFLUIDBAL = 4262; RMI$_VRECOPY = 4263; RMI$_VCPUTICKS = 4264;k RMI$_MSCP_EVERYTHING = 4265; (* All MSCP server class items including the NEW items not in MSCP_ALL *)G RMI$_TMSCP_EVERYTHING = 4266; (* All TMSCP server class items *)I RMI$_DDTM_TWOPHASE_ACKRCV = 4267; (* # of 2 PHASE commit ack msg rcvd *)I RMI$_DDTM_TWOPHASE_ACKSNT = 4268; (* # of 2 PHASE commit ack msg sent *)L RMI$_DDTM_TWOPHASE_CANRCV = 4269; (* # of 2 PHASE commit cancel msg rcvd *)L RMI$_DDTM_TWOPHASE_CANSNT = 4270; (* # of 2 PHASE commit cancel msg sent *)K RMI$_DDTM_TWOPHASE_RDYRCV = 4271; (* # of 2 PHASE commit ready msg rcvd *)K RMI$_DDTM_TWOPHASE_RDYSNT = 4272; (* # of 2 PHASE commit ready msg sent *)M RMI$_DDTM_TWOPHASE_REQRCV = 4273; (* # of 2 PHASE commit request msg rcvd *)M RMI$_DDTM_TWOPHASE_REQSNT = 4274; (* # of 2 PHASE commit request msg sent *)H RMI$_DDTM_TWOPHASE_COMMITS = 4275; (* Total # of phase 2 transitions *)G RMI$_DDTM_DECLARES = 4276; (* Total # of $DECLARE_RMs *)G RMI$_DDTM_JOINS = 4277; (* Total # of $JOIN_RMs *)G RMI$_DDTM_FORGETS = 4278; (* Total # of $FORGET_RMs *)G RMI$_DDTM_SEQNO = 4279; (* Total # of XCBs created *)G RMI$_DDTM_LOG_COMMITS = 4280; (* # of Commit records written *)G RMI$_DDTM_LOG_PREPARES = 4281; (* # of Prepare records written *)G RMI$_DDTM_LOG_FORGETS = 4282; (* # of Forget records written *)G RMI$_DDTM_WRITES_STARTED = 4283; (* # of Writes started *)G RMI$_DDTM_WRITES_FORKED = 4284; (* # of forked writes *)G RMI$_DDTM_BAD_TYPECODE = 4285; (* # of bad msg typecodes rcvd *)G RMI$_DDTM_BAD_LINKS = 4286; (* # of bad msg links rcvd *)G RMI$_DDTM_FOR_UNLINKS = 4287; (* # of forced unlinks *)G RMI$_DDTM_VOL_UNLINKS = 4288; (* # of voluntary unlinks *)G RMI$_DDTM_DISC_COMP = 4289; (* # of disconnect complete events *)G RMI$_DDTM_BAD_PARTS = 4290; (* # of invalid part ids found *)X RMI$_LCKMGR_CPU = 4291; (* The ID of the cpu on which the lock manager runs. *)N RMI$_LCKMGR_PID = 4292; (* Process ID of the lock manager process. *)a RMI$_LCKMGR_REQCNT = 4293; (* Accumulated count of requests handled by the lock manager. *)e RMI$_LCKMGR_REQTIME = 4294; (* Accumulated time spent by the lock manager servicing requests. *)_ RMI$_LCKMGR_SPINCNT = 4295; (* The number of times the lock manager entered a spinloop. *)_ RMI$_LCKMGR_SPINTIME = 4296; (* Spin time in cycles, the lock manager spent in spinloop. *)G RMI$_LOCK_MAX = 4297; (* The length of the Lock ID Table. *)T RMI$_LPZ_PAKSIZ = 4298; (* Its the lock manager's pool zone packet size. *)a RMI$_LPZ_PAGCNT = 4299; (* Number of pages currently in the lock manager's pool zone. *)g RMI$_LPZ_MAXPAG = 4300; (* Its the maximum number of pages in the lock manager's pool zone. *)j RMI$_LPZ_FREEPGCNT = 4301; (* The number of free pages currently in the lock manager's pool zone. *)[ RMI$_LPZ_HITS = 4302; (* The number of hits for the lock manager's pool zone. *)] RMI$_LPZ_MISSES = 4303; (* The number of misses for the lock manager's pool zone. *)` RMI$_LPZ_EXPCNT = 4304; (* The number of expansions of the lock manager's pool zone. *)j RMI$_LPZ_ALLOCF = 4305; (* The number of failed allocations from the lock manager's pool zone. *) RMI$_LPZ_ALLOC2 = 4306; (* The number of allocations from other than the first page of the lock manager's pool zone. *)e RMI$_LPZ_EMPTY = 4307; (* Its the number of empty pages in the lock manager's pool zone. *)Z RMI$_RML_ACQUIRE = 4308; (* System-wide count of lock trees moved to this node. *) RMI$_RML_BETTER = 4309; (* Count of lock trees moved from this node to a cluster node with a higher value for SYSGEN param LOCKDIRWT. *) RMI$_RML_MORE_ACT = 4310; (* Count of lock trees moved from this node due to a higher locking activity on another node in the cluster. *)X RMI$_RML_MSGRCV = 4311; (* Count of remaster messages received by this node. *)V RMI$_RML_MSGSENT = 4312; (* Count of remaster messages sent from this node. *)h RMI$_RML_NOQUOTA = 4313; (* Count of remaster operations which failed due to a lack of quota. *)e RMI$_RML_NOTAKER = 4314; (* Count of remaster operations which were proposed and declined. *)^ RMI$_RML_OPCNT = 4315; (* Count of remaster operations which have been completed. *)` RMI$_RML_RBLDMSGRCV = 4316; (* Count of remaster rebuild messages received by this node. *)^ RMI$_RML_RBLDMSGSENT = 4317; (* Count of remaster rebuild messages sent from this node. *) RMI$_RML_SINGLE = 4318; (* Count of lock trees moved from this node to another cluster node which is the only node with locks remaining on the tree *)P RMI$_RML_UNLOAD = 4319; (* Count of lock trees moved from this node. *)G RMI$_RESERVEDEXE1 = 4320; (* Reserved EXE items *)G RMI$_RESERVEDEXE2 = 4321; (* Reserved EXE items *)G RMI$_RESERVEDEXE3 = 4322; (* Reserved EXE items *)G RMI$_RESERVEDEXE4 = 4323; (* Reserved EXE items *)G RMI$_RESERVEDEXE5 = 4324; (* Reserved EXE items  *)G RMI$_RESERVEDEXE6 = 4325; (* Reserved EXE items *)G RMI$_RESERVEDEXE7 = 4326; (* Reserved EXE items *)G RMI$_RESERVEDEXE8 = 4327; (* Reserved EXE items *)G RMI$_RESERVEDEXE9 = 4328; (* Reserved EXE items *)G RMI$_RESERVEDEXE10 = 4329; (* Reserved EXE items *)G RMI$_RESERVEDEXE11 = 4330; (* Reserved EXE items *)G RMI$_RESERVEDEXE12 = 4331; (* Reserved EXE  items *)G RMI$_RESERVEDEXE13 = 4332; (* Reserved EXE items *)G RMI$_RESERVEDEXE14 = 4333; (* Reserved EXE items *)G RMI$_RESERVEDEXE15 = 4334; (* Reserved EXE items *)G RMI$_RESERVEDEXE16 = 4335; (* Reserved EXE items *)G RMI$_LASTEXE = 4336; (* Last item in the EXE table *) N(* *)N(* These next items are located in an executive writable page in memory *)N(* *) LCONST RMI$_ACCESS = 8432; (* number of file accesses *)G RMI$_ALLOC = 8433; (* number of file extends *)G RMI$_FCPCREATE = 8434; (* number of file creations *)L RMI$_VOLWAIT = 8435; (* # of times XQP waited for volume lock *)G RMI$_FCPTURN = 8436; (* number of window turns  *)G RMI$_FCPERASE = 8437; (* number of erase calls *)G RMI$_OPENS = 8438; (* number of file opens *)G RMI$_FIDHIT = 8439; (* count of File Id cache hits *)G RMI$_FIDMISS = 8440; (* count of File Id cache misses *)G RMI$_FILHDR_HIT = 8441; (* count of File header cache hits *)J RMI$_DIRFCB_HIT = 8442; (* count of Directory block cache hits *)L RMI$_DIRFCB_MISS = 8443; (* count of Directory block cache misses *)I RMI$_DIRDATA_HIT = 8444; (* count of Directory data cache hits *)G RMI$_EXTHIT = 8445; (* count of Extent cache hits *)G RMI$_EXTMISS = 8446; (* count of Extent cache misses *)G RMI$_QUOHIT = 8447; (* count of Quota cache hits *)G RMI$_QUOMISS = 8448; (* count of Quota cache misses *)I RMI$_STORAGMAP_HIT = 8449; (* count of storage bitmap cache hits *)G RMI$_VOLLCK = 8450;  (* Volume synch locks *)G RMI$_SYNCHLCK = 8451; (* directory and file synch locks *)_ RMI$_SYNCHWAIT = 8452; (* # of times XQP waited for a directory or file synch lock *)G RMI$_ACCLCK = 8453; (* access locks *)[ RMI$_XQPCACHEWAIT = 8454; (* # of times XQP had to wait for free space in a cache *)K RMI$_DIRDATA_MISS = 8455; (* count of Directory data cache misses *)H RMI$_FILHDR_MISS = 8456; (* count of File header cache misses *)K RMI$_STORAGMAP_MISS = 8457; (* count of storage bitmap cache misses *)G RMI$_RESERVEDEWS1 = 8458; (* Reserved EWS items *)G RMI$_RESERVEDEWS2 = 8459; (* Reserved EWS items *)G RMI$_RESERVEDEWS3 = 8460; (* Reserved EWS items *)G RMI$_RESERVEDEWS4 = 8461; (* Reserved EWS items *)G RMI$_RESERVEDEWS5 = 8462; (* Reserved EWS items *)G RMI$_RESERVEDEWS6 = 8463;  (* Reserved EWS items *)G RMI$_RESERVEDEWS7 = 8464; (* Reserved EWS items *)G RMI$_RESERVEDEWS8 = 8465; (* Reserved EWS items *)G RMI$_RESERVEDEWS9 = 8466; (* Reserved EWS items *)G RMI$_RESERVEDEWS10 = 8467; (* Reserved EWS items *)G RMI$_RESERVEDEWS11 = 8468; (* Reserved EWS items *)G RMI$_RESERVEDEWS12 = 8469; (* Reserved EWS items *)G RMI$_RESERVEDEWS13 = 8470; (* Reserved EWS items *)G RMI$_RESERVEDEWS14 = 8471; (* Reserved EWS items *)G RMI$_RESERVEDEWS15 = 8472; (* Reserved EWS items *)G RMI$_RESERVEDEWS16 = 8473; (* Reserved EWS items *)G RMI$_RESERVEDEWS17 = 8474; (* Reserved EWS items *)G RMI$_RESERVEDEWS18 = 8475; (* Reserved EWS items *)G RMI$_RESERVEDEWS19 = 8476; (* Reserved EWS items *)G RMI$_RESERVEDEWS20 = 8477; (* Reserved EWS items *)G RMI$_RESERVEDEWS21 = 8478; (* Reserved EWS items *)G RMI$_RESERVEDEWS22 = 8479; (* Reserved EWS items *)G RMI$_RESERVEDEWS23 = 8480; (* Reserved EWS items *)G RMI$_RESERVEDEWS24 = 8481; (* Reserved EWS items *)G RMI$_RESERVEDEWS25 = 8482; (* Reserved EWS items *)G RMI$_RESERVEDEWS26 = 8483; (* Reserved EWS items  *)G RMI$_RESERVEDEWS27 = 8484; (* Reserved EWS items *)G RMI$_RESERVEDEWS28 = 8485; (* Reserved EWS items *)G RMI$_RESERVEDEWS29 = 8486; (* Reserved EWS items *)G RMI$_RESERVEDEWS30 = 8487; (* Reserved EWS items *)G RMI$_RESERVEDEWS31 = 8488; (* Reserved EWS items *)G RMI$_RESERVEDEWS32 = 8489; (* Reserved EWS items *)G RMI$_RESERVEDEWS33 = 8490; (* Reserved EWS items *)G RMI$_RESERVEDEWS34 = 8491; (* Reserved EWS items *)G RMI$_RESERVEDEWS35 = 8492; (* Reserved EWS items *)G RMI$_RESERVEDEWS36 = 8493; (* Reserved EWS items *)G RMI$_RESERVEDEWS37 = 8494; (* Reserved EWS items *)G RMI$_RESERVEDEWS38 = 8495; (* Reserved EWS items *)G RMI$_RESERVEDEWS39 = 8496; (* Reserved EWS items *)G RMI$_RESERVEDEWS40 = 8497; (* Reserved EWS items *)G RMI$_RESERVEDEWS41 = 8498; (* Reserved EWS items *)G RMI$_RESERVEDEWS42 = 8499; (* Reserved EWS items *)G RMI$_RESERVEDEWS43 = 8500; (* Reserved EWS items *)G RMI$_RESERVEDEWS44 = 8501; (* Reserved EWS items *)G RMI$_RESERVEDEWS45 = 8502; (* Reserved EWS items *)G RMI$_RESERVEDEWS46 = 8503; (* Reserved EWS items *)G RMI$_RESERVEDEWS47 = 8504;  (* Reserved EWS items *)G RMI$_RESERVEDEWS48 = 8505; (* Reserved EWS items *)G RMI$_RESERVEDEWS49 = 8506; (* Reserved EWS items *)G RMI$_RESERVEDEWS50 = 8507; (* Reserved EWS items *)G RMI$_RESERVEDEWS51 = 8508; (* Reserved EWS items *)G RMI$_RESERVEDEWS52 = 8509; (* Reserved EWS items *)G RMI$_RESERVEDEWS53 = 8510; (* Reserved EWS items *)G RMI$_RESERVEDEWS54 = 8511; (* Reserved EWS items *)G RMI$_RESERVEDEWS55 = 8512; (* Reserved EWS items *)G RMI$_RESERVEDEWS56 = 8513; (* Reserved EWS items *)G RMI$_RESERVEDEWS57 = 8514; (* Reserved EWS items *)G RMI$_RESERVEDEWS58 = 8515; (* Reserved EWS items *)G RMI$_RESERVEDEWS59 = 8516; (* Reserved EWS items *)G RMI$_RESERVEDEWS60 = 8517; (* Reserved EWS items *)G RMI$_RESERVEDEWS61 = 8518; (* Reserved EWS items *)G RMI$_RESERVEDEWS62 = 8519; (* Reserved EWS items *)G RMI$_RESERVEDEWS63 = 8520; (* Reserved EWS items *)G RMI$_RESERVEDEWS64 = 8521; (* Reserved EWS items *)G RMI$_RESERVEDEWS65 = 8522; (* Reserved EWS items *)G RMI$_RESERVEDEWS66 = 8523; (* Reserved EWS items *)G RMI$_RESERVEDEWS67 = 8524; (* Reserved EWS items  *)G RMI$_RESERVEDEWS68 = 8525; (* Reserved EWS items *)G RMI$_RESERVEDEWS69 = 8526; (* Reserved EWS items *)G RMI$_RESERVEDEWS70 = 8527; (* Reserved EWS items *)G RMI$_RESERVEDEWS71 = 8528; (* Reserved EWS items *)G RMI$_RESERVEDEWS72 = 8529; (* Reserved EWS items *)G RMI$_RESERVEDEWS73 = 8530; (* Reserved EWS items *)G RMI$_RESERVEDEWS74 = 8531; (* Reserved EWS items  *)G RMI$_RESERVEDEWS75 = 8532; (* Reserved EWS items *)G RMI$_RESERVEDEWS76 = 8533; (* Reserved EWS items *)G RMI$_RESERVEDEWS77 = 8534; (* Reserved EWS items *)G RMI$_RESERVEDEWS78 = 8535; (* Reserved EWS items *)G RMI$_RESERVEDEWS79 = 8536; (* Reserved EWS items *)G RMI$_RESERVEDEWS80 = 8537; (* Reserved EWS items *)G RMI$_RESERVEDEWS81 = 8538; (* Reserved EWS items *)G RMI$_RESERVEDEWS82 = 8539; (* Reserved EWS items *)G RMI$_RESERVEDEWS83 = 8540; (* Reserved EWS items *)G RMI$_RESERVEDEWS84 = 8541; (* Reserved EWS items *)G RMI$_RESERVEDEWS85 = 8542; (* Reserved EWS items *)G RMI$_RESERVEDEWS86 = 8543; (* Reserved EWS items *)G RMI$_RESERVEDEWS87 = 8544; (* Reserved EWS items *)G RMI$_RESERVEDEWS88 = 8545;  (* Reserved EWS items *)G RMI$_RESERVEDEWS89 = 8546; (* Reserved EWS items *)G RMI$_RESERVEDEWS90 = 8547; (* Reserved EWS items *)G RMI$_RESERVEDEWS91 = 8548; (* Reserved EWS items *)G RMI$_RESERVEDEWS92 = 8549; (* Reserved EWS items *)G RMI$_RESERVEDEWS93 = 8550; (* Reserved EWS items *)G RMI$_RESERVEDEWS94 = 8551; (* Reserved EWS items *)G RMI$_RESERVEDEWS95 = 8552; (* Reserved EWS items *)G RMI$_RESERVEDEWS96 = 8553; (* Reserved EWS items *)G RMI$_RESERVEDEWS97 = 8554; (* Reserved EWS items *)K RMI$_LASTEWS = 8555; (* Last item in the exec writable table *) N(* *)N(* Begin monitor specific data items. The items listed below are *)N(* NOT collected by the RMI as individual items. Some are NOT collected *)N(* at all but are computed by MONITOR. *)N(* *) XCONST RMI$_FIDHITPCNT = 12651; (* percentage of file id cache hits/hits+misses *)W RMI$_FILHDR_HITPCNT = 12652; (* percentage of file header cache hits/hits+misses *)[ RMI$_DIRFCB_HITPCNT = 12653; (* percentage of directory block cache hits/hits+misses *)Z RMI$_DIRDATA_HITPCNT = 12654; (* percentage of directory data cache hits/hits+misses *)R RMI$_EXTHITPCNT = 12655; (* percentage of extent cache hits/hits+misses *)Q RMI$_QUOHITPCNT = 12656; (* percentage of quota cache hits/hits+misses *)W RMI$_STORAGMAP_HITPCNT = 12657; (* percentage of storage map cache hits/hits+misses *)G RMI$_OPCNT = 12658; (* disk io operation count *)G RMI$_IOQUELEN = 12659; (* disk io queue length *)G RMI$_IOAQUELEN = 12660; (* Accurate disk io queue length *)G RMI$_DISKRESPTIM = 12661; (* disk io response time *)P RMI$_JNLIOCNT = 12662; (* journaling io operation count (for disks) *)G RMI$_JDNQLEN = 12663; (* jdevice normal io queue length *)G RMI$_JDWQLEN = 12664; (* jdevice wait irp queue length *)G RMI$_JDFQLEN = 12665; (* jdevice force io queue length *)G RMI$_JDEXCNT = 12666; (* jdevice extend count *)G RMI$_JNLWRTSS = 12667; (* obsolete *)G RMI$_JNLBUFWR = 12668; (* obsolete *)G RMI$_DGSENT = 12669; (* SCS application datagrams sent *)I RMI$_DGRCVD = 12670; (* SCS application datagrams received *)J RMI$_DGDISCARD = 12671; (* SCS application datagrams discarded *)G RMI$_MSGSENT = 12672; (* SCS application messages sent *)H RMI$_MSGRCVD = 12673; (* SCS application messages received *)G RMI$_SNDATS = 12674;  (* SCS block send datas initiated *)G RMI$_KBYTSENT = 12675; (* SCS kbytes sent via send datas *)H RMI$_REQDATS = 12676; (* SCS block request datas initiated *)L RMI$_KBYTREQD = 12677; (* SCS kbytes received via request datas *)K RMI$_KBYTMAPD = 12678; (* SCS kbytes mapped for block transfer *)R RMI$_QCR_CNT = 12679; (* SCS times connection queued for send credit *)X RMI$_QBDT_CNT = 12680; (* SCS times connection queued for buffer descriptor *)G RMI$_DIRLOOK = 12681; (* directory lookups *)G RMI$_DIRINS = 12682; (* directory inserts *)G RMI$_DIRDEL = 12683; (* directory deletes *)G RMI$_PACKETS = 12684; (* Ethernet packets/second *)G RMI$_KBYTES = 12685; (* Kbytes/second *)G RMI$_PACKETSIZE = 12686; (* Packets size (bytes) *)G RMI$_MPACKETS = 12687; (* Multicast packets/second *)G RMI$_MKBYTES = 12688; (* Multicast Kbytes/second *)G RMI$_MPACKETSIZE = 12689; (* Multicast packet size (bytes) *)I RMI$_SINGLECOLL = 12690; (* Transmit single collision detected *)I RMI$_MULTICOLL = 12691; (* Transmit multi collisions detected *)G RMI$_INITDEFER = 12692; (* Transmit initially deferred *)G RMI$_INTERNALBUFERR = 12693; (* Receive internal buffer error *)G RMI$_LOCBUFERR = 12694; (* Receive local buffer error *)G RMI$_BUFFUNAVAIL = 12695; (* System buffer unavailable *)G RMI$_FILLER = 12696; (* Dummy pad item *)G RMI$_RESERVEDMON1 = 12697; (* Reserved MON items *)G RMI$_RESERVEDMON2 = 12698; (* Reserved MON items *)G RMI$_RESERVEDMON3 = 12699; (* Reserved MON items *)G RMI$_RESERVEDMON4 = 12700; (* Reserved MON items *)G RMI$_RESERVEDMON5 = 12701; (* Reserved MON items *)G RMI$_RESERVEDMON6 = 12702; (* Reserved MON items *)G RMI$_RESERVEDMON7 = 12703; (* Reserved MON items *)G RMI$_RESERVEDMON8 = 12704; (* Reserved MON items *)G RMI$_RESERVEDMON9 = 12705; (* Reserved MON items *)G RMI$_RESERVEDMON10 = 12706; (* Reserved MON items *)G RMI$_RESERVEDMON11 = 12707; (* Reserved MON items *)G RMI$_RESERVEDMON12 = 12708; (* Reserved MON items *)G RMI$_RESERVEDMON13 = 12709; (* Reserved MON items *)G RMI$_RESERVEDMON14 = 12710; (* Reserved MON items *)G RMI$_RESERVEDMON15 = 12711; (* Reserved MON items *)G RMI$_RESERVEDMON16 = 12712; (* Reserved MON items *)G RMI$_RESERVEDMON17 = 12713; (* Reserved MON items *)G RMI$_RESERVEDMON18 = 12714; (* Reserved MON items  *)G RMI$_RESERVEDMON19 = 12715; (* Reserved MON items *)G RMI$_RESERVEDMON20 = 12716; (* Reserved MON items *)G RMI$_RESERVEDMON21 = 12717; (* Reserved MON items *)G RMI$_RESERVEDMON22 = 12718; (* Reserved MON items *)G RMI$_RESERVEDMON23 = 12719; (* Reserved MON items *)G RMI$_RESERVEDMON24 = 12720; (* Reserved MON items *)G RMI$_RESERVEDMON25 = 12721; (* Reserved MON items *)G RMI$_RESERVEDMON26 = 12722; (* Reserved MON items *)G RMI$_RESERVEDMON27 = 12723; (* Reserved MON items *)G RMI$_RESERVEDMON28 = 12724; (* Reserved MON items *)G RMI$_RESERVEDMON29 = 12725; (* Reserved MON items *)G RMI$_RESERVEDMON30 = 12726; (* Reserved MON items *)G RMI$_RESERVEDMON31 = 12727; (* Reserved MON items *)G RMI$_RESERVEDMON32 = 12728; (* Reserved MON items *)G RMI$_RESERVEDMON33 = 12729; (* Reserved MON items *)G RMI$_RESERVEDMON34 = 12730; (* Reserved MON items *)G RMI$_RESERVEDMON35 = 12731; (* Reserved MON items *)G RMI$_RESERVEDMON36 = 12732; (* Reserved MON items *)G RMI$_RESERVEDMON37 = 12733; (* Reserved MON items *)G RMI$_RESERVEDMON38 = 12734; (* Reserved MON items *)G RMI$_RESERVEDMON39 = 12735; (* Reserved MON items *)G RMI$_RESERVEDMON40 = 12736; (* Reserved MON items *)G RMI$_RESERVEDMON41 = 12737; (* Reserved MON items *)G RMI$_RESERVEDMON42 = 12738; (* Reserved MON items *)G RMI$_RESERVEDMON43 = 12739; (* Reserved MON items *)G RMI$_RESERVEDMON44 = 12740; (* Reserved MON items *)G RMI$_RESERVEDMON45 = 12741; (* Reserved MON items *)G RMI$_RESERVEDMON46 = 12742; (* Reserved MON items *)G RMI$_RESERVEDMON47 = 12743; (* Reserved MON items *)G RMI$_RESERVEDMON48 = 12744; (* Reserved MON items *)G RMI$_RESERVEDMON49 = 12745; (* Reserved MON items *)G RMI$_RESERVEDMON50 = 12746; (* Reserved MON items *)G RMI$_RESERVEDMON51 = 12747; (* Reserved MON items *)G RMI$_RESERVEDMON52 = 12748; (* Reserved MON items *)G RMI$_RESERVEDMON53 = 12749; (* Reserved MON items *)G RMI$_RESERVEDMON54 = 12750; (* Reserved MON items *)G RMI$_RESERVEDMON55 = 12751; (* Reserved MON items *)G RMI$_RESERVEDMON56 = 12752; (* Reserved MON items *)G RMI$_RESERVEDMON57 = 12753; (* Reserved MON items *)G RMI$_RESERVEDMON58 = 12754; (* Reserved MON items *)G RMI$_RESERVEDMON59 = 12755; (* Reserved MON items  *)G RMI$_RESERVEDMON60 = 12756; (* Reserved MON items *)G RMI$_RESERVEDMON61 = 12757; (* Reserved MON items *)G RMI$_RESERVEDMON62 = 12758; (* Reserved MON items *)G RMI$_RESERVEDMON63 = 12759; (* Reserved MON items *)G RMI$_RESERVEDMON64 = 12760; (* Reserved MON items *)G RMI$_RESERVEDMON65 = 12761; (* Reserved MON items *)G RMI$_RESERVEDMON66 = 12762; (* Reserved MON items *)G RMI$_RESERVEDMON67 = 12763; (* Reserved MON items *)G RMI$_RESERVEDMON68 = 12764; (* Reserved MON items *)G RMI$_RESERVEDMON69 = 12765; (* Reserved MON items *)G RMI$_RESERVEDMON70 = 12766; (* Reserved MON items *)G RMI$_RESERVEDMON71 = 12767; (* Reserved MON items *)G RMI$_RESERVEDMON72 = 12768; (* Reserved MON items *)G RMI$_RESERVEDMON73 = 12769; (* Reserved MON items *)G RMI$_RESERVEDMON74 = 12770; (* Reserved MON items *)G RMI$_RESERVEDMON75 = 12771; (* Reserved MON items *)G RMI$_RESERVEDMON76 = 12772; (* Reserved MON items *)G RMI$_RESERVEDMON77 = 12773; (* Reserved MON items *)G RMI$_RESERVEDMON78 = 12774; (* Reserved MON items *)G RMI$_RESERVEDMON79 = 12775; (* Reserved MON items *)G RMI$_RESERVEDMON80 = 12776; (* Reserved MON items *)G RMI$_RESERVEDMON81 = 12777; (* Reserved MON items *)G RMI$_RESERVEDMON82 = 12778; (* Reserved MON items *)G RMI$_RESERVEDMON83 = 12779; (* Reserved MON items *)G RMI$_RESERVEDMON84 = 12780; (* Reserved MON items *)G RMI$_RESERVEDMON85 = 12781; (* Reserved MON items *)G RMI$_RESERVEDMON86 = 12782; (* Reserved MON items *)G RMI$_RESERVEDMON87 = 12783; (* Reserved MON items *)G RMI$_RESERVEDMON88 = 12784; (* Reserved MON items *)G RMI$_RESERVEDMON89 = 12785; (* Reserved MON items *)G RMI$_RESERVEDMON90 = 12786; (* Reserved MON items *)G RMI$_RESERVEDMON91 = 12787; (* Reserved MON items *)G RMI$_RESERVEDMON92 = 12788; (* Reserved MON items *)G RMI$_RESERVEDMON93 = 12789; (* Reserved MON items *)G RMI$_RESERVEDMON94 = 12790; (* Reserved MON items *)G RMI$_RESERVEDMON95 = 12791; (* Reserved MON items *)G RMI$_RESERVEDMON96 = 12792; (* Reserved MON items *)G RMI$_RESERVEDMON97 = 12793; (* Reserved MON items *)G RMI$_RESERVEDMON98 = 12794; (* Reserved MON items *)G RMI$_RESERVEDMON99 = 12795; (* Reserved MON items *)G RMI$_RESERVEDMON100 = 12796; (* Reserved MON items  *)N RMI$_LASTMON = 12797; (* Last item in the monitor specific table *) N(* *)O(* Begin items specific to the Monitor RMS class. These items are maintained *)R(* by RMS and collected from a global section with the following naming scheme: *)O(* _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the *)N(* file being monitored. *)N(*  *) OCONST RMI$_RMS_STATS = 16893; (* All of the following rms statistics *)G RMI$_SEQGETS = 16894; (* Total # of sequential gets *)G RMI$_KEYGETS = 16895; (* Total # of keyed gets *)G RMI$_RFAGETS = 16896; (* Total # of gets by RFA *)G RMI$_GETBYTES = 16897; (* Total size in bytes of all GETS *)G RMI$_SEQPUTS = 16898; (* Total # of sequential puts *)G RMI$_KEYPUTS = 16899; (* Total # of puts by key *)G RMI$_PUTBYTES = 16900; (* Total # of bytes put to file *)G RMI$_UPDATES = 16901; (* Total # of updates to the file *)G RMI$_UPDATEBYTES = 16902; (* Total # of bytes updated in file *)G RMI$_DELETES = 16903; (* Total # of deletes to file *)O RMI$_TRUNCATES = 16904; (* Total # of times file has been truncated *)P RMI$_TRUNCBLKS = 16905;  (* Total # of blocks file has been truncated *)G RMI$_SEQFINDS = 16906; (* Total # of sequential finds *)G RMI$_KEYFINDS = 16907; (* Total # of keyed finds *)G RMI$_RFAFINDS = 16908; (* Total # of RFA finds *)G RMI$_READS = 16909; (* Total # of $READS *)H RMI$_READBYTES = 16910; (* Total # of bytes read from $READS *)G RMI$_CONNECTS = 16911; (* Total connect requests *)G RMI$_DISCONNECTS = 16912; (* Total disconnect requests *)G RMI$_EXTENDS = 16913; (* Total extends *)T RMI$_EXTBLOCKS = 16914; (* Total number of blocks file has been extended *)G RMI$_FLUSHES = 16915; (* Total number of calls to flush *)G RMI$_REWINDS = 16916; (* Total number of calls to REWIND *)G RMI$_WRITES = 16917; (* Total number of calls to $WRITE *)G RMI$_WRITEBYTES = 16918; (* Total bytes written using $WRITE *)G RMI$_FLCKENQS = 16919; (* Total number of file lock ENQ's *)G RMI$_FLCKDEQS = 16920; (* Total number of file lock DEQ's *)L RMI$_FLCKCNVS = 16921; (* Total number of file lock conversions *)N RMI$_LBLCKENQS = 16922; (* Total number of local buffer lock ENQ's *)N RMI$_LBLCKDEQS = 16923; (* Total number of local buffer lock DEQ's *)T RMI$_LBLCKCNVS = 16924; (* Total number of local buffer lock conversions *)O RMI$_GBLCKENQS = 16925; (* Total number of global buffer lock ENQ's *)O RMI$_GBLCKDEQS = 16926; (* Total number of global buffer lock DEQ's *)U RMI$_GBLCKCNVS = 16927; (* Total number of global buffer lock conversions *)P RMI$_GSLCKENQS = 16928; (* Total number of global section lock ENQ's *)P RMI$_GSLCKDEQS = 16929; (* Total number of global section lock DEQ's *)V RMI$_GSLCKCNVS = 16930; (* Total number of global section lock conversions *)H RMI$_RLCKENQS = 16931; (* Total number of record lock ENQ's *)H RMI$_RLCKDEQS = 16932; (* Total number of record lock DEQ's *)N RMI$_RLCKCNVS = 16933; (* Total number of record lock conversions *)H RMI$_APPLCKENQS = 16934; (* Total number of append lock ENQ's *)H RMI$_APPLCKDEQS = 16935; (* Total number of append lock DEQ's *)N RMI$_APPLCKCNVS = 16936; (* Total number of append lock conversions *)N RMI$_FLBLKASTS = 16937; (* Total number of file lock blocking ASTs *)V RMI$_LBLBLKASTS = 16938; (* Total number of local buffer lock blocking ASTs *)W RMI$_GBLBLKASTS = 16939; (* Total number of global buffer lock blocking ASTs *)W RMI$_APPBLKASTS = 16940; (* Total number of shared append lock blocking ASTs *)S RMI$_LCACHEHITS = 16941; (* Total cache hits on buckets in local buffers *)W RMI$_LCACHETRIES = 16942; (* Total cache attempts on buckets in local buffers *)T RMI$_GCACHEHITS = 16943; (* Total cache hits on buckets in global buffers *)X RMI$_GCACHETRIES = 16944; (* Total cache attempts on buckets in global buffers *)\ RMI$_GBRDIRIOS = 16945; (* Total direct IO's causes by global buffer cache reads *)] RMI$_GBWDIRIOS = 16946; (* Total direct IO's causes by global buffer cache writes *)[ RMI$_LBRDIRIOS = 16947; (* Total direct IO's causes by local buffer cache reads *)\ RMI$_LBWDIRIOS = 16948; (* Total direct IO's causes by local buffer cache writes *)Y RMI$_BKTSPLT = 16949; (* Total number of 2 bucket splits done for this file *)] RMI$_MBKTSPLT = 16950; (* Total number of multi-bucket splits done for this file *)Q RMI$_RMSOPENS = 16951; (* Total number of times file has been opened *)Q RMI$_CLOSES = 16952; (* Total number of times file has been closed *)G RMI$_GSBLKASTS = 16953; (* Global Section Blocking ASTS *)G RMI$_FLWAITS = 16954; (* File lock ENQs forced to wait *)G RMI$_LBWAITS = 16955; (* Local buffer ENQs forced to wait *)H RMI$_GBWAITS = 16956; (* Global buffer ENQs forced to wait *)I RMI$_GSWAITS = 16957; (* Global section ENQs forced to wait *)G RMI$_RLWAITS = 16958; (* Record lock ENQs forced to wait *)G RMI$_APWAITS = 16959; (* Append lock ENQs forced to wait *)G RMI$_TOTWAITS = 16960; (* Total ENQs forced to wait *)Y RMI$_OUTBUFQUO = 16961; (* Number of times a process runs out of buffer quota *)V RMI$_RMSDEV1 = 16962; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV2 = 16963; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV3 = 16964; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV4 = 16965; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV5 = 16966; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV6 = 16967; (* Rese rved for RMS development private monitoring *)V RMI$_RMSDEV7 = 16968; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV8 = 16969; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV9 = 16970; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV10 = 16971; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV11 = 16972; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV12 = 1 6973; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV13 = 16974; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV14 = 16975; (* Reserved for RMS development private monitoring *)V RMI$_RMSDEV15 = 16976; (* Reserved for RMS development private monitoring *)T RMI$_XQPQIOS = 16977; (* Number of XQP operations for this file by RMS *)G RMI$_LCACHEHITPCNT = 16978; (* Local RMS buffer hit percent *)G RMI$_GCACHE HITPCNT = 16979; (* Global RMS buffer hit percent *)G RMI$_TOTALGET = 16980; (* Total $GET call rate *)G RMI$_TOTALPUT = 16981; (* Total $PUT call rate *)G RMI$_TOTALFIND = 16982; (* Total $FIND call rate *)G RMI$_BYTESGET = 16983; (* Bytes per $GET *)G RMI$_BYTESPUT = 16984; (* Bytes per $PUT *)G RMI$_BYTESUPDATE = 16985; (* Bytes per $UPDATE *)G  RMI$_BYTESREAD = 16986; (* Bytes per $READ *)G RMI$_BYTESWRITE = 16987; (* Bytes per $WRITE *)G RMI$_BLOCKSTRUNCATE = 16988; (* Bytes per $TRUNCATE *)G RMI$_BLOCKSEXTEND = 16989; (* Bytes per $EXTEND *)G RMI$_ACTIVE_STREAMS = 16990; (* Active connects to file *)G RMI$_TOTAL_ENQS = 16991; (* Total new ENQs *)G RMI$_TOTAL_DEQS = 16992; (* Total DEQs   *)G RMI$_TOTAL_CNVS = 16993; (* Total ENQ conversions *)G RMI$_TOTAL_BLKAST = 16994; (* Total blocking ASTs *)G RMI$_RMS_ORG = 16995; (* RMS File org *)V RMI$_INTCOL_GBHSH = 16996; (* Interlock collision on global buffer hash table *)R RMI$_INTCOL_GBH = 16997; (* Interlock Collision on global buffer header *)O RMI$_INTRNDWN_GBHSH = 16998; (* Interlock still held at rundown on GBHSH *)M RMI$_INTRNDWN_GBH = 16999; (* Interlock still held at rundown on GBH *)G RMI$_RESERVEDRMS5 = 17000; (* Reserved RMS items *)G RMI$_RESERVEDRMS6 = 17001; (* Reserved RMS items *)G RMI$_RESERVEDRMS7 = 17002; (* Reserved RMS items *)G RMI$_RESERVEDRMS8 = 17003; (* Reserved RMS items *)G RMI$_RESERVEDRMS9 = 17004; (* Reserved RMS items *)G RMI$_RESERVEDRMS10 = 17005; (* Reserved RMS items *)G RMI$_RESERVEDRMS11 = 17006; (* Reserved RMS items *)G RMI$_RESERVEDRMS12 = 17007; (* Reserved RMS items *)G RMI$_RESERVEDRMS13 = 17008; (* Reserved RMS items *)G RMI$_RESERVEDRMS14 = 17009; (* Reserved RMS items *)G RMI$_RESERVEDRMS15 = 17010; (* Reserved RMS items *)G RMI$_RESERVEDRMS16 = 17011; (* Reserved RMS items *)G RMI$_RESERVEDRMS17 = 17012; (* Reserved RMS items  *)G RMI$_RESERVEDRMS18 = 17013; (* Reserved RMS items *)G RMI$_RESERVEDRMS19 = 17014; (* Reserved RMS items *)G RMI$_RESERVEDRMS20 = 17015; (* Reserved RMS items *)G RMI$_RESERVEDRMS21 = 17016; (* Reserved RMS items *)G RMI$_RESERVEDRMS22 = 17017; (* Reserved RMS items *)G RMI$_RESERVEDRMS23 = 17018; (* Reserved RMS items *)G RMI$_RESERVEDRMS24 = 17019; (* Reserved RMS items *)G RMI$_RESERVEDRMS25 = 17020; (* Reserved RMS items *)G RMI$_RESERVEDRMS26 = 17021; (* Reserved RMS items *)G RMI$_RESERVEDRMS27 = 17022; (* Reserved RMS items *)G RMI$_RESERVEDRMS28 = 17023; (* Reserved RMS items *)G RMI$_RESERVEDRMS29 = 17024; (* Reserved RMS items *)G RMI$_RESERVEDRMS30 = 17025; (* Reserved RMS items *)G RMI$_RESERVEDRMS31 = 17026; (* Reserved RMS items *)G RMI$_RESERVEDRMS32 = 17027; (* Reserved RMS items *)G RMI$_RESERVEDRMS33 = 17028; (* Reserved RMS items *)G RMI$_RESERVEDRMS34 = 17029; (* Reserved RMS items *)G RMI$_RESERVEDRMS35 = 17030; (* Reserved RMS items *)G RMI$_RESERVEDRMS36 = 17031; (* Reserved RMS items *)G RMI$_RESERVEDRMS37 = 17032; (* Reserved RMS items *)G RMI$_RESERVEDRMS38 = 17033; (* Reserved RMS items *)G RMI$_RESERVEDRMS39 = 17034; (* Reserved RMS items *)G RMI$_RESERVEDRMS40 = 17035; (* Reserved RMS items *)G RMI$_RESERVEDRMS41 = 17036; (* Reserved RMS items *)G RMI$_RESERVEDRMS42 = 17037; (* Reserved RMS items *)G RMI$_RESERVEDRMS43 = 17038; (* Reserved RMS items *)G RMI$_RESERVEDRMS44 = 17039; (* Reserved RMS items *)G RMI$_RESERVEDRMS45 = 17040; (* Reserved RMS items *)G RMI$_RESERVEDRMS46 = 17041; (* Reserved RMS items *)G RMI$_RESERVEDRMS47 = 17042; (* Reserved RMS items *)G RMI$_RESERVEDRMS48 = 17043; (* Reserved RMS items *)G RMI$_RESERVEDRMS49 = 17044; (* Reserved RMS items *)G RMI$_RESERVEDRMS50 = 17045; (* Reserved RMS items *)G RMI$_RESERVEDRMS51 = 17046; (* Reserved RMS items *)G RMI$_RESERVEDRMS52 = 17047; (* Reserved RMS items *)G RMI$_RESERVEDRMS53 = 17048; (* Reserved RMS items *)G RMI$_RESERVEDRMS54 = 17049; (* Reserved RMS items *)G RMI$_RESERVEDRMS55 = 17050; (* Reserved RMS items *)G RMI$_RESERVEDRMS56 = 17051; (* Reserved RMS items *)G RMI$_RESERVEDRMS57 = 17052; (* Reserved RMS items *)G RMI$_RESERVEDRMS58 = 17053; (* Reserved RMS items  *)G RMI$_RESERVEDRMS59 = 17054; (* Reserved RMS items *)G RMI$_RESERVEDRMS60 = 17055; (* Reserved RMS items *)G RMI$_RESERVEDRMS61 = 17056; (* Reserved RMS items *)G RMI$_RESERVEDRMS62 = 17057; (* Reserved RMS items *)G RMI$_RESERVEDRMS63 = 17058; (* Reserved RMS items *)G RMI$_RESERVEDRMS64 = 17059; (* Reserved RMS items *)G RMI$_RESERVEDRMS65 = 17060; (* Reserved RMS items *)G RMI$_RESERVEDRMS66 = 17061; (* Reserved RMS items *)G RMI$_RESERVEDRMS67 = 17062; (* Reserved RMS items *)G RMI$_RESERVEDRMS68 = 17063; (* Reserved RMS items *)G RMI$_RESERVEDRMS69 = 17064; (* Reserved RMS items *)G RMI$_RESERVEDRMS70 = 17065; (* Reserved RMS items *)G RMI$_RESERVEDRMS71 = 17066; (* Reserved RMS items *)G RMI$_RESERVEDRMS72 = 17067; (* Reserved RMS items *)G RMI$_RESERVEDRMS73 = 17068; (* Reserved RMS items *)G RMI$_RESERVEDRMS74 = 17069; (* Reserved RMS items *)G RMI$_RESERVEDRMS75 = 17070; (* Reserved RMS items *)G RMI$_RESERVEDRMS76 = 17071; (* Reserved RMS items *)G RMI$_RESERVEDRMS77 = 17072; (* Reserved RMS items *)G RMI$_RESERVEDRMS78 = 17073; (* Reserved RMS items *)G RMI$_RESERVEDRMS79 = 17074; (* Reserved RMS items *)G RMI$_RESERVEDRMS80 = 17075; (* Reserved RMS items *)G RMI$_RESERVEDRMS81 = 17076; (* Reserved RMS items *)G RMI$_RESERVEDRMS82 = 17077; (* Reserved RMS items *)G RMI$_RESERVEDRMS83 = 17078; (* Reserved RMS items *)G RMI$_RESERVEDRMS84 = 17079; (* Reserved RMS items *)G RMI$_RESERVEDRMS85 = 17080; (* Reserved RMS items *)G RMI$_RESERVEDRMS86 = 17081; (* Reserved RMS items *)G RMI$_RESERVEDRMS87 = 17082; (* Reserved RMS items *)G RMI$_RESERVEDRMS88 = 17083; (* Reserved RMS items *)G RMI$_RESERVEDRMS89 = 17084; (* Reserved RMS items *)G RMI$_RESERVEDRMS90 = 17085; (* Reserved RMS items *)G RMI$_RESERVEDRMS91 = 17086; (* Reserved RMS items *)G RMI$_RESERVEDRMS92 = 17087; (* Reserved RMS items *)G RMI$_RESERVEDRMS93 = 17088; (* Reserved RMS items *)G RMI$_RESERVEDRMS94 = 17089; (* Reserved RMS items *)G RMI$_RESERVEDRMS95 = 17090; (* Reserved RMS items *)G RMI$_RESERVEDRMS96 = 17091; (* Reserved RMS items *)G RMI$_RESERVEDRMS97 = 17092; (* Reserved RMS items *)G RMI$_RESERVEDRMS98 = 17093; (* Reserved RMS items *)G RMI$_RESERVEDRMS99 = 17094; (* Reserved RMS items  *)G RMI$_RESERVEDRMS100 = 17095; (* Reserved RMS items *)N RMI$_LASTRMS = 17096; (* Last item in the monitor specific table *) N(* EX2TABLE : Extended EXE table *)N(* Define item identifier numbers. Each data item has an associated *)N(* value which is used to find its entry in the EXETBL. The item table *)N(* is defined by the macros RMI_GENERATE_TABLE which makes multiple calls *)N(* to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. *)N(* *) LCONST RMI$_CPUID = 21192; (* Primary cpu id *)G RMI$_CPUCOMPAT = 21193; (* time in compat. mode *)G RMI$_CPUINTSTK = 21194; (* time on interrupt stack *)G RMI$_CPUMPSYNCH = 21195; (* time spent in synch mode *)G RMI$_CPUKERNEL = 21196; (* time in kernel mode  *)G RMI$_CPUEXEC = 21197; (* time in exec mode *)G RMI$_CPUSUPER = 21198; (* time in supervisor mode *)G RMI$_CPUUSER = 21199; (* time in user mode *)G RMI$_CPUIDLE = 21200; (* idle time *)` RMI$_PROCCNTMAX = 21201; (* Maximum number of concurrent processes seen by the system *)T RMI$_PROCBATCNT = 21202; (* Total number of batch processes in the system *)Z RMI$_PROCINTCNT = 21203; (* Total number of interactive processes in the system *)V RMI$_PROCNETCNT = 21204; (* Total number of network processes in the system *)h RMI$_PROCSWITCHCNT = 21205; (* Total count of switches from the then-currently executing process *)S RMI$_PROCBALSETCNT = 21206; (* Total number of processe in the balance set. *)V RMI$_PROCLOADCNT = 21207; (* Total count of process context load operations. *)G RMI$_BADFLTS = 21208; (* Number of bad_list fault s *)G RMI$_EXEFAULTS = 21209; (* Number of execute page faults. *)] RMI$_HDRINSWAPS = 21210; (* Count of system wide process header inswap operations. *)^ RMI$_HDROUTSWAPS = 21211; (* Count of system wide process header outswap operations. *)t RMI$_IOPAGCNT = 21212; (* Count of pages in transit to disk from the modified page list (system wide ). *)Y RMI$_ISWPCNTPG = 21213; (* Accumulated system wide count of pages in-swapped. *)c RMI$_OSWPCNT = !21214; (* Accumulated system wide count of process owtswap operations. *)Y RMI$_OSWPCNTPG = 21215; (* Accumulated system-wide count of pages out-swapped *)J RMI$_RDFAULTS = 21216; (* Count of fault-on-read page faults. *)Z RMI$_TRANSFLTS = 21217; (* Accumulated system-wide count of transition faults. *)K RMI$_WRTFAULTS = 21218; (* Count of fault-on-write page faults. *)Y RMI$_USERPAGES = 21219; (* Number of pages available for use by applicati"ons. *)U RMI$_VMSPAGES = 21220; (* Number of pages actually allocated to OpenVMS. *)G RMI$_LOGNAMCRE = 21221; (* Count of logical name creations. *)G RMI$_LOGNAMDEL = 21222; (* Count of logical name deletions. *)V RMI$_LOGNAMFAIL = 21223; (* Count of logical name translations that failed. *)L RMI$_LOGNAMTBLCRE = 21224; (* Count of logical name tables created. *)g RMI$_TTREADCNT = 21225; (* Accumulated system wide count of characters read from term#inals. *)] RMI$_TTREADS = 21226; (* Accumulated system wide count of reads from terminals. *)h RMI$_TTWRITECNT = 21227; (* Accumulated system wide count of characters written to terminals. *)\ RMI$_TTWRITES = 21228; (* Accumulated system wide count of writes to terminals. *)a RMI$_BUFOBJPAG = 21229; (* Count of buffer object physical pages currently allocated. *)j RMI$_BUFOBJPAGPEAK = 21230; (* Maximum number of buffer object physical pages currently alloc$ated. *)h RMI$_BUFOBJPAGS01 = 21231; (* Number of buffer object pages currently allocated in S0/S1 space. *)i RMI$_BUFOBJPAGS2 = 21232; (* Max number of buffer object pages currently allocated in S2 space. *)X RMI$_BUFOBJPAGMAXS01 = 21233; (* Max number of buffer object pages in S0/S1 space. *)b RMI$_BUFOBJPAGMAXS2 = 21234; (* Maximum number of buffer object physical pages in S2 space. *)l RMI$_BUFOBJPAGPEAKS01 = 21235; (* Max number of buffer object pages currently allocated in% S0/S1 space. *)v RMI$_BUFOBJPAGPEAKS2 = 21236; (* Maximum number of buffer object physical pages currently allocated in S2 space. *)a RMI$_BUFOBJPGLTMAXS01 = 21237; (* Number of available buffer object pagelets in S0/S1 space. *)^ RMI$_BUFOBJPGLTMAXS2 = 21238; (* Number of available buffer object pagelets in S2 space. *)Y RMI$_DLCK_INCMPLT = 21239; (* System-wide count of incomplete deadlock searches. *)a RMI$_DLCKMSGS_IN = 21240; (* System-wide count of incoming deadlock detec&tion messages. *)d RMI$_DLCKMSGS_OUT = 21241; (* System-wide count of of outgoing deadlock detection messages. *)G RMI$_TQETOTAL = 21242; (* Count of timer requests. *)` RMI$_TQESYSUB = 21243; (* Count of timer requests made by OpenVMS operating system. *){ RMI$_TQEUSRTIMR = 21244; (* Count of timer requests made by application programs through $SETIMR system service. *){ RMI$_TQEUSRWAKE = 21245; (* Count of timer requests made by application progra'ms through $SCHDWK system service. *)z RMI$_CWPSBYTESIN = 21246; (* Count of Cluster-wide process services "CWPS" message bytes received by the system. *)V RMI$_CWPSBYTESOUT = 21247; (* Count of CWPS message bytes sent by the system. *)] RMI$_CWPSJPISIN = 21248; (* Count of CWPS $GETJPI requests received by the system. *)Y RMI$_CWPSJPISOUT = 21249; (* Count of CWPS $GETJPI requests sent by the system. *)U RMI$_CWPSMSGSIN = 21250; (* Count of CWPS messages receive(d by the system. *)Q RMI$_CWPSMSGSOUT = 21251; (* Count of CWPS messages sent by the system. *)\ RMI$_CWPSPCNTRLIN = 21252; (* Count of CWPS PCNTRL requests received by the system. *)X RMI$_CWPSPCNTRLOUT = 21253; (* Count of CWPS PCNTRL requests sent by the system. *)c RMI$_CWPSRSRCIN = 21254; (* Count of CWPS resource-fail messages received by the system. *)_ RMI$_CWPSRSRCOUT = 21255; (* Count of CWPS resource-fail messages sent by the system. *)G RMI$_CHME = 212)56; (* Count of $CMEXEC service calls. *)G RMI$_CHMK = 21257; (* Count of $CMKRNL service calls. *)[ RMI$_MCHKERRS = 21258; (* Count of machine checks since the system was booted. *)Z RMI$_MEMERRS = 21259; (* Count of memory errors since the system was booted. *){ RMI$_RESMASK = 21260; (* A bit mask summarizing the system resources for which processes in the MWAIT state are currently waiting. *)G RMI$_CACHE_STATE = 21261; (* Ca*che stats bits *)R RMI$_CACHE_MEMORY = 21262; (* Pages of memory currently held by the cache *)a RMI$_CACHE_FREE = 21263; (* Pages of memory held by the cache but not currently in use *)G RMI$_CACHE_READ_HITS = 21264; (* Read hits *)G RMI$_CACHE_VIRT_READS = 21265; (* Virtual reads to cacheable files *)H RMI$_CACHE_VIRT_WRITES = 21266; (* Virtual writes to cacheable files *)H RMI$_CACHE_R_ARND_MOD = 21267; (* Read arounds due to modifier+ bits *)I RMI$_CACHE_R_ARND_SIZ = 21268; (* Read arounds due to size too large *)I RMI$_CACHE_W_ARND_MOD = 21269; (* Write arounds due to modifier bits *)J RMI$_CACHE_W_ARND_SIZ = 21270; (* Write arounds due to size too large *)G RMI$_CACHE_LIMBO_LEN = 21271; (* Length of limbo queue *)G RMI$_CACHE_MIN_SIZE = 21272; (* Minimum cache size in Pages *)J RMI$_CACHE_MAX_SIZE = 21273; (* Current maximum cache size in Pages *)l RMI$_CACHE_MAX_LIMIT = 21274; (* Maximum ,ever cache size in Pages (limited by boot-time VA allocation) *)G RMI$_CACHE_MAX_IO_SIZE = 21275; (* Value of VCC_MAX_IO_SIZE *)G RMI$_CACHE_MAX_LOCKS = 21276; (* Value of VCC_MAX_LOCKS *)G RMI$_CACHE_READAHEAD = 21277; (* Value of VCC_READAHEAD *)G RMI$_CACHE_WRITEBEHIND = 21278; (* Value of VCC_WRITEBEHIND *)G RMI$_CACHE_WRITEDELAY = 21279; (* Value of VCC_WRITE_DELAY *)K RMI$_CACHE_VOLS_FXFC_MODE = 21280; (* Count of volumes in Full XFC mo-de *)U RMI$_CACHE_VOLS_RXFC_MODE = 21281; (* Count of volumes in VIOC compatability mode *)K RMI$_CACHE_VOLS_NC_MODE = 21282; (* Count of volumes in No Caching mode *)V RMI$_CACHE_VOLS_PNC_MODE = 21283; (* Count of volumes in Permanent No Caching mode *)G RMI$_CACHE_OPEN_FILES = 21284; (* Number of open files *)Q RMI$_CACHE_UNSYNCHED_IOS = 21285; (* Number of physical/logical unsynched IOs *)G RMI$_CACHE_DELAYED_WRITES = 21286; (* Number of write-behind writes *)G RMI$_CACHE_.LOST_WRITES = 21287; (* Writes lost due to disk errors *)M RMI$_CACHE_FULL_BARRIERS = 21288; (* Number of full barriers in dep graph *)S RMI$_CACHE_PARTIAL_BARRIERS = 21289; (* Number of partial barriers in dep graph *)N RMI$_CACHE_READS_AROUND = 21290; (* Total number of reads around the cache *)P RMI$_CACHE_WRITES_AROUND = 21291; (* Total number of writes around the cache *)P RMI$_CACHE_CURRENT_LOCKS = 21292; (* Number of locks currently held by cache *)U RMI$_CACHE_BARRIER_COUNT = 21293;/ (* Number of barrier calls made since boot-time *)R RMI$_CACHE_SUPER_WRITES = 21294; (* Number of writes that supersede dirty data *)_ RMI$_CACHE_NON_PAGED_POOL = 21295; (* Amount of non-paged pool cuurrently held by the cache *)S RMI$_CACHE_EVERYTHING = 21296; (* Dummy item to collect everything about cache *)O RMI$_GBP_CURMAP = 21297; (* Count of global pages currently mapped. *)T RMI$_GBP_CURMAP_GRP = 21298; (* Count of group global pages currently mapped. *)] RMI$_GBP_CURMAP0_GRPWRT = 21299; (* Count of writable group global pages currently mapped. *)U RMI$_GBP_CURMAP_SYS = 21300; (* Count of system global pages currently mapped. *)b RMI$_GBP_CURMAP_SYSWRT = 21301; (* Count of writable system global pages currently mapped. *)Z RMI$_GBP_MAXMAP = 21302; (* Maximum count of global pages simultaneouly mapped. *)Q RMI$_GBS_CURMAP = 21303; (* Count of global sections currently mapped. *)W RMI$_GBS_CURMAP_GRP = 21304; (* Count of group global sect1ions currently mapped. *)` RMI$_GBS_CURMAP_GRPWRT = 21305; (* Count of writable group global sections currently mapped. *)X RMI$_GBS_CURMAP_SYS = 21306; (* Count of system global sections currently mapped. *)a RMI$_GBS_CURMAP_SYSWRT = 21307; (* Count of writable system global sections currently mapped. *)] RMI$_GBS_MAXMAP = 21308; (* Maximum count of global sections simutaneously mapped. *)X RMI$_GBS_NOREF = 21309; (* Count of global sections not mapped to a process. *)_ RMI2$_NP_POOL_ALLOC = 21310; (* Accumulated count of non-paged pool allocation requests. *)` RMI$_NP_POOL_ALLOCF = 21311; (* Count of unsuccessful non-paged pool allocation requests. *)X RMI$_NP_POOL_EXP = 21312; (* Count of successful expansions on non-paged pool. *)_ RMI$_NP_POOL_EXPF = 21313; (* Count of unsuccessful attempts to expand non-paged pool. *)O RMI$_PG_POOL_ALLOC = 21314; (* Count of paged pool allocation requests. *)\ RMI$_PG_POOL_ALLOCF = 21315; (* Count of3 unsuccessful paged pool allocation requests. *)[ RMI$_PG_POOL_EXPF = 21316; (* Count of unsuccessful attempts to expand paged pool. *)g RMI$_SMP_CURMAP = 21317; (* Count of global pages currently mapped for galaxy shared memory. *)m RMI$_SMP_CURMAP_GRP = 21318; (* Count of group global pages currently mapped for galaxy shared memory. *)v RMI$_SMP_CURMAP_GRPWRT = 21319; (* Count of writable group global pages currently mapped for galaxy shared memory. *)n RMI$_SMP_CURMAP_SYS = 241320; (* Count of system global pages currently mapped for galaxy shared memory. *)w RMI$_SMP_CURMAP_SYSWRT = 21321; (* Count of writable system global pages currently mapped for galaxy shared memory. *)j RMI$_SMS_CURMAP = 21322; (* Count of global sections currently mapped for galaxy shared memory. *)p RMI$_SMS_CURMAP_GRP = 21323; (* Count of group global sections currently mapped for galaxy shared memory. *)y RMI$_SMS_CURMAP_GRPWRT = 21324; (* Count of writable group global section5s currently mapped for galaxy shared memory. *)q RMI$_SMS_CURMAP_SYS = 21325; (* Count of system global sections currently mapped for galaxy shared memory. *)z RMI$_SMS_CURMAP_SYSWRT = 21326; (* Count of writable system global sections currently mapped for galaxy shared memory. *) RMI$_SMS_NOREF = 21327; (* Current count of global sections for galaxy shared memory which are not mapped to a process. *)G RMI$_RESERVEDEXT1 = 21328; (* Reserved EXE items *)G RMI$_RE6SERVEDEXT2 = 21329; (* Reserved EXE items *)G RMI$_RESERVEDEXT3 = 21330; (* Reserved EXE items *)G RMI$_RESERVEDEXT4 = 21331; (* Reserved EXE items *)G RMI$_RESERVEDEXT5 = 21332; (* Reserved EXE items *)G RMI$_RESERVEDEXT6 = 21333; (* Reserved EXE items *)G RMI$_RESERVEDEXT7 = 21334; (* Reserved EXE items *)G RMI$_RESERVEDEXT8 = 21335; (* Reserved EXE items *7)G RMI$_RESERVEDEXT9 = 21336; (* Reserved EXE items *)G RMI$_RESERVEDEXT10 = 21337; (* Reserved EXE items *)G RMI$_RESERVEDEXT11 = 21338; (* Reserved EXE items *)G RMI$_RESERVEDEXT12 = 21339; (* Reserved EXE items *)G RMI$_RESERVEDEXT13 = 21340; (* Reserved EXE items *)G RMI$_RESERVEDEXT14 = 21341; (* Reserved EXE items *)G RMI$_RESERVEDEXT15 = 21342; (* Reserved EXE items 8 *)G RMI$_RESERVEDEXT16 = 21343; (* Reserved EXE items *)G RMI$_RESERVEDEXT17 = 21344; (* Reserved EXE items *)G RMI$_RESERVEDEXT18 = 21345; (* Reserved EXE items *)G RMI$_RESERVEDEXT19 = 21346; (* Reserved EXE items *)G RMI$_RESERVEDEXT20 = 21347; (* Reserved EXE items *)G RMI$_RESERVEDEXT21 = 21348; (* Reserved EXE items *)G RMI$_RESERVEDEXT22 = 21349; (* Reserved E9XE items *)G RMI$_RESERVEDEXT23 = 21350; (* Reserved EXE items *)G RMI$_RESERVEDEXT24 = 21351; (* Reserved EXE items *)G RMI$_RESERVEDEXT25 = 21352; (* Reserved EXE items *)G RMI$_RESERVEDEXT26 = 21353; (* Reserved EXE items *)G RMI$_RESERVEDEXT27 = 21354; (* Reserved EXE items *)G RMI$_RESERVEDEXT28 = 21355; (* Reserved EXE items *)G RMI$_RESERVEDEXT29 = 21356; (:* Reserved EXE items *)G RMI$_RESERVEDEXT30 = 21357; (* Reserved EXE items *)G RMI$_RESERVEDEXT31 = 21358; (* Reserved EXE items *)G RMI$_RESERVEDEXT32 = 21359; (* Reserved EXE items *)G RMI$_RESERVEDEXT33 = 21360; (* Reserved EXE items *)G RMI$_RESERVEDEXT34 = 21361; (* Reserved EXE items *)G RMI$_RESERVEDEXT35 = 21362; (* Reserved EXE items *)G RMI$_RESERVEDEXT36 = ;21363; (* Reserved EXE items *)G RMI$_RESERVEDEXT37 = 21364; (* Reserved EXE items *)G RMI$_RESERVEDEXT38 = 21365; (* Reserved EXE items *)G RMI$_RESERVEDEXT39 = 21366; (* Reserved EXE items *)G RMI$_RESERVEDEXT40 = 21367; (* Reserved EXE items *)G RMI$_RESERVEDEXT41 = 21368; (* Reserved EXE items *)G RMI$_RESERVEDEXT42 = 21369; (* Reserved EXE items *)G RMI$_RESE<RVEDEXT43 = 21370; (* Reserved EXE items *)G RMI$_RESERVEDEXT44 = 21371; (* Reserved EXE items *)G RMI$_RESERVEDEXT45 = 21372; (* Reserved EXE items *)G RMI$_RESERVEDEXT46 = 21373; (* Reserved EXE items *)G RMI$_RESERVEDEXT47 = 21374; (* Reserved EXE items *)G RMI$_RESERVEDEXT48 = 21375; (* Reserved EXE items *)G RMI$_RESERVEDEXT49 = 21376; (* Reserved EXE items *)=G RMI$_RESERVEDEXT50 = 21377; (* Reserved EXE items *)G RMI$_RESERVEDEXT51 = 21378; (* Reserved EXE items *)G RMI$_RESERVEDEXT52 = 21379; (* Reserved EXE items *)G RMI$_RESERVEDEXT53 = 21380; (* Reserved EXE items *)G RMI$_RESERVEDEXT54 = 21381; (* Reserved EXE items *)G RMI$_RESERVEDEXT55 = 21382; (* Reserved EXE items *)G RMI$_RESERVEDEXT56 = 21383; (* Reserved EXE items > *)G RMI$_RESERVEDEXT57 = 21384; (* Reserved EXE items *)G RMI$_RESERVEDEXT58 = 21385; (* Reserved EXE items *)G RMI$_RESERVEDEXT59 = 21386; (* Reserved EXE items *)G RMI$_RESERVEDEXT60 = 21387; (* Reserved EXE items *)G RMI$_RESERVEDEXT61 = 21388; (* Reserved EXE items *)G RMI$_RESERVEDEXT62 = 21389; (* Reserved EXE items *)G RMI$_RESERVEDEXT63 = 21390; (* Reserved EXE? items *)G RMI$_RESERVEDEXT64 = 21391; (* Reserved EXE items *)G RMI$_RESERVEDEXT65 = 21392; (* Reserved EXE items *)G RMI$_RESERVEDEXT66 = 21393; (* Reserved EXE items *)G RMI$_RESERVEDEXT67 = 21394; (* Reserved EXE items *)G RMI$_RESERVEDEXT68 = 21395; (* Reserved EXE items *)G RMI$_RESERVEDEXT69 = 21396; (* Reserved EXE items *)G RMI$_RESERVEDEXT70 = 21397; (* @Reserved EXE items *)G RMI$_RESERVEDEXT71 = 21398; (* Reserved EXE items *)G RMI$_RESERVEDEXT72 = 21399; (* Reserved EXE items *)G RMI$_RESERVEDEXT73 = 21400; (* Reserved EXE items *)G RMI$_RESERVEDEXT74 = 21401; (* Reserved EXE items *)G RMI$_RESERVEDEXT75 = 21402; (* Reserved EXE items *)G RMI$_RESERVEDEXT76 = 21403; (* Reserved EXE items *)G RMI$_RESERVEDEXT77 = 21A404; (* Reserved EXE items *)G RMI$_RESERVEDEXT78 = 21405; (* Reserved EXE items *)G RMI$_RESERVEDEXT79 = 21406; (* Reserved EXE items *)G RMI$_RESERVEDEXT80 = 21407; (* Reserved EXE items *)G RMI$_RESERVEDEXT81 = 21408; (* Reserved EXE items *)G RMI$_RESERVEDEXT82 = 21409; (* Reserved EXE items *)G RMI$_RESERVEDEXT83 = 21410; (* Reserved EXE items *)G RMI$_RESERVBEDEXT84 = 21411; (* Reserved EXE items *)G RMI$_RESERVEDEXT85 = 21412; (* Reserved EXE items *)G RMI$_RESERVEDEXT86 = 21413; (* Reserved EXE items *)G RMI$_RESERVEDEXT87 = 21414; (* Reserved EXE items *)G RMI$_RESERVEDEXT88 = 21415; (* Reserved EXE items *)G RMI$_RESERVEDEXT89 = 21416; (* Reserved EXE items *)G RMI$_RESERVEDEXT90 = 21417; (* Reserved EXE items *)GC RMI$_RESERVEDEXT91 = 21418; (* Reserved EXE items *)G RMI$_RESERVEDEXT92 = 21419; (* Reserved EXE items *)G RMI$_RESERVEDEXT93 = 21420; (* Reserved EXE items *)G RMI$_RESERVEDEXT94 = 21421; (* Reserved EXE items *)G RMI$_RESERVEDEXT95 = 21422; (* Reserved EXE items *)G RMI$_RESERVEDEXT96 = 21423; (* Reserved EXE items *)G RMI$_RESERVEDEXT97 = 21424; (* Reserved EXE items D *)G RMI$_RESERVEDEXT98 = 21425; (* Reserved EXE items *)G RMI$_RESERVEDEXT99 = 21426; (* Reserved EXE items *)G RMI$_RESERVEDEXT100 = 21427; (* Reserved EXE items *)G RMI$_RESERVEDEXT101 = 21428; (* Reserved EXE items *)G RMI$_RESERVEDEXT102 = 21429; (* Reserved EXE items *)G RMI$_RESERVEDEXT103 = 21430; (* Reserved EXE items *)G RMI$_RESERVEDEXT104 = 21431; (* Reserved EXE iEtems *)G RMI$_RESERVEDEXT105 = 21432; (* Reserved EXE items *)G RMI$_RESERVEDEXT106 = 21433; (* Reserved EXE items *)G RMI$_RESERVEDEXT107 = 21434; (* Reserved EXE items *)G RMI$_RESERVEDEXT108 = 21435; (* Reserved EXE items *)G RMI$_RESERVEDEXT109 = 21436; (* Reserved EXE items *)G RMI$_RESERVEDEXT110 = 21437; (* Reserved EXE items *)G RMI$_RESERVEDEXT111 = 21438; (* ReFserved EXE items *)G RMI$_RESERVEDEXT112 = 21439; (* Reserved EXE items *)G RMI$_RESERVEDEXT113 = 21440; (* Reserved EXE items *)G RMI$_RESERVEDEXT114 = 21441; (* Reserved EXE items *)G RMI$_RESERVEDEXT115 = 21442; (* Reserved EXE items *)G RMI$_RESERVEDEXT116 = 21443; (* Reserved EXE items *)G RMI$_RESERVEDEXT117 = 21444; (* Reserved EXE items *)G RMI$_RESERVEDEXT118 = 214G45; (* Reserved EXE items *)G RMI$_RESERVEDEXT119 = 21446; (* Reserved EXE items *)G RMI$_RESERVEDEXT120 = 21447; (* Reserved EXE items *)G RMI$_RESERVEDEXT121 = 21448; (* Reserved EXE items *)G RMI$_RESERVEDEXT122 = 21449; (* Reserved EXE items *)G RMI$_RESERVEDEXT123 = 21450; (* Reserved EXE items *)G RMI$_RESERVEDEXT124 = 21451; (* Reserved EXE items *)G RMI$_RESERVEDHEXT125 = 21452; (* Reserved EXE items *)G RMI$_RESERVEDEXT126 = 21453; (* Reserved EXE items *)G RMI$_RESERVEDEXT127 = 21454; (* Reserved EXE items *)G RMI$_RESERVEDEXT128 = 21455; (* Reserved EXE items *)G RMI$_RESERVEDEXT129 = 21456; (* Reserved EXE items *)G RMI$_RESERVEDEXT130 = 21457; (* Reserved EXE items *)G RMI$_RESERVEDEXT131 = 21458; (* Reserved EXE items *)G RIMI$_RESERVEDEXT132 = 21459; (* Reserved EXE items *)G RMI$_RESERVEDEXT133 = 21460; (* Reserved EXE items *)G RMI$_RESERVEDEXT134 = 21461; (* Reserved EXE items *)G RMI$_RESERVEDEXT135 = 21462; (* Reserved EXE items *)G RMI$_RESERVEDEXT136 = 21463; (* Reserved EXE items *)G RMI$_RESERVEDEXT137 = 21464; (* Reserved EXE items *)G RMI$_RESERVEDEXT138 = 21465; (* Reserved EXE items J *)G RMI$_RESERVEDEXT139 = 21466; (* Reserved EXE items *)G RMI$_RESERVEDEXT140 = 21467; (* Reserved EXE items *)G RMI$_RESERVEDEXT141 = 21468; (* Reserved EXE items *)G RMI$_RESERVEDEXT142 = 21469; (* Reserved EXE items *)G RMI$_RESERVEDEXT143 = 21470; (* Reserved EXE items *)G RMI$_RESERVEDEXT144 = 21471; (* Reserved EXE items *)G RMI$_RESERVEDEXT145 = 21472; (* Reserved EXE iteKms *)G RMI$_RESERVEDEXT146 = 21473; (* Reserved EXE items *)G RMI$_RESERVEDEXT147 = 21474; (* Reserved EXE items *)G RMI$_RESERVEDEXT148 = 21475; (* Reserved EXE items *)G RMI$_RESERVEDEXT149 = 21476; (* Reserved EXE items *)G RMI$_RESERVEDEXT150 = 21477; (* Reserved EXE items *)G RMI$_RESERVEDEXT151 = 21478; (* Reserved EXE items *)G RMI$_RESERVEDEXT152 = 21479; (* ReseLrved EXE items *)G RMI$_RESERVEDEXT153 = 21480; (* Reserved EXE items *)G RMI$_RESERVEDEXT154 = 21481; (* Reserved EXE items *)G RMI$_RESERVEDEXT155 = 21482; (* Reserved EXE items *)G RMI$_RESERVEDEXT156 = 21483; (* Reserved EXE items *)G RMI$_RESERVEDEXT157 = 21484; (* Reserved EXE items *)G RMI$_RESERVEDEXT158 = 21485; (* Reserved EXE items *)G RMI$_RESERVEDEXT159 = 21486M; (* Reserved EXE items *)G RMI$_RESERVEDEXT160 = 21487; (* Reserved EXE items *)G RMI$_RESERVEDEXT161 = 21488; (* Reserved EXE items *)G RMI$_RESERVEDEXT162 = 21489; (* Reserved EXE items *)G RMI$_RESERVEDEXT163 = 21490; (* Reserved EXE items *)G RMI$_RESERVEDEXT164 = 21491; (* Reserved EXE items *)G RMI$_RESERVEDEXT165 = 21492; (* Reserved EXE items *)G RMI$_RESERVEDEXNT166 = 21493; (* Reserved EXE items *)G RMI$_RESERVEDEXT167 = 21494; (* Reserved EXE items *)G RMI$_RESERVEDEXT168 = 21495; (* Reserved EXE items *)G RMI$_RESERVEDEXT169 = 21496; (* Reserved EXE items *)G RMI$_RESERVEDEXT170 = 21497; (* Reserved EXE items *)G RMI$_RESERVEDEXT171 = 21498; (* Reserved EXE items *)G RMI$_RESERVEDEXT172 = 21499; (* Reserved EXE items *)G RMIO$_RESERVEDEXT173 = 21500; (* Reserved EXE items *)G RMI$_RESERVEDEXT174 = 21501; (* Reserved EXE items *)G RMI$_RESERVEDEXT175 = 21502; (* Reserved EXE items *)G RMI$_RESERVEDEXT176 = 21503; (* Reserved EXE items *)G RMI$_RESERVEDEXT177 = 21504; (* Reserved EXE items *)G RMI$_RESERVEDEXT178 = 21505; (* Reserved EXE items *)G RMI$_RESERVEDEXT179 = 21506; (* Reserved EXE items P *)G RMI$_RESERVEDEXT180 = 21507; (* Reserved EXE items *)G RMI$_RESERVEDEXT181 = 21508; (* Reserved EXE items *)G RMI$_RESERVEDEXT182 = 21509; (* Reserved EXE items *)G RMI$_RESERVEDEXT183 = 21510; (* Reserved EXE items *)G RMI$_RESERVEDEXT184 = 21511; (* Reserved EXE items *)G RMI$_RESERVEDEXT185 = 21512; (* Reserved EXE items *)G RMI$_RESERVEDEXT186 = 21513; (* Reserved EXE itemsQ *)G RMI$_RESERVEDEXT187 = 21514; (* Reserved EXE items *)G RMI$_RESERVEDEXT188 = 21515; (* Reserved EXE items *)G RMI$_RESERVEDEXT189 = 21516; (* Reserved EXE items *)G RMI$_RESERVEDEXT190 = 21517; (* Reserved EXE items *)G RMI$_RESERVEDEXT191 = 21518; (* Reserved EXE items *)G RMI$_RESERVEDEXT192 = 21519; (* Reserved EXE items *)G RMI$_RESERVEDEXT193 = 21520; (* ReservRed EXE items *)G RMI$_RESERVEDEXT194 = 21521; (* Reserved EXE items *)G RMI$_RESERVEDEXT195 = 21522; (* Reserved EXE items *)G RMI$_RESERVEDEXT196 = 21523; (* Reserved EXE items *)G RMI$_RESERVEDEXT197 = 21524; (* Reserved EXE items *)G RMI$_RESERVEDEXT198 = 21525; (* Reserved EXE items *)G RMI$_RESERVEDEXT199 = 21526; (* Reserved EXE items *)G RMI$_RESERVEDEXT200 = 21527; S (* Reserved EXE items *)G RMI$_RESERVEDEXT201 = 21528; (* Reserved EXE items *)G RMI$_RESERVEDEXT202 = 21529; (* Reserved EXE items *)G RMI$_RESERVEDEXT203 = 21530; (* Reserved EXE items *)G RMI$_RESERVEDEXT204 = 21531; (* Reserved EXE items *)G RMI$_RESERVEDEXT205 = 21532; (* Reserved EXE items *)G RMI$_RESERVEDEXT206 = 21533; (* Reserved EXE items *)G RMI$_RESERVEDEXT2T07 = 21534; (* Reserved EXE items *)G RMI$_RESERVEDEXT208 = 21535; (* Reserved EXE items *)G RMI$_RESERVEDEXT209 = 21536; (* Reserved EXE items *)G RMI$_RESERVEDEXT210 = 21537; (* Reserved EXE items *)G RMI$_RESERVEDEXT211 = 21538; (* Reserved EXE items *)G RMI$_RESERVEDEXT212 = 21539; (* Reserved EXE items *)G RMI$_RESERVEDEXT213 = 21540; (* Reserved EXE items *)G RMI$_URESERVEDEXT214 = 21541; (* Reserved EXE items *)G RMI$_RESERVEDEXT215 = 21542; (* Reserved EXE items *)G RMI$_RESERVEDEXT216 = 21543; (* Reserved EXE items *)G RMI$_RESERVEDEXT217 = 21544; (* Reserved EXE items *)G RMI$_RESERVEDEXT218 = 21545; (* Reserved EXE items *)G RMI$_RESERVEDEXT219 = 21546; (* Reserved EXE items *)G RMI$_RESERVEDEXT220 = 21547; (* Reserved EXE items V *)G RMI$_RESERVEDEXT221 = 21548; (* Reserved EXE items *)G RMI$_RESERVEDEXT222 = 21549; (* Reserved EXE items *)G RMI$_RESERVEDEXT223 = 21550; (* Reserved EXE items *)G RMI$_RESERVEDEXT224 = 21551; (* Reserved EXE items *)G RMI$_RESERVEDEXT225 = 21552; (* Reserved EXE items *)G RMI$_RESERVEDEXT226 = 21553; (* Reserved EXE items *)G RMI$_RESERVEDEXT227 = 21554; (* Reserved EXE items W *)G RMI$_RESERVEDEXT228 = 21555; (* Reserved EXE items *)G RMI$_RESERVEDEXT229 = 21556; (* Reserved EXE items *)G RMI$_RESERVEDEXT230 = 21557; (* Reserved EXE items *)G RMI$_RESERVEDEXT231 = 21558; (* Reserved EXE items *)G RMI$_RESERVEDEXT232 = 21559; (* Reserved EXE items *)G RMI$_RESERVEDEXT233 = 21560; (* Reserved EXE items *)G RMI$_RESERVEDEXT234 = 21561; (* ReservedX EXE items *)G RMI$_RESERVEDEXT235 = 21562; (* Reserved EXE items *)G RMI$_RESERVEDEXT236 = 21563; (* Reserved EXE items *)G RMI$_RESERVEDEXT237 = 21564; (* Reserved EXE items *)G RMI$_RESERVEDEXT238 = 21565; (* Reserved EXE items *)G RMI$_RESERVEDEXT239 = 21566; (* Reserved EXE items *)G RMI$_RESERVEDEXT240 = 21567; (* Reserved EXE items *)G RMI$_RESERVEDEXT241 = 21568; Y (* Reserved EXE items *)G RMI$_RESERVEDEXT242 = 21569; (* Reserved EXE items *)G RMI$_RESERVEDEXT243 = 21570; (* Reserved EXE items *)G RMI$_RESERVEDEXT244 = 21571; (* Reserved EXE items *)G RMI$_RESERVEDEXT245 = 21572; (* Reserved EXE items *)G RMI$_RESERVEDEXT246 = 21573; (* Reserved EXE items *)G RMI$_RESERVEDEXT247 = 21574; (* Reserved EXE items *)G RMI$_RESERVEDEXT248Z = 21575; (* Reserved EXE items *)G RMI$_RESERVEDEXT249 = 21576; (* Reserved EXE items *)G RMI$_RESERVEDEXT250 = 21577; (* Reserved EXE items *)G RMI$_RESERVEDEXT251 = 21578; (* Reserved EXE items *)G RMI$_RESERVEDEXT252 = 21579; (* Reserved EXE items *)G RMI$_RESERVEDEXT253 = 21580; (* Reserved EXE items *)G RMI$_RESERVEDEXT254 = 21581; (* Reserved EXE items *)G RMI$_RE[SERVEDEXT255 = 21582; (* Reserved EXE items *)G RMI$_RESERVEDEXT256 = 21583; (* Reserved EXE items *)G RMI$_RESERVEDEXT257 = 21584; (* Reserved EXE items *)G RMI$_RESERVEDEXT258 = 21585; (* Reserved EXE items *)G RMI$_RESERVEDEXT259 = 21586; (* Reserved EXE items *)G RMI$_RESERVEDEXT260 = 21587; (* Reserved EXE items *)G RMI$_RESERVEDEXT261 = 21588; (* Reserved EXE items *\)G RMI$_RESERVEDEXT262 = 21589; (* Reserved EXE items *)G RMI$_RESERVEDEXT263 = 21590; (* Reserved EXE items *)G RMI$_RESERVEDEXT264 = 21591; (* Reserved EXE items *)G RMI$_RESERVEDEXT265 = 21592; (* Reserved EXE items *)G RMI$_RESERVEDEXT266 = 21593; (* Reserved EXE items *)G RMI$_RESERVEDEXT267 = 21594; (* Reserved EXE items *)G RMI$_RESERVEDEXT268 = 21595; (* Reserved EXE items ] *)G RMI$_RESERVEDEXT269 = 21596; (* Reserved EXE items *)G RMI$_RESERVEDEXT270 = 21597; (* Reserved EXE items *)G RMI$_RESERVEDEXT271 = 21598; (* Reserved EXE items *)G RMI$_RESERVEDEXT272 = 21599; (* Reserved EXE items *)G RMI$_RESERVEDEXT273 = 21600; (* Reserved EXE items *)G RMI$_RESERVEDEXT274 = 21601; (* Reserved EXE items *)G RMI$_RESERVEDEXT275 = 21602; (* Reserved E^XE items *)G RMI$_RESERVEDEXT276 = 21603; (* Reserved EXE items *)G RMI$_RESERVEDEXT277 = 21604; (* Reserved EXE items *)G RMI$_RESERVEDEXT278 = 21605; (* Reserved EXE items *)G RMI$_RESERVEDEXT279 = 21606; (* Reserved EXE items *)G RMI$_RESERVEDEXT280 = 21607; (* Reserved EXE items *)G RMI$_RESERVEDEXT281 = 21608; (* Reserved EXE items *)G RMI$_RESERVEDEXT282 = 21609; (_* Reserved EXE items *)G RMI$_RESERVEDEXT283 = 21610; (* Reserved EXE items *)G RMI$_RESERVEDEXT284 = 21611; (* Reserved EXE items *)G RMI$_RESERVEDEXT285 = 21612; (* Reserved EXE items *)G RMI$_RESERVEDEXT286 = 21613; (* Reserved EXE items *)G RMI$_RESERVEDEXT287 = 21614; (* Reserved EXE items *)G RMI$_RESERVEDEXT288 = 21615; (* Reserved EXE items *)G RMI$_RESERVEDEXT289 =` 21616; (* Reserved EXE items *)G RMI$_RESERVEDEXT290 = 21617; (* Reserved EXE items *)G RMI$_RESERVEDEXT291 = 21618; (* Reserved EXE items *)G RMI$_RESERVEDEXT292 = 21619; (* Reserved EXE items *)G RMI$_RESERVEDEXT293 = 21620; (* Reserved EXE items *)G RMI$_RESERVEDEXT294 = 21621; (* Reserved EXE items *)G RMI$_RESERVEDEXT295 = 21622; (* Reserved EXE items *)G RMI$_RESEaRVEDEXT296 = 21623; (* Reserved EXE items *)G RMI$_RESERVEDEXT297 = 21624; (* Reserved EXE items *)G RMI$_RESERVEDEXT298 = 21625; (* Reserved EXE items *)G RMI$_RESERVEDEXT299 = 21626; (* Reserved EXE items *)G RMI$_RESERVEDEXT300 = 21627; (* Reserved EXE items *)K RMI$_LASTEX2 = 21628; (* Last item in the exec writable table *) N(* b *)O(* Add new data items specific to MONITOR (not collected by the RMI on a per *)N(* item basis) above this point. *)N(* *) CONST RMI$_tablesize = 1148; N(* *)N(* End of MONITOR specific data items. *)N(* c *) KTYPE rmi$scs_offsets = RECORD (* SCS class information *)G RMI$q_scs_nodename : $QUAD; (* System node name *)G RMI$l_scs_dgsent : INTEGER; (* Application datagrams sent *)G RMI$l_scs_dgrcvd : INTEGER; (* Application datagrams received *)I RMI$l_scs_dgdiscard : INTEGER; (* Application datagrams discarded *)G RMI$l_scs_msgsent : INTEGER; (* Application messages sent *)G RMI$l_scs_msgrcvdd : INTEGER; (* Application messages received *)G RMI$l_scs_snddats : INTEGER; (* Block send datas initiated *)G RMI$l_scs_kbytsent : INTEGER; (* Kbytes sent via send datas *)G RMI$l_scs_reqdats : INTEGER; (* Block request datas initiated *)J RMI$l_scs_kbytreqd : INTEGER; (* Kbytes received via request datas *)J RMI$l_scs_kbytmapd : INTEGER; (* Kbytes mapped for block transfers *)O RMI$l_scs_qcr_cnt : INTEGER; (* Times connection queued for send credit *) eV RMI$l_scs_qbdt_cnt : INTEGER; (* Times connection queued for buffer descriptor *) END; VCONST RMI$c_scs_minsize = 56; (* Size of one collection block for scs class *) KTYPE rmi$disk_offsets = RECORD (* DISK class information for *)G (* current revision level *)G RMI$w_disk_alloclass : $WORD; (* Allocation class *)G RMI$l_disk_devname : INTEGER; (* Device name *)G RMI$w_dfisk_unitnum : $WORD; (* Unit number *)P RMI$b_disk_flags : $BYTE; (* Flags byte (low bit indicates served disk *)G RMI$q_disk_nodename : $QUAD; (* Nodename *)G RMI$q_disk_volnamel : $QUAD; (* Volume name (low) *)G RMI$l_disk_volnameh : INTEGER; (* Volume name (high) *)G RMI$l_disk_optcnt : INTEGER; (* Operation count *)G RMI$l_disk_qcount : INTEGER; (* Queue length accumulator g *) END; LCONST RMI$c_disk_minsize = 37; (* Size of one block *) KTYPE rmi$disk_offsets_rev4 = RECORD (* DISK class information *)G (* for "revision level 4" *)G RMI$b_disk_alloclass_rev4 : $BYTE; (* Allocation class *)G RMI$l_disk_devname_rev4 : INTEGER; (* Device name *)G RMI$w_disk_unitnum_rev4 : $WORD; (* Unit number *)S RMI$b_disk_flags_rev4 : $ hBYTE; (* Flags byte (low bit indicates served disk *)G RMI$q_disk_nodename_rev4 : $QUAD; (* Nodename *)G RMI$q_disk_volnamel_rev4 : $QUAD; (* Volume name (low) *)G RMI$l_disk_volnameh_rev4 : INTEGER; (* Volume name (high) *)G RMI$l_disk_optcnt_rev4 : INTEGER; (* Operation count *)G RMI$l_disk_qcount_rev4 : INTEGER; (* Queue length accumulator *) END; LCONST RMI$c_disk_minsize_rev4 = 36; (* Size of one block i *) KTYPE rmi$proc_class = RECORD (* PROCESSES Class Data Block *)G RMI$l_proc_ipid : INTEGER; (* Internal PID *)G RMI$l_proc_uic : INTEGER; (* UIC (Member is low-order word) *)G RMI$w_proc_state : $WORD; (* State value *)G RMI$b_proc_pri : $BYTE; (* Priority (negative value) *)G RMI$o_proc_lname : $OCTA; (* Process name (counted string) *)G RMI$l_proc_gpgcnt : INTEGER; (* Global jpage count *)G RMI$l_proc_ppgcnt : INTEGER; (* Process page count *)G RMI$l_proc_sts : INTEGER; (* PCB Status Vector *)M (* (PCB$V_RES bit clear => swapped out) *)G RMI$l_proc_diocnt : INTEGER; (* Direct I/O count *)G RMI$l_proc_pageflts : INTEGER; (* Page fault count *)G RMI$l_proc_cputim : INTEGER; (* Accumulated CPU time (in ticks) *)G RMI$l_proc_biocnt : I kNTEGER; (* Buffered I/O count *)G RMI$l_proc_epid : INTEGER; (* Extended PID *)H RMI$l_proc_efwm : INTEGER; (* Event flag wait mask (for MWAITs) *)G RMI$l_proc_rbstran : INTEGER; (* Real balance slot transitions *)G (* Size of process data block *) END; CONST RMI$c_proc_minsize = 67; (*** MODULE $REGDEF ***) N(* *)N(* l+===================================================================+ *)N(* | *)N(* | REG - Registry system service ($REGISTRY) definition *)N(* | *)N(* +===================================================================+ *)N(* *)N(* +-------------------------m------------------------------------------+ *)N(* | Function codes *)N(* +-------------------------------------------------------------------+ *)N(* *) RCONST REG$FC_CLOSE_KEY = 1; (* Releases the resources for a given key *)f REG$FC_CREATE_KEY = 2; (* Either creates a specified key or opens it if it already exists *)P REG$FC_DELETE_KEY = 3; n (* Removes a specified key from the registry *)S REG$FC_DELETE_VALUE = 4; (* Deletes the specified value from a given key *)K REG$FC_ENUM_KEY = 5; (* Retrieves information about a subkey *)J REG$FC_ENUM_VALUE = 6; (* Retrieves information about a value *)[ REG$FC_FLUSH_KEY = 7; (* Write all the information of a specified key to disk *)^ REG$FC_LOAD_KEY = 8; (* Create a subkey and store information from a given file *)Q REG$FC_MODIFY_KEYo = 9; (* Modifies information about a specified key *)e REG$FC_MODIFY_TREE_KEY = 10; (* Modifies information about a specified key and all its subkeys *)i REG$FC_NOTIFY_CHANGE_KEY_VALUE = 11; (* Notifies the calling process when a specified key has changed *)G REG$FC_OPEN_KEY = 12; (* Opens a specified key *)R REG$FC_QUERY_KEY = 13; (* Retrieves information about a specified key *)T REG$FC_QUERY_VALUE = 14; (* Retrieves information about a specpified value *)n REG$FC_REPLACE_KEY = 15; (* Replaces a key and all its subkeys with information in a specified file *)K REG$FC_RESTORE_KEY = 16; (* Restores a key from a specified file *)V REG$FC_SAVE_KEY = 17; (* Saves a key and its subkeys to a specified file *)\ REG$FC_SEARCH_TREE_DATA = 18; (* Scan a key and its subkeys for a given data component *)T REG$FC_SEARCH_TREE_KEY = 19; (* Scan a key and its subkeys for a given subkey *)S REG$FC_SEARCH_TREE_VALUE = 20; q (* Scan a key and its subkeys for a given value *)G REG$FC_SET_VALUE = 21; (* Sets value infornation *)K REG$FC_UNLOAD_KEY = 22; (* Removes a key tree form the registry *)G REG$FC_GET_KEY_SECURITY = 23; (* Retrieves a key security profile *)G REG$FC_SET_KEY_SECURITY = 24; (* Sets a key security profile *)H REG$FC_GET_PERFORMANCE = 25; (* Retrieves performance information *)G REG$FC_GET_FILE_INFO = 26; (* Retrieves file statistics *)O REGr$FC_GET_FILE_UPDATE = 27; (* Retrieves segment allocation information *)G REG$FC_CREATE_DATABASE = 28; (* Creates the registry database *)O REG$FC_MAKE_SNAPSHOT = 29; (* Take a snpashot of the Registry database *)G REG$FC_ARCHIVE = 30; (* Archive the registry database *)G REG$FC_LAST = 31; (* Always last *) N(* *)N(* +----------------------------------- s--------------------------------+ *)N(* | Item Code Modifiers *)N(* +-------------------------------------------------------------------+ *)N(* *) LCONST REG$M_UNICODE_STRING = 8192; (* 0x2000 string is Unicode *) N(* *)N(* +------------------------------------------------------- t------------+ *)N(* | Item Codes *)N(* +-------------------------------------------------------------------+ *)N(* *) LCONST REG$_TERMINATOR = 0; (* network packet terminator *)G REG$_SEPARATOR = 1; (* item code list seperator *)G REG$_SECPROFILE = 514; (* security profile *)G REG$_REQUEST = u515; (* TLV of item code TLVs (request) *)G REG$_ACMODE = 1284; (* access mode *)J REG$_ACTIONCODE = 1285; (* action code for performance & space *)G REG$_CACHEACTION = 1286; (* cache action (thru/behind ) *)G REG$_CANCELNOTIFICATION = 519; (* Cancel notify key change notify *)G REG$_CLASSNAME = 264; (* class name *)G REG$_CLASSNAMEMAX = 1289; (* longest class name length *)K RvEG$_CLASSNAMESIZE = 1290; (* destination's class name buffer size *)G REG$_DATAFLAGS = 1547; (* data flags *)G REG$_DATATYPE = 1292; (* data type *)G REG$_DISPOSITION = 1293; (* createnewkey/openexistingkey *)G REG$_FILEINFODATA = 526; (* File info data *)G REG$_FILELOAD = 1807; (* OpenVMS file name to load *)G REG$_FILESAVE = 1808; (* OpenVMS file name to savwe *)G REG$_FILEUPDATEDATA = 529; (* File update data *)G REG$_FLAGOPCODE = 1298; (* how data flags is used *)G REG$_FLAGSUBKEY = 1299; (* report (sub)key changes *)G REG$_KEYID = 1300; (* input key id in longword format *)K REG$_KEYID_INTERNAL = 533; (* internal key id in UID/FSO/LH format *)G REG$_KEYFLAGS = 1302; (* KEY flags *)G REG$_KEYPATH = 279; (* Path to xkey object *)G REG$_KEYRESULT = 1304; (* output key id in longword format *)K REG$_KEYRESULT_INTERNAL = 537; (* internal key id in UID/FSO/LH format *)G REG$_LASTWRITE = 1562; (* time key was last written *)G REG$_LINKCOUNT = 1307; (* Count of links refer to item *)G REG$_LINKPATH = 284; (* key path a key is linked to *)J REG$_LINKPATHSIZE = 1309; (* destination's link path buffer size *)G REG$_LINKTYPE = 1310; y (* Link type (logical/physical) *)G REG$_LOCK = 1311; (* what lock on open/create key *)G REG$_NEWNAME = 288; (* new name of a key create/rename *)G REG$_NOTIFYFILTER = 1313; (* which key changes to reported *)J REG$_PATHBUFFER = 546; (* set of paths separated by null byte *)G REG$_PERFORMANCEDATA = 547; (* Performance data *)G REG$_REQLENGTH = 1316; (* required buffer size *)J REG$_RETURNzSTATUS = 1317; (* return status for a given operation *)G REG$_SECACCESS = 1318; (* security access for a new key *)M REG$_SECONDSTATUS = 1319; (* secondary status for a given operation *)K REG$_SECURITYPOLICY = 1320; (* Security policy to enforce for a key *)M REG$_SEGMENTNUMBER = 1321; (* Segment Number for locating space info *)G REG$_SNAPSHOTDESTINATION = 1834; (* Snapshot destination directory *)G REG$_SNAPSHOTVERSIONS = 1323; (* Snapshot versions to{ maintain *)G REG$_SUBKEYINDEX = 1324; (* Index of the subkey to retrieve *)G REG$_SUBKEYNAME = 301; (* name of a subkey *)J REG$_SUBKEYNAMEMAX = 1326; (* longest subkey name for a given key *)L REG$_SUBKEYNAMESIZE = 1327; (* destination's subkey name buffer size *)G REG$_SUBKEYSNUMBER = 1328; (* Number of subkeys in a given key *)G REG$_SECURITYINFORMATION = 1329; (* NT Security information *)G REG$_SECURITYDESCRIPTOR = 562; (* NT| Security descriptor *)G REG$_VALUEINDEX = 1331; (* index of the value to retrieve *)G REG$_VALUEDATA = 564; (* value data component *)I REG$_VALUEDATAMAX = 1333; (* longest value data for a given key *)K REG$_VALUEDATASIZE = 1334; (* destination's value data buffer size *)G REG$_VALUENAME = 311; (* specifies the name of a value *)I REG$_VALUENAMEMAX = 1336; (* longest value name for a given key *)K REG$_VALUENAMESIZ}E = 1337; (* destination's value name buffer size *)G REG$_VALUENUMBER = 1338; (* number of values in a given key *)I REG$_VOLATILE = 1339; (* Identifies volatility of an object *)H REG$_WILDASTERISK = 316; (* char to replace asterisk wildcard *)G REG$_WILDPERCENT = 317; (* char to replace percent wildcard *)G REG$_WILDPERIODS = 318; (* char to replace periods wildcard *)G REG$_INSTRUMENTFILE = 575; (* unknown *)G~ REG$_INSTRUMENTKEY = 576; (* unknown *)G REG$_INSTRUMENTDATA = 577; (* unknown *)J REG$_FILENAME = 1858; (* file requested for space monitoring *)G REG$_COUNTER = 1347; (* a counter index *)G REG$_SECDESCRIPTORLEN = 1348; (* Length of security descriptor *)O REG$_SECDESCLEN_INTERNAL = 1349; (* Internal length of security descriptor *)O REG$_VALUEDATASIZE_INTERNAL = 1350; (* Internal des t value data buffer size *)I REG$_SAMDESIRED = 1351; (* SamDesired - for AS & Bristol only *)K REG$_DATABASE_VERSION = 1352; (* Database version for Create Database *)G REG$_LAST = 73; (* Always last *) N(* *)N(* +-------------------------------------------------------------------+ *)N(* | Item Code Values *)N(* +-------------------------------------------------------------------+ *)N(* *) LCONST REG$K_NONE = 0; (* The item is not volatile *)S REG$K_CLUSTER = 1; (* The item is removed when the cluster reboots *)R REG$K_SYSTEM = 2; (* The item is removed when the system reboots *)_ REG$K_PROCESS = 3; (* The item is removed when the creating process terminates *)] REG$K_IMAGE = 4; (* The item is removes when the creating image terminates *)q REG$K_WRITEBEHIND = 5; (* The information on the given object can be written to disk at a later time *)n REG$K_WRITETHRU = 6; (* The information on the given object must be written to disk immediately *)G REG$K_CREATENEWKEY = 7; (* Created a new key *)G REG$K_OPENEXISTINGKEY = 8; (* Opened an existing key *)U REG$K_POLICY_OPENVMS = 9; (* Access is required to all keys in the key path *)` REG$K_POLICY_NT_40 = 10; (* Access is required to the first key and the requested key *)G REG$K_INTERNAL = 11; (* *)G REG$K_HARDLINK = 12; (* Hard (physical) link *)G REG$K_SYMBOLICLINK = 13; (* Symbolic (logical) link *)G REG$K_BINARY = 14; (* Binary data *)G REG$K_DWORD = 15; (* A 32 bit number  *)O REG$K_DWLITTLEENDIAN = 16; (* A 32 bit number in little endian format *)J REG$K_DWBIGENDIAN = 17; (* A 32 bit number in bi endian format *)j REG$K_EXPAND_SZ = 18; (* A string of ISO-1 Latin characters containing environment variables *)G REG$K_LINK = 19; (* A link to another value *)O REG$K_MULTI_SZ = 20; (* A concatenated array of REG$K_SZ strings *)G REG$K_QWORD = 21; (* A 64 bit number  *)G REG$K_RESOURCELIST = 22; (* A device driver resource list *)G REG$K_SZ = 23; (* A null terminated string *)G REG$K_START_FILE = 24; (* *)G REG$K_START_PERF = 25; (* *)G REG$K_STOP_FILE = 26; (* *)G REG$K_STOP_PERF = 27; (* *)G REG$K_ZERO_FILE = 28; (*  *)G REG$K_ZERO_PERF = 29; (* *)G REG$K_SHOW_CTR_FILE = 30; (* *)G REG$K_SHOW_CTR_PERF = 31; (* *)G REG$K_SHOW_FILE = 32; (* *)G REG$K_NORMAL = 33; (* String size <= 8K *)G REG$K_LARGE = 34; (* String size > 8K *)G REG$K_EXACTMATCH = 35; (*  *)G REG$K_INCLUDE = 36; (* *)G REG$K_EXCLUDE = 37; (* *)G REG$K_ANY = 38; (* *)G REG$K_NOTANY = 39; (* *) N(* *)N(* +-------------------------------------------------------------------+ *)N(* | Function Code Modifiers *)N(* +-------------------------------------------------------------------+ *)N(* *) CONST REG$M_FC = 1023; REG$M_CASE_SENSITIVE = 1024; REG$M_DISABLE_WILDCARDS = 2048; REG$M_IGNORE_LINKS = 4096; REG$M_NOW = 8192; REG$M_NOWAIT = 16384; REG$M_UNICODE_VALUES = 32768; REG$M_BYPASS = 65536; REG$M_INTERNAL = 131072; &TYPE REG$TYPE = RECORD CASE INTEGER OF/ 1: (REG$R_FC_MODIFIERS : [BYTE(3)] RECORD END; ); 2: (REG$V_FC : [POS(0)] $BIT10;r REG$V_CASE_SENSITIVE : [POS(10)] $BOOL; (* Indicates that the case sensitivity of keys be uses for matches *) REG$V_DISABLE_WILDCARDS : [POS(11)] $BOOL; (* Indicates that wildcards characters should be traited as normal characters *)e REG$V_IGNORE_LINKS : [POS(12)] $BOOL; (* Indicates that symbolic links should not be followed *)s REG$V_NOW : [POS(13)] $BOOL; (* Indicates w hether or not an operation should be written to disk immediately *)i REG$V_NOWAIT : [POS(14)] $BOOL; (* Indicates that operation should be aborted rather than stalled *)[ REG$V_UNICODE_VALUES : [POS(15)] $BOOL; (* Indicates that data is an UNICODE string *)G REG$V_BYPASS : [POS(16)] $BOOL; (* *)I REG$V_INTERNAL : [POS(17)] $BOOL; (* Indicates internal operation *) ) END; N(*  *)N(* +-------------------------------------------------------------------+ *)N(* | Key Change Notify Flags *)N(* +-------------------------------------------------------------------+ *)N(* *) CONST REG$M_CHANGENAME = 1; REG$M_CHANGEATTRIBUTES = 2; REG$M_CHANGELASTSET = 4; REG$M_CHANGESECURITY = 8; ,TYPE KEYCHANGE$TYPE = RECORD CASE INTEGER OF2  1: (REG$R_KEYCHANGE_FLAGS : [BYTE(1)] RECORD END; );o 2: (REG$V_CHANGENAME : [POS(0)] $BOOL; (* A key name change, includes creation and deletion of its subkeys. *)V REG$V_CHANGEATTRIBUTES : [POS(1)] $BOOL; (* Attribute change of key or subkeys *)Y REG$V_CHANGELASTSET : [POS(2)] $BOOL; (* Last write time change of key or subkeys *)^ REG$V_CHANGESECURITY : [POS(3)] $BOOL; (* Security descriptor change of key or subkeys *) ) END; N(*  *)N(* +-------------------------------------------------------------------+ *)N(* | Security access Mask *)N(* +-------------------------------------------------------------------+ *)N(* *) CONST REG$M_ALLACCESS = 1; REG$M_CREATELINK = 2; REG$M_CREATESUBKEY = 4; REG$M_ENUMSUBKEYS = 8; REG$M_EXECUTE = 16; REG$M_NOTIFY = 32; REG$M_QUERYVALUE = 64; REG$M_READ = 128; REG$M_SETVALUE = 256; REG$M_WRITE = 512; REG$M_DELETEACCESS = 1024; REG$M_READCONTROL = 2048; REG$M_WRITEDAC = 4096; REG$M_WRITEOWNER = 8192; REG$M_SYNCHRONIZE = 16384;$ REG$M_ACCESSSYSTEMSECURITY = 32768; REG$M_MAXIMUMALLOWED = 65536; REG$M_GENERICALL = 131072; REG$M_GENERICEXECUTE = 262144; REG$M_GENERICWRITE = 524288; REG$M_GENERICREAD = 1048576; ,TYPE SECACCESS$TYPE = RECORD CASE INTEGER OF1 1: (REG$R_S ECACCESS_MASK : [BYTE(3)] RECORD END; );G 2: ( (* NT equivalent *)G REG$V_ALLACCESS : [POS(0)] $BOOL; (* KEY_ALL_ACCESS *)G REG$V_CREATELINK : [POS(1)] $BOOL; (* KEY_CREATE_LINK *)G REG$V_CREATESUBKEY : [POS(2)] $BOOL; (* KEY_CREATE_SUB_KEY *)G REG$V_ENUMSUBKEYS : [POS(3)] $BOOL; (* KEY_ENUMERATE_SUB_KEYS *)G REG$V_EXECUTE : [POS(4)] $BOOL; (* KEY_EXECUTE *)G REG$V_NOTIFY : [POS(5)] $BOOL; (* KEY_NOTIFY *)G REG$V_QUERYVALUE : [POS(6)] $BOOL; (* KEY_QUERY_VALUE *)f REG$V_READ : [POS(7)] $BOOL; (* READ_CONTROL|KEY_QUERY_VALUE|KEY_ENUMERATE_SUB_KEYS|KEY_NOTIFY *)G REG$V_SETVALUE : [POS(8)] $BOOL; (* KEY_SET_VALUE *)V REG$V_WRITE : [POS(9)] $BOOL; (* READ_CONTROL|KEY_SET_VALUE|KEY_CREATE_SUB_KEY *)G REG$V_DELETEACCESS : [POS(10)] $BOOL; (* DELETE_ACCESS *)G REG$V_READCONTROL : [POS(11)] $BOOL; (* READ_CONTROL *)G REG$V_WRITEDAC : [POS(12)] $BOOL; (* WRITE_DAC *)G REG$V_WRITEOWNER : [POS(13)] $BOOL; (* WRITE_OWNER *)G REG$V_SYNCHRONIZE : [POS(14)] $BOOL; (* SYNCHRONIZE *)O REG$V_ACCESSSYSTEMSECURITY : [POS(15)] $BOOL; (* ACCESS_SYSTEM_SECURITY *)G REG$V_MAXIMUMALLOWED : [POS(16)] $BOOL; (* MAXIMUM_ALLOWED *)G REG$V_GENERICALL : [POS(17)] $BOOL; (* GENERIC_ALL *)G REG$V _GENERICEXECUTE : [POS(18)] $BOOL; (* GENERIC_EXECUTE *)G REG$V_GENERICWRITE : [POS(19)] $BOOL; (* GENERIC_WRITE *)G REG$V_GENERICREAD : [POS(20)] $BOOL; (* GENERIC_READ *) ) END; N(* *)N(* +-------------------------------------------------------------------+ *)N(* | HKEY Definitions *)N(* +----------------------------- --------------------------------------+ *)N(* *) LCONST REG$_HKEY_NONE = 0; (* %x00000000 *)G REG$_HKEY_CLASSES_ROOT = -2147483648; (* %x80000000 *)G REG$_HKEY_CURRENT_USER = -2147483647; (* %x80000001 *)G REG$_HKEY_LOCAL_MACHINE = -2147483646; (* %x80000002 *)G REG$_HKEY_USERS = -2147483645; (* %x80000003 *)G R EG$_HKEY_PERFORMANCE_DATA = -2147483644; (* %x80000004 *)G REG$_HKEY_LAST_ROOT_KEY = 5; (* *) (*** MODULE $RNHBLKDEF ***) LCONST rnhblk$k_LENGTH = 20; (*length of overhead *)G rnhblk$c_LENGTH = 20; (*length of overhead *) TYPE RNHBLK$TYPE = RECORDG RNHBLK$L_FLNK : UNSIGNED; (*forward link *)G RNHBLK$L_HANDLER : UNSIGNED; (*handler address  *)G RNHBLK$L_FILL_1 : INTEGER; (*reserved *)G RNHBLK$L_ARGCNT : UNSIGNED; (*argument count *)G RNHBLK$L_EVENT : UNSIGNED; (*address of the event code *) END; (*** MODULE $RSDMDEF ***) LCONST RSDM$_JOIN_SYSTEM = 1; (* System RD Join function *)G RSDM$_JOIN_DEFAULT = 2; (* Process default RD Join function *)G RSDM$_JOIN_DOMAIN = 3; (* Other RD Join function *)G RSD M$_LEAVE = 4; (* Leave RD function *) RSDM$K_SYSTEM_RSDM_ID = 1; N(* System RSDM_ID *) !CONST RSDM$K_PROCESS_RSDM_ID = 2; N(* Process RSDM_ID *)N(*+ *)N(* RSDM$ bitfields *)N(*-  *) CONST RSDM$M_READ = 1; RSDM$M_WRITE = 2; RSDM$M_LOCK = 4; +TYPE RSDMBITS$TYPE = RECORD CASE INTEGER OF, 1: (RSDM$R_FILL_10_ : [BYTE(4)] RECORD END; ); 2: (); 3: ();G 4: (RSDM$V_READ : [POS(0)] $BOOL; (* Read access *)G RSDM$V_WRITE : [POS(1)] $BOOL; (* Write access *)G RSDM$V_LOCK : [POS(2)] $BOOL; (* Lock access *) ) END; (*** MODULE $SBKDEF ***) N(*+ *)N(* *)N(* Statistics block. This block is used to report various data regarding *)N(* an open file to the requesting program. *)N(* *)N(*- *)N(*  *)N(* The first two longwords are presented in inverted form for compatibility *)N(* with the old RSX-11 statistics block. *)N(* *) CONST SBK$K_LENGTH = 32; SBK$C_LENGTH = 32; &TYPE SBK$TYPE = RECORD CASE INTEGER OF0 1: (SBK$R_STLBN_OVERLAY : [BYTE(4)] RECORD END;3 SBK$R_FILESIZE_OVERLAY : [BYTE(4)] RECORD END;G SBK$B_ACNT : $UBYTE; (* low byte of access count *)G SBK$B_LCNT : $UBYTE; (* low byte of lock count *)G SBK$L_FCB : UNSIGNED; (* address of file control block *)G SBKDEF$$_FILL_1 : $WORD; (* spare *)G SBK$W_ACNT : $UWORD; (* access count *)G SBK$W_LCNT : $UWORD; (* lock count (against writers) *)G SBK$W_WCNT : $UWORD; (* writer count *) G SBK$W_TCNT : $UWORD; (* truncate lock count *)J SBK$L_READS : UNSIGNED; (* count of reads executed on channel *)K SBK$L_WRITES : UNSIGNED; (* count of writes executed on channel *) );G 2: (SBK$L_STLBN : [POS(0)] UNSIGNED; (* starting LBN if contiguous *)G SBK$L_FILESIZE : [POS(32)] UNSIGNED; (* file size *) ); 3: ();G 4: (SBK$W_STLBNH : [POS(0)] $UWORD; (* high order word *)G SBK$W_STLBNL : [POS (16)] $UWORD; (* low order word *)G SBK$W_FILESIZH : [POS(32)] $UWORD; (* high order word *)G SBK$W_FILESIZL : [POS(48)] $UWORD; (* low order word *)G (* *)\ (* The following two fields are for RSX-11 compatibility *)G (* *) ) END; (*** MODULE $S2DGBDEF ***) NCONST S2DGB$K_ OP_XCDB32 = 1; (* Diagnose opcode for 32-bit buffers *)I S2DGB$K_OP_XCDB64 = 2; (* Diagnose opcode for 64-bit buffers *) S2DGB$M_READ = 1; S2DGB$M_DISCPRIV = 2; S2DGB$M_SYNCHRONOUS = 4; S2DGB$M_OBSOLETE1 = 8; S2DGB$M_TAGGED_REQ = 16; S2DGB$M_TAG = 224;G S2DGB$K_TAG_POSITION = 5; (* Bit offset of TAG bitfield *)G S2DGB$K_SIMPLE = 0; (* Simple queue tag *)G S2DGB$K_ORDERED = 1; (* Ordered queue tag  *)G S2DGB$K_EXPRESS = 2; (* Head of Queue queue tag *) S2DGB$M_AUTOSENSE = 256; S2DGB$M_EXT_LUN = 512;M S2DGB$K_XCDB32_LENGTH = 60; (* Diagnose buffer length, 32-bit buffers *)M S2DGB$K_XCDB64_LENGTH = 60; (* Diagnose buffer length, 64-bit buffers *)G S2DGB$K_XCDB_MIN_LENGTH = 60; (* Minimum s2gdb length *)G S2DGB$K_EXT_XCDB_MIN_LENGTH = 68; (* Length w/external LUN *) (TYPE S2DGB$TYPE = RECORD CASE INTEGER OFG 1: (S2DGB$L_OPCOD E : UNSIGNED; (* Diagnose opcode *)2 S2DGB$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END;7 S2DGB$R_REMAINING_OVERLAY : [BYTE(52)] RECORD END;G S2DGB$Q_EXT_LUN : $UQUAD; (* External LUN *). S2DGB$B_FILL_16_ : ARRAY [0..3] OF $BYTE; ); 2: ();( 3: (S2DGB$L_FLAGS : [POS(32)] UNSIGNED;P (* Fields in this structure are valid if and *)Q (* only if s2dgb$l_opcode = S2DGB$K_OP_XCDB32 *)N S2DGB$L_32CDBADDR : [POS(64)] UNSIGNED; (* 32-bit addr of Cmd Desc Blk *)H S2DGB$L_32CDBLEN : [POS(96)] UNSIGNED; (* Length of CDB in bytes *)\ S2DGB$L_32DATADDR : [POS(128)] UNSIGNED; (* 32-bit addr of DATAIN or DATAOUT address *)^ S2DGB$L_32DATLEN : [POS(160)] UNSIGNED; (* Length of DATAIN or DATAOUT buffer in bytes *)P S2DGB$L_32PADCNT : [POS(192)] UNSIGNED; (* Number of pad bytes required. *)Q S2DGB$L_32PHSTMO : [POS(224)] UNSIGNED; (* Phase timeout value in seconds *)V S2DGB$L_32DSCTMO : [POS(256)] UNSIGNED; (* Disconnect timeout value in seconds *)U S2DGB$L_32SENSEADDR : [POS(288)] UNSIGNED; (* 32-bit addr of Autosense buffer *)X S2DGB$L_32SENSELEN : [POS(320)] UNSIGNED; (* Length of Autosense buffer in bytes *)G S2DGB$L_RESERVED1 : [POS(352)] UNSIGNED; (* Reserved field *)G S2DGB$L_RESERVED2 : [POS(384)] UNSIGNED; (* Reserved field *)G S2DGB$L_RESERVED3 : [POS(416)] UNSIGNED; (* Reserved field *)G  S2DGB$L_RESERVED4 : [POS(448)] UNSIGNED; (* Reserved field *) ); 4: ();G 5: (S2DGB$V_READ : [POS(32)] $BOOL; (* Read operation *)K S2DGB$V_DISCPRIV : [POS(33)] $BOOL; (* DiscPriv val in Identigy msg *)M S2DGB$V_SYNCHRONOUS : [POS(34)] $BOOL; (* Synchronous xfers permitted *)G S2DGB$V_OBSOLETE1 : [POS(35)] $BOOL; (* (Ignored) *)G S2DGB$V_TAGGED_REQ : [POS(36)] $BOOL; (* Use TCQ *)G S2DGB$V_TAG : [POS(37)] $BIT3; (* Queue tag value type *)G S2DGB$V_AUTOSENSE : [POS(40)] $BOOL; (* Return Autosense data *)I S2DGB$V_EXT_LUN : [POS(41)] $BOOL; (* Use externally-supplied LUN *)P (* Fields in this structure are valid if and *)Q (* only if s2dgb$l_opcode = S2DGB$K_OP_XCDB64 *)L S2DGB$PQ_64CDBADDR : [POS(64)] $QUAD; (* 64-bit addr of Cmd Desc Blk *)Z S2DGB$PQ_64DATADDR : [POS(128)] $QUAD; (* 64-bit addr of DATAIN or DATAOUT address *)S S2DGB$PQ_64SENSEADDR : [POS(192)] $QUAD; (* 64-bit addr of Autosense buffer *)I S2DGB$L_64CDBLEN : [POS(256)] UNSIGNED; (* Length of CDB in bytes *)^ S2DGB$L_64DATLEN : [POS(288)] UNSIGNED; (* Length of DATAIN or DATAOUT buffer in bytes *)X S2DGB$L_64SENSELEN : [POS(320)] UNSIGNED; (* Length of Autosense buffer in bytes *)P S2DGB$L_64PADCNT : [POS(352)] UNSIGNED; (* Number of pad bytes required. *)Q S2DGB$L_64PHSTMO : [POS(384)] UNSIGNED; (* Phase time out value in seconds *)V S2DGB$L_64DSCTMO : [POS(416)] UNSIGNED; (* Disconnect timeout value in seconds *)G S2DGB$L_RESERVED_1 : [POS(448)] UNSIGNED; (* Reserved field *) ) END; (*** MODULE $SDBDEF ***) N(*+ *)N(* SDB Function Codes *)N(* *)N(*-  *)N(*BASE AND OFFSET OF 1 *) CONST SDB$C_MODE_KERNEL = 0; SDB$C_MODE_EXEC = 1; SDB$C_MODE_SUPER = 2; SDB$C_MODE_USER = 3; SDB$M_MODE_KERNEL = 1; SDB$M_MODE_EXEC = 2; SDB$M_MODE_SUPER = 4; SDB$M_MODE_USER = 8; SDB$C_FUNC_GET_DSDB = 0; SDB$C_FUNC_FREE_DSDB = 1; SDB$C_FUNC_GET_ISDB = 2; SDB$C_FUNC_FREE_ISDB = 3; SDB$C_FUNC_SET_SDB = 4; SDB$M_ACC_WRITE = 1; SDB$M_A CC_READ = 2; SDB$V_ACC_WRITE = 0; SDB$V_ACC_READ = 1; (*** MODULE $SDDEF ***) N(* *)N(* item codes for sd$xxx calls *)N(* *) PCONST SD$_MAJOR_ID = 1; (* longword (major ODS version number) *)K SD$_MINOR_ID = 2; (* longword (minor ODS version number) *)G SD$_POOL_ID = 3; (* UID (16 bytes) (Pool identifier) *)R SD$_CREATION_DATE = 4; (* Date/time (8 bytes) (Date pool was created) *)b SD$_MODIFIED_DATE = 5; (* Date/time (8 bytes) (Date pool membership was last changed) *)S SD$_SEGMENT_SIZE = 6; (* longword (Size of segment in pool # blocks) *)T SD$_MAX_UNITS = 7; (* longword (Maximum # members allowed in pool) *)V SD$_UNIT_COUNT = 8; (* longword (Number of members currently in pool) *)= SD$_POOL_OPTIONS = 9; (* longword (Pool flags) *)R SD$_UNIT_ID = 10; (* UID (16 bytes) (Identifier of storage unit) *)F SD$_UNIT_NUMBER = 11; (* longword (Storage unit number) *)E SD$_UNIT_OPTIONS = 12; (* longword (Storage unit flags) *)L SD$_SEQUENCE_NUMBER = 13; (* longword (Homeblock sequence number) *)S SD$_HIGHEST_UNIT = 14; (* longword (Number of highest member in pool) *)R SD$_LOWEST_UNIT = 15; (* longword (Number of lowest member in pool) *)M SD$_TOTAL_SEGMENTS = 16; (* longword (Total # of segment in pool) *)S SD$_FREE_SEGMENTS = 17; (* longword (Total # of free segments in pool) *)X SD$_MAX_FAMILY = 18; (* longword (Maximum # of families allowed in pool) *)P SD$_MAX_DISK = 19; (* longword (Maximum # members in a family) *)Q SD$_META_LBN = 20; (* longword (Start of SD metadata on member) *)P SD$_META_SIZE = 21; (* longword (Size of SD metadata on member) *)P SD$_DATA_LBN = 22; (* longword (Start of pool space on member) *)O SD$_DATA_SIZE = 23; (* longword (Size of pool space on member) *)M SD$_POOL_DEVICE = 24; (* character string (Name of pool device) *)O SD$_FAMILY_NUMBER = 25; (* longword (Familiy number of a SnapDisk) *)U SD$_MEMBER_NUMBER = 26; (* longword (Number within family of a SnapDisk) *)N SD$_DISK_NAME = 27; (* character string  (Name of SnapDisk) *)N SD$_DISK_CAPACITY = 28; (* longword (Size/capacity of a SnapDisk) *)h SD$_DELSPACE = 29; (* longword (# segments that can be recovered by deleting SnapDisk) *)` SD$_DISK_DEVICE = 30; (* character string (Name of device as bound to OpenVMS) *)e SD$_BACKUP_DATE = 31; (* Date/time (8 bytes) (Date that recorded snap was last created) *)T SD$_READS = 32; (* longword (Number of read received from user) *)V SD$_WRITES = 33; (* longword (Number of writes received from user) *)X SD$_SPLIT_READS = 34; (* longword (Number of reads that were split by SD) *)Y SD$_SPLIT_WRITES = 35; (* longword (Number of writes that were split by SD) *)[ SD$_DISK_READS = 36; (* longword (Number of reads to underlying pool units) *)\ SD$_DISK_WRITES = 37; (* longword (Number of writes to underlying pool units) *)U SD$_COPY_OUTS = 38; (* longword (Number of copy-on-write operations) *)_ SD$_CONVERT_CANCELS = 39; (* longword (Number of cancelled lock requests) *)e SD$_POOL_FULL_STALLS = 40; (* longword (NUmber of requests stalled by pool full) *)G SD$_SPARE1 = 41; (* longword *)G SD$_SPARE2 = 42; (* longword *)G SD$_SPARE3 = 43; (* longword *)G SD$_SPARE4 = 44; (* longword  *)G SD$_SPARE5 = 45; (* longword *)G SD$_SPARE6 = 46; (* longword *)G SD$_SPARE7 = 47; (* longword *)G SD$_SPARE8 = 48; (* longword *)K SD$_COPY_STATS = 49; (* Array of SD$K_COPYCOUNTERS longwords *)d SD$_DEV_LOCKID = 50; (* longword (LockId of device name consistancy lock) *)a SD$_U ID_LOCKID = 51; (* longword (LockId of UID name consistancy lock) *) SD$K_COPYCOUNTERS = 24; N(* *)N(* options and flags for RTL routines *)N(* *) CONST SD$M_CONTAINER_DISK = 1; SD$M_CONVERTED_DISK = 2; N(*  *)N(* Function codes for cluster-server requests *)N(* *) CONST SD$K_CLU_BIND_POOL = 1; SD$K_CLU_BIND_DISK = 2; SD$K_CLU_UNBIND = 3; N(* *)N(* Define structures used by QIO interface to SD management functions *)N(* *)N(* ++  *)N(* Device list *)N(* *)N(* This structure is used to pass information between *)N(* the runtime library, the FDT routines and the start *)N(* I/O routines *)N(* --  *) TYPE SDDEVLIST$TYPE = RECORDG sd$l_start_lbn : UNSIGNED; (* Starting LBN of data space *)G sd$l_lbn_count : UNSIGNED; (* Size of data space *)G sd$l_meta_lbn : UNSIGNED; (* Location of SnapDisk metadata *)G sd$l_meta_count : UNSIGNED; (* Size of metadata area *)G sd$ps_ucb : $DEFPTR; (* UCB of pool unit *)G sd$l_name_length : UNSIGNED; (* Length of device name  *)G sd$t_name : ARRAY [1..64] OF CHAR; (* Device name *) END; N(* *)N(* SD Parameter list - This is used to pass Snapshot Services *)N(* parameters/characteristics between the runtime library *)N(* and the I/O functions *)N(* *) CONST sd$m_stall = 1; sd$m_redundant = 2; sd$m_record = 4; sd$m_cluster = 8; sd$m_partial = 16; .TYPE SDPARAMLIST$TYPE = RECORD CASE INTEGER OF. 1: (sd$r_size_overlay : [BYTE(4)] RECORD END;/ sd$r_flags_overlay : [BYTE(4)] RECORD END; );P 2: (sd$l_segment_size : [POS(0)] UNSIGNED; (* Segment size for copy-on-write *)G sd$l_flags : [POS(32)] UNSIGNED; (* Miscellaneous flags *) );H 3: (sd$l_disk_size : [POS(0)] UNSIGNED; (* Disk size for create/disk *)  );G 4: (sd$v_stall : [POS(32)] $BOOL; (* Stall/Fail on pool full *)Q sd$v_redundant : [POS(33)] $BOOL; (* Use redundancy for SnapDisk metadata *)G sd$v_record : [POS(34)] $BOOL; (* Record snapshot creation time *)G sd$v_cluster : [POS(35)] $BOOL; (* Operation is cluster-wide *)G sd$v_partial : [POS(36)] $BOOL; (* Partial bind on pool *) ) END; N(* *)N(* IOCTL function codes - miscellaneous functions *)N(* *) CONST SD$K_GET_DISK = 1; SD$K_GET_STATS = 2; SD$K_GET_UNIT = 3; SD$K_POOL_DISK = 4; SD$K_POOL_INFO = 5; SD$K_POOL_UNIT = 6; SD$K_CLU_TEST = 7; SD$K_STORE_LOCKIDS = 8; SD$K_RETRIEVE_LOCKIDS = 9; SD$K_RETRIEVE_MEMBERLIST = 10; SD$K_SET_TRACE_LEVEL = 11; SD$K_GET_TRACE_LEVEL = 12; N(*  *)N(* Define Snapshot Services runtime library functions *)N(* *)N(* *)N(*++ *)N(* *)N(* ROUTINE:  *)N(* *)I(* sd$add_units POOL_DEVICE, UNIT_LIST *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Add additional storage units to an existing pool *)I(* This function takes care of all the creation of container *)I(* files etc. for the storage units being added. *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE (IN) : Name of device to add members *)A(* UNIT_LIST (IN) : Item List 3 containing Device list *)Q(* FLAGS (IN) : Indicates temporary or permanent pool member *)N(* *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The set of devices must be mounted as Files-11 devices *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The new storage units are added as new members to the pool. *)I(* All current and new members are stamped with a new membership list *)N(*  *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(* *)N(*-- *)N(* *) &[ASYNCHRONOUS] F UNCTION sd$add_units (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; UNIT_LIST : $DEFPTR;/ %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(*  *)I(* sd$bind_disk DISK_DEVICE, POOL_DEVICE, DISK_NAME, FLAGS *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Export a SnappyDisk from the pool as an OpenVMS device *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* DISK_DEVICE (IN) : Name of disk device to create *)B(* POOL_DEVICE (IN) : Name of pool device to use *)A(* DISK_NAME (IN) : Name of disk to export from pool *)=(* FLAGS (IN) : Optional flags SD$M_CLUSTER *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The pool must be bound. *)I(* The SnappyDisk name must exist in the pool. *)N(* The SnappyDisk must not be bound to a device on another computer in the *)I(* cluster. *)J(* Another SnappyDisk must not be bound to the specified device on any *)I(* computer in the cluster. *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The SnappyDisk is exposed as an OpenVMS device *)N(* *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(* *)N(*-- *)N(*  *) &[ASYNCHRONOUS] FUNCTION sd$bind_disk (A DISK_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;? DISK_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;/ %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(*++  *)N(* *)N(* ROUTINE: *)N(* *)I(* sd$bind_pool POOL_DEVICE, UNIT_LIST, FLAGS *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Rebind a pool from a set of devices that have been *)I(* previously created as a pool. *)I(* This function takes care of all the location of container *)I(* files, driver loading. *)N(*  *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE (IN) : Name of device to create *)B(* UNIT_LIST (IN) : Itemlist3 containing list of storage units *)=(* FLAGS (IN) : Optional flags SD$M_CLUSTER *)N(* *)N(* PRE-CONDITIONS:  *)N(* *)I(* The storage units must be mounted as Files-11 devices. *)I(* The storage units must have been previously used to create a pool. *)I(* The list of storage units must not include storage units in another *)I(* pool. *)I(* The list of storage units must not include a SnappyDisk bound to a *)I(* device. *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* A pool is rebound and exported as the specified pool_device. *)N(* *)N(* RETURN VALUE:  *)N(* *)I(* Various statuses *)N(* *)N(*-- *)N(* *) &[ASYNCHRONOUS] FUNCTION sd$bind_pool (A POOL_DEVICE : [CLAS S_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; UNIT_LIST : $DEFPTR;/ %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(*  *)I(* sd$create_disk POOL_DEVICE, DISK_NAME, DISK_CAPACITY *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Create a SnappyDisk in a pool *)N(*  *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE (IN) : Name of pool device to use *)A(* DISK_NAME (IN) : Name of SnappyDisk to create *)D(* DISK_CAPACITY (IN) : Size in blocks of SnappyDisk to create *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The pool must be bound. *)I(* The SnappyDisk name must not already exist in the pool. *)M(* The pool must have enough free space to create a SnappyDisk of the size *)I(* specified. *)N(*  *)N(* POST-CONDITIONS: *)N(* *)I(* A new SnappyDisk, named disk_name, is created in the pool *)N(* *)N(* RETURN VALUE: *)N(*  *)I(* Various statuses *)N(* *)N(*-- *)N(* *) ([ASYNCHRONOUS] FUNCTION sd$create_disk (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;? DISK_NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;7 %IMMED DISK_CAPACITY : UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(* *)N(* sd$create_pool UNIT_LIST, SEGMENT_SIZE, FLAGS *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Create a pool from a set of storage units. *)I(* This function takes care of all the creation of container *)I(* files and driver loading that needs to be done before calling *)I(* the IO$_BIND function. *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)D(* UNIT_LIST (IN) : Item list 3 containing list of storage units *)C(* SEGMENT_SIZE (IN) : Size of segments in pool (blocks) *)=(* FLAGS (IN) : Optional flags SD$M_STALL, SD$M_FAIL  *)N(* *)N(* PRE-CONDITIONS: *)N(* *)L(* The storage units must be initialised and mounted as Files-11 devices. *)I(* The list of storage units must not include storage units in another *)I(* pool. *)I(* The list of storage units must not include a SnappyDisk bound to a *)I(* device. *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* A new pool is created on the storage units. *)I(* The storage units are stamped as belonging to the same pool.  *)N(* *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(* *)N(*-- *)N(*  *) ([ASYNCHRONOUS] FUNCTION sd$create_pool ( UNIT_LIST : $DEFPTR; %IMMED SEGMENT_SIZE : UNSIGNED;/ %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE:  *)N(* *)I(* sd$create_snap POOL_DEVICE, DISK_DEVICE, DISK_NAME, FLAGS *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Create a snap of an existing SnappyDisk *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE (IN) : Name of pool device to use *)B(* DISK_DEVICE (IN) : Name of SnappyDisk device to use as basis *)4(* for snap *)A(* DISK_NAME (IN) : Name of SnappyDisk to create *)=(* FLAGS (IN) : Should we record time snap was taken *)7(* for incremental backup purposes, SD$M_RECORD *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The pool must be bound *)I(* The original SnappyDisk must be exported as a device *)N(* *)N(* POST-CONDITIONS: *)N(* *)M(* A new SnappyDisk is created in the pool. That SnappyDisk will be a snap *)I(* of the original SnappyDisk specified in the call. *)N(*  *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(* *)N(*-- *)N(*  *) ([ASYNCHRONOUS] FUNCTION sd$create_snap (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;A DISK_DEVICE : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;? DISK_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;/ %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(*  *)N(* ROUTINE: *)N(* *)I(* sd$delete_disk POOL_DEVICE, DISK_NAME *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(*  *)I(* Runtime library routine *)I(* Delete a SnapDisk from a pool *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE (IN) : Name of pool device to use *)A(* DISK_NAME (IN) : Name of SnappyDisk to delete *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The pool must be bound *)I(* The SnappyDisk name must exist in the pool *)N(* The SnappyDisk named must not be bound to a device on the local computer *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The SnappyDisk is deleted from the pool *)N(* *)N(* RETURN VALUE: *)N(*  *)I(* Various statuses *)N(* *)N(*-- *)N(* *) ([ASYNCHRONOUS] FUNCTION sd$delete_disk (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;U DISK_NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(* *)I(* sd$remove_units POOL_DEVICE, UNIT_LIST *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Removes members from a pool. *)I(* If the members are successfully removed, the metadata files are *)I(* removed from the devices. *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE (IN) : Name of device to remove members *)D(* UNIT_LIST (IN) : Item list 3 containing list of storage units *)N(*  *)N(* PRE-CONDITIONS: *)N(* *)I(* The list of storage units must be part of the specified pool. *)K(* The pool must contain enough free space to allow data on the outgoing *)I(* storage units to be copied to other storage units in the pool. *)I(* The list of storage units must not be the complete set of units in *)I(* the pool.  *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The remaining members are updated with the new pool *)I(* membership list. *)N(*  *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(* *)N(*-- *)N(* *) )[A SYNCHRONOUS] FUNCTION sd$remove_units (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;+ UNIT_LIST : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(*  *)I(* sd$unbind VIRTUAL_DEVICE, FLAGS *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Unbind a pool or SnapDisk.  *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)E(* VIRTUAL_DEVICE (IN) : Name of device to unbind *)=(* FLAGS (IN) : Optional flags SD$M_CLUSTER *)N(* *)N(* PRE-CONDITIONS:  *)N(* *)N(* The pool or SnappyDisk must be bound to the device on the local computer *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The pool or SnappyDisk is unbound from the device  *)N(* *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(* *)N(*-- *)N(*  *) #[ASYNCHRONOUS] FUNCTION sd$unbind (D VIRTUAL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;/ %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE:  *)N(* *)E(* sd$get_disk DISK_DEVICE, ITMLST *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Get information about an exported disk. *)J(* The information is returned using a standard OpenVMS *)J(* itemlist mechanism. *)J(* NOTE: The itemlist must be zero terminated *)N(* *)I(* Valid item codes are: *)N(*  *)I(* SD$_BACKUP_DATE *)I(* SD$_CREATION_DATE *)I(* SD$_DELSPACE *)I(* SD$_DISK_CAPACITY *)I(* SD$_DISK_DEVICE *)I(* SD$_DISK_NAME *)I(* SD$_FAMILY_NUMBER *)I(* SD$_MEMBER_NUMBER *)I(* SD$_POOL_DEVICE *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* DISK_DEVICE (IN) : Name of SnappyDisk device  *)I(* ITMLST (IN): Address of items to return *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The device must be a SnappyDisk device *)N(* *)N(* POST-CONDITIONS:  *)N(* *)I(* The information requested is returned *)N(* *)N(* RETURN VALUE: *)N(* *)D(* SS$_NORMAL - Member info returned  *)D(* SS$_ACCVIO - Parameters not accessible *)F(* SS$_BADPARAM - One or more item codes are invalid *)N(* SS$_IVBUFLEN - one or more buffer lengths are invalid *)F(* SS$_IVDEVNAM - ucb is not that of a pool member *)F(* SS$_NOTBOUND - the member is not bound into a pool *)I(* SS$_SDDISABLED - Snap-capable disk not loaded *)N(*--  *)N(* *) %[ASYNCHRONOUS] FUNCTION sd$get_disk (A DISK_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;( ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(*  *)N(* ROUTINE: *)N(* *)>(* sd$get_pool POOL_DEVICE, ITMLST *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine  *)I(* Get pool-wide information *)J(* The information is returned using a standard OpenVMS *)J(* itemlist mechanism. *)J(* NOTE: The itemlist must be zero terminated *)N(* *)I(* Valid item codes are: *)N(*  *)I(* SD$_CREATION_DATE *)I(* SD$_FREE_SEGMENTS *)I(* SD$_HIGHEST_UNIT *)I(* SD$_LOWEST_UNIT *)I(* SD$_MAJOR_ID *)I(* SD$_MAX_DISK  *)I(* SD$_MAX_FAMILY *)I(* SD$_MAX_UNITS *)I(* SD$_MINOR_ID *)I(* SD$_MODIFIED_DATE *)I(* SD$_POOL_ID *)I(* SD$_POOL_OPTIONS *)I(* SD$_SEGMENT_SIZE  *)I(* SD$_SEQUENCE_NUMBER *)I(* SD$_TOTAL_SEGMENTS *)I(* SD$_UNIT_COUNT *)N(* *)N(* FORMAL PARAMETERS: *)N(*  *)B(* POOL_DEVICE (IN) : Name of storage pool *)>(* ITMLST (IN) : Address of items to return *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* A context must have been started with sd$get_pool_begin *)N(*  *)N(* POST-CONDITIONS: *)N(* *)I(* The information requested is returned *)N(* *)N(* RETURN VALUE: *)N(* *) D(* SS$_NORMAL - Next member returned *)F(* SS$_BADPARAM - One or more item codes are invalid *)N(* SS$_IVBUFLEN - One or more buffer lengths are invalid *)I(* SS$_SDDISABLED - Snap-capable disk not loaded *)N(*-- *)N(* *) %[ASYNCHRONOUS] FUNCTION sd$get_pool (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;( ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(*  *)C(* sd$get_pool_begin POOL_DEVICE, POOL_CONTEXT *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Routine to setup context to read SnapDisk pool *)I(* parameters from a pool device.  *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE (IN) : Name of pool device to query *)C(* POOL_CONTEXT (IN) : Address of context to return *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The pool device must exist *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* A context is setup to allow sd$get_pool and sd$get_pooldevice *)I(* to be called to return the pool parameters. *)N(* *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(* *)N(* -- *)N(* *) +[ASYNCHRONOUS] FUNCTION sd$get_pool_begin (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;. POOL_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(*  *)N(* ROUTINE: *)N(* *);(* sd$get_pool_disk POOL_CONTEXT, ITMLST *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(*  *)I(* Runtime library routine *)L(* Routine to return the information for the next SnappyDisk in the pool. *)N(* *)I(* For example: *)N(* *)N(* status = sd$get_pool_begin(raw_device, context) *)I(* while (success(status)) *)I(* status = sd$get_pool_disk(context, itmlst) *)N(* status = sd$get_pool_end(context) *)N(* *)I(* Valid item code are: *)N(* *)I(* SD$_BACKUP_DATE  *)I(* SD$_CREATION_DATE *)I(* SD$_DELSPACE *)I(* SD$_DISK_CAPACITY *)I(* SD$_DISK_DEVICE *)I(* SD$_DISK_NAME *)I(* SD$_FAMILY_NUMBER *)I(* SD$_MEMBER_NUMBER  *)I(* SD$_POOL_DEVICE *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)C(* POOL_CONTEXT (IN) : Address of pool context *)I(* ITMLST (IN): Address of items to return *)N(*  *)N(* PRE-CONDITIONS: *)N(* *)I(* A context must have been started with sd$get_pool_begin *)N(* *)N(* POST-CONDITIONS: *)N(*   *)I(* The next member is returned *)N(* *)N(* RETURN VALUE: *)N(* *)D(* SS$_NORMAL - Next member returned *)G(* SS$_NOMOREDEV - No more diks in pool *) N(*-- *)N(* *) *[ASYNCHRONOUS] FUNCTION sd$get_pool_disk ( POOL_CONTEXT : $DEFPTR;( ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(*   *)N(* ROUTINE: *)N(* *)B(* sd$get_pool_end POOL_CONTEXT *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine  *)I(* Routine to tidy up the context associated with a *)I(* sd$get_pool_begin. *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)C(* POOL_CONTEXT (IN) : Address of context to delete  *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* A context must have been started with sd$get_pool_begin *)N(* *)N(* POST-CONDITIONS: *)N(*  *)I(* The context is deleted *)N(* *)N(* RETURN VALUE: *)N(* *)I(* SS$_NORMAL *)N(*  *)N(*-- *)N(* *) )[ASYNCHRONOUS] FUNCTION sd$get_pool_end (. POOL_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(*  *)N(* ROUTINE: *)N(* *);(* sd$get_pool_unit POOL_CONTEXT, NEXT_UNIT *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine  *)I(* Routine to return the next member device making up the pool. *)I(* This routine is designed to be called in a loop to return *)I(* all the members making up the pool. *)I(* For example: *)N(* *)N(* status = sd$get_pool_begin(raw_device, context) *)I(* while (success(status)) *)I(* status = sd$get_pool_unit(context, unit_device) *)N(* status = sd$get_pool_end *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)C(* POOL_CONTEXT (IN) : Address of context *)C(* NEXT_UNIT (OUT) : Address of descriptor to return *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* A context must have been started with sd$get_pool_begin *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The next member is returned *)N(* *)N(* RETURN VALUE: *)N(* *)D(* SS$_NORMAL - Next member retu rned *)G(* SS$_NOMOREDEV - No more devices *)F(* SS$_BADPARAM - Invalid context *)I(* SS$_SDDISABLED - Snap-capable disk not loaded *)N(* *)N(*-- *)N(* *) *[A SYNCHRONOUS] FUNCTION sd$get_pool_unit ( POOL_CONTEXT : $DEFPTR;U NEXT_UNIT : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(*  *)B(* sd$get_raw_begin UNIT_DEVICE, UNIT_CONTEXT *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Routine to setup context to read SnappyDisk pool *)I(* parameters from a raw (mounted but not bound) storage unit. *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* UNIT_DEVICE (IN) : Name of storage unit to query *)C(* UNIT_CONTEXT (IN) : Address of context to return *)N(*  *)N(* PRE-CONDITIONS: *)N(* *)I(* The member device must be mounted but not bound *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* A context is setup to allow sd$get_raw_info and sd$get_unitdevice *)I(* to be called to return pool parameters stored on the member. *)N(* *)N(* RETURN VALUE: *)N(* *)I(* Various statuses *)N(*  *)N(*-- *)N(* *) *[ASYNCHRONOUS] FUNCTION sd$get_raw_begin (A UNIT_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;. UNIT_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++  *)N(* *)N(* ROUTINE: *)N(* *)A(* sd$get_raw_end UNIT_CONTEXT *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(*  *)I(* Runtime library routine *)I(* Routine to tidy up the context associated with a *)I(* sd$get_raw_begin. *)N(* *)N(* FORMAL PARAMETERS: *)N(*  *)C(* UNIT_CONTEXT (IN) : Address of context *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* A context must have been started with sd$get_raw_begin *)N(* *)N(* POST-CONDIT IONS: *)N(* *)I(* The context is deleted *)N(* *)N(* RETURN VALUE: *)N(* *)I(* SS$_NORMAL ! *)N(* *)N(*-- *)N(* *) ([ASYNCHRONOUS] FUNCTION sd$get_raw_end (. UNIT_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ " *)N(* *)N(* ROUTINE: *)N(* *)B(* sd$get_raw_next UNIT_CONTEXT, NEXT_UNIT *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* # *)I(* Runtime library routine *)I(* Routine to return the next member device making up the pool. *)I(* This routine is designed to be called in a loop to return *)I(* all the members in the pool making up the device. *)I(* For example: *)N(* $ *)N(* status = sd$get_raw_begin(raw_device, context) *)I(* while (success(status)) *)I(* status = sd$get_raw_next(context, unit_device) *)N(* status = sd$get_raw_end *)N(* *)N(* FORMAL PARAMETERS: *)N(* % *)C(* UNIT_CONTEXT (IN) : Address of context *)B(* NEXT_UNIT(OUT) : Address of descriptor to return *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* A context must have been started with sd$get_raw_begin & *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The next member is returned *)N(* *)N(* RETURN VALUE: *)N(* ' *)D(* SS$_NORMAL - Next member returned *)G(* SS$_NOMOREDEV - No more devices *)N(* *)N(*-- *)N(* *) )[ASYNCHRONOUS] FUNCTION sd$get_raw_next ( UNIT_CONTEXT (: $DEFPTR;U NEXT_UNIT : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : UNSIGNED; EXTERNAL; N(* *)N(*++ *)N(* *)N(* ROUTINE: *)N(* *)B(*) sd$get_raw_info UNIT_CONTEXT, ITMLST *)N(* *)I(* FUNCTIONAL DESCRIPTION: *)N(* *)I(* Runtime library routine *)I(* Get information from the member *)J(* The information is returned using a standard Ope*nVMS *)J(* itemlist mechanism. *)J(* NOTE: The itemlist must be zero terminated *)N(* *)I(* Valid item codes are: *)N(* *)I(* SD$_CREATION_DATE *)I(* SD$_HIGHEST_UNI+T *)I(* SD$_LOWEST_UNIT *)I(* SD$_MAJOR_ID *)I(* SD$_MAX_DISK *)I(* SD$_MAX_FAMILY *)I(* SD$_MAX_UNITS *)I(* SD$_MINOR_ID , *)I(* SD$_MODIFIED_DATE *)I(* SD$_POOL_ID *)I(* SD$_POOL_OPTIONS *)I(* SD$_SEGMENT_SIZE *)I(* SD$_SEQUENCE_NUMBER *)I(* SD$_UNIT_COUNT *)I(* SD$_UNIT_ID - *)I(* SD$_UNIT_NUMBER *)I(* SD$_UNIT_OPTIONS *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)C(* UNIT_CONTEXT (IN) : Address of context *)E(* ITMLST .(IN) : Address of items to return *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* A context must have been started with sd$get_raw_begin *)N(* *)N(* POST-CONDITIONS: / *)N(* *)I(* The information requested is returned *)N(* *)N(* RETURN VALUE: *)N(* *)D(* SS$_NORMAL - Next member returned *)F(* SS$_B 0ADPARAM - One or more item codes are invalid *)N(* SS$_IVBUFLEN - One or more buffer lengths are invalid *)N(*-- *)N(* *) )[ASYNCHRONOUS] FUNCTION sd$get_raw_info ( UNIT_CONTEXT : $DEFPTR;( ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*1++ *)N(* *)N(* ROUTINE: *)N(* *)?(* sd$get_stats POOL_DEVICE, ITMLST *)N(* *)I(* FUNCTIONAL DESCRIPTION: 2 *)N(* *)I(* Runtime library routine *)I(* Get monitor-type runtime statistics on a system-wide *)I(* or per-pool basis. *)N(* *)I(* If POOL_DEVICE is NULL, this call returns the system-wide *)I(* stati3stics otherwise it returns the statistics for the *)I(* specified pool. *)N(* *)J(* The information is returned using a standard OpenVMS *)J(* itemlist mechanism. *)J(* NOTE: The itemlist must be zero terminated *)N(* 4 *)I(* Valid item codes are: *)N(* *)I(* SD$_COPY_OUTS *)I(* SD$_DISK_READS *)I(* SD$_DISK_WRITES *)I(* SD$_READS *)I(* SD$_SPLIT_READS 5 *)I(* SD$_SPLIT_WRITES *)I(* SD$_WRITES *)N(* *)N(* FORMAL PARAMETERS: *)N(* *)B(* POOL_DEVICE(IN) : Pool device name 6 *)E(* ITMLST (IN) : Address of items to return *)N(* *)N(* PRE-CONDITIONS: *)N(* *)I(* The SnappyDisk driver must be loaded and enabled. *)I(* For a non NULL pool_device, the pool must be bound to the device on *)I(* the local computer. 7 *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The information requested is returned *)N(* *)N(* RETURN VALUE: 8 *)N(* *)D(* SS$_NORMAL - Stats returned *)D(* SS$_ACCVIO - Parameters not accessible *)F(* SS$_BADPARAM - One or more item codes are invalid *)N(* SS$_IVBUFLEN - one or more buffer lengths are invalid *)F(* SS$_IVDEVNAM - Device is not a pool device *)G(* SS$_NOSUCHDEV - No such pool device 9 *)I(* SS$_SDDISABLED - Snap-capable disk not loaded *)N(*-- *)N(* *) &[ASYNCHRONOUS] FUNCTION sd$get_stats (A POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;( ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; N(* *)N(*++ : *)N(* *)N(* ROUTINE: *)N(* *)E(* sd$get_unit UNIT_DEVICE, ITMLST *)N(* *)I(* FUNCTIONAL DESCRIPTION: ; *)N(* *)I(* Runtime library routine *)I(* Get information about a pool member *)J(* The information is returned using a standard OpenVMS *)J(* itemlist mechanism. *)J(* NOTE: The itemlist must be zero terminated *)N(* < *)I(* Valid item codes are: *)N(* *)I(* SD$_DATA_LBN *)I(* SD$_DATA_SIZE *)I(* SD$_FREE_SEGMENTS *)I(* SD$_META_LBN = *)I(* SD$_META_SIZE *)I(* SD$_POOL_DEVICE *)I(* SD$_TOTAL_SEGMENTS *)I(* SD$_UNIT_ID *)I(* SD$_UNIT_NUMBER *)I(* SD$_UNIT_OPTIONS *)N(* > *)N(* FORMAL PARAMETERS: *)N(* *)B(* UNIT_DEVICE (IN) : Name of storage unit *)E(* ITMLST (IN) : Address of items to return *)N(* *)N(* PRE-CONDITIONS: ? *)N(* *)I(* The storage unit must exist on the local computer *)N(* *)N(* POST-CONDITIONS: *)N(* *)I(* The information requested is returned *)N(* @ *)N(* RETURN VALUE: *)N(* *)D(* SS$_NORMAL - Member info returned *)D(* SS$_ACCVIO - Parameters not accessible *)F(* SS$_BADPARAM - One or more item codes are invalid *)N(* SS$_IVBUFLEN - one or more buffer lengths are invalid *)F A(* SS$_IVDEVNAM - ucb is not that of a pool member *)F(* SS$_NOTBOUND - the member is not bound into a pool *)I(* SS$_SDDISABLED - Snap-capable disk not loaded *)N(*-- *)N(* *) %[ASYNCHRONOUS] FUNCTION sd$get_unit (A UNIT_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;( ITMLST : $DEF BPTR) : UNSIGNED; EXTERNAL; (*** MODULE $SECDEF ***) N(*+ *)N(* PROCESS OR GLOBAL SECTION DEFINITIONS *)N(*- *)N(* *)N(* ***** L_VBN, L_WINDOW, and L_PFC must be the same offset values as the *)N(* ***** equivalently named offsets in $PFLDCEF. *)N(* *) CONST SEC$M_GBL = 1; SEC$M_CRF = 2; SEC$M_DZRO = 4; SEC$M_WRT = 8; SEC$M_SHMGS = 16; SEC$M_ARGS64 = 32; SEC$M_WRTMOD = 192; SEC$M_AMOD = 768; SEC$M_UNCACHED = 1024; SEC$M_READ_ONLY_SHPT = 2048; SEC$M_SHARED_PTS = 4096; SEC$M_MRES = 8192; SEC$M_PERM = 16384; SEC$M_SYSGBL = 32768; SEC$M_PFNMAP = 65536; SEC$M_EXPREG = 131072; SEC$M_PROTECT = 26214D4; SEC$M_PAGFIL = 524288; SEC$M_EXECUTE = 1048576; SEC$M_NOPROTCHK = 2097152; SEC$M_NO_OVERMAP = 4194304; SEC$M_INPROG = 8388608; SEC$M_PARANOID = 16777216; SEC$M_GRANHINT = 33554432; SEC$M_MRES_ALLOC = 67108864; SEC$M_RAD_HINT = 134217728; SEC$M_INCONMMGST = 268435456; &TYPE SEC$TYPE = RECORD CASE INTEGER OF. 1: (SEC$R_GSD_OVERLAY : [BYTE(4)] RECORD END;G SEC$L_SECXFL : UNSIGNED; (*SECTION INDEX FORWARD LINK *)G SEC$L_SECXBL : UNSIGNED; (*SECTIONE INDEX BACKWARD LINK *)G SEC$L_PFC : UNSIGNED; (*PFC - Page Fault Cluster *)5 SEC$R_MRES_FILE_OVERLAY : [BYTE(12)] RECORD END;G (* *)G (* ***** NOTE ***** *)f (* All flags in sec$l_flags must be kept in sync with flags in the *)W (* SECFLG structure defined further in this module. *)G F (* **************** *)G (* *)0 SEC$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END;c SEC$L_REFCNT : INTEGER; (* COUNT OF PTE'S REFERENCING THIS SECTION (unless MRES/SHMGS) *)G (* *){ (* UNIT_CNT contains the number of pagelets (512 byte units) in the section, except for *) G (* PFN-mapped sections. In that case, UNIT_CNT contains the number of PFNs mapped by the section. *)G (* *)G SEC$L_VPX : UNSIGNED; (* Starting virtual page index *)` SEC$R_UNIT_CNT_OVERLAY : [BYTE(8)] RECORD END; (* Number of pagelets/PFNs in the section *) );J 2: (SEC$L_GSD : [POS(0)] INTEGER; (*GLOBAL SECTION DESCRIPTOR ADDRESS *)W SEC$Q_MRES_REFCNT : [POS(128)] $QUAD; ( H*REFERENCE COUNT FOR MRES/SHMGS SECTIONS *)O SEC$L_FLAGS : [POS(224)] UNSIGNED; (* VARIOUS CONTROL FLAGS IN LOW WORD *)* SEC$L_UNIT_CNT : [POS(320)] UNSIGNED; );Y 3: (SEC$L_CCB : [POS(0)] INTEGER; (*CHANNEL CONTROL BLOCK ADDRESS IF PROCESS SECTION *)9 SEC$R_FILE_FIELDS : [POS(128), BYTE(12)] RECORD END;( SEC$Q_UNIT_CNT : [POS(320)] $UQUAD; );G 4: (SEC$L_WINDOW : [POS(192)] INTEGER; (*WINDOW CONTROL BLOCK *)G SEC$V_GBL : [POS(224)] $BOOL; (* GLOBAL SIECTION *)G SEC$V_CRF : [POS(225)] $BOOL; (* COPY ON REFERENCE *)G SEC$V_DZRO : [POS(226)] $BOOL; (* DEMAND ZERO *)G SEC$V_WRT : [POS(227)] $BOOL; (* WRITABLE *)G SEC$V_SHMGS : [POS(228)] $BOOL; (* SHARED MEMORY GLOBAL SECTION *)G SEC$V_ARGS64 : [POS(229)] $BOOL; (* Arguments passed as quads *)J SEC$V_WRTMOD : [POS(230)] $BIT2; (* WRITE ACCESS MODE FOR SECTION *)G SEC$V_AMOD : [POS(232)] $BIJT2; (* ACCESS MODE OF SECTION *)I SEC$V_UNCACHED : [POS(234)] $BOOL; (* PFN-map I/O space uncached. *)\ SEC$V_READ_ONLY_SHPT : [POS(235)] $BOOL; (* Shared page tables map section read-only *)N SEC$V_SHARED_PTS : [POS(236)] $BOOL; (* Section is a shared PT section *)G SEC$V_MRES : [POS(237)] $BOOL; (* MEMORY RESIDENT SECTION *)G SEC$V_PERM : [POS(238)] $BOOL; (* PERMANENT SECTION *)P SEC$V_SYSGBL : [POS(239)] $BOOL; (* 1 = SYSTEM GLOBAL, 0 = GRKOUP GLOBAL *)G (* *)o (* ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTION *)o (* ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD *)G (* ***** FIELD. *)G (* *)G SEC$V_PFNMAP : [POS(240)] $BOOL; (*L MAP TO SPECIFIC PFN'S *)N SEC$V_EXPREG : [POS(241)] $BOOL; (* MAP INTO FIRST FREE ADDRESS SPACE *)N SEC$V_PROTECT : [POS(242)] $BOOL; (* CHECK WRITE ACCESS MODE (WRTMOD) *)W SEC$V_PAGFIL : [POS(243)] $BOOL; (* GLOBAL SECTION HAS PAGE FILE BACKING STORE *)G SEC$V_EXECUTE : [POS(244)] $BOOL; (* CHECK FOR EXECUTE ACCESS *)G SEC$V_NOPROTCHK : [POS(245)] $BOOL; (* INHIBIT PROTECTION CHECK *)L SEC$V_NO_OVERMAP : [POS(246)] $BOOL; (* DON'T OVERMAP ADDRESS SPACE M*)H SEC$V_INPROG : [POS(247)] $BOOL; (* Section creation in progress *)G SEC$V_PARANOID : [POS(248)] $BOOL; (* Go into paranoia mode *)G SEC$V_GRANHINT : [POS(249)] $BOOL; (* Allow enhanced GH regions *)\ SEC$V_MRES_ALLOC : [POS(250)] $BOOL; (* Allocate memory resident pages during create *)N SEC$V_RAD_HINT : [POS(251)] $BOOL; (* Allocate pages based on RAD hint *)h SEC$V_INCONMMGST : [POS(252)] $BOOL; (* Possible INCONMMGST workaround (saved in flags longword) *) N );% 5: (SEC$L_VBN : [POS(128)] UNSIGNED; );# 6: (SEC$Q_VBN : [POS(128)] $UQUAD; ) END; N(* *)N(* ***** NOTE THAT NUMBER OF LONG WORDS MUST BE EVEN *)N(* *) LCONST SEC$K_LENGTH = 48; (*SIZE OF PSTE/GSTE *)G SEC$C_LENGTH = 48; (*SIZE OF PSTE/GSTE O *) N(* *)N(* ***** NOTE ***** *)N(* All flags in the SECFLG structure must be kept in sync with flags in *)N(* sec$l_flags defined in the SECDEF structure. *)N(* **************** *)N(* *) CONST SECFPLG$M_GBL = 1; SECFLG$M_CRF = 2; SECFLG$M_DZRO = 4; SECFLG$M_WRT = 8; SECFLG$M_SHMGS = 16; SECFLG$M_ARGS64 = 32; SECFLG$M_WRTMOD = 192; SECFLG$M_AMOD = 768; SECFLG$M_UNCACHED = 1024; SECFLG$M_READ_ONLY_SHPT = 2048; SECFLG$M_SHARED_PTS = 4096; SECFLG$M_MRES = 8192; SECFLG$M_PERM = 16384; SECFLG$M_SYSGBL = 32768; SECFLG$M_PFNMAP = 65536; SECFLG$M_EXPREG = 131072; SECFLG$M_PROTECT = 262144; SECFLG$M_PAGFIL = 524288; SECFLG$M_EXECUTE = 1048576; SECFLG$M_NOPROTQCHK = 2097152; SECFLG$M_NO_OVERMAP = 4194304; SECFLG$M_INPROG = 8388608; SECFLG$M_PARANOID = 16777216; SECFLG$M_GRANHINT = 33554432; SECFLG$M_MRES_ALLOC = 67108864; SECFLG$M_RAD_HINT = 134217728; ,TYPE SEC_FLAGS$TYPE = RECORD CASE INTEGER OF3 1: (SECFLG$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; );U 2: (SECFLG$W_SAVED_FLAGS : [POS(0)] $UWORD; (* FLAGS SAVED IN SECTION TABLE ENTRY *) );P 3: (SECFLG$L_FLAGS : [POS(0)] UNSIGNED; (* VARIOUS CONTROL FLAGS IN LOW WORD *) R ); 4: ();G 5: (SECFLG$V_GBL : [POS(0)] $BOOL; (* GLOBAL SECTION *)G SECFLG$V_CRF : [POS(1)] $BOOL; (* COPY ON REFERENCE *)G SECFLG$V_DZRO : [POS(2)] $BOOL; (* DEMAND ZERO *)G SECFLG$V_WRT : [POS(3)] $BOOL; (* WRITABLE *)H SECFLG$V_SHMGS : [POS(4)] $BOOL; (* SHARED MEMORY GLOBAL SECTION *)G SECFLG$V_ARGS64 : [POS(5)] $BOOL; (* Arguments passed as quads *)K SECFLG$V_WRTMOD : [POS(6)] $BIT2; (* SWRITE ACCESS MODE FOR SECTION *)G SECFLG$V_AMOD : [POS(8)] $BIT2; (* ACCESS MODE OF SECTION *)K SECFLG$V_UNCACHED : [POS(10)] $BOOL; (* PFN-map I/O space uncached. *)^ SECFLG$V_READ_ONLY_SHPT : [POS(11)] $BOOL; (* Shared page tables map section read-only *)P SECFLG$V_SHARED_PTS : [POS(12)] $BOOL; (* Section is a shared PT section *)G SECFLG$V_MRES : [POS(13)] $BOOL; (* MEMORY RESIDENT SECTION *)G SECFLG$V_PERM : [POS(14)] $BOOL; (* PERMANENT SECTION T *)R SECFLG$V_SYSGBL : [POS(15)] $BOOL; (* 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL *)G (* *)o (* ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTION *)o (* ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD *)G (* ***** FIELD. *)G (* U *)G SECFLG$V_PFNMAP : [POS(16)] $BOOL; (* MAP TO SPECIFIC PFN'S *)P SECFLG$V_EXPREG : [POS(17)] $BOOL; (* MAP INTO FIRST FREE ADDRESS SPACE *)P SECFLG$V_PROTECT : [POS(18)] $BOOL; (* CHECK WRITE ACCESS MODE (WRTMOD) *)Y SECFLG$V_PAGFIL : [POS(19)] $BOOL; (* GLOBAL SECTION HAS PAGE FILE BACKING STORE *)G SECFLG$V_EXECUTE : [POS(20)] $BOOL; (* CHECK FOR EXECUTE ACCESS *)I SECFLG$V_NOPROTCHK : [POS(21)] $BOOL; (* INHIBIT PROTECTION C VHECK *)N SECFLG$V_NO_OVERMAP : [POS(22)] $BOOL; (* DON'T OVERMAP ADDRESS SPACE *)J SECFLG$V_INPROG : [POS(23)] $BOOL; (* Section creation in progress *)G SECFLG$V_PARANOID : [POS(24)] $BOOL; (* Go into paranoia mode *)I SECFLG$V_GRANHINT : [POS(25)] $BOOL; (* Allow enhanced GH regions *)^ SECFLG$V_MRES_ALLOC : [POS(26)] $BOOL; (* Allocate memory resident pages during create *)P SECFLG$V_RAD_HINT : [POS(27)] $BOOL; (* Allocate pages based on RAD hint *) ) END W; MCONST SEC$K_MATALL = 0; (* MATCH ALWAYS, USE GLOBAL SECTION *)G SEC$K_MATEQU = 1; (* MATCH IF ISD$L_IDENT EQU GBL ID *)G SEC$K_MATLEQ = 2; (* MATCH IF ISD$L_IDENT LEQ GBL ID *) TYPE SEC1$TYPE = RECORD. SECDEF$$_FILL_6 : ARRAY [1..25] OF $BYTE;G SEC$B_AMOD : $UBYTE; (*ACCESS MODE OF SECTION *)G (*+ *)G (* MATCH CO XNTROL VIELD VALUES *)G (*- *)G (* BASE OF ZERO , INCR 1 *) END; N(* *)N(* Definitions for $GETSECI service *)N(* *) LCONST SECI$_CHAIN = 1; (* Chained item block Y *)G SECI$_GSMODE = 2; (* Access mode of section *)G SECI$_GSFLAGS = 3; (* Flags *)G SECI$_GSNAME = 4; (* Global section name *)G SECI$_GSIDENT = 5; (* Global section ident *)G SECI$_GSRELPAG = 6; (* Relative page number *) N(* *)N(* Definitions for $UPDEC(W) AND $UPDSEC_64(W)Z system services *)N(* *) CONST UPDFLG$M_WRT_MODIFIED = 1; /TYPE UPDSEC_FLAGS$TYPE = RECORD CASE INTEGER OF3 1: (UPDFLG$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; );G 2: (UPDFLG$L_FLAGS : [POS(0)] UNSIGNED; (* Flags *) ); 3: ();O 4: (UPDFLG$V_WRT_MODIFIED : [POS(0)] $BOOL; (* Write pages only if modified *) ) END; (*** MODULE $SECIDDEF ***) N(*+ [ *)N(* Define the global section identification structure. *)N(*- *) "CONST SECID$M_MINOR_ID = 16777215; SECID$M_MAJOR_ID = -16777216; (TYPE SECID$TYPE = RECORD CASE INTEGER OFH 1: (SECID$L_MATCH : UNSIGNED; (* Match control value, see secdef.h *)- SECID$R_FILL_21_ : [BYTE(4)] RECORD END; );G 2: (SECID$L_VERSION : [\POS(32)] UNSIGNED; (* Version number *) ); 3: ();L 4: (SECID$V_MINOR_ID : [POS(32)] $BIT24; (* Minor ID of version number *)K SECID$V_MAJOR_ID : [POS(56)] $BIT8; (* Minor ID of version number *) ) END; LCONST SECID$K_LENGTH = 8; (* Length of SECID *)G SECID$C_LENGTH = 8; (* Length of SECID *) %(*** MODULE $SECSRVDEF IDENT X-4 ***) CONST SECSRV$K_SERVER = 1; SECSRV$K_CIA = 2; SECSRV$K_PR]OXY = 3; SECSRV$K_MAPPING = 4; SECSRV$K_SHUTDOWN = 1; SECSRV$K_PERFORMANCE = 2; SECSRV$K_ZERO_PERFORMANCE = 3; SECSRV$K_RESTART = 4; SECSRV$K_ADD_PROXY = 0; SECSRV$K_DELETE_PROXY = 1; SECSRV$K_SHOW_PROXY = 2; SECSRV$K_VERIFY_PROXY = 3; SECSRV$K_CREATE_PROXY = 4; SECSRV$K_SCAN_INTRUSION = 5; SECSRV$K_DELETE_INTRUSION = 6; SECSRV$K_SHOW_INTRUSION = 7; SECSRV$K_STOP_SERVER = 8; SECSRV$K_RESTART_SERVER = 9; SECSRV$K_ADD_MAPPING = 10; SECSRV$K_CREATE_MAPPING = 1^1; SECSRV$K_DEFINE_MAPPING = 12; SECSRV$K_DELETE_MAPPING = 13; SECSRV$K_MODIFY_MAPPING = 14; SECSRV$K_SCAN_MAPPING = 15; SECSRV$K_LOOKUP_MAPPING = 16; SECSRV$K_MAX_SERVICE = 17; SECSRV$K_MAXMSG = 8192; SECSRV$K_MAX_MESSAGE = 8192;# SECSRV$K_REPLY_CONTEXT_LENGTH = 4; SECSRV$M_IGNORE_RETURN = 1; SECSRV$M_FILL_1 = -2; SECSRV$K_HEADER_LENGTH = 92; +TYPE SECSRV$HEADER = RECORD CASE INTEGER OF& 1: (SECSRV$L_MESSAGE_TYPE : UNSIGNED;) SECSRV$L_MESSAGE_SUBTYPE : UNSIGNED; _% SECSRV$L_CALLERS_PID : UNSIGNED;( SECSRV$L_RETURN_MAILBOX : UNSIGNED;. SECSRV$R_FILL_25_ : [BYTE(4)] RECORD END;/ SECSRV$R_USERNAME : [BYTE(36)] RECORD END;/ SECSRV$R_TERMINAL : [BYTE(16)] RECORD END;3 SECSRV$R_PROCESS_NAME : [BYTE(16)] RECORD END;) SECSRV$L_MESSAGE_CONTEXT : UNSIGNED; );* 2: (SECSRV$L_FLAGS : [POS(128)] UNSIGNED;0 SECSRV$W_USERNAME_SIZE : [POS(160)] $UWORD;H SECSRV$T_USERNAME_STRING : [POS(192)] PACKED ARRAY [1..32] OF CHAR;`0 SECSRV$B_TERMINAL_SIZE : [POS(448)] $UBYTE;F SECSRV$T_TERMINAL_NAME : [POS(456)] PACKED ARRAY [1..15] OF CHAR;. SECSRV$B_PRCNAM_SIZE : [POS(576)] $UBYTE;D SECSRV$T_PRCNAM_NAME : [POS(584)] PACKED ARRAY [1..15] OF CHAR; ); 3: ();/ 4: (SECSRV$V_IGNORE_RETURN : [POS(128)] $BOOL; ) END; "CONST SECSRV$CLIENT = -1762787327; SECSRV$OBJECT = -1762787326;$ SECSRV$COMMUNICATION = -1762787325; (*** MODULE $SJCDEF ***) N(* a *)N(* Send to Job Controller Service ($SNDJBC) definitions. *)N(* *)X(* NOTE: New items must always be added at the end so users will not have to relink. *)N(* *)N(* *)N(* Function codes b *)N(* *) LCONST SJC$_ABORT_JOB = 1; (* Abort current job in a queue *)G SJC$_ADD_FILE = 2; (* Add a file to an open job *)G SJC$_ALTER_JOB = 3; (* Alter parameters of a job *)G SJC$_ALTER_QUEUE = 4; (* Alter parameters of a queue *)S SJC$_ASSIGN_QUEUE = 5; (* Assign a logical queue to an execution queue *)L SJC$_cBATCH_CHECKPOINT = 6; (* Establish a checkpoint in a batch job *)G SJC$_BATCH_SERVICE = 7; (* LOGINOUT communication *)G SJC$_CLOSE_DELETE = 8; (* Close and delete an open job *)G SJC$_CLOSE_JOB = 9; (* Close and enqueue an open job *)G SJC$_CREATE_JOB = 10; (* Create an open job *)G SJC$_CREATE_QUEUE = 11; (* Create a queue *)G SJC$_DEASSIGN_QUEUE = 12; (* Deassign a logical queue d *)J SJC$_DEFINE_CHARACTERISTIC = 13; (* Create a characteristic definition *)G SJC$_DEFINE_FORM = 14; (* Create a form definition *)J SJC$_DELETE_CHARACTERISTIC = 15; (* Delete a characteristic definition *)G SJC$_DELETE_FORM = 16; (* Delete a form definition *)G SJC$_DELETE_JOB = 17; (* Delete a job *)G SJC$_DELETE_QUEUE = 18; (* Delete a queue *)I SJC$_ENTER_FILE = 19; (* Enter a singele file job in a queue *)O SJC$_MERGE_QUEUE = 20; (* Requeue all jobs in one queue to another *)G SJC$_PAUSE_QUEUE = 21; (* Suspend processing from a queue *)G SJC$_RESET_QUEUE = 22; (* Reset a queue *)G SJC$_START_ACCOUNTING = 23; (* Start accounting manager *)E SJC$_START_QUEUE = 24; (* Start processing from a queue *)G SJC$_START_QUEUE_MANAGER = 25; (* Start system job queue manager *)G SJC$_STOP_ACCOUNTING = 26; f (* Stop accounting manager *)G SJC$_STOP_QUEUE = 27; (* Stop processing from a queue *)G SJC$_STOP_QUEUE_MANAGER = 28; (* Stop system job queue manager *)G SJC$_SYNCHRONIZE_JOB = 29; (* Synchronize with job completion *)G SJC$_WRITE_ACCOUNTING = 30; (* Write user accounting record *)[ SJC$_CONTROL_DIAGNOSTICS = 31; (* Control diagnostic functions (for internal use only) *) \(* (note this function code is intentionally not documented and regserved for Digital use) *) kCONST SJC$_DELETE_QUEUE_MANAGER = 32; (* Remove all references to specified qmgr from shared master file *)S SJC$_ALTER_FILE = 33; (* Modify the processing of a file within a job *)Y SJC$_STOP_ALL_QUEUES_ON_NODE = 34; (* Stop all batch/print job processing on the node *)Q SJC$_DISABLE_QUEUE = 35; (* Cause all QSIs on the queue to be inactive *)K SJC$_ENABLE_QUEUE = 36; (* Allow disabled queue to be restarted *)G SJC$_SYMBIONT_SERVICE =h 37; (* Symbiont-Qman communication *)G SJC$_JOBCTL_SERVICE = 38; (* Jobctl-Qman communication *)o SJC$_ENABLE_AUTOSTART = 39; (* Start all AUTOSTART queues on node and allow queues to fail over to node *)^ SJC$_DISABLE_AUTOSTART = 40; (* Prevent AUTOSTART queues from failing over to this node *)Z SJC$_SHUTDOWN_NODE = 41; (* Perform orderly shutdown of queuing system on node. *){ SJC$_RESERVED_FUNC_42 = 42; (* Reserved for Digital use (name may change) Rieserved by security see [qman]tables.req *)Q SJC$_RESERVED_FUNC_43 = 43; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_FUNC_44 = 44; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_FUNC_45 = 45; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_FUNC_46 = 46; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_FUNC_47 = 47; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_FUNC_48 = 48; (* Resejrved for Digital use (name may change) *)Q SJC$_RESERVED_FUNC_49 = 49; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_FUNC_50 = 50; (* Reserved for Digital use (name may change) *)G SJC$K_MIN_FUNC = 1; (* Minimum SNDJBC function code *)G SJC$K_MAX_FUNC = 50; (* Maximum SNDJBC function code *) N(* *)N(* Item codes k *)N(* *) LCONST SJC$_ACCOUNTING_MESSAGE = 1; (* User accounting message *)G SJC$_ACCOUNTING_TYPES = 2; (* Mask of accounting record types *)G SJC$_AFTER_TIME = 3; (* Hold until time *) SJC$_NO_AFTER_TIME = 4;G SJC$_ALIGNMENT_MASK = 5; (* Mask alignment data *)G SJC$_ALIGNMENT_PAGES = 6; (* Number of alignment pages *)G SJC l$_BASE_PRIORITY = 7; (* Batch process base priority *)G SJC$_BATCH = 8; (* Batch queue *) SJC$_NO_BATCH = 9;\ SJC$_BATCH_INPUT = 10; (* LOGINOUT communication (Retired, see SERVICE_INPUT) *)q SJC$_BATCH_OUTPUT = 11; (* For use by LOGINOUT (for internal use only) (Retired, see SERVICE_OUTPUT) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST SJC$_CHARACTERISTIC_NAME = m 12; (* Printer characteristic *)! SJC$_CHARACTERISTIC_NUMBER = 13; SJC$_NO_CHARACTERISTICS = 14;G SJC$_CHECKPOINT_DATA = 15; (* Batch checkpoint string *) SJC$_NO_CHECKPOINT_DATA = 16;G SJC$_CLI = 17; (* Batch process CLI *) SJC$_NO_CLI = 18;G SJC$_CPU_DEFAULT = 19; (* Default CPU time limit *) SJC$_NO_CPU_DEFAULT = 20;G SJC$_CPU_LIMIT = 21; (* Maximum CPU time limit *) SJC$_NO_CPU_LIM nIT = 22;G SJC$_CREATE_START = 23; (* Start queue after creation *)G SJC$_DELETE_FILE = 24; (* Delete file after processing *) SJC$_NO_DELETE_FILE = 25;G SJC$_DESTINATION_QUEUE = 26; (* Destination queue name *)G SJC$_DEVICE_NAME = 27; (* Output device name *)G SJC$_DOUBLE_SPACE = 28; (* Double space output *) SJC$_NO_DOUBLE_SPACE = 29;G SJC$_ENTRY_NUMBER = 30; (* Job entry number o *) SJC$_ENTRY_NUMBER_OUTPUT = 31;G SJC$_FILE_BURST = 32; (* Print file burst page *) SJC$_FILE_BURST_ONE = 33; SJC$_NO_FILE_BURST = 34;G SJC$_FILE_COPIES = 35; (* Print n copies of file *)G SJC$_FILE_FLAG = 36; (* Print file flag page *) SJC$_FILE_FLAG_ONE = 37; SJC$_NO_FILE_FLAG = 38;G SJC$_FILE_IDENTIFICATION = 39; (* DVI, FID, DID of file *)G SJC$_FILE_SETUP_MODULES = 40; (* Device control modules f por file *)! SJC$_NO_FILE_SETUP_MODULES = 41;G SJC$_FILE_SPECIFICATION = 42; (* File specification of file *)G SJC$_FILE_TRAILER = 43; (* Print file trailer page *) SJC$_FILE_TRAILER_ONE = 44; SJC$_NO_FILE_TRAILER = 45;G SJC$_FIRST_PAGE = 46; (* Starting page number *) SJC$_NO_FIRST_PAGE = 47;G SJC$_FORM_DESCRIPTION = 48; (* Textual description of form *)G SJC$_FORM_LENGTH = 49; (* Form length in lines *)qG SJC$_FORM_MARGIN_BOTTOM = 50; (* Form bottom margin in lines *)G SJC$_FORM_MARGIN_LEFT = 51; (* Form left margin in characters *)G SJC$_FORM_MARGIN_RIGHT = 52; (* Form right margin in characters *)G SJC$_FORM_MARGIN_TOP = 53; (* Form top margin in lines *)G SJC$_FORM_NAME = 54; (* Printer form *) SJC$_FORM_NUMBER = 55;G SJC$_FORM_SETUP_MODULES = 56; (* Device control modules for form *)! SJC$_NO_FORM_SETUP_MODULES = 57; rG SJC$_FORM_SHEET_FEED = 58; (* Form is sheet fed *) SJC$_NO_FORM_SHEET_FEED = 59;G SJC$_FORM_STOCK = 60; (* Stock name for form *)G SJC$_FORM_TRUNCATE = 61; (* Truncate long lines *) SJC$_NO_FORM_TRUNCATE = 62;G SJC$_FORM_WIDTH = 63; (* Form width in characters *)G SJC$_FORM_WRAP = 64; (* Wrap long lines *) SJC$_NO_FORM_WRAP = 65;G SJC$_GENERIC_QUEUE = 66; (* Queue is a s generic queue *) SJC$_NO_GENERIC_QUEUE = 67;M SJC$_GENERIC_SELECTION = 68; (* Queue can take work from generic queue *) SJC$_NO_GENERIC_SELECTION = 69;Q SJC$_GENERIC_TARGET = 70; (* Possible execution queue for generic queue *)G SJC$_HOLD = 71; (* Place job on hold *) SJC$_NO_HOLD = 72;G SJC$_JOB_BURST = 73; (* Print job burst page *) SJC$_NO_JOB_BURST = 74;G SJC$_JOB_COPIES = 75; (* Print n copies of tentire job *)G SJC$_JOB_FLAG = 76; (* Print job flag page *) SJC$_NO_JOB_FLAG = 77;G SJC$_JOB_LIMIT = 78; (* Number of concurrent jobs *)G SJC$_JOB_NAME = 79; (* Identifying name of job *)J SJC$_JOB_RESET_MODULES = 80; (* Device control modules between jobs *) SJC$_NO_JOB_RESET_MODULES = 81;G SJC$_JOB_SIZE_MAXIMUM = 82; (* Largest job accepted by printer *) SJC$_NO_JOB_SIZE_MAXIMUM = 83;G SJC$_JOB_SIZE_MINIM uUM = 84; (* Smallest job accepted by printer *) SJC$_NO_JOB_SIZE_MINIMUM = 85;G SJC$_JOB_SIZE_SCHEDULING = 86; (* Schedule printer queues by size *)" SJC$_NO_JOB_SIZE_SCHEDULING = 87;G SJC$_JOB_STATUS_OUTPUT = 88; (* Status message for submitted job *)G SJC$_JOB_TRAILER = 89; (* Print job trailer page *) SJC$_NO_JOB_TRAILER = 90;G SJC$_LAST_PAGE = 91; (* Ending page number *) SJC$_NO_LAST_PAGE = 92;J SJC$_LIBRARY_SPECIFICATION = 93 v; (* Filename of device control library *)$ SJC$_NO_LIBRARY_SPECIFICATION = 94;G SJC$_LOG_DELETE = 95; (* Delete log file *) SJC$_NO_LOG_DELETE = 96;G SJC$_LOG_QUEUE = 97; (* Log file's print queue *)G SJC$_LOG_SPECIFICATION = 98; (* File specification of log file *) SJC$_NO_LOG_SPECIFICATION = 99;G SJC$_LOG_SPOOL = 100; (* Print log file *) SJC$_NO_LOG_SPOOL = 101;G SJC$_LOWERCASE = 102; (* Pr wint on lowercase printer *) SJC$_NO_LOWERCASE = 103;G SJC$_NEW_VERSION = 104; (* Create new version of file *)G SJC$_NEXT_JOB = 105; (* Resume at next job *)G SJC$_NOTE = 106; (* Flag page note text *) SJC$_NO_NOTE = 107;G SJC$_NOTIFY = 108; (* Notify user on job completion *)Q SJC$_NO_NOTIFY = 109; (* Don't notify user on completion (for jobs) *) N(* Don't notify user on interruption x (for print queues) *) LCONST SJC$_OPERATOR_REQUEST = 110; (* Operator service text *) SJC$_NO_OPERATOR_REQUEST = 111;G SJC$_OWNER_UIC = 112; (* Queue owner UIC *)G SJC$_PAGE_HEADER = 113; (* Print page headers *) SJC$_NO_PAGE_HEADER = 114;K SJC$_PAGE_SETUP_MODULES = 115; (* Device control modules for form page *)" SJC$_NO_PAGE_SETUP_MODULES = 116;K SJC$_PAGINATE = 117; (* Paginate output wiyth free form feeds *) SJC$_NO_PAGINATE = 118;G SJC$_PARAMETER_1 = 119; (* Batch job parameters *) SJC$_PARAMETER_2 = 120; SJC$_PARAMETER_3 = 121; SJC$_PARAMETER_4 = 122; SJC$_PARAMETER_5 = 123; SJC$_PARAMETER_6 = 124; SJC$_PARAMETER_7 = 125; SJC$_PARAMETER_8 = 126; SJC$_NO_PARAMETERS = 127;G SJC$_PASSALL = 128; (* Print file passall *) SJC$_NO_PASSALL = 129;G SJC$_PRIORITY = 130; (* Job scheduling priority *)zG SJC$_PROCESSOR = 131; (* Filename of symbiont image *) SJC$_NO_PROCESSOR = 132;G SJC$_PROTECTION = 133; (* Queue protection mask *)G SJC$_QUEUE = 134; (* Queue on which to operate *)L SJC$_QUEUE_FILE_SPECIFICATION = 135; (* File specification of queue file *)I SJC$_RELATIVE_PAGE = 136; (* Resume after forward or back space *)G SJC$_REQUEUE = 137; (* Requeue job *)G SJC$_RESTART = 138; { (* Job can restart *) SJC$_NO_RESTART = 139;G SJC$_RETAIN_ALL_JOBS = 140; (* Retain completed jobs *) SJC$_RETAIN_ERROR_JOBS = 141; SJC$_NO_RETAIN_JOBS = 142;G SJC$_SCSNODE_NAME = 143; (* Node name of execution node *)G SJC$_SEARCH_STRING = 144; (* Resume after finding string *)G SJC$_SWAP = 145; (* Swap batch processes *) SJC$_NO_SWAP = 146;J SJC$_TERMINAL = 147; (* Queue is a (gene |ric) terminal queue *) SJC$_NO_TERMINAL = 148;G SJC$_TOP_OF_FILE = 149; (* Resume at top of file *)` SJC$_USER_IDENTIFICATION = 150; (* Proxy user identification (not supported and is obsolete) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST SJC$_WSDEFAULT = 151; (* Working set default *) SJC$_NO_WSDEFAULT = 152;G SJC$_WSEXTENT = 153; (* Working set extent *) SJC$_}NO_WSEXTENT = 154;G SJC$_WSQUOTA = 155; (* Working set quota *) SJC$_NO_WSQUOTA = 156;U SJC$_ACCOUNT_NAME = 157; (* Proxy account name (requires CMKRNL privilege) *)L SJC$_UIC = 158; (* Proxy UIC (requires CMKRNL privilege) *)Q SJC$_USERNAME = 159; (* Proxy username (requires CMKRNL privilege) *)G SJC$_BUFFER_COUNT = 160; (* Multibuffer count for queue file *)T SJC$_EXTEND_QUANTITY = 161; (* Allocation and extend quan~tity for queue file *)P SJC$_RECORD_BLOCKING = 162; (* Symbiont record blocking of output stream *) SJC$_NO_RECORD_BLOCKING = 163;r SJC$_QUEMAN_RESTART = 164; (* qualifier on SJC$_START_QUEUE_MANAGER, restart queue manager after an abort *) SJC$_NO_QUEMAN_RESTART = 165;G SJC$_DEFAULT_FORM_NAME = 166; (* Default queue form name *)G SJC$_DEFAULT_FORM_NUMBER = 167; (* Default queue form number *)f SJC$_SECURITY_CLASSIFICATION = 168; (* Used by SeVMS to specify secur ity classification of the job *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST SJC$_QUEUE_SUPPORT = 169; (* Queue Support Images *)u SJC$_JOB_COMPLETION_STATUS = 170; (* Status of completed job - this buffer is used instead of IOSB when specified *)p SJC$_DIAGNOSTIC_BUFFER_OUTPUT = 171; (* Job controller's in-memory diagnostic buffer (for internal use only) *) X(* (note this item code is intentionally not documented an d reserved for Digital use) *) MCONST SJC$_OPEN_QUEUE = 172; (* Open queue - allow job submission *)P SJC$_CLOSE_QUEUE = 173; (* Close queue - do not allow job submission *)G SJC$_SERVER = 174; (* Server queue *)G SJC$_PRINTER = 175; (* Printer queue *)c SJC$_UPDATE_ORB = 176; (* Update ORB information in queue file (for internal use only) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST SJC$_NO_QUEUE_DESCRIPTION = 177; (* No queue description supplied *)G SJC$_JOB_RETAIN = 178; (* Retain this job *)G SJC$_JOB_ERROR_RETAIN = 179; (* Retain this job on error *)H SJC$_JOB_DEFAULT_RETAIN = 180; (* Use queue's job retention setting *)W SJC$_NOTIFY_ON_INTERRUPT = 181; (* Notify users if their print jobs are interrupted *)Q SJC$_NO_RAD = 182; (* Reserved for Digital use (name may chang e) *)Z SJC$_ACCEPT_ALL_ATTRIBUTES = 183; (* Inhibits queue manager validation of QSI keywords *)W SJC$_DIAGNOSTIC_FLAGS = 184; (* Diagnostic flags bitmask (for internal use only) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST SJC$_QUEUE_DESCRIPTION = 185; (* Queue description *)b SJC$_CHECKPOINT_FREQUENCY = 186; (* Symbiont takes checkpoint at intervals of this many pages *)o SJC$_DISPLAY_USERNAME = 187; (* Used by DQS to pass a username to the remote system (symbol not renamed) *) X(* (note this item code is intentionally not documented and reserved for Digital use) *) LCONST SJC$_FILE_NUMBER = 188; (* File sequence number within job *)a SJC$_FILE_ATTRIBUTE = 189; (* "Keyword = (optional) value" for extensible attrib on file *)` SJC$_JOB_ATTRIBUTE = 190; (* "Keyword = (optional) value" for extensible attrib on job *)b SJC$_QUEUE_ATTRIBUTE = 191; (* "Keyword = (optional) value" for extensible attrib on queue *)X SJC$_REMOVE_ATTRIBUTE = 192; (* Remove extensible attribs for queue, job, or file *)G SJC$_QUEUE_MANAGER_NAME = 193; (* Queue manager process *)d SJC$_QUEUE_MANAGER_NODES = 194; (* Failover list of nodes on which queue manager process may run *)s SJC$_AUTOSTART_ON = 195; (* Node(s) (and for print queues, device(s)) on which queue can be auto started *) SJC$_RESERVED_OUTPUT_196 = 196; (* Reserved for Digital use (name may change) SJC$_RESERVED_OUTPUT_196 to SJC$_RESERVED_OUTPUT_199 *)o SJC$_RESERVED_OUTPUT_197 = 197; (* Reserved for Digital use (name may change) reserved by security group. *)V SJC$_RESERVED_OUTPUT_198 = 198; (* Reserved for Digital use (name may change) see. *)g SJC$_RESERVED_OUTPUT_199 = 199; (* Reserved for Digital use (name may change) [QMAN]Tables.req *)M SJC$_SET_CONDITION_VECTOR = 200; (* QSI can alter job's completion status *)P SJC$_NOTIFY_MESSAGE = 201; (* QSI Check Job can replac e job completion *) N(* message sent to user *) `CONST SJC$_DEFINE_FILE_ATTRIBUTES = 202; (* Legal keywds for file submissions or alter_file's *)Z SJC$_DEFINE_JOB_ATTRIBUTES = 203; (* Legal keywds in oper'ns that create or alter jobs *)\ SJC$_DEFINE_QUEUE_ATTRIBUTES = 204; (* Legal keywords in operations that alter the queue *)G SJC$_AGENT_PROFILE = 205; (* Security information *)n SJC$_ADD_QUEUE_MANAGER = 206; (* Boolean item code telling sjc_start_queue_manager to add a new database *)r SJC$_OUTSTANDING_JOBS = 207; (* Boolean item code telling queue manager to not delete outstanding open jobs *)u SJC$_NO_INITIAL_FF = 208; (* To suppress initial form feed when the queue is started with INIT or START cmd *) SJC$_NO_NO_INITIAL_FF = 209;[ SJC$_DELETE_FILE_ALWAYS = 210; (* delete file even if the job completes with a failure *)" SJC$_NO_DELETE_FILE_ALWAYS = 211;R SJC$_RESERVED_BOOLEAN_212 = 212; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_213 = 213; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_214 = 214; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_215 = 215; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_216 = 216; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_217 = 217; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_218 = 218; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_219 = 219; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_220 = 220; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_221 = 221; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_222 = 222; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_223 = 223; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_224 = 224; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_225 = 225; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_226 = 226; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_227 = 227; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_228 = 228; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_229 = 229; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_230 = 230; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_231 = 231; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_232 = 232; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_233 = 233; (* Reserved for Digital use (name may change) *)R SJC$_RESERVED_BOOLEAN_234 = 234; (* Reserved for Digital use (name may change) *)^ SJC$_JOB_RETAIN_TIME = 235; (* The time the job should be retained (delta or absolute) *)Y SJC$_MANAGER_ATTRIBUTE = 236; (* Any application specific queue manager attributes. *)G SJC$_RAD = 237; (* RAD on which to run batch job. *)k SJC$_RESERVED_INPUT_238 = 238; (* Reserved for Digital use (name may change) items RESERVED_INPUT_238 *)] SJC$_RESERVED_INPUT_239 = 239; (* Reserved for Digital use (name may change) to *)j SJC$_RESERVED_INPUT_240 = 240; (* Reserved for Digital use (name may change) SJC$_RESERVED_INPUT_241 *)| SJC$_RESERVED_INPUT_241 = 241; (* Reserved for Digital use (name may change) reserved by security (see [QMAN]tables.req *)R SJC$_RESERVED_INPUT_242 = 242; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_243 = 243; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_244 = 244; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_245 = 245; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_246 = 246; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_247 = 247; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_248 = 248; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_249 = 249; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_INPUT_250 = 250; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_OUTPUT_251 = 251; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_OUTPUT_252 = 252; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_OUTPUT_253 = 253; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_OUTPUT_254 = 254; (* Reserved for Digital use (name may change) *)Q SJC$_RESERVED_OUTPUT_255 = 255; (* Reserved for Digital use (name may change) *)G SJC$K_MIN_ITEM = 1; (* Minimum SNDJBC item code *)G SJC$K_MAX_ITEM = 255; (* Maximum SNDJBC item code *)G SJC$_CHARGE_CODE = 157; (* synonym for SJC$_ACCOUNT_NAME *)G SJC$_RESERVED_INPUT_187 = 187; (* for DQS only  *) SJC$_QUEUE_DIRECTORY = 135; N(* Disk & directory for non-shared job queue database *) CONST SJC$_SERVICE_INPUT = 10; SJC$_SERVICE_OUTPUT = 11; Z(* SERVICE item codes are used for communications with LOGINOUT, symbionts, and jobctl. *)N(* *)](* Subfields of ACCOUNTING_TYPES item code. These definitions must track EXE$GL_ACMFLAGS. *)N(*  *) CONST SJC$M_ACCT_PROCESS = 1; SJC$M_ACCT_IMAGE = 2; SJC$M_ACCT_INTERACTIVE = 4; SJC$M_ACCT_LOGIN_FAILURE = 8; SJC$M_ACCT_SUBPROCESS = 16; SJC$M_ACCT_DETACHED = 32; SJC$M_ACCT_BATCH = 64; SJC$M_ACCT_NETWORK = 128; SJC$M_ACCT_PRINT = 256; SJC$M_ACCT_MESSAGE = 512; SJC$M_ACCT_ACM_FUNC = 1024; SJC$M_ACCT_ACM_SYS = 2048; SJC$M_ACCT_CCAENAB = 4096; SJC$M_ACCT_CCVENAB = 8192; #TYPE ACCOUNTING_TYPES$TYPE = RECORDG SJC$V_ACCT_PROCESS : [POS(0)] $BOOL; (* Process termination *)G SJC$V_ACCT_IMAGE : [POS(1)] $BOOL; (* Image termination *)I SJC$V_ACCT_INTERACTIVE : [POS(2)] $BOOL; (* Interactive processes *)G SJC$V_ACCT_LOGIN_FAILURE : [POS(3)] $BOOL; (* Login failures *)G SJC$V_ACCT_SUBPROCESS : [POS(4)] $BOOL; (* Subprocesses *)G SJC$V_ACCT_DETACHED : [POS(5)] $BOOL; (* Detached processes *)G SJC$V_ACCT_BATCH : [POS(6)] $BOOL; (* Batch processes  *)G SJC$V_ACCT_NETWORK : [POS(7)] $BOOL; (* Network processes *)G SJC$V_ACCT_PRINT : [POS(8)] $BOOL; (* Print job termination *)G SJC$V_ACCT_MESSAGE : [POS(9)] $BOOL; (* User messages *)G SJC$V_ACCT_ACM_FUNC : [POS(10)] $BOOL; (* Acm function *)G SJC$V_ACCT_ACM_SYS : [POS(11)] $BOOL; (* System function *)G SJC$V_ACCT_CCAENAB : [POS(12)] $BOOL; (* Charge code accounting *)G SJC$V_ACCT_CCVENAB : [POS(13)] $BOOL; (* Charge code validation *)* SJC$V_ACCT_UNUSED : [POS(14)] $BIT18; END; N(* *)N(* Subfields of DIAGNOSTIC_FLAGS item code. *)N(* *) CONST SJC$M_DIAG_COPY_QF = 1; SJC$M_DIAG_CREATE_MF = 2; SJC$M_DIAG_CLOSE_MF = 4; SJC$M_DIAG_OPEN_MF = 8; SJC$M_DIAG_CLEAR_FLAGS = 16; SJC$M_DIAG_LOG_ALL_TRANS = 32; SJC$M_D IAG_JOURNAL_PUTS = 64;# SJC$M_DIAG_DUMP_DIAG_BUFFER = 128;# SJC$M_DIAG_INIT_DIAG_BUFFER = 256; #TYPE DIAGNOSTIC_FLAGS$TYPE = RECORDK SJC$V_DIAG_COPY_QF : [POS(0)] $BOOL; (* Make copy of the queue file *)b SJC$V_DIAG_CREATE_MF : [POS(1)] $BOOL; (* Create new monitor log file and begin monitoring *)[ SJC$V_DIAG_CLOSE_MF : [POS(2)] $BOOL; (* Stop monitoring and close monitor log file *)d SJC$V_DIAG_OPEN_MF : [POS(3)] $BOOL; (* Open existing monitor log file and resume monitoring *)f SJC$V_DIAG_CLEAR_FLAGS : [POS(4)] $BOOL; (* Clear monitoring flags in queue file header record *)p SJC$V_DIAG_LOG_ALL_TRANS : [POS(5)] $BOOL; (* Log read-only transactions in addition to basic monitoring *)w SJC$V_DIAG_JOURNAL_PUTS : [POS(6)] $BOOL; (* Journal queue file $PUT operations in addition to basic monitoring *)g SJC$V_DIAG_DUMP_DIAG_BUFFER : [POS(7)] $BOOL; (* Return contents of diagnostic buffer to caller *)r SJC$V_DIAG_INIT_DIAG_BUFFER : [POS(8)] $BOOL;  (* Initialize diagnostic buffer and zero cumulative counters *)) SJC$V_DIAG_UNUSED : [POS(9)] $BIT23; END; (*** MODULE $SMRDEF ***) N(* *)N(* DEFINE SYMBIONT MANAGER REQUEST CODES *)N(* *)N(* SYMBIONT MANAGER REQUEST CODES *) LCONST SMR$K_INITIAL = 0;  (* INITIALIZE A QUEUE *)G SMR$K_DELETE = 1; (* DELETE THE QUEUE *)G SMR$K_START = 2; (* ACTIVATE OR RESUME PRINTING *)G SMR$K_PAUSE = 3; (* SUSPEND PRINTING FOR A WHILE *)N SMR$K_MERGE = 4; (* MOVE FILES FORM ONE QUEUE INTO ANOTHER *)J SMR$K_REDIRECT = 5; (* ASSIGNMENT OF ONE QUEUE TO ANOTHER *)I SMR$K_JUSTIFY = 6; (* JUSTIFY PRINT FORMS(IE: ISSUE FF) *)G SMR$K_STOP = 7; (* DISABLE FURTHER DE-QUEING *)G SMR$K_ENTER = 8; (* ADD A FILE TO A QUEUE *)G SMR$K_CREJOB = 9; (* CREATE A PRINT JOB *)G SMR$K_ADDFIL = 10; (* ADD A FILE TO EXISTING JOB *)G SMR$K_CLSJOB = 11; (* CLOSE OPEN JOB *)G SMR$K_RMVJOB = 12; (* REMOVE JOB FROM QUEUE *)G SMR$K_ALTER = 13; (* CHANGE A FILES CHARACTERISTICS  *)G SMR$K_ABORT = 14; (* ABORT CURRENT JOB, START NEXT *)G SMR$K_RELEASE = 15; (* RELEASE JOB FROM HOLD LIST *)G SMR$K_DETINIT = 16; (* DETACHED JOB HAS INITIATED *)G SMR$K_SYNCJOB = 17; (* SYNCRONIZE WITH A BATCH JOB *)G SMR$K_ASKQNAM = 18; (* GET NAME OF QUEUE FOR LOG FILE *) N(* *)N(* ASSIGN SYMBIONT MANAGER PRINT JOB/RECORD OPTION CODES *)N(* *)N(* *)N(* JOB FILE OPTIONS *) LCONST SMO$K_DELETE = 1; (* DELETE THE FILE AFTER PRINTING *)G SMO$K_BRSTPAG = 2; (* CREATE A BURST PAGE *)G SMO$K_NOBRSTPAG = 3; (* INHIBIT BURST PAGE *)G SMO$K_FLAGPAG = 4; (* PRINT A FLAG PAGE *)G SMO$K_NOFLAGPAG = 5; (* INHIBIT A FLAG PAGE *)G SMO$K_PAGHDR = 6; (* PRINT FILENAME AS PAGE HEADER *)G SMO$K_DOUBLE = 7; (* DOUBLE SPACE THE LISTING *)G SMO$K_NOFEED = 8; (* INHIBIT FORM FEED GENERATION *)G SMO$K_PAGCNT = 9; (* SPECIFY PAGE COUNT TO PRINT *)G SMO$K_COPIES = 10; (* NUMBER OF COPIES TO PRINT  *)G SMO$K_FILESIZ = 11; (* FILE SIZE *)G SMO$K_DESTQUE = 12; (* DESTINATION QUEUE *) N(* OPTIONS FOR CREATE JOB *) LCONST SMO$K_RLSTIM = 32; (* TIME TO HOLD UNTIL QUEUEING *)G SMO$K_HOLD = 33; (* HOLD THE JOB *)N SMO$K_JOBPRI = 34; (* SPECIFY PRINT JOB/DETACHED JOB PRIOITY *)G SMO$K_JOBCOPY = 35;  (* NUMBER OF COPIES OF ENTIRE JOB *)G SMO$K_FORMTYPE = 36; (* FORM TYPE TO USED WHEN PRINTED *)G SMO$K_LOWER = 37; (* UPPER/LOWER CASE PRINTER ONLY *)G SMO$K_PARAMS = 38; (* SUPPLY JOB PARAMETERS *)G SMO$K_JOBNAME = 39; (* SUPPLY A NAME TO THE JOB *)G SMO$K_NOLOWER = 40; (* CLEAR LOWER CASE REQUIRED *)G SMO$K_CPULIM = 41; (* CPU TIME LIMIT *)G SMO$K_NOCPULM = 42; (* NO CPU TIME LIMIT *)G SMO$K_WSQUOTA = 43; (* WORKING SET QUOTA *)G SMO$K_NOWSQUO = 44; (* NO WORKING SET QUOTA *)G SMO$K_WSDEFLT = 45; (* WORKING SET DEFAULT *)G SMO$K_NOWSDFT = 46; (* NO WORKING SET DEFAULT *)G SMO$K_DQCHAR = 47; (* CHAR. TO BE USED WHEN PRINTED *)G SMO$K_LOGFNAM = 48; (* LOG FILE SPEC. *)G SMO$K_LOGQNAM = 49; (* QUEUE NAME FOR LOG FILE *)G SMO$K_KEEPLOG = 50; (* KEEP LOG FILE *)G SMO$K_NOSPOOL = 51; (* DON'T SPOOL LOG FILE *)G SMO$K_NOKEEPLOG = 52; (* DELETE LOG FILE *)G SMO$K_NOLOG = 53; (* CREATE LOG ON NULL DEVICE *)G SMO$K_NOTIFY = 54; (* NOTIFY WHEN JOB COMPLETES *)G SMO$K_NONOTFY = 55; (* NO NOTIFY  *)G SMO$K_WSEXTNT = 56; (* WS EXTENT *)G SMO$K_NOWSEXTNT = 57; (* NO WS EXTENT *) N(* OPTIONS FOR INIT OR START A QUEUE *) LCONST SMO$K_CURFORM = 64; (* CURRENT FORMS MOUNTED ON DEVICE *)G SMO$K_GENPRT = 65; (* ALLOW GENERIC PRINTING *)G SMO$K_NOGENPRT = 66; (* DISALLOW GENERIC PRINTING *)I SMO$K_DETJOB = 67; (* QUEUE IS FOR DETACHED JOB QUEUING *)G SMO$K_GENDEV = 68; (* QUEUE IS GENERIC DEVICE QUEUE *)G SMO$K_NOGENDEV = 69; (* NOT A GENERIC DEVICE *)G SMO$K_DEFBRST = 70; (* QUEUE HAS BURST PAGE BY DEFAULT *)G SMO$K_NODEFBRST = 71; (* NO DEFAULT BURST PAGE *)G SMO$K_DEFFLAG = 72; (* QUEUE HAS FLAG PAGE BY DEFAULT *)G SMO$K_NODEFFLAG = 73; (* NO DEFAULT FLAG *)G SMO$K_TRMDEV = 74;  (* DEVICE IS A TERMINAL *)G SMO$K_NOTRMDEV = 75; (* DEVICE IS NOT A TERMINAL *)G SMO$K_JOBLIM = 76; (* JOB LIMIT FOR BATCH JOBS *)G SMO$K_INIPRI = 77; (* JOB INITIAL PRIORITY *)G SMO$K_DISWAP = 78; (* DISABLE SWAPING *)G SMO$K_MCPULM = 79; (* MAX CPU TIME LIMIT *)G SMO$K_NOMCPULM = 80; (* NO MAX CPU TIME LIMIT *)G SMO$K_DCPULM = 81; (* DEFAULT CPU TIME LIMIT *)G SMO$K_NODCPULM = 82; (* NO DEFAULT CPU TIME LIMIT *)G SMO$K_WSQUTA = 83; (* WORKING SET QUOTA *)G SMO$K_NOWSQUTA = 84; (* NO WORKING SET QUOTA *)G SMO$K_WSDFLT = 85; (* WORKING SET DEFAULT *)G SMO$K_NOWSDFLT = 86; (* NO WORKING SET DEFAULT *)G SMO$K_CURDQCHAR = 87; (* CURRENT CHAR. OF THE QUEUE * )G SMO$K_SMBNAME = 88; (* SYMBIONT NAME FOR QUEUE *)G SMO$K_WSXTANT = 89; (* WS EXTENT *)G SMO$K_NOWSXTNT = 90; (* NO WS EXTENT *)G SMO$K_NODISWAP = 91; (* ENABLE SWAPPING *) N(* OPTIONS FOR RESTART *) QCONST SMO$K_NEXTJOB = 96; (* RESTART AT END BEGINNING OF NEXT JOB *)G SMO$K_TOPOFILE = 97; ( * RESTART JOB AT TOP-OF-FILE *)G SMO$K_SPCCNT = 98; (* SPECIFY PAGES TO SPACE OVER *) N(* OPTIONS FOR ABORT *) LCONST SMO$K_REQUEUE = 112; (* REQUEUE THE FILE *)G SMO$K_REQDEST = 113; (* SPECIFY NEW QUEUE DESTINATION *)G SMO$K_REQPRIO = 114; (* SPECIFY PRIORITY ON REQUEUE *) (*** MODULE SNAPEVTDEF ***) N(*1 ORIGIN and INCREMENTS of 1  *) hCONST SNAPEVT$_SNAPSHOT = 1; (* a system snapshot is pending in a non-VAXcluster environment *)_ SNAPEVT$_CLUPEND = 2; (* a system snapshot is pending in a VAXcluster environment *)s SNAPEVT$_RESTART = 3; (* the system has just booted from a snapshot into a non-VAXcluster environment *)o SNAPEVT$_CLU_RESTART = 4; (* the system has just booted from a snapshot into a VAXcluster environment *)] SNAPEVT$_ABORT = 5;  (* a fatal error occurred during the taking of a snapshot *)v SNAPEVT$_CLUEXIT = 6; (* the system is resynchronizing after a loss of communications with the remainder *) N(* of the cluster *) LCONST SNAPEVT$_ROLLOUT = 7; (* a system rollout is pending *)I SNAPEVT$_ROLLIN = 8; (* a system rollin has been completed *) SNAPEVT$C_SNAPSHOT = 1; SNAPEVT$C_RESTART = 3; SNAPEVT$C_ABORT = 5;  TYPE SNAPEVTCODE$TYPE = RECORD SNAPEVT$W_EVENT : $UWORD; END; (*** MODULE $SSIODEF ***) N(*+ *)N(* File access modes for open and create *)N(*- *) LCONST SSIO$M_O_RDONLY = 0; (* Read-only *)G SSIO$M_O_WRONLY = 1; (* Write-only * )G SSIO$M_O_RDWR = 2; (* Read and write *)G SSIO$M_O_ACCMODE = 3; (* Mask for access mode field *) N(*+ *)N(* File status flags for open, create, and setfl (fcntl) *)N(*- *) LCONST SSIO$M_O_APPEND = 8; (* All writes append to EOF *) N(*+  *)N(* File open and create options *)N(*- *) LCONST SSIO$M_O_CREAT = 512; (* Create file if it does not exist *)G SSIO$M_O_TRUNC = 1024; (* Truncate file *)` SSIO$M_O_EXCL = 2048; (* If O_CREAT and O_EXCL both set, open fails if file exists *)X SSIO$M_O_NOCTTY = 4096; (* If TTY dev, not to be controlling TTY for process *) N(*+ *)N(* Positioning (lseek) options *)N(*- *) LCONST SSIO$C_SEEK_SET = 0; (* Set offset to value provided *)J SSIO$C_SEEK_CUR = 1; (* Offset relative to current position *)G SSIO$C_SEEK_END = 2; (* Offset relative to current EOF *) N(*+ *)N(* Other miscellaneous values *)N(*- *) XCONST SSIO$C_SSIZE_MAX = 2147483647; (* Largest read/write size (in bytes) permitted *) (*** MODULE $STENVDEF ***) CONST STENV$K_AUTO_ACTION = 1; STENV$K_BOOT_DEV = 2; STENV$K_BOOTDEF_DEV = 3; STENV$K_BOOTED_DEV = 4; STENV$K_BOOT_FILE = 5; STENV$K_BOOTED_FILE = 6; STENV$K_BOOT_OSFLAGS = 7; STENV$K_BOOTED_OSFLAGS = 8; STENV$K_BOOT_RESET = 9; STENV$K_DUMP_DEV = 10; STENV$K_ENABLE_AUDIT = 11; STENV$K_LICENSE = 12; STENV$K_CHAR_SET = 13; STENV$K_LANGUAGE = 14; STENV$K_TTY_DEV = 15; STENV$K_SYSROOT = 16; STENV$K_BTFLAGS = 17; STENV$K_FRU_EEROM = 18; TYPE ItemType$TYPE = RECORD% STENVDEF$L_ITEM_CODE : UNSIGNED;# STENVDEF$L_BUF_LEN : UNSIGNED;! STENVDEF$Q_BUF_ADDR : $QUAD;! STENVDEF$Q_RET_ADDR : $QUAD; END; N(* *)N(* The following are operation codes for the FRU_EEROM item code. *)N(* *) CONST STENVDEF$_K_FREE_FORM = 0; STENVDEF$_K_SDD_LOG = 25; (*** MODULE $STSDEF ***) N(* *)N(* MACROS TO DEFINE SYSTEM SERVICE FAILURE AND STATUS CODES. *)N(* *)N(* *)N(* $STRUCT SS *)N(* *)N(* THIS STRUCTURE IS NOW CONTAINED IN 'SSMSG.MDL' *)N(*+  *)N(* Define 32-bit VAX-11 error code longword fields *)N(* Changed to agree with Handbook - TNH 26-OCT-77 - CHANGE M 1 to P 1 *)N(* Changed to agree with new status value W. H. Brown 18-NOV-1977 *)N(*- *) CONST STS$M_SEVERITY = 7; STS$M_COND_ID = 268435448; STS$M_CONTROL = -268435456; STS$M_SUCCESS = 1; STS$M_MSG_NO = 65528; STS$M_CODE = 32760;  STS$M_FAC_SP = 32768; STS$M_CUST_DEF = 134217728; STS$M_INHIB_MSG = 268435456; STS$M_FAC_NO = 268369920;G STS$K_WARNING = 0; (* WARNING *)G STS$K_SUCCESS = 1; (* SUCCESSFUL COMPLETION *)G STS$K_ERROR = 2; (* ERROR *)G STS$K_INFO = 3; (* INFORMATION *)G STS$K_SEVERE = 4; (* SEVERE ERROR *) &TYPE STS$TYPE = RECORD CASE INTEGER OF/ 1: (STS$R_STSDEF_BITS0 : [BYTE(4)] RECORD END; );G 2: (STS$V_SEVERITY : [POS(0)] $BIT3; (* severity code *)G STS$V_COND_ID : [POS(3)] $BIT25; (* condition id *)G STS$V_CONTROL : [POS(28)] $BIT4; (* control bits *) );/ 3: (STS$R_STSDEF_BITS1 : [BYTE(2)] RECORD END; );G 4: (STS$V_SUCCESS : [POS(0)] $BOOL; (* Success *)G STS$V_MSG_NO : [POS(3)] $BIT13; (* Message number  *) );/ 5: (STS$R_STSDEF_BITS2 : [BYTE(4)] RECORD END; );G 6: (STS$V_CODE : [POS(3)] $BIT12; (* code *)G STS$V_FAC_SP : [POS(15)] $BOOL; (* 1 if facility specific *)Z STS$V_CUST_DEF : [POS(27)] $BOOL; (* 1 if sub-system is customer (or CSS) defined *)Q STS$V_INHIB_MSG : [POS(28)] $BOOL; (* 1 if message should not be printed *) );/ 7: (STS$R_STSDEF_BITS3 : [BYTE(4)] RECORD END; );G 8: (STS$V_FAC_NO : [POS (16)] $BIT12; (* Facility is 12 bits *)G (*+ *)N(* Define severity codes *)N(*- *) ) END; (*** MODULE $SYIDEF ***) N(*+ *)N(* Get System Information Data Identifier Definitions *)N(*  *)N(* **** NOTE **** *)N(* *)N(* New items must always be added to the END of each item list *)N(* (preceding the ENDlistname item) so that users will not have *)N(* to relink. *)N(*-  *)N(* DEFINE TABLE TYPES *) LCONST SYI$C_EXETYPE = 1; (* Executive cells *)G SYI$C_FLDTYPE = 2; (* Sub-field data *)G SYI$C_RSDTYPE = 3; (* Reduced system data *) I(* The following item-codes are for executive data cells. *)I(* Processor registers are a special case of this type. *)I(* Some EXE-type cells have frequently used sub-fields, *)I(* which have item-codes in the FLD section. (after this one) *) LCONST SYI$_VERSION = 4096; (* VMS version number *)G SYI$_SID = 4097; (* System ID register *)G SYI$_PFCDEFAULT = 4098; (* Default page fault cluster size *)L SYI$_PAGTBLPFC = 4099; (* Default page table page fault cluster *)K SYI$_SYSPFC = 4100; (* Page fault cluster for system paging *)T SYI$_KFILSTCNT = 4101; (* (Obsolete, to be deleted in a future release) *)G SYI$_GBLSECTIONS = 4102; (* Global section count *)G SYI$_GBLPAGES = 4103; (* Global page count *)G SYI$_GBLPAGFIL = 4104; (* Global page page file page limit *)G SYI$_MAXPROCESSCNT = 4105; (* Maximum process count *)G SYI$_PIXSCAN = 4106; (* Process scan count *)G SYI$_PROCSECTCNT = 4107; (* Process section count *)G SYI$_MINWSCNT = 4108; (* Minimum working set size *)G SYI$_PAGFILCNT = 4109; (* Number of paging files *)G SYI$_SWPFILCNT = 4110; (* Number of swap files *)G SYI$_SYSMWCNT = 4111; (* System working set count *)G SYI$_INTSTKPAGES = 4112; (* Interrupt stack size *)L SYI$_DLCKEXTRASTK = 4113; (* Extra int stack for deadlock searches *)G SYI$_BALSETCNT = 4114; (* Balance set count *)G SYI$_IRPCOUNT = 4115; (* Count of I/O packets *)G SYI$_IRPCOUNTV = 4116; (* Limit of extension of IRP list *)G SYI$_WSMAX = 4117; (* Max size of process working set *)G SYI$_NPAGEDYN = 4118; (* Non-paged dynamic pool *)G SYI$_NPAGEVIR = 4119; (* Limit of extension of above *)G SYI$_PAGEDYN = 4120; (* Paged dynamic pool  *)G SYI$_VIRTUALPAGECNT = 4121; (* Max virtual page count *)G SYI$_SPTREQ = 4122; (* Requested SPT extension *)G SYI$_EXUSRSTK = 4123; (* Extra user stack provided *)G SYI$_LRPCOUNT = 4124; (* Number of large request packets *)G SYI$_LRPCOUNTV = 4125; (* Limit of extension of LRP list *)G SYI$_LRPSIZE = 4126; (* Size of large request packet *)G SYI$_LRPMIN = 4127; (* Min alloc request for LRPs *)G SYI$_SRPCOUNT = 4128; (* Number of small request packets *)G SYI$_SRPCOUNTV = 4129; (* Limit of extension of SRP list *)G SYI$_SRPSIZE = 4130; (* Size of small request packet *)G SYI$_SRPMIN = 4131; (* Min alloc request for SRPs *)G SYI$_CHANNELCNT = 4132; (* Number of permanent I/O channels *)G SYI$_PIOPAGES = 4133; (* Process I/O pages *)G SYI$_CTLPAGES = 4134; (* Control region impure pages *)H SYI$_CTLIMGLIM = 4135; (* Limit on use of proc alloc region *)G SYI$_IMGIOCNT = 4136; (* Default image I/O address space *)G SYI$_QUANTUM = 4137; (* Process quantum *)G SYI$_MPW_WRTCLUSTER = 4138; (* Page write cluster factor *)G SYI$_MPW_HILIMIT = 4139; (* Modified page list high limit *)G SYI$_MPW_LOLIMIT = 4140; (* Modified page list low limit *)H SYI$_MPW_PRIO = 4141;  (* Modified page writer I/O priority *)G SYI$_SWP_PRIO = 4142; (* Swapper I/O priority *)K SYI$_MPW_THRESH = 4143; (* Modified page writer lower threshold *)K SYI$_MPW_WAITLIMIT = 4144; (* Modified page writer busy wait limit *)H SYI$_TBSKIPWSL = 4145; (* Max number WSlist entries to skip *)G SYI$_PHYSICALPAGES = 4146; (* Memory size in pages *)G SYI$_PFRATL = 4147; (* Page fault rate lower threshold *)G SYI$_PFRATH = 4148; (* Page fault rate high threshold *)I SYI$_PFRATL_SYS = 4149; (* PFRATL for the system working set *)G SYI$_WSINC = 4150; (* Working set increment *)G SYI$_WSDEC = 4151; (* Working set decrement *)G SYI$_AWSMIN = 4152; (* Working set minimum *)G SYI$_AWSTIME = 4153; (* Working set measurement interval *)G SYI$_SWPRATE = 4154; (* Swap rate control (max)  *)K SYI$_SWPOUTPGCNT = 4155; (* Desired proc page cnt for an outswap *)K SYI$_SWPALLOCINC = 4156; (* Swap file allocation increment value *)G SYI$_IOTA = 4157; (* I/O time allowance *)L SYI$_LONGWAIT = 4158; (* When HIB or LEF proc becomes longwait *)G SYI$_SWPFAIL = 4159; (* Swap fail count *)L SYI$_VMSD1 = 4160; (* Reserved to VMS development (DYNAMIC) *)G SYI$_VMSD2 = 4161; (* "  *)G SYI$_VMSD3 = 4162; (* " *)G SYI$_VMSD4 = 4163; (* " *)K SYI$_VMS5 = 4164; (* Reserved to VMS development (STATIC) *)G SYI$_VMS6 = 4165; (* " *)G SYI$_VMS7 = 4166; (* " *)G SYI$_VMS8 = 4167; (* " *)G SYI$_USERD1 = 4168;  (* Reserved for users (DYNAMIC) *)G SYI$_USERD2 = 4169; (* " *)G SYI$_USER3 = 4170; (* Reserved for users (STATIC) *)G SYI$_USER4 = 4171; (* " *)K SYI$_EXTRACPU = 4172; (* Extra CPU time allowed on expiration *)G SYI$_MAXSYSGROUP = 4173; (* Max group code for system UIC *)G SYI$_MVTIMEOUT = 4174; (* Timeout for mount verification *)J SYI$_MAXBUF = 4175; (* Maximum allowable buffered I/O size *)L SYI$_DEFMBXBUFQUO = 4176; (* Def buffer quota for mailbox creation *)L SYI$_DEFMBXMXMSG = 4177; (* Def max msg size for mailbox creation *)G SYI$_DEFMBXNUMMSG = 4178; (* Def number of messages for " *)G SYI$_FREELIM = 4179; (* Desired free list length *)G SYI$_FREEGOAL = 4180; (* Target free list length *)L SYI$_GROWLIM = 4181; (* Free > growlim to grow proc > wsquota *)G SYI$_BORROWLIM = 4182; (* Same as above??? *)G SYI$_LOCKRETRY = 4183; (* Multi-CPU lock retry count *)G SYI$_XFMAXRATE = 4184; (* Max DR32 data rate *)G SYI$_LAMAPREGS = 4185; (* Number of UBA map regs for LPA11 *)J SYI$_REALTIME_SPTS = 4186; (* SPT entries for CONINTERR processes *)K SYI$_CLISYMTBL = 4187; (* Number of pages for CLI symbol table *)G SYI$_LOCKIDTBL = 4188; (* Size of lock ID table *)G SYI$_RESHASHTBL = 4189; (* Size of resource hash table *)H SYI$_DEADLOCK_WAIT = 4190; (* Deadlock detection timeout period *)J SYI$_SCSBUFFCNT = 4191; (* SCS buffer descriptor table entries *)K SYI$_SCSCONNCNT = 4192; (* SCS connect descriptor table entries *)L SYI$_SCSRESPCNT = 4193; (* SCS response descriptor table entries *)G SYI$_SCSMAXDG = 4194; (* SCS maximum datagram size *)G SYI$_SCSMAXMSG = 4195; (* SCS max sequenced message size *)G SYI$_SCSFLOWCUSH = 4196; (* SCS flow control cushion *)G SYI$_SCSSYSTEMID = 4197; (* SCS system ID (48 bits) *)G SYI$_SCSSYSTEMIDH = 4198; (* High bits of above *)G SYI$_SCSNODE = 4199; (* SCS system node name *)G SYI$_PRCPOLINTERVAL = 4201; (* SCA process polling interval *)G SYI$_PASTIMOUT = 4202; (* CI port START/STACK timeout *)M SYI$_PASTDGBUF = 4203; (* CI port DG buffers for START handshake *)G SYI$_PANUMPOLL = 4204; (* Number of CI ports to poll *)G SYI$_PAPOLLINTERVAL = 4205; (* Time between CI port polls *)G SYI$_PAPOOLINTERVAL = 4206; (* Time between SYSAPs pool check *)I SYI$_TIMEPROMPTWAIT = 4207; (* Time prompt timeout (when booting) *)J SYI$_UDABURSTRATE = 4208; (* Max number of longwords per NPR - 1 *)O SYI$_LNMSHASHTBL = 4209; (* Size of system space log name hash table *)G SYI$_LNMPHASHTBL = 4210; (* Size of process space " *)G SYI$_TTY_SCANDELTA = 4211; (* Delta time for dialup timer scan *)G SYI$_TTY_DIALTYPE = 4212; (* Flags for dialup type *)G SYI$_TTY_SPEED = 4213; (* Terminal default: speed *)G SYI$_TTY_RSPEED = 4214; (* " " receive speed *)G SYI$_TTY_PARITY = 4215; (* " " parity *)G SYI$_TTY_BUF = 4216; (* " " line width *)G SYI$_TTY_DEFCHAR = 4217; (* " " characteristics *)H SYI$_TTY_DEFCHAR2 = 4218; (* " " characteristics, 2nd longword *)G SYI$_TTY_TYPAHDSZ = 4219; (* Size of typeahead buffer *)G SYI$_TTY_ALTYPAHD = 4220; (* Alternate typeahead size *)G SYI$_TTY_ALTALARM = 4221; (* Alt typeahead alarm size *)G SYI$_TTY_DMASIZE = 4222; (* Dma size *)H SYI$_TTY_PROT = 4223; (* Default terminal alloc protection *)G SYI$_TTY_OWNER = 4224; (* Default terminal owner *)I SYI$_TTY_CLASSNAME = 4225; (* Default terminal class name prefix *)G SYI$_TTY_SILOTIME = 4226; (* Default silo timeout for DMF32 *)G SYI$_TTY_DEFPORT = 4227; (* DEFAULT PORT ACTION PARAMETER *)G SYI$_RMS_DFMBC = 4228; (* RMS default: multi-block count *)L SYI$_RMS_DFMBFSDK = 4229; (* " " multi-buffer count for disk (SEQ) *)G SYI$_RMS_DFMBFSMT = 4230; (* " " multi-buffer count for tape *)M SYI$_RMS_DFMBFSUR = 4231; (* " " multi-buffer count for unit record *)K SYI$_RMS_DFMBFREL = 4232; (* " " multi-buffer count for REL files *)L SYI$_RMS_DFMBFIDX = 4233; (* " " multi-buffer count for ISAM files *)H SYI$_RMS_CONPOLICY = 4234; (* " " Default RMS Contention Policy *)G SYI$_RMS_PROLOGUE = 4235; (* " " prolog *)G SYI$_RMS_EXTEND_SIZE = 4236; (* " " file extend quantity *)G SYI$_RMS_FILEPROT = 4237; (* " " file protection *)G SYI$_PQL_DASTLM = 4238; (* Def AST limit *)G SYI$_PQL_MASTLM = 4239; (* Min " *)G SYI$_PQL_DBIOLM = 4240; (* Def buffered I/O limit *)G SYI$_PQL_MBIOLM = 4241; (* Min " *)H SYI$_PQL_DBYTLM = 4242; (* Def buffered I/O byte count limit *)G SYI$_PQL_MBYTLM = 4243; (* Min " *)G SYI$_PQL_DCPULM = 4244; (* Def CPU time limit *)G SYI$_PQL_MCPULM = 4245; (* Min " *)G SYI$_PQL_DDIOLM = 4246; (* Def direct I/O limit *)G SYI$_PQL_MDIOLM = 4247; (* Min " *)G SYI$_PQL_DFILLM = 4248; (* Def open file limit *)G SYI$_PQL_MFILLM = 4249; (* Min " *)G SYI$_PQL_DPGFLQUOTA = 4250; (* Def paging file quota *)G SYI$_PQL_MPGFLQUOTA = 4251; (* Min " *)G SYI$_PQL_DPRCLM = 4252; (* Def sub-process limit *)G SYI$_PQL_MPRCLM = 4253; (* Min " *)G SYI$_PQL_DTQELM = 4254; (* Def timer queue entry limit *)G SYI$_PQL_MTQELM = 4255; (* Min " *)G SYI$_PQL_DWSDEFAULT = 4256; (* Def working set default size *)G SYI$_PQL_MWSDEFAULT = 4257; (* Min " *)G SYI$_PQL_DWSQUOTA = 4258; (* Def working set quota *)G SYI$_PQL_MWSQUOTA = 4259; (* Min " *)G SYI$_PQL_DWSEXTENT = 4260; (* Def working set extent *)G SYI$_PQL_MWSEXTENT = 4261; (* Min " *)G SYI$_PQL_DENQLM = 4262; (* Def enqueue limit *)G SYI$_PQL_MENQLM = 4263; (* Min " *)G SYI$_ACP_MAPCACHE = 4264; (* Number of blocks in bitmap cache *)L SYI$_ACP_HDRCACHE = 4265; (* Number of blocks in file header cache *)J SYI$_ACP_DIRCACHE = 4266; (* Number of blocks in directory cache *)G SYI$_ACP_WORKSET = 4267; (* ACP working set *)H SYI$_ACP_FIDCACHE = 4268; (* Number of cached index file slots *)G SYI$_ACP_EXTCACHE = 4269; (* Number of cached disk extents *)G SYI$_ACP_EXTLIMIT = 4270; (* Max fraction of disk to cache *)L SYI$_ACP_QUOCACHE = 4271; (* Number of file quota entries to cache *)H SYI$_ACP_SYSACC = 4272; (* Default access for system volumes *)H SYI$_ACP_MAXREAD = 4273; (* Max number of direct blks to read *)M SYI$_ACP_WINDOW = 4274; (* Default window size for system volumes *)G SYI$_ACP_WRITEBACK = 4275; (* Deferred cache writeback enable *)G SYI$_ACP_DATACHECK = 4276; (* ACP datacheck enable flags *)G SYI$_ACP_BASEPRIO = 4277; (* ACP base priority *)G SYI$_ACP_SWAPFLGS = 4278; (* ACP swap flags *)K SYI$_DEFPRI = 4279; (* Default priority for Job Initiations *)G SYI$_IJOBLIM = 4280; (* Limit for interactive jobs *)G SYI$_BJOBLIM = 4281; (* Limit for batch jobs *)G SYI$_NJOBLIM = 4282; (* Limit for network jobs *)G SYI$_RJOBLIM = 4283; (* Limit for remote terminal jobs *)H SYI$_QUORUM = 4284;  (* Connection manager cluster QUORUM *)P SYI$_VOTES = 4285; (* Connection manager VOTES from this system *)L SYI$_RECNXINTERVAL = 4286; (* Connection manager reconnect interval *)M SYI$_BOOTTIME = 4287; (* 64-bit abs. system time at system boot *)G SYI$_LOCKIDTBL_MAX = 4288; (* Maximum size of lock ID table. *)G SYI$_TAILORED = 4289; (* Is this system tailored? *)I SYI$_STARTUP_P1 = 4290; (* Parameters for passing informa tion *)G SYI$_STARTUP_P2 = 4291; (* to system startup procedure. *) SYI$_STARTUP_P3 = 4292; SYI$_STARTUP_P4 = 4293; SYI$_STARTUP_P5 = 4294; SYI$_STARTUP_P6 = 4295; SYI$_STARTUP_P7 = 4296; SYI$_STARTUP_P8 = 4297;G SYI$_CLUSTER_NODES = 4298; (* total number of nodes in cluster *)G SYI$_CLUSTER_VOTES = 4299; (* " " " votes " " *)G SYI$_CLUSTER_QUORUM = 4300; (* " quorum in cluster *)G SYI$_CLUSTER_FSYSID = 4301; (* founding systemid *)G SYI$_CLUSTER_FTIME = 4302; (* founding boottime *)G SYI$_CLUSTER_MEMBER = 4303; (* true if in a live cluster *)G SYI$_NODE_CSID = 4304; (* cluster system id of target node *)G SYI$_NODE_VOTES = 4305; (* votes of target node *)G SYI$_NODE_QUORUM = 4306; (* quorum of " " *)G SYI$_NODE_SYSTEMID = 4307; (* systemid of " " *)G SYI$_NODE_SWINCARN = 4308;  (* S/W incarnation of " " *)G SYI$_NODE_SWTYPE = 4309; (* S/W type of " " *)G SYI$_NODE_SWVERS = 4310; (* S/W version of " " *)G SYI$_NODE_HWTYPE = 4311; (* H/W type of " " *)G SYI$_NODE_HWVERS = 4312; (* H/W version of " " *)G SYI$_NODENAME = 4313; (* SCS nodename of " " *)G SYI$_ARCHFLAG = 4314; (* Flags used by uVAX code *)G SYI$_SCS_EXISTS = 4315; (* Flag to indicate presence of SCS *)L SYI$_DISK_QUORUM = 4316; (* Cluster quorum device name (in ASCII) *)N SYI$_XSID = 4317; (* Extended System Identification Register *)G SYI$_PAMAXPORT = 4320; (* Max PA port to poll *)L SYI$_PASANITY = 4321; (* PA sanity timer enable/disable switch *)G SYI$_DEFQUEPRI = 4322; (* Default Que Priority *)G SYI$_MAXQUEPRI = 4323; (* Max Que Priority  *)G SYI$_QDSKINTERVAL = 4324; (* Disk Quorum Interval *)G SYI$_ALLOCLASS = 4325; (* Allocation class *)G SYI$_LGI_RETRY_LIM = 4326; (* Login retry limit *)G SYI$_LGI_RETRY_TMO = 4327; (* Login retry timeout *)G SYI$_LGI_BRK_LIM = 4328; (* Login failure limit *)G SYI$_LGI_BRK_TMO = 4329; (* Login suspect timeout *)G SYI$_LGI_HID_TIM = 4330; (* Login evasive action time *)G SYI$_LGI_PWD_TMO = 4331; (* System password drop dead time *)Y SYI$_PQL_DJTQUOTA = 4332; (* Default Job-wide Logical Name Table Creation Quota *)Y SYI$_PQL_MJTQUOTA = 4333; (* Minimum Job-wide Logical Name Table Creation Quota *)G SYI$_VAXCLUSTER = 4334; (* VAXcluster participation *)K SYI$_LOCKDIRWT = 4335; (* Lock manager directory system weight *)G SYI$_QDSKVOTES = 4336; (* Votes held by quorum disk *)L SYI$_DORMANTWAIT = 4337; (* When low pri COM proc becomes dormant *)G SYI$_PAGEFILE_PAGE = 4338; (* Total pagefile pages *)G SYI$_SWAPFILE_PAGE = 4339; (* Total swapfile pages *)G SYI$_PAGEFILE_FREE = 4340; (* Free pagefile pages *)G SYI$_SWAPFILE_FREE = 4341; (* Free swapfile pages *)K SYI$_TTY_TIMEOUT = 4342; (* Seconds for virtual terminal timeout *)G SYI$_TTY_AUTOCHAR = 4343; (* autobaud recognition character *)G SYI$_PANOPOLL = 4344; (* Disable/enable CI port polling *)G SYI$_PE1 = 4345; (* Reserved TO PEDRIVER (DYNAMIC) *)G SYI$_PE2 = 4346; (* " *)G SYI$_PE3 = 4347; (* " *)G SYI$_PE4 = 4348; (* " *)G SYI$_PE5 = 4349; (* Reserved TO PEDRIVER (STATIC) *)G SYI$_PE6 = 4350; (* "  *)G SYI$_RMS_GBLBUFQUO = 4351; (* RMS global buffer quota *)G SYI$_RMS_DFNBC = 4352; (* " " network block count *)O SYI$_ACP_DINDXCACHE = 4353; (* File system directory index cache blocks *)Z SYI$_MAXATTACHPRI = 4354; (* Maximum scheduling prio for ASMP attached processor *)K SYI$_SMP_CPUS = 4355; (* Number of CPUs to boot in SMP system *)N SYI$_SMP_CPUSH = 4356; (* Hi Number of CPUs to boot in SMP system *)G SYI$_FALLBACK_MODE = 4357; (* Cluster fallback mode *)Q SYI$_MPW_LOWAITLIMIT = 4358; (* Modified page writer lower busy wait limit *)T SYI$_MPW_IOLIMIT = 4359; (* Modified page writer max concurrent I/O count *)G SYI$_S0_PAGING = 4360; (* System space paging flags *)M SYI$_HW_MODEL = 4361; (* System model number (from SB$B_HWVERS) *)Q SYI$_HW_NAME = 4362; (* System model name from #/name trans. table *)N SYI$_SCH_CTLFLAGS = 4363; (* CPU scheduling control flags (obsolete) *)G SYI$_NODE_EVOTES = 4364; (* Votes expected by target node *)J SYI$_CLUSTER_EVOTES = 4365; (* Number of expected votes in cluster *)G SYI$_MULTIPROCESSING = 4366; (* Multiprocessor participation *)G SYI$_FREE_GBLPAGES = 4367; (* Total, free global pages *)L SYI$_CONTIG_GBLPAGES = 4368; (* Maximum, contiguous free global pages *)G SYI$_FREE_GBLSECTS = 4369; (* Total, free global sections *)G SYI$_EXPECTED_VOTES = 4370; (* Expected votes *)G SYI$_PU_OPTIONS = 4371; (* Select PUDRIVER load options *)G SYI$_WPTTE_SIZE = 4372; (* # Watchpoint Trace Table Entries *)G SYI$_WPRE_SIZE = 4373; (* Watchpoint Restore Entry size *)G SYI$_SMP_SANITY_CNT = 4374; (* # SMP Sanity events bef. timeout *)Q SYI$_SMP_TICK_CNT = 4375; (* Clock ticks between SMP sanity time cycles *)R SYI$_QBUS_MULT_INTR = 4376; (* uVAX/QBUS multi-level interrupt enable flag *)G SYI$_SYSTEM_RIGHTS = 4377; (* System rights list segment *)G SYI$_SMP_SPINWAIT = 4378; (* SMP normal busywait timeout *)G SYI$_SMP_LNGSPINWAIT = 4379; (* SMP LONG busywait timeout *)G SYI$_TIME_CONTROL = 4380; (* Time-related control functions *)G SYI$_AVAILCPU_CNT = 4381; (* Number of CPUs in this machine *)G SYI$_ACTIVECPU_CNT = 4382; (* Number of CPUs up and running *)G SYI$_MSCP_LOAD = 4386;  (* Load MSCP server at boot time *)G SYI$_MSCP_SERVE_ALL = 4387; (* Serve all disks *)G SYI$_POOLCHECK = 4388; (* Pool debugging in MEMORYALC.MAR *)G SYI$_TAPE_MVTIMEOUT = 4389; (* Magtape mount verification *)I SYI$_PSEUDOLOA = 4390; (* Pseudoloa image size for tape boot *)J SYI$_MINCLASSPRI = 4391; (* Min. priority for class scheduling *)J SYI$_MAXCLASSPRI = 4392; (* Max. priority for class scheduling *)V SYI$_MINPRPRI = 4393; (* Min. priority for preemptive-resume scheduling *)] SYI$_AUTOCONFIG_ALGO = 4394; (* Selects which algorithmn SYSGEN uses to autoconfigure. *)J SYI$_ERRORLOGBUFFERS = 4395; (* Number of buffers for error logging *)t SYI$_JOBCTLD = 4396; (* Dynamic SYSGEN flag to handle job controller diagnostics and Rolling upgrade. *)O SYI$_WINDOW_SYSTEM = 4397; (* Default windowing system for workstation *)K SYI$_MSCP_BUFFER = 4398; (* Pages allocated to server local pool *)P SYI$_MSCP_CREDITS = 4399; (* Number of send credits extended by server *)X SYI$_BREAKPOINTS = 4400; (* Mask of INI$BRK callers in exec used in this boot *)^ SYI$_CLOCK_INTERVAL = 4401; (* Time (in usec) between interval timer clock interrupts *)m SYI$_DUMPSTYLE = 4402; (* Mask specifying desired format of dump file (full dump or subset dump) *)G SYI$_NISCS_PORT_SERV = 4403; (* Port services flag *)G SYI$_RSRVPAGCNT = 4404;  (* No. of pagefile pages to escrow *)G SYI$_VECTOR_PROC = 4405; (* Load vector processing *)G SYI$_VECTOR_MARGIN = 4406; (* Vector margin *)G SYI$_AFFINITY_SKIP = 4407; (* Affinity skip count *)G SYI$_AFFINITY_TIME = 4408; (* Affinity queue time *)G SYI$_VECTOR_EMULATOR = 4409; (* Vector emulator present flag *)G SYI$_VP_MASK = 4410; (* Mask of vector processors *)G SYI$_VP_NUMBER = 4411; (* Number of vector processors *)K SYI$_USED_GBLPAGCNT = 4412; (* Current count of global pages in use *)K SYI$_USED_GBLPAGMAX = 4413; (* Maximum count of global pages in use *)N SYI$_USED_GBLSECTCNT = 4414; (* Current count of global sections in use *)N SYI$_USED_GBLSECTMAX = 4415; (* Maximum count of global sections in use *)G SYI$_ERLBUFFERPAGES = 4416; (* Pages in each ERL Buffer *)G SYI$_TAPE_ALLOCLASS = 4417; (* Tape Allocation class  *)I SYI$_PFRATH_SYS = 4418; (* PFRATH for the system working set *)I SYI$_WSINC_SYS = 4419; (* WSINC for the system working set *)I SYI$_WSDEC_SYS = 4420; (* WSDEC for the system working set *)I SYI$_AWSMIN_SYS = 4421; (* AWSMIN for the system working set *)I SYI$_AWSTIME_SYS = 4422; (* AWSTIME for the system working set *)G SYI$_BOOT_STYLE = 4423; (* Boot Style *)G SYI$_FT_FLAGS = 4424; (* Fault Tolerance Flags field *)G SYI$_SHADOWING = 4425; (* Shadowing mode *)G SYI$_SHADOW_SYS_DISK = 4426; (* Volume shadowed system disk *)G SYI$_SHADOW_SYS_UNIT = 4427; (* Shadowed system disk unit number *)G SYI$_SHADOW_MAX_COPY = 4428; (* Max shadow copy threads allowed *)G SYI$_TIMVCFAIL = 4429; (* Time to detect VC failure *)G SYI$_PRIORITY_OFFSET = 4431; (* Priority gap for preemption *)G SYI$_VCC_FLAGS = 4432;  (* VBN static cache flags *)G SYI$_VCC_MAXSIZE = 4437; (* Max size of VBN cache *)H SYI$_MMG_CTLFLAGS = 4441; (* Bit mask to control A/T mem mgmt. *)^ SYI$_NISCS_MAX_PKTSZ = 4443; (* Maximum number of bytes allocated for all NISCS packets *)` SYI$_NISCS_LAN_OVRHD = 4444; (* Bytes in NISCS packets reserved for other uses (eg DESNC) *)G SYI$_DECNET_VERSION = 4445; (* Version of DECnet installed *)J SYI$_TMSCP_LOAD = 4446; (* Load TMSCP tape server at boot time *)O SYI$_LGI_CALLOUTS = 4447; (* Number of LOGINOUT local policy callouts *)S SYI$_NET_CALLOUTS = 4448; (* Number of DECNET Login local policy callouts *)U SYI$_IEEE_ADDRESS = 4449; (* 48 bit IEEE unique address - low order 32 bits *)V SYI$_IEEE_ADDRESSH = 4450; (* 48 bit IEEE unique address - high order 16 bits *)N SYI$_SHADOW_MBR_TMO = 4451; (* Timeout interval for HBS shadow members *)G SYI$_PAGE_SIZE = 4452; (* Memory page size in bytes *)G SYI$_ARCH_TYPE = 4453; (* Architecture type *)G SYI$_ARCH_NAME = 4454; (* Architecture name *)G SYI$_CRD_CONTROL = 4455; (* CRD scrub/replace control *)G SYI$_SECURITY_POLICY = 4456; (* C2/B1 security policy bitmask *)G SYI$_DNVOSI1 = 4457; (* DECnet/OSI for VMS *)G SYI$_MEMSIZE = 4459; (* System memory size in pages *)G SYI$_KSTACKPAGES = 4460; (* Pages in Kernel Stack *)G SYI$_PHYSICAL_MEMORY = 4461; (* Max of physical memory to use *)G SYI$_XQP_ALLOC_BLKS = 4462; (* Flag - can XQP allocate blocks *)G SYI$_ZERO_LIST_HI = 4463; (* Zeroed list high limit *)I SYI$_CPUTYPE = 4464; (* CPU type of Primary CPU from HWRPB *)G SYI$_SYSTYPE = 4465; (* System type from HWRPB *)J SYI$_ITB_ENTRIES = 4466; (* Number of code huge page TBs to use *)H SYI$_GH_RSRVPGCNT = 4467; (* pages reserved in code huge page *)G SYI$_DEF_PRIO_MIN = 4468; (* MIN priority for default policy *)G SYI$_DEF_PRIO_MAX = 4469; (* MAX priority for default policy *)I SYI$_PSXFIFO_PRIO_MIN = 4470; (* MIN priority for POSIX FIFO policy *)I SYI$_PSXFIFO_PRIO_MAX = 4471; (* MAX priority for POSIX FIFO policy *)O SYI$_PSXRR_PRIO_MIN = 4472; (* MIN priority for POSIX Rnd-Robbin policy *)O SYI$_PSXRR_PRIO_MAX = 4473; (* MAX priority for POSIX Rnd-Robbin policy *)G SYI$_XQPCTLD1 = 4474; (* Reserved for XQP use (dynamic) *)G SYI$_XQPCTL2 = 4475; (* Reserved for XQP use *)N SYI$_CPUCONF = 4477; (* CPU Configuration bitmask: 0 through 31 *)Y SYI$_DECNET_FULLNAME = 4478; (* DECnet/OSI fullname (or DECnet Phase IV node name) *)G SYI$_XQPCTLD3 = 4479; (* F11BXQP Specific parameters *)B SYI$_XQPCTL4 = 4480; (* | *)B SYI$_XQPCTLD5 = 4481;  (* | *)B SYI$_XQPCTL6 = 4482; (* | *)B SYI$_XQPCTLD7 = 4483; (* | *)B SYI$_XQPCTL8 = 4484; (* v *)Q SYI$_DBGTK_SCRATCH = 4485; (* HLL System debugger scratch memory request *)G SYI$_PALCODE_VERSION = 4486; (* Version of PALcode *)G SYI$_CONSOLE_VERSION = 4487; (* Version of Console firmware *)G SYI$_GH_EXEC_CODE = 4488; (* Pages in the execlet code region *)G SYI$_GH_EXEC_DATA = 4489; (* Pages in the execlet data region *)S SYI$_GH_RES_CODE = 4490; (* Pages in the resident image S0S1 code region *)N SYI$_GH_RES_DATA = 4491; (* Pages in the resident image data region *)G SYI$_IMGREG_PAGES = 4492; (* Pages in the P1 image-region *)l SYI$_SHADOW_SYS_TMO = 4493; (* Timeout interval for HBS system disk- new and after - shadow members *)d SYI$_SHADOW_SYS_WAIT = 4494; (* Timeout interval for HBS system disk- exists - shadow members *)N SYI$_SHADOW_ENABLE = 4495; (* Member removed at reboot from HBVS set. *)R SYI$_SHADOW_SITE_O = 4496; (* OBSOLETE default site for shadow set (text) *)P SYI$_SYSTEM_CHECK = 4497; (* load/enable system problem isolation code *)G SYI$_PFN_COLOR_COUNT = 4498; (* PFN Color Count *)J SYI$_REAL_CPUTYPE = 4499; (* Actual CPU type of Primary CPU from *)G SYI$_SCSICLUSTER_P1 = 4500; (* Reserved for SCSI Cluster *)G SYI$_SCSICLUSTER_P2 = 4501; (* Reserved for SCSI Cluster *)G SYI$_SCSICLUSTER_P3 = 4502; (* Reserved for SCSI Cluster *)G SYI$_SCSICLUSTER_P4 = 4503; (* Reserved for SCSI Cluster *)j SYI$_FILE_CACHE = 4504; (* Percentage of physical memory reserved for Dollar file system cache *)G SYI$_TMSCP_SERVE_ALL = 4505; (* Serve all tapes *)G SYI$_DR_UNIT_BASE = 4506; (* unit base for DR devices *)K SYI$_MC_SERVICES_P0 = 4507; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P1 = 4508; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P2 = 4509; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P3 = 4510; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P4 = 4511; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P5 = 4512; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P6 = 4513; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P7 = 4514; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P8 = 4515; (* Reserved for MEmory Channel Services *)K SYI$_MC_SERVICES_P9 = 4516; (* Reserved for MEmory Channel Services *)G SYI$_S2_SIZE = 4517; (* Size in Mbytes for S2 space *)G SYI$_PROCESS_SPACE_LIMIT = 4518; (* Highest process private VA *)G SYI$_PT_BASE = 4519; (* Base VA of PT_space *)U SYI$_SHARED_VA_PTES = 4520; (* Boundary between process and system space PTEs *)G SYI$_MULTITHREAD = 4521; (* per process kernel thread limit *)Y SYI$_CWCREPRC_ENABLE = 4522; (* Allow remote process creation by unprivileged user *)\ SYI$_MAXBOBMEM = 4523; (* Maximum physical memory for buffer objects (pagelets) *)G SYI$_FAST_PATH = 4524; (* Fast Path enable/disable *)` SYI$_IO_PREFER_CPUS = 4525; (* Bit mask of CPUs available to be Fast Path preferred CPUs *)G SYI$_ACTIVE_CPU_MASK = 4526; (* Currently active CPU mask *)G SYI$_AVAIL_CPU_MASK = 4527; (* Mask of existing system CPUs *)G SYI$_PRIMARY_CPUID = 4528; (* CPUID of the primary processor *)G SYI$_MAX_CPUS = 4529; (* Maximum allowed CPUs in system *)G SYI$_CPUCAP_MASK = 4530; (* Array of CPU capability masks *)` SYI$_FILE_CACHE_MIN = 4531; (* Min # of pages of cache reserved for Spiralog file system *)` SYI$_FILE_CACHE_MAX = 4532; (* Max # of pages of cache reserved for Spiralog file system *)G SYI$_F64CTL1 = 4533; (* Reserved to Spiralog file system *)G SYI$_F64CTL2 = 4534; (* | *)G SYI$_F64CTLD3 = 4535; (* | *)G SYI$_F64CTLD4 = 4536; (* V *)R SYI$_DISABLE_UPCALLS = 4537; (* Bitmask to disable specific threads upcalls *)G SYI$_DEVICE_NAMING = 4538; (* DEVICE_NAMING bitmask  *)G SYI$_AVAIL_PAGES = 4539; (* Available physical pages *)G SYI$_PROC_SLOTS = 4540; (* Process slot information *)G SYI$_BAL_SLOTS = 4541; (* Balance slot information *)G SYI$_NPAGED_POOL = 4542; (* Nonpaged pool information *)G SYI$_PAGED_POOL = 4543; (* Paged pool information *)G SYI$_MAIN_MEMORY = 4544; (* Memory information *)O SYI$_ARB_SUPPORT = 4545; (* Level of security backward compatibility *) N(*ifsymbol PFNBITS_32; *) MCONST SYI$_MAX_PFN = 4546; (* Returns contents of MMG$GL_MAXPFN *)G SYI$_PFN_MEMORY_MAP = 4547; (* Returns a physical memory map *) N(*end_ifsymbol; *) VCONST SYI$_PMD_COUNT = 4548; (* Returns count of phys. mem. desc. in HWRPB *)G SYI$_MSCP_CMD_TMO = 4549; (* VMS-MSCP server timer value *)G SYI$_LAN_FLAGS = 4550; (* LAN specific flags *)G SYI$_RMS_DFLRL = 4551; (* RMS default max record length *)L SYI$_RMS_HEURISTIC = 4552; (* RMS file attribute heuristic ctr flag *)_ SYI$_NPAG_INTERVAL = 4553; (* nonpaged pool gentle reclamation interval (# of seconds) *)K SYI$_NPAG_GENTLE = 4554; (* gentle reclamation refill percentage *)O SYI$_NPAG_AGGRESSIVE = 4555; (* aggressive reclamation refill percentage *)G SYI$_NPAG_BAP_MIN = 4556; (* Min Size of Bus Addressable Pool *)G SYI$_NPAG_BAP_MAX = 4557; (* Max Size of Bus Addressable Pool *)G SYI$_NPAG_BAP_MAX_PA = 4558; (* max. PA for BAP *)G SYI$_NPAG_RING_SIZE = 4559; (* size of ring buffer *)G SYI$_CLUSTER_CREDITS = 4560; (* cluster send credits *)G SYI$_PTES_PER_PAGE = 4561; (* *)G SYI$_TEMPERATURE_VECTOR = 4562; (* 16-byte temperature vector *)G SYI$_POWER_VECTOR = 4563; (* 16-byte power vector *)G SYI$_FAN_VECTOR = 4564; (* 16-byte fan vector *)G SYI$_THERMAL_VECTOR = 4565; (* 16-byte thermal vector *)U SYI$_MAXBOBS0S1 = 4566; (* Maximum buffer object S0S1 VA space (pagelets) *)S SYI$_MAXBOBS2 = 4567; (* Maximum buffer object S2 VA space (pagelets) *)G SYI$_VCC_MAX_CACHE = 4568; (* Maximum VDC Cache Size *)G SYI$_VCC_MAX_IO_SIZE = 4569;  (* Maximum Cached VDC I/O Size *)G SYI$_VCC_MAX_LOCKS = 4570; (* Maximum number of locks for VDC *)G SYI$_VCC_READAHEAD = 4571; (* VDC Readahead caching on/off *)G SYI$_VCC_WRITEBEHIND = 4572; (* VDC Writebehind caching on/off *)G SYI$_VCC_WRITE_DELAY = 4573; (* VDC Writebehind write delay *)T SYI$_SD_ALLOCLASS = 4574; (* Snapshot-capable disk device allocation class *)J SYI$_GALAXY = 4575; (* Node should participate in a Galaxy *)G SYI$_NPAG_BAP_MIN_PA = 4576; (* min. PA for BAP *)` SYI$_BAP_MIN_REQ_SZ = 4577; (* Bus addressable pool (BAP) minimum size requested (bytes) *)` SYI$_BAP_MAX_REQ_SZ = 4578; (* Bus addressable pool (BAP) maximum size requested (bytes) *)c SYI$_BAP_MIN_PA_REG = 4579; (* Bus addressable pool (BAP) minimum PA registered (megabytes) *)c SYI$_BAP_MAX_PA_REG = 4580; (* Bus addressable pool (BAP) maximum PA registered (megabytes) *)K SYI$_GALAXY_ID = 4581; (* 16-byte unique ID of Galaxy platform *)L SYI$_RMSD6 = 4582; (* Reserved to RMS development (dynamic) *)Y SYI$_MPDEV_ENABLE_O = 4583; (* OBSOLETE Multipath I/O switching control parameter *)j SYI$_MPDEV_REMOTE_O = 4584; (* OBSOLETE Multipath I/O switching control parameter for remote paths *)M SYI$_RMSD1 = 4585; (* Reserved to RMS development (dynamic) *)G SYI$_GALAXY_MEMBER = 4586; (* Flag - Are we a Galaxy member? *)J SYI$_GALAXY_PLATFORM = 4587; (* Flag - Are we on a Galaxy platform? *)G SYI$_PARTITION_ID = 4588; (* Galaxy Partition ID *)G SYI$_COMMUNITY_ID = 4589; (* Galaxy Community ID *)G SYI$_GLX_INST_TMO = 4590; (* Galaxy heartbeat timeout value *)G SYI$_SMCI_FLAGS = 4591; (* SMCI Flags *)G SYI$_SMCI_PORTS = 4592; (* SMCI Port bitmask *)G SYI$_SERVED_IO = 4593; (* QIOserver control parameter *)G SYI$_GLX_SW_VERSION = 4594; (* Galaxy software version *)G SYI$_GLX_MAX_MEMBERS = 4595; (* maximum node_id this platform *)G SYI$_GLX_INCARNATION = 4596; (* galaxy incarnation count *)G SYI$_GLX_FORMATION = 4597; (* galaxy creation time (systime) *)G SYI$_GLX_TERMINATION = 4598; (* systime galaxy died *)G SYI$_GLX_MBR_NAME = 4599; (* galaxy member name *)G SYI$_GLX_MBR_MEMBER = 4600; (* galaxy member *)H SYI$_GLX_MBR_INCARNATION = 4601; (* galaxy member incarnation number *)G SYI$_GLX_MBR_JOINED = 4602; (* galaxy member join time *)R SYI$_MPDEV_LCRETRIES = 4603; (* Multipath Switching - local connect retries *)G SYI$_MPDEV_D1 = 4604; (* Multipath Switching - dynamic *)G SYI$_CLUSTER_NTIME = 4605; (* Cluster New time *)I SYI$_CLUSTER_NTIME_REF = 4606; (* Cluster New time - local reference *)K SYI$_MPDEV_POLLER_O = 4607; (* OBSOLETE Multipath poller parameter *)G SYI$_CPU_FAILOVER = 4608; (* Array of CPU failover partitions *)X SYI$_POTENTIAL_CPU_MASK = 4609; (* Mask of CPUs that are compatible on this instance *)a SYI$_POTENTIALCPU_CNT = 4610; (* Number of CPUs that could potentially run on this instance *)G SYI$_CPU_AUTOSTART = 4611; (* Array of CPU autostart states *)G SYI$_FAST_PATH_PORTS = 4614; (* New Fastpath implementations *)U SYI$_GLX_SHM_REG = 4615; (* Number of Galaxy shared memory regions in GMDB *)O SYI$_RAD_SUPPORT = 4616; (* Switch to turn RAD (aka NUMA) support on *)\ SYI$_NPAGECALC = 4617; (* Tell VMS to calculate default npagedyn and vir values *)G SYI$_WBM_MSG_INT = 4618; (* write bitmap msg check interval *)G SYI$_WBM_MSG_UPPER = 4619; (* upper threshold for msgs *)G SYI$_WBM_MSG_LOWER = 4620; (* lower threshold for msgs *)S SYI$_HP_ACTIVE_CPU_CNT = 4621; (* number of active CPUs in this hard partition *)^ SYI$_HP_ACTIVE_SP_CNT = 4622; (* number of active soft partitions in this hard partition *)b SYI$_HP_CONFIG_SP_CNT = 4623; (* number of configured soft partitions in this hard partition *)W SYI$_HP_CONFIG_SBB_CNT = 4624; (* number of configured SBBs in this hard partition *)` SYI$_SHADOW_MAX_UNIT = 4625; (* maximum number of dsa devices which can exist on the node *)X SYI$_WBM_OPCOM_LVL = 4626; (* opcom mode for write bitmap information messages *)L SYI$_AUTO_DLIGHT_SAV = 4627; (* automatic daylight saving SYSGEN flag *)N SYI$_RAD_MAX_RADS = 4628; (* maximum number of RADs on this platform *)O SYI$_RAD_CPUS = 4629; (* potential CPUs per RAD for this instance *)O SYI$_RAD_MEMSIZE = 4630; (* private memory per RAD for this instance *)G SYI$_RAD_SHMEMSIZE = 4631; (* number of shared memory per RAD *)J SYI$_GALAXY_SHMEMSIZE = 4632; (* number of shared memory pages total *)Y SYI$_NPAGERAD = 4633; (* How much of NPAGEDYN is in other than the base RAD *)P SYI$_SERIAL_NUMBER = 4634; (* System Serial Number - may be virtualized *)G SYI$_MPDEV_D2 = 4636; (* Multipath Switching - dynamic *)G SYI$_MPDEV_D3 = 4637; (* Multipath Switching - dynamic *)G SYI$_MPDEV_D4 = 4638; (* Multipath Switching - dynamic *)R SYI$_MPDEV_AFB_INTVL = 4639; (* Multipath Auto fail back Interval - dynamic *)G SYI$_MPW_STACKPAGES = 4640; (* MPW Stack Pages *)Z SYI$_PRESENT_CPU_MASK = 4641; (* Mask of CPUs that are present in the hard partition *)\ SYI$_PRESENTCPU_CNT = 4642; (* Number of CPUs that are present in the hard partition *)] SYI$_POWERED_CPU_MASK = 4643; (* Mask of CPUs that are powered up in the hard partition *)_ SYI$_POWEREDCPU_CNT = 4644; (* Number of CPUs that are powered up in the hard partition *)I SYI$_RMSD7 = 4645; (* RMS readahead hint feature for XFC *)G SYI$_RMS_SEQFILE_WBH = 4646; (* RMS default writebehind feature *)G S YI$_DCL_CTLFLAGS = 4647; (* DCL Control Flags *)\ SYI$_DELPRC_EXIT = 4648; (* System-wide EXIT behavior for direct calls to $DELPRC *)K SYI$_PHYMEM_CONFIG = 4649; (* Dynamic memory configuration control *)G SYI$_KTK_D1 = 4650; (* Dynamic kernel tuning knob *)G SYI$_KTK_D2 = 4651; (* Dynamic kernel tuning knob *)G SYI$_KTK_D3 = 4652; (* Dynamic kernel tuning knob *)G SYI$_KTK_D4 = 4653; (* Dyna mic kernel tuning knob *)G SYI$_KTK_D5 = 4654; (* Dynamic kernel tuning knob *)G SYI$_KTK_D6 = 4655; (* Dynamic kernel tuning knob *)G SYI$_KTK_D7 = 4656; (* Dynamic kernel tuning knob *)G SYI$_KTK_D8 = 4657; (* Dynamic kernel tuning knob *)G SYI$_KTK_D9 = 4658; (* Dynamic kernel tuning knob *)G SYI$_KTK_D10 = 4659; (* Dynamic kernel tuning knob *)G SYI$_KTK_D11 = 4660;   (* Dynamic kernel tuning knob *)G SYI$_KTK_D12 = 4661; (* Dynamic kernel tuning knob *)O SYI$_MIN_CPU_FEATURE_MASK = 4662; (* AMASK value of all CPUs ANDed together *)G SYI$_FIBRE_SCSI_RSV1 = 4663; (* reserved for Fibre SCSI use *)G SYI$_DEFUID = 4664; (* default POSIX UID *)G SYI$_DEFGID = 4665; (* default POSIX GID *)S SYI$_MVSUPMSG_INTVL = 4666; (* Quiet mountver suppression interval -dynamic * )R SYI$_MVSUPMSG_NUM = 4667; (* Quiet mountver suppression number -dynamic *)G SYI$_SHADOW_SITE_ID = 4668; (* Shadow Site value *)M SYI$_RMSD2 = 4669; (* Reserved to RMS development (dynamic) *)M SYI$_RMSD3 = 4670; (* Reserved to RMS development (dynamic) *)M SYI$_RMSD4 = 4671; (* Reserved to RMS development (dynamic) *)M SYI$_RMSD5 = 4672; (* Reserved to RMS development (dynamic) *)G SYI$_TESTING123 = 4673;  (* Reserved for debugging *)G SYI$_VCC_PAGESIZE = 4674; (* Reserved for XFC use *)G SYI$_VCC_RSVD = 4675; (* Reserved for XFC use *)L SYI$_RSVD_IO_1 = 4676; (* Reserved for debug/future enhancement *)L SYI$_RSVD_IO_2 = 4677; (* Reserved for debug/future enhancement *)L SYI$_RSVD_CLU_1 = 4678; (* Reserved for debug/future enhancement *)L SYI$_RSVD_CLU_2 = 4679; (* Reserved for debug/future enhancement *)L SYI$_RSVD_EXEC_1 = 4680; (* Reserved for debug/future enhancement *)L SYI$_RSVD_EXEC_2 = 4681; (* Reserved for debug/future enhancement *)L SYI$_RSVD_SECUR_1 = 4682; (* Reserved for debug/future enhancement *)L SYI$_RSVD_SECUR_2 = 4683; (* Reserved for debug/future enhancement *)L SYI$_RSVD_LAN_1 = 4684; (* Reserved for debug/future enhancement *)L SYI$_RSVD_LAN_2 = 4685; (* Reserved for debug/future enhancement *)R SYI$_SHADOW_REC_DLY = 4686; (* Time to wait after crash before merge start *)G SYI$_SHADOW_D1 = 4687; (* Shadowing spare *)G SYI$_SHADOW_D2 = 4688; (* Shadowing spare *)G SYI$_SHADOW_D3 = 4689; (* Shadowing spare *)G SYI$_SHADOW_D4 = 4690; (* Shadowing spare *)G SYI$_SHADOW_D5 = 4691; (* Shadowing spare *)G SYI$_WBM_D1 = 4692; (* Write Bit Map for HBMM *)G SYI$_TTY_DE FCHAR3 = 4693; (* Terminal characteristics, 3nd *) N(* longword only lower 16 attributes *)N(* upper 16 bits are Asian VMS bits *) LCONST SYI$_VHPT_SIZE = 4694; (* Size of VHPT on IA64 only *)P SYI$_SHADOW_HBMM_RTC = 4696; (* HBMM Reset Threshold Check Timer Interval *)G SYI$_FCLAN_FRAME = 4697; (* Fibre Channel LAN frame size *)H SYI$_MAX_PFN_64 = 4698; (* Returns contents of MMG$GQ_MAXPFN *)K SYI$_PFN_MEMORY_MAP_64 = 4699; (* Returns a 64 bit physical memory map *)G SYI$_CPU_SOCKETS = 4700; (* Returns number of cpu sockets *)Q SYI$_ERLBUFFERPAG_S2 = 4701; (* Number of pagelets per S2 error log buffer *)G SYI$_ERRORLOGBUFF_S2 = 4702; (* Number of S2 error log buffers *)Q SYI$_SHADOW_PSM_RDLY = 4703; (* Shadowing Per Served Member Recovery Delay *)f SYI$_SYSTEM_UUID = 4704; (* Returns the system UUID on Itanium systems - may be virtualized *)Q SYI$_PLATF_SPT_D1 = 4705; (* Reserved to VMS platform support (dynamic) *)= SYI$_PLATF_SPT_D2 = 4706; (* " *)= SYI$_PLATF_SPT_D3 = 4707; (* " *)= SYI$_PLATF_SPT_D4 = 4708; (* " *)P SYI$_PLATF_SPT_1 = 4709; (* Reserved to VMS platform support (static) *)G SYI$_PLATF_SPT_2 = 4710; (* " *)= SYI$_PLATF_SPT_3 = 4711; (* "  *)= SYI$_PLATF_SPT_4 = 4712; (* " *)G SYI$_SWIS_LOG = 4713; (* Knob to change the swis log *)T SYI$_EXECSTACKPAGES = 4714; (* Number of pages for RMS EXEC ASB or RSE stack *)S SYI$_GB_CACHEALLMAX = 4715; (* RMS global buffer cache whole file criterion *)X SYI$_GB_DEFPERCENT = 4716; (* RMS global buffer cache default percent criterion *)[ SYI$_CPU_THREADING = 4717; (* Knob to change how we deal with CPU hardware threads *)G SYI$_CPU_POWER_MGMT = 4718; (* Control Power Managment on IPF *)W SYI$_CPU_POWER_THRSH = 4719; (* Idle Threshold necessary to use Power Management *)f SYI$_SMP_CPU_BITMAP = 4720; (* (1024-bit) Map of CPUs eligible for participation in SMP system *)Z SYI$_IO_PRCPU_BITMAP = 4721; (* (1024-bit) Map of CPUs for fast path I/O processing *)G SYI$_LOCKRMWT = 4722; (* Lock Remaster Weight *)G SYI$_SAS_NAMING = 4723; (* SAS Device Naming *)G SYI$_ACTIVE_CPU_BITMAP = 4724; (* CBB bitmap data *)G SYI$_AVAIL_CPU_BITMAP = 4725; (* of CPUs *)G SYI$_POTENTIAL_CPU_BITMAP = 4726; (* in various *)G SYI$_POWERED_CPU_BITMAP = 4727; (* states *)G SYI$_PRESENT_CPU_BITMAP = 4728; (* ... *)G SYI$_COMPLEX_ID = 4729; (* Complex Profile ID *)G SYI$_COMPLEX_NAME = 4730; (* Complex Profile Name  *)G SYI$_HP_ID = 4731; (* Hard Partition ID (nPar ID) *)G SYI$_HP_NAME = 4732; (* Hard Partition Name (nPar Name) *)G SYI$_CELLULAR_PLATFORM = 4733; (* System is cell-based *)G SYI$_BOOT_DEVICE = 4734; (* sys$ar_bootucb *)N SYI$_HP_CORE_CNT = 4735; (* Count of unique cores in hard partition *)c SYI$_ACTIVE_CORE_CNT = 4736; (* Count of cores in hard partition with at least one active LP *)\ SYI$_SSIO_SYNC_INTVL = 4737; (* Interval at which dirty shared stream I/O buffers are *) N(* written to disk by process doing sync() *) ]CONST SYI$_SCH_SOFT_OFFLD = 4738; (* Bitmap of CPUs sometimes excluded from scheduling *)N SYI$_SCH_HARD_OFFLD = 4739; (* Bitmap of CPUs excluded from scheduling *)h SYI$_SCHED_FLAGS = 4740; (* Reserved cell for sched noodling, replaces parameter SCH_CTLFLAGS *)Q SYI$_GH_RES_CODE_S2 = 4741; (* Pages in the resident image S2 code region *)G SYI$_GRAPHICS_CONSOLE = 4742; (* 1 if Graphics Console, 0 if not *)Q SYI$_TCPIP_LOAD = 4743; (* 1 Enables load TCPIP Services at boot time *)R SYI$_NISCS_UDP_PORT = 4744; (* UDP Port number for cluster communications. *)W SYI$_PHYS_SERIAL_NUMBER = 4745; (* Physical System Serial Number on Itanium systems *)N SYI$_PHYS_SYSTEM_UUID = 4746; (* Physical system UUID on Itanium systems *)Q SYI$_PAGED_LAL_SIZE = 4747; (* Pagedyn Lookaside list maxim um packet size *)U SYI$_RMS_PATH_TMO = 4748; (* Lifetime for symlink entries in RMS path cache *)P SYI$_NISCS_UDP_PKTSZ = 4749; (* udp packet size for cluster communication *) N(* ADD 'EXE' (LONGWORD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ******** *)N(* DO NOT ADD 'FLD' (FIELD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTFLD' ****** *) LCONST SYI$_LASTEXE = 4750; (* LAST INDEX *) I(* The following item-codes are for 'sub-field data' items.  *)I(* There usually exists another item-code to retrieve the *)I(* whole parent cell (longword) - in the EXE section above. *) LCONST SYI$_CPU = 8192; (* CPU type *)G SYI$_BUGREBOOT = 8193; (* Bugcheck reboot enable *)G SYI$_CRDENABLE = 8194; (* Memory error checking enable *)G SYI$_DUMPBUG = 8195; (* Bugcheck dump enable *)G SYI$_BUGCHECKFATAL = 8196; (* All bugchecks become fatal *)G SYI$_ACP_MULTIPLE = 8197; (* New ACP for each disk class *)G SYI$_NOAUTOCONFIG = 8198; (* Auto configuration inhibit *)G SYI$_NOCLOCK = 8199; (* Interval timer inhibit *)G SYI$_NOCLUSTER = 8200; (* Page read clustering inhibit *)G SYI$_POOLPAGING = 8201; (* Enable paging of paged pool *)G SYI$_SBIERRENABLE = 8202; (* SBI error detection enable *)I SYI$_SETTIME = 8203;  (* Force entry of time at system boot *)G SYI$_ACP_SHARE = 8204; (* Enable sharing of F11ACP *)G SYI$_SYSPAGING = 8205; (* Enable paging of system code *)J SYI$_UAFALTERNATE = 8206; (* Select alternate authorization file *)J SYI$_WRITABLESYS = 8207; (* Leave system writable for debugging *)J SYI$_RESALLOC = 8208; (* Enable resource allocation checking *)L SYI$_SSINHIBIT = 8209; (* Inhibit system services for processes *)G SYI$_CONCEAL_DEVICES = 8210; (* Enable concealed devices *)G SYI$_SAVEDUMP = 8211; (* Save dump if it's in page file *)M SYI$_MOUNTMSG = 8212; (* Enable oper notification of vol mounts *)K SYI$_DISMOUMSG = 8213; (* Enable oper notification of vol dism *)G SYI$_LOADERAPT = 8214; (* Load alt erase pattern generator *)H SYI$_LOADCHKPRT = 8215; (* Load alt protection check routine *)G SYI$_XCPU = 8216; (* CPU subtype (Extended SID info) *)G SYI$_CJFLOAD = 8217; (* Load common journaling code *)I SYI$_CJFSYSRUJ = 8218; (* Load recovery unit journaling code *)G SYI$_NODE_AREA = 8219; (* System ID node area *)G SYI$_NODE_NUMBER = 8220; (* System ID node number *)G SYI$_CLASS_PROT = 8221; (* Non-discretionary check flag *)M SYI$_CHARACTER_EMULATED = 8222; (* Character string instructions emulated *)K SYI$_DECIMAL_EMULATED = 8223; (* Decimal string instructions emulated *)G SYI$_D_FLOAT_EMULATED = 8224; (* D floating instructions emulated *)G SYI$_F_FLOAT_EMULATED = 8225; (* F floating instructions emulated *)G SYI$_G_FLOAT_EMULATED = 8226; (* G floating instructions emulated *)G SYI$_H_FLOAT_EMULATED = 8227; (* H floating instructions emulated *)P SYI$_LOADMTACCESS = 8228; (* Load installation specific access routine *)G SYI$_ACP_XQP_RES = 8229; (* Resident XQP *)V SYI$_WRITES YSPARAMS = 8230; (* Write active parameters to the system .PAR file *)I SYI$_LGI_BRK_TERM = 8231; (* Use term name in breakin detection *)G SYI$_LGI_BRK_DISUSER = 8232; (* Disable user account on breakin *)K SYI$_ACP_REBLDSYSD = 8233; (* Rebuild system disk when mounting it *)G SYI$_WS_OPA0 = 8234; (* Workstation using QVSS for OPA0 *)G SYI$_NOPGFLSWP = 8235; (* Inhibit swapping into pagefiles *)N SYI$_LOAD_SYS_IMAGES = 8237; (* Control of how sys!tem images are loaded *)G SYI$_NISCS_CONV_BOOT = 8238; (* Allow remote conversational boot *)G SYI$_NISCS_LOAD_PEA0 = 8239; (* Load NI-SCS driver for PEA0 *)R SYI$_SA_APP = 8240; (* Booting stand-alone application (SA-BACKUP) *)I SYI$_LOAD_PWD_POLICY = 8241; (* Load site-specific password policy *)G SYI$_FT_ACTIVE = 8242; (* CIRRUS system is fully active *)I SYI$_WLKSYSDSK = 8244; (* Booting with write locked sys disk *)U SYI$_DBGTK_LOADED = 8"245; (* Remote system debugger target kernel is loaded *)M SYI$_DAY_OVERRIDE = 8246; (* UAF day classifications are overridden *)G SYI$_DAY_SECONDARY = 8247; (* UAF day override is to Secondary *)G SYI$_CWLOGICALS = 8248; (* State of CAP_CWLOGICALS *)G SYI$_POWEROFF = 8249; (* Enable software power-off *)P SYI$_MPDEV_ENABLE = 8250; (* Multipath I/O switching control parameter *)a SYI$_MPDEV_REMOTE = 8251; (* Multipath I/O switch#ing control parameter for remote paths *)G SYI$_MPDEV_POLLER = 8252; (* Multipath poller parameter *)G SYI$_LCKMGR_MODE = 8253; (* Lock Manager Mode *)G SYI$_LCKMGR_RSVD = 8254; (* Lock Manager Reserved *)G SYI$_LCKMGR_CPUID = 8255; (* Lock Manager CPU ID *)G SYI$_PERSISTENT_RES = 8256; (* Fibre SCSI Reservation Support *)G SYI$_SYSSER_LOGGING = 8257; (* Enable system service logging *)J SYI$_SCSI_ERROR_P$OLL = 8258; (* Enable polling to flush SCSI errors *)M SYI$_SSI_ENABLE = 8259; (* Enable system service intercept on I64 *)o SYI$_VIRTUAL_MACHINE = 8260; (* True if we're running on a VMS guest under HPVM -- useful on I64 only. *)Q SYI$_NISCS_USE_LAN = 8261; (* True enables cluster comm. use of 802 LAN. *)M SYI$_NISCS_USE_UDP = 8262; (* True enables cluster comm. use of UDP. *) N(* ADD 'FLD' (FIELD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT *********** *)N(* DO %NOT ADD 'EXE' (LONGWORD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTEXE' *** *) LCONST SYI$_LASTFLD = 8263; (* LAST INDEX *) N(* ) equals SYI$C_FLDTYPE@12 increment 1 prefix SYI tag $; *)Q(***************************************************************************** *)N(** *)J(** THE FOLLOWING DEFINITIONS EXIST FOR COMPATIBILITY WITH THE 1ST *)J(** IMPLEMENTATION OF SYS$&GETSYI. DO NOT CHANGE THEM!!! *)J(** ADD NEW GETSYI ITEM-CODES ONLY TO THE PREVIOUS LISTS. *)N(** *)Q(***************************************************************************** *) LCONST SYI$C_SFWTYPE = 1; (* SYSTEM SOFTWARE ITEM *)G SYI$C_HDWTYPE = 2; (* HARDWARE ITEM *)G SYI$C_LISTEND = 0; (* ITMLST TERMINATOR ' *) N(* IDENTIFIER FOR SYSTEM SOFTWARE *) LCONST SYI$_OLDVERSION = 256; (* VMS VERSION NUMBER *)G SYI$_LASTSFW = 257; (* LAST INDEX *) N(* ******************************************************************* *)N(* ********************* BEGIN TEMP FIX ****************************** *)N(* ********************* BEGIN TEMP FIX ****************************** *)N(* *****(************************************************************** *)N(* ) equals SYI$C_SFWTYPE@8 increment 1 prefix SYI tag $; *)N(* ******************************************************************* *)N(* ********************** END TEMP FIX ******************************* *)N(* ********************** END TEMP FIX ******************************* *)N(* ******************************************************************* *)N(* IDENTIFIER FOR HARDWARE TYPE ) *) LCONST SYI$_OLDCPU = 512; (* CPU TYPE *)G SYI$_OLDSID = 513; (* SYSTEM ID REGISTER *)G SYI$_LASTHDW = 514; (* LAST INDEX *) N(* ) equals SYI$C_HDWTYPE@8 increment 1 prefix SYI tag $; *)N(* Define constant for the length of environmental vector item codes *)N(* (POWER_VECTOR, TEMPERATURE_VECTOR, THERMAL_VECTOR, and FAN_VECT*OR). *) #CONST SYI$K_ENV_VECTOR_LENGTH = 16; N(* Define status code for each element in the environmental vector *) "CONST SYI$K_ENV_STATUS_FAILED = 0; SYI$K_ENV_STATUS_OK = 1;$ SYI$K_ENV_STATUS_NOT_PRESENT = 255; SYI$K_ENV_STATUS_UNKNOWN = 254; N(* Define the SYI$_ARCH_TYPE return constants *) LCONST SYI$K_ARCH_OTHER = 0; (* Unknown SYI$_ARCH_TYPE *)G SYI$K_ARCH_VAX = 1; (* VAX Architecture + *)G SYI$K_ARCH_ALPHA = 2; (* Alpha Architecture *)G SYI$K_ARCH_IA64 = 3; (* IA-64 (IPF) Architecture *)G SYI$K_ARCH_X86_64 = 4; (* x86_64 Architecture *) (*** MODULE $SYSEVTDEF ***) NCONST SYSEVT$C_ALL_EVENTS = 1; (* Valid for $Clear_system_event only *)L SYSEVT$C_ADD_GALAXY_MEMBER = 2; (* One or more instances have joined the *) N(* Galaxy community , *) OCONST SYSEVT$C_DEL_GALAXY_MEMBER = 3; (* One or more instances have left the *) N(* Galaxy community *) OCONST SYSEVT$C_ADD_ACTIVE_CPU = 4; (* One or more CPUs have become active *) N(* within this VMS instance *) PCONST SYSEVT$C_DEL_ACTIVE_CPU = 5; (* One or more CPU have become inactive *)K SYSEVT$C_ADD_CONFIG_CPU = 6; (* One or more CPUs are now part of t -he *) N(* configure set for this instance. *) TCONST SYSEVT$C_DEL_CONFIG_CPU = 7; (* One or more CPUS have left this instance *)W SYSEVT$C_CONFIG_TREE = 8; (* An update has occurred to the Galaxy config tree *)R SYSEVT$C_FASTPATH_CPUS = 9; (* A modification has been made to the system *) N(* parameter, IO_PREFER_CPUS. *) LCONST SYSEVT$C_TDF_CHANGE = 10; (* time differential cha .nge *)G SYSEVT$C_CPU_POWER = 11; (* CPU power transition *)I SYSEVT$C_INDICTMENT = 12; (* Component Indictment was performed *)J SYSEVT$C_CPU_DEALLOCATE = 13; (* CPU deallocated from running system *)G SYSEVT$C_MAX_EVENT = 14; (* maximum event number *)G SYSEVT$C_NUM_EVENTS = 13; (* Number of events *) SYSEVT$K_NUM_EVENTS = 13;G SYSEVT$M_NOTIFY_ONCE = 0; (* indicate one shot request *)[ SYSEVT$M_REPE /AT_NOTIFY = 1; (* Bit 0 represents whether the event notification is a *)[ SYSEVT$V_REPEAT_NOTIFY = 0; (* one shot deal or should be a repeating notification. *) (*** MODULE $TBKDEF ***) TYPE tbk_api_param$TYPE = RECORDG TBK$W_LENGTH : $UWORD; (*Input, structure length, by value *)G TBK$B_TYPE : $UBYTE; (*Input, must be zero. *)G TBK$B_VERSION : $UBYTE; (*Input, version of this structure. *)G TBK$L_RESERVEDA : UNSIGNED; (*Input, 0must be zero. *)G TBK$Q_FAULTING_PC : $UQUAD; (*Input, pc value, by value *)G TBK$Q_FAULTING_FP : $UQUAD; (*Input, frame pointer, by value *)G TBK$PQ_FILENAME_DESC : $QUAD; (*Output, string descriptor *)G TBK$PQ_LIBRARY_MODULE_DESC : $QUAD; (*Output, string descriptor *)k TBK$PQ_RECORD_NUMBER : $QUAD; (*Output, record number within filename or within text library module *)K TBK$PQ_IMAGE_DESC : $QUAD; (*Output, string descriptor, image 1name *)L TBK$PQ_MODULE_DESC : $QUAD; (*Output, string descriptor, module name *)N TBK$PQ_ROUTINE_DESC : $QUAD; (*Output, string descriptor, routine name *)M TBK$PQ_LISTING_LINENO : $QUAD; (*Output, compiler listing line number *)W TBK$PQ_REL_PC : $QUAD; (*Output, relative pc within module or within image *)t TBK$PQ_IMAGE_BASE_ADDR : $QUAD; (*Output, base address of the image which contains the pc value object code, *)G (*by reference 2 *)w TBK$PQ_MODULE_BASE_ADDR : $QUAD; (*Output, base address of the module, which contains the pc value object code, *)G (*by reference *)h (*Input, address of a routine, which provides malloc() functionality *) TBK$PQ_MALLOC_RTN : $QUAD;f (*Input, address of a routine, which provides free() functionality *) TBK$PQ_FREE_RTN : $QUAD;r 3 (*Input, address of a quadword, specifying options to be provided by this call *)$ TBK$PQ_SYMBOLIZE_FLAGS : $QUAD;G TBK$Q_RESERVED0 : $UQUAD; (*Reserved by HP *)G TBK$Q_RESERVED1 : $UQUAD; (*Reserved by HP *)G TBK$Q_RESERVED2 : $UQUAD; (*Reserved by HP *) END; CONST tbk$k_length = 152; tbk$c_length = 152; tbk$k_version = 1; N(* 4 *)N(************************************************************* *)N(* SYMBOLIZE_FLAGS options *)N(* The following may be applied to the quadword pointed to *)N(* by the SYMBOLIZE_FLAGS field. *)N(* *)N(* EXCEPTION_IS_FAULT values affect line number and *)5N(* record number calculation. *)U(* On an API entry, when an exception has occurred in a frame, select the value 1. *)[(* 0=> (Default) Program Adjusts the PC value to correctly determine the line number *)N(* 1=> Program Uses the supplied PC value to determine the line number *)N(* *)N(* ENTRY_TYPE values which affect processing *)N(* 6 0=> TRACE was entered via the API ENTRY *)N(* 1=> TRACE was entered via the TRACEBACK exception processing *)N(* *)N(************************************************************* *) #CONST TBK$M_EXCEPTION_IS_FAULT = 1; TBK$M_ENTRY_TYPE = 0; &TYPE tbk_symbolize_flags$TYPE = RECORD/ TBK$V_EXCEPTION_IS_FAULT : [POS(0)] $BOOL;% TBK$V_FILLER1 : [POS(1)7] $BIT31;( TBK$V_ENTRY_TYPE : [POS(32)] $BOOL;& TBK$V_FILLER2 : [POS(33)] $BIT31; END; (*** MODULE $TEBDEF ***) N(* *)N(* Thread Environment Block Definitions *)N(* *) CONST TEB$M_ASTACT = 1; TEB$M_ASTEN = 2; &TYPE TEB$TYPE = RECORD CASE INTEGER OFG 1: (TEB$PQ_FLINK : $QUAD; (* 8Forward queue link *)G TEB$PQ_BLINK : $QUAD; (* Backward queue link *)G TEB$W_SIZE : $UWORD; (* Size of TEB, in bytes *)G TEB$B_VERSION : $UBYTE; (* Version number for TEB *)G TEB$B_TYPE : $UBYTE; (* Structure type code for TEB *)L TEB$b_reserved_2 : ARRAY [1..4] OF $UBYTE; (* Reserved to DECthreads *)G TEB$Q_SEQUENCE : $UQUAD; (* Thread sequence number *)L TEB$q_reserved_93 : ARRAY [1..2] OF $UQUAD; (* Reserved to DECthreads *)H TEB$PQ_PER_KT_AREA : $QUAD; (* Address of per kernel thread area *)L TEB$PQ_STACK_BASE : $QUAD; (* Address of first usable byte in stack *)N TEB$PQ_STACK_RESERVE : $QUAD; (* Address of first byte in reserve area *)L TEB$PQ_STACK_YELLOW : $QUAD; (* Address of first byte in yellow area *)J TEB$PQ_STACK_GUARD : $QUAD; (* Address of first byte in guard area *)X TEB$Q_STACK_SIZE : $UQUAD; (* Total stack allocation (gr:een+reserve+yellow+red) *)L TEB$PQ_TSD_VALUES : $QUAD; (* Address of thread-specific data array *)K TEB$L_TSD_COUNT : UNSIGNED; (* Count of thread-specific data values *)G TEB$L_CANCEL_FLAGS : UNSIGNED; (* cancel flags *)G TEB$L_CANCEL_COUNT : UNSIGNED; (* CMA alert scope nesting count *)+ TEB$R_FILL_27_ : [BYTE(4)] RECORD END;G TEB$L_THD_ERRNO : INTEGER; (* Per-thread errno value *)G TEB$l_reserved_4 : INTEGER; (* Reserved to DECthr;eads *)G TEB$PQ_STACK_HIWATER : $QUAD; (* Lowest known SP address *)G TEB$L_HOME_RAD : INTEGER; (* Thread's home RAD *)G TEB$L_RAD_SAFE : INTEGER; (* Scratch: written by Tru64 UNIX *)G TEB$PQ_REG_STACK_BASE : $QUAD; (* Current regstack base *)H TEB$PQ_REG_STACK_YELLOW : $QUAD; (* Current regstack yellow zone *)G TEB$PQ_REG_STACK_GUARD : $QUAD; (* Current regstack guard zone *)G TEB$PQ_REG_STACK_SIZE : $QUAD; (* Siz <e of regstack *)G TEB$PQ_REG_STACK_HIWATER : $QUAD; (* Highest known bsp *) );G 2: (TEB$L_THREAD_FLAGS : [POS(928)] UNSIGNED; (* thread flags *) ); 3: ();J 4: (TEB$V_ASTACT : [POS(928)] $BOOL; (* there's a user mode AST active *)G TEB$V_ASTEN : [POS(929)] $BOOL; (* use mode ASTs are enabled *) ) END; LCONST TEB$K_LENGTH = 184; (* Length of TEB *)G TEB$C_LENGTH = 184; (* Length of TE =B *)G TEB$C_TSD_KEY_SSPI = 1; (* TSD key value reserved for SSPI *) (*** MODULE $TPADEF ***) N(* *)S(* TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE, *)N(* AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. *)N(* *) LCONST TPA$K_COUNT0 = 8; (* Z >ERO LEVEL VALUE IS 8 *) TPA$M_BLANKS = 1; TPA$M_ABBREV = 2; TPA$M_ABBRFM = 4; TPA$M_AMBIG = 65536;L TPA$K_LENGTH0 = 36; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *)L TPA$C_LENGTH0 = 36; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *) &TYPE TPA$TYPE = RECORD CASE INTEGER OFL 1: (TPA$L_COUNT : UNSIGNED; (* ARGUMENT COUNT (NUMBER OF LONGWORDS) *)2 TPA$R_OPTIONS_OVERLAY : [BYTE(4)] RECORD END;I TPA$L_STRINGCNT : UNSIGNED; (* BYTE COUNT OF STRING ? BEING PARSED *)G TPA$L_STRINGPTR : UNSIGNED; (* ADDRESS OF STRING BEING PARSED *)L TPA$L_TOKENCNT : UNSIGNED; (* BYTE COUNT OF CURRENT MATCHING TOKEN *)G TPA$L_TOKENPTR : UNSIGNED; (* ADDRESS OF MATCHING TOKEN *)1 TPA$R_NUMBER_OVERLAY : [BYTE(8)] RECORD END;K TPA$L_PARAM : UNSIGNED; (* PARAMETER LONGWORD FROM STATE TABLE *) );G 2: (TPA$L_OPTIONS : [POS(32)] UNSIGNED; (* OPTIONS LONGWORD *): TPA$R_NUMBER_STRUCT : [POS(192), BYTE(8)] @ RECORD END; );N 3: (TPA$L_NUMBER : [POS(224)] UNSIGNED; (* NUMERIC VALUE OF NUMERIC TOKEN *) );N 4: (TPA$V_BLANKS : [POS(32)] $BOOL; (* PROCESS BLANKS AND TABS EXPLICITLY *)G TPA$V_ABBREV : [POS(33)] $BOOL; (* ALLOW MINIMAL ABBREVIATION *)J TPA$V_ABBRFM : [POS(34)] $BOOL; (* ALLOW FIRST MATCH ABBREVIATION *)J TPA$V_AMBIG : [POS(48)] $BOOL; (* AMBIGUOUS KEYWORD AT THIS STATE *)R TPA$L_CHAR : [POS(192)] UNSIGNED; (* ASCII CODE OF SINGLE CHARACTER TOKEN *) A );I 5: (TPA$B_CHAR : [POS(192)] $UBYTE; (* BYTE FORM OF SINGLE CHAR CELL *) );M 6: (TPA$B_MCOUNT : [POS(56)] $UBYTE; (* MINIMUM ABBREVIATION ON KEYWORDS *)S TPA$Q_NUMBER : [POS(192)] $UQUAD; (* 64-bit NUMERIC VALUE OF NUMERIC TOKEN *) ) END; N(* *)S(* TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE, *)N(* AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. B *)N(* *) LCONST TPA64$K_COUNT0 = -1; (* ZERO LEVEL VALUE IS -1 *) TPA64$M_BLANKS = 1; TPA64$M_ABBREV = 2; TPA64$M_ABBRFM = 4; TPA64$M_AMBIG = 65536;L TPA64$K_LENGTH0 = 80; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *)L TPA64$C_LENGTH0 = 80; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *) (TYPE TPA64$TYPE = RECORD CASE INTEGER OFL 1: (TPA64$L_COUNT : UNSIGNED;C (* ARGUMENT COUNT (NUMBER OF LONGWORDS) *)4 TPA64$R_OPTIONS_OVERLAY : [BYTE(4)] RECORD END;S TPA64$Q_STRINGDESC : $UQUAD; (* DSC64 first quadword of string being parsed *)I TPA64$Q_STRINGCNT : $UQUAD; (* BYTE COUNT OF STRING BEING PARSED *)G TPA64$Q_STRINGPTR : $QUAD; (* ADDRESS OF STRING BEING PARSED *)V TPA64$Q_TOKENDESC : $UQUAD; (* DSC64 first quadword OF CURRENT MATCHING TOKEN *)L TPA64$Q_TOKENCNT : $UQUAD; (* BYTE COUNT OF CURRENT MATCHING TOKEN *)G D TPA64$Q_TOKENPTR : $QUAD; (* ADDRESS OF MATCHING TOKEN *)1 TPA64$R_CHAR_OVERLAY : [BYTE(8)] RECORD END;G TPA64$Q_NUMBER : $UQUAD; (* NUMERIC VALUE OF NUMERIC TOKEN *)K TPA64$Q_PARAM : $UQUAD; (* PARAMETER LONGWORD FROM STATE TABLE *) );G 2: (TPA64$L_OPTIONS : [POS(32)] UNSIGNED; (* OPTIONS LONGWORD *)R TPA64$Q_CHAR : [POS(448)] $UQUAD; (* ASCII CODE OF SINGLE CHARACTER TOKEN *) );K 3: (TPA64$B_CHAR : [POS(448)] $UBYTE; (* BYTE FORM EOF SINGLE CHAR CELL *) );P 4: (TPA64$V_BLANKS : [POS(32)] $BOOL; (* PROCESS BLANKS AND TABS EXPLICITLY *)H TPA64$V_ABBREV : [POS(33)] $BOOL; (* ALLOW MINIMAL ABBREVIATION *)L TPA64$V_ABBRFM : [POS(34)] $BOOL; (* ALLOW FIRST MATCH ABBREVIATION *)L TPA64$V_AMBIG : [POS(48)] $BOOL; (* AMBIGUOUS KEYWORD AT THIS STATE *) ); 5: ();O 6: (TPA64$B_MCOUNT : [POS(56)] $UBYTE; (* MINIMUM ABBREVIATION ON KEYWORDS *) ) END; &(*** MODULE $TPUDEF IDENT V03-006 ** F*) N(* Item list codes for TPU$INITIALIZE *) YCONST TPU$_CHAIN = -1; (* Chain entry - Matches other VMS CHAIN entries *)I TPU$_ENDLIST = 0; (* End of list [*** Must be zero ***] *)G TPU$_OPTIONS = 1; (* Command line options (see below) *)G TPU$_FILENAME = 6; (* File name *)G TPU$_OTHER_FILENAMES = 7; (* more filenames *)G TPU$_FILEIO = 14; G (* File I/O routine *)G TPU$_CALLUSER = 15; (* CALL_USER routine *)G TPU$_JOURNALFILE = 16; (* /JOURNAL= file name *)G TPU$_SECTIONFILE = 19; (* /SECTION= file name *)G TPU$_OUTPUTFILE = 20; (* /OUTPUT= file name *)G TPU$_COMMANDFILE = 21; (* /COMMAND= file name *)G TPU$_DISPLAYFILE = 22; (* /DISPLAY= keyword -or- file name *)G TPU$_CTRL_CH_ROUTINE = 23; (* CTRL/C routine *)G TPU$_FREEITEMLIST = 24; (* Free the item list *)G TPU$_DEBUGFILE = 25; (* /DEBUG= file name *)G TPU$_FILE_PARSE = 26; (* FILE_PARSE routine *)G TPU$_FILE_SEARCH = 27; (* FILE_SEARCH routine *)G TPU$_TERMINAL_INPUT = 28; (* Terminal input routine *)G TPU$_KANJI_DICFILE = 29; (* /KANJI_DICTIONARY= file name *)GI TPU$_TEXT_LANGUAGE = 30; (* /TEXT_LANGUAGE= language name *)G TPU$_DEFAULTSFILE = 31; (* /DEFAULTS= file name *)M TPU$_PARENT_WIDGET = 32; (* DECwindows widget to use as our parent *)G TPU$_EXTENSION = 33; (* Extension Table Entry *)G TPU$_GET_DEFAULT = 34; (* GET_DEFAULT routine *)G TPU$_SET_DEFAULT = 35; (* SET_DEFAULT routine *)G TPU$_WORKFILE = 36; (* /WORK= file name J *)G TPU$_APPLICATION_CONTEXT = 37; (* Decwindows application context *)I TPU$_CHARACTERSET = 38; (* /CHARACTER_SET= character set name *)G TPU$_LANGUAGE = 257; (* LSE's /LANGUAGE= file name *)G TPU$_ENVFILE = 258; (* LSE's /ENVIRONMENT= file name *)G TPU$_INIT_FILE = 259; (* /INITIALIZATION= file name *)G TPU$_START_LINE = 260; (* /START_POSITION= line *)G TPU$_START_CHAR = 261; (* /START K_POSITION= character *)J TPU$_SYSTEM_ENVFILE = 262; (* LSE's /SYSTEM_ENVIROMENT= file name *) N(* Item list codes for file I/O *) LCONST TPU$_ACCESS = 4; (* File access type (see below) *)G TPU$_FLUSH = 5; (* Flush after Puts *)G TPU$_FILESIZE = 7; (* File size *)G TPU$_RECORD_ATTR = 8; (* Record attributes *)G TPU$_RECOLRD_FORM = 9; (* Record format *)G TPU$_MAXIMIZE_VER = 10; (* Maximize version number *)G TPU$_DEFAULTFILE = 17; (* Default file name *)G TPU$_RELATEDFILE = 18; (* Related file name *)G TPU$_FILE_RECOVERABLE = 19; (* File available upon recovery *)U TPU$_TRN_TPT = 20; (* File will allow truncates - journal files only *)G TPU$_CREATE_TIME = 257; (* Creation date/time M *)G TPU$_EOF_BLOCK = 258; (* EOF block *)G TPU$_EOF_FFB = 259; (* EOF first free byte *) N(* TPU$_OPTIONS flags *) CONST TPU$M_RECOVER = 1; TPU$M_JOURNAL = 2; TPU$M_READ = 4; TPU$M_SECTION = 8; TPU$M_OUTPUT = 16; TPU$M_COMMAND = 32; TPU$M_DISPLAY = 64; TPU$M_CREATE = 128; TPU$M_STARTPOS = 256; TPU$M_COMMAND_DFLTED = 512; TPU$M_DEBUG = 1024; TNPU$M_NOKANJI_DIC = 2048; TPU$M_TEXT_LANGUAGE = 4096; TPU$M_DEFAULTS = 8192; TPU$M_NODEFAULTS = 16384; TPU$M_ENVIRONMENT = 65536; TPU$M_INIT = 131072; TPU$M_SYSTEM_ENV = 262144; TPU$M_CURRENT_FILE = 524288; TPU$M_WRITE = 1048576; TPU$M_MODIFY = 2097152; TPU$M_NOMODIFY = 4194304; TPU$M_NOMAP = 8388608; TPU$M_WORK = 16777216; TPU$M_SEC_LNM_MODE = 33554432; TPU$M_CHARSET = 67108864;  N(* Access codes for TPU$_ACCESS *) O LCONST TPU$K_INPUT = 0; (* Open file for input only *)G TPU$K_OUTPUT = 1; (* Open file for output only *)J TPU$K_IO = 2; (* Open file for both input and output *)G TPU$K_OUTPUT_DDIF = 3; (* Open file for DDIF output only *) N(* Codes for file I/O *) LCONST TPU$K_OPEN = 0; (* Open a file *)G TPU$K_CLOSE = 1; P (* Close a file *)G TPU$K_CLOSE_DELETE = 2; (* Close and delete a file *)G TPU$K_PUT = 3; (* Put a record to a file *)G TPU$K_GET = 4; (* Get a record from a file *)G TPU$K_REWIND = 5; (* Rewind the file *) N(* FILE_PARSE and FILE_SEARCH item flags *) CONST TPU$M_NODE = 1; TPU$M_DEV = 2; TPU$M_DIR = 4; TPU$M_NAME = 8; TQPU$M_TYPE = 16; TPU$M_VER = 32; TPU$M_HEAD = 64; TPU$M_TAIL = 128; TPU$M_REPARSE = 65536;  N(* Codes for terminal input *) LCONST TPU$K_INITIALIZE_INPUT = 0; (* Initialize terminal input *)G TPU$K_TYPEAHEAD_COUNT = 1; (* Fetch typeahead count *)H TPU$K_CANCEL_INPUT = 2; (* Cancel outstanding terminal input *)G TPU$K_READ_CHARACTER = 3; (* Read a single character *)G TPU$K_READ_ RSTRING = 4; (* Read a string of characters *)G TPU$K_READ_LINE = 5; (* Read a line with prompting *)G TPU$K_TERMINATE_INPUT = 6; (* Terminate terminal input *)I TPU$K_READ_TYPEAHEAD_NOECHO = 7; (* Read the typeahead and don't echo *) N(* TPU$CLEANUP flags *) CONST TPU$M_DELETE_JOURNAL = 1; TPU$M_DELETE_EXITH = 2; TPU$M_DELETE_BUFFERS = 4; TPU$M_DELETE_WINDOWS = 8; TPU$M_DELETE_CASCHE = 16; TPU$M_PRUNE_CACHE = 32; TPU$M_EXECUTE_FILE = 64; TPU$M_EXECUTE_PROC = 128; TPU$M_DELETE_CONTEXT = 256; TPU$M_RESET_TERMINAL = 512; TPU$M_KILL_PROCESSES = 1024; TPU$M_CLOSE_SECTION = 2048; TPU$M_DELETE_OTHERS = 4096; TPU$M_LAST_TIME = 8192; TPU$M_CLOSE_KANJI_DIC = 16384;  (*** MODULE $TRMDEF ***) N(* *)N(* Define symbols for the item list QIO format *)N(*T *)N(* Item list type codes *) CONST TRM$_MODIFIERS = 0; TRM$_EDITMODE = 1; TRM$_TIMEOUT = 2; TRM$_TERM = 3; TRM$_PROMPT = 4; TRM$_INISTRNG = 5; TRM$_PICSTRNG = 6; TRM$_FILLCHR = 7; TRM$_INIOFFSET = 8; TRM$_ALTECHSTR = 9; TRM$_ESCTRMOVR = 10;G TRM$_LASTITM = 11; (* must remain the last item *) TRM$_RESERVE12 = 12; TRM$_URESERVE13 = 13; TRM$_RESERVE14 = 14; TRM$_RESERVE15 = 15; TRM$_RESERVE16 = 16; TRM$_RESERVE17 = 17; TRM$_RESERVE18 = 18; TRM$_RESERVE19 = 19; TRM$_RESERVE20 = 20; TRM$_RESERVE21 = 21; TRM$_RESERVE22 = 22; TRM$_RESERVE23 = 23; TRM$_RESERVE24 = 24; TRM$_RESERVE25 = 25; TRM$_RESERVE26 = 26; TRM$_RESERVE27 = 27; TRM$_RESERVE28 = 28; TRM$_RESERVE29 = 29; TRM$_RESERVE30 = 30;G TRM$_RECLINE = 31; (* Reserved for exclusive use by *) N(* V Japanese input method; this code MUST *)N(* remain in the invalid item code range *)N(* *)N(* Editmode type codes *)N(* *) CONST TRM$K_EM_DEFAULT = 0; TRM$K_EM_RDVERIFY = 1; TRM$M_TM_NOECHO = 64; TRM$M_TM_TIMED = 128;W TRM$M_TM_CVTLOW = 256; TRM$M_TM_NOFILTR = 512; TRM$M_TM_DSABLMBX = 1024; TRM$M_TM_PURGE = 2048; TRM$M_TM_TRMNOECHO = 4096; TRM$M_TM_REFRESH = 8192; TRM$M_TM_ESCAPE = 16384; TRM$M_TM_NOEDIT = 32768; TRM$M_TM_NORECALL = 65536; TRM$M_TM_R_JUST = 131072; TRM$M_TM_AUTO_TAB = 262144; TRM$M_TM_ARROWS = 524288; TRM$M_TM_TERM_ARROW = 1048576; TRM$M_TM_TERM_DEL = 2097152; TRM$M_TM_TOGGLE = 4194304; TRM$M_TM_OTHERWAY = 8388608; TRM$M_TM_NOCLEAR = 16777216; TRM$M_CV_XUPPER = 1; TRM$M_CV_LOWER = 2; TRM$M_CV_NUMERIC = 4; TRM$M_CV_NUMPUNC = 8; TRM$M_CV_PRINTABLE = 16; TRM$M_CV_ANY = 32; TRM$M_ST_FIELD_FULL = 1; TRM$M_ST_OTHERWAY = 2; &TYPE TRM$TYPE = RECORD CASE INTEGER OF/ 1: (TRM$R_TRMDEF_BITS0 : [BYTE(4)] RECORD END; );G 2: (TRM$V_TM_NOECHO : [POS(6)] $BOOL; (*NOECHO *)G TRM$V_TM_TIMED : [POS(7)] $BOOL; (*TIMED *)G TRM$V_TM_CVTLOW : [POS(8)] $BOOL; (*CONVERT LOWER CASE Y *)G TRM$V_TM_NOFILTR : [POS(9)] $BOOL; (*NO FILTER *)G TRM$V_TM_DSABLMBX : [POS(10)] $BOOL; (*DISABLE MAILBOX *)G TRM$V_TM_PURGE : [POS(11)] $BOOL; (*PURGE TYPEAHEAD *)K TRM$V_TM_TRMNOECHO : [POS(12)] $BOOL; (*TERMINATORS ARE NOT ECHOED *)J TRM$V_TM_REFRESH : [POS(13)] $BOOL; (*Control-R interrupted read n *)O TRM$V_TM_ESCAPE : [POS(14)] $BOOL; (*TERMINATE READ ON ESCAPE SEQUENCE *)G TRM$V_TM_NOEDIT : [POS(15)] $BOOL; (*ZDISABLE ADVANCED EDITING *)] TRM$V_TM_NORECALL : [POS(16)] $BOOL; (*Disable the recall feature of advanced editing *)G TRM$V_TM_R_JUST : [POS(17)] $BOOL; (*Right justification *)G TRM$V_TM_AUTO_TAB : [POS(18)] $BOOL; (*Auto tab field *)L TRM$V_TM_ARROWS : [POS(19)] $BOOL; (* enable left & right arrow keys *)K TRM$V_TM_TERM_ARROW : [POS(20)] $BOOL; (* pass arrows as terminator *)H TRM$V_TM_TERM_DEL : [POS(21)] $BOOL; (* pass as terminator *)L[ TRM$V_TM_TOGGLE : [POS(22)] $BOOL; (* allow insert/overstrike toggle *)X TRM$V_TM_OTHERWAY : [POS(23)] $BOOL; (* overstrike R-justify or insert L-justify *)a TRM$V_TM_NOCLEAR : [POS(24)] $BOOL; (* don't replace fill with clear after first non-fill *) );I 3: (TRM$R_TRMDEF_BITS1 : [BYTE(1)] RECORD END; (* picture string mask *) );G 4: (TRM$V_CV_UPPER : [POS(0)] $BOOL; (* upper case *)G TRM$V_CV_LOWER : [POS(1)] $BOOL; (* lower case \ *)G TRM$V_CV_NUMERIC : [POS(2)] $BOOL; (* numeric (0-9) *)I TRM$V_CV_NUMPUNC : [POS(3)] $BOOL; (* numeric punctuation (+ - .) *)G TRM$V_CV_PRINTABLE : [POS(4)] $BOOL; (* printable character *)G TRM$V_CV_ANY : [POS(5)] $BOOL; (* any character *) );/ 5: (TRM$R_TRMDEF_BITS2 : [BYTE(1)] RECORD END; );e 6: (TRM$V_ST_FIELD_FULL : [POS(0)] $BOOL; (* field full condition IOSB+7 contains index to cursor *)^ TRM$V_ST_OTHERWAY : [PO]S(1)] $BOOL; (* left-justify insert OR right-justify overstrike *) ) END; (*** MODULE $TTDEF ***) N(* *)N(* DEFINE TERMINAL SPECIAL SYMBOLS *)N(* *) CONST TT$C_BAUD_50 = 1; TT$C_BAUD_75 = 2; TT$C_BAUD_110 = 3; TT$C_BAUD_134 = 4; TT$C_BAUD_150 = 5; TT$C_BAUD_300 = 6; TT$C_BAUD^_600 = 7; TT$C_BAUD_1200 = 8; TT$C_BAUD_1800 = 9; TT$C_BAUD_2000 = 10; TT$C_BAUD_2400 = 11; TT$C_BAUD_3600 = 12; TT$C_BAUD_4800 = 13; TT$C_BAUD_7200 = 14; TT$C_BAUD_9600 = 15; TT$C_BAUD_19200 = 16; TT$C_BAUD_38400 = 17; TT$C_BAUD_57600 = 18; TT$C_BAUD_76800 = 19; TT$C_BAUD_115200 = 20; N(* *** MATCHES DCDEF MACRO *) CONST TT$_UNKNOWN = 0;G TT$_VT05 = 1; (* VT05 *)_G TT$_VK100 = 2; (* strange terminals *) TT$_VT173 = 3; TT$_TQ_BTS = 4; TT$_TEK401X = 10;G TT$_FT1 = 16; (* FOREIGN TERMINAL TYPES *)G TT$_FT2 = 17; (* new support also includes *)G TT$_FT3 = 18; (* the negative numbers *) TT$_FT4 = 19; TT$_FT5 = 20; TT$_FT6 = 21; TT$_FT7 = 22;G TT$_FT8 = 23; (* END OF FOREIGN TYPES *) N(* RESERVE` REST UP TO 32 FOR EXTENSIONS *) CONST TT$_LAX = 32; TT$_LA36 = 32; TT$_LA120 = 33; TT$_LA34 = 34; TT$_LA38 = 35; TT$_LA12 = 36; TT$_LA100 = 37; TT$_LA24 = 37; TT$_LQP02 = 38; TT$_LA84 = 39; TT$_LA210 = 40; TT$_LN03 = 41; TT$_LN01K = 42; TT$_LA80 = 43; TT$_VT5X = 64; TT$_VT52 = 64; TT$_VT55 = 65;G TT$_VT100 = 96; (* VT100 *) TT$_VT101 = 97; TT$_VT102 = 98; TT$_VT105 =a 99; TT$_VT125 = 100; TT$_VT131 = 101; TT$_VT132 = 102; TT$_VT80 = 103; TT$_VT200_Series = 110; TT$_Pro_Series = 111; TT$_VT300_Series = 112; TT$_VT400_Series = 113; TT$_VT500_Series = 114; N(* from 128 on is reserved for foreign terminals and must not be *)N(* used for terminal definitions *) CONST TT$M_PASSALL = 1; TT$M_NOECHO = 2; TT$M_NOTYPEAHD = 4; TT$M_ESCAPE = 8; TT$M_HOSTSYNC = 16; TT$M_TTSYNC = 3b2; TT$M_SCRIPT = 64; TT$M_LOWER = 128; TT$M_MECHTAB = 256; TT$M_WRAP = 512; TT$M_CRFILL = 1024; TT$M_LFFILL = 2048; TT$M_SCOPE = 4096; TT$M_REMOTE = 8192; TT$M_RESERVED = 16384; TT$M_EIGHTBIT = 32768; TT$M_MBXDSABL = 65536; TT$M_NOBRDCST = 131072; TT$M_READSYNC = 262144; TT$M_MECHFORM = 524288; TT$M_HALFDUP = 1048576; TT$M_MODEM = 2097152; TT$M_OPER = 4194304; TT$M_PAGE = -16777216; TT$M_ALTFRAME = 16; TT$M_ALTRPAR = 32; TT$M_PARITY = 64; TT$M_ODD = c128; TT$M_TWOSTOP = 256; TT$M_DISPARERR = 512; TT$M_ALTDISPAR = 1024; TT$M_BREAK = 2048; TT$M_DS_DTR = 2; TT$M_DS_SECTX = 8; TT$M_DS_RTS = 16; TT$M_DS_SECREC = 8; TT$M_DS_CTS = 16; TT$M_DS_CARRIER = 32; TT$M_DS_RING = 64; TT$M_DS_DSR = 128; %TYPE TT$TYPE = RECORD CASE INTEGER OF- 1: (TT$R_TTDEF_BITS0 : [BYTE(4)] RECORD END; );# 2: (TT$V_PASSALL : [POS(0)] $BOOL;" TT$V_NOECHO : [POS(1)] $BOOL;% TT$V_NOTYPEAHD : [POS(2)] $BOOL;" TT$V_ESCAPE :d [POS(3)] $BOOL;$ TT$V_HOSTSYNC : [POS(4)] $BOOL;" TT$V_TTSYNC : [POS(5)] $BOOL;" TT$V_SCRIPT : [POS(6)] $BOOL;! TT$V_LOWER : [POS(7)] $BOOL;# TT$V_MECHTAB : [POS(8)] $BOOL; TT$V_WRAP : [POS(9)] $BOOL;# TT$V_CRFILL : [POS(10)] $BOOL;# TT$V_LFFILL : [POS(11)] $BOOL;" TT$V_SCOPE : [POS(12)] $BOOL;# TT$V_REMOTE : [POS(13)] $BOOL;% TT$V_RESERVED : [POS(14)] $BOOL;% TT$V_EIGHTBIT : [POS(15)] $BOOL;% TT$V_MBXDSABL : [POS(16)] $BOOL;%e TT$V_NOBRDCST : [POS(17)] $BOOL;% TT$V_READSYNC : [POS(18)] $BOOL;% TT$V_MECHFORM : [POS(19)] $BOOL;$ TT$V_HALFDUP : [POS(20)] $BOOL;" TT$V_MODEM : [POS(21)] $BOOL;! TT$V_OPER : [POS(22)] $BOOL;! TT$V_PAGE : [POS(24)] $BIT8; );- 3: (TT$R_TTDEF_BITS1 : [BYTE(2)] RECORD END; );$ 4: (TT$V_ALTFRAME : [POS(4)] $BOOL;# TT$V_ALTRPAR : [POS(5)] $BOOL;" TT$V_PARITY : [POS(6)] $BOOL; TT$V_ODD : [POS(7)] $BOOL;# TT$V_TWOSTOP : [POS(8f)] $BOOL;% TT$V_DISPARERR : [POS(9)] $BOOL;& TT$V_ALTDISPAR : [POS(10)] $BOOL;" TT$V_BREAK : [POS(11)] $BOOL; );- 5: (TT$R_TTDEF_BITS2 : [BYTE(1)] RECORD END; );G 6: (TT$V_DS_DTR : [POS(1)] $BOOL; (*OUTPUT MODEM CONTROL *)$ TT$V_DS_SECTX : [POS(3)] $BOOL;" TT$V_DS_RTS : [POS(4)] $BOOL; );- 7: (TT$R_TTDEF_BITS3 : [BYTE(1)] RECORD END; );% 8: (TT$V_DS_SECREC : [POS(3)] $BOOL;" TT$V_DS_CTS : [POS(4)] $BOOL;& TT$V_DS_CARRIgER : [POS(5)] $BOOL;# TT$V_DS_RING : [POS(6)] $BOOL;" TT$V_DS_DSR : [POS(7)] $BOOL; ) END; (*** MODULE $TT2DEF ***) CONST TT2$M_LOCALECHO = 1; TT2$M_AUTOBAUD = 2; TT2$M_HANGUP = 4; TT2$M_MODHANGUP = 8; TT2$M_BRDCSTMBX = 16; TT2$M_XON = 32; TT2$M_DMA = 64; TT2$M_ALTYPEAHD = 128; TT2$M_SETSPEED = 256; TT2$M_DCL_MAILBX = 512; TT2$M_DECCRT4 = 1024; TT2$M_COMMSYNC = 2048; TT2$M_EDITING = 4096; TT2$M_INSERT = 8192; TT2$M_FALLBACK = 16384; TT2$Mh_DIALUP = 32768; TT2$M_SECURE = 65536; TT2$M_DISCONNECT = 131072; TT2$M_PASTHRU = 262144; TT2$M_SYSPWD = 524288; TT2$M_SIXEL = 1048576; TT2$M_DRCS = 2097152; TT2$M_PRINTER = 4194304; TT2$M_APP_KEYPAD = 8388608; TT2$M_ANSICRT = 16777216; TT2$M_REGIS = 33554432; TT2$M_BLOCK = 67108864; TT2$M_AVO = 134217728; TT2$M_EDIT = 268435456; TT2$M_DECCRT = 536870912; TT2$M_DECCRT2 = 1073741824; TT2$M_DECCRT3 = -2147483648; &TYPE TT2$TYPE = RECORD CASE INTEGER OF. 1: (TT2 i$R_TT2DEF_BITS : [BYTE(4)] RECORD END; );& 2: (TT2$V_LOCALECHO : [POS(0)] $BOOL;% TT2$V_AUTOBAUD : [POS(1)] $BOOL;# TT2$V_HANGUP : [POS(2)] $BOOL;& TT2$V_MODHANGUP : [POS(3)] $BOOL;& TT2$V_BRDCSTMBX : [POS(4)] $BOOL; TT2$V_XON : [POS(5)] $BOOL; TT2$V_DMA : [POS(6)] $BOOL;& TT2$V_ALTYPEAHD : [POS(7)] $BOOL;% TT2$V_SETSPEED : [POS(8)] $BOOL;M TT2$V_DCL_MAILBX : [POS(9)] $BOOL; (* TEMP DEFINITIONS FOR DCL SPAWN *)T TT2$V_DECCRT4 : [POS(10)]j $BOOL; (* Level 4 terminals (was OUTBAND-obsolete) *)G TT2$V_COMMSYNC : [POS(11)] $BOOL; (* (was DCL_CTRLC-obsolete) *)G TT2$V_EDITING : [POS(12)] $BOOL; (* enable advanced editing *)G TT2$V_INSERT : [POS(13)] $BOOL; (* INPUT EDITING INSTER DEFAULT *)G TT2$V_FALLBACK : [POS(14)] $BOOL; (* USE MULTINATIONAL FALLBACK *)J TT2$V_DIALUP : [POS(15)] $BOOL; (* TERMINAL IS CONNECTED TO DIALUP *)G TT2$V_SECURE : [POS(16)] $BOOL; (* RECOGNIZE SECURE SERVER *)K k TT2$V_DISCONNECT : [POS(17)] $BOOL; (* TERMINAL CAN BE DISCONNECTED *)G TT2$V_PASTHRU : [POS(18)] $BOOL; (* passall with flowcontrol *)G TT2$V_SYSPWD : [POS(19)] $BOOL; (* System password required *)G TT2$V_SIXEL : [POS(20)] $BOOL; (* SIXEL SUPPORTED *)G TT2$V_DRCS : [POS(21)] $BOOL; (* *)G TT2$V_PRINTER : [POS(22)] $BOOL; (* PRINTER PORT AVAILABLE *)K TT2$V_APP_KEYPAD : [POS(23)] $BOOL; (* Keypad in applicat lionis mode *)G TT2$V_ANSICRT : [POS(24)] $BOOL; (* ANSI, REGIS, BLOCK and AVO *)I TT2$V_REGIS : [POS(25)] $BOOL; (* must be contiguous for SCRPKG. *)# TT2$V_BLOCK : [POS(26)] $BOOL;! TT2$V_AVO : [POS(27)] $BOOL;" TT2$V_EDIT : [POS(28)] $BOOL;$ TT2$V_DECCRT : [POS(29)] $BOOL;G TT2$V_DECCRT2 : [POS(30)] $BOOL; (* DECCRT level 2 *)G TT2$V_DECCRT3 : [POS(31)] $BOOL; (* DECCRT level 3 *) ) END; (*** MODULE $TT3DEF ***)m CONST TT3$M_POSIX = 1; TT3$M_ANSI_COLOR = 2; TT3$M_DECCRT5 = 4; TT3$M_RTS_FLOW = 8; TT3$M_BS = 16; &TYPE TT3$TYPE = RECORD CASE INTEGER OF. 1: (TT3$R_TT3DEF_BITS : [BYTE(4)] RECORD END; );" 2: (TT3$V_POSIX : [POS(0)] $BOOL;' TT3$V_ANSI_COLOR : [POS(1)] $BOOL;$ TT3$V_DECCRT5 : [POS(2)] $BOOL;% TT3$V_RTS_FLOW : [POS(3)] $BOOL; TT3$V_BS : [POS(4)] $BOOL;& TT3$v_tt_spare : [POS(5)] $BIT11;* TT3$V_AS_RESERVED : [POS(16)] $BIT16; ) END;n (*** MODULE $TTCDEF ***) CONST TTC$M_RESERVED = 255; TTC$M_KANA = 256; TTC$M_KANJI = 512; TTC$M_HANZI = 1024; TTC$M_HANGUL = 2048; TTC$M_HANYU = 4096; TTC$M_THAI = 8192; &TYPE TTC$TYPE = RECORD CASE INTEGER OF. 1: (TTC$R_TTCDEF_BITS : [BYTE(2)] RECORD END; );G 2: (TTC$V_RESERVED : [POS(0)] $BIT8; (* First byte is reserved *)G TTC$V_KANA : [POS(8)] $BOOL; (* Katakana *)G TTC$V_KANJI : [POS(9)] $BOOL; (* Kanji o *)G TTC$V_HANZI : [POS(10)] $BOOL; (* Hanzi *)G TTC$V_HANGUL : [POS(11)] $BOOL; (* Hangul *)G TTC$V_HANYU : [POS(12)] $BOOL; (* Hanyu *)G TTC$V_THAI : [POS(13)] $BOOL; (* Thai *) ) END; (*** MODULE $TTYDPORTDEF ***) CONST TTY$M_NO_AUTO_XON = 1; TTY$M_RESERVED = 254; TTY$M_PARITY_ERROR = 256; TTY$M_USE_WINDOW_CONSOLE = 512;# TTY$M_LOAD_INPUT_EXTE pNSION = 1024;" TTY$M_IA64_POLLED_CONSOLE = 2048;" TTY$M_IA64_CONSOLE_NOTIME = 4096; +TYPE TTYDPORT$TYPE = RECORD CASE INTEGER OF3 1: (TTY$R_TTYDPORTDEF_BITS : [BYTE(2)] RECORD END; );I 2: (TTY$V_NO_AUTO_XON : [POS(0)] $BOOL; (* Disable automatic Xon/Xoff *)G TTY$V_RESERVED : [POS(1)] $BIT7; (* Next 7 bits are reserved *)G TTY$V_PARITY_ERROR : [POS(8)] $BOOL; (* Drop parity error chars *)G TTY$V_USE_WINDOW_CONSOLE : [POS(9)] $BOOL; (* Console option *)G T qTY$V_LOAD_INPUT_EXTENSION : [POS(10)] $BOOL; (* Console option *)Z TTY$V_IA64_POLLED_CONSOLE : [POS(11)] $BOOL; (* IA64 flag to force console to poll *)^ TTY$V_IA64_CONSOLE_NOTIME : [POS(12)] $BOOL; (* IA64 console disable output timer flag *) ) END; (*** MODULE $UAF070DEF ***) N(*++ *)N(* User authorization file format *)N(* Note: With the exception of the ursername and account name, *)N(* all strings are blank padded counted strings. Username and *)N(* account name are uncounted, blank padded. *)N(*-- *) LCONST UAF070$C_USER_ID = 1; (* main user ID record *)G UAF070$C_VERSION1 = 1; (* this version *)G UAF070$C_KEYED_PART = 52; (* ISAM keys come this far s *)H UAF070$C_MAX_PWD_LENGTH = 32; (* maximum plaintext password length *)H UAF070$K_MAX_PWD_LENGTH = 32; (* maximum plaintext password length *)G UAF070$C_AD_II = 0; (* AUTODIN-II 32 bit crc code *)I UAF070$C_PURDY = 1; (* Purdy polynomial over salted input *)R UAF070$C_PURDY_V = 2; (* Purdy polynomial + variable length username *)J UAF070$C_PURDY_S = 3; (* PURDY_V folded into password length *)G UAF070$K_CURRENT_ALGORITHM = 3; (* curr tent DEC algorithm number *)G UAF070$C_CURRENT_ALGORITHM = 3; (* current DEC algorithm number *)# UAF070$C_PREFERED_ALGORITHM = 127;# UAF070$K_PREFERED_ALGORITHM = 127;Q UAF070$C_PREFERRED_ALGORITHM = 127; (* preferred hash algorithm - use current *)Q UAF070$K_PREFERRED_ALGORITHM = 127; (* preferred hash algorithm - use current *)G UAF070$C_CUST_ALGORITHM = 128; (* customer algorithm division *)G UAF070$K_CUST_ALGORITHM = 128; (* customer algorithm division *)G UAF07 u0$K_FIXED = 644; (* length of fixed portion *)G UAF070$C_FIXED = 644; (* length of fixed portion *) UAF070$K_LENGTH = 1412; UAF070$C_LENGTH = 1412;R UAF070$S_UAF070DEF = 1412; (* Old size name, synonym for UAF070$S_UAF070 *) )TYPE UAF070$TYPE = RECORD CASE INTEGER OFG 1: (UAF070$B_RTYPE : $UBYTE; (* UAF070 record type *)G UAF070$B_VERSION : $UBYTE; (* UAF070 format version *)M UAF070$W_USRDATOFF : $UWORDv; (* offset of counted string of user data *)/ UAF070$R_FILL_47_ : [BYTE(32)] RECORD END;. UAF070$R_FILL_49_ : [BYTE(4)] RECORD END;G UAF070$L_SUB_ID : UNSIGNED; (* user sub-identifier *)K UAF070$Q_PARENT_ID : $UQUAD; (* identifier of owner of this account *)H UAF070$T_ACCOUNT : PACKED ARRAY [1..32] OF CHAR; (* account name *)G UAF070$T_OWNER : PACKED ARRAY [1..32] OF CHAR; (* owner's name *)I UAF070$T_DEFDEV : PACKED ARRAY [1..32] OF CHAR; (* defawult device *)L UAF070$T_DEFDIR : PACKED ARRAY [1..64] OF CHAR; (* default directory *)M UAF070$T_LGICMD : PACKED ARRAY [1..64] OF CHAR; (* login command file *)V UAF070$T_DEFCLI : PACKED ARRAY [1..32] OF CHAR; (* default command interpreter *)M UAF070$T_CLITABLES : PACKED ARRAY [1..32] OF CHAR; (* user CLI tables *). UAF070$R_FILL_51_ : [BYTE(8)] RECORD END;G UAF070$Q_PWD2 : $UQUAD; (* second password *)G UAF070$W_LOGFAILS : $UWORD; (* count xof login failures *)G UAF070$W_SALT : $UWORD; (* random password salt *)G UAF070$B_ENCRYPT : $UBYTE; (* primary password hash algorithm *)G (* known hash algorithm indices *)H UAF070$B_ENCRYPT2 : $UBYTE; (* secondary password hash algorithm *)G UAF070$B_PWD_LENGTH : $UBYTE; (* minimum password length *). UAF070$$$_FILL_1 : ARRAY [1..1] OF $BYTE;G UAF070$Q_EXPIRATION : $UQUAD; (* expiration date foyr account *)G UAF070$Q_PWD_LIFETIME : $UQUAD; (* password lifetime *)G UAF070$Q_PWD_DATE : $UQUAD; (* date of password change *)G UAF070$Q_PWD2_DATE : $UQUAD; (* date of 2nd password change *)H UAF070$Q_LASTLOGIN_I : $UQUAD; (* date of last interactive login *)L UAF070$Q_LASTLOGIN_N : $UQUAD; (* date of last non-interactive login *)G UAF070$Q_PRIV : $UQUAD; (* process privilege vector *)G UAF070$Q_DEF_PRIV : $UQUAD; (* defazult process privileges *)M UAF070$R_MIN_CLASS : [BYTE(20)] RECORD END; (* minimum security class *)M UAF070$R_MAX_CLASS : [BYTE(20)] RECORD END; (* maximum security class *). UAF070$R_FILL_53_ : [BYTE(4)] RECORD END;] UAF070$B_NETWORK_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly network access, primary *)_ UAF070$B_NETWORK_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly network access, secondary *)Y UAF070$B_BATCH_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly batch{ access, primary *)[ UAF070$B_BATCH_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly batch access, secondary *)Y UAF070$B_LOCAL_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly local access, primary *)[ UAF070$B_LOCAL_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly local access, secondary *)[ UAF070$B_DIALUP_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly dialup access, primary *)] UAF070$B_DIALUP_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly dialup access, secondary *)[ UAF070$B_|REMOTE_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly remote access, primary *)] UAF070$B_REMOTE_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly remote access, secondary *)S UAF070$$$_FILL_4 : ARRAY [1..12] OF $BYTE; (* space for 2 more access types *). UAF070$R_FILL_55_ : [BYTE(1)] RECORD END;. UAF070$$$_FILL_5 : ARRAY [1..1] OF $BYTE;G UAF070$B_PRI : $UBYTE; (* base process priority *)G UAF070$B_QUEPRI : $UBYTE; (* maximum job queuing priority *)G} UAF070$W_MAXJOBS : $UWORD; (* maximum jobs for UIC allowed *)G (* 0 means no limit *)J UAF070$W_MAXACCTJOBS : $UWORD; (* maximum jobs for account allowed *)G (* 0 means no limit *)J UAF070$W_MAXDETACH : $UWORD; (* maximum detached processes for UIC *)G (* 0 means no limit *)G UAF070$W_PRCCNT : $UWORD; (* subprocess creation li~mit *)G UAF070$W_BIOLM : $UWORD; (* buffered I/O limit *)G UAF070$W_DIOLM : $UWORD; (* direct I/O limit *)G UAF070$W_TQCNT : $UWORD; (* timer queue entry limit *)G UAF070$W_ASTLM : $UWORD; (* AST queue limit *)G UAF070$W_ENQLM : $UWORD; (* enqueue limit *)G UAF070$W_FILLM : $UWORD; (* open file limit *)G UAF070$W_SHRFILLM : $UWORD; (* shared file limit *)G UAF070$L_WSQUOTA : UNSIGNED; (* working set size quota *)G UAF070$L_DFWSCNT : UNSIGNED; (* default working set size *)G UAF070$L_WSEXTENT : UNSIGNED; (* working set size limit *)G UAF070$L_PGFLQUOTA : UNSIGNED; (* page file quota *)G UAF070$L_CPUTIM : UNSIGNED; (* CPU time quota *)G UAF070$L_BYTLM : UNSIGNED; (* buffered I/O byte count limit *)H UAF070$L_PBYTLM : UNSIGNED; (* paged buffer I/O byte count limit *)R UAF070$L_JTQUOTA : UNSIGNED; (* job-wide logical name table creation quota *)H UAF070$W_PROXY_LIM : $UWORD; (* number of proxies user can grant *)G UAF070$W_PROXIES : $UWORD; (* number of proxies granted *)H UAF070$W_ACCOUNT_LIM : $UWORD; (* number of sub-accounts allowed *)G UAF070$W_ACCOUNTS : $UWORD; (* number of sub-accounts in use *)M UAF070$R_DEF_CLASS : [BYTE(20)] RECORD END; (* default security class *)G UAF070$$$_FILL_99 : ARRAY [1..44] OF $BYTE; (* spare space *)M UAF070$$$_FILL_100 : ARRAY [1..768] OF $BYTE; (* user-extensible area *) );O 2: (UAF070$T_USERNAME : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* username *)G UAF070$L_UIC : [POS(288)] UNSIGNED; (* user ID code *)G UAF070$Q_PWD : [POS(2720)] $UQUAD; (* hashed password *)G UAF070$L_FLAGS : [POS(3744)] UNSIGNED; (* user flags longword *)R UAF070$B_PRIMEDAYS : [POS(4112)] $UBYTE ; (* bits representing primary days *) ); 3: ();P 4: (UAF070$T_USERNAME_TAG : [POS(280)] CHAR; (* tag to differentiate records *)G UAF070$W_MEM : [POS(288)] $UWORD; (* member subfield *)G UAF070$W_GRP : [POS(304)] $UWORD; (* group subfield *)G UAF070$L_PWD : [POS(2720)] UNSIGNED; (* 32 bit subfield *)G UAF070$V_DISCTLY : [POS(3744)] $BOOL; (* no user control-y *)K UAF070$V_DEFCLI : [POS(3745)] $BOOL; (* only allow user default CLI *)M UAF070$V_LOCKPWD : [POS(3746)] $BOOL; (* disable SET PASSWORD command *)Y UAF070$V_RESTRICTED : [POS(3747)] $BOOL; (* restricted account (pre-V5.2 CAPTIVE) *)G UAF070$V_DISACNT : [POS(3748)] $BOOL; (* no interactive login *)G UAF070$V_DISWELCOM : [POS(3749)] $BOOL; (* skip welcome message *)G UAF070$V_DISMAIL : [POS(3750)] $BOOL; (* skip new mail message *)G UAF070$V_NOMAIL : [POS(3751)] $BOOL; (* disable mail delivery *)K UAF070$V_GENPWD : [POS(3752)] $BOOL; (* passwords must be generated *)I UAF070$V_PWD_EXPIRED : [POS(3753)] $BOOL; (* password has expired *)N UAF070$V_PWD2_EXPIRED : [POS(3754)] $BOOL; (* 2nd password has expired *)G UAF070$V_AUDIT : [POS(3755)] $BOOL; (* audit all actions *)K UAF070$V_DISREPORT : [POS(3756)] $BOOL; (* skip last login messages *)K UAF070$V_DISRECONNECT : [POS(3757)] $BOOL; (* inhibit reconnections *)G UAF070$V_AUTOLOGIN : [POS(3758)] $BOOL; (* auto-login only *)[ UAF070$V_DISFORCE_PWD_CHANGE : [POS(3759)] $BOOL; (* disable forced password change *)O UAF070$V_CAPTIVE : [POS(3760)] $BOOL; (* captive account (no overrides) *)T UAF070$V_DISIMAGE : [POS(3761)] $BOOL; (* disable arbitrary image activation *)U UAF070$V_DISPWDDIC : [POS(3762)] $BOOL; (* disable password dictionary search *)R UAF070$V_DISPWDHIS : [POS(3763)] $BOOL; (* disable password history search *)R UAF070$V_DEFCLSVAL : [POS(3764)] $BOOL; (* default classification is valid *)U UAF070$V_MONDAY : [POS(4112)] $BOOL; (* bit clear means this is a primary day *)Q UAF070$V_TUESDAY : [POS(4113)] $BOOL; (* bit set means this is an off day *), UAF070$V_WEDNESDAY : [POS(4114)] $BOOL;+ UAF070$V_THURSDAY : [POS(4115)] $BOOL;) UAF070$V_FRIDAY : [POS(4116)] $BOOL;+ UAF070$V_SATURDAY : [POS(4117)] $BOOL;) UAF070$V_SUNDAY : [POS(4118)] $BOOL; ) END; (*** MODULE $UAIDEF ***) N(*+  *)N(* *)N(* Get User Authorization Information Data Identifier Definitions *)N(* *)N(* **** NOTE **** *)N(* *)N(* New items must always be added to the END of each item lis t *)N(* so that users will not have to relink. *)N(* *)N(*- *) LCONST UAI$_RTYPE = 1; (* UAF record type *)G UAI$_VERSION = 2; (* UAF format version *)L UAI$_USRDATOFF = 3; (* offset of counted string of user data *)G UAI$_USERNAME = 4;  (* username *)G UAI$_USERNAME_TAG = 5; (* tag to differentiate records *)G UAI$_UIC = 6; (* user ID code *)G UAI$_MEM = 7; (* member subfield *)G UAI$_GRP = 8; (* group subfield *)G UAI$_SUB_ID = 9; (* user sub-identifier *)J UAI$_PARENT_ID = 10; (* identifier of owner of this account *)G UAI$_ACCOUNT = 11; (* account name *)G UAI$_OWNER = 12; (* owner's name *)G UAI$_DEFDEV = 13; (* default device *)G UAI$_DEFDIR = 14; (* default directory *)G UAI$_LGICMD = 15; (* login command file *)G UAI$_DEFCLI = 16; (* default command interpreter *)G UAI$_CLITABLES = 17; (* user CLI tables  *)G UAI$_PWD = 18; (* hashed password *)G UAI$_PWD2 = 19; (* second password *)G UAI$_LOGFAILS = 20; (* count of login failures *)G UAI$_SALT = 21; (* random password salt *)G UAI$_ENCRYPT = 22; (* primary password hash algorithm *)H UAI$_ENCRYPT2 = 23; (* secondary password hash algorithm *)G UAI$_PWD_LENGTH = 24; (* minimum password length *)G UAI$_EXPIRATION = 25; (* expiration date for account *)G UAI$_PWD_LIFETIME = 26; (* password lifetime *)G UAI$_PWD_DATE = 27; (* date of password change *)G UAI$_PWD2_DATE = 28; (* date of 2nd password change *)G UAI$_LASTLOGIN_I = 29; (* date of last interactive login *)I UAI$_LASTLOGIN_N = 30; (* date of last non-interactive login *)G UAI$_PRIV = 31; (* process privilege vector *)G UAI$_DEF_PRIV = 32; (* default process privileges *)G UAI$_MIN_CLASS = 33; (* minimum security class *)G UAI$_MAX_CLASS = 34; (* maximum security class *)G UAI$_FLAGS = 35; (* user flags longword *)G UAI$_NETWORK_ACCESS_P = 36; (* hourly network access, primary *)G UAI$_NETWORK_ACCESS_S = 37; (* hourly network access, secondary *)G UAI$_BATCH_ACCESS_P = 38;  (* hourly batch access, primary *)G UAI$_BATCH_ACCESS_S = 39; (* hourly batch access, secondary *)G UAI$_LOCAL_ACCESS_P = 40; (* hourly local access, primary *)G UAI$_LOCAL_ACCESS_S = 41; (* hourly local access, secondary *)G UAI$_DIALUP_ACCESS_P = 42; (* hourly dialup access, primary *)G UAI$_DIALUP_ACCESS_S = 43; (* hourly dialup access, secondary *)G UAI$_REMOTE_ACCESS_P = 44; (* hourly remote access, primary *)G UAI$_REMOTE_ACCESS_S = 45; (* hourly remote access, secondary *)G UAI$_PRIMEDAYS = 46; (* bits representing primary days *)G UAI$_PRI = 47; (* base process priority *)G UAI$_QUEPRI = 48; (* maximum job queuing priority *)G UAI$_MAXJOBS = 49; (* maximum jobs for UIC allowed *)G UAI$_MAXACCTJOBS = 50; (* maximum jobs for account allowed *)I UAI$_MAXDETACH = 51; (* maximum detached processes for UIC *)G UAI$_PRCCNT = 52; (* subprocess creation limit *)G UAI$_BIOLM = 53; (* buffered I/O limit *)G UAI$_DIOLM = 54; (* direct I/O limit *)G UAI$_TQCNT = 55; (* timer queue entry limit *)G UAI$_ASTLM = 56; (* AST queue limit *)G UAI$_ENQLM = 57; (* enqueue limit *)G UAI$_FILLM = 58; (* open file limit  *)G UAI$_SHRFILLM = 59; (* shared file limit *)G UAI$_WSQUOTA = 60; (* working set size quota *)G UAI$_DFWSCNT = 61; (* default working set size *)G UAI$_WSEXTENT = 62; (* working set size limit *)G UAI$_PGFLQUOTA = 63; (* page file quota *)G UAI$_CPUTIM = 64; (* CPU time quota *)G UAI$_BYTLM = 65; (* buffered I/O byte count limit *)H UAI$_PBYTLM = 66; (* paged buffer I/O byte count limit *)Q UAI$_JTQUOTA = 67; (* job-wide logical name table creation quota *)G UAI$_PROXY_LIM = 68; (* number of proxies user can grant *)G UAI$_PROXIES = 69; (* number of proxies granted *)G UAI$_ACCOUNT_LIM = 70; (* number of sub-accounts allowed *)G UAI$_ACCOUNTS = 71; (* number of sub-accounts in use *)G UAI$_USER_DATA = 72;  (* user data area *)G UAI$_PASSWORD = 73; (* plaintext primary password *)G UAI$_PASSWORD2 = 74; (* plaintext secondary password *)G UAI$_DEF_CLASS = 75; (* default security classification *)P UAI$_AUDIT_FLAGS = 76; (* passed from $SETUAI to UAF$SECURITY_AUDIT *) N(* ADD ITEM-CODES BEFORE THIS COMMENT *) LCONST UAI$_MAX_ITEM_CODE = 77; (* maximum legal item code + 1  *) N(* Add UAI$_DEFCHARGE_CODE as an alias for UAI$_ACCOUNT. *) LCONST UAI$_DEFCHARGE_CODE = 11; (* default charge code (=account) *) N(* Define the various password hash algorithms. *) LCONST UAI$C_AD_II = 0; (* AUTODIN-II 32 bit crc code *)I UAI$C_PURDY = 1; (* Purdy polynomial over salted input *)R UAI$C_PURDY_V = 2; (* Purdy polynomial + variable length username *)J UAI$C_P URDY_S = 3; (* PURDY_V folded into password length *) UAI$C_PREFERED_ALGORITHM = 127;N UAI$C_PREFERRED_ALGORITHM = 127; (* preferred hash algorithm - use current *)G UAI$C_CUST_ALGORITHM = 128; (* customer algorithm division *)G UAI$C_MAX_PWD_LENGTH = 32; (* maximum plaintext password *) N(* Define the flags for the user flags longword. *) CONST UAI$M_DISCTLY = 1; UAI$M_DEFCLI = 2; UAI$M_LOCKPWD = 4; UAI$M_RESTRICTED = 8; UAI$M_DISACNT = 16; UAI$M_DISWELCOM = 32; UAI$M_DISMAIL = 64; UAI$M_NOMAIL = 128; UAI$M_GENPWD = 256; UAI$M_PWD_EXPIRED = 512; UAI$M_PWD2_EXPIRED = 1024; UAI$M_AUDIT = 2048; UAI$M_DISREPORT = 4096; UAI$M_DISRECONNECT = 8192; UAI$M_AUTOLOGIN = 16384;# UAI$M_DISFORCE_PWD_CHANGE = 32768; UAI$M_CAPTIVE = 65536; UAI$M_DISIMAGE = 131072; UAI$M_DISPWDDIC = 262144; UAI$M_DISPWDHIS = 524288; UAI$M_DEFCLSVAL = 1048576; UAI$M_EXTAUTH = 2097152; UAI$M_MIGRATEPWD = 4194304; UAI$M_VMSAUTH = 8388608; UAI$M_DISPWDSYNCH = 16777216; UAI$M_PWDMIX = 33554432; KTYPE FLAGS$TYPE = RECORD (* user flags longword *)G UAI$V_DISCTLY : [POS(0)] $BOOL; (* no user control-y *)G UAI$V_DEFCLI : [POS(1)] $BOOL; (* only allow user default CLI *)G UAI$V_LOCKPWD : [POS(2)] $BOOL; (* disable SET PASSWORD command *)S UAI$V_RESTRICTED : [POS(3)] $BOOL; (* restricted account (pre-V5.2 CAPTIVE) *)G UAI$V_DISACNT : [POS(4)] $BOOL; (* no interactive login *)G UAI$V_DISWELCOM : [POS(5)] $BOOL; (* skip welcome message *)G UAI$V_DISMAIL : [POS(6)] $BOOL; (* skip new mail message *)G UAI$V_NOMAIL : [POS(7)] $BOOL; (* disable mail delivery *)G UAI$V_GENPWD : [POS(8)] $BOOL; (* passwords must be generated *)G UAI$V_PWD_EXPIRED : [POS(9)] $BOOL; (* password has expired *)I UAI$V_PWD2_EXPIRED : [POS(10)] $BOOL; (* 2nd password has expired *)G  UAI$V_AUDIT : [POS(11)] $BOOL; (* audit all actions *)G UAI$V_DISREPORT : [POS(12)] $BOOL; (* skip last login messages *)G UAI$V_DISRECONNECT : [POS(13)] $BOOL; (* inhibit reconnections *)G UAI$V_AUTOLOGIN : [POS(14)] $BOOL; (* auto-login only *)V UAI$V_DISFORCE_PWD_CHANGE : [POS(15)] $BOOL; (* disable forced password change *)J UAI$V_CAPTIVE : [POS(16)] $BOOL; (* captive account (no overrides) *)O UAI$V_DISIMAGE : [POS(17)] $BOOL; (* disable arbitrary image activation *)P UAI$V_DISPWDDIC : [POS(18)] $BOOL; (* disable password dictionary filter *)M UAI$V_DISPWDHIS : [POS(19)] $BOOL; (* disable password history search *)M UAI$V_DEFCLSVAL : [POS(20)] $BOOL; (* default classification is valid *)K UAI$V_EXTAUTH : [POS(21)] $BOOL; (* external authentication enabled *)O UAI$V_MIGRATEPWD : [POS(22)] $BOOL; (* migrate UAF pwd to external auth *)G UAI$V_VMSAUTH : [POS(23)] $BOOL; (* VMS alternative is allowed *) H UAI$V_DISPWDSYNCH : [POS(24)] $BOOL; (* no ACME password sharing *)G UAI$V_PWDMIX : [POS(25)] $BOOL; (* enable mixed-case passwords *)& UAI$V_FILL_59_ : [POS(26)] $BIT6; END; N(* Define the flags representing primary days. *) KTYPE PRIMEDAYS$TYPE = RECORD (* bits representing primary days *)O UAI$V_MONDAY : [POS(0)] $BOOL; (* bit clear means this is a primary day *)K UAI$V_TUESDAY : [POS(1)] $BOOL; (* bit set means this is an off day *)& UAI$V_WEDNESDAY : [POS(2)] $BOOL;% UAI$V_THURSDAY : [POS(3)] $BOOL;# UAI$V_FRIDAY : [POS(4)] $BOOL;% UAI$V_SATURDAY : [POS(5)] $BOOL;# UAI$V_SUNDAY : [POS(6)] $BOOL;% UAI$V_FILL_60_ : [POS(7)] $BOOL; END; (*** MODULE $UICDEF ***) N(*+ *)N(* *)N(* Format of UIC - user identification code. May be either two part *)N(* group / member identifier, or a single uniform identifier. *)N(* *)N(* The binary layout of the id space is as follows: *)N(* *)N(* ---------- Bit -------- *)J(* 31 30 29 28 27 26 Description *)J(* === === === === === === ======================================== *)N(* *)J(* 0 0 - - - - UIC form (group/member) *)J(* 0 1 - - - - Unused *)J(* 1 0 - - - - Identifier form *)J(* 1 0 0 0 - - System identifiers *)J(* 1 0 0 1 - - Facility-specific identifiers *)J(* 1 0 1 0 - - Arbitrary assignment identifiers *)J(* 1 0 1 0 0 0 SEVMS identifier space *)J(* 1 0 1 0 0 1 Unused *)J(* 1 0 1 0 1 0 Unused *)J(* 1 0 1 0 1 1 Unused *)J(* 1 0 1 1 - - Unused *)J(* 1 1 - -  - - Unused *)N(*- *) LCONST UIC$K_MAX_UIC = 1073741823; (* Highest possible UIC *)G UIC$K_WILD_MEMBER = 65535; (* Code for wild card member *)G UIC$K_WILD_GROUP = 16383; (* Code for wild card group *)G UIC$K_UIC_FORMAT = 0; (* UIC format code *)G UIC$K_ID_FORMAT = 2; (* ID format code  *)G UIC$K_TYPE_SYSTEM = 8; (* system ID or UIC *)G UIC$K_TYPE_FACILITY = 9; (* facility ID or UIC *)G UIC$K_TYPE_ARBITRARY = 10; (* arbitrary assignment space *)G UIC$K_FIRST_ID = -2147418112; (* First general identifier *)G UIC$K_LAST_ID = -1879048193; (* Last general identifier *)G UIC$K_MATCH_ALL = -1; (* Match all identifiers *)G UIC$K_ASSIGN_SEVMS = 0; (* SEVMS block of identifier space *) &TYPE UIC$TYPE = RECORD CASE INTEGER OF+ 1: (UIC$R_FILL_61_ : [BYTE(4)] RECORD END; );G 2: (UIC$L_UIC : [POS(0)] UNSIGNED; (* Full longword *) ); 3: ();G 4: (UIC$W_MEM : [POS(0)] $UWORD; (* Member number *)G UIC$W_GRP : [POS(16)] $UWORD; (* Group number *) );G 5: (UIC$R_UIC_FORM : [BYTE(4)] RECORD END; (* Group / member format *) );G 6: (UIC$V_MEMBER : [POS(0)] $BIT16; (* Member num ber *)G UIC$V_GROUP : [POS(16)] $BIT14; (* Group number *)G UIC$V_FORMAT : [POS(30)] $BIT2; (* Format code *) );J 7: (UIC$R_ID_FORM : [BYTE(4)] RECORD END; (* General identifier format *) );G 8: (UIC$V_ID_CODE : [POS(0)] $BIT28; (* ID code *)G UIC$V_ID_TYPE : [POS(28)] $BIT4; (* ID type *) );O 9: (UIC$R_FAC_ID_FORM : [BYTE(4)] RECORD END; (* Facility identifier format *) );G 10: (UIC$V_FAC_ID_CODE : [POS(0)] $BIT16; (* ID code *)G UIC$V_FACILITY : [POS(16)] $BIT12; (* Facility code *) );W 11: (UIC$R_ARBITRARY_ID_FORM : [BYTE(4)] RECORD END; (* Arbitrary assignment format *) );G 12: (UIC$V_ARB_ID_CODE : [POS(0)] $BIT26; (* ID code *)G UIC$V_ASSIGN_CODE : [POS(26)] $BIT2; (* Assignment code *) ) END; (*** MODULE $UIDDEF ***) LCONST UID$K_ArchVersion = 1; (* Current architecture version *)G UID$K_Apollo1 = 0; (* UID format types *) UID$K_Apollo2 = 1; UID$K_Digital = 2; UID$K_Microsoft = 3;G UID$K_LENGTH = 16; (* Total structure length *) &TYPE UID$TYPE = RECORD CASE INTEGER OF+ 1: (UID$r_fill_63_ : [BYTE(8)] RECORD END;+ UID$r_fill_67_ : [BYTE(2)] RECORD END;+ UID$r_fill_71_ : [BYTE(6)] RECORD END; );G 2: (UID$q_timeAndVersion : [POS(0)] $UQUAD; (* Time and v ersion *)T UID$w_clockSeqAndReserved : [POS(64)] $UWORD; (* Clock sequence and reserved *)3 UID$b_node : [POS(80)] ARRAY [1..6] OF $UBYTE; ); 3: ();G 4: (UID$l_timeLow : [POS(0)] UNSIGNED; (* Low order 32 bits of time *)I UID$w_timeMid : [POS(32)] $UWORD; (* Middle order 16 bits of time *)S UID$b_clockSeqLow : [POS(72)] $UBYTE; (* Low order 8 bits of clock sequence *)M UID$w_nodeHi : [POS(80)] $UWORD; (* High order 16 bits of node number *)O UID$l_nod eLow : [POS(96)] UNSIGNED; (* Low order 32 bits of node number *) );T 5: (UID$w_timeHiAndVersion : [POS(48)] $UWORD; (* High order 12 bits of time and *)^ UID$b_clockSeqHiAndReserved : [POS(64)] $UBYTE; (* High order 6 bits of clock sequence *) ); 6: ();G 7: ( (* 4 bits of version *)G UID$v_timeHi : [POS(48)] $BIT12; (* High order 12 bits of time *)G UID$V_Version : [POS(60)] $BIT4; (* 4 bits of version *)G  (* and 2 reserved bits *)R UID$v_clockSeqHi : [POS(64)] $BIT6; (* High order 6 bits of clock sequence *)G UID$V_Reserved : [POS(70)] $BIT2; (* 2 bits of reserved *) ) END; (*** MODULE $USGDEF ***) N(*+ *)N(* Disk usage accounting file produced by ANALYZE/DISK_STRUCTURE utility. *)N(*-  *) LCONST USG$K_IDENT = 1; (* Identification record *)G USG$K_FILE = 2; (* File record *)G USG$K_IDENT_LEN = 61; (* Length of IDENT record *)G USG$C_IDENT_LEN = 61; (* Length of IDENT record *) TYPE USG$TYPE = RECORDG USG$B_TYPE : $UBYTE; (* Record type *)G USG$L_SERIALNUM : UNSIGNED; (* Pack serial number *)K USG$T_STR UCNAME : PACKED ARRAY [1..12] OF CHAR; (* Volume set name *)G USG$T_VOLNAME : PACKED ARRAY [1..12] OF CHAR; (* Volume name *)M USG$T_OWNERNAME : PACKED ARRAY [1..12] OF CHAR; (* Volume owner name *)K USG$T_FORMAT : PACKED ARRAY [1..12] OF CHAR; (* Volume format type *)K (* *** Preceding same as home block *** *)G USG$Q_TIME : $UQUAD; (* Time usage file created *) END; LCONST USG$K_FILE_LEN = 423; (* Maxim um length of FILE record *)G USG$C_FILE_LEN = 423; (* Maximum length of FILE record *) 'TYPE USG1$TYPE = RECORD CASE INTEGER OF 1: (USGDEF$$_FILL_1 : $BYTE;4 USG$R_FILEOWNER_OVERLAY : [BYTE(4)] RECORD END;K USG$L_ALLOCATED : UNSIGNED; (* Blocks allocated, including headers *)G USG$L_USED : UNSIGNED; (* Blocks used *)G USG$W_DIR_LEN : $UWORD; (* Length of directory string *)M USG$W_SPEC_LEN : $UWORD; (* Length of complete file specification *)X USG$T_FILESPEC : PACKED ARRAY [1..406] OF CHAR; (* File spec "[dir]nam.typ;ver" *) );G 2: (USG$L_FILEOWNER : [POS(8)] UNSIGNED; (* File owner UIC *) ); 3: ();G 4: (USG$W_UICMEMBER : [POS(8)] $UWORD; (* UIC member number *)G USG$W_UICGROUP : [POS(24)] $UWORD; (* UIC group number *) ) END; (*** MODULE $USRIDEF ***) N(*  *)N(* User image bit definitions *)N(* *)N(* *) CONST USRI$M_DBG_MAPPED = 1; 'TYPE USRI$TYPE = RECORD CASE INTEGER OF- 1: (USRI$R_USRI_BITS : [BYTE(1)] RECORD END; );G 2: (USRI$V_DBG_MAPPED : [POS(0)] $BOOL; (* Debugger is now mapped *) ) END; (*** MODULE $VADEF ***) N(*+ *)N(* VIRTUAL ADDRESS VIELDS *)N(*- *) CONST VA$M_P1 = 1073741824; VA$M_SYSTEM = -2147483648; VA$M_BYTES_PER_PAGELET = 511; VA$M_BYTE_IN_PAGELET = 511; VA$M_VRN = 0;G VA$C_VRN_SYSTEM = 7; (* VRN for system space *)G VA$C_REGION_COUNT = 8; (* Number of virtual regions *) VA$M_VRNX = 0;G VA$C_VRNX_SYSTEM = 15; (* VRNX for system space *)G VA$C_VRNX_COUNT = 16; (* Number of virtual address spaces *) VA$S_VADEF = 8; VA$C_PAGELET_SIZE = 512; VA$C_PAGELET_SHIFT_SIZE = 9; %TYPE VA$TYPE = RECORD CASE INTEGER OF- 1: (VA$R_VADEF_UNION : [BYTE(8)] RECORD END; );! 2: (VA$Q_QUAD : [POS(0)] $UQUAD; ); 3: ();G 4: (VA$V_P1 : [POS(30)] $BOOL; (*P1 SPACE *)G  VA$V_SYSTEM : [POS(31)] $BOOL; (*SYSTEM SPACE *) ); 5: ();G 6: (VA$V_BYTES_PER_PAGELET : [POS(0)] $BIT9; (*BYTES PER PAGELET *) ); 7: ();N 8: (VA$V_BYTE_IN_PAGELET : [POS(0)] $BIT9; (*BYTE IN PAGELET (common name) *) ); 9: ();G 10: (VA$V_VRN : [POS(61)] $BIT3; (* Virtual Region Number *) ); 11: ();G 12: (VA$V_VRNX : [POS(60)] $BIT4; (* Virtual Address Space *) ) END; N(*+  *)N(* Process permanent region ids *)N(*- *) OCONST VA$C_P0 = 0; (* Region id for 32-bit program region *)G VA$C_P1 = 1; (* Region id for control region *)K VA$C_P2 = 2; (* Region id for 64-bit program region *) VA$M_DESCEND = 1; VA$M_P0_SPACE = 2; VA$M_P1_SPACE = 4; VA$M_PERMANENT = 8; VA$M_EXPAND_ON_ACCVIO = 16; VA$M_SHARED_PTS = 64; VA$M_OWNER_MODE = 15; VA$M_CREATE_MODE = 240; VA$C_REGSUM_LENGTH = 40; VA$_REGSUM_BY_ID = 0; VA$_REGSUM_BY_VA = 1; VA$_NEXT_REGSUM_BY_VA = 2; N(*+ *) $CONST VA$C_REGION_UCREATE_UOWN = 51; VA$C_REGION_UCREATE_SOWN = 50; VA$C_REGION_UCREATE_EOWN = 49; VA$C_REGION_UCREATE_KOWN = 48; VA$C_REGION_SCREATE_SOWN = 34; VA$C_REGI ON_SCREATE_EOWN = 33; VA$C_REGION_SCREATE_KOWN = 32; VA$C_REGION_ECREATE_EOWN = 17; VA$C_REGION_ECREATE_KOWN = 16; VA$C_REGION_KCREATE_KOWN = 0; )TYPE REGSUM$TYPE = RECORD CASE INTEGER OFG 1: (VA$Q_REGION_ID : $UQUAD; (* Id of region *)/ VA$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END;- VA$R_REGION_PROT : [BYTE(4)] RECORD END;0 VA$R_START_VA_UNION : [BYTE(8)] RECORD END;3 VA$R_REGION_SIZE_UNION : [BYTE(8)] RECORD END;/ VA$R_FREE_VA_UNION : [BYTE(8)] RECORD END;G (* Region protection encodings *)G (*- *) );G 2: (VA$L_FLAGS : [POS(64)] UNSIGNED; (* FLAGS longword *)0 VA$L_REGION_PROTECTION : [POS(96)] INTEGER;G VA$PQ_START_VA : [POS(128)] $QUAD; (* Lowest address in region *)G VA$Q_REGION_SIZE : [POS(192)] $UQUAD; (* Size of region *)J VA$PQ_FIRST_FREE_VA : [POS(256)] $QUAD; (* Fi rst free VA in region *) );P 3: (VA$PS_START_VA : [POS(128)] UNSIGNED; (* Lowest address in 32-bit region *)H VA$L_REGION_SIZE : [POS(192)] UNSIGNED; (* Size of 32-bit region *)T VA$PS_FIRST_FREE_VA : [POS(256)] UNSIGNED; (* First free VA in 32-bit region *) );G 4: (VA$V_DESCEND : [POS(64)] $BOOL; (* Region is descending *)G VA$V_P0_SPACE : [POS(65)] $BOOL; (* Region is in P0 space *)G VA$V_P1_SPACE : [POS(66)] $BOOL; (* Region is in P1 space * )G VA$V_PERMANENT : [POS(67)] $BOOL; (* Region is permanent *)R VA$V_EXPAND_ON_ACCVIO : [POS(68)] $BOOL; (* Expand within region on accvio *)G (* public interface. *)J VA$V_SHARED_PTS : [POS(70)] $BOOL; (* Region is a shared PT region *)G VA$V_OWNER_MODE : [POS(96)] $BIT4; (* Region owner mode *)G VA$V_CREATE_MODE : [POS(100)] $BIT4; (* Region create mode *) ) END; N(*+  *)N(* VA flags *)N(*- *) CONST VA$M_NO_OVERMAP = 1; TYPE VA_FLAGS$TYPE = RECORDP VA$V_NO_OVERMAP : [POS(0)] $BOOL; (* Do not overmap while creating pages *)$ VA$V_FILL_77_ : [POS(1)] $BIT7; END; N(*+ *)N(* SETSTK_64 flags *)N(*- *) CONST VA$M_SETSTK_REGISTER = 1; TYPE SETSTK_FLAGS$TYPE = RECORDK VA$V_SETSTK_REGISTER : [POS(0)] $BOOL; (* Set register stack limits *)$ VA$V_FILL_78_ : [POS(1)] $BIT7; END; (*** MODULE $VA_RANGEDEF ***) N(*+ *)N(* Define the 32-bit virtual address range structure. *)N(*- *) TYPE VA_RANGE$TYPE = RECORDG VA_RANGE$PS_START_VA : UNSIGNED; (* Starting virtual address *)G VA_RANGE$PS_END_VA : UNSIGNED; (* Ending (last) virtual address *) END; LCONST VA_RANGE$K_LENGTH = 8; (* Length of VA_RANGE structure *)G VA_RANGE$C_LENGTH = 8; (* Length of VA_RANGE structure *) (*** MODULE $VAXDEF ***) CONST VAX$C_V780 = 1; VAX$K_V780 = 1; VAX$C_V782 = 2; VAX$K_V782 = 2; VAX$C_V750 = 3; VAX$K_V750 = 3; VAX$C_V730 = 4; VAX$K_V730 = 4; VAX$C_V785 = 5; VAX$K_V785 = 5; VAX$C_VUV1 = 6; VAX$K_VUV1 = 6; VAX$C_VWS1 = 7; VAX$K_VWS1 = 7; VAX$C_VUV2 = 8; VAX$K_VUV2 = 8; VAX$C_VWS2 = 9; VAX$K_VWS2 = 9; VAX$C_VWSD = 10; VAX$K_VWSD = 10; VAX$C_V8600 = 11; VAX$K_V8600 = 11; VAX$C_V8650 = 12; VAX$K_V8650 = 12; VAX$C_V8200 = 13; VAX$K_V8200 = 13; VAX$C_V8300 = 14; VAX$K_V8300 = 14; VAX$C_V8530 = 15; VAX$K_V8530 = 15; VAX$C_V8550 = 16; VAX$K_V8550 = 16; VAX$C_V8700 = 17; VAX$K_V8700 = 17; VAX$C_V8800 = 18; VAX$K_V8800 = 18; VAX$C_VWS2000 = 19; VAX$K_VWS2000 = 19; VAX$C_VUV2000 = 20; VAX$K_VUV2000 = 20; VAX$C_VWSD2000 = 21; VAX$K_VWSD2000 = 21; VAX$C_V009 = 22; VAX$K_V009 = 22; VAX$C_V8250 = 23; VAX$K_V8250 = 23; VAX$C_V8350 = 24; VAX$K_V8350 = 24; VAX$C_V3600 = 25; VAX$K_V3600 = 25; VAX$C_V3600W = 26; VAX$K_V3600W = 26; VAX$C_V3600D = 27; VAX$K_V3600D = 27; VAX$K_V9CC = 28; VAX$C_V9CC = 28; VAX$K_V6210_T = 28; VAX$C_V6210_T = 28; VAX$K_V6210 = 28; VAX$C_V6210 = 28; VAX$C_V3520 = 29; VAX$K_V3520 = 29; VAX$C_V3520L = 30; VAX$K_V3520L = 30; VAX$K_V8PS = 31; VAX$C_V8PS = 31; VAX$K_V8840 = 31; VAX$C_V8840 = 31; VAX$K_V9RR = 32; VAX$C_V9RR = 32; VAX$K_VUV2_S = 33; VAX$C_VUV2_S = 33; VAX$K_VUV2_J = 34; VAX$C_VUV2_J = 34; VAX$K_VWS2_T = 35; VAX$C_VWS2_T = 35; VAX$K_VWS2_J = 36; VAX$C_VWS2_J = 36; VAX$K_VWSD_T = 37; VAX$C_VWSD_T = 37; VAX$K_VWSD_J = 38; VAX$C_VWSD_J = 38; VAX$K_VUV2000_S = 39; VAX$C_VUV2000_S = 39; VAX$K_VUV2000_J = 40; VAX$C_VUV2000_J = 40; VAX$K_VWS2000_T = 41; VAX$C_VWS2000_T = 41; VAX$K_VWS2000_J = 42; VAX$C_VWS2000_J = 42; VAX$K_VWSD2000_T = 43; VAX$C_VWSD2000_T = 43; VAX$K_VWSD2000_J = 44; VAX$C_VWSD2000_J = 44; VAX$K_V3600_S = 45; VAX$C_V3600_S = 45; VAX$K_V3600_J = 46; VAX$C_V3600_J = 46; VAX$K_V3600W_T = 47; VAX$C_V3600W_T = 47; VAX$K_V3600W_J = 48; VAX$C_V3600W_J = 48; VAX$K_V3600D_T = 49; VAX$C_V3600D_T = 49; VAX$K_V3600D_J = 50; VAX$C_V3600D_J = 50; VAX$K_V3520_S = 51; VAX$C_V3520_S = 51; VAX$K_V3520_J = 52; VAX$C_V3520_J = 52; VAX$K_V3520L_T = 53; VAX$C_V3520L_T = 53; VAX$K_V3520L_J = 54; VAX$C_V3520L_J = 54; VAX$K_V8250L = 55; VAX$C_V8250L = 55; VAX$K_V8250L_J = 56; VAX$C_V8250L_J = 56; VAX$K_VCV = 57; VAX$C_VCV = 57; VAX$K_VCVWS = 58; VAX$C_VCVWS = 58; VAX$K_VCVWSD = 59; VAX$C_VCVWSD = 59; VAX$K_VCV_S = 60; VAX$C_VCV_S = 60; VAX$K_VCV_J = 61; VAX$C_VCV_J = 61; VAX$K_VCVWS_T = 62; VAX$C_VCVWS_T = 62; VAX$K_VCVWS_J = 63; VAX$C_VCVWS_J = 63; VAX$K_VCVWSD_T = 64; VAX$C_VCVWSD_T = 64; VAX$K_VCVWSD_J = 65; VAX$C_VCVWSD_J = 65; VAX$C_V8500 = 66; VAX$K_V8500 = 66; VAX$K_V8370 = 67; VAX$C_V8370 = 67; VAX$K_V8650P = 68; VAX$C_V8650P = 68; VAX$K_V6220_T = 69; VAX$C_V6220_T = 69; VAX$K_V6220 = 69; VAX$C_V6220 = 69; VAX$K_V6230_T = 70; VAX$C_V6230_T = 70; VAX$K_V6230 = 70; VAX$C_V6230 = 70; VAX$K_V6240_T = 71; VAX$C_V6240_T = 71; VAX$K_V6240 = 71; VAX$C_V6240 = 71; VAX$K_V6250_T = 72; VAX$C_V6250_T = 72; VAX$K_V6250 = 72; VAX$C_V6250 = 72; VAX$K_V6260_T = 73; VAX$C_V6260_T = 73; VAX$K_V6260 = 73; VAX$C_V6260 = 73; VAX$K_V6270_T = 74; VAX$C_V6270_T = 74; VAX$K_V6270 = 74; VAX$C_V6270 = 74; VAX$K_V6280_T = 75; VAX$C_V6280_T = 75; VAX$K_V6280 = 75; VAX$C_V6280 = 75; VAX$K_V6310_T = 76; VAX$C_V6310_T = 76; VAX$K_V6215 = 76; VAX$C_V6215 = 76; VAX$K_V6320_T = 77; VAX$C_V6320_T = 77; VAX$K_V6225 = 77; VAX$C_V6225 = 77; VAX$K_V6330_T = 78; VAX$C_V6330_T = 78; VAX$K_V6235 = 78; VAX$C_V6235 = 78; VAX$K_V6340_T = 79; VAX$C_V6340_T = 79; VAX$K_V6245 = 79; VAX$C_V6245 = 79; VAX$K_V6350_T = 80; VAX$C_V6350_T = 80; VAX$K_V6255 = 80; VAX$C_V6255 = 80; VAX$K_V6360_T = 81; VAX$C_V6360_T = 81; VAX$K_V6265 = 81; VAX$C_V6265 = 81; VAX$K_V6370_T = 82; VAX$C_V6370_T = 82; VAX$K_V6275 = 82; VAX$C_V6275 = 82; VAX$K_V6380_T = 83; VAX$C_V6380_T = 83; VAX$K_V6285 = 83; VAX$C_V6285 = 83; VAX$K_V8810 = 84; VAX$C_V8810 = 84; VAX$K_V8820 = 85; VAX$C_V8820 = 85; VAX$K_V8830 = 86; VAX$C_V8830 = 86; VAX$C_V3400 = 87; VAX$K_V3400 = 87; VAX$C_V3400W = 88; VAX$K_V3400W = 88; VAX$C_V3400D = 89; VAX$K_V3400D = 89; VAX$K_V3400_S = 90; VAX$C_V3400_S = 90; VAX$K_V3400_J = 91; VAX$C_V3400_J = 91; VAX$K_V3400W_T = 92; VAX$C_V3400W_T = 92; VAX$K_V3400W_J = 93; VAX$C_V3400W_J = 93; VAX$K_V3400D_T = 94; VAX$C_V3400D_T = 94; VAX$K_V3400D_J = 95; VAX$C_V3400D_J = 95; VAX$K_VUV2000_O = 96; VAX$C_VUV2000_O = 96; VAX$K_VWS2000_O = 97; VAX$C_VWS2000_O = 97; VAX$K_VWSD2000_O = 98; VAX$C_VWSD2000_O = 98; VAX$C_VWSK2000 = 99; VAX$K_VWSK2000 = 99; VAX$K_V6210_S = 100; VAX$C_V6210_S = 100; VAX$K_V6220_S = 101; VAX$C_V6220_S = 101; VAX$K_V6230_S = 102; VAX$C_V6230_S = 102; VAX$K_V6240_S = 103; VAX$C_V6240_S = 103; VAX$K_V6250_S = 104; VAX$C_V6250_S = 104; VAX$K_V6260_S = 105; VAX$C_V6260_S = 105; VAX$K_V6270_S = 106; VAX$C_V6270_S = 106; VAX$K_V6280_S = 107; VAX$C_V6280_S = 107; VAX$K_V6310_S = 108; VAX$C_V6310_S = 108; VAX$K_V6215_S = 108; VAX$C_V6215_S = 108; VAX$K_V6320_S = 109; VAX$C_V6320_S = 109; VAX$K_V6225_S = 109; VAX$C_V6225_S = 109; VAX$K_V6330_S = 110; VAX$C_V6330_S = 110; VAX$K_V6235_S = 110; VAX$C_V6235_S = 110; VAX$K_V6340_S = 111; VAX$C_V6340_S = 111; VAX$K_V6245_S = 111; VAX$C_V6245_S = 111; VAX$K_V6350_S = 112; VAX$C_V6350_S = 112; VAX$K_V6255_S = 112; VAX$C_V6255_S = 112; VAX$K_V6360_S = 113; VAX$C_V6360_S = 113; VAX$K_V6265_S = 113; VAX$C_V6265_S = 113; VAX$K_V6370_S = 114; VAX$C_V6370_S = 114; VAX$K_V6275_S = 114; VAX$C_V6275_S = 114; VAX$K_V6380_S = 115; VAX$C_V6380_S = 115; VAX$K_V6285_S = 115; VAX$C_V6285_S = 115; VAX$K_V6200_J = 116; VAX$C_V6200_J = 116; VAX$K_V6300_J = 117; VAX$C_V6300_J = 117; VAX$K_V6205_J = 117; VAX$C_V6205_J = 117; VAX$C_V3900 = 118; VAX$K_V3900 = 118; VAX$K_V3900_S = 119; VAX$C_V3900_S = 119; VAX$C_V3900D = 120; VAX$K_V3900D = 120; VAX$K_V3900D_T = 121; VAX$C_V3900D_T = 121; VAX$K_V3900_J = 122; VAX$C_V3900_J = 122; VAX$K_V3900D_J = 123; VAX$C_V3900D_J = 123; VAX$C_V2000A = 124; VAX$K_V2000A = 124; VAX$K_V2000A_S = 125; VAX$C_V2000A_S = 125; VAX$C_V2000AW = 126; VAX$K_V2000AW = 126; VAX$C_V2000AD = 127; VAX$K_V2000AD = 127; VAX$K_V2000AW_T = 128; VAX$C_V2000AW_T = 128; VAX$K_V2000AD_T = 129; VAX$C_V2000AD_T = 129; VAX$K_V2000A_J = 130; VAX$C_V2000A_J = 130; VAX$K_V2000AW_J = 131; VAX$C_V2000AW_J = 131; VAX$K_V2000AD_J = 132; VAX$C_V2000AD_J = 132; VAX$C_V3540 = 133; VAX$K_V3540 = 133; VAX$K_V3540_S = 134; VAX$C_V3540_S = 134; VAX$C_V3540L = 135; VAX$K_V3540L = 135; VAX$K_V3540L_T = 136; VAX$C_V3540L_T = 136; VAX$C_V3560 = 137; VAX$K_V3560 = 137; VAX$K_V3560_S = 138; VAX$C_V3560_S = 138; VAX$C_V3560L = 139; VAX$K_V3560L = 139; VAX$K_V3560L_T = 140; VAX$C_V3560L_T = 140; VAX$C_V3580 = 141; VAX$K_V3580 = 141; VAX$K_V3580_S = 142; VAX$C_V3580_S = 142; VAX$C_V3580L = 143; VAX$K_V3580L = 143; VAX$K_V3580L_T = 144; VAX$C_V3580L_T = 144; VAX$C_V35A0 = 145; VAX$K_V35A0 = 145; VAX$K_V35A0_S = 146; VAX$C_V35A0_S = 146; VAX$K_VPV = 147; VAX$C_VPV = 147; VAX$K_VPVWS = 148; VAX$C_VPVWS = 148; VAX$K_VPVWSD = 149; VAX$C_VPVWSD = 149; VAX$K_VPV_S = 150; VAX$C_VPV_S = 150; VAX$K_VPV_J = 151; VAX$C_VPV_J = 151; VAX$K_VPVWS_T = 152; VAX$C_VPVWS_T = 152; VAX$K_VPVWS_J = 153; VAX$C_VPVWS_J = 153; VAX$K_VPVWSD_T = 154; VAX$C_VPVWSD_T = 154; VAX$K_VPVWSD_J = 155; VAX$C_VPVWSD_J = 155; VAX$K_VTM = 156; VAX$C_VTM = 156; VAX$K_VTM_S = 157; VAX$C_VTM_S = 157; VAX$K_VTM_J = 158; VAX$C_VTM_J = 158; VAX$K_V9RR10_T = 159; VAX$C_V9RR10_T = 159; VAX$K_V9RR20_T = 160; VAX$C_V9RR20_T = 160; VAX$K_V9RR30_T = 161; VAX$C_V9RR30_T = 161; VAX$K_V9RR40_T = 162; VAX$C_V9RR40_T = 162; VAX$K_V9RR50_T = 163; VAX$C_V9RR50_T = 163; VAX$K_V9RR60_T = 164; VAX$C_V9RR60_T = 164; VAX$K_V9RR70_T = 165; VAX$C_V9RR70_T = 165; VAX$K_V9RR80_T = 166; VAX$C_V9RR80_T = 166; VAX$K_V9RR10_S = 167; VAX$C_V9RR10_S = 167; VAX$K_V9RR20_S = 168; VAX$C_V9RR20_S = 168; VAX$K_V9RR30_S = 169; VAX$C_V9RR30_S = 169; VAX$K_V9RR40_S = 170; VAX$C_V9RR40_S = 170; VAX$K_V9RR50_S = 171; VAX$C_V9RR50_S = 171; VAX$K_V9RR60_S = 172; VAX$C_V9RR60_S = 172; VAX$K_V9RR70_S = 173; VAX$C_V9RR70_S = 173; VAX$K_V9RR80_S = 174; VAX$C_V9RR80_S = 174; VAX$K_V9RR10_J = 175; VAX$C_V9RR10_J = 175; VAX$K_V9AR10 = 176; VAX$C_V9AR10 = 176; VAX$K_V9AR20 = 177; VAX$C_V9AR20 = 177; VAX$K_V9AQ10 = 178; VAX$C_V9AQ10 = 178; VAX$K_V9AQ20 = 179; VAX$C_V9AQ20 = 179; VAX$K_V9AQ30 = 180; VAX$C_V9AQ30 = 180; VAX$K_V9AQ40 = 181; VAX$C_V9AQ40 = 181; VAX$K_V6305E_T = 182; VAX$C_V6305E_T = 182; VAX$K_V6305E_S = 183; VAX$C_V6305E_S = 183; VAX$K_V6305E_J = 184; VAX$C_V6305E_J = 184; VAX$K_V1202_1T = 185; VAX$C_V1202_1T = 185; VAX$K_V1202_2T = 186; VAX$C_V1202_2T = 186; VAX$K_V1202_3T = 187; VAX$C_V1202_3T = 187; VAX$K_V1202_4T = 188; VAX$C_V1202_4T = 188; VAX$K_V1202_5T = 189; VAX$C_V1202_5T = 189; VAX$K_V1202_6T = 190; VAX$C_V1202_6T = 190; VAX$K_V1202_7T = 191; VAX$C_V1202_7T = 191; VAX$K_V1202_8T = 192; VAX$C_V1202_8T = 192; VAX$K_V1202_1S = 193; VAX$C_V1202_1S = 193; VAX$K_V1202_2S = 194; VAX$C_V1202_2S = 194; VAX$K_V1202_3S = 195; VAX$C_V1202_3S = 195; VAX$K_V1202_4S = 196; VAX$C_V1202_4S = 196; VAX$K_V1202_5S = 197; VAX$C_V1202_5S = 197; VAX$K_V1202_6S = 198; VAX$C_V1202_6S = 198; VAX$K_V1202_7S = 199; VAX$C_V1202_7S = 199; VAX$K_V1202_8S = 200; VAX$C_V1202_8S = 200; VAX$K_V1202_1J = 201; VAX$C_V1202_1J = 201; VAX$K_VPV2M_S = 202; VAX$C_VPV2M_S = 202; VAX$K_VPV2M_T = 203; VAX$C_VPV2M_T = 203; VAX$K_VPV2M_J = 204; VAX$C_VPV2M_J = 204; VAX$K_VPV2C_S = 205; VAX$C_VPV2C_S = 205; VAX$K_VPV2C_T = 206; VAX$C_VPV2C_T = 206; VAX$K_VPV2C_J = 207; VAX$C_VPV2C_J = 207; VAX$K_VPV2_S = 208; VAX$C_VPV2_S = 208; VAX$K_VPV2_T = 209; VAX$C_VPV2_T = 209; VAX$K_VPV2_J = 210; VAX$C_VPV2_J = 210; VAX$K_V4500 = 211; VAX$C_V4500 = 211; VAX$C_V670 = 211; VAX$K_V670 = 211; VAX$K_V4500_S = 212; VAX$C_V4500_S = 212; VAX$K_V670_S = 212; VAX$C_V670_S = 212; VAX$K_V4500_J = 213; VAX$C_V4500_J = 213; VAX$K_V670_J = 213; VAX$C_V670_J = 213; VAX$K_V520FT = 214; VAX$C_V520FT = 214; VAX$K_VRMAXM_S = 215; VAX$C_VRMAXM_S = 215; VAX$K_VRMAXM_T = 216; VAX$C_VRMAXM_T = 216; VAX$K_VRMAXM_J = 217; VAX$C_VRMAXM_J = 217; VAX$K_VRMAXS_S = 218; VAX$C_VRMAXS_S = 218; VAX$K_VRMAXS_T = 219; VAX$C_VRMAXS_T = 219; VAX$K_VRMAXS_J = 220; VAX$C_VRMAXS_J = 220; VAX$K_VRMAX_S = 221; VAX$C_VRMAX_S = 221; VAX$K_VRMAX_T = 222; VAX$C_VRMAX_T = 222; VAX$K_VRMAX_J = 223; VAX$C_VRMAX_J = 223; VAX$K_VRMAXD_S = 224; VAX$C_VRMAXD_S = 224; VAX$K_VRMAXD_T = 225; VAX$C_VRMAXD_T = 225; VAX$K_VRMAXD_J = 226; VAX$C_VRMAXD_J = 226; VAX$K_VPV0S_S = 227; VAX$C_VPV0S_S = 227; VAX$K_VPV0S_T = 228; VAX$C_VPV0S_T = 228; VAX$K_VPV0S_J = 229; VAX$C_VPV0S_J = 229; VAX$K_VPV1S_S = 230; VAX$C_VPV1S_S = 230; VAX$K_VPV1S_T = 231; VAX$C_VPV1S_T = 231; VAX$K_VPV1S_J = 232; VAX$C_VPV1S_J = 232; VAX$K_VPV2S_S = 233; VAX$C_VPV2S_S = 233; VAX$K_VPV2S_T = 234; VAX$C_VPV2S_T = 234; VAX$K_VPV2S_J = 235; VAX$C_VPV2S_J = 235; VAX$K_VKA46M_S = 236; VAX$C_VKA46M_S = 236; VAX$K_VKA46M_T = 237; VAX$C_VKA46M_T = 237; VAX$K_VKA46M_J = 238; VAX$C_VKA46M_J = 238; VAX$K_VKA46C_S = 239; VAX$C_VKA46C_S = 239; VAX$K_VKA46C_T = 240; VAX$C_VKA46C_T = 240; VAX$K_VKA46C_J = 241; VAX$C_VKA46C_J = 241; VAX$K_VKA46S_S = 242; VAX$C_VKA46S_S = 242; VAX$K_VKA46S_T = 243; VAX$C_VKA46S_T = 243; VAX$K_VKA46S_J = 244; VAX$C_VKA46S_J = 244; VAX$K_VKA46_S = 245; VAX$C_VKA46_S = 245; VAX$K_VKA46_T = 246; VAX$C_VKA46_T = 246; VAX$K_VKA46_J = 247; VAX$C_VKA46_J = 247; VAX$C_V660 = 248; VAX$K_V660 = 248; VAX$K_V660_S = 249; VAX$C_V660_S = 249; VAX$K_V660_J = 250; VAX$C_V660_J = 250; VAX$C_V3820 = 251; VAX$K_V3820 = 251; VAX$C_V3820L = 252; VAX$K_V3820L = 252; VAX$K_V3820_S = 253; VAX$C_V3820_S = 253; VAX$K_V3820_J = 254; VAX$C_V3820_J = 254; VAX$K_V3820L_T = 255; VAX$C_V3820L_T = 255; VAX$K_V3820L_J = 256; VAX$C_V3820L_J = 256; VAX$C_V3840 = 257; VAX$K_V3840 = 257; VAX$K_V3840_S = 258; VAX$C_V3840_S = 258; VAX$C_V3840L = 259; VAX$K_V3840L = 259; VAX$K_V3840L_T = 260; VAX$C_V3840L_T = 260; VAX$C_V3860 = 261; VAX$K_V3860 = 261; VAX$K_V3860_S = 262; VAX$C_V3860_S = 262; VAX$C_V3860L = 263; VAX$K_V3860L = 263; VAX$K_V3860L_T = 264; VAX$C_V3860L_T = 264; VAX$C_V3880 = 265; VAX$K_V3880 = 265; VAX$K_V3880_S = 266; VAX$C_V3880_S = 266; VAX$C_V3880L = 267; VAX$K_V3880L = 267; VAX$K_V3880L_T = 268; VAX$C_V3880L_T = 268; VAX$C_V38A0 = 269; VAX$K_V38A0 = 269; VAX$K_V38A0_S = 270; VAX$C_V38A0_S = 270; VAX$C_VPV1A = 271; VAX$K_VPV1A = 271; VAX$C_VPV1AW = 272; VAX$K_VPV1AW = 272; VAX$C_VPV1AD = 273; VAX$K_VPV1AD = 273; VAX$C_VPV1A_S = 274; VAX$K_VPV1A_S = 274; VAX$K_VPV1A_J = 275; VAX$C_VPV1A_J = 275; VAX$K_VPV1AW_T = 276; VAX$C_VPV1AW_T = 276; VAX$K_VPV1AW_J = 277; VAX$C_VPV1AW_J = 277; VAX$K_VPV1AD_T = 278; VAX$C_VPV1AD_T = 278; VAX$K_VPV1AD_J = 279; VAX$C_VPV1AD_J = 279; VAX$K_VPV1AS = 280; VAX$C_VPV1AS = 280; VAX$K_VPV1AS_T = 281; VAX$C_VPV1AS_T = 281; VAX$K_VPV1AS_J = 282; VAX$C_VPV1AS_J = 282; VAX$C_V690 = 283; VAX$K_V690 = 283; VAX$K_V690_S = 284; VAX$C_V690_S = 284; VAX$K_V690_J = 285; VAX$C_V690_J = 285; VAX$C_V680 = 286; VAX$K_V680 = 286; VAX$K_V680_S = 287; VAX$C_V680_S = 287; VAX$K_V680_J = 288; VAX$C_V680_J = 288; VAX$K_V520FT_S = 289; VAX$C_V520FT_S = 289; VAX$K_VFT110_T = 290; VAX$C_VFT110_T = 290; VAX$K_VFT110_S = 291; VAX$C_VFT110_S = 291; VAX$K_VFT210_T = 292; VAX$C_VFT210_T = 292; VAX$K_VFT210_S = 293; VAX$C_VFT210_S = 293; VAX$K_V1302_1T = 294; VAX$C_V1302_1T = 294; VAX$K_V1302_2T = 295; VAX$C_V1302_2T = 295; VAX$K_V1302_3T = 296; VAX$C_V1302_3T = 296; VAX$K_V1302_4T = 297; VAX$C_V1302_4T = 297; VAX$K_V1302_5T = 298; VAX$C_V1302_5T = 298; VAX$K_V1302_6T = 299; VAX$C_V1302_6T = 299; VAX$K_V1302_7T = 300; VAX$C_V1302_7T = 300; VAX$K_V1302_8T = 301; VAX$C_V1302_8T = 301; VAX$K_V1302_1S = 302; VAX$C_V1302_1S = 302; VAX$K_V1302_2S = 303; VAX$C_V1302_2S = 303; VAX$K_V1302_3S = 304; VAX$C_V1302_3S = 304; VAX$K_V1302_4S = 305; VAX$C_V1302_4S = 305; VAX$K_V1302_5S = 306; VAX$C_V1302_5S = 306; VAX$K_V1302_6S = 307; VAX$C_V1302_6S = 307; VAX$K_V1302_7S = 308; VAX$C_V1302_7S = 308; VAX$K_V1302_8S = 309; VAX$C_V1302_8S = 309; VAX$K_V1302_1J = 310; VAX$C_V1302_1J = 310; VAX$K_V9AQII10 = 311; VAX$C_V9AQII10 = 311; VAX$K_V9AQII20 = 312; VAX$C_V9AQII20 = 312; VAX$K_V9AQII30 = 313; VAX$C_V9AQII30 = 313; VAX$K_V9AQII40 = 314; VAX$C_V9AQII40 = 314; VAX$K_V9ARII10 = 315; VAX$C_V9ARII10 = 315; VAX$K_V9ARII20 = 316; VAX$C_V9ARII20 = 316; VAX$K_V9AQIII10 = 317; VAX$C_V9AQIII10 = 317; VAX$K_V9AQIII20 = 318; VAX$C_V9AQIII20 = 318; VAX$K_V9AQIII30 = 319; VAX$C_V9AQIII30 = 319; VAX$K_V9AQIII40 = 320; VAX$C_V9AQIII40 = 320; VAX$K_V9ARIII10 = 321; VAX$C_V9ARIII10 = 321; VAX$K_V9ARIII20 = 322; VAX$C_V9ARIII20 = 322; VAX$K_VFT410_T = 323; VAX$C_VFT410_T = 323; VAX$K_VFT410_S = 324; VAX$C_VFT410_S = 324; VAX$K_VFT510_T = 325; VAX$C_VFT510_T = 325; VAX$K_VFT510_S = 326; VAX$C_VFT510_S = 326; VAX$K_VFT610_T = 327; VAX$C_VFT610_T = 327; VAX$K_VFT610_S = 328; VAX$C_VFT610_S = 328; VAX$K_VFT612_T = 329; VAX$C_VFT612_T = 329; VAX$K_VFT612_S = 330; VAX$C_VFT612_S = 330; VAX$K_VFT710_T = 331; VAX$C_VFT710_T = 331; VAX$K_VFT710_S = 332; VAX$C_VFT710_S = 332; VAX$K_VFT712_T = 333; VAX$C_VFT712_T = 333; VAX$K_VFT712_S = 334; VAX$C_VFT712_S = 334; VAX$K_VKA48_T = 335; VAX$C_VKA48_T = 335; VAX$K_VKA48_S = 336; VAX$C_VKA48_S = 336; VAX$K_VKA48_J = 337; VAX$C_VKA48_J = 337; VAX$K_VKA48W_T = 338; VAX$C_VKA48W_T = 338; VAX$K_VKA48W_S = 339; VAX$C_VKA48W_S = 339; VAX$K_VKA48W_J = 340; VAX$C_VKA48W_J = 340; VAX$K_V9AR10_S = 341; VAX$C_V9AR10_S = 341; VAX$K_V9AR20_S = 342; VAX$C_V9AR20_S = 342; VAX$K_V9AQ10_S = 343; VAX$C_V9AQ10_S = 343; VAX$K_V9AQ20_S = 344; VAX$C_V9AQ20_S = 344; VAX$K_V9AQ30_S = 345; VAX$C_V9AQ30_S = 345; VAX$K_V9AQ40_S = 346; VAX$C_V9AQ40_S = 346; VAX$K_V9ARII10_S = 347; VAX$C_V9ARII10_S = 347; VAX$K_V9ARII20_S = 348; VAX$C_V9ARII20_S = 348; VAX$K_V9AQII10_S = 349; VAX$C_V9AQII10_S = 349; VAX$K_V9AQII20_S = 350; VAX$C_V9AQII20_S = 350; VAX$K_V9AQII30_S = 351; VAX$C_V9AQII30_S = 351; VAX$K_V9AQII40_S = 352; VAX$C_V9AQII40_S = 352; VAX$K_V9ARIII10_S = 353; VAX$C_V9ARIII10_S = 353; VAX$K_V9ARIII20_S = 354; VAX$C_V9ARIII20_S = 354; VAX$K_V9AQIII10_S = 355; VAX$C_V9AQIII10_S = 355; VAX$K_V9AQIII20_S = 356; VAX$C_V9AQIII20_S = 356; VAX$K_V9AQIII30_S = 357; VAX$C_V9AQIII30_S = 357; VAX$K_V9AQIII40_S = 358; VAX$C_V9AQIII40_S = 358; VAX$K_V1701_1T = 359; VAX$C_V1701_1T = 359; VAX$K_V1701_2T = 360; VAX$C_V1701_2T = 360; VAX$K_V1701_3T = 361; VAX$C_V1701_3T = 361; VAX$K_V1701_4T = 362; VAX$C_V1701_4T = 362; VAX$K_V1701_5T = 363; VAX$C_V1701_5T = 363; VAX$K_V1701_6T = 364; VAX$C_V1701_6T = 364; VAX$K_V1701_7T = 365; VAX$C_V1701_7T = 365; VAX$K_V1701_8T = 366; VAX$C_V1701_8T = 366; VAX$K_V1701_1S = 367; VAX$C_V1701_1S = 367; VAX$K_V1701_2S = 368; VAX$C_V1701_2S = 368; VAX$K_V1701_3S = 369; VAX$C_V1701_3S = 369; VAX$K_V1701_4S = 370; VAX$C_V1701_4S = 370; VAX$K_V1701_5S = 371; VAX$C_V1701_5S = 371; VAX$K_V1701_6S = 372; VAX$C_V1701_6S = 372; VAX$K_V1701_7S = 373; VAX$C_V1701_7S = 373; VAX$K_V1701_8S = 374; VAX$C_V1701_8S = 374; VAX$K_V1701_1J = 375; VAX$C_V1701_1J = 375; VAX$K_VKA49C_S = 376; VAX$C_VKA49C_S = 376; VAX$K_VKA49C_T = 377; VAX$C_VKA49C_T = 377; VAX$K_VKA49C_J = 378; VAX$C_VKA49C_J = 378; VAX$K_VKA49S_S = 379; VAX$C_VKA49S_S = 379; VAX$K_VKA49S_T = 380; VAX$C_VKA49S_T = 380; VAX$K_VKA49S_J = 381; VAX$C_VKA49S_J = 381; VAX$C_VKA50 = 382; VAX$K_VKA50 = 382; VAX$K_VKA50_S = 383; VAX$C_VKA50_S = 383; VAX$K_VKA50_J = 384; VAX$C_VKA50_J = 384; VAX$C_VKA51 = 385; VAX$K_VKA51 = 385; VAX$K_VKA51_S = 386; VAX$C_VKA51_S = 386; VAX$K_VKA51_J = 387; VAX$C_VKA51_J = 387; VAX$C_VKA52 = 388; VAX$K_VKA52 = 388; VAX$K_VKA52_S = 389; VAX$C_VKA52_S = 389; VAX$K_VKA52_J = 390; VAX$C_VKA52_J = 390; VAX$C_VKA53 = 391; VAX$K_VKA53 = 391; VAX$K_VKA53_S = 392; VAX$C_VKA53_S = 392; VAX$K_VKA53_J = 393; VAX$C_VKA53_J = 393; VAX$C_VKA675 = 394; VAX$K_VKA675 = 394; VAX$K_VKA675_S = 395; VAX$C_VKA675_S = 395; VAX$K_VKA675_J = 396; VAX$C_VKA675_J = 396; VAX$K_V1703_1T = 397; VAX$C_V1703_1T = 397; VAX$K_V1703_2T = 398; VAX$C_V1703_2T = 398; VAX$K_V1703_3T = 399; VAX$C_V1703_3T = 399; VAX$K_V1703_4T = 400; VAX$C_V1703_4T = 400; VAX$K_V1703_5T = 401; VAX$C_V1703_5T = 401; VAX$K_V1703_6T = 402; VAX$C_V1703_6T = 402; VAX$K_V1703_7T = 403; VAX$C_V1703_7T = 403; VAX$K_V1703_8T = 404; VAX$C_V1703_8T = 404; VAX$K_V1703_1S = 405; VAX$C_V1703_1S = 405; VAX$K_V1703_2S = 406; VAX$C_V1703_2S = 406; VAX$K_V1703_3S = 407; VAX$C_V1703_3S = 407; VAX$K_V1703_4S = 408; VAX$C_V1703_4S = 408; VAX$K_V1703_5S = 409; VAX$C_V1703_5S = 409; VAX$K_V1703_6S = 410; VAX$C_V1703_6S = 410; VAX$K_V1703_7S = 411; VAX$C_V1703_7S = 411; VAX$K_V1703_8S = 412; VAX$C_V1703_8S = 412; VAX$K_V1703_1J = 413; VAX$C_V1703_1J = 413; VAX$K_VPCVAX_T = 414; VAX$C_VPCVAX_T = 414; VAX$K_VPCVAX_J = 415; VAX$C_VPCVAX_J = 415; VAX$K_V1704_1T = 416; VAX$C_V1704_1T = 416; VAX$K_V1704_2T = 417; VAX$C_V1704_2T = 417; VAX$K_V1704_3T = 418; VAX$C_V1704_3T = 418; VAX$K_V1704_4T = 419; VAX$C_V1704_4T = 419; VAX$K_V1704_5T = 420; VAX$C_V1704_5T = 420; VAX$K_V1704_6T = 421; VAX$C_V1704_6T = 421; VAX$K_V1704_7T = 422; VAX$C_V1704_7T = 422; VAX$K_V1704_8T = 423; VAX$C_V1704_8T = 423; VAX$K_V1704_1S = 424; VAX$C_V1704_1S = 424; VAX$K_V1704_2S = 425; VAX$C_V1704_2S = 425; VAX$K_V1704_3S = 426; VAX$C_V1704_3S = 426; VAX$K_V1704_4S = 427; VAX$C_V1704_4S = 427; VAX$K_V1704_5S = 428; VAX$C_V1704_5S = 428; VAX$K_V1704_6S = 429; VAX$C_V1704_6S = 429; VAX$K_V1704_7S = 430; VAX$C_V1704_7S = 430; VAX$K_V1704_8S = 431; VAX$C_V1704_8S = 431; VAX$K_V1704_1J = 432; VAX$C_V1704_1J = 432; VAX$K_V1705_1T = 433; VAX$C_V1705_1T = 433; VAX$K_V1705_2T = 434; VAX$C_V1705_2T = 434; VAX$K_V1705_3T = 435; VAX$C_V1705_3T = 435; VAX$K_V1705_4T = 436; VAX$C_V1705_4T = 436; VAX$K_V1705_5T = 437; VAX$C_V1705_5T = 437; VAX$K_V1705_6T = 438; VAX$C_V1705_6T = 438; VAX$K_V1705_7T = 439; VAX$C_V1705_7T = 439; VAX$K_V1705_8T = 440; VAX$C_V1705_8T = 440; VAX$K_V1705_1S = 441; VAX$C_V1705_1S = 441; VAX$K_V1705_2S = 442; VAX$C_V1705_2S = 442; VAX$K_V1705_3S = 443; VAX$C_V1705_3S = 443; VAX$K_V1705_4S = 444; VAX$C_V1705_4S = 444; VAX$K_V1705_5S = 445; VAX$C_V1705_5S = 445; VAX$K_V1705_6S = 446; VAX$C_V1705_6S = 446; VAX$K_V1705_7S = 447; VAX$C_V1705_7S = 447; VAX$K_V1705_8S = 448; VAX$C_V1705_8S = 448; VAX$K_V1705_1J = 449; VAX$C_V1705_1J = 449; VAX$C_VKA676 = 450; VAX$K_VKA676 = 450; VAX$K_VKA676_S = 451; VAX$C_VKA676_S = 451; VAX$K_VKA676_J = 452; VAX$C_VKA676_J = 452; VAX$C_VKA681 = 453; VAX$K_VKA681 = 453; VAX$K_VKA681_S = 454; VAX$C_VKA681_S = 454; VAX$K_VKA681_J = 455; VAX$C_VKA681_J = 455; VAX$C_VKA691 = 456; VAX$K_VKA691 = 456; VAX$K_VKA691_S = 457; VAX$C_VKA691_S = 457; VAX$K_VKA691_J = 458; VAX$C_VKA691_J = 458; VAX$C_VKA692 = 459; VAX$K_VKA692 = 459; VAX$K_VKA692_S = 460; VAX$C_VKA692_S = 460; VAX$K_VKA692_J = 461; VAX$C_VKA692_J = 461; VAX$C_VKA600 = 462; VAX$K_VKA600 = 462; VAX$K_VKA600_S = 463; VAX$C_VKA600_S = 463; VAX$K_VKA600_J = 464; VAX$C_VKA600_J = 464; VAX$C_VKA605 = 465; VAX$K_VKA605 = 465; VAX$K_VKA605_S = 466; VAX$C_VKA605_S = 466; VAX$K_VKA605_J = 467; VAX$C_VKA605_J = 467; VAX$C_VKA52A = 468; VAX$K_VKA52A = 468; VAX$K_VKA52A_S = 469; VAX$C_VKA52A_S = 469; VAX$K_VKA52A_J = 470; VAX$C_VKA52A_J = 470; VAX$K_VFT810_T = 471; VAX$C_VFT810_T = 471; VAX$K_VFT810_S = 472; VAX$C_VFT810_S = 472; VAX$K_VFT812_T = 473; VAX$C_VFT812_T = 473; VAX$K_VFT812_S = 474; VAX$C_VFT812_S = 474; VAX$K_VKA49AC_S = 475; VAX$C_VKA49AC_S = 475; VAX$K_VKA49AC_T = 476; VAX$C_VKA49AC_T = 476; VAX$K_VKA49AC_J = 477; VAX$C_VKA49AC_J = 477; VAX$K_VKA49AS_S = 478; VAX$C_VKA49AS_S = 478; VAX$K_VKA49AS_T = 479; VAX$C_VKA49AS_T = 479; VAX$K_VKA49AS_J = 480; VAX$C_VKA49AS_J = 480; VAX$K_VKA49BC_S = 481; VAX$C_VKA49BC_S = 481; VAX$K_VKA49BC_T = 482; VAX$C_VKA49BC_T = 482; VAX$K_VKA49BC_J = 483; VAX$C_VKA49BC_J = 483; VAX$K_VKA49BS_S = 484; VAX$C_VKA49BS_S = 484; VAX$K_VKA49BS_T = 485; VAX$C_VKA49BS_T = 485; VAX$K_VKA49BS_J = 486; VAX$C_VKA49BS_J = 486; VAX$C_VKA54 = 487; VAX$K_VKA54 = 487; VAX$K_VKA54_S = 488; VAX$C_VKA54_S = 488; VAX$K_VKA54_J = 489; VAX$C_VKA54_J = 489; VAX$C_VKA55 = 490; VAX$K_VKA55 = 490; VAX$K_VKA55_S = 491; VAX$C_VKA55_S = 491; VAX$K_VKA55_J = 492; VAX$C_VKA55_J = 492; VAX$C_VKA56 = 493; VAX$K_VKA56 = 493; VAX$K_VKA56_S = 494; VAX$C_VKA56_S = 494; VAX$K_VKA56_J = 495; VAX$C_VKA56_J = 495; VAX$C_VKA694 = 496; VAX$K_VKA694 = 496; VAX$K_VKA694_S = 497; VAX$C_VKA694_S = 497; VAX$K_VKA694_J = 498; VAX$C_VKA694_J = 498; VAX$K_v1706_1T = 499; VAX$C_v1706_1T = 499; VAX$K_v1706_2T = 500; VAX$C_v1706_2T = 500; VAX$K_v1706_3T = 501; VAX$C_v1706_3T = 501; VAX$K_v1706_4T = 502; VAX$C_v1706_4T = 502; VAX$K_v1706_5T = 503; VAX$C_v1706_5T = 503; VAX$K_v1706_6T = 504; VAX$C_v1706_6T = 504; VAX$K_v1706_7T = 505; VAX$C_v1706_7T = 505; VAX$K_v1706_8T = 506; VAX$C_v1706_8T = 506; VAX$K_v1706_1S = 507; VAX$C_v1706_1S = 507; VAX$K_v1706_2S = 508; VAX$C_v1706_2S = 508; VAX$K_v1706_3S = 509; VAX$C_v1706_3S = 509; VAX$K_v1706_4S = 510; VAX$C_v1706_4S = 510; VAX$K_v1706_5S = 511; VAX$C_v1706_5S = 511; VAX$K_v1706_6S = 512; VAX$C_v1706_6S = 512; VAX$K_v1706_7S = 513; VAX$C_v1706_7S = 513; VAX$K_v1706_8S = 514; VAX$C_v1706_8S = 514; VAX$K_v1706_1J = 515; VAX$C_v1706_1J = 515; VAX$K_v1707_1T = 516; VAX$C_v1707_1T = 516; VAX$K_v1707_2T = 517; VAX$C_v1707_2T = 517; VAX$K_v1707_3T = 518; VAX$C_v1707_3T = 518; VAX$K_v1707_4T = 519; VAX$C_v1707_4T = 519; VAX$K_v1707_5T = 520; VAX$C_v1707_5T = 520; VAX$K_v1707_6T = 521; VAX$C_v1707_6T = 521; VAX$K_v1707_7T = 522; VAX$C_v1707_7T = 522; VAX$K_v1707_8T = 523; VAX$C_v1707_8T = 523; VAX$K_v1707_1S = 524; VAX$C_v1707_1S = 524; VAX$K_v1707_2S = 525; VAX$C_v1707_2S = 525; VAX$K_v1707_3S = 526; VAX$C_v1707_3S = 526; VAX$K_v1707_4S = 527; VAX$C_v1707_4S = 527; VAX$K_v1707_5S = 528; VAX$C_v1707_5S = 528; VAX$K_v1707_6S = 529; VAX$C_v1707_6S = 529; VAX$K_v1707_7S = 530; VAX$C_v1707_7S = 530; VAX$K_v1707_8S = 531; VAX$C_v1707_8S = 531; VAX$K_v1707_1J = 532; VAX$C_v1707_1J = 532; VAX$C_VKA57 = 533; VAX$K_VKA57 = 533; VAX$K_VKA57_S = 534; VAX$C_VKA57_S = 534; VAX$K_VKA57_J = 535; VAX$C_VKA57_J = 535; VAX$C_VKA58 = 536; VAX$K_VKA58 = 536; VAX$K_VKA58_S = 537; VAX$C_VKA58_S = 537; VAX$K_VKA58_J = 538; VAX$C_VKA58_J = 538; VAX$C_VKA59 = 539; VAX$K_VKA59 = 539; VAX$K_VKA59_S = 540; VAX$C_VKA59_S = 540; VAX$K_VKA59_J = 541; VAX$C_VKA59_J = 541; VAX$C_MAX_MODEL = 541; VAX$K_MAX_MODEL = 541; (*** MODULE $WBEMIDEF ***) N(*+ *)N(* SYS$GET_WBEM_INFO item code values *)N(*- *) |CONST WBEMI$_SPU_COUNT = 1; (* Count, 64-bit integer, of "schedulable processing units" (SPU id, aka VMS CPUID) *)t WBEMI$_SPU_LID_MAPPING = 2; (* Vector of WBEMI_LID_MAP, with LID and SPU_ID pairings, with SPU_COUNT entries *)Y WBEMI$_SPU_FREQUENCY = 3; (* SPU cycle frequency, 64-bit integer, param1=SPU id *)\ WBEMI$_SYS_HT_CAPABLE = 4; (* Is system Hyperthreads capable? (0/1, 64-bit integer) *)g WBEMI$_SYS_HT_ENABLED = 5; (* Are system Hyperthreads currently enabled? (0/1, 64-bit integer) *)r WBEMI$_SMBIOS_TABLE_TYPE = 6; (* Get SMBIOS table entries by type, param1=SMBIOS table type, raw binary data *)p WBEMI$_DIMM_COUNT = 7; (* Number of DIMMs on the system, 64-bit integer, count of ACPI DIMM objects *)Z WBEMI$_DIMM_LOC = 8; (* DIMM location, ASCII string from ACPI, param1=DIMM# *)_ WBEMI$_DIMM_UID = 9; (* DIMM serial number, ASCII string from ACPI, param1=DIMM# *)] WBEMI$_DIMM_PART = 10; (* DIMM part number, ASCII string from ACPI, param1=DIMM# *)X WBEMI$_DIMM_SIZE = 11; (* DIMM size, 64-bit integer from ACPI, param1=DIMM# *)Z WBEMI$_DIMM_STATUS = 12; (* DIMM status, 64-bit integer from ACPI, param1=DIMM# *)p WBEMI$_CELL_COUNT = 13; (* Number of cells in the system, 64-bit integer, count of ACPI cell objects *)Z WBEMI$_CELL_LOC = 14; (* Cell location, ASCII string from ACPI, param1=cell# *)W WBEMI$_CELL_UID = 15; (* Cell UID, 64-bit integer from ACPI, param1=cell# *)o WBEMI$_PHYS_CPU_COUNT = 16; (* Number of physical CPUs, 64-bit integer, count of ACPI processor objects *)W WBEMI$_PHYS_CPU_ID = 17; (* Vector of 64-bit ACPI ProcIDs for PHYS_CPU_COUNT *)z WBEMI$_PHYS_LID_MAPPING = 18; (* Vector of WBEMI_LID_MAP, with LID and PROC_ID pairings, with PHYS_CPU_COUNT entries *)_ WBEMI$_PHYS_CPU_LOC = 19; (* CPU chip location, ASCII string from ACPI, param1=ProcID *)_ WBEMI$_PHYS_CPU_SLOT_NUM = 20; (* CPU slot number, 64-bit integer from ACPI, param1=ProcID *)_ WBEMI$_PHYS_CPU_SERIAL = 21; (* CPU serial number, ASCII string from ACPI, param1=ProcID *)Z WBEMI$_PHYS_CPU_STATUS = 22; (* CPU status, 64-bit integer from ACPI, param1=ProcID *)[ WBEMI$_CORES_PER_SOCKET = 23; (* Number of cores per processor socket, 64-bit integer *)[ WBEMI$_THREADS_PER_CORE = 24; (* Number of threads per processor core, 64-bit integer *)e WBEMI$_THREADS_CORE_MAX = 25; (* Number of potential threads per processor core, 64-bit integer *)W WBEMI$_PHYS_CPU_UID_INT = 26; (* CPU UID, 64-bit integer from ACPI, param1=ProcID *)R WBEMI$K_MAX_ITEM = 26; (* Maximum currently supported item code value *) N(*+ *)N(* WBEMI_LID_MAP Structure *)N(*  *)N(* Data returned by SYS$GET_WBEM_INFO WBEMI$_SPU_LID_MAPPING is a vector of *)T(* WBEMI_LID_MAP structures, pairing a LID to its associated VMS cpuid in SPU_ID. *)N(* The total number of these pairings is given by SPU_COUNT. *)N(* *)O(* Data returned by SYS$GET_WBEM_INFO WBEMI$_PHYS_LID_MAPPING is a vector of *)N(* WBEMI_LID_MAP structures, pairing a LID to its associate ACPI PROC_ID. *)N(* The total number of these pairings is given by PHYS_CPU_COUNT. *)N(* *)R(* The caller should not infer any significance to the order of the pairings in *)Q(* this vector. For example, one should not assume that the 5th instance of a *)S(* LID and PROC_ID pairing corresponds to VMS CPUID 5. Instead, one needs to use *)R(* both the LID/SPU_ID and LID/PROC_ID  pairings to determine the SPU_ID/PROC_ID *)N(* associations. *)N(*- *) 0TYPE WBEMI_LID_MAP$TYPE = RECORD CASE INTEGER OFG 1: (WBEMI_LID_MAP$Q_LID : $UQUAD; (* LID for the processor *)7 WBEMI_LID_MAP$R_ID_OVERLAY : [BYTE(4)] RECORD END;' WBEMI_LID_MAP$L_FILLER : UNSIGNED; );O 2: (WBEMI_LID_MAP$L_ID : [POS(64)] UNSIGNED; (* Generic ID fi eld, can be... *) );h 3: (WBEMI_LID_MAP$L_SPU_ID : [POS(64)] UNSIGNED; (* VMS CPUID (aka SPU IS) associated with the LID *) );_ 4: (WBEMI_LID_MAP$L_PROC_ID : [POS(64)] UNSIGNED; (* ACPI PROC_ID associated with the LID *) ) END; #(*** MODULE $WWIDDEF IDENT X-4 ***) N(* *)R(* Longword header prefixed to the World-Wide Identifier used in fibre channel. *)R(* A WWID can be in any one of the eleven formats specified here. At this time *)P(* though, only seven of these formats (WWID types 1-4, 9-11) are implemented *)N(* in OpenVMS. *)N(* *)O(* Note that this is a common header, used by OpenVMS, Digital UNIX, and the *)Q(* Console. Any changes to this structure should be made in cooperation with *)N(* these other groups.  *)N(* *) &CONST WWIDHDR$M_WWID_LENGTH = 1048575; WWIDHDR$M_ASCII_DATA = 1048576;! WWIDHDR$M_WWID_TYPE = -16777216;G WWIDHDR$K_IEEE_REGEXT = 1; (* 1: Page83, ID type 3, NAA 0110 *)G WWIDHDR$K_IEEE_REG = 2; (* 2: Page83, ID type 3, NAA 0101 *)G WWIDHDR$K_PG83TY1_VID = 3; (* 3: PID+Page83, ID type 1 *)G WWIDHDR$K_PG80_SERIALNO = 4; (* 4: VID+PID+Ser_No from Page80 *)M WWIDHDR$K_INQ_SERIALNO = 5; (* 5: VID+PID+Ser_No from std. inq. data *)G WWIDHDR$K_TGT_IDENT = 6; (* 6: VID+PID+Persistent_Tgt_ID *)G WWIDHDR$K_BTL = 7; (* 7: VID+PID+Bus_No+Tgt_ID+LUN *)G WWIDHDR$K_DEC_UNIQUE = 8; (* 8: HSZ-specific serial no's. *)K WWIDHDR$K_HSZ_THISOTHER = 9; (* 9: THIS/OTHER ser. no. (older HSZs) *)G WWIDHDR$K_IEEE48_VEXT = 10; (* 10: Page83, ID type 3, NAA 0010 *)G WWIDHDR$K_IEEE48_0EXT = 11; (* 11 : Page83, ID type 3, NAA 0001 *)G WWIDHDR$K_IEEE_EUI64 = 12; (* 12: Page83, ID type 2 *)G WWIDHDR$K_ISCSI_NAME = 13; (* 13: X-4 iSCSI Name *) *TYPE WWIDHDR$TYPE = RECORD CASE INTEGER OF4 1: (WWIDHDR$R_HEADER_FIELDS : [BYTE(4)] RECORD END; );G 2: (WWIDHDR$V_WWID_LENGTH : [POS(0)] $BIT20; (* Length of WWID data *)J WWIDHDR$V_ASCII_DATA : [POS(20)] $BOOL; (* Data is in ASCII format *)G WWIDHDR$V_RESERVED1 : [POS(21)] $BIT3; (* Reserved  *)G WWIDHDR$V_WWID_TYPE : [POS(24)] $BIT8; (* WWID format type *) ) END; N(* *)N(* World-Wide Identifier *)N(* *)N(* Includes the 4-byte header defined above and the body of the WWID. The *)N(* largest WWID is currently the type that includes Vendor ID (8 bytes), *) N(* Product ID (16 bytes), and Serial Number (up to 251 bytes). Rounding up *)N(* to the nearest quadword boundary, this comes out to 276 bytes. *)N(* *) TYPE WWID$TYPE = RECORD" WWID$R_HEADER : WWIDHDR$TYPE;+ WWID$B_DATA : ARRAY [1..276] OF $BYTE; END; CONST WWID$K_LENGTH = 280; N(* *)N(* Serial Number WWID  *)N(* *)N(* This is the WWID that gets put together from both standard and Page 80 *)R(* inquiry data. The Product ID and Vendor ID come from standard inquiry data. *)Q(* The Serial Number comes from Vital Product Data Page 80. The Header is the *)N(* standard WWID header defined above. *)N(*  *) TYPE SN_WWID$TYPE = RECORD% SN_WWID$R_HEADER : WWIDHDR$TYPE;2 SN_WWID$B_VENDOR_ID : ARRAY [1..8] OF $UBYTE;4 SN_WWID$B_PRODUCT_ID : ARRAY [1..16] OF $UBYTE;4 SN_WWID$B_SERIAL_NO : ARRAY [1..252] OF $UBYTE; END; CONST SN_WWID$K_LENGTH = 280; N(* *)N(* The longest WWID is one that is made from the device's serial number, *)N(* product ID, and vendor ID.  *)N(* 4 8 16 <= 252 *)S(* +------+------------+-------------------+-----------------------------------+ *)S(* |Header| Vendor | Product | Serial Number | *)S(* +------+------------+-------------------+-----------------------------------+ *)N(* *)N(* Maximum WWID length comes out to 4+8+ 16+252 = 280 bytes. *)N(* *) CONST WWID$K_MAX_LENGTH = 280; N(* *)N(* WWID Table Entry *)N(* *)N(* The WWID table is created during boot by EXEC_INIT and is used by both *)P(* EXEC_INIT and, later on  in the boot, STACONFIG. The table stores informa- *)R(* tion about all devices that have been registered by the user at the console. *)N(* *) *TYPE WWIDENT$TYPE = RECORD CASE INTEGER OF! 1: (WWIDENT$L_UNIT_NO : INTEGER; WWIDENT$L_DNP : INTEGER;" WWIDENT$L_WWIDLEN : UNSIGNED;- WWIDENT$R_WWID : [BYTE(116)] RECORD END; );/ 2: (WWIDENT$R_HEADER : [POS(96)] WWIDHDR$TYPE;; WWIDENT$B_FCWWID : [P OS(128)] ARRAY [1..112] OF $BYTE; ) END; CONST WWIDENT$K_LENGTH = 128;G WWIDTBL$K_MAX_ENTRIES = 1000; (* Max. entries in a WWID Table *) N(* *)N(* This structure points to a Fibre Channel adapter ID. This WWID differs *)N(* from the other WWIDs in this file in that it is obtained directly from *)Q(* the adapter rather than the SCSI Device Identification page. Consequently, *)N(* there is no header, vendor, and product information associated with *)O(* this 64 bit identifier. The format of this 64 bit WWID is an IEEE 48 bit *)N(* address with additional information as defined in the FC-PH. But we *)Q(* don't really care about the FC-PH format since all we want to do is display *)Q(* the 64 bits using the asci hex format of XXXX-XXXX-XXXX-XXXX, which is the *)N(* widely accepted format used to display this information. *)N(*  *) TYPE FC_WWID_64B$TYPE = RECORD, FC_WWIDB_NAME : ARRAY [1..8] OF $UBYTE; END; (*** MODULE $XADEF ***) N(*+ *)N(* DR11-W DEFINITIONS FOR DEVICE SPECIFIC CHARACTERISTICS *)N(*- *) CONST XA$M_DATAPATH = 1; XA$M_LINK = 2; %TYPE XA$TYPE = RECORD CASE INTEGER OF, 1: (XA$R_XADEF_BITS : [BYTE(1)] RECORD END; );G 2: (XA$V_DATAPATH : [POS(0)] $BOOL; (* USE BUFFERED DATAPATH *)G XA$V_LINK : [POS(1)] $BOOL; (* INTERPROCESSOR LINK MODE *) ) END; (*** MODULE $XKSTSDEF ***) N(* *)N(* DEFINITIONS FOR 3271 LINE STATUS BLOCK (RETURNED BY IO$_RDSTATS) *)N(* *) MCONST XK STS$K_LSTR = 0; (* OFFSET OF BEGINNING OF DATA AREA *)H XKSTS$C_LSTR = 0; (* OFFSET OF BEGINNING OF DATA AREA *) XKSTS$M_ACT = 1; XKSTS$M_DGN = 2;G XKSTS$K_DSTR = 45; (* LENGTH OF THE LINE STATUS BLOCK *)G XKSTS$C_DSTR = 45; (* LENGTH OF THE LINE STATUS BLOCK *) (TYPE XKSTS$TYPE = RECORD CASE INTEGER OFI 1: (XKSTS$B_CUAD : $UBYTE; (* CONTROL UNIT ADDRESS (HEX EBCDIC) *)1 XKSTS$R_LSTS_OVERLAY : [BYTE(2)] RECORD END; G XKSTS$B_PLSZ : $UBYTE; (* POOL SIZE *)M XKSTS$W_BSIZ : $UWORD; (* MAXIMUM BLOCK TO BE RECEIVED FROM IBM *)G XKSTS$B_ECNT : $UBYTE; (* ENQ THRESHOLD *)G XKSTS$W_TNAK : $UWORD; (* NUMBER OF NAKS TRANSMITTED *)G XKSTS$W_RNAK : $UWORD; (* NUMBER OF NAKS RECEIVED *)G XKSTS$W_TENQ : $UWORD; (* NUMBER OF ENQS SENT *)G XKSTS$W_RENQ : $UWORD; (* NUMBER OF ENQS REC EIVED *)G XKSTS$W_TRVI : $UWORD; (* NUMBER OF RVIS TRANSMITTED *)G XKSTS$W_RRVI : $UWORD; (* NUMBER OF RVIS RECEIVED *)O XKSTS$W_RCNV : $UWORD; (* NUMBER OF CONVERSATIONAL MODE RESPONSES *)G (* RECEIVED *)I XKSTS$W_CHAI : $UWORD; (* NUMBER OF CHAINED WRITES RECEIVED *)H XKSTS$W_GPOL : $UWORD; (* NUMBER OF GENERAL POLLS RECEIVED *)G XKSTS$W_XACK : $UWORD;   (* NUMBER OF INVALID ACKS RECEIVED *)I XKSTS$W_HABO : $UWORD; (* NUMBER OF HOST ABORTS ENCOUNTERED *)K XKSTS$W_DABO : $UWORD; (* NUMBER OF DRIVER ABORTS ENCOUNTERED *)G XKSTS$W_RTIM : $UWORD; (* NUMBER OF ACK RESPONSE TIMEOUTS *)I XKSTS$W_DISC : $UWORD; (* NUMBER OF DISCONNECTS ENCOUNTERED *)N XKSTS$W_HARD : $UWORD; (* NUMBER OF HARDWARE FAILURES (INCLUDING *)G (* DISCONNECTS) ENCOUNTERED *)G X KSTS$W_TBLK : $UWORD; (* NUMBER OF BLOCKS TRANSMITTED *)G XKSTS$W_RBLK : $UWORD; (* NUMBER OF BLOCKS RECEIVED *)G XKSTS$W_HABX : $UWORD; (* NUMBER OF DUBIOUS ACK OUTS *)G XKSTS$W_IEOT : $UWORD; (* NUMBER OF EOTS IMPLYING ACK *) );G 2: (XKSTS$W_LSTS : [POS(8)] $UWORD; (* LINE STATUS *) ); 3: ();T 4: (XKSTS$V_ACT : [POS(8)] $BOOL; (* IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) *)T XKSTS$V_DGN : [POS(9) ] $BOOL; (* IF SET, LINE IS EXECUTING A DIAGNOSTIC QIO *) ) END; (*** MODULE $XKDEVDEF ***) N(* *)N(* 3271 DEVICE STATUS BLOCK *)N(* *)O(* THE DRIVER RETURNS N COPIES OF THIS BLOCK FOLLOWING THE LINE STATUS BLOCK *)P(* IN THE USER'S BUFFER, WHERE N IS THE NUMBER OF ACTIVE DEVICES ON THE LINE. *)N(* *) LCONST XKDEV$K_SIZE = 15; (* SIZE OF THE DEVICE STATUS BLOCK *)G XKDEV$C_SIZE = 15; (* SIZE OF THE DEVICE STATUS BLOCK *) TYPE XKDEV$TYPE = RECORDH XKDEV$B_DUEB : $UBYTE; (* DEVICE ADDRESS (DU - HEX EBCDIC) *)L XKDEV$L_DPID : UNSIGNED; (* PROCESS ID OF PROCESS OWNING THIS DU *)G XKDEV$W_TBLK : $UWORD; (* NUMBER OF BLOCKS TRANSMITTED *)G  XKDEV$W_RBLK : $UWORD; (* NUMBER OF BLOCKS RECEIVED *)I XKDEV$W_SPOL : $UWORD; (* NUMBER OF SPECIFIC POLLS RECEIVED *)J XKDEV$W_ASEL : $UWORD; (* NUMBER OF ADDRESS SELECTS RECEIVED *)G XKDEV$W_CREJ : $UWORD; (* NUMBER OF COMMAND REJECTS SENT *) END; (*** MODULE $XMDEF ***) N(* *)Q(* DEFINITIONS FOR STATUS, CHARACTERISTICS AND ERRORS FOR DMC-11/DMR-11/DMP-11 *)N(*  *) TYPE XMDEV$TYPE = RECORDG XMDEV$B_P1_CLASS : $UBYTE; (* Device Class *)G XMDEV$B_P1_TYPE : $UBYTE; (* Device type *)G XMDEV$W_P1_MMS : $UWORD; (* Maximum message size *)G XMDEV$B_P1_CHAR : $UBYTE; (* Unit characteristics *)G XMDEV$B_P1_STS : $UBYTE; (* Unit Status *)G XMDEV$B_P1_ESUM : $UBYTE; (* Error Summary *)G XMDEV$B_P1_TPI : $UBYTE; (* Transmit Pipeline no. *) END; CONST XM$M_CHR_MOP = 1; XM$M_CHR_LOOPB = 2; XM$M_CHR_HDPLX = 4; XM$M_CHR_SLAVE = 8; XM$M_CHR_MBX = 16; XM$M_CHR_DMC = 32; XM$M_CHR_CTRL = 64; XM$M_CHR_TRIB = 128; XM$M_STS_DCHK = 256; XM$M_STS_TIMO = 512; XM$M_STS_ORUN = 1024; XM$M_STS_ACTIVE = 2048; XM$M_STS_BUFFAIL = 4096; XM$M_STS_RUNNING = 8192; XM$M_STS_DISC = 16384; XM$M_ERR_FATAL = 65536; XM$M_ERR_MAINT = 524288; XM$M_ERR_LOST = 1048576; XM$M_ERR_THRESH = 2097152; XM$M_ERR_TRIB = 4194304; XM$M_ERR_START = 8388608; XM$M_MDM_RTSHLD = 1; XM$M_MDM_STNDBY = 2; XM$M_MDM_MAINT2 = 4; XM$M_MDM_MAINT1 = 8; XM$M_MDM_FREQ = 32; XM$M_MDM_RDY = 64; XM$M_MDM_POLL = 128; XM$M_MDM_SELM = 256; XM$M_MDM_INT = 2048; XM$M_MDM_V35 = 4096; XM$M_MDM_RS232 = 16384; XM$M_MDM_RS422 = 32768; XM$M_MDM_CARRDET = 1; XM$M_MDM_MSTNDBY = 2; XM$M_MDM_CTS = 4; XM$M_MDM_DSR = 8; XM$M_MDM_HDX = 16; XM$M_MDM_RTS = 32; XM$M_MDM_DTR = 64; XM$M_MDM_RING = 128; XM$M_MDM_CHRMOD = 256; XM$M_MDM_MCLOCK = 512; XM$M_MDM_MODTEST = 1024; XM$M_MDM_SIGQUAL = 16384; XM$M_MDM_SIGRATE = 32768; %TYPE XM$TYPE = RECORD CASE INTEGER OF- 1: (XM$R_XMDEF_BITS0 : [BYTE(3)] RECORD END; );G 2: (XM$V_CHR_MOP : [POS(0)] $BOOL; (* MOP MODE *)G XM$V_CHR_LOOPB : [POS(1)] $BOOL; (* LOOP BACK *)G XM$V_CHR_HDPLX : [POS(2)] $BOOL; (* HALF DUPLEX *)G XM$V_CHR_SLAVE : [POS(3)] $BOOL; (* HALF DUPLEX SLAVE STATION *)G XM$V_CHR_MBX : [POS(4)] $BOOL; (* MAILBOX IS ENABLED *)G XM$V_CHR_DMC : [POS(5)] $BOOL; (* DMC-11 COMPATABILITY MODE *)G XM$V_CHR_CTRL : [POS(6)] $BOOL; (* CONTROL STATION *)G XM$V_CHR_TRIB : [POS(7)] $BOOL; (* TRIBUTARY STATION *)G XM$V_STS_DCHK : [POS(8)] $BOOL; (* DATA CHECK OCCURED  *)G XM$V_STS_TIMO : [POS(9)] $BOOL; (* TIMEOUT OCCURED *)G XM$V_STS_ORUN : [POS(10)] $BOOL; (* DATA OVER RUN OCCURED *)G XM$V_STS_ACTIVE : [POS(11)] $BOOL; (* ACTIVE UNIT *)Q XM$V_STS_BUFFAIL : [POS(12)] $BOOL; (* BUFFER ALLOCATION FAILURE OCCURED *)G XM$V_STS_RUNNING : [POS(13)] $BOOL; (* PROTOCOL RUNNING *)G XM$V_STS_DISC : [POS(14)] $BOOL; (* LINE DISCONNECT OCCURED *)G XM$V_ERR_FATAL : [POS(16)] $BOOL; (* HARD WARE ERROR *)J XM$V_ERR_MAINT : [POS(19)] $BOOL; (* DDCMP MAINT MESSAGE RECEIVED *)V XM$V_ERR_LOST : [POS(20)] $BOOL; (* DATA LOST BECAUSE OF BUFFER SIZE MISMATCH *)G XM$V_ERR_THRESH : [POS(21)] $BOOL; (* THRESHOLD ERRORS *)G XM$V_ERR_TRIB : [POS(22)] $BOOL; (* TRIBUTARY MALFUNCTIONING *)J XM$V_ERR_START : [POS(23)] $BOOL; (* DDCMP START MESSAGE RECEIVED *) );- 3: (XM$R_XMDEF_BITS1 : [BYTE(2)] RECORD END; );G 4: (XM$V_MDM_RTSHLD : [POS(0)] $BOOL; (* RTS HOLD *)G XM$V_MDM_STNDBY : [POS(1)] $BOOL; (* SELECT STANDBY *)G XM$V_MDM_MAINT2 : [POS(2)] $BOOL; (* MAINTENANCE MODE 2 *)G XM$V_MDM_MAINT1 : [POS(3)] $BOOL; (* MAINTENANCE MODE 1 *)G XM$V_MDM_FREQ : [POS(5)] $BOOL; (* SELECT FREQUENCY *)G XM$V_MDM_RDY : [POS(6)] $BOOL; (* DATA TERMINAL READY *)G XM$V_MDM_POLL : [POS(7)] $BOOL; (* SELECT POLLING MODEM MODE *)L XM$V_ MDM_SELM : [POS(8)] $BOOL; (* MODEM INTERFACE PROGRAM SELECTED *)G XM$V_MDM_INT : [POS(11)] $BOOL; (* INTEGRAL MODEM *)G XM$V_MDM_V35 : [POS(12)] $BOOL; (* V.35 *)G XM$V_MDM_RS232 : [POS(14)] $BOOL; (* RS-232-C OR RS423 *)G XM$V_MDM_RS422 : [POS(15)] $BOOL; (* RS-422 *) );- 5: (XM$R_XMDEF_BITS2 : [BYTE(2)] RECORD END; );G 6: (XM$V_MDM_CARRDET : [POS(0)] $BOOL; (* CARRIER DETECT *)G XM$V_MDM_MSTNDBY : [POS(1)] $BOOL; (* MODEM STANDBY *)G XM$V_MDM_CTS : [POS(2)] $BOOL; (* CLEAR TO SEND *)G XM$V_MDM_DSR : [POS(3)] $BOOL; (* DATA SET READY *)G XM$V_MDM_HDX : [POS(4)] $BOOL; (* HALF-DUPLEX *)G XM$V_MDM_RTS : [POS(5)] $BOOL; (* REQUEST TO SEND *)G XM$V_MDM_DTR : [POS(6)] $BOOL; (* DATA TERMINAL READY *)G XM$V_MDM_RING : [POS(7)] $BOOL; (* RING  *)L XM$V_MDM_CHRMOD : [POS(8)] $BOOL; (* CHARACTER OR BIT PROTOCOL MODE *)G XM$V_MDM_MCLOCK : [POS(9)] $BOOL; (* MAINTENANCE CLOCK *)G XM$V_MDM_MODTEST : [POS(10)] $BOOL; (* MODEM TEST MODE *)G XM$V_MDM_SIGQUAL : [POS(14)] $BOOL; (* SIGNAL QUALITY *)G XM$V_MDM_SIGRATE : [POS(15)] $BOOL; (* SIGNAL RATE *) ) END; (*** MODULE $XWDEF ***) N(*++  *)N(* *)N(* XWDEF - System definitions for software DDCMP *)N(* *)N(*-- *) CONST XW$M_CHA_FDX = 1; XW$M_CHA_XPR = 2; XW$M_CHA_DSR = 4; XW$M_FAT_STAT = 1023; XW$M_INFO_STAT = 64512; XW$M_EOT = 1; XW$M_DATACK = 2; XW$M_NODSR = 4; XW$M_DISCON = 8; XW$M_TRABINTMO = 16; XW$M_PIPE_MARK = 32; XW$M_BADCHAIN = 64; XW$M_ILLMOD = 128; XW$M_RVI = 1024; XW$M_CONACK = 2048; XW$M_XPR = 4096; XW$M_ETXEND = 8192; XW$M_PUNCH = 65536; XW$M_HOR_FOR = 131072; XW$M_IOMOD = 57344; %TYPE XW$TYPE = RECORD CASE INTEGER OF- 1: (XW$R_XWDEF_BITS0 : [BYTE(1)] RECORD END; );G 2: (XW$V_CHA_FDX : [POS(0)] $BOOL; (* Full duplex line *)G XW$V_CHA_XPR : [POS(1)] $BOOL; (* Transparency  *)G XW$V_CHA_DSR : [POS(2)] $BOOL; (* Data Set Ready set *)G (* *)N(* Device dependent status *)N(* *) );- 3: (XW$R_XWDEF_BITS1 : [BYTE(2)] RECORD END; );J 4: (XW$V_FAT_STAT : [POS(0)] $BIT10; (* Beginning of fatal stat flags *)K XW$V_INFO_STAT : [POS(10)] $BIT6; (* Star t of informational status *)N(* *)N(* Bit definitions for fatal and informational status fields *)N(* *) );- 5: (XW$R_XWDEF_BITS2 : [BYTE(3)] RECORD END; );G 6: (XW$V_EOT : [POS(0)] $BOOL; (* EOT received *)G XW$V_DATACK : [POS(1)] $BOOL; (* Retry threshold exceeded *)G XW$V_NODSR : [POS(2)] $BOOL; (* Line not connected *)G XW$V_DISCON : [POS(3)] $BOOL; (* Disconnect (DLE, EOT) rcvd *)G XW$V_TRABINTMO : [POS(4)] $BOOL; (* Binary transmit timeout *)I XW$V_PIPE_MARK : [POS(5)] $BOOL; (* Aborted because of pipe mark *)G XW$V_BADCHAIN : [POS(6)] $BOOL; (* Bad record list *)G XW$V_ILLMOD : [POS(7)] $BOOL; (* Illegal QIO modifier *)G XW$V_RVI : [POS(10)] $BOOL; (* Buffer ACKed with RVI *)H   XW$V_CONACK : [POS(11)] $BOOL; (* Buffer ACKed with conver resp *)G XW$V_XPR : [POS(12)] $BOOL; (* Buffer rcvd with transparency *)G XW$V_ETXEND : [POS(13)] $BOOL; (* Rcvd block ended with ETX *)G XW$V_PUNCH : [POS(16)] $BOOL; (* Punch select found *)H XW$V_HOR_FOR : [POS(17)] $BOOL; (* Horizontal forms record rcvd *)G (* *)N(* Read/Write function modifier definition ! *)N(* *) );- 7: (XW$R_XWDEF_BITS3 : [BYTE(2)] RECORD END; );G 8: (XW$V_IOMOD : [POS(13)] $BIT3; (* I/O modifier field start *) ) END; N(* END. *) N(* MODULE STARLET ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYT"E = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; # *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; $ *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; % *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11& = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; ' *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..1(6777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT )31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE STARLET ***) 2[HIDDEN] TYPE (**** SDL-Generated type names ****)3 STARLET$$TYP1 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARLET$$TYP2 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARLET$$TYP3 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARLET$$TYP4 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARLET$$TYP5 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARL *ET$$TYP6 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARLET$$TYP7 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARLET$$TYP8 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;3 STARLET$$TYP9 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP10 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP11 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;2 STARLET$$TYP12 = [UNSAFE] ARRAY [1..4] OF $UWORD;4 STARLET$$TYP13 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP14 = ^INTEGER;2 STARLET$$TYP15 = [UNSAFE] ARRAY [1..4] OF $UBYTE;4 + STARLET$$TYP16 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP17 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP18 = [UNSAFE] ARRAY [1..4] OF UNSIGNED;4 STARLET$$TYP19 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP20 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP21 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP22 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP23 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP24 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP25 = [U ,NSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP26 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;2 STARLET$$TYP27 = [UNSAFE] ARRAY [1..7] OF $UWORD;3 STARLET$$TYP28 = [UNSAFE] ARRAY [1..13] OF $UWORD;4 STARLET$$TYP29 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP30 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP31 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP32 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP33 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP34 = [UNSAFE] ARRAY [1..2] OF - UNSIGNED;4 STARLET$$TYP35 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP36 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP37 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP38 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP39 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP40 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP41 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP42 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET$$TYP43 = [UNSAFE] ARRAY [1..2] OF UNSIGNED;4 STARLET .$$TYP44 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP45 = $DEFPTR; STARLET$$TYP46 = $DEFPTR; STARLET$$TYP47 = $DEFPTR; STARLET$$TYP48 = $DEFPTR;  N(* *)N(* SYSTEM SERVICE ENTRY POINT DESCRIPTIONS *)N(* *)N(* *)N(* $ACM[W] / *)N(* *)N(* Authentication and Credentials Management *)N(* *)I(* $ACM[W] [efn], func, [contxt], itmlst, acmsb, *)B(* [astadr], [astprm] *)N(* 0 *)I(* efn = number of event flag to set at service completion *)B(* (read only, passed by value) *)I(* func = function code and modifiers specifying action *)B(* to be performed *)B(* (read only, passed by value) *)I(* contxt = context longword, used to maintain service state *)B(* across iterative calls 1 *)B(* (modify, passed by reference) *)I(* itmlst = list of item descriptors *)B(* (read only, passed by reference) *)I(* acmsb = ACM status block *)B(* (write only, passed by reference) *)I(* astadr = procedure value for AST routine to be called at *)B(* service completion 2 *)B(* (execute only, passed by reference) *)I(* astprm = value to be passed as an argument to the AST routine *)B(* (passed by value) *)N(* *) 0[ASYNCHRONOUS,EXTERNAL(SYS$ACM)] FUNCTION $ACM (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED;- VAR CONTXT : [VOLATILE] INTEGER := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:IN 3TEGER] OF $UBYTE;C %REF ACMSB : [VOLATILE,UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; 2[ASYNCHRONOUS,EXTERNAL(SYS$ACMW)] FUNCTION $ACMW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED;- VAR CONTXT : [VOLATILE] INTEGER := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;C %REF ACMSB : [VOLATILE,UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $U 4BYTE;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ADD_HOLDER *)N(* *)N(* Add Holder Record To The Rights Database *)N(* 5 *)I(* $ADD_HOLDER id, holder, [attrib] *)N(* *)D(* id = identifier longword to associate the *)B(* holder record with *)H(* holder = address of the holder identifier quadword *)H(* attrib = attributes longword to grant to the holder *) >[ASYNCHRONOUS,EXTERNAL(SYS$ADD 6_HOLDER)] FUNCTION $ADD_HOLDER ( %IMMED ID : UNSIGNED; HOLDER : $UQUAD;; %IMMED ATTRIB : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ADD_IDENT *)N(* *)N(* Add Identifier To The Rights Database *)N(* 7 *)I(* $ADD_IDENT name, [id], [attrib], [resid] *)N(* *)F(* name = address of the identifier name character *)B(* string descriptor *)D(* id = identifier longword to associate with 'name' *)H(* attrib = attributes longword to grant to the *)B(* identifier 8 *)G(* resid = address of a longword to return the assigned *)B(* identifier *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$ADD_IDENT)] FUNCTION $ADD_IDENT (: NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;" %IMMED ID : UNSIGNED := %IMMED 0;& %IMMED ATTRIB : UNSIGNED := %IMMED 0;B VAR RESID : [VOLATILE] UNSIGNED := %IMMED9 0) : INTEGER; EXTERNAL; N(* *)N(* $ADD_MAPPING *)N(* *)N(* Add Mapping record to Mapping database *)N(* *)N(* $ADD_MAPPING initmlst :*)N(* *)N(* initmlst = address of a list of item descriptors for the operation *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$ADD_MAPPING)] FUNCTION $ADD_MAPPING (R %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* $ADD_PROXY ; *)N(* *)N(* Add proxy record *)N(* *)N(* $ADD_PROXY rem_node, rem_user, local_user, [flags] *)N(* *)H(* rem_node in address of remote node descr <iptor *)H(* rem_user in address of remote user descriptor *)H(* local_user in address of local user descriptor *)F(* flags in proxy service flags *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$ADD_PROXY)] FUNCTION $ADD_PROXY (> REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;> REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER =] OF CHAR;@ LOCAL_USER : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ADJSTK *)N(* *)N(* Adjust Outer Mode Stack Pointer *)N(* > *)N(* $ADJSTK [acmode] ,[adjust] ,newadr *)N(* *)N(* acmode = access mode for which to adjust stack pointer *)N(* adjust = 16-bit signed adjustment value *)N(* newadr = address of longword to store updated value *)N(* ? *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ADJSTK)] FUNCTION $ADJSTK (& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED ADJUST : INTEGER := %IMMED 0;7 VAR NEWADR : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $ADJWSL *)N(* *)N(* Adjust Working Set Limit @ *)N(* *)N(* $ADJWSL [pagcnt] ,[wsetlm] *)N(* *)N(* pagcnt = number of pages to add to working set (if positive). *)N(* Number of pages to subtract from working set (if *)N(* negative). *)N A(* wsetlm = address of longword to receive new working set limit, *)N(* or current working set limit if pagcnt not specified. *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ADJWSL)] FUNCTION $ADJWSL (% %IMMED PAGCNT : INTEGER := %IMMED 0;C VAR WSETLM : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ALLOC B *)N(* *)N(* Allocate Device *)N(* *)N(* $ALLOC devnam ,[phylen] ,[phybuf] ,[acmode] ,[flags] *)N(* *)N(* devnam = address of device Cname or logical name string *)N(* descriptor *)N(* phylen = address of word to receive length of physical name *)N(* phybuf = address of physical name buffer descriptor *)N(* acmode = access mode associated with allocated device *)I(* flags = options flags longword *)N(* D *) 4[ASYNCHRONOUS,EXTERNAL(SYS$ALLOC)] FUNCTION $ALLOC (< DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, VAR PHYLEN : [VOLATILE] $UWORD := %IMMED 0;U VAR PHYBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ASCEFC E *)N(* *)N(* Associate Common Event Flag Cluster *)N(* *)N(* $ASCEFC efn ,name ,[prot] ,[perm] *)N(* *)N(* efn = number of any event flag in the cluster with which to *)N(*F associate *)N(* name = address of the text name string descriptor *)N(* prot = protection indicator for the cluster *)N(* 0 -> default, any process in group *)N(* 1 -> only owner's UIC *)N(* perm = permanent indicator *)N(* 0 -> tempor Gary cluster *)N(* 1 -> permanent cluster *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ASCEFC)] FUNCTION $ASCEFC ( %IMMED EFN : UNSIGNED;: NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;# %IMMED PROT : INTEGER := %IMMED 0;8 %IMMED PERM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* H *)N(* $ASCTIM *)N(* *)N(* Convert Binary Time to ASCII String *)N(* *)N(* $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg] *)N(* I *)N(* timlen = address of a word to receive the number of characters *)N(* inserted into the output buffer. *)N(* timbuf = address of a character string descriptor describing *)N(* the buffer to receive the converted time. *)N(* timadr = address of the quadword containing the 64-bit time to *)N(* be converted to ASCII. If 0, use current time. *)N(* cvtflg = con Jversion indicator *)N(* 0 -> return full date and time *)N(* 1 -> return converted time only *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ASCTIM)] FUNCTION $ASCTIM (, VAR TIMLEN : [VOLATILE] $UWORD := %IMMED 0;I VAR TIMBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; TIMADR : $UQUAD := %IMM KED 0;: %IMMED CVTFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ASCTOID *)N(* *)N(* Ascii To Identifier Conversion *)N(* *)I(* $ASCTOID name, [id], [attrib] L *)N(* *)F(* name = address of the identifier name character *)B(* string descriptor to be converted *)D(* id = address to return the identifier longword *)H(* attrib = address to return the attributes longword *)N(* *) 8[ASYNCHRONOUS,EX MTERNAL(SYS$ASCTOID)] FUNCTION $ASCTOID (: NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;* VAR ID : [VOLATILE] UNSIGNED := %IMMED 0;C VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ASCUTC *)N(* *)N(* Convert Binary UTC time into ASCII time Nstring *)N(* *)I(* $ASCUTC [timlen], timbuf, [utcadr], [cvtflg] *)N(* *)I(* timlen = Length (in bytes) of the ASCII string *)B(* returned by $ASCUTC. The timelen argument *)B(* is the address of a word containing this length. *)I(* timbuf = Buffer into Owhich $ASCUTC writes the ASCII string. *)B(* The timbuf argument is the address of a character *)B(* string descriptor pointing to the bufer. The *)B(* buffer length specified in the timbuf argument, *)B(* together rwith the cvtflg argument, controls what *)B(* information is returned. *)I(* utcadr = Time value that $ASCUTC is to convert. The utcadr *)B(* argument is the address of this 1P28-bit time value. *)B(* Relative times are not permitted. If utcadr is *)B(* not specified ( ie 0 ), $ASCUTC returns the current *)B(* date and time. *)I(* cvtflg = Conversion indicator specifying which date and time *)B(* fields $ASCUTC should return. The cvtflg argument is *)B(* a longword value, which is interpreted as Boolean. *)B(* The value 1 specifies that ASCUTC should return only Q *)B(* the hour,minute,second, and hundreths of a second fields. *)B(* The default value 0 specifies that $ASCUTC should return *)C(* the full date and time. *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ASCUTC)] FUNCTION $ASCUTC (, VAR TIMLEN : [VOLATILE] $UWORD := %IMMED 0;< TIMBUF : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; UTCADR : $UOCTA := %IMMED 0;: %IMMED CVTFRLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ASSIGN *)N(* *)N(* Assign I/O Channel *)N(* *)N(* $ASSIGN devnam ,chan ,[acmode] ,[mbxnam], [flSags] *)N(* *)N(* devnam = address of device name or logical name string *)N(* descriptor *)N(* chan = address of word to receive channel number assigned *)N(* acmode = access mode associated with channel *)N(* mbxnam = address of mailbox logical name string descriptor, if *)N T(* mailbox associated with device *)I(* flags = optional channel flags longword for specifying options *)B(* for the $ASSIGN operation *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ASSIGN)] FUNCTION $ASSIGN (< DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR CHAN : [VOLATILE] $UWORD;& %IMMED ACMODE : UNSIGNED := %IMMED 0;H MBXNAM U: [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $AUDIT_EVENT *)N(* *)N(* Audit Security Relevant Event *)N(* V *)O(* $AUDIT_EVENT(W) [efn], [flags], itmlst, [audsts], [astadr], [astprm] *)N(* *)E(* efn = number of event flag to set on completion *)N(* *)G(* flags = input flags longword *)N(* *)H(* itmlst = adWdress of list of item descriptors *)N(* *)H(* audsts = address of longword to receive final completion status *)N(* *)H(* astadr = address of AST completion routine *)N(* *)H(* astprm = unsigned longword to be passed to AST routine X *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$AUDIT_EVENT)] FUNCTION $AUDIT_EVENT (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;, VAR AUDSTS : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; B[ASYNCHRONOUS,EXTERNAL(S YYS$AUDIT_EVENTW)] FUNCTION $AUDIT_EVENTW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;, VAR AUDSTS : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $BINTIM Z *)N(* *)N(* Convert ASCII String to Binary Time *)N(* *)N(* $BINTIM timbuf ,timadr *)N(* *)N(* timbuf = address of string descriptor for ASCII time string *)N(* tima[dr = address of quadword to receive 64-bit binary time *)N(* value *)N(* *)N(* Absolute time strings are specified in the format: *)N(* dd-mmm-yyyy hh:mm:ss.cc *)N(* Delta time strings are specified in the format: *)N(* dddd hh:mm:ss.cc \ *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$BINTIM)] FUNCTION $BINTIM (< TIMBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;5 VAR TIMADR : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* *)N(* $BINUTC *)N(* ] *)N(* Convert ASCII UTC time to a binary format *)N(* *)N(* $BINUTC timbuf, utcadr *)N(* *)I(* timbuf = Buffer that holds the ASCII time to be converted. *)B(* The timbuf argument specifies the address of a *)B(* ^ character string descriptor pointing to the VMS *)B(* time string. The VMS time string specifies the *)C(* absolute time to be converted by $BINUTC. *)I(* utcadr = Time value that $BINUTC has converted. The *)B(* utcadr argument is the address of the utc_date_time *)C(* which receives the converted time. *)N(* *) 6[ASYNC _HRONOUS,EXTERNAL(SYS$BINUTC)] FUNCTION $BINUTC (< TIMBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;5 VAR UTCADR : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; N(* *)N(* $BRDCST *)N(* *)N(* Broadcast *)N(* ` *)N(* $BRDCST msgbuf ,[devnam] *)N(* *)N(* msgbuf = address of message buffer string descriptor *)N(* devnam = terminal device name string descriptor. If 0, send *)N(* message to all terminals. If first word in *)N(* descriptor is 0, sen ad message to all allocated *)N(* terminals. *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$BRDCST)] FUNCTION $BRDCST (< MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;H DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;< %IMMED CARCON : UNSIGNED := %IMMED 32) : INTEGER; EXTERNAL; N(* b$BRKTHRU *)N(* *)N(* Write to terminal breakthru *)N(* *)N(* $BRKTHRU [efn] ,msgbuf, [sendto], [sndtyp], [iosb], *)I(* ($BRKTHRUW) [carcon], [flags], [reqid], [timout], *)B(* [astadr], [astprm] c *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* msgbuf = address of message buffer descriptor *)N(* *)N(* sendto = address of send address descriptor d *)N(* *)N(* sndtyp = value to describe sendto *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* carcon = carriage control *)N(* e *)N(* flags = flags to modify broadcast *)N(* *)N(* reqid = broadcast class requestor id *)N(* *)N(* timout = address of timeout value *)N(* f *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as an argument *)N(* *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$BRKTHRU)] FUNCTION $BRKTHRU (# %IMMED gEFN : UNSIGNED := %IMMED 0;H MSGBUF : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;H SENDTO : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;& %IMMED SNDTYP : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;' %IMMED CARCON : UNSIGNED := %IMMED 32;% %IMMED FLAGS : UNSIGNED := %IMMED 0;% %IMMED REQID : UNSIGNED := %IMMED 0;& %IMMED TIMOUT : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : U hNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; :[ASYNCHRONOUS,EXTERNAL(SYS$BRKTHRUW)] FUNCTION $BRKTHRUW (# %IMMED EFN : UNSIGNED := %IMMED 0;H MSGBUF : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;H SENDTO : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;& %IMMED SNDTYP : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;' %IMMED CARCON : UNSIGNED := %IMMED 32;% %IMMED FLAGS : UNSIGNED := %IMMED 0;% %IMMED REQID : UNSIGNED := %IMMED 0;& %IMME iD TIMOUT : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CANCEL *)N(* *)N(* Cancel I/O on Channel *)N(* j *)N(* $CANCEL chan *)N(* *)N(* chan = number of the channel on which I/O is to be canceled *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CANCEL)] FUNCTION $CANCEL (, %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; N(* k *)N(* $CANCEL_SELECTIVE *)N(* *)N(* Selective Cancel I/O on Channel *)N(* *)N(* $CANCEL_SELECTIVE chan, [iosblst], [lenlst] *)N(* l *)N(* chan = number of the channel on which I/O is to be canceled *)N(* iosblst = address of a vector of IOSB pointers *)N(* lenlst = number of entries in the vector pointed by iosblst *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$CANCEL_SELECTIVE)] FUNCTION $CANCEL_SELECTIVE ( %IMMED CHAN : INTEGER;H %REF IOSBLST : [UNSAFE] ARRAY [$l2..$u2:INT mEGER] OF $UBYTE := %IMMED 0;; %IMMED LENLST : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CANEVTAST *)N(* *)N(* Cancel an Event AST Routine *)N(* *)O(* $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid] *)B(* n,[evtid] *)N(* *)N(* evtnam = address of descriptor of event name *)N(* *)N(* evtadr = address of entry mask of event AST routine *)N(* *)N(* evtfac = address of event facility codeo *)N(* *)N(* acmode = access mode of event declaration *)N(* *)N(* flags = address of optional flags *)N(* *)N(* reqid = user provided identification of this request p *)N(* *)N(* evtid = unique identification of this request *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$CANEVTAST)] FUNCTION $CANEVTAST (H EVTNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVTADR := %IMMED 0; EVTFAC : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNS qIGNED := %IMMED 0; FLAGS : UNSIGNED := %IMMED 0;% %IMMED REQID : UNSIGNED := %IMMED 0;: %IMMED EVTID : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CANEXH *)N(* *)N(* Cancel Exit Handler *)N(* r *)N(* $CANEXH [desblk] *)N(* *)N(* desblk = address of exit control block describing exit handler *)N(* to be deleted. If 0, delete all. *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CANEXH)] FUNCTION $CANEXH s (\ %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CANTIM *)N(* *)N(* Cancel Timer Request *)N(* *)N(* t $CANTIM [reqidt] ,[acmode] *)N(* *)N(* reqidt = request identification for request to be canceled. *)N(* If 0, all requests canceled. *)N(* acmode = access mode of requests to be canceled *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS u$CANTIM)] FUNCTION $CANTIM (& %IMMED REQIDT : UNSIGNED := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CANWAK *)N(* *)N(* Cancel Wakeup *)N(* v *)N(* $CANWAK [pidadr] ,[prcnam] *)N(* *)N(* pidadr = address of process identification of process for *)N(* which wakeups are to be canceled *)N(* prcnam = address of process name string descriptor *)N(* w*) 6[ASYNCHRONOUS,EXTERNAL(SYS$CANWAK)] FUNCTION $CANWAK (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;] PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $CHANGE_ACL *)N(* *)N(* Set or modify an object's ACL *)N(* x *)E(* $CHANGE_ACL [chan], objtyp, [objnam], *);(* itmlst, [acmode], [iosb], *);(* [contxt] , [routin], [orbadr] *)N(* *)I(* chan = number of a channel assigned to the object or *)C(* 0 if object is specified by the objnam parameter *)N(* y *)I(* objtyp = address of an object type code *)N(* *)I(* objnam = address of object name *)N(* *)I(* itmlst = address of a list of item descriptors *)N(* *)I(* acmode = addrzess of a byte containing the access mode in *)B(* which the arguments will be validated *)N(* *)I(* iosb = address of a quadword I/O status block *)N(* *)I(* contxt = address of a context long word (used for iterative *)B(* calls or a multi-entry item list) *){N(* *)I(* routin = address of routine to be executed in kernel mode *)B(* (obsolete) *)N(* *)I(* orbadr = address of a user supplied ORB *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$CHANGE_ACL)] |FUNCTION $CHANGE_ACL (# %IMMED CHAN : INTEGER := %IMMED 0; OBJTYP : UNSIGNED;H OBJNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; ACMODE : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;. VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0;4 ORBADR : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; H(* $CHANGE_CLASS objtyp, [objnam], it}mlst *);(* [acmode], [orbadr] *)N(* *)N(* Modify an objects access class *)N(* *)N(* objtyp = address of an object type code *)N(* *)N(* o~bjnam = address of an object name descriptor *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* acmode = address of a byte containing the access mode in *)B(* which the arguments will be validated *)N(*  *)N(* orbadr = address of routine to be executed in kernel mode *)N(* *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$CHANGE_CLASS)] FUNCTION $CHANGE_CLASS ( OBJTYP : UNSIGNED;< OBJNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;& %IMMED ACMODE  : UNSIGNED := %IMMED 0;4 ORBADR : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CHECK_ACCESS *)N(* *)N(* $CHECK_ACCESS [objtyp], [objnam], [usrnam], itmlst, [contxt], *)B(* [clsnam], [objpro], [usrpro] *)N(* *)N(* Check User Access to an Object *)N(* *)N(* objtyp = address of an object type code *)N(* *)N(* objnam = address of an object name descriptor *)N(* *)N(* usrnam = address of a user name descriptor  *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* contxt = address of longword for UAI context *)N(* *)N(* clsnam = address of object class name descriptor *)N(*  *)N(* objpro = address of object profile descriptor(ORB TLV or channel) *)N(* *)N(* usrpro = address of user profile descriptor (ARB TLV) *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$CHECK_ACCESS)] FUNCTION $CHECK_ACCESS ( OBJTYP : UNSIGNED := %IMMED 0;H OBJNA M : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;H USRNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;. VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0;H CLSNAM : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;H OBJPRO : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;] USRPRO : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $C HECK_FEN *)N(* *)N(* Check if floating point enabled for current image *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$CHECK_FEN)] FUNCTION $CHECK_FEN (D VAR RETMASK : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CHECK_PRIVILEGE[W]  *)N(* *)N(* Check for process privilege and perform security audit. *)N(* *)f(* $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm] *)N(* *)N(* efn = event flag to set on asynchronous service completion *)N(* prvadr = address of quadword privilege mask or longword identifier *)H(* altprv = address of quadword privilege mask to check against *)N(* flags = control flags *)N(* itmlst = address of a list of item descriptors *)N(* audsts = longword to receive final completion status *)N(* astadr = address of AST routine to call on service completion *)N(*  astprm = longword to pass to AST routine *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$CHECK_PRIVILEGE)] FUNCTION $CHECK_PRIVILEGE (# %IMMED EFN : UNSIGNED := %IMMED 0; PRVADR : UNSIGNED; ALTPRV : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0;. VAR AUDSTS : [VOLATILE] UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; J[ASYNCHRONOUS,EXTERNAL(SYS$CHECK_PRIVILEGEW)] FUNCTION $CHECK_PRIVILEGEW (# %IMMED EFN : UNSIGNED := %IMMED 0; PRVADR : UNSIGNED; ALTPRV : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0;. VAR AUDSTS : [VOLATILE] UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CHKPRO *)N(* *)I(* Check Access Protection *)N(* *)N(* $CHKPRO itmlst, [objpro], [usrpro]  *)N(* *)I(* itmlst = address of a list of item descriptors *)N(* objpro = address of object handle descriptor (ORB TLV) *)N(* usrpro = address of user handle descriptor (ARB TLV) *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CHKPRO)] FUNCTION $CHKPRO (; %REF ITMLST  : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;& %IMMED OBJPRO : UNSIGNED := %IMMED 0;; %IMMED USRPRO : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CLEAR_SYSTEM_EVENT *)N(* *)N(* Clear System Event Notification *)N(* *)N(* $CLEAR_SYSTEM_EVENT [handle], [acmode], [event] *)N(* *)N(* handle = address of handle *)N(* *)N(* acmode = access mode of AST *)N(* *)N(* event = code indicating type of event  *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$CLEAR_SYSTEM_EVENT)] FUNCTION $CLEAR_SYSTEM_EVENT ( HANDLE : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED EVENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CLEAR_UNWIND_TABLE *)N(* *)N(* Clears unwind table (UT) information. *)N(* *)I(* $CLEAR_UNWIND_TABLE code_base_va *)N(* *)U(* code_base_va = process virtual address of the start of a registered code region *)I(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$CLEAR_UNWIND_TABLE)] FUNCTION $CLEAR_UNWIND_TABLE (@ %IMMED CODE_BASE_VA : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $CLRCLUEVT *)N(* *)N(* Clear Cluster Event Notification *)N(* *)N(* $CLRCLUEVT [handle], [acmode], [event] *)N(* *)N(* handle = address of handle *)N(* *)N(* acmode = access mode of AST *)N(* *)N(* event = code indicating type of event *)N(*  *) <[ASYNCHRONOUS,EXTERNAL(SYS$CLRCLUEVT)] FUNCTION $CLRCLUEVT ( HANDLE : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED EVENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CLREF *)N(* *)N(* Clear Event Flag *)N(* *)N(* $CLREF efn *)N(* *)N(* efn = number of event flag to be cleared *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$C LREF)] FUNCTION $CLREF (, %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $CLOSE *)N(* *)N(* Close File *)N(* *)N(* $CLOSE fab, [err], [suc] *)N(* *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine * )N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$CLOSE)] FUNCTION $CLOSE (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CMEXEC  *)N(* *)N(* Change to Executive Mode *)N(* *)N(* $CMEXEC routin ,[arglst] *)N(* *)N(* routin = address of the routine to be executed in executive *)N(*  mode *)N(* arglst = address of argument list to be supplied to the *)N(* routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CMEXEC)] FUNCTION $CMEXEC (1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN;\ %REF ARGLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNA L; N(* *)N(* $CMEXEC_64 *)N(* *)N(* Change to Executive Mode with Quadword Argument List *)N(* *)N(* $CMEXEC_64 routin_64 ,[arglst_64] *)N(*  *)N(* routin_64 = address of the routine to be executed in executive *)N(* mode *)U(* arglst_64 = address of quadword argument list to be supplied to the *)N(* routine *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$CMEXE C_64)] FUNCTION $CMEXEC_64 (4 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN_64;D VAR ARGLST_64 : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $CMKRNL *)N(* *)N(* Change to Kernel Mode *)N(* *)N(* $CMKRNL routin ,[arglst] *)N(* *)N(* routin = address of routine to be executed in kernel mode *)N(* *)N(* arglst = address of argument list to be supplied to routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CMKRNL)] FUNCTION $CMKR NL (1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN;\ %REF ARGLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $CMKRNL_64 *)N(* *)N(* Change to Kernel Mode with Quadword Argument List *)N(* *)N(* $CMKRNL_64 routin_64 ,[arglst_64] *)N(* *)N(* routin_64 = address of routine to be executed in kernel mode *)N(* *)Q(* arglst_64 = address of quadword argument list to be supplied to routine *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$CMKRNL_64)] FUNCTION $CMKRNL_64 (4 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN_64;5 ARGLST_64 : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CONNECT *)N(* *)N(* Connect File *)N(*  *)N(* $CONNECT rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address  of user success completion routine *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$CONNECT)] FUNCTION $CONNECT (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $CNTREG *)N(*  *)N(* Contract Program/Control Region *)N(* *)N(* $CNTREG pagcnt ,[retadr] ,[acmode] ,[region] *)N(* *)N(* pagcnt = number of pages to be deleted from end of region *)N(*  *)N(* retadr = address of 2-longword array to receive virtual *)I(* addresses of starting and ending page of deleted area *)N(* *)N(* acmode = access mode for which service is performed *)N(* *)N(* region = region indicator  *)N(* 0 -> program (P0) region 1 -> control (P1) region *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CNTREG)] FUNCTION $CNTREG ( %IMMED PAGCNT : UNSIGNED;3 VAR RETADR : [VOLATILE] STARLET$$TYP1 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED REGION : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CPU_CAPABILITIES *)N(* *)N(* Modify CPU user capabilities *)N(* *)T(* $CPU_CAPABILITIES cpu_id,[select_mask],[modify_mask],[prev_mask],[flags] *)N(* *)I(* cpu_id = CPUID number of processor to be affected by changes *)I(* select_mask = address of bitmask indicating which capabilities *)B(* are to be involved in the specified operation *)I(* modify_mask = address of bitmask indicating final state *)B(* of those capabilities specified in select_mask *)I(* prev_mask = address of user quadword that will hold the *)B(* previous states of the individual capabilities *)I(* flags = address of behavi oral flags for this operation *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$CPU_CAPABILITIES)] FUNCTION $CPU_CAPABILITIES (% %IMMED CPU_ID : INTEGER := %IMMED 0;" SELECT_MASK : $UQUAD := %IMMED 0;" MODIFY_MASK : $UQUAD := %IMMED 0;/ VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0;1 FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CPU_TRANSITION *)N(* $CPU_TRANSITIONW *)N(* *)N(* CPU State Transitions *)N(* *)S(* $CPU_TRANSITION tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm *)T(* $CPU_TRANSITIONW tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm *)R(* Inputs: tran_code - Transition code of operation to be initiated *)N(* cpu_id - CPU ID of processor to affected *)?(* nodename - ASCII descriptor name equivalent to node ID *)N(* node_id - Galactic node ID *)S(* flags - Quadword pointer to longword behavioral flags *)S(* efn - Event flag number for completion notification *)T(* iosb - IOSB block address for completion notification *)O(* astadr - Address of AST routine name on completion *)S(* astprm - AST parameter to be passed back on completion *)N(* timout - Timeout count in seconds *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$CPU_TRANSITION)] FU NCTION $CPU_TRANSITION (( %IMMED TRAN_CODE : INTEGER := %IMMED 0;% %IMMED CPU_ID : INTEGER := %IMMED 0;J NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;' %IMMED NODE_ID : INTEGER := %IMMED -1;% %IMMED FLAGS : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;; %IMMED TIMOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTE RNAL; H[ASYNCHRONOUS,EXTERNAL(SYS$CPU_TRANSITIONW)] FUNCTION $CPU_TRANSITIONW (( %IMMED TRAN_CODE : INTEGER := %IMMED 0;% %IMMED CPU_ID : INTEGER := %IMMED 0;J NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;' %IMMED NODE_ID : INTEGER := %IMMED -1;% %IMMED FLAGS : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMME D 0;; %IMMED TIMOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CREATE *)N(* *)N(* Create File *)N(* *)N(* $CREATE fab, [err], [suc]  *)N(* *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N (* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CREATE)] FUNCTION $CREATE (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CREATE_MAPPING  *)N(* *)N(* Create Mapping record database *)N(* *)N(* $CREATE_MAPPING *)N(* *) Y[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_MAPPING)] FUNCTION $CREATE_MAPPING : INTEGER; EXTERNAL; N(* *)N(* $CREATE_PROXY *)N(* *)N(* Create proxy database *)N(* *)N(* $CREATE_PROXY *)N(*  *)N(* *) U[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_PROXY)] FUNCTION $CREATE_PROXY : INTEGER; EXTERNAL; N(* *)N(* $CREATE_UID *)N(* *)N(* Create a Universal Identifie r *)N(* *)I(* $CREATE_UID UID *)N(* *)E(* UID = address of the 16 byte buffer to receive the UID. *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_UID)] FUNCTION $CREATE_UID (2 VAR UID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; N(* $CREATE_BUFOBJ *)N(* *)N(* Create I/O Buffer Object *)N(* *)N(* $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle *)N(*  *)O(* inadr = address of 2-longword array containing starting and ending *)O(* virtual addresses of existing VA to include in buffer object *)N(* *)N(* retadr = address of 2-longword array to receive addresses *)N(* actually included in the buffer object *)N(* *)N(* acmode = access mode of owner of buffer object *)N(* *)N(* flags = request option flags *)N(* *)D(* Bit Meaning (if set) *)N(* *)G(* 0 Return system virtua l address of buffer object in RETADR *);(* (Caller must be in kernel mode) *)N(* *)I(* buffer_handle = address of a quadword to receive the buffer handle *)B(* that identifies the created buffer object *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BUFOBJ)] FUNCTION $CREATE_BUFOBJ (# INADR : STARLET$$TYP2 : = %IMMED 0;3 VAR RETADR : [VOLATILE] STARLET$$TYP3 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;O VAR BUFFER_HANDLE : [VOLATILE] STARLET$$TYP4 := %IMMED 0) : INTEGER; EXTERNAL; N(* $CREATE_BUFOBJ_64 *)N(* *)N(* Create I/O Buffer Object *)N(*  *)c(* $CREATE_BUFOBJ_64 start_va_64, length_64, acmode, flags, return_va_64, return_length_64, *)I(* buffer_handle_64 *)N(* *)T(* start_va_64 = Starting address of existing address to include in buffer object *)N(* *)J(* length_64 = Byte length of addresses to include in buffer object *)N(* *)N(* acmode = access mode of owner of buffer object *)N(* *)N(* flags = request option flags *)N(* *)F(* Flag Meaning (if specified)  *)N(* *)Y(* CBO_M_RETSVA Return system virtual address of buffer object in return_va_64 *);(* (Caller must be in kernel mode) *)N(* CBO_M_SVA_32 Create buffer object window in 32-bit (S0/S1) system space *)N(* *)J(* return_va_64 = Address of buffer object created *)N(*  *)J(* return_length_64 = Length of buffer object created *)N(* *)K(* buffer_handle_64 = address of a quadword to receive the buffer handle *)B(* that identifies the created buffer object *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BUFOBJ_64)] FUNCTION $CREATE_BUFOB J_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;? VAR BUFFER_HANDLE_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* $CREATE_GFILE *)N(* *)N(* Create Permanent Global Disk File Section *)N(* *)\(* $CREATE_GFILE gsdnam_64, ident_64, file_offset_64, length_64, chan, acmode, flags, *)I(* return_length_64[, fault_cluster] *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(*  *)T(* ident_64 = Address of quadword containing version id and match control *)N(* *)H(* file_offset_64 = Byte offset into file to start section *)N(* *)G(* length_64 = Byte length of section to create *)N(*  *)G(* chan = Number of channel on which file is accessed *)N(* *)G(* acmode = Access mode for section *)N(* *)G(* flags = Section characteristics *)N(* *)F(* Flag Meaning *)N(* *)F(* SEC$M_CRF Copy-on-reference section *)F(* SEC$M_SYSGBL System global section *)F(* SEC$M_WRT Read/write section *)N(* *)J(* return_length_64 = Length of section created  *)N(* *)N(* fault_cluster = Page fault cluster size in bytes *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GFILE)] FUNCTION $CREATE_GFILE ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0;- %IMMED FILE_OFFSET_64 : INTEGER := %IMMED 0;( %IMMED LENGTH_64 : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER; & %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;B %IMMED FAULT_CLUSTER : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CREATE_GDZRO *)N(* *)N(* Create Permanent Global Demand Zero Section *)N(*  *)j(* $CREATE_GDZRO gsdnam_64, ident_64, prot, length_64, acmode, flags[[, reserved_length], rad_mask] *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(* *)Q(* ident_64 = Address of quadword containing version id and match control *)N(*  *)G(* prot = Protection mask *)N(* *)G(* length_64 = Byte length of section to create *)N(* *)G(* acmode = Access mode for section *)N(*  *)G(* flags = Section characteristics *)N(* *)F(* Flag Meaning *)N(* *)F(* SEC$M_SYSGBL System global section *)N(* *)\(* SEC$M_RAD_HINT Us e rad_mask argument as a hint of which RADs to allocate memory from *)N(* *)M(* reserved_length_64 = Length of memory reserved for this global section *)I(* *)Z(* rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory *) B[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GDZRO)] FUNCTION $CREATE_GDZRO ( %IMMED GSDNAM_64 : $DEFPTR; IDE NT_64 : $UQUAD := %IMMED 0;$ %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;8 VAR RESERVED_LENGTH_64 : [VOLATILE] $UQUAD := %IMMED 0;4 RAD_MASK : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $CREATE_GPFILE *)N(* *)N(* Create Permanent Global Page File Section  *)N(* *)N(* $CREATE_GPFILE gsdnam_64, ident_64, prot, length_64, acmode, flags *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(* *)Q(* ident_64 = Address of quadword containing version id and match control *)N(* *)G(* prot = Protection mask *)N(* *)G(* length_64 = Byte length of section to create *)N(* *)G(* acmode = Access mode for section  *)N(* *)G(* flags = Section characteristics *)N(* *)F(* Flag Meaning *)N(* *)F(* SEC$M_SYSGBL System global section *)N(*  *) D[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GPFILE)] FUNCTION $CREATE_GPFILE ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0;$ %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CREATE_GPFN *)N(*  *)N(* Create Permanent Global Page Frame Section *)N(* *)V(* $CREATE_GPFN gsdnam_64, ident_64, prot, start_pfn, page_count, acmode, flags *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(*  *)T(* ident_64 = Address of quadword containing version id and match control *)N(* *)G(* prot = Protection mask *)N(* *)C(* start_pfn = Page frame number of first page in section *)N(*  *)D(* page_count = Number of page frames in section *)N(* *)G(* acmode = Access mode for section *)N(* *)G(* flags = Section characteristics *)N(* *)F(* Flag Meaning  *)N(* *)E(* SEC$M_ARGS64 All arguments are passed as 64-bits *)F(* SEC$M_SYSGBL System global section *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GPFN)] FUNCTION $CREATE_GPFN ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0;$ %IMMED PROT : UNSIGNED := %IMMED 0;  %IMMED START_PFN : INTEGER; %IMMED PAGE_COUNT : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $CREATE_RDB *)N(* *)N(* Create The Rights Database *)N(*  *)I(* $CREATE_RDB [sysid] *)N(* *)G(* sysid = address of the quadword system identifier *)B(* to store in the maintenance record *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_RDB)] FUNCTION $CREATE_RDB (1 SYSID : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $CREATE_REGION_64 *)N(* *)N(* Create Virtual Address Region *)N(* *)](* $CREATE_REGION_64 length_64, region_prot, flags, return_region_id_64, return_va_64, *)I(* return_length_64[, start_va_64] *)N(* *)G(* length_64 = Byte length of region to create *)N(* *)J(* region_prot = Protection on region *)N(* *)G(* flags = Region characteristics *)N(* *)J(* return_region_id_64 = Region id associated with newly created region *)N(* *)F(* return_va_64 = Starting address of region created *)N(* *)J(* return_length_64 = Length of region created *)N(*  *)F(* start_va_64 = Starting address to create region *) J[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_REGION_64)] FUNCTION $CREATE_REGION_64 (( %IMMED LENGTH_64 : INTEGER := %IMMED 0;+ %IMMED REGION_PROT : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;* VAR RETURN_REGION_ID : [VOLATILE] $UQUAD;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;? %IMMED START_VA_64 : $DEFPTR := %IMMED 0) : INTEGER; EXTE RNAL; N(* *)N(* $CREATE_USER_PROFILE *)N(* *)N(* Create a user security profile. *)N(* *)T(* $CREATE_USER_PROFILE [usrnam], [itmlst], [flags], usrpro, usrprolen, [context] *)N(*  *)N(* usrnam = address of username descriptor (optional with CHP$M_NOACCESS) *)B(* itmlst = address of item list *)B(* flags = flags longword *)O(* usrpro = address of buffer to receive user profile (opaque byte string) *)F(* usrprolen = address of longword to receive user profile length *)B(* contxt = address of longword to receive UAI context *)N(* *) P[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_USER_PROFILE)] FUNCTION $CREATE_USER_PROFILE (H USRNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;D %REF USRPRO : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;% VAR USRPROLEN : [VOLATILE] UNSIGNED;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRELNM *)N(* *)N(* Create Logical Name *)N(* *)N(* $CRELNM [attr], tabnam, lognam, [acmode], [itemlist] *)N(*  *)N(* attr = address of logical name attributes *)N(* *)C(* Attribute Meaning *)I(* LNM$M_CONFINE Logical name not to be copied into sub-process *)I(* LNM$M_NO_ALIAS Logical name can not be aliased *)F(* LNM$M_CRELOG Logical name created using $CRELOG *)N(*  *)N(* tabnam = address of logical name table string descriptor *)N(* *)N(* lognam = address of logical name string descriptor *)N(* *)N(* acmode = address of access mode for logical name *)N(*  *)N(* itmlst = address of a list of item descriptors *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CRELNM)] FUNCTION $CRELNM ( ATTR : UNSIGNED := %IMMED 0;< TABNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;< LOGNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; ACMODE : $UBYTE := %IMMED 0;\ %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXT ERNAL; N(* $CRELNT *)N(* *)N(* Create Logical Name Table *)N(* *)N(* $CRELNT [attr], [resnam], [reslen], [quota], *)I(* [promsk], [tabnam], [acmode], [partab], [uic] *)N(*  *)N(* attr = address of logical name table attributes *)N(* *)N(* resnam = address of descriptor of a buffer to receive the *)B(* created table's name *)N(* *)N(* reslen = address of word to recieve length of created table's *)B(* name *)N(* *)N(* quota = address of quota associated with logical name table *)N(* *)N(* promsk = address of protection mask *)N(* *)Q(* tabnam = address of descriptor of logical name table name to be created *)N(* *)N(* partab = address of name of table parent string descriptor *)N(* *)N(* acmode = address of access mode for logical name *)N(* *)N(* uic = owner of table created in response to remote request *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CRELNT)] FUNCTION $CRELNT ( ATTR : UNSIGNED := %IMMED 0;U VAR RESNAM : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;, VAR RESLEN : [VOLATILE] $UWORD := %IMMED 0; QUOTA : UNSIGNED := %IMMED 0; PROMSK : $UWORD := %IMMED 0;H TABNAM : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;< PARTAB : [CLASS_S ] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; ACMODE : $UBYTE := %IMMED 0;1 UIC : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRELOG *)N(* *)N(* Create Logical Name *)N(* *)N(* $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode]  *)N(* *)N(* tblflg = logical name table number *)N(* 0 -> system (default) 1 -> group 2 -> process *)N(* *)N(* lognam = address of logical name string descriptor *)N(* *)N (* eqlnam = address of equivalence name string descriptor *)N(* *)N(* acmode = access mode for logical name (process table only) *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CRELOG)] FUNCTION $CRELOG (& %IMMED TBLFLG : UNSIGNED := %IMMED 0;< LOGNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;< EQLNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CREMBX *)N(* *)N(* Create Mailbox and Assign Channel *)N(* *)\(* $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags] *)N(* *)N(* prmflg = permanent flag *)N(* 0 -> temporary (default) 1 -> permanent *)N(* *)N(* chan = address of word to receive channel *)N(* *)N(* maxmsg = maximum message size that may be received *)N(* *)N(* bufquo = number of bytes that can be used to buffer messages *)N(* *)N(* promsk = protection mask *)N(* *)N(* acmode = access mode of created m ailbox *)N(* *)N(* lognam = address of logical name string descriptor for mailbox *)N(* *)N(* flags = optional flags for mailbox creation and channel assignment *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CREMBX)] FUNCTION $CREMBX (% %IMME D PRMFLG : INTEGER := %IMMED 0; VAR CHAN : [VOLATILE] $UWORD;& %IMMED MAXMSG : UNSIGNED := %IMMED 0;& %IMMED BUFQUO : UNSIGNED := %IMMED 0;& %IMMED PROMSK : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;H LOGNAM : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CREPRC *)N(*  *)N(* Create Process *)N(* *)N(* $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr] *)N(* ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst] *)N(* ,[node], [home_rad]. [lt_limit] *)N(* *)N(* pidadr = address of longword to return id of created process *)N(* *)N(* image = address of string descriptor for image name *)N(* *)N(* input = address of string descriptor for SYS$INPUT *)N(* *)N(* output = address of string descriptor for SYS$OUTPUT *)N(* *)N(* error = address of string descriptor for SYS$ERROR *)N(* *)N(* prvadr = address of quadword privilege list *)N(* *)N(* quota = address of quota list  *)N(* *)N(* prcnam = address of string descriptor for process name *)N(* *)N(* baspri = base priority (0-31) *)N(* *)N(* uic = user identification code. If 0, create a subprocess *)N(*  *)N(* mbxunt = mailbox unit for termination message *)N(* *)N(* stsflg = status and mode flag bits *)N(* *)N(* Bit Meaning *)N(*  *)N(* 0 disable resource wait mode *)I(* 1 enable system service failure exception mode *)I(* 2 inhibit process swapping *)N(* 3 disable accounting messages *)N(* 4 batch process *)N(* 5 cause created process to hibernate  *)N(* 6 allow login without authorization file check *)N(* 7 process is a network connect object *)J(* 22 start process on specified home rad *)I(* 26 set kernel thread limit for the process *)N(* *)N(* itmlst = address of a list of item descriptors *)N(*  *)N(* node = address of string descriptor for SCS node name *)N(* *)N(* home_rad = RAD to start process on, if bit 22 in stsflg is set *)N(* *)S(* kt_limit = kernel thread limit of the process, if bit 26 in stsflg is set *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CREPRC)] FUNCTION $CREPRC (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;G IMAGE : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;G INPUT : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;H OUTPUT : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;G ERROR : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; PRVADR : $UQUAD := %IMMED 0;F %REF QUOTA : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l8. .$u8:INTEGER] OF CHAR := %IMMED 0;& %IMMED BASPRI : UNSIGNED := %IMMED 2;# %IMMED UIC : UNSIGNED := %IMMED 0;% %IMMED MBXUNT : INTEGER := %IMMED 0;& %IMMED STSFLG : UNSIGNED := %IMMED 0;I %REF ITMLST : [UNSAFE] ARRAY [$l13..$u13:INTEGER] OF $UBYTE := %IMMED 0;H NODE : [CLASS_S] PACKED ARRAY [$l14..$u14:INTEGER] OF CHAR := %IMMED 0;( %IMMED HOME_RAD : UNSIGNED := %IMMED 0;< %IMMED KT_LIMIT : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRETVA  *)N(* *)N(* Create Virtual Address Space *)N(* *)N(* $CRETVA inadr ,[retadr] ,[acmode] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending virtual address of pages to be created *)N(* *)N(* retadr = address of a 2-longword array to receive starting and *)N(* ending virtual address of pages actually created *)N(* *)N(* acmode = access mode for the new pages (protection is *)N(* read/write  for acmode and more privileged modes) *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CRETVA)] FUNCTION $CRETVA ( INADR : STARLET$$TYP5;3 VAR RETADR : [VOLATILE] STARLET$$TYP6 := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRETVA_64 *)N(* *)N(* Create Virtual Address Space *)N(* *)i(* $CRETVA_64 region_id_64, start_va_64, length_64, acmode, flags, return_va_64, return_length_64 *)B(* [, page_prot] *)N(* *)G(* region_id_64 = Address of quadword region id *)N(*  *)E(* start_va_64 = Starting address of address space to create *)N(* *)G(* length_64 = Byte length of addresses to create *)N(* *)K(* acmode = access mode for the new pages (protection is *)G(* read/write for acmode and more privileged modes) *)N(* *)A(* flags = Address space creation flags *)N(* *)J(* return_va_64 = Address of address space created *)N(* *)J(* return_length_64 = Length of address space created *)N(*  *)C(* page_prot = desired page protection (optional) *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$CRETVA_64)] FUNCTION $CRETVA_64 ( REGION_ID_64 : $UQUAD; %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQ UAD;> %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRMPSC *)N(* *)N(* Create and Map Section *)N(* *)N(* $CRMPSC [inadr] ,[retadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident] *)N(* ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending virtual addresses of space to map section *)N(* *)N(* retadr = address of 2-longword array to receive addresses *)N(* actually mapped  *)N(* *)N(* acmode = access mode of owner of pages *)N(* *)N(* flags = section characteristics *)N(* *)N(* Flag Meaning *)N(*  *)N(* SEC$M_GBL Global section *)N(* SEC$M_CRF Copy-on-reference section *)N(* SEC$M_DZRO Demand zero pages *)N(* SEC$M_EXPREG Find first available space *)N(* SEC$M_PERM Permanent section *)N(* SEC$M_PFNMAP Physical page frame section *)N(* SEC$M_SYSGBL System global section *)N(* SEC$M_WRT Read/write section *)N(* *)N(* gsdnam = address of global section name string descriptor *)N(* *)N(* ident = address of quadword containing version id and match control *)N(* *)N(* relpag = relative page number within section *)N(* *)N(* chan = number of channel on which file is accessed *)N(* *)N(* pagcnt = number of pages in section *)N(* *)N(* vbn = virtual block number of beginning of section or *)N(* physical page frame number of beginning of section *)N(* *)N(* prot = protection mask *)N(* *)N(* pfc = page fault c luster size *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC)] FUNCTION $CRMPSC (# INADR : STARLET$$TYP7 := %IMMED 0;3 VAR RETADR : [VOLATILE] STARLET$$TYP8 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;H GSDNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; IDENT : $UQUAD := %IMMED 0;& %IMMED RELPAG : UNSIGNED := %IMMED 0; # %IMMED CHAN : INTEGER := %IMMED 0;& %IMMED PAGCNT : UNSIGNED := %IMMED 0;# %IMMED VBN : UNSIGNED := %IMMED 0;$ %IMMED PROT : UNSIGNED := %IMMED 0;8 %IMMED PFC : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRMPSC_FILE_64 *)N(* *)N(* Create and Map Private Disk File Section *)N(*  *)X(* $CRMPSC_FILE_64 region_id_64, file_offset_64, length_64, chan, acmode, flags, *);(* return_va_64, return_length_64 *);(* [, fault_cluster[, start_va_64[, page_prot]]] *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)H(* file_offset_64 = Byte offset into file to start section *)N(* *)G(* length_64 = Byte length of addresses to create *)N(* *)G(* chan = number of channel on which file is accessed *)N(* *)G(* acmode = access mode for the new pages *)N(* *)G(* flags = section characteristics *)N(* *)F(* Flag Meaning *)N(* *)F(* SEC$M_CRF Copy-on-reference section *)F(* SEC$M_DZRO Demand zero pages  *)F(* SEC$M_EXPREG Find first available space *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space *)F(* SEC$M_WRT Read/write section *)N(* *)J(* return_va_64 = Address of address space created *)N(* *)J(* return_length_64 = Lengt h of address space created *)N(* *)N(* fault_cluster = Page fault cluster size in bytes *)N(* *)E(* start_va_64 = Starting address of address space to create *)N(* *)C(* page_prot = Desired page protection (optional) * )N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_FILE_64)] FUNCTION $CRMPSC_FILE_64 ( REGION_ID_64 : $UQUAD;- %IMMED FILE_OFFSET_64 : INTEGER := %IMMED 0;( %IMMED LENGTH_64 : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;- %IMMED FAULT_CLUSTER : UNSIGNED := %IMM ED 0;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;> %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRMPSC_GFILE_64 *)N(* *)N(* Create and Map Global Disk File Section *)N(* *)`(* $CRMPSC_GFILE_64 gsdnam_64, ident_64, file_offset_64, leng th_64, chan, region_id_64, *)I(* section_offset_64, acmode, flags, return_va_64, return_length_64 *)G(* [, fault_cluster[, start_va_64[, map_length_64[, page_prot]]]] *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(* *)Q(* ident_64 = Address of qu adword containing version id and match control *)N(* *)H(* file_offset_64 = Byte offset into file to start section *)N(* *)G(* length_64 = Byte length of section to create *)N(* *)G(* chan = number of channel on which file is accessed  *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)N(* section_offset_64 = Relative byte within global section to start mapping *)N(* *)G(* acmode = access mode for the new pages *)N(*  *)G(* flags = section characteristics *)N(* *)F(* Flag Meaning *)N(* *)F(* SEC$M_CRF Copy-on-reference section *)F(* SEC$M_EXPREG Find first available space *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space *)F(* SEC$M_PERM Permanent section *)F(* SEC$M_SYSGBL System global section *)F(* SEC$M_WRT Read/write section *)N(* *)J(* return_va_64 = Address of address space created *)N(*  *)J(* return_length_64 = Length of address space created *)N(* *)N(* fault_cluster = Page fault cluster size in bytes *)N(* *)E(* start_va_64 = Starting address of address space to create *)N(* *)J(* map_length_64 = Byte l ength of address space to map *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GFILE_64)] FUNCTION $CRMPSC_GFILE_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0;- %IMMED FILE_OFFSET_64 : INTEGER := %IMMED 0;( %IMMED LENGTH_64 : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER; REGION_ID_64 : $UQUAD;0 %IMMED SECTION_OFFSET_64 : INTEGER := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IM MED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;- %IMMED FAULT_CLUSTER : UNSIGNED := %IMMED 0;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;A %IMMED MAP_LENGTH_64 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRMPSC_GDZRO_64 *)N(* *)N(* Create and Map Global Demand Zero Section  *)N(* *)b(* $CRMPSC_GDZRO_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, *);(* acmode, flags, return_va_64, return_length_64 *)X(* [, start_va_64[, map_length_64[, reserved_length_64[, rad_mask[, page_prot]]]]] *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(*  (32-bit or 64-bit descriptor) *)N(* *)Q(* ident_64 = Address of quadword containing version id and match control *)N(* *)G(* prot = Protection mask *)N(* *)G(* length_64 = Byte length of section to create  *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)N(* section_offset_64 = Relative byte within global section to start mapping *)N(* *)G(* acmode = access mode for the new pages *)N(*  *)G(* flags = section characteristics *)N(* *)F(* Flag Meaning *)N(* *)F(* SEC$M_EXPREG Find first available space *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space  *)F(* SEC$M_PERM Permanent section *)F(* SEC$M_SYSGBL System global section *)\(* SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from *)N(* *)J(* return_va_64 = Address of address space created *)N(* *)J(* return_length_64 = Length of address space created *)N(* *)E(* start_va_64 = Starting address of address space to create *)N(* *)J(* map_length_64 = Byte length of address space to map *)N(* *)M(* reserved_length_64 = Length of memory reserved for this global s ection *)N(* *)Z(* rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GDZRO_64)] FUNCTION $CRMPSC_GDZRO_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0;$ %IMMED PROT : UNSIGNED := %IMMED 0;( %IMMED LENGTH_64 : INTEGER := %IMMED 0; REGION_ID_64 : $UQU AD;0 %IMMED SECTION_OFFSET_64 : INTEGER := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;, %IMMED MAP_LENGTH_64 : INTEGER := %IMMED 0;8 VAR RESERVED_LENGTH_64 : [VOLATILE] $UQUAD := %IMMED 0;4 RAD_MASK : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRMPSC_GPFILE_64 *)N(* *)N(* Create and Map Global Page File Section *)N(* *)c(* $CRMPSC_GPFILE_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, *);(* acmode, flags, return_va_64, return_length_64 *);(* [, start_va_64[, map_length_64[, page_prot]]] *)N(*  *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(* *)Q(* ident_64 = Address of quadword containing version id and match control *)N(* *)G(* prot = Protection mask *)N(*  *)G(* length_64 = Byte length of section to create *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)N(* section_offset_64 = Relative byte within global section to start mapping *)N(*  *)G(* acmode = access mode for the new pages *)N(* *)G(* flags = section characteristics *)N(* *)F(* Flag Meaning *)N(* *)F(* SEC$M_EXPRE G Find first available space *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space *)F(* SEC$M_PERM Permanent section *)F(* SEC$M_SYSGBL System global section *)N(* *)J(* return_va_64 = Address of address space created *)N(* *)J(* !return_length_64 = Length of address space created *)N(* *)E(* start_va_64 = Starting address of address space to create *)N(* *)J(* map_length_64 = Byte length of address space to map *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GPFILE_6 "4)] FUNCTION $CRMPSC_GPFILE_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0;$ %IMMED PROT : UNSIGNED := %IMMED 0;( %IMMED LENGTH_64 : INTEGER := %IMMED 0; REGION_ID_64 : $UQUAD;0 %IMMED SECTION_OFFSET_64 : INTEGER := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;A %IMMED MAP_LENGTH_64 : INTEGER := %IMMED 0)# : INTEGER; EXTERNAL; N(* $CRMPSC_GPFN_64 *)N(* *)N(* Create and Map Global Page Frame Section *)N(* *)i(* $CRMPSC_GPFN_64 gsdnam_64, ident_64, prot, start_pfn, page_count, region_id_64, relative_page, *);(* acmode, flags, return_va_64, return_length_64$ *);(* [, start_va_64[, map_page_count[, page_prot]]] *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(* *)S(* ident_64 = Address of quadword containing version id and match control *)N(* % *)G(* prot = Protection mask *)N(* *)C(* start_pfn = Page frame number of first page in section *)N(* *)D(* page_count = Number of page frames in section *)N(* *)G(* region_id_64 = Address& of quadword region id *)N(* *)K(* relative_page = Relative page within global section to start mapping *)N(* *)G(* acmode = Access mode of owner of mapped pages *)N(* *)G(* flags = Flags overriding default section characteristic's *)N(* *)G(* Flag Meaning *)N(* *)E(* SEC$M_ARGS64 All arguments are passed as 64-bits *)G(* SEC$M_EXPREG Find first available space *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space *)G(* SEC$M_SYSGBL System global section ( *)H(* SEC$M_WRT Read/write mapping of section *)N(* *)J(* return_va_64 = Address of address space created *)N(* *)J(* return_length_64 = Length of address space created *)N(* *)E(* start_va_64) = Starting address of address space to create *)N(* *)J(* map_page_count = Number of page frames to map *)N(* *)C(* page_prot = Desired page protection (optional) *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GPFN_64)] FUNCTION $CRMP*SC_GPFN_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0;$ %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED START_PFN : INTEGER; %IMMED PAGE_COUNT : INTEGER; REGION_ID_64 : $UQUAD; %IMMED RELATIVE_PAGE : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;- %IMMED MAP_PAGE_COUNT : INTEGER := %IMMED 0;> %IMMED PAGE+_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $CRMPSC_PFN_64 *)N(* *)N(* Create and Map Private Page Frame Section *)N(* *)N(* $CRMPSC_PFN_64 region_id_64, start_pfn, page_count, acmode, flags, *)B(* return_va_64, return_length_64 , *)B(* [, start_va_64[, page_prot]] *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)C(* start_pfn = Page frame number of first page in section *)N(* *)D(* page_count = Number of page frame-s in section *)N(* *)G(* acmode = access mode for the new pages *)N(* *)G(* flags = section characteristics *)N(* *)F(* Flag Meaning *)N(* . *)@(* SEC$M_ARGS64 All arguments are passed as 64-bits *)F(* SEC$M_EXPREG Find first available space *)C(* SEC$M_GRANHINT Set granularity hints on pages *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space *)F(* SEC$M_WRT Read/write section *)N(* *)J(* retu/rn_va_64 = Address of address space created *)N(* *)J(* return_length_64 = Length of address space created *)N(* *)E(* start_va_64 = Starting address of address space to create *)N(* *)C(* page_prot = Desired page protection (optional) 0 *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_PFN_64)] FUNCTION $CRMPSC_PFN_64 ( REGION_ID_64 : $UQUAD; %IMMED START_PFN : INTEGER; %IMMED PAGE_COUNT : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;> %IMMED PAGE_PROT : UNSIGNED := %IMM1ED 0) : INTEGER; EXTERNAL; N(* $DACEFC *)N(* *)N(* Disassociate Common Event Flag Cluster *)N(* *)N(* $DACEFC efn *)N(* 2 *)N(* efn = number of any event flag in the cluster *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DACEFC)] FUNCTION $DACEFC (, %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; N(* $DALLOC *)N(* *)N(* Deallocate Device 3 *)N(* *)N(* $DALLOC [devnam] ,[acmode] *)N(* *)N(* devnam = address of device name descriptor. If 0, deallocate all *)N(* *)N(* acmode = access mode associated with device *)N(* 4 *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DALLOC)] FUNCTION $DALLOC (H DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DASSGN *)N(* *)N(* Deassign I/O Channel *)N(* 5 *)N(* $DASSGN chan *)N(* *)N(* chan = number of channel to be deassigned *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DASSGN)] FUNCTION $DASSGN (, %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; 6N(* $DCLAST *)N(* *)N(* Declare AST *)N(* *)N(* $DCLAST astadr ,[astprm] ,[acmode] *)N(* *)N(* astadr = address 7of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *)N(* *)N(* acmode = access mode for which the AST is to be declared *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DCLAST)] FUNCTION $ 8DCLAST (1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DCLCMH *)N(* *)N(* Declare Change Mode or Compatibility Mode Handler *)N(* *)N(* $DCLCMH ad9dres ,[prvhnd] ,[type] *)N(* *)N(* addres = address of handler *)N(* *)N(* prvhnd = address of longword to receive previous handler address *)N(* *)N(* type = handler type indicator : *)N(* 0 -> change mode (current mode) 1 -> compatibility mode *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DCLCMH)] FUNCTION $DCLCMH (1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ADDRES;. VAR PRVHND : [VOLATILE] UNSIGNED := %IMMED 0;9 %IMMED TYPE_ : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $DCLEVT *)N(* ; *)N(* Declare an Event *)N(* *)M(* $DCLEVT evtnam, [rcvacl], [evtfac], [acmode], [flags] *)B(* ,[evtdata], [nullarg], [nullarg], [nullarg], [nullarg] *)N(* *)N(* evtnam = address of descriptor of ev<ent name *)N(* *)N(* rcvacl = address of descriptor of ACL *)N(* *)N(* evtfac = address of event facility code *)N(* *)N(* acmode = access mode of event declaration = *)N(* *)N(* flags = optional flags *)N(* *)N(* evtdata = address of descriptor of optional event data *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DCLEVT)] FUNCTION $DCLEVT (< EVTNAM : [CLASS_S] PACKED ARRAY [$l >1..$u1:INTEGER] OF CHAR;H RCVACL : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; EVTFAC : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;I EVTDATA : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;( %IMMED NULLARG1 : UNSIGNED := %IMMED 0;( %IMMED NULLARG2 : UNSIGNED := %IMMED 0;( %IMMED NULLARG3 : UNSIGNED := %IMMED 0;= %IMMED NULLARG4 : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DCLEXH ? *)N(* *)N(* Declare Exit Handler *)N(* *)N(* $DCLEXH desblk *)N(* *)N(* desblk = address of exit control block co@ntaining: *)N(* *)N(* +-------------------------------+ *)N(* | forward link | *)N(* +-------------------------------+ *)N(* | exit handler address | *)N(* +-------------------------------+ A *)N(* | argument count | *)N(* +-------------------------------+ *)N(* | address to store reason | *)N(* +-------------------------------+ *)N(* | additional arguments | *)N(* +-- for exit handler, --+ *)N(* | B if any | *)N(* +-------------------------------+ *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DCLEXH)] FUNCTION $DCLEXH (P %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* $DEFINE_MAPPING C *)N(* *)N(* Define Mapping record types in the Mapping database *)N(* *)N(* $DEFINE_MAPPING initmlst [,outitmlst] *)N(* *)N(* initmlst = address of a list of item descriptors for the operation *)N(* D outitmlst = address of a list of item descriptors for information *)N(* from the operation *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$DEFINE_MAPPING)] FUNCTION $DEFINE_MAPPING (= %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;_ %REF OUTITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* E *)N(* $DELETE *)N(* *)N(* Delete Record *)N(* *)N(* $DELETE rab, [err], [suc] *)N(* F *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 6[ASYNCHRONOUS,EXTE GRNAL(SYS$DELETE)] FUNCTION $DELETE (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $DELETE_BITMAP *)N(* *)N(* Delete a H Write Bitmap *)N(* *)N(* $DELETE_BITMAP handle *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$DELETE_BITMAP)] FUNCTION $DELETE_BITMAP (; %IMMED HANDLE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* I *)N(* $DELETE_INTRUSION *)N(* *)N(* Delete intrusion record *)N(* *)N(* $DELETE_INTRUSION user_criteria, [flags] *)N(* *)G(* use Jr_criteria in address of user criteria descriptor *)@(* flags in intrusion service flags *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$DELETE_INTRUSION)] FUNCTION $DELETE_INTRUSION (C USER_CRITERIA : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)KN(* $DELETE_MAPPING *)N(* *)N(* Delete Mapping record from Mapping database *)N(* *)N(* $DELETE_MAPPING initmlst *)N(* *)N(* initmlst = addre Lss of a list of item descriptors for the operation *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$DELETE_MAPPING)] FUNCTION $DELETE_MAPPING (R %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* $DELETE_PROXY *)N(* M *)N(* Delete proxy record *)N(* *)N(* $DELETE_PROXY rem_node, rem_user, local_user, [flags] *)N(* *)H(* rem_node in address of remote node descriptor *)H(* rem_user in address of remote user descriptor *)H(* l Nocal_user in address of local user descriptor *)F(* flags in proxy service flags *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$DELETE_PROXY)] FUNCTION $DELETE_PROXY (> REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;> REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;@ LOCAL_USER : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;: %IMMED FLAGS : UNOSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DELLNM *)N(* *)N(* Delete Logical Name and/or Table *)N(* *)N(* $DELLNM [tabnam], [lognam], [acmode] *)N(* P *)N(* tabnam = address of descriptor of logical name table name string *)N(* *)N(* lognam = address of descriptor of logical name string *)N(* *)N(* acmode = address of access mode for logical name *)N(* *) 6[A QSYNCHRONOUS,EXTERNAL(SYS$DELLNM)] FUNCTION $DELLNM (< TABNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;H LOGNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;2 ACMODE : $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $DELLOG *)N(* *)N(* Delete Logical Name *)N(* R *)N(* $DELLOG [tblflg] ,[lognam] ,[acmode] *)N(* *)N(* tblflg = logical name table number *)N(* 0 -> system 1 -> group 2 -> process *)N(* *)N(* lognam = address of logical name string S descriptor. If 0, *)N(* delete all names *)N(* *)N(* acmode = access mode of logical name (process table only) *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DELLOG)] FUNCTION $DELLOG (& %IMMED TBLFLG : UNSIGNED := %IMMED 0;H LOGNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] TOF CHAR := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DELMBX *)N(* *)N(* Delete Mailbox *)N(* *)N(* $DELMBX chan *)N(* U *)N(* chan = channel number assigned to the mailbox *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DELMBX)] FUNCTION $DELMBX (, %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; N(* $DELPRC *)N(* *)N(* Delete PVrocess *)N(* *)N(* $DELPRC [pidadr] ,[prcnam] ,[flags] *)N(* *)N(* pidadr = address of longword containing id of process to be deleted *)N(* *)N(* prcnam = address of string descri Wptor for process name to be deleted *)N(* *)N(* flags = optional flags longword for specifying options *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DELPRC)] FUNCTION $DELPRC (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTE XGER; EXTERNAL; N(* $DELTVA *)N(* *)N(* Delete Virtual Address Space *)N(* *)N(* $DELTVA inadr ,[retadr] ,[acmode] *)N(* *)N(* Y inadr = address of 2-longword array containing starting and *)N(* ending virtual addresses of pages to delete *)N(* *)N(* retadr = address of 2-longword array to receive starting and *)N(* ending addresses of pages actually deleted *)N(* *)N(* acmode = access mode for Zwhich service is performed *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DELTVA)] FUNCTION $DELTVA ( INADR : STARLET$$TYP9;4 VAR RETADR : [VOLATILE] STARLET$$TYP10 := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DELTVA_64 *)N(* *)N(* Delete[ Virtual Address Space *)N(* *)b(* $DELTVA_64 region_id_64, start_va_64, length_64, acmode, return_va_64, return_length_64 *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)E(* start_va_64 = Startin\g address of address space to delete *)N(* *)G(* length_64 = Byte length of addresses to delete *)N(* *)G(* acmode = access mode for which service is performed *)N(* *)J(* return_va_64 = Address of address space deleted ] *)N(* *)J(* return_length_64 = Length of address space deleted *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$DELTVA_64)] FUNCTION $DELTVA_64 ( REGION_ID_64 : $UQUAD; %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;? VAR RETURN_LENGTH_64 : [VOLAT^ILE] $UQUAD) : INTEGER; EXTERNAL; N(* $DELETE_BUFOBJ *)N(* *)N(* Delete I/O Buffer Object *)N(* *)N(* $DELETE_BUFOBJ buffer_handle *)N(* _ *)K(* buffer_handle = address of a quadword that contains the buffer handle *)B(* identifying the buffer object to be deleted *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$DELETE_BUFOBJ)] FUNCTION $DELETE_BUFOBJ (A BUFFER_HANDLE : STARLET$$TYP11 := %IMMED 0) : INTEGER; EXTERNAL; N(* $DELETE_REGION_64 *)N(* ` *)N(* Delete Virtual Address Region *)N(* *)Q(* $DELETE_REGION_64 region_id_64, acmode, return_va_64, return_length_64 *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* a *)G(* acmode = Access mode for which service is performed *)N(* *)J(* return_va_64 = Address of address space deleted *)N(* *)J(* return_length_64 = Length of address space deleted *)N(* *) J[ASYNCHRONOUS,EXTERNAL(S bYS$DELETE_REGION_64)] FUNCTION $DELETE_REGION_64 ( REGION_ID_64 : $UQUAD;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;? VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* $DEQ *)N(* *)N(* Dequeue Lock *)N(* c *)N(* $DEQ [lkid] ,[valblk] ,[acmode] ,[flags] *)N(* *)N(* lkid = lock ID of the lock to be dequeued *)N(* *)N(* valblk = address of the lock value block *)N(* d *)N(* acmode = access mode of the locks to be dequeued *)N(* *)N(* flags = optional flags. *)N(* *)N(* LCK$M_DEQALL *)N(* *) 0[ASYNC eHRONOUS,EXTERNAL(SYS$DEQ)] FUNCTION $DEQ ($ %IMMED LKID : UNSIGNED := %IMMED 0;P %REF VALBLK : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DEVICE_SCAN *)N(* *)N(* Wildcard device scan *)fN(* *)R(* $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt] *)N(* *)N(* return_devnam = address of descriptor of returned device name buffer *)N(* *)N(* retlen = address to store length of device name returned *)N(* g *)N(* search_devnam = address of descriptor of search device name *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* contxt = address of quadword context structures *)N(* h *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$DEVICE_SCAN)] FUNCTION $DEVICE_SCAN (P VAR RETURN_DEVNAM : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR RETLEN : [VOLATILE] $UWORD;O SEARCH_DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;A VAR CONTXT : [VOLATILE] $UQUAD := %IMMED 0) : INT iEGER; EXTERNAL; N(* $DGBLSC *)N(* *)N(* Delete Global Section *)N(* *)N(* $DGBLSC [flags] ,gsdnam ,[ident] *)N(* *)N(* j flags = type of section *)N(* 0 -> group section SEC$M_SYSGBL -> system section *)N(* *)N(* gsdnam = address of global section name string descriptor *)C(* (32-bit or 64-bit descriptor) *)N(* *)N(* ident = address of quadword cont kaining version id and match control *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DGBLSC)] FUNCTION $DGBLSC (% %IMMED FLAGS : UNSIGNED := %IMMED 0;< GSDNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;1 IDENT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $DIAGNOSE *)N(* System Service for Diagnostics Programmers *)N(* l *)I(* $DIAGNOSE function, P2, [cpu_id, [flags]] *)N(* *)I(* function = DIAG$SETAFF or DIAG$_ACTVCPUS *)N(* *)I(* P2 = enable flag if function is DIAG$SETAFF, or *)I(* address to return actvcpus in if functmion *)I(* is DIAG$_ACTVCPUS *)N(* *)I(* cpu_id = CPU number to set affinity to *)N(* *)I(* flags = masks governing the checking to do, whether *)I(* affinity is set for image or process duration, *)B(* whether nto set affinity to primary cpu. *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$DIAGNOSE)] FUNCTION $DIAGNOSE () %IMMED FUNCTION_ : UNSIGNED := %IMMED 1;" %IMMED P2 : UNSIGNED := %IMMED 1;& %IMMED CPU_ID : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $DISABLE_VP_USE o *)N(* *)N(* Disable Use of the Vector Processor *)N(* *)I(* $DISABLE_VP_USE flags ,[curflg] ,[prvflg] *)N(* *)N(* flags = mask of facility(ies) that disabled vector use p *)N(* *)N(* curflg = address of longword to receive current flags *)N(* *)N(* prvflg = address of longword to receive previous flags *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$DISABLE_VP_USE)] FUNCTION $DISABLE_VP_USE (% %IMMED FLAGS : UNSIGN qED := %IMMED 0;. VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0;C VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $DISABLE_VP_USE_INT *)N(* *)N(* Disable Use of the Vector Processor, internal form *)N(* r *)I(* $DISABLE_VP_USE_INT flags ,[curflg] ,[prvflg] *)N(* *)N(* flags = mask of facility(ies) that disabled vector use *)N(* *)N(* curflg = address of longword to receive current flags *)N(* s*)N(* prvflg = address of longword to receive previous flags *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$DISABLE_VP_USE_INT)] FUNCTION $DISABLE_VP_USE_INT (% %IMMED FLAGS : UNSIGNED := %IMMED 0;. VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0;C VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $DISCONNECT t *)N(* *)N(* Disconnect Record Stream *)N(* *)N(* $DISCONNECT rab, [err], [suc] *)N(* *)J(* rab = address of rab u *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$DISCONNECT)] FUNCTION $DISCONNECT (A %REF RAB : [VOLATILvE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $DISMOU *)N(* *)N(* Dismount Volume *)N(* w *)N(* $DISMOU [devnam], [flags], [itmlst] *)N(* *)N(* devnam = optional address of device name string descriptor *)N(* *)N(* flags = 32-bit status mask selecting options for the dismount *)N(* The symbols for the flags are defined by the $DMTDEF *)N(* maxcro. *)N(* *)N(* Flag Meaning *)N(* *)N(* DMT$M_NOUNLOAD Do not unload the volume. *)N(* *)N(* DMT$M_UNIT Dismount the s ypecified device, rather *)N(* than the entire volume set. *)N(* *)M(* itmlst = optional address of a list of item identifiers *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DISMOU)] FUNCTION $DISMOU (< DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;% %IMMED FLAGS : UNSIGNED := z%IMMED 0;4 ITMLST : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $DISPLAY *)N(* *)N(* Display File *)N(* *)N(* $DISPLAY fab, [err], [suc] { *)N(* *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* | *) 8[ASYNCHRONOUS,EXTERNAL(SYS$DISPLAY)] FUNCTION $DISPLAY (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $DISPLAY_PROXY } *)N(* *)N(* Display proxy record *)N(* *)T(* $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user, *)B(* default_user, local_users, [flags], [context] *)N(* *)=(* rem_node in address o~f remote node descriptor *)=(* rem_user in address of remote user descriptor *)X(* buffer_sizes out address of array of words to receive output string lengths *)M(* proxy_node out address of descriptor to receive matching proxy node *)M(* proxy_user out address of descriptor to receive matching proxy user *)K(* default_user out address of descriptor to receive default user *)K(* local_users out address of array of blocks to receive local users * );(* flags in proxy service flags *)B(* context in out address of optional longword context *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$DISPLAY_PROXY)] FUNCTION $DISPLAY_PROXY (> REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;> REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;. VAR BUFFER_SIZES : [VOLATILE] STARLET$$TYP12;M VAR PROXY_NODE : [CLASS_S,VOLATILE] PACKE D ARRAY [$l4..$u4:INTEGER] OF CHAR;M VAR PROXY_USER : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR;O VAR DEFAULT_USER : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR;' VAR LOCAL_USERS : [VOLATILE] UNSIGNED;% %IMMED FLAGS : UNSIGNED := %IMMED 0;D VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DLCEFC *)N(*  *)N(* Delete Common Event Flag Cluster *)N(* *)N(* $DLCEFC name *)N(* *)N(* name = address of cluster name string descriptor *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DLCEFC)] FUNCTION $DLCEFC (O NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* $DNS *)N(* *)N(* DNS Clerk system service *)N(* *)N(* $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm] *)N(* ($DNSW) *)N(* *)N(* efn = number of event flag to set on completion *)N(* *)N(* func = function code specifying action to be performed *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* dnsb = address of quadword I/O status block to receive final *)N(* completion status *)N(* *)N(* astadr = address of entry mask of AST routine *)N(*  *)N(* astprm = value to be passed to AST routine as argument *)N(* *) 0[ASYNCHRONOUS,EXTERNAL(SYS$DNS)] FUNCTION $DNS (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;* VAR DNSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMME D ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 2[ASYNCHRONOUS,EXTERNAL(SYS$DNSW)] FUNCTION $DNSW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;* VAR DNSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $EMAA  *)N(* *)N(* Call Entity Management Assist Agent *)N(* *)I(* $EMAA *)N(* *) 2[ASYNCHRONOUS,EXTERNAL(SYS$EMAA)] FUNCTI ON $EMAA (= ARGLIST : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;* INVOKEID : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $ENABLE_VP_USE *)N(* *)N(* Enable Use of the Vector Processor *)N(*  *)I(* $ENABLE_VP_USE flags ,[curflg] ,[prvflg] *)N(* *)N(* flags = mask of facility(ies) that disabled vector use *)N(* *)N(* curflg = address of longword to receive current flags *)N(* *)N(* prvf lg = address of longword to receive previous flags *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$ENABLE_VP_USE)] FUNCTION $ENABLE_VP_USE (% %IMMED FLAGS : UNSIGNED := %IMMED 0;. VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0;C VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ENABLE_VP_USE_INT  *)N(* *)N(* Enable Use of the Vector Processor, internal form *)N(* *)I(* $ENABLE_VP_USE_INT flags ,[curflg] ,[prvflg] *)N(* *)N(* flags = mask of facility(ies) that disabled vector use  *)N(* *)N(* curflg = address of longword to receive current flags *)N(* *)N(* prvflg = address of longword to receive previous flags *)N(* *) L[ASYNCHRONOUS,EXTERNAL(SYS$ENABLE_VP_USE_INT)] FUNCTION $ENABLE_VP_USE_INT (% %IMMED FLAGS : UNSIGNED := %IMMED 0;. VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0;C VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $ENQ *)N(* *)N(* Enqueue Lock Request *)N(* *)N(* $ENQ [efn] ,lkmode ,lksb ,[flags] ,[resnam] ,[parid] *)N(* ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id] *)B(* ,[range] ,[priority] *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* lkmode = type of lock mode requested. Modes are: *)N(* *)N(* LCK$K_NLMODE null lock *)N(* LCK$K_CRMODE concurrent read *)N(* LCK$K_CWMODE concurrent write *)N(* LCK$K_PRMODE protected read *)N(* LCK$K_PWMODE protected write *)N(* LCK$K_EXMODE exclusive lock *)N(* *)P(* lksb = address of the lock status block or extended lock status block *)N(* *)N(* flags = flags defining the characteristics of the lock. These are: *)N(* *)N(* LCK$M_NOQUEUE  *)N(* LCK$M_SYNCSTS *)N(* LCK$M_SYSTEM *)N(* LCK$M_VALBLK *)N(* LCK$M_CONVERT *)N(* *)N(* resnam = address of string descriptor of the resource name  *)B(* (32-bit or 64-bit descriptor) *)N(* *)N(* parid = lock ID of the parent lock *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *)N(* *)N(* blkast = address of entry mask of blocking AST routine *)N(* *)N(* acmode = Access mode to be associated with the lock *)N(* *)N(* rsdm_id = address of resource domain id  *)N(* *)N(* range = optional range to be locked within resource *)N(* *)N(* priority = optional priority of request *)N(* *) 0[ASYNCHRONOUS,EXTERNAL(SYS$ENQ)] FUNCTION $ENQ (# %IMMED EFN : UNSIGNED := %IMM ED 0; %IMMED LKMODE : UNSIGNED;B %REF LKSB : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;% %IMMED FLAGS : UNSIGNED := %IMMED 0;H RESNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;% %IMMED PARID : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE BLKAST := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;' %IMMED RSDM_ID : UNSIGNED := %IMMED 0; < %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE RANGE := %IMMED 0;= %IMMED PRIORITY : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 2[ASYNCHRONOUS,EXTERNAL(SYS$ENQW)] FUNCTION $ENQW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED LKMODE : UNSIGNED;B %REF LKSB : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;% %IMMED FLAGS : UNSIGNED := %IMMED 0;H RESNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;% %IMMED PARID : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PR OCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE BLKAST := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;' %IMMED RSDM_ID : UNSIGNED := %IMMED 0;< %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE RANGE := %IMMED 0;= %IMMED PRIORITY : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ENTER *)N(* *)N(* Enter File *)N(* *)N(* $ENTER fab, [err], [suc] *)N(* *)J(* fab = address of fab *)N(*  *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$ENTER)] FUNCTION $ENTER (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $ERAPAT *)N(* *)N(* Generate a security erase pattern. *)N(* *)I(* $ERAPAT type, [count], patadr  *)N(* *)F(* type = type of security erase *)N(* *)G(* count = iteration count (seed for erase pattern) *)N(* *)H(* patadr = address of longword to receive erase pattern *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ERAPAT)] FUNCTION $ERAPAT ($ %IMMED TYPE_ : INTEGER := %IMMED 0;% %IMMED COUNT : UNSIGNED := %IMMED 1;C VAR PATADR : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $ERASE *)N(* *)N(* Erase File *)N(*  *)N(* $ERASE fab, [err], [suc] *)N(* *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(*  *)E(* suc = address of user success completion routine *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$ERASE)] FUNCTION $ERASE (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $EVDPOSTEVENT *)N(* *)N(* Post Event to EVD *)N(* *)I(* $EVDPOSTEVENT EVENT *)N(* *)  B[ASYNCHRONOUS,EXTERNAL(SYS$EVDPOSTEVENT)] FUNCTION $EVDPOSTEVENT (P EVENT : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* $EXIT *)N(* *)N(* Exit image *)N(* *)N(* $EXIT [code]  *)N(* *)N(* code = longword completion status *)N(* *) 2[ASYNCHRONOUS,EXTERNAL(SYS$EXIT)] FUNCTION $EXIT (9 %IMMED CODE : UNSIGNED := %IMMED 1) : INTEGER; EXTERNAL; N(* $EXPREG *)N(*  *)N(* Expand Program/Control Region *)N(* *)N(* $EXPREG pagcnt ,[retadr] ,[acmode] ,[region] *)N(* *)N(* pagcnt = number of pages to add to end of specified region *)N(*  *)N(* retadr = address of 2-longword array to receive virtual *)N(* addresses of starting and ending pages *)N(* *)N(* acmode = access mode of the new pages *)N(* *)N(* region = region indicator  *)N(* 0 -> program (P0) region 1 -> control (P1) region *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$EXPREG)] FUNCTION $EXPREG ( %IMMED PAGCNT : UNSIGNED;4 VAR RETADR : [VOLATILE] STARLET$$TYP13 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED REGION : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $EXPREG_64 *)N(*  *)N(* Expand Addresses Within a Region *)N(* *)Z(* EXPREG_64 region_id_64, length_64, acmode, flags, return_va_64, return_length_64 *)B(* [, page_prot] *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)G(* length_64 = Byte length of addresses *)N(* *)K(* acmode = access mode for the new pages (protection is *)G(* read/write for acmode and more privileged modes) *)N(* *)A(* flags = Address space creation flags *)N(* *)J(* return_va_64 = Address of address space created *)N(* *)J(* return_length_64 = Length of address space created *)N(* *)C(* page_prot = Desired page protection (opti onal) *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$EXPREG_64)] FUNCTION $EXPREG_64 ( REGION_ID_64 : $UQUAD; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;> %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $EXTEND *)N(* *)N(* Extend File *)N(* *)N(* $EXTEND fab, [err], [suc] *)N(*  *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$EXTEND) ] FUNCTION $EXTEND (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $FAO *)N(* *)N(* Formatted ASCII Output *)N(*  *)N(* $FAO ctrstr ,[outlen] ,outbuf ,[p1] ,[p2]...[pn] *)N(* *)N(* ctrstr = address of string descriptor for control string *)C(* (32-bit or 64-bit descriptor) *)N(* *)N(* outlen = address of word in which to store output length  *)N(* *)N(* outbuf = address of output buffer string descriptor *)C(* (32-bit or 64-bit descriptor) *)N(* *)N(* p1... = variable number of arguments to FAO *)N(* *) 0[ASYNCHRONOUS,EXTE RNAL(SYS$FAO)] FUNCTION $FAO (< CTRSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0;I VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;1 %IMMED P1 : [LIST] INTEGER) : INTEGER; EXTERNAL; N(* $FAOL *)N(* *)N(* Formatted ASCII Output With List Parameter  *)N(* *)N(* $FAOL ctrstr ,[outlen] ,outbuf ,prmlst *)N(* *)N(* ctrstr = address of string descriptor for control string *)C(* (32-bit or 64-bit descriptor) *)N(* *)N(* outlen = address of word to receive output string length *)N(* *)N(* outbuf = address of output buffer string descriptor *)C(* (32-bit or 64-bit descriptor) *)N(* *)N(* prmlst = address of a list of longword parameters *)N(*  *) 2[ASYNCHRONOUS,EXTERNAL(SYS$FAOL)] FUNCTION $FAOL (< CTRSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0;I VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;P %REF PRMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* $FAOL_64 *)N(* *)N(* Formatted ASCII Output With Quadword List Parameter *)N(* *)N(* $FAOL_64 ctrstr_64 ,[outlen_64] ,outbuf_64 ,prmlst_64 *)N(* *)N(* ctrstr_64 = address of string descriptor for control string *)C(* (32-bit or 64-bit descriptor) *)N(*  *)N(* outlen_64 = address of word to receive output string length *)N(* *)N(* outbuf_64 = address of output buffer string descriptor *)C(* (32-bit or 64-bit descriptor) *)N(* *)N(* prmlst_64 = address of a list of quadword parameters *) N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$FAOL_64)] FUNCTION $FAOL_64 ( %IMMED CTRSTR_64 : $DEFPTR;/ VAR OUTLEN_64 : [VOLATILE] $UWORD := %IMMED 0; %IMMED OUTBUF_64 : $DEFPTR;1 %IMMED PRMLST_64 : $DEFPTR) : INTEGER; EXTERNAL; N(* $FILES_64 *)N(* *)N(* Call the Files-64 file system  *)N(* *)N(* $FILES_64 [efn] ,func ,fsb ,[astadr] ,[astprm] *)N(* *)N(* efn = number of event flag to set on completion *)N(* *)N(* func = function code specifying action to be performed *)N(* *)N(* fsb = address of File System Block *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as argument *)N(*  *) :[ASYNCHRONOUS,EXTERNAL(SYS$FILES_64)] FUNCTION $FILES_64 (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB : UNSIGNED;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $FILESCAN *)N(* *)N(* Scan a string and identify a file specification *)N(* *)N(* $FILESCAN srcstr, [valuelst], [fldflags] [,auxout] [,retlen] *)N(* *)I(* srcstr = address of string descriptor for source string *)I(* valuelst = address of a list of item descriptors *)I(* fldflags = address of a long word to receive flags *)I(* auxout = address of string descriptor for output string *)I(* retlen = address to store length of returned output string *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$FILESCAN)] FUNCTION $FILESCAN (< SRCSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;R %REF VALUELST : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0;0 VAR FLDFLAGS : [VOLATILE] UNSIGNED := %IMMED 0;U VAR AUXOUT : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;A VAR RETLEN : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FIND *)N(* *)N(* Find Record in File *)N(* *)N(* $FIND rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(*  *)E(* suc = address of user success completion routine *)N(* *) 2[ASYNCHRONOUS,EXTERNAL(SYS$FIND)] FUNCTION $FIND (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $FIND_HELD *)N(* *)N(* Find Identifiers Held By Holder *)N(* *)I(* $FIND_HELD holder, [id], [attrib], [contxt] *)N(*  *)H(* holder = address of a quadword which specifies the holder *)B(* id of the records to find *)D(* id = address to return the identifier longword *)H(* attrib = address to return the holder attributes longword *)H(* contxt = address of a longword containing the record stream *)B(* context. initially should be zero, value output *)B(* on first call, value input on subsequent calls. *) N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$FIND_HELD)] FUNCTION $FIND_HELD ( HOLDER : $UQUAD;* VAR ID : [VOLATILE] UNSIGNED := %IMMED 0;. VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FIND_HOLDER *)N(*  *)N(* Find Holder Of Identifier *)N(* *)I(* $FIND_HOLDER id, [holder], [attrib], [contxt] *)N(* *)D(* id = identifier longword whose holder records *)B(* are to be found  *)H(* holder = address to return the holder id quadword *)H(* attrib = address to return the attributes longword *)H(* contxt = address of a longword containing the record stream *)B(* context. initially should be zero, value output *)B(* on first call, value input on subsequent calls. *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$FIND_HOLDER)] FUNCTIO N $FIND_HOLDER ( %IMMED ID : UNSIGNED;, VAR HOLDER : [VOLATILE] $UQUAD := %IMMED 0;. VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FINISH_RDB *)N(* *)N(* Clean up RMS Stream  *)N(* *)I(* $FINISH_RDB contxt *)N(* *)H(* contxt = address of a longword containing the record stream *)B(* context. *)N(* *) >[ASYNCHRONOUS,EXTERN AL(SYS$FINISH_RDB)] FUNCTION $FINISH_RDB (7 VAR CONTXT : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* $FORCEX *)N(* *)N(* Force Exit *)N(* *)N(* $FORCEX [pidadr] ,[prcnam] ,[code] *)N(* *)N(* pidadr = address of process id of process to be forced to exit *)N(* *)N(* prcnam = address of process name descriptor for forced process *)N(* *)N(* code = longword completion status for exit service *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$FORCEX)] FUNCTION $FORCEX (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;9 %IMMED CODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FORGE_WORD *)N(*  *)N(* Forge random word. *)N(* *)S(* $FORGE_WORD [minlen], [maxlen], [mindata], [flags], [retdata], outlen, outstr *)N(* *)J(* minlen minimum word length to return *)J(* maxlen maximum word length to return  *)K(* mindata minimum amount of data to return (in decibits) *)I(* flags miscellaneous flags *)K(* retdata longword to receive actual amount of information in word *)J(* outlen word to receive length of returned word *)J(* outstr address of buffer to receive word *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$FORGE _WORD)] FUNCTION $FORGE_WORD (& %IMMED MINLEN : UNSIGNED := %IMMED 0;& %IMMED MAXLEN : UNSIGNED := %IMMED 0;' %IMMED MINDATA : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;/ VAR RETDATA : [VOLATILE] UNSIGNED := %IMMED 0; VAR OUTLEN : [VOLATILE] $UWORD;^ VAR OUTSTR : [CLASS_S,VOLATILE] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* *)N(* $FORMAT_ACL  *)N(* *)N(* Format an Access Control list Entry *)N(* *)I(* $FORMAT_ACL acl-entry, [acl-length], acl-string, *)B(* [line-width], [term-desc], [line-indent], *)B(* [bit-names], [routin] *)N(*  *)C(* acl-entry = address of a descriptor of a buffer which *);(* contains the ACE *)N(* *)D(* acl-length = address of a word to receive the length of *);(* the output string *)N(* *)D(* acl-string = address of a descriptor of a buffer into *);(* which the output string is to be stored *)N(* *)D(* line-width = address of the maximum line width *);(* (0 = infinite) *)N(* *)C(* term_desc = address of a character descriptor containing *);(* a character string to be inserted whenever *);(* the line segment length exceeds the line-width *)N(* *)E(* line-indent = address of the number of columns to indent *);(* the output line segment *)N(* *)C(* bit-names = address of a access bit name table (32 entries) *)N(*  *)A(* routin = address of routine to be executed in kernel mode *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$FORMAT_ACL)] FUNCTION $FORMAT_ACL (< ACLENT : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, VAR ACLLEN : [VOLATILE] $UWORD := %IMMED 0;I VAR ACLSTR : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; WIDTH : $UWORD := %IMMED 0;H TRMDSC : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER ] OF CHAR := %IMMED 0; INDENT : $UWORD := %IMMED 0;G %REF ACCNAM : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0;R %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; N(* *)H(* $FORMAT_AUDIT fmttyp, audmsg, [outlen], outbuf, *);(* [width], [trmdsc], [routin], [fmtflg] *)N(*  *)N(* Format security auditing event message *)N(* *)A(* fmttyp = format type *)N(* *)A(* audmsg = address of the message to format *)N(* *)D(* outlen = address of a word to receive length of output string *)N(* *)A(* outbuf = Address of a descriptor of a buffer to receive *);(* the formatted event message *)N(* *)@(* width = address of a word containing the display width *)N(* *)A(* trmdsc = address of a descriptor conta ining the line *);(* terminator character(s) *)N(* *)A(* routin = address of an output routine *)N(* *)A(* fmtflg = format control flags *) B[ASYNCHRONOUS,EXTERNAL(SYS$FORMAT_AUDIT)] FUNCTION $FORMAT_AUDIT ( %IMMED FMTTYP : UNSIGNED;; %REF AUDMSG : [UNSAFE ] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;, VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0;I VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR; WIDTH : $UWORD := %IMMED 0;H TRMDSC : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0;; %IMMED FMTFLG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; H(* $FORMAT_CLASS itmlst, [routin] *)N(*  *)N(* Format access class strings *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* routin = address of routine to be executed in kernel mode *)N(*  *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$FORMAT_CLASS)] FUNCTION $FORMAT_CLASS (; %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;R %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FREE *)N(*  *)N(* Free Record *)N(* *)N(* $FREE rab, [err], [suc] *)N(* *)J(* rab = address of fab *)N(*  *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 2[ASYNCHRONOUS,EXTERNAL(SYS$FREE)] FUNCTION $FREE (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMME D 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FREE_USER_CAPABILITY *)N(* *)N(* Release a global user capability bit *)N(* *)N(* $FREE_USER_CAPABILITY [cap_num],[prev_mask],[flags] *)N(* *)I(* cap_num = address of cell with requested cap number to release *)I(* prev_mask = address of user quadword that will hold the *)B(* previous state of the reserved capabilities cell *)I(* flags = address of behavioral flags for this operation *)N(*  *) R[ASYNCHRONOUS,EXTERNAL(SYS$FREE_USER_CAPABILITY)] FUNCTION $FREE_USER_CAPABILITY ( CAP_NUM : UNSIGNED := %IMMED 0;/ VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0;1 FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FLUSH *)N(* *)N(* Flush Record  *)N(* *)N(* $FLUSH rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine  *)N(* *)E(* suc = address of user success completion routine *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$FLUSH)] FUNCTION $FLUSH (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER ; EXTERNAL; N(* *)N(* $GET_BITMAP_INFO *)N(* *)N(* GET Information about a Write Bitmap *)N(* *)N(* $GET_BITMAP_INFO handle, chan, devnam, name, index, itmlst *)N(*  *) H[ASYNCHRONOUS,EXTERNAL(SYS$GET_BITMAP_INFO)] FUNCTION $GET_BITMAP_INFO (& %IMMED HANDLE : UNSIGNED := %IMMED 0;# %IMMED CHAN : INTEGER := %IMMED 0;< DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;F NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;% %IMMED INDEX : UNSIGNED := %IMMED 0;4 ITMLST : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $GET_BITMAP_INFOW *)N(* *)N(* GET Information about a Write Bitmap and Wait *)N(* *)N(* $GET_BITMAP_INFOW devnam, name, index, handle, itmlst, status *)N(*  *) J[ASYNCHRONOUS,EXTERNAL(SYS$GET_BITMAP_INFOW)] FUNCTION $GET_BITMAP_INFOW (< DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;F NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;% %IMMED INDEX : UNSIGNED := %IMMED 0;& %IMMED HANDLE : UNSIGNED := %IMMED 0; ITMLST : UNSIGNED := %IMMED 0;C VAR STATUS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $GET_CPU_INFO *)N(* *)N(* GET Information about a CPU *)N(* *)N(* $GET_CPU_INFO func, flags, cpu_id, buffer, length, ret_length *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$GET_CPU_INF O)] FUNCTION $GET_CPU_INFO ( %IMMED FUNC : UNSIGNED; %IMMED FLAGS : UNSIGNED;" VAR CPU_ID : [VOLATILE] UNSIGNED;! %IMMED BUFFER_LENGTH : UNSIGNED; BUFFER_ADDRESS_64 : $DEFPTR;A VAR RETURN_LENGTH_64 : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* $GET_REGION_INFO *)N(* *)N(* Get Information About Virtual Address Region *)N(*  *)P(* $GET_REGION_INFO function, region_id_64, start_va_64, ,buffer_length, *)I(* buffer_address_64, return_length_64 *)N(* *)C(* function = Function code *)N(* *);(* Code Meaning  *)I(* VA$_REGSUM_BY_ID Region summary, by ID *)I(* VA$_REGSUM_BY_VA Region summary, by VA *)J(* VA$_NEXT_REGSUM_BY_VA Next region summary, by VA *)N(* *)G(* region_id_64 = Address of quadword region id to use with *);(* VA$_REGSUM_BY_ID *)N(*  *)E(* start_va_64 = Virtual address to use with VA$_REGSUM_BY_VA *)N(* *)H(* buffer_length = Length of user buffer *)N(* *)J(* buffer_address_64 = Address of user REGSUM buffer *)N(* *)J(* retu rn_length_64 = Length of data written to user buffer *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$GET_REGION_INFO)] FUNCTION $GET_REGION_INFO ( %IMMED FUNCTION_ : UNSIGNED; REGION_ID_64 : $UQUAD; %IMMED START_VA_64 : $DEFPTR; %IMMED RESERVED : $DEFPTR;! %IMMED BUFFER_LENGTH : UNSIGNED;$ %IMMED BUFFER_ADDRESS_64 : $DEFPTR;A VAR RETURN_LENGTH_64 : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* $GET_SECURITY *)N(* *)N(* Get Object Securty Profile *)N(* *)\(* $GET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] *)N(* *) B[ASYNCHRONOUS,EXTERNAL (SYS$GET_SECURITY)] FUNCTION $GET_SECURITY (H CLSNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;H OBJNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; OBJHAN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0;. VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0;4 ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $GET *)N(* *)N(* Get Record from File *)N(* *)N(* $GET rab, [err], [suc] *)N(* *)J(*  rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 0[ASYNCHRONOUS,EXTERNAL(SYS$GET)] FUNCTION $GET  (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $GET_ARITH_EXCEPTION *)N(* *)N(* Get AXP arithmetic exception context information *)N(* *)N(* $GET_ARITH_EXCEPTION sigarg, mcharg, buffer *)N(* *)M(* sigarg = address of signal array of the exception *)N(* *)H(* mcharg = address of mechanism array of the exception *)N (* *)H(* buffer = address of buffer to return information *)N(* *) P[ASYNCHRONOUS,EXTERNAL(SYS$GET_ARITH_EXCEPTION)] FUNCTION $GET_ARITH_EXCEPTION ( SIGARG : INTEGER; MCHARG : INTEGER;^ VAR BUFFER : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* $GETCHN  *)N(* *)N(* Get I/O Channel Information *)N(* *)N(* $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] *)N(* *)N(* chan = number of a channel assigned to the device  *)N(* *)N(* prilen = address of word to receive length of primary buffer *)N(* *)N(* pribuf = address of primary buffer descriptor *)N(* *)N(* scdlen = address of word to receive length of secondary buffer *)N(*  *)N(* scdbuf = address of secondary buffer descriptor *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETCHN)] FUNCTION $GETCHN ( %IMMED CHAN : INTEGER;, VAR PRILEN : [VOLATILE] $UWORD := %IMMED 0;U VAR PRIBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;, VAR SCDLEN : [VOLATILE] $UWORD := %IMMED 0;j VAR SCDBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETDEV *)N(* *)N(* Get I/O Device Information *)N(* *)N(* $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] *)N(*  *)N(* devnam = address of device name or logical name descriptor *)N(* *)N(* prilen = address of word to receive length of primary buffer *)N(* *)N(* pribuf = address of primary buffer descriptor *)N(*  *)N(* scdlen = address of word to receive length of secondary buffer *)N(* *)N(* scdbuf = address of secondary buffer descriptor *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETDEV)] FUNCTION $GETDEV (< DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, VAR PRILEN : [VOLATILE] $UWORD := %IMMED 0;U VAR PRIBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;, VAR SCDLEN : [VOLATILE] $UWORD := %IMMED 0;j VAR SCDBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $GETDTI *)N(* *)N(* Get Distributed Transaction Information *)N(* *)J(* $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context, *)?(* ($GETDTIW) search, itmlst *)N(* *)E(* efn = event flag to set at completion *)G(* flags = operation flags  *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of the entry mask of an AST routine *)H(* astprm = value to be passed to AST routine *)H(* log_id = address of log id for TM log *)I(* context = address of longword search context *)H(* search = address of a list of search criteria items *)H(* itmlst = address of a list of ite m descriptors *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETDTI)] FUNCTION $GETDTI (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; LOG_ID : $UOCTA := %IMMED 0;" VAR CONTXT : [VOLATILE] UNSIGNED;; %REF SEARCH : [UNSAFE] ARRAY [$l8..$u8:INTEGE R] OF $UBYTE;P %REF ITMLST : [UNSAFE] ARRAY [$l9..$u9:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$GETDTIW)] FUNCTION $GETDTIW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; LOG_ID : $UOCTA := %IMMED 0;" VAR CONTXT : [VOLATILE] UNSIGNED;; %REF SEARCH : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE;P %REF ITMLST : [UNSAFE] ARRAY [$l9..$u9:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* $GETDVI *)N(* *)N(* Get Device/Volume Information *)N(* *)N(* $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr] *)N(* ($GETDVIW)  ,[astprm] ,[nullarg], [pathname] *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* chan = number of a channel assigned to the device or *)N(* 0 if device is specified by the devnam parameter *)N(*  *)N(* devnam = address of device name or logical name descriptor *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* iosb = address of a quadword I/O status block *)N(*  *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *)N(* *)N(* nullarg = zilch *)N(* *)N(* pathname = op tional address of a path name descriptor *)N(* *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETDVI)] FUNCTION $GETDVI (# %IMMED EFN : UNSIGNED := %IMMED 0;# %IMMED CHAN : INTEGER := %IMMED 0;H DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [V OLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; NULLARG : $UQUAD := %IMMED 0;_ PATHNAME : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$GETDVIW)] FUNCTION $GETDVIW (# %IMMED EFN : UNSIGNED := %IMMED 0;# %IMMED CHAN : INTEGER := %IMMED 0;H DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; NULLARG : $UQUAD := %IMMED 0;_ PATHNAME : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETEVI *)N(* *)N(* Get Event Information  *)N(* *)N(* $GETEVI itmlst ,[nullarg] *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETEVI)] FUNCTION $GETEVI (; %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;< %IMMED NULLARG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETJPI *)N(* *)N(* Get Job/Process Information *)N(* *)N(* $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr], *)N(* ($GETJPIW) [astprm] *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* pidadr = address of process identification *)N(* *)N(* prcnam = address of process name string descriptor *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* astadr = address of e ntry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as an argument *)N(* *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETJPI)] FUNCTION $GETJPI (# %IMMED EFN : UNSIGNED := %IMMED 0;. VAR PIDADR : [VOLATILE] UNSIGNED :=  %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$GETJPIW)] FUNCTION $GETJPIW (# %IMMED EFN : UNSIGNED := %IMMED 0;. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$ u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETJPI_FAST *)N(* *)N(* Get Job/Process Information For The Current Process *)N(* *)N(* $GETJPI_FAST *)N(* *)N(* item_mask = Mask of current process info requested *)N(* *)N(* flags = MBZ for now *)N(*  *)N(* return_buffer *)B(* = Address of buffer to return array of longword info *)N(* *)N(* return_buffer_length *)B(* = Length of return buffer array in bytes *)N(*  *)N(* *) )[ASYNCHRONOUS] FUNCTION SYS$GETJPI_FAST ( %IMMED ITEM_MASK : INTEGER; %IMMED FLAGS : UNSIGNED;/ VAR RETURN_BUFFER : [VOLATILE] STARLET$$TYP14;< %IMMED RETURN_BUFFER_LENGTH : INTEGER) : INTEGER; EXTERNAL; N(* $GETLKI *)N(* *)N(* Get Lock Information   *)N(* *)N(* $GETLKI [efn] ,lkidadr ,itmlst ,[iosb], [astadr], [astprm], *)N(* ($GETLKIW) [reserved] *)N(* *)N(* efn = event flag to be set at completion *)N(*   *)N(* lkidadr = address of lock identification *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* a stadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as an argument *)N(* *)N(* reserved = reserved parameter *)N(* *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETLKI)] FUNCTION $GETLKI (# %IMMED EFN : UNSIGNED := %IMMED 0;# VAR LKIDADR : [VOLATILE] UNSIGNED;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;= %IMMED RESERVED : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$GETLKIW)] FUNCTION $GETLKIW (# %IMMED EFN : UNSIGNED := %IMMED 0;# VAR LKIDADR : [VOLATILE] UNSIGNED;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;= %IMMED RESERVED : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETMSG *)N(*  *)N(* Get Message *)N(* *)N(* $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr] *)N(* *)N(* msgid = identification of message to be retrieved *)N(* *)N(*  msglen = address of a word to receive length of string *)N(* returned *)N(* *)N(* bufadr = address of buffer descriptor of buffer to receive *)N(* string *)N(* *)N(* flags = flag bits for message content (macro default = 15) *)N(* *)N(* Bit Value/Meaning *)N(* *)N(* 0 1 Include text *)N(* 0 Do not include text *)N(* 1 1 Include identifier  *)N(* 0 Do not include identifier *)N(* 2 1 Include severity *)N(* 0 Do not include severity *)N(* 3 1 Include component *)N(* 0 Do not include component *)N(* *)N(*  outadr = address of 4-byte array to receive the following values: *)N(* *)N(* Byte Contents *)N(* *)N(* 0 Reserved *)N(* 1 Count of FAO arguments *)N(* 2 User value  *)N(* 3 Reserved *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETMSG)] FUNCTION $GETMSG ( %IMMED MSGID : UNSIGNED; VAR MSGLEN : [VOLATILE] $UWORD;I VAR BUFADR : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;& %IMMED FLAGS : UNSIGNED := %IMMED 15;I VAR OUTADR : [VOLATILE] STARLET$$TYP15 := %IMMED 0) : INT EGER; EXTERNAL; N(* $GETPTI *)N(* *)N(* Get Page Table Information *)N(* *)N(* $GETPTI [inadr],[retadr],[acmode],[mask],[pagcnt] *)N(* *)K(*  inadr = address of two longwords containing starting *)I(* and ending virtual address to operate on *)N(* *)L(* retadr = address of two longwords into which starting *)I(* and ending address of pages operated on is returned *)N(* *)N(* acmode = access mode against which ownership is checked *)N(* *)J(* mask = mask of page table information control bits *)N(* *)L(* pagcnt = minimum page count *)N(* *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETPTI)] FUNCTION $GETPTI ( INADR : STARLET$$TYP16;4 VAR RETADR : [VOLATILE] STARLET$$TYP17 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;$ %IMMED MASK : UNSIGNED := %IMMED 0;; %IMMED PAGCNT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETQUI *)N(* *)N(* Get Queue Information  *)N(* *)N(* $GETQUI [efn], func, [context], [itmlst], *)N(* ($GETQUIW) [iosb], [astadr], [astprm] *)N(* *)N(* efn = event flag to be set when request completes *)N(* func = code specifying function to be performed *)N(* context = address of a longword containing a context number *)N(* itmlst = address of a list of item descriptors for the operation *)R(* iosb = address of a quadword status block to receive the final status *)Q(* astadr = address of an ast routine to be called when request completes *)N(* astprm = 32-bit ast parameter *)N(* *) 6[ASYNCHRONOUS,EX TERNAL(SYS$GETQUI)] FUNCTION $GETQUI (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER;/ VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$GETQUIW)] FUNCTION $GETQUIW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER;/ VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETRMI *)N(* *)N(* Get Resource Monitor Information *)N(* *)R(* $GETRMI [efn] ,[nullarg] ,[nullarg] ,itmlst ,[iosb] ,[astadr] ,[astprm] *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *) N(* *)N(* nullarg = reserved argument *)N(* *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETRMI)] FUNCTION $GETRMI (# %IMMED EFN : UNSIGNED := %IMMED 0;( %IMMED NULLARG1 : UNSIGNED := %IMMED 0;( %IMMED NULLARG2 : UNSIGNED := %IMMED 0;; % REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETSYI *)N(* *)N(* Get System-Wide Information *)N(* ! *)N(* $GETSYI [efn] ,[csidadr],[nodename],itmlst ,[iosb] ,[astadr], *)N(* ($GETSYIW) [astprm] *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* csidadr = address of cluster system identification " *)N(* *)N(* nodename = address of node name string descriptor *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* # *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *)N(* *)N(* *)N(* The second and third ar $guments in the $GETSYI argument list are *)N(* not used; they are reserved for future use. *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETSYI)] FUNCTION $GETSYI (# %IMMED EFN : UNSIGNED := %IMMED 0;/ VAR CSIDADR : [VOLATILE] UNSIGNED := %IMMED 0;J NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB %: [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$GETSYIW)] FUNCTION $GETSYIW (# %IMMED EFN : UNSIGNED := %IMMED 0;/ VAR CSIDADR : [VOLATILE] UNSIGNED := %IMMED 0;J NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOU&ND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETTIM *)N(* *)N(* Get Time *)N(* *)N(* $GETTIM timadr, [flags] ' *)N(* *)N(* timadr = address of a quadword to receive 64-bit current time value *)u(* flags = optional flags to modify the type of time returned (initially Smithsonian time or time-since-boot) *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETTIM)] FUNCTION $GETTIM ( VAR TIMADR : [VOLATILE] $UQUAD;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* ( *)N(* Get Time (High Precision) *)N(* *)N(* $GETTIM_PREC timadr *)N(* *)N(* timadr = address of a quadword to receive 64-bit current time value *)N(* *) @)[ASYNCHRONOUS,EXTERNAL(SYS$GETTIM_PREC)] FUNCTION $GETTIM_PREC (5 VAR TIMADR : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* *)N(* $GET_USER_CAPABILITY *)N(* *)N(* Reserve a global user capability bit *)N(* * *)Y(* $GET_USER_CAPABILITY [cap_num],[select_num],[select_mask],[prev_mask],[flags] *)N(* *)I(* cap_num = address of cell with requested cap number *)I(* select_num = address of cell with selected cap number *)I(* select_mask = address of bitmask indicating which capability *)B(* bit selected by operation *)I(* prev_mask = add +ress of user quadword that will hold the *)B(* previous state of the reserved capabilities cell *)I(* flags = address of behavioral flags for this operation *)N(* *) P[ASYNCHRONOUS,EXTERNAL(SYS$GET_USER_CAPABILITY)] FUNCTION $GET_USER_CAPABILITY ( CAP_NUM : UNSIGNED := %IMMED 0;2 VAR SELECT_NUM : [VOLATILE] UNSIGNED := %IMMED 0;1 VAR SELECT_MASK : [VOLATILE] $UQUAD := %IMMED 0;/ , VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0;1 FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $GETUTC *)N(* *)N(* Get UTC Time *)N(* *)N(* $GETUTC utcadr *)N -(* *)Q(* utcadr = address of a utc_date_time to receive 128-bit current UTC time *)B(* value *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETUTC)] FUNCTION $GETUTC (5 VAR UTCADR : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; N(* $GETUAI . *)N(* *)N(* Get User Authorization Information *)N(* *)N(* $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] *)F(* ,[astprm] *)N(* *)N(* efn = event flag t/o be set at completion *)N(* *)N(* contxt = address of a context longword (UAF IFI & ISI) *)N(* *)N(* usrnam = address of user name descriptor *)N(* *)N(* itmlst = address of a list of item descriptors 0 *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *)N 1(* *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETUAI)] FUNCTION $GETUAI (# %IMMED EFN : UNSIGNED := %IMMED 0;. VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0;< USRNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] 2PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $GET_WBEM_INFO *)N(* *)N(* Get system information needed by WBEM providers *)N(* *)M(* 3$GET_WBEM_INFO itm_code, itm_param1, itm_param_buf, *);(* buf_addr, buf_len, ret_len_addr *)N(* *)B(* itm_code = Item code value, defined by $WBEMIDEF, wbemidef.h *)N(* *)D(* itm_param1 = Item code dependent input parameter value. *);(* If zero item code dependent parameters required, *);(* must 4be zero. *);(* If exactly one longword parameter required, *);(* parameter value. *);(* If more than one parameter required, size in *);(* bytes of the item parameter buffer. *)N(* *)G(* itm_param_buf = Address of item parameter buffer. Size of the *);(* buffer, in bytes, is given by the value of 5 *);(* itm_param1. *);(* If the specified item code does not require *);(* more than a single parameter, this address *);(* must be zero. *)N(* *)B(* buf_addr = Address of buffer into which data is returned. *)<(* Size of the buffer, in bytes, is given by buf_len. *)N(* 6 *)B(* buf_len = Size of the output buffer in bytes. *)N(* *)F(* ret_len_addr = Address of a 32-bit longword into which the *);(* value of the number of bytes that have been *);(* written into the output buffer is returned. *);(* The caller should not assume that the remaining *);(* bytes in the output buffer have been zeroed. *) 7N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$GET_WBEM_INFO)] FUNCTION $GET_WBEM_INFO ( %IMMED ITM_CODE : UNSIGNED; %IMMED ITM_PARAM1 : UNSIGNED; %IMMED ITM_PARAM_BUF : $DEFPTR; %IMMED BUF_ADDR : $DEFPTR; %IMMED BUF_LEN : UNSIGNED;= VAR RET_LEN_ADDR : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* Alpha *)N(* $GOTO_UNWIND_64 8 *)N(* *)N(* General Unwind Call Stack *)N(* *)N(* $GOTO_UNWIND_64 [target_invo_64], [target_pc_64], *);(* [newretval], [newretval2] *)N(* *)N(* tar9get_invo_64 = address of longword (Alpha) or quadword (IPF) *)B(* containing the invocation handle (frame pointer on *)N(* Alpha) to unwind call stack *)N(* *)N(* target_pc_64 = address of quadword that contains the PC to be *)B(* given control when the unwind is complete *)N(* : *)N(* newretval = address of a location that contains the value to be *)B(* placed in the saved R0 field of the mechanism array *)N(* *)N(* newretval2 = address of a location that contains the value to be *)B(* placed in the saved R1 field of the mechanism array *)N(* *)N(* ; *) F[ASYNCHRONOUS,EXTERNAL(SYS$GOTO_UNWIND_64)] FUNCTION $GOTO_UNWIND_64 (% TARGET_INVO_64 : $UQUAD := %IMMED 0;# TARGET_PC_64 : $UQUAD := %IMMED 0; NEWRETVAL : $UQUAD := %IMMED 0;6 NEWRETVAL2 : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $GRANTID *)N(* < *)N(* Grant Identifier to Process *)N(* *)I(* $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] *)N(* *)I(* pidadr = address of PID of affected process *)I(* prcnam = address of string descriptor of process name *)I(* id = = address of quadword identifier and attributes *)I(* name = address of string descriptor of identifier name *)I(* prvatr = address to store attributes of superseded id *)I(* segment = optional segment index, by value *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$GRANTID)] FUNCTION $GRANTID (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S >] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;( VAR ID : [VOLATILE] $UQUAD := %IMMED 0;F NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;. VAR PRVATR : [VOLATILE] UNSIGNED := %IMMED 0;< %IMMED SEGMENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $GRANT_LICENSE *)N(* ? *)N(* Grant authorization to execute licensed software product. *)N(* *)I(* $GRANT_LICENSE prdnam ,prducer [,contxt] [,itmlst] *)N(* *)H(* prdnam = address of descriptor for software product name *)I(* prducer = address of descriptor for software producer name *)I(* contxt = address o @f context buffer (4 longwords) *)H(* itmlst = address of a list of item descriptors *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$GRANT_LICENSE)] FUNCTION $GRANT_LICENSE (< PRDNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;= PRDUCER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;4 VAR CONTXT : [VOLATILE] STARLET$$TYP18 := %IMMED 0;\ %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEAGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $HASH_PASSWORD *)N(* *)N(* Encrypt a user password to produce a quadword hash value. *)N(* *)I(* $HASH_PASSWORD pwd, alg, [salt], usrnam, hash *)N(* B *)E(* pwd = address of descriptor for plaintext password *)E(* alg = algorithm to use for hash *)F(* salt = salt value for use by hash algorithm *)H(* usrnam = address of descriptor of username *)F(* hash = address of output quadword hash buffer *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$HASH_PASS CWORD)] FUNCTION $HASH_PASSWORD (9 PWD : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED ALG : INTEGER;# %IMMED SALT : INTEGER := %IMMED 0;< USRNAM : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR;3 VAR HASH : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* $HIBER *)N(* *)N(* Hibernate D *)N(* *)N(* $HIBER_S *)N(* *) G[ASYNCHRONOUS,EXTERNAL(SYS$HIBER)] FUNCTION $HIBER : INTEGER; EXTERNAL; N(* *)N(* $IDTOASC *)N(* E *)N(* Identifier To Ascii Conversion *)N(* *)I(* $IDTOASC id, [namlen], [nambuf], [resid], [attrib], [contxt] *)N(* *)D(* id = identifier longword to convert, or zero to *)B(* find all identifiers (wildcarding) F *)H(* namlen = address of a word to store the length of the *)B(* identifier name *)H(* nambuf = address of a character string descriptor that *)B(* describes the buffer to return the identifier name *)G(* resid = address of a longword to return the id found *)B(* while wildcarding *)H(* attrib = address to return the attributes longword G *)H(* contxt = address of a longword containing the record stream *)B(* context. initially should be zero, value output *)B(* on first call, value input on subsequent calls. *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$IDTOASC)] FUNCTION $IDTOASC ( %IMMED ID : UNSIGNED;, VAR NAMLEN : [VOLATILE] $UWORD := %IMMED 0;U VAR NAMBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := H%IMMED 0;- VAR RESID : [VOLATILE] UNSIGNED := %IMMED 0;. VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $IEEE_SET_FP_CONTROL *)N(* *)N(* Set IEEE floating point control register *)N(* I *)I(* $IEEE_SET_FP_CONTROL [clrmsk], [setmsk], [prvmsk] *)N(* *)H(* clrmsk = address of a quadword mask to clear *)H(* setmsk = address of a quadword mask to set *)H(* prvmsk = address of a quadword to return previous value *)N(* J *) P[ASYNCHRONOUS,EXTERNAL(SYS$IEEE_SET_FP_CONTROL)] FUNCTION $IEEE_SET_FP_CONTROL ( CLRMSK : $UQUAD := %IMMED 0; SETMSK : $UQUAD := %IMMED 0;A VAR PRVMSK : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $IMGACT *)N(* *)N(* Image Activation *)N(* K *)M(* $IMGACT name,[dflnam],hdrbuf,[imgctl],[inadr], *)B(* [retadr], [ident], [acmode] *)N(* *)N(* *)J(* name = address of descriptor for file name string *)N(* L *)L(* dflnam = descriptor for file name string *)N(* *)L(* hdrbuf = address of 512 byte buffer to write in *)N(* *)L(* imgctl = image activation control flags *)N(* *)K(* inaMdr = address of quadword specifying virtual address *)B(* range to be mapped *)N(* *)L(* retadr = address of quadword specifying virtual address *)B(* range actually mapped *)N(* *)K(* ident = address of quadword holding image section match N *)B(* control and identifier *)N(* *)L(* acmode = access mode to be the owner of the created pages *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$IMGACT)] FUNCTION $IMGACT (: NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;H DFLNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IM OMED 0;! VAR HDRBUF : [VOLATILE] $DEFPTR;& %IMMED IMGCTL : UNSIGNED := %IMMED 0;$ INADR : STARLET$$TYP19 := %IMMED 0;4 VAR RETADR : [VOLATILE] STARLET$$TYP20 := %IMMED 0; IDENT : $UQUAD := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $IMGFIX *)N(* *)N(* Image Address Fixup Service P *)N(* *)N(* $IMGFIX *)N(* *) I[ASYNCHRONOUS,EXTERNAL(SYS$IMGFIX)] FUNCTION $IMGFIX : INTEGER; EXTERNAL; N(* $INIT_VOL *)N(* *)N(* InitializeQ Volume *)N(* *)N(* $INIT_VOL devnam, volnam, [itmlst] *)N(* *)N(* devnam = device name containing volume to initialize *)N(* *)N(* volnam = name to initialize the vol Rume with *)N(* *)N(* itmlst = address of item code list for initialization options *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$INIT_VOL)] FUNCTION $INIT_VOL (< DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;< VOLNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;\ %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:SINTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $IO_CLEANUP *)N(* *)N(* Cleanup a previously set-up I/O *)N(* *)I(* $IO_CLEANUP fandle *)N(* T *)I(* fandle = fandle to clean up *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$IO_CLEANUP)] FUNCTION $IO_CLEANUP (9 %IMMED FANDL : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $IO_FASTPATH *)N(* *)N(* I/O Fastpath system servUice *)N(* *)I(* $IO_FASTPATH efn, cpu_mask, func, iosb, astadr, astprm *)N(* *)>(* efn = event flag number *)N(* *)B(* cpu_mask = either -1 wildcard or pointer to longword *);(* cVontaining CPU mask *)=(* FP$K_BALANCE_PORTS = balance fastpath ports *)N(* *)?(* func = fastpath function code *)N(* *)?(* iosb = address of I/O status block *)N(* *)A(* astadr = add Wress of AST completion routine *)N(* *)A(* astprm = AST routine parameter *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$IO_FASTPATH)] FUNCTION $IO_FASTPATH (# %IMMED EFN : UNSIGNED := %IMMED 0;( %IMMED CPU_MASK : UNSIGNED := %IMMED 0;$ %IMMED FUNC : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMME XD 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;@ %IMMED MASK_LENGTH : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; B[ASYNCHRONOUS,EXTERNAL(SYS$IO_FASTPATHW)] FUNCTION $IO_FASTPATHW (# %IMMED EFN : UNSIGNED := %IMMED 0;( %IMMED CPU_MASK : UNSIGNED := %IMMED 0;$ %IMMED FUNC : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IM YMED 0;@ %IMMED MASK_LENGTH : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $IO_PERFORM *)N(* *)N(* Transfer data between device and buffer *)N(* *)I(* $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata *)I(* ($IO_PERFORMW) Z *)N(* *)I(* fandle = fandle from previous $IO_SETUP *)N(* *)I(* chan = standard I/O channel *)N(* *)I(* iosadr = IOSA address [ *)N(* *)I(* bufadr = address of data buffer (64 bits) *)N(* *)I(* buflen = length of data buffer (64 bits) *)N(* *)I(* devdata= data passed to driver, e.g., media address *)N(* \ *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$IO_PERFORM)] FUNCTION $IO_PERFORM ($ %IMMED FANDL : INTEGER := %IMMED 0;# %IMMED CHAN : INTEGER := %IMMED 0;% %IMMED IOSADR : INTEGER := %IMMED 0;% %IMMED BUFADR : $DEFPTR := %IMMED 0;% %IMMED BUFLEN : INTEGER := %IMMED 0;; %IMMED DEVDATA : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$IO_PERFORMW)] FUNCTIO ]N $IO_PERFORMW ($ %IMMED FANDL : INTEGER := %IMMED 0;# %IMMED CHAN : INTEGER := %IMMED 0;% %IMMED IOSADR : INTEGER := %IMMED 0;% %IMMED BUFADR : $DEFPTR := %IMMED 0;% %IMMED BUFLEN : INTEGER := %IMMED 0;; %IMMED DEVDATA : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $IO_SETUP *)N(* *)N(* Set up a fast I/O ^ *)N(* *)I(* $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle *)N(* *)I(* func = function code *)N(* *)I(* bufobj = data buffer object (address of (vector of 2 ints)) *)N(* _ *)I(* iosobj = IOSA buffer object (address of (vector of 2 ints)) *)N(* *)I(* astadr = completion AST address (address of entry) *)N(* *)I(* flags = flags *)N(* ` *)I(* return_fandle = address of returned fandle *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$IO_SETUP)] FUNCTION $IO_SETUP ($ %IMMED FUNC : UNSIGNED := %IMMED 0;% %IMMED BUFOBJ : $DEFPTR := %IMMED 0;% %IMMED IOSOBJ : $DEFPTR := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;< VAR RETURN_FANDLE : [VOLATILE] $UQUAD) : INTE aGER; EXTERNAL; N(* $IPC *)N(* *)N(* Interprocess Communication Request *)N(* *)N(* $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm] *)N(* ($IPCW) *)N(* b *)N(* efn = number of event flag to set on completion *)N(* *)N(* func = function code specifying action to be performed *)N(* *)N(* ipcb = address of Interprocess Communication Block *)N(* c *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as argument *)N(* *)N(* *) 0[ASYNCHRONOUS,EXTERNAL(SYS$IPC)] FUNCTION $IPC (# %IMdMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; IPCB : UNSIGNED;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 2[ASYNCHRONOUS,EXTERNAL(SYS$IPCW)] FUNCTION $IPCW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; IPCB : UNSIGNED;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $LCKPAG e *)N(* *)N(* Lock Pages in Memory *)N(* *)N(* $LCKPAG inadr ,[retadr] ,[acmode] *)N(* *)N(* inadr = address of 2-longword array containing sftarting and *)N(* ending addresses of pages to be locked *)N(* *)N(* retadr = address of 2-longword array to receive addresses of *)N(* pages actually locked *)N(* *)N(* acmode = access mode to check against the owner of the pages *)N(* g *) 6[ASYNCHRONOUS,EXTERNAL(SYS$LCKPAG)] FUNCTION $LCKPAG ( INADR : STARLET$$TYP21;4 VAR RETADR : [VOLATILE] STARLET$$TYP22 := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $LCKPAG_64 *)N(* *)N(* Lock Pages in Memory h *)N(* *)T(* $LCKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 *)N(* *)E(* start_va_64 = Starting address of address space to lock *)N(* *)G(* length_64 = Byte length of addresses to lock *)N(* i *)G(* acmode = Access mode to be checked against the page owner *)N(* *)J(* return_va_64 = Address of address space locked *)N(* *)J(* return_length_64 = Length of address space locked *)N(* j *) <[ASYNCHRONOUS,EXTERNAL(SYS$LCKPAG_64)] FUNCTION $LCKPAG_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;? VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* $LFS *)N(* *)N(* Call the LFS file system k *)N(* *)N(* $LFS [efn] ,func ,fsb ,[astadr] ,[astprm] *)N(* *)N(* efn = number of event flag to set on completion *)N(* *)N(* func = function code specifying action to be performed l *)N(* *)N(* fsb = address of File System Block *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as argument *)N(* m *) 0[ASYNCHRONOUS,EXTERNAL(SYS$LFS)] FUNCTION $LFS (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB : UNSIGNED;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $LKWSET *)N(* *)N(* Lock Pagesn in Working Set *)N(* *)N(* $LKWSET inadr ,[retadr] ,[acmode] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending virtual addresses of pages to be locked *)N(* o *)N(* retadr = address of a 2-longword array to receive starting and *)N(* ending virtual addresses of pages actually locked *)N(* *)N(* acmode = access mode to be checked against the page owner *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$LKWSET)] FUNCTION $LKWSET ( INADR : p STARLET$$TYP23;4 VAR RETADR : [VOLATILE] STARLET$$TYP24 := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $LKWSET_64 *)N(* *)N(* Lock Pages in Working Set *)N(* *)T(* $LKWSET_64 start_va_64, length_64, acmodqe, return_va_64, return_length_64 *)N(* *)E(* start_va_64 = Starting address of address space to lock *)N(* *)G(* length_64 = Byte length of addresses to lock *)N(* *)G(* acmode = Access mode to be checked against the page owner *)N(* r *)J(* return_va_64 = Address of address space locked *)N(* *)J(* return_length_64 = Length of address space locked *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$LKWSET_64)] FUNCTION $LKWSET_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTE sGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;? VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* *)N(* $LOOKUP_MAPPING *)N(* *)N(* Find single Mapping record in Mapping database *)N(* t *)N(* $LOOKUP_MAPPING initmlst ,[outitmlst] *)N(* *)N(* initmlst = address of a list of item descriptors for the operation *)N(* outitmlst = address of a list of item descriptors for the operation *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$LOOKUP_MAPPING)] FUNCTION u $LOOKUP_MAPPING (= %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;_ %REF OUTITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $MGBLSC *)N(* *)N(* Map Global Section *)N(* *)Pv(* $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpag] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending addresses of pages to be mapped *)N(* *)N(* retadr = address of 2-longword array to receive virtual *)N(* addressews of pages mapped *)N(* *)N(* acmode = access mode of owner of mapped pages *)N(* *)N(* flags = flags overriding default section characteristics *)N(* *)N(* Flag Meaning x *)N(* *)N(* SEC$M_WRT Read/write section *)N(* SEC$M_SYSGBL System global section *)N(* SEC$M_EXPREG Find first available space *)N(* *)N(* gsdnam = address of global section name descriptor y*)N(* *)N(* ident = address of quadword containing version id and match control *)N(* *)N(* relpag = relative page number within global section *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$MGBLSC)] FUNCTION $MGBLSC ( INADR : STARLET$$TYP25;4 VAR RETADR : [V zOLATILE] STARLET$$TYP26 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;< GSDNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR; IDENT : $UQUAD := %IMMED 0;; %IMMED RELPAG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $MGBLSC_64 *)N(* *)N(* Map Global Page or Disk File Section { *)N(* *)N(* $MGBLSC_64 gsdnam_64, ident_64, region_id_64, section_offset_64, *)B(* length_64, acmode, flags, return_va_64, return_length_64 *)B(* [, start_va_64[, page_prot]] *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) | *)N(* *)S(* ident_64 = Address of quadword containing version id and match control *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)N(* section_offset_64 = Relative byte within global section to start mapping *)N(* } *)G(* length_64 = Byte length of section to map *)N(* *)G(* acmode = Access mode of owner of mapped pages *)N(* *)G(* flags = Flags overriding default section characteristics *)N(* ~ *)G(* Flag Meaning *)N(* *)G(* SEC$M_EXPREG Find first available space *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space *)G(* SEC$M_SYSGBL System global section *)H(* SEC$M_WRT Read/write mapping of section *)N(*  *)J(* return_va_64 = Address of address space created *)N(* *)J(* return_length_64 = Length of address space created *)N(* *)E(* start_va_64 = Starting address of address space to create *)N(* *)C (* page_prot = Desired page protection (optional) *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$MGBLSC_64)] FUNCTION $MGBLSC_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; REGION_ID_64 : $UQUAD;$ %IMMED SECTION_OFFSET_64 : INTEGER; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_ LENGTH_64 : [VOLATILE] $UQUAD;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;> %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $MGBLSC_GPFN_64 *)N(* *)N(* Map Global Page Frame Section *)N(* *)X(* $MGBLSC_GPFN_64 gsdnam_64, ident_64, region_id_64, relative_page, page_count, *);(* acmode, flags, return_va_64, return_length_64 *);(* [, start_va_64[, page_prot]] *)N(* *)D(* gsdnam_64 = Address of global section name string descriptor *)<(* (32-bit or 64-bit descriptor) *)N(* *)S(* ident_64 = Address of quadword containing version id and match control *)N(* *)G(* region_id_64 = Address of quadword region id *)N(* *)K(* relative_page = Relative page within global section to start mapping *)N(* *)D(* page_count = Number of page frames to map *)N(* *)G(* acmode = Access mode of owner of mapped pages *)N(* *)G(* flags = Flags overriding default section characteristics *)N(* *)G(* Flag Meaning *)N(*  *)G(* SEC$M_EXPREG Find first available space *)D(* SEC$M_NO_OVERMAP Do not overmap existing address space *)G(* SEC$M_SYSGBL System global section *)H(* SEC$M_WRT Read/write mapping of section *)N(* *)J(* return_va_64 = Address of address space created *)N(*  *)J(* return_length_64 = Length of address space created *)N(* *)E(* start_va_64 = Starting address of address space to create *)N(* *)C(* page_prot = Desired page protection (optional) *)N(*  *) F[ASYNCHRONOUS,EXTERNAL(SYS$MGBLSC_GPFN_64)] FUNCTION $MGBLSC_GPFN_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; REGION_ID_64 : $UQUAD; %IMMED RELATIVE_PAGE : INTEGER; %IMMED PAGE_COUNT : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;* %IMMED START_VA_64 : $DEFPTR := %IMMED 0;> %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXT ERNAL; N(* *)N(* $MODIFY *)N(* *)N(* Modify File *)N(* *)N(* $MODIFY fab, [err], [suc] *)N(*  *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$MODIFY)] FUNCTION $MODIFY (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $MODIFY_MAPPING *)N(*  *)N(* Modify Mapping record in Mapping database *)N(* *)N(* $MODIFY_MAPPING initmlst, moditmlst *)N(* *)N(* initmlst = address of a list of item descriptors for the operation *)N(* moditmlst = address of a list of item descriptors for the operation *) N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$MODIFY_MAPPING)] FUNCTION $MODIFY_MAPPING (= %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;S %REF MODITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* $MOD_HOLDER *)N(*  *)N(* Modify Holder Record In Rights Database *)N(* *)I(* $MOD_HOLDER id, holder, [set_attrib], [clr_attrib] *)N(* *)D(* id = identifier longword *)H(* holder = address of the holder identifier quadword *)I (* set_attrib = longword containing the attributes to set *)B(* into the holder record *)I(* clr_attrib = longword containing the attributes to clear *)B(* in the holder record *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$MOD_HOLDER)] FUNCTION $MOD_HOLDER ( %IMMED ID : UNSIGNED; HOLDER : $UQUAD;* %IMMED SET_ATTRIB : UNSIG NED := %IMMED 0;? %IMMED CLR_ATTRIB : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $MOD_IDENT *)N(* *)N(* Modify Identifier Record In Rights Database *)N(* *)I(* $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value] *)N(* *)D(* id = identifier longword *)I(* set_attrib = longword containing the attributes *)B(* to set into the identifier record *)I(* clr_attrib = longword containing the attributes *)B(* to clear in the identifier record *)I(* new_nam e = address of the new identifier name character *)N(* string descriptor *)I(* new_value = new identifier value longword *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$MOD_IDENT)] FUNCTION $MOD_IDENT ( %IMMED ID : UNSIGNED;* %IMMED SET_ATTRIB : UNSIGNED := %IMMED 0;* %IMMED CLR_ATTRIB : UNSIGNED := %IMMED 0;J NEW_NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;> %IMMED NEW_VALUE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $MOUNT *)N(* *)N(* Mount Volume *)N(* *)N(* $MOUNT itmlst  *)N(* *)N(* itmlst = Address of a list of item identifiers *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$MOUNT)] FUNCTION $MOUNT (P %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* $MTACCESS *)N(*  *)N(* Installation specific accessibility routine *)N(* *)N(* $MTACCESS lblnam, [uic], [std_version], [access_char], *)I(* [access_spec],type *)N(* *)N(* lblnam = On input this field is the address of the  *)B(* VOL1 or HDR1 label read off the magnetic tape. On *)B(* output of labels this field is zero. The type *)B(* of label is determined by the TYPE field. *)M(* uic = This field contains the longword volme UIC passed *)B(* by value. *)N(* std_version = This field contains a byte value of the *)B(* decimal equivalent of the version number  *)B(* gotten from the VOL1 label, passed by value. *)N(* access_char = This field contins the byte value of the *)B(* accessibility character specified by the user, *)B(* passed by value. For output of labels only. *)N(* access_spec = This field determines if the character passed *)B(* in ACCESS_CHAR was specified by user, passed *)B(* by value. It must contain one of the following  *)B(* values: *);(* MTA$K_CHARVALID = YES *);(* MTA$K_NOCHAR = NO *)C(* For output of labels only. *)N(* type = This field contains the type of accessibility to process, *)I(* passed by value. It must contain one of the following *)I(* values: *);(*  MTA$K_INVOL1 = Input a VOL1 label *);(* MTA$K_INHDR1 = Input a HDR1 label *);(* MTA$K_OUTVOL1 = Output a VOL1 label *);(* MTA$K_OUTHDR1 = Output a HDR1 label *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$MTACCESS)] FUNCTION $MTACCESS ( LBLNAM : UNSIGNED;# %IMMED UIC : UNSIGNED := %IMMED 0;+ %IMMED STD_VERSION : UNSIGNED := %IMMED 3;, %IMMED ACCE SS_CHAR : UNSIGNED := %IMMED 32;+ %IMMED ACCESS_SPEC : UNSIGNED := %IMMED 0;. %IMMED TYPE_ : UNSIGNED) : INTEGER; EXTERNAL; N(* $NUMTIM *)N(* *)N(* Convert Binary Time to Numeric Time *)N(* *)N(* $NUMTIM timbuf ,[timadr]  *)N(* *)N(* timbuf = address of a 7-word buffer to receive numeric time *)N(* information *)N(* *)N(* timadr = address of a quadword containing the 64-bit time. If *)N(* 0, use current time *)N (* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$NUMTIM)] FUNCTION $NUMTIM (( VAR TIMBUF : [VOLATILE] STARLET$$TYP27;2 TIMADR : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $NUMUTC *)N(* *)N(* Convert UTC Binary Time to Numeric Time *)N(* *)N(* $NUMUTC timbuf ,[utcadr] *)N(* *)N(* timbuf = address of a 11-word buffer to receive numeric time *)N(* information *)N(*  *)5(* 31 0 *)L(* +---------------+---------------+ *)I(* | month of year | year since 0 | 7 word Date (ala NUMTIM) *)I(* +---------------+---------------+ *)I(* | hour of day | day of month | *)I(* +---------------+---------------+ *)I(* | sec. of min. | min. of hour |  *)I(* +---------------+---------------+ *)E(* | iDays | hund of Sec | *)N(* +---------------+---------------+ *)N(* | imins | ihours | 6 word Inaccuracy *)N(* +---------------+---------------+ *)N(* | ihund of sec | isecs | *)N(*  +---------------+---------------+ *);(* | TDF in Min | *);(* +---------------+ *)N(* *)N(* utcadr = address of a utc_date_time to convert. *)N(* 0, use current time *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$NUMUTC)] FUNCTION $NUMUTC (( VAR TIMBUF : [VOLATILE] STARLET$$TYP28;2 UTCADR : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $NXTVOL *)N(* *)N(* Go to Next Volume *)N(*  *)N(* $NXTVOL rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(*  *)E(* suc = address of user success completion routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$NXTVOL)] FUNCTION $NXTVOL (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $OPEN *)N(* *)N(* Open File *)N(* *)N(* $OPEN fab, [err], [suc] *)N(* *) J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *) 2[ASYNCHRONOUS,EXTERNAL(SYS$OPEN)] FUNCTION $OPEN (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $PARSE *)N(* *)N(* Parse File Name *)N(*  *)N(* $PARSE fab, [err], [suc] *)N(* *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(* *) E(* suc = address of user success completion routine *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$PARSE)] FUNCTION $PARSE (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $PARSE_ACL *)N(* *)N(* Parse an Access Control list Entry *)N(* *)I(* $PARSE_ACL acl-string ,acl-entry ,[error-position], *)B(* [bit-names], [routin] *)N(*  *)D(* acl-string = address of a descriptor of a buffer which *);(* contains the text to be parsed *)N(* *)C(* acl-entry = address of a descriptor of a buffer into *);(* which the converted ACE is to be written *)N(* *)H(* error-position = address of a word to receive the number of *);(* characters actually processed by the service. *);(* If the service fails, this count points to *);(* the failing point in the input string. *)N(* *)C(* bit-names = address of a access bit name table (32 entries) *)N(* *)A(* routin = address of routine to be executed in kernel mod e *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$PARSE_ACL)] FUNCTION $PARSE_ACL (< ACLSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;I VAR ACLENT : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;, VAR ERRPOS : [VOLATILE] $UWORD := %IMMED 0;G %REF ACCNAM : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;R %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; G(* $PARSE_CLASS itmlst, [routin] *)N(* *)N(* Parse access class strings *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* routin = address of routine to be executed in kernel mode *)N(* *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$PARSE_CLASS)] FUNCTION $PARSE_CLASS (; %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;R %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; N(* $PERSONA_CREATE *)N(*  *)N(* Create Persona *)N(* *)N(* $PERSONA_CREATE persona, [usrnam], [flags], [usrpro], [itmlst] *)N(* *)G(* persona = address of longword holding persona identifier *)N(*  *)G(* usrnam = address of user name descriptor *)N(* *)G(* flags = bitvector value *)N(* *)e(* usrpro = address of a descriptor pointing to a user profile block (TLV structure) *)N(*  *)N(* itmlst = address of item list for modifications to persona *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CREATE)] FUNCTION $PERSONA_CREATE (# VAR PERSONA : [VOLATILE] UNSIGNED;H USRNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;H USRPRO : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;3 ITMLST : $DEFPTR := %IMMED 0) : INTEGER; EXTERNAL; N(* $PERSONA_CREATE_INT *)N(* *)N(* Create Persona Internal Service *)N(* *)N(* $PERSONA_CREATE_INT persona, itmlst *)N(*  *)N(* persona = address of longword holding persona identifier *)N(* *)N(* itmlst = address of item list containing persona data *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CREATE_INT)] FUNCTION $PERSONA_CREATE_INT (# VAR PERSONA : [VOLATILE] UNSIGNED;\ %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $PERSONA_ASSUME *)N(* *)N(* Assume Persona *)N(* *)N(* $PERSONA_ASSUME persona, [flags], [previous], [acmode] *)N(*  *)N(* persona = address of longword holding persona identifier *)N(* *)N(* flags = longword value *)N(* *)W(* previous = address of longword to receive previous persona identifier *)N(*  *)N(* acmode = access mode of code assuming persona *)N(* *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_ASSUME)] FUNCTION $PERSONA_ASSUME ( PERSONA : UNSIGNED;% %IMMED FLAGS : UNSIGNED := %IMMED 0;0 VAR PREVIOUS : [VOLATILE] UNSIGNED := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $PERSONA_DELETE *)N(* *)N(* Delete Persona *)N(* *)N(* $PERSONA_DELETE persona *)N(* *)N(* persona = ad dress of longword holding persona identifier *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_DELETE)] FUNCTION $PERSONA_DELETE () PERSONA : UNSIGNED) : INTEGER; EXTERNAL; N(* $PERSONA_EXPORT_ARB *)N(* *)N(* Move Persona data to ARB structures *)N(*  *)N(* $PERSONA_EXPORT_ARB [level] *)N(* *)N(* level = level of ARB_SUPPORT to be provided *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_EXPORT_ARB)] FUNCTION $PERSONA_EXPORT_ARB (: %IMMED LEVEL : INTEGER := %IMMED -1) : INTEGER; EXTERNAL; N(* $PERSONA_IMPORT_ARB *)N(* *)N(* Load Persona Block with ARB structures data *)N(* *)N(* $PERSONA_IMPORT_ARB [level] *)N(*  *)N(* level = level of ARB_SUPPORT to be provided *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_IMPORT_ARB)] FUNCTION $PERSONA_IMPORT_ARB (: %IMMED LEVEL : INTEGER := %IMMED -1) : INTEGER; EXTERNAL; N(* $PERSONA_CLONE *)N(* *)N(* Create duplicate Persona block *)N(* *)N(* $PERSONA_CLONE persona *)N(* *)Q(* persona = address of location in which to store the persona id *)N(* of the clone. *)N(*  *)S(* input_id = address of location containing the persona ID to clone *)N(* OPTIONAL! *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CLONE)] FUNCTION $PERSONA_CLONE (# VAR PERSONA : [VOLATILE] UNSIGNED;6 INPUT_ID : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $PROCESS_AFFINITY *)N(* *)N(* Modify process affinity *)N(* *)m(* $PROCESS_AFFINITY [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags],[mask_length] *)N(*  *)N(* pidadr = address of process identification of process for *)N(* which affinity is to be changed *)N(* prcnam = address of process name string descriptor *)I(* select_mask = address of bitmask indicating which capabilities *)B(* are to be involved in the specified operation *)I(* modify_mask = address of bitmask indicating final state *)B(* of those capabilit ies specified in select_mask *)I(* prev_mask = address of user quadword that will hold the *)B(* previous states of the individual capabilities *)I(* flags = address of behavioral flags for this operation *)I(* mask_length = address of user longword that will hold the *)B(* common length of all bitmaps - select,modify,prev *)N(* *) J[ASYNCHRONOU S,EXTERNAL(SYS$PROCESS_AFFINITY)] FUNCTION $PROCESS_AFFINITY ( PIDADR : UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;" SELECT_MASK : $UQUAD := %IMMED 0;" MODIFY_MASK : $UQUAD := %IMMED 0;/ VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0; FLAGS : $UQUAD := %IMMED 0;9 MASK_LENGTH : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $PROCESS_CAPABILITIES  *)N(* *)N(* Modify process user capabilities *)N(* *)c(* $PROCESS_CAPABILITIES [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags] *)N(* *)N(* pidadr = address of process identification of process for *)N(* which capabilities are to be modified *)N(* prcnam = address of process name string descriptor *)I(* select_mask = address of bitmask indicating which capabilities *)B(* are to be involved in the specified operation *)I(* modify_mask = address of bitmask indicating final state *)B(* of those capabilities specified in select_mask *)I(* prev_mask = addre ss of user quadword that will hold the *)B(* previous states of the individual capabilities *)I(* flags = address of behavioral flags for this operation *)N(* *) R[ASYNCHRONOUS,EXTERNAL(SYS$PROCESS_CAPABILITIES)] FUNCTION $PROCESS_CAPABILITIES ( PIDADR : UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;" SELECT_MASK : $UQUAD := %IMME D 0;" MODIFY_MASK : $UQUAD := %IMMED 0;/ VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0;1 FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $PROCESS_SCAN *)N(* *)N(* Initialize Process_scan context *)N(* *)N(* $Process_scan pidctx , [itmlst ] *)N(* *)N(* pidctx = address of process ctx id *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(*  *) B[ASYNCHRONOUS,EXTERNAL(SYS$PROCESS_SCAN)] FUNCTION $PROCESS_SCAN (" VAR PIDCTX : [VOLATILE] UNSIGNED;\ %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $PSHARED_REGISTER *)N(* *)N(* Register a process and global section *)N(*  *)N(* $PSHARED_REGISTER addr *)N(* *)N(* addr = base address of the global section to be registered *)N(* $PURGE_WS *)N(* *)N(* Purge Working Set  *)N(* *)N(* $PURGE_WS start_va_64, length_64 *)N(* *)E(* start_va_64 = Starting address of address space to purge *)N(* *)G(* length_64 = Byte length of addresses to purge *)N(*  *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$PURGE_WS)] FUNCTION $PURGE_WS ( %IMMED START_VA_64 : $DEFPTR;1 %IMMED LENGTH_64 : INTEGER) : INTEGER; EXTERNAL; N(* $PURGWS *)N(* *)N(* Purge Working Set  *)N(* *)N(* $PURGWS inadr *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending addresses of pages to be removed *)N(* *) 6[ASYNC HRONOUS,EXTERNAL(SYS$PURGWS)] FUNCTION $PURGWS (- INADR : STARLET$$TYP29) : INTEGER; EXTERNAL; N(* *)N(* $PUT *)N(* *)N(* Put Record to File *)N(* *)N(*  $PUT rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completio n routine *)N(* *) 0[ASYNCHRONOUS,EXTERNAL(SYS$PUT)] FUNCTION $PUT (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $PUTMSG *)N(*  *)N(* Put Message *)N(* *)N(* $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm] *)N(* *)N(* msgvec = address of message argument vector *)N(*  *)N(* actrtn = address of entry mask of action routine *)N(* *)N(* facnam = address of facility name string descriptor *)N(* *)N(* actprm = parameter to pass to action routine *)N(* *) 6[ASYNCHRONOUS,EX TERNAL(SYS$PUTMSG)] FUNCTION $PUTMSG (; %REF MSGVEC : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ACTRTN := %IMMED 0;H FACNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %IMMED ACTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $QIO *)N(* *)N(* Queue I/O Request  *)N(* *)N(* $QIO [efn] ,chan ,func ,[iosb] ,[astadr] ,[astprm] *)N(* ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6] *)N(* *)N(* efn = number of event flag to set on completion *)N(*  *)N(* chan = number of channel on which I/O is directed *)N(* *)N(* func = function code specifying action to be performed *)N(* *)N(* iosb = address of quadword I/O status block to receive final *)N(* completion status *)N(*  *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as argument *)N(* *)N(* p1... = optional device- and function-specific parameters *)N(*  *) 0[ASYNCHRONOUS,EXTERNAL(SYS$QIO)] FUNCTION $QIO (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED FUNC : INTEGER;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;C %REF P1 : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0;! %IMMED P2 : INTEGER := %IMMED 0;! %IMMED P3 : INTEGER := %IMMED 0;! %IMMED P4 : INTEGER := %IMMED 0;! %IMMED P5 : INTEGER := %IMMED 0;6 %IMMED P6 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; 2[ASYNCHRONOUS,EXTERNAL(SYS$QIOW)] FUNCTION $QIOW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED FUNC : INTEGER;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;C %REF P1 : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0;! %IMMED P2 : INTEGER := %IMMED 0;! %IMMED P3 : INTEGER := %IMMED 0;! %IMMED P4 : INTEGER := %IMMED 0;! %IMMED P5 : INTEGER := %IMMED 0;6 %IMMED P6 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $READ *)N(* *)N(* Read Block from File *)N(*  *)N(* $READ rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(*  *)E(* suc = address of user success completion routine *)N(* *) 2[ASYNCHRONOUS,EXTERNAL(SYS$READ)] FUNCTION $READ (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $READEF  *)N(* *)N(* Read Event Flag *)N(* *)N(* $READEF efn ,state *)N(* *)N(* efn = event flag number of any flag in the cluster *)N(*  *)N(* state = address of a longword to receive current state of all *)N(* flags in the cluster *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$READEF)] FUNCTION $READEF ( %IMMED EFN : UNSIGNED;6 VAR STATE : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(*  *)N(* $READ_THREAD_UNQ *)N(* *)N(* Read thread unique value *)N(* *)N(* $READ_THREAD_UNQ contxt *)N(* *)M (* contxt = address of quadword in which to return the *)B(* thread unique value *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$READ_THREAD_UNQ)] FUNCTION $READ_THREAD_UNQ (7 VAR CONTXT : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $REGISTRY  *)N(* *)N(* Interface to the Registry Database *)N(* *)C(* $REGISTRY [efn], func, [ntcredentials], itmlst, [iosb] *);(* [,astadr] [,astprm] [,timeout] *)I(* ($REGISTRYW) *)N(*  *)>(* efn = event flag to be set at completion *)N(* *)?(* func = function code specifying action to be performed *)N(* *)N(* ntcredentials = address of an NT user credentials buffer *)N(* *)A(* itmlst = address of a list of item descriptors *)N(* *)?(* iosb = address of a quadword I/O status block *)N(* *)A(* astadr = address of entry mask of AST routine *)N(* *)A(* astprm = value to be passed to AST routine *)N(*  *)B(* timeout = request timeout value *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$REGISTRY)] FUNCTION $REGISTRY (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED;O NTCREDENTIALS : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [V OLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;< %IMMED TIMEOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; <[ASYNCHRONOUS,EXTERNAL(SYS$REGISTRYW)] FUNCTION $REGISTRYW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED;O NTCREDENTIALS : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IM MED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;< %IMMED TIMEOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $RELEASE *)N(* *)N(* Release Record *)N(*  *)N(* $RELEASE rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(*  *)E(* suc = address of user success completion routine *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$RELEASE)] FUNCTION $RELEASE (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $RELEASE_LICENSE *)N(* *)N(* Release authorization to execute licensed software product. *)N(* *)I(* $RELEASE_LICENSE context *)N(*  *)J(* contxt = address of context buffer returned by *)B(* $grant_license (4 longwords) *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_LICENSE)] FUNCTION $RELEASE_LICENSE (P %REF CONTXT : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* $RELEASE_VP  *)N(* *)N(* Release the Vector Processor *)N(* *)I(* $RELEASE_VP *)N(* *) Q[ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_VP)] FUNCTION $RELEASE_ VP : INTEGER; EXTERNAL; N(* *)N(* $RELEASE_VP_INT *)N(* *)N(* Release the Vector Processor, internal form *)N(* *)I(* $RELEASE_VP_INT *)N (* *) Y[ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_VP_INT)] FUNCTION $RELEASE_VP_INT : INTEGER; EXTERNAL; N(* *)N(* $REMOVE *)N(* *)N(* Remove File *)N(*  *)N(* $REMOVE fab, [err], [suc] *)N(* *)J(* fab = address of fab *)N(* *)E(* err = address of user error completion routine *)N(*  *)E(* suc = address of user success completion routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$REMOVE)] FUNCTION $REMOVE (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $REM_HOLDER *)N(* *)N(* Remove Holder Record From Rights Database *)N(* *)I(* $REM_HOLDER id, holder *)N(*  *)D(* id = identifier longword *)H(* holder = address of the holder identifier quadword *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$REM_HOLDER)] FUNCTION $REM_HOLDER ( %IMMED ID : UNSIGNED;& HOLDER : $UQUAD) : INTEGER; EXTERNAL; N(* *)N(* $REM_IDENT  *)N(* *)N(* Remove Identifier From Rights Database *)N(* *)I(* $REM_IDENT id *)N(* *)D(* id = identifier longword *)N(*  *) <[ASYNCHRONOUS,EXTERNAL(SYS$REM_IDENT)] FUNCTION $REM_IDENT (+ %IMMED ID : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $RENAME *)N(* *)N(* Rename File *)N(*  *)N(* $RENAME oldfab, [err], [suc], newfab *)N(* *)M(* oldfab = address of oldfab *)N(* *)E(* err = address of user error completion routine *)N(*  *)E(* suc = address of user success completion routine *)N(* *)H(* newfab = address of new fab *) 6[ASYNCHRONOUS,EXTERNAL(SYS$RENAME)] FUNCTION $RENAME (D %REF OLDFAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMME D 0;Y %REF NEWFAB : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* $RESTORE_VP_EXCEPTION *)N(* *)N(* Restore Vector Processor Exception State *)N(* *)G(* $ RESTORE_VP_EXCEPTION excid *)N(* *)J(* excid = address of a context longword *)N(* *) R[ASYNCHRONOUS,EXTERNAL(SYS$RESTORE_VP_EXCEPTION)] FUNCTION $RESTORE_VP_EXCEPTION (' EXCID : UNSIGNED) : INTEGER; EXTERNAL; N(*  *)N(* $RESTORE_VP_EXC_INT *)N(* *)N(* Restore Vector Processor Exception State *)N(* *)E(* $RESTORE_VP_EXC_INT excid *)N(* *)J(* excid = address of a context longword *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$RESTORE_VP_EXC_INT)] FUNCTION $RESTORE_VP_EXC_INT (' EXCID : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $RESTORE_VP_STATE *)N(* *)N (* Restore Mainline Vector State *)N(* *)I(* $RESTORE_VP_STATE *)N(* *) ][ASYNCHRONOUS,EXTERNAL(SYS$RESTORE_VP_STATE)] FUNCTION $RESTORE_VP_STATE : INTEGER; EXTERNAL; N(* $RESUME *)N(*  *)N(* Resume Suspended Process *)N(* *)N(* $RESUME [pidadr] ,[prcnam] *)N(* *)N(* pidadr = address of process id of process to be resumed *)N(*  *)N(* prcnam = address of process name string descriptor *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$RESUME)] FUNCTION $RESUME (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;] PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $REVOKID *)N(* *)N(* Revoke Identifier from Process *)N(* *)I(* $REVOKID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] *)N(* *)I(* pidadr = address of PID of affected process *)I(* prcnam = address of string descriptor of process name *)I(* id = address of quadword identifier and attributes *)I(* name = address of string descriptor of identifier name *)I(* prvatr = address to store attributes of superseded id *)I(* segment = optional segment index, by value *)N(* *) 8[ASYNC HRONOUS,EXTERNAL(SYS$REVOKID)] FUNCTION $REVOKID (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;( VAR ID : [VOLATILE] $UQUAD := %IMMED 0;F NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;. VAR PRVATR : [VOLATILE] UNSIGNED := %IMMED 0;< %IMMED SEGMENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $REWIND  *)N(* *)N(* Rewind File *)N(* *)N(* $REWIND rab, [err], [suc] *)N(* *)J(* rab = address of rab  *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$REWIND)] FUNCTION $REWIND (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $RMSRUNDWN *)N(* *)N(* RMS rundown (close all files opened by OpenVMS RMS for *)N(* the image or process and halts I/O activity. *)N(*  *)N(* $RMSRUNDWN buf-addr, type-value *)N(* *)N(* buf-addr = a descriptor pointing to a 22-byte buffer *)N(* that is to receive the device identification *)N(* (16 bytes) and the file identification (6 bytes) *)N(* bytes) of an imp roperly closed output file. *)N(* type-value = a single byte code that specifies the type of *)N(* I/O rundown to be performed. *) <[ASYNCHRONOUS,EXTERNAL(SYS$RMSRUNDWN)] FUNCTION $RMSRUNDWN (J VAR BUFADDR : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;1 %IMMED TYPEVALUE : INTEGER) : INTEGER; EXTERNAL; N(* $RUNDWN *)N(*  *)N(* Rundown Process *)N(* *)N(* $RUNDWN [acmode] *)N(* *)N(* acmode = access mode to rundown; this and all less *)B(* privileged access modes are rundown  *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$RUNDWN)] FUNCTION $RUNDWN (; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SAVE_VP_EXCEPTION *)N(* *)N(* Save Vector Processor Exception State *)N(* *)D(* $SAVE_VP_EXCEPTION excid ,[flags] *)N(* *)J(* excid = address of a context longword *)N(* *)J(* flags = noallocation flag *)B(*  0 -> allocate 1 -> don't allocate *)N(* *) L[ASYNCHRONOUS,EXTERNAL(SYS$SAVE_VP_EXCEPTION)] FUNCTION $SAVE_VP_EXCEPTION (! VAR EXCID : [VOLATILE] UNSIGNED;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SAVE_VP_EXC_INT *)N(*  *)N(* Save Vector Processor Exception State, internal form *)N(* *)I(* $SAVE_VP_EXC_INT excid ,[flags] *)N(* *)J(* excid = address of a context longword *)N(*  *)J(* flags = noallocation flag *)B(* 0 -> allocate 1 -> don't allocate *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$SAVE_VP_EXC_INT)] FUNCTION $SAVE_VP_EXC_INT (! VAR EXCID : [VOLATILE] UNSIGNED;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SCAN_INTRUSION *)N(* *)N(* Scan intrusion database *)N(* *)N(* $SCAN_INTRUSION logfail_status, failed_user, job_type, *)K(* [source_terminal], [source_node], [source_user], [source_addr], *)B(* [failed_password], [parent_user], [parent_id], [flags] *)N(* *)H(* logfail_status in login failure status *)E(* failed_user in address of failed username descriptor *)B(* job_type in job type index *)I(* source_terminal in address of source terminal descriptor *)E(* source_node in address of source nodename descriptor *)E(* source_user in  address of source username descriptor *)H(* source_address in address of source DECnet address *)P(* failed_password in address of failed password (breakin attempts only) *)E(* parent_user in address of parent username *)C(* parent_id in parent PID *)@(* flags in intrusion service flags *)N(* *) F[ASYNCHR ONOUS,EXTERNAL(SYS$SCAN_INTRUSION)] FUNCTION $SCAN_INTRUSION (" %IMMED LOGFAIL_STATUS : UNSIGNED;A FAILED_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %IMMED JOB_TYPE : UNSIGNED;Q SOURCE_TERMINAL : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;M SOURCE_NODE : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;M SOURCE_USER : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;P SOURCE_ADDRESS : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF C HAR := %IMMED 0;Q FAILED_PASSWORD : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0;M PARENT_USER : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0;) %IMMED PARENT_ID : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SCAN_MAPPING *)N(*   *)N(* Locate Mapping records in Mapping database *)N(* *)N(* $SCAN_MAPPING initmlst. outitmlst [,contxt] *)N(* *)N(* initmlst = address of a list of item descriptors for the operation *)N(* outitmlst = address of a list of item descriptors for the operation *)N(*  contxt = address of a context long word *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$SCAN_MAPPING)] FUNCTION $SCAN_MAPPING (= %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;> %REF OUTITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SCHDWK  *)N(* *)N(* Schedule Wakeup *)N(* *)N(* $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim] *)N(* *)N(* pidadr = address of process id of process to be awakened *)N(*  *)N(* prcnam = address of process name string descriptor *)N(* *)N(* daytim = address of quadword containing time to wake *)N(* *)N(* reptim = address of quadword containing repeat time interval *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SCHDWK)] FUNCTION $SCHDWK (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; DAYTIM : $UQUAD;2 REPTIM : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SEARCH *)N(*  *)N(* Search for File Name *)N(* *)N(* $SEARCH fab, [err], [suc] *)N(* *)J(* fab = address of fab *)N(* *)E(* e rr = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SEARCH)] FUNCTION $SEARCH (A %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETCLUEVT *)N(* *)N(* Set Cluster Event Notification *)N(* *)N(* $SETCLUEVT event, astadr, [astprm], [acmode], [handle] *)N(*  *)N(* event = code indicating type of event *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as an argument *)N(*  *)N(* acmode = access mode of AST *)N(* *)N(* handle = address of handle *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$SETCLUEVT)] FUNCTION $SETCLUEVT ( %IMMED EVENT : UNSIGNED;1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR;& %IMMED ASTPRM : UNSIGNE D := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;C VAR HANDLE : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETDDIR *)N(* *)N(* Read and set the default directory string for the process. *)N(* *)N(* $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr] *)N(* *)N(* new-dir-addr = a descriptor of the new default directory. *)N(* *)N(* length-addr = a word that is to receive the length of the *)N(* current default directory. *)N(* *)N(*  cur-dir-addr = descriptor of a buffer that is to receive *)N(* the current default directory. *) 8[ASYNCHRONOUS,EXTERNAL(SYS$SETDDIR)] FUNCTION $SETDDIR (L NEWDIRADDR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;0 VAR LENGTHADDR : [VOLATILE] $UWORD := %IMMED 0;n VAR CURDIRADDR : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETDFPROT  *)N(* *)N(* Read and write the default file protection for the process. *)N(* *)N(* $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr] *)N(* *)N(* new-def-prot-addr = a word that specifies the new default fil e *)N(* protection specification. *)N(* *)P(* cur-def-prot-addr = a word that is to receive the current default file *)N(* protection specification. *) <[ASYNCHRONOUS,EXTERNAL(SYS$SETDFPROT)] FUNCTION $SETDFPROT (% NEWDEFPROTADDR : $UWORD := %IMMED 0;I VAR CURDEFPROTADDR : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EX TERNAL; N(* $SET_RETURN_VALUE *)N(* *)N(* Set return value/status in the Mechanism array *)N(* *)N(* $SET_RETURN_VALUE [mechanism_arg], [return_type], return_value *)N(* *)N(* mechanism_arg = Address of mechanism vector *)N(* *)N(* return_type = Address of a longword containing one of the values *)B(* specified in the Function Return Signature Encoding tables *)B(* of the OpenVMS calling standard. *)N(* *)N(* return_value = Address of a value of the type specifie d by the *)B(* return_type argument. The referenced value will be read *)B(* as a longword, quadword, or octaword, depending on the *)B(* return_type value. *)N(* *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$SET_RETURN_VALUE)] FUNCTION $SET_RETURN_VALUE (, %IMMED MECHANISM_ARG : $DEFPTR := %IMMED 0; $ RETURN_TYPE : UNSIGNED := %IMMED 0;- RETURN_VALUE : $DEFPTR) : INTEGER; EXTERNAL; N(* $SET_SYSTEM_EVENT *)N(* *)N(* Set System Event Notification *)N(* *)N(* $SET_SYSTEM_EVENT event, astadr, [astprm], [acmode], handle *)N(*  *)N(* event = code indicating type of event *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as an argument *)N(*   *)N(* acmode = access mode of AST *)N(* *)V(* flags = flags longword (one example is to indicate whether the notification *)D(* of the event should be done only once or should be repeated) *)N(* *)N(* event_handle = address of handle ! *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$SET_SYSTEM_EVENT)] FUNCTION $SET_SYSTEM_EVENT ( %IMMED EVENT : UNSIGNED;1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR;% %IMMED ASTPRM : INTEGER := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;7 VAR HANDLE : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* " *)N(* $SET_IMPLICIT_AFFINITY *)N(* *)N(* Modify process implicit affinity *)N(* *)P(* $SET_IMPLICIT_AFFINITY [pidadr],[prcnam],[state],[cpu_id],[prev_mask] *)N(* *)N(* pidadr =# address of process identification of process for *)N(* which affinity is to be changed *)N(* prcnam = address of process name string descriptor *)I(* cpu_id = CPUID number process is to be assigned to initially *)I(* prev_mask = address of user quadword that will hold the *)B(* previous states of the individual capabilities *)N(* $ *) T[ASYNCHRONOUS,EXTERNAL(SYS$SET_IMPLICIT_AFFINITY)] FUNCTION $SET_IMPLICIT_AFFINITY ( PIDADR : UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; STATE : $UQUAD := %IMMED 0;& %IMMED CPU_ID : INTEGER := %IMMED -1;D VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $SET_RESOURCE_DOMAIN *)N(* % *)N(* Set Resource Domain *)N(* *)V(* $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode] *)N(* *)I(* func = join or leave function to be performed *)B(* 1 - Join the System Resource Domain *)B(* 2 - Join the Pro&cess Default Domain *)B(* 3 - Join a new Resource Domain (not System or Process) *)N(* *)I(* rsdm_id = address of the Resource Domain Id *)N(* *)I(* domain_number = number identifying target Resource Domain *)N(* *)'I(* nullarg = Placeholder reserved to Digital *)N(* *)I(* access = Access desired (defined by RSDM$M macro *)N(* *)I(* acmode = requested access mode *)N(* *)N(* ( *) P[ASYNCHRONOUS,EXTERNAL(SYS$SET_RESOURCE_DOMAIN)] FUNCTION $SET_RESOURCE_DOMAIN ( %IMMED FUNC : UNSIGNED;# VAR RSDM_ID : [VOLATILE] UNSIGNED;! %IMMED DOMAIN_NUMBER : UNSIGNED;' %IMMED NULLARG : UNSIGNED := %IMMED 0;& %IMMED ACCESS : UNSIGNED := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SET_SECURITY *)N(* ) *)N(* Set Object Security Profile *)N(* *)\(* $SET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$SET_SECURITY)] FUNCTION $SET_SECURITY (H CLSNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMME *D 0;H OBJNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; OBJHAN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0;. VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0;4 ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SET_UNWIND_TABLE *)N(* *)N(* Regist+er or extend and unwind table (UT) information *)N(* *)E(* $SET_UNWIND_TABLE code_base_va, code_size, ut_base_va, ut_size, *)4(* handler_base_va, unwind_info_base, name *)N(* *)R(* code_base_va = The process virtual address of the start of the code region *)N(* , *)C(* code_size = Size of code region in bytes *)N(* *)F(* ut_base_va = Quadword aligned process virtual address of the UT *)N(* *)B(* ut_size = The size of the UT in bytes *)N(* *)Z(* handler_base_va = The handler_base_va pl-us the unwind information block's condition *)M(* handler procedure value must add up to the process virtual address *);(* of the condition handler's function value. *)N(* *)X(* unwind_info_base = The unwind_info_base plus a particular unwind table entry (UTE) *)L(* unwind info block (UIB) offset must add up to the process virtual *);(* address of that UIB. *)N(* . *)?(* name = Fixed length string, passed by descriptor. *)N(* *)@(* flags = MUTE flags, mask word, optional *)I(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$SET_UNWIND_TABLE)] FUNCTION $SET_UNWIND_TABLE (+ %IMMED CODE_BASE_VA : INTEGER := %IMMED 0;( %IMMED CODE_SIZE /: INTEGER := %IMMED 0;) %IMMED UT_BASE_VA : INTEGER := %IMMED 0;& %IMMED UT_SIZE : INTEGER := %IMMED 0;. %IMMED HANDLER_BASE_VA : INTEGER := %IMMED 0;/ %IMMED UNWIND_INFO_BASE : INTEGER := %IMMED 0;: NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR;9 %IMMED FLAGS : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETAST *)N(* *)N(* Set AST En0able *)N(* *)N(* $SETAST enbflg *)N(* *)N(* enbflg = AST enable indicator for current access mode *)N(* 0 -> disable 1 -> enable *)N(* 1 *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETAST)] FUNCTION $SETAST (. %IMMED ENBFLG : INTEGER) : INTEGER; EXTERNAL; N(* $SETEF *)N(* *)N(* Set Event Flag *)N(* *)N(* $SETEF efn 2 *)N(* *)N(* efn = event flag number of flag to set *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$SETEF)] FUNCTION $SETEF (, %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; N(* $GETENV *)N(* 3 *)N(* Get an environment variable *)N(* *)N(* $GETENV ItemList *)N(* *)N(* ItemList = address of a zero terminated item list. *)N(* 4 *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETENV)] FUNCTION $GETENV (^ %REF ITEMLIST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETENV *)N(* *)N(* Set an environment variable *)N(* 5 *)N(* $SETENV ItemList *)N(* *)N(* ItemList = address of a zero terminated item list. *)N(* *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$S6ETENV)] FUNCTION $SETENV (^ %REF ITEMLIST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETEVTAST *)N(* *)N(* Establish an Event AST Routine *)N(* *)N(* $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [f7lags], [reqid] *)N(* (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr] *)B(* ,[astprm], [nullarg] *)N(* *)N(* evtnam = address of descriptor of event name *)N(* *)N(* evtadr = address of entry mask of event AST routine *)N(* 8 *)N(* evtfac = address of event facility code *)N(* *)N(* acmode = access mode of event declaration *)N(* *)N(* flags = optional flags *)N(* 9 *)N(* reqid = user provided identification of this request *)N(* *)N(* evtid = address to receive unique identification of this request *)N(* *)N(* evtcrd = amount of AST credit to reserve for request *)N(* : *)N(* efn = event flag to set when $SETEVTAST completes *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* astadr = address of entry mask of completion AST routine *)N(* *)N(* astprm ;= value to be passed to completion AST routine *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$SETEVTAST)] FUNCTION $SETEVTAST (< EVTNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVTADR; EVTFAC : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;% %IMMED REQID : UNSIGNED := %IMMED 0;- VAR EVTID : [VOLATILE] UN <SIGNED := %IMMED 0;& %IMMED EVTCRD : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;< %IMMED NULLARG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; >[ASYNCHRONOUS,EXTERNAL(SYS$SETEVTASTW)] FUNCTION $SETEVTASTW (< EVTNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVTADR; EVTFAC : UNSI =GNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;% %IMMED REQID : UNSIGNED := %IMMED 0;- VAR EVTID : [VOLATILE] UNSIGNED := %IMMED 0;& %IMMED EVTCRD : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;< %IMMED NULLARG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETEXV > *)N(* *)N(* Set Exception Vector *)N(* *)N(* $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd] *)N(* *)N(* vector = vector number ? *)N(* 0 -> primary vector 1 -> secondary 2 -> last chance *)N(* *)N(* addres = exception handler address (0 indicates deassign vector) *)N(* *)N(* acmode = access mode for which vector is set *)N(* *) @N(* prvhnd = address of longword to receive previous handler address *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETEXV)] FUNCTION $SETEXV (& %IMMED VECTOR : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ADDRES := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;C VAR PRVHND : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETFLT A *)N(* *)N(* Set Fault Characteristics on Pages *)N(* *)N(* $SETFLT inadr ,[retadr] ,[acmode] ,fault_flag *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* B ending virtual addresses of pages to change *)N(* *)N(* retadr = address of 2-longword array containing starting and *)N(* ending addresses of pages which were changed *)N(* *)N(* acmode = access mode of request *)N(* C *)V(* fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETFLT)] FUNCTION $SETFLT ( INADR : STARLET$$TYP30;4 VAR RETADR : [VOLATILE] STARLET$$TYP31 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;3 %IMMED FAULT_FLAG : UNSIGNED) : INTEGER; EXTERNAL; N(* $SETFLT_64 D *)N(* *)N(* Set Fault Characteristics on Pages *)N(* *)`(* $SETLFT_64 start_va_64, length_64, acmode, fault_flag, return_va_64, return_length_64 *)N(* *)G(* start_va_64 = Starting address of address space to set protectiEon *)N(* *)G(* length_64 = Byte length of addresses to set protection *)N(* *)G(* acmode = Access mode of request *)N(* *)R(* fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) *)N(* F *)J(* return_va_64 = Address of address space whose protection was set *)N(* *)J(* return_length_64 = Length of address space whose protection was set *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$SETFLT_64)] FUNCTION $SETFLT_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMO GDE : UNSIGNED := %IMMED 0; %IMMED FAULT_FLAG : UNSIGNED;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;? VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* $SETIME *)N(* *)N(* Set System Time *)N(* *)N(* $SETIME [Htimadr] *)N(* *)N(* timadr = address of quadword containing new system time in *)N(* 64-bit format. If 0, recalibrate system time using *)N(* hardware time-of-year clock. *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETIME)] FU INCTION $SETIME (2 TIMADR : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETIMR *)N(* *)N(* Set Timer *)N(* *)N(* $SETIMR [efn] ,daytim ,[astadr] ,[reqidt] ,[flags] *)N(* J *)N(* efn = event flag to set when timer expires *)N(* *)N(* daytim = address of quadword containing 64-bit time value *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* K *)N(* reqidt = request identification of this timer request *)N(* *)I(* flags = only bit 0 used right now. If bit 0 is set, *)B(* then this timer request is in terms of CPU time. *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETIMR)] FUNCTION $SETIMR (# %IMMED EFN : UNSIGNED := %IMMED 0; D LAYTIM : $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED REQIDT : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETPFM *)N(* *)N(* Set Page Fault Monitoring *)N(* *)NM(* $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode] *)N(* *)H(* pfmflg = function/subfunction bits *)N(* *)H(* astadr = address of entry mask of AST routine *)N(* *)H(* astprm = value to be passed to AST Nroutine *)N(* *)H(* acmode = access mode for which the AST is to be declared *)N(* *)I(* bufcntadr = address of longword for which the number of *)I(* page fault monitoring buffers allocated is stored. *)N(* *) 6 O[ASYNCHRONOUS,EXTERNAL(SYS$SETPFM)] FUNCTION $SETPFM (& %IMMED PFMFLG : UNSIGNED := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;= %IMMED BUFCNTADR : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETPRA *)N(* *)N(* Set Power Recovery AST P *)N(* *)N(* $SETPRA astadr ,[acmode] *)N(* *)N(* astadr = address of power recovery AST routine *)N(* *)N(* acmode = access mode of AST Q *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETPRA)] FUNCTION $SETPRA (1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETPRI *)N(* *)N(* Set Priority R *)N(* *)N(* $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri],[pol],[prvpol] *)N(* *)N(* pidadr = address of process id of process to be set *)N(* *)N(* prcnam = address of process name string descriptor *)N(* S *)N(* pri = new base priority for the process *)N(* *)N(* prvpri = address of longword to receive previous base priority *)N(* *)N(* pol = address of new scheduling policy for the process *)N(* T *)N(* prvpol = address of longword to receive previous sched policy *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETPRI)] FUNCTION $SETPRI (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED PRI : UNSIGNED;. VAR PRVPRI : [VOLATILE] UNSIGNED := %IMMED 0; POL : UNSIGNED := %IMMED 0;C VAR PRVPOL : [VOLATILE]U UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETPRN *)N(* *)N(* Set Process Name *)N(* *)N(* $SETPRN [prcnam] *)N(* V *)N(* prcnam = address of the process name string descriptor *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETPRN)] FUNCTION $SETPRN (] PRCNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETPRT *)N(* *)N(*W Set Protection on Pages *)N(* *)N(* $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending virtual addresses of pages to change *)N(* X *)N(* retadr = address of 2-longword array containing starting and *)N(* ending addresses of pages which were changed *)N(* *)N(* acmode = access mode of request *)N(* *)N(* prot = new protection Y *)N(* *)N(* prvprt = address of byte to receive previous protection of *)N(* last page changed *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETPRT)] FUNCTION $SETPRT ( INADR : STARLET$$TYP32;4 VAR RETADR : [VOLATILE] STARLET$$TYP33 := %IMMED 0;& %IMMED ACMODE : UNS ZIGNED := %IMMED 0; %IMMED PROT : UNSIGNED;A VAR PRVPRT : [VOLATILE] $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETPRT_64 *)N(* *)N(* Set Protection on Pages *)N(* *)[(* $SETPRT_64 start_va_64, length_64, acmode, prot, return_va_6[4, return_length_64, *)I(* return_prot_64 *)N(* *)G(* start_va_64 = Starting address of address space to set protection *)N(* *)G(* length_64 = Byte length of addresses to set protection *)N(* *)G(* acmode \ = Access mode of request *)N(* *)G(* prot = New protection *)N(* *)J(* return_va_64 = Address of address space whose protection was set *)N(* *)J(* return_length_64 = Length of address space whose prote ]ction was set *)N(* *)R(* return_prot_64 = Address of longword to receive previous protection of *)N(* last page changed *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$SETPRT_64)] FUNCTION $SETPRT_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED ^0; %IMMED PROT : UNSIGNED;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;? VAR RETURN_PROT_64 : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* $SETPRV *)N(* *)N(* Set privileges. *)N(* $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv] *)N(*_ *)N(* enbflg = enable indicator *)N(* 0 -> disable 1 -> enable *)N(* *)N(* prvadr = 64-bit mask defining the privileges to be enabled or *)N(* disabled *)N(* ` *)N(* prmflg = permanent indicator *)N(* 0 -> temporary (for this image) 1 -> permanent *)N(* *)N(* prvprv = address of quadword buffer to receive previous privileges *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETPRV)] FUNCTION $SETP aRV (% %IMMED ENBFLG : INTEGER := %IMMED 0; PRVADR : $UQUAD := %IMMED 0;% %IMMED PRMFLG : INTEGER := %IMMED 0;A VAR PRVPRV : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETRWM *)N(* *)N(* Set Resource Wait Mode *)N(* b*)N(* $SETRWM [watflg] *)N(* *)N(* watflg = wait indicator *)N(* 0 -> wait for resources 1 -> return failure immediately *)I(* (type is NUMBER rather than BOOLEAN since WATFLG=TRUE *)I(* means don't wait, which is the opposite of what is seems) *)N(* c *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETRWM)] FUNCTION $SETRWM (: %IMMED WATFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETSFM *)N(* *)N(* Set System Service Failure Mode *)N(* *)N(* $SETSdFM [enbflg] *)N(* *)N(* enbflg = enable indicator *)N(* 0 -> disable generation of exceptions on service failures *)N(* 1 -> generate exceptions for system service failures *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETSFM) e] FUNCTION $SETSFM (: %IMMED ENBFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETSSF *)N(* *)N(* Set System Service Filter *)N(* *)N(* $SETSSF [mask] *)N(* f *)N(* mask = flags for services to inhibit *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETSSF)] FUNCTION $SETSSF (9 %IMMED MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETSHLV *)N(* *)N(*g Modify process default unshelving action *)N(* *)N(* $SETSHLV [pidadr] ,[prcnam], [shlvflg] *)N(* *)N(* pidadr = address of process id of process *)N(* *)N(* prcnam = address of nhame string descriptor of process *)N(* *)N(* shlvflg = longword containing the desired shelving mode *)N(* in the bottom bit. If the bottom bit is set, *)N(* then the default is not to automatically unshelve *)N(* shelved files. If the bottom bit is clear, then *)N(* the default is to automatically unsh ielve shelved *)N(* files. *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$SETSHLV)] FUNCTION $SETSHLV (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;< %IMMED SHLVFLG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETSTK j *)N(* *)N(* SET VIRTUAL STACK LIMITS *)N(* *)N(* $SETSTK inadr ,[retadr] ,[acmode] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* kending virtual address of stack limits to set *)N(* *)N(* retadr = address of a 2-longword array to receive starting and *)N(* ending virtual address of stack limits to set *)N(* *)N(* acmode = access mode for the stack to change *)N(* l *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETSTK)] FUNCTION $SETSTK ( INADR : STARLET$$TYP34;4 VAR RETADR : [VOLATILE] STARLET$$TYP35 := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SETSTK_64 *)N(* *)N(* SET VIRTUAL STACK LIMITS *)N(* m *)V(* $SETSTK_64 start_va, length, acmode, flags, prev_start_va_64, prev_length_64 *)N(* *)N(* start_va_64 = lowest address for new stack limits *)N(* *)N(* length_64 = length of address range for new stack limits *)N(* n *)N(* acmode = access mode for the stack to change *)N(* *)T(* flags = VA$M_SETSTK_REGISTER - set register stack limits (IA64 only) *)N(* *)P(* prev_start_va_64 = pointer to lowest address for previous stack limits *)N(* o *)N(* prev_length_64 = pointer to length of previous stack limits *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$SETSTK_64)] FUNCTION $SETSTK_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;* VAR PREV_START_VA_64 : [VOLATILE] $UQUAD;= VAR PREV_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* p$SETSWM *)N(* *)N(* Set Process Swap Mode *)N(* *)N(* $SETSWM [swpflg] *)N(* *)N(* swpflg = swap indicator q *)N(* 0 -> enable swapping 1 -> disable swapping *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETSWM)] FUNCTION $SETSWM (: %IMMED SWPFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SETDTI *)N(* r *)N(* Set Distributed Transaction Information *)N(* *)I(* $SETDTI [efn], [flags], iosb, [astadr], [astprm], context, *)?(* ($SETDTIW) func, itmlst *)N(* *)E(* efn = event flag to set at completion s *)G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of the entry mask of an AST routine *)H(* astprm = value to be passed to AST routine *)I(* context = address of longword search context *)F(* func = function code to be performed *)H(* itmlst = address of a list of item descriptor ts *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETDTI)] FUNCTION $SETDTI (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; CONTXT : UNSIGNED; %IMMED FUNC : INTEGER;P %REF ITMLST : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE) : INTEGER; EXTERNAuL; 8[ASYNCHRONOUS,EXTERNAL(SYS$SETDTIW)] FUNCTION $SETDTIW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; CONTXT : UNSIGNED; %IMMED FUNC : INTEGER;P %REF ITMLST : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* $SETUAI *)N(* v *)N(* Modify User Authorization Information *)N(* *)N(* $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] *)F(* ,[astprm] *)N(* *)N(* efn = event flag to be set at complewtion *)N(* *)N(* contxt = address of a context longword (UAF IFI & ISI) *)N(* *)N(* usrnam = address of user name descriptor *)N(* *)N(* itmlst = address of a list of item descriptors x *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *)N(* y *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETUAI)] FUNCTION $SETUAI (# %IMMED EFN : UNSIGNED := %IMMED 0;. VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0;< USRNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR : z= %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SHOW_INTRUSION *)N(* *)N(* Show intrusion record *)N(* *)g(* $SHOW_INTRUSION { user_criteria, intruder, intruder_len, breakin_block, [flags], [context] *)N(* *)G(* user_criteria in address of user criteria descriptor *)B(* intruder in out address of intruder descriptor *)L(* intruder_len out address of word to receive intruder string length *)I(* breakin_block out address of intrusion block *)@(* flags in intrusion service flags | *)B(* context in out address of optional longword context *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$SHOW_INTRUSION)] FUNCTION $SHOW_INTRUSION (C USER_CRITERIA : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VAR INTRUDER : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;& VAR INTRUDER_LEN : [VOLATILE] $UWORD;K %REF BREAKIN_BLOCK : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;%} %IMMED FLAGS : UNSIGNED := %IMMED 0;D VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SNDACC *)N(* *)N(* Send Message to Accounting Manager *)N(* *)N(* $SNDACC msgbuf ,[chan] ~ *)N(* *)N(* msgbuf = address of message buffer string descriptor *)N(* *)N(* chan = number of channel assigned to mailbox to receive reply *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SNDACC)] FUNCTION $SNDACC (< MSGBUF : [CLASS_S] PACKED ARRAY [$l1. .$u1:INTEGER] OF CHAR;8 %IMMED CHAN : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SNDERR *)N(* *)N(* Send Message to Error Logger *)N(* *)N(* $SNDERR msgbuf *)N(*  *)N(* msgbuf = address of message buffer string descriptor *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SNDERR)] FUNCTION $SNDERR (Q MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* $SNDOPR *)N(*  *)N(* Send Message to Operator *)N(* *)N(* $SNDOPR msgbuf ,[chan] *)N(* *)N(* msgbuf = address of message buffer string descriptor *)N(* *)N(*  chan = number of channel assigned to mailbox to receive reply *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SNDOPR)] FUNCTION $SNDOPR (< MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;8 %IMMED CHAN : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SNDSMB *)N(* *)N(* Send Message to Symbiont Manager *)N(* *)N(* $SNDSMB msgbuf ,[chan] *)N(* *)N(* msgbuf = address of message buffer string descriptor *)N(* *)N(* chan = number of channe l assigned to mailbox to receive reply *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SNDSMB)] FUNCTION $SNDSMB (< MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;8 %IMMED CHAN : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SNDJBC *)N(* *)N(* Send Message to Job Controller *)N(* *)N(* $SNDJBC [efn], func, [nullarg], [itmlst], *)N(* ($SNDJBCW) [iosb], [astadr], [astprm] *)N(* *)N(* efn = event flag to be set when request completes *)N(* func = code specifying function to be performed  *)N(* nullarg = reserved argument for similarity with $getxxx services *)N(* itmlst = address of a list of item descriptors for the operation *)R(* iosb = address of a quadword status block to receive the final status *)Q(* astadr = address of an ast routine to be called when request completes *)N(* astprm = 32-bit ast parameter *)N(* *)  6[ASYNCHRONOUS,EXTERNAL(SYS$SNDJBC)] FUNCTION $SNDJBC (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER;' %IMMED NULLARG : UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$SNDJBCW)] FUNCTION $SNDJBCW (# %IMMED EFN : UNSIGNED := %IMMED  0; %IMMED FUNC : INTEGER;' %IMMED NULLARG : UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SPACE *)N(*  *)N(* Space to Record in File *)N(* *)N(* $SPACE rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(*  *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$SPACE)] FUNCTION $SPACE (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := % IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $SSIO_FSYNC *)N(* *)N(* Synchronize file changes with the storage device for a file that *)N(* has been opened for Shared Stream I/O (SSIO) access. *)N(* *)N(* $SSIO_FSYNC chan, iosa ,[ast] ,[astprm] *)N(* ($SSIO_FSYNCW) *)N(* *)N(* chan = channel number for SSIO accessed file *)N(* *)N(* iosa = address of I/O status area (4 quadwords) to receive final *)N(* completion status (64-bit address) *)N(* *)N(* ast = address of AST routine (64-bit address) *)N(* *)O(* astprm = value to be passed to AST routine as argument (64-bit value) *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_FSYNC)] FUNCTION $SSIO_F SYNC ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_FSYNCW)] FUNCTION $SSIO_FSYNCW ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SSIO_GETFL  *)N(* *)N(* Get the current file status flags for a file that has been opened *)N(* for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with *)N(* F_SETFL command parameter. *)N(* *)N(* $SSIO_GETFL chan ,iosa ,[ast] ,[astprm] *)N(* ($SSIO_GETFLW) *)N(* *)N(* chan = channel number for SSIO accessed file *)N(* *)N(* iosa = address of I/O status area (4 quadwords) to receive final *)N(* completion status and file status flags (64-bit address) *)N(*  *)N(* ast = address of AST routine (64-bit address) *)N(* *)O(* astprm = value to be passed to AST routine as argument (64-bit value) *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_GETFL)] FUNCTION $SSIO_GETFL ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNB OUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_GETFLW)] FUNCTION $SSIO_GETFLW ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SSIO_LSEEK *)N(*  *)N(* Set the current file offset to a file that has been opened for *)N(* Shared Stream I/O (SSIO) access. *)N(* *)N(* $SSIO_LSEEK chan ,offset_in ,whence ,iosa ,[ast] ,[astprm] *)N(* ($SSIO_LSEEKW) *)N(* *)N(* chan = channel number for SSIO accessed file *)N(* *)N(* offset_in = signed offset value used in conjunction with the *)B(* whence parameter to determine a new resultant file *)B(* offset (64-bit value) *)N(* *)N(* whence = value that controls interpretation of offset _in *)B(* Must be one of: *)B(* SSIO$C_SEEK_SET: Resultant offset is offset_in *)B(* SSIO$C_SEEK_CUR: Resultant offset is current value *)4(* plus offset_in *)B(* SSIO$C_SEEK_END: Resultant offset is current end-of- *)4(* file position plus offset_in *)N(* *)N(* iosa = address of I/O status area (4 quadwords) to receive final *)N(* completion status (64-bit address) *)N(* *)N(* ast = address of AST routine (64-bit address) *)N(* *)O(* astprm = value to be passed to AST routine as argument (64-bit value) *)N(*  *) >[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_LSEEK)] FUNCTION $SSIO_LSEEK ( %IMMED CHAN : UNSIGNED; %IMMED OFFSET_IN : INTEGER; %IMMED WHENCE : INTEGER; IOSA : $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_LSEEKW)] FUNCTION $SSIO_LSEEKW ( %IMMED CHAN : UNSIGNED; %IMMED OFFSET_IN : INTEGER; %IMMED WHENCE : INTEGER; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SSIO_READ *)N(* *)N(* Read a byte stream from the current file offset from a file that *)N(* has been opened for Shared Stream I/O (SSIO) access *)N(*  *)N(* $SSIO_READ chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] *)N(* ($SSIO_READW) *)N(* *)N(* chan = channel number for SSIO accessed file *)N(* *)N(* buffer = address of data buffer to receive data (64-bit address) *)N(*  *)N(* bufsiz = size of data buffer in bytes (64-bit value) *)N(* *)N(* iosa = address of I/O status area (4 quadwords) to receive final *)N(* completion status (64-bit address) *)N(* *)N(* ast = address of AST r outine (64-bit address) *)N(* *)O(* astprm = value to be passed to AST routine as argument (64-bit value) *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_READ)] FUNCTION $SSIO_READ ( %IMMED CHAN : UNSIGNED;! VAR BUFFER : [VOLATILE] $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRO NOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; >[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_READW)] FUNCTION $SSIO_READW ( %IMMED CHAN : UNSIGNED;! VAR BUFFER : [VOLATILE] $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SSIO_SETFL *)N(*  *)N(* Set the current file status flags for a file that has been opened *)N(* for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with *)N(* F_SETFL command parameter. *)N(* *)N(* $SSIO_SETFL chan ,file_sts_flgs ,iosa ,[ast] ,[astprm] *)N(* ($SSIO_SETFLW)  *)N(* *)N(* chan = channel number for SSIO accessed file *)N(* *)N(* file_sts_flgs = desired file status flag value *)E(* Only mask value that can be changed is SSIO$M_O_APPEND. *)I(* *)N(* iosa = address of I/O status area (4 quadwords) to receive final *)N(* completion status (64-bit address) *)N(* *)N(* ast = address of AST routine (64-bit address) *)N(* *)O(* astprm = value to be passed to AST routine as argument (64-bit value) *)N(*  *) >[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_SETFL)] FUNCTION $SSIO_SETFL ( %IMMED CHAN : UNSIGNED;! %IMMED FILE_STS_FLGS : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_SETFLW)] FUNCTION $SSIO_SETFLW ( %IMMED CHAN : UNSIGNED;! %IMMED FILE_STS_FLGS : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SSIO_SYNC *)N(* *)N(* Synchronize file changes that have been made via prior calls to *)N(* the $SSIO_WRITE and $SSIO_TRUNCATE services to all files on this *)N(* system that have been opened for Shared Stream I/O (SSIO ) access. *)N(* The file changes are synchronized with the corresponding storage *)N(* device. *)N(* *)N(* $SSIO_SYNC *)N(* *) O[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_SYNC)] FUNCTION $SSIO_SYNC : INTEGER; EXTERNAL; N(* $SSIO_TRUNCATE *)N(* *)N(* Truncate (or extend) a file that has been opened for Shared *)N(* Stream I/O (SSIO) access. *)N(* *)N(* $SSIO_TRUNCATE chan ,file_length ,iosa ,[ast] ,[astprm] *)N(* ($SSIO_TRUNCATEW) *)N(* *)N(* chan = channel number for SSIO accessed file *)N(* *)N(* file_length = new end-of-file length (64-bit value) *)N(* *)N(* iosa = address of I/O status area (4 quadwords) to receive final *)N(* completion status (64-bit address) *)N(* *)N(* ast = address of AST routine (64-bit address) *)N(* *)O(* astprm = value to be passed to AST routine as argument (64-bit value) *)N(*  *) D[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_TRUNCATE)] FUNCTION $SSIO_TRUNCATE ( %IMMED CHAN : UNSIGNED; %IMMED FILE_LENGTH : INTEGER; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; F[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_TRUNCATEW)] FUNCTION $SSIO_TRUNCATEW ( %IMMED CHAN : UNSIGNED; %IMMED FILE_LENGTH : INTEGER; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SSIO_WRITE *)N(* *)N(* Write a byte stream to the current file offset to a file that *)N(* has been opened for Shared Stream I/O (SSIO) access *)N(* *)N(* $SSIO_WRITE chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] *)N(* ($SSIO_WRITEW) *)N(* *)N(* chan = channel number for SSIO accessed file *)N(* *)N(* buffer = address of data buffer to receive data (64-bit address) *)N(*  *)N(* bufsiz = size of data buffer in bytes (64-bit value) *)N(* *)N(* iosa = address of I/O status area (4 quadwords) to receive final *)N(* completion status (64-bit address) *)N(* *)N(* ast = address of AST routine (64-bit address) *)N (* *)O(* astprm = value to be passed to AST routine as argument (64-bit value) *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_WRITE)] FUNCTION $SSIO_WRITE ( %IMMED CHAN : UNSIGNED; BUFFER : $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$SSIO_WRITEW)] FUNCTION $SSIO_WRITEW ( %IMMED CHAN : UNSIGNED; BUFFER : $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $SUSPND *)N(* *)N(* Suspend Process *)N(* *)N(* $SUSPND [pidadr] ,[prcnam], [flags] *)N(* *)N(* pidadr = address of process id of process to be suspended *)N(* *)N(* prcnam = address of name string  descriptor of process *)N(* *)N(* flags = longword of bit flags, of which only bit 0 is *)B(* currently used. If bit 0 is set, then this *)B(* is a hard suspend request; if clear this is *)B(* a soft suspend request. *)N(* *) 6[ASYNCHRONOUS,EX TERNAL(SYS$SUSPND)] FUNCTION $SUSPND (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $SYNCH *)N(* *)N(* Synchronize Event Completion *)N(*  *)N(* $SYNCH [iosb] ,[efn] *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* iosb = address of a quadword I/O status block *)N(*  *) 4[ASYNCHRONOUS,EXTERNAL(SYS$SYNCH)] FUNCTION $SYNCH (# %IMMED EFN : UNSIGNED := %IMMED 0;? VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $SUBSYSTEM *)N(* *)N(* Modify Protected Subsystem Attributes *)N(* *)N(*  $SUBSYSTEM enbflg *)N(* *)N(* enbflg = enable indicator *)N(* 0 => disable image identifiers *)B(* 1 => restore image identifiers *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$SUBSYSTEM)] F UNCTION $SUBSYSTEM (; %IMMED ENBFLG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $TIMCON *)N(* *)N(* Convert between binary UTC and Smithsonian times *)N(* *)N(* $TIMCON smntim, utctim, cvtflg *)N(* *)I(* For cvtflg = 0 (Convert UTC to Smithsonian) *)I(* smnadr = Address of the output quadword to be written *)B(* with the UTC time converted to date_time *)I(* utcadr = Address of the input 128 bit utc_date_time time to *)B(* be converted *)I(* cvtflg = 0 *)N(* *)I(* For cvtflg = 1 (Convert Smithsonian to UTC) *)I(* smnadr = Address of input Smithsonian binary time to be *)B(* converted (VMS Binabs time). *)I(* utcadr = Address of the output 128 bit binary time to *)B(* be written with the converted time  *)I(* cvtflg = 1 *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$TIMCON)] FUNCTION $TIMCON ( VAR SMNADR : [VOLATILE] $UQUAD; VAR UTCADR : [VOLATILE] $UOCTA;: %IMMED CVTFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $TRNLNM *)N(*  *)N(* Translate Logical Name *)N(* *)N(* $TRNLNM [attr], tabnam, [lognam], [acmode], [itemlist] *)N(* *)N(* attr = address of logical name translation attributes *)N(* *)C(* Attribute Meaning *)I(* LNM$M_CASE_BLIND Search of string is case insensitive *)N(* *)N(* tabnam = address of logical name table name string descriptor *)N(* *)N(* lognam = address of logical name string descriptor *)N(*  *)N(* acmode = address of access mode for logical name *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$TRNLNM)] FUNCTION $TRNLNM ( ATTR : UNSIGNED := %IMMED 0;< TABNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;< LOGNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; ACMODE : $UBYTE := %IMMED 0;\ %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* $TRNLOG *)N(* *)N(* Translate Logical Name *)N(* *)N(* $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk] *)N(* *)N(* lognam = address of logical name string descriptor *)N(* *)N(* rsllen = address of word to receive length of resultant name *)N(* *)N(* rslbuf = address of descriptor for buffer to receive resultant *)N(* string *)N(* *)N(* table = address of byte to receive logical name table number *)N(* *)N(* acmode = address of byte to receive access mode of entry *)N(* (process table only)  *)N(* *)N(* dsbmsk = table search disable mask *)N(* *)N(* Bit Set Meaning *)N(* *)N(* 0 Do not search system table  *)N(* 1 Do not search group table *)N(* 2 Do not search process table *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$TRNLOG)] FUNCTION $TRNLOG (< LOGNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, VAR RSLLEN : [VOLATILE] $UWORD := %IMMED 0;I VAR RSLBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;+ VAR TABLE : [VO LATILE] $UBYTE := %IMMED 0;, VAR ACMODE : [VOLATILE] $UBYTE := %IMMED 0;; %IMMED DSBMSK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $TRUNCATE *)N(* *)N(* Truncate Record *)N(*  *)N(* $TRUNCATE rab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(*  suc = address of user success completion routine *)N(* *) :[ASYNCHRONOUS,EXTERNAL(SYS$TRUNCATE)] FUNCTION $TRUNCATE (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $ULKPAG *)N(* *)N(* Unlock Pages From Memory *)N(* *)N(* $ULKPAG inadr ,[retadr] ,[acmode] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending virtual addresses of pages to be unlocked *)N(* *)N(* retadr = address of a 2-longword array to receive starting and *)N(* ending virtual addresses of pages actually unlocked *)N(* *)N(* acmode = access mode to check against the owner of the pages *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ULKPAG)] FUNCTION $ULKPAG ( INADR : STARLET$$TYP36;4 VAR RETADR : [VOLATILE] STARLET$$TYP37 := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $ULKPAG_64 *)N(* *)N(* Unlock Pages in Memory *)N(*  *)T(* $ULKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 *)N(* *)E(* start_va_64 = Starting address of address space to unlock *)N(* *)G(* length_64 = Byte length of addresses to lock *)N(*  *)G(* acmode = Access mode to be checked against the page owner *)N(* *)J(* return_va_64 = Address of address space unlocked *)N(* *)J(* return_length_64 = Length of address space unlocked *)N(* *) <[ASYNCHRONOUS,EXTERN AL(SYS$ULKPAG_64)] FUNCTION $ULKPAG_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;? VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* $ULWSET *)N(* *)N(* Unlock Pages From Working Set *)N(*  *)N(* $ULWSET inadr ,[retadr] ,[acmode] *)N(* *)N(* inadr = address of 2-longword array containing starting and *)N(* ending virtual addresses of pages to be unlocked *)N(* *)N(* retadr = address of a 2-longwor d array to receive starting and *)N(* ending virtual addresses of pages actually unlocked *)N(* *)N(* acmode = access mode to check against the owner of the pages *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$ULWSET)] FUNCTION $ULWSET ( INADR : STARLET$$TYP38;4 VAR RETADR : [VOLATILE] STARLET$$TYP39 := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $ULWSET_64 *)N(* *)N(* Unlock Pages from Working Set *)N(* *)T(* $ULWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 *)N(*  *)E(* start_va_64 = Starting address of address space to unlock *)N(* *)G(* length_64 = Byte length of addresses to lock *)N(* *)G(* acmode = Access mode to be checked against the page owner *)N(* *)J(* return_va_64 = Address of address space unlocked *)N(* *)J(* return_length_64 = Length of address space unlocked *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$ULWSET_64)] FUNCTION $ULWSET_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE]  $UQUAD;? VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* $UNWIND *)N(* *)N(* Unwind Call Stack *)N(* *)N(* $UNWIND [depadr] ,[newpc] *)N(*  *)N(* depadr = address of longword containing number of logical frames *)N(* (depth) to unwind call stack *)N(* *)N(* newpc = address to be given control when the unwind is complete *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$UNWIND)] FUNCTION $UN WIND ( DEPADR : UNSIGNED := %IMMED 0;3 NEWPC : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $UPDATE *)N(* *)N(* Update Record *)N(* *)N(*  $UPDATE fab, [err], [suc] *)N(* *)J(* rab = address of rab *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$UPDATE)] FUNCTION $UPDATE (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* $UPDSEC *)N(*  *)N(* Update Section File on Disk *)N(* *)N(* $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb] *)N(* ($UPDSECW) ,[astadr] ,[astprm] *)N(* *)N(* inadr = address of 2-longword array containing starting and  *)N(* ending addresses of the pages to be potentially *)N(* written *)N(* *)N(* retadr = address of 2-longword array to receive addresses of *)N(* the first and last page queued in the first I/O *)N(* request *)N(*  *)N(* acmode = access mode on behalf of which the service is *)N(* performed *)N(* *)N(* updflg = update indicator for read/write global sections *)N(* 0 -> write all read/write pages in the section *)T(* UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller *)N(* *)N(* efn = number of event flag to set when the section file is *)N(* updated *)N(* *)N(* iosb = address of quadword I/O status block *)N(*  *)N(* astadr = address of entry mask of an AST service routine *)N(* *)N(* astprm = AST parameter to be passed to the AST service routine *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$UPDSEC)] FUNCTION $UPDSEC ( INADR : STARLET$$TYP40;4 VAR RETADR : [VOLATILE] STARLET$$TYP41 := %IMMED 0;& %IMMED ACMODE : UNSIGNED :=  %IMMED 0;% %IMMED UPDFLG : INTEGER := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$UPDSECW)] FUNCTION $UPDSECW ( INADR : STARLET$$TYP42;4 VAR RETADR : [VOLATILE] STARLET$$TYP43 := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;% %IMMED UPDFLG : INTEGER := %IMMED 0;# %IMMED EFN : UNSIGNED : = %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $UPDSEC_64 *)N(* *)N(* Update Section File on Disk *)N(* *)N(* $UPDSEC_64 start_va_64, length_64, acmode, updflg, efn, iosa_64 *)I(* return_va_64, return_length_64[,astadr_64[, astprm_64]] *)N(* *)E(* start_va_64 = Starting address of address space to update *)N(* *)G(* length_64 = Byte length of addresses to update *)N(*  *)N(* acmode = access mode on behalf of which the service is *)N(* performed *)N(* *)N(* updflg = update indicator for read/write global sections *)N(* 0 -> write all read/write pages in the section *)T(* UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller *)N(* *)N(* efn = number of event flag to set when the section file is *)N(* updated *)N(* *)N(* iosa_64 = address of 4 quadword I/O status area *)N(* *)J(* return_va_64 = Address of address space queued in the first *)B(* I/O request *)N(* *)J(* return_length_64 = Length of address space queued in the first *)B(* I/O request *)N(* *)N(* astadr_64 = address of entry mask of an AST service routine  *)N(* *)N(* astprm_64 = AST parameter to be passed to the AST service routine *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$UPDSEC_64)] FUNCTION $UPDSEC_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& %IMMED UPDFLG : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;- VAR I OSA_64 : [VOLATILE] $UOCTA := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;@ %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR_64 := %IMMED 0;= %IMMED ASTPRM_64 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; >[ASYNCHRONOUS,EXTERNAL(SYS$UPDSEC_64W)] FUNCTION $UPDSEC_64W ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER;& %IMMED ACMODE : UNSIGNED := %IMMED 0;& %IMMED UPDFLG : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;- V AR IOSA_64 : [VOLATILE] $UOCTA := %IMMED 0;& VAR RETURN_VA_64 : [VOLATILE] $UQUAD;* VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD;@ %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR_64 := %IMMED 0;= %IMMED ASTPRM_64 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $VERIFY_PROXY *)N(* *)N(* Verify proxy record *)N(* *)_(* $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags *)N(* *)=(* rem_node in address of remote node descriptor *)=(* rem_user in address of remote user descriptor *)E(* proposed_user in address of optional proposed user descriptor *)D(* local_user out address of descriptor to receive local user *)J(* local_user_len out address of word to receive local user length *)B(* flags in proxy service flags *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$VERIFY_PROXY)] FUNCTION $VERIFY_PROXY (> REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;> REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:I NTEGER] OF CHAR;O PROPOSED_USER : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;M VAR LOCAL_USER : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR;( VAR LOCAL_USER_LEN : [VOLATILE] $UWORD;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $WAIT *)N(*  *)N(* Wait on File *)N(* *)N(* $WAIT rab *)N(* *)J(* rab = address of rab *)N(* *)N(*  *) 2[ASYNCHRONOUS,EXTERNAL(SYS$WAIT)] FUNCTION $WAIT (V %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* $WAITFR *)N(* *)N(* Wait for Single Event Flag *)N(*  *)N(* $WAITFR efn *)N(* *)N(* efn = event flag number to wait for *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$WAITFR)] FUNCTION $WAITFR (, %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; N(* $WAKE  *)N(* *)N(* Wake *)N(* *)N(* $WAKE [pidadr] ,[prcnam] *)N(* *)N(* pidadr = address of process id of process to be awakened  *)N(* *)N(* prcnam = address of name string descriptor of process to be *)N(* awakened *)N(* *) 2[ASYNCHRONOUS,EXTERNAL(SYS$WAKE)] FUNCTION $WAKE (. VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0;] PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $WFLAND *)N(* *)N(* Wait for Logical AND of Event Flags *)N(* *)N(* $WFLAND efn ,mask *)N(* *) N(* efn = event flag number of any flag within the cluster *)N(* *)N(* mask = 32-bit mask of flags that must be set *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$WFLAND)] FUNCTION $WFLAND ( %IMMED EFN : UNSIGNED;- %IMMED MASK : UNSIGNED) : INTEGER; EXTERNAL; N(* $WFLOR  *)N(* *)N(* Wait for Logical OR of Event Flags *)N(* *)N(* $WFLOR efn ,mask *)N(* *)N(* efn = event flag number of any flag within the cluster  *)N(* *)N(* mask = 32-bit mask of flags, any of which must be set *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$WFLOR)] FUNCTION $WFLOR ( %IMMED EFN : UNSIGNED;- %IMMED MASK : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $WRITE  *)N(* *)N(* Write Block to File *)N(* *)N(* $WRITE rab, [err], [suc] *)N(* *)J(* rab = address of rab  *)N(* *)E(* err = address of user error completion routine *)N(* *)E(* suc = address of user success completion routine *)N(* *) 4[ASYNCHRONOUS,EXTERNAL(SYS$WRITE)] FUNCTION $WRITE (A %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] O F $UBYTE;: %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0;O %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $WRITE_THREAD_UNQ *)N(* *)N(* Write thread unique value *)N(*  *)N(* $WRITE_THREAD_UNQ contxt *)N(* *)M(* contxt = address of quadword that contains the *)B(* thread unique value to be written *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$WRITE_THREAD_UNQ)] FUNCTION $WRITE_ THREAD_UNQ (( CONTXT : UNSIGNED) : INTEGER; EXTERNAL; N(* $XFS_CLIENT *)N(* *)N(* Call the XFS client *)N(* *)N(* $XFS_CLIENT [efn] ,func ,fsb ,[astadr] ,[astprm] *)N(*  *)N(* efn = number of event flag to set on completion *)N(* *)N(* func = function code specifying action to be performed *)N(* *)N(* fsb = address of File System Block *)N(*  *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as argument *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$XFS_CLIENT)] FUNCTION $XFS_CLIENT (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB : UNSIGNED;= %IMMED [UNBOUND, ASYNCHRONO US] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $XFS_SERVER *)N(* *)N(* Call the XFS server *)N(* *)N(* $XFS_SERVER [efn] ,func ,fsb ,[astadr] ,[astprm] *)N(*  *)N(* efn = number of event flag to set on completion *)N(* *)N(* func = function code specifying action to be performed *)N(* *)N(* fsb = address of File System Block *)N(*  *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine as argument *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$XFS_SERVER)] FUNCTION $XFS_SERVER (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB  : UNSIGNED;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DCLRNH *)N(* *)N(* Declare Restart Handler *)N(* *)N(* $DCLRNH desblk  *)N(* *)N(* desblk = address of handler control block containing: *)N(* *)N(* +-------------------------------+ *)N(* | forward link | *)N(* +-------------------------------+  *)N(* | restart handler address | *)N(* +-------------------------------+ *)N(* | argument count | *)N(* +-------------------------------+ *)N(* | reserved, must be zero | *)N(* +-------------------------------+ *)N(* | address to store event code | *)N(* +-------------------------------+ *)N(* | additional arguments | *)N(* +-- for restart handler, --+ *)N(* | if any | *)N(* +-------------------------------+ *)N(*  *) 6[ASYNCHRONOUS,EXTERNAL(SYS$DCLRNH)] FUNCTION $DCLRNH (P %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* $CANRNH *)N(* *)N(* Cancel Restart Handler *)N(* *)N(* $CANRNH [desblk] *)N(* *)N(* desblk = address of handler control block describing *)B(* handler to be deleted. If 0, delete all *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$CANRNH)] FUNCTION $CANRNH (\ %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ABORT_TRANS *)N(* *)N(* Abort a transaction *)N(* *)F(* $ABORT_TRANS [efn], [flags], iosb [, [astadr], [astprm],  *)I(* ($ABORT_TRANSW) [tid], [reason], [bid]] *)N(* *)E(* efn = event flag to be set at completion *)G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of an entry mask of AST routine *)H(* astprm = value to be passed to AST routine as an argument *)E(* tid = identifier of transaction to be aborted *)I(* reason = optional extended abort reason code *)E(* bid = identifier of transaction branch to be aborted *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$ABORT_TRANS)] FUNCTION $ABORT_TRANS (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IM MED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0;% %IMMED REASON : INTEGER := %IMMED 0;/ BID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; B[ASYNCHRONOUS,EXTERNAL(SYS$ABORT_TRANSW)] FUNCTION $ABORT_TRANSW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; T ID : $UOCTA := %IMMED 0;% %IMMED REASON : INTEGER := %IMMED 0;/ BID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ACK_EVENT *)N(* *)N(* Acknowledge a resource manager transaction event *)N(*  *)E(* $ACK_REPORT [flags], report_id, report_reply, [, [reason], *)<(* [beftime], [afttime], [part_name], [rm_context], *);(* [timout]] *)N(* *)@(* flags = operation flags *)C(* report_id = participant id value *)F(* report_reply = value of completion status *)A(* reaso n = extended abort reason code (for veto vote) *)A(* beftim = lower bound of commit timestamp *)F(* afttim = upper bound of commit timestamp *)C(* part_name = address of participant name descriptor *)D(* rm_context = RM private value to be passed to evt_rtn *)A(* timout = transaction execution time-out value *)N(* *) <[ASYNCHRONOUS, EXTERNAL(SYS$ACK_EVENT)] FUNCTION $ACK_EVENT (% %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED REPORT_ID : UNSIGNED; %IMMED REPORT_REPLY : INTEGER;% %IMMED REASON : INTEGER := %IMMED 0; BEFTIME : $UOCTA := %IMMED 0; AFTTIME : $UOCTA := %IMMED 0;K PART_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;# RM_CONTEXT : UNSIGNED := %IMMED 0;2 TIMOUT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ADD_BRANCH *)N(* *)N(* Add a transaction branch *)N(* *)E(* $ADD_BRANCH [efn], [flags], iosb, [astadr], [astprm], *)I(* ($ADD_BRANCHW) tid, tm_name, bid *)N(*  *)E(* efn = event flag to be set at completion *)G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of an entry mask of AST routine *)H(* astprm = value to be passed to AST routine as an argument *)E(* tid = transaction id for this branch *)I(* tm_name = address o f commit domain name descriptor *)E(* bid = address to receive new branch identifier *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$ADD_BRANCH)] FUNCTION $ADD_BRANCH (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := % IMMED 0;= TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR;2 VAR BID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$ADD_BRANCHW)] FUNCTION $ADD_BRANCHW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0;= TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR;2 VAR BID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; N(* *)](* *************** NOTE: $CREATE_BRANCH(W) service definitions are obsolete ************** *)N(* *)N(* $CREATE_BRANCH *)N(* *)N(* Create a transaction branch  *)N(* *)I(* $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm], *)I(* ($CREATE_BRANCHW) tid, bid [,[timout], [acmode], [tx_class]] *)N(* *)E(* efn = event flag to be set at completion *)G(* flags = operation flags *)F(* ios b = address of a quadword I/O status block *)H(* astadr = address of an entry mask of AST routine *)H(* astprm = value to be passed to AST routine as an argument *)E(* tid = transaction id for this branch *)I(* bid = address to receive new branch identifier *)H(* timout = transaction execution time-out value *)H(* acmode = access mode for $CREATE_BRANCH call *)I(* tx_class= user transaction class name *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BRANCH)] FUNCTION $CREATE_BRANCH (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR TID : [VOLATILE] $UOCTA; VAR BID : [VOLATILE] $UOC TA; TIMOUT : $UQUAD := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;a TX_CLASS : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; F[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BRANCHW)] FUNCTION $CREATE_BRANCHW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR TID : [VOLATILE] $UOCTA; VAR B ID : [VOLATILE] $UOCTA; TIMOUT : $UQUAD := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;a TX_CLASS : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* $CVT_FILENAME *)N(* *)N(* Convert a string between RMS format and file-system format. *)N(*   *)N(* $CVT_FILENAME cvttyp, srcstr, inflags, outbuf, outlen, outflags *)N(* *)N(* cvttyp = value indicating conversion type (RMS-to-filesys or *)N(* filesys-to-RMS) *)N(* srcstr = address of string descriptor for source string *)N(* inflags = mask indicating source string characteristics *)N(* ou tbuf = address of string descriptor for output string *)N(* outlen = address to store length of returned output string *)N(* outflags = address of a longword to receive flags describing *)N(* output string *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$CVT_FILENAME)] FUNCTION $CVT_FILENAME (& %IMMED CVTTYP : UNSIGNED := %IMMED 0;< SRC STR : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;' %IMMED INFLAGS : UNSIGNED := %IMMED 0;U VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;, VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0;E VAR OUTFLAGS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)G(* $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm], *)K(* ($DECLARE_RMW) rm_id, event_handler [, [part_name], *);(* [rm_context], [acmode], [tm_log_id], [event_mask]] *)N(* *)N(* Declare Resource Manager to DDTM *)N(* *)E(* efn = event flag to set upon completion *)G(* flags = operation flags *)F(* iosb = address of I/O status block *)H(* astadr = address of entry mask of AST routine *)H(* astprm = value to be passed to AST routine *)G(* rm_id = address of longword to receive resource manager id *)I(* event_rtn = address of entry mask of transaction event routine *)I(* part_name = address of resource manager name descriptor *)I(* rm_context = RM private value to be passed to evt_rtn *)H(* acm ode = value of access mode in which to invoke evt_rtn *)I(* tm_log_id = transaction manager log id for validation checks *)I(* event_mask = mask of events required by this resource manager *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$DECLARE_RM)] FUNCTION $DECLARE_RM (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONO US] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;! VAR RM_ID : [VOLATILE] UNSIGNED;8 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER;K PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0;* %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;/ VAR TM_LOG_ID : [VOLATILE] $UOCTA := %IMMED 0;? %IMMED EVENT_MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$DECLARE_RMW)] FUNCTION $DEC LARE_RMW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;! VAR RM_ID : [VOLATILE] UNSIGNED;8 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER;K PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0;* %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;/ VAR TM_LOG_ID : [VOLATI LE] $UOCTA := %IMMED 0;? %IMMED EVENT_MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $END_BRANCH *)N(* *)N(* End an active branch of a transaction *)N(* *)E(* $END_BRANCH [efn], [flags], iosb, [astadr], [astprm], *)H(* ($END_BRANCHW) tid, bid *)N(* *)E(* efn = event flag to be set at completion *)G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of a completion AST routine entry mask *) H(* astprm = value to be passed to completion AST routine *)E(* tid = address of transaction identifier *)E(* bid = address of transaction branch identifier *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$END_BRANCH)] FUNCTION $END_BRANCH (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA;# BID : $UOCTA) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$END_BRANCHW)] FUNCTION $END_BRANCHW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA;# BID : $UOCTA) : INTEGER; EXTERNAL; N(*  *)N(* $END_TRANS *)N(* *)N(* Commit a transaction *)N(* *)D(* $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ] *)I(* ($END_TRANSW)  *)N(* *)E(* efn = event flag to be set at completion *)G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of an entry mask of AST routine *)H(* astprm = value to be passed to AST routine as an argument *)E(* tid = identifier of transaction to be committed  *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$END_TRANS)] FUNCTION $END_TRANS (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;/ TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; >[ASYNCHRONOUS,EXTERNAL(SYS$END_TRANSW)] FUNCTION $END_TRANSW (# %IMMED EF N : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;/ TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FINISH_RMOP *)N(* *)N(* Finish resource manager transaction event operation *)N(* *)F(* $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm], *)N(* ($FINISH_RMOPW) part_id, retsts [, [reason], *)4(* [beftime], [afttime] *)N(* *)E(* efn = event flag to set upon completion *)G(* flags = operation flags *)F(* iosb = address of I/O status block *)H(* astadr = address of entry mask of AST routine *)H(* astprm = value to be passed to AST routine *)I(* part_id = participant id value *)H(* retsts = value of completion status *)I(* reason = extended abort reason code (for veto vote)  *)I(* beftim = lower bound of commit timestamp *)N(* afttim = upper bound of commit timestamp *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$FINISH_RMOP)] FUNCTION $FINISH_RMOP (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED  ASTPRM : UNSIGNED := %IMMED 0; %IMMED PART_ID : UNSIGNED; %IMMED RETSTS : INTEGER;% %IMMED REASON : INTEGER := %IMMED 0; BEFTIME : $UOCTA := %IMMED 0;3 AFTTIME : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; B[ASYNCHRONOUS,EXTERNAL(SYS$FINISH_RMOPW)] FUNCTION $FINISH_RMOPW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IM !MED PART_ID : UNSIGNED; %IMMED RETSTS : INTEGER;% %IMMED REASON : INTEGER := %IMMED 0; BEFTIME : $UOCTA := %IMMED 0;3 AFTTIME : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $FORGET_RM *)N(* *)N(* Forget a resource manager previously declared to DECdtm *)N(*" *)D(* $FORGET_RM [efn], [flags], iosb, [astadr], [astprm], rm_id *)I(* ($FORGET_RMW) *)N(* *)E(* efn = event flag to set upon completion *)G(* flags = operation flags *)F(* iosb = address of I/O status block # *)H(* astadr = address of entry mask of AST routine *)H(* astprm = value to be passed to AST routine *)G(* rm_id = resource manager id value *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$FORGET_RM)] FUNCTION $FORGET_RM (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNB $OUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;. %IMMED RM_ID : UNSIGNED) : INTEGER; EXTERNAL; >[ASYNCHRONOUS,EXTERNAL(SYS$FORGET_RMW)] FUNCTION $FORGET_RMW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;. %IMMED RM_ID : UNSIGNED) : INTEGER; EXTERNAL; N(* % *)N(* $GET_DEFAULT_TRANS *)N(* *)N(* Get the current process default transaction *)N(* *)D(* $GET_DEFAULT_TRANS tid *)N(* & *)E(* tid = identifier of the process default transaction *)N(* *) L[ASYNCHRONOUS,EXTERNAL(SYS$GET_DEFAULT_TRANS)] FUNCTION $GET_DEFAULT_TRANS (2 VAR TID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; N(* $GET_UNWIND_ENTRY_INFO *)N(* *)N(* Get fixed-up unwind entry information ' *)N(* *)H(* $GET_UNWIND_ENTRY_INFO pc, get_ue_block, name *)N(* *)I(* pc = target PC *)N(* *)I(* get_ue_block = address of a 4-quadword block to be filled in *)N(* ( *)I(* name = Fixed length string, passed by descriptor. *)I(* *)I(* ... *)G(* flags = address of MUTE flags, mask word, optional. *) T[ASYNCHRONOUS,EXTERNAL(SYS$GET_UNWIND_ENTRY_INFO)] FUNCTION $GET_UNWIND_ENTRY_INFO (! %IMMED PC : INTEGER := %IMMED 0;+ % )IMMED GET_UE_BLOCK : INTEGER := %IMMED 0;: NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;M %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION READTARGETMEM : INTEGER := %IMMED 0;$ %IMMED IDENT : INTEGER := %IMMED 0;3 FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $JOIN_RM *)N(* * *)N(* Join a resource manager previously started transaction *)N(* *)B(* $JOIN_RM [efn], [flags], iosb, [astadr], [astprm], *)J(* ($JOIN_RMW) rm_id [, [tid], [part_name], [rm_context], [timout]] *)N(* *)E(* efn = event flag to set upon completion *)G(* flags = operation flags + *)F(* iosb = address of I/O status block *)H(* astadr = address of entry mask of AST routine *)H(* astprm = value to be passed to AST routine *)G(* rm_id = resource manager id value *)E(* tid = address of transaction id *)I(* part_name = participant name string *)I(* rm_context = RM privat ,e value to pass to event routine *)H(* timout = transaction execution time-out value *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$JOIN_RM)] FUNCTION $JOIN_RM (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RM_ID : UNSIGNED; - TID : $UOCTA := %IMMED 0;K PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0;* %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0;2 TIMOUT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; :[ASYNCHRONOUS,EXTERNAL(SYS$JOIN_RMW)] FUNCTION $JOIN_RMW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RM_ID : UNSIGNED .; TID : $UOCTA := %IMMED 0;K PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0;* %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0;2 TIMOUT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $RECOVER *)N(* *)N(* Recover transaction state. / *)N(* *)B(* $RECOVER [efn], [flags], iosb, [astadr], [astprm], *)N(* ($RECOVERW) recovery_prefix, event_handler, tm_log_id [, *)<(* [tid], [node], [rm_context], [acmode], [max_events]] *)N(* *)E(* efn = event flag to set upon completion *)G(* flags = operation flags 0 *)F(* iosb = address of I/O status block *)H(* astadr = address of entry mask of AST routine *)H(* astprm = value to be passed to AST routine *)N(* recovery_prefix = address of search name descriptor *)N(* event_handler = address of entry mask of recovery event routine *)N(* tm_log_id = address TM log identifier *)N(* tid 1 = address of transaction identifier *)N(* node = address of node name descriptor *)P(* rm_context = value to be passed via event block to event_handler *)Y(* acmode = value of access mode in which event ASTs should be delivered *)X(* max_events = value of maximum number of events to be queued concurrently *)N(* *) 8[ASYNCHRON 2OUS,EXTERNAL(SYS$RECOVER)] FUNCTION $RECOVER (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;E RECOVERY_PREFIX : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR;8 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER; TM_LOG_ID : $UOCTA; TID : $UOCTA := %IMMED 0;H NODE : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := % 3IMMED 0;* %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;> %IMMED MAX_EVENTS : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; :[ASYNCHRONOUS,EXTERNAL(SYS$RECOVERW)] FUNCTION $RECOVERW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;E RECOVERY_PREFIX : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR; 48 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER; TM_LOG_ID : $UOCTA; TID : $UOCTA := %IMMED 0;H NODE : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0;* %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;> %IMMED MAX_EVENTS : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SET_DEFAULT_TRANS *)N(* 5 *)N(* Set up the process default transaction *)N(* *)D(* $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm], *)G(* ($SET_DEFAULT_TRANSW) [new_tid], [old_tid]] *)N(* *)E(* efn = event flag to be set at completion 6 *)G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of an entry mask of AST routine *)H(* astprm = value to be passed to AST routine as an argument *)I(* new_tid = identifier of new process default transaction *)I(* old_tid = identifier of superceded process default transaction *)N(* 7 *) L[ASYNCHRONOUS,EXTERNAL(SYS$SET_DEFAULT_TRANS)] FUNCTION $SET_DEFAULT_TRANS (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; NEW_TID : $UOCTA := %IMMED 0;3 OLD_TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; N[ASYNCHRONOUS,EXTERNAL(SYS$SET_DEFAULT_TRANSW)] FUNCTION $SET_DEFAULT_TRANSW (# 8 %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; NEW_TID : $UOCTA := %IMMED 0;3 OLD_TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $START_BITMAP *)N(* 9 *)N(* Create and start a write bitmap *)N(* *)T(* $START_BITMAP handle_in, chan, devnam, name, cluster, flags, handle_out *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$START_BITMAP)] FUNCTION $START_BITMAP () %IMMED HANDLE_IN : UNSIGNED := %IMMED 0;# %IMMED CHAN : INTEGER := :%IMMED 0;< DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;F NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;' %IMMED CLUSTER : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0;G VAR HANDLE_OUT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $START_BRANCH *)N(* ; *)N(* Start a transaction branch *)N(* *)G(* $START_BRANCH [efn], [flags], iosb, [astadr], [astprm], *)O(* ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]] *)N(* *)E(* efn = event flag to be set at completion *)<G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of an entry mask of AST routine *)H(* astprm = value to be passed to AST routine as an argument *)E(* tid = transaction id for this branch *)I(* tm_name = address of parent commit domain name descriptor *)H(* bid = address of branch identifier = *)H(* timout = transaction execution time-out value *)H(* acmode = access mode for $READY_TO_COMMIT call *)I(* tx_class= user transaction class name *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$START_BRANCH)] FUNCTION $START_BRANCH (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED >[UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA;= TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; BID : $UOCTA; TIMOUT : $UQUAD := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;a TX_CLASS : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; D[ASYNCHRONOUS,EXTERNAL(SYS$START_BRANCHW)] FUNCTION $START_BRANCHW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %I ?MMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA;= TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; BID : $UOCTA; TIMOUT : $UQUAD := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;a TX_CLASS : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $STA@RT_TRANS *)N(* *)N(* Start a new transaction *)N(* *)F(* $START_TRANS [efn], [flags], iosb [, [astadr], [astprm], *)I(* ($START_TRANSW) [tid], [timout], [acmode], [tx_class]] *)N(* A *)E(* efn = event flag to be set at completion *)G(* flags = operation flags *)F(* iosb = address of a quadword I/O status block *)H(* astadr = address of an entry mask of AST routine *)H(* astprm = value to be passed to AST routine as an argument *)E(* tid = identifier of transaction just started *)H(* timout = transaction execution Btime-out value *)H(* acmode = outermost access mode allowed to end the transaction *)I(* tx_class= user transaction class name *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$START_TRANS)] FUNCTION $START_TRANS (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMM CED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;) VAR TID : [VOLATILE] $UOCTA := %IMMED 0; TIMOUT : $UQUAD := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;_ TX_CLASS : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; B[ASYNCHRONOUS,EXTERNAL(SYS$START_TRANSW)] FUNCTION $START_TRANSW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; D& %IMMED ASTPRM : UNSIGNED := %IMMED 0;) VAR TID : [VOLATILE] $UOCTA := %IMMED 0; TIMOUT : $UQUAD := %IMMED 0;% %IMMED ACMODE : INTEGER := %IMMED 0;_ TX_CLASS : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $TRANS_EVENT *)N(* *)N(* EStart a new transaction *)N(* *)F(* $TRANS_EVENT [efn], [flags], iosb, [astadr], [astprm], *)N(* ($TRANS_EVENTW) tid, rm_id, tx_event *)N(* *)N(* efn = event flag to be set at completion *)N(* flags = operation flags F *)N(* iosb = address of a quadword I/O status block *)N(* astadr = address of an entry mask of AST routine *)N(* astprm = value to be passed to AST routine as an argument *)N(* tid = identifier of transaction just started *)U(* rm_id = value of resource manager identifier returned by $DECLARE_RM *)N(* tx_event = transaction transition event G *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$TRANS_EVENT)] FUNCTION $TRANS_EVENT (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA;% %IMMED RM_ID : UNSIGNED := %IMMED 0;1 %IMMED TX_EVENT : UNSIGNED) : INTEGER; EXTERNAL; B[ASYNCHR HONOUS,EXTERNAL(SYS$TRANS_EVENTW)] FUNCTION $TRANS_EVENTW (# %IMMED EFN : UNSIGNED := %IMMED 0;% %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA;% %IMMED RM_ID : UNSIGNED := %IMMED 0;1 %IMMED TX_EVENT : UNSIGNED) : INTEGER; EXTERNAL; N(* $TSTCLUEVT *)N(* I *)N(* Test Cluster Event Notification *)N(* *)N(* $TSTCLUEVT [handle], [acmode], [event] *)N(* *)N(* handle = address of handle *)N(* J *)N(* acmode = access mode of AST *)N(* *)N(* event = code indicating type of event *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$TSTCLUEVT)] FUNCTION $TSTCLUEVT ( HANDLE : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;: %IMMED EVENT : UNSIGNED := %IMM KED 0) : INTEGER; EXTERNAL; I(* PTD$CREATE *)N(* *)I(* Create a pseudo terminal *)N(* *)D(* PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST], *);(* [HANGUP_ASTPRM], [AST_ACMODE], INADR *)N(* L *)F(* CHAN = Address of word to receive channel number assigned *)H(* ACMODE = Access mode associated with channel *)I(* CHARBUFF = Address ofa 3 - 5 longword array containing device *);(* characteristics. *)H(* BUFLEN = Length of characteristics buffer in bytes either *);(* 12, 16, or 20 *)H(* ASTADR = Address of entry m Mask of AST routine *)H(* ASTPRM = Value to be passed to AST routine *)M(* AST_ACMODE = Access mode for whjich the AST is to be delivered *)G(* INADR = Address of 2-longword array containing starting and *);(* ending virtual address of pages to be used as *);(* I/O buffers *) 9[ASYNCHRONOUS,EXTERNAL(PTD$CREATE)] FUNCTION PTD$CREATE ( VAR CHAN : [VOLATILE] $UWORD;& %IMMED ACMODE : UNS NIGNED := %IMMED 0;I %REF CHARBUFF : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0;& %IMMED BUFLEN : INTEGER := %IMMED 12;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;* %IMMED AST_ACMODE : UNSIGNED := %IMMED 0;- INADR : STARLET$$TYP44) : INTEGER; EXTERNAL; I(* PTD$READ *)N(* *)I(* Read data fOrom the pseudo terminal *)N(* *)G(* PTD$READ(W) [EFN], CHAN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN *)E(* EFN = Number of event flag to set on completion *)T(* CHAN = Word containing number of channel on which I/O is to be performed *)H(* ASTADR = Address of entry mask of AST routine *)H(* ASTPRM = Value to be passed to AST routine P *)I(* READBUF = Address character string to hold characters read *)I(* READBUF_LEN = Number of character to be read from pseudo terminal *) 5[ASYNCHRONOUS,EXTERNAL(PTD$READ)] FUNCTION PTD$READ (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;H %REF READBUF : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0;@ %IMMED READBUF_LEN : UNSIGNED := %I QMMED 0) : INTEGER; EXTERNAL; 7[ASYNCHRONOUS,EXTERNAL(PTD$READW)] FUNCTION PTD$READW (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;H %REF READBUF : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0;@ %IMMED READBUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; I(* PTD$WRITE *)N(* R *)I(* Write data to the pseudo terminal *)N(* *)C(* PTD$WRITE CHAN, [ASTADR], [ASTPRM], WRTBUF, WRTBUF_LEN, *);(* [ECHOBUF], ECHOBUF_LEN] *)T(* CHAN = Word containing number of channel on which I/O is to be performed *)H(* ASTADR = Address of entry mask of AST routine *)H(* A SSTPRM = Value to be passed to AST routine *)Q(* WRTBUF = Address of character string containing character to write to *);(* pseudo terminal *)I(* WRTBUF_LEN = Number of characters to write to pseudo terminal *)I(* ECHOBUF = Address character string to hold characters read *)I(* ECHOBUF_LEN = Number of character to be read from pseudo terminal *) 7[ASYNCHRONOUS,EXTERNAL(PTD$WRITE)] FUNCTION PTD$WRITE ( T %IMMED CHAN : INTEGER;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;G %REF WRTBUF : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;* %IMMED WRTBUF_LEN : UNSIGNED := %IMMED 0;H %REF ECHOBUF : [UNSAFE] ARRAY [$l6..$u6:INTEGER] OF $UBYTE := %IMMED 0;@ %IMMED ECHOBUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; I(* PTD$SET_EVENT_NOTIFICATION *)N(* U *)I(* Enable or disable terminal event notification ASTs *)N(* *)D(* PTD$SET_EVENT_NOTIFICATION CHAN, ASTADR, [ASTPRM], [ACMODE], *)-(* TYPE *)T(* CHAN = Word containing number of channel on which I/O is to be performed *)H(* ASTADR = Address of entry mask of AST routine *)H(* ASTPRM = Value to be Vpassed to AST routine *)L(* ACMODE = Access mode for whjich the AST is to be delivered *)F(* TYPE = Longword containing *) Y[ASYNCHRONOUS,EXTERNAL(PTD$SET_EVENT_NOTIFICATION)] FUNCTION PTD$SET_EVENT_NOTIFICATION ( %IMMED CHAN : INTEGER;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;& %IMMED ACMODE : UNSIGNED := %IMMED 0;. %IMMED TYPE_ : UNSIGNED) : INTEGER; EXTERNAL;W I(* PTD$CANCEL *)N(* *)I(* Cancel queued control connection read request(s) *)N(* *)D(* PTD$CANCEL CHAN *)N(* *)T(* CHAN = Word containing number X of channel on which I/O is to be performed *) 9[ASYNCHRONOUS,EXTERNAL(PTD$CANCEL)] FUNCTION PTD$CANCEL (, %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; I(* PTD$DELETE *)N(* *)I(* Delete a pseudo terminal *)N(* *)D(* PTD$DELETE CHAN Y *)N(* *)T(* CHAN = Word containing number of channel on which I/O is to be performed *) 9[ASYNCHRONOUS,EXTERNAL(PTD$DELETE)] FUNCTION PTD$DELETE (, %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; I(* PTD$DECTERM_SET_PAGE_SIZE *)N(* *)I(* Change terminal page length aZnd width *)N(* *)C(* PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_WIDTH *)N(* *)T(* CHAN = Word containing number of channel on which I/O is to be performed *)I(* PAGE_LEN = Longword containing new page length of terminal *)I(* PAGE_WIDTH = Longword containing new page width of terminal [ *) W[ASYNCHRONOUS,EXTERNAL(PTD$DECTERM_SET_PAGE_SIZE)] FUNCTION PTD$DECTERM_SET_PAGE_SIZE ( %IMMED CHAN : INTEGER; %IMMED PAGE_LEN : UNSIGNED;3 %IMMED PAGE_WIDTH : UNSIGNED) : INTEGER; EXTERNAL; N(* $POSIX_FORK_CONTROL *)N(* *)N(* Control POSIX fork() operations *)N(* \ *)N(* $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [ac *)N(* *)N(* cntrl = constant defining what control routine is to do *)N(* *)N(* when = bit array of when handler is to be called *)N(* *)]N(* handler= handler address *)N(* *)N(* arg = arg value that is passed back to the handler *)N(* *)N(* acmode = access mode at which to make the specified callback *) N[ASYNCHRONOUS,EXTERNAL(SYS$POSIX_FORK_CONTROL)] FUNCTION $POSIX_FORK_CONTROL ( %IMMED CNTRL : UNSI ^GNED;$ %IMMED WHEN : UNSIGNED := %IMMED 0;> %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE HANDLER := %IMMED 0;# %IMMED ARG : UNSIGNED := %IMMED 0;; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $START_ALIGN_FAULT_REPORT *)N(* *)N(* Start user-image alignment fault reporting *)N(* _ *)M(* $START_ALIGN_FAULT_REPORT report_method, [report_buffer, buffer_length] *)N(* *)G(* report_method = either AFR$C_EXCEPTION or AFR$C_BUFFERED *)N(* *)I(* report_buffer = buffer to use to save alignment fault *);(* data if the BUFFERED method is specified. *)N(* ` *)@(* buffer_length = the size in bytes of the user buffer *) Z[ASYNCHRONOUS,EXTERNAL(SYS$START_ALIGN_FAULT_REPORT)] FUNCTION $START_ALIGN_FAULT_REPORT ( %IMMED REPORT_METHOD : INTEGER;- %IMMED REPORT_BUFFER : UNSIGNED := %IMMED 0;A %IMMED BUFFER_LENGTH : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* $GET_ALIGN_FAULT_DATA *)N(* a *)N(* Get alignment fault data from the collector. *)N(* *)I(* $GET_ALIGN_FAULT_DATA buffer, buffer_size, return_size *)N(* *)A(* buffer = Buffer in which to save the alignment fault *);(* data. *)N(* b *)E(* buffer_size = The size in bytes of the user buffer *)N(* *)E(* return_size = Address of a longword in which to return the *);(* size of the alignment fault data found. *) R[ASYNCHRONOUS,EXTERNAL(SYS$GET_ALIGN_FAULT_DATA)] FUNCTION $GET_ALIGN_FAULT_DATA ( %IMMED BUFFER : UNSIGNED; %IMMED BUFFER_SIZE : INTEGER;3 %IMMED RETURN_SIZE : INTEGE cR) : INTEGER; EXTERNAL; N(* $STOP_ALIGN_FAULT_REPORT *)N(* *)N(* Stop user-image alignment fault reporting *)N(* *)I(* $STOP_ALIGN_FAULT_REPORT *)N(* *)d k[ASYNCHRONOUS,EXTERNAL(SYS$STOP_ALIGN_FAULT_REPORT)] FUNCTION $STOP_ALIGN_FAULT_REPORT : INTEGER; EXTERNAL; N(* $PERM_REPORT_ALIGN_FAULT *)N(* *)N(* Start process permanent alignment fault reporting. *)N(* *)I(* $PERM_REPORT_ALIGN_FAULT e *)N(* *) k[ASYNCHRONOUS,EXTERNAL(SYS$PERM_REPORT_ALIGN_FAULT)] FUNCTION $PERM_REPORT_ALIGN_FAULT : INTEGER; EXTERNAL; N(* $PERM_DIS_ALIGN_FAULT_REPORT *)N(* *)N(* Start process permanent alignment fault reporting. *)N(* f *)I(* $PERM_DIS_ALIGN_FAULT_REPORT *)N(* *) s[ASYNCHRONOUS,EXTERNAL(SYS$PERM_DIS_ALIGN_FAULT_REPORT)] FUNCTION $PERM_DIS_ALIGN_FAULT_REPORT : INTEGER; EXTERNAL; N(* $INIT_SYS_ALIGN_FAULT_REPORT *)N(* *)N(* Start system wide alignment fault reportging. *)N(* *)I(* $INIT_SYS_ALIGN_FAULT_REPORT match_table, buffer_size, flags *)N(* *)E(* match_table = Array of longwords used to restrict *);(* the alignment faults reported *)N(* *)E(* buffer_size = The h number of bytes to use to save alignment *);(* fault data. *)@(* flags = can be either 0 or AFR$M_USER_INFO *)N(* *) `[ASYNCHRONOUS,EXTERNAL(SYS$INIT_SYS_ALIGN_FAULT_REPORT)] FUNCTION $INIT_SYS_ALIGN_FAULT_REPORT ( MATCH_TABLE : UNSIGNED; %IMMED BUFFER_SIZE : INTEGER;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $GET_SYS_ALIGN_FAUiLT_DATA *)N(* *)N(* Get alignment fault data from the system wide collector. *)N(* *)I(* $GET_SYS_ALIGN_FAULT_DATA buffer, buffer_size, return_size *)N(* *)H(* buffer = Buffer in which to save the alignment fa jult *);(* data. *)N(* *)E(* buffer_size = The size in bytes of the user buffer *)N(* *)E(* return_size = Address of a longword in which to return the *);(* size of the alignment fault data found. *) Z[ASYNCHRONOUS,EXTERNAL(SYS$GET_SYS_ALIGN_FAULT_DATA) k] FUNCTION $GET_SYS_ALIGN_FAULT_DATA ( %IMMED BUFFER : UNSIGNED; %IMMED BUFFER_SIZE : INTEGER;3 %IMMED RETURN_SIZE : INTEGER) : INTEGER; EXTERNAL; N(* $STOP_SYS_ALIGN_FAULT_REPORT *)N(* *)N(* Stop system-wide alignment fault reporting *)N(* *)I(* $STOP_SYS_ALIGN_FAULT_REP lORT *)N(* *) s[ASYNCHRONOUS,EXTERNAL(SYS$STOP_SYS_ALIGN_FAULT_REPORT)] FUNCTION $STOP_SYS_ALIGN_FAULT_REPORT : INTEGER; EXTERNAL; N(* $RESCHED *)N(* *)N(* Request voluntary preemption of current process *)N(* m *)I(* $RESCHED *)N(* *) K[ASYNCHRONOUS,EXTERNAL(SYS$RESCHED)] FUNCTION $RESCHED : INTEGER; EXTERNAL; N(* *)N(* $SCHED *)N(* n *)N(* Control class scheduler *)N(* *)N(* $SCHED func, P1, P2, P3 *)N(* *)N(* func = function code (see CSHDEFS in STARLET) *)N(* o *)N(* P1 = buffer address, AST entry point address, or 0 *)N(* *)N(* P2 = buffer length address or AST acmode or PID or 0 *)N(* *)N(* P3 = entry size of a single buffer element or 0 *) 4[ASYNCHRONOUS,EXTERNAL(SYS$SCHED)] FUNCTION $SCHED ( %IMMED FUNC : UNSIGNED;C %REpF P1 : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0;C %REF P2 : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0;X %REF P3 : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SIGNAL_ARRAY_64 *)N(* *)N(* Return address of 64-bit signaql array. *)N(* *)N(* $SIGNAL_ARRAY_64 mcharg, sigarg_64 *)N(* *)G(* mcharg = address of the mechanism array *)N(* *)J(* sigarg_64 = 64-bit pointer to which the address of r *);(* 64-bit signal array is written. *) H[ASYNCHRONOUS,EXTERNAL(SYS$SIGNAL_ARRAY_64)] FUNCTION $SIGNAL_ARRAY_64 ( MCHARG : $QUAD;7 VAR SIGARG_64 : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; N(* $AVOID_PREEMPT *)N(* *)N(* Enable/disable preemption avoidance *)N(* s *)N(* $AVOID_PREEMPT enbflg *)N(* *)N(* enbflg = Avoid preempt enable indicator *)N(* 0 -> disable 1 -> enable *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$AVOID_PREEMPT)] FUNCTION $AVOID_P tREEMPT (. %IMMED ENBFLG : INTEGER) : INTEGER; EXTERNAL; N(* $SETUP_AVOID_PREEMPT *)N(* *)N(* Enable/disable preemption avoidance underpinnings *)N(* *)N(* $SETUP_AVOID_PREEMPT enbflg *)N(* u *)N(* enbflg = Avoid preempt enable indicator *)N(* 0 -> disable 1 -> enable *)N(* *) P[ASYNCHRONOUS,EXTERNAL(SYS$SETUP_AVOID_PREEMPT)] FUNCTION $SETUP_AVOID_PREEMPT (. %IMMED ENBFLG : INTEGER) : INTEGER; EXTERNAL; N(* *)N(* $ICC_ACCvEPT *)N(* *)N(* Accept an ICC connection *)N(* *)I(* $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len] *);(* ,[User_Context] ,[Flags] *)N(* w *)I(* Conn_Handle = Handle value associated with the Connection *)H(* Accept_Buf = Address of user Accept data *)H(* Accept_Len = Length of the accept data *)K(* User_Context = User context value *)D(* Flags = Flags argument *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$ICC x_ACCEPT)] FUNCTION $ICC_ACCEPT ( %IMMED CONN_HANDLE : UNSIGNED;" ACCEPT_BUF : $DEFPTR := %IMMED 0;* %IMMED ACCEPT_LEN : UNSIGNED := %IMMED 0;, %IMMED USER_CONTEXT : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ICC_CLOSE_ASSOC *)N(* *)N(* Clyose an ICC association *)N(* *)N(* $ICC_CLOSE_ASSOC Assoc_Handle *)N(* *)J(* Assoc_Handle = Handle representing the Association to close *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$ICC_CLO zSE_ASSOC)] FUNCTION $ICC_CLOSE_ASSOC (5 %IMMED ASSOC_HANDLE : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $ICC_CONNECT[W] *)N(* *)N(* Initiate an ICC Connection attempt *)N(* *)M(* { $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle *);(* ,conn_hndl_A ,remote_assoc ,[remote_node] *);(* ,[user_context] ,[conn_buf] ,[conn_buf_len] *);(* ,[return_buf] ,[return_buf_len] ,[retlen_addr] *);(* ,[flags] *)N(* *)N(* ios_icc = address of a IOS_ICC (Connect version) *)M(* astadr = a|ddress of entry mask of users' completion AST *)B(* routine *)M(* astprm = value to be passed to the AST routine as an *);(* argument *)N(* Assoc_Handle = Handle representing the Association to close *)N(* Conn_Hndl_A = Address to return the handle value of the *);(* opened Connection *)N(* Remote_Asso}c = Pointer to a descriptor describing the remote *);(* association name string *)N(* Remote_Node = Pointer to a descriptor describing the remote *);(* node name string *)N(* User_Context = User context value *)N(* Conn_Buf = Address of a buffer containing Connect data *)N(* Conn_Buf_Len = Length of the connect data in Conn_Buf *)N~(* Return_Buf = Address of a buffer for return data *)N(* Return_Buf_Len = Length of the buffer available for return data *)N(* Retlen_Addr = Address to receive the actual length of any *);(* return data *)K(* Flags = Flags argument *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$ICC_CONNECT)] F UNCTION $ICC_CONNECT (" VAR IOS_ICC : [VOLATILE] $DEFPTR;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ASSOC_HANDLE : UNSIGNED;' VAR CONN_HNDL_A : [VOLATILE] UNSIGNED;N REMOTE_ASSOC : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;M REMOTE_NODE : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;, %IMMED USER_CONTEXT : UNSIGNED := %IMMED 0; CONN_BUF : $DEFPTR := %IMMED 0;, %IMMED CONN_BUF_LEN : UNS IGNED := %IMMED 0;" RETURN_BUF : $DEFPTR := %IMMED 0;. %IMMED RETURN_BUF_LEN : UNSIGNED := %IMMED 0;3 VAR RETLEN_ADDR : [VOLATILE] UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; B[ASYNCHRONOUS,EXTERNAL(SYS$ICC_CONNECTW)] FUNCTION $ICC_CONNECTW (" VAR IOS_ICC : [VOLATILE] $DEFPTR;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ASSOC_HANDLE : UNSIGNED;' VAR CONN_HNDL_A : [VOLATILE] UNSIGNED;N  REMOTE_ASSOC : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;M REMOTE_NODE : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;, %IMMED USER_CONTEXT : UNSIGNED := %IMMED 0; CONN_BUF : $DEFPTR := %IMMED 0;, %IMMED CONN_BUF_LEN : UNSIGNED := %IMMED 0;" RETURN_BUF : $DEFPTR := %IMMED 0;. %IMMED RETURN_BUF_LEN : UNSIGNED := %IMMED 0;3 VAR RETLEN_ADDR : [VOLATILE] UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* $ICC_DISCONNECT[W] *)N(* *)N(* Initiate an ICC Disconnection *)N(* *)H(* $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm] *)4(* ,[disc_buf] ,[disc_buf_len] *)N(* *)N(* Conn_Handle = Handle representing the Connection to terminate *)M(* iosb = Address of a quadword I/O status block *)M(* astadr = Address of entry mask of users' completion AST *)B(* routine *)M(* astprm = Value to be passed to the AST routine as an *);(* argument  *)N(* Disc_Buf = Address of an optional buffer containing *);(* Disconnect data *)N(* Disc_Buf_Len = Length of the disconnect data in Disc_Buf *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$ICC_DISCONNECT)] FUNCTION $ICC_DISCONNECT ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PR OCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; DISC_BUF : $DEFPTR := %IMMED 0;A %IMMED DISC_BUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; H[ASYNCHRONOUS,EXTERNAL(SYS$ICC_DISCONNECTW)] FUNCTION $ICC_DISCONNECTW ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOSB : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; DISC_BUF : $DEFPTR := %IMMED 0;A %IMMED DISC_BUF_LEN : UNSIGNED := %IMMED 0) : INTEG ER; EXTERNAL; N(* *)N(* $ICC_REJECT *)N(* *)N(* Reject an ICC connection *)N(* *)I(* $ICC_REJECT Conn_Handle ,[Reject_Buf] ,[Reject_Buf_Len] *);(* ,[Reason] *)N(* *)I(* Conn_Handle = Handle value associated with the Connection *)H(* Reject_Buf = Address of optional user Reject data *)L(* Reject_Buf_Len = Length of the reject data *)E(* Reason = Reason for the rejection *)N(*  *) >[ASYNCHRONOUS,EXTERNAL(SYS$ICC_REJECT)] FUNCTION $ICC_REJECT ( %IMMED CONN_HANDLE : UNSIGNED; REJECT_BUF : $QUAD := %IMMED 0;. %IMMED REJECT_BUF_LEN : UNSIGNED := %IMMED 0;; %IMMED REASON : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ICC_OPEN_ASSOC *)N(* *)N(* Open an ICC association *)N(* *)M(* $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name] *);(* ,[logical_table] ,[conn_rtn] ,[disc_rtn] *);(* ,[recv_rtn] ,[maxflowbufcnt] ,[prot] *)N(* *)J(* Assoc_Handle = Address to return the handlevalue of the *);(* opened Association *)M(* Assoc_Name = Pointer to a descriptor describing the *);(* association name string *)M(* Logical_Name = Pointer to a descriptor describing a logical *);(* name for use by the ICC simple registry *)N(* Logical_Table = Pointer to a descriptor describing a logical *);(* name table for use by the ICC simple registry *)G(* Conn_Rt n = Address of the User's Connect AST routine *)G(* Disc_Rtn = Address of the User's Disconnect AST routine *)G(* Recv_Rtn = Address of the User's receive AST routine *)M(* Maxflowbufcnt = Maximum number of pending inbound message *);(* buffers *)C(* Prot = Default protection for association *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$ICC_OPEN_ASSOC)] FUNCTION $ICC_OPEN_ASSOC (( VAR ASSOC_HANDLE : [VOLATILE] UNSIGNED;L ASSOC_NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;N LOGICAL_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;O LOGICAL_TABLE : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;? %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE CONN_RTN := %IMMED 0;? %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE DISC_RTN := %IMMED 0;? %IMMED [UNBOUND, ASYN CHRONOUS] PROCEDURE RECV_RTN := %IMMED 0;- %IMMED MAXFLOWBUFCNT : UNSIGNED := %IMMED 0;9 %IMMED PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $ICC_RECEIVE[W] *)N(* *)N(* Receive data over an ICC connection *)N(*  *)M(* $ICC_RECEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *);(* ,recv_buf ,recv_buf_len *)N(* *)N(* conn_handle = Handle representing the Connection the data *);(* is being transferred over *)M(* ios_icc = Address of an I/O status block (16-byte ICC *)E(*  RECEIVE layout) *)M(* astadr = Address of entry mask of users' completion AST *)B(* routine *)M(* astprm = Value to be passed to the AST routine as an *);(* argument *)N(* recv_buf = Address of a buffer to receive the data *)N(* recv_buf_len = Length of the buffer receiving the data *)N(* *) @[ASYNCHRONOUS,EXTERNAL(SYS$ICC_RECEIVE)] FUNCTION $ICC_RECEIVE ( %IMMED CONN_HANDLE : UNSIGNED;" VAR IOS_ICC : [VOLATILE] $DEFPTR;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; RECV_BUF : UNSIGNED;5 %IMMED RECV_BUF_LEN : UNSIGNED) : INTEGER; EXTERNAL; B[ASYNCHRONOUS,EXTERNAL(SYS$ICC_RECEIVEW)] FUNCTION $ICC_RECEIVEW ( %IMMED CONN_HANDLE : UNSI GNED;" VAR IOS_ICC : [VOLATILE] $DEFPTR;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; RECV_BUF : UNSIGNED;5 %IMMED RECV_BUF_LEN : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $ICC_REPLY[W] *)N(* *)N(* Send a reply over an ICC connection *)N(* *)K(* $ICC_REPLY[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *);(* ,reply_buf ,reply_len *)N(* *)N(* conn_handle = Handle representing the Connection the data is *)B(* being transferred over *)N(* ios_icc = Address of an I/O status block (8-byte ICC *)G(* REPLY layout) *)M(* astadr = Address of entry mask of users' completion AST *)B(* routine *)M(* astprm = Value to be passed to the AST routine as an *)B(* argument *)N(* reply_buf = Address of a buffer containing the data  *)N(* reply_len = Length of the data in reply_buf *)N(* *) <[ASYNCHRONOUS,EXTERNAL(SYS$ICC_REPLY)] FUNCTION $ICC_REPLY ( %IMMED CONN_HANDLE : UNSIGNED;" VAR IOS_ICC : [VOLATILE] $DEFPTR;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; REPLY_BUF : $DEFPTR;2 %IMMED REPLY_LEN : UNSIGNED) : INTEGER; EXTERNAL; >[ASYNCHRONOUS, EXTERNAL(SYS$ICC_REPLYW)] FUNCTION $ICC_REPLYW ( %IMMED CONN_HANDLE : UNSIGNED;" VAR IOS_ICC : [VOLATILE] $DEFPTR;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0; REPLY_BUF : $DEFPTR;2 %IMMED REPLY_LEN : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $ICC_TRANSCEIVE[W] *)N(*  *)N(* ICC transceive operation *)N(* *)N(* $ICC_TRANSCEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *);(* ,send_buf ,send_len *)N(* *)N(* conn_handle = Handle representing the Connection the data is *)B(*  being transferred over *)H(* ios_icc = Address of an I/O status block (20-byte ICC *)F(* TRANSCEIVE layout ) *)M(* astadr = Address of entry mask of users' completion AST *)B(* routine *)J(* astprm = Value to be passed to the AST routine as an *)B(* argument *)H(*  send_buf = Address of a buffer conta in ing the data *)I(* send_len = Length of the data in send_buf *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSCEIVE)] FUNCTION $ICC_TRANSCEIVE ( %IMMED CONN_HANDLE : UNSIGNED;" VAR IOS_ICC : [VOLATILE] $DEFPTR;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;% %IMMED ASTPRM : INTEGER := %IMMED 0; SEND_BUF : $DEFPTR;1 %IMMED SE ND_LEN : UNSIGNED) : INTEGER; EXTERNAL; H[ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSCEIVEW)] FUNCTION $ICC_TRANSCEIVEW ( %IMMED CONN_HANDLE : UNSIGNED;" VAR IOS_ICC : [VOLATILE] $DEFPTR;1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR; %IMMED ASTPRM : INTEGER; SEND_BUF : $DEFPTR;1 %IMMED SEND_LEN : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* $ICC_TRANSMIT[W] *)N(* *)N(* Transmit data over an ICC connection *)N(* *)N(* $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *);(* ,send_buf ,send_len *)N(* *)N(* conn_handle = Handle representing the Connection the data is *)B(* being transferred over *)M(* ios_icc = Address of a quadword I/O status block *)M(* astadr = Address of entry mask of users' completion AST *)B(* routine *)M(* astprm = Value to be passed to the AST routine as an *)B(* argument *)H(* send_buf = Add ress of a buffer conta in ing the data *)I(* send_len = Length of the data in send_buf *)N(* *) B[ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSMIT)] FUNCTION $ICC_TRANSMIT ( %IMMED CONN_HANDLE : UNSIGNED;! VAR IOS_ICC : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;% %IMMED ASTPRM : INTEGER := %IMMED 0; SEND_BUF : $DEFPTR;1 %IMMED SEND_LEN : UNSIGNED) : I NTEGER; EXTERNAL; D[ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSMITW)] FUNCTION $ICC_TRANSMITW ( %IMMED CONN_HANDLE : UNSIGNED;! VAR IOS_ICC : [VOLATILE] $UQUAD;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;% %IMMED ASTPRM : INTEGER := %IMMED 0; SEND_BUF : $DEFPTR;1 %IMMED SEND_LEN : UNSIGNED) : INTEGER; EXTERNAL; N(* $PERSONA_QUERY *)N(* *)N(* Query Persona Information *)N(* *)N(* $PERSONA_QUERY persona, itmlst *)N(* *)N(* persona = address of longword holding persona identifier *)N(* *)H(* itmlst = addres s of list of item descriptors *)N(* *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_QUERY)] FUNCTION $PERSONA_QUERY ( PERSONA : UNSIGNED;P %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* $PERSONA_FIND *)N(*  *)N(* Locate Persona With Characteristic *)N(* *)N(* $PERSONA_FIND persona, itmlst *)N(* *)N(* persona = address of longword holding persona identifier *)N(*  *)H(* itmlst = address of list of item descriptors *)N(* *)I(* contxt = address of a context long word (used for iterative *)B(* calls or a multi-entry item list) *)N(* *)N(* *)N(*  *) B[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_FIND)] FUNCTION $PERSONA_FIND (# VAR PERSONA : [VOLATILE] UNSIGNED;; %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $PERSONA_RESERVE *)N(* *)N(* Reserve Persona Slot For Delegation  *)N(* *)N(* $PERSONA_RESERVE clientPID, persona *)N(* *)N(* clientPID = address of longword holding client's PID *)N(* *)N(* persona = address of longword holding persona identifier *)N(* *)N(* *) H[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_RESERVE)] FUNCTION $PERSONA_RESERVE ( CLIENTPID : UNSIGNED;8 VAR PERSONA : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* $PERSONA_DELEGATE *)N(* *)N(* Delegate Persona To Another Process *)N(* *)N(* $PERSONA_DELEGATE serverPID, persona, input_id *)N(* *)N(* serverPID = address of longword holding server's PID *)N(* *)^(* persona = address of longwor d holding persona identifier reserved by server *)N(* *)W(* input_id = address of longword holding persona identifier to delegate *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_DELEGATE)] FUNCTION $PERSONA_DELEGATE ( SERVERPID : UNSIGNED; PERSONA : UNSIGNED;* INPUT_ID : UNSIGNED) : INTEGER; EXTERNAL; N(* $PERSONA_EXTENSION_LOOKUP *)N(* *)N(* Find Extension on the system *)N(* *)N(* $PERSONA_EXTENSION_LOOKUP extensionName, extensionID *)N(* *)N(* extensionName = address of string descriptor of name *)N(* *)N(* extensionID = address of longword the ID is written to *)N(* *)N(* *) Z[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_EXTENSION_LOOKUP)] FUNCTION $PERSONA_EXTENSION_LOOKUP (C EXTENSIONNAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR ;< VAR EXTENSIONID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* $PERSONA_CREATE_EXTENSION *)N(* *)N(* Create Persona Extension *)N(* *)Q(* $PERSONA_CREATE_EXTENSION persona, extensionID, buffer, length, flags *)N(*  *)N(* persona = address of longword holding persona identifier *)N(* *)N(* extensionID = address of longword holding extension to create *)N(* *)N(* buffer = address of TLV buffer *)N(*  *)N(* length = address of longword containing TLV size in bytes *)N(* *)N(* flags = address of a flags longword *)N(* *)N(* *) Z[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CREATE_EXTENSION)] FUNCTION $PERSONA_CREATE_E XTENSION ( PERSONA : UNSIGNED; EXTENSIONID : UNSIGNED; BUFFER : $DEFPTR; LENGTH : UNSIGNED;' FLAGS : UNSIGNED) : INTEGER; EXTERNAL; N(* $PERSONA_DELETE_EXTENSION *)N(* *)N(* Delete An Extension From A Persona *)N(* *)N(* $PERSONA_DELETE_EXTENSION persona, extensionID *)N(* *)N(* persona = address of longword holding persona identifier *)N(* *)N(* extensionID = address of longword holding extension to delete *)N(* *)N(*  *) Z[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_DELETE_EXTENSION)] FUNCTION $PERSONA_DELETE_EXTENSION ( PERSONA : UNSIGNED;- EXTENSIONID : UNSIGNED) : INTEGER; EXTERNAL; N(* $PERSONA_MODIFY *)N(* *)N(* Modify Persona *)N(* *)N(* $PERSONA_MODIFY persona, itmlst *)N(* *)N(* persona = address of longword holding persona identifier *)N(* *)H(* itmlst = address of list of item descriptors *)N(* *)N(*  *) F[ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_MODIFY)] FUNCTION $PERSONA_MODIFY ( PERSONA : UNSIGNED;P %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* $SET_PROCESS_PROPERTIES[W] *)N(* *)N(* Set a simple value associated with a process *)N(* *)N(* $SET_PROCESS_PROPERTIES[W] mbz1 ,pidadr ,prcnam ,property *);(* ,value, prev_value [,bufsiz] [,bufcnt] *)N(* *)J(* mbz1 = Reserved for future use by Digital. Must *);(* be specified as 0. *)N(* pidadr  = For system service logging, the address of *);(* the PID of the target process. Otherwise, 0. *)N(* prcnam = For system service logging, the address of *);(* the process name descriptor of the target *);(* process. Otherwise, must be 0. *)N(* property = A constant that selects which property to set *)K(* value = A quadword value to set the property to *)N(* prev_value = The address of a quadword which will receive the *);(* previous value of the property *)Q(* bufsiz = For PPROP$C_SS_ENABLE, the size in bytes of a log buffer *)M(* bufcnt = For PPROP$C_SS_ENABLE, the number of log buffers *)N(* flags = for PPROP$C_SS_ENABLE, the associated flags *)N(* *) V[ASYNCHRONOUS,EXTERNAL(SYS$SET_PROCESS_PROPERTIES)] FUNCTI ON $SET_PROCESS_PROPERTIES ($ %IMMED MBZ1 : UNSIGNED := %IMMED 0; PIDADR : UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED PROPERTY : INTEGER; %IMMED VALUE_ : INTEGER;$ VAR PREV_VALUE : [VOLATILE] $UQUAD;& %IMMED BUFSIZ : UNSIGNED := %IMMED 0;& %IMMED BUFCNT : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; X[ASYNCHRONOUS,EXTERNAL(SYS$SET_PROCESS_PROPERTIESW)] FUNCTION $SET_PROCESS_PROPERTIESW ($  %IMMED MBZ1 : UNSIGNED := %IMMED 0; PIDADR : UNSIGNED := %IMMED 0;H PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED PROPERTY : INTEGER; %IMMED VALUE_ : INTEGER;$ VAR PREV_VALUE : [VOLATILE] $UQUAD;& %IMMED BUFSIZ : UNSIGNED := %IMMED 0;& %IMMED BUFCNT : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; J(* SYS$ACQUIRE_GALAXY_LOCK *)N(*  *)I(* $ACQUIRE_GALAXY_LOCK lock_handle,timeout,flags *)N(* *)I(* lock_handle - GLOCK handle *)I(* timeout - timeout value in 10 microsecond units *)H(* flags - flags *) P[ASYNCHRONOUS,EXTERNAL(SYS$ACQUIRE_GALAXY_LOCK)] FUNCTION $ACQUIRE_GALAXY_LOCK ( % IMMED LOCK_HANDLE : INTEGER;' %IMMED TIMEOUT : UNSIGNED := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; J(* SYS$CREATE_GALAXY_LOCK *)N(* *)N(* $CREATE_GALAXY_LOCK lcktbl_handle,name,size,timeout,ipl,rank,lock_handle *)N(* *)I(* lcktbl_handle - handle of lock table in which to create the lock *)I(* name - pointer to name of lock; 16 bytes. ASCIZ or Descriptor *)F(* size - size of lock *)I(* timeout - wait timeout value in 10 micro second units *)J(* ipl - IPL to raise to when lock is acquired (kernel mode only) *)F(* rank - rank of lock *)I(* lock_handle - lock handle *)N(*  *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GALAXY_LOCK)] FUNCTION $CREATE_GALAXY_LOCK (! %IMMED LCKTBL_HANDLE : UNSIGNED;: NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %IMMED SIZE : UNSIGNED;' %IMMED TIMEOUT : UNSIGNED := %IMMED 0;# %IMMED IPL : UNSIGNED := %IMMED 0;$ %IMMED RANK : UNSIGNED := %IMMED 0;9 VAR LOCK_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; J(* SYS$CREATE_GALAXY_LOCK_TABLE *)N(* *)c(* $CREATE_GALAXY_LOCK_TABLE name,accmode,section_size,section_type,prot,lock_size,lcktbl_handle *)N(* *)N(* name - pointer to name of section; 16 bytes. ASCIZ or Descriptor *)B(* accmode - access mode *)F(* section_size - virtual size of the section (bytes) *)I(* section_type - glcktbl$c_process | glcktbl$c_system *)@(* prot - page protection *)D(* lock_size - size of locks in the section *)G(* lcktbl_handle - handle of lock table *)N(* *) Z[ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GALAXY_LOCK_TABLE)] FUNCTION $CREATE_GALAXY_ LOCK_TABLE (: NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED ACCMODE : UNSIGNED; %IMMED SECTION_SIZE : INTEGER; %IMMED SECTION_TYPE : UNSIGNED; %IMMED PROT : UNSIGNED; %IMMED LOCK_SIZE : UNSIGNED;; VAR LCKTBL_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; J(* SYS$DELETE_GALAXY_LOCK *)N(* *)I(* $DELETE_GALAXY_LOCK lock_handle  *)N(* *)I(* lock_handle - lock handle *)N(* *) N[ASYNCHRONOUS,EXTERNAL(SYS$DELETE_GALAXY_LOCK)] FUNCTION $DELETE_GALAXY_LOCK (3 %IMMED LOCK_HANDLE : INTEGER) : INTEGER; EXTERNAL; J(* SYS$DELETE_GALAXY_LOCK_TABLE *)N(*  *)I(* $DELETE_GALAXY_LOCK_TABLE lcktbl_handle *)N(* *)G(* lcktbl_handle - handle of lock table *)N(* *) Z[ASYNCHRONOUS,EXTERNAL(SYS$DELETE_GALAXY_LOCK_TABLE)] FUNCTION $DELETE_GALAXY_LOCK_TABLE (6 %IMMED LCKTBL_HANDLE : UNSIGNED) : INTEGER; EXTER NAL; J(* SYS$GET_GALAXY_LOCK_INFO *)N(* *)](* $GET_GALAXY_LOCK_INFO lcktbl_handle,name,timeout,size,ipl,rank,lock_handle, name_length *)N(* *)I(* lock_handle - lock handle *)F(* name - pointer to name of lock; 16 bytes, zero terminated *)I(* timeout  - wait timeout value in 10 micro second units *)F(* size - size of lock *)J(* ipl - IPL to raise to when lock is acquired (kernel mode only) *)F(* rank - rank of lock *)G(* flags - flags from lock *)U(* name_length - pointer to a word where the length of the name will be returned *)N(*  *) R[ASYNCHRONOUS,EXTERNAL(SYS$GET_GALAXY_LOCK_INFO)] FUNCTION $GET_GALAXY_LOCK_INFO ( %IMMED LOCK_HANDLE : INTEGER; VAR NAME : [VOLATILE] CHAR; VAR TIMEOUT : [VOLATILE] $QUAD; VAR SIZE : [VOLATILE] $QUAD; VAR IPL : [VOLATILE] $QUAD; VAR RANK : [VOLATILE] $QUAD; VAR FLAGS : [VOLATILE] $QUAD;E VAR NAME_LENGTH : [VOLATILE] $QUAD := %IMMED 0) : INTEGER; EXTERNAL; J(* SYS$GET_GALAXY_LOCK_SIZE *)N(*  *)I(* $GET_GALAXY_LOCK_SIZE min_size, max_size *)N(* *)I(* min_size - minimum size of a galaxy lock *)I(* max_size - maximum size of a galaxy lock *)N(* *) R[ASYNCHRONOUS,EXTERNAL(SYS$GET_GALAXY_LOCK_SIZE)] FUNCTION $GE T_GALAXY_LOCK_SIZE (! VAR MIN_SIZE : [VOLATILE] $QUAD;6 VAR MAX_SIZE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; J(* SYS$INIT_GALAXY_LOCK *)N(* *)I(* $INIT_GALAXY_LOCK va,name,size,timeout,ipl,rank,lock_handle *)N(* *)D(* va - local va of memory to be initialized *)F(* name - pointer to name of lock; 16 bytes, zero terminated *)F(* size - size of lock *)I(* timeout - wait timeout value in 10 micro second units *)J(* ipl - IPL to raise to when lock is acquired (kernel mode only) *)F(* rank - rank of lock *)I(* lock_handle - lock handle *)N(*  *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$INIT_GALAXY_LOCK)] FUNCTION $INIT_GALAXY_LOCK ( VA : $QUAD; NAME : CHAR; %IMMED SIZE : UNSIGNED;' %IMMED TIMEOUT : UNSIGNED := %IMMED 0;# %IMMED IPL : UNSIGNED := %IMMED 0;$ %IMMED RANK : UNSIGNED := %IMMED 0;9 VAR LOCK_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; J(* SYS$INIT_GALAXY_LOCK_TABLE *)N(*  *)h(* $INIT_GALAXY_LOCK_TABLE region_va,reg_phys_size,reg_virt_size,section_type,lock_size,lcktbl_handle *)N(* *)I(* region_va - local va of shared memory region where the locks reside *)G(* reg_phys_size - physical size of the region (bytes) *)G(* reg_virt_size - virtual size of the region (bytes) *)I(* section_type - glcktbl$c_proce ss | glcktbl$c_system *)D(* lock_size - size of locks in the section *)G(* lcktbl_handle - handle of lock table *)N(* *) V[ASYNCHRONOUS,EXTERNAL(SYS$INIT_GALAXY_LOCK_TABLE)] FUNCTION $INIT_GALAXY_LOCK_TABLE ( REGION_VA : $QUAD; %IMMED REG_PHYS_SIZE : INTEGER; %IMMED REG_VIRT_SIZE : INTEGER; %IMMED SECTION_TYPE : UNSIGNED; %IMMED LOCK_SIZE : UNSIGN ED;; VAR LCKTBL_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; J(* SYS$RELEASE_GALAXY_LOCK *)N(* *)I(* $RELEASE_GALAXY_LOCK lock_handle *)N(* *)I(* lock_handle - lock handle *)N(*  *) P[ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_GALAXY_LOCK)] FUNCTION $RELEASE_GALAXY_LOCK (3 %IMMED LOCK_HANDLE : INTEGER) : INTEGER; EXTERNAL; J(* SYS$RESET_GALAXY_LOCK *)N(* *)I(* $RESET_GALAXY_LOCK lock_handle *)N(* *)I(* lock_handle  - lock handle *)I(* lock_va - local address of lock *)N(* *) L[ASYNCHRONOUS,EXTERNAL(SYS$RESET_GALAXY_LOCK)] FUNCTION $RESET_GALAXY_LOCK ( %IMMED LOCK_HANDLE : INTEGER;5 VAR LOCK_VA : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; J(* SYS$WAIT_ON_GLOCK *)N(*  *)I(* $WAIT_ON_GLOCK lock_handle,timeout *)N(* *)I(* lock_handle - lock handle *)I(* timeout - timeout value; overrides the value in the lock *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$WAIT_ON_GLOCK)] FUNCTION $WAIT_ON_GLOCK ( %IM MED LOCK_HANDLE : INTEGER;0 %IMMED TIMEOUT : UNSIGNED) : INTEGER; EXTERNAL; J(* SYS$NOTIFY_GLOCK_WAITERS *)N(* *)I(* $NOTIFY_GLOCK_WAITERS lock_handle,waiters *)N(* *)I(* lock_handle - lock handle *)I(* waiters - bitmask of galaxy n odes with waiters for this lock *)N(* *) R[ASYNCHRONOUS,EXTERNAL(SYS$NOTIFY_GLOCK_WAITERS)] FUNCTION $NOTIFY_GLOCK_WAITERS ( %IMMED LOCK_HANDLE : INTEGER;/ %IMMED WAITERS : INTEGER) : INTEGER; EXTERNAL; N(* $QIOSERVER *)N(* *)N(* QIOserver Control and Information  *)N(* *)N(* $QIOSERVER [efn], func, [context], [itmlst], *)N(* ($QIOSERVERW) [iosb], [astadr], [astprm] *)N(* *)N(* efn = event flag to be set when request completes *)N(* func = code specifying function to be performed *)N(* context = address of a longword containing a context number *)N(* itmlst = address of a list of item descriptors for the operation *)R(* iosb = address of a quadword status block to receive the final status *)Q(* astadr = address of an ast routine to be called when request completes *)N(* astprm = 32-bit (VAX) or 64-bit (ALPHA) ast parameter *)N(* *) <[ASYNCHRONOU S,EXTERNAL(SYS$QIOSERVER)] FUNCTION $QIOSERVER (# %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED;/ VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; >[ASYNCHRONOUS,EXTERNAL(SYS$QIOSERVERW)] FUNCTION $QIOSERVERW (# %IMMED EFN : UNSIGNED := %IMM ED 0; %IMMED FUNC : UNSIGNED;/ VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0;G %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $DEVICE_PATH_SCAN *)N(* *)N(* SCAN Device Path Information *)N(* *)N(* $DEVICE_PATH_SCAN [chan] ,[devnam] ,itmlst ,[contxt] ,[nullarg] *)N(* *)N(* chan = number of a channel assigned to the device or *)N(* 0 if device is specified by the devnam parameter *)N(*  *)N(* devnam = address of device name or logical name descriptor *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)^(* contxt = address of long word used to indicate current position of $DEVICE_PATH_SCAN *)N(*  *)N(* nullarg = reserved argument *)N(* *)N(* *) J[ASYNCHRONOUS,EXTERNAL(SYS$DEVICE_PATH_SCAN)] FUNCTION $DEVICE_PATH_SCAN (# %IMMED CHAN : INTEGER := %IMMED 0;H DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTE GER] OF $UBYTE;. VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0;3 NULLARG : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* $SET_DEVICE *)N(* $SET_DEVICEW *)N(* *)N(* SET Device Information *)N(*  *)N(* $SET_DEVICE [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr], *)N(* $SET_DEVICEW [astprm] ,[nullarg] *)N(* *)N(* efn = event flag to be set at completion *)N(* *)N(* chan = number of a channel assigned to the device or *)N(*  0 if device is specified by the devnam parameter *)N(* *)N(* devnam = address of device name or logical name descriptor *)N(* *)N(* itmlst = address of a list of item descriptors *)N(* *)N(* iosb = address of a quadword I/O status block *)N(* *)N(* astadr = address of entry mask of AST routine *)N(* *)N(* astprm = value to be passed to AST routine *)N(* *)N(* nullarg = reserved argument  *)N(* *)N(* *) >[ASYNCHRONOUS,EXTERNAL(SYS$SET_DEVICE)] FUNCTION $SET_DEVICE (# %IMMED EFN : UNSIGNED := %IMMED 0;# %IMMED CHAN : INTEGER := %IMMED 0;H DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= % IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;3 NULLARG : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; @[ASYNCHRONOUS,EXTERNAL(SYS$SET_DEVICEW)] FUNCTION $SET_DEVICEW (# %IMMED EFN : UNSIGNED := %IMMED 0;# %IMMED CHAN : INTEGER := %IMMED 0;H DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCH RONOUS] PROCEDURE ASTADR := %IMMED 0;& %IMMED ASTPRM : UNSIGNED := %IMMED 0;3 NULLARG : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $IO_TRANSITION *)N(* $IO_TRANSITIONW *)N(* *)N(* IO State Transitions  *)N(* *)^(* $IO_TRANSITION tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm *)^(* $IO_TRANSITIONW tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm *)N(* *)N(* Parameters: *)J(* tran_code - Transition code of operation to be initiated *)N(* devnam - CPU ID of processor to affected *)B(* nodename - ASCII descriptor name equivalent to node ID *)N(* node_id - Galactic node ID *)N(* flags - Quadword pointer to longword behavioral flags *)N(* efn - Event flag number for completion notification *)N(* iosb - IOSB block address for completion notification *)N(*  astadr - Address of AST routine name on completion *)N(* astprm - AST parameter to be passed back on completion *)F(* contxt - Context longword *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$IO_TRANSITION)] FUNCTION $IO_TRANSITION (( %IMMED TRAN_CODE : INTEGER := %IMMED 0;H DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;J NODENAM E : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;' %IMMED NODE_ID : INTEGER := %IMMED -1;% %IMMED FLAGS : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;% %IMMED ASTPRM : INTEGER := %IMMED 0;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; F[ASYNCHRONOUS,EXTERNAL(SYS$IO_TRANSITIONW)] FUNCTION $IO_TRANSITIONW (( %IMMED TRAN_CODE : INTE GER := %IMMED 0;H DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;J NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;' %IMMED NODE_ID : INTEGER := %IMMED -1;% %IMMED FLAGS : UNSIGNED := %IMMED 0;# %IMMED EFN : UNSIGNED := %IMMED 0;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;% %IMMED ASTPRM : INTEGER := %IMMED 0;C VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SYS$MAP_UIC *)N(* *)N(* $MAP_UIC uic, uid, gid *)N(* *)N(* uic - address of the UIC to look up mapping for *)N(* uid - address of cell to write matching UID into *)N(* gid - address o f cell to write matching GID into *)N(* *) 8[ASYNCHRONOUS,EXTERNAL(SYS$MAP_UIC)] FUNCTION $MAP_UIC ( UIC : UNSIGNED; VAR UID : [VOLATILE] UNSIGNED;4 VAR GID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* SYS$MAP_UID *)N(* *)N(* $MAP_UIC uid, uic, username, retlen *)N(* *)N(* uid - address of the UID to look up mapping for *)N(* uid - address of cell to write matching UIC into *)S(* username - address of a string descriptor to write matching username into *)N(* retlen - address of a word to write the length of the username into *)N(*  *) 8[ASYNCHRONOUS,EXTERNAL(SYS$MAP_UID)] FUNCTION $MAP_UID ( UID : UNSIGNED; VAR UIC : [VOLATILE] UNSIGNED;K VAR USERNAME : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;5 VAR RETLEN : [VOLATILE] $UWORD) : INTEGER; EXTERNAL; N(* SYS$SET_SESSION_ID - Create new POSIX session *)N(* *)N(* $SET_SESSION_ID sid  *)N(* *)O(* sid - address of a longword written with the newly created Session ID. *)N(* *) F[ASYNCHRONOUS,EXTERNAL(SYS$SET_SESSION_ID)] FUNCTION $SET_SESSION_ID (4 VAR SID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* SYS$SET_PROCESS_GROUP - Create or change POSIX process group *)N(*  *)N(* $SET_PROCESS_GROUP pid, pgid, retpgid *)N(* *)N(* pid - address of a PID that is the target of this call *)W(* pgid - address of a longword Process Group ID (also a PID) to have target join *)V(* retpgid - address of a longword written with PGID of a new group (also a PID) *)N(*  *) L[ASYNCHRONOUS,EXTERNAL(SYS$SET_PROCESS_GROUP)] FUNCTION $SET_PROCESS_GROUP ( PID : UNSIGNED; PGID : UNSIGNED;8 VAR RETPGID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* SYS$SET_POSIX_IDS - Set POSIX UID and GID values *)N(* *)N(* $SET_POSIX_IDS itmlst, flags *)N(*  *)N(* itlmst - address of an item list 3 of POSIX ID values to set *)N(* flags - flags signed longword, by value *)N(* *) D[ASYNCHRONOUS,EXTERNAL(SYS$SET_POSIX_IDS)] FUNCTION $SET_POSIX_IDS ( ITMLST : UNSIGNED;- %IMMED FLAGS : INTEGER) : INTEGER; EXTERNAL; N(* SYS$LOG_SYSTEM_SERVICE - Log system service request *)N(*  *)_(* $LOG_SYSTEM_SERVICE logtype, [bufseqnum], [logentry], [service_status], [service_ra], *)4(* [arglist_add],[vector_index], [prev_mode] *)N(* *)N(* logtype - type of log entry, e.g., SSLOG$C_SS_ENTRY *)N(* bufseqnum - address to store/fetch longword sequence number assoc. *)I(* with log's buffer  *)N(* logentry - address to fetch/store 64-bit log buffer entry address *)N(* service_status - completion status of service being logged *)N(* service_ra - address corresponding to return address from call to *)I(* service being logged *)Q(* arglist_add - address of VAX-style argument list to service being logged *)S(* vector_index - position of system service vector in SYS$PUBLIC_VECTO RS of *)I(* service being logged *)N(* prev_mode - mode from which service being logged was called *) N[ASYNCHRONOUS,EXTERNAL(SYS$LOG_SYSTEM_SERVICE)] FUNCTION $LOG_SYSTEM_SERVICE ( %IMMED LOGTYP : UNSIGNED;1 VAR BUFSEQNUM : [VOLATILE] UNSIGNED := %IMMED 0;0 VAR LOGENTRY : [VOLATILE] UNSIGNED := %IMMED 0;. %IMMED SERVICE_STATUS : UNSIGNED := %IMMED 0;) %IMMED SERVICE_RA : $DEFPTR := %IMMED 0;+ %IMMED ARGLIST_ADD : UNSIGNED : = %IMMED 0;, %IMMED VECTOR_INDEX : UNSIGNED := %IMMED 0;> %IMMED PREV_MODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $GETLMI *)N(* $GETLMIW *)N(* *)N(* Get License Management Information  *)N(* *)N(* $GETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm *)N(* $GETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm *)N(* Inputs: *)N(* efn - Event flag number. (optional, by value) *)k(* contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) *)o(* reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) *)t(* itmlst - Item list containing information to fully describe the requested function. (required, by reference) *)I(* iosb - I/O status block. (optional, by reference) *)h(* astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) *)I(* astprm - AST parameter for the AST routine. (optional, by val ue) *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$GETLMI)] FUNCTION $GETLMI (# %IMMED EFN : UNSIGNED := %IMMED 0;4 VAR CONTXT : [VOLATILE] STARLET$$TYP45 := %IMMED 0;J RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;: %IMMED ASTPRM : I NTEGER := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$GETLMIW)] FUNCTION $GETLMIW (# %IMMED EFN : UNSIGNED := %IMMED 0;4 VAR CONTXT : [VOLATILE] STARLET$$TYP46 := %IMMED 0;J RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $SETLMI *)N(* $SETLMIW *)N(* *)N(* Set License Management Information *)N(* *)N(* $SETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm *)N(* $SETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm *)N(* Inputs: *)N(* efn - Event flag number. (optional, by value) *)k(* contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) *)o(* reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) *)t(* itmlst - Item list containing information to fully describe the requested function. (required, by reference) *)I(* iosb - I/O status block. (optional, by reference) *)h(* astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) *)I(* astprm - AST parameter for the AST routine. (optional, by value) *)N(* *) 6[ASYNCHRONOUS,EXTERNAL(SYS$SETLMI) ] FUNCTION $SETLMI (# %IMMED EFN : UNSIGNED := %IMMED 0;4 VAR CONTXT : [VOLATILE] STARLET$$TYP47 := %IMMED 0;J RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; 8[ASYNCHRONOUS,EXTERNAL(SYS$SETLMIW)] FUNCTION $SETLMIW (# %IMMED EFN : UNSIGNED : = %IMMED 0;4 VAR CONTXT : [VOLATILE] STARLET$$TYP48 := %IMMED 0;J RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;* VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0;= %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0;: %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* $IEEE_SET_ROUNDING_MODE  *)N(* $IEEE_SET_PRECISION_MODE *)N(* *)X(* Set and retrieve the IEEE rounding/precision mode for the current kernel thread *)N(* *)N(* $IEEE_SET_ROUNDING_MODE( value, prev_value ) *)N(*  *)W(* value = A longword constant specifying the rounding mode for the thread *)N(* prev_value = The address of a longword which will receive the *);(* previous rounding mode *)N(* *) V[ASYNCHRONOUS,EXTERNAL(SYS$IEEE_SET_ROUNDING_MODE)] FUNCTION $IEEE_SET_ROUNDING_MODE ( %IMMED VALUE_ : INTEGER;8 VAR PREV_VALUE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL;  X[ASYNCHRONOUS,EXTERNAL(SYS$IEEE_SET_PRECISION_MODE)] FUNCTION $IEEE_SET_PRECISION_MODE ( %IMMED VALUE_ : UNSIGNED;8 VAR PREV_VALUE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; N(* $DEBUG_BREAK *)N(* *)N(* Manipulate hardware debug resources *)N(* *)N(* $DEBUG_BREAK func, handle, addr, addr_mask, mode_mask, access_mask *)N(* *)N(* func = what function to perform *)N(* *)N(* handle = address of handle *)N(* *)N(* addr = address to be debugged *)N(* *)N(* addr_mask = which bits in the address are significant *)N(* *)N(* mode_mask = which mode(s) are to generate an exception *)N(* *)N(* access_mask = are we monitoring reads or writes ? *) @[ASYNCHRONOUS,EXTERNAL(SYS$DEBUG_BREAK)] FUNCTION $DEBUG_BREAK (# %IMMED FUNC : INTEGER := %IMMED 0;, VAR HANDLE : [VOLATILE] $UQUAD := %IMMED 0; ADDR : UNSIGNED := %IMMED 0;( %IMMED ADDR_MASK : INTEGER := %IMMED 0;( %IMMED MODE_MASK : INTEGER := %IMMED 0;@ %IMMED ACCESS_MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* $POWER_CONTROL *)N(*  *)N(* Manipulate the platform's power and performance settings *)N(* *)N(* $DEBUG_BREAK power_setting, current_value *)N(* *)W(* power_setting = a quadword value to specify the new power/performance setting *)N(* *)Z(* current_value = the address of a quadword for the service to return the current *)B(* setting (optional) *) D[ASYNCHRONOUS,EXTERNAL(SYS$POWER_CONTROL)] FUNCTION $POWER_CONTROL ( %IMMED POWER_SETTING : INTEGER;H VAR CURRENT_VALUE : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) N(* MODULE STRMSG ;  *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END;  *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511;  *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535;  *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911;  *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $STRDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.76 *)N(*  *)N(* FILE: STRMSG.MSG EDIT: JWN2008 *)N(* *)Q(***************************************************************************** *)(** * *)8(** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WI THOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(*   *)N(* *)P(* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM STRMSG.MSG *)I(* VERSION 1-004. SBL 22-APR-1981 *)N(* 2-005 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982 *)U(* 2-002 - DON'T DEFINE STR$_NORMAL HERE, DO IT IN STRMSGDEF.MAR. SBL 27-APR-1981 *)N(* 2-003 - ADD STR$_MATCH AND STR$_NOMATCH. RKR 2-JUL-1982  *)N(* 2-004 - NOW DEFINE STR$_NORMAL HERE. SBL 24-AUG-1982 *)N(* 2-006 - ADD DEFINITIONS FOR STR$_INVDELIM (INVALID DELIMITER) AND *)I(* STR$_NOELEM (NO ELEMENT FOUND), TWO NEW STATUS VALUES TO BE *)G(* USED BY STR$ELEMENT. ROW 03-NOV-1986 *)N(* 2-007 - ADD STR$_ERRFREDYN, USED WHEN LIB$FREE_VM BARFS ON A STRING *)I(* WE ARE TRYING TO FREE. IE. THE USER HAS A CLASS_D DESCR POINTING *)I(* AT SOME ARBITRARY MEMORY.   *)N(* 2-008 - REMOVE FIRST LETTER CAPITALIZATION FROM ERROR MESSAGES. *)(* JWN 26-APR-1987 *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* STR$_ABCMNOXYZ *)N(*   *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)N(* *)N(* MACRO-32 PROGRAMMING:   *)N(* *)N(* THE MACRO CALL: *)N(* *)I(* $STRDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *)N(* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(*- *)N(* *)N(* THE FOLLOWING SEVERE ERRORS ARE ALWAYS SIGNALLED. *)N(* *)<(* ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES!!! *) CONST STR$_FACILITY = 36; STR$_FATINTERR = 2392132; STR$_DIVBY_ZER = 2392140; STR$_ILLSTRCLA = 2392148; STR$_STRIS_INT = 2392156; STR$_WRONUMARG = 2392164; STR$_INSVIRMEM = 2392172; STR$_STRTOOLON = 2392180; STR$_ERRFREDYN = 2392188; N(* *)N(* THE FOLLOWING ARE WARNING ERRORS. *)N(*  *);(* ; GO IN STEPS OF 8. *) CONST STR$_TRU = 2392576; STR$_NOMATCH = 2392584; STR$_INVDELIM = 2392592; STR$_NOELEM = 2392600; N(* *)N(* THE FOLLOWING ARE QUALIFIED SUCCESS MESSAGES *)N(* *);(* ; GO IN STEPS OF 8. *) CONST STR$_NEGSTRLEN = 2393089; STR$_ILLSTRPOS = 2393097; STR$_ILLSTRSPE = 2393105; STR$_MATCH = 2393113; N(* *)N(* DEFINE STR$_NORMAL TO BE THE SAME AS SS$_NORMAL. *)N(* *) CONST STR$_NORMAL = 1; N(* *) N(* END.  *) N(* MODULE UTIL$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD  *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN;  *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383;  *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151;  *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BI T(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) +(*** MODULE util$routines IDENT X01-02 ***) P(**************************************************************************** *)(*  * *)'(* COPYRIGHT (c) 1998 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIE D BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* *)N(* UTIL$CQUAL_FILE_PARSE *)N(* *) /[ASYNCHRONOUS] FUNCTION util$cqual_file_parse ( flags : UNSIGNED;# VAR context : [VOLATILE] UNSIGNED;3 V AR found_flags : [VOLATILE] UNSIGNED := %IMMED 0;I VAR flags_value : [VOLATILE] UNSIGNED := %IMMED 0) : UNSIGNED; EXTERNAL; N(* *)N(* UTIL$CQUAL_FILE_MATCH *)N(* *) /[ASYNCHRONOUS] FUNCTION util$cqual_file_match ( context : UNSIGNED; fab : UNSIGNED := %IMMED 0;K file_name : [CLASS_S] PACKE D ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;J prompt_1 : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;J prompt_2 : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;A %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE prompt_rtn := %IMMED 0;4 VAR current_form : [VOLATILE] UNSIGNED := %IMMED 0;6 disable : UNSIGNED := %IMMED 0) : UNSIGNED; EXTERNAL; N(* *)N(* UTIL$CQUAL_FILE_END  *)N(* *) -[ASYNCHRONOUS] FUNCTION util$cqual_file_end (9 VAR context : [VOLATILE] UNSIGNED) : UNSIGNED; EXTERNAL; N(* *)N(* UTIL$CQUAL_CONFIRM_ACT *)N(* *) 0[ASYNCHRONOUS] FUNCTION util $cqual_confirm_act (J prompt_1 : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;J prompt_2 : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;A %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE prompt_rtn := %IMMED 0;J VAR current_form : [VOLATILE] UNSIGNED := %IMMED 0) : UNSIGNED; EXTERNAL; N(* END. *)N(* RMSUSR.PAS was created by-hand by John Reagan in Sept 2004 from the *)N(* RMSUSR.SDL in the 8.2! stream. The changes from the standard SDL are: *)N(* 1: Add the RMS$TYPE record. It doesn't come from any SDL. *)N(* 2: Merge all the various XAB records into a single XAB$TYPE and move *)N(* the various XAB constants to one place for readability. *)TYPE) RMS$TYPE = RECORD CASE INTEGER OF5 1: (RMS$_RMSDEF_BITS : [BYTE(2)] RECORD END);/ 2: (RMS$V_STVSTATUS : [POS(14)] $BOOL) END; (*** MODULE $CVTFNMDEF ***) "N(* *)N(* String characteristic flags for SYS$CVT_FILENAME *)N(* *) CONST CVTFNM$M_WORD_CHARS = 1; CVTFNM$M_NO_DELIMITERS = 2; CVTFNM$M_FORCE_UPCASE = 4; TYPE INOUTFLAGS$TYPE = RECORDJ CVTFNM$V_WORD_CHARS : [POS(0)] $BOOL; (* characters are word-width *)` CVTFNM$V_NO_DELIMITERS : [POS(1)] $BOOL; (* string #does/should contain no fnm delimiters *)T CVTFNM$V_FORCE_UPCASE : [POS(2)] $BOOL; (* do upcasing (ACPQIO-to-RMS onoly) *)& CVTFNM$$_FILL1 : [POS(3)] $BIT29; END; N(* *)N(* Control codes for SYS$CVT_FILENAME *)N(* *) !CONST CVTFNM$C_RMS_TO_ACPQIO = 1; CVTFNM$C_ACPQIO_TO_RMS = 2; CVTFNM$K_RMS_TO $_ACPQIO = 1; CVTFNM$K_ACPQIO_TO_RMS = 2; (*** MODULE $FABDEF ***) N(* *)N(* *)I(* file access block (fab) definitions *)N(* *)N(* the fields thru ctx must not be modified due to *)N(* commonality between fab/rab%/xab *)N(* *) LCONST FAB$C_BID = 3; (* code for fab *) FAB$M_PPF_RAT = 16320; FAB$M_PPF_IND = 16384; FAB$M_PPIFI = 32768; FAB$M_ASY = 1; FAB$M_MXV = 2; FAB$M_SUP = 4; FAB$M_TMP = 8; FAB$M_TMD = 16; FAB$M_DFW = 32; FAB$M_SQO = 64; FAB$M_RWO = 128; FAB$M_POS = 256; FAB$M_WCK = 512; FAB$M_NEF = 1024; FAB$M_RWC = 2&048; FAB$M_DMO = 4096; FAB$M_SPL = 8192; FAB$M_SCF = 16384; FAB$M_DLT = 32768; FAB$M_NFS = 65536; FAB$M_UFO = 131072; FAB$M_PPF = 262144; FAB$M_INP = 524288; FAB$M_CTG = 1048576; FAB$M_CBT = 2097152; FAB$M_SYNCSTS = 4194304; FAB$M_RCK = 8388608; FAB$M_NAM = 16777216; FAB$M_CIF = 33554432; FAB$M_ESC = 134217728; FAB$M_TEF = 268435456; FAB$M_OFP = 536870912; FAB$M_KFO = 1073741824; FAB$M_ERL = 32768; FAB$M_PUT = 1; FAB$M_GET = 2; FAB$M_DEL = 4;' FAB$M_UPD = 8; FAB$M_TRN = 16; FAB$M_BIO = 32; FAB$M_BRO = 64; FAB$M_EXE = 128; FAB$M_SHRPUT = 1; FAB$M_SHRGET = 2; FAB$M_SHRDEL = 4; FAB$M_SHRUPD = 8; FAB$M_MSE = 16; FAB$M_NIL = 32; FAB$M_UPI = 64; FAB$M_NQL = 128; FAB$M_ORG = 240;G FAB$C_SEQ = 0; (* sequential *)G FAB$C_REL = 16; (* relative *)G FAB$C_IDX = 32; (* indexed *)G FAB$C_HSH = 48; ( (* hashed *)G FAB$C_SPECIAL = 64; (* special file *) FAB$M_FTN = 1; FAB$M_CR = 2; FAB$M_PRN = 4; FAB$M_BLK = 8; FAB$M_MSB = 16;G FAB$C_FIFO = 1; (* FIFO special file *)G FAB$C_CHAR_SPECIAL = 2; (* character special file *)G FAB$C_BLOCK_SPECIAL = 3; (* block special file *)N FAB$C_SYMLINK = 4; (* symbolic link special file for) pre-V8.2 *)U FAB$C_SYMBOLIC_LINK = 5; (* symbolic link special file for V8.2 and beyond *)G FAB$C_RFM_DFLT = 2; (* var len is default *)G FAB$C_UDF = 0; (* undefined (also stream binary) *)G FAB$C_FIX = 1; (* fixed length records *)G FAB$C_VAR = 2; (* variable length records *)G FAB$C_VFC = 3; (* variable fixed control *)T FAB$C_STM = 4; (** RMS-11 stream (valid only for sequential org) *)P FAB$C_STMLF = 5; (* LF stream (valid only for sequential org) *)P FAB$C_STMCR = 6; (* CR stream (valid only for sequential org) *)G FAB$C_MAXRFM = 6; (* maximum rfm supported *) FAB$M_ONLY_RU = 1; FAB$M_RU = 2; FAB$M_BI = 4; FAB$M_AI = 8; FAB$M_AT = 16; FAB$M_NEVER_RU = 32; FAB$M_JOURNAL_FILE = 64; FAB$M_RCF_RU = 1; FAB$M_RCF_AI = 2; FAB$M_RCF_BI = 4; &TYPE FAB$TYP +E = RECORD CASE INTEGER OFG 1: (FAB$B_BID : $UBYTE; (* block id *)G FAB$B_BLN : $UBYTE; (* block len *). FAB$R_IFI_OVERLAY : [BYTE(2)] RECORD END;. FAB$R_FOP_OVERLAY : [BYTE(4)] RECORD END;G FAB$L_STS : UNSIGNED; (* status *)G FAB$L_STV : UNSIGNED; (* status value *)G FAB$L_ALQ : UNSIGNED; (* allocation quantity *)G FAB$W_D ,EQ : $UWORD; (* default allocation quantity *). FAB$R_FAC_OVERLAY : [BYTE(1)] RECORD END;. FAB$R_SHR_OVERLAY : [BYTE(1)] RECORD END;G FAB$L_CTX : UNSIGNED; (* user context *)G (*-----***** *)G FAB$B_RTV : $BYTE; (* retrieval window size *). FAB$R_ORG_OVERLAY : [BYTE(1)] RECORD END;. FAB$R_RAT_OVERLAY : [BYTE(1)] RECORD END;G FAB$B_RFM : $UBYTE; - (* record format *)2 FAB$R_JOURNAL_OVERLAY : [BYTE(1)] RECORD END;G FAB$B_RU_FACILITY : $UBYTE; (* recoverable facility id number *)G FABDEF$$_FILL_7 : $WORD; (* (spare) *)G FAB$L_XAB : UNSIGNED; (* xab address *). FAB$R_NAM_OVERLAY : [BYTE(4)] RECORD END;G FAB$L_FNA : UNSIGNED; (* file name string address *)G FAB$L_DNA : UNSIGNED; (* default file name string addr . *)G FAB$B_FNS : $UBYTE; (* file name string size *)G FAB$B_DNS : $UBYTE; (* default name string size *)G FAB$W_MRS : $UWORD; (* maximum record size *)G FAB$L_MRN : INTEGER; (* maximum record number *)G FAB$W_BLS : $UWORD; (* blocksize for tape *)G FAB$B_BKS : $UBYTE; (* bucket size *)G FAB$B_FSZ : $UBYTE; (* fixed header size / *)G FAB$L_DEV : UNSIGNED; (* device characteristics *)G FAB$L_SDC : UNSIGNED; (* spooling device characteristics *)G FAB$W_GBC : $UWORD; (* Global buffer count *)2 FAB$R_ACMODES_OVERLAY : [BYTE(1)] RECORD END;K FAB$R_RCF_OVERLAY : [BYTE(1)] RECORD END; (* recovery control flags *)G FABDEF$$_FILL_9 : UNSIGNED; (* (spare) *) );G 2: (FAB$W_IFI : [POS(16)] $UWORD; (* internal fil0e index *)G FAB$L_FOP : [POS(32)] UNSIGNED; (* file options *)G FAB$B_FAC : [POS(176)] $UBYTE; (* file access *)G FAB$B_SHR : [POS(184)] $UBYTE; (* file sharing *)G FAB$B_ORG : [POS(232)] $UBYTE; (* file organization *)G FAB$B_RAT : [POS(240)] $UBYTE; (* record format *)U FAB$B_JOURNAL : [POS(256)] $UBYTE; (* journaling options (from FH2$B_JOURNAL) *)G FAB$L_NAM : [POS(32 10)] UNSIGNED; (* nam block address *)G FAB$B_ACMODES : [POS(592)] $UBYTE; (* agent access modes *)H FAB$B_RCF : [POS(600)] $UBYTE; (* (only for use by RMS Recovery) *) );4 3: (FAB$R_IFI_BITS : [POS(16), BYTE(2)] RECORD END;4 FAB$R_FOP_BITS : [POS(32), BYTE(4)] RECORD END;5 FAB$R_FAC_BITS : [POS(176), BYTE(1)] RECORD END;5 FAB$R_SHR_BITS : [POS(184), BYTE(1)] RECORD END;5 FAB$R_ORG_BITS : [POS(232), BYTE(1)] RECORD END;5 FAB$R_RAT_BITS : 2[POS(240), BYTE(1)] RECORD END;g FAB$R_JOURNAL_BITS : [POS(256), BYTE(1)] RECORD END; (* note: only one of RU, ONLY_RU, NEVER_RU *)G FAB$L_NAML : [POS(320)] UNSIGNED; (* naml block address *)9 FAB$R_ACMODES_BITS : [POS(592), BYTE(1)] RECORD END;5 FAB$R_RCF_BITS : [POS(600), BYTE(1)] RECORD END; );Q 4: (FAB$V_PPF_RAT : [POS(22)] $BIT8; (* rat value for process-permanent files *)U FAB$V_PPF_IND : [POS(30)] $BOOL; (* indirect access to process-permanent file3 *)G (* (i.e., restricted operations) *)I FAB$V_PPIFI : [POS(31)] $BOOL; (* indicates that this is PPF file *)G FAB$V_ASY : [POS(32)] $BOOL; (* asynchronous operations *)G FAB$V_MXV : [POS(33)] $BOOL; (* maximize version number *)G FAB$V_SUP : [POS(34)] $BOOL; (* supersede existing file *)G FAB$V_TMP : [POS(35)] $BOOL; (* create temporary file *)J FAB$V_TMD : [POS(36)] $BOOL; (* create temp file 4marked for delete *)G FAB$V_DFW : [POS(37)] $BOOL; (* deferred write (rel and idx) *)G FAB$V_SQO : [POS(38)] $BOOL; (* sequential access only *)G FAB$V_RWO : [POS(39)] $BOOL; (* rewind mt on open *)G FAB$V_POS : [POS(40)] $BOOL; (* use next magtape position *)G FAB$V_WCK : [POS(41)] $BOOL; (* write checking *)G FAB$V_NEF : [POS(42)] $BOOL; (* inhibit end of file positioning *)G FAB$V_RWC : [POS(43)] $BOOL; (* rew5ind mt on close *)N FAB$V_DMO : [POS(44)] $BOOL; (* dismount mt on close (not implemented) *)G FAB$V_SPL : [POS(45)] $BOOL; (* spool file on close *)G FAB$V_SCF : [POS(46)] $BOOL; (* submit command file on close *)G FAB$V_DLT : [POS(47)] $BOOL; (* delete sub-option *)G FAB$V_NFS : [POS(48)] $BOOL; (* non-file structured operation *)J FAB$V_UFO : [POS(49)] $BOOL; (* user file open - no rms operations *)L FAB$V_PPF : [PO6S(50)] $BOOL; (* process permanent file (pio segment) *)I FAB$V_INP : [POS(51)] $BOOL; (* process-permanent file is 'input' *)G FAB$V_CTG : [POS(52)] $BOOL; (* contiguous extension *)G FAB$V_CBT : [POS(53)] $BOOL; (* contiguous best try *)f FAB$V_SYNCSTS : [POS(54)] $BOOL; (* Synchronous status notification for asynchronous routines. *)G FAB$V_RCK : [POS(55)] $BOOL; (* read checking *)[ FAB$V_NAM : [POS(56)] $BOOL; (* use name 7block dvi, did, and/or fid fields for open *)G FAB$V_CIF : [POS(57)] $BOOL; (* create if non-existent *)S FAB$V_ESC : [POS(59)] $BOOL; (* 'escape' to non-standard function ($modify) *)e FAB$V_TEF : [POS(60)] $BOOL; (* truncate at eof on close (write-accessed seq. disk file only) *)Q FAB$V_OFP : [POS(61)] $BOOL; (* output file parse (only name type sticky) *)X FAB$V_KFO : [POS(62)] $BOOL; (* known file open (image activator only release 1) *)G FAB$V_PUT : [PO8S(176)] $BOOL; (* put access *)G FAB$V_GET : [POS(177)] $BOOL; (* get access *)G FAB$V_DEL : [POS(178)] $BOOL; (* delete access *)G FAB$V_UPD : [POS(179)] $BOOL; (* update access *)G FAB$V_TRN : [POS(180)] $BOOL; (* truncate access *)G FAB$V_BIO : [POS(181)] $BOOL; (* block i/o access *)G FAB$V_BRO : [POS(182)] $BOOL; (* block and record i/o access *)\ FAB9$V_EXE : [POS(183)] $BOOL; (* execute access (caller must be exec or kernel mode, *)G (* ufo must also be set) *)G FAB$V_SHRPUT : [POS(184)] $BOOL; (* put access *)G FAB$V_SHRGET : [POS(185)] $BOOL; (* get access *)G FAB$V_SHRDEL : [POS(186)] $BOOL; (* delete access *)G FAB$V_SHRUPD : [POS(187)] $BOOL; (* update access *)G FAB$V_MSE : [POS(188)] $BOOL; (* multi-stream: connects enabled *)G FAB$V_NIL : [POS(189)] $BOOL; (* no sharing *)T FAB$V_UPI : [POS(190)] $BOOL; (* user provided interlocking (allows multiple *)G (* writers to seq. files) *)G FAB$V_NQL : [POS(191)] $BOOL; (* no query locking (file level) *)" FAB$V_ORG : [POS(236)] $BIT4;G FAB$V_FTN : [POS(240)] $BOOL; (* fortran carriage-ctl *)G FAB$V_CR : [POS(241)] $BOOL; (* lf-record-cr carriage ctl ; *)G FAB$V_PRN : [POS(242)] $BOOL; (* print-file carriage ctl *)M FAB$V_BLK : [POS(243)] $BOOL; (* records don't cross block boundaries *)G FAB$V_MSB : [POS(244)] $BOOL; (* MSB formatted byte count *)G (* may be set at a time *)U FAB$V_ONLY_RU : [POS(256)] $BOOL; (* file is accessible only in recovery unit *)G FAB$V_RU : [POS(257)] $BOOL; (* enable recovery unit journal *)G FAB$V_BI : [POS(258)] $BOOL<; (* enable before image journal *)G FAB$V_AI : [POS(259)] $BOOL; (* enable after image journal *)G FAB$V_AT : [POS(260)] $BOOL; (* enable audit trail journal *)W FAB$V_NEVER_RU : [POS(261)] $BOOL; (* file is never accessible in recovery unit *)H FAB$V_JOURNAL_FILE : [POS(262)] $BOOL; (* this is a journal file *)G FAB$V_LNM_MODE : [POS(592)] $BIT2; (* ACMODE for log nams *)G FAB$V_CHAN_MODE : [POS(594)] $BIT2; (* ACMODE for channel *)_ = FAB$V_FILE_MODE : [POS(596)] $BIT2; (* ACMODE to use for determining file accessibility *)T FAB$V_CALLERS_MODE : [POS(598)] $BIT2; (* ACMODE for user structure probing; *)K (* maximized with actual mode of caller *)G FAB$V_RCF_RU : [POS(600)] $BOOL; (* recovery unit recovery *)G FAB$V_RCF_AI : [POS(601)] $BOOL; (* after image recovery *)G FAB$V_RCF_BI : [POS(602)] $BOOL; (* before image recovery *) );< 5: (FAB$R_FOP_B>ITS_OVERLAY : [POS(32), BYTE(4)] RECORD END;G FAB$B_SPECIAL_TYPE : [POS(240)] $UBYTE; (* type of special file *) );G 6: (FAB$V_ERL : [POS(47)] $BOOL; (* Erase Regardless of Lock *) ) END; N(* basealign on aggregate FABDEF operates after aggregate end *) LCONST FAB$K_BLN = 80; (* length of fab *)G FAB$C_BLN = 80; (* length of fab *) (*** MODULE $RABDEF ***) N(* ? *)N(* record access block (rab) definitions *)N(* *)N(* there is one rab per connected stream *)N(* it is used for all communications between the user *)N(* and rms concerning operations on the stream *)N(* @ *)N(* the fields thru ctx cannot be changed due to commonality *)N(* with the fab *)N(* *) LCONST RAB$C_BID = 1; (* code for rab *) RAB$M_PPF_RAT = 16320; RAB$M_PPF_IND = 16384; RAB$M_PPISI = 32768; RAB$M_ASY = 1; RAB$M_TPT = 2; RAB$M_REA = 4; RAB$M_RRL =A 8; RAB$M_UIF = 16; RAB$M_MAS = 32; RAB$M_FDL = 64; RAB$M_REV = 128; RAB$M_EOF = 256; RAB$M_RAH = 512; RAB$M_WBH = 1024; RAB$M_BIO = 2048; RAB$M_CDK = 4096; RAB$M_LOA = 8192; RAB$M_LIM = 16384; RAB$M_SYNCSTS = 32768; RAB$M_LOC = 65536; RAB$M_WAT = 131072; RAB$M_ULK = 262144; RAB$M_RLK = 524288; RAB$M_NLK = 1048576; RAB$M_KGE = 2097152; RAB$M_KGT = 4194304; RAB$M_NXR = 8388608; RAB$M_RNE = 16777216; RAB$M_TMO = 33554432; RAB$M_CVT = 67108864; RBAB$M_RNF = 134217728; RAB$M_ETO = 268435456; RAB$M_PTA = 536870912; RAB$M_PMT = 1073741824; RAB$M_CCO = -2147483648; RAB$M_EQNXT = 2097152; RAB$M_NXT = 4194304; RAB$M_NQL = 1; RAB$M_NODLCKWT = 2; RAB$M_NODLCKBLK = 4;G RAB$C_SEQ = 0; (* sequential access *)G RAB$C_KEY = 1; (* keyed access *)G RAB$C_RFA = 2; (* rfa access *)T RAB$C_STM = 3; (* stre Cam access (valid only for sequential org) *)S RAB$C_MAXRAC = 2; (* Maximum RAC value currently supported by RMS *) &TYPE RAB$TYPE = RECORD CASE INTEGER OFG 1: (RAB$B_BID : $UBYTE; (* block id *)G RAB$B_BLN : $UBYTE; (* block length *). RAB$R_ISI_OVERLAY : [BYTE(2)] RECORD END;. RAB$R_ROP_OVERLAY : [BYTE(4)] RECORD END;G RAB$L_STS : UNSIGNED; (* status *). RAB$R_SDTV_OVERLAY : [BYTE(4)] RECORD END;. RAB$R_RFA_OVERLAY : [BYTE(6)] RECORD END;Q RABDEF$$_FILL_4 : $WORD; (* (reserved - rms release 1 optimizes stores *)W (* to the rfa field to be a move quad, overwriting *)G (* this reserved word) *)G RAB$L_CTX : UNSIGNED; (* user context *)G (*-----***** *)G RAB$R_ROP_2_OVERLAY :E [BYTE(2)] RECORD END; (* *)G RAB$B_RAC : $UBYTE; (* record access *)G RAB$B_TMO : $UBYTE; (* time-out period *)G RAB$W_USZ : $UWORD; (* user buffer size *)G RAB$W_RSZ : $UWORD; (* record buffer size *)G RAB$L_UBF : UNSIGNED; (* user buffer address *)G RAB$L_RBF : UNSIGNED; (* record buffer address *)G RAB$L_RHB F : UNSIGNED; (* record header buffer addr *). RAB$R_KBF_OVERLAY : [BYTE(4)] RECORD END;. RAB$R_KSZ_OVERLAY : [BYTE(1)] RECORD END;G RAB$B_KRF : $UBYTE; (* key of reference *)G RAB$B_MBF : $BYTE; (* multi-buffer count *)G RAB$B_MBC : $UBYTE; (* multi-block count *). RAB$R_BKT_OVERLAY : [BYTE(4)] RECORD END;G RAB$L_FAB : UNSIGNED; (* related fab for connect *)G RGAB$L_XAB : UNSIGNED; (* XAB address *) );G 2: (RAB$W_ISI : [POS(16)] $UWORD; (* internal stream index *)N(* (ifi in fab) *)G RAB$L_ROP : [POS(32)] UNSIGNED; (* record options *)G RAB$L_STV : [POS(96)] UNSIGNED; (* status value *)O RAB$W_RFA : [POS(128)] ARRAY [1..3] OF $UWORD; (* record's file address *)[ RAB$W_ROP_2 : [POS(224)] $UWORD; (* ext Hension to record options in traditional RAB *)G RAB$L_KBF : [POS(384)] UNSIGNED; (* key buffer address *)G RAB$B_KSZ : [POS(416)] $UBYTE; (* key buffer size *)I RAB$L_BKT : [POS(448)] UNSIGNED; (* bucket hash code, vbn, or rrn *) );4 3: (RAB$R_ISI_BITS : [POS(16), BYTE(2)] RECORD END;5 RAB$R_ROP_BITS0 : [POS(32), BYTE(4)] RECORD END;6 RAB$R_STV_FIELDS : [POS(96), BYTE(4)] RECORD END;7 RAB$R_RFA_FIELDS : [POS(128), BYTE(6)] RECORD END;I8 RAB$R_ROP_2_BITS0 : [POS(224), BYTE(2)] RECORD END;G RAB$L_PBF : [POS(384)] UNSIGNED; (* prompt buffer addr *)G RAB$B_PSZ : [POS(416)] $UBYTE; (* prompt buffer size *)] RAB$L_DCT : [POS(448)] UNSIGNED; (* duplicates count on key accessed on alternate key *) );Q 4: (RAB$V_PPF_RAT : [POS(22)] $BIT8; (* rat value for process-permanent files *)U RAB$V_PPF_IND : [POS(30)] $BOOL; (* indirect access to process-permanent file *)G J (* (i.e., restricted operations) *)Y RAB$V_PPISI : [POS(31)] $BOOL; (* indicates that this is process-permanent stream *)G RAB$V_ASY : [POS(32)] $BOOL; (* asynchronous operations *)R RAB$V_TPT : [POS(33)] $BOOL; (* truncate put - allow sequential put not at *)R (* eof, thus truncating file (seq. org only) *)G (* *)T (* these neKxt two should be in the byte for bits *)Y (* input to $find or $get, but there is no room there *)G (* *)V RAB$V_REA : [POS(34)] $BOOL; (* lock record for read only, allow other readers *)G RAB$V_RRL : [POS(35)] $BOOL; (* read record regardless of lock *)G (* *)G RAB$V_UIF : [POS(36)] $BOOL; (* update if existent L *)G RAB$V_MAS : [POS(37)] $BOOL; (* mass-insert mode *)G RAB$V_FDL : [POS(38)] $BOOL; (* fast record deletion *)Z RAB$V_REV : [POS(39)] $BOOL; (* reverse-search - can only be set with NXT or EQNXT *)G (* *)G RAB$V_EOF : [POS(40)] $BOOL; (* connect to eof *)G RAB$V_RAH : [POS(41)] $BOOL; (* read ahead *)G RAB$V_WBH : [POS(42)] $BOOLM; (* write behind *)G RAB$V_BIO : [POS(43)] $BOOL; (* connect for bio only *)H RAB$V_CDK : [POS(44)] $BOOL; (* check for duplicate keys on $GET *)G RAB$V_LOA : [POS(45)] $BOOL; (* use bucket fill percentage *)c RAB$V_LIM : [POS(46)] $BOOL; (* compare for key limit reached on $get/$find seq. (idx only) *)f RAB$V_SYNCSTS : [POS(47)] $BOOL; (* Synchronous status notification for asynchronous routines. *)G (* N *)G (* the following bits are input to *)R (* $find or $get, (see above also REA and RRL) *)G (* (separate byte) *)G (* *)G RAB$V_LOC : [POS(48)] $BOOL; (* use locate mode *)G RAB$V_WAT : [POS(49)] $BOOL; (* wait if record not available *)G RAB$V_ULKO : [POS(50)] $BOOL; (* manual unlocking *)L RAB$V_RLK : [POS(51)] $BOOL; (* allow readers for this locked record *)G RAB$V_NLK : [POS(52)] $BOOL; (* do not lock record *)G RAB$V_KGE : [POS(53)] $BOOL; (* key > or = *)G RAB$V_KGT : [POS(54)] $BOOL; (* key greater than *)G RAB$V_NXR : [POS(55)] $BOOL; (* get non-existent record *)G (* *)PW (* the following bits are terminal qualifiers only *)G (* (separate byte) *)G (* *)G RAB$V_RNE : [POS(56)] $BOOL; (* read no echo *)G RAB$V_TMO : [POS(57)] $BOOL; (* use time-out period *)G RAB$V_CVT : [POS(58)] $BOOL; (* convert to upper case *)G RAB$V_RNF : [POS(59)] $BOOL; (* read noQ filter *)G RAB$V_ETO : [POS(60)] $BOOL; (* extended terminal operation *)G RAB$V_PTA : [POS(61)] $BOOL; (* purge type ahead *)G RAB$V_PMT : [POS(62)] $BOOL; (* use prompt buffer *)G RAB$V_CCO : [POS(63)] $BOOL; (* cancel control o on output *)G RAB$W_STV0 : [POS(96)] $UWORD; (* low word of stv *)G RAB$W_STV2 : [POS(112)] $UWORD; (* high word of stv *)& RAB$L_RFA0 : [POS(128)] UNS RIGNED;$ RAB$W_RFA4 : [POS(160)] $UWORD;H RAB$V_NQL : [POS(224)] $BOOL; (* no query locking (record level) *)G RAB$V_NODLCKWT : [POS(225)] $BOOL; (* no deadlock wait *)G RAB$V_NODLCKBLK : [POS(226)] $BOOL; (* no deadlock blocking *) );5 5: (RAB$R_ROP_BITS1 : [POS(32), BYTE(3)] RECORD END; );G 6: (RAB$V_EQNXT : [POS(53)] $BOOL; (* Synonyms for KGE and *)G RAB$V_NXT : [POS(54)] $BOOL; (* KGT *)G S (* the following bits may be *)N(* input to various rab-related *)N(* operations *)N(* *) );6 7: (RAB$R_ROP_FIELDS : [POS(32), BYTE(4)] RECORD END; );G 8: (RAB$B_ROP1 : [POS(40)] $UBYTE; (* various options *)Y RAB$B_ROP2 : [POS(48)] $UBYTE; (* get/find options T(use of this field discouraged *)T (* due to REA and RRL being in a different byte) *)G RAB$B_ROP3 : [POS(56)] $UBYTE; (* terminal read options *)G (* *) ) END; N(* end of traditional 32-bit rab *) LCONST RAB$K_BLN = 68; (* length of traditional 32-bit rab *)G RAB$C_BLN = 68; (* length of traditio Unal 32-bit rab *) N(* *)N(* 64-bit variant of the record access block (rab) definitions *)N(* *)N(* The 64-bit rab consists of the traditional 32-bit rab *)N(* followed by additional cells, added mainly to provide *)N(* support for a 64-bit address for user buffers (UBF, RBF, *)N(*V KBF, RHB). *)N(* *)N(* *) LCONST RAB64$C_BID = 1; (* code for rab *) RAB64$M_PPF_RAT = 16320; RAB64$M_PPF_IND = 16384; RAB64$M_PPISI = 32768; RAB64$M_ASY = 1; RAB64$M_TPT = 2; RAB64$M_REA = 4; RAB64$M_RRL = 8; RAB64$M_UIF = 16; RABW64$M_MAS = 32; RAB64$M_FDL = 64; RAB64$M_REV = 128; RAB64$M_EOF = 256; RAB64$M_RAH = 512; RAB64$M_WBH = 1024; RAB64$M_BIO = 2048; RAB64$M_CDK = 4096; RAB64$M_LOA = 8192; RAB64$M_LIM = 16384; RAB64$M_SYNCSTS = 32768; RAB64$M_LOC = 65536; RAB64$M_WAT = 131072; RAB64$M_ULK = 262144; RAB64$M_RLK = 524288; RAB64$M_NLK = 1048576; RAB64$M_KGE = 2097152; RAB64$M_KGT = 4194304; RAB64$M_NXR = 8388608; RAB64$M_RNE = 16777216; RAB64$M_TMO = 33554432; RAB64$M_CVTX = 67108864; RAB64$M_RNF = 134217728; RAB64$M_ETO = 268435456; RAB64$M_PTA = 536870912; RAB64$M_PMT = 1073741824; RAB64$M_CCO = -2147483648; RAB64$M_EQNXT = 2097152; RAB64$M_NXT = 4194304; RAB64$M_NQL = 1; RAB64$M_NODLCKWT = 2; RAB64$M_NODLCKBLK = 4;G RAB64$C_SEQ = 0; (* sequential access *)G RAB64$C_KEY = 1; (* keyed access *)G RAB64$C_RFA = 2; (* rfa access *)T RAB Y64$C_STM = 3; (* stream access (valid only for sequential org) *)S RAB64$C_MAXRAC = 2; (* Maximum RAC value currently supported by RMS *) RAB64$M_RESERVED29 = 536870912;! RAB64$M_RESERVED30 = 1073741824;" RAB64$M_RESERVED31 = -2147483648; RAB$M_RESERVED29 = 536870912; RAB$M_RESERVED30 = 1073741824; RAB$M_RESERVED31 = -2147483648; (TYPE RAB64$TYPE = RECORD CASE INTEGER OFG 1: (RAB64$B_BID : $UBYTE; (* block id *)G RAB64$BZ_BLN : $UBYTE; (* block length *)0 RAB64$R_ISI_OVERLAY : [BYTE(2)] RECORD END;0 RAB64$R_ROP_OVERLAY : [BYTE(4)] RECORD END;G RAB64$L_STS : UNSIGNED; (* status *)0 RAB64$R_STV_OVERLAY : [BYTE(4)] RECORD END;0 RAB64$R_RFA_OVERLAY : [BYTE(6)] RECORD END;Q RAB64DEF$$_FILL_4 : $WORD; (* (reserved - rms release 1 optimizes stores *)W (* to the rfa field to be a move quad, overwriting *[)G (* this reserved word) *)G RAB64$L_CTX : UNSIGNED; (* user context *)G (*-----***** *)G RAB64$R_ROP_2_OVERLAY : [BYTE(2)] RECORD END; (* *)G RAB64$B_RAC : $UBYTE; (* record access *)G RAB64$B_TMO : $UBYTE; (* time-out period *)G RAB64$W_USZ : $UWORD; (* user buffer size \ *)G RAB64$W_RSZ : $UWORD; (* record buffer size *)G RAB64$L_UBF : UNSIGNED; (* user buffer address *)G RAB64$L_RBF : UNSIGNED; (* record buffer address *)G RAB64$L_RHB : UNSIGNED; (* record header buffer addr *)0 RAB64$R_KBF_OVERLAY : [BYTE(4)] RECORD END;0 RAB64$R_KSZ_OVERLAY : [BYTE(1)] RECORD END;G RAB64$B_KRF : $UBYTE; (* key of reference *)G RAB64$B_MBF : $ ]BYTE; (* multi-buffer count *)G RAB64$B_MBC : $UBYTE; (* multi-block count *)0 RAB64$R_BKT_OVERLAY : [BYTE(4)] RECORD END;G RAB64$L_FAB : UNSIGNED; (* related fab for connect *)G RAB64$L_XAB : UNSIGNED; (* XAB address *)6 RAB64$R_VERSION64_OVERLAY : [BYTE(4)] RECORD END;2 RAB64$R_UBF64_OVERLAY : [BYTE(8)] RECORD END;2 RAB64$R_USZ64_OVERLAY : [BYTE(8)] RECORD END;2 RAB64$R_RBF64_O ^VERLAY : [BYTE(8)] RECORD END;2 RAB64$R_RSZ64_OVERLAY : [BYTE(8)] RECORD END;2 RAB64$R_KBF64_OVERLAY : [BYTE(8)] RECORD END;2 RAB64$R_RHB64_OVERLAY : [BYTE(8)] RECORD END;2 RAB64$R_CTX64_OVERLAY : [BYTE(8)] RECORD END;9 RAB64$R_ROPEXT_OVERLAY_RAB64 : [BYTE(4)] RECORD END;0 RAB64$R_MBF_OVERLAY : [BYTE(4)] RECORD END;0 RAB64$R_MBC_OVERLAY : [BYTE(4)] RECORD END;7 RAB64$R_RESERVED_1_OVERLAY : [BYTE(4)] RECORD END; );G 2: (RAB64$W_ISI : [POS(16)] $UWORD; (_* internal stream index *)N(* (ifi in fab) *)G RAB64$L_ROP : [POS(32)] UNSIGNED; (* record options *)G RAB64$L_STV : [POS(96)] UNSIGNED; (* status value *)Q RAB64$W_RFA : [POS(128)] ARRAY [1..3] OF $UWORD; (* record's file address *)] RAB64$W_ROP_2 : [POS(224)] $UWORD; (* extension to record options in traditional RAB *)G RAB64$L_KBF : [POS(384)] UNSIGNED; (* key buffer address ` *)G RAB64$B_KSZ : [POS(416)] $UBYTE; (* key buffer size *)K RAB64$L_BKT : [POS(448)] UNSIGNED; (* bucket hash code, vbn, or rrn *)N RAB64$L_VERSION : [POS(544)] UNSIGNED; (* 64-bit rab extension version *)G RAB64$PQ_UBF : [POS(576)] $QUAD; (* 64-bit user buffer address *)G RAB64$Q_USZ : [POS(640)] $UQUAD; (* 64-bit user buffer size *)H RAB64$PQ_RBF : [POS(704)] $QUAD; (* 64-bit record buffer address *)G RAB64$Q_RSZ : [POS(768)] $UQUAD; (*a 64-bit record buffer size *)G RAB64$PQ_KBF : [POS(832)] $QUAD; (* 64-bit key buffer address *)L RAB64$PQ_RHB : [POS(896)] $QUAD; (* 64-bit record header buffer addr *)G RAB64$Q_CTX : [POS(960)] $UQUAD; (* 64-bit user context *)I RAB64$L_ROPEXT : [POS(1024)] UNSIGNED; (* extended record options *)J RAB64$L_MBF : [POS(1056)] UNSIGNED; (* longword multi-buffer count *)I RAB64$L_MBC : [POS(1088)] UNSIGNED; (* longword multi-block count *)P RAB64$L_RESER bVED_1 : [POS(1120)] UNSIGNED; (* MBZ - reserved for Digital *) );6 3: (RAB64$R_ISI_BITS : [POS(16), BYTE(2)] RECORD END;7 RAB64$R_ROP_BITS0 : [POS(32), BYTE(4)] RECORD END;8 RAB64$R_STV_FIELDS : [POS(96), BYTE(4)] RECORD END;9 RAB64$R_RFA_FIELDS : [POS(128), BYTE(6)] RECORD END;: RAB64$R_ROP_2_BITS0 : [POS(224), BYTE(2)] RECORD END;G RAB64$L_PBF : [POS(384)] UNSIGNED; (* prompt buffer addr *)G RAB64$B_PSZ : [POS(416)] $UBYTE; (* prompt buffer size c *)_ RAB64$L_DCT : [POS(448)] UNSIGNED; (* duplicates count on key accessed on alternate key *)L RAB$L_VERSION : [POS(544)] UNSIGNED; (* 64-bit rab extension version *)G RAB$PQ_UBF : [POS(576)] $QUAD; (* 64-bit user buffer address *)G RAB$Q_USZ : [POS(640)] $UQUAD; (* 64-bit user buffer size *)G RAB$PQ_RBF : [POS(704)] $QUAD; (* 64-bit record buffer address *)G RAB$Q_RSZ : [POS(768)] $UQUAD; (* 64-bit record buffer size *)G RAB$PQ_KBF : [POS(832d)] $QUAD; (* 64-bit key buffer address *)J RAB$PQ_RHB : [POS(896)] $QUAD; (* 64-bit record header buffer addr *)G RAB$Q_CTX : [POS(960)] $UQUAD; (* 64-bit user context *)G RAB$L_ROPEXT : [POS(1024)] UNSIGNED; (* extended record options *)H RAB$L_MBF : [POS(1056)] UNSIGNED; (* longword multi-buffer count *)G RAB$L_MBC : [POS(1088)] UNSIGNED; (* longword multi-block count *)N RAB$L_RESERVED_1 : [POS(1120)] UNSIGNED; (* MBZ - reserved for Digital *) )e;S 4: (RAB64$V_PPF_RAT : [POS(22)] $BIT8; (* rat value for process-permanent files *)W RAB64$V_PPF_IND : [POS(30)] $BOOL; (* indirect access to process-permanent file *)G (* (i.e., restricted operations) *)[ RAB64$V_PPISI : [POS(31)] $BOOL; (* indicates that this is process-permanent stream *)G RAB64$V_ASY : [POS(32)] $BOOL; (* asynchronous operations *)T RAB64$V_TPT : [POS(33)] $BOOL; (* truncate put - allow sequential put not at *)fR (* eof, thus truncating file (seq. org only) *)G (* *)T (* these next two should be in the byte for bits *)Y (* input to $find or $get, but there is no room there *)G (* *)X RAB64$V_REA : [POS(34)] $BOOL; (* lock record for read only, allow other readers *)H g RAB64$V_RRL : [POS(35)] $BOOL; (* read record regardless of lock *)G (* *)G RAB64$V_UIF : [POS(36)] $BOOL; (* update if existent *)G RAB64$V_MAS : [POS(37)] $BOOL; (* mass-insert mode *)G RAB64$V_FDL : [POS(38)] $BOOL; (* fast record deletion *)\ RAB64$V_REV : [POS(39)] $BOOL; (* reverse-search - can only be set with NXT or EQNXT *)G (* h *)G RAB64$V_EOF : [POS(40)] $BOOL; (* connect to eof *)G RAB64$V_RAH : [POS(41)] $BOOL; (* read ahead *)G RAB64$V_WBH : [POS(42)] $BOOL; (* write behind *)G RAB64$V_BIO : [POS(43)] $BOOL; (* connect for bio only *)J RAB64$V_CDK : [POS(44)] $BOOL; (* check for duplicate keys on $GET *)G RAB64$V_LOA : [POS(45)] $BOOL; (* use bucket fill percentage *)e RAB64$V_LIM : [POS(46)] $BOiOL; (* compare for key limit reached on $get/$find seq. (idx only) *)h RAB64$V_SYNCSTS : [POS(47)] $BOOL; (* Synchronous status notification for asynchronous routines. *)G (* *)G (* the following bits are input to *)R (* $find or $get, (see above also REA and RRL) *)G (* (separate byte) *)G j (* *)G RAB64$V_LOC : [POS(48)] $BOOL; (* use locate mode *)G RAB64$V_WAT : [POS(49)] $BOOL; (* wait if record not available *)G RAB64$V_ULK : [POS(50)] $BOOL; (* manual unlocking *)N RAB64$V_RLK : [POS(51)] $BOOL; (* allow readers for this locked record *)G RAB64$V_NLK : [POS(52)] $BOOL; (* do not lock record *)G RAB64$V_KGE : [POS(53)] $BOOL; (* key > or = *)G k RAB64$V_KGT : [POS(54)] $BOOL; (* key greater than *)G RAB64$V_NXR : [POS(55)] $BOOL; (* get non-existent record *)G (* *)W (* the following bits are terminal qualifiers only *)G (* (separate byte) *)G (* *)G RAB64$V_RNE : [POS(56)] $BOOL; (* read no echlo *)G RAB64$V_TMO : [POS(57)] $BOOL; (* use time-out period *)G RAB64$V_CVT : [POS(58)] $BOOL; (* convert to upper case *)G RAB64$V_RNF : [POS(59)] $BOOL; (* read no filter *)G RAB64$V_ETO : [POS(60)] $BOOL; (* extended terminal operation *)G RAB64$V_PTA : [POS(61)] $BOOL; (* purge type ahead *)G RAB64$V_PMT : [POS(62)] $BOOL; (* use prompt buffer *)G RAB64$V_CCO : [POS(63)] $BOOL; (* m cancel control o on output *)G RAB64$W_STV0 : [POS(96)] $UWORD; (* low word of stv *)G RAB64$W_STV2 : [POS(112)] $UWORD; (* high word of stv *)( RAB64$L_RFA0 : [POS(128)] UNSIGNED;& RAB64$W_RFA4 : [POS(160)] $UWORD;J RAB64$V_NQL : [POS(224)] $BOOL; (* no query locking (record level) *)G RAB64$V_NODLCKWT : [POS(225)] $BOOL; (* no deadlock wait *)G RAB64$V_NODLCKBLK : [POS(226)] $BOOL; (* no deadlock blocking *)? RAB64$R_VER nSION_FIELDS_1 : [POS(544), BYTE(4)] RECORD END;> RAB64$R_ROPEXT_BITS0_1 : [POS(1024), BYTE(4)] RECORD END; );7 5: (RAB64$R_ROP_BITS1 : [POS(32), BYTE(3)] RECORD END;G RAB64$W_VERMINOR : [POS(544)] $UWORD; (* minor version ident *)G RAB64$W_VERMAJOR : [POS(560)] $UWORD; (* major version ident *)M RAB64$V_RESERVED29 : [POS(1053)] $BOOL; (* MBZ - reserved for Digital *)M RAB64$V_RESERVED30 : [POS(1054)] $BOOL; (* MBZ - reserved for Digital *)M RAB64$V_RESoERVED31 : [POS(1055)] $BOOL; (* MBZ - reserved for Digital *) );G 6: (RAB64$V_EQNXT : [POS(53)] $BOOL; (* Synonyms for KGE and *)G RAB64$V_NXT : [POS(54)] $BOOL; (* KGT *)G (* the following bits may be *)N(* input to various rab-related *)N(* operations *)N(* p *)? RAB64$R_VERSION_FIELDS_2 : [POS(544), BYTE(4)] RECORD END;> RAB64$R_ROPEXT_BITS0_2 : [POS(1024), BYTE(4)] RECORD END; );8 7: (RAB64$R_ROP_FIELDS : [POS(32), BYTE(4)] RECORD END;G RAB$W_VERMINOR : [POS(544)] $UWORD; (* minor version ident *)G RAB$W_VERMAJOR : [POS(560)] $UWORD; (* major version ident *)K RAB$V_RESERVED29 : [POS(1053)] $BOOL; (* MBZ - reserved for Digital *)K RAB$V_RESERVED30 : [POS(1054)] $BOOL; (* MBZ - qreserved for Digital *)K RAB$V_RESERVED31 : [POS(1055)] $BOOL; (* MBZ - reserved for Digital *) );G 8: (RAB64$B_ROP1 : [POS(40)] $UBYTE; (* various options *)[ RAB64$B_ROP2 : [POS(48)] $UBYTE; (* get/find options (use of this field discouraged *)T (* due to REA and RRL being in a different byte) *)G RAB64$B_ROP3 : [POS(56)] $UBYTE; (* terminal read options *)G (* r *) ) END; N(* end of 64-bit rab variant *) LCONST RAB64$K_BLN64 = 144; (* length of 64-bit rab variant *)G RAB64$C_BLN64 = 144; (* length of 64-bit rab variant *)G RAB$K_BLN64 = 144; (* length of 64-bit rab variant *)G RAB$C_BLN64 = 144; (* length of 64-bit rab variant *)G RAB$K_MAXBLN = 144; (* current maximum length of rab *)G RAB$C_MAXBLN = 14 s4; (* current maximum length of rab *) (*** MODULE $NAMDEF ***) N(* *)N(* name block field definitions *)N(* *)N(* the nam block is used to communicate optional *)N(* filename-related information *)N(* t *) LCONST NAM$C_BID = 2; (* code for nam block *)S NAM$C_MAXRSS = 255; (* maximum resultant name string size (network) *)Q NAM$C_MAXRSSLCL = 255; (* maximum resultant name string size (local) *) NAM$M_PWD = 1; NAM$M_FILL_1 = 2; NAM$M_FILL_2 = 4; NAM$M_SYNCHK = 8; NAM$M_NOCONCEAL = 16; NAM$M_SLPARSE = 32; NAM$M_SRCHXABS = 64; NAM$M_NO_SHORT_UPCASE = 128;T NAM$C_UFS u = 0; (* Unknown file system for remote file access or *) N(* not applicable for local file access or *) LCONST NAM$C_NO_RFS = 0; (* task-to-task operation *)G NAM$C_RMS11 = 1; (* RMS-11 *)G NAM$C_RMS20 = 2; (* RMS-20 *)G NAM$C_RMS32 = 3; (* RMS-32 *)G NAM$C_FCS11 = 4; (* FCS-11v *)G NAM$C_RT11FS = 5; (* RT-11 file system *)G NAM$C_TOPS20FS = 7; (* TOPS-20 file system *)G NAM$C_TOPS10FS = 8; (* TOPS-10 file system *)G NAM$C_RMS32S = 10; (* RMS-32 subset (e.g., VAXELAN) *)G NAM$C_CPMFS = 11; (* CP/M file system *)G NAM$C_MS_DOSFS = 12; (* MS/DOS file system *)G NAM$C_ULTRIX32_FS = 13; w (* Ultrix-32 file system *)G NAM$C_ULTRIX11_FS = 14; (* Ultrix-11 file system *)G DAP$K_SNADTF_FS = 15; (* SNADTF compatable FS *) N(*+++++++++++++++++++++++ *) LCONST NAM$C_DVI = 16; (* length of dvi field *) N(*+++++***** *) CONST NAM$M_IFI = 65536; NAM$M_SRCHNMF = 1073741824; NAMx$M_SVCTX = -2147483648;G NAM$K_BLN_V2 = 56; (* Version 2 name block length *)G NAM$C_BLN_V2 = 56; (* Version 2 name block length *) NAM$M_EXP_VER = 1; NAM$M_EXP_TYPE = 2; NAM$M_EXP_NAME = 4; NAM$M_WILD_VER = 8; NAM$M_WILD_TYPE = 16; NAM$M_WILD_NAME = 32; NAM$M_EXP_DIR = 64; NAM$M_EXP_DEV = 128; NAM$M_WILDCARD = 256; NAM$M_DIR_LVLS_G7 = 512; NAM$M_WILD_SFDG7 = 1024; NAM$M_SEARCH_LIST = 2048; NAM$M_CNCL_DEV = 4096; NAM$M_ROOT_DIR y= 8192; NAM$M_LOWVER = 16384; NAM$M_HIGHVER = 32768; NAM$M_PPF = 65536; NAM$M_NODE = 131072; NAM$M_QUOTED = 262144; NAM$M_GRP_MBR = 524288; NAM$M_WILD_DIR = 1048576; NAM$M_DIR_LVLS = 14680064; NAM$M_WILD_UFD = 16777216; NAM$M_WILD_SFD1 = 33554432; NAM$M_WILD_SFD2 = 67108864; NAM$M_WILD_SFD3 = 134217728; NAM$M_WILD_SFD4 = 268435456; NAM$M_WILD_SFD5 = 536870912; NAM$M_WILD_SFD6 = 1073741824; NAM$M_WILD_SFD7 = -2147483648; NAM$M_WILD_GRP = 16777216; NAM$M_W zILD_MBR = 33554432; NAM$M_DID = 1; NAM$M_FID = 2; NAM$M_RES_DID = 4; NAM$M_RES_FID = 8; NAM$M_RES_ESCAPE = 16; NAM$M_RES_UNICODE = 32; &TYPE NAM$TYPE = RECORD CASE INTEGER OFG 1: (NAM$B_BID : $UBYTE; (* block id *)G NAM$B_BLN : $UBYTE; (* block length *)G (*+++++++++++++++++++++++ *)l (* the following 3 fields must not be rearranged rel{ative to each other *)G (* *)G NAM$B_RSS : $UBYTE; (* resultant string area size *)G NAM$B_RSL : $UBYTE; (* resultant string length *)G NAM$L_RSA : UNSIGNED; (* resultant string area address *)G (*----------------------- *). NAM$R_NOP_OVERLAY : [BYTE(1)] RECORD END;Y NAM$B_RFS : $UBYTE; (* Remote file system type (cur|rently not documented) *)V (* Note: This field is reserved for use by Digital *)l (* the following 3 fields must not be rearranged relative to each other *)G (* *)G NAM$B_ESS : $UBYTE; (* expanded string area size *)G NAM$B_ESL : $UBYTE; (* expanded string length *)G NAM$L_ESA : UNSIGNED; (* expanded string area a }ddress *)G (*----------------------- *). NAM$R_RLF_OVERLAY : [BYTE(4)] RECORD END;G NAM$T_DVI : PACKED ARRAY [1..16] OF CHAR; (* device id *)U (* the location of the following fields must not *)X (* be changed due to their commonality with the fib *). NAM$R_FID_OVERLAY : [BYTE(6)] RECORD END;. NAM$R_DID_OVERLAY : [BYTE(6)] RECORD END;. NAM$R_WCC_OVERL~AY : [BYTE(4)] RECORD END;. NAM$R_FNB_OVERLAY : [BYTE(4)] RECORD END;G NAM$B_NODE : $UBYTE; (* Nodespec length *)G NAM$B_DEV : $UBYTE; (* Device length *)G NAM$B_DIR : $UBYTE; (* Directory length *)G NAM$B_NAME : $UBYTE; (* Filename length *)G NAM$B_TYPE : $UBYTE; (* Filetype length *)G NAM$B_VER : $UBYTE; (* Version number length  *)I NAM$R_NMC_OVERLAY : [BYTE(1)] RECORD END; (* Name characteristics *)G NAMDEF$$_FILL_6 : ARRAY [1..1] OF $BYTE; (* Currently unused *)G NAM$L_NODE : UNSIGNED; (* Nodespec address *)G NAM$L_DEV : UNSIGNED; (* Device address *)G NAM$L_DIR : UNSIGNED; (* Directory address *)G NAM$L_NAME : UNSIGNED; (* Filename address *)G NAM$L_TYPE : UNSIGNED; (* Filetype a ddress *)G NAM$L_VER : UNSIGNED; (* Version number address *)L NAM$W_FIRST_WILD_DIR : $UWORD; (*First wild directory in related nam *)G NAM$W_LONG_DIR_LEVELS : $UWORD; (*Total number of directories *)G NAMDEF$$_FILL_7 : ARRAY [1..1] OF UNSIGNED; (* Currently unused *) );G 2: (NAM$B_NOP : [POS(64)] $UBYTE; (* Name options *)G NAM$L_RLF : [POS(128)] UNSIGNED; (* related file nam block addr *)G NAM$W_FID : [PO S(288)] ARRAY [1..3] OF $UWORD; (* file id *)G NAM$W_DID : [POS(336)] ARRAY [1..3] OF $UWORD; (* directory id *)G NAM$L_WCC : [POS(384)] UNSIGNED; (* wild card context *)G NAM$L_FNB : [POS(416)] UNSIGNED; (* file name status bits *)# NAM$B_NMC : [POS(496)] $UBYTE; );4 3: (NAM$R_NOP_BITS : [POS(64), BYTE(1)] RECORD END;N NAM$L_RLF_NAML : [POS(128)] UNSIGNED; (* related file naml block addr *)7 NAM$R_FID_FIELDS : [POS(288), BYTE(6)] RECO RD END;7 NAM$R_DID_FIELDS : [POS(336), BYTE(6)] RECORD END;5 NAM$R_WCC_BITS : [POS(384), BYTE(4)] RECORD END;6 NAM$R_FNB_BITS0 : [POS(416), BYTE(3)] RECORD END;5 NAM$R_NMC_BITS : [POS(496), BYTE(1)] RECORD END; );] 4: (NAM$V_PWD : [POS(64)] $BOOL; (* Return password if present in nodespec string and any *)Y (* other task-specific data of the form /netacp_data" *)Z (* (default is to mask out password from expanded and *)[ (* resultant name strings and to create a logical name *)[ (* whose equivalence string is the unaltered nodespec) *)Q NAM$V_FILL_1 : [POS(65)] $BOOL; (* unused. (used to be undocumented ROD) *)Q NAM$V_FILL_2 : [POS(66)] $BOOL; (* unused. (used to be undocumented SOD) *)S NAM$V_SYNCHK : [POS(67)] $BOOL; (* Only do syntax check on $parse operation *)R NAM$V_NOCONCEAL : [POS(68)] $BOOL; (* Do not conceal device/root directory *)a NAM$V_SLPARSE : [POS(69)] $BOOL; (* Parse search list (not documented) -- used by BACKUP. *)a NAM$V_SRCHXABS : [POS(70)] $BOOL; (* Fill in attached XABS on $SEARCH operations over the *)V (* network (not documented) -- used by directory. *)H NAM$V_NO_SHORT_UPCASE : [POS(71)] $BOOL; (* Don't upcase the ESA *)G NAM$W_FID_NUM : [POS(288)] $UWORD; (* file number *)G NAM$W_FID_SEQ : [POS(304)] $UWORD; (* sequence number *)< NAM$R_FID_RVN_OVERLAY : [POS(320), BYTE(2)] RECORD END;G NAM$W_DID_NUM : [POS(336)] $UWORD; (* file number *)G NAM$W_DID_SEQ : [POS(352)] $UWORD; (* sequence number *)< NAM$R_DID_RVN_OVERLAY : [POS(368), BYTE(2)] RECORD END;G NAM$V_IFI : [POS(400)] $BOOL; (* the first word contains an IFI *)[ NAM$V_SRCHNMF : [POS(414)] $BOOL; (* no-more-files has been encountered on a search *)K NAM$V_SVCTX : [POS(415)] $BOOL; (* save context across search calls *)G NAM$V_EXP_VER : [POS(416)] $BOOL; (* version was explicit *)G NAM$V_EXP_TYPE : [POS(417)] $BOOL; (* type was explicit *)G NAM$V_EXP_NAME : [POS(418)] $BOOL; (* name was explicit *)K NAM$V_WILD_VER : [POS(419)] $BOOL; (* version contained a wild card *)I NAM$V_WILD_TYPE : [POS(420)] $BOOL; (* type contained a wild card *)I NAM$V_WILD_NAME : [POS(421)] $BOOL; (* name contained a wild card *)G NAM$V_EXP_DIR : [POS(422)] $BOOL; (* directory was explicit *)G NAM$V_EXP_DEV : [POS(423)] $BOOL; (* device was explicit *)R NAM$V_WILDCARD : [POS(424)] $BOOL; (* filename string included a wild card *)M (* (inclusive or of other wild card bits) *)J NAM$V_DIR_LVLS_G7 : [POS(425)] $BOOL; (* Dir levels greater than 7 *)V NAM$V_WILD_SFDG7 : [POS(426)] $BOOL; (* A subdir greater than 7 has a wildcard *)G NAM$V_SEARCH_LIST : [POS(427)] $BOOL; (* search list present *)G NAM$V_CNCL_DEV : [POS(428)] $BOOL; (* concealed device present *)G NAM$V_ROOT_DIR : [POS(429)] $BOOL; (* root directory present *)V NAM$V_LOWVER : [POS(430)] $BOOL; (* lower numbered version(s) of file exist(s) *)G NAM$V_HIGHVER : [POS(431)] $BOOL; (* higher " *)G (* *)U NAM$V_PPF : [POS(432)] $BOOL; (* process-permanent file referenced indirectly *)T NAM$V_NODE : [POS(433)] $BOOL; (* filename specification included a nodename *)R NAM$V_QUOTED : [POS(434)] $BOOL; (* filename spec included a quoted string *)V NAM$V_GRP_MBR : [POS(435)] $BOOL; (* directory spec was of group-member format *)Q NAM$V_WILD_DIR : [POS(436)] $BOOL; (* directory spec included a wild card *)U NAM$V_DIR_LVLS : [POS(437)] $BIT3; (* number of directory levels (0=ufd only) *)G NAM$V_DID : [POS(496)] $BOOL; (* Input file spec DIDed  *)G NAM$V_FID : [POS(497)] $BOOL; (* Input file spec FIDed *)L NAM$V_RES_DID : [POS(498)] $BOOL; (* Result or Exp string spec DIDed *)L NAM$V_RES_FID : [POS(499)] $BOOL; (* Result or Exp string spec FIDed *)Q NAM$V_RES_ESCAPE : [POS(500)] $BOOL; (* Result or Exp string spec has "^" *)V NAM$V_RES_UNICODE : [POS(501)] $BOOL; (* Result or Exp string spec contains ^U *) );G 5: (NAM$W_FID_RVN : [POS(320)] $UWORD; (* relative volume number *)G NAM$W _DID_RVN : [POS(368)] $UWORD; (* relative volume number *)6 NAM$R_FNB_BITS1 : [POS(416), BYTE(4)] RECORD END; );; 6: (NAM$R_FID_RVN_FIELDS : [POS(320), BYTE(2)] RECORD END;; NAM$R_DID_RVN_FIELDS : [POS(368), BYTE(2)] RECORD END;G NAM$V_WILD_UFD : [POS(440)] $BOOL; (* ufd included a wild card *)H NAM$V_WILD_SFD1 : [POS(441)] $BOOL; (* sfd1 included a wild card *)H NAM$V_WILD_SFD2 : [POS(442)] $BOOL; (* sfd2 included a wild card *)H NAM$V_WILD_SFD3 : [POS(443)] $BOOL; (* sfd3 included a wild card *)H NAM$V_WILD_SFD4 : [POS(444)] $BOOL; (* sfd4 included a wild card *)H NAM$V_WILD_SFD5 : [POS(445)] $BOOL; (* sfd5 included a wild card *)H NAM$V_WILD_SFD6 : [POS(446)] $BOOL; (* sfd6 included a wild card *)H NAM$V_WILD_SFD7 : [POS(447)] $BOOL; (* sfd7 included a wild card *) );G 7: (NAM$B_FID_RVN : [POS(320)] $UBYTE; (* alternate format RVN *)T NAM$B_FID_NMX : [POS(328)] $UBYTE; (* alternate format file number extension *)G NAM$B_DID_RVN : [POS(368)] $UBYTE; (* alternate format RVN *)T NAM$B_DID_NMX : [POS(376)] $UBYTE; (* alternate format file number extension *)6 NAM$R_FNB_BITS2 : [POS(416), BYTE(4)] RECORD END; );I 8: (NAM$V_WILD_GRP : [POS(440)] $BOOL; (* group contained a wild card *)J NAM$V_WILD_MBR : [POS(441)] $BOOL; (* member contained a wild card *)G (*-----***** *)N(* (prior to 40 byte extension)  *)N(* *)N(* Extend the NAM block by 40 bytes. *)N(* *) ) END; N(* basealign on aggregate NAMDEF operates after aggregate end *) LCONST NAM$K_BLN_DIRWC = 96; (* Not documented optional length *)G NAM$C_BLN_DIRWC = 96; (* Not documented opt ional length *)G NAM$K_BLN = 96; (* Name block length *)G NAM$C_BLN = 96; (* Name block length *) N(* Start NAML here *)N(* *)N(* name block field definitions *)N(* *)N(* The naml block is an extended version of the NAM *)N(* block used to communicate optional filename-related *)N(* information. It differs from the NAM in that it *)N(* includes a default name and a file name field and that *)N(* these as well as the result and expanded file names *)N(* have 32-bit length fields (though the top 16 bits is *)N(* required to be 0, limiting the length to 65535). There *)N(* are also some additional flags available. *)N(* *)N(* In order for RMS to recognize this block as a NAML, it must *)N(* have NAML$B_BLN set to NAML$C_BLN, and must have *)N(* NAML$B_BID set to NAML$C_BID. *)N(*  *) LCONST NAML$C_BID = 4; (* code for naml block *) N(* (Same as nam) *) OCONST NAML$C_MAXRSS = 4095; (* maximum resultant name string size *) NAML$M_PWD = 1; NAML$M_FILL_1 = 2; NAML$M_FILL_2 = 4; NAML$M_SYNCHK = 8; NAML$M_NOCONCEAL = 16; NAML$M_SLPARSE = 32; NAML$M_SRCHXABS = 64; NAML$M_NO_SHORT_UPCASE = 128;T NAML$C_UFS = 0; (* Unknown file s ystem for remote file access or *) N(* not applicable for local file access or *) LCONST NAML$C_NO_RFS = 0; (* task-to-task operation *)G NAML$C_RMS11 = 1; (* RMS-11 *)G NAML$C_RMS20 = 2; (* RMS-20 *)G NAML$C_RMS32 = 3; (* RMS-32 *)G NAML$C_FCS11 = 4; (* FCS-11 *)G NAML$C_RT11FS = 5; (* RT-11 file system *)G NAML$C_TOPS20FS = 7; (* TOPS-20 file system *)G NAML$C_TOPS10FS = 8; (* TOPS-10 file system *)G NAML$C_RMS32S = 10; (* RMS-32 subset (e.g., VAXELAN) *)G NAML$C_CPMFS = 11; (* CP/M file system *)G NAML$C_MS_DOSFS = 12; (* MS/DOS file system *)G NAML$C_ULTRIX32_FS = 13; (* Ultrix-32 file system *)G NAML$C_ULTRIX11_FS = 14; (* Ultrix-11 file system *) N(*+++++++++++++++++++++++ *) LCONST NAML$C_DVI = 16; (* length of dvi field *) N(*+++++***** *) CONST NAML$M_IFI = 65536; NAML$M_SRCHNMF = 1073741824; NAML$M_SVCTX = -2147483648;G NAML$K_BLN_V2 = 56; (* Version 2 name block length *)G NAML$C_BLN_V2 = 56; (* Version 2 name block length *) NAML$M_EXP_VER = 1; NAML$M_EXP_TYPE = 2; NAML$M_EXP_NAME = 4; NAML$M_WILD_VER = 8; NAML$M_WILD_TYPE = 16; NAML$M_WILD_NAME = 32; NAML$M_EXP_DIR = 64; NAML$M_EXP_DEV = 128; NAML$M_WILDCARD = 256; NAML$M_DIR_LVLS_G7 = 512; NAML$M_WILD_SFDG7 = 1024; NAML$M_SEARCH_LIST = 2048; NAML$M_CNCL_DEV = 4096; NAML$M_ROOT_DIR = 8192; NAML$M_LOWVER = 16384; NAML$M_HIGHVER = 32768; NAML$M_PPF = 65536; NAML$M_NODE = 131072; NAML$M_QUOTED = 262144; NAML$M_GRP_MBR = 524288; NAML$M_WILD_DIR = 1048576; NAML$M_DIR_LVLS = 14680064; NAML$M_WILD_UFD = 16777216; NAML$M_WILD_SFD1 = 33554432; NAML$M_WILD_SFD2 = 67108864; NAML$M_WILD_SFD3 = 134217728; NAML$M_WILD_SFD4 = 268435456; NAML$M_WILD_SFD5 = 536870912; NAML$M_WILD_SFD6 = 1073741824; NAML$M_WILD_SFD7 = -2147483648; NAML$M_WILD_GRP = 16777216; NAML$M_WILD_MBR = 33554432; NAML$M_DID = 1; NAML$M_FID = 2; NAML$M_RES_DID = 4; NAML$M_RES_FID = 8; NAML$M_RES_ESCAPE = 16; NAML$M_RES_UNICODE = 32; NAML$M_LONG_RESULT_ESCAPE = 1; NAML$M_FILESYS_NAME_UCS2 = 2; NAML$M_LONG_RESULT_DID = 4; NAML$M_LONG_RESULT_FID = 8;! NAML$M_LONG_RESULT_UNICODE = 16; NAML$M_MP_IN_PATH = 32; NAML$M_SYMLNK_IN_PATH = 64; NAML$M_OBJECT_SYMLINK = 128; NAML$M_NO_SHORT_OUTPUT = 1;G NAML$C_CASE_LOOKUP_BLIND = 2; (* case blind *)G NAML$C_CASE_LOOKUP_SENSITIVE = 3; (* case sensitive *) NAM L$M_OPEN_SPECIAL = 8; NAML$M_SEARCH_SYMLINK = 16; 'TYPE NAML$TYPE = RECORD CASE INTEGER OFG 1: (NAML$B_BID : $UBYTE; (* block id *)G NAML$B_BLN : $UBYTE; (* block length *)G (*+++++++++++++++++++++++ *)l (* the following 3 fields must not be rearranged relative to each other *)G (* *)G NAML$B_RSS : $UBYTE; (* resultant string area size *)G NAML$B_RSL : $UBYTE; (* resultant string length *)G NAML$L_RSA : UNSIGNED; (* resultant string area address *)G (*----------------------- *)/ NAML$R_NOP_OVERLAY : [BYTE(1)] RECORD END;Y NAML$B_RFS : $UBYTE; (* Remote file system type (currently not documented) *)V (* Note: This field is reserved for use by Digital *)l (* the following 3 fields must not be rearranged relative to each other *)G (* *)G NAML$B_ESS : $UBYTE; (* espanded string area size *)G NAML$B_ESL : $UBYTE; (* expanded string length *)G NAML$L_ESA : UNSIGNED; (* expanded string area address *)G (*----------------------- *)/ N AML$R_RLF_OVERLAY : [BYTE(4)] RECORD END;G NAML$T_DVI : PACKED ARRAY [1..16] OF CHAR; (* device id *)U (* the location of the following fields must not *)X (* be changed due to their commonality with the fib *)/ NAML$R_FID_OVERLAY : [BYTE(6)] RECORD END;/ NAML$R_DID_OVERLAY : [BYTE(6)] RECORD END;/ NAML$R_WCC_OVERLAY : [BYTE(4)] RECORD END;/ NAML$R_FNB_OVERLAY : [BYTE(4)] RECORD END;G NAML$B_NODE : $UBYTE; (* Nodespec length *)G NAML$B_DEV : $UBYTE; (* Device length *)G NAML$B_DIR : $UBYTE; (* Directory length *)G NAML$B_NAME : $UBYTE; (* Filename length *)G NAML$B_TYPE : $UBYTE; (* Filetype length *)G NAML$B_VER : $UBYTE; (* Version number length *)J NAML$R_NMC_OVERLAY : [BYTE(1)] RECORD END; (* Name characteristics *)G NAMLDEF$$_FILL_6 : ARRAY [1..1] OF $BYTE; (* Currently unused *)G NAML$L_NODE : UNSIGNED; (* Nodespec address *)G NAML$L_DEV : UNSIGNED; (* Device address *)G NAML$L_DIR : UNSIGNED; (* Directory address *)G NAML$L_NAME : UNSIGNED; (* Filename address *)G NAML$L_TYPE : UNSIGNED; (* Filetype address *)G NAML$L_VER : UNSIGNED; (* Version number address *)M NAML$W_FIRST_WILD_DIR : $UWORD; (*First wild directory in related nam *)G NAML$W_LONG_DIR_LEVELS : $UWORD; (*Total number of directories *)H NAMLDEF$$_FILL_7 : ARRAY [1..1] OF UNSIGNED; (* Currently unused *)G (* New NAML-only items: *)G NAML$L_LONG_DEFNAME_SIZE : UNSIGNED; (*Analogous to FAB$B_DNS *)G NAML$L_LONG_DEFNAME : UNSIGNED; (*Analogous to FAB$L_DNS *)G NAML$L_LONG_FILENAME_SIZE : UNSIGNED; (*Analogous to FAB$B_FNS *)G NAML$L_LONG_FILENAME : UNSIGNED; (*Analogous to FAB$L_FNS *)G NAML$L_LONG_NODE_SIZE : UNSIGNED; (*Analogous to NAM$B_NODE *)G NAML$L_LONG_NODE : UNSIGNED; (*Analogous to NAM$L_NODE *)G NAML$L_LONG_DEV_SIZE : UNSIGNED; (*Analogous to NAM$B_DEV *)G NAML$L_LONG_DEV : UNSIGNED; (*Analogous to NAM$L_DEV *)G NAML$L_LONG_DIR_SIZE : UNSIGNED; (*Analogous to NAM$B_DIR *)G NAML$L_LONG_DIR : UNSIGNED; (*Analogous to NAM$L_DIR *)G NAML$L_LONG_NAME_SIZE : UNSIGNED; (*Analogous to NAM$B_NAME *)G NAML$L_LONG_NAME : UNSIGNED; (*Analogous to NAM$L_NAME *)G NAML$L_LONG_TYPE_SIZE : UNSIGNED; (*Analogous to NAM$B_TYPE *)G NAML$L_LONG_TYPE : UNSIGNED; (*Analogous to NAM$L_TYPE *)G NAML$L_LONG_VER_SIZE : UNSIGNED; (*Analogous to NAM$B_VER *)G NAML$L_LONG_VER : UNSIGNED; (*Analogous to NAM$L_VER *)s  (*The following three "LONG_EXPAND" fields must be fixed relative to each other *)G NAML$L_LONG_EXPAND_SIZE : UNSIGNED; (*Analogous to NAM$B_ESL *)G NAML$L_LONG_EXPAND : UNSIGNED; (*Analogous to NAM$L_ESA *)G NAML$L_LONG_EXPAND_ALLOC : UNSIGNED; (*Analogous to NAM$B_ESS *)% NAML$L_RESERVED_MBZ_9 : INTEGER;s (*The following three "LONG_RESULT" fields must be fixed relative to each other *)G NAML$L_LONG_RESULT_SIZE : UNSIGNED; (*Analogous to NAM$B_RSL *)G NAML$L_LONG_RESULT : UNSIGNED; (*Analogous to NAM$L_RSA *)G NAML$L_LONG_RESULT_ALLOC : UNSIGNED; (*Analogous to NAM$B_RSS *)^ NAML$L_RESERVED_MBZ_8 : INTEGER; (* Reserved to Digital for future use. Must be zero. *)t (*The following three "FILESYS_NAME" fields must be fixed relative to each other *)) NAML$L_FILESYS_NAME_SIZE : UNSIGNED;$ NAML$L_FILESYS_NAME : UNSIGNED;* NAML$L_FILESYS_NAME_ALLOC : UNSIGNED;Z NAML$R_OUTPUT_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flags set or cleared by RMS *)\ NAML$R_INPUT_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flags specified by user to RMS *)^ NAML$L_RESERVED_MBZ_7 : INTEGER; (* Reserved to Digital for future use. Must be zero. *)" NAML$Q_USER_CONTEXT : $UQUAD;^ NAML$L_RESERVED_MBZ_6 : INTEGER; (* Reserved to Digital for future use. Must be zero. *)^ NAML$L_RESERVED_MBZ_5 : INTEGER; (* Reserved to Digital for future use. Must be zero. *)^ NAML$L_RESERVED_MBZ_4 : INTEGER; (* Reserved to Digital for future use. Must be zero. *)^ NAML$L_RESERVED_MBZ_3 : INTEGER; (* Reserved to Digital for future use. Must be zero. *)^ NAML$L_RESERVED_MBZ_2 : INTEGER; (* Reserved to Digital for future use. Must be zero. *)^ NAML$L_RESERVED_MBZ_1 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) );G 2: (NAML$B_NOP : [POS(64)] $UBYTE; (* Name options *)H  NAML$L_RLF : [POS(128)] UNSIGNED; (* related file nam block addr *)G NAML$W_FID : [POS(288)] ARRAY [1..3] OF $UWORD; (* file id *)G NAML$W_DID : [POS(336)] ARRAY [1..3] OF $UWORD; (* directory id *)G NAML$L_WCC : [POS(384)] UNSIGNED; (* wild card context *)G NAML$L_FNB : [POS(416)] UNSIGNED; (* file name status bits *)$ NAML$B_NMC : [POS(496)] $UBYTE;0 NAML$L_OUTPUT_FLAGS : [POS(1632)] UNSIGNED;/ NAML$L_INPUT_FLAGS : [POS(1664)] UNSIGNED;  );5 3: (NAML$R_NOP_BITS : [POS(64), BYTE(1)] RECORD END;O NAML$L_RLF_NAML : [POS(128)] UNSIGNED; (* related file naml block addr *)8 NAML$R_FID_FIELDS : [POS(288), BYTE(6)] RECORD END;8 NAML$R_DID_FIELDS : [POS(336), BYTE(6)] RECORD END;6 NAML$R_WCC_BITS : [POS(384), BYTE(4)] RECORD END;7 NAML$R_FNB_BITS0 : [POS(416), BYTE(3)] RECORD END;6 NAML$R_NMC_BITS : [POS(496), BYTE(1)] RECORD END;@ NAML$R_OUTPUT_FLAGS_BITS : [POS(1632), BYTE(1)] RECORD END;? NAML$R_INPUT_FLAGS_BITS : [POS(1664), BYTE(1)] RECORD END; );^ 4: (NAML$V_PWD : [POS(64)] $BOOL; (* Return password if present in nodespec string and any *)Y (* other task-specific data of the form /netacp_data" *)Z (* (default is to mask out password from expanded and *)[ (* resultant name strings and to create a logical name *)[ (* whose equivalence string is the unaltered nodespec) *)R NAML$V_FILL_1 : [POS(65)] $BOOL; (* unused. (used to be undocumented ROD) *)R NAML$V_FILL_2 : [POS(66)] $BOOL; (* unused. (used to be undocumented SOD) *)T NAML$V_SYNCHK : [POS(67)] $BOOL; (* Only do syntax check on $parse operation *)S NAML$V_NOCONCEAL : [POS(68)] $BOOL; (* Do not conceal device/root directory *)b NAML$V_SLPARSE : [POS(69)] $BOOL; (* Parse search list (not documented) -- used by BACKUP. *)b NAML$V_SRCHXABS : [POS(70)] $BOOL; (* Fill in attached XABS on $SEARCH operations over the *)V (* network (not documented) -- used by directory. *)I NAML$V_NO_SHORT_UPCASE : [POS(71)] $BOOL; (* Don't upcase the ESA *)G NAML$W_FID_NUM : [POS(288)] $UWORD; (* file number *)G NAML$W_FID_SEQ : [POS(304)] $UWORD; (* sequence number *)= NAML$R_FID_RVN_OVERLAY : [POS(320), BYTE(2)] RECORD END;G NAML$W_DID_NUM : [POS(336)] $UWORD; (* file number  *)G NAML$W_DID_SEQ : [POS(352)] $UWORD; (* sequence number *)= NAML$R_DID_RVN_OVERLAY : [POS(368), BYTE(2)] RECORD END;H NAML$V_IFI : [POS(400)] $BOOL; (* the first word contains an IFI *)\ NAML$V_SRCHNMF : [POS(414)] $BOOL; (* no-more-files has been encountered on a search *)L NAML$V_SVCTX : [POS(415)] $BOOL; (* save context across search calls *)G NAML$V_EXP_VER : [POS(416)] $BOOL; (* version was explicit *)G NAML$V_EXP_TYPE : [POS(417)] $BOOL; (* type was explicit *)G NAML$V_EXP_NAME : [POS(418)] $BOOL; (* name was explicit *)L NAML$V_WILD_VER : [POS(419)] $BOOL; (* version contained a wild card *)J NAML$V_WILD_TYPE : [POS(420)] $BOOL; (* type contained a wild card *)J NAML$V_WILD_NAME : [POS(421)] $BOOL; (* name contained a wild card *)G NAML$V_EXP_DIR : [POS(422)] $BOOL; (* directory was explicit *)G NAML$V_EXP_DEV : [POS(423)] $BOOL; (* device was explicit *)S NAML$V_WILDCARD : [POS(424)] $BOOL; (* filename string included a wild card *)M (* (inclusive or of other wild card bits) *)K NAML$V_DIR_LVLS_G7 : [POS(425)] $BOOL; (* Dir levels greater than 7 *)W NAML$V_WILD_SFDG7 : [POS(426)] $BOOL; (* A subdir greater than 7 has a wildcard *)G NAML$V_SEARCH_LIST : [POS(427)] $BOOL; (* search list present *)G NAML$V_CNCL_DEV : [POS(428)] $BOOL; (* concealed device present *)G NAML$V_ROOT_DIR : [POS(429)] $BOOL; (* root directory present *)W NAML$V_LOWVER : [POS(430)] $BOOL; (* lower numbered version(s) of file exist(s) *)G NAML$V_HIGHVER : [POS(431)] $BOOL; (* higher " *)G (* *)V NAML$V_PPF : [POS(432)] $BOOL; (* process-permanent file referenced indirectly *)U NAML$V_NODE : [POS(433)] $BOOL; (* filename specification included a nodename *)S NAML$V_QUOTED : [POS(434)] $BOOL; (* filename spec included a quoted string *)W NAML$V_GRP_MBR : [POS(435)] $BOOL; (* directory spec was of group-member format *)R NAML$V_WILD_DIR : [POS(436)] $BOOL; (* directory spec included a wild card *)V NAML$V_DIR_LVLS : [POS(437)] $BIT3; (* number of directory levels (0=ufd only) *)G NAML$V_DID : [POS(496)] $BOOL; (* Input file spec DIDed *)G NAML$V_FID : [POS(497)] $BOOL; (* Input file spec FIDed *)M NAML$V_RES_DID : [POS(498)] $BOOL; (* Result or Exp string spec DIDed *)M NAML$V_RES_FID : [POS(499)] $BOOL; (* Result or Exp string spec FIDed *)R NAML$V_RES_ESCAPE : [POS(500)] $BOOL; (* Result or Exp string spec has "^" *)W NAML$V_RES_UNICODE : [POS(501)] $BOOL; (* Result or Exp string spec contains ^U *)i NAML$V_LONG_RESULT_ESCAPE : [POS(1632)] $BOOL; (* There is an escape character in the long output *)b NAML$V_FILESYS_NAME_UCS2 : [POS(1633)] $BOOL; (* The filesys name output is 2-byte Unicode *)Z NAML$V_LONG_RESULT_DID : [POS(1634)] $BOOL; (* There is DIDding in the long output *)Z NAML$V_LONG_RESULT_FID : [POS(1635)] $BOOL; (* There is FIDding in the long output *)e NAML$V_LONG_RESULT_UNICODE : [POS(1636)] $BOOL; (* Long Result or Exp string spec contains ^U *)[ NAML$V_MP_IN_PATH : [POS(1637)] $BOOL; (* mount point encountered in directory path *)[ NAML$V_SYMLNK_IN_PATH : [POS(1638)] $BOOL; (* symlink encountered in directory path *)h NAML$V_OBJECT_SYMLINK : [POS(1639)] $BOOL; (* The specified object is a symlink ($OPEN, $SEARCH) *)N(* The rest of the longword also reserved. *)Q NAML$V_NO_SHORT_OUTPUT : [POS(1664)] $BOOL; (* Don't write to RSA and ESA *)H NAML$V_CASE_LOOKUP : [POS(1665)] $BIT2; (* name case lookup mode *)Z NAML$V_OPEN_SPECIAL : [POS(1667)] $BOOL; (* $OPEN a special file, rather than the *)P (* object referred to by the special file. *)\ NAML$V_SEARCH_SYMLINK : [POS(1668)] $BOOL; (* Cause $SEARCH to check resultant files *)P (* for symlinks, and return DVI/FID for the *)G (* referenced file. *)_ (* The rest of the longword also reserved and must be zero. *) );G 5: (NAML$W_FID_RVN : [POS(320)] $UWORD; (* relative volume number *)G NAML$W_DID_RVN : [POS(368)] $UWORD; (* relative volume number *)7 NAML$R_FNB_BITS1 : [POS(416), BYTE(4)] RECORD E ND; );< 6: (NAML$R_FID_RVN_FIELDS : [POS(320), BYTE(2)] RECORD END;< NAML$R_DID_RVN_FIELDS : [POS(368), BYTE(2)] RECORD END;G NAML$V_WILD_UFD : [POS(440)] $BOOL; (* ufd included a wild card *)I NAML$V_WILD_SFD1 : [POS(441)] $BOOL; (* sfd1 included a wild card *)I NAML$V_WILD_SFD2 : [POS(442)] $BOOL; (* sfd2 included a wild card *)I NAML$V_WILD_SFD3 : [POS(443)] $BOOL; (* sfd3 included a wild card *)I NAML$V_WILD_SFD4 : [POS(444)] $BOOL; (* sfd4 included a wil d card *)I NAML$V_WILD_SFD5 : [POS(445)] $BOOL; (* sfd5 included a wild card *)I NAML$V_WILD_SFD6 : [POS(446)] $BOOL; (* sfd6 included a wild card *)I NAML$V_WILD_SFD7 : [POS(447)] $BOOL; (* sfd7 included a wild card *) );G 7: (NAML$B_FID_RVN : [POS(320)] $UBYTE; (* alternate format RVN *)U NAML$B_FID_NMX : [POS(328)] $UBYTE; (* alternate format file number extension *)G NAML$B_DID_RVN : [POS(368)] $UBYTE; (* alternate format RVN *)U NAML$B_DID_NMX : [POS(376)] $UBYTE; (* alternate format file number extension *)7 NAML$R_FNB_BITS2 : [POS(416), BYTE(4)] RECORD END; );J 8: (NAML$V_WILD_GRP : [POS(440)] $BOOL; (* group contained a wild card *)K NAML$V_WILD_MBR : [POS(441)] $BOOL; (* member contained a wild card *) ) END; N(* basealign on aggregate NAMLDEF operates after aggregate end *) LCONST NAML$K_BLN = 248; (* Name block length *)G NAML$C_BLN = 248; (* Name block length *) (*** MODULE $XABDEF ***)LCONST XAB$C_CXT_VER1 = 1; (* RMS Context Extraction version 1 *)N(* $xabfhcdef *)NCONST XAB$C_FHC = 29; (* xabfhc id code *) XAB$M_FTN = 1; XAB$M_CR = 2; XAB$M_PRN = 4; XAB$M_BLK = 8;N XAB$K_FHCLEN = 44; (* length of xabfhc *)N XAB$C_FHCL EN = 44; (* length of xabfhc *)N(* $xaballdef *)NCONST XAB$C_ALL = 20; (* xaball id code *) XAB$M_HRD = 1; XAB$M_ONC = 2; XAB$M_CBT = 32; XAB$M_CTG = 128;N XAB$C_ANY = 0; (* any allocation o.k. *)N XAB$C_CYL = 1; (* cylinder boundary *)N XAB$C_LBN = 2; (* allocate at specified lbn *)N XAB$C_VBN = 3; (* allocate near specified vbn *)N XAB$C_RFI = 4; (* allocate near related file *)N XAB$K_ALLLEN = 32; (* length of xaball *)N XAB$C_ALLLEN = 32; (* length of xaball *)N(* $xabdatdef *)NCONST XAB$C_DAT = 18; (* xabdat id code *)N XAB$K_DATLEN_V2 = 36; (* Version 2 XABDAT length *)N XAB$C_DATLEN_V2 = 36; (* Version 2 XABDAT length *)N XAB$K_DATLEN_V54 = 44; (* length of XABDAT *)N XAB$C_DATLEN_V54 = 44; (* length of XABDAT *)^ XAB$K_DATLEN_PRE_ACCDATES = 60; (* XABDAT length before addition of 3 access dates *)^ XAB$C_DATLEN_PRE_ACCDATES = 60; (* XABDAT length before addition of 3 access dates *)^ XAB$K_DATLEN_POST_ACCDATES = 84; (* XABDAT length after addition of 3 access dates *)^ XAB$C_DATLEN_POST_ACCDATES = 84; (* XABDAT length after addition of 3 access dates *)N XAB$K_DATLEN = 84; (* length of XABDAT *)N XAB$C_DATLEN = 84; (* length of XABDAT *)N(* $xabrdtdef *)NCONST XAB$C_RDT = 30;  (* xabrdt id code *)N XAB$K_RDTLEN = 20; (* length of rdt xab *)N XAB$C_RDTLEN = 20; (* length of rdt xab *)N(* $xabprodef *)NCONST XAB$C_PRO = 19; (* xabpro id code *) XAB$M_NOREAD = 1; XAB$M_NOWRITE = 2; XAB$M_NOEXE = 4; XAB$M_NODEL = 8;CONST XAB$M_PROPAGATE = 1;N XAB$K_PROLEN_V3 = 16; (* V3a xabpro length *)N XAB$C_PROLEN_V3 = 16; (* V3a xabpro length *)N XAB$K_PROLEN = 88; (* xabpro length *)N XAB$C_PROLEN = 88; (* xabpro length *)N(* $xabtrmdef *)NCONST XAB$C_TRM = 31; (*XABTRM ID CODE *)T XAB$K_TRMLEN  = 36; (* length of xab of type terminal control *)T XAB$C_TRMLEN = 36; (* length of xab of type terminal control *)N(* $xabsumdef *)NCONST XAB$C_SUM = 22; (* xabsum id code *)N XAB$K_SUMLEN = 12; (* xabsum length *)N XAB$C_SUMLEN = 12; (* xabsum length *)N(* $xabkeydef  *)NCONST XAB$C_KEY = 21; (* xabkey id code *) XAB$M_DUP = 1; XAB$M_CHG = 2; XAB$M_NUL = 4; XAB$M_IDX_NCMPR = 8; XAB$M_KEY_NCMPR = 64; XAB$M_DAT_NCMPR = 128;N XAB$C_STG = 0; (* string *)N XAB$C_IN2 = 1; (* signed 15 bit integer (2 bytes) *)N XAB$C_BN2 = 2; (* 2 byte binary *)N XAB$C_IN4 = 3; (* signed 31 bit integer (4 bytes) *)N XAB$C_BN4 = 4; (* 4 byte binary *)N XAB$C_PAC = 5; (* packed decimal (1-16 bytes) *)N XAB$C_IN8 = 6; (* signed 63 bit integer (4 bytes) *)N XAB$C_BN8 = 7; (* 8 byte binary *)N XAB$C_COL = 8; (* collated *)N XAB$C_MAX_ASCEND = 8; (* maximum ascending type *)N XAB$C_DSTG = 32; (* descending string *)N XAB$C_DIN2 = 33; (* " signed word *)N XAB$C_DBN2 = 34; (* " unsigned word *)N XAB$C_DIN4 = 35; (* " signed longword *)N XAB$C_DBN4 = 36; (* " unsigned longword *)N XAB$C_DPAC = 37; (* " packed decimal *)N XAB$C_DIN8 = 38; (* " signed quadword *)N XAB$C_DBN8 = 39; (* " unsigned quadword *)N XAB$C_DCOL = 40; (* " collated *)N XAB$C_MAXDTP = 40; (* max. legal data type *)N XAB$K_KEYLEN_V2 = 64; (* old xabkey length *)N XAB$C_KEYLEN_V2 = 64; (* old xabkey length *)NCONST XAB$C_PRG3 = 3; (* Prologue version three *)N XAB$C_PRG2 = 2; (* Prologue version two *)N XAB$C_PRG1 = 1; (* Prologue versoin one *)N XAB$K_KEYLEN_V4 = 76; (* xabkey length until V5 *)N XAB$C_KEYLEN_V4 = 76; (* xabkey length until V5 *)N XAB$K_KEYLEN = 100; (* xabkey length for V5  *)N XAB$C_KEYLEN = 100; (* xabkey length for V5 *)N(* $xabcxfdef *)NCONST XAB$C_CXF = 32; (* XABCXF id code *) XAB$M_CXFRST = 1;N XAB$K_CXFLEN = 60; (* length of xab type CXF *)N XAB$C_CXFLEN = 60; (* length of xab type CXF *)N(* $xabcxrdef  *)NCONST XAB$C_CXR = 33; (* XABCXR id code *) XAB$M_CXRRST = 1; XAB$C_CXB_VER1 = 1;N XAB$C_CXRBLEN = 512; (* Length of CXRBUF (bytes) *)N XAB$K_CXRLEN = 84; (* Length of XAB type CXR *)N XAB$C_CXRLEN = 84; (* Length of XAB type CXR *)N(* $xabjnldef *)NCONST XAB$C_JNL = 34;  (* xabjnl id code *) XAB$C_JNL_TYPE_NONE = 0;N XAB$C_AI = 1; (* AI journal *)N XAB$C_BI = 2; (* BI journal *)N XAB$C_AT = 3; (* AT journal *)N XAB$C_RU_DEFAULT = 4; (* default RU volume *)# XAB$M_JOURNAL_DISABLED = 1; XAB$M_BACKUP_DONE = 2; XAB$K_JNLLEN = 80;  XAB$C_JNLLEN = 80;NCONST XAB$C_ITM = 36; (* xabitm id code *)N(* $xabrudef *)NCONST XAB$C_RU = 35; (* xabru id code *) XAB$M_NOJOIN = 1; XAB$K_RULEN = 48; XAB$C_RULEN = 48; N(* *)N(* definitions for all xabs  *)N(* $xabdef *)N(* *)N(* the first four fields are shared in common between all xabs *)N(* and hence are defined only once *)N(* (the only exception is that the spare word may be used by some xabs) *)N(* *) &TYPE XAB$T YPE = RECORD CASE INTEGER OFG 1: (XAB$B_COD : $UBYTE; (* xab id code *)G XAB$B_BLN : $UBYTE; (* block length *)G XABDEF$$_FILL_1 : $WORD; (* (spare) *)G XAB$L_NXT : UNSIGNED; (* xab chain link *) XAB$W_RVN : $UWORD; XABDEF$$_FILL_2 : $WORD;. XAB$R_RDT_OVERLAY : [BYTE(8)] RECORD END; );! 2: (XAB$Q_RDT : [POS(96)] $QUAD; );6 3: (XAB$R_RDT_FIELDS : [POS(96), BYTE(8)] RECORD END; );% 4: (XAB$L_RDT0 : [POS(96)] UNSIGNED;& XAB$L_RDT4 : [POS(128)] UNSIGNED;G (*COMMON AMONG DAT AND RDT XABS *) );R 5: (XAB$B_BKZ : [POS(176)] $UBYTE; (*COMMON TO FHC AND ALQ XABS *) ); (*** MODULE $XABFHCDEF ***) 4 6: (XAB$R_XABFHCDEF : [BYTE(44)] RECORD END; ); 7: (XABFHCDEF$$_FILL_1 : $BYTE; XABFHCDEF$$_FILL_2 : $BYTE; XABFHCDEF$$_FILL_3 : $WORD;O XABFHCDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G (*HAVE BEEN DEFINED BY $XABDEF *)G XAB$B_RFO : $UBYTE; (* record format and file org *)* XAB$R_FILL_8_ : [BYTE(1)] RECORD END;G XAB$W_LRL : $UWORD; (* longest record's length *). XAB$R_HBK_OVERLAY : [BYTE(4)] RECORD END;. XAB$R_EBK_OVERLAY : [BYTE(4)] RECORD END;G XAB$W_FFB : $UWORD; (* first free byte in eof block *)U XABFHCDEF$$_FILL_5 : $BYTE; (* bucket size for fhc ( note: field name is bkz, *)] (* defined above in $xabdef,since it is shared by the fhc *)N (* xab and has the same offset, of course) *)G (*-----***** *)G (*HAVE BEEN DEFINED BY $XABDEF  *)S (* defined above in $xabdef, since it is shared *)G (* by the all xab) *)G XAB$B_HSZ : $UBYTE; (* header size for vfc *)G XAB$W_MRZ : $UWORD; (* max record size *)G XAB$W_DXQ : $UWORD; (* default extend quantity *)G XAB$W_GBC : $UWORD; (* global buffer count *)P XABFHCDEF$$_FILL_6 : ARRAY [1..8] O F $BYTE; (* spares (pad to last word) *)G XAB$W_VERLIMIT : $UWORD; (* version limit for file. *)G (*-----***** *)G XAB$L_SBN : UNSIGNED; (* starting lbn if contiguous *) );G 8: (XAB$B_ATR : [POS(72)] $UBYTE; (* record attributes *)G XAB$L_HBK : [POS(96)] UNSIGNED; (* hi vbn allocated *)N(* (n.b. reversed on disk!) *)G  XAB$L_EBK : [POS(128)] UNSIGNED; (* eof vbn *)N(* (n.b. reversed on disk) *) );6 9: (XAB$R_HBK_FIELDS : [POS(96), BYTE(4)] RECORD END;7 XAB$R_EBK_FIELDS : [POS(128), BYTE(4)] RECORD END; );H 10: (XAB$V_FTN : [POS(72)] $BOOL; (* fortran carriage-ctl *)G XAB$V_CR : [POS(73)] $BOOL; (* lf-record-cr carriage ctl *)G XAB$V_PRN : [POS(74)] $BOOL; (* print-file carriage ctl *)L XAB$V_BLK : [POS(75)] $BOOL; (* records don't cross block boundaries *)# XAB$W_HBK0 : [POS(96)] $UWORD;$ XAB$W_HBK2 : [POS(112)] $UWORD;$ XAB$W_EBK0 : [POS(128)] $UWORD;$ XAB$W_EBK2 : [POS(144)] $UWORD; ); (*** MODULE $XABALLDEF ***) 4 11:(XAB$R_XABALLDEF : [BYTE(32)] RECORD END; );! 12: (XABALLDEF$$_FILL_1 : $BYTE; XABALLDEF$$_FILL_2 : $BYTE; XABALLDEF$$_FILL_3 : $WORD;O XABALLDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G (*HAVE BEEN DEFINED BY $XABDEF *). XAB$R_AOP_OVERLAY : [BYTE(1)] RECORD END;G XAB$B_ALN : $UBYTE; (* alignment type *)I XAB$W_VOL : $UWORD; (* relative volume no. for allocation *)K (* (not applicable if aln = vbn or rfi) *)G XAB$L_LOC : UNSIGNED; (* allocation location *)G XAB$L_ALQ : UNSIGNED; (* allocation quantity *)G XAB$W_DEQ : $UWORD; (* default allocation quantity *)U XABALLDEF$$_FILL_7 : $BYTE; (* bucket size for area (note: field name is bkz, *)] (* defined above in $xabdef,since it is shared by the fhc *)N (* xab and has the same offset, of course) *)G (*-----*****  *)G (*HAVE BEEN DEFINED BY $XABDEF *)G XAB$B_AID : $UBYTE; (* area id number *). XAB$R_RFI_OVERLAY : [BYTE(6)] RECORD END;G XABALLDEF$$_FILL_8 : $WORD; (* (spare) *) );H 13: (XAB$B_AOP : [POS(64)] $UBYTE; (* allocation options *)I XAB$W_RFI : [POS(192)] ARRAY [1..3] OF $UWORD; (* related file id *) );5 14: (XAB$R_AOP_BITS : [POS(64), BYTE(1)] RECORD END;7  XAB$R_RFI_FIELDS : [POS(192), BYTE(6)] RECORD END; );O 15: (XAB$V_HRD : [POS(64)] $BOOL; (* fail if requested alignment impossible *)P XAB$V_ONC : [POS(65)] $BOOL; (* locate allocated space within a cylinder *)H XAB$V_CBT : [POS(69)] $BOOL; (* contiguous alllocation, best try *)G XAB$V_CTG : [POS(71)] $BOOL; (* contiguous allocation *)G XAB$W_RFI0 : [POS(192)] $UWORD; (* file number *)G XAB$W_RFI2 : [POS(208)] $UWORD; (* seq number  *)G XAB$W_RFI4 : [POS(224)] $UWORD; (* rev number *) ); (*** MODULE $XABDATDEF ***) 4 16:(XAB$R_XABDATDEF : [BYTE(84)] RECORD END; );! 17: (XABDATDEF$$_FILL_1 : $BYTE; XABDATDEF$$_FILL_2 : $BYTE; XABDATDEF$$_FILL_3 : $WORD;O XABDATDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G  (*HAVE BEEN DEFINED BY $XABDEF *)] XABDATDEF$$_FILL_5 : $WORD; (*REVISION !,DEFINED IN $XABDEF,SINCE COMMON TO DAT & RDT *)G XABDATDEF$$_FILL_6 : $WORD; (* spare *)N XABDATDEF$$_FILL_7 : $QUAD; (* revision date & time,defined in $xabdef *). XAB$R_CDT_OVERLAY : [BYTE(8)] RECORD END;. XAB$R_EDT_OVERLAY : [BYTE(8)] RECORD END;. XAB$R_BDT_OVERLAY : [BYTE(8)] RECORD END;. XAB$R_RCD_OVERLAY : [BYTE(8)] RECORD END;. XAB$R_EFF_O VERLAY : [BYTE(8)] RECORD END;. XAB$R_ACC_OVERLAY : [BYTE(8)] RECORD END;. XAB$R_ATT_OVERLAY : [BYTE(8)] RECORD END;. XAB$R_MOD_OVERLAY : [BYTE(8)] RECORD END; );H 18: (XAB$Q_CDT : [POS(160)] $QUAD; (* creation date & time *)G XAB$Q_EDT : [POS(224)] $QUAD; (* expiration date & time *)G XAB$Q_BDT : [POS(288)] $QUAD; (* backup date and time *)G XAB$Q_RCD : [POS(352)] $QUAD; (* Recorded date and time *)G XAB$Q_EFF : [POS(41 6)] $QUAD; (* Effective date and time *)G XAB$Q_ACC : [POS(480)] $QUAD; (* Access date and time *)G XAB$Q_ATT : [POS(544)] $QUAD; (* Attribute change date and time *)H XAB$Q_MOD : [POS(608)] $QUAD; (* data Modification date and time *) );8 19: (XAB$R_CDT_FIELDS : [POS(160), BYTE(8)] RECORD END;7 XAB$R_EDT_FIELDS : [POS(224), BYTE(8)] RECORD END;7 XAB$R_BDT_FIELDS : [POS(288), BYTE(8)] RECORD END;7 XAB$R_RCD_FIELDS : [POS(352), BYTE(8)] RECORD  END;7 XAB$R_EFF_FIELDS : [POS(416), BYTE(8)] RECORD END;7 XAB$R_ACC_FIELDS : [POS(480), BYTE(8)] RECORD END;7 XAB$R_ATT_FIELDS : [POS(544), BYTE(8)] RECORD END;7 XAB$R_MOD_FIELDS : [POS(608), BYTE(8)] RECORD END; );' 20: (XAB$L_CDT0 : [POS(160)] UNSIGNED;& XAB$L_CDT4 : [POS(192)] UNSIGNED;& XAB$L_EDT0 : [POS(224)] UNSIGNED;& XAB$L_EDT4 : [POS(256)] UNSIGNED;& XAB$L_BDT0 : [POS(288)] UNSIGNED;& XAB$L_BDT4 : [POS(320)] UNSIGNED;& XAB$L_RCD0 : [POS(352)] UNSIGNED;& XAB$L_RCD4 : [POS(384)] UNSIGNED;& XAB$L_EFF0 : [POS(416)] UNSIGNED;& XAB$L_EFF4 : [POS(448)] UNSIGNED;& XAB$L_ACC0 : [POS(480)] UNSIGNED;& XAB$L_ACC4 : [POS(512)] UNSIGNED;& XAB$L_ATT0 : [POS(544)] UNSIGNED;& XAB$L_ATT4 : [POS(576)] UNSIGNED;& XAB$L_MOD0 : [POS(608)] UNSIGNED;& XAB$L_MOD4 : [POS(640)] UNSIGNED; ); (*** MODULE $XABRDTDEF ***) 4 21:(XAB$R_XABRDTDEF : [BYTE(20)] RECORD END; );(*** MODULE $XABPRODEF ***) 2 22: (XAB$R_XABPRODEF_BITS : [BYTE(1)] RECORD END; );H 23: (XAB$V_NOREAD : [POS(0)] $BOOL; (* deny read access *)G XAB$V_NOWRITE : [POS(1)] $BOOL; (* deny write access *)G XAB$V_NOEXE : [POS(2)] $BOOL; (* deny execution access *)G XAB$V_NODEL : [POS(3)] $BOOL; (* deny delete access *) ); 4 24:(XAB$R_XABPRODEF : [BYTE(88)] RECORD END; );! 25: (XABPRODEF$$_FILL_1 : $ BYTE; XABPRODEF$$_FILL_2 : $BYTE; XABPRODEF$$_FILL_3 : $WORD;O XABPRODEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G (*HAVE BEEN DEFINED BY $XABDEF *). XAB$R_PRO_OVERLAY : [BYTE(2)] RECORD END;G XAB$B_MTACC : $UBYTE; (* Magtape access control char. *)3 XAB$R_PROT_OPT_OVERLAY : [BYTE(1)] RECORD END;. XAB$R_UIC_OVERLAY : [BYTE(4)] RECORD END;X XAB$R_PROT_MODE_OVERLAY : [BYTE(8)] RECORD END; (* RWED/mode protection for file *)G XAB$L_ACLBUF : UNSIGNED; (* address of user's ACL buffer *)G XAB$W_ACLSIZ : $UWORD; (* size of user's ACL buffer *)G XAB$W_ACLLEN : $UWORD; (* return length of entire ACL *)G XAB$L_ACLCTX : UNSIGNED; (* ACL context field *)G XAB$L_ACLSTS : UNSIGNED; (* ACL return err status *)G XABPRODEF$$_FILL_10 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_11 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_12 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_13 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_14 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_15 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_16 : UNSIGNED; (* spare *)G  XABPRODEF$$_FILL_17 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_18 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_19 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_20 : UNSIGNED; (* spare *)G XABPRODEF$$_FILL_21 : UNSIGNED; (* spare *) );H 26: (XAB$W_PRO : [POS(64)] $UWORD; (* protection mask *)G XAB$B_PROT_OPT : [POS(88)] $UBYTE; (* XABPRO opti ons field *)G XAB$L_UIC : [POS(96)] UNSIGNED; (* uic code *)K XAB$Q_PROT_MODE : [POS(128)] $QUAD; (* eventually may be a quadword *) );5 27: (XAB$R_PRO_BITS : [POS(64), BYTE(2)] RECORD END;; XAB$R_PROT_OPT_FIELDS : [POS(88), BYTE(1)] RECORD END;6 XAB$R_UIC_FIELDS : [POS(96), BYTE(4)] RECORD END;= XAB$R_PROT_MODE_FIELDS : [POS(128), BYTE(1)] RECORD END; );H 28: (XAB$V_SYS : [POS(64)] $BIT4; (* system *)G  XAB$V_OWN : [POS(68)] $BIT4; (* owner *)G XAB$V_GRP : [POS(72)] $BIT4; (* group *)G XAB$V_WLD : [POS(76)] $BIT4; (* world *)a XAB$V_PROPAGATE : [POS(88)] $BOOL; (* Propagate security attributes on $ENTER and $RENAME *)G XAB$W_MBM : [POS(96)] $UWORD; (* member code *)G XAB$W_GRP : [POS(112)] $UWORD; (* group code *)I XAB$B_PROT_MODE : [POS(128)] $UBYTE; (* but currently only a byte *) ); (*** MODULE $XABTRMDEF ***) 5 29: (XAB$R_XABTRMDEF : [BYTE(36)] RECORD END; );! 30: (XABTRMDEF$$_FILL_1 : $BYTE; XABTRMDEF$$_FILL_2 : $BYTE; XABTRMDEF$$_FILL_3 : $WORD;O XABTRMDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G (*HAVE BEEN DEFINED BY $XABDEF *)G  XAB$L_ITMLST : UNSIGNED; (* item list address *)G XAB$W_ITMLST_LEN : $UWORD; (* item list length *)G XABTRMDEF$$_FILL_5 : $WORD; (* spare *)G XABTRMDEF$$_FILL_6 : UNSIGNED; (* spare *)G XABTRMDEF$$_FILL_7 : UNSIGNED; (* spare *)G XABTRMDEF$$_FILL_8 : UNSIGNED; (* spare *)G XABTRMDEF$$_FILL_9 : UNSIGNED; (* spare  *)G XABTRMDEF$$_FILL_10 : UNSIGNED; (* spare *) ); (*** MODULE $XABSUMDEF ***) 5 31: (XAB$R_XABSUMDEF : [BYTE(12)] RECORD END; );! 32: (XABSUMDEF$$_FILL_1 : $BYTE; XABSUMDEF$$_FILL_2 : $BYTE; XABSUMDEF$$_FILL_3 : $WORD;O XABSUMDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G  (*HAVE BEEN DEFINED BY $XABDEF *)M XAB$B_NOA : $UBYTE; (* number of defined areas for index file *)L XAB$B_NOK : $UBYTE; (* number of defined keys for index file *)Y XAB$W_PVN : $UWORD; (* prologue version number (relative and index files) *) ); (*** MODULE $XABKEYDEF ***) 6 33: (XAB$R_XABKEYDEF : [BYTE(100)] RECORD END; );! 34: (XABKEYDEF$$_FILL_1 : $BYTE; XABKEYDEF$$_FILL_2 : $BYTE; XABKEYDEF$$_FILL_3 : $WORD;O XABKEYDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G (*HAVE BEEN DEFINED BY $XABDEF *)G (* *)` (* the field layout of the key xab is such that it matchs as *)_ (* closely as possible the layout of a key decriptor in the *)` (* index file prologue. this is so the contents may be moved *)] (* between the two structures as efficiently as possible. *)G (* *)G XAB$B_IAN : $UBYTE; (* index level area number *)G XAB$B_LAN : $UBYTE; (* lowest index level area number *)G XAB$B_DAN : $UBYTE; (* data level area number *)G  XAB$B_LVL : $UBYTE; (* level of root bucket *)N XAB$B_IBS : $UBYTE; (* size of index buckets in virtual blocks *)M XAB$B_DBS : $UBYTE; (* size of data buckets in virtual blocks *)G XAB$L_RVB : UNSIGNED; (* root bucket start vbn *). XAB$R_FLG_OVERLAY : [BYTE(1)] RECORD END;G XAB$B_DTP : $UBYTE; (* key field data type *)G XAB$B_NSG : $UBYTE; (* number of key segments *)G  XAB$B_NUL : $UBYTE; (* nul key character *)G XAB$B_TKS : $UBYTE; (* total key field size (bytes) *)G XAB$B_REF : $UBYTE; (* key of reference (0=prim key, *)G (* 1-254 = alternate keys) *)Q XAB$W_MRL : $UWORD; (* minimun record length to contain key field *)G XAB$W_IFL : $UWORD; (* index bucket fill size (bytes) *)G XAB$W_DFL : $UWORD; (* data bucket fil size (bytes) *)/ XAB$R_POS_OVERLAY : [BYTE(16)] RECORD END;. XAB$R_SIZ_OVERLAY : [BYTE(8)] RECORD END;G XABKEYDEF$$_FILL_11 : $WORD; (* spare *)G (* *)k (* the positions of the above fields are dictated by the key descriptor *)P (* record layout in the index file prologue. *)G (*  *)N XAB$L_KNM : UNSIGNED; (* pointer to 32 character key name buffer *)G XAB$L_DVB : UNSIGNED; (* first data bucket start vbn *)G (* Additions for prologue 3 files *)G (* *). XAB$R_TYP_OVERLAY : [BYTE(8)] RECORD END;[ XAB$B_PROLOG : $UBYTE; (* indicate prologue version desired (primary key only) *)G XABKEYDEF$$_FILL_12 : $BYTE; (* spare *)G XABKEYDEF$$_FILL_13 : $WORD; (* spare *)G XAB$L_COLTBL : UNSIGNED; (* address of collate table *)G XAB$L_COLSIZ : UNSIGNED; (* size of collate table *)G XAB$L_COLNAM : UNSIGNED; (* name of collate table *)G XABKEYDEF$$_FILL_14 : UNSIGNED; (* spare *)G XABKEYDEF$$_FILL_15 : UNSIGNED; (* spare *)G XABKEYDEF$$_FILL_16 : UNSIGNED; (* spare *)G (*-- *)G (*++ *) );H 35: (XAB$B_FLG : [POS(144)] $UBYTE; (* key option flags *)[ XAB$W_POS : [POS(240)] ARRAY [1..8] OF $UWORD; (* key field record offset positions *)Q XAB$B_SIZ : [POS(368)] ARRAY [1..8] OF $UBYTE; (* key field segment sizes *)Q XAB$B_TYP : [POS(512)] ARRAY [1..8] OF $UBY TE; (* key field segment types *) );7 36: (XAB$R_FLG_BITS0 : [POS(144), BYTE(1)] RECORD END;8 XAB$R_POS_FIELDS : [POS(240), BYTE(16)] RECORD END;7 XAB$R_SIZ_FIELDS : [POS(368), BYTE(8)] RECORD END;7 XAB$R_TYP_FIELDS : [POS(512), BYTE(8)] RECORD END; );H 37: (XAB$V_DUP : [POS(144)] $BOOL; (* duplicate key values allowed *)V XAB$V_CHG : [POS(145)] $BOOL; (* alt key only --key field may change on update *)M XAB$V_NUL : [POS(146)] $BOOL; (* alt key only --null key value enable *)f XAB$V_IDX_NCMPR : [POS(147)] $BOOL; (* indicate index records for given key are not compressed *)] XAB$V_KEY_NCMPR : [POS(150)] $BOOL; (* indicates key is not compressed in data record *)G XAB$W_POS0 : [POS(240)] $UWORD; (* segment 0 *)G XAB$W_POS1 : [POS(256)] $UWORD; (* segment 1 *)G XAB$W_POS2 : [POS(272)] $UWORD; (* segment 2 *)G XAB$W_POS3 : [POS(288)] $UWORD; (* segment 3  *)G XAB$W_POS4 : [POS(304)] $UWORD; (* segment 4 *)G XAB$W_POS5 : [POS(320)] $UWORD; (* segment 5 *)G XAB$W_POS6 : [POS(336)] $UWORD; (* segment 6 *)G XAB$W_POS7 : [POS(352)] $UWORD; (* segment 7 *)G XAB$B_SIZ0 : [POS(368)] $UBYTE; (* segment 0 *)G XAB$B_SIZ1 : [POS(376)] $UBYTE; (* segment 1 *)G XAB$B_SIZ2 : [POS(384)] $UBYTE; (* segment 2 *)G XAB$B_SIZ3 : [POS(392)] $UBYTE; (* segment 3 *)G XAB$B_SIZ4 : [POS(400)] $UBYTE; (* segment 4 *)G XAB$B_SIZ5 : [POS(408)] $UBYTE; (* segment 5 *)G XAB$B_SIZ6 : [POS(416)] $UBYTE; (* segment 6 *)G XAB$B_SIZ7 : [POS(424)] $UBYTE; (* segment 7 *)G XAB$B_TYP0 : [POS(512)] $UBYTE; (* segment 0 *)G XAB$B_TYP1 : [POS(520)] $UBYTE;  (* segment 1 *)G XAB$B_TYP2 : [POS(528)] $UBYTE; (* segment 2 *)G XAB$B_TYP3 : [POS(536)] $UBYTE; (* segment 3 *)G XAB$B_TYP4 : [POS(544)] $UBYTE; (* segment 4 *)G XAB$B_TYP5 : [POS(552)] $UBYTE; (* segment 5 *)G XAB$B_TYP6 : [POS(560)] $UBYTE; (* segment 6 *)G XAB$B_TYP7 : [POS(568)] $UBYTE; (* segment 7 *) );7 38: (XAB$R_FL G_BITS1 : [POS(144), BYTE(1)] RECORD END; );M 39: (XAB$V_DAT_NCMPR : [POS(151)] $BOOL; (* data record is not compressed *) ); (*** MODULE $XABCXFDEF ***) 5 40: (XAB$R_XABCXFDEF : [BYTE(60)] RECORD END; );H 41: (XABCXFDEF$$_FILL_1 : $BYTE; (* COD - xab id code *)G XABCXFDEF$$_FILL_2 : $BYTE; (* BLN - block length *)G XABCXFDEF$$_FILL_3 : $WORD; (* (spare) *)G XABCXFDEF$$_FILL_4 : UNSIGNED; (* NXT - xab chain link *)H (* UP TILL NOW COMMON AMONG ALL XABS *)G (* *)Z (* Following in common with the CXR block, too. *)U (* Do not rearrange without changing both. *)G (* *)I XAB$L_CXFSTS : UNSIGNED; (* Status of the last file operation. *)O XAB$L_CXFSTV : UNSIGNED; (* Status Value of the last file operation. *)G (* *)p (* Top four bits of the options longword are reserved for the XABCXR. These *)S (* bits describe the version of the key buffer. *)G (* *)1 XAB$R_CXFCOP_OVERLAY : [BYTE(4)] RECORD END;G XAB$L_CXFBKP : UNSIGNED; (* Bookkeeping bits *)G XAB$W_CXFIFI : $UWORD; (* Internal File Identifier *)G XAB$B_CXFVER : $UBYTE; (* prologue version num *)J XABCXFDEF$$_FILL_5 : $BYTE; (* spare to longword align commonality *)G XABCXFDEF$$_FILL_6 : UNSIGNED; (* spare *)G (* *)U (* Up Till now in common with XABCXR, too. *)G (* *)h (* The following fields correspond to those in the FAB or IFB *)i (* They should not be rearranged as their order is assumed for *)h (* purposes of moving large chunks of data rather than a byte *)i (* or word at a time. Note: ASSUME is used in the actual code *)G (* *)G XAB$W_CXFDEQ : $UWORD; (* Default extention quantity *)G XAB$B_CXFFAC : $UBYTE; (* File access *)G XAB$B_CXFSHR : $UBYTE; (* File Sharing *)G XAB$W_CXFRTE : $UWORD; (* (Not used) *)G XABCXFDEF$$_FILL_7 : $BYTE; (* spare *)G XAB$B_CXFORG : $UBYTE; (* file organ ization *)G XAB$W_CXFGBC : $UWORD; (* global buffer count *)G XAB$B_CXFRTV : $UBYTE; (* retrieval window *) XABCXFDEF$$_FILL_8 : $BYTE;G XABCXFDEF$$_FILL_9 : ARRAY [1..4] OF UNSIGNED; (* spares *) );H 42: (XAB$L_CXFCOP : [POS(128)] UNSIGNED; (* Context Options. *) );9 43: (XAB$R_CXFCOP_BITS : [POS(128), BYTE(1)] RECORD END; );[ 44: (XAB$V_CXFRST : [POS(128)] $BOOL; (* Restore file sta te - use context blk as input. *) ); (*** MODULE $XABCXRDEF ***) 5 45: (XAB$R_XABCXRDEF : [BYTE(84)] RECORD END; );H 46: (XABCXRDEF$$_FILL_1 : $BYTE; (* COD - xab id code *)G XABCXRDEF$$_FILL_2 : $BYTE; (* BLN - block length *)G XABCXRDEF$$_FILL_3 : $WORD; (* (spare) *)G XABCXRDEF$$_FILL_4 : UNSIGNED; (* NXT - xab chain link *)H (* UP TILL NOW COMMON AMONG ALL XABS *)G (* *)Z (* Following in common with the CXF block, too. *)S (* Do not rearrange without changing it. *)G (* *)K XAB$L_CXRSTS : UNSIGNED; (* Status of the last record operation. *)Q XAB$L_CXRSTV : UNSIGNED; (* Status Value of the last record operation. *)1 XAB$R_CXRCOP_OVERLAY : [BYTE(4)] RECORD END;G XAB$L_CXRBKP : UNSIGNED; (* Bookkeeping bits *)G XAB$W_CXRISI : $UWORD; (* Internal Record Identifier *)G XAB$B_CXRVER : $UBYTE; (* prologue version num. *)J XABCXRDEF$$_FILL_6 : $BYTE; (* spare to longword align commonality *)G XABCXRDEF$$_FILL_7 : UNSIGNED; (* spare *)G (* *)U  (* Up Till now in common with XABCXF, too. *)G (* *)G (* *)l (* The following elements are arranged such that large amounts of *)m (* data can be moved at a time rather than words or bytes. Do not *)` (* rearrange them without this consideration in mind. *)G (* *)l (* The following elements are stream dependent regardless of file org. *)G (* *)G XAB$B_CXRMBF : $UBYTE; (* Multibuffer count *)G XAB$B_CXRMBC : $UBYTE; (* Multiblock count *)G XAB$W_CXRBFZ : $UWORD; (* sz in byte of CXRBUF *)G (* *)j (* The following elements are necessary for saving the NRP context for *)E (* Sequential and Relative files. *)G (* *)G XAB$L_CXRVBN : UNSIGNED; (* NRP VBN *)G XAB$W_CXROFF : $UWORD; (* NRP offset in VBN *)G XAB$W_FILL_8 : $UWORD; (* mbz - longword align *)G (* *)j (* The following elements are necessary for saving the NRP context for *)B (* ISAM files. *)G (* *)G XAB$L_CXRPOS0 : UNSIGNED; (* Primary Positioning RFA *) XAB$W_CXRPOS4 : $UWORD;G XABCXRDEF$$ _FILL_9 : $WORD; (* Spare MBZ *)G XAB$L_CXRCUR0 : UNSIGNED; (* Current Positioning RFA *) XAB$W_CXRCUR4 : $UWORD;G XABCXRDEF$$_FILL_10 : $WORD; (* Spare MBZ *)G XAB$L_CXRSID0 : UNSIGNED; (* SIDR positioning RFA *) XAB$W_CXRSID4 : $UWORD;G XABCXRDEF$$_FILL_11 : $WORD; (* Spare MBZ *)G XAB$W_CXRCNT : $UWORD; (* SIDR array count *)G XAB$B_CXRKREF  : $UBYTE; (* Cur Key of Reference *)G XAB$B_CXRKLEN : $UBYTE; (* Length of key *)G XAB$L_CXRBUF : UNSIGNED; (* address of key buf *)G XABCXRDEF$$_FILL_12 : ARRAY [1..2] OF UNSIGNED; (* Spares *) );H 47: (XAB$L_CXRCOP : [POS(128)] UNSIGNED; (* Context Options. *) );9 48: (XAB$R_CXRCOP_BITS : [POS(128), BYTE(4)] RECORD END; );b 49: (XAB$V_CXRRST : [POS(128)] $BOOL; (* Restore file/record state - use context blk as input. *)G XAB$V_CXRBVER : [POS(156)] $BIT4; (* Version of Key buffer *) ); (*** MODULE $XABJNLDEF ***) 5 50: (XAB$R_XABJNLDEF : [BYTE(80)] RECORD END; );! 51: (XABJNLDEF$$_FILL_1 : $BYTE; XABJNLDEF$$_FILL_2 : $BYTE; XABJNLDEF$$_FILL_3 : $WORD;O XABJNLDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G  (*HAVE BEEN DEFINED BY $XABDEF *)G XAB$B_XABJNL_TYPE : $UBYTE; (* type of $XABJNL *) XABJNLDEF$$_FILL_5 : $BYTE;4 XAB$R_JNL_FLAGS_OVERLAY : [BYTE(2)] RECORD END;G XAB$L_JNL_FAB : UNSIGNED; (* address of journal file FAB *)M XAB$L_VOLNAM_BUF : UNSIGNED; (* address of journal volume name buffer *)I XAB$W_VOLNAM_SIZ : $UWORD; (* size of journal volume name buffer *)K XAB$W_VOLNAM_LEN : $UWORD; (* return length of journal volume name *)Y XAB$Q_JNL_VERIFY_CDATE : $UQUAD; (* journal file creation date (from ACE$Q_CDATE) *)S (* (to match with journal file's creation date) *)O XAB$L_JNLIDX : UNSIGNED; (* Journal stream index within journal file *)G XAB$L_BACKUP_SEQNO : UNSIGNED; (* Backup sequence number. *)P XAB$Q_JNL_MOD_TIME : $UQUAD; (* Timestamp of last backup or last journal *)G (* entry recovered.  *)# XABJNLDEF$$_FILL_7 : UNSIGNED;# XABJNLDEF$$_FILL_8 : UNSIGNED;# XABJNLDEF$$_FILL_9 : UNSIGNED;$ XABJNLDEF$$_FILL_10 : UNSIGNED;$ XABJNLDEF$$_FILL_11 : UNSIGNED;$ XABJNLDEF$$_FILL_12 : UNSIGNED;$ XABJNLDEF$$_FILL_13 : UNSIGNED;$ XABJNLDEF$$_FILL_14 : UNSIGNED; );W 52: (XAB$W_JNL_FLAGS : [POS(80)] $UWORD; (* journal flags (from ACE$W_RMSJNL_FLAGS) *) );; 53: (XAB$R_JNL_FLAGS_BITS : [POS(80), BYTE(1)] RECORD END; );^ 54: ( XAB$V_JOURNAL_DISABLED : [POS(80)] $BOOL; (* journaling disabled by BACKUP (AI/BI/AT) *)L XAB$V_BACKUP_DONE : [POS(81)] $BOOL; (* Backup done since last $OPEN *) ); (*** MODULE $XABITMDEF ***) 5 55: (XAB$R_XABITMDEF : [BYTE(32)] RECORD END; );! 56: (XABITMDEF$$_FILL_1 : $BYTE; XABITMDEF$$_FILL_2 : $BYTE; XABITMDEF$$_FILL_3 : $WORD;O XABITMDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O  (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G (*HAVE BEEN DEFINED BY $XABDEF *)G XAB$L_ITEMLIST : UNSIGNED; (* Address of the item list *)i (* In the user interface, item codes are arbitrary integer values, so *)i (* we may as well allow logical groups to have contiguous codes, with *)W (* room for expansion (to allow table driven code). *)J   XAB$B_MODE : $UBYTE; (* must be either SETMODE or SENSEMODE *)X XAB$B_ITM_FILL1 : ARRAY [1..3] OF $BYTE; (* Reserved space for future definition *)\ XAB$IL_ITM_FILL2 : ARRAY [1..4] OF UNSIGNED; (* Reserved space for future definition *) ); (*** MODULE $XABRUDEF ***) 4 57: (XAB$R_XABRUDEF : [BYTE(48)] RECORD END; ); 58: (XABRUDEF$$_FILL_1 : $BYTE; XABRUDEF$$_FILL_2 : $BYTE; XABRUDEF$$_FILL_3 : $WORD;N XABRUDEF$$_FILL_4 : UNS IGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *)O (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *)G (*HAVE BEEN DEFINED BY $XABDEF *)3 XAB$R_RU_FLAGS_OVERLAY : [BYTE(2)] RECORD END; XABRUDEF$$_FILL_5 : $WORD;G XAB$L_RU_HANDLE : UNSIGNED; (* RU handle to join (input field) *)M XAB$L_RU_HANDLE_JOINED : UNSIGNED; (* RU handle joined (output field) *)" XABRUDEF$$_FILL_7 : UNSIGNED;" XABRUDEF$$_FILL _8 : UNSIGNED;" XABRUDEF$$_FILL_9 : UNSIGNED;# XABRUDEF$$_FILL_10 : UNSIGNED;# XABRUDEF$$_FILL_11 : UNSIGNED;# XABRUDEF$$_FILL_12 : UNSIGNED;# XABRUDEF$$_FILL_13 : UNSIGNED; );H 59: (XAB$W_RU_FLAGS : [POS(64)] $UWORD; (* Flags *) );: 60: (XAB$R_RU_FLAGS_BITS : [POS(64), BYTE(1)] RECORD END; );I 61: (XAB$V_NOJOIN : [POS(64)] $BOOL; (* Do not join any recovery unit *) ) END;S(* The following set of flags exactly mimic  the FCHDEF flags defined in STARLET. *)X(* They are here to provide an unsupported interface to the UCHAR longword maintained *)N(* by the file system. *)N(* *)N(* Note: RESERVED6 is the counterpart of FCH$x_SCRATCH. This SCRATCH bit *)N(* means the file is a temporary file that should only exist within the *)O(* context of an XQP operation. This bit should NEVER  be visible to a user. *)N(* (It was implemented by XQP for ACP MOVEFILE subfunction. A 'scratch' *)N(* file is created with the scratch bit set in the file header. This is *)N(* made to be the 'moved' file, then the original file is replaced by the *)N(* moved file, and finally everything is cleaned up. If a crash occurs, *)N(* the scratch file is left lying around; the scratch bit is used to signal *)N(* to ANALYZE/DISK/REPAIR that this header is not being used.) RMS should *)N(* not provide any interface to sense or set this bit. *)N(* *)CONST XAB$M_WASCONTIG = 1; XAB$M_NOBACKUP = 2; XAB$M_WRITEBACK = 4; XAB$M_READCHECK = 8; XAB$M_WRITCHECK = 16; XAB$M_CONTIGB = 32; XAB$M_LOCKED = 64; XAB$M_CONTIG = 128; XAB$M_RESERVED1 = 256; XAB$M_RESERVED2 = 512; XAB$M_RESERVED3 = 1024;  XAB$M_BADACL = 2048; XAB$M_SPOOL = 4096; XAB$M_DIRECTORY = 8192; XAB$M_BADBLOCK = 16384; XAB$M_MARKDEL = 32768; XAB$M_NOCHARGE = 65536; XAB$M_ERASE = 131072;! XAB$M_RESERVED4 = 262144; XAB$M_SHELVED = 524288;" XAB$M_RESERVED6 = 1048576; XAB$M_NOMOVE = 2097152;$ XAB$M_NOSHELVABLE = 4194304;# XAB$M_PRESHELVED = 8388608;QCONST XAB$_NET_BUFFER_SIZE = 1; (* (sense) negociated buffer size *)P XAB$_NET_BLOCK_COUNT = 2; (* (set,sense) requested block count *)N XAB$_NET_REMOTE_SYSTEM = 3; (* (sense) remote system type *)R XAB$_NET_REMOTE_FILE_SYSTEM = 4; (* (sense) remote file system type *)U XAB$_NET_EXTPROT = 5; (* (set,sense) actual extended protection *)U XAB$_NET_SYSCAP_LOCAL = 6; (* (sense) DAP SYSCAP of local system *)V XAB$_NET_SYSCAP_REMOTE = 7; (* (sense) DAP SYSCAP o f remote system *)U XAB$_NET_DAPVER_LOCAL = 8; (* (sense) DAP version - local system *)V XAB$_NET_DAPVER_REMOTE = 9; (* (sense) DAP version - remote system *)Y XAB$_NET_LINK_TIMEOUT = 10; (* (set,sense) logical link timeout (seconds) *)N XAB$_NET_DATA_CRC_ENABLE = 11; (* (set,sense) DAP level CRC *)T XAB$_NET_LINK_CACHE_ENABLE = 12; (* (set,sense) Logical link cache enable *)CONST XAB$K_NET_MIN = 1; XAB$K_NET_MAX = 12;Q XAB$_STAT_ENABLE = 64; (* (set,sense) Read statistics enable *)e XAB$_FILE_LENGTH_HINT = 65; (* (set,sense) File length hint (set of 2 quadword fields) *) XAB$K_STAT_MIN = 64; XAB$K_STAT_MAX = 65;_ XAB$_UCHAR = 128; (* (sense) Read file characteristics (obsolete) *)N XAB$_UCHAR_WASCONTIG = 129; (* (sense) FCH$V_WASCONTIG *)N XAB$_UCHAR_NOBACKUP = 130; (* (set,sense) FCH$V_NOBACKUP  *)N XAB$_UCHAR_WRITEBACK = 131; (* (sense) FCH$V_WRITEBACK *)N XAB$_UCHAR_READCHECK = 132; (* (set,sense) FCH$V_READCHECK *)N XAB$_UCHAR_WRITECHECK = 133; (* (set,sense) FCH$V_WRITECHECK *)N XAB$_UCHAR_CONTIGB = 134; (* (set,sense) FCH$V_CONTIGB *)N XAB$_UCHAR_LOCKED = 135; (* (set,sense) FCH$V_LOCKED *)N XAB$_UCHAR_CONTIG = 136; (* (sense) FCH$V_CONTIG *)N XAB$_UCHAR_BADACL = 137; (* (sense) FCH$V_BADACL *)N XAB$_UCHAR_SPOOL = 138; (* (sense) FCH$V_SPOOL *)N XAB$_UCHAR_DIRECTORY = 139; (* (sense) FCH$V_DIRECTORY *)N XAB$_UCHAR_BADBLOCK = 140; (* (sense) FCH$V_BADBLOCK *)N XAB$_UCHAR_MARKDEL = 141; (* (sense) FCH$V_BADBLOCK *)N XAB$_UCHAR_NOCHARGE = 142; (* (sense) FCH$V_NOCHARGE *)N XAB$_UCHAR_ERASE = 143; (* (set,sense) FCH$V_ERASE *)N XAB$_UCHAR_NOMOVE = 144; (* (set,sense) FCH$V_NOMOVE *)N XAB$_UCHAR_SHELVED = 145; (* (sense) FCH$V_SHELVED *)N XAB$_UCHAR_NOSHELVABLE = 146; (* (set,sense) FCH$V_NOSHELVABLE *)N XAB$_UCHAR_PRESHELVED = 147; (* (sense) FCH$V_PRESHELVED *) XAB$K_UCHAR_MIN = 128; XAB$K_UCHAR_MAX = 147;W XAB$_STORED_SEMANTICS = 192; (* (set,sense) Stored semantics of the file *)W XAB$_ACCESS_SEMANTICS = 193; (* (set,sense) Access semantics of the file *)\ XAB$_RMS_EXTENSION = 194; (* (set,sense) Required RMS processing extension *) XAB$K_XLATE_MIN = 192; XAB$K_XLATE_MAX = 194;W XAB$C_SEMANTICS_MAX_LEN = 64; (* max length for stored or access semantics *)W XAB$K_SEMANTICS_MAX_LEN = 64; (* max length for stored or access semantics *)` XAB$_MULTIBUFFER_COUNT = 256; (* (set-only) Multibuffer count ( not limited to 127) *)N(* legal only on $CONNECT *)wCONST XAB$_NORECORD = 257; (* (set-only) Norecord suppresses update of the expiration d/t, passed in on *)N(* on $OPEN or $CLOSE *)NCONST XAB$_RECOVERY = 258; (* Used to indicate type of *)N(* recovery in progress. *)NCONST XAB$_RUJVOLNAM = 259 ; (* Used to control RUJ placement *)U XAB$_GBC32 = 260; (* (set/sense) GBC longword implementation *)Q XAB$_LINKCOUNT = 261; (* (set/sense) ODS-5 (hard) link count *) XAB$K_MISC_MIN = 256; XAB$K_MISC_MAX = 261;N XAB$_TID = 320; (* (set/sense) TID *) XAB$K_TID_MIN = 320; XAB$K_TID_MAX = 320;U XAB$_CACHING_OPTIONS = 384; (* (set,sense) VDC runtime caching opt ions *)U XAB$_CACHING_ATTRIBUTE = 385; (* (set, sense) VDC perm caching attribute *)( XAB$K_CACHING_OPTIONS_MIN = 384;( XAB$K_CACHING_OPTIONS_MAX = 385;N XAB$_ACCDATE = 448; (* (set,sense) access date *)O XAB$_ATTDATE = 449; (* (set,sense) attribute change date *)P XAB$_MODDATE = 450; (* (set,sense) data modification date *) XAB$K_DATE_MIN = 448; XAB$K_DATE_MAX = 450; XAB$K_SENSEMODE = 1; XAB$K_SETMODE = 2;CONST XAB$K_ITMLEN = 32; XAB$C_ITMLEN = 32;N(* Define fields and constant values for XAB$_CACHING_OPTIONS longword. *)N(* These must match [STARLET]FIBDEF.SDL exactly *)#CONST XAB$M_FILE_ATTRIBUTES = 15;" XAB$M_FILE_CONTENTS = 240; XAB$K_DEFAULT = 0; XAB$K_WRITETHROUGH = 1; XAB$K_WRITEBEHIND = 2; XAB$K_NOCACHING = 3;$ XAB$M_FLUSH_ON_CLOSE = 3840;  XAB$K_FLUSH = 1; XAB$K_NOFLUSH = 2;# XAB$M_CACHECTL_MBZ = -4096;,TYPE XAB_CACHING_OPTIONS_FLAGS$TYPE = RECORD, XAB$V_FILE_ATTRIBUTES : [POS(0)] $BIT4;* XAB$V_FILE_CONTENTS : [POS(4)] $BIT4;+ XAB$V_FLUSH_ON_CLOSE : [POS(8)] $BIT4;+ XAB$V_CACHECTL_MBZ : [POS(12)] $BIT20; END; CONST XAB$K_DISABLE = 0; XAB$K_ENABLE = 1; XAB$K_RT11 = 1; XAB$K_RSTS = 2; XAB$K_RSX11S = 3; XAB$K_RSX11M = 4; XAB$K_RSX11D = 5; XAB$K_IAS = 6; XAB$K_VAXVMS = 7; XAB$K_TOPS20 = 8; XAB$K_TOPS10 = 9; XAB$K_RTS8 = 10; XAB$K_OS8 = 11; XAB$K_RSX11MP = 12; XAB$K_COPOS11 = 13; XAB$K_P_OS = 14; XAB$K_VAXELN = 15; XAB$K_CPM = 16; XAB$K_MS_DOS = 17; XAB$K_ULTRIX_32 = 18; XAB$K_ULTRIX_11 = 19; XAB$K_RMS11 = 1; XAB$K_RMS20 = 2; XAB$K_RMS32 = 3; XAB$K_FCS11 = 4; XAB$K_RT11FS = 5; XAB$K_NO_FS = 6; XAB$K_TOPS20FS = 7; XAB$K_TOPS10FS = 8; XAB$K_OS8FS = 9; XAB$K_RMS32S = 10; XAB$K_CPMFS = 11; XAB$K_MS_DOSFS = 12; XAB$K_ULTRIX32_FS = 13; XAB$K_ULTRIX11_FS = 14; XAB$M_NET_NOREAD = 1; XAB$M_NET_NOWRITE = 2; XAB$M_NET_NOEXECUTE = 4; XAB$M_NET_NODELETE = 8; XAB$M_NET_NOAPPEND = 16;# XAB$M_NET_NODIRECTORY = 32;  XAB$M_NET_NOUPDATE = 64;! XAB$M_NET_NOCHANGE = 128;! XAB$M_NET_NOEXTEND = 256;CONST XAB$S_BUFFER_SIZE = 4;& XAB$S_NETWORK_BLOCK_COUNT = 4; XAB$S_REMOTE_SYSTEM = 4;% XAB$S_REMOTE_FILE_SYSTEM = 4; XAB$S_EXTPROT_LOCAL = 8;! XAB$S_EXTPROT_REMOTE = 8; XAB$S_CAPABIL_LOCAL = 8;! XAB$S_CAPABIL_REMOTE = 8; XAB$S_DAPVER_LOCAL = 5; XAB$S_DAPVER_REMOTE = 5; XAB$S_CACHE_TMO = 4; XAB$S_HINT_LENGTH = 16; XAB$S_GBC32_LENGTH = 4;KTYPE UCHAR_FLAGS$TYPE = RECORD (* mimics $FCHDEF *)& XAB$V_WASCONTIG : [POS(0)] $BOOL;% XAB$V_NOBACKUP : [POS(1)] $BOOL;& XAB$V_WRITEBACK : [POS(2)] $BOOL;& XAB$V_READCHECK : [POS(3)] $BOOL;& XAB$V_WRITCHECK : [POS(4)] $BOOL;$ XAB$V_CONTIGB : [POS(5)] $BOOL;# XAB$V_LOCKED : [POS(6)] $BOOL;# XAB$V_CONTIG : [POS(7)] $BOOL;& XAB$V_RESERVED1 : [POS(8)] $BOOL;& XAB$V_RESERVED2 :  [POS(9)] $BOOL;' XAB$V_RESERVED3 : [POS(10)] $BOOL;$ XAB$V_BADACL : [POS(11)] $BOOL;# XAB$V_SPOOL : [POS(12)] $BOOL;' XAB$V_DIRECTORY : [POS(13)] $BOOL;& XAB$V_BADBLOCK : [POS(14)] $BOOL;% XAB$V_MARKDEL : [POS(15)] $BOOL;& XAB$V_NOCHARGE : [POS(16)] $BOOL;# XAB$V_ERASE : [POS(17)] $BOOL;' XAB$V_RESERVED4 : [POS(18)] $BOOL;% XAB$V_SHELVED : [POS(19)] $BOOL;' XAB$V_RESERVED6 : [POS(20)] $BOOL;$ XAB$V_NOMOVE : [POS(21)] $BOOL;) XAB!$V_NOSHELVABLE : [POS(22)] $BOOL;( XAB$V_PRESHELVED : [POS(23)] $BOOL; END; N(* The following set of flags mimic the IFB$B_RECVRFLGS flags. *)N(* They are here to provide an interface for RECOVER. *)CONST XAB$M_RCF_RU = 1; XAB$M_RCF_AI = 2; XAB$M_RCF_BI = 4; XAB$M_RCF_NOPAD = 8; TYPE XAB_RCF_FLAGS$TYPE = RECORD# XAB$V_RCF_RU : [POS(0)] $BOOL;# XAB$V_RCF_AI : [POS(1)] $BOOL;# XAB$V_RCF_BI : [POS(2)]" $BOOL;& XAB$V_RCF_NOPAD : [POS(3)] $BOOL;% XAB$V_FILL_16_ : [POS(4)] $BIT4; END; 0TYPE XABNETEXTPROT$TYPE = RECORD CASE INTEGER OF+ 1: (XAB$R_FILL_17_ : [BYTE(2)] RECORD END; XAB$W_OWNER_ACC : $UWORD; XAB$W_GROUP_ACC : $UWORD; XAB$W_WORLD_ACC : $UWORD; );( 2: (XAB$W_SYSTEM_ACC : [POS(0)] $UWORD; ); 3: ();' 4: (XAB$V_NET_NOREAD : [POS(0)] $BOOL;( XAB$V_NET_NOWRITE : [POS(1)] $BOOL;* XAB$V_NET_NOEXECUTE : [POS(2)] $BOOL;) XAB$V_N#ET_NODELETE : [POS(3)] $BOOL;) XAB$V_NET_NOAPPEND : [POS(4)] $BOOL;, XAB$V_NET_NODIRECTORY : [POS(5)] $BOOL;) XAB$V_NET_NOUPDATE : [POS(6)] $BOOL;) XAB$V_NET_NOCHANGE : [POS(7)] $BOOL;) XAB$V_NET_NOEXTEND : [POS(8)] $BOOL; ) END; XABNETDAPVER$TYPE = RECORD XAB$B_VER_DAP : $UBYTE; XAB$B_VER_ECO : $UBYTE; XAB$B_VER_CUS : $UBYTE; XAB$B_VER_DSV : $UBYTE; XAB$B_VER_CSV : $UBYTE; END; XABNETCAP$TYPE = RECORD' XAB$V_CAP_FILALL $: [POS(0)] $BOOL;' XAB$V_CAP_SEQORG : [POS(1)] $BOOL;' XAB$V_CAP_RELORG : [POS(2)] $BOOL;( XAB$V_CAP_FILL_21 : [POS(3)] $BOOL;' XAB$V_CAP_EXTEND : [POS(4)] $BOOL;' XAB$V_CAP_SEQFIL : [POS(5)] $BOOL;' XAB$V_CAP_RANRRN : [POS(6)] $BOOL;' XAB$V_CAP_RANVBN : [POS(7)] $BOOL;' XAB$V_CAP_RANKEY : [POS(8)] $BOOL;( XAB$V_CAP_FILL_22 : [POS(9)] $BOOL;( XAB$V_CAP_RANRFA : [POS(10)] $BOOL;( XAB$V_CAP_IDXORG : [POS(11)] $BOOL;( XAB$V_CAP_SWMODE : %[POS(12)] $BOOL;( XAB$V_CAP_APPEND : [POS(13)] $BOOL;( XAB$V_CAP_SUBMIT : [POS(14)] $BOOL;) XAB$V_CAP_FILL_23 : [POS(15)] $BOOL;% XAB$V_CAP_MDS : [POS(16)] $BOOL;) XAB$V_CAP_DISPLAY : [POS(17)] $BOOL;( XAB$V_CAP_MSGBLK : [POS(18)] $BOOL;( XAB$V_CAP_UNRBLK : [POS(19)] $BOOL;( XAB$V_CAP_BIGBLK : [POS(20)] $BOOL;( XAB$V_CAP_DAPCRC : [POS(21)] $BOOL;( XAB$V_CAP_KEYXAB : [POS(22)] $BOOL;( XAB$V_CAP_ALLXAB : [POS(23)] $BOOL;( XAB$V_CAP_SUMXAB : &[POS(24)] $BOOL;+ XAB$V_CAP_DIRECTORY : [POS(25)] $BOOL;( XAB$V_CAP_TIMXAB : [POS(26)] $BOOL;( XAB$V_CAP_PROXAB : [POS(27)] $BOOL;) XAB$V_CAP_FILL_24 : [POS(28)] $BOOL;( XAB$V_CAP_FOPSPL : [POS(29)] $BOOL;( XAB$V_CAP_FOPSCF : [POS(30)] $BOOL;( XAB$V_CAP_FOPDLT : [POS(31)] $BOOL;) XAB$V_CAP_FILL_26 : [POS(32)] $BOOL;( XAB$V_CAP_SEQRAC : [POS(33)] $BOOL;) XAB$V_CAP_FILL_27 : [POS(34)] $BOOL;( XAB$V_CAP_BITOPT : [POS(35)] $BOOL;) XAB$V_CAP_W 'ARNING : [POS(36)] $BOOL;( XAB$V_CAP_RENAME : [POS(37)] $BOOL;* XAB$V_CAP_WILDCARD : [POS(38)] $BOOL;( XAB$V_CAP_GNGOPT : [POS(39)] $BOOL;( XAB$V_CAP_NAMMSG : [POS(40)] $BOOL;( XAB$V_CAP_SEGMSG : [POS(41)] $BOOL;+ XAB$V_CAP_CHGATTCLS : [POS(42)] $BOOL;+ XAB$V_CAP_CHGTIMCLS : [POS(43)] $BOOL;+ XAB$V_CAP_CHGPROCLS : [POS(44)] $BOOL;+ XAB$V_CAP_CHGNAMCLS : [POS(45)] $BOOL;+ XAB$V_CAP_MODATTCRE : [POS(46)] $BOOL;* XAB$V_CAP_NAM3PART : [POS(47)] ($BOOL;+ XAB$V_CAP_CHGATTREN : [POS(48)] $BOOL;+ XAB$V_CAP_CHGTIMREN : [POS(49)] $BOOL;+ XAB$V_CAP_CHGPROREN : [POS(50)] $BOOL;+ XAB$V_CAP_CTLBLKCNT : [POS(51)] $BOOL;* XAB$V_CAP_OCTALVER : [POS(52)] $BOOL;& XAB$V_FILL_20_ : [POS(53)] $BIT3; END; (*** MODULE $FSCNDEF ***) N(* *)N(* Descriptor codes for SYS$FILESCAN *)N(* ) *) CONST FSCN$M_NODE = 1; FSCN$M_DEVICE = 2; FSCN$M_ROOT = 4; FSCN$M_DIRECTORY = 8; FSCN$M_NAME = 16; FSCN$M_TYPE = 32; FSCN$M_VERSION = 64; FSCN$M_NODE_PRIMARY = 128; FSCN$M_NODE_ACS = 256; FSCN$M_NODE_SECONDARY = 512; TYPE FLDFLAGS$TYPE = RECORDG FSCN$V_NODE : [POS(0)] $BOOL; (* Node name present *)G FSCN$V_DEVICE : [POS(1)] $BOOL; (* Device name present *)G FSCN$V_ROOT : [PO*S(2)] $BOOL; (* Root directory present *)G FSCN$V_DIRECTORY : [POS(3)] $BOOL; (* Directory present *)G FSCN$V_NAME : [POS(4)] $BOOL; (* File name present *)G FSCN$V_TYPE : [POS(5)] $BOOL; (* File type present *)G FSCN$V_VERSION : [POS(6)] $BOOL; (* File version present *)M FSCN$V_NODE_PRIMARY : [POS(7)] $BOOL; (* Primary (first) node present *)G FSCN$V_NODE_ACS : [POS(8)] $BOOL; (* Primary ACS present *)I + FSCN$V_NODE_SECONDARY : [POS(9)] $BOOL; (* Secondary node present *)G FSCNDEF$$_FILL_1 : [POS(10)] $BIT22; (* Fill out longword *) END; LCONST FSCN$_FILESPEC = 1; (* complete filespec *)G FSCN$_NODE = 2; (* node:: field *)G FSCN$_DEVICE = 3; (* device: field *)G FSCN$_ROOT = 4; (* [root.] field *)G FSCN$_DIRECTORY = 5; (* [directory] ,field *)G FSCN$_NAME = 6; (* name field *)G FSCN$_TYPE = 7; (* .typ field *)G FSCN$_VERSION = 8; (* ;version field *)G FSCN$_NODE_PRIMARY = 9; (* primary node field *)G FSCN$_NODE_ACS = 10; (* acc. cont. str. fld. *)G FSCN$_NODE_SECONDARY = 11; (* secondary node field *) FSCN$S_ITEM_LEN = 8; TYPE FSCN$TYPE = RECORDG FSCN$W_LENGTH : $UWORD; (* return length word *)G FSCN$W_ITEM_CODE : $UWORD; (* item code value *)G FSCN$L_ADDR : UNSIGNED; (* component address *) END; (*** MODULE $RMEDEF ***) CONST RME$C_SETRFM = 1; RME$C_PPFECHO = 2; RME$C_SETRCF = 3; RME$C_KEEP_LOCK_ON = 4; RME$C_KEEP_LOCK_OFF = 5; RME$C_RU_ACE_ON = 6; RME$C_RU_ACE_OFF = 7; RME$C_SET_RECATTR = 8;  END.ww. W:[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$ACLEDIT_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent w/ith FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omi0ssions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ 1 }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DE2FTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..40395;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE]4 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE ACLEDIT$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; 5 *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD6] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKE7D_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; 8 *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..29047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT:18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; ; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0. <.2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) +(*** MODULE ACLEDIT$ROUTINES IDENT X-1 ***) N(* *)N(* Access Control List Editor (ACLEDIT) Routine *)N(* *)N(* *)N(* ACLEDIT$E=DIT - Edit Access Control List *)N(* *)N(* status = ACLEDIT$EDIT (item_list) *)N(* *)N(* item_list - Itemlist for operation *)N(* *) &[ASYNCHRONOUS] FUNCTION ACLEDIT$EDIT (S %REF ITEM_LIST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* END. *) END.ww?X6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$CLI_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with @FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissioAns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ B }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYPC = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; D# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..E33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE CLI$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; F *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.G.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEHC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; I *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;J *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =K [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; L *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 M7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE CLI$ROUTINES IDENT X-2 ***) N(* *)N(* Command Language Interpreter (CLI) Routines *)N(* *)N(* *)N(* CLI$DCL_PARSE - PNarse DCL command string *)N(* *)N(* status = CLI$DCL_PARSE ([command_string], table [,param_routine] *)B(* [,prompt_routine] [,prompt_string]) *)N(* *)N(* command_string - Command string to parse *)N(* table - Command table O *)N(* param_routine - Routine to obtain omitted parameters *)N(* prompt_routine - Routine to prompt for input *)N(* prompt_string - Prompt string for display *)N(* *) '[ASYNCHRONOUS] FUNCTION CLI$DCL_PARSE (P COMMAND_STRING : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;F %REF TABLE : [UNSAFE] ARRAY [$l2..$Pu2:INTEGER] OF $UBYTE := %IMMED 0;D %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE PARAM_ROUTINE := %IMMED 0;E %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE PROMPT_ROUTINE := %IMMED 0;d PROMPT_STRING : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* CLI$DISPATCH - Dispatch to action routine *)N(* Q *)N(* status = CLI$DISPATCH ([userarg]) *)N(* *)N(* userarg - User argument *)N(* *) &[ASYNCHRONOUS] FUNCTION CLI$DISPATCH (] %REF USERARG : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* R *)N(* CLI$GET_VALUE - Get value of entity in command string *)N(* *)N(* status = CLI$GET_VALUE (entity_desc, retdesc [, retlength]) *)N(* *)N(* entity_desc - Entity to retrieve *)N(* retdesc - Returned value string S *)N(* retlength - Length of returned value *)N(* *) '[ASYNCHRONOUS] FUNCTION CLI$GET_VALUE (A ENTITY_DESC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;J VAR RETDESC : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;D VAR RETLENGTH : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* T *)N(* CLI$PRESENT - Determine presence of entity in command string *)N(* *)N(* status = CLI$PRESENT (entity_desc) *)N(* *)N(* entity_desc - Entity to retrieve *)N(* *) U %[ASYNCHRONOUS] FUNCTION CLI$PRESENT (V ENTITY_DESC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; )CONST CLI$K_token_size_traditional = 255;$ CLI$C_token_size_traditional = 255;" CLI$K_token_size_extended = 4000;" CLI$C_token_size_extended = 4000;X CLI$K_command_size_traditional = 255; (* command size with no continuation character *)& CLI$C_command_size_traditional = 255;V CLI$K_command_size_extended = 4096; (* command size with no continuation character *)$ CLI$C_command_size_extended = 4096;X CLI$K_buffer_size_traditional = 1024; (* command size with continuation character(s) *)O CLI$C_buffer_size_traditional = 1024; (* or from input file *)U CLI$K_buffer_size_extended = 8192; (* command size with continuation character(s) *)L CLI$C_buffer_size_extended = 8192; (* or from input file *) N(* END. *) END.wwW,Y6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$CMA_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with XFAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissioYns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ Z }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP[ = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; \# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..]33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE CMA$DEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; ^ *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0._.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE`C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; a *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;b *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =c [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; d *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 e7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) ((*** MODULE CMA$DEF IDENT V3.15-001 ***) N(* *)N(* FACILITY: *)N(* *)N(* Common Multithread Architecture (CMA) services *)N(* f *)N(* ABSTRACT: *)N(* *)N(* External definitions for CMA services *)N(* *)N(* AUTHORS: *)N(* g *)N(* Dave Butenhof (-Original) *)I(* Paul Curtin (-Generic/SDL) *)N(* *)N(* CREATION DATE: *)N(* *)N(* 2 November 1988 (-Original) h*)I(* 7 September 1990 (-Generic/SDL) *)N(* *)N(* MODIFIED BY: *)N(* *)I(* Dave Butenhof *)I(* Paul Curtin *)I(* Gerald Feldman i *)I(* Brian Keane *)I(* Webb Scales *)N(* *)N(* *)N(* Define a symbol which client code can test to determine whether the *)N(* underlying threads package is DECthreads or not. This is especially j *)N(* important to clients of the Pthreads interface who may want to use *)N(* certain DECthreads extensions, such as the global lock and non-real-time *)N(* scheduling policies, on the DECthreads platform while maintaining *)N(* portability to a "vanilla" pthreads implementation. *)N(* *) CONST _DECTHREADS_ = 1; TYPE cma$t_integer =INTEGER; cma$t_boolean =UNSIGNED; cma$tk_natural =UNSIGNED; cma$t_interval =SINGLE; cma$t_key =INTEGER; cma$t_status =INTEGER; cma$t_priority =INTEGER; cma$t_address =^CHAR; CONST cma$c_prio_fifo_min = 16; cma$c_prio_fifo_mid = 24; cma$c_prio_fifo_max = 31; cma$c_prio_rr_min = 16; cma$c_prio_rr_mid = 24; cma$c_prio_rr_max = 31; cma$c_prio_through_min = 8; cma$c_prio_through_mid = 12; cma$c_prio_through_max = 15; cma$c_prio_back_min = 0; cma$c_prio_back_mid = 4; cma$c_prio_back_max = 7; cma$c_p lrio_ada_low_min = 0; cma$c_prio_ada_low_mid = 4; cma$c_prio_ada_low_max = 7; cma$c_prio_ada_rtb_min = 0; cma$c_prio_ada_rtb_mid = 4; cma$c_prio_ada_rtb_max = 7; N(* *)N(* The implementation of the date_time type should match the "native *)P(* time" of the platform: that allows clients to use the full set of platform *)N(* time operations, rather than just "get_expiration", to compute and *)N(* test mtimed waits. *)N(* *)N(* This section assumes the platform is either "VMS" or "UNIX-ish". Others *)N(* will require changes. *)N(* *) TYPE cma$t_date_time = RECORD low : UNSIGNED; high : UNSIGNED; END; N(* n *)N(* Sample decisions for what handles shall be *)N(* *) TYPE cma$t_handle = RECORD# handle_field1 : cma$t_natural;# handle_field2 : cma$t_natural; END; CONST cma$c_handle_size = 8; N(* *)N(* Sample decision for a one-time initialization con otrol block and its *)N(* initialization macro. *)N(* *)N(* *) TYPE cma$t_once = RECORD! once_field1 : cma$t_integer;! once_field2 : cma$t_integer;! once_field3 : cma$t_integer; END; N(* *)N(* Sampl pe decision for a variable to save the current alert state. *)N(* *) TYPE cma$t_alert_state = RECORD state1 : cma$t_integer; state2 : cma$t_integer; END; N(* *)N(* The following are the portable CMA definitions *)N(* *)N(* q *)N(* Operations on threads *)N(* *) /TYPE cma$t_start_routine =^$DEFTYP (* entry *); N(* *)N(* Constants *)N(* r *) CONST cma$c_false = 0; cma$c_true = 1; cma$c_null_ptr = 0; N(* *)N(* Objects *)N(* *) KTYPE cma$t_mutex = RECORD (* Needed for ONCE_BLOCK *) END; cma$t_attr = RECORD END; cma$t_thread = RECORD END; cma$t_cond = sRECORD END; cma$t_stack_np = RECORD END; N(* *)N(* Predefined null handle *)N(* *) VAR cma$c_null : RECORD END; N(* *)N(* Exit status constants *)N(* t *) TYPE cma$t_exit_status =INTEGER; CONST cma$c_term_error = 0; cma$c_term_normal = 1; cma$c_term_alert = 2; cma$c_null_thread = -1; N(* *)N(* Schedule inheritance constants *)N(* *) "TYPE cma$t_sched_inherit =INTEGER; uCONST cma$c_sched_inherit = 0; cma$c_sched_use_default = 1; N(* *)N(* Schedule policy constants *)N(* *) !TYPE cma$t_sched_policy =INTEGER; CONST cma$c_sched_fifo = 0; cma$c_sched_rr = 1; cma$c_sched_throughput = 2; cma$c_sched_background = 3; cma$c_sched_ada_low = 4; N(* v *)N(* Default and other policies. *)N(* *) CONST cma$c_sched_default = 2; cma$c_sched_other = 2; N(* *)N(* Mutex types *)N(* w *) TYPE cma$t_mutex_kind =INTEGER; CONST cma$c_mutex_fast = 0; cma$c_mutex_recursive = 1; cma$c_mutex_nonrecursive = 2; N(* *)N(* Sample decision for error codes *)N(* *)N(* Values used are "VMS status codes" in decimal. These *)N(* must remain in xsynch with the "message file" MESSAGE_VMS.MSG *)N(* Note: these values cannot be altered after they have shipped in *)N(* some CMA release. Octal boundaries are shown on the decimal *)N(* values. GAF 6/1/92 Coordinated definitions with exc_handling.h *)N(* *) CONST cma$_exception = 4227084; cma$_exccop = 4227092; cma$_uninitexc = 4227100; cma$_unkstatus = 4228100; cmay$_exccoplos = 4228108; cma$_illaddr = 12; cma$_exquota = 28; cma$_insfmem = 292; cma$_nopriv = 36; cma$_normal = 1; cma$_illinstr = 1084; cma$_resaddr = 1100; cma$_privinst = 1084; cma$_resoper = 1108; cma$_SIGTRAP = 1044; cma$_SIGIOT = 44; cma$_SIGEMT = 1068; cma$_aritherr = 1164; cma$_SIGSYS = 20; cma$_SIGPIPE = 628; cma$_excpu = 8364; cma$_exfilsiz = 1004; cma$_intovf = 1148; cma$_intdiv = 1156; cma$_fltovf = 1164; cma$_fltdiv = 1172; cma$_fltund =z 1180; cma$_decovf = 1188; cma$_subrng = 1196; cma$_accvio = 12; cma$_SIGILL = 1084; cma$_SIGFPE = 1164; cma$_SIGBUS = 1084; cma$_SIGSEGV = 1084; cma$_SIGXCPU = 8364; cma$_SIGXFSZ = 1004; cma$_alerted = 4227460; cma$_assertion = 4227468; cma$_badparam = 4227476; cma$_bugcheck = 4227484; cma$_exit_thread = 4227492; cma$_existence = 4227500; cma$_in_use = 4227508; cma$_use_error = 4227516; cma$_wrongmutex = 4227524; cma$_stackovf = 554; cma$_nostackmem = 4{227540; cma$_notcmastack = 4227548; cma$_timed_out = 4227556; cma$_unimp = 4227564; cma$_inialrpro = 4227572; cma$_defer_q_full = 4227580; cma$_signal_q_full = 4227588; cma$_alert_nesting = 4227596; N(* *)N(* EXCEPTION TYPE DEFINITIONS *)N(* *) TYPE cma$exc_address_t =^CHAR; cma$exc_k|ind_t =INTEGER; cma$exc_int_t =INTEGER; N(* *)N(* Internal contents of an exception object. *)N(* *) TYPE cma$t_exception = RECORD exc_kind : cma$exc_kind_t;" exc_info : cma$exc_address_t;4 exc_filler : ARRAY [1..6] OF cma$exc_address_t; END; VAR cma$e_uninitexc : RECORD END; cma$e_i}lladdr : RECORD END; cma$e_exquota : RECORD END; cma$e_insfmem : RECORD END; cma$e_nopriv : RECORD END; cma$e_illinstr : RECORD END; cma$e_resaddr : RECORD END; cma$e_privinst : RECORD END; cma$e_resoper : RECORD END; cma$e_SIGTRAP : RECORD END; cma$e_SIGIOT : RECORD END; cma$e_SIGEMT : RECORD END; cma$e_aritherr : RECORD END; cma$e_SIGSYS : RECORD END; cma$e_SIGPIPE : RECORD END; cma$e_excpu : RECORD END; cma$e_exfilsi~z : RECORD END; cma$e_intovf : RECORD END; cma$e_intdiv : RECORD END; cma$e_fltovf : RECORD END; cma$e_fltdiv : RECORD END; cma$e_fltund : RECORD END; cma$e_decovf : RECORD END; cma$e_subrng : RECORD END; cma$e_alerted : RECORD END; cma$e_assertion : RECORD END; cma$e_badparam : RECORD END; cma$e_bugcheck : RECORD END; cma$e_exit_thread : RECORD END; cma$e_existence : RECORD END; cma$e_in_use : RECORD END; cma$e_use_error : RECORD END; cma$e_wrongmutex : RECORD END; cma$e_stackovf : RECORD END; cma$e_nostackmem : RECORD END; cma$e_notcmastack : RECORD END; cma$e_unimp : RECORD END; cma$e_inialrpro : RECORD END; cma$e_defer_q_full : RECORD END; cma$e_signal_q_full : RECORD END; cma$e_alert_nesting : RECORD END; N(* *)N(* Operations on Handles  *)N(* *)N(* *)L(* The value of a handle can be assigned the value of another handle. *)N(* *) ,[ASYNCHRONOUS] PROCEDURE cma$handle_assign ( handle1 : cma$t_handle;2 VAR handle2 : [VOLATILE] cma$t_handle); EXTERNAL; N(*  *)L(* The value of a handle can be assigned the value of another handle. *)N(* *) *[ASYNCHRONOUS] FUNCTION cma$handle_equal ( handle1 : cma$t_handle;3 handle2 : cma$t_handle) : cma$t_boolean; EXTERNAL; N(* *)N(* An attributes object is created to specify the attributes of other CMA *)N(* objects that will be cr eated. *)N(* *) *[ASYNCHRONOUS] PROCEDURE cma$attr_create (% VAR NEW_ATT : [VOLATILE] cma$t_attr; ATTR : cma$t_attr); EXTERNAL; N(* *)N(* An attributes object can be deleted when it is no longer needed. *)N(* *) *[ASY NCHRONOUS] PROCEDURE cma$attr_delete (- VAR ATTR : [VOLATILE] cma$t_attr); EXTERNAL; N(* *)N(* The following procedures can be used to control thread creation, *)N(* termination and deletion. *)N(* *)N(* *)P(* To create a thread object and runnable thread, a routine must be specified *)N(* as the new thread's start routine. An argument may be passed to this *)P(* routine, as an untyped address; an untyped address may also be returned as *)O(* the routine's value. An attributes object may be used to specify details *)N(* about the kind of thread being created. *)N(* *) ,[ASYNCHRONOUS] PROCEDURE cma$t hread_create (* VAR new_thread : [VOLATILE] cma$t_thread; ATTR : cma$t_attr;8 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE START_ROUTINE; ARG : cma$t_address); EXTERNAL; N(* *)N(* A thread object may be "detached" to specify that the return value and *)N(* completion status will not be requested. *)N(* *) ,[ASY NCHRONOUS] PROCEDURE cma$thread_detach (1 VAR THREAD : [VOLATILE] cma$t_thread); EXTERNAL; N(* *)N(* A thread may terminate it's own execution. *)N(* *) 9[ASYNCHRONOUS] PROCEDURE cma$thread_exit_error; EXTERNAL; N(* *)N(* Exit a thread nor mally. *)N(* *) 1[ASYNCHRONOUS] PROCEDURE cma$thread_exit_normal (# result : cma$t_address); EXTERNAL; N(* *)N(* A thread can await termination of another thread and retrieve the return *)N(* value and completion status of the thread. *)N(*  *) *[ASYNCHRONOUS] PROCEDURE cma$thread_join ( THREAD : cma$t_thread;0 VAR EXIT_STATUS : [VOLATILE] cma$t_exit_status;2 VAR RESULT : [VOLATILE] cma$t_address); EXTERNAL; N(* *)N(* Operations to define thread creation attributes *)N(* *)N(*  *)N(* Set or obtain the default thread priority. *)N(* *) 0[ASYNCHRONOUS] PROCEDURE cma$attr_set_priority ( attr : cma$t_attr;& PRIORITY : cma$t_priority); EXTERNAL; N(* *)N(* Obtain thread priority from attributes object. *)N(*  *) 0[ASYNCHRONOUS] PROCEDURE cma$attr_get_priority ( attr : cma$t_attr;5 VAR PRIORITY : [VOLATILE] cma$t_priority); EXTERNAL; N(* *)N(* Set or obtain the default scheduling algorithm. *)N(* *) -[ASYNCHRONOUS] PROCEDURE cma$attr_set_sched ( attr : cma$t_attr ;( policy : cma$t_sched_policy); EXTERNAL; N(* *)N(* Get thread scheduling algorithm from attributes object. *)N(* *) -[ASYNCHRONOUS] PROCEDURE cma$attr_get_sched ( attr : cma$t_attr;7 VAR POLICY : [VOLATILE] cma$t_sched_policy); EXTERNAL; N(* *)P (* Set or obtain whether a thread will use the default scheduling attributes, *)N(* or inherit them from the creating thread. *)N(* *) 5[ASYNCHRONOUS] PROCEDURE cma$attr_set_inherit_sched ( attr : cma$t_attr;* SETTING : cma$t_sched_inherit); EXTERNAL; N(* *)N(* Obtain default scheduling attributes.  *)N(* *) 5[ASYNCHRONOUS] PROCEDURE cma$attr_get_inherit_sched ( attr : cma$t_attr;9 VAR SETTING : [VOLATILE] cma$t_sched_inherit); EXTERNAL; N(* *)N(* Set the default stack size *)N(* *) 1[ASYNCHRON OUS] PROCEDURE cma$attr_set_stacksize ( attr : cma$t_attr;& stacksize : cma$t_natural); EXTERNAL; N(* *)N(* Obtain the default stack size. *)N(* *) 1[ASYNCHRONOUS] PROCEDURE cma$attr_get_stacksize ( attr : cma$t_attr;5 VAR stacksize : [VOLATILE] cma$t_natural); EXTERNAL; N(*  *)N(* Set the default guard size *)N(* *) 1[ASYNCHRONOUS] PROCEDURE cma$attr_set_guardsize ( attr : cma$t_attr;& guardsize : cma$t_natural); EXTERNAL; N(* *)N(* Obtain the default guard size *)N(*  *) 1[ASYNCHRONOUS] PROCEDURE cma$attr_get_guardsize ( attr : cma$t_attr;5 VAR guardsize : [VOLATILE] cma$t_natural); EXTERNAL; N(* *)N(* Thread Scheduling Operations *)N(* *)N(*  *)N(* The current user_assigned priority of a thread can be changed. *)N(* *) 2[ASYNCHRONOUS] PROCEDURE cma$thread_set_priority ( thread : cma$t_thread;& priority : cma$t_priority); EXTERNAL; N(* *)O(* The current user_assigned scheduler algorithm of a thread can be changed. *)N(*  *) /[ASYNCHRONOUS] PROCEDURE cma$thread_set_sched ( thread : cma$t_thread;( policy : cma$t_sched_policy); EXTERNAL; N(* *)O(* A thread may tell the scheduler that its processor can be made available. *)N(* *) -[ASYNCHRONOUS] PROCEDURE cma$yield; EXTERNAL; N(*  *)N(* A thread may enter a wait state for a specifed period of time. *)N(* *) $[ASYNCHRONOUS] PROCEDURE cma$delay (- %IMMED interval : cma$t_interval); EXTERNAL; N(* *)N(* Thread Information Operations *)N(*  *)N(* *)N(* A thread may obtain a copy of its own thread handle. *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma$thread_get_self (1 VAR thread : [VOLATILE] cma$t_thread); EXTERNAL; N(* *)N(* The current user_assigned priority of a  thread can be read. *)N(* *) 2[ASYNCHRONOUS] PROCEDURE cma$thread_get_priority ( thread : cma$t_thread;5 VAR priority : [VOLATILE] cma$t_priority); EXTERNAL; N(* *)N(* The current user_assigned scheduler algorithm of a thread can be read. *)N(* *) /[A SYNCHRONOUS] PROCEDURE cma$thread_get_sched ( thread : cma$t_thread;7 VAR policy : [VOLATILE] cma$t_sched_policy); EXTERNAL; N(* *)N(* Operations on Mutexes *)N(* *)N(* *)N(* Set whether mutex locks can nest.  *)N(* *) 2[ASYNCHRONOUS] PROCEDURE cma$attr_set_mutex_kind ( attr : cma$t_attr;$ nest : cma$t_mutex_kind); EXTERNAL; N(* *)N(* Obtain whether mutex locks can nest. *)N(* *) 2[ASYNCHRONOUS] PROCEDURE cma$att r_get_mutex_kind ( attr : cma$t_attr;$ nest : cma$t_mutex_kind); EXTERNAL; N(* *)N(* The following routines create, delete, lock and unlock mutexes. *)N(* *) +[ASYNCHRONOUS] PROCEDURE cma$mutex_create (( VAR new_mutex : [VOLATILE] cma$t_mutex; attr : cma$t_attr); EXTERNAL; N(*  *)N(* Delete a mutex. *)N(* *) +[ASYNCHRONOUS] PROCEDURE cma$mutex_delete (/ VAR mutex : [VOLATILE] cma$t_mutex); EXTERNAL; N(* *)N(* Lock a mutex. *)N(*  *) )[ASYNCHRONOUS] PROCEDURE cma$mutex_lock ( mutex : cma$t_mutex); EXTERNAL; N(* *)N(* Try to lock a mutex. *)N(* *) ,[ASYNCHRONOUS] FUNCTION cma$mutex_try_lock (0 mutex : cma$t_mutex) : cma$t_boolean; EXTERNAL; N(*  *)N(* Unlock a mutex. *)N(* *) +[ASYNCHRONOUS] PROCEDURE cma$mutex_unlock ( mutex : cma$t_mutex); EXTERNAL; N(* *)N(* Lock Global mutex. *)N(*  *) 3[ASYNCHRONOUS] PROCEDURE cma$lock_global; EXTERNAL; N(* *)N(* Unlock Global mutex. *)N(* *) 5[ASYNCHRONOUS] PROCEDURE cma$unlock_global; EXTERNAL; N(* *)N(* A thread can create and delete condition variab les. *)N(* *) *[ASYNCHRONOUS] PROCEDURE cma$cond_create (+ VAR new_condition : [VOLATILE] cma$t_cond; attr : cma$t_attr); EXTERNAL; N(* *)N(* Delete a condition variable. *)N(* *) *[ASYNCHRONOUS] PROCEDU RE cma$cond_delete (2 VAR condition : [VOLATILE] cma$t_cond); EXTERNAL; N(* *)N(* A thread can signal to and broadcast on a condition variable. *)N(* *) -[ASYNCHRONOUS] PROCEDURE cma$cond_broadcast (# condition : cma$t_cond); EXTERNAL; N(* *)N(* Signal a co ndition variable. *)N(* *) *[ASYNCHRONOUS] PROCEDURE cma$cond_signal (# condition : cma$t_cond); EXTERNAL; N(* *)N(* Interupt signal a condition variable. *)N(* *) .[ASYNCHRONOUS] PROCEDURE c ma$cond_signal_int (# condition : cma$t_cond); EXTERNAL; N(* *)N(* A thread can wait for a condition variable to be signalled or broadcast. *)N(* *) ([ASYNCHRONOUS] PROCEDURE cma$cond_wait ( condition : cma$t_cond; mutex : cma$t_mutex); EXTERNAL; N(* *)N(* Operation s for timed waiting *)N(* *)N(* *)N(* A thread can perform a timed wait on a condition variable. *)N(* *) -[ASYNCHRONOUS] FUNCTION cma$cond_timed_wait ( condition : cma$t_cond; mutex : cma$t_mutex;8 expiration : cm a$t_date_time) : cma$t_status; EXTERNAL; N(* *)O(* A thread may perform some operations on absolute date-time and intervals. *)N(* *) 2[ASYNCHRONOUS] PROCEDURE cma$time_get_expiration (- VAR expiration : [VOLATILE] cma$t_date_time;- %IMMED interval : cma$t_interval); EXTERNAL; N(*  *)N(* Operations for CMA and client initialization. *)N(* *)N(* *)N(* Initialize the CMA facility. *)N(* *) ,[ASYNCHRONOUS] PROCEDURE cma$init; EXTERNAL; N(*  *)N(* A thread can declare a one-time initialization routine. The address of *)N(* the init block and routine are passed as parameters. *)N(* *) .TYPE cma$t_init_routine =^$DEFTYP (* entry *); N(* *)N(* Once routine *)N(*  *) #[ASYNCHRONOUS] PROCEDURE cma$once ( init_block : cma$t_address;. init_routine : cma$t_init_routine); EXTERNAL; N(* *)N(* Operations for per-thread context *)N(* *) ,TYPE cma$t_destructor =^$DEFTYP (* entry *); N(*  *)N(* A unique per-thread context key can be obtained for the process *)N(* *) )[ASYNCHRONOUS] PROCEDURE cma$key_create ( VAR key : [VOLATILE] cma$t_key; attr : cma$t_attr;* destructor : cma$t_destructor); EXTERNAL; N(* *)N(* A thread can set a per-thread context value  identified by a key. *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma$key_set_context ( key : cma$t_key;* context_value : cma$t_address); EXTERNAL; N(* *)N(* A thread can retrieve a per-thread context value identified by a key. *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma $key_get_context ( key : cma$t_key;9 VAR context_value : [VOLATILE] cma$t_address); EXTERNAL; N(* *)N(* Operations for alerts. *)N(* *)N(* *)N(* The current thread can request that a thread terminate it's execution. *)N(*  *) +[ASYNCHRONOUS] PROCEDURE cma$thread_alert (" thread : cma$t_thread); EXTERNAL; N(* *)N(* The current thread can poll for alert delivery. *)N(* *) 2[ASYNCHRONOUS] PROCEDURE cma$alert_test; EXTERNAL; N(*  *)N(* Control alert delivery state. *)N(* *) 3[ASYNCHRONOUS] PROCEDURE cma$alert_disable_asynch (8 VAR priority : [VOLATILE] cma$t_alert_state); EXTERNAL; 4[ASYNCHRONOUS] PROCEDURE cma$alert_disable_general (8 VAR priority : [VOLATILE] cma$t_alert_state); EXTERNAL; ;[ASYNCHRONOUS] PROCEDURE cma$alert_enable_asynch; EXTERNAL; 3[A SYNCHRONOUS] PROCEDURE cma$alert_enable_general (8 VAR priority : [VOLATILE] cma$t_alert_state); EXTERNAL; ,[ASYNCHRONOUS] PROCEDURE cma$alert_restore () priority : cma$t_alert_state); EXTERNAL; N(* *)N(* Operations on stacks *)N(* *) .TYPE cma$t_call_routine =^$DEFTYP (* entry *); N(*  *)N(* Assign a stack to a thread *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma$stack_assign_np ( stack : cma$t_stack_np;" thread : cma$t_thread); EXTERNAL; N(* *)N(* Call a routine on a new stack  *)N(* *) 4[ASYNCHRONOUS] PROCEDURE cma$stack_call_routine_np ( stack : cma$t_stack_np; routine : cma$t_call_routine; arg : cma$t_address;2 VAR result : [VOLATILE] cma$t_address); EXTERNAL; N(* *)N(* Check stack limit *)N(*  *) 2[ASYNCHRONOUS] FUNCTION cma$stack_check_limit_np (1 size : cma$t_integer) : cma$t_boolean; EXTERNAL; N(* *)N(* Create a new stack *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma$stack_create_np (' VAR stack : [VOLATILE] cma$t_stack_np; attr : cma$t_attr); EXTERNAL; N(*  *)N(* Delete a stack *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma$stack_delete_np (2 VAR stack : [VOLATILE] cma$t_stack_np); EXTERNAL; N(* *)N(* CMA Debug entry point *)N(*  *) -[ASYNCHRONOUS] PROCEDURE cma$debug; EXTERNAL; N(* *)N(* Fetch the fp *)N(* *) C[ASYNCHRONOUS] FUNCTION cma$exc_fetch_fp : cma$t_address; EXTERNAL; N(*  *)N(* Push an exception context *)N(* *) +[ASYNCHRONOUS] PROCEDURE cma$exc_push_ctx ( cb : cma$t_address); EXTERNAL; *[ASYNCHRONOUS] PROCEDURE cma$exc_pop_ctx (. VAR cb : [VOLATILE] cma$t_address); EXTERNAL; ([ASYNCHRONOUS] PROCEDURE cma$exc_raise ( exc : cma$t_address); EXTERNAL; /[ASYNCHRONOUS] PROCEDURE cma$exc_raise_status (# statu s : cma$t_integer); EXTERNAL; )[ASYNCHRONOUS] PROCEDURE cma$exc_report ( exc : cma$t_address); EXTERNAL; B[ASYNCHRONOUS] FUNCTION cma$exc_handler : cma$t_integer; EXTERNAL; %[ASYNCHRONOUS] FUNCTION cma$sigwait (1 wset : cma$t_address) : cma$t_integer; EXTERNAL; N(************************************************************************** *)N(* *)N(* The following are the portable CMA High-Level Library def initions *)N(* *)N(************************************************************************** *)N(* *)N(* Operations on attributes objects *)N(* *) TYPE cma$lib_t_attr = RECORD END; N(*  *)N(* An attributes object is created to specify the attributes of other CMA *)N(* objects that will be created. *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma$lib_attr_create (* VAR NEW_ATTR : [VOLATILE] cma$lib_t_attr;" ATTR : cma$lib_t_attr); EXTERNAL; N(* *)N(* An attr ibutes object can be deleted when it is no longer needed. *)N(* *) .[ASYNCHRONOUS] PROCEDURE cma$lib_attr_delete (1 VAR ATTR : [VOLATILE] cma$lib_t_attr); EXTERNAL; N(* *)N(* Operations on queues *)N(* *) TYPE cma$lib_t_queue = RECORD END; /[ASYNCHRONOUS] PROCEDURE cma$lib_queue_create (, VAR NEW_QUEUE : [VOLATILE] cma$lib_t_queue;! ATT : cma$lib_t_attr); EXTERNAL; /[ASYNCHRONOUS] PROCEDURE cma$lib_queue_delete (3 VAR QUEUE : [VOLATILE] cma$lib_t_queue); EXTERNAL; 0[ASYNCHRONOUS] PROCEDURE cma$lib_queue_dequeue ( QUEUE : cma$lib_t_queue;3 VAR ELEMENT : [VOLATILE] cma$t_address); EXTERNAL; 0[ASYNCHRONOUS] PROCEDURE cma$lib_queue_enqueue ( QUEUE : cma$lib_t_queue;+ %IMMED ELEMENT : cma$t_address); EXTERNAL; 7[ASYNCHRONOUS] FUNCTION cma$lib_queue_try_enqueue_int ( QUEUE : cma$lib_t_queue;; %IMMED ELEMENT : cma$t_address) : cma$t_boolean; EXTERNAL; 0[ASYNCHRONOUS] PROCEDURE cma$lib_queue_requeue ( QUEUE : cma$lib_t_queue;+ %IMMED ELEMENT : cma$t_address); EXTERNAL; 3[ASYNCHRONOUS] FUNCTION cma$lib_queue_try_dequeue ( QUEUE : cma$lib_t_queue;C VAR ELEMENT : [VOLATILE] cma$t_address) : cma$t_boolean; EXTERNAL; 3[ASYNCHRONOUS] FUNCTION cma$ lib_queue_try_enqueue ( QUEUE : cma$lib_t_queue;; %IMMED ELEMENT : cma$t_address) : cma$t_boolean; EXTERNAL; 3[ASYNCHRONOUS] FUNCTION cma$lib_queue_try_requeue ( QUEUE : cma$lib_t_queue;; %IMMED ELEMENT : cma$t_address) : cma$t_boolean; EXTERNAL; N(* *)N(* Set or obtain the default queue size *)N(* *)  5[ASYNCHRONOUS] PROCEDURE cma$lib_attr_get_queuesize ( ATTR : cma$lib_t_attr;5 VAR QUEUESIZE : [VOLATILE] cma$t_natural); EXTERNAL; 5[ASYNCHRONOUS] PROCEDURE cma$lib_attr_set_queuesize ( ATTR : cma$lib_t_attr;- %IMMED QUEUESIZE : cma$t_natural); EXTERNAL; N(* END. *) END.wwZ7[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$CONV_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE CONV$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2 147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) ((*** MODULE CONV$ROUTINES IDENT X-1 ***) N(* *)N(* Convert (CONV) Routines *)N(* *)N(* *)N(* CONV$CONVERT - Initiate conversion *)N(* *)N(* status = CONV$CONVERT ([status_block_address] [,flags]) *)N(* *)N(* status_block_address - Array of longwords into which will be written *)N(* statistics about the conversion. The first *)C(* element contains the number o f following elements *)N(* flags - Flags to control the conversion *)N(* *) &[ASYNCHRONOUS] FUNCTION CONV$CONVERT (Y %REF STATUS_BLOCK_ADDRESS : [VOLATILE] ARRAY [$l1..$u1:INTEGER] OF UNSIGNED := %IMMED 0;3 FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* CONV$PASS_FILES - Specify conversion files  *)N(* *)N(* status = CONV$PASS_FILES (input_filespec, output_filespec *)B(* [,fdl_filespec] [,exception_filespec] *);(* [,flags]) *)N(* *)N(* input_filespec - File to be converted *)N(* output_filespec  - Destination file *)N(* fdl_filespec - File containing FDL for conversion *)N(* exception_filespec - File to contain exception records *)N(* flags - Flags controlling conversion *) )[ASYNCHRONOUS] FUNCTION CONV$PASS_FILES (E INPUT_FILE_SPEC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;F OUTPUT_FILE_SPEC : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;N FDL_FILESPEC : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;T EXCEPTION_FILESPEC : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;3 FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* CONV$PASS_OPTIONS - Specify processing options *)N(* *)N(* status = CONV$PASS_OPTIONS ([parameter_list_address] [, flags]) *)N(* *)N(* parameter_list_address - Array specifying convert options *)N(* flags - Flags controlling conversion *)N(* *) +[ASYNCHRONOUS] FUNCTION CONV$PASS_OPTIONS (P %REF PARAMETER_LIST_ADDRESS : ARRAY [$l1..$u1:INTEGER] OF UNSIGNED := %IMMED 0;3 FLAGS : UNSIGNED := %IMMED 0) :  INTEGER; EXTERNAL; N(* *)N(* CONV$RECLAIM - CONVERT/RECLAIM *)N(* *)N(* status - CONV$RECLAIM (input_filespec [,statistics_blk]) *)N(* *)N(* input_filespec - File to be converted *)N (* statistics_blk - Array to receive statistics; first longword specifies *)I(* number of statistics *)N(* *) &[ASYNCHRONOUS] FUNCTION CONV$RECLAIM (D INPUT_FILESPEC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;h %REF STATISTICS_BLK : [VOLATILE] ARRAY [$l2..$u2:INTEGER] OF UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END.  *) END.ww[6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$CVT_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; # $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE CVT$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE cvt$routines ***) O(*************************************************************************** *)O(* *)O(* Copyright (c) 1993,1994 *)O(* by DIGITAL Equipment Corporation, Maynard, Mass. *)O(*  *)O(* This software is furnished under a license and may be used and copied *)O(* only in accordance with the terms of such license and with the *)O(* inclusion of the above copyright notice. This software or any other *)O(* copies thereof may not be provided or otherwise made available to any *)O(* other person. No title to and ownership of the software is hereby *)O(* transferred.  *)O(* *)O(* The information in this software is subject to change without notice *)O(* and should not be construed as a commitment by DIGITAL Equipment *)O(* Corporation. *)O(* *)O(* DIGITAL assumes no responsibility for the use or reliability of its *)O(* software on equipment which is not supplied by DIGITAL. *)O(* *)O(*************************************************************************** *)N(* CVT$CONVERT_FLOAT *)N(* *)N(* Convert floating point data types.  *)N(* *)N(* The CVT$CONVERT_FLOAT converts floating point data types to other *)N(* supported floating point data types. *)N(* *) +[ASYNCHRONOUS] FUNCTION cvt$convert_float (@ %REF input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;# %IMMED input_type_code : UNSIGNED;J %REF output_value :  [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;$ %IMMED output_type_code : UNSIGNED;0 %IMMED options : UNSIGNED) : INTEGER; EXTERNAL; "[ASYNCHRONOUS] FUNCTION CVT$FTOF (@ %REF input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;" %IMMED input_type_code : INTEGER;J %REF output_value : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;# %IMMED output_type_code : INTEGER;/ %IMMED options : INTEGER) : INTEGER; EXTERNAL; N(* END.  *) N(* MODULE CVTDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(*  L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN;  *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255;  *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151;  *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..26843 5455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $cvtdef ***) LCONST CVT$K_VAX_F = 0; (* VAX F Floating point data *)G CVT$K_VAX_D = 1; (* VAX D Floating point data *)G CVT$K_VAX_G = 2; (* VAX G Floating point data *)G CVT$K_VAX_H = 3; (* VAX H Floating point data *)G CVT$K_IEEE_S = 4; (* IEEE S Floating point data *)G CVT$K_IEEE_T = 5; (* IEEE T Floating point data *)G CVT$K_IBM_LONG = 6; (* IBM Long Floating point data *)G CVT$K_IBM_SHORT = 7; (* IBM Short Floating point data *)G CVT$K_CRAY = 8; (* Cray  Floating point data *)G CVT$K_IEEE_X = 9; (* IEEE X Floating point data *)G CVT$K_BIG_ENDIAN_IEEE_S = 10; (* IEEE S Floating point data *)G CVT$K_BIG_ENDIAN_IEEE_T = 11; (* IEEE S Floating point data *)G CVT$K_BIG_ENDIAN_IEEE_X = 12; (* IEEE S Floating point data *) CVT$K_CRAY_SINGLE = 8; N(* *)N(* Function Return Status Values:  *)N(* *) CONST CVT$K_NORMAL = 0; CVT$M_INVALID_INPUT_TYPE = 1; CVT$M_INVALID_OUTPUT_TYPE = 2; CVT$M_INVALID_OPTION = 4; CVT$M_RESULT_INFINITE = 8; CVT$M_RESULT_DENORMALIZED = 16;" CVT$M_RESULT_OVERFLOW_RANGE = 32;# CVT$M_RESULT_UNDERFLOW_RANGE = 64;! CVT$M_RESULT_UNNORMALIZED = 128; CVT$M_RESULT_INVALID = 256; CVT$M_RESULT_OVERFLOW = 512; CVT$M_RESULT_UNDERFLOW = 1024; CVT$M_RESULT_INEX ACT = 2048; !TYPE CVT$R_RETURN_STATUS = RECORD/ CVT$V_INVALID_INPUT_TYPE : [POS(0)] $BOOL;0 CVT$V_INVALID_OUTPUT_TYPE : [POS(1)] $BOOL;+ CVT$V_INVALID_OPTION : [POS(2)] $BOOL;, CVT$V_RESULT_INFINITE : [POS(3)] $BOOL;0 CVT$V_RESULT_DENORMALIZED : [POS(4)] $BOOL;2 CVT$V_RESULT_OVERFLOW_RANGE : [POS(5)] $BOOL;3 CVT$V_RESULT_UNDERFLOW_RANGE : [POS(6)] $BOOL;0 CVT$V_RESULT_UNNORMALIZED : [POS(7)] $BOOL;+ CVT$V_RESULT_INVALID : [POS(8)] $BOOL;, CVT $V_RESULT_OVERFLOW : [POS(9)] $BOOL;. CVT$V_RESULT_UNDERFLOW : [POS(10)] $BOOL;, CVT$V_RESULT_INEXACT : [POS(11)] $BOOL;% CVT$V_FILL_0_ : [POS(12)] $BIT4; END; N(* *)N(* Conversion Options: *)N(* *) !CONST CVT$M_ROUND_TO_NEAREST = 1; CVT$M_TRUNCATE = 2; CVT$M_ROUND_TO_POS = 4; CVT$M_ROUND_TO_NEG = 8; CVT$M_VAX_ROUNDING = 16; CVT$M_BIG_ENDIAN = 32; CVT$M_ERR_UNDERFLOW = 64;# CVT$M_FORCE_INVALID_TO_ZERO = 128;" CVT$M_FORCE_DENORM_TO_ZERO = 256;$ CVT$M_FORCE_INF_TO_MAX_FLOAT = 512;' CVT$M_FORCE_ALL_SPECIAL_VALUES = 1024;( CVT$M_ALLOW_OVRFLW_RANGE_VALUES = 2048;( CVT$M_ALLOW_UDRFLW_RANGE_VALUES = 4096;( CVT$M_ALLOW_UNNORMALIZED_VALUES = 8192; CVT$M_REPORT_ALL = 16384; CVT$m_spare2 = -32768; &TYPE CVT$R_CONVERSION_OPTIONS = RECORDG  (* *)G (* Rounding Mode Options: *)G (* *)- CVT$V_ROUND_TO_NEAREST : [POS(0)] $BOOL;% CVT$V_TRUNCATE : [POS(1)] $BOOL;) CVT$V_ROUND_TO_POS : [POS(2)] $BOOL;) CVT$V_ROUND_TO_NEG : [POS(3)] $BOOL;) CVT$V_VAX_ROUNDING : [POS(4)] $BOOL;G (* *)M  (* Options exclusive to CVT$CONVERT_FLOAT *)G (* *)' CVT$V_BIG_ENDIAN : [POS(5)] $BOOL;* CVT$V_ERR_UNDERFLOW : [POS(6)] $BOOL;G (* *)G (* Forcing Results Options: *)G (* *)2 CVT$V_FORCE_INVALID_TO_ZERO : [POS(7)] $BOO L;1 CVT$V_FORCE_DENORM_TO_ZERO : [POS(8)] $BOOL;3 CVT$V_FORCE_INF_TO_MAX_FLOAT : [POS(9)] $BOOL;6 CVT$V_FORCE_ALL_SPECIAL_VALUES : [POS(10)] $BOOL;G (* *)H (* Allowing Special Results Options: *)G (* *)7 CVT$V_ALLOW_OVRFLW_RANGE_VALUES : [POS(11)] $BOOL;7 CVT$V_ALLOW_UDRFLW_RANGE_VALUES : [POS(12)] $BOOL;7  CVT$V_ALLOW_UNNORMALIZED_VALUES : [POS(13)] $BOOL;G (* *)G (* Status Selection Options: *)G (* *)( CVT$V_REPORT_ALL : [POS(14)] $BOOL;G (* *)G (* Everything else. *)G (*  *)% CVT$v_spare2 : [POS(15)] $BIT17; END; %CONST CVT$M_ALT_ROUND_TO_NEAREST = 1; CVT$M_ROUND_TO_ZERO = 2; CVT$M_ALT_ROUND_TO_POS = 4; CVT$M_ALT_ROUND_TO_NEG = 8; CVT$M_BIASED_ROUNDING = 16; CVT$m_spare3 = -32; *TYPE CVT$R_ALT_CONVERSION_OPTIONS = RECORDG (* *)G (* Rounding Mode Options: *)G (*  *)1 CVT$V_ALT_ROUND_TO_NEAREST : [POS(0)] $BOOL;* CVT$V_ROUND_TO_ZERO : [POS(1)] $BOOL;- CVT$V_ALT_ROUND_TO_POS : [POS(2)] $BOOL;- CVT$V_ALT_ROUND_TO_NEG : [POS(3)] $BOOL;, CVT$V_BIASED_ROUNDING : [POS(4)] $BOOL;$ CVT$v_spare3 : [POS(5)] $BIT27; END; N(* END. *) N(* MODULE CVTMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD  *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7;  *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607;  *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30 ),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CVTMSG ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.81 *)N(* *)N(*  *)Q(***************************************************************************** *)Q(** * *)Q(** COPYRIGHT (C) 1991 * *)Q(** BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * *)Q(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)Q(** TRANSFERRED. * *)Q(**  * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)Q(** CORPORATION. * *)Q(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)Q(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)Q(** * *)Q(***************************************************************************** *)Q(*============================================================================ *)N(* *)A(* FILE: CVTMSG.MSG *)N(*  *)D(* VERSION: 1-001 *)N(* *)E(* FACILITY: CVTRTL - VMS CONVERSION RUN TIME LIBRARY *)N(* *)E(* ABSTRACT: MESSAGE DEFINITIONS FOR THE CVT FACILITY. *)N(* *)C(* AUTHOR: JEFFREY S. YOUNG *)N(* *)I(* CREATION DATE: 25-JUN-1991 *)N(* *)N(* MODIFICATION HISTORY: *)Q(* -------------------------------------------------------------------------- *)H(* 1-001 25-JUN-1991 JSY ORIGINAL VERSION.  *)N(* *)Q(*============================================================================ *)Q(*============================================================================ *)N(* *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* C VT$_ABCMNOXYZ *)N(* *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)P(* THE NAMES OF ALL PROCEDUR ES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)Q(*============================================================================ *)N(* *) CONST CVT$_FACILITY = 1530; CVT$_NORMAL = 100302857; CVT$_INPCONERR = 100302866; CVT$_INVINPTYP = 100302874; CVT$_ INVOPT = 100302882; CVT$_INVOUTTYP = 100302890; CVT$_INVVAL = 100302898; CVT$_NEGINF = 100302906; CVT$_OUTCONERR = 100302914; CVT$_OVERFLOW = 100302922; CVT$_POSINF = 100302930; CVT$_UNDERFLOW = 100302938; N(* END. *) END.ww $]6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$DCX_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with  FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; # $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE DCX$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE DCX$ROUTINES IDENT X-1 ***) N(*--------------------------------------------------------------- *)N(* *)N(* Data Compression/Expansion (DCX) Routines *)N(* *)N(*  *)N(* DCX$ANALYZE_DATA - Analyze a data record *)N(* *)N(* status = DCX$ANALYZE_DATA (context, record) *)N(* *)N(* context - Context value returned by DCX$ANALYZE_INIT *)N(* record - Record to be analyzed  *) *[ASYNCHRONOUS] FUNCTION DCX$ANALYZE_DATA ( CONTEXT : UNSIGNED;R RECORD_ : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* *)N(* DCX$ANALYZE_DONE - Complete analysis *)N(* *)N(* status = DCX$ANALYZE_DONE (context)  *)N(* *)N(* context - Context value returned by DCX$ANALYZE_INIT *) *[ASYNCHRONOUS] FUNCTION DCX$ANALYZE_DONE (8 VAR CONTEXT : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* DCX$ANALYZE_INIT - Initialize context for analysis *)N(*  *)N(* status = DCX$ANALYZE_INIT (context [,item_code, item_value]) *)N(* *)N(* context - Receives context value for data stream *)N(* item_code - Specifies information to be used during analysis *)N(* item_value - Value of information item *)N(* [Note - successive pairs of item_code and item_value can be passed *)N(* in the argu ment list] *)N(* *) *[ASYNCHRONOUS] FUNCTION DCX$ANALYZE_INIT (# VAR CONTEXT : [VOLATILE] UNSIGNED;" ITEM_CODE : UNSIGNED := %IMMED 0;3 ITEM_VALUE : [LIST] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* DCX$COMPRESS_DATA - Compress a data record *)N(*   *)N(* status = DCX$COMPRESS_DATA (context, in_rec, out_rec, out_length) *)N(* *)N(* context - Value returned by DCX$COMPRESS_INIT *)N(* in_rec - Data record to be compressed *)N(* out_rec - Receives compressed record *)N(* out_length - Receives length of compressed r !ecord *)N(* *) +[ASYNCHRONOUS] FUNCTION DCX$COMPRESS_DATA ( CONTEXT : UNSIGNED;< IN_REC : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;J VAR OUT_REC : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;E VAR OUT_LENGTH : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* DCX$COMPRESS_DONE - Delet "e context for compression *)N(* *)N(* status = DCX$COMPRESS_DONE (context) *)N(* *)N(* context - Value returned by DCX$COMPRESS_INIT *)N(* *) +[ASYNCHRONOUS] FUNCTION DCX$COMPRESS_DONE (8 VAR# CONTEXT : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* DCX$COMPRESS_INIT - Initialize context for compression *)N(* *)N(* status = DCX$COMPRESS_INIT (context, map) *)N(* *)N(* context - Context value for this data stream $ *)N(* map - Map value returned by DCX$MAKE_MAP *)N(* *) +[ASYNCHRONOUS] FUNCTION DCX$COMPRESS_INIT (# VAR CONTEXT : [VOLATILE] UNSIGNED;$ MAP : $DEFPTR) : INTEGER; EXTERNAL; N(* *)N(* DCX$EXPAND_DATA - Expand a compressed data record *)N(* % *)N(* status = DCX$EXPAND_DATA (context, in_rec, out_rec [,out_length]) *)N(* *)N(* context - Value returned by DCX$EXPAND_INIT *)N(* in_rec - Data record to be expanded *)N(* out_rec - Receives expanded data record *)N(* out_length - Receives length of expanded recor &d *)N(* *) )[ASYNCHRONOUS] FUNCTION DCX$EXPAND_DATA ( CONTEXT : UNSIGNED;< IN_REC : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;J VAR OUT_REC : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;E VAR OUT_LENGTH : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* DCX$EXPAND_DONE - Delete cont 'ext for expansion *)N(* *)N(* status = DCX$EXPAND_DONE (context) *)N(* *)N(* context - Value returned by DCX$EXPAND_INIT *)N(* *) )[ASYNCHRONOUS] FUNCTION DCX$EXPAND_DONE (8 VAR CONTE(XT : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* DCX$EXPAND_INIT - Initialize context for expansion *)N(* *)N(* status = DCX$EXPAND_INIT (context, map) *)N(* *)N(* context - Receives context value identifying data )stream *)N(* map - Map value returned by DCX$MAKE_MAP *)N(* *) )[ASYNCHRONOUS] FUNCTION DCX$EXPAND_INIT (# VAR CONTEXT : [VOLATILE] UNSIGNED;$ MAP : $DEFPTR) : INTEGER; EXTERNAL; N(* *)N(* DCX$MAKE_MAP - Compute compression/expansion map *)N(* * *)N(* status = DCX$MAKE_MAP (context, map_addr [, map_size]) *)N(* *)N(* context - Value returned by DCX$ANALYZE_INIT *)N(* map_addr - Receives address of allocated map data *)N(* map_size - Receives size of allocated map data *)N(* *) &[ASYNCHRONOUS] FUNCTION DCX$MAKE_MAP ( CONTEXT : UNSIGNED;# VAR MAP_ADDR : [VOLATILE] $DEFPTR;E VAR MAP_SIZE : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) END.ww,6^6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$DTK_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with -FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio.ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ / }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP0 = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; 1# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..233554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE DTK$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; 3 *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.4.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE5C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; 6 *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;7 *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =8 [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; 9 *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 :7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE dtk$routines ***) P(**************************************************************************** *)(* * *)4(* COPYRIGHT (c) 1988 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE US ;ED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND S <HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* DTK$ANSWER_PHONE *)N(* = *)N(* Wait for Phone to Ring and Answer *)N(* *)N(* The Wait for Phone to Ring and Answer routine *)N(* waits for the phone connected to the DECtalk device to ring *)N(* and then answers it. *)N(* > *) *[ASYNCHRONOUS] FUNCTION dtk$answer_phone ( voice_id : UNSIGNED;' number_of_rings : INTEGER := %IMMED 0;F text : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;4 timeout : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$CHECK_HDWR_STATUS *)N(* *)N(* Check Hardware Status ? *)N(* *)S(* The Check Hardware Status routine checks the DECtalk hardware for hardware *)N(* malfunctions. *)N(* *) /[ASYNCHRONOUS] FUNCTION dtk$check_hdwr_status ( voice_id : UNSIGNED;< VAR hdwr_status : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* DTK$DIAL_PHONE @ *)N(* *)N(* Dial the Telephone *)N(* *)T(* The Dial the Telephone routine dials the specified number on the telephone. *)N(* *) ([ASYNCHRONOUS] FUNCTION dtk$dial_phone A ( voice_id : UNSIGNED;B phone_number : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;" dial_mode : UNSIGNED := %IMMED 0;F text : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;4 timeout : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$HANGUP_PHONE *)N(* *)N(* Hang Up the Phone *)N(* B *)N(* The Hang Up the Phone routine speaks an optional message and *)N(* then hangs up the phone. *)N(* *) *[ASYNCHRONOUS] FUNCTION dtk$hangup_phone ( voice_id : UNSIGNED;[ text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$INITIALIZEC *)N(* *)N(* Initialize DECtalk *)N(* *)f(* The Initialize DECtalk routine initializes a DECtalk device and returns the device's assigned *)N(* voice identifier. *)N(* D *) ([ASYNCHRONOUS] FUNCTION dtk$initialize ($ VAR voice_id : [VOLATILE] UNSIGNED;C output_device : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;G VAR device_type : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$LOAD_DICTIONARY *)N(* *)N(* Load a Word into the DECtalk Dictionary E *)N(* *)N(* The Load a Word into the DECtalk Dictionary routine *)N(* loads a phonemic definition of a word into the DECtalk *)N(* dictionary. *)N(* *) -[ASYNCHRONOUS] FUNCTION dtk$load_dictionary ( voice_id : UNSIGNED;: text F: [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;W substitution : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* DTK$READ_KEYSTROKE *)N(* *)N(* Read a Key Entered on the Keypad *)N(* *)N(* The Read a Key Entered on the Ke Gypad routine *)N(* reads a key entered on the phone keypad. *)N(* *) ,[ASYNCHRONOUS] FUNCTION dtk$read_keystroke ( voice_id : UNSIGNED;# VAR key_code : [VOLATILE] INTEGER;O prompt_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;4 timeout : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$READ_STRING H *)N(* *)N(* Read a Series of Keys Entered on the Keypad *)N(* *)N(* The Read a Series of Keys Entered on the Keypad routine reads a *)N(* series of keys entered on the phone keypad. *)N(* *) I )[ASYNCHRONOUS] FUNCTION dtk$read_string ( voice_id : UNSIGNED;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;O prompt_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; timeout : INTEGER := %IMMED 0;X VAR longword_integer_termin_code : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$RETURN_LAST_INDEX *)N(* J *)N(* Return Last Index Spoken *)N(* *)N(* The Return Last Index Spoken routine returns the last index spoken. *)N(* *) /[ASYNCHRONOUS] FUNCTION dtk$return_last_index ( voice_id : UNSIGNED;7 VAR p_index : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* DTK$SPELL_TEXT K *)N(* *)N(* Spell Text *)N(* *)N(* The Spell Text routine causes DECtalk to pronounce each letter of *)N(* the specified text. *)N(* L *) ([ASYNCHRONOUS] FUNCTION dtk$spell_text ( voice_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;= completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SPEAK_FILE *)N(* *)N(* Speak the Text in a Specified File *)N(* M *)N(* The Speak the Text in a Specified File routine *)N(* speaks the text contained in the specified file. *)N(* *) ([ASYNCHRONOUS] FUNCTION dtk$speak_file ( voice_id : UNSIGNED;> filespec : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;= completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SPEAK_PHONNEMIC_TEXT *)N(* *)N(* Speak the Specified Phonemic Text *)N(* *)N(* The Speak the Specified Phonemic Text routine *)N(* sends the specified phonemic text to the DECtalk device *)N(* to be spoken. O *)N(* *) 1[ASYNCHRONOUS] FUNCTION dtk$speak_phonemic_text ( voice_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;= completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SPEAK_TEXT *)N(* *)N(* Speak the Specifie Pd Text *)N(* *)N(* The Speak the Specified Text routine *)N(* sends the specified text to the DECtalk device *)N(* to be spoken. *)N(* *) ([ASYNCHRONOUS] FUNCTION dtk$speak_text ( voi Qce_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;= completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SET_INDEX *)N(* *)N(* Insert an Index at the Current Position *)N(* *)N(* The Insert an Index at the Curre Rnt Position routine *)N(* inserts an index into the current output stream. *)N(* *) '[ASYNCHRONOUS] FUNCTION dtk$set_index ( voice_id : UNSIGNED;( p_index : INTEGER) : INTEGER; EXTERNAL; N(* DTK$SET_KEYPAD_MODE *)N(* *)N(* Turn the Phone Keypad SOn and Off *)N(* *)N(* The Turn the Phone Keypad On and Off routine turns recognition *)N(* of the telephone keypad on or off. *)N(* *) -[ASYNCHRONOUS] FUNCTION dtk$set_keypad_mode ( voice_id : UNSIGNED;- keypad_mode : UNSIGNED) : INTEGER; EXTERNAL; N(* TDTK$SET_LOGGING_MODE *)N(* *)T(* Set the Logging Mode for the Video Terminal Connected to the DECtalk Device *)N(* *)N(* The Set the Logging Mode for the Video Terminal *)N(* Connected to the DECtalk Device routine *)N(* controls the informa Ution that is displayed on the video *)N(* terminal while the DECtalk device is functioning. *)N(* *) .[ASYNCHRONOUS] FUNCTION dtk$set_logging_mode ( voice_id : UNSIGNED;! new_mode : UNSIGNED := %IMMED 0;E VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SET_MODE *)N(* V *)N(* Set the Mode for the DECtalk Terminal *)N(* *)N(* The Set the Mode for the DECtalk Terminal routine *)N(* sets or resets the mode settings of the DECtalk terminal. *)N(* *) &[ASYNCHRONOUS] FUNCTION dtk$set_mode ( voice W_id : UNSIGNED;! new_mode : UNSIGNED := %IMMED 0;E VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SET_SPEECH_MODE *)N(* *)N(* Turn Speech Mode On and Off *)N(* *)N(* The Turn Speech Mode On and Off routine X *)N(* either starts or stops the DECtalk device's speech. *)N(* *) -[ASYNCHRONOUS] FUNCTION dtk$set_speech_mode ( voice_id : UNSIGNED; new_mode : UNSIGNED;E VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SET_TERMINAL_MODE *)N(* Y *)N(* Set the Mode for the Video Terminal Connected to the DECtalk Device *)N(* *)N(* The Set the Mode for the Video Terminal *)N(* Connected to the DECtalk Device routine *)N(* controls the attributes of the video terminal connected *)N(* to the DECtalk device. *)N(* Z *) /[ASYNCHRONOUS] FUNCTION dtk$set_terminal_mode ( voice_id : UNSIGNED;! new_mode : UNSIGNED := %IMMED 0;E VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$SET_VOICE *)N(* *)N(* Set Voice Characteristics *)N(* [ *)N(* The Set Voice Characteristics routine *)N(* changes the DECtalk voice characteristics to match those *)N(* specified. *)N(* *) '[ASYNCHRONOUS] FUNCTION dtk$set_voice ( voice_id : UNSIGNED;! new_voice : INTEGER := %IMMED 0;# speech_ \rate : INTEGER := %IMMED 0;$ comma_pause : UNSIGNED := %IMMED 0;: period_pause : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* DTK$TERMINATE *)N(* *)N(* Terminate DECtalk *)N(* *)S(* The Terminate DECtalk routine terminates the use ] of an initialized DECtalk *)N(* device. *)N(* *) '[ASYNCHRONOUS] FUNCTION dtk$terminate (* voice_id : UNSIGNED) : INTEGER; EXTERNAL; N(* END. *) N(* MODULE DTKDEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***??^ *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; _ *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,`L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BaIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; b *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] c0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* d$BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; e *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $DTKDEF ***)N(* Definitions for RTL DECtalk Management *) N(* *)I(* Phone keypad keys. *)N(* f *) CONST DTK$K_TRM_ZERO = 48; DTK$K_TRM_ONE = 49; DTK$K_TRM_TWO = 50; DTK$K_TRM_THREE = 51; DTK$K_TRM_FOUR = 52; DTK$K_TRM_FIVE = 53; DTK$K_TRM_SIX = 54; DTK$K_TRM_SEVEN = 55; DTK$K_TRM_EIGHT = 56; DTK$K_TRM_NINE = 57; DTK$K_TRM_A = 65; DTK$K_TRM_B = 66; DTK$K_TRM_C = 67; DTK$K_TRM_D = 68; DTK$K_TRM_NUMBER_SIGN = 35; DTK$K_TRM_ASTERISK = 42; N(* Conditions *) LCONST DTK$K_TRM_CANCgELLED = 508; (* I/O cancelled *)G DTK$K_TRM_TIMEOUT = 509; (* Timeout period expired *)G DTK$K_TRM_BUFFER_FULL = 510; (* Buffer is full *)G DTK$K_TRM_UNKNOWN = 511; (* Unknown terminator *) N(* *)I(* Self-test constants. *)N(* h *) CONST DTK$K_TEST_POWER = 1; DTK$K_TEST_HDATA = 2; DTK$K_TEST_HCONTROL = 3; DTK$K_TEST_DATA = 4; DTK$K_TEST_SPEAK = 5; N(* *)I(* Phone dialing constants. *)N(* *) CONST DTK$K_DIAL_TONE = 0; DTK$K_DIAL_PULSE = 1; N(* i *)I(* DECtalk types. *)N(* *) CONST DTK$K_DTC_UNKNOWN = 0; DTK$K_DTC_01 = 1; DTK$K_DTC_03 = 2; N(* *)I(* Keypad modes. *)N(* *) CONST DTK$jK_KEYPAD_OFF = 0; DTK$K_KEYPAD_ON = 1; DTK$K_KEYPAD_AUTO = 2; N(* *)I(* Voices. *)N(* *) CONST DTK$K_VOICE_MALE = 0; DTK$K_VOICE_FEMALE = 1; DTK$K_VOICE_CHILD = 2; DTK$K_VOICE_DEEP_MALE = 3; DTK$K_VOICE_DEEP_FEMALE = 4; DTK$K_VOICE_OLDER_MALE = 5; DTK$K_VOICE_LIGHT k_FEMALE = 6; N(* *)I(* Speaking modes. *)N(* *) CONST DTK$K_SPEAK = 0; DTK$K_STOP = 1; DTK$K_HALT = 2; N(* *)I(* Return modes. *)N(* l *) QCONST DTK$K_IMMED = 0; (* Return immedately after sending text. *)Y DTK$K_WAIT = 1; (* Wait until text is completely spoken be returning. *)Z DTK$K_STATUS = 2; (* Wait for text to be spoken and return phone status. *) N(* *)N(* DEFINE BIT MASKS AND VALUES FOR MODE ATTRIBUTES *)N(* m *) CONST DTK$M_SQUARE = 1; DTK$M_ASCII = 2; DTK$M_MINUS = 4; DTK$M_EUROPE = 8; DTK$M_SPELL = 16;G DTK$M_NORMAL = 0; (* no bits set *)G DTK$K_SQUARE = 0; (* Mode square bitvector index *)G DTK$K_ASCII = 1; (* asky mode *)H DTK$K_MINUS = 2; (* Say dash as minus bitvector index *)G DTK$K_EUROPE = 3; (* Eu nropean type numbers *)G DTK$K_SPELL = 4; (* Spell all words *) DTK$M_HOST = 1; DTK$M_SPEAK_ALL = 2; DTK$M_EDITED = 4; DTK$M_HARD = 8; DTK$M_SETUP = 16; DTK$M_FILTER = 32;G DTK$K_HOST = 0; (* Send all chars typed to host. *)G DTK$K_SPEAK_ALL = 1; (* Speak all chars typed. *)G DTK$K_EDITED = 2; (* Line edit all chars typed. *)H DTK$K_HARD = 3; (* Do local echo ino hardcopy format. *)O DTK$K_SETUP = 4; (* Speak all chars displayed in setup mode. *)M DTK$K_FILTER = 5; (* Don't send DECtalk specific sequences. *) DTK$M_TEXT = 1; DTK$M_PHONEME = 2; DTK$M_RAWHOST = 4; DTK$M_INHOST = 8; DTK$M_OUTHOST = 16; DTK$M_ERROR = 32; DTK$M_TRACE = 64; DTK$M_DEBUG = 128;G DTK$K_TEXT = 0; (* Log ASCII text. *)G DTK$K_PHONEME = 1; (* Log phonemic text. *)H DTK$K_R pAWHOST = 2; (* Log all chars without inspection. *)G DTK$K_INHOST = 3; (* Log text read from host. *)G DTK$K_OUTHOST = 4; (* Log text sent to host. *)G DTK$K_ERROR = 5; (* Log error messages. *)G DTK$K_TRACE = 6; (* Log sequences symbolically *)G DTK$K_DEBUG = 7; (* Reserved *) &TYPE DTK$TYPE = RECORD CASE INTEGER OFN(* q *)I(* DEFINE BITS, MASKS, AND FIELDS FOR THE CONTROL MODES. *)N(* *)/ 1: (DTK$R_DTKMODE_BITS : [BYTE(1)] RECORD END; );G 2: (DTK$V_SQUARE : [POS(0)] $BOOL; (* Set mode square on *)G DTK$V_ASCII : [POS(1)] $BOOL; (* asky mode *)G DTK$V_MINUS : [POS(2)] $BOOL; (* Say dash as minus *)G DTK$V_EUR rOPE : [POS(3)] $BOOL; (* Europe *)G DTK$V_SPELL : [POS(4)] $BOOL; (* Spell all words *) );/ 3: (DTK$R_DTKTERM_BITS : [BYTE(1)] RECORD END; );G 4: (DTK$V_HOST : [POS(0)] $BOOL; (* Send all chars typed to host. *)G DTK$V_SPEAK_ALL : [POS(1)] $BOOL; (* Speak all chars typed. *)G DTK$V_EDITED : [POS(2)] $BOOL; (* Line edit all chars typed. *)I DTK$V_HARD : [POS(3)] $BOOL; (* Do local echo in hardcopy format. *)Q s DTK$V_SETUP : [POS(4)] $BOOL; (* Speak all chars displayed in setup mode. *)P DTK$V_FILTER : [POS(5)] $BOOL; (* Don't send DECtalk specific sequences. *) );. 5: (DTK$R_DTKLOG_BITS : [BYTE(1)] RECORD END; );G 6: (DTK$V_TEXT : [POS(0)] $BOOL; (* Log ASCII text. *)G DTK$V_PHONEME : [POS(1)] $BOOL; (* Log phonemic text. *)L DTK$V_RAWHOST : [POS(2)] $BOOL; (* Log all chars without inspection. *)G DTK$V_INHOST : [POS(3)] $BOOL; (* Log text re tad from host. *)G DTK$V_OUTHOST : [POS(4)] $BOOL; (* Log text sent to host. *)G DTK$V_ERROR : [POS(5)] $BOOL; (* Log error messages. *)G DTK$V_TRACE : [POS(6)] $BOOL; (* Log sequences symbolically *)G DTK$V_DEBUG : [POS(7)] $BOOL; (* Reserved *) ) END; N(* END. *) N(* MODULE DTKMSG ; *) uG(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; v *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD w *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] x0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(*y $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; z *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSA{FE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J |(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $DTKMSG ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.87 *)N(* *)N }(* FILE: DTKMSG.MSG EDIT: TS1004 *)N(* *)Q(***************************************************************************** *)(** * *)M(** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1988 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS ~FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(*  *)N(* *)N(* 1-004 ADD DSR STATUS MESSAGES. TS 29-AUG-1986 *)N(* 1-003 ADD /MACRO=$DTKMSG FOR STARLETSD. TS 30-JUL-1986 *)N(* 1-002 ADD DTK$_TLKINUSE. TS 10-APR-1986 *)N(* 1-001 ORIGINAL. TS 6-AUG-1985 *)N(*-  *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* DTK$_ABCMNOXYZ *)N(* *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)P(* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)N(* MACRO-32 PROGRAMMING:  *)N(* *)N(* THE MACROS CALL: *)N(* *)I(* $DTKDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.  *)N(* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(* *)N(*- *)N(* TEMPLATE FOR DOCUMENTING MESSAGES. *)N(* EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND *)N(* IS FOLLOWED BY A BLANK LINE. *)N(* BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "!" IN REGULAR COMMENTS *)N(* AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE *)N(* SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE *)N(* DOCUMENTATION BECOMES AUTOMATED. *)N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: X *)N(* USER ACTION: Y *)N(*-- *);(* ; SET LH TO 419 (DECIMAL). *) CONST DTK$_FACILITY = 419; DTK$_NORMAL = 27492353; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: NORMAL SUCCESSFUL COMPLETION. *)N(* USER ACTION: NONE *)N(*-- *) CONST DTK$_VOIALREXI = 27492369; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATI ON: A USER TRIED TO CREATE A NEW VOICE_ID FOR A DECTALK *)B(* DEVICE, WHEN ONE ALREADY EXISTS. THIS IS NORMAL IN *)B(* A MODULAR ENVIRONMENT. THE EXISTING VOICE ID *)B(* IS RETURNED. *)N(* USER ACTION: NONE. MAKE SURE YOU DON'T DELETE A VOICE_ID *)B(* THAT YOU ACTUALLY DIDN'T CREATE. *)N(*-- *) CO NST DTK$_NOT_A_TRM = 27492377; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *)B(* THE OUTPUT DEVICE IS NOT A TERMINAL. *)N(* USER ACTION: NONE. *)N(*-- *)N(*+  *)H(* NOTE:: DO NOT ADD ANY ADDITIONAL SUCCESS MESSAGES HERE. *)B(* ADD THEM BELOW AFTER THE REMAINING .SUCCESS MESSAGES. *)N(*- *) CONST DTK$_BUSY = 27492387; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATI ON: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE *)B(* NUMBER AND THE LINE WAS BUSY. *)N(* USER ACTION: TRY CALLING AGAIN. *)N(*-- *) CONST DTK$_NOANSWER = 27492395; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANA TION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE *)B(* NUMBER AND NO ONE ANSWERED THE CALL. *)N(* USER ACTION: TRY CALLING AGAIN. *)N(*-- *) CONST DTK$_NODIATONE = 27492403; N(*++ *)K(* FACILITY: DTK *)N(* EXPLA NATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE *)B(* NUMBER AND NO DIAL TONE WAS DETECTED ON THE *)B(* PHONE LINE. *)N(* USER ACTION: CORRECT THE TELEPHONE LINE PROBLEM AND CALL AGAIN. *)N(*-- *) CONST DTK$_OFFHOOK = 27492411; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *)B(* THE PHONE IS OFFHOOK (A CALL IS ACTIVE). *)N(* USER ACTION: NONE. *)N(*-- *) CONST DTK$_ONHOOK = 27492419; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *)B(* THE PHONE IS ONHOOK (NO CALL IS ACTIVE). *)N(* USER ACTION: NONE. *)N(*-- *) CONST DTK$_TIMEOUT = 27492427; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *)B(* THE OUTPUT DEVICE HAS TIMED OUT. *)N(* USER ACTION: NONE. *)N(*-- *) CONST DTK$_WINK = 27492435; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: A WINK (POSSIBLE TIMEOUT) WAS DETECTED ON THE *)B(* PHONE LINE. THE CALLER MAY HAVE HUNG UP THE PHONE. *)N(* USER ACTION: NONE. *)N(*-- *) CONST DTK$_COMFAIL = 27492443; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: A COMMUNICATIONS MALFUNCTION HAS OCCURRED SINCE THE *)B(* DECTALK UNIT WAS TURNED ON. *)N(* USER ACTION: CHECK THE DECTALK HARDWARE. *)N(*-- *) CONST DTK$_INPBUFOVR = 27492451; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: AN INPUT BUFFER OVERFLOW MALFUNCTION HAS OCCURRED SINCE *)B(* THE DECTALK UNIT WAS TURNED ON. *)N(* USER ACTION: CHECK THE DECTALK HARDWARE. *)N(*-- *) CONST DTK$_NVROPRFAI = 27492459; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: A NVR OPERATION FAILURE HAS OCCURRED SINCE *)B(* THE DECTALK UNIT WAS TURNED ON. *)N(* USER ACTION: CHECK THE DECTALK HARDWARE. *)N(*-- *) CONST DTK$_ERRPHOTRA = 27492467; N(*++ *)K(* FACILITY: D TK *)N(* EXPLANATION: A PHONEMIC TRANSCRIPTION MALFUNCTION HAS OCCURRED SINCE *)B(* THE DECTALK UNIT WAS TURNED ON. *)N(* USER ACTION: CHECK THE DECTALK HARDWARE. *)N(*-- *) CONST DTK$_CONSEQERR = 27492475; N(*++ *)K(* FACILITY:  DTK *)N(* EXPLANATION: A DECTALK PRIVATE CONTROL SEQUENCE MALFUNCTION HAS *)B(* OCCURRED SINCE THE DECTALK UNIT WAS TURNED ON. *)N(* USER ACTION: CHECK THE DECTALK HARDWARE. *)N(*-- *) CONST DTK$_DECTSTFAI = 27492483; N(*++ *)K(* FACILIT Y: DTK *)N(* EXPLANATION: A LOCAL SELF-TEST MALFUNCTION HAS OCCURRED SINCE *)B(* THE DECTALK UNIT WAS TURNED ON. *)N(* USER ACTION: CHECK THE DECTALK HARDWARE. *)N(*-- *) CONST DTK$_FATERRLIB = 27492868; N(*++ *)K(* FACIL ITY: DTK *)N(* EXPLANATION: AN INTERNAL ERROR HAS OCCURED WITHIN DTK. *)N(* USER ACTION: SUBMIT AN SPR DESCRIBING THE PROBLEM. *)N(*-- *) CONST DTK$_FILTOOLON = 27492876; N(*++ *)K(* FACILITY: DTK * )N(* EXPLANATION: THE LENGTH OF THE SPECIFIED STRING *)B(* WAS TOO LONG. *)N(* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE *)B(* NAME OF 255 CHARACTERS OR LESS. *)N(*-- *) CONST DTK$_INVARG = 27492884; N(*++ *)K(* FAC ILITY: DTK *)N(* EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE. *)N(* USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS *)B(* OUT OF RANGE AND CORRECT YOUR PROGRAM. *)N(*-- *) CONST DTK$_INVMODE = 27492892; N(*++ *)K(* FAC ILITY: DTK *)N(* EXPLANATION: THE VALUE OF THE MODE ARGUMENT IS NOT IN THE *)B(* CORRECT RANGE. *)N(* USER ACTION: EXAMINE THE ARGUMENT. DETERMINE WHAT IS *)B(* OUT OF RANGE AND CORRECT YOUR PROGRAM. *)N(*-- *) CONST DTK$_INVVOI_ID = 27492900; N(*++  *)K(* FACILITY: DTK *)N(* EXPLANATION: AN INVALID VOICE-ID WAS SPECIFIED. *)N(* USER ACTION: CHECK THAT YOU ARE PASSING THE VOICE ID BY REFERENCE *)B(* NOT BY VALUE. ENSURE THAT THE VOICE ID WAS *)B(* PREVIOUSLY SET UP BY A CALL TO DTK$INITIALIZE. *)N(*--  *) CONST DTK$_NOROOM = 27492908; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: THERE IS NO ROOM LEFT IN THE DICTIONARY FOR THIS *)B(* DEFINITION. *)N(* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS FEWER *)B(* DICTIONARY ENTRIES OR SO THAT EACH ENTRY IS SMALLER. *)N (*-- *) CONST DTK$_NOTIMP = 27492916; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: YOU TRIED TO USE A FEATURE THAT IS NOT IMPLEMENTED *)B(* IN THIS VERSION OF DTK$. *)N(* USER ACTION: GET THE APPROPRIATE VERSION OF DTK$. *)N (*-- *) CONST DTK$_PROTOOLON = 27492924; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS. *)N(* USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. *)N(*--  *) CONST DTK$_STRTERESC = 27492932; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: AN DTK OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE *)B(* EMBEDDED IN THE OUTPUT STRING. *)N(* USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE *)B(* SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION *)B(* PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST *)B(* LIKELY A DTK ROUTINE THAT PROVIDES THAT FUNCTIONALITY. *)N(*-- *) CONST DTK$_TOOLONG = 27492940; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: THE LENGTH OF THE SPECIFIED STRING WAS TOO LONG. *)N(* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A PHONE NUMBER *)B(* OR DICTIONARY SUBSTITUTION OF 255 CHARACTERS OR LESS. *)N(*-- *) CONST DTK$_UNKESCSEQ = 27492948; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE *)B(* TH AT IT WAS UNABLE TO UNDERSTAND. *)N(* USER ACTION: ???? *)N(*-- *) CONST DTK$_UNKREPLY = 27492956; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE *)B(* THAT IT COULD NOT PARSE CORRECTLY. *)N(* USER ACTION: ???? *)N(*-- *) CONST DTK$_WRONUMARG = 27492964; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: A DTK ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS *)B(*  (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) *)B(* OR TOO MANY ARGUMENTS. *)N(* USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH *)B(* THE PROPER NUMBER OF ARGUMENTS. *)N(*-- *) CONST DTK$_TLKINUSE = 27492972; N(*++ *)K(* FACILITY: DTK  *)N(* EXPLANATION: A DTK ROUTINE WAS CALLED FROM AN AST ROUTINE *)B(* THAT INTERRUPTED A DTK ROUTINE WITH THE SAME *)B(* VOICE_ID. *)N(* USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH *)B(* THE PROPER SYNCHRONIZATION. *)N(*-- *) CO NST DTK$_NOTLCLTRM = 27492980; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: THE OUTPUT DEVICE IS NOT A TERMINAL ON THE *)B(* LOCAL VMS NODE. *)N(* USER ACTION: SPECIFY A LOCAL TERMINAL DEVICE. *)N(*-- *) CONST DTK$_NOMALFUN1 = 27494401; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *)B(* NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK *)B(* UNIT WAS TURNED ON. THIS IS THE FIRST REPLY. *)N(* USER ACTION: NONE. *)N(*--  *) CONST DTK$_NOMALFUN2 = 27494409; N(*++ *)K(* FACILITY: DTK *)N(* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *)B(* NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK *)B(* UNIT WAS TURNED ON. THIS IS THE SECOND OR LATER REPLY. *)N(* USER ACTION: NONE.  *)N(*-- *) N(* END. *) END.ww_6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$EDT_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; # $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE EDT$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE EDT$ROUTINES IDENT X-1 ***) N(* *)N(* EDT Editor (EDT) Routines *)N(* *)N(* *)N(* EDT$EDIT - Edit a file *)N(* *)P(* status = EDT$EDIT (in_file [,out_file] [,com_file] [,jou_file] [,options] *)N(* [,fileio] [,workio] [,xlate] ) *)N(* *)N(* in_file - Input file specification *)N(* out_file - Output file specification  *)N(* com_file - Startup command file specification *)N(* jou_file - Journal file specification *)N(* options - Options for edit operation *)N(* fileio - Bound procedure value for file I/O routine *)N(* workio - Bound procedure value for work I/O routine *)N(* xlate - Bound procedure value for XLATE routine  *)N(* *) "[ASYNCHRONOUS] FUNCTION EDT$EDIT (= IN_FILE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;J OUT_FILE : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;J COM_FILE : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;J JOU_FILE : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; OPTIONS : UNSIGNED;G %REF FILEIO : [UNSAFE] ARRAY [$l6..$u6:INTEGER] OF $UBYTE := %IMMED 0;G %REF WORKIO : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0;[ %REF XLATE : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) END.ww!_ EVMSBUILD PASCAL$EDT_ROUTINES,0a EVMSBUILD PASCAL$FDL_ROUTINES,Tb EVMSBUILD PASCAL$LBR_ROUTINES,d EVMSBUILD PASCAL$LIB_ROUTINES7`sf EVMSBUILD PASCAL$LIB_ROUTINES_IEEE_FLOAT-g EVMSBUILD PASCAL$MAIL_ROUTINES,i EVMSBUILD PASCAL$MTH_ROUTINES,rUk EVMSBUILD PASCAL$NCS_ROUTINES,-m EVMSBUILD PASCAL$OTS_ROUTINES,n EVMSBUILD PASCAL$PPL_ROUTINES,p EVM `6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$FDL_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; # $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE FDL$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE FDL$ROUTINES IDENT X-2 ***) 2[HIDDEN] TYPE (**** SDL-Generated type names ****)8 FDL$ROUTINES$$TYP1 = [UNSAFE] ARRAY [1..3] OF UNSIGNED;  N(* *)N(* File Definition Language (FDL) Routines *)N(*  *)N(* Note - FDL routines accept only class S string descriptors *)N(* *)N(* *)N(* FDL$CREATE - Create a file *)N(* *)N(* status = FDL$CREATE (fdl_desc [,filename] [,default_name] *)N(*  [,result_name] [,fid_block] [,flags] *)N(* [,stmnt_num] [,retlen] [,sts] [,stv] *);(* [,dflt-fdl-spc] *)N(* *)N(* fdl_desc - Name of file or string containg FDL statements *)N(* filename - Name of file to be created *)N(* default_name - Default name string  *)N(* result_name - Receives resultant file name *)N(* fid_block - Receives file ID of created file *)N(* flags - Flags controlling operation *)N(* stmt_num - Receives number of statement in error *)N(* retlen - Receives length of result_name *)N(* sts - Receives RMS STS value *)N(* stv - Receives RMS STV value *)N(* dflt-fdl-spc - Name of file or string containing default FDL statements *) $[ASYNCHRONOUS] FUNCTION FDL$CREATE (> FDL_DESC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;J FILENAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;N DEFAULT_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;Z VAR RESULT_NAME : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := % IMMED 0;; VAR FID_BLOCK : [VOLATILE] FDL$ROUTINES$$TYP1 := %IMMED 0; FLAGS : UNSIGNED := %IMMED 0;1 VAR STMNT_NUM : [VOLATILE] UNSIGNED := %IMMED 0;. VAR RETLEN : [VOLATILE] UNSIGNED := %IMMED 0;+ VAR STS : [VOLATILE] UNSIGNED := %IMMED 0;+ VAR STV : [VOLATILE] UNSIGNED := %IMMED 0;f DFLT_FDL_SPEC : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* FDL$GENERATE - Generate an FDL specification from a file *)N(* *)N(* status = FDL$GENERATE (flags, fab_pointer, rab_pointer *)N(* [,fdl_file_dst] [,fdl_file_resnam] *);(* [,fdl_str_dst] [,bad_blk_addr] [,retlen]) *)N(* *)N(* flags - Flags controlling operation  *)N(* fab_pointer - Address of FAB block *)N(* rab_pointer - Address of RAB block *)N(* fdl_file_dst - Name of FDL file to be created *)N(* fdl_file_resnam - Receives resultant name of FDL file *)N(* fdl_str_dst - Receives FDL string *)N(* bad_blk_addr - Receives address of invalid RMS block *)N(* retlen  - Receives length of fdl_file_resnam or fdl_str_dst *)N(* *) &[ASYNCHRONOUS] FUNCTION FDL$GENERATE ( FLAGS : UNSIGNED; FAB_POINTER : $DEFPTR; RAB_POINTER : $DEFPTR;N FDL_FILE_DST : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;^ VAR FDL_FILE_RESNAM : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;Z VAR FDL_STR_DST : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:INTEG ER] OF CHAR := %IMMED 0;3 VAR BAD_BLK_ADDR : [VOLATILE] $DEFPTR := %IMMED 0;C VAR RETLEN : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* FDL$PARSE - Parse an FDL specification *)N(* *)N(* status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer *)N(* [,flags] [,dflt_fdl_spec] [,stmt_num]) *)N(* *)N(* fdl_spec - Name of FDL file or FDL string to be parsed *)N(* fdl_fab_pointer - Receives address of created FAB *)N(* fdl_rab_pointer - Receives address of created RAB *)N(* flags - Flags controlling operation *)N(* dflt_fdl_spec - Name of default FDL file or default FDL string *)N(* stmt_num - Receives number of statement in error *)N(* *) #[ASYNCHRONOUS] FUNCTION FDL$PARSE (> FDL_SPEC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;* VAR FDL_FAB_POINTER : [VOLATILE] $DEFPTR;* VAR FDL_RAB_POINTER : [VOLATILE] $DEFPTR; FLAGS : UNSIGNED := %IMMED 0;N DFLT_FDL_SPC : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;F VAR STMNT_NUM : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* FDL$RELEASE - Release FDL context *)N(* *)N(* status = FDL$RELEASE ([fab_pointer] [,rab_pointer] [,flags] *)N(* [,badblk_addr]) *)N(*  *)N(* fab_pointer - Address of FAB to be deallocated *)N(* rab_pointer - Address of RAB to be deallocated *)N(* flags - Flags controlling operation *)N(* badblk_addr - Recives address of invalid RMS block *)N(* *) %[ASYNCHRONOUS] FUNCTION FDL$RELEASE (# FAB_POINTER : $DEFPTR := %IMM ED 0;# RAB_POINTER : $DEFPTR := %IMMED 0; FLAGS : UNSIGNED := %IMMED 0;G VAR BADBLK_ADDR : [VOLATILE] $DEFPTR := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) END.wwb6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$LBR_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; # $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE LBR$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE LBR$ROUTINES IDENT X-4 ***) N(* *)N(* *)N(* This package defines the interfaces to the Librarian utility *)N(* routines as documented in the OpenVMS Utility Routines Reference *)N(* Manual.  *)N(* *)N(* *)N(* LBR$CLOSE - CLose a library *)N(* *)N(* status = LBR$CLOSE (library_index) *)N(*  *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* *) #[ASYNCHRONOUS] FUNCTION LBR$CLOSE (/ LIBRARY_INDEX : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* LBR$DELETE_DATA - Delete a module's data *)N(*  *)N(* status = LBR$DELETE_DATA (library_index, txtrfa [,flags]) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* txtrfa - RFA of module header for module to delete *)H(* flags - key flags *)N(* *) )[ASY NCHRONOUS] FUNCTION LBR$DELETE_DATA ( LIBRARY_INDEX : UNSIGNED;; %REF TXTRFA : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$DELETE_KEY - Delete a key *)N(* *)N(* status = LBR$DELETE_KEY (library_index, key_name [,txtrfa] [,flags])  *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* key_name - Key to be deleted - for binary keys, passed by *)N(* reference, for string keys, by descriptor *)I(* txtrfa - RFA of module header for key to delete *)H(* flags - key flags *)N(*  *) ([ASYNCHRONOUS] FUNCTION LBR$DELETE_KEY ( LIBRARY_INDEX : UNSIGNED;= %REF KEY_NAME : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;G %REF TXTRFA : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$FIND - Lookup a module by its RFA *)N(*  *)N(* status = LBR$FIND (library_index, txtrfa) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* txtrfa - RFA of module to access *)N(* *) "[ASYNCHRONOUS] FUNCTION LBR$FIND ( LIBRARY_INDEX : UNSIGNED;P %REF TXTRFA : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* LBR$FLUSH - Recover virtual memory *)N(* *)N(* status = LBR$FLUSH (library_index, block_type) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* block_type - Extent of the flush operation *) #[ASYNCHRONOUS] FUNCTION LBR$FLUSH ( LIBRARY_INDEX : UNSIGNED;3 %IMMED BLOCK_TYPE : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* LBR$GET_HEADER - Retrieve library header information *)N(*  *)N(* status = LBR$GET_HEADER (library_index, retary) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* retary - Array of 128 longwords to receive library header *)N(* *) ([ASYNCHRONOUS] FUNCTION LBR$GET_HEADER ( LIBRARY_INDEX : UNSIGNED;Y %REF RETARY : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* LBR$GET_HELP - Retrieve help text *)N(* *)N(* status = LBR$GET_HELP (library_index [,line_width] [,routine] *)N(* [,data] [,key_n...]) *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* line_width - Width of the help text line *)N(* routine - Routine called to output text line *)N(* data - User data passed to routine *)N(* key_n - Zero or more key strings *)N(* *) &[ASYNCHRONOUS] FUNCTION LBR$GET_HELP ( LIBRARY_INDEX : UNSIGNED;" LINE_WIDTH : INTEGER := %IMMED 0;G %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION ROUTINE : INTEGER := %IMMED 0;E %REF DATA : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;G KEY_1 : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;G KEY_2 : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;G KEY_3 : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;G KEY_4 : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0;G KEY_5 : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0;I KEY_6 : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0;I KEY_7 : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0;I KEY_8 : [CLASS_S] PACKED ARRAY [$l12..$u12:INTEGER] OF CHAR := %IMMED 0;I KEY_9 : [CLASS_S] PACKED ARRAY [$l13..$u13:INTEGER] OF CHAR := %IMMED 0;_ KEY_10 : [CLASS_S] PACKED ARRAY [$l14..$u14:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* LBR$GET_HISTORY - Retrieve a library history update record *)N(* *)N(* status = LBR$GET_HISTORY (library_index, action_routine) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* action_routine - Routine to process history re cords *)N(* *) )[ASYNCHRONOUS] FUNCTION LBR$GET_HISTORY ( LIBRARY_INDEX : INTEGER;W %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION ACTION_ROUTINE : INTEGER) : INTEGER; EXTERNAL; N(* *)N(* LBR$GET_INDEX - Call routine for selected index keys *)N(*  *)N(* status = LBR$GET_INDEX (library_index, index_number, routine_name *)N(* [,match_desc] [,flags]) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* index_number - Number of the index to search *)N(* routine_name - User routine to process selections *)N(* match_de sc - Key matching string *)H(* flags - Key flags *)N(* *) '[ASYNCHRONOUS] FUNCTION LBR$GET_INDEX ( LIBRARY_INDEX : UNSIGNED; INDEX_NUMBER : UNSIGNED;@ %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION ROUTINE_NAME : INTEGER;L MATCH_DESC : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$GET_RECORD - Read a data record *)N(* *)N(* status = LBR$GET_RECORD (library_index [,inbufdes] [,outbufdes]) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N (* inbufdes - Buffer to receive record *)N(* outbufdes - Descriptor receiving information about record *) ([ASYNCHRONOUS] FUNCTION LBR$GET_RECORD ( LIBRARY_INDEX : UNSIGNED;W VAR INBUFDES : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;h %REF OUTBUFDES : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* LBR$INI_CONTROL - Initialize a library control structure *)N(* *)N(* status = LBR$INI_CONTROL (library_index, func [,type] [,namblk]) *)N(* *)N(* library_index - Receives index value *)N(* func - Function to be performed *)N(* type - Type of library *)N(* namblk - RMS NAM block for library *)N(* *) )[ASYNCHRONOUS] FUNCTION LBR$INI_CONTROL () VAR LIBRARY_INDEX : [VOLATILE] UNSIGNED; FUNC : UNSIGNED; TYPE_ : UNSIGNED := %IMMED 0;\ %REF NAMBLK : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* LBR$INSERT_KEY - Insert a new key *)N(* *)N(* status = LBR$INSERT_KEY (library_index, key_name, txtrfa [,flags]) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* key_name - Name of key to insert (reference for binary key,  *)N(* descriptor for text key) *)N(* txtrfa - RFA of module *)H(* flags - key flags *)N(* *) ([ASYNCHRONOUS] FUNCTION LBR$INSERT_KEY ( LIBRARY_INDEX : UNSIGNED;= %REF KEY_NAME : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;; %REF TXTRFA : [UNSAFE] ARRAY [$l3..$u3:IN TEGER] OF $UBYTE;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$LOOKUP_KEY - Look up a library key *)N(* *)N(* status = LBR$LOOKUP_KEY (library_index, key_name, txtrfa [,flags]) *)N(* *)N(* library_index - In dex value returned by LBR$INI_CONTROL *)N(* key_name - Name of key to insert (reference for binary key, *)N(* descriptor for text key) *)N(* txtrfa - Receives RFA of module *)H(* flags - Receives key flags *)N(* *) ([ASYNCHRONOUS] FUNCTION LBR$LOOKUP_KEY ( LIBRARY _INDEX : UNSIGNED;= %REF KEY_NAME : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;D %REF TXTRFA : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;B VAR FLAGS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$LOOKUP_TYPE - Look up a type of key with specified RFA in *)E(* library's current index *)N(*  *)N(* status = LBR$LOOKUP_TYPE (library_index, key_name, txtrfa, flags) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* key_name - Name of key to insert (reference for binary key, *)N(* descriptor for text key) *)N(* txtrfa - RFA of module  *)H(* flags - Receives type of key *)N(* *) )[ASYNCHRONOUS] FUNCTION LBR$LOOKUP_TYPE ( LIBRARY_INDEX : UNSIGNED;= %REF KEY_NAME : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;; %REF TXTRFA : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;6 VAR FLAGS : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* LBR$OPEN - Open or create a library *)N(* *)N(* status = LBR$OPEN (library_index [,fns] [,create_options] [,dns] *)N(* [,rlfna] [,rns] [,rnslen]) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* fns - File spec ification of the library *)N(* create_options - Library characteristics ($LBRDEF, $CREDEF) *)N(* dns - Default file specification *)N(* rlfna - Related file name block *)N(* rns - Receives resultant file specification *)N(* rnslen - Receives length of resultant file specification *)N(*  *) "[ASYNCHRONOUS] FUNCTION LBR$OPEN ( LIBRARY_INDEX : UNSIGNED;E FNS : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;O %REF CREATE_OPTIONS : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0;E DNS : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;F %REF RLFNA : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0;R VAR RNS : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;B VAR RNSLEN : [VOLATILE] INTEGER  := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$OUTPUT_HELP - Output help messages *)N(* *)N(* status = LBR$OUTPUT_HELP (output_routine [,output_width] [,line_desc] *)N(* [,library_name] [,flags] [,input_routine]) *)N(*   *)N(* output_routine - Routine called to output text lines *)N(* output_width - Maximum width of output lines *)N(* line_desc - Help request line *)N(* library_name - Name of the help library *)N(* flags - Flags to control operation *)N(* input_routine - Routine used for prompting *)N(*  *) )[ASYNCHRONOUS] FUNCTION LBR$OUTPUT_HELP (B %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION OUTPUT_ROUTINE : INTEGER;$ OUTPUT_WIDTH : INTEGER := %IMMED 0;K LINE_DESC : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;N LIBRARY_NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; FLAGS : UNSIGNED := %IMMED 0;b %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION INPUT_ROUTINE : INTEGER := %IMMED 0) : INTEGER; EXTER NAL; N(* *)N(* LBR$PUT_MODULE - Put an ELF object module to the ELF object library. *)N(* *)N(* status = LBR$PUT_MODULE (library_index, addr, size, txtrfa) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* addr - addre ss of the ELF object module *)N(* size - Size of the ELF object module *)N(* txtrfa - Receives RFA of module *)N(* *) ([ASYNCHRONOUS] FUNCTION LBR$PUT_MODULE ( LIBRARY_INDEX : UNSIGNED; ADDR : $UQUAD; SIZE : $UQUAD;Y %REF TXTRFA : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* LBR$PUT_END - Write an end-of-module record *)N(* *)N(* status = LBR$PUT_END (library_index) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(*  *) %[ASYNCHRONOUS] FUNCTION LBR$PUT_END (/ LIBRARY_INDEX : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* LBR$PUT_HISTORY - Write an update history record *)N(* *)N(* status = LBR$PUT_HISTORY (library_index, record_desc) *)N(*  *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* record_desc - History record *)N(* *) )[ASYNCHRONOUS] FUNCTION LBR$PUT_HISTORY ( LIBRARY_INDEX : UNSIGNED;V RECORD_DESC : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(*  *)N(* LBR$PUT_RECORD - Write a data record *)N(* *)N(* status = LBR$PUT_RECORD (library_index, bufdes, txtrfa [,modsize]) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* bufdes - Record to be written  *)N(* txtrfa - Receives RFA of module *)J(* modsize - ELF object module size *) ([ASYNCHRONOUS] FUNCTION LBR$PUT_RECORD ( LIBRARY_INDEX : UNSIGNED;< BUFDES : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;D %REF TXTRFA : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;3 MODSIZE : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$REPLACE_KEY - Replace a library key *)N(* *)Q(* status = LBR$REPLACE_KEY (library_index, key_name, oldrfa, newrfa [,flags]) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* key_name - Name of key, passed by reference or descriptor *)N(* oldrfa - RF A of old module header *)N(* newrfa - RFA of new module header *)H(* flags - key flags *)N(* *) )[ASYNCHRONOUS] FUNCTION LBR$REPLACE_KEY ( LIBRARY_INDEX : UNSIGNED;= %REF KEY_NAME : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;; %REF OLDRFA : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;D %REF NEWRFA : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$RET_RMSSTV - Return VMS RMS status value *)N(* *)N(* status = LBR$RET_RMSSTV () *)N(*  *) ;[ASYNCHRONOUS] FUNCTION LBR$RET_RMSSTV : INTEGER; EXTERNAL; N(* *)N(* LBR$SEARCH - Search an index *)N(* *)N(* status = LBR$SEARCH (library_index, index_number, rfa_to_find, *)I(* routine_name [,flags]) *)N(*  *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* index_number - Number of index to search *)N(* rfa_to_find - RFA of module to search for *)N(* routine_name - Routine called to process keys *)H(* flags - Key flags *) $[ASYNCHRONOUS] FUNCTION LBR$SEARCH ( LIBRARY_INDEX  : UNSIGNED; INDEX_NUMBER : UNSIGNED;@ %REF RFA_TO_FIND : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;@ %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION ROUTINE_NAME : INTEGER;: %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* LBR$SET_INDEX - Set the current index number *)N(* *)N(* status = LBR$SET_INDEX (l ibrary_index, index_number) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* index_number - New index number *)N(* *) '[ASYNCHRONOUS] FUNCTION LBR$SET_INDEX ( LIBRARY_INDEX : UNSIGNED;. INDEX_NUMBER : UNSIGNED) : INTEGER; EXTERNAL; N(*  *)N(* LBR$SET_LOCATE - Set record access to locate mode *)N(* *)N(* status = LBR$SET_LOCATE (library_index) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(*  *) ([ASYNCHRONOUS] FUNCTION LBR$SET_LOCATE (/ LIBRARY_INDEX : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* LBR$SET_MODULE - Read or update a module header *)N(* *)N(* status = LBR$SET_MODULE (library_index, rfa [,bufdesc] *)B(* [,buflen] [,updatedesc])  *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* rfa - RFA of module header *)N(* bufdesc - Receives module header *)N(* buflen - Receives length of module header *)N(* updatedesc - Additional information to be stored in module header *) N(* *) ([ASYNCHRONOUS] FUNCTION LBR$SET_MODULE ( LIBRARY_INDEX : UNSIGNED;8 %REF RFA : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;I BUFDESC : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;- VAR BUFLEN : [VOLATILE] INTEGER := %IMMED 0;a UPDATEDESC : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(*  *)N(* LBR$SET_MOVE - Set record access to move mode *)N(* *)N(* status = LBR$SET_MOVE (library_index) *)N(* *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* *) &[ASYNC !HRONOUS] FUNCTION LBR$SET_MOVE (/ LIBRARY_INDEX : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* LBR$MAP_MODULE - Copy/map an ELF object module from current library *)B(* to the memory space *)N(* *)N(* statust = LBR$MAP_MODULE (library_index, addr, len, rfa) *)N(* " *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* addr - Receives address of the module *)N(* len - Receives length of module *)N(* rfa - RFA of module *)N(* *) ([ASYNCHRONOUS] FUNCTION LBR$MAP_MODULE ( LIBRARY_I #NDEX : UNSIGNED; VAR ADDR : [VOLATILE] $UQUAD; VAR LEN : [VOLATILE] $UQUAD;M %REF RFA : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)R(* LBR$UNMAP_MODULE - Remove/release an ELF object module from the memory space *)N(* *)N(* status = LBR$UNMAP_MODULE (library_index, rfa) *)N(* $ *)N(* library_index - Index value returned by LBR$INI_CONTROL *)N(* rfa - RFA of module *)N(* *) *[ASYNCHRONOUS] FUNCTION LBR$UNMAP_MODULE ( LIBRARY_INDEX : UNSIGNED;M %REF RFA : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* END.  *) END.ww& fc][PEN_CHECKING_STYLE(NONE),INHERIT('SYS$LIBRARY:PASCAL$D_FLOAT','SYS$LIBRARY:PASCAL$G_FLOAT')]MODULE lib$routines;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ ' }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be li(able for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. ) }P{ }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UN*SIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [B+IT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = ,[BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE PASLIB$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types *-**?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; . *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5/,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(*0 $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; 1 *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSA2FE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J3(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; 4 *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE lib$routines ***) 2[HIDDEN] TYPE (**** SDL-Generated type names ****) lib$routines$$typ1 = ^$QUAD; lib$routines$$typ2 = $DEFPTR; lib$routines$$typ3 = $DEFPTR; lib$routines$$typ4 = ^$QUAD; lib$routines$$typ5 = ^$QUAD; lib$routines$$typ6 = ^$QUAD; lib$routines$$typ7 = ^$QUAD; lib$routine5s$$typ8 = ^$QUAD; lib$routines$$typ9 = ^$QUAD; lib$routines$$typ10 = ^$QUAD; lib$routines$$typ11 = ^$QUAD; lib$routines$$typ12 = ^$QUAD; lib$routines$$typ13 = ^$QUAD; lib$routines$$typ14 = ^$QUAD; lib$routines$$typ15 = ^$QUAD; lib$routines$$typ16 = ^$QUAD; lib$routines$$typ17 = ^$UQUAD; lib$routines$$typ18 = ^$UQUAD; lib$routines$$typ19 = ^$UQUAD; lib$routines$$typ20 = ^$UQUAD; lib$routines$$typ21 = ^$UQUAD; lib$routines$$typ22 = ^$UQUAD; lib$routines$$typ23 = ^$U6OCTA; lib$routines$$typ24 = ^$UOCTA; lib$routines$$typ25 = ^$UBYTE; lib$routines$$typ26 = ^$UQUAD; lib$routines$$typ27 = ^$UQUAD; lib$routines$$typ28 = ^$UQUAD; lib$routines$$typ29 = ^$UQUAD; lib$routines$$typ30 = ^$UQUAD; lib$routines$$typ31 = ^$UQUAD; lib$routines$$typ32 = ^$UQUAD; lib$routines$$typ33 = ^$UQUAD; lib$routines$$typ34 = ^$UQUAD; lib$routines$$typ35 = ^$UQUAD; lib$routines$$typ36 = ^$UQUAD; lib$routines$$typ37 = ^$UQUAD; lib$routines$$typ38 =7 ^$UQUAD; lib$routines$$typ39 = ^$UQUAD; lib$routines$$typ40 = ^$QUAD; lib$routines$$typ41 = ^$QUAD; lib$routines$$typ42 = ^$QUAD; lib$routines$$typ43 = ^$QUAD; lib$routines$$typ44 = ^$QUAD;  P(**************************************************************************** *)(* * *)B(* COPYRIGHT (c) 1992, 1994, 1995, 1996, 1997, 2003 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(* 8 * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)P(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN 9 THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* LIB$ADAWI : *)N(* *)N(* Add Aligned Word with Interlock *)N(* *)R(* The Add Aligned Word with Interlock routine allows the user to perform an *)N(* interlocked add operation using an aligned word. *)N(* ; *) #[ASYNCHRONOUS] FUNCTION lib$adawi ( add : $WORD; VAR sum : [VOLATILE] $WORD;2 VAR sign : [VOLATILE] $WORD) : INTEGER; EXTERNAL; N(* LIB$ADDX *)N(* *)N(* Add Two Multiple-Precision Binary Numbers *)N(* *)N(* The Ad <d Two Multiple-Precision Binary Numbers routine adds two signed *)N(* two's complement integers of arbitrary length. *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$addx (A %REF addend_array : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;A %REF augend_array : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;M %REF resultant_array : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;9 array_length : INTEGE=R := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$ADD_TIMES *)N(* *)N(* Add Two Quadword Times *)N(* *)N(* The Add Two Quadword Times routine adds two VMS internal time format *)N(* times. > *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$add_times ( time1 : $UQUAD; time2 : $UQUAD;= VAR resultant_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$ANALYZE_SDESC *)N(* *)N(* Analyze String Descriptors *)N(* ? *)N(* The Analyze String Descriptors routine extracts the length and the *)N(* address at which the data starts for a variety of string descriptor *)N(* classes. *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$analyze_sdesc ( input_descriptor : $UQUAD;% VAR data_length : [VOLATILE] $UWORD;< VAR d@ata_address : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$ANALYZE_SDESC_64 *)N(* *)N(* Analyze String Descriptors *)N(* *)N(* The Analyze String Descriptors routine extracts the length and the *)N(* address at which the data starts for a v Aariety of string descriptor *)N(* classes. *)N(* *) .[ASYNCHRONOUS] FUNCTION lib$analyze_sdesc_64 ( input_descriptor : $UQUAD;% VAR data_length : [VOLATILE] $UQUAD;2 VAR data_address : [VOLATILE] lib$routines$$typ1;J VAR descriptor_type : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$ASCII_TO_UID B *)N(* *)N(* Convert Text To UID *)N(* *)N(* The Convert Text to UID routine converts a standard representation *)N(* of a UID in an ASCII text string to a binary UID. *)N(* *) * C[ASYNCHRONOUS] FUNCTION lib$ascii_to_uid (B input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;9 VAR output_uid : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; N(* LIB$ASN_WTH_MBX *)N(* *)N(* Assign Channel with Mailbox *)N(* *)Q(* The DAssign Channel with Mailbox routine assigns a channel to a specified *)N(* device and associates a mailbox with the device. It returns both the *)N(* device channel and the mailbox channel. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$asn_wth_mbx (A device_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, maximum_message_size : INTEGER := %IMMED 0;$ buffer_quota : INTEGER := %IM EMED 0;( VAR device_channel : [VOLATILE] $UWORD;> VAR mailbox_channel : [VOLATILE] $UWORD) : INTEGER; EXTERNAL; N(* LIB$AST_IN_PROG *)N(* *)N(* AST in Progress *)N(* *)N(* The AST in Progress routine indicates whether an AST is curren Ftly in *)N(* progress. *)N(* *) <[ASYNCHRONOUS] FUNCTION lib$ast_in_prog : BOOLEAN; EXTERNAL; N(* LIB$ATTACH *)N(* *)N(* Attach Terminal to Process *)N(* G *)N(* The Attach Terminal to Process routine requests the calling process's *)Q(* Command Language Interpreter (CLI) to detach the terminal of the calling *)N(* process and to reattach it to a different process. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$attach (, process_id : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$BBCCI H *)N(* *)N(* Test and Clear Bit with Interlock *)N(* *)N(* The Test and Clear Bit with Interlock routine tests and clears a *)N(* selected bit under memory interlock. *)N(* I *) #[ASYNCHRONOUS] FUNCTION lib$bbcci ( position : INTEGER;8 %IMMED bit_zero_address : $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$BBSSI *)N(* *)N(* Test and Set Bit with Interlock *)N(* *)N(* The Test and Set Bit with Interloc Jk routine tests and sets a *)N(* selected bit under memory interlock. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$bbssi ( position : INTEGER;8 %IMMED bit_zero_address : $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$BUILD_NODESPEC *)N(* *)N(* Build a Node-N Kame Specification *)N(* *)N(* The Build a Node-Name Specification routine builds a node-name *)N(* specification from the primary node name. *)N(* *) ,[ASYNCHRONOUS] FUNCTION lib$build_nodespec (F primary_nodename : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VARL nodespec : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;E acs : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;T secondary_nodename : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;J VAR nodespec_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CALLG *)N(* *)N(* Call Routine with General ArMgument List (longword argument list) *)N(* *)Q(* The Call Routine with General Argument List routine calls a routine with *)P(* an argument list specified as an array of longwords, the first of which *)P(* is a count of the remaining longwords. LIB$CALLG is a callable version *)N(* of the VAX CALLG instruction. *)N(* N *) #[ASYNCHRONOUS] FUNCTION lib$callg (B %REF argument_list : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;N %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_procedure) : INTEGER; EXTERNAL; N(* LIB$CALLG_64 *)N(* *)N(* Call Routine with General Argument List (quadword argument list) *)N(* O *)Q(* The Call Routine with General Argument List routine calls a routine with *)P(* an argument list specified as an array of quadwords, the first of which *)N(* is a count of the remaining quadwords. LIB$CALLG_64 is a callable *)N(* version of the VAX CALLG instruction. *)N(* *) &[ASYNCHRONOUS] FUNCTION lib$callg_64 (9 %REF argument_list P: ARRAY [$l1..$u1:INTEGER] OF $UQUAD;N %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_procedure) : INTEGER; EXTERNAL; N(* LIB$CHAR *)N(* *)N(* Transform Byte to First Character of String *)N(* *)N(* The Transform Byte to First Character of String routine Qtransforms a *)O(* single 8-bit ASCII character to an ASCII string consisting of a single *)R(* character followed by trailing spaces, if needed, to fill out the string. *)N(* The range of the input byte is 0 through 255. *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$char (W VAR one_character_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;* ascii_code : $UBYTE) : INTEGER; R EXTERNAL; N(* LIB$COMPARE_NODENAME *)N(* *)N(* Compare Two Node Names *)N(* *)N(* The Compare Node Name routine compares two node names *)N(* to see if they resolve to the same full name. *)N(* S *) .[ASYNCHRONOUS] FUNCTION lib$compare_nodename (? nodename1 : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;? nodename2 : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;B VAR comparison_result : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$COMPARE_UID *)N(* *)N(* Compare Two UI TDs *)N(* *)N(* The Compare Two UIDs routine compares the contents *)N(* of two UIDs for total lexical ordering. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$compare_uid ( first_uid : $UOCTA; second_uid : $UOCTA;< VAR match_result : [VOLATILE] IUNTEGER) : INTEGER; EXTERNAL; N(* LIB$COMPRESS_NODENAME *)N(* *)N(* Compress a Node Name to its Short Form *)N(* *)N(* The Compress a Node Name routine compresses a node name to an *)N(* unambiguous short form usable within the naming environment V *)N(* where the compression is performed. *)N(* *) /[ASYNCHRONOUS] FUNCTION lib$compress_nodename (> nodename : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;V VAR compressed_nodename : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CONVERT_DATE_STRING W *)N(* *)N(* Convert Date String to Quadword *)N(* *)N(* The Convert Date String to Quadword routine converts an absolute date *)N(* string into a VMS internal format date-time quadword. That is, given *)N(* an input date/time string of a specified format, X*)N(* LIB$CONVERT_DATE_STRING converts this string to a VMS internal format *)N(* time. *)N(* *) 1[ASYNCHRONOUS] FUNCTION lib$convert_date_string (A date_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;# VAR date_time : [VOLATILE] $UQUAD;4 VAR user_context : [VOLATILE] UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0;@ %REF defaultsY : ARRAY [$l5..$u5:INTEGER] OF $UWORD := %IMMED 0;M VAR defaulted_fields : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CRC *)N(* *)N(* Calculate a Cyclic Redundancy Check (CRC) *)N(* *)N(* The Calculate a Cyclic Redundancy Check rout Zine calculates the cyclic *)N(* redundancy check (CRC) for a data stream. *)N(* *) ![ASYNCHRONOUS] FUNCTION lib$crc (6 %REF crc_table : ARRAY [$l1..$u1:INTEGER] OF INTEGER; initial_crc : INTEGER;Q stream : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$CRC_TABLE *)N(* [ *)N(* Construct a Cyclic Redundancy Check (CRC) Table *)N(* *)N(* The Construct a Cyclic Redundancy Check Table routine constructs a *)N(* 16-longword table that uses a cyclic redundancy check polynomial *)N(* specification as a bit mask. *)N(* \ *) ([ASYNCHRONOUS] PROCEDURE lib$crc_table (# polynomial_coefficient : UNSIGNED;L %REF crc_table : [VOLATILE] ARRAY [$l2..$u2:INTEGER] OF INTEGER); EXTERNAL; N(* LIB$CREATE_DIR *)N(* *)N(* Create a Directory *)N(* ] *)N(* The Create a Directory routine creates a directory or subdirectory. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$create_dir (K device_directory_spec : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;" owner_UIC : UNSIGNED := %IMMED 0;( protection_enable : $UWORD := %IMMED 0;' protection_value : $UWORD := %IMMED 0;' maximum_versions : $UWORD := %IMMED 0;B relative_volume_number : $UWORD := %IMMED 0) : INTE ^GER; EXTERNAL; N(* LIB$CREATE_USER_VM_ZONE *)N(* *)N(* Create User-Defined Storage Zone *)N(* *)P(* The Create User-Defined Storage Zone routine creates a new user-defined *)N(* storage zone. *)N(* _ *) 1[ASYNCHRONOUS] FUNCTION lib$create_user_vm_zone (# VAR zone_id : [VOLATILE] UNSIGNED;& user_argument : UNSIGNED := %IMMED 0;P %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_allocation_procedure := %IMMED 0;R %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_deallocation_procedure := %IMMED 0;K %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_reset_procedure := %IMMED 0;L %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_delet`e_procedure := %IMMED 0;` zone_name : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CREATE_USER_VM_ZONE_64 *)N(* *)N(* Create User-Defined Storage Zone *)N(* *)P(* The Create User-Defined Storage Zone routine creates a a new user-defined *)N(* storage zone. *)N(* *) 4[ASYNCHRONOUS] FUNCTION lib$create_user_vm_zone_64 (! VAR zone_id : [VOLATILE] $UQUAD;$ user_argument : $UQUAD := %IMMED 0;P %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_allocation_procedure := %IMMED 0;R %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_deallocation_procedure := %IMMED 0;K %IMMED [UNBOUND, ASYNCHbRONOUS] PROCEDURE user_reset_procedure := %IMMED 0;L %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_delete_procedure := %IMMED 0;` zone_name : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CREATE_VM_ZONE *)N(* *)N(* Create a New Zone *)N(* c *)N(* The Create a New Zone routine creates a new storage zone according to *)N(* specified arguments. *)N(* *) ,[ASYNCHRONOUS] FUNCTION lib$create_vm_zone (# VAR zone_id : [VOLATILE] UNSIGNED;! algorithm : INTEGER := %IMMED 0;* algorithm_argument : INTEGER := %IMMED 0; flags : UNSIGNED := %IMMED 0;# extend_size : INT dEGER := %IMMED 0;$ initial_size : INTEGER := %IMMED 0;" block_size : INTEGER := %IMMED 0;! alignment : INTEGER := %IMMED 0;" page_limit : INTEGER := %IMMED 0;+ smallest_block_size : INTEGER := %IMMED 0;M zone_name : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0;? %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE get_page := %IMMED 0;U %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE free_page := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CREATE_VM_ZONE_64 e *)N(* *)N(* Create a New Zone *)N(* *)N(* The Create a New Zone routine creates a new storage zone according to *)N(* specified arguments. *)N(* *) f/[ASYNCHRONOUS] FUNCTION lib$create_vm_zone_64 (! VAR zone_id : [VOLATILE] $UQUAD; algorithm : $QUAD := %IMMED 0;( algorithm_argument : $QUAD := %IMMED 0; flags : $UQUAD := %IMMED 0;! extend_size : $QUAD := %IMMED 0;" initial_size : $QUAD := %IMMED 0; block_size : $QUAD := %IMMED 0; alignment : $QUAD := %IMMED 0; page_limit : $QUAD := %IMMED 0;) smallest_block_size : $QUAD := %IMMED 0;M zone_name : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0;? %IMMED [UNBOUgND, ASYNCHRONOUS] PROCEDURE get_page := %IMMED 0;U %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE free_page := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CRF_INS_KEY *)N(* *)N(* Insert Key in Cross-Reference Table *)N(* *)N(* The Insert Key in Cross-Reference Ta hble routine inserts information *)N(* about a key into a cross-reference table. *)N(* *) *[ASYNCHRONOUS] PROCEDURE lib$crf_ins_key (: %REF control_table : ARRAY [$l1..$u1:INTEGER] OF INTEGER;@ key_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; symbol_value : INTEGER; flags : UNSIGNED); EXTERNAL; N(* LIB$CRF_INS_REF i *)N(* *)N(* Insert Reference to a Key in the Cross-Reference Table *)N(* *)N(* The Insert Reference to a Key in the Cross-Reference Table routine *)N(* inserts a reference to a key in a cross-reference symbol table. *)N(* *) *[ASYNCHRONOUS] j PROCEDURE lib$crf_ins_ref (: %REF control_table : ARRAY [$l1..$u1:INTEGER] OF INTEGER; longword_integer_key : INTEGER;F reference_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;5 VAR longword_integer_reference : [VOLATILE] INTEGER;/ ref_definition_indicator : INTEGER); EXTERNAL; N(* LIB$CRF_OUTPUT *)N(* *)N(* Output Cross-Reference Table Infor kmation *)N(* *)N(* The Output Cross-Reference Table Information routine extracts the *)R(* information from the cross-reference tables and formats the output pages. *)N(* *) )[ASYNCHRONOUS] PROCEDURE lib$crf_output (: %REF control_table : ARRAY [$l1..$u1:INTEGER] OF INTEGER; output_line_width : INTEGER; p lage1 : INTEGER; page2 : INTEGER; mode_indicator : INTEGER;, delete_save_indicator : INTEGER); EXTERNAL; N(* LIB$CURRENCY *)N(* *)N(* Get System Currency Symbol *)N(* *)N(* The Get System Currency Symbol routine returns the system's curr mency *)N(* symbol. *)N(* *) &[ASYNCHRONOUS] FUNCTION lib$currency (R VAR currency_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CVTF_FROM_INTERNAL_TIME *)N(* n *)N(* Convert Internal Time to External Time (F-Floating Point Value) *)N(* *)N(* The Convert Internal Time to External Time (F-Floating Point Value) *)N(* routine converts a delta internal VMS system time into an external *)N(* F-floating time. *)N(* o *) 5[ASYNCHRONOUS] FUNCTION lib$cvtf_from_internal_time ( operation : UNSIGNED;( VAR resultant_time : [VOLATILE] SINGLE;* input_time : $UQUAD) : INTEGER; EXTERNAL; N(* LIB$CVTF_TO_INTERNAL_TIME *)N(* *)N(* Convert External Time to Internal Time (F-Floating Point Value) *)N(* *)N(* p The Convert External Time to Internal Time (F-Floating Point Value) *)N(* routine converts an external time interval into a VMS internal format *)N(* F-floating delta time. *)N(* *) 3[ASYNCHRONOUS] FUNCTION lib$cvtf_to_internal_time ( operation : UNSIGNED; input_time : SINGLE;= VAR resultant_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$CVT_DTqB *)N(* *)N(* Convert Numeric Text to Binary *)N(* *)N(* The Convert Numeric Text to Binary routine returns a 32-bit binary *)N(* representation of the ASCII text string representation of a decimal *)N(* number. r *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$cvt_dtb ( %IMMED byte_count : INTEGER;? %REF numeric_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;6 VAR result : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* LIB$CVT_DTB_64 *)N(* *)N(* Convert Numeric Text s to Binary *)N(* *)N(* The Convert Numeric Text to Binary routine returns a 64-bit binary *)N(* representation of the ASCII text string representation of a decimal *)N(* number. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$cvt_dtb_64 ( %IMME tD byte_count : INTEGER;? %REF numeric_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;4 VAR result : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; N(* LIB$CVT_DX_DX *)N(* *)N(* General Data Type Conversion Routine *)N(* *)P(* The General Data Type Conversi uon routine converts a VMS standard atomic *)Q(* or string datum described by a source descriptor to another VMS standard *)N(* atomic or string datum described by a destination descriptor. This *)N(* conversion is supported over a subset of the VMS standard data types. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$cvt_dx_dx (@ %REF source_item : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;N %REF destination_item :v [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;S VAR word_integer_dest_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CVT_FROM_INTERNAL_TIME *)N(* *)N(* Convert Internal Time to External Time *)N(* *)P(* The Convert Internal Time to Exter wnal Time routine converts an internal *)N(* VMS system time (either absolute or delta) into an external time. *)N(* *) 4[ASYNCHRONOUS] FUNCTION lib$cvt_from_internal_time ( operation : UNSIGNED;* VAR resultant_time : [VOLATILE] UNSIGNED;6 input_time : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$CVT_HTB *)N(* x *)N(* Convert Numeric Text to Binary *)N(* *)N(* The Convert Numeric Text to Binary routine returns a 32-bit binary *)P(* representation of the ASCII text string representation of a hexadecimal *)N(* number. *)N(* y *) %[ASYNCHRONOUS] FUNCTION lib$cvt_htb ( %IMMED byte_count : INTEGER;? %REF numeric_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;6 VAR result : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* LIB$CVT_HTB_64 *)N(* *)N(* Convert Numeric Text to Binary *)N(* z *)N(* The Convert Numeric Text to Binary routine returns a 64-bit binary *)P(* representation of the ASCII text string representation of a hexadecimal *)N(* number. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$cvt_htb_64 ( %IMMED byte_count : INTEGER;? %REF numeric_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;4 VAR r{esult : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; N(* LIB$CVT_OTB *)N(* *)N(* Convert Numeric Text to Binary *)N(* *)N(* The Convert Numeric Text to Binary routine returns a 32-bit binary *)N(* representation of the ASCII text string represen |tation of an octal *)N(* number. *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$cvt_otb ( %IMMED byte_count : INTEGER;? %REF numeric_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;6 VAR result : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* LIB$CVT_OTB_64 *)N(* } *)N(* Convert Numeric Text to Binary *)N(* *)N(* The Convert Numeric Text to Binary routine returns a 64-bit binary *)N(* representation of the ASCII text string representation of an octal *)N(* number. *)N(* ~ *) ([ASYNCHRONOUS] FUNCTION lib$cvt_otb_64 ( %IMMED byte_count : INTEGER;? %REF numeric_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;4 VAR result : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; N(* LIB$CVT_TO_INTERNAL_TIME *)N(* *)N(* Convert External Time to Internal Time *)N(*  *)N(* The Convert External Time to Internal Time routine converts an *)N(* external time interval into a VMS internal format delta time. *)N(* *) 2[ASYNCHRONOUS] FUNCTION lib$cvt_to_internal_time ( operation : UNSIGNED; input_time : INTEGER;= VAR resultant_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$CVT_VECTIM  *)N(* *)N(* Convert Seven-Word Vector to Internal Time *)N(* *)N(* The Convert Seven-Word Vector to Internal Time routine converts a *)N(* seven-word vector into a VMS internal format delta or absolute time. *)N(* *) ([ASY NCHRONOUS] FUNCTION lib$cvt_vectim (6 %REF input_time : ARRAY [$l1..$u1:INTEGER] OF $UWORD;= VAR resultant_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$DATE_TIME *)N(* *)N(* Date and Time Returned as a String *)N(* *)N(* The Date and Time Returned as a String routine returns the VMS system *)N(* date and time in the semantics of a user-provided string. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$date_time (h VAR date_time_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$DAY *)N(*  *)N(* Day Number Returned as a Longword Integer *)N(* *)Q(* The Day Number Returned as a Longword Integer routine returns the number *)O(* of days since the system zero date of November 17, 1858, or the number *)N(* of days from November 17, 1858, to a user-supplied date. *)N(*  *) ![ASYNCHRONOUS] FUNCTION lib$day () VAR number_of_days : [VOLATILE] INTEGER; user_time : $UQUAD := %IMMED 0;D VAR day_time : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$DAY_OF_WEEK *)N(* *)N(* Show Numeric Day of Week *)N(*  *)Q(* The Show Numeric Day of Week routine returns the numeric day of the week *)P(* for an input time value. If 0 is the input time value, the current day *)Q(* of the week is returned. The days are numbered 1 through 7, with Monday *)N(* as day 1 and Sunday as day 7. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$day_of_week ( user_time : $UQUAD := %IMMED 0;; VAR day_number : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$DECODE_FAULT *)N(* *)N(* Decode Instruction Stream During Fault *)N(* *)R(* The Decode Instruction Stream During Fault routine is a tool for building *)N(* condition handlers that process instruction fault exceptions. It is *)N(* called from a condition handler. *)N(* *)N(* This routine is not available to native Alpha VMS programs, but is *)N(* available to translated VAX images. *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$decode_fault (E %REF signal_arguments : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;H %REF mechanism_arguments : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;9 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_procedure;A %IMMED unspecified_user_argument : [UNSAFE] INTEGER := %IMMED 0;d %REF instruction_definitions : ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$DEC_OVER *)N(*  *)N(* Enable or Disable Decimal Overflow Detection *)N(* *)N(* The Enable or Disable Decimal Overflow Detection routine enables or *)P(* disables decimal overflow detection for the calling routine activation. *)N(* The previous decimal overflow setting is returned. *)N(* *)N(* This routine is available on Alpha VMS systems in translated form *)N(* and is applicable to translated VAX images only. *)N(* *) &[ASYNCHRONOUS] FUNCTION lib$dec_over (- new_setting : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$DELETE_FILE *)N(* *)N(* Delete One or More Files *)N(* *)N(* The Delete One or More Files routine deletes one or more files. The *)N(* specification of the file(s) to be deleted may include wildcards. *)N(* LIB$DELETE_FILE is similar in function to the DCL command DELETE. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$delete_file (> filespec : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;R default_filespec : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;R related_filespec : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;M %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_success_procedure := %IMMED 0;K %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_error_procedure := %IMMED 0;M %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_confirm_procedure := %IMMED 0;? %IMMED user_specified_argumen t : [UNSAFE] INTEGER := %IMMED 0;] VAR resultant_name : [CLASS_S,VOLATILE] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0;9 VAR file_scan_context : [VOLATILE] UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$DELETE_LOGICAL *)N(* *)N(* Delete Logical Name *)N(*  *)O(* The Delete Logical Name routine requests the calling process's Command *)O(* Language Interpreter (CLI) to delete a supervisor-mode process logical *)P(* name. LIB$DELETE_LOGICAL provides the same function as the DCL command *)N(* DEASSIGN. *)N(* *) ,[ASYNCHRONOUS] FUNCTION lib$dele te_logical (B logical_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;a table_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$DELETE_SYMBOL *)N(* *)N(* Delete CLI Symbol *)N(* *)N (* The Delete CLI Symbol routine requests the calling process's Command *)N(* Language Interpreter (CLI) to delete an existing CLI symbol. *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$delete_symbol (< symbol : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;A table_type_indicator : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$DELETE_VM_ZONE *)N(* *)N(* Delete Virtual Memory Zone *)N(* *)N(* The Delete Virtual Memory Zone routine deletes a zone and *)N(* returns all pages on VAX or pagelets on Alpha owned by the *)N(* zone to the processwide page pool. *)N(*  *) ,[ASYNCHRONOUS] FUNCTION lib$delete_vm_zone () zone_id : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$DELETE_VM_ZONE_64 *)N(* *)N(* Delete Virtual Memory Zone *)N(* *)N(* The Delete Virtual Memory Zone  routine deletes a zone and *)N(* returns all pages on VAX or pagelets on Alpha owned by the *)N(* zone to the processwide page pool. *)N(* *) /[ASYNCHRONOUS] FUNCTION lib$delete_vm_zone_64 (' zone_id : $UQUAD) : INTEGER; EXTERNAL; N(* LIB$DIGIT_SEP *)N(*  *)N(* Get Digit Separator Symbol *)N(* *)N(* The Get Digit Separator Symbol routine returns the system's digit *)N(* separator symbol. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$digit_sep (Y VAR digit_separator_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$DISABLE_CTRL *)N(* *)N(* Disable CLI Interception of Control Characters *)N(* *)P(* The Disable CLI Interception  of Control Characters routine requests the *)N(* calling process's Command Language Interpreter (CLI) to not intercept *)R(* the selected control characters when they are typed during an interactive *)N(* terminal session. LIB$DISABLE_CTRL provides the same function as the *)N(* DCL command SET NOCONTROL. *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$disable_ctrl ( disab le_mask : UNSIGNED;E VAR old_mask : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$DO_COMMAND *)N(* *)N(* Execute Command *)N(* *)N(* The Execute Command routine stops program execution and directs the *)N(* Command Language Interpreter to execute a command which you supply as *)N(* the argument. If successful, LIB$DO_COMMAND does not return control *)N(* to the calling program. Instead, LIB$DO_COMMAND begins execution of *)N(* the specified command. If you want control to return to the caller, *)N(* use LIB$SPAWN instead. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$do_command (Y command_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$EDIV *)N(* *)N(* Extended-Precision Divide *)N(* *)N(* The Extended-Precision Divide routine performs extended-precision *) N(* division. LIB$EDIV makes the VAX EDIV instruction available as a *)N(* callable routine. *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$ediv ($ longword_integer_divisor : INTEGER;# quadword_integer_dividend : $QUAD;4 VAR longword_integer_quotient : [VOLATILE] INTEGER;9 VAR remainder : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* LIB$EMODD  *)N(* *)N(* Extended Multiply and Integerize Routines for D-Floating Point Values *)N(* *)O(* The Extended Multiply and Integerize routine (D-Floating Point Values) *)O(* allows higher-level language users to perform accurate range reduction *)N(* of D-floating arguments.  *)N(* *)N(* D-floating point values are not supported in full precision on Alpha *)O(* systems. They are precise to 56 bits on VAX systems, 53 bits on Alpha *)N(* systems. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$emodd (+ floating_point_multiplier : D_FLO AT$$TYPE; multiplier_extension : $UBYTE;- floating_point_multiplicand : D_FLOAT$$TYPE;* VAR integer_portion : [VOLATILE] INTEGER;H VAR fractional_portion : [VOLATILE] D_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* LIB$EMODT *)N(* *)N(* Extended Multiply and Integerize Routines for T-Floating Point Values *)N(*  *)O(* The Extended Multiply and Integerize routine (T-Floating Point Values) *)O(* allows higher-level language users to perform accurate range reduction *)N(* of T-floating arguments. *)N(* *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$emodt (+ floating_point_multiplier : D _FLOAT$$TYPE; multiplier_extension : $UBYTE;- floating_point_multiplicand : D_FLOAT$$TYPE;* VAR integer_portion : [VOLATILE] INTEGER;H VAR fractional_portion : [VOLATILE] D_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* LIB$EMODF *)N(* *)N(* Extended Multiply and Integerize Routines for F-Floating Point Values *)N(*  *)O(* The Extended Multiply and Integerize routine (F-Floating Point Values) *)O(* allows higher-level language users to perform accurate range reduction *)N(* of F-floating arguments. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$emodf ($ floating_point_multiplier : SINGLE; multiplier_extension : $UBYTE;& floating_point_multiplicand : SIN GLE;* VAR integer_portion : [VOLATILE] INTEGER;A VAR fractional_portion : [VOLATILE] SINGLE) : INTEGER; EXTERNAL; N(* LIB$EMODG *)N(* *)N(* Extended Multiply and Integerize Routines for G-Floating Point Values *)N(* *)O(* The Extended Multiply and Integerize routine (G-Floating P oint Values) *)O(* allows higher-level language users to perform accurate range reduction *)N(* of G-floating arguments. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$emodg (+ floating_point_multiplier : G_FLOAT$$TYPE; multiplier_extension : $UWORD;- floating_point_multiplicand : G_FLOAT$$TYPE;* VAR integer_portion : [VOLATILE] INTEGER;H VAR fractional_portion : [VOLATILE] G_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* LIB$EMODH *)N(* *)N(* Extended Multiply and Integerize Routines for H-Floating Point Values *)N(* *)N(* On VAX VMS, the Extended Multiply and Integerize routine (H-Floating *)N(* Point Values) allows higher-level language users to pe rform accurate *)N(* range reduction of H-floating arguments. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$emodh (' floating_point_multiplier : QUADRUPLE; multiplier_extension : $UWORD;) floating_point_multiplicand : QUADRUPLE;* VAR integer_portion : [VOLATILE] INTEGER;D VAR fractional_portion : [VOLATILE] QUADRUPLE) : INTEGER; EXTERNAL; N(* LIB$EMUL  *)N(* *)N(* Extended-Precision Multiply *)N(* *)N(* The Extended-Precision Multiply routine performs extended-precision *)N(* multiplication. LIB$EMUL makes the VAX EMUL instruction available as *)N(* a callable routine.  *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$emul (' longword_integer_multiplier : INTEGER;) longword_integer_multiplicand : INTEGER; addend : INTEGER;5 VAR product : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; N(* LIB$ENABLE_CTRL *)N(* *)N(* Enable CLI Interception of Control Characters  *)N(* *)O(* The Enable CLI Interception of Control Characters routine requests the *)N(* calling process's Command Language Interpreter (CLI) to resume *)N(* interception of the selected control characters when they are typed *)N(* during an interactive terminal session. LIB$ENABLE_CTRL provides the *)N(* same function as the DCL command SET CONTROL. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$enable_ctrl ( enable_mask : UNSIGNED;E VAR old_mask : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$ESTABLISH *)N(* *)N(* Establish a Condition Handler *)N(*  *)N(* The Establish a Condition Handler routine moves the address of a *)N(* condition handling routine (which can be a user-written or a library *)R(* routine) to longword 0 of the stack frame of the caller of LIB$ESTABLISH. *)N(* *)N(* ENTRY lib$establish ALIAS $lib_establish PARAMETER ( *)N(* ADDRESS (ENTRY) NAMED new_handler IN  *)N(* TYPENAME procedure VALUE ) *)N(* RETURNS ADDRESS (ENTRY) NAMED RESULT TYPENAME routine; *)N(* LIB$EXPAND_NODENAME *)N(* *)N(* Expand a Node Name to its Full Name equivalent *)N(* *)N(* The Expand a Node Name to its Full Name equivalent routine *)N(* expands a node name to its full name equivalent. *)N(* *) -[ASYNCHRONOUS] FUNCTION lib$expand_nodename (> nodename : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VAR fullname : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERN AL; N(* LIB$EXTV *)N(* *)N(* Extract a Field and Sign-Extend *)N(* *)N(* The Extract a Field and Sign-Extend routine returns a sign-extended *)O(* longword field that has been extracted from the specified variable bit *)P(* field. LIB$EXTV makes the VAX EXTV instruction available as a callable *)N(* routine. *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$extv ( position : INTEGER; size : $UBYTE;4 %IMMED base_address : $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$EXTZV *)N(*  *)N(* Extract a Zero-Extended Field *)N(* *)N(* The Extract a Zero-Extended Field routine returns a longword *)N(* zero-extended field that has been extracted from the specified *)N(* variable bit field. LIB$EXTZV makes the VAX EXTZV instruction *)N(* available as a callable routine. *)N(*  *) #[ASYNCHRONOUS] FUNCTION lib$extzv ( position : INTEGER; size : $UBYTE;4 %IMMED base_address : $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$FFC *)N(* *)N(* Find First Clear or Set Bit *)N(*  *)O(* The Find First Clear or Set Bit routines search the field specified by *)N(* the start position, size, and base for the first clear or set bit. *)P(* LIB$FFC and LIB$FFS make the VAX FFC and VAX FFS instructions available *)N(* as callable routines. *)N(* *)N(* On Alpha VMS systems, Alpha instructions perform the  *)N(* equivalent operations. *)N(* *) ![ASYNCHRONOUS] FUNCTION lib$ffc ( position : INTEGER; size : $UBYTE; base : $DEFPTR;= VAR find_position : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* LIB$FFS *)N(* *)N(* Find First Clear or Set Bit *)N(* *)O(* The Find First Clear or Set Bit routines search the field specified by *)N(* the start position, size, and base for the first clear or set bit. *)P(* LIB$FFC and LIB$FFS make the VAX FFC and VAX FFS instructions available *)N(* as callable routines. *)N(*  *)N(* On Alpha VMS systems, Alpha instructions perform the *)N(* equivalent operations. *)N(* *) ![ASYNCHRONOUS] FUNCTION lib$ffs ( position : INTEGER; size : $UBYTE; base : $DEFPTR;= VAR find_position : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* LIB$FID_TO_NAME  *)N(* *)N(* Convert Device and File ID to File Specification *)N(* *)P(* The Convert Device and File ID to File Specification routine converts a *)N(* disk device name and file identifier to a file specification. *)N(* *)  )[ASYNCHRONOUS] FUNCTION lib$fid_to_name (A device_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;3 %REF file_id : ARRAY [$l2..$u2:INTEGER] OF $UWORD;K VAR filespec : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;5 VAR filespec_length : [VOLATILE] $UWORD := %IMMED 0;D %REF directory_id : ARRAY [$l5..$u5:INTEGER] OF $UWORD := %IMMED 0;G VAR acp_status : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FILE_SCAN  *)N(* *)N(* File Scan *)N(* *)N(* The File Scan routine searches an area, such as a directory, for all *)N(* files matching the file specification given and transfers program *)N(* execution to the specified user-written routine. Wildcards are *)N(* acceptable. An action routine is called for each file and/or error *)N(* found. LIB$FILE_SCAN allows the search sequence to continue even if *)N(* an error occurs while processing a particular file. *)N(* CP120606 - Changed fab type from unsigned int * to struct _fabdef * *)N(* and data types of arguments to user_success_procedure and *)N(* user_error_procedure from void to __unknown_params *)N(*  *) '[ASYNCHRONOUS] FUNCTION lib$file_scan ( fab : lib$routines$$typ2;J %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION user_success_procedure : INTEGER;H %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION user_error_procedure : INTEGER;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FILE_SCAN_END *)N(*  *)N(* End-of-File Scan *)N(* *)O(* The End-of-File Scan routine is called after each sequence of calls to *)Q(* LIB$FILE_SCAN. LIB$FILE_SCAN_END deallocates any saved Record Management *)R(* Service (RMS) context and/or deallocates the virtual memory that had been *)N(* allocated for holding the related file specification information. *)N(* CP -  Changed fab type from unsigned int * to struct _fabdef * *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$file_scan_end (5 VAR fab : [VOLATILE] lib$routines$$typ3 := %IMMED 0;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FIND_FILE *)N(* *)N(* Find File  *)N(* *)O(* The Find File routine is called with a wildcard file specification for *)O(* which it searches. LIB$FIND_FILE returns all file specifications that *)N(* satisfy that wildcard file specification. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$find_f ile (> filespec : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;U VAR resultant_filespec : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;# VAR context : [VOLATILE] UNSIGNED;R default_filespec : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;R related_filespec : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;4 VAR status_value : [VOLATILE] UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FIND_FILE_END  *)N(* *)N(* End of Find File *)N(* *)Q(* The End of Find File routine is called once after each sequence of calls *)N(* to LIB$FIND_FILE. LIB$FIND_FILE_END deallocates any saved Record *)Q(* Management Service (RMS) context and dealloc ates the virtual memory used *)N(* to hold the allocated context block. *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$find_file_end () context : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$FIND_IMAGE_SYMBOL *)N(* *)N(* Find Universal Symbol in Shareable Image File  *)N(* *)N(* The Find Universal Symbol in Shareable Image File routine reads *)N(* universal symbols from the shareable image file. This routine then *)N(* dynamically activates a shareable image into the P0 address space of *)N(* a process. *)N(* *)  /[ASYNCHRONOUS] FUNCTION lib$find_image_symbol (> filename : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;< symbol : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;' VAR symbol_value : [VOLATILE] INTEGER;L image_name : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;: %IMMED flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FIND_VM_ZONE *)N(*  *)N(* Return the Next Valid Zone Identifier *)N(* *)N(* The Return the Next Valid Zone Identifier routine returns the *)N(* zone identifier of the next valid zone in the heap management *)N(* database. *)N(* *) *[ASY NCHRONOUS] FUNCTION lib$find_vm_zone (# VAR context : [VOLATILE] UNSIGNED;8 VAR zone_id : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$FIND_VM_ZONE_64 *)N(* *)N(* Return the Next Valid Zone Identifier *)N(* *)N(* The Return the Next Valid Zone Identifie r routine returns the *)N(* zone identifier of the next valid zone in the heap management *)N(* database. *)N(* *) -[ASYNCHRONOUS] FUNCTION lib$find_vm_zone_64 (! VAR context : [VOLATILE] $UQUAD;6 VAR zone_id : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$FIT_NODENAME *)N(*  *)N(* Fit a Node Name into an output field *)N(* *)N(* The Fit a Node Name into an output field routine *)N(* fits a Node Name into an output field. *)N(* *) *[ASYNCHRONOUS] FUNCTION li b$fit_nodename (> nodename : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;P VAR output_buffer : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;# output_width : $UWORD := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FIXUP_FLT *)N(* *)N(* Fix Floating Reserved Operand  *)N(* *)P(* The Fix Floating Reserved Operand routine finds the reserved operand of *)P(* any F-floating, D-floating, G-floating, or H-floating instruction (with *)N(* some exceptions) after a reserved operand fault has been signaled. *)N(* LIB$FIXUP_FLT changes the reserved operand from --0.0 to the value of *)N(* the new-operand argument, if present; or to +0.0 if new-operand is *)N(*  absent. *)N(* *)N(* This routine is available on Alpha VMS systems in translated form *)N(* and is applicable to translated VAX images only. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$fixup_flt (E %REF signal_arguments : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $U BYTE;H %REF mechanism_arguments : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;7 new_operand : SINGLE := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FLT_UNDER *)N(* *)N(* Floating-Point Underflow Detection *)N(* *)N(* The Floating-Point Underflow Detection routine enables or disables *)O(* floating-point underflow detection for the calling routine activation. *)N(* The previous setting is returned as a function value. *)N(* *)N(* This routine is available on Alpha VMS systems in translated form *)N(* and is applicable to translated VAX images only. *)N(*  *) '[ASYNCHRONOUS] FUNCTION lib$flt_under (- new_setting : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$FORMAT_DATE_TIME *)N(* *)N(* Format Date and/or Time *)N(* *)R(* The Format Date and/or Time routine allows the user to select at run  time *)N(* a specific output language and format for a date or time, or both. *)N(* *) .[ASYNCHRONOUS] FUNCTION lib$format_date_time (N VAR date_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; date : $UQUAD := %IMMED 0;4 VAR user_context : [VOLATILE] UNSIGNED := %IMMED 0;2 VAR date_length : [VOLATILE] INTEGER := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FORMAT_SOGW_PROT *)N(* *)N(* Format Protection Mask *)N(* *)N(* The Format Protection Mask routine translates a protection mask *)N(* into a formatted string. *)N(*  *) .[ASYNCHRONOUS] FUNCTION lib$format_sogw_prot ( protection_mask : $UWORD;D %REF access_names : ARRAY [$l2..$u2:INTEGER] OF $UQUAD := %IMMED 0;G %REF ownership_names : ARRAY [$l3..$u3:INTEGER] OF $UQUAD := %IMMED 0;U ownership_separator : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;P list_separator : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;T VAR protection_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:I NTEGER] OF CHAR;K VAR protection_length : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FREE_DATE_TIME_CONTEXT *)N(* *)P(* Free the Context Area Used When Formatting Dates and Times for Input or *)N(* Output *)N(* *)Q(*  The Free the Context Area Used When Formatting Dates and Times for Input *)O(* or Output routine frees the virtual memory associated with the context *)N(* area used by the date/time input and output Formatting Routines. *)N(* *) 4[ASYNCHRONOUS] FUNCTION lib$free_date_time_context (I VAR user_context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FREE_EF  *)N(* *)N(* Free Event Flag *)N(* *)R(* The Free Event Flag routine frees a local event flag previously allocated *)N(* by LIB$GET_EF. LIB$FREE_EF is the complement of LIB$GET_EF. *)N(*  *) %[ASYNCHRONOUS] FUNCTION lib$free_ef (3 event_flag_number : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$FREE_LUN *)N(* *)N(* Free Logical Unit Number *)N(* *)N(* The Free Logical Unit Number routine releases a logical unit numbe r *)Q(* allocated by LIB$GET_LUN to the pool of available numbers. LIB$FREE_LUN *)N(* is the complement of LIB$GET_LUN. *)N(* *) &[ASYNCHRONOUS] FUNCTION lib$free_lun (4 logical_unit_number : INTEGER) : INTEGER; EXTERNAL; N(* LIB$FREE_TIMER *)N(*  *)N(* Free Timer Storage *)N(* *)N(* The Free Timer Storage routine frees the storage allocated *)N(* by LIB$INIT_TIMER. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$free_timer (> VAR handle_address : [VOLATILE] $DEFPTR) : INTEGER;  EXTERNAL; N(* LIB$FREE_VM *)N(* *)N(* Free Virtual Memory from Program Region *)N(* *)N(* The Free Virtual Memory from Program Region routine deallocates an *)P(* entire block of contiguous bytes that were allocated by a previous call *)N(* to  LIB$GET_VM. The arguments passed are the same as for LIB$GET_VM. *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$free_vm ( number_of_bytes : INTEGER; base_address : $DEFPTR;5 zone_id : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FREE_VM_64 *)N(* *)N(* Free Virtual Memory from Program Region *)N(* *)N(* The Free Virtual Memory from Program Region routine deallocates an *)P(* entire block of contiguous bytes that were allocated by a previous call *)N(* to LIB$GET_VM_64. The arguments passed are the same as for *)N(* LIB$GET_VM_64. *)N(*  *) ([ASYNCHRONOUS] FUNCTION lib$free_vm_64 ( number_of_bytes : $QUAD;# base_address : lib$routines$$typ4;3 zone_id : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$FREE_VM_PAGE *)N(* *)N(* Free Virtual Memory Page *)N(*  *)N(* The Free Virtual Memory Page routine deallocates a block of *)N(* contiguous pages on VAX or pagelets on Alpha that were allocated *)N(* by previous calls to LIB$GET_VM_PAGE. *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$free_vm_page ( number_of_pages : INTEGER;- base_address : $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$FREE_VM_PAGE_64  *)N(* *)N(* Free Virtual Memory Page *)N(* *)N(* The Free Virtual Memory Page routine deallocates a block of *)N(* contiguous pages on VAX or pagelets on Alpha that were allocated *)N(* by previous calls to LIB$GET_VM_PAGE_64. *)N(* *) -[ASYNCHRONOUS] FUNCTION lib$free_vm_page_64 ( number_of_pages : $QUAD;8 base_address : lib$routines$$typ5) : INTEGER; EXTERNAL; N(* LIB$GETDVI *)N(* *)N(* Get Device/Volume Information *)N(*  *)R(* The Get Device/Volume Information routine provides a simplified interface *)Q(* to the $GETDVI system service. It returns information about the primary *)N(* and secondary device characteristics of an I/O device. The calling *)N(* process need not have a channel assigned to the device about which it *)N(* wants information. *)N(*  *) $[ASYNCHRONOUS] FUNCTION lib$getdvi ( item_code : INTEGER; channel : $UWORD := %IMMED 0;M device_name : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;= VAR longword_integer_value : [VOLATILE] INTEGER := %IMMED 0;_ VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;` path_name : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0) : INTEGER; E XTERNAL; N(* LIB$GETJPI *)N(* *)N(* Get Job/Process Information *)N(* *)P(* The Get Job/Process Information routine provides a simplified interface *)N(* to the $GETJPI system service. It provides accounting, status, and *)N(* iden tification information about a specified process. *)N(* LIB$GETJPI obtains only one item of information in a single call. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$getjpi ( item_code : INTEGER;2 VAR process_id : [VOLATILE] UNSIGNED := %IMMED 0;N process_name : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;Y %REF resultant_value : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0;_ VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GETQUI *)N(* *)N(* Get Queue Information *)N(*  *)Q(* The Get Queue Information routine provides a simplified interface to the *)N(* $GETQUI system service. It provides queue, job, file, characteristic, *)N(* and form information about a specified process. *)N(* LIB$GETQUI obtains only one item of information in a single call. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$getqui ( function_code : INTEGER;! item_code : INTEGER := %IMMED 0;% search_number : INTEGER := %IMMED 0;M search_name : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;% search_flags : UNSIGNED := %IMMED 0;Y %REF resultant_value : [VOLATILE,UNSAFE] ARRAY [$l6..$u6:INTEGER] OF $UBYTE := %IMMED 0;_ VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;J VAR resultant_length : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GETSYI  *)N(* *)N(* Get Systemwide Information *)N(* *)O(* The Get Systemwide Information routine provides a simplified interface *)R(* to the $GETSYI system service. The $GETSYI system service obtains status *)N(* and identification information about the system. *)N(*  LIB$GETSYI returns only one item of information in a single call. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$getsyi ( item_code : INTEGER;Y %REF resultant_value : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0;_ VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;9 VAR cluster_system_id : [VOLATILE] UNSIGNED := %IMMED 0;` node_name : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_ACCNAM *)N(* *)N(* Get Access Name Table for Protected Object Class *)N(* *)N(* The Get Access Name Table for Protected Object Class rou tine returns *)N(* a pointer to the access name table for a protected object class that *)N(* is specified by name. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$get_accnam (H clsnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;H objnam : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;7 VAR accnam : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL ; N(* LIB$GET_ACCNAM_BY_CONTEXT *)N(* *)N(* Get Access Name Table for Protected Object Class *)N(* *)N(* The Get Access Name Table for Protected Object Class routine returns *)N(* a pointer to the access name table for a protected object class that *)N(* is specified  by a context. *)N(* *) 3[ASYNCHRONOUS] FUNCTION lib$get_accnam_by_context ( contxt : UNSIGNED;7 VAR accnam : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$GET_COMMAND *)N(* *)N(* Get Line from SYS$COMMAND  *)N(* *)Q(* The Get Line from SYS$COMMAND routine gets one record of ASCII text from *)N(* the current controlling input device, specified by the logical name *)N(* SYS$COMMAND. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$get_command (S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;O prompt_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_COMMON *)N(* *)N(* Get String from Common *)N(*  *)Q(* The Get String from Common routine copies a string in the common area to *)N(* the destination string. (The common area is an area of storage which *)N(* remains defined across multiple image activations in a process.) The *)N(* string length is taken from the first longword of the common area. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$get_common (S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_DATE_FORMAT *)N(* *)N(* Get the User's Date Input Format *)N(* *)O(* The Get The User's Date Input Format rou tine returns information about *)N(* the user's choice of a date/time input format. *)N(* *) -[ASYNCHRONOUS] FUNCTION lib$get_date_format (P VAR format_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;I VAR user_context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_EF *)N(*  *)N(* Get Event Flag *)N(* *)N(* The Get Event Flag routine allocates one local event flag from a *)N(* process-wide pool and returns the number of the allocated flag to the *)O(* caller. If no flags are available, LIB$GET_EF returns an error as its *)N(* function value.  *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$get_ef (B VAR event_flag_number : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$GET_FOREIGN *)N(* *)N(* Get Foreign Command Line *)N(*  *)N(* The Get Foreign Command Line routine requests the calling image's *)N(* Command Language Interpreter (CLI) to return the contents of the *)N(* foreign command line that activated the current image. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$get_foreign (S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;O prompt_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;B VAR flags : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_FULLNAME_OFFSET *)N(* *)N(* Get the Offset to the Starting Position of the Most Significant *)N(* Part of a Full Name  *)N(* *)N(* The Get the Offset to the Starting Position of the Most Significant *)N(* Part of a Full Name routine gets the offset to the starting *)N(* position of the most significant part of a full name. *)N(* *) 1[ASYNCHRONOUS] FUNCTION lib$get_fullname_offset (> fullname : [CLASS_S] PACKED A RRAY [$l1..$u1:INTEGER] OF CHAR;5 VAR offset : [VOLATILE] $UWORD) : INTEGER; EXTERNAL; N(* LIB$GET_HOSTNAME *)N(* *)N(* Get Host Node Name *)N(* *)N(* The Get Host Node Name routine returns the host node name of *)N(* the lo cal system. *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$get_hostname (K VAR hostname : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_INPUT *)N(*  *)N(* Get Line from SYS$INPUT *)N(* *)O(* The Get Line from SYS$INPUT routine gets one record of ASCII text from *)N(* the current controlling input device, specified by SYS$INPUT. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$get_input (S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;O prompt_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_LOGICAL *)N(* *)N(* Get Logical *)N(*  *)N(* The Get Logical routine gets the logical name information by calling *)N(* the system service routine SYS$TRNLNM. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$get_logical (B logical_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;_ VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;6 VAR  resultant_length : [VOLATILE] $UWORD := %IMMED 0;L table_name : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;0 VAR max_index : [VOLATILE] INTEGER := %IMMED 0; index : UNSIGNED := %IMMED 0; acmode : $UBYTE := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_LUN *)N(* *)N(* Get Logical Unit Number  *)N(* *)N(* The Get Logical Unit Number routine allocates one logical unit number *)R(* from a process-wide pool. If a unit is available, its number is returned *)O(* to the caller. Otherwise, an error is returned as the function value. *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$get_lun (C VAR logical_unit_number : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* LIB$GET_MAXIMUM_DATE_LENGTH *)N(* *)N(* Retrieve the Maximum Length of a Date/Time String *)N(* *)N(* Given an output format and language, the Retrieve the Maximum Length *)Q(* of a Date/Time String routine determines the m aximum possible length for *)N(* the date-string string returned by LIB$FORMAT_DATE_TIME. *)N(* *) 5[ASYNCHRONOUS] FUNCTION lib$get_maximum_date_length (& VAR date_length : [VOLATILE] INTEGER;4 VAR user_context : [VOLATILE] UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_SYMBOL *)N(*  *)N(* Get Value of CLI Symbol *)N(* *)N(* The Get Value of CLI Symbol routine requests the calling process's *)O(* Command Language Interpreter (CLI) to return the value of a CLI symbol *)N(* as a string. LIB$GET_SYMBOL then returns the string to the caller. *)O(* Optionally, LIB$GET_SYMBOL can return th e length of the returned value *)N(* and the table in which the symbol was found. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$get_symbol (< symbol : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;P VAR table_type_indicator : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; 8(* LIB$GET_UIB_INFO ** IPF only ** *)N(* *)N(* Returns information from the unwind information block (UIB). *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$get_uib_info ( uib_va : lib$routines$$typ6;/ handler_base : lib$routines$$typ7 := %IMMED 0;< VAR uw_desc_va : [VOLATILE] lib$routines$$typ8 := % IMMED 0;= VAR uw_desc_len : [VOLATILE] lib$routines$$typ9 := %IMMED 0;= VAR handler_fv : [VOLATILE] lib$routines$$typ10 := %IMMED 0;: VAR ossd_va : [VOLATILE] lib$routines$$typ11 := %IMMED 0;O VAR lsda_va : [VOLATILE] lib$routines$$typ12 := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_USERS_LANGUAGE *)N(* *)N(* Return the User's Language  *)N(* *)O(* The Return the User's Language routine determines the user's choice of *)Q(* a natural language. The choice is determined by translating the logical *)N(* SYS$LANGUAGE. *)N(* *) 0[ASYNCHRONOUS] FUNCTION lib$get_users_language (` VAR language : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$GET_VM *)N(* *)N(* Allocate Virtual Memory *)N(* *)N(* The Allocate Virtual Memory routine allocates a specified number of *)O(* contiguous bytes in the pr ogram region and returns the virtual address *)N(* of the first byte allocated. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$get_vm ( number_of_bytes : INTEGER;' VAR base_address : [VOLATILE] $DEFPTR;5 zone_id : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_VM_64 *)N(*  *)N(* Allocate Virtual Memory *)N(* *)N(* The Allocate Virtual Memory routine allocates a specified number of *)O(* contiguous bytes in the program region and returns the virtual address *)N(* of the first byte allocated. *)N(*  *) '[ASYNCHRONOUS] FUNCTION lib$get_vm_64 ( number_of_bytes : $QUAD;3 VAR base_address : [VOLATILE] lib$routines$$typ13;3 zone_id : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$GET_VM_PAGE *)N(* *)N(* Get Virtual Memory Page *)N(*  *)N(* The Get Virtual Memory Page routine allocates a specified number of *)O(* contiguous pages on VAX and pagelets on Alpha of memory in the program *)N(* region and returns the virtual address of the first allocated page on *)N(* VAX and pagelet on Alpha. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$get_vm_page ( number_of_pages : INTEGER;< VAR base_address : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$GET_VM_PAGE_64 *)N(* *)N(* Get Virtual Memory Page *)N(* *)N(* The Get Virtual Memory Page routine allocates a specified number of *)O(* contiguous pages on VAX and pagelets on Alpha of memory in the program *)N(* region and returns the virtual address of the first allocated page on *)N(* VAX and pagelet on Alpha. *)N(* *) ,[ASYNCHRONOUS] FUNCTION lib$get_vm_page_64 ( number_of_pages : $QUAD;H VAR base_address : [VOLATILE] lib$routines$$typ14) : INTEGER; EXTERNAL; N(* LIB$ICHAR *)N(* *)N(* Convert First Character of String to Integer *)N(* *)N(* The Convert First Character of String to Integer routine converts the *)N(* first character of a source string to an 8-bit ASCII integer extended *)N(* to a longword. *)N(*  *) #[ASYNCHRONOUS] FUNCTION lib$ichar (X source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$INDEX *)N(* *)N(* Index to Relative Position of Substring *)N(* *)N(* The Index to Relative Position of Substring routine returns an index, *)N(* which is the relative position of the first occurrence of a substring *)N(* in the source string. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$index (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;U sub_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INT EGER; EXTERNAL; N(* LIB$INIT_DATE_TIME_CONTEXT *)N(* *)Q(* Initialize the Context Area Used in Formatting Dates and Times for Input *)N(* or Output *)N(* *)O(* The Initialize the Context Area Used in Formatting Dates and Times for *) O(* Input or Output routine allows the user to initialize the context area *)N(* used by LIB$FORMAT_DATE_TIME or LIB$CONVERT_DATE_STRING with specific *)N(* strings, instead of through logical name translation. *)N(* *) 4[ASYNCHRONOUS] FUNCTION lib$init_date_time_context (( VAR user_context : [VOLATILE] UNSIGNED; component : INTEGER;V init_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] O F CHAR) : INTEGER; EXTERNAL; N(* LIB$INIT_TIMER *)N(* *)N(* Initialize Times and Counts *)N(* *)N(* The Initialize Times and Counts routine stores the current values of *)Q(* specified times and counts for use by LIB$SHOW_TIMER or LIB$STAT_T IMER. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$init_timer (D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$INSERT_TREE *)N(* *)N(* Insert Entry in a Balanced Binary Tree *)N(*  *)O(* The Insert Entry in a Balanced Binary Tree routine inserts a node in a *)N(* balanced binary tree. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$insert_tree (# VAR treehead : [VOLATILE] $DEFPTR;; %REF symbol : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE; flags : UNSIGNED;? %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare_routine;D %IM MED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_allocation_procedure;# VAR new_node : [VOLATILE] $DEFPTR;> %IMMED user_data : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$INSERT_TREE_64 *)N(* *)N(* Insert Entry in a Balanced Binary Tree *)N(* *)O(* The Inse rt Entry in a Balanced Binary Tree routine inserts a node in a *)N(* balanced binary tree. *)N(* *) ,[ASYNCHRONOUS] FUNCTION lib$insert_tree_64 (/ VAR treehead : [VOLATILE] lib$routines$$typ15;; %REF symbol : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE; flags : UNSIGNED;? %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare_routine;D %IMMED [UNBOUND, ASYNCHRONOUS ] PROCEDURE user_allocation_procedure;/ VAR new_node : [VOLATILE] lib$routines$$typ16;= %IMMED user_data : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$INSQHI *)N(* *)N(* Insert Entry at Head of Queue *)N(* *)O(* The Insert Entry at He ad of Queue routine inserts a queue entry at the *)N(* head of the specified self-relative interlocked longword queue. *)N(* LIB$INSQHI makes the VAX INSQHI instruction available as a callable *)N(* routine. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$insqhi (C %REF ENTRY : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; VAR header : [VOLAT ILE] $QUAD;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$INSQHIQ *)N(* *)N(* Insert Entry at Head of Queue (Quadword) *)N(* *)O(* The Insert Entry at Head of Queue routine inserts a queue entry at the *)N(* head of the specifie d self-relative interlocked quadword queue. *)N(* LIB$INSQHIQ makes the Alpha unprivileged PALcode instruction INSQHIQ *)N(* available as a callable routine. *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$insqhiq (C %REF ENTRY : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; VAR header : [VOLATILE] $OCTA;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$INSQTI *)N(* *)N(* Insert Entry at Tail of Queue *)N(* *)O(* The Insert Entry at Tail of Queue routine inserts a queue entry at the *)N(* tail of the specified self-relative interlocked longword queue. *)N(* LIB$INSQTI makes t he VAX INSQTI instruction available as a callable *)N(* routine. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$insqti (C %REF ENTRY : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; VAR header : [VOLATILE] $QUAD;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$INSQTIQ *)N(* *)N(* Insert Entry at Tail of Queue (Quadword) *)N(* *)O(* The Insert Entry at Tail of Queue routine inserts a queue entry at the *)N(* tail of the specified self-relative interlocked quadword queue. *)N(* LIB$INSQTIQ makes the Alpha unprivileged PALcode instruction INSQTIQ *)N(* available as a cal lable routine. *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$insqtiq (C %REF ENTRY : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; VAR header : [VOLATILE] $OCTA;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$INSV *)N(* *)N(* Insert a Variable Bit Field *)N(* *)P(* The Insert a Variable Bit Field routine replaces the variable bit field *)P(* specified by the base, position, and size arguments with bits 0 through *)N(* of the source field. If the size of the bit field is zero, nothing is *)N(* inserted. LIB$INSV makes the VAX INSV instruction available as a *)N(* callable routi ne. *)N(* *) #[ASYNCHRONOUS] PROCEDURE lib$insv (# longword_integer_source : INTEGER; position : INTEGER; size : $UBYTE;* %IMMED base_address : $DEFPTR); EXTERNAL; N(* LIB$INT_OVER *)N(* *)N(* Integer Overflow Detection  *)N(* *)N(* The Integer Overflow Detection routine enables or disables integer *)N(* overflow detection for the calling routine activation. The previous *)N(* integer overflow enable setting is returned. *)N(* *)N(* This routine is available on Alpha VMS systems in translat ed form *)N(* and is applicable to translated VAX images only. *)N(* *) &[ASYNCHRONOUS] FUNCTION lib$int_over (- new_setting : UNSIGNED) : INTEGER; EXTERNAL; A(* LIB$I64_CREATE_INVO_CONTEXT ** IPF only ** *)N(* *)R(* A thread can allocte an invocation context block on the heap by using the *)N(*  following function format: *)N(* *) 5[ASYNCHRONOUS] FUNCTION lib$i64_create_invo_context (B %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_malloc := %IMMED 0;@ %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_free := %IMMED 0;> %IMMED user_ident : INTEGER := %IMMED 0) : $DEFPTR; EXTERNAL; @(* LIB$I64_FREE_INVO_CONTEXT ** IPF only ** *)N(*  *)O(* A thread can free an invocation context block to the heap by using the *)N(* following function format: *)N(* *) 4[ASYNCHRONOUS] PROCEDURE lib$i64_free_invo_context (# invo_context : $DEFPTR); EXTERNAL; C(* LIB$I64_GET_CURR_INVO_CONTEXT ** IPF only ** *)N(*  *)Y(* A thread can obtain the invocation context of the current procedure by using the *)N(* following function format: *)N(* *) 7[ASYNCHRONOUS] FUNCTION lib$i64_get_curr_invo_context (< VAR invo_context : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; B(* LIB$I64_GET_CURR_INVO_HANDLE ** IPF only ** *)N(*  *)V(* A thread can obtain the invocation handle corresponding to current invocation *)Q(* context of the current procedure by using the following function format: *)N(* *) 6[ASYNCHRONOUS] FUNCTION lib$i64_get_curr_invo_handle (G VAR invo_handle : [VOLATILE] lib$routines$$typ17) : INTEGER; EXTERNAL; F(* LIB$I64_GET_INVO_CONTEXT ** IPF only ** ! *)N(* *)X(* A thread can obtain the invocation context of any active procedure by using the *)N(* following function format: *)N(* *) 2[ASYNCHRONOUS] FUNCTION lib$i64_get_invo_context (# invo_handle : lib$routines$$typ18;< VAR invo_context : [VOLATILE] $DEFPTR) : INTEGER; EXTERNA "L; E(* LIB$I64_GET_INVO_HANDLE ** IPF only ** *)N(* *)Y(* A thread can obtain an invocation handle corresponding to any invocation context *)N(* block by using the following function format: *)N(* *) 1[ASYNCHRONOUS] FUNCTION lib$i64_get_invo_handle ( invo_context : $DEFPTR;G VAR invo_ha #ndle : [VOLATILE] lib$routines$$typ19) : INTEGER; EXTERNAL; C(* LIB$I64_GET_PREV_INVO_CONTEXT ** IPF only ** *)N(* *)Z(* A thread can obtain the invocation context of the procedure context preceding any *)N(* other procedure context by using the following function format: *)N(* *) 7[ASYNCHRONOUS] FUNCTION lib$i64_ge $t_prev_invo_context (< VAR invo_context : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; B(* LIB$I64_GET_PREV_INVO_HANDLE ** IPF only ** *)N(* *)Y(* A thread can obtain an invocation handle of the procedure context preceding that *)Q(* of a specified procedure context by using the following function format: *)N(* *) 6[ASYNCHR %ONOUS] FUNCTION lib$i64_get_prev_invo_handle (& invo_handle_in : lib$routines$$typ20;K VAR invo_handle_out : [VOLATILE] lib$routines$$typ21) : INTEGER; EXTERNAL; @(* LIB$I64_INIT_INVO_CONTEXT ** IPF only ** *)N(* *)N(* A thread can initialize an invocation context block by using the *)N(* following function format: *)N(* & *) 3[ASYNCHRONOUS] FUNCTION lib$i64_init_invo_context (' VAR invo_context : [VOLATILE] $DEFPTR; %IMMED invo_version : INTEGER;F %IMMED cache_unwind_flag : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; <(* LIB$I64_PREV_INVO_END ** IPF only ** *)N(* *)V(* This routine should be called at the conclusion of call tracing operations to *)W(* free the m'emory used to process unwind descriptors. The call tracing routines *)N(* are LIB$I64_GET_INVO_CONTEXT, LIB$I64_GET_PREV_INVO_CONTEXT, and *)N(* LIB$I64_GET_CURR_INVO_CONTEXT. *)N(* *)Z(* To provide efficient call tracing, some unwind information can be tracked in heap *)Y(* storage from one call to the next. This heap storage should be freed before you *)N(* re(lease or reuse the invocation context block. *)N(* *)T(* Calling this routine is only necessary if the LIBICB$V_UO_FLAG_CACHE_UNWIND *)N(* flag is set in the LIBICB$Q_UO_FLAGS field of the invocation context *)N(* block. This flag causes unwind information to be cached between *)N(* calls. *)N(* ) *) /[ASYNCHRONOUS] FUNCTION lib$i64_prev_invo_end (< VAR invo_context : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; @(* LIB$I64_PUT_INVO_REGISTERS ** IPF only ** *)N(* *)S(* The fields of a given procedure invocation context can be updated with new *)X(* register contents by calling a system library function in the following format: *)N(* * *) 4[ASYNCHRONOUS] FUNCTION lib$i64_put_invo_registers (# invo_handle : lib$routines$$typ22; invo_context : $DEFPTR;+ gr_mask : lib$routines$$typ23 := %IMMED 0;+ fr_mask : lib$routines$$typ24 := %IMMED 0;+ br_mask : lib$routines$$typ25 := %IMMED 0;+ pr_mask : lib$routines$$typ26 := %IMMED 0;B misc_mask : lib$routines$$typ27 := %IMMED 0) : INTEGER; EXTERNAL; 8(* LIB$I64_SET_FPSR ** IPF only ** *)N(*+ *)R(* Given an invocation context block and a quadword FPSR value in fpsr_copy, *)T(* write the fpsr_copy value to the invocation context block FPSR and then use *)R(* LIB$I64_PUT_INVO_REGISTERS to write to the actual context. The invocation *)N(* context block remains unchanged if the routine fails. *)N(* *) *[ASYNCHRON ,OUS] FUNCTION lib$i64_set_fpsr (' VAR invo_context : [VOLATILE] $DEFPTR;6 fpsr_copy : lib$routines$$typ28) : INTEGER; EXTERNAL; 6(* LIB$I64_GET_FR ** IPF only ** *)N(* *)V(* Given an invocation context block and floating-point register index such that *)T(* 2 <= index < 128, copy the register value to fr_copy. For example, an index *)X(* value of 4 fetches the invocation context block FREG[4 -] value, which represents *)N(* the contents of F4 for the context. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$i64_get_fr ( invo_context : $DEFPTR; %IMMED index : UNSIGNED;7 VAR fr_copy : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; 6(* LIB$I64_SET_FR ** IPF only ** *)N(* *)`(* Given an inv .ocation context block, a floating-point register index, and a floatingpoint *)U(* register value in fr_copy, writes the corresponding invocation context block *)N(* FREG entry, and calls LIB$I64_PUT_INVO_REGISTERS to write the actual *)V(* context. The invocation context block remains unchanged if the routine fails. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$i64_set_fr (' VAR invo_context : [VOLATILE] $DEFPTR; % /IMMED index : UNSIGNED;7 VAR fr_copy : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; 6(* LIB$I64_GET_GR ** IPF only ** *)N(* *)O(* Given an invocation context block and general register index such that *)S(* 0 < index < 128,) copy the register value to gr_copy, for example, index 4 *)Z(* fetches the invocation context block IREG[4] value, which represents the contents *)N(* of R4 for the co 0ntext. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$i64_get_gr ( invo_context : $DEFPTR; %IMMED index : UNSIGNED;C VAR gr_copy : [VOLATILE] lib$routines$$typ29) : INTEGER; EXTERNAL; 6(* LIB$I64_SET_GR ** IPF only ** *)N(* *)N(* Given an invocation context block, a general registe 1r index such that *)P(* 0 < index < 128, and a quadword value gr_copy, writes the corresponding *)T(* invocation context block general register, clears the corresponding NaT bit *)P(* and uses LIB$I64_PUT_INVO_REGISTERS to write to the actual context. The *)N(* invocation context block remains unchanged if the routine fails. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$i64_set_gr (' VAR invo_context : [VOLATIL 2E] $DEFPTR; %IMMED index : UNSIGNED;4 gr_copy : lib$routines$$typ30) : INTEGER; EXTERNAL; 6(* LIB$I64_SET_PC ** IPF only ** *)N(* *)T(* Given an invocation context block and a quadword PC value in pc_copy, write *)W(* the pc_copy value to the invocation context block PC and then use LIB$I64_PUT_ *)T(* INVO_REGISTERS to write to the actual context. The invocation context block *)N(* re 3mains unchanged if the routine fails. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$i64_set_pc (' VAR invo_context : [VOLATILE] $DEFPTR;4 pc_copy : lib$routines$$typ31) : INTEGER; EXTERNAL; C(* LIB$I64_GET_UNWIND_HANDLER_FV ** IPF only ** *)N(* *)X(* Given a pc_value, find the function value (address o 4f the procedure descriptor) *)[(* for the condition handler, if present, and write it to handler_fv. If not present, *)N(* then write 0 to handler_fv. *)N(* *) 7[ASYNCHRONOUS] FUNCTION lib$i64_get_unwind_handler_fv ( pc_value : lib$routines$$typ32;F VAR handler_fv : [VOLATILE] lib$routines$$typ33) : INTEGER; EXTERNAL; >(* LIB$I64_GET_UNWIND_LSDA ** IPF only ** 5 *)N(* *)N(* Given a pc_value, find the address of the unwind information block *)W(* language-specific data area (LSDA), if present, and write it to unwind_lsda_p. *)N(* If not present, then write 0 to unwind_lsda_va. *)N(* *) 1[ASYNCHRONOUS] FUNCTION lib$i64_get_unwind_lsda ( pc_value : lib$routines 6$$typ34;J VAR unwind_lsda_va : [VOLATILE] lib$routines$$typ35) : INTEGER; EXTERNAL; >(* LIB$I64_GET_UNWIND_OSSD ** IPF only ** *)N(* *)U(* Given a pc_value, find the address of the unwind information block operating *)U(* system-specific data area, if present, and write it to unwind_ossd_p. If not *)N(* present, then write 0 to unwind_ossd_p. *)N(* 7 *) 1[ASYNCHRONOUS] FUNCTION lib$i64_get_unwind_ossd ( pc_value : lib$routines$$typ36;J VAR unwind_ossd_va : [VOLATILE] lib$routines$$typ37) : INTEGER; EXTERNAL; C(* LIB$I64_IS_AST_DISPATCH_FRAME ** IPF only ** *)N(* *)N(* Used to determine whether a given PC value *)N(* represents the AST dispatch frame. 8 *)N(* *) 7[ASYNCHRONOUS] FUNCTION lib$i64_is_ast_dispatch_frame (5 pc_value : lib$routines$$typ38) : INTEGER; EXTERNAL; C(* LIB$I64_IS_EXC_DISPATCH_FRAME ** IPF only ** *)N(* *)N(* Used to determine whether a given PC value *)N(* represents the exception dispa 9tch frame. *)N(* *) 7[ASYNCHRONOUS] FUNCTION lib$i64_is_exc_dispatch_frame (5 pc_value : lib$routines$$typ39) : INTEGER; EXTERNAL; N(* LIB$LEN *)N(* *)N(* Length of String Returned as Longword Value *)N(* : *)N(* The Length of String Returned as Longword Value routine returns the *)N(* length of a string. *)N(* *) ![ASYNCHRONOUS] FUNCTION lib$len (W source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : $UWORD; EXTERNAL; N(* LIB$LOCC ; *)N(* *)N(* Locate a Character *)N(* *)N(* The Locate a Character routine locates a character in a string by *)O(* comparing successive bytes in the string with the character specified. *)O(* The search continues until the character is found or the string has no *)O(* more cha <racters. LIB$LOCC makes the VAX LOCC instruction available as *)N(* a callable routine. *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$locc (F character_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$LOCK_IMAGE = *)N(* *)N(* Lock Image in working set *)N(* *)N(* Lock all address ranges associated with a specified image *)N(* into the working set. *)N(* *) ([ASYNCHRONOUS] > FUNCTION lib$lock_image (! va : $QUAD) : INTEGER; EXTERNAL; N(* LIB$LOOKUP_KEY *)N(* *)N(* Look Up Keyword in Table *)N(* *)O(* The Look Up Keyword In Table routine scans a table of keywords to find *)N(* one that matches the keyword o ?r keyword abbreviation specified by *)N(* search-string. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$lookup_key (C search_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;D %REF key_table_array : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;1 VAR key_value : [VOLATILE] UNSIGNED := %IMMED 0;] VAR keyword_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:@INTEGER] OF CHAR := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$LOOKUP_TREE *)N(* *)N(* Look Up an Entry in a Balanced Binary Tree *)N(* *)N(* The Look Up an Entry in a Balanced Binary Tree routine looks up an A *)N(* entry in a balanced binary tree. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$lookup_tree ( treehead : $DEFPTR;; %REF symbol : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;? %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare_routine;8 VAR new_node : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; N(* LIB$LOOKUP_TREE_64 *)BN(* *)N(* Look Up an Entry in a Balanced Binary Tree *)N(* *)N(* The Look Up an Entry in a Balanced Binary Tree routine looks up an *)N(* entry in a balanced binary tree. *)N(* *) ,[ASYNCHRONOUS] FUNCT CION lib$lookup_tree_64 ( treehead : lib$routines$$typ40;; %REF symbol : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;? %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare_routine;D VAR new_node : [VOLATILE] lib$routines$$typ41) : INTEGER; EXTERNAL; N(* LIB$LP_LINES *)N(* *)N(* Lines on Each Printer Page *)N(* D *)N(* The Lines on Each Printer Page routine computes the default number of *)N(* lines on a printer page. This routine can be used by native-mode VMS *)N(* utilities that produce listing files and paginate files. *)N(* *) 9[ASYNCHRONOUS] FUNCTION lib$lp_lines : INTEGER; EXTERNAL; N(* LIB$MATCHC E *)N(* *)N(* Match Characters, Return Relative Position *)N(* *)N(* The Match Characters and Return Relative Position routine searches a *)O(* source string for a specified substring and returns an index, which is *)N(* the relative position of the first occurrence of a substring F in the *)P(* source string. The relative character positions returned by LIB$MATCHC *)N(* are numbered 1, 2, , n. Thus, zero means that the substring was not *)N(* found. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$matchc (@ sub_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF GCHAR) : INTEGER; EXTERNAL; N(* LIB$MATCH_COND *)N(* *)N(* Match Condition Values *)N(* *)N(* The Match Condition Values routine checks to see if a given condition *)N(* value matches a list of condition values that you supply. H *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$match_cond (" match_condition_value : UNSIGNED;$ compare_condition_value : UNSIGNED;, $p3 : [LIST] UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$MOVC3 *)N(* *)N(* Move Characters *)N(* I *)N(* The Move Characters routine makes the VAX MOVC3 instruction available *)R(* as a callable routine. The source item is moved to the destination item. *)P(* Overlap of the source and destination items does not affect the result. *)N(* *) $[ASYNCHRONOUS] PROCEDURE lib$movc3 ( word_integer_length : $UWORD;; %REF source : [UNSAFE] ARRAY [$l2..J$u2:INTEGER] OF $UBYTE;T %REF destination : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE); EXTERNAL; N(* LIB$MOVC5 *)N(* *)N(* Move Characters with Fill *)N(* *)N(* The Move Characters with Fill routine makes the VAX MOVC5 instru Kction *)N(* available as a callable routine. The source item is moved to the *)P(* destination item. Overlap of the source and destination items does not *)N(* affect the result. *)N(* *) $[ASYNCHRONOUS] PROCEDURE lib$movc5 (% word_integer_source_length : $UWORD;; %REF source : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE; FILL : $BYTE;* word_integer_Ldestination_length : $UWORD;T %REF destination : [VOLATILE,UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE); EXTERNAL; N(* LIB$MOVTC *)N(* *)N(* Move Translated Characters *)N(* *)N(* The Move Translated Characters routine moves the source stri Mng, *)N(* character by character, to the destination string after translating *)N(* each character using the specified translation table. *)N(* LIB$MOVTC makes the VAX MOVTC instruction available as a callable *)N(* routine. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$movtc (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:NINTEGER] OF CHAR;D fill_character : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;G translation_table : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;j VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$MOVTUC *)N(* *)N(* Move Translated Until Character O *)N(* *)N(* The Move Translated Until Character routine moves the source string, *)Q(* character by character, to the destination string after translating each *)Q(* character using the specified translation table until the stop character *)O(* is encountered. LIB$MOVTUC makes the VAX MOVTUC instruction available *)N(* as a callable routine. *)N(* P *) $[ASYNCHRONOUS] FUNCTION lib$movtuc (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;D stop_character : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;G translation_table : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR;e fill_character : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEG QER; EXTERNAL; I(* LIB$MT_DENSITY_CONVERSION *);(* *)I(* Convert the DCL command line qualifiers specfied for *)I(* /DENSITY, /COMPACTION, /MEDIA_FORMAT=DENSITY= and *)I(* /MEDIA_FORMAT=COMPACTION to a OpenVMS density/compression *)I(* code (MT3DEF or MTDEF symbols) and return value indicating *)C(* the tape driver owning the device is MTD Renhanced or not. *);(* *) 3[ASYNCHRONOUS] FUNCTION lib$mt_density_conversion (" %IMMED device_channel : UNSIGNED;- VAR mt_density_symbol : [VOLATILE] UNSIGNED;D VAR mt3_enhanced_driver : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)7(* LIB$MT_DENSITY_VERIFICATION *)N(* S *)I(* Verify a OpenVMS density/compression code (MT3DEF or MTDEF *)J(* symbols) is indeed an acceptable density/compression code *)J(* for both MTD enhanced tape device drivers and non enhanced *)I(* tape device drivers. Also return a value indicating *)>(* the driver owning the device is MTD enhanced or not. *);(* *) 5[ASYNCHRONOUS] FUNCTION lib$mt_density_verification (" T %IMMED device_channel : UNSIGNED;% %IMMED mt_density_symbol : UNSIGNED;D VAR mt3_enhanced_driver : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; ;(* *);(* *)9(* LIB$MT_DENSITY_STRCVT *);(* *)I(* Copies the string equivalent of a OpenVMS density/compression *)I(* code into a user supplied buffe Ur. This works for both MT3DEF *)I(* symbols and MTDEF symbols. *);(* *);(* *) /[ASYNCHRONOUS] FUNCTION lib$mt_density_strcvt (% %IMMED mt_density_symbol : UNSIGNED;[ %REF out_string : [VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$MULTF_DELTA_TIME V *)N(* *)N(* Multiply Delta Time by an F_Floating Scalar *)N(* *)N(* The Multiply Delta Time by an F-Floating Scalar routine multiplies a *)N(* delta time by an F-floating scalar. *)N(* *) .[ASYNCHRONOUS] W FUNCTION lib$multf_delta_time ( multiplier : SINGLE;9 VAR delta_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$MULT_DELTA_TIME *)N(* *)N(* Multiply Delta Time by Scalar *)N(* *)N(* The Multiply Delta Time by Scalar routine multiplies a del Xta time by *)N(* a longword integer scalar. *)N(* *) -[ASYNCHRONOUS] FUNCTION lib$mult_delta_time ( multiplier : INTEGER;9 VAR delta_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$PARSE_ACCESS_CODE *)N(* *)N(* Parse Access Encoded Nam Ye String *)N(* *)N(* The Parse Access Encoded Name String routine parses and translates *)N(* a string of access names into a mask for a particular ownership *)N(* category. *)N(* *) /[ASYNCHRONOUS] FUNCTION lib$parse_access_code (C a Zccess_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;D %REF access_names : ARRAY [$l2..$u2:INTEGER] OF $UQUAD := %IMMED 0; ownership_category : $UWORD;% VAR access_mask : [VOLATILE] $UWORD;F VAR end_position : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$PARSE_SOGW_PROT *)N(* *)N(* Parse Protection String [ *)N(* *)N(* The Parse Protection String routine parses and translates *)N(* a protection string into a protection mask. *)N(* *) -[ASYNCHRONOUS] FUNCTION lib$parse_sogw_prot (G protection_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;D %REF access_names : ARRAY [$l2..$u2:INT \EGER] OF $UQUAD := %IMMED 0;) VAR protection_mask : [VOLATILE] $UWORD;( VAR ownership_mask : [VOLATILE] $UWORD;F VAR end_position : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$PAUSE *)N(* *)N(* Pause Program Execution *)N(* ] *)N(* The Pause Program Execution routine suspends program execution and *)N(* returns control to the calling command level. *)N(* *) 6[ASYNCHRONOUS] FUNCTION lib$pause : INTEGER; EXTERNAL; N(* LIB$POLYD *)N(* *)N(* Evaluate Polynomials ^ *)N(* *)N(* The Evaluate Polynomials routine (D-floating point values) allows *)N(* higher-level language users to evaluate D-floating point value *)N(* polynomials. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$polyd (% polynomial_argument _ : D_FLOAT$$TYPE; degree : $WORD;> %REF coefficient : ARRAY [$l3..$u3:INTEGER] OF D_FLOAT$$TYPE;K VAR floating_point_result : [VOLATILE] D_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* LIB$POLYF *)N(* *)N(* Evaluate Polynomials *)N(* *)N(* ` The Evaluate Polynomials routine (F-floating point values) allows *)N(* higher-level language users to evaluate F-floating point *)N(* polynomials. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$polyf ( polynomial_argument : SINGLE; degree : $WORD;7 %REF coefficient : ARRAY [$l3..$u3:INTEGER] OF SINGLE;D VAR floating_point_result : [VOLATILEa] SINGLE) : INTEGER; EXTERNAL; N(* LIB$POLYT *)N(* *)N(* Evaluate Polynomials *)N(* *)N(* The Evaluate Polynomials routine (T-floating point values) allows *)N(* higher-level language users to evaluate T-floating point value b *)N(* polynomials. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$polyt (% polynomial_argument : D_FLOAT$$TYPE; degree : $WORD;> %REF coefficient : ARRAY [$l3..$u3:INTEGER] OF D_FLOAT$$TYPE;K VAR floating_point_result : [VOLATILE] D_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* LIB$POLYG *)N(* c *)N(* Evaluate Polynomials *)N(* *)N(* The Evaluate Polynomials routine (G-floating point values) allows *)N(* higher-level language users to evaluate G-floating point value *)N(* polynomials. *)N(* d *) #[ASYNCHRONOUS] FUNCTION lib$polyg (% polynomial_argument : G_FLOAT$$TYPE; degree : $WORD;> %REF coefficient : ARRAY [$l3..$u3:INTEGER] OF G_FLOAT$$TYPE;K VAR floating_point_result : [VOLATILE] G_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* LIB$POLYH *)N(* *)N(* Evaluate Polynomials e *)N(* *)O(* On VAX VMS, the Evaluate Polynomials routine (H-floating point values) *)O(* allows higher-level language users to evaluate H-floating point value *)N(* polynomials. *)N(* *)N(* This routine is not available to native Alpha VMS programs, but is *)fN(* available to translated VAX images. *)N(* *)N(* This routine is not available to native Alpha VMS programs, but is *)Q(* recognized and handled appropriately by most Digital high-level language *)N(* compilers. *)N(* *) #[ASYNCHRONOUS] F gUNCTION lib$polyh (! polynomial_argument : QUADRUPLE; degree : $WORD;: %REF coefficient : ARRAY [$l3..$u3:INTEGER] OF QUADRUPLE;G VAR floating_point_result : [VOLATILE] QUADRUPLE) : INTEGER; EXTERNAL; N(* LIB$PUT_COMMON *)N(* *)N(* Put String to Common *)N(* h *)N(* The Put String to Common routine copies the contents of a string into *)N(* the common area. The common area is an area of storage which remains *)N(* defined across multiple image activations in a process. Optionally, *)N(* LIB$PUT_COMMON returns the actual number of characters copied. *)N(* The maximum number of characters that can be copied is 252. *)N(* *) i ([ASYNCHRONOUS] FUNCTION lib$put_common (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$PUT_OUTPUT *)N(* *)N(* Put Line to SYS$OUTPUT *)N(* j *)N(* The Put Line to SYS$OUTPUT routine writes a record to the current *)N(* controlling output device, specified by SYS$OUTPUT using the RMS $PUT *)N(* service. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$put_output (Y message_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$RADIX_POINT k *)N(* *)N(* Radix Point Symbol *)N(* *)P(* The Radix Point Symbol routine returns the system's radix point symbol. *)O(* This symbol is used inside a digit string to separate the integer part *)O(* from the fraction part. This routine works by l attempting to translate *)P(* the logical name SYS$RADIX_POINT as a process, group, or system logical *)N(* name. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$radix_point (U VAR radix_point_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$REMQHIm *)N(* *)N(* Remove Entry from Head of Queue *)N(* *)N(* The Remove Entry from Head of Queue routine removes an entry from the *)N(* head of the specified self-relative interlocked longword queue. *)N(* LIB$REMQHI makes the VAX REMQHI inst nruction available as *)N(* a callable routine. *)N(* *) $[ASYNCHRONOUS] FUNCTION lib$remqhi ( VAR header : [VOLATILE] $QUAD;) VAR remque_address : [VOLATILE] $DEFPTR;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$REMQHIQ *)N(* o *)N(* Remove Entry from Head of Queue (Quadword) *)N(* *)N(* The Remove Entry from Head of Queue routine removes an entry from the *)N(* head of the specified self-relative interlocked quadword queue. *)N(* LIB$REMQHIQ makes the Alpha unprivileged PALcode instruction REMQHIQ *)N(* available as a callable routine. p *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$remqhiq ( VAR header : [VOLATILE] $OCTA;5 VAR remque_address : [VOLATILE] lib$routines$$typ42;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$REMQTI *)N(* *)N(* Remove Entry from Tail of Queue q *)N(* *)N(* The Remove Entry from Tail of Queue routine removes an entry from the *)N(* tail of the specified self-relative interlocked longword queue. *)N(* LIB$REMQTI makes the VAX REMQTI instruction available as a *)N(* callable routine. *)N(* *) $ r[ASYNCHRONOUS] FUNCTION lib$remqti ( VAR header : [VOLATILE] $QUAD;) VAR remque_address : [VOLATILE] $DEFPTR;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$REMQTIQ *)N(* *)N(* Remove Entry from Tail of Queue (Quadword) *)N(* *)N(* sThe Remove Entry from Tail of Queue routine removes an entry from the *)N(* tail of the specified self-relative interlocked quadword queue. *)N(* LIB$REMQTIQ makes the Alpha unprivileged PALcode instruction REMQTIQ *)N(* available as a callable routine. *)N(* *) %[ASYNCHRONOUS] FUNCTION lib$remqtiq ( VAR header : [VOLATILE] $OCTA;5 VAR remque_address : [VOLATILE] l tib$routines$$typ43;9 retry_count : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$RENAME_FILE *)N(* *)N(* Rename One or More Files *)N(* *)N(* The Rename One or More Files routine changes the names of one or more *)N(* files. The spe ucification of the files to be renamed may include *)N(* wildcards. LIB$RENAME_FILE is similar in function to the DCL command *)N(* RENAME. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$rename_file (B old_filespec : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;B new_filespec : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;R default_filespec : [CvLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;R related_filespec : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; flags : UNSIGNED := %IMMED 0;M %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_success_procedure := %IMMED 0;K %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_error_procedure := %IMMED 0;M %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_confirm_procedure := %IMMED 0;7 %IMMED user_specified_argument : UNSIGNED := %IMMED 0;c VAR old_resultant_name : [CLASSw_S,VOLATILE] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0;c VAR new_resultant_name : [CLASS_S,VOLATILE] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0;N VAR file_scan_context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$RESERVE_EF *)N(* *)N(* Reserve Event Flag *)N(* x *)N(* The Reserve Event Flag routine allocates a local event flag number *)N(* specified by event-flag-number. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$reserve_ef (3 event_flag_number : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$RESET_VM_ZONE *)N(* y *)N(* Reset Virtual Memory Zone *)N(* *)N(* The Reset Virtual Memory Zone routine frees all blocks of memory that *)N(* were previously allocated from the zone. *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$reset_ zvm_zone () zone_id : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$RESET_VM_ZONE_64 *)N(* *)N(* Reset Virtual Memory Zone *)N(* *)N(* The Reset Virtual Memory Zone routine frees all blocks of memory that *)N(* were previously allocated from the zone. { *)N(* *) .[ASYNCHRONOUS] FUNCTION lib$reset_vm_zone_64 (' zone_id : $UQUAD) : INTEGER; EXTERNAL; N(* LIB$REVERT *)N(* *)N(* Revert to the Handler of the Routine Activator *)N(* | *)O(* The Revert to the Handler of the Routine Activator routine deletes the *)O(* condition handler established by LIB$ESTABLISH by clearing the address *)N(* pointing to the condition handler from the activated routine's stack *)N(* frame. *)N(* *)N(* ENTRY lib$revert ALIAS $lib_revert }*)N(* RETURNS ADDRESS NAMED RESULT TYPENAME address; *)N(* LIB$RUN_PROGRAM *)N(* *)N(* Run New Program *)N(* *)O(* The Run New Program routine causes the current program to stop running *)N(* and begins exe ~cution of another program. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$run_program (W program_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$SCANC *)N(* *)N(* Scan for Characters and Return Relative Position  *)N(* *)P(* The Scan for Characters and Return Relative Position routine is used to *)N(* find a specified set of characters in the source string. *)N(* LIB$SCANC makes the VAX SCANC instruction available as a *)N(* callable routine. *)N(* *) #[ASY NCHRONOUS] FUNCTION lib$scanc (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;7 %REF table_array : ARRAY [$l2..$u2:INTEGER] OF $UBYTE;1 byte_integer_mask : $UBYTE) : INTEGER; EXTERNAL; N(* LIB$SCOPY_DXDX *)N(* *)N(* Copy Source String Passed by Descriptor to Destination *)N(*  *)N(* The Copy Source String Passed by Descriptor to Destination routine *)N(* copies a source string passed by descriptor to a destination string. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$scopy_dxdx (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;j VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$SCOPY_R_DX *)N(* *)N(* Copy Source String Passed by Reference to Destination String *)N(* *)Q(* The Copy Source String Passed by Reference to Destination String routine *)N(* copies a source string passed by reference to a destination string. *)N(*  *) ([ASYNCHRONOUS] FUNCTION lib$scopy_r_dx (% word_integer_source_length : $UWORD;> %REF source_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;j VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$SCOPY_R_DX_64 *)N(* *)N(* Copy Source String Passed by Reference to Destination String *)N(* *)Q(* The Copy Source String Passed by Reference to Destination String routine *)N(* copies a source string passed by reference to a destination string. *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$scopy_r_dx_64 (% quad_integer_source_length : $UQUAD;> %REF source_string : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;j VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$SET_LOGICAL *)N(* *)N(* Set Logical Name *)N(* *)N(* The Set Logical Name routine requests the callin g process's Command *)N(* Language Interpreter (CLI) to define or redefine a supervisor-mode *)O(* process logical name. It provides the same function as the DCL DEFINE *)N(* command. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$set_logical (B logical_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;N value_string : [CLASS_S] PACKED ARRAY [$l 2..$u2:INTEGER] OF CHAR := %IMMED 0;G table : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;# attributes : UNSIGNED := %IMMED 0;_ %REF item_list : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SET_SYMBOL *)N(* *)N(* Set Value of CLI Symbol *)N(*  *)N(* The Set Value of CLI Symbol routine requests the calling process's *)O(* Command Language Interpreter (CLI) to define or redefine a CLI symbol. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$set_symbol (< symbol : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;B value_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;A table_type_indicator : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SFREE1_DD *)N(* *)N(* Free One Dynamic String *)N(* *)O(* The Free One Dynamic String routine returns the dynamically allocated *)N(* storage for a dynamic string.  *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$sfree1_dd (A VAR descriptor_address : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$SFREEN_DD *)N(* *)N(* Free One or More Dynamic Strings *)N(*  *)Q(* The Free One or More Dynamic Strings routine returns one or more dynamic *)N(* strings to free storage. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$sfreen_dd (" number_of_descriptors : UNSIGNED;b %REF first_descriptor_array : [VOLATILE] ARRAY [$l2..$u2:INTEGER] OF $UQUAD) : INTEGER; EXTERNAL; N(* LIB$SGET1_DD  *)N(* *)N(* Get One Dynamic String *)N(* *)O(* The Get One Dynamic String routine allocates dynamic virtual memory to *)N(* the string descriptor you specify. *)N(*  *) &[ASYNCHRONOUS] FUNCTION lib$sget1_dd ( word_integer_length : $UWORD;> VAR descriptor_part : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$SGET1_DD_64 *)N(* *)N(* Get One Dynamic String *)N(* *)O(* The Get One Dynami c String routine allocates dynamic virtual memory to *)N(* the string descriptor you specify. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$sget1_dd_64 ( quad_integer_length : $UQUAD;> VAR descriptor_part : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$SHOW_TIMER *)N(*  *)N(* Show Accumulated Times and Counts *)N(* *)O(* The Show Accumulated Times and Counts routine returns times and counts *)O(* accumulated since the last call to LIB$INIT_TIMER and displays them on *)N(* SYS$OUTPUT. (LIB$INIT_TIMER must be called prior to invoking this *)N(* routine.) A user-supplied action routine may change this default *)N(*  behavior. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$show_timer (& handle_address : $DEFPTR := %IMMED 0; code : INTEGER := %IMMED 0;L %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_action_procedure := %IMMED 0;H %IMMED user_argument_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SHOW_VM *)N(* *)N(* Show Virtual Memory Statistics *)N(* *)N(* The Show Virtual Memory Statistics routine returns the statistics *)N(* accumulated from calls to LIB$GET_VM, LIB$FREE_VM, LIB$GET_VM_PAGE, *)N(* and LIB$FREE_VM_PAGE. *)N(*  *) %[ASYNCHRONOUS] FUNCTION lib$show_vm ( code : INTEGER := %IMMED 0;L %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_action_procedure := %IMMED 0;L %IMMED user_specified_argument : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SHOW_VM_64 *)N(* *)N(* Show Virtual Memory Statistics  *)N(* *)N(* The Show Virtual Memory Statistics routine returns the statistics *)N(* accumulated from calls to LIB$GET_VM_64, LIB$FREE_VM_64, *)N(* LIB$GET_VM_PAGE_64, and LIB$FREE_VM_PAGE_64. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$show_vm_64 ( code : $QUAD := %IMMED 0;L %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_action_procedure := %IMMED 0;K %IMMED user_specified_argument : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SHOW_VM_ZONE *)N(* *)N(* Return Information About a Zone *)N(* *)R(* The Return Information Abo ut a Zone routine returns formatted information *)Q(* about the specified zone, detailing such information as the zone's name, *)N(* characteristics, and areas, and then passes the information to the *)N(* specified or default action routine. *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$show_vm_zone ( zone_id : UNSIGNED;$ detail_level : INTEGER := %IMMED 0;L %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_action_procedure := %IMMED 0;= %IMMED user_arg : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SHOW_VM_ZONE_64 *)N(* *)N(* Return Information About a Zone *)N(* *)R(* The Return Information About a Zone routine returns form atted information *)Q(* about the specified zone, detailing such information as the zone's name, *)N(* characteristics, and areas, and then passes the information to the *)N(* specified or default action routine. *)N(* *) -[ASYNCHRONOUS] FUNCTION lib$show_vm_zone_64 ( zone_id : $UQUAD;" detail_level : $QUAD := %IMMED 0;L %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_actio n_procedure := %IMMED 0;< %IMMED user_arg : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SIGNAL *)N(* *)N(* Signal Exception Condition *)N(* *)Q(* The Signal Exception Condition routine generates a signal that indicates *)Q(* that  an exception condition has occurred in your program. If a condition *)R(* handler does not take corrective action and the condition is severe, then *)N(* your program will exit. *)N(* *) %[ASYNCHRONOUS] PROCEDURE lib$signal (# %IMMED condition_value : UNSIGNED;2 %IMMED number_of_arguments : INTEGER := %IMMED 0;8 %IMMED FAO_argument : [LIST,UNSAFE] INTEGER); EXTERNA L; N(* LIB$SIG_TO_RET *)N(* *)N(* Signal Converted to a Return Status *)N(* *)N(* The Signal Converted to a Return Status routine converts any signaled *)R(* condition value to a value returned as a function. The signaled condition *)N(* is returned to the caller of the user routine that established the *)P(* handler that is calling LIB$SIG_TO_RET. This routine may be established *)N(* as or called from a condition handler. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$sig_to_ret (E %REF signal_arguments : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;] %REF mechanism_arguments : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEG ER; EXTERNAL; N(* LIB$SIG_TO_STOP *)N(* *)N(* Convert a Signaled Condition to a Signaled Stop *)N(* *)O(* The Convert a Signaled Condition to a Signaled Stop routine converts a *)N(* signaled condition to a signaled condition that cannot be continued. *)N(*  *) )[ASYNCHRONOUS] FUNCTION lib$sig_to_stop (N %REF signal_arguments : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;] %REF mechanism_arguments : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* LIB$SIM_TRAP *)N(* *)N(* Simulate Floating Trap  *)N(* *)P(* The Simulate Floating Trap routine converts floating faults to floating *)R(* traps. It can be enabled as a condition handler or can be called by one. *)N(* *)N(* This routine is not available to native Alpha VMS programs, but is *)N(* available to translated VAX images.  *)N(* *) &[ASYNCHRONOUS] FUNCTION lib$sim_trap (N %REF signal_arguments : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;] %REF mechanism_arguments : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* LIB$SKPC *)N(* *)N(* Skip Equal Characters *)N(* *)N(* The Skip Equal Characters routine compares each character of a given *)O(* string with a given character and returns the relative position of the *)N(* first nonequal character as an index. LIB$SKPC makes the VAX SKPC *)N(* instruction available as a callable routine. *)N(*  *) "[ASYNCHRONOUS] FUNCTION lib$skpc (F character_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$SPANC *)N(* *)N(* Skip Selected Characters *)N(*  *)P(* The Skip Selected Characters routine is used to skip a specified set of *)N(* characters in the source string. LIB$SPANC makes the VAX SPANC *)N(* instruction available as a callable routine. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$spanc (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;7 %REF table_array : ARRAY [$l2..$u2:INTEGER] OF $UBYTE;1 byte_integer_mask : $UBYTE) : INTEGER; EXTERNAL; N(* LIB$SPAWN *)N(* *)N(* Spawn Subprocess *)N(* *)O(* The Spawn Subprocess routine requests the command language interpreter *)N(* (CLI) of the calling process to spawn a subprocess for executing CLI *)R(* commands. LIB$SPAWN provides the same function as the DCL SPAWN command. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$spawn (P command_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;L input_file : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;M output_file : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %I MMED 0; flags : UNSIGNED := %IMMED 0;N process_name : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;2 VAR process_id : [VOLATILE] UNSIGNED := %IMMED 0;8 %IMMED completion_status_address : $DEFPTR := %IMMED 0;2 byte_integer_event_flag_num : $UBYTE := %IMMED 0;B %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST_address := %IMMED 0;< %IMMED varying_AST_argument : [UNSAFE] INTEGER := %IMMED 0;Q prompt_string : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0;G cli : [CLASS_S] PACKED ARRAY [$l12..$u12:INTEGER] OF CHAR := %IMMED 0;^ table : [CLASS_S] PACKED ARRAY [$l13..$u13:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$STAT_TIMER *)N(* *)N(* Statistics, Return Accumulated Times and Counts *)N(* *)N(* The Statistics, Return Accumulated Times and Counts routine returns *)N(* to its caller one of five available statistics accumulated since the *)O(* last call to LIB$INIT_TIMER. Unlike LIB$SHOW_TIMER, which formats the *)N(* values for output, LIB$STAT_TIMER returns the value as an unsigned *)N(* longword or quadword. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$stat_timer (  code : INTEGER;L %REF value_argument : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;; handle_address : $DEFPTR := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$STAT_VM *)N(* *)N(* Return Virtual Memory Statistics *)N(* *)O(* The Return Virtual Memory Statistics routine returns to its caller one *)N(* of six statistics available from calls to LIB$GET_VM/LIB$FREE_VM and *)N(* LIB$GET_VM_PAGE/LIB$FREE_VM_PAGE. Unlike LIB$SHOW_VM, which formats *)N(* the values for output and displays them on SYS$OUTPUT, LIB$STAT_VM *)O(* returns the statistic in the value-argument argument. Only one of the *)N(* statistics is returned by each call to LIB$STAT_VM. *)N(*  *) %[ASYNCHRONOUS] FUNCTION lib$stat_vm ( code : INTEGER;a %REF value_argument : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* LIB$STAT_VM_64 *)N(* *)N(* Return Virtual Memory Statistics *)N(*  *)R(* The Return Virtual Memory Statistics routine returns to its caller one of *)P(* six statistics available from calls to LIB$GET_VM_64/LIB$FREE_VM_64 and *)S(* LIB$GET_VM_PAGE_64/LIB$FREE_VM_PAGE_64. Unlike LIB$SHOW_VM, which formats *)N(* the values for output and displays them on SYS$OUTPUT, LIB$STAT_VM_64 *)O(* returns the statistic in the value-argument argument. Only one of the *)N(* statistics is returned by each call to LIB$STAT_VM_64. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$stat_vm_64 ( code : $QUAD;a %REF value_argument : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* LIB$STAT_VM_ZONE *)N(* *)N(* Return Information About a Zone *)N(*  *)N(* The Return Information About a Zone routine returns a single piece of *)N(* information about the specified zone. *)N(* *)N(* Edit: Routine LIB$STAT_VM_ZONE is not yet implemented. *)N(* *)N(* ENTRY lib$stat_vm_zone ALIAS $lib_stat_vm_zone PARAMETER ( *)N(* LONGWORD UNSIGNED NAMED zone_id IN *)N(* TYPENAME identifier REFERENCE, *)N(* LONGWORD NAMED item_code IN *)N(* TYPENAME longword_signed REFERENCE, *)N(* LONGWORD NAMED resultant_value OUT OPTIONAL *)N(* TYPENAME longword_signed REFERENCE,  *)N(* CHARACTER RTL_STR_DESC NAMED resultant_string OUT OPTIONAL *)N(* TYPENAME char_string, *)N(* WORD UNSIGNED NAMED resultant_length OUT OPTIONAL *)N(* TYPENAME word_unsigned REFERENCE ) *)N(* RETURNS LONGWORD UNSIGNED TYPENAME cond_value; *)N(* LIB$STOP *)N(*  *)N(* Stop Execution and Signal the Condition *)N(* *)O(* The Stop Execution and Signal the Condition routine generates a signal *)Q(* that indicates that an exception condition has occurred in your program. *)O(* Exception conditions signaled by LIB$STOP cannot be continued from the *)N(* point of the signal.  *)N(* *) #[ASYNCHRONOUS] PROCEDURE lib$stop (# %IMMED condition_value : UNSIGNED;2 %IMMED number_of_arguments : INTEGER := %IMMED 0;8 %IMMED FAO_argument : [LIST,UNSAFE] INTEGER); EXTERNAL; N(* LIB$SUBX *)N(* *)N(* Multiple-Precision  Binary Subtraction *)N(* *)O(* The Multiple-Precision Binary Subtraction routine performs subtraction *)N(* on signed two's complement integers of arbitrary length. *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$subx (B %REF minuend_array : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;E %REF subtrahend_array : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;N %REF difference_array : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;9 array_length : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SUB_TIMES *)N(* *)N(* Subtract Two Quadword Times *)N(*  *)N(* The Subtract Two Quadword Times routine subtracts two VMS *)N(* internal-time-format times. *)N(* *) '[ASYNCHRONOUS] FUNCTION lib$sub_times ( time1 : $UQUAD; time2 : $UQUAD;= VAR resultant_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$SYS_ASCTIM *)N(*  *)N(* Invoke $ASCTIM to Convert Binary Time to ASCII String *)N(* *)T(* The Invoke $ASCTIM to Convert Binary Time to ASCII String routine calls the *)V(* system service $ASCTIM to convert a binary date and time value, returning the *)N(* ASCII string using the semantics of the caller's string. *)N(*  *) ([ASYNCHRONOUS] FUNCTION lib$sys_asctim (6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;N VAR time_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; user_time : $UQUAD := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SYS_FAO *)N(* *)N(* Invoke $FAO System Service to Format Output *)N(* *)N(* The Invoke $FAO System Service to Format Output routine calls $FAO, *)O(* returning a string in the semantics you provide. If called with other *)N(* than a fixed-length string for output, the length of the resultant *)N(* string is limited to 256 bytes and truncation will occur. *)N(*  *) %[ASYNCHRONOUS] FUNCTION lib$sys_fao (F character_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;a %REF directive_argument : [LIST,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* LIB$SYS_FAOL *)N(*  *)N(* Invoke $FAOL System Service to Format Output *)N(* *)N(* The Invoke $FAOL System Service to Format Output routine calls the *)N(* system service routine $FAOL, returning the string in the semantics *)N(* you provide. If called with other than a fixed-length string for *)N(* output, the length of the resultant string is limited to 2 56 bytes *)N(* and truncation will occur. *)N(* *) &[ASYNCHRONOUS] FUNCTION lib$sys_faol (F character_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;< directive_argument_address : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$SYS_FAOL_64 *)N(* *)N(* Invoke $FAOL System Service to Format Output *)N(* *)N(* The Invoke $FAOL System Service to Format Output routine calls the *)N(* system service routine $FAOL, returning the string in the semantics *)N(* you provide. If called wi th other than a fixed-length string for *)N(* output, the length of the resultant string is limited to 256 bytes *)N(* and truncation will occur. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$sys_faol_64 (F character_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;: directive_argument_address : $UQUAD) : INTEGER; EXTERNAL; N(* LIB$SYS_GETMSG *)N(* *)N(* Invoke $GETMSG System Service to Get Message Text *)N(* *)N(* The Invoke $GETMSG System Service to Get Message Text routine calls *) N(* the System Service $GETMSG and returns a message string into *)N(* destination-string using the semantics of the caller's string. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$sys_getmsg ( message_id : UNSIGNED;4 VAR message_length : [VOLATILE] $UWORD := %IMMED 0;U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; flags : UNSIGNED := %IMMED 0;w %REF unsigned_resultant_array : [VOLATILE,UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$SYS_TRNLOG *)N(* *)N(* Invoke $TRNLOG System Service to Translate Logical Name *)N(* *)N(* The Invoke $TRNLOG System Service to Translate Logical Name routine *) N(* uses the system service $TRNLOG to translate a logical name. *)N(* LIB$SYS_TRNLOG returns the logical name's translation using the *)N(* semantics of the caller's string. *)N(* *) ([ASYNCHRONOUS] FUNCTION lib$sys_trnlog (B logical_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;> VAR word_integer_dest_length : [VOLATILE] $UWORD := %IMMED 0;U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;7 VAR byte_integer_table : [VOLATILE] $BYTE := %IMMED 0;1 VAR access_mode : [VOLATILE] $UBYTE := %IMMED 0;E byte_integer_disable_mask : $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$TPARSE/LIB$TABLE_PARSE *)N(* *)N(* Table-Driven Finite-State Parser *)N(* *)N(* The Table-Driven Finite State Parser routine is a general-purpose, *)N(* table-driven parser implemented as a finite-state automaton, with *)N(* extensions that make it suitable for a wide range of applications. *)N(* It parses a string and returns a message indicating whether or not *)N(* the input string is valid. *)N(*  *)N(* LIB$TPARSE performs this function on VAX VMS. *)N(* *)N(* LIB$TABLE_PARSE performs this function on Alpha VMS and is available *)P(* only on Alpha VMS. LIB$TPARSE is available in translated form on Alpha *)P(* VMS. LIB$TABLE_PARSE differs from LIB$TPARSE only in the way that user *)N(* specified action routines are called.  *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$table_parse (L %REF argument_block : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;@ %REF state_table : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;S %REF key_table : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* ENTRY lib$tparse ALIAS $lib_tparse PARAMETER ( *)N(* ANY NAMED argument_block IN OUT *)N(* TYPENAME any REFERENCE, *)N(* ANY NAMED state_table IN *)N(* TYPENAME any REFERENCE, *)N(* ANY NAMED key_table IN *)N(* TYPENAME any REFERENCE ) *)N(* RETURNS LONGWORD UNSIGNED TYPENAME cond_value;  *)N(* LIB$TRAVERSE_TREE *)N(* *)N(* Traverse a Balanced Binary Tree *)N(* *)N(* The Traverse a Balanced Binary Tree routine calls an action routine *)N(* for each node in a binary tree. *)N(*  *) +[ASYNCHRONOUS] FUNCTION lib$traverse_tree ( treehead : $DEFPTR;@ %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_action_procedure;g %REF user_data_address : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$TRAVERSE_TREE_64 *)N(* *)N(* Traverse a Bal anced Binary Tree *)N(* *)N(* The Traverse a Balanced Binary Tree routine calls an action routine *)N(* for each node in a binary tree. *)N(* *) .[ASYNCHRONOUS] FUNCTION lib$traverse_tree_64 ( treehead : lib$routines$$typ44;@ %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_action_procedure;g %REF user_data_address : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$TRA_ASC_EBC *)N(* *)N(* Translate ASCII to EBCDIC *)N(* *)N(* The Translate ASCII to EBCDIC routine transl ates an ASCII string *)N(* to an EBCDIC string. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$tra_asc_ebc (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;p VAR byte_integer_dest_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$TRA_EBC_ASC *)N(* *)N(* Translate EBCDIC to ASCII *)N(* *)N(* The Translate EBCDIC to ASCII routine translates an EBCDIC string *)N(* to an ASCII string. *)N(* *) )[ASYNCHRONOUS] FUNCTION lib$tra_ebc_asc (P byte_integer_source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;j VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$TRIM_FILESPEC *)N(* *)N(* Fit Long File Specification into Fixed Field *)N(*  *)N(* The Fit Long File Specification into Fixed Field routine takes a file *)N(* specification, such as an RMS resultant name string, and shortens it *)N(* (if necessary) so that it fits into a field of fixed width. *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$trim_filespec (B old_filespec : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;O VAR new_filespec : [CLASS_S,VOLATILE]  PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;) word_integer_width : $UWORD := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$TRIM_FULLNAME *)N(* *)N(* Trim a Full Name to Fit into a Desired Output Field *)N(* *)N(* The Trim a  Full Name to Fit into a Desired Output Field routine *)N(* trims a full name to fit into a desired output field. *)N(* *) +[ASYNCHRONOUS] FUNCTION lib$trim_fullname (> fullname : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;S VAR trimmed_nodename : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;# output_width : $UWORD := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* LIB$UID_TO_ASCII *)N(* *)N(* Convert a UID to Text *)N(* *)N(* The Convert a UID to Text routine converts a UID to *)N(* standard representation ina an ASCII text string.  *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$uid_to_ascii ( input_uid : $UOCTA;e VAR output_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* LIB$UNLOCK_IMAGE *)N(* *)N(* Unlock Image from working set *)N(* *)N(* Unlock all address ranges associated with a specified image *)N(* from the working set. *)N(* *) *[ASYNCHRONOUS] FUNCTION lib$unlock_image (! va : $QUAD) : INTEGER; EXTERNAL; N(* LIB$VERIFY_VM_ZONE *)N(*  *)N(* Verify a Zone *)N(* *)N(* The Verify a Zone routine performs verification of a zone. *)N(* *) ,[ASYNCHRONOUS] FUNCTION lib$verify_vm_zone () zone_id : UNSIGNED) : INTEGER; EXTERNAL; N(* LIB$VERIFY_VM_ZONE_64 *)N(* *)N(* Verify a Zone *)N(* *)N(* The Verify a Zone routine performs verification of a zone. *)N(* *) /[ASYNCHRONOUS] FUNCTION lib$verify_vm_zone_6 4 (' zone_id : $UQUAD) : INTEGER; EXTERNAL; N(* LIB$WAIT *)N(* *)N(* Wait a Specified Period of Time *)N(* *)O(* The Wait a Specified Period of Time routine places the current process *)N(* into hibernation for the number of seconds spe cified in its argument. *)N(* *) "[ASYNCHRONOUS] FUNCTION lib$wait ( seconds : SINGLE; flags : UNSIGNED := %IMMED 0;8 float_type : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) END.wwPLf][PEN_CHECKING_STYLE(NONE),INHERIT('SYS$LIBRARY:PASCAL$D_FLOAT','SYS$LIBRARY:PASCAL$G_FLOAT')]&MODULE PASCAL$LIB_ROUTINES_IEEE_FLOAT;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{  }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty.  }P{ }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE PASLIB_IEEEFLT$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(*  L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7;  *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607;  *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0. .1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) ((*** MODULE PASLIB_IEEEFLT$ROUTINES ***) P(**************************************************************************** *)(* * *)B(* COPYRIGHT (c) 1992, 1994, 1995, 1996, 1997, 2003 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RES ERVED. * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)P(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(*  * *)P(* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* LIB$CVTS_FROM_INTERNAL_TIME *)N(* *)N(* Convert Internal Time to External Time (S-Floating Point Value) *)N(* *)N(* The Convert Internal Time to External Time (S-Floating Point Value) *)N(* routine converts a delta internal VMS system time into an external *)N(* S-floating time.  *)N(* *) 5[ASYNCHRONOUS] FUNCTION lib$cvts_from_internal_time ( operation : UNSIGNED;( VAR resultant_time : [VOLATILE] SINGLE;* input_time : $UQUAD) : INTEGER; EXTERNAL; N(* LIB$CVTS_TO_INTERNAL_TIME *)N(* *)N(* Convert External Time to Internal Time (S-Floating Point Value) *)N(* *)N(* The Convert External Time to Internal Time (S-Floating Point Value) *)N(* routine converts an external time interval into a VMS internal format *)N(* S-floating delta time. *)N(* *)N(*  *) 3[ASYNCHRONOUS] FUNCTION lib$cvts_to_internal_time ( operation : UNSIGNED; input_time : SINGLE;= VAR resultant_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$EMODS *)N(* *)N(* Extended Multiply and Integerize Routines for S-Floating Point Values *)N(*  *)O(* The Extended Multiply and Integerize routine (S-Floating Point Values) *)O(* allows higher-level language users to perform accurate range reduction *)N(* of S-floating arguments. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$emods ($ floating_point_multiplier : SINGLE; multiplier_extension : $UBYTE;& floating_point_multiplicand : SINGLE;* VAR integer_portion  : [VOLATILE] INTEGER;A VAR fractional_portion : [VOLATILE] SINGLE) : INTEGER; EXTERNAL; N(* LIB$MULTS_DELTA_TIME *)N(* *)N(* Multiply Delta Time by an S_Floating Scalar *)N(* *)N(* The Multiply Delta Time by an S-Floating Scalar routine multiplies a *)N(* delt a time by an S-floating scalar. *)N(* *) .[ASYNCHRONOUS] FUNCTION lib$mults_delta_time ( multiplier : SINGLE;9 VAR delta_time : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; N(* LIB$POLYS *)N(* *)N(* Evaluate Polynomials  *)N(* *)N(* The Evaluate Polynomials routine (S-floating point values) allows *)N(* higher-level language users to evaluate S-floating point *)N(* polynomials. *)N(* *) #[ASYNCHRONOUS] FUNCTION lib$polys ( polynomial_argument : SINGLE; degree : $WORD;7 %REF coefficient : ARRAY [$l3..$u3:INTEGER] OF SINGLE;D VAR floating_point_result : [VOLATILE] SINGLE) : INTEGER; EXTERNAL; N(* END. *) END.ww]g7[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$MAIL_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE MAIL$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2 147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) ((*** MODULE MAIL$ROUTINES IDENT X-1 ***) N(* *)N(* *)N(* This package defines the interfaces to the callable OpenVMS MAIL *)N(* routines as documented in the OpenVMS Utility Routines Reference *)N(* Manual.  *)N(* *)N(* *)N(* Mail File routines *)N(* *)N(* *)N(* MAILFILE_BEGIN - Initiates mail file processing *)N(* *)N(* status = MAIL$MAILFILE_BEGIN (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list  *)N(* *) -[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_BEGIN (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MAILFILE_CLOSE - Closes the currently open mail file *)N(*  *)N(* status = MAIL$MAILFILE_CLOSE (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(*  *) -[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_CLOSE (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MAILFILE_COMPRESS - Compresses a mail file *)N(*  *)N(* status = MAIL$MAILFILE_COMPRESS (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(*  *) 0[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_COMPRESS (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MAILFILE_END - Terminates mail file processing *)N(* *)N(* status = MAIL$MAILFILE_END (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) +[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_END (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MAILFILE_INFO_FILE - Obtains information about a specified mail file *)N(* *)N(* status = MAIL$MAILFILE_INFO_FILE (context , in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) 1[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_INFO_FILE (# VAR CONTEXT :  [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MAILFILE_MODIFY - Modifies the information in an indexed mail file *)N(* *)N(* status = MAIL$MAILFILE_MODIFY (context, in_item_list, out_item_list) *)N (* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) .[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_MODIFY (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LI ST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MAILFILE_OPEN - Opens a specified mail file for processing *)N(* *)N(* status = MAIL$MAILFILE_OPEN (context, in_item_list, out_item_list) *)N(*  *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) ,[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_OPEN (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MAILFILE_PURGE_WASTE - Purges the wastebasket of a mail file *)N(* *)O(* status = MAIL$MAILFILE_PURGE_WASTE (context, in_item_list, out_item_list) *)N(* *)N (* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) 3[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_PURGE_WASTE (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* Message routines *)N(* *)N(* *)N(* MESSAGE_BEGIN - Begin message processing *)N(*  *)N(* status = MAIL$MESSAGE_BEGIN (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(*  *) ,[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_BEGIN (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MESSAGE_COPY - Copies messages between files or folders *)N(* *)N(* status = MAIL$MESSAGE_COPY (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) +[ASYNCHRONOUS] FUN CTION MAIL$MESSAGE_COPY (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MESSAGE_DELETE - Deletes a message *)N(* *)N(* status = MAIL$MESSAGE_DELETE (conte xt, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) -[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_DELETE (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MESSAGE_END - Ends message processing *)N(* *)N(* status = MAIL$MESSAGE_END (context, in_item_list, out_item_list) *) N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) *[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_END (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MESSAGE_GET - Retrieves a message from the set of selected messages *)N(* *)N(* status = MAIL$MESSAGE_GET (context, in_item_list, out_item_list) *)N(*  *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) *[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_GET (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBY TE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MESSAGE_INFO - Obtains information about a specified message *)N(* *)N(* status = MAIL$MESSAGE_INFO (context, in_item_list, out_item_list) *)N(* *)N(* co ntext - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) +[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_INFO (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* MESSAGE_MODIFY = Modifies message information *)N(* *)N(* status = MAIL$MESSAGE_MODIFY (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value  *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) -[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_MODIFY (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER ; EXTERNAL; N(* *)N(* MESSAGE_SELECT - Selects messages from the current mail file *)N(* *)N(* status = MAIL$MESSAGE_SELECT (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_i tem_list - Input item list *)N(* out_item_list - Output item list *)N(* *) -[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_SELECT (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(*   *)N(* Send routines *)N(* *)N(* *)N(* SEND_ABORT - Cancels a current send operation *)N(* *)N(* status = MAIL$SEND_ABORT (context, in_item_li !st, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) )[ASYNCHRONOUS] FUNCTION MAIL$SEND_ABORT (# VAR CONTEXT : [VOLATILE] "UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* SEND_ADD_ADDRESS - Adds an address to the address list *)N(* *)N(* status = MAIL$SEND_ADD_ADDRESS (context, in_item_list, out_item_list) *)N(* # *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) /[ASYNCHRONOUS] FUNCTION MAIL$SEND_ADD_ADDRESS (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSA$FE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* SEND_ADD_ATTRIBUTE - Adds an attribute to the current message *)N(* *)N(* status = MAIL$SEND_ADD_ATTRIBUTE (context, in_item_list, out_item_list) *)N(* % *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) 1[ASYNCHRONOUS] FUNCTION MAIL$SEND_ADD_ATTRIBUTE (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBY &TE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* SEND_BEGIN - Initiates processing to send a message *)N(* *)N(* status = MAIL$SEND_BEGIN (context, in_item_list, out_item_list) *)N(* *)N(* co 'ntext - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) )[ASYNCHRONOUS] FUNCTION MAIL$SEND_BEGIN (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [($l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* SEND_ADD_BODYPART - Builds the body of a message *)N(* *)N(* status = MAIL$SEND_ADD_BODYPART (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value ) *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) 0[ASYNCHRONOUS] FUNCTION MAIL$SEND_ADD_BODYPART (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER *; EXTERNAL; N(* *)N(* SEND_END - Terminates send processing *)N(* *)N(* status = MAIL$SEND_END (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_i +tem_list - Input item list *)N(* out_item_list - Output item list *)N(* *) '[ASYNCHRONOUS] FUNCTION MAIL$SEND_END (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* , *)N(* SEND_MESSAGE - Begins actual sending of a message *)N(* *)N(* status = MAIL$SEND_MESSAGE (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input item list - *)N(* out_item_list - Output item list *)N(* *) +[ASYNCHRONOUS] FUNCTION MAIL$SEND_MESSAGE (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* . *)N(* User data base routines *)N(* *)N(* *)N(* USER_BEGIN - Initiates access to the common user data base *)N(* *)N(* status = MAIL$USER_BEGIN (context, in_item_list, out_item_list) *)N(* / *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) )[ASYNCHRONOUS] FUNCTION MAIL$USER_BEGIN (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY 0[$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* USER_DELETE_INFO - Remove a user record from the common data base *)N(* *)N(* status = MAIL$USER_DELETE_INFO (context, in_item_list, out_item_list) *)N(* 1 *)N(* context - Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) /[ASYNCHRONOUS] FUNCTION MAIL$USER_DELETE_INFO (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF 2OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* USER_END - terminates access to the common user data base *)N(* *)N(* status = MAIL$USER_END (context, in_item_list, out_item_list) *)N(* *)N(* context 3- Context value *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) '[ASYNCHRONOUS] FUNCTION MAIL$USER_END (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEG4ER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* USER_GET_INFO - Obtains information about a user *)N(* *)N(* status = MAIL$USER_GET_INFO (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value 5 *)N(* in_item_list - Input item list *)N(* out_item_list - Output item list *)N(* *) ,[ASYNCHRONOUS] FUNCTION MAIL$USER_GET_INFO (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N6(* *)N(* USER_SET_INFO - Adds or modifies information about a user *)N(* *)N(* status = MAIL$USER_SET_INFO (context, in_item_list, out_item_list) *)N(* *)N(* context - Context value *)N(* in_item_list - Input 7item list *)N(* out_item_list - Output item list *)N(* *) ,[ASYNCHRONOUS] FUNCTION MAIL$USER_SET_INFO (# VAR CONTEXT : [VOLATILE] UNSIGNED;A %REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* END.  *) END.ww9Qh][PEN_CHECKING_STYLE(NONE),INHERIT('SYS$LIBRARY:PASCAL$D_FLOAT','SYS$LIBRARY:PASCAL$G_FLOAT')]MODULE PASCAL$MTH_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ : }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries sha;ll be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. < }P{ }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,=L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BI>T11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $?BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE MTH$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data@ types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; A *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,BL3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; C *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; D *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(E17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; F *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..107374182 G3; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE mth$routines ***) P(**************************************************************************** *)(* * *)4(* COPYRIGHT (c) 1988 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(* H * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN I THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* MTH$ACOS J *)N(* *)N(* Arc Cosine of Angle Expressed in Radians *)N(* *)S(* Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians *)N(* routine returns that angle *)N(* (in radians). K *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$acos (% cosine : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DACOS *)N(* *)N(* Arc Cosine of Angle Expressed in Radians *)N(* L *)S(* Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians *)N(* routine returns that angle *)N(* (in radians). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dacos (3 cosine : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GACOS M *)N(* *)N(* Arc Cosine of Angle Expressed in Radians *)N(* *)S(* Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians *)N(* routine returns that angle *)N(* (in radians). *)N(* N *) #[ASYNCHRONOUS] FUNCTION mth$gacos (3 cosine : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ACOSD *)N(* *)N(* Arc Cosine of Angle Expressed in Degrees *)N(* *)S(* Given the Ocosine of an angle, the Arc Cosine of Angle Expressed in Degrees *)N(* routine returns that *)N(* angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$acosd (% cosine : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DACOSD *)N(* P *)N(* Arc Cosine of Angle Expressed in Degrees *)N(* *)S(* Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees *)N(* routine returns that *)N(* angle (in degrees). *)N(* Q *) $[ASYNCHRONOUS] FUNCTION mth$dacosd (3 cosine : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GACOSD *)N(* *)N(* Arc Cosine of Angle Expressed in Degrees *)N(* *)S(* Given the cosine of an angle, the Arc Cosine of An Rgle Expressed in Degrees *)N(* routine returns that *)N(* angle (in degrees). *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gacosd (3 cosine : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ASIN *)N(* S *)N(* Arc Sine in Radians *)N(* *)N(* Given the sine of an angle, the Arc Sine in Radians *)N(* routine returns that angle *)N(* (in radians). *)N(* *) T"[ASYNCHRONOUS] FUNCTION mth$asin (# sine : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DASIN *)N(* *)N(* Arc Sine in Radians *)N(* *)N(* Given the sine of an angle, the Arc Sine in Radians *)N(* routine returns that U angle *)N(* (in radians). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dasin (1 sine : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GASIN *)N(* *)N(* Arc Sine in Radians V *)N(* *)N(* Given the sine of an angle, the Arc Sine in Radians *)N(* routine returns that angle *)N(* (in radians). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gasin (1 sine : G_FLOAT$$TWYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ASIND *)N(* *)N(* Arc Sine in Degrees *)N(* *)N(* Given the sine of an angle, the Arc Sine in Degrees *)N(* routine returns that angle X *)N(* (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$asind (# sine : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DASIND *)N(* *)N(* Arc Sine in Degrees *)N(* Y *)N(* Given the sine of an angle, the Arc Sine in Degrees *)N(* routine returns that angle *)N(* (in degrees). *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$dasind (1 sine : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GASIND Z *)N(* *)N(* Arc Sine in Degrees *)N(* *)N(* Given the sine of an angle, the Arc Sine in Degrees *)N(* routine returns that angle *)N(* (in degrees). [ *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gasind (1 sine : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ATAN *)N(* *)N(* Arc Tangent in Radians *)N(* \ *)N(* Given the tangent of an angle, the Arc Tangent in Radians *)N(* routine returns that angle (in radians). *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$atan (& tangent : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DATAN *)N(* ] *)N(* Arc Tangent in Radians *)N(* *)N(* Given the tangent of an angle, the Arc Tangent in Radians *)N(* routine returns that angle (in radians). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$datan (4 tangent : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N^(* MTH$GATAN *)N(* *)N(* Arc Tangent in Radians *)N(* *)N(* Given the tangent of an angle, the Arc Tangent in Radians *)N(* routine returns that angle (in radians). *)N(* _ *) #[ASYNCHRONOUS] FUNCTION mth$gatan (4 tangent : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ATAN2 *)N(* *)N(* Arc Tangent in Radians with Two Arguments *)N(* *)N(* Given cosine and cosine, t `he Arc Tangent in *)N(* Radians with Two Arguments *)N(* routine returns the angle (in radians) *)N(* whose tangent is given by the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$atan2 ( sine : SINGLE;a% cosine : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DATAN2 *)N(* *)N(* Arc Tangent in Radians with Two Arguments *)N(* *)N(* Given cosine and cosine, the Arc Tangent in *)N(* Radians with Two Arguments b *)N(* routine returns the angle (in radians) *)N(* whose tangent is given by the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$datan2 ( sine : D_FLOAT$$TYPE;3 cosine : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GATAN2 c *)N(* *)N(* Arc Tangent in Radians with Two Arguments *)N(* *)N(* Given cosine and cosine, the Arc Tangent in *)N(* Radians with Two Arguments *)N(* routine returns the angle (in radians) d *)N(* whose tangent is given by the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gatan2 ( sine : G_FLOAT$$TYPE;3 cosine : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ATAND *)N(* e *)N(* Arc Tangent in Degrees *)N(* *)N(* Given the tangent of an angle, the Arc Tangent in Degrees *)N(* routine returns that angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$atand (& tangent : SINGLE) : SINGLE; EXTER fNAL; N(* MTH$DATAND *)N(* *)N(* Arc Tangent in Degrees *)N(* *)N(* Given the tangent of an angle, the Arc Tangent in Degrees *)N(* routine returns that angle (in degrees). *)N(* g *) $[ASYNCHRONOUS] FUNCTION mth$datand (4 tangent : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GATAND *)N(* *)N(* Arc Tangent in Degrees *)N(* *)N(* Given the tangen ht of an angle, the Arc Tangent in Degrees *)N(* routine returns that angle (in degrees). *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gatand (4 tangent : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ATANH *)N(* *)N(* Hyperbolic Arc Tangent i *)N(* *)N(* Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent *)N(* routine returns *)N(* the hyperbolic arc tangent of that angle. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$atanh (1 hyperbolic_jtangent : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DATANH *)N(* *)N(* Hyperbolic Arc Tangent *)N(* *)N(* Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent *)N(* routine returns k *)N(* the hyperbolic arc tangent of that angle. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$datanh (? hyperbolic_tangent : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GATANH *)N(* *)N(* Hyperbolic Arc Tangent l *)N(* *)N(* Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent *)N(* routine returns *)N(* the hyperbolic arc tangent of that angle. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gatanh (? hyperbolic_tangent : G_FLOAT$$TYPE) : Gm_FLOAT$$TYPE; EXTERNAL; N(* MTH$ATAND2 *)N(* *)N(* Arc Tangent in Degrees with Two Arguments *)N(* *)N(* Given cosine and cosine, the Arc Tangent in *)N(* Degrees with Two Arguments n*)N(* routine returns *)N(* the angle (in degrees) whose tangent *)N(* is given by the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$atand2 ( sine : SINGLE;% cosine : SINGLE) : SINGLE; EXTERNAL; oN(* MTH$DATAND2 *)N(* *)N(* Arc Tangent in Degrees with Two Arguments *)N(* *)N(* Given cosine and cosine, the Arc Tangent in *)N(* Degrees with Two Arguments *)N(* routine returns p *)N(* the angle (in degrees) whose tangent *)N(* is given by the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) %[ASYNCHRONOUS] FUNCTION mth$datand2 ( sine : D_FLOAT$$TYPE;3 cosine : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* q MTH$GATAND2 *)N(* *)N(* Arc Tangent in Degrees with Two Arguments *)N(* *)N(* Given cosine and cosine, the Arc Tangent in *)N(* Degrees with Two Arguments *)N(* routine returns r *)N(* the angle (in degrees) whose tangent *)N(* is given by the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) %[ASYNCHRONOUS] FUNCTION mth$gatand2 ( sine : G_FLOAT$$TYPE;3 cosine : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$sCABS *)N(* *)N(* Complex Absolute Value *)N(* *)N(* The Complex Absolute Value routine *)N(* returns the absolute value of a complex number (r,i). *)N(* t *) "[ASYNCHRONOUS] FUNCTION mth$cabs (- complex_number : $UQUAD) : SINGLE; EXTERNAL; N(* MTH$CDABS *)N(* *)N(* Complex Absolute Value *)N(* *)N(* The Complex Absolute Value routine u *)N(* returns the absolute value of a complex number (r,i). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$cdabs (4 complex_number : $UOCTA) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$CGABS *)N(* *)N(* Complex Absolute Value v *)N(* *)N(* The Complex Absolute Value routine *)N(* returns the absolute value of a complex number (r,i). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$cgabs (4 complex_number : $UOCTA) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$CCOS w *)N(* *)N(* Cosine of a Complex Number (F-floating Value) *)N(* *)N(* The Cosine of a Complex Number (F-floating Value) *)N(* routine returns the cosine of a complex number as an *)N(* F-floating value. *)N(* x *) "[ASYNCHRONOUS] FUNCTION mth$ccos (- complex_number : $UQUAD) : $UQUAD; EXTERNAL; N(* MTH$CEXP *)N(* *)N(* Complex Exponential (F-floating Value) *)N(* *)N(* The Complex Expo ynential (F-floating Value) *)N(* routine returns the complex exponential of a *)N(* complex number as an F-floating value. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$cexp (- complex_number : $UQUAD) : $UQUAD; EXTERNAL; N(* MTH$CLOG *)N(* z *)N(* Complex Natural Logarithm (F-floating Value) *)N(* *)N(* The Complex Natural Logarithm (F-floating Value) *)N(* routine returns the complex natural logarithm of a complex number as *)N(* an F-floating value. *)N(* { *) "[ASYNCHRONOUS] FUNCTION mth$clog (- complex_number : $UQUAD) : $UQUAD; EXTERNAL; N(* MTH$CMPLX *)N(* *)N(* Complex Number Made from F-floating-Point *)N(* *)N(* The Complex Number Made from F-floating-Point |*)P(* routine returns a complex number from two floating-point input values. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$cmplx ( real_part : SINGLE;- imaginary_part : SINGLE) : $UQUAD; EXTERNAL; N(* MTH$DCMPLX *)N(* *)N(* Complex Number Made from D- or G-floating-Point } *)N(* *)N(* The Complex Number Made from *)N(* D- or G-floating-Point *)R(* routine returns a complex number from two D- or G-floating input values. *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$dcmplx ( VAR complx : [VOLATILE] $UOCTA; real_pa ~rt : D_FLOAT$$TYPE;+ imaginary_part : D_FLOAT$$TYPE); EXTERNAL; N(* MTH$GCMPLX *)N(* *)N(* Complex Number Made from D- or G-floating-Point *)N(* *)N(* The Complex Number Made from *)N(* D- or G-floating-Point  *)R(* routine returns a complex number from two D- or G-floating input values. *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$gcmplx ( VAR complx : [VOLATILE] $UOCTA; real_part : G_FLOAT$$TYPE;+ imaginary_part : G_FLOAT$$TYPE); EXTERNAL; N(* MTH$CONJG *)N(*  *)N(* Conjugate of a Complex Number (F-floating Value) *)N(* *)N(* The Conjugate of a Complex Number (F-floating *)N(* Value) *)N(* routine returns the complex conjugate (r,-i) of a complex number *)N(* (r,i) as an F-floating value. *)N(*  *) #[ASYNCHRONOUS] FUNCTION mth$conjg (- complex_number : $UQUAD) : $UQUAD; EXTERNAL; N(* MTH$DCONJG *)N(* *)N(* Conjugate of a Complex Number *)N(* *)N(* The Conjug ate of a Complex Number *)Q(* routine returns the complex conjugate (r,-i) of a complex number (r,i). *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$dconjg (+ VAR complex_conjugate : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$GCONJG *)N(*  *)N(* Conjugate of a Complex Number *)N(* *)N(* The Conjugate of a Complex Number *)Q(* routine returns the complex conjugate (r,-i) of a complex number (r,i). *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$gconjg (+ VAR complex_conjugate : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$COS *)N(* *)N(* Cosine of Angle Expressed in Radians *)N(* *)N(* The Cosine of Angle Expressed in Radians *)N(* routine returns the cosine of a given angle (in radians) . *)N(* *) ![ASYNCHRONOUS] FUNCTION mth$cos (/ angle_in_radians : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DCOS *)N(* *)N(* Cosine of Angle Expressed in Radians *)N(*  *)N(* The Cosine of Angle Expressed in Radians *)N(* routine returns the cosine of a given angle (in radians). *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dcos (= angle_in_radians : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GCOS *)N(*  *)N(* Cosine of Angle Expressed in Radians *)N(* *)N(* The Cosine of Angle Expressed in Radians *)N(* routine returns the cosine of a given angle (in radians). *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$gcos (= angle_in_radians : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERN AL; N(* MTH$COSD *)N(* *)N(* Cosine of Angle Expressed in Degrees *)N(* *)N(* The Cosine of Angle Expressed in Degrees *)N(* routine returns the cosine of a given angle (in degrees). *)N(*  *) "[ASYNCHRONOUS] FUNCTION mth$cosd (/ angle_in_degrees : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DCOSD *)N(* *)N(* Cosine of Angle Expressed in Degrees *)N(* *)N(* The Cosine of Angle Ex pressed in Degrees *)N(* routine returns the cosine of a given angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dcosd (= angle_in_degrees : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GCOSD *)N(* *)N(* Cosine of Angle Ex pressed in Degrees *)N(* *)N(* The Cosine of Angle Expressed in Degrees *)N(* routine returns the cosine of a given angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gcosd (= angle_in_degrees : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$COSH  *)N(* *)N(* Hyperbolic Cosine *)N(* *)N(* The Hyperbolic Cosine *)N(* routine returns the hyperbolic cosine of *)N(* the input value.  *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$cosh (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DCOSH *)N(* *)N(* Hyperbolic Cosine *)N(*  *)N(* The Hyperbolic Cosine *)N(* routine returns the hyperbolic cosine of *)N(* the input value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dcosh (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GCOSH  *)N(* *)N(* Hyperbolic Cosine *)N(* *)N(* The Hyperbolic Cosine *)N(* routine returns the hyperbolic cosine of *)N(* the input value.  *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gcosh (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$CSIN *)N(* *)N(* Sine of Complex Number (F-floating Value) *)N(*  *)N(* The Sine of Complex Number (F-floating *)N(* Value) *)N(* routine returns the sine of a complex number (r,i) as an *)N(* F-floating value. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$csin (- complex_number : $UQUAD) : $UQU AD; EXTERNAL; N(* MTH$CSQRT *)N(* *)N(* Complex Square Root (F-floating Value) *)N(* *)N(* The Complex Square Root (F-floating Value) routine *)N(* returns the complex square root of a complex number (r,i). *)N(*  *) #[ASYNCHRONOUS] FUNCTION mth$csqrt (- complex_number : $UQUAD) : $UQUAD; EXTERNAL; N(* MTH$CVT_D_G *)N(* *)N(* Convert One Double-Precision Value *)N(* *)N(* The Convert One Double-Precision Value routines *)N(* convert one double-precision value to the *)N(* destination data type and return the result as a function value. *)N(* MTH$CVT_D_G converts a D_floating value to G_floating and *)N(* MTH$CVT_G_D converts a G_floating value to a D_floating value. *)N(* *) %[ASYNCHRONOUS] FUNCTION mth$cvt_d_g (E floating_point_input_val : D_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$CVT_G_D *)N(* *)N(* Convert One Double-Precision Value *)N(* *)N(* The Convert One Double-Precision Value routines *)N(* convert one double-preci sion value to the *)N(* destination data type and return the result as a function value. *)N(* MTH$CVT_D_G converts a D_floating value to G_floating and *)N(* MTH$CVT_G_D converts a G_floating value to a D_floating value. *)N(* *) %[ASYNCHRONOUS] FUNCTION mth$cvt_g_d (E floating_point_input_val : G_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$CVT_DA_GA *)N(* *)N(* Convert an Array of Double-Precision Values *)N(* *)N(* The Convert an Array of *)N(* Double-Precision Values *)N(* routines convert a contiguous array of *)T(* double-precision values to the destination data type and return the results *)P(* as an array. MTH$CVT_DA_GA converts D_floating values to G_floating and *)N(* MTH$CVT_GA_DA converts G_floating values to D_floating. *)N(* *) ([ASYNCHRONOUS] PROCEDURE mth$cvt_da_ga (M %REF floating_point_input_array : ARRAY [$l1..$u1:INTEGER] OF D_FLOAT$$TYPE;W %REF floating_point_dest_array : [VOLATILE] ARRAY [$l2..$u2:INTEGER] OF G_FLOAT$$TYPE;- array_size : INTEGER := %IMMED 0); EXTERNAL; N(* MTH$CVT_GA_DA *)N(* *)N(* Convert an Array of Double-Precision Values *)N(* *)N(* The Convert an Array of  *)N(* Double-Precision Values *)N(* routines convert a contiguous array of *)T(* double-precision values to the destination data type and return the results *)P(* as an array. MTH$CVT_DA_GA converts D_floating values to G_floating and *)N(* MTH$CVT_GA_DA converts G_floating values to D_floating. *)N(* *) ([ASYNCHRONOUS] PROCEDURE mth$cvt_ga_da (M %REF floating_point_input_array : ARRAY [$l1..$u1:INTEGER] OF G_FLOAT$$TYPE;W %REF floating_point_dest_array : [VOLATILE] ARRAY [$l2..$u2:INTEGER] OF D_FLOAT$$TYPE;- array_size : INTEGER := %IMMED 0); EXTERNAL; N(* MTH$CDCOS *)N(* *)N(* Cosine of a Complex Number  *)N(* *)N(* The Cosine of a Complex Number *)N(* routine returns the cosine of a complex number. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$cdcos (( VAR complex_cosine : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CGCOS  *)N(* *)N(* Cosine of a Complex Number *)N(* *)N(* The Cosine of a Complex Number *)N(* routine returns the cosine of a complex number. *)N(* *)  $[ASYNCHRONOUS] PROCEDURE mth$cgcos (( VAR complex_cosine : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CDEXP *)N(* *)N(* Complex Exponential *)N(* *)N(* The Complex Exponential  *)N(* routine returns the complex exponential of a *)N(* complex number. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$cdexp (* VAR complex_exponent : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CGEXP *)N(*  *)N(* Complex Exponential *)N(* *)N(* The Complex Exponential *)N(* routine returns the complex exponential of a *)N(* complex number. *)N(*  *) $[ASYNCHRONOUS] PROCEDURE mth$cgexp (* VAR complex_exponent : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CDLOG *)N(* *)N(* Complex Natural Logarithm *)N(* *)N(* The Complex Natural Logarithm  *)N(* routine returns the complex natural logarithm of a complex number. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$cdlog (- VAR complex_natural_log : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CGLOG *)N(* *)N(* Complex Na tural Logarithm *)N(* *)N(* The Complex Natural Logarithm *)N(* routine returns the complex natural logarithm of a complex number. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$cglog (- VAR complex_natural_log : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTER NAL; N(* MTH$CDSIN *)N(* *)N(* Sine of Complex Number *)N(* *)N(* The Sine of Complex Number *)N(* routine returns the sine of a complex number (r,i). *)N(*  *) $[ASYNCHRONOUS] PROCEDURE mth$cdsin (& VAR complex_sine : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CGSIN *)N(* *)N(* Sine of Complex Number *)N(* *) N(* The Sine of Complex Number *)N(* routine returns the sine of a complex number (r,i). *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$cgsin (& VAR complex_sine : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CDSQRT *)N(*  *)N(* Complex Square Root *)N(* *)N(* The Complex Square Root routine *)N(* returns the complex square root of a complex number (r,i). *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$cdsqrt (- VAR complex_square_root : [VOLATILE] $UOC TA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$CGSQRT *)N(* *)N(* Complex Square Root *)N(* *)N(* The Complex Square Root routine *)N(* returns the complex square root of a complex number (r,i). *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$cgsqrt (- VAR complex_square_root : [VOLATILE] $UOCTA;$ complex_number : $UOCTA); EXTERNAL; N(* MTH$EXP *)N(* *)N(* Exponential *)N(*  *)N(* The Exponential *)N(* routine returns the exponential of the input value. *)N(* *) ![ASYNCHRONOUS] FUNCTION mth$exp (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DEXP *)N(*  *)N(* Exponential *)N(* *)N(* The Exponential *)N(* routine returns the exponential of the input value. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dexp (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GEXP *)N(* *)N(* Exponential *)N(* *)N(* The Exponential *)N(* routine returns the exponential of the i nput value. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$gexp (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HACOS *)N(* *)N(* Arc Cosine of Angle Expressed in Radians (H-floating Value) *)N(*  *)N(* Given the cosine of an angle, the Arc Cosine of Angle Expressed in *)N(* Radians (H-floating Value) routine returns that angle (in radians) in *)N(* H-floating-point precision. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hacos (& VAR h_radians : [VOLATILE] QUADRUPLE; cosine : QUADRUPLE); EXTERNAL; N(* MTH$HACOSD  *)N(* *)N(* Arc Cosine of Angle Expressed in Degrees (H-Floating Value) *)N(* *)N(* Given the cosine of an angle, the Arc Cosine of Angle Expressed in *)N(* Degrees (H-Floating Value) *)N(* routine returns that  *)N(* angle (in degrees) as an H-floating value. *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$hacosd (& VAR h_degrees : [VOLATILE] QUADRUPLE; cosine : QUADRUPLE); EXTERNAL; N(* MTH$HASIN *)N(* *)N(* Arc Sine in Radians (H-f loating Value) *)N(* *)O(* Given the sine of an angle, the Arc Sine in Radians (H-floating Value) *)N(* routine returns that angle *)N(* (in radians) as an H-floating value. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hasin (& VAR h_radia ns : [VOLATILE] QUADRUPLE; sine : QUADRUPLE); EXTERNAL; N(* MTH$HASIND *)N(* *)N(* Arc Sine in Degrees (H-Floating Value) *)N(* *)O(* Given the sine of an angle, the Arc Sine in Degrees (H-Floating Value) *)N(* routine returns that angle  *)N(* (in degrees) as an H-floating value. *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$hasind (& VAR h_degrees : [VOLATILE] QUADRUPLE; sine : QUADRUPLE); EXTERNAL; N(* MTH$HATAN *)N(* *)N(* Arc Tangent in Radia ns (H-floating Value) *)N(* *)U(* Given the tangent of an angle, the Arc Tangent in Radians (H-floating Value) *)N(* routine returns that angle (in radians) *)N(* as an H-floating value. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hatan (& V AR h_radians : [VOLATILE] QUADRUPLE; tangent : QUADRUPLE); EXTERNAL; N(* MTH$HATAN2 *)N(* *)N(* Arc Tangent in Radians (H-floating Value) with Two Arguments *)N(* *)N(* Given cosine and cosine, the Arc Tangent in *)N(* Radians (H-floating Valu e) with Two Arguments routine returns the *)N(* angle (in radians) as an H-floating value whose tangent is given by *)N(* the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$hatan2 (& VAR h_radians : [VOLATILE] QUADRUPLE; sine : QUADRUPLE; cosine : QUADRUPLE); EXTERNAL; N(* MTH$HATAND *)N(* *)N(* Arc Tangent in Degrees (H-floating Value) *)N(* *)U(* Given the tangent of an angle, the Arc Tangent in Degrees (H-floating Value) *)N(* routine returns that angle (in degrees) *)N(* as an H-floating point value. *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$hatand (& VAR h_degrees : [VOLATILE] QUADRUPLE; tangent : QUADRUPLE); EXTERNAL; N(* MTH$HATANH *)N(* *)N(* Hyperbolic Arc Tangent (H-floating Value) *)N(* *)N(* Given the hyperbolic tangent of an angle, the Hyperbolic Arc *)N(* Tangent (H-floating Value) *)N(* routine returns *)N(* the hyperbolic arc tangent (as an H-floating value) of that angle. *)N(* *) %[ASYNCHRONOUS] PRO CEDURE mth$hatanh ($ VAR h_atanh : [VOLATILE] QUADRUPLE;+ hyperbolic_tangent : QUADRUPLE); EXTERNAL; N(* MTH$HCOS *)N(* *)N(* Cosine of Angle Expressed in Radians (H-floating Value) *)N(* *)N(* The Cosine of Angle Expressed in Radians *)N(* (H-floating Value) *)N(* routine returns the cosine of a given angle (in radians) as an *)N(* H-floating value. *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$hcos (% VAR h_cosine : [VOLATILE] QUADRUPLE;) angle_in_radians : QUADRUPLE); EXTERNAL; N(* MTH$HCOSD  *)N(* *)N(* Cosine of Angle Expressed in Degrees (H-floating Value) *)N(* *)N(* The Cosine of Angle Expressed in Degrees *)N(* (H-floating Value) *)N(* routine returns the cosine of a given angle (in degrees) as an *) N(* H-floating value. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hcosd (% VAR h_cosine : [VOLATILE] QUADRUPLE;) angle_in_degrees : QUADRUPLE); EXTERNAL; N(* MTH$HCOSH *)N(* *)N(* Hyperbolic Cosine (H-floating Value)  *)N(* *)N(* The Hyperbolic Cosine *)N(* routine returns the hyperbolic cosine of *)N(* the input value as an H-floating value. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hcosh (# VAR h_cosh : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QUADRUPLE); EXTERNAL; N(* MTH$HEXP *)N(* *)N(* Exponential (H-floating Value) *)N(* *)N(* The Exponential *)N(* routine returns the exponential of the inp ut value as an H-floating *)N(* value. *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$hexp (" VAR h_exp : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QUADRUPLE); EXTERNAL; N(* MTH$HLOG10 *)N(* *)N(* Common Logar ithm (H-floating Value) *)N(* *)N(* The Common Logarithm (H-floating Value) *)N(* routine returns the common (base 10) logarithm of *)N(* the input argument as an H-floating value. *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$hlog10 ($  VAR h_log10 : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QUADRUPLE); EXTERNAL; N(* MTH$HLOG *)N(* *)N(* Natural Logarithm (H-floating Value) *)N(* *)N(* The Natural Logarithm (H-floating Value) *)N(* rout ine returns the natural (base e) logarithm of *)N(* the input argument as an H-floating value. *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$hlog (% VAR h_natlog : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QUADRUPLE); EXTERNAL; N(* MTH$HLOG2 *)N(*  *)N(* Base 2 Logarithm (H-floating Value) *)N(* *)N(* The Base 2 Logarithm (H-floating Value) *)N(* routine returns the base 2 logarithm of the input value *)N(* specified by floating-point-input-value as an H-floating *)N(* value. *)N(*  *) $[ASYNCHRONOUS] PROCEDURE mth$hlog2 (# VAR h_log2 : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QUADRUPLE); EXTERNAL; N(* MTH$HSIN *)N(* *)N(* Sine of Angle Expressed in Radians (H-floating Value) *)N(*  *)N(* The Sine of Angle Expressed in Radians (H-floating *)N(* Value) *)N(* routine returns the sine of a given angle (in radians) as an *)N(* H-floating value. *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$hsin (# VAR h_sine : [VOLATILE] QUADRUPLE ;) angle_in_radians : QUADRUPLE); EXTERNAL; N(* MTH$HSIND *)N(* *)N(* Sine of Angle Expressed in Degrees (H-floating Value) *)N(* *)N(* The Sine of Angle Expressed in Degrees (H-floating *)N(* Value)  *)N(* routine returns the sine of a given angle (in degrees) as an *)N(* H-floating value. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hsind (# VAR h_sine : [VOLATILE] QUADRUPLE;) angle_in_degrees : QUADRUPLE); EXTERNAL; N(* MTH$HSINH *)N(*  *)N(* Hyperbolic Sine (H-floating Value) *)N(* *)N(* The Hyperbolic Sine (H-floating Value) *)N(* routine returns the hyperbolic sine of the input *)N(* value specified by floating-point-input-value as an *)N(* H-floating value.  *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hsinh (# VAR h_sinh : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QUADRUPLE); EXTERNAL; N(* MTH$HSQRT *)N(* *)N(* Square Root (H-floating Value) *)N(*  *)N(* The Square Root (H-floating Value) *)N(* routine returns the square root of the input value *)N(* floating-point-input-value as an H-floating value. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hsqrt (# VAR h_sqrt : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QUADRUPLE); EXTERNAL; N(* MTH$HTAN *)N(* *)N(* Tangent of Angle Expressed in Radians (H-floating Value) *)N(* *)N(* The Tangent of Angle Expressed in Radians *)N(* (H-floating Value) *)N(* routine return s the tangent of a given angle (in radians) as an *)N(* H-floating value. *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$htan (" VAR h_tan : [VOLATILE] QUADRUPLE;) angle_in_radians : QUADRUPLE); EXTERNAL; N(* MTH$HTAND *)N(* *)N(* Tangent of Angle Expressed in Degrees (H-floating Value) *)N(* *)N(* The Tangent of Angle Expressed in Degrees *)N(* (H-floating Value) *)N(* routine returns the tangent of a given angle (in degrees) as an *)N(* H-floating value. *)N(*  *) $[ASYNCHRONOUS] PROCEDURE mth$htand (" VAR h_tan : [VOLATILE] QUADRUPLE;) angle_in_degrees : QUADRUPLE); EXTERNAL; N(* MTH$HTANH *)N(* *)N(* Compute the Hyperbolic Tangent (H-floating Value) *)N(* *)N(* The Compute the Hyperbolic Tangent (H-floating *)N(* Value) *)N(* routine returns the hyperbolic tangent *)N(* of the input value as an H-floating value. *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$htanh (# VAR h_tanh : [VOLATILE] QUADRUPLE;3 floating_point_input_value : QU ADRUPLE); EXTERNAL; N(* MTH$HATAND2 *)N(* *)N(* Arc Tangent in Degrees (H-floating Value) with Two Arguments *)N(* *)N(* Given cosine and cosine, MTH$xHTAND2 returns *)N(* the angle (in degrees) whose tangent *)N (* is given by the quotient of cosine and cosine, *)N(* cosine/cosine. *)N(* *) &[ASYNCHRONOUS] PROCEDURE mth$hatand2 (& VAR h_degrees : [VOLATILE] QUADRUPLE; sine : QUADRUPLE; cosine : QUADRUPLE); EXTERNAL; N(* MTH$AIMAG *)N(*  *)N(* Imaginary Part of a Complex Number *)N(* *)N(* The Imaginary Part of a Complex Number *)N(* routine returns the imaginary part of a complex number. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$aimag (- complex_number : $UQUAD) : SINGLE; EXTERNAL; N(* MTH$DIMAG *)N(* *)N(* Imaginary Part of a Complex Number *)N(* *)N(* The Imaginary Part of a Complex Number *)N(* routine returns the imaginary part of a complex number. *)N(*  *) #[ASYNCHRONOUS] FUNCTION mth$dimag (4 complex_number : $UOCTA) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GIMAG *)N(* *)N(* Imaginary Part of a Complex Number *)N(* *)N(* Th e Imaginary Part of a Complex Number *)N(* routine returns the imaginary part of a complex number. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gimag (4 complex_number : $UOCTA) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ALOG *)N(* *)N(* Natural Logarithm *)N(* *)N(* The Natural Logarithm *)N(* routine returns the natural (base e) logarithm of *)N(* the input argument. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$alog (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DLOG *)N(* *)N(* Natural Logarithm *)N(* *)N(* The Natural Logarithm *)N(* routine returns the natural (base e)  logarithm of *)N(* the input argument. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dlog (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GLOG *)N(* *)N(* Natural Logarithm  *)N(* *)N(* The Natural Logarithm *)N(* routine returns the natural (base e) logarithm of *)N(* the input argument. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$glog (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ALOG10 *)N(* *)N(* Common Logarithm *)N(* *)N(* The Common Logarithm *)N(* routine returns the common (base 10) l ogarithm of *)N(* the input argument. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$alog10 (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DLOG10 *)N(* *)N(* Common Logarithm  *)N(* *)N(* The Common Logarithm *)N(* routine returns the common (base 10) logarithm of *)N(* the input argument. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$dlog10 (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GLOG10 *)N(* *)N(* Common Logarithm *)N(* *)N(* The Common Logarithm *)N(* routine returns the common (base 10) logarithm of  *)N(* the input argument. *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$glog10 (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$ALOG2 *)N(* *)N(* Base 2 Logarithm  *)N(* *)N(* The Base 2 Logarithm *)N(* routine returns the base 2 logarithm of the input value *)N(* specified by floating-point-input-value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$alog2 (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DLOG2 *)N(* *)N(* Base 2 Logarithm *)N(* *)N(* The Base 2 Logarithm *)N(* routine returns the base 2 logarithm of the input value  *)N(* specified by floating-point-input-value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dlog2 (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GLOG2 *)N(* *)N(* Base 2 Logarithm  *)N(* *)N(* The Base 2 Logarithm *)N(* routine returns the base 2 logarithm of the input value *)N(* specified by floating-point-input-value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$glog2 (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$RANDOM *)N(* *)N(* Random-Number Generator, Uniformly Distributed *)N(* *)N(* The Random-Number Generator, Uniformly Distributed *)N(* routine is a general random-number generator.  *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$random (4 VAR seed : [VOLATILE] UNSIGNED) : SINGLE; EXTERNAL; N(* MTH$REAL *)N(* *)N(* Real Part of a Complex Number *)N(*  *)N(* The Real Part of a Complex Number *)N(* routine returns the real part of a complex number. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$real (- complex_number : $UQUAD) : SINGLE; EXTERNAL; N(* MTH$DREAL *)N(* *)N(* Real Part of a Complex Number *)N(* *)N(* The Real Part of a Complex Number *)N(* routine returns the real part of a complex number. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dreal (4 complex_number : $UOCTA) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GREAL *)N(* *)N(* Real Part of a Complex Number *)N(* *)N(* The Real Part of a Complex Number *)N(* routine returns the real part of a complex number. *)N(*  *) #[ASYNCHRONOUS] FUNCTION mth$greal (4 complex_number : $UOCTA) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$SIN *)N(* *)N(* Sine of Angle Expressed in Radians *)N(* *)N(* The Sine of Angle Expressed in Radians  *)N(* routine returns the sine of a given angle (in radians). *)N(* *) ![ASYNCHRONOUS] FUNCTION mth$sin (/ angle_in_radians : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DSIN *)N(* *)N(* Sine of Angle Expressed in Radians  *)N(* *)N(* The Sine of Angle Expressed in Radians *)N(* routine returns the sine of a given angle (in radians). *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dsin (= angle_in_radians : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GSIN  *)N(* *)N(* Sine of Angle Expressed in Radians *)N(* *)N(* The Sine of Angle Expressed in Radians *)N(* routine returns the sine of a given angle (in radians). *)N(* *)  "[ASYNCHRONOUS] FUNCTION mth$gsin (= angle_in_radians : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$SIND *)N(* *)N(* Sine of Angle Expressed in Degrees *)N(* *)N(* The Sine of Angle Expressed in Degrees *) N(* routine returns the sine of a given angle (in degrees). *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$sind (/ angle_in_degrees : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DSIND *)N(* *)N(* Sine of Angle Expressed in Degrees *)N(*  *)N(* The Sine of Angle Expressed in Degrees *)N(* routine returns the sine of a given angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dsind (= angle_in_degrees : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GSIND *)N(*  *)N(* Sine of Angle Expressed in Degrees *)N(* *)N(* The Sine of Angle Expressed in Degrees *)N(* routine returns the sine of a given angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$ gsind (= angle_in_degrees : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$SINH *)N(* *)N(* Hyperbolic Sine *)N(* *)N(* The Hyperbolic Sine *)N(* routine returns the hy perbolic sine of the input *)N(* value specified by floating-point-input-value. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$sinh (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DSINH *)N(* *)N(* Hyperbolic Sine  *)N(* *)N(* The Hyperbolic Sine *)N(* routine returns the hyperbolic sine of the input *)N(* value specified by floating-point-input-value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dsinh (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GSINH *)N(* *)N(* Hyperbolic Sine *)N(* *)N(* The Hyperbolic Sine *)N(* routine returns the hyperbolic sine of the input *)N(* value specified by floating-point-input-value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gsinh (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$SINCOS *)N(* *)N(* Sine and Cosine of Ang le Expressed in Radians *)N(* *)N(* The Sine and Cosine of Angle Expressed in Radians *)N(* routine returns the sine *)N(* and the cosine of a given angle (in radians). *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$sincos ( angle_in_ radians : SINGLE; VAR sine : [VOLATILE] SINGLE;+ VAR cosine : [VOLATILE] SINGLE); EXTERNAL; N(* MTH$DSINCOS *)N(* *)N(* Sine and Cosine of Angle Expressed in Radians *)N(* *)N(* The Sine and Cosine of Angle Expressed in Radians *)N(*  routine returns the sine *)N(* and the cosine of a given angle (in radians). *)N(* *) &[ASYNCHRONOUS] PROCEDURE mth$dsincos (" angle_in_radians : D_FLOAT$$TYPE;% VAR sine : [VOLATILE] D_FLOAT$$TYPE;2 VAR cosine : [VOLATILE] D_FLOAT$$TYPE); EXTERNAL; N(* MTH$GSINCOS *)N(*  *)N(* Sine and Cosine of Angle Expressed in Radians *)N(* *)N(* The Sine and Cosine of Angle Expressed in Radians *)N(* routine returns the sine *)N(* and the cosine of a given angle (in radians). *)N(*  *) &[ASYNCHRONOUS] PROCEDURE mth$gsincos (" angle_in_radians : G_FLOAT$$TYPE;% VAR sine : [VOLATILE] G_FLOAT$$TYPE;2 VAR cosine : [VOLATILE] G_FLOAT$$TYPE); EXTERNAL; N(* MTH$HSINCOS *)N(* *)N(* Sine and Cosine of Angle Expressed in Radians *)N(*  *)N(* The Sine and Cosine of Angle Expressed in Radians *)N(* routine returns the sine *)N(* and the cosine of a given angle (in radians). *)N(* *) &[ASYNCHRONOUS] PROCEDURE mth$hsincos ( angle_in_radians : QUADRUPLE;! VAR sine : [VOLATILE] QUADRUPLE;. VAR cosine : [VOLATILE] QUADRUPLE); EXTERNA L; N(* MTH$SINCOSD *)N(* *)N(* Sine and Cosine of Angle Expressed in Degrees *)N(* *)N(* The Sine and Cosine of Angle Expressed in Degrees *)N(* routine returns the sine and cosine of a given angle (in degrees). *)N(*  *) &[ASYNCHRONOUS] PROCEDURE mth$sincosd ( angle_in_degrees : SINGLE; VAR sine : [VOLATILE] SINGLE;+ VAR cosine : [VOLATILE] SINGLE); EXTERNAL; N(* MTH$DSINCOSD *)N(* *)N(* Sine and Cosine of Angle Expressed in Degrees *)N(*  *)N(* The Sine and Cosine of Angle Expressed in Degrees *)N(* routine returns the sine and cosine of a given angle (in degrees). *)N(* *) '[ASYNCHRONOUS] PROCEDURE mth$dsincosd (" angle_in_degrees : D_FLOAT$$TYPE;% VAR sine : [VOLATILE] D_FLOAT$$TYPE;2 VAR cosine : [VOLATILE] D_FLOAT$$TYPE); EXTERNAL; N(* MTH$GSINCOSD  *)N(* *)N(* Sine and Cosine of Angle Expressed in Degrees *)N(* *)N(* The Sine and Cosine of Angle Expressed in Degrees *)N(* routine returns the sine and cosine of a given angle (in degrees). *)N(* *) '[ASYNCHRONOUS] PROCEDURE mth$gsincosd (" angle_in_degrees : G_FLOAT$$TYPE;% VAR sine : [VOLATILE] G_FLOAT$$TYPE;2 VAR cosine : [VOLATILE] G_FLOAT$$TYPE); EXTERNAL; N(* MTH$HSINCOSD *)N(* *)N(* Sine and Cosine of Angle Expressed in Degrees *)N(* *)N(* The Sine and Cosine of Angle Expressed in Degrees *)N(* routine returns the sine and cosine of a given angle (in degrees). *)N(* *) '[ASYNCHRONOUS] PROCEDURE mth$hsincosd ( angle_in_degrees : QUADRUPLE;! VAR sine : [VOLATILE] QUADRUPLE;. VAR cosine : [VOLATILE] QUADRUPLE); EXTERNAL; N(* MTH$SQRT *)N(*  *)N(* Square Root *)N(* *)N(* The Square Root *)N(* routine returns the square root of the input value *)N(* floating-point-input-value. *)N(*  *) "[ASYNCHRONOUS] FUNCTION mth$sqrt (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DSQRT *)N(* *)N(* Square Root *)N(* *)N(* The Square Root  *)N(* routine returns the square root of the input value *)N(* floating-point-input-value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dsqrt (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GSQRT *)N(*  *)N(* Square Root *)N(* *)N(* The Square Root *)N(* routine returns the square root of the input value *)N(* floating-point-input-value. *)N(*  *) #[ASYNCHRONOUS] FUNCTION mth$gsqrt (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$TAN *)N(* *)N(* Tangent of Angle Expressed in Radians *)N(* *)N(* The Tangent of Angle Expressed in Radians  *)N(* routine returns the tangent of a given angle (in radians). *)N(* *) ![ASYNCHRONOUS] FUNCTION mth$tan (/ angle_in_radians : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DTAN *)N(* *)N(* Tangent of Angle Expressed in Radians  *)N(* *)N(* The Tangent of Angle Expressed in Radians *)N(* routine returns the tangent of a given angle (in radians). *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dtan (= angle_in_radians : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GTAN  *)N(* *)N(* Tangent of Angle Expressed in Radians *)N(* *)N(* The Tangent of Angle Expressed in Radians *)N(* routine returns the tangent of a given angle (in radians). *)N(* *) "[ASYNCHR ONOUS] FUNCTION mth$gtan (= angle_in_radians : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$TAND *)N(* *)N(* Tangent of Angle Expressed in Degrees *)N(* *)N(* The Tangent of Angle Expressed in Degrees *)N(* rout ine returns the tangent of a given angle (in degrees). *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$tand (/ angle_in_degrees : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DTAND *)N(* *)N(* Tangent of Angle Expressed in Degrees *)N(*  *)N(* The Tangent of Angle Expressed in Degrees *)N(* routine returns the tangent of a given angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dtand (= angle_in_degrees : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GTAND *)N(*  *)N(* Tangent of Angle Expressed in Degrees *)N(* *)N(* The Tangent of Angle Expressed in Degrees *)N(* routine returns the tangent of a given angle (in degrees). *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gtand (= angle_in_degrees : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$TANH *)N(* *)N(* Compute the Hyperbolic Tangent *)N(* *)N(* The Compute the Hyperbolic Tangent *)N(* routine returns the hyperbolic tan gent *)N(* of the input value. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$tanh (9 floating_point_input_value : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DTANH *)N(* *)N(* Compute the Hyperbolic Tangent  *)N(* *)N(* The Compute the Hyperbolic Tangent *)N(* routine returns the hyperbolic tangent *)N(* of the input value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dtanh (G floating_point_input_value : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GTANH *)N(* *)N(* Compute the Hyperbolic Tangent *)N(* *)N(* The Compute the Hyperbolic Tangent *)N(* routine returns the hyperbolic tangent  *)N(* of the input value. *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gtanh (G floating_point_input_value : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$UMAX *)N(* *)N(* Compute Unsigned Maximum  *)N(* *)N(* The Compute Unsigned Maximum *)N(* routine computes the unsigned longword maximum of n unsigned longword *)N(* arguments, where n is greater than or equal to 1. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$umax ( argument : UNSIGNED;, $p2 : [LIST] UNSIGNED) : INTEGER; EXTERNAL; N(* MTH$UMIN *)N(* *)N(* Compute Unsigned Minimum *)N(* *)N(* The Compute Unsigned Minimum *)O(* routine computes the unsigned longword minimum of n unsigned longword *)N(* arguments, where n is greater than or *)N(* equal to 1. *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$umin ( argument : UNSIGNED;, $p2 : [LIST] UNSIGNED) : INTEGER; EXTERNAL; N(* MTH$ABS *)N(*  *)N(* F_floating Absolute Value Routine *)N(* *) ![ASYNCHRONOUS] FUNCTION mth$abs () F_FLOATING : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DABS *)N(* *)N(* D_floating Absolute Value Routine  *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dabs (7 D_FLOATING : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GABS *)N(* *)N(* G_floating Absolute Value Routine *)N(*  *) "[ASYNCHRONOUS] FUNCTION mth$gabs (7 G_FLOATING : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HABS *)N(* *)N(* H_floating Absolute Value Routine *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$habs (& VAR h_abs_val : [VOLATILE] QUAD RUPLE;# H_FLOATING : QUADRUPLE); EXTERNAL; N(* MTH$IIABS *)N(* *)N(* Word Absolute Value Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$iiabs (! WORD : $WORD) : $WORD; EXTERNAL; N(* MTH$JIABS  *)N(* *)N(* Longword Absolute Value Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jiabs () LONGWORD : INTEGER) : INTEGER; EXTERNAL; N(* MTH$IIAND *)N(*  *)N(* Bitwise AND of Two Word Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$iiand ( word1 : $UWORD;$ word2 : $UWORD) : $UWORD; EXTERNAL; N(* MTH$JIAND *)N(* *)N(* Bitwise AND of Two Longword Parameters Routine  *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jiand ( longword1 : UNSIGNED;+ longword2 : UNSIGNED) : INTEGER; EXTERNAL; N(* MTH$DBLE *)N(* *)N(* Convert F_floating to D_floating (Exact) Routine *)N(*  *) "[ASYNCHRONOUS] FUNCTION mth$dble (0 F_FLOATING : SINGLE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GDBLE *)N(* *)N(* Convert F_floating to G_floating (Exact) Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gdble (0 F_FLOATING : SINGLE) : G_FLOAT$$T YPE; EXTERNAL; N(* MTH$DIM *)N(* *)N(* Positive Difference of Two F_floating Parameters Routine *)N(* *) ![ASYNCHRONOUS] FUNCTION mth$dim ( f_floating1 : SINGLE;* f_floating2 : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DDIM  *)N(* *)N(* Positive Difference of Two D_floating Parameters Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$ddim ( d_floating1 : D_FLOAT$$TYPE;8 d_floating2 : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GDIM *)N(*  *)N(* Positive Difference of Two D_floating Parameters Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$gdim ( g_floating1 : G_FLOAT$$TYPE;8 g_floating2 : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HDIM *)N(* *) !N(* Positive Difference of Two D_floating Parameters Routine *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$hdim (' VAR H_FLOATING : [VOLATILE] QUADRUPLE; h_floating1 : QUADRUPLE;$ h_floating2 : QUADRUPLE); EXTERNAL; N(* MTH$IIDIM *)N(* *)N(* Positive Difference of T "wo Word Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$iidim ( word1 : $WORD;" word2 : $WORD) : $WORD; EXTERNAL; N(* MTH$JIDIM *)N(* *)N(* Positive Difference of Two Longword Parameters Routine *)N(* # *) #[ASYNCHRONOUS] FUNCTION mth$jidim ( longword1 : INTEGER;* longword2 : INTEGER) : INTEGER; EXTERNAL; N(* MTH$IIEOR *)N(* *)N(* Bitwise Exclusive OR of Two Word Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION $mth$iieor ( word1 : $UWORD;$ word2 : $UWORD) : $UWORD; EXTERNAL; N(* MTH$JIEOR *)N(* *)N(* Bitwise Exclusive OR of Two Longword Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jieor ( longword1 : UNSIGNED;+ longword2 : UNSIGNED) : INTEGER; EXTERNAL; % N(* MTH$IIFIX *)N(* *)N(* Convert F_floating to Word (Truncated) Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$iifix (( F_FLOATING : SINGLE) : $WORD; EXTERNAL; N(* MTH$JIFIX *)N(* & *)N(* Convert F_floating to Longword (Truncated) Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jifix (* F_FLOATING : SINGLE) : INTEGER; EXTERNAL; N(* MTH$FLOATI *)N(* *)N(* Convert Word to F_floati 'ng (Exact) Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$floati (" WORD : $WORD) : SINGLE; EXTERNAL; N(* MTH$DFLOTI *)N(* *)N(* Convert Word to D_floating (Exact) Routine *)N(* ( *) $[ASYNCHRONOUS] FUNCTION mth$dfloti () WORD : $WORD) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GFLOTI *)N(* *)N(* Convert Word to G_floating (Exact) Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gfloti () WORD : $WORD) : G_FLOAT$$TY )PE; EXTERNAL; N(* MTH$FLOATJ *)N(* *)N(* Convert Longword to F_floating (Exact) Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$floatj (( LONGWORD : INTEGER) : SINGLE; EXTERNAL; N(* MTH$DFLOTJ *) *N(* *)N(* Convert Longword to D_floating (Exact) Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$dflotj (/ LONGWORD : INTEGER) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GFLOTJ *)N(* *)N(* Co +nvert Longword to G_floating (Exact) Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gflotj (/ LONGWORD : INTEGER) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$FLOOR *)N(* *)N(* Convert F_floating to Greatest F_floating Integer Routine *)N(* , *) #[ASYNCHRONOUS] FUNCTION mth$floor () F_FLOATING : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DFLOOR *)N(* *)N(* Convert D_floating to Greatest D_floating Integer Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$df -loor (7 D_FLOATING : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GFLOOR *)N(* *)N(* Convert G_floating to Greatest G_floating Integer Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$gfloor (7 G_FLOATING : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HF .LOOR *)N(* *)N(* Convert H_floating to Greatest H_floating Integer Routine *)N(* *) %[ASYNCHRONOUS] PROCEDURE mth$hfloor (( VAR max_h_float : [VOLATILE] QUADRUPLE;# H_FLOATING : QUADRUPLE); EXTERNAL; N(* MTH$AINT / *)N(* *)N(* Convert F_floating to Truncated F_floating Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$aint () F_FLOATING : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DINT *)N(* *)N(* Co 0nvert D_floating to Truncated D_floating Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dint (7 D_FLOATING : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$IIDINT *)N(* *)N(* Convert D_floating to Word (Truncated) Routine *)N(* 1 *) $[ASYNCHRONOUS] FUNCTION mth$iidint (/ D_FLOATING : D_FLOAT$$TYPE) : $WORD; EXTERNAL; N(* MTH$JIDINT *)N(* *)N(* Convert D_floating to Longword (Truncated) Routine *)N(* *) $[ASYNCHRONOUS] FUN 2CTION mth$jidint (1 D_FLOATING : D_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* MTH$GINT *)N(* *)N(* Convert G_floating to G_floating (Truncated) Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$gint (7 G_FLOATING : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MT 3H$IIGINT *)N(* *)N(* Convert G_floating to Word (Truncated) Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$iigint (/ G_FLOATING : G_FLOAT$$TYPE) : $WORD; EXTERNAL; N(* MTH$JIGINT *)N(* 4 *)N(* Convert G_floating to Longword (Truncated) Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$jigint (1 G_FLOATING : G_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* MTH$HINT *)N(* *)N(* Convert H_floating t 5o H_floating (Truncated) Routine *)N(* *) #[ASYNCHRONOUS] PROCEDURE mth$hint (( VAR trunc_h_flt : [VOLATILE] QUADRUPLE;# H_FLOATING : QUADRUPLE); EXTERNAL; N(* MTH$IIHINT *)N(* *)N(* Convert H_floating to Truncated Word Routine *)N(* 6 *) $[ASYNCHRONOUS] FUNCTION mth$iihint (+ H_FLOATING : QUADRUPLE) : $WORD; EXTERNAL; N(* MTH$JIHINT *)N(* *)N(* Convert H_floating to Truncated Longword Routine *)N(* *) $[ASYNCHRONOUS] F 7UNCTION mth$jihint (- H_FLOATING : QUADRUPLE) : INTEGER; EXTERNAL; N(* MTH$IINT *)N(* *)N(* Convert F_floating to Word (Truncated) Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$iint (( F_FLOATING : SINGLE) : $WORD; EXTERNAL; N(* MTH$JINT 8 *)N(* *)N(* Convert F_floating to Longword (Truncated) Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$jint (* F_FLOATING : SINGLE) : INTEGER; EXTERNAL; N(* MTH$IIOR *)N(* 9 *)N(* Bitwise Inclusive OR of Two Word Parameters Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$iior ( word1 : $UWORD;$ word2 : $UWORD) : $UWORD; EXTERNAL; N(* MTH$JIOR *)N(* *)N(* Bitwise Inclusive OR of Two Longword Paramet :ers Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$jior ( longword1 : UNSIGNED;+ longword2 : UNSIGNED) : INTEGER; EXTERNAL; N(* MTH$AIMAX0 *)N(* *)N(* F_floating Maximum of N WordParameters Routine *)N(* ; *) $[ASYNCHRONOUS] FUNCTION mth$aimax0 ( WORD : $WORD;( $p2 : [LIST] $WORD) : SINGLE; EXTERNAL; N(* MTH$AJMAX0 *)N(* *)N(* F_floating Maximum of N Longword Parameters Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$ajmax0 ( L <ONGWORD : INTEGER;* $p2 : [LIST] INTEGER) : SINGLE; EXTERNAL; N(* MTH$IMAX0 *)N(* *)N(* Word Maximum of N Word Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$imax0 ( WORD : $WORD;' $p2 : [LIST] $WORD) : $WORD; EXTERNAL; N(* MTH$JMAX =0 *)N(* *)N(* Longword Maximum of N Longword Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jmax0 ( LONGWORD : INTEGER;+ $p2 : [LIST] INTEGER) : INTEGER; EXTERNAL; N(* MTH$AMAX1 *)N(* > *)N(* F_floating Maximum of N F_floating Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$amax1 ( F_FLOATING : SINGLE;) $p2 : [LIST] SINGLE) : SINGLE; EXTERNAL; N(* MTH$DMAX1 *)N(* *) ?N(* D_floating Maximum of N D_floating Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dmax1 ( D_FLOATING : D_FLOAT$$TYPE;7 $p2 : [LIST] D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GMAX1 *)N(* *)N(* G_floating Maximum of N G_floating Parameter @s Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gmax1 ( G_FLOATING : G_FLOAT$$TYPE;7 $p2 : [LIST] G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HMAX1 *)N(* *)N(* H_floating Maximum of N H_floating Parameters Routine *)N(* A *) $[ASYNCHRONOUS] PROCEDURE mth$hmax1 (( VAR h_float_max : [VOLATILE] QUADRUPLE; H_FLOATING : QUADRUPLE;# $p3 : [LIST] QUADRUPLE); EXTERNAL; N(* MTH$IMAX1 *)N(* *)N(* Word Maximum of N F_floating Parameters Routine *)N(* B *) #[ASYNCHRONOUS] FUNCTION mth$imax1 ( F_FLOATING : SINGLE;( $p2 : [LIST] SINGLE) : $WORD; EXTERNAL; N(* MTH$JMAX1 *)N(* *)N(* Longword Maximum of N F_floating Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jmax1 ( F_FLOAT CING : SINGLE;* $p2 : [LIST] SINGLE) : INTEGER; EXTERNAL; N(* MTH$AIMIN0 *)N(* *)N(* F_floating Minimum of N Word Parameters Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$aimin0 ( WORD : $WORD;( $p2 : [LIST] $WORD) : SINGLE; EXTERNAL; N(* MTH$AJMIN0 D *)N(* *)N(* F_floating Minimum of N Longword Parameters Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$ajmin0 ( LONGWORD : INTEGER;* $p2 : [LIST] INTEGER) : SINGLE; EXTERNAL; N(* MTH$IMIN0 *)N(* E *)N(* Word Minimum of N Word Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$imin0 ( WORD : $WORD;' $p2 : [LIST] $WORD) : $WORD; EXTERNAL; N(* MTH$JMIN0 *)N(* *)N(* Longword F Minimum of N Longword Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jmin0 ( LONGWORD : INTEGER;+ $p2 : [LIST] INTEGER) : INTEGER; EXTERNAL; N(* MTH$AMIN1 *)N(* *)N(* F_floating Minimum of N F_floating Parameters Routine *)N(* G *) #[ASYNCHRONOUS] FUNCTION mth$amin1 ( F_FLOATING : SINGLE;) $p2 : [LIST] SINGLE) : SINGLE; EXTERNAL; N(* MTH$DMIN1 *)N(* *)N(* D_floating Minimum of N D_floating Parameters Routine *)N(* *) H #[ASYNCHRONOUS] FUNCTION mth$dmin1 ( D_FLOATING : D_FLOAT$$TYPE;7 $p2 : [LIST] D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GMIN1 *)N(* *)N(* G_floating Minimum of N G_floating Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gmin1 ( G_FLOAT IING : G_FLOAT$$TYPE;7 $p2 : [LIST] G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HMIN1 *)N(* *)N(* H_floating Minimum of N H_floating Parameters Routine *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hmin1 (( VAR h_float_max : [VOLATILE] QUADRUPLE; H_FLOATING : QUAD JRUPLE;# $p3 : [LIST] QUADRUPLE); EXTERNAL; N(* MTH$IMIN1 *)N(* *)N(* Word Minimum of N F_floating Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$imin1 ( F_FLOATING : SINGLE;( $p2 : [LIST] SINGLE) : $WORD; EXTERNAL; N(* MTH$JMIN1 K *)N(* *)N(* Longword Minimum of N F_floating Parameters Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jmin1 ( F_FLOATING : SINGLE;* $p2 : [LIST] SINGLE) : INTEGER; EXTERNAL; N(* MTH$AMOD *)N(* L *)N(* Remainder of Two F_floating Parameters Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$amod ( dividend : SINGLE;& divisor : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DMOD *)N(* *)N(* Remainder Mof Two D_floating Parameters Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$dmod ( dividend : D_FLOAT$$TYPE;4 divisor : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GMOD *)N(* *)N(* Remainder of Two G_floating Parameters Routine N*)N(* *) "[ASYNCHRONOUS] FUNCTION mth$gmod ( dividend : G_FLOAT$$TYPE;4 divisor : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HMOD *)N(* *)N(* Remainder of Two H_floating Parameters Routine *)N(* O *) #[ASYNCHRONOUS] PROCEDURE mth$hmod (" VAR h_mod : [VOLATILE] QUADRUPLE; dividend : QUADRUPLE; divisor : QUADRUPLE); EXTERNAL; N(* MTH$IMOD *)N(* *)N(* Remainder of Two Word Parameters Routine *)N(* *) "[ASYNCHRONOUS] FUN PCTION mth$imod ( dividend : $WORD;$ divisor : $WORD) : $WORD; EXTERNAL; N(* MTH$JMOD *)N(* *)N(* Remainder of Two Longword Parameters Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$jmod ( dividend : INTEGER;( divisor : INTEGER) : INTEGER; EXTERNAL; QN(* MTH$ANINT *)N(* *)N(* Convert F_floating to Nearest F_floating Integer Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$anint () F_FLOATING : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DNINT *)N(* R *)N(* Convert D_floating to Nearest D_floating Integer Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dnint (7 D_FLOATING : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$IIDNNT *)N(* *)N(* Convert D_ Sfloating to Word Integer Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$iidnnt (/ D_FLOATING : D_FLOAT$$TYPE) : $WORD; EXTERNAL; N(* MTH$JIDNNT *)N(* *)N(* Convert D_floating to Nearest Longword Integer Routine *)N(* T *) $[ASYNCHRONOUS] FUNCTION mth$jidnnt (1 D_FLOATING : D_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* MTH$GNINT *)N(* *)N(* Convert G_floating to Nearest G_floating Integer Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gn Uint (7 G_FLOATING : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$IIGNNT *)N(* *)N(* Convert T_floating to Nearest G_floating Integer Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$iignnt (/ G_FLOATING : G_FLOAT$$TYPE) : $WORD; EXTERNAL; N(* MTH$JIGNNT V *)N(* *)N(* Convert G_floating to Nearest Longword Integer Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$jignnt (1 G_FLOATING : G_FLOAT$$TYPE) : INTEGER; EXTERNAL; N(* MTH$HNINT *)N(* W *)N(* Convert H_floating to Nearest H_floating Integer Routine *)N(* *) $[ASYNCHRONOUS] PROCEDURE mth$hnint () VAR nearst_h_flt : [VOLATILE] QUADRUPLE;# H_FLOATING : QUADRUPLE); EXTERNAL; N(* MTH$IIHNNT *)N(* *)N(* XConvert H_floating to Nearest Word Integer Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$iihnnt (+ H_FLOATING : QUADRUPLE) : $WORD; EXTERNAL; N(* MTH$JIHNNT *)N(* *)N(* Convert H_floating to Nearest Longword Integer Routine *)N(* Y *) $[ASYNCHRONOUS] FUNCTION mth$jihnnt (- H_FLOATING : QUADRUPLE) : INTEGER; EXTERNAL; N(* MTH$ININT *)N(* *)N(* Convert F_floating to Nearest Word Integer Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$ Zinint (( F_FLOATING : SINGLE) : $WORD; EXTERNAL; N(* MTH$JNINT *)N(* *)N(* Convert F_floating to Nearest Longword Integer Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$jnint (* F_FLOATING : SINGLE) : INTEGER; EXTERNAL; N(* MTH$INOT [ *)N(* *)N(* Bitwise Complement of Word Parameter Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$inot (# WORD : $UWORD) : $UWORD; EXTERNAL; N(* MTH$JNOT *)N(* \ *)N(* Bitwise Complement of Longword Parameter Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$jnot (* LONGWORD : UNSIGNED) : INTEGER; EXTERNAL; N(* MTH$DPROD *)N(* *)N(* D_floating Product of Two F_floating Parameters Routine *)N(* ] *) #[ASYNCHRONOUS] FUNCTION mth$dprod ( f_floating1 : SINGLE;1 f_floating2 : SINGLE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GPROD *)N(* *)N(* G_floating Product of Two F_floating Parameters Routine *)N(* ^ *) #[ASYNCHRONOUS] FUNCTION mth$gprod ( f_floating1 : SINGLE;1 f_floating2 : SINGLE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$SGN *)N(* *)N(* F_floating Sign Function *)N(* *) ![ASYNCHRONOUS] FUNCTION mth$sgn (Y %REF f_or __d_floating : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* MTH$IISHFT *)N(* *)N(* Bitwise Shift of Word Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$iishft ( WORD : $UWORD;' shift_cnt : $WORD) : $UWORD; EXTERNAL; ` N(* MTH$JISHFT *)N(* *)N(* Bitwise Shift of Longword Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$jishft ( LONGWORD : UNSIGNED;* shift_cnt : INTEGER) : INTEGER; EXTERNAL; N(* MTH$SIGN a *)N(* *)N(* F_floating Transfer of Sign of Y to Sign of X Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$sign ( f_float_x : SINGLE;( f_float_y : SINGLE) : SINGLE; EXTERNAL; N(* MTH$DSIGN *)N(* b *)N(* D_floating Transfer of Sign of Y to Sign of X Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$dsign ( d_float_x : D_FLOAT$$TYPE;6 d_float_y : D_FLOAT$$TYPE) : D_FLOAT$$TYPE; EXTERNAL; N(* MTH$GSIGN *)N(* *)N(* G_floating Transfer of Sign of X c to Sign of X Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$gsign ( g_float_x : G_FLOAT$$TYPE;6 g_float_y : G_FLOAT$$TYPE) : G_FLOAT$$TYPE; EXTERNAL; N(* MTH$HSIGN *)N(* *)N(* H_floating Transfer of Sign of Y to Sign of X Routine *)N(* d *) $[ASYNCHRONOUS] PROCEDURE mth$hsign (% VAR h_result : [VOLATILE] QUADRUPLE; h_float_x : QUADRUPLE;" h_float_y : QUADRUPLE); EXTERNAL; N(* MTH$IISIGN *)N(* *)N(* Word Transfer of Sign of Y to Sign of X Routine *)N(* e *) $[ASYNCHRONOUS] FUNCTION mth$iisign ( word_x : $WORD;# word_y : $WORD) : $WORD; EXTERNAL; N(* MTH$JISIGN *)N(* *)N(* Longword Transfer of Sign of Y to Sign of X Routine *)N(* *) $[ASYNCHRONOUS] FUNCTION mth$jisign ( longwrd_x : f INTEGER;* longwrd_y : INTEGER) : INTEGER; EXTERNAL; N(* MTH$SNGL *)N(* *)N(* Convert D_floating to F_floating (Rounded) Routine *)N(* *) "[ASYNCHRONOUS] FUNCTION mth$sngl (0 D_FLOATING : D_FLOAT$$TYPE) : SINGLE; EXTERNAL; N(* MTH$SNGLG *)N(* *)N(* Convert G_floating to F_floating (Rounded) Routine *)N(* *) #[ASYNCHRONOUS] FUNCTION mth$snglg (0 G_FLOATING : G_FLOAT$$TYPE) : SINGLE; EXTERNAL; N(* END. *) END.wwha.k6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$NCS_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with iFAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissiojns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ k }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYPl = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; m# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..n33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE NCS$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; o *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.p.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEqC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; r *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;s *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =t [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; u *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 v7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE ncs$routines ***) P(**************************************************************************** *)(* * *)4(* COPYRIGHT (c) 1988 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE US wED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND S xHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* NCS$COMPARE *)N(* y *)N(* Compare Strings *)N(* *)N(* Compares two strings using specified collating sequence as comparison *)N(* basis. *)N(* *) %[ASYNCHRONOUS] FUNCTION ncs$compare ( z cs_id : UNSIGNED;> string_1 : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;S string_2 : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* NCS$CONVERT *)N(* *)N(* Convert String *)N(* *)N(* Conver {t a string using the specified conversion function. *)N(* *) %[ASYNCHRONOUS] FUNCTION ncs$convert ( cf_id : UNSIGNED;< source : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;G VAR dest : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;0 VAR ret_length : [VOLATILE] $UWORD := %IMMED 0;B VAR not_cvt : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* NCS$END_CF | *)N(* *)N(* End Conversion Function *)N(* *)N(* Terminates the use of a conversion function by the calling program. *)N(* *) $[ASYNCHRONOUS] FUNCTION ncs$end_cf (6 VAR cf_id : [VOLATI}LE] UNSIGNED) : INTEGER; EXTERNAL; N(* NCS$END_CS *)N(* *)N(* End Collating Sequence *)N(* *)N(* Terminates the use of a collating sequence by the calling program. *)N(* ~ *) $[ASYNCHRONOUS] FUNCTION ncs$end_cs (6 VAR cs_id : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* NCS$GET_CF *)N(* *)N(* Get Conversion Function *)N(* *)O(* Retrieves the definition of the named conversion function from t he NCS *)N(* library. *)N(* *) $[ASYNCHRONOUS] FUNCTION ncs$get_cf (! VAR cf_id : [VOLATILE] UNSIGNED;H cfname : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;] librar : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* NCS$GET_CS *)N(* *)N(* Get Collating Sequence *)N(* *)N(* Retrieves the definition of the named collating sequence from the NCS *)N(* library. *)N(* *) $[ASYNCHRONOUS] FUNCTION ncs$get_cs (! VAR cs_id : [VOLATILE] UNSIGNED;H csname : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;] librar : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* NCS$RESTORE_CF *)N(* *)N(* Restore Conversion Function *)N(*  *)N(* Permits the calling program to restore the definition of a "saved" *)N(* conversion function from a data base or an RMS file. *)N(* *) ([ASYNCHRONOUS] FUNCTION ncs$restore_cf (! VAR cf_id : [VOLATILE] UNSIGNED; LENGTH : UNSIGNED := %IMMED 0;5 ADDRESS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* NCS$RESTORE_CS  *)N(* *)N(* Restore Collating Sequence *)N(* *)U(* Permits the calling program to restore the definition of a "saved" collating *)N(* sequence from a data base or an RMS file. *)N(*  *) ([ASYNCHRONOUS] FUNCTION ncs$restore_cs (! VAR cs_id : [VOLATILE] UNSIGNED; LENGTH : UNSIGNED := %IMMED 0;5 ADDRESS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* NCS$SAVE_CF *)N(* *)N(* Save Conversion Function *)N(* *)S (* Provides the calling program with information that permits the application *)T(* to store the definition of a conversion function in a local data base or an *)N(* RMS file rather than the NCS$LIBRARY. *)N(* *) %[ASYNCHRONOUS] FUNCTION ncs$save_cf ( cf_id : UNSIGNED;. VAR LENGTH : [VOLATILE] UNSIGNED := %IMMED 0;D VAR ADDRESS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXT ERNAL; N(* NCS$SAVE_CS *)N(* *)N(* Save Collating Sequence *)N(* *)S(* Provides the calling program with information that permits the application *)S(* to store the definition of a collating sequence in a local data base or an *)N(* RMS file rather than the NCS$LIBRARY. *)N(* *) %[ASYNCHRONOUS] FUNCTION ncs$save_cs ( cs_id : UNSIGNED;. VAR LENGTH : [VOLATILE] UNSIGNED := %IMMED 0;D VAR ADDRESS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) END.wwfl][PEN_CHECKING_STYLE(NONE),INHERIT('SYS$LIBRARY:PASCAL$D_FLOAT','SYS$LIBRARY:PASCAL$G_FLOAT')]MODULE PASCAL$OTS_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{  }P{ Consistent with FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissions contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty.  }P{ }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095;# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE OTS$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255;  *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7;  *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023;  *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607;  *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..107374182 3; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE ots$routines ***) P(**************************************************************************** *)(* * *)4(* COPYRIGHT (c) 1988 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(*  * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN  THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(*  *)N(* 20-Mar-2007 JML QXCM1000393572 Headers returning complex results *)N(* can't be compiled by BASIC. *)N(* *)N(* Well clearly the routines returning complex results *)N(* by value (requiring 2 registers) need header generation to *)N(* be limited to only those languages KNOWN to be able *)N(* to support it and likely to call them. *)N(* *)N(* *)N(* 14-Dec-2006 JML QXCM1000384200 Headers returning complex results *)N(* can't be compiled by C/C++ *)N(* *)P(* Now I understand why a number of headers have been commented *)N(* out. When I added all the new IEEE forms, even for those *)O(* VAX forms commented out, I didn't realize that C/C++ cannot *)P(* return more than 64bits by value. Five of the existing IEEE *)N(* routines return complex results by value and those require *)N(* 2 registers. This resulted in a .h file for C/C++ that *)N(* would not compile. The fix is to use iflanguage and *)P(* prevent those headers from being generated for C/C++. These *)N(* routines most likely will be called by Fortran anyway. *)N(* *)N(* 23-Feb-2006 JML PTR 75-109-96 Add missing headers for IEEE forms of *)N(* various routines. *)N(*  *)P(* As of 23-Feb-2006 SDL has no types to describe IEEE floating *)N(* data. Since the actual type is only material with respect *)O(* to size of the argument (single vs double precision) we use *)N(* F-Floating to represent IEEE S-Floating and D-Floating to *)N(* represent IEEE T-Floating. *)N(*  *)N(* In the course of fixing this PTR it was discovered that *)N(* number of header definitions have been commented out for *)N(* years. Attempts to determine why they are commented out *)O(* proved futile. Rather than risk enabling them and possibly *)O(* introducing a collision between the system supplied headers *)O(* and private headers users may have developed to work around *)N(*  the lack of them, they shall remain commented out. *)N(* However, their new IEEE forms will be enabled as these *)N(* routines only came into existence recently. *)N(* (see DPML$SHR.OPT checkin of 24-Mar-2004). *)N(* *)N(* OTS$CVT_T_D *)N(*  *)N(* Convert Numeric Text to D- or F-Floating Value *)N(* *)N(* The Convert Numeric Text to D- or F-Floating routines *)N(* convert an ASCII text string representation of a *)N(* numeric value to a D_floating or F_floating value. *)N(*  *) %[ASYNCHRONOUS] FUNCTION ots$cvt_t_d (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;5 VAR floating_point_value : [VOLATILE] D_FLOAT$$TYPE;2 %IMMED digits_in_fraction : UNSIGNED := %IMMED 0;+ %IMMED scale_factor : INTEGER := %IMMED 0;+ %IMMED flags_value : UNSIGNED := %IMMED 0;H VAR extension_bits : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_T_F *)N(* *)N(* Convert Numeric Text to D- or F-Floating Value *)N(* *)N(* The Convert Numeric Text to D- or F-Floating routines *)N(* convert an ASCII text string representation of a *)N(* numeric value to a D_floating or F_floating value. *)N(*  *) %[ASYNCHRONOUS] FUNCTION ots$cvt_t_f (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;. VAR floating_point_value : [VOLATILE] SINGLE;2 %IMMED digits_in_fraction : UNSIGNED := %IMMED 0;+ %IMMED scale_factor : INTEGER := %IMMED 0;+ %IMMED flags_value : UNSIGNED := %IMMED 0;H VAR extension_bits : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_T_T  *)N(* *)N(* Convert Numeric Text to T- or S-Floating Value *)N(* *)N(* The Convert Numeric Text to T- or S-Floating routines *)N(* convert an ASCII text string representation of a *)N(* numeric value to a T_floating or S_floating value.  *)N(* *) %[ASYNCHRONOUS] FUNCTION ots$cvt_t_t (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;5 VAR floating_point_value : [VOLATILE] D_FLOAT$$TYPE;2 %IMMED digits_in_fraction : UNSIGNED := %IMMED 0;+ %IMMED scale_factor : INTEGER := %IMMED 0;+ %IMMED flags_value : UNSIGNED := %IMMED 0;H VAR extension_bits : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_T_S *)N(* *)N(* Convert Numeric Text to T- or S-Floating Value *)N(* *)N(* The Convert Numeric Text to T- or S-Floating routines *)N(* convert an ASCII text string representation of a *)N(* numeric value to a T_floating or  S_floating value. *)N(* *) %[ASYNCHRONOUS] FUNCTION ots$cvt_t_s (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;. VAR floating_point_value : [VOLATILE] SINGLE;2 %IMMED digits_in_fraction : UNSIGNED := %IMMED 0;+ %IMMED scale_factor : INTEGER := %IMMED 0;+ %IMMED flags_value : UNSIGNED := %IMMED 0;H VAR extension_bits : [VOLATILE] $WORD := %IMMED 0) : INTEGER;  EXTERNAL; N(* OTS$CVT_T_G *)N(* *)N(* Convert Numeric Text to G- or H-Floating Value *)N(* *)N(* The Convert Numeric Text to G- or H-Floating routines *)N(* convert an ASCII text string representation of a *)N(* nume ric value to a G_floating or H_floating value. *)N(* *) %[ASYNCHRONOUS] FUNCTION ots$cvt_t_g (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;5 VAR floating_point_value : [VOLATILE] G_FLOAT$$TYPE;2 %IMMED digits_in_fraction : UNSIGNED := %IMMED 0;+ %IMMED scale_factor : INTEGER := %IMMED 0;+ %IMMED flags_value : UNSIGNED := %IMMED 0;H VAR extension_bits : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_T_H *)N(* *)N(* Convert Numeric Text to G- or H-Floating Value *)N(* *)N(* The Convert Numeric Text to G- or H-Floating routines *)N(* convert an ASCII text string representation of a  *)N(* numeric value to a G_floating or H_floating value. *)N(* *) %[ASYNCHRONOUS] FUNCTION ots$cvt_t_h (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;1 VAR floating_point_value : [VOLATILE] QUADRUPLE;2 %IMMED digits_in_fraction : UNSIGNED := %IMMED 0;+ %IMMED scale_factor : INTEGER := %IMMED 0;+ %IMMED flags_value : UNSIGNED := %IMMED  0;H VAR extension_bits : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$DIVC *)N(* *)N(* Complex Division *)N(* *)N(* The Complex Division routines *)N(* return a complex result of a division on complex *)N(* numbers. *)N(* *)N(*ENTRY ots$divc ALIAS $ots_divc PARAMETER ( *)N(* F_FLOATING COMPLEX NAMED complex_dividend IN *)N(* TYPENAME f_floating_complex VALUE, *)N(* F_FLOATING COMPLEX NAMED complex_divisor IN *)N(* TYPENAME f_floating_complex VALUE ) *)N(* RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; *)N(* OTS$DIVCD_R3 *)N(* *)N(* Complex Division *)N(*  *)N(* The Complex Division routines *)N(* return a complex result of a division on complex *)N(* numbers. *)N(* *)N(*ENTRY ots$divcd_r3 ALIAS $ots_divcd_r3 PARAMETER ( *)N(* D_FLOATING COMPLEX NAMED complex_dividend IN *)N(* TYPENAME d_floating_complex VALUE, *)N(* D_FLOATING COMPLEX NAMED complex_divisor IN *)N(* TYPENAME d_floating_complex VALUE ) *)N(* RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; *)N(* OTS$DIVCG_R3 *)N(* *)N(* Complex Division  *)N(* *)N(* The Complex Division routines *)N(* return a complex result of a division on complex *)N(* numbers. *)N(* *)N(*ENTRY ots$divcg_r3 ALIAS $ots_divcg_r3 PARAMETER (  *)N(* G_FLOATING COMPLEX NAMED complex_dividend IN *)N(* TYPENAME g_floating_complex VALUE, *)N(* G_FLOATING COMPLEX NAMED complex_divisor IN *)N(* TYPENAME g_floatin_complex VALUE ) *)N(* RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; *)N(* OTS$DIVCS *)N(*  *)N(* Complex Division *)N(* *)N(* The Complex Division routines *)N(* return a complex result of a division on complex *)N(* numbers. *)N(*  *)N(* OTS$DIVCT_R3 *)N(* *)N(* Complex Division *)N(* *)N(* The Complex Division routines *)N(* return a complex result of a division on complex  *)N(* numbers. *)N(* *)N(* OTS$DIV_PK_LONG *)N(* *)N(* Packed Decimal Division with Long Divisor *)N(* *)N(* The Packed Decimal Division with Long Divisor routine *)N(* divides fixed-point decimal data, which is stored in packed *)S(* decimal form, when precision and scale requirements for the quotient call *)N(* for multiple precision division. The divisor must have a precision of *)N(* thirty or thirty-one digits. *)N(* *) )[ASYNCHRONOUS] FUNCTION ots$div_ pk_long (L %REF packed_decimal_dividend : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;K %REF packed_decimal_divisor : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;$ %IMMED divisor_precision : INTEGER;U %REF packed_decimal_quotient : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;% %IMMED quotient_precision : INTEGER;! %IMMED precision_data : INTEGER;2 %IMMED scale_data : INTEGER) : INTEGER; EXTERNAL; N(* OTS$DIV_PK_SHORT *)N(* *)N(* Packed Decimal Division with Short Divisor *)N(* *)N(* The Packed Decimal Division with Short Divisor routine *)N(* divides fixed-point decimal data *)N(* when precision and scale requirements for the quotient call for *)N(* multiple-precision d ivision. *)N(* *) *[ASYNCHRONOUS] FUNCTION ots$div_pk_short (L %REF packed_decimal_dividend : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;K %REF packed_decimal_divisor : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;$ %IMMED divisor_precision : INTEGER;U %REF packed_decimal_quotient : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE;% %IMMED quotient_precision : INTEGER;6 %IMMED precision_data : INTEGER) : INTEGER; EXTERNAL; N(* OTS$MOVE3 *)N(* *)N(* Move Data Without Fill *)N(* *)N(* The Move Data Without Fill routine *)N(* moves up to 231-1 bytes, (2,147,483,647 by tes) from a *)N(* specified source address to a specified destination address. *)N(* *) $[ASYNCHRONOUS] PROCEDURE ots$move3 ( %IMMED length_value : INTEGER;8 %REF source_array : ARRAY [$l2..$u2:INTEGER] OF $UBYTE;S %REF destination_array : [VOLATILE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE); EXTERNAL; N(* OTS$MOVE5 *)N(*  *)N(* Move Data with Fill *)N(* *)N(* The Move Data with Fill routine *)N(* moves up to 231-1 bytes, (2,147,483,647 bytes) from a *)N(* specified source address to a specified destination address, *)N(* with separate source and desti nation lengths, *)N(* and with fill. Overlap of the source and destination arrays *)N(* does not affect the result. *)N(* *) $[ASYNCHRONOUS] PROCEDURE ots$move5 (- %IMMED longword_int_source_length : INTEGER;8 %REF source_array : ARRAY [$l2..$u2:INTEGER] OF $UBYTE; %IMMED fill_value : INTEGER;+ %IMMED longword_int_dest_length : INTEGER ;S %REF destination_array : [VOLATILE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE); EXTERNAL; N(* OTS$MULC *)N(* *)N(* Complex Multiplication *)N(* *)N(* The Complex Multiplication routines *)N(* calculate the complex product of two complex *)N(* values. *)N(* *)N(*ENTRY ots$mulc ALIAS $ots_mulc PARAMETER ( *)N(* F_FLOATING COMPLEX NAMED complex_multiplier IN *)N(* TYPENAME f_floating_complex VALUE, *)N(* F_FLOATING COMPLEX NAMED complex_multiplicand IN *)N(* TYPENAME f_floating_complex VALUE ) *)N(* RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; *)N(* OTS$MULCD_R3 *)N(* *)N(* Complex Multiplication *)N(*  *)N(* The Complex Multiplication routines *)N(* calculate the complex product of two complex *)N(* values. *)N(* *)N(*ENTRY ots$mulcd_r3 ALIAS $ots_mulcd_r3 PARAMETER ( *)N(* D_FLOATING COMPLEX NAMED complex_multiplier IN *)N(* TYPENAME d_floating_complex VALUE, *)N(* D_FLOATING COMPLEX NAMED complex_multiplicand IN *)N(* TYPENAME d_floating_complex VALUE ) *)N(* RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; *)N(* OTS$MULCG_R3 *)N(* *)N(* Complex Multiplication  *)N(* *)N(* The Complex Multiplication routines *)N(* calculate the complex product of two complex *)N(* values. *)N(* *)N(*ENTRY ots$mulcg_r3 ALIAS $ots_mulcg_r3 PARAMETER (  *)N(* G_FLOATING COMPLEX NAMED complex_multiplier IN *)N(* TYPENAME g_floating_complex VALUE, *)N(* G_FLOATING COMPLEX NAMED complex_multiplicand IN *)N(* TYPENAME g_floating_complex VALUE ) *)N(* RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; *)N(* OTS$MULCS *)N(*  *)N(* Complex Multiplication *)N(* *)N(* The Complex Multiplication routines *)N(* calculate the complex product of two complex *)N(* values. *)N(*  *)N(* OTS$MULCT_R3 *)N(* *)N(* Complex Multiplication *)N(* *)N(* The Complex Multiplication routines *)N(* calculate the complex product of two complex  *)N(* values. *)N(* *)N(* OTS$CNVOUT *)N(* *)P(* Convert D_floating, G_floating or H_floating Number to Character String *)N(* *)N(*  The Convert Floating to Character String routines convert *)N(* a D_floating, G_floating or H_floating number *)N(* to a character string in *)N(* the FORTRAN E format. *)N(* *) $[ASYNCHRONOUS] FUNCTION ots$cnvout (- D_G_or_H_float_pt_input_val : D_FLOAT$$TYPE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;; %IMMED digits_in_fraction : UNSIGNED) : INTEGER; EXTERNAL; N(* OTS$CNVOUT_G *)N(* *)P(* Convert D_floating, G_floating or H_floating Number to Character String *)N(* *)N(* The Convert Floating to Character String routines convert *)N(* a D_floating, G_floating or H_floating number *)N(* to a character string in *)N(* the FORTRAN E format. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cnvout_g (- D_G_or_H_float_pt_input_val : G_FLOAT$$TYPE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;; %IMMED digits_in_fraction : UNSIGNED) : INTEGER; EXTERNAL; N(* OTS$CNVOUT_H *)N(* *)P(* Convert D_floating, G_floating or H_floating Number to Character String *)N(* *)N(* The Convert Floating to Character String routines convert  *)N(* a D_floating, G_floating or H_floating number *)N(* to a character string in *)N(* the FORTRAN E format. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cnvout_h () D_G_or_H_float_pt_input_val : QUADRUPLE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF C HAR;; %IMMED digits_in_fraction : UNSIGNED) : INTEGER; EXTERNAL; N(* OTS$CNVOUT_S *)N(* *)N(* Convert IEEE S_floatingto Character String *)N(* *)N(* The Convert Floating to Character String routines convert *)N(* a IEEE S_floating number to a character string in *)N(* the FORTRAN E format. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cnvout_s (* D_G_H_S_or_T_float_pt_input_val : SINGLE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;; %IMMED digits_in_fraction : UNSIGNED) : INTEGER; EXTERNAL; N(* OTS$CNVOUT_T  *)N(* *)N(* Convert IEEE T_floating Number to Character String *)N(* *)N(* The Convert Floating to Character String routines convert *)N(* a IEEE T_floating number to a character string in *)N(* the FORTRAN E format.  *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cnvout_t (1 D_G_H_S_or_T_float_pt_input_val : D_FLOAT$$TYPE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;; %IMMED digits_in_fraction : UNSIGNED) : INTEGER; EXTERNAL; N(* OTS$POWCC *)N(* *)N(* Raise a Complex Base to a Complex Floating-Point Exponent *)N(* *)O(* The Raise a Complex Base to a Complex Floating-Point Exponent routines *)N(* return the complex floating-point result of raising *)N(* a complex base to a complex exponent. *)N(* *)N(*ENTRY ots$powcc ALIAS $ots_powcc PARAMETER ( *)N(* F_FLOATING COMPLEX NAMED complex_base IN *)N(* TYPENAME f_floating_complex VALUE, *)N(* F_FLOATING COMPLEX NAMED complex_exponent_value IN *)N(* TYPENAME f_floating_complex VALUE ) *)N(* RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; *)N(* OTS$POWCDCD_R3  *)N(* *)N(* Raise a Complex Base to a Complex Floating-Point Exponent *)N(* *)N(* The Raise a Complex Base to a Complex Floating-Point Exponent routine *)N(* returns the complex result of raising *)N(* a complex base to a complex exponent. *)N(* *)N(*ENTRY ots$powcdcd_r3 ALIAS $ots_powcdcd_r3 PARAMETER ( *)N(* D_FLOATING COMPLEX NAMED complex_base IN *)N(* TYPENAME d_floating_complex VALUE, *)N(* D_FLOATING COMPLEX NAMED complex_exponent_value IN *)N(* TYPENAME d_floating_complex VALUE ) *)N(* RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; *)N(* OTS$POWCGCG_R3 *)N(* *)N(* Raise a Complex Base to a Complex Floating-Point Exponent *)N(* *)N(* The Raise a Complex Base to a Complex Floating-Point Exponent routine *)N(* returns the complex result of raising  *)N(* a complex base to a complex exponent. *)N(* *)N(*ENTRY ots$powcgcg_r3 ALIAS $ots_powcgcg_r3 PARAMETER ( *)N(* G_FLOATING COMPLEX NAMED complex_base IN *)N(* TYPENAME g_floating_complex VALUE, *)N(* G_FLOATING COMPLEX NAMED complex_exponent_value IN  *)N(* TYPENAME g_floating_complex VALUE ) *)N(* RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; *)N(* OTS$POWCSCS *)N(* *)N(* Raise a Complex Base to a Complex Floating-Point Exponent *)N(* *)N(* The Raise a Complex Base to a Complex Floating-Point Exponent routine *)N(* returns the complex result of raising *)N(* a complex base to a complex exponent. *)N(* *)N(* OTS$POWCTCT_R3 *)N(* *)N(* Raise a Complex Base to a Complex Floating-Point Exponent *)N(* *)N(* The Raise a Complex Base to a Complex Floating-Point Exponent routine *)N(* returns the complex result of raising *)N(* a complex base to a complex exponent. *)N(* *)N(* OTS$POWCJ  *)N(* *)N(* Raise a Complex Base to a Signed Longword Integer Exponent *)N(* *)N(* The Raise a Complex Base to a Signed Longword Integer Exponent *)N(* routine returns the complex result of raising a complex base to an *)N(* integer exponent. *)N(*  *)N(*ENTRY ots$powcj ALIAS $ots_powcj PARAMETER ( *)N(* F_FLOATING COMPLEX NAMED complex_base IN *)N(* TYPENAME f_floating_complex VALUE, *)N(* LONGWORD NAMED longword_integer_exponent IN *)N(* TYPENAME longword_signed VALUE ) *)N(* RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; *)N(* OTS$POWCDJ_R3 *)N(* *)N(* Raise a Complex Base to a Signed Longword Integer Exponent *)N(* *)N(* The Raise a Complex Base to a Signed Longword Integer Exponent *)N(* routine returns the complex result of raising a complex base to an *)N(* integer exponent. *)N(* *)N(*ENTRY ots$powcdj_r3 ALIAS $ots_powcdj_r3 PARAMETER ( *)N(* D_FLOATING COMPLEX NAMED complex_base IN *)N(* TYPENAME D_floating_complex VALUE, *)N(* LONGWORD NAMED longword_integer_exponent IN *)N(* TYPENAME longword_signed VALUE ) *)N(* RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; *)N(* OTS$POWCGJ_R3 *)N(* *)N(* Raise a Complex Base to a Signed Longword Integer Exponent *)N(* *)N(* The Raise a Complex Base to a Signed Longword Integer Exponent *)N(* routine returns the complex result of raising a complex base to an *)N(* integer exponent. *)N(* *)N(*ENTRY ots$powcgj_r3 ALIAS $ots_powcgj_r3 PARAMETER ( *)N(* G_FLOATING COMPLEX NAMED complex_base IN *)N(* TYPENAME g_floating_complex VALUE,  *)N(* LONGWORD NAMED longword_integer_exponent IN *)N(* TYPENAME longword_signed VALUE ) *)N(* RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; *)N(* OTS$POWCSJ *)N(* *)N(* Raise a Complex Base to a Signed Longword Integer Exponent *)N(*  *)N(* The Raise a Complex Base to a Signed Longword Integer Exponent *)N(* routine returns the complex result of raising a complex base to an *)N(* integer exponent. *)N(* *)N(* OTS$POWCTJ_R3 *)N(*  *)N(* Raise a Complex Base to a Signed Longword Integer Exponent *)N(* *)N(* The Raise a Complex Base to a Signed Longword Integer Exponent *)N(* routines return the complex result of raising a complex base to an *)N(* integer exponent. *)N(*  *)N(* OTS$POWDD *)N(* *)N(* Raise a D_floating Base to D_floating Exponent *)N(* *)N(* The Raise a D_floating Base to a D_floating Exponent routine *)S(* returns the D_floating result of raising a D_floating base to a D_floating *)N(* exponent. *)N(* *)N(*ENTRY ots$powdd ALIAS $ots_powdd PARAMETER ( *)N(* D_FLOATING NAMED D_floating_point_base IN *)N(* TYPENAME d_floating VALUE, *)N(* D_FLOATING NAMED D_floating_point_exponent IN *)N(* TYPENAME d_floating VALUE ) *)N(* RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; *)N(* OTS$POWDJ *)N(* *)N(* Raise a D_floating Base to a Longword Exponent *)N(* *)N(* The Raise a D_floating Base to a Longword Exponent routine *)\(* returns the D_floating result of raising a D_floating base to a longword exponent. *)N(* *)N(*ENTRY ots$powdj ALIAS $ots_powdj PARAMETER ( *)N(* D_FLOATING NAMED D_floating_point_base IN *)N(* TYPENAME d_floating VALUE, *)N(* LONGWORD NAMED longword_integer_exponent IN  *)N(* TYPENAME longword_signed VALUE ) *)N(* RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; *)N(* OTS$POWDR *)N(* *)N(* Raise a D_floating Base to an F_floating Exponent *)N(* *)N(* The Raise a D_floating Base to an F_floating Exponent routines *)N(* return the D_floating result of raising a D_floating base to an *)N(* F_floating exponent. *)N(* *)N(*ENTRY ots$powdr ALIAS $ots_powdr PARAMETER ( *)N(* D_FLOATING NAMED D_floating_point_base IN *)N(* TYPENAME d_floating VALUE,  *)N(* F_FLOATING NAMED F_floating_point_exponent IN *)N(* TYPENAME f_floating VALUE ) *)N(* RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; *)N(* OTS$POWGG *)N(* *)N(* Raise a G_floating Base to a G_floating Exponent  *)N(* *)N(* The Raise a G_floating Base to a G_floating Exponent routine *)](* returns the G_floating result of raising a G_floating base to a G_floating exponent. *)N(* *)N(*ENTRY ots$powgg ALIAS $ots_powgg PARAMETER ( *)N(* G_FLOATING NAMED G_floating_point_base IN *)N(* TYPENAME g_floating VALUE, *)N(* G_FLOATING NAMED G_floating_point_exponent IN *)N(* TYPENAME g_floating VALUE ) *)N(* RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; *)N(* OTS$POWTT *)N(* *)N(* Raise an IEEE T_floating Base to an IEEE T_floating Exponent *)N(* *)Q(* The Raise an IEEE T_floating Base to an IEEE T_floating Exponent routine *)O(* returns the IEEE T_floating result of raising an IEEE T_floating base *)N(* to an IEEE T_floating exponent. *)N(* *)N(*  *) #[ASYNCHRONOUS] FUNCTION ots$powtt (( %IMMED T_floating_point_base : INTEGER;G %IMMED T_floating_point_exponent : INTEGER) : D_FLOAT$$TYPE; EXTERNAL; N(* OTS$POWGJ *)N(* *)N(* Raise a G_floating Base to a Longword Exponent *)N(*  *)N(* The Raise a G_floating Base to a Longword Exponent routine *)[(* returns the G_floating result of raising a G_floating base to a longword exponent. *)N(* *)N(*ENTRY ots$powgj ALIAS $ots_powgj PARAMETER ( *)N(* G_FLOATING NAMED G_floating_point_base IN *)N(* TYPENAME g_floating VALUE, *)N(* LONGWORD NAMED longword_integer_exponent IN *)N(* TYPENAME longword_signed VALUE ) *)N(* RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; *)N(* OTS$POWTJ *)N(* *)N(* Raise an IEEE T_floating Base to a Longword Exponent *)N(*  *)N(* The Raise and IEEE T_floating Base to a Longword Exponent routine *)N(* returns the IEEE T_floating result of raising an IEEE T_floating *)N(* base to a longword exponent. *)N(* *) #[ASYNCHRONOUS] FUNCTION ots$powtj (( %IMMED T_floating_point_base : INTEGER;G %IMMED longword_integer_exponent : INTEGER) : D_FLOAT$$TYPE; EXTERNAL; N(* OTS$POWHH_R3 *)N(* *)N(* Raise an H_floating Base to an H_floating Exponent *)N(* *)N(* The Raise an H_floating Base to an H_floating Exponent *)N(* routine returns the H_floating result of raising an H_floating base *)N(* to an H_floating exponent. *)N(* *)N(*ENTRY ots$powhh_r3 ALIAS $ots_powhh_r3 PARAMETER ( *)N(* H_FLOATING NAMED H_floating_point_base IN *)N(* TYPENAME h_floating VALUE, *)N(* H_FLOATING NAMED H_floating_point_exponent IN *)N(* TYPENAME h_floating VALUE ) *)N(* RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; *)N(* OTS$POWHJ_R3 *)N(* *)N(* Raise an H_floating Base to an Longword Exponent *)N(* *)N(* The Raise an H_floating Base to a Longword Exponent *)N(* routine returns the H_floating result of raising an H_floating *)N(* base to a longword exponent. *)N(* *)N(*ENTRY ots$powhj_r3 ALIAS $ots_powhj_r3 PARAMETER ( *)N(* H_FLOATING NAMED H_floating_point_base IN *)N(* TYPENAME h_floating VALUE,  *)N(* LONGWORD NAMED longword_integer_exponent IN *)N(* TYPENAME longword_signed VALUE ) *)N(* RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; *)N(* OTS$POWII *)N(* *)N(* Raise a Word Base to a Word Exponent *)N(*  *)N(* The Raise a Word Base to a Word Exponent routine *)N(* returns the word result of raising a word base to a word exponent. *)N(* *) #[ASYNCHRONOUS] FUNCTION ots$powii ($ %IMMED word_integer_base : INTEGER;; %IMMED word_integer_exponent : INTEGER) : $WORD; EXTERNAL; N(* OTS$POWJJ  *)N(* *)N(* Raise a Longword Base to a Longword Exponent *)N(* *)N(* The Raise a Longword Base to a Longword Exponent routine *)N(* returns the longword result of raising a signed longword *)N(* base to a signed longword exponent. *)N(*  *) #[ASYNCHRONOUS] FUNCTION ots$powjj (( %IMMED longword_integer_base : INTEGER;A %IMMED longword_integer_exponent : INTEGER) : INTEGER; EXTERNAL; N(* OTS$POWLULU *)N(* *)N(* Raise an Unsigned Longword Base to an Unsigned Longword Exponent *)N(*  *)N(* The Raise an Unsigned Longword Base to an Unsigned Longword *)N(* Exponent routine returns the unsigned longword result of *)N(* raising an unsigned longword integer base to *)N(* an unsigned longword integer exponent. *)N(* *) %[ASYNCHRONOUS] FUNCTION ots$powlulu (+ %IMMED unsigned_l word_int_base : UNSIGNED;D %IMMED unsigned_lword_int_exponent : UNSIGNED) : INTEGER; EXTERNAL; N(* OTS$POWRD *)N(* *)N(* Raise an F_floating Base to D_floating Exponent *)N(* *)N(* The Raise an F_floating Base to a D_floating Exponent *)N(*  routine returns the F_floating result of raising an *)N(* F_floating base to a D_floating exponent. *)N(* *)N(*ENTRY ots$powrd ALIAS $ots_powrd PARAMETER ( *)N(* F_FLOATING NAMED F_floating_point_base IN *)N(* TYPENAME f_floating VALUE, *)N(* D_FLOATING NAMED D_floating_point_exponent IN *)N(* TYPENAME d_floating VALUE ) *)N(* RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; *)N(* OTS$POWRJ *)N(* *)N(* Raise an F_floating Base to a Longword Exponent *)N(*  *)N(* The Raise an F_floating Base to a Longword Exponent *)N(* routine returns the F_floating result of raising an *)N(* F_floating base to a longword exponent. *)N(* *) #[ASYNCHRONOUS] FUNCTION ots$powrj (( %IMMED F_floating_point_base : INTEGER;@ %IMMED longword_integer_exponent : INTEGER) : SINGLE; EXTERNAL; N(* OTS$POWSJ *)N(* *)N(* Raise an IEEE S_floating Base to a Longword Exponent *)N(* *)N(* The Raise an IEEE S_floating Base to a Longword Exponent routine *)O(* returns the IEEE S_floating result of raising an IEEE S_floating base *)N(* to a longword exponent.  *)N(* *) #[ASYNCHRONOUS] FUNCTION ots$powsj (( %IMMED S_floating_point_base : INTEGER;@ %IMMED longword_integer_exponent : INTEGER) : SINGLE; EXTERNAL; N(* OTS$POWRR *)N(* *)N(* Raise an F_floating Base to F_floating Exponent *)N(* *)N(* The Raise an F_floating Base to an F_floating Exponent *)N(* routine returns the F_floating result of raising an F_floating *)N(* base to an F_floating exponent. *)N(* *) #[ASYNCHRONOUS] FUNCTION ots$powrr (( %IMMED F_floating_point_base : INTEGER;@ %IMME D F_floating_point_exponent : INTEGER) : SINGLE; EXTERNAL; N(* OTS$POWSS *)N(* *)N(* Raise an IEEE S_floating Base to IEEE S_floating Exponent *)N(* *)N(* The Raise an IEEE S_floating Base to IEEE S_floating Exponent *)N(* routines retursn the IEEE S_floating  result of raising *)N(* an IEEES_floating base to an IEEE S_floating exponent. *)N(* *) #[ASYNCHRONOUS] FUNCTION ots$powss (( %IMMED S_floating_point_base : INTEGER;@ %IMMED S_floating_point_exponent : INTEGER) : SINGLE; EXTERNAL; N(* OTS$POWRLU *)N(*  *)N(* Raise a Floating-Point Base to an Unsigned Longword Integer Exponent *)N(* *)N(* The Raise a Floating-Point Base to an Unsigned Longword Integer *)N(* Exponent routines returns the floating-point result of raising *)N(* a floating-point base to an unsigned longword integer exponent. *)N(* *) $[ASYNCHRONOUS] F  UNCTION ots$powrlu (& %IMMED floating_point_base : INTEGER;C %IMMED unsigned_lword_int_exponent : UNSIGNED) : SINGLE; EXTERNAL; N(* OTS$POWDLU *)N(* *)N(* Raise a D-Floating Base to an Unsigned Longword Integer Exponent *)N(* *)N(* The Raise a D-Floating Base to an Unsigned L ongword Integer *)N(* Exponent routines returns the D-Floating result of raising *)N(* a D-Floating base to an unsigned longword integer exponent. *)N(* *)N(*ENTRY ots$powdlu ALIAS $ots_powdlu PARAMETER ( *)N(* D_FLOATING NAMED floating_point_base IN *)N(* TYPENAME d_floating VALUE,  *)N(* LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN *)N(* TYPENAME longword_unsigned VALUE ) *)N(* RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; *)N(* OTS$POWGLU *)N(* *)N(* Raise a G_floating Base to an Unsigned Longword Integer Exponent *)N(*  *)N(* The Raise a G-Floating Base to an Unsigned Longword Integer *)N(* Exponent routines returns the G-Floating result of raising *)N(* a G-Floating base to an unsigned longword integer exponent. *)N(* *)N(*ENTRY ots$powglu ALIAS $ots_powglu PARAMETER ( *)N(* G_FLOATING NAMED floating_point_base IN  *)N(* TYPENAME g_floating VALUE, *)N(* LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN *)N(* TYPENAME longword_unsigned VALUE ) *)N(* RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; *)N(* OTS$POWSLU *)N(* *)O(* Raise an IEEE S-Floating Base to an Unsigned Longword Integer Exponent *)N(* *)N(* The Raise an IEEE S-Floating Base to an Unsigned routines returns the *)N(* IEEE S-flloating result of raising an IEEE S-Floating base to an *)N(* unsigned longword integer exponent. *)N(* *) $[ASYNCHRONOUS] FUNCTION ots$powslu (& %IMMED floating_point_base : INTEGER;C %IMMED unsigned_lword_int_exponent : UNSIGNED) : SINGLE; EXTERNAL; N(* OTS$POWTLU *)N(* *)O(* Raise an IEEE T-Floating Base to an Unsigned Longword Integer Exponent *)N(* *)N(* The Raise and IEEE T-Floating Base to an Unsigned Longword Integer *)N(* Exponent routines returns the IEEE T-Floating result of raising *)N(* an IEEE T-Floating base to an unsigned longword integer exponent. *)N(* *) $[ASYNCHRONOUS] FUNCTION ots$powtlu (& %IMMED floating_point_base : INTEGER;J %IMMED unsigned_lword_int_exponent : UNSIGNED) : D_FLOAT$$TYPE; EXTERNAL; N(* OTS$POWHLU_R3  *)N(* *)N(* Raise an H-Floating Base to an Unsigned Longword Integer Exponent *)N(* *)N(* The Raise an H-Floating Base to an Unsigned Longword Integer *)N(* Exponent routine returns the H-Floating result of raising *)N(* an H-Floating base to an unsigned longword integer exponent. *)N(*  *)N(*ENTRY ots$powhlu_r3 ALIAS $ots_powhlu_r3 PARAMETER ( *)N(* H_FLOATING NAMED floating_point_base IN *)N(* TYPENAME h_floating VALUE, *)N(* LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN *)N(* TYPENAME longword_unsigned VALUE ) *)N(* RETURNS H_FLOATING NAMED RESULT TYPENA ME h_floating; *)N(* OTS$SCOPY_DXDX *)N(* *)N(* Copy a Source String Passed by Descriptor to a Destination String *)N(* *)O(* The Copy a Source String Passed by Descriptor to a Destination String *)N(* routine  *)N(* copies a source string to a destination string. Both strings are *)N(* passed by descriptor. *)N(* *) ([ASYNCHRONOUS] FUNCTION ots$scopy_dxdx (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;i VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : $UWORD; EXTERNAL; N(* OTS$SCOPY_R_DX  *)N(* *)N(* Copy a Source String Passed by Reference to a Destination String *)N(* *)N(* The Copy a Source String Passed by Reference to a Destination String *)N(* routine copies a source string passed by reference to a destination *)N(* string.  *)N(* *) ([ASYNCHRONOUS] FUNCTION ots$scopy_r_dx (- %IMMED word_int_source_length_val : INTEGER;F %REF source_string_address : PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;i VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : $UWORD; EXTERNAL; N(* OTS$SFREE1_DD *)N(*  *)N(* Strings, Free One Dynamic *)N(* *)N(* The Free One Dynamic String routine *)N(* returns one dynamic string area to free storage. *)N(* *) ([ASYNCHRONOUS] PROCEDURE ots$sfree1_dd (7 VAR dynamic_descr iptor : [VOLATILE] $UQUAD); EXTERNAL; N(* OTS$SFREEN_DD *)N(* *)N(* Strings, Free n Dynamic *)N(* *)N(* The Free n Dynamic Strings routine *)N(* takes as input a vector of one or more dynamic string ar  eas and *)N(* returns them to free storage. *)N(* *) ([ASYNCHRONOUS] PROCEDURE ots$sfreen_dd (* %IMMED descriptor_count_value : UNSIGNED;5 VAR first_descriptor : [VOLATILE] $UQUAD); EXTERNAL; N(* OTS$SGET1_DD *)N(* *)N(* Strings, Get One Dynamic *)N(* *)N(* The Get One Dynamic String routine *)N(* allocates a specified number of bytes of dynamic virtual *)N(* memory to a specified string descriptor. *)N(* *) '[ASYNCHRONOUS] PROCEDURE ots$sget1_dd ( , %IMMED word_integer_length_value : INTEGER;7 VAR dynamic_descriptor : [VOLATILE] $UQUAD); EXTERNAL; N(* OTS$CVT_L_TB *)N(* *)N(* Convert an Unsigned Integer to Binary Text *)N(* *)N(* The Convert an Unsigned Integer to Binary Text routine  *)N(* converts an unsigned integer value of arbitrary length to *)Q(* binary representation in an ASCII text string. By default, a longword is *)N(* converted. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_l_tb (H %REF varying_input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACK  ED ARRAY [$l2..$u2:INTEGER] OF CHAR;/ %IMMED number_of_digits : INTEGER := %IMMED 0;D %IMMED input_value_size : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_L_TI *)N(* *)N(* Convert Signed Integer to Decimal Text *)N(* *)N(* The Convert Signed Integer to Decimal Text routine *)N(* converts a signed integer to a decimal ASCII text string. This *)R(* routine supports FORTRAN Iw and Iw.m output and BASIC output conversion. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_l_ti (H %REF varying_input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER]  OF CHAR;/ %IMMED number_of_digits : INTEGER := %IMMED 0;/ %IMMED input_value_size : INTEGER := %IMMED 0;@ %IMMED flags_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_L_TL *)N(* *)N(* Convert Integer to Logical Text *)N(* *)N(*  The Convert Integer to Logical Text routine *)N(* converts an integer to an ASCII text string representation *)N(* using FORTRAN L (logical) format. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_l_tl (" longword_integer_value : INTEGER;u VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTE  RNAL; N(* OTS$CVT_L_TO *)N(* *)N(* Convert Unsigned Integer to Octal Text *)N(* *)N(* The Convert Unsigned Integer to Octal Text routine *)N(* converts an unsigned integer to an octal ASCII text string. *)N(* OTS$CVT_  L_TO supports FORTRAN Ow and Ow.m output conversion formats. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_l_to (H %REF varying_input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;/ %IMMED number_of_digits : INTEGER := %IMMED 0;D %IMMED input_value_size : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_L_TU  *)N(* *)N(* Convert Unsigned Integer to Decimal Text *)N(* *)N(* The Convert Unsigned Integer to Decimal Text routine *)N(* converts a byte, word or longword value to unsigned decimal *)N(* representation in an ASCII text string.  By default, a longword is *)N(* converted. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_l_tu (H %REF varying_input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;/ %IMMED number_of_digits : INTEGER := %IMMED 0;D %IMMED input_value_size : INTEGER := %IMMED 0 ) : INTEGER; EXTERNAL; N(* OTS$CVT_L_TZ *)N(* *)N(* Convert Integer to Hexadecimal Text *)N(* *)N(* The Convert Integer to Hexadecimal Text routine *)N(* converts an unsigned integer to a hexadecimal ASCII text *)! N(* string. OTS$CVT_L_TZ supports FORTRAN Zw and Zw.m output conversion *)N(* formats. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_l_tz (H %REF varying_input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;` VAR fixed_length_resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;/ %IMMED number_of_digits : INTEGER := %IMMED 0;" D %IMMED input_value_size : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_TB_L *)N(* *)N(* Convert Binary Text to Unsigned Integer *)N(* *)N(* The Convert Binary Text to Unsigned Integer routine *)N(* converts an ASCII text s # tring representation of an unsigned *)S(* binary value to an unsigned integer value of arbitrary length. By default, *)O(* the result is a longword. Valid input characters are the blank and the *)N(* digits 0 and 1. No sign is permitted. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_tb_l (B input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;R %REF varying_ou$ tput_value : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;0 %IMMED output_value_size : INTEGER := %IMMED 0;@ %IMMED flags_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_TI_L *)N(* *)N(* Convert Signed Integer Text to Integer *)N(* *)% N(* The Convert Signed Integer Text to Integer routine *)N(* converts an ASCII text string representation of a decimal *)N(* number to a signed byte, word, or longword integer value. *)N(* The result is a longword by *)N(* default, but the calling program can specify a byte or a word value *)N(* instead. *)N(* & *) &[ASYNCHRONOUS] FUNCTION ots$cvt_ti_l (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;R %REF varying_output_value : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;0 %IMMED output_value_size : INTEGER := %IMMED 0;@ %IMMED flags_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_TL_L *)N(* ' *)N(* Convert Logical Text to Integer *)N(* *)N(* The Convert Logical Text to Integer routine *)N(* converts an ASCII text string representation of a FORTRAN-77 L *)W(* format to a byte, word, or longword integer value. The result is a longword by *)N(* default, but the calling program can specify a ( byte or a word value *)N(* instead. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_tl_l (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;R %REF varying_output_value : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;E %IMMED output_value_size : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_TO_L ) *)N(* *)N(* Convert Octal Text to Signed Integer *)N(* *)N(* The Convert Octal Text to Signed Integer routine *)N(* converts an ASCII text string representation of an *)Q(* octal value to an signed integer of an arbitrary * length. The result is a *)O(* longword by default, but the calling program can specify a byte, word, *)N(* or longword. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_to_l (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;R %REF varying_output_value : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;0 %IMMED output_value + _size : INTEGER := %IMMED 0;@ %IMMED flags_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_TU_L *)N(* *)N(* Convert Unsigned Decimal Text to Integer *)N(* *)N(* The Convert Unsigned Decimal Text to Integer routine *)N(* , converts an ASCII text string representation of an unsigned *)T(* decimal value to an unsigned byte, word, or longword value. By default, the *)T(* result is a longword. Valid input characters are the space and the digits 0 *)N(* through 9. No sign is permitted. *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_tu_l (O fixed_length_input_string : [CLASS_S] PACKED ARRAY [$l1 - ..$u1:INTEGER] OF CHAR;R %REF varying_output_value : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;0 %IMMED output_value_size : INTEGER := %IMMED 0;@ %IMMED flags_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* OTS$CVT_TZ_L *)N(* *)N(* Convert Hexadecimal Text to Unsigned Integer *)N(* . *)N(* The Convert Hexadecimal Text to Unsigned Integer routine *)N(* converts an ASCII text string representation of an unsigned *)N(* hexadecimal value to an unsigned integer of an arbitrary length. *)Q(* The result is a longword by default, but the calling program can specify *)N(* a byte, word, or longword *)N(* value. / *)N(* *) &[ASYNCHRONOUS] FUNCTION ots$cvt_tz_l (S fixed_or_dynamic_input_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;R %REF varying_output_value : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;0 %IMMED output_value_size : INTEGER := %IMMED 0;@ %IMMED flags_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END.  *) END.ww(PASCAL$LIB_ROUTINESSTARLET2 n6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$PPL_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with 3 FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio4 ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ 5 }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP6 = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; 7 # $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..8 33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE PPL$DEF ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; 9 *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.: .65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE; C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; < *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;= *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 => [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; ? *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 @ 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE PPL$DEF ***) N(* Definitions for RTL Parallel Processing Facility - PPL *)N(* *)N(* Pre-defined event ids. *)N(* *) LCONST PPL$K_ABNORMAL_EXIT = -2; A (* abnormal participant termination *)G PPL$K_NORMAL_EXIT = -1; (* normal participant termination *) N(* *)N(* Shared memory options flags. *)N(* *) CONST PPL$M_NOZERO = 1; PPL$M_NOWRT = 2; PPL$M_FLUSH = 4; PPL$M_NOUNI = 8; PPL$m_mopt_spare = -16; TYPE mem_options$TYPE B = RECORDG PPL$V_NOZERO : [POS(0)] $BOOL; (* not demand-zero *)G PPL$V_NOWRT : [POS(1)] $BOOL; (* read-only *)G PPL$V_FLUSH : [POS(2)] $BOOL; (* write to disk *)G PPL$V_NOUNI : [POS(3)] $BOOL; (* non-unique name not requested *)G PPL$v_mopt_spare : [POS(4)] $BIT28; (* extra bits *) END; N(* *)N(* Processing options flags. C *)N(* *) CONST PPL$M_INIT_SYNCH = 1; PPL$M_NODEBUG = 2; PPL$M_STOP_CHILDREN = 4; PPL$M_NON_BLOCKING = 8; PPL$M_NOTIFY_ONE = 16; PPL$M_SPIN_WAIT = 32; PPL$M_FORMONLY = 64; PPL$M_JOINONLY = 128; PPL$M_PERM = 256; PPL$M_SYSTEM = 512; PPL$M_DELETEALL = 1024; PPL$M_TAILFIRST = 2048; PPL$M_ATHEAD = 4096; PPL$M_FROMTAIL = 8192; PPL$M_FORCEDEL = 16384; PD PL$M_NOCLISYM = 32768; PPL$M_NOLOGNAM = 65536; PPL$M_NOKEYPAD = 131072; PPL$M_NOTIFY = 262144; PPL$M_NOCONTROL = 524288; PPL$M_CALL_UNIQUE = 1048576; PPL$M_PROC_UNIQUE = 2097152; PPL$M_SPIN_COUNTED = 4194304;" PPL$M_NOSAVE_PROC_INFO = 8388608; PPL$M_IGNORE_EXITS = 16777216; PPL$m_popt_spare = -33554432; TYPE proc_options$TYPE = RECORDO PPL$V_INIT_SYNCH : [POS(0)] $BOOL; (* parent blocks until children init *)G PPL$V_NODEBUG : [POS(1)] $BOOL; (* disable DEBUG E *)U PPL$V_STOP_CHILDREN : [POS(2)] $BOOL; (* stop children of terminating process *)T PPL$V_NON_BLOCKING : [POS(3)] $BOOL; (* don't block if semaphore unavailable *)O PPL$V_NOTIFY_ONE : [POS(4)] $BOOL; (* notify only one enabler for event *)G PPL$V_SPIN_WAIT : [POS(5)] $BOOL; (* spin rather than $HIBER *)O PPL$V_FORMONLY : [POS(6)] $BOOL; (* Only form (do not join) a new appl. *)O PPL$V_JOINONLY : [POS(7)] $BOOL; (* Only join (do not form) a new appl.F *)G PPL$V_PERM : [POS(8)] $BOOL; (* Create a permanent application *)J PPL$V_SYSTEM : [POS(9)] $BOOL; (* Create a system-wide application *)Q PPL$V_DELETEALL : [POS(10)] $BOOL; (* Delete all corresponding work items *)G PPL$V_TAILFIRST : [POS(11)] $BOOL; (* Delete from tail of queue *)G PPL$V_ATHEAD : [POS(12)] $BOOL; (* Insert at the head of queue *)G PPL$V_FROMTAIL : [POS(13)] $BOOL; (* Remove from tail of queue *)I PPL$V_FORCEDEL : [POS(14)] $BOOL; (* FoG rce deletion of work queue *)P PPL$V_NOCLISYM : [POS(15)] $BOOL; (* Do not inherit parent's CLI symbols *)M PPL$V_NOLOGNAM : [POS(16)] $BOOL; (* Do not inherit parent's logicals *)Q PPL$V_NOKEYPAD : [POS(17)] $BOOL; (* Inherit parent's keypad state & defs *)O PPL$V_NOTIFY : [POS(18)] $BOOL; (* Broadcast message on child terminate *)R PPL$V_NOCONTROL : [POS(19)] $BOOL; (* No carriage control prefix on prompt *)H PPL$V_CALL_UNIQUE : [POS(20)] $BOOL; (* Request call uniq H ue name *)K PPL$V_PROC_UNIQUE : [POS(21)] $BOOL; (* Request process unique name *)U PPL$V_SPIN_COUNTED : [POS(22)] $BOOL; (* Spin for counted period before hiber *). PPL$V_NOSAVE_PROC_INFO : [POS(23)] $BOOL;* PPL$V_IGNORE_EXITS : [POS(24)] $BOOL;G PPL$v_popt_spare : [POS(25)] $BIT7; (* extra bits *) END; N(* END. *) N(* MODULE PPL$ROUTINES ; I *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END;J *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFEK ] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = L [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; M *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..655N 35; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23O = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; P *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE ppl$routines ***) P(**************************************************************************** *)(* * *)4(* COPYRIGHT (c) 1988 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. Q * *)&(* ALL RIGHTS RESERVED. * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. R * *)(* * *)P(* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(***************************************************S ************************* *)N(* PPL$ADJUST_SEMAPHORE_MAXIMUM *)N(* *)N(* Adjust a Semaphore Maximum *)N(* *)T(* The Adjust a Semaphore Maximum routine increments or decrements the maximum *)N(* associated with a semaphore. T *)N(* *) 6[ASYNCHRONOUS] FUNCTION ppl$adjust_semaphore_maximum ( semaphore_id : UNSIGNED;% amount : $WORD) : INTEGER; EXTERNAL; N(* PPL$ADJUST_QUORUM *)N(* *)N(* Adjust Barrier Quorum *)N(* U *)N(* The Adjust Barrier Quorum routine increments or decrements the quorum *)N(* associated with a barrier. *)N(* *) +[ASYNCHRONOUS] FUNCTION ppl$adjust_quorum ( barrier_id : UNSIGNED;% amount : $WORD) : INTEGER; EXTERNAL; N(* PPL$AWAIT_EVENT *)N(* V *)N(* Await Event Occurrence *)N(* *)N(* The Await Event Occurrence routine blocks the caller until an event *)N(* occurs. *)N(* *) )[ASYNCHRONOUS] FUNCTION ppl$await_event ( event_i W d : UNSIGNED;C VAR output : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CREATE_APPLICATION *)N(* *)N(* Form or Join a PPL$ Application *)N(* *)O(* The Form or Join a PPL$ Application routine informs the PPL$ facility *)O(* that the X calling process is forming or joining a parallel application. *)N(* *) 0[ASYNCHRONOUS] FUNCTION ppl$create_application ( size : UNSIGNED := %IMMED 0;R application_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;# protection : UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CREATE_BARRIER *)N(* Y *)N(* Create a Barrier *)N(* *)N(* The Create a Barrier routine creates and initializes a *)N(* barrier, and returns the barrier identifier. *)N(* You use the barrier identifier to perform all operations on that *)N(* barrier. Z *)N(* *) ,[ASYNCHRONOUS] FUNCTION ppl$create_barrier (& VAR barrier_id : [VOLATILE] UNSIGNED;N barrier_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;1 quorum : $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CREATE_EVENT *)N(* *)[ N(* Create an Event *)N(* *)N(* The Create an Event routine creates an arbitrary user-defined event *)N(* and returns the event identifier. You use the event identifier to *)N(* perform all operations on that event. *)N(* *) *[ASYNCHRONOUS] FUNCT \ ION ppl$create_event ($ VAR event_id : [VOLATILE] UNSIGNED;a event_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CREATE_SPIN_LOCK *)N(* *)N(* Create Spin Lock *)N(* *)N(* The Create Spi ] n Lock routine creates and initializes a simple (spin) *)P(* lock, and returns the lock identifier. You use that lock identifier to *)N(* get and free the lock. *)N(* *) .[ASYNCHRONOUS] FUNCTION ppl$create_spin_lock (# VAR lock_id : [VOLATILE] UNSIGNED;` lock_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CR^ EATE_SHARED_MEMORY *)N(* *)N(* Create Shared Memory *)N(* *)N(* The Create Shared Memory routine creates (if necessary) and maps a *)N(* section of memory that can be shared by multiple processes. *)N(* _ *) 2[ASYNCHRONOUS] FUNCTION ppl$create_shared_memory (B section_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;D %REF memory_area : [VOLATILE] ARRAY [$l2..$u2:INTEGER] OF UNSIGNED; flags : UNSIGNED := %IMMED 0;K file_name : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;8 protection : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CREATE_WORK_QUEUE *)N(* ` *)N(* Create a Work Queue *)N(* *)R(* The Create a Work Queue routine creates and initializes a work queue, and *)N(* returns the work queue identifier. *)N(* *) /[ASYNCHRONOUS] FUNCTION ppl$create_w a ork_queue ($ VAR queue_id : [VOLATILE] UNSIGNED;a queue_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CREATE_SEMAPHORE *)N(* *)N(* Create a Semaphore *)N(* *)N(* The Create a Semaphore r b outine creates and initializes a *)N(* semaphore with a waiting queue, and returns the semaphore identifier. *)N(* You use the semaphore identifier to perform all operations on that *)N(* semaphore. *)N(* *) .[ASYNCHRONOUS] FUNCTION ppl$create_semaphore (( VAR semaphore_id : [VOLATILE] UNSIGNED;P semaphore_name : [CLASS_S] PACKED ARRAY [ c $l2..$u2:INTEGER] OF CHAR := %IMMED 0;' semaphore_maximum : $WORD := %IMMED 0;< semaphore_initial : $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$CREATE_VM_ZONE *)N(* *)N(* Create a New Virtual Memory Zone *)N(* *)N(* The Create a New Virtual Memory d Zone routine creates a new storage *)N(* zone, according to specified arguments, which is available to all *)N(* participants in the application. *)N(* *) ,[ASYNCHRONOUS] FUNCTION ppl$create_vm_zone (# VAR zone_id : [VOLATILE] UNSIGNED;! algorithm : INTEGER := %IMMED 0;* algorithm_argument : INTEGER := %IMMED 0; flags : UNSIGNED := %IMMED 0;# extend_size : INTEGER : e = %IMMED 0;$ initial_size : INTEGER := %IMMED 0;" block_size : INTEGER := %IMMED 0;! alignment : INTEGER := %IMMED 0;" page_limit : INTEGER := %IMMED 0;+ smallest_block_size : INTEGER := %IMMED 0;b zone_name : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$DELETE_APPLICATION *)N(* *)N(* Delete a PPL$ Application f *)N(* *)N(* The Delete a PPL$ Application routine marks all shared memory for *)Q(* deletion and prevents additional processes from joining the application. *)N(* *) C[ASYNCHRONOUS] FUNCTION ppl$delete_application : INTEGER; EXTERNAL; N(* PPL$DECREMENT_SEMAPHORE g *)N(* *)N(* Decrement a Semaphore *)N(* *)N(* The Decrement a Semaphore routine waits for a semaphore to have a *)N(* value greater than 0, then decrements the value *)N(* by 1 to indicate the allocation of a resource. *)N(* h *) 1[ASYNCHRONOUS] FUNCTION ppl$decrement_semaphore ( semaphore_id : UNSIGNED;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$DISABLE_EVENT *)N(* *)N(* Disable Asynchronous Notification of an Event *)N(* i *)Y(* The Disable Asynchronous Notification of an Event routine disables delivery to a *)N(* process of notification of an event by either AST or signal. *)N(* *) +[ASYNCHRONOUS] FUNCTION ppl$disable_event (* event_id : UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$DELETE_WORK_ITEM *)N(* j *)N(* Delete a Work Queue Item *)N(* *)N(* The Delete a Work Queue Item routine deletes a work item from a work *)N(* queue. *)N(* *) .[ASYNCHRONOUS] FUNCTION ppl$delete_work_item ( queue_id : UNSIGNED k ; %IMMED work_item : UNSIGNED;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$DELETE_SHARED_MEMORY *)N(* *)N(* Delete Shared Memory *)N(* *)N(* The Delete Shared Memory routine deletes or unmaps from a global *)N(* sectio l n that you created using the PPL$CREATE_SHARED_MEMORY routine. *)N(* Optionally, this routine writes the contents of the global section to *)N(* disk before deleting the section. *)N(* *) 2[ASYNCHRONOUS] FUNCTION ppl$delete_shared_memory (B section_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;E %REF memory_area : ARRAY [$l2..$u2:INTEGER] OF UNSIGNED := %IMMED 0;3 fm lags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$DELETE_WORK_QUEUE *)N(* *)N(* Delete a Work Queue *)N(* *)W(* The Delete a Work Queue routine deletes the specified work queue, and releases *)N(* any storage associated with it. n *)N(* *) /[ASYNCHRONOUS] FUNCTION ppl$delete_work_queue (! queue_id : UNSIGNED := %IMMED 0;L queue_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$ENABLE_EVENT_AST *)N(* *)No (* Enable AST Notification of an Event *)N(* *)Q(* The Enable AST Notification of an Event routine specifies the address of *)T(* an AST routine (and optionally an argument to that routine) to be delivered *)N(* when an event occurs. *)N(* *) .[ASYNCHRONOU p S] FUNCTION ppl$enable_event_ast ( event_id : UNSIGNED;1 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE astadr;C %IMMED astprm : [UNSAFE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$ENABLE_EVENT_SIGNAL *)N(* *)N(* Enable Signal Notification of an Event *)N(* *)N q (* The Enable Signal Notification of an Event routine specifies a *)N(* condition value to be signaled when the event occurs. *)N(* *) 1[ASYNCHRONOUS] FUNCTION ppl$enable_event_signal ( event_id : UNSIGNED;A %IMMED signal_value : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$FLUSH_SHARED_MEMORY *)N(* r *)N(* Flush Shared Memory *)N(* *)N(* The Flush Shared Memory routine writes (flushes) to disk the contents *)P(* of a global section that you created using the PPL$CREATE_SHARED_MEMORY *)N(* routine. Only pages that have been modified are flushed to disk. *)N(* s *) 1[ASYNCHRONOUS] FUNCTION ppl$flush_shared_memory (B section_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;E %REF memory_area : ARRAY [$l2..$u2:INTEGER] OF UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$FIND_OBJECT_ID *)N(* *)N(* Find Object Identification t *)N(* *)N(* Given the name of a spin lock, semaphore, barrier, event, work queue, *)N(* or shared memory zone, the Find Object Identification routine returns *)N(* the identifier of the object associated with the name you specify. *)N(* *) ,[ASYNCHRONOUS] FUNCTION ppl$find_object_id (% VAR object_id : [VOLATILE] UNSIGNED;V objecu t_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* PPL$FIND_SYNCH_ELEMENT_ID *)N(* *)N(* Find *)N(* *)N(* Given the name of a spin lock, semaphore, barrier, or event, the *)N(* Find Synchroni v zation Element Identification routine returns the *)N(* identifier of the associated synchronization element. *)N(* *) 3[ASYNCHRONOUS] FUNCTION ppl$find_synch_element_id (& VAR element_id : [VOLATILE] UNSIGNED;W element_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* PPL$GET_INDEX *)N(* w *)N(* Get Index of a Participant *)N(* *)O(* The Get Index of a Participant routine returns an index that is unique *)O(* within the application. A value of zero signifies the participant that *)N(* formed the application. The other participants in the application *)N(* always return an index greater x than zero. *)N(* *) '[ASYNCHRONOUS] FUNCTION ppl$get_index (B VAR participant_index : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$INSERT_WORK_ITEM *)N(* *)N(* Insert a Work Queue Item *)N(* y *)Y(* The Insert a Work Queue Item routine inserts a work item into the specified work *)N(* queue. *)N(* *) .[ASYNCHRONOUS] FUNCTION ppl$insert_work_item ( queue_id : UNSIGNED; %IMMED work_item : UNSIGNED; flags : UNSIGNED := %IMMED 0;5 priority : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; z N(* PPL$INCREMENT_SEMAPHORE *)N(* *)N(* Increment a Semaphore *)N(* *)P(* The Increment a Semaphore routine increments the value of the semaphore *)N(* by 1, analogous to the signal protocol. If any other participants *)N(* are blocked on a { call to PPL$DECREMENT_SEMAPHORE for this semaphore, *)N(* one is removed from the queue and awakened. *)N(* The semaphore must have been created by PPL$CREATE_SEMAPHORE. *)N(* *) 1[ASYNCHRONOUS] FUNCTION ppl$increment_semaphore (. semaphore_id : UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$INDEX_TO_PID *)N(* | *)N(* Convert Participant Index to VMS PID *)N(* *)N(* The Convert Participant Index to VMS PID routine returns the VMS PID *)N(* of the process associated with the specified index. *)N(* *) *[ASYNCHRONOUS] FUNCTION ppl$index_to_pid ( }  participant_index : UNSIGNED;4 VAR pid : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$INITIALIZE *)N(* *)N(* Initialize the PPL$ Facility *)N(* *)T(* The Initialize the PPL$ Facility routine informs the PPL$ facility that the *)N(* ca ~ ller is forming or joining the parallel application. Calling this *)N(* routine is optional, because PPL$ initializes itself at the *)N(* first call to a PPL$ routine. *)N(* *) ([ASYNCHRONOUS] FUNCTION ppl$initialize (2 size : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$PID_TO_INDEX *)N(*  *)N(* Convert VMS PID to Participant Index *)N(* *)R(* The Convert VMS PID to Participant Index routine returns the PPL$-defined *)N(* participant index of the process associated with the *)N(* specified VMS PID. *)N(* *) *[ASYNCHRONOUS] FUNCTION ppl$pid_to_index ( pid : UNSIGNED;B VAR participant_index : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$READ_BARRIER *)N(* *)N(* Read a Barrier *)N(* *)V(* The Read a Barrier routine returns the specified barrier's current quorum and *)T(* the number of participants currently waiting (blocked) at the barrier. The *)N(* barrier must have been created by PPL$CREATE_BARRIER. *)N(* *) *[ASYNCHRONOUS] FUNCTION ppl$read_barrier ( barrier_id : UNSIGNED; VAR quorum : [VOLATILE] $WORD;5 VAR waiters : [VOLATILE] $WORD) : INTEGER; EXTERNAL; N(*  PPL$READ_EVENT *)N(* *)N(* Read an Event State *)N(* *)T(* The Read an Event State routine returns the current state of the specified *)N(* event. *)N(* The state can be not _occurred or not_occurred. *)N(* *) ([ASYNCHRONOUS] FUNCTION ppl$read_event ( event_id : UNSIGNED;9 VAR occurred : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$READ_SEMAPHORE *)N(* *)N(* Read Semaphore Values *) N(* *)N(* The Read Semaphore Values routine returns the current or *)N(* maximum values, or both, of the specified counting semaphore. *)N(* The semaphore must have been created by *)N(* PPL$CREATE_SEMAPHORE. *)N(* *) ,[ASYNCHRONOUS] FUNCT ION ppl$read_semaphore ( semaphore_id : UNSIGNED;4 VAR semaphore_value : [VOLATILE] $WORD := %IMMED 0;K VAR semaphore_maximum : [VOLATILE] $WORD := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$RELEASE_SPIN_LOCK *)N(* *)N(* Release Spin Lock *)N(* *)Q(* The Release Spin Lock routine relinquishes the spin lock by clearing the *)N(* bit representing the lock. The lock must have been created by *)N(* PPL$CREATE_SPIN_LOCK. *)N(* *) /[ASYNCHRONOUS] FUNCTION ppl$release_spin_lock () lock_id : UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$RESET_EVENT *)N(* *)N(* Reset an Event *)N(* *)N(* The Reset an Event routine resets an event's state to *)N(* not_occurred. *)N(* *) )[ASYNCHRONOUS] FUN CTION ppl$reset_event (* event_id : UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$REMOVE_WORK_ITEM *)N(* *)N(* Remove a Work Queue Item *)N(* *)X(* The Remove a Work Queue Item routine removes the next item in order from a work *)N(* queue. *)N(* *) .[ASYNCHRONOUS] FUNCTION ppl$remove_work_item ( queue_id : UNSIGNED;% VAR work_item : [VOLATILE] UNSIGNED;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$READ_SPIN_LOCK *)N(* *)N(* Read a Spin Lock State *)N(* *)O(* The Read a Spin Lock State routine returns the current state of a spin *)N(* lock. The state can be not_seized or not_seized. *)N(* *) ,[ASYNCHRONOUS] FUNCTION ppl$read_spin_lock ( lock_id : UNSIGNED;7 VAR seized : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(*  PPL$READ_WORK_QUEUE *)N(* *)N(* Read a Work Queue *)N(* *)N(* The Read a Work Queue routine returns information about a work queue. *)N(* *) -[ASYNCHRONOUS] FUNCTION pp l$read_work_queue ( queue_id : UNSIGNED;G VAR queue_value : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$SET_SEMAPHORE_MAXIMUM *)N(* *)N(* Set a Semaphore Maximum *)N(* *)T(* The Set a Semaphore Maximum routine dynamically sets the maximum value of a *)N(* semaphore. *)N(* *) 3[ASYNCHRONOUS] FUNCTION ppl$set_semaphore_maximum ( semaphore_id : UNSIGNED;0 semaphore_maximum : $WORD) : INTEGER; EXTERNAL; N(* PPL$SPAWN *)N(* *)N(* Initiate Paralle l Execution *)N(* *)N(* The Initiate Parallel Execution routine executes code in parallel *)Q(* with the caller by creating one or more subordinate threads of execution *)N(* (VMS subprocesses). *)N(* *) #[ASYNCHRONOUS] FUNCTION ppl$spawn (" V AR copies : [VOLATILE] UNSIGNED;N program_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;Q %REF children_ids : [VOLATILE] ARRAY [$l3..$u3:INTEGER] OF UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0;P std_input_file : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;f std_output_file : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$SET_QUORUM *)N(*  *)N(* Set Barrier Quorum *)N(* *)N(* The Set Barrier Quorum routine dynamically sets a value for the *)N(* specified barrier's quorum. *)N(* *) ([ASYNCHRONOUS] FUNCTION ppl$ set_quorum ( barrier_id : UNSIGNED;% quorum : $WORD) : INTEGER; EXTERNAL; N(* PPL$STOP *)N(* *)N(* Stop a Participant *)N(* *)Q(* The Stop a Participant routine terminates the execution of the specified *)N(* participant in this application. *)N(* *) "[ASYNCHRONOUS] FUNCTION ppl$stop (3 participant_index : UNSIGNED) : INTEGER; EXTERNAL; N(* PPL$SEIZE_SPIN_LOCK *)N(* *)N(* Seize Spin Lock *)N(* *)S(* The Seize Spin Lock routine retrieves a simple (spin) lock by waiting in a *)N(* spin loop until the lock is free. The lock must have been created by *)N(* PPL$CREATE_SPIN_LOCK./* *)N(* *) -[ASYNCHRONOUS] FUNCTION ppl$seize_spin_lock ( lock_id : UNSIGNED;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL;  N(* PPL$TERMINATE *)N(* *)N(* Abort PPL$ Participation *)N(* *)N(* The Abort PPL$ Participation routine ends the caller's *)N(* participation in the application prematurely---that is, at some time *)N(* before the cal ler actually completes its execution. *)N(* *) '[ASYNCHRONOUS] FUNCTION ppl$terminate (3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$TRIGGER_EVENT *)N(* *)N(* Trigger an Event *)N(*  *)N(* The Trigger an Event routine causes the event's state to become *)N(* occurred. You control whether all pending actions for *)N(* the event are processed (made to occur), or just one is processed. *)N(* A pending action can be an AST, a signal (condition), or a wakeup. *)N(* *) +[ASYNCHRONOUS] FUNCTION ppl$trigger_event (  event_id : UNSIGNED;+ %IMMED event_param : UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$UNIQUE_NAME *)N(* *)N(* Produce a Unique Name *)N(* *)N(* The Produce a Unique Name routine returns an appli cation-unique name. *)O(* A system-unique string specific to the calling application is appended *)N(* to the string specified by the user. *)N(* The resulting name is identical for all participants in *)U(* the application, but different from those for all other applications on that *)N(* system. *)N(* *) )[ASYNCHRONOUS] FUNCTION ppl$unique_name (A name_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* PPL$WAIT_AT_BARRIER *)N(* *)N(* Synchronize at a Barrier  *)N(* *)N(* The Synchronize at a Barrier routine causes the caller to *)N(* wait at the specified barrier. *)N(* The barrier is in effect from the time the first participant calls *)N(* PPL$WAIT_AT_BARRIER until each member of the *)N(* quorum has issued the call. At that time, the wait concludes and *)N (* all are released for further execution. *)N(* *) -[ASYNCHRONOUS] FUNCTION ppl$wait_at_barrier (, barrier_id : UNSIGNED) : INTEGER; EXTERNAL; N(* END. *) N(* MODULE PPLMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255;  *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END;  *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0. .15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(*  $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071;  *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE ] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $PPLDEF ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.93 *)N(* *)N(* FILE: PPLMSG.MSG EDIT: CMF1004 *) N(* *)Q(***************************************************************************** *)(** * *)((** COPYRIGHT (C) 1987 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH L ICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(*++ *)N (* *)K(* FACILITY: VAX PPL *)N(* *)N(* ABSTRACT: *)N(* *)I(* THIS FILE CONTAINS THE DEFINITION FOR THE PPL FACILITY SPECIFIC *)I(* ERROR MESSAGES. THE FACILITY CODE FOR PPL IS 481. *)N(* *)N(* ENVIRONMENT: VAX/VMS USER MODE *)N(* *)N(* AUTHOR: P. GILBERT, CREATION DATE: 30-SEP-1986 *)N(* *)N(* MODIFIED BY:  *)N(* *)B(* E01-001 ORIGINAL *)N(* *)8(* E01-002 TO ADD THE FACILITY CODE. CMF 23-JAN-1987 *)N(* *)<(* E01-003 TO CORRECT THE IDENT TO MATCH CMF 26-JAN-1987 *);(* THE CMS GENERATION NUMBER. *) N(* *)<(* E01-004 REVAMP THE FILE TO CONFORM TO CMF 28-JAN-1987 *);(* RTL STANDARDS. ( PATTERNED AFTER *);(* LIBMSG.MSG ) *)N(* *)>(* E01-005 TO CHANGE THE MODULE NAME FROM CMF 16-FEB-1987 *);(* PPL$MSG TO PPL$MSGDEF TO BE *);(* CONSISTENT WITH THE OTHER R TLS *)N(* *)@(* E01-006 TO ADD PPL$_ATTUSETWO TO INDICATE CMF 16-FEB-1987 *);(* THAT AN ATTEMPT HAS BEEN MADE TO *);(* USE TWO BARRIERS THUS RESULTING IN *);(* DEAD LOCK. *)N(* *)>(* E01-007 ADD MSGS FOR BARRIERS AND EVENTS, DLR 24-JUL-87 *); (* PLUS OTHER MISC UPDATES. *);(* REMOVE OLD DEAD ONES BY ! *** NOTATION. *)N(* *)B(* E01-008 CONFORM TO DOCUMENTATION STANDARDS. DLR 19-AUG-1987 *)N(* *)8(* V051-001 ADDED PPL$_NO_NEXT_PROC WWS 09-SEP-1988 *)N(* *)?(* V53-001 CORR ECTED EVENT SIGNAL MESSAGES WWS 20-MAR-1989 *)N(* *)8(* V53-002 ADDED THE V5.3 MESSAGES WWS 27-MAR-1989 *)N(* *)@(* V57-001 ADD A SPACE TO NOONE_ENABLED TEXT PJC 22-JAN-1993 *)I(* *)A(* V57-002 CHANGE REFERENCE TO PPL$INITIALIZE PJC 30-AUG-1993 *)N(*--  *)N(*+ *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* PPL$_ABCMNOXYZ *)N(* *)N(* IN ADDITION, THE IBRARY STANDARDS SPECIFY THAT THE LETT ERS "abc", "mno", *)N(* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE *)N(* ERROR MESSAGE, NOT COUNTING ARTICLES AND PREPSITIONS. *)N(* *)P(* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)N(* *)N(* *)N(* MACRO-32PROGRAMMING: *)N(* *)N(* THE MACROS CALL: *)N(* *)I(* $PPLDEF  *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *)N(* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE COVENIENCE OF THE USER. *)N(*- *)N(*+  *)N(* SPECIAL NOTE: *)N(* *)N(* THE MESSAGES HERE SHOULD BE RESOLVED FROM STARLET.OLB. INORDER *)N(* FOR THIS TO HAPPEN, SEVERAL VMS BUILD FILES NEED TO BE EDITED. *)N(* THIS WILL BE DONE FOR SYS 11. NOTE THAT SEVERAL OF OUT BUILD *)N(* PROCEDURES MAY NEED TO BE EDITED. PPLRTLBLD.COM TO COPY *)N(* A ND DELETE APPROPRIATE FILE IN APPROPRIATE PLACES. *)N(* *)N(* ALSO, THE FILE PPLDEF WILL NEED TO BE CHANGED TO BE NAME PPLMSGDEF *)N(* TO FOLLOW THE STANDARDS OF THE OTHER ROUTINES. *)N(* *)N(* PPLRTLLNK.OPT MAY NEED TO BE EDITED TO GET RID OF UNIVERSAL SYMBOLD *)N(* SO THAT THERE WON'T BE EXTR A BAGAGE IN THE SHAREABLE IMAGE. *)N(* *)N(*- *);(* ; SET LH TO 481 (DECIMAL). *) CONST PPL$_FACILITY = 481; PPL$_NORMAL = 31555585; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANAT ION: ALL IS WELL. *)N(* USER ACTION: ENJOY YOUR SUCCESS. ALL THINGS MUST PASS. *)N(*-- *) CONST PPL$_CREATED = 31555601; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: ITEM WAS CREATED, AN ALTERNATE SUCCESS STATUS *) B(* INDICATING THE ITEM WAS NOT JUST SUCCESSFULLY FOUND. *)N(* USER ACTION: CONTINUE NORMALLY. *)N(*-- *) $CONST PPL$_NOONE_ENABLED = 31555609; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: EVENT TRIGGER IS SUCCESSFULLY QUEUED, AND NO ONE IS *)B(* PRESENTLY ENABLED TO RECEIVE IT. THE FIRST CALLER TO *)B(* ENABLE IT WILL RECEIVE IT. *)N(* USER ACTION: CONTINUE NORMALLY. *)N(*-- *) $CONST PPL$_NOT_AVAILABLE = 31555617; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: ALTERNATE SUCCESS STATUS RETURNED WHEN USER REQUESTS *)B(* IMMEDIATE NON-BLOCKING ACCESS TO A RESOURCE WHICH *)B(* WAS NOT AVAILABLE. *)N(* USER ACTION: CONTINUE NORMALLY. *)N(*-- *) #CONST PPL$_CREATED_SOME = 31555625; N(*++ *) N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: SOME OF THE REQUESTED ITEMS WERE CREATED, BUT NOT ALL. *)N(* USER ACTION: IF PROCESSING CAN CONTINUE WITH FEWER ITEMS THAN THOSE *)B(* REQUESTED, THEN CONTINUE NORMALLY. *)N(*-- *) #CONST PPL$_NO_NEXT_PROC = 31555633; N(*++  *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* *)N(* EXPLANATION: THIS CODE IS FOR INTERNAL USE ONLY AND IS RETURNED *)B(* FROM THE ROUTINE, PPL$$TELL, WHEN IT IS INVOKED WITH *)B(* THE TELL_K_NEXT_PROCESS FLAG AND THERE IS ONLY ONE *)B(* PROCESS CURRENTLY IN THE APPLICATION. *)B(* *)N(* USER ACTION: NONE: THIS CODE IS FOR INTERNAL USE ONLY. *)N(*-- *) CONST PPL$_DELETED = 31555641; N(*++ *)L(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* *)G(* EXPLANATION: THE USER REQUESTED THAT THE OBJECT BE DELETED *)B(* REGARDLESS OF ITS STATE. THE DELETION WAS SUCCESSFULLY *)B(* PERFORMED. *)N(* *)N(* USER ACTION CONTINUE NORMALLY *)N(*-- *)>(* ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES!!! *);(* ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW.  *);(* ; SET LH TO 481 (DECIMAL) *)N(**** EXCQUESIZ *)N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: TOO MANY CALLERS REQUIRED QUEUING. *)N(* USER ACTION: RECODE TO REDUCE NUMBER OF CALLERS ACCESSING RESOURCE. *)N(*-- *) CONST PPL$_INCOMPEXI = 31556100; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: ALL PPL OBJECTS MUST HAVE UNIQUE NAMES. *)N(* USER ACTION: RECODE THE CALL TO SPECIFY A DIFFERENT NAME. *)N(*-- *) CONST PPL$_INSVIRMEM = 31556108; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: CALLER DOES NOT HAVE SUFFICIENT AVAILABLE SPACE TO *)B(* COMPLETE REQUEST. *)N(* USER ACTION: IF YOU USE EXTENSIVE PPL SERVICES, TRY SPECIFYING A *)B(* LARGER VALUE TO PPL$INITIALIZE. OTHERWISE, CHECK *)B(* YOUR SYSTEM Q UOTAS TO SEE IF AN INCREASE IS NEEDED. *)N(*-- *) CONST PPL$_INVDESC = 31556116; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: DESCRIPTOR IS INVALID. *)N(* USER ACTION: RECODE TO CORRECT THE DESCRIPTOR. *)N(*-- *) CONST PPL$_INVELEID = 31556124; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: SPECIFIED ELEMENT ID IS NOT A LEGITIMATE ID. *)N(* USER ACTION: EXAMINE PROGRAM CODE - SOME MODIFICATION OF THE *)B(* ELEMENT ID HAS OCCURRED. *)N(*-- *) CONST PPL$_INVELENAM = 31556132; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: ILLEGAL CHARACTER STRING. *)N(* USER ACTION: FIX THE CHARACTER STRING. *)N(*-- *) CONST PPL$_INVELETYP = 31556140; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: USER SPECIFIED AN ELEMENT WHICH CANNOT BE OPERATED *)B(* BY THE CALLED ROUTINE. *)N(* USER ACTION: RECODE TO PASS THE PROPER ELEMENT TYPE. *)N(*-- *) CONST PPL$_INVNUMCHI = 31556148; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: USER REQUESTED CREATION OF A NUMBER < 1. *)N(* USER ACTION: RECODE REQUEST TO USE THE PROPER VALUE. *)N(*-- *)F(**** INVQUESIZ *)N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: INVALID QUEUE SIZE. *)N(* USER ACTION: SPECIFY A POSITIVE NUMBER. *)N(*-- *) CONST PPL$_INVSEMINI = 31556156; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: A SEMAPHORE INITIAL VALUE MUST BE <= ITS MAXIMUM. *)N(* USER ACTION: CHANGE THE SPECIFIED INITIAL VALUE. *)N(*-- *) CONST PPL$_INVSEMMAX = 31556164; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: A SEMAPHORE'S MAXIMUM VALUE MUST BE POSITIVE. *)N(* USER ACTION: CHANGE THE SPECIFIED MAXIMUM VALUE. *)N(*-- *) CONST PPL$_LOCNOTEST = 31556172; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: YOU CANNOT RELEASE A LOCK YOU HAVE NOT BEEN GRANTED. *)N(* USER ACTION: RECODE TO ASSURE THAT THE LOCK IS HELD BY THE *)B(* CALLER ATTEMPTING TO RELEASE IT. *)N(*-- *) CONST PPL$_NOSECEX = 31556180; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATIO N: SECTION SPECIFIED FOR FLUSH OR DELETE DOES NOT EXIST. *)N(* USER ACTION: RECODE TO ASSURE THAT SECTION TO DELETE/FLUSH HAS BEEN *)B(* CREATED. *)N(*-- *)D(**** NOSHRM *)N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: NO SHARED MEMORY EXISTS. *)N(* USER ACTION: DITTO. *)N(*-- *) CONST PPL$_NOSUCHELE = 31556188; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: NO ELEMENT IS SPECIFIED BY T HE INPUT ID. *)N(* USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A *)B(* LEGITIMATELY CREATED ELEMENT. *)N(*-- *) CONST PPL$_NOSUCHLOC = 31556196; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: NO LOCK ELEMENT IS SPECI FIED BY THE INPUT ID. *)N(* USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A *)B(* LEGITIMATELY CREATED LOCK ELEMENT. *)N(*-- *) CONST PPL$_NOSUCHNAM = 31556204; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: INPUT NAME DOES NOT SPECIFY AN EXISTING ELEMENT. *)N(* USER ACTION: RECODE TO ASSURE THAT THE NAME MATCHES A CREATED *)B(* ELEMENT. *)N(*-- *) CONST PPL$_WRONUMARG = 31556212; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: TOO MANY OR TOO FEW ARGUMENTS SPECIFIED IN THE CALL. *)N(* USER ACTION: RECODE USING PROPER NUMBER OF ARGUMENTS. *)N(*-- *) CONST PPL$_ABNTERMIN = 31556220; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: ABNORMAL TERMINATION. *)N(* USER ACTION: AN APPLICATION PARTICIPANT HAS ENDED ABNORMALLY. *)B(* SOME APPLICATION-SPECIFIC RECOVERY MAY BE DESIRED. *)N(*-- *) CONST PPL$_EXHNEVCAL = 31556228; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: AN APPLICATION PARTICIPANT TERMINATED WITHOUT *)B(* EXECUTING ITS PPL EXIT HANDLER. *)N(* USER ACTION: APPLICATION HAS BEEN ABNORMALLY TERMINATED. SOME *)B(* APPLICATION-SPECIFIC RECOVERY MAY BE DESIRED. *)N(*-- *) CONST PPL$_INVARG = 31556236; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: A SPEC IFIED ARGUMENT IS INVALID. *)N(* USER ACTION: RECODE TO PASS THE PROPER ARGUMENT. *)N(*-- *) CONST PPL$_NOINIT = 31556244; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: PPL$INITIALIZE MUST BE CALLED BEFORE THIS ROUTINE. *)N(* USER A CTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER. *)B(* PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST *)B(* CALLS, BUT NOT FOR THOSE WHICH REQUIRE THE PRIOR *)B(* CREATION OF AN ELEMENT. *)N(*-- *) CONST PPL$_NONPIC = 31556252; N(*++ *)N(* FACILITY: PPL, RUN-TIME  LIBRARY *)N(* EXPLANATION: PPL CANNOT MAP REQUESTED ADDRESS SPACE TO THE SAME *)B(* ADDRESSES IN ALL PROCESSES. *)N(* USER ACTION: IF IT IS CRITICAL TO THE APPLICATION THAT THE REQUESTED *)B(* SPACE APPEAR AT THE SAME ADDRESSES IN ALL PROCESSES, *)B(* THE USER MUST TAKE STEPS TO ASSURE THAT ENOUGH SPACE *)B(* IS MADE AVAILABLE. THIS MAY REQUIRE INCREASING SYSTEM *)B(* QUOTAS OR RESERVING T HE REQUIRED ADDRESSES THROUGH *)B(* LINKTIME OPERATIONS. *)N(*-- *) CONST PPL$_SEMININON = 31556260; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: IMPROPER INITIAL VALUE SPECIFIED. *)N(* USER ACTION: RECODE TO ASSURE THAT PROPER VALUE IS PASSED. *)N(*-- *) CONST PPL$_NOTIMP = 31556268; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: A CALL HAS BEEN ISSUED TO AN UNIMPLEMENTED SERVICE. *)N(* USER ACTION: RECODE TO ELIMINATE THIS CALL. *)N(*-- *) CONST PPL$_ATTUSETWO = 31556276; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: USER HAS ATTEMPTED TO WAIT ON 2 APPLICATION-WIDE *)B(* BARRIERS AT THE SAME TIME. *)N(* USER ACTION: RECODE TO ASSURE THAT DEADLOCK IS AVOIDED BY WAITING *)B(* ON ONLY ONE APPLICATION-WIDE BARRIER AT A TIME. *)N(*-- *) &CONST PPL$_IN_BARRIER_WAIT = 31556284; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THE BARRIER WAS ALREADY IN EFFECT AT THE TIME OF *)B(* THIS CALL. *)N(* USER ACTION: RECODE TO ASSURE THAT THE BARRIER QUORUM IS ESTABLISHED *)B(* BEFORE ANYONE ATTEMPTS TO WAIT ON THE BARRIER. *)N(*-- *) $CONST PPL$_NO_SUCH_PARTY = 31556292; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: SPECIFIED PARTICIPANT DOES NOT EXIST IN THIS *)B(* APPLI CATION. *)N(* USER ACTION: RECODE TO ASSURE THAT PROPER PARTICIPANT IS SPECIFIED *)B(* IN THE CALL TO THIS ROUTINE. *)N(*-- *) CONST PPL$_APPALREXI = 31556300; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO FORM AN *)B(* APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION *)B(* ALREADY EXISTS, AND SO CANNOT BE FORMED BY THIS *)B(* PROCESS. *)N(* USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO FORM AN *)B(* APPLICATION, THIS IS APPLICATION-DEPENDENT. *)N(*-- *) CONST PP L$_ELEINUSE = 31556308; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS PROCESS ATTEMPTED AN OPERATION WHICH MAY ONLY *)B(* BE PERFORMED ON AN OBJECT WHICH IS NOT IN USE. *)B(* THE SPECIFIED OBJECT IS CURRENTLY IN USE AND THEREFORE *)B(* THE OPERATION MAY NOT BE PERFORMED. *)N(* USER ACTION: RECODE TO FREE THE OBJECT BEFORE ATTEMPTING THIS *)B(* OPERATION, OR, IF APPLICABLE, SPECIFY THE OPTION TO FORCE *)B(* THIS OPERATION. *)N(*-- *) CONST PPL$_INCOMPARG = 31556316; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS PROCESS SPECIFIED A SIZE, PROTECTION, OR FLAG ON A *)B(* CALL TO PPL$INITIALIZE WHICH IS INCOMPATIBLE WITH THE *)B(* EXISTING APPLICATION WHICH THIS PROCESS IS ATTEMPTING *)B(* TO JOIN. *)N(* USER ACTION: RECODE THE CALL TO OMIT THE ARGUMENTS, OR SPECIFY *)B(* ARGUMENTS WHICH ARE COMPATIBLE WITH THE EXISTING *)B(* APPLICATION. *)N(*-- *) CONST PPL$_INVAPPNAM = 31556324; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: ILLEGAL CHARACTER STRING. *)N(* USER ACTION: FIX THE CHARACTER STRING. *)N(*-- *) CONST PPL$_NOSUCHAPP = 315 56332; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO JOIN AN EXISTING *)B(* APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION *)B(* DOES NOT EXIST, AND SO CANNOT BE JOINED BY THIS *)B(* PROCESS. *)N(* USER ACTION: SINCE THE USER SPECIFICALLY REQU ESTED TO JOIN AN *)B(* APPLICATION, THIS IS APPLICATION-DEPENDENT. *)N(*-- *) CONST PPL$_BUFOVFL = 31559680; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: BUFFER COULD NOT CONTAIN THE COMPLETE OUTPUT STRING. *)N(* USER ACTION: RECODE TO PASS A LARGER BUFFER . *)N(*-- *) CONST PPL$_ALTSIZE = 31559688; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: PPL$INITIALIZE HAS ALREADY BEEN CALLED. *)N(* USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER. *)B(* PPL$INITIALIZE IS PERFORMED A UTOMATICALLY FOR MOST *)B(* CALLS. ALTERING THE INTERNAL STRUCTURE SIZE MUST BE *)B(* DONE BEFORE ANY OTHER CALL TO PPL. *)N(*-- *) CONST PPL$_ELEALREXI = 31571971; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: AN ELEMENT BY THIS NAME ALREADY EXIS TS, AND ITS *)B(* ID HAS BEEN RETURNED. *)N(* USER ACTION: CONTINUE NORMALLY IF THE NAME IS EXPECTED TO EXIST. *)N(*-- *) CONST PPL$_SEMALRMAX = 31571979; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: SEMAPHORE CANNOT BE INCREMENTED FURTHER. *)N(* USER ACTION: RECODE TO ASSURE THAT ONLY THE PROPER MAXIMUM NUMBER *)B(* OF PPL$INCREMENT_SEMAPHORE REQUESTS ARE ISSUED. *)N(*-- *) CONST PPL$_INTDELPRC = 31571987; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: AN APPLICATION CALL TO PPL$S TOP FORCED THE TEMINATION *)B(* OF THIS PARTICIPANT. *)N(* USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY, *)B(* ANY ACTIONS ARE APPLICATION-DEPENDENT. *)N(*-- *) CONST PPL$_INTTERMIN = 31571995; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: AN APPLICATION CALL TO PPL$TERMINATE FORCED THE *)B(* TEMINATION OF THIS PARTICIPANT. *)N(* USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY, *)B(* ANY ACTIONS ARE APPLICATION-DEPENDENT. *)N(*-- *) !CONST PPL$_EXITSTATUS = 31572003; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: AN APPLICATION PARTICIPANT EXITED WITH THIS STATUS. *)N(* USER ACTION: DETERMINE THE CAUSE OF THE TERMINATION BY EXAMINING *)B(* THE STATUS CODE. *)N(*-- *) %CONST PPL$_EVENT_OCCURRED = 31572011; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF AN EVENT FOR *)B(* WHICH NOTIFICATION HAS BEEN REQUESTED BY THE USER. *)N(* USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION, *)B(* RESPONSE IS APPLICATION-DEPENDENT. *)N(*-- *) "CONST PPL$_NORMA L_EXIT = 31572019; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE NORMAL *)B(* PARTICIPANT TERMINATION EVENT. *)N(* USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION, *)B(* RESPONSE IS APPLICATION-DEPENDENT. *)N(*-- *) $CONST PPL$_ABNORMAL_EXIT = 31572027; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE ABNORMAL *)B(* PARTICIPANT TERMINATION EVENT. *)N(* USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION, *)B(* RESPONSE IS A PPLICATION-DEPENDENT. *)N(*-- *) CONST PPL$_FORMEDAPP = 31572035; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS PROCESS FORMED A NEW APPLICATION. *)N(* USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. *)N(*-- *) CONST PPL$_JOINEDAPP = 31572043; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: THIS PROCESS JOINED AN EXISTING APPLICATION. *)N(* USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. *)N(*-- *)  CONST PPL$_NOMATCH = 31572051; N(*++ *)N(* FACILITY: PPL, RUN-TIME LIBRARY *)N(* EXPLANATION: NO MATCH FOR THE SPECIFIED ELEMENT WAS FOUND. *)N(* USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. *)N(*-- *) N(* END.  *) END.ww po6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$PSM_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with  FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; # $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0.. 33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE PSM$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0. .65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15;  *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215;  *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE PSM$ROUTINES IDENT X-1 ***) N(* *)N(* Print Symbiont Modification (PSM) Routines *)N(* *)N(* *)N(* PSM$PRINT - Invok e VMS-Supplied Print Symbiont *)N(* *)N(* status = PSM$PRINT ([streams], [bufsiz], [worksiz]) *)N(* *)N(* streams - Maximum number of streams to support *)N(* bufsiz - Maximum buffer size in bytes for output operations *)N(* worksiz - Size in bytes of work area to be allocated *)N(* *) #[ASYNCHRONOUS] FUNCTION PSM$PRINT ( STREAMS : UNSIGNED := %IMMED 0; BUFSIZ : UNSIGNED := %IMMED 0;5 WORKSIZ : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* PSM$READ_ITEM_DX - Obtain Value of Message Items *)N(* ! *)N(* status = PSM$READ_ITEM_DX (request_id, item, buffer) *)N(* *)O(* request_id - Request identifier supplied by the symbiont to user routine *)N(* item - Item code identifying message item to be returned *)N(* buffer - Buffer into which data is returned *)N(* *) *[A !SYNCHRONOUS] FUNCTION PSM$READ_ITEM_DX ( REQUEST_ID : UNSIGNED; ITEM : UNSIGNED;^ VAR BUFFER : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* *)N(* PSM$REPLACE - Declare User Service Routine *)N(* *)N(* status = PSM$REPLACE (code, routine) *) !N(* *)N(* code - Code identifying symbiont routine to be replaced *)N(* routine - User routine to replace symbiont routine *)N(* *) %[ASYNCHRONOUS] FUNCTION PSM$REPLACE ( CODE : UNSIGNED;G %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTINE) : INTEGER; EXTERNAL; N(* ! *)N(* PSM$REPORT - Report Completion Status *)N(* *)N(* status = PSM$REPORT (request_id [, status]) *)N(* *)O(* request_id - Request identifier supplied by the symbiont to user routine *)N(* status - Completion status of asynchronous operation compl eted *)N(* *) $[ASYNCHRONOUS] FUNCTION PSM$REPORT ( REQUEST_ID : UNSIGNED;C VAR STATUS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) END.wwSBUILD PASCAL$PSM_ROUTINES,!q EVMSBUILD PASCAL$SMB_ROUTINES,ks EVMSBUILD PASCAL$SMG_ROUTINES,@u EVMSBUILD PASCAL$SOR_ROUTINES,mv EVMSBUILD PASCAL$STR_ROUTINES,'x EVMSBUILD PASCAL$TBK_ROUTINES,_y EVMSBUILD PASCAL$TPU_ROUTINES*'z EVMSBUILD PASSTR$$FILE_LIST&{ EVMSBUILD PASSTR$$FILES!!q6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$SMB_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with !FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio!ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  ! }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP ! = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; !# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0.. !33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE SMB$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127;  ! *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.!.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE!C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; ! *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;! *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =! [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; ! *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 !7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE SMB$ROUTINES IDENT X-1 ***) N(* *)N(* Symbiont/Job Controller Interface (SMB) Routines *)N(* *)N(* *)N(* SMB$CHECK_FOR_MES !SAGE - Check for Message from Job Controller *)N(* *)N(* status = SMB$CHECK_FOR_MESSAGE () *)N(* *) B[ASYNCHRONOUS] FUNCTION SMB$CHECK_FOR_MESSAGE : INTEGER; EXTERNAL; N(* *)N(* SMB$INITIALIZE - Initialize User-Written Symbio!nt *)N(* *)N(* status = SMB$INITIALIZE (structure_level [,ast_routine] [,streams]) *)N(* *)N(* structure_level - Version of the job-controller/symbiont interface *)N(* ast_routine - Message-handling AST routine *)N(* streams - Maximum number of streams to support !*)N(* *) ([ASYNCHRONOUS] FUNCTION SMB$INITIALIZE ( STRUCTURE_LEVEL : UNSIGNED;B %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST_ROUTINE := %IMMED 0;5 STREAMS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SMB$READ_MESSAGE - Obtain Message Sent by Job Controller *)N(* ! *)N(* status = SMB$READ_MESSAGE (stream, buffer, request) *)N(* *)N(* stream - Stream number for message *)N(* buffer - Buffer into which message is written *)N(* request - Code that identifies the request *)N(* *) * ![ASYNCHRONOUS] FUNCTION SMB$READ_MESSAGE (" VAR STREAM : [VOLATILE] UNSIGNED;I VAR BUFFER : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;8 VAR REQUEST : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* SMB$READ_MESSAGE_ITEM - Parse Next Item from Message Buffer *)N(* *)N(* status = SMB$READ_MESSAGE_ITEM (message, cont!ext, item_code, buffer *)N(* [, size]) *)N(* *)N(* message - Message items to read *)N(* context - Context value *)N(* item_code - Item code of message read *)N(* buffer - Message item ! *)N(* size - Size of message item *)N(* *) /[ASYNCHRONOUS] FUNCTION SMB$READ_MESSAGE_ITEM (= MESSAGE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;# VAR CONTEXT : [VOLATILE] UNSIGNED;% VAR ITEM_CODE : [VOLATILE] UNSIGNED;I VAR BUFFER : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR;? VAR SIZE : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; !N(* *)N(* SMB$SEND_TO_JOBCTL - Send Message to Job Controller *)N(* *)N(* status = SMB$SEND_TO_JOBCTL (stream [,request] [,accounting] *);(* [,checkpoint] [,device_status] [,error]) *)N(* *)N(* stream - Number of stream to wh!ich message refers *)N(* request - Code identifying request being completed *)N(* accounting - Accounting information about a task *)N(* checkpoint - Checkpoint data about current task *)N(* device_status - Status of device served by the symbiont *)N(* error - Condition code returned by the requested task *)N(*  *) ,[ASYNCHRONOUS] FUNCTION SMB$SEND_TO_JOBCTL ( STREAM : UNSIGNED; REQUEST : UNSIGNED := %IMMED 0;L ACCOUNTING : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;L CHECKPOINT : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;& DEVICE_STATUS : UNSIGNED := %IMMED 0;T %REF ERROR : ARRAY [$l6..$u6:INTEGER] OF UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) END.ww!o3r6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$SMG_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with  !FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio!!ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ "! }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP#! = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; $!# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..%!33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE SMG$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; &! *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.'!.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE(!C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; )! *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;*! *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =+! [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; ,! *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 -!7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE smg$routines ***) P(**************************************************************************** *)(* * *)-(* COPYRIGHT (c) 1992, 1995 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND .! COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD /! NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* SMG$ADD_KEY_DEF *)N(* 0! *)N(* Add Key Definition *)N(* *)N(* The Add Key Definition routine adds a keypad key definition to a *)N(* table of key definitions. *)N(* *)N(* 1! *) )[ASYNCHRONOUS] FUNCTION smg$add_key_def ( key_table_id : UNSIGNED;> key_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;J if_state : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;# attributes : UNSIGNED := %IMMED 0;T equivalence_string : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;c state_string : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$ALLOW_ESCAPE 2! *)N(* *)N(* Allow Escape Sequences *)N(* *)N(* SMG$ALLOW_ESCAPE enables or disables SMG parsing of escape sequences *)N(* which are output to a virtual display. *)N(* 3! *)N(* *) *[ASYNCHRONOUS] FUNCTION smg$allow_escape ( display_id : UNSIGNED;* esc_flag : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$BEGIN_DISPLAY_UPDATE *)N(* *)N(* Begin Batching of Display Updates *)N(* 4! *)N(* The Begin Batching of Display Updates routine saves, or batches, all *)N(* output to a virtual display until a matching call to *)N(* SMG$END_DISPLAY_UPDATE is encountered. *)N(* *)N(* *) 2[ASYNCHRONOUS] FUNCTION smg$begin_display_update (, display_i5!d : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$BEGIN_PASTEBOARD_UPDATE *)N(* *)N(* Begin Batching of Pasteboard Updates *)N(* *)N(* The Begin Batching of Pasteboard Updates routine saves, or *)N(* batches, all output to a pasteboard until a matching call to 6! *)N(* SMG$END_PASTEBOARD_UPDATE is encountered. *)N(* *)N(* *) 5[ASYNCHRONOUS] FUNCTION smg$begin_pasteboard_update (/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$CANCEL_INPUT *)N(* 7! *)N(* Cancel Input Request *)N(* *)N(* The Cancel Input Request routine immediately cancels any *)N(* read-in-progress that was issued by SMG$READ_COMPOSED_LINE, *)N(* SMG$READ_KEYSTROKE, SMG$READ_STRING, or SMG$READ_VERIFY. *)N(* *)N(* 8! *) *[ASYNCHRONOUS] FUNCTION smg$cancel_input (- keyboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$CHANGE_PBD_CHARACTERISTICS *)N(* *)N(* Change Pasteboard Characteristics *)N(* *)N(* The 9!Change Pasteboard Characteristics routine lets you change the *)N(* characteristics associated with a pasteboard. *)N(* *) 8[ASYNCHRONOUS] FUNCTION smg$change_pbd_characteristics ( pasteboard_id : UNSIGNED;% desired_width : INTEGER := %IMMED 0;, VAR width : [VOLATILE] INTEGER := %IMMED 0;& desired_height : INTEGER := %IMMED 0;- VAR height : [VOLATILE] INTEGER := %IMMED 0;1 desired_bac:!kground_color : UNSIGNED := %IMMED 0;M VAR background_color : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CHANGE_RENDITION *)N(* *)N(* Change Default Rendition *)N(* *)N(* The Change Default Rendition routine changes the video a ;!ttributes *)N(* for all or part of a virtual display. *)N(* *)N(* *) .[ASYNCHRONOUS] FUNCTION smg$change_rendition ( display_id : UNSIGNED; start_row : INTEGER; start_column : INTEGER; number_of_rows : INTEGER; number_of_columns : INTEGER;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complemen! : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CHANGE_VIRTUAL_DISPLAY *)N(* *)N(* Change Virtual Display *)N(* *)N(* The Change Virtual Display routine lets you change the dimensions, *)N(* border, and video attributes of a virtual display. ?! *)N(* *) 4[ASYNCHRONOUS] FUNCTION smg$change_virtual_display ( display_id : UNSIGNED;& number_of_rows : INTEGER := %IMMED 0;) number_of_columns : INTEGER := %IMMED 0;+ display_attributes : UNSIGNED := %IMMED 0;) video_attributes : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CHECK_FOR_OCCLUSION *)@!N(* *)N(* Check for Occlusion *)N(* *)N(* The Check for Occlusion routine checks to see whether a virtual *)N(* display is covered (occluded) by another virtual display. *)N(* *) 1[ASYNCHRONOUS] FUNCT A!ION smg$check_for_occlusion ( display_id : UNSIGNED; pasteboard_id : UNSIGNED;? VAR occlusion_state : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; N(* SMG$CONTROL_MODE *)N(* *)N(* Control Mode *)N(* *)N(* The Control Mode routine B! controls the mode of the pasteboard. This *)N(* includes buffering, minimal updating, whether the screen is cleared *)N(* when the pasteboard is deleted, and whether tab characters are used *)N(* for screen formatting. *)N(* *) *[ASYNCHRONOUS] FUNCTION smg$control_mode ( pasteboard_id : UNSIGNED;! new_mode : UNSIGNED := %IMMED 0;0 VAR old_mode : [VOLATIL C!E] UNSIGNED := %IMMED 0;7 buffer_size : $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$COPY_VIRTUAL_DISPLAY *)N(* *)N(* Copy a Virtual Display *)N(* *)N(* The Copy a Virtual Display routine creates a copy of an existing *)N(* virtual disp D!lay and assigns to it a new virtual display identifier. *)N(* *) 2[ASYNCHRONOUS] FUNCTION smg$copy_virtual_display ( current_display_id : UNSIGNED;? VAR new_display_id : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$CREATE_KEY_TABLE *)N(* *)N(* Create Key Table E! *)N(* *)N(* The Create Key Table routine creates a table for key definitions. *)N(* *) .[ASYNCHRONOUS] FUNCTION smg$create_key_table (= VAR key_table_id : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$CREATE_MENU *)N(* F! *)N(* Fill the Virtual Display with a Menu *)N(* *)N(* The Fill the Virtual Display with a Menu routine displays menu *)N(* choices *)N(* in the virtual display indicated, starting at the specified row. *)N(* G! *) )[ASYNCHRONOUS] FUNCTION smg$create_menu ( display_id : UNSIGNED;[ choices : [CLASS_A] ARRAY [$l2..$u2:INTEGER] OF PACKED ARRAY [$l2a..$u2a:INTEGER] OF CHAR;" menu_type : UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0; row : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complement : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CREATE_PASTEBOARD *)N(* H! *)N(* Create a Pasteboard *)N(* *)T(* The Create Pasteboard routine creates a pasteboard and returns its assigned *)N(* pasteboard identifier. *)N(* *) /[ASYNCHRONOUS] FUNCTION smg$create_paste I!board () VAR pasteboard_id : [VOLATILE] UNSIGNED;O output_device : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;@ VAR number_of_pasteboard_rows : [VOLATILE] INTEGER := %IMMED 0;C VAR number_of_pasteboard_columns : [VOLATILE] INTEGER := %IMMED 0; flags : UNSIGNED := %IMMED 0;8 VAR type_of_terminal : [VOLATILE] UNSIGNED := %IMMED 0;o VAR device_name : [CLASS_S,VOLATILE] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CREATE_SUBPROCESJ!S *)N(* *)N(* Create and Initialize a Subprocess *)N(* *)N(* The Create and Initialize a Subprocess routine creates a DCL *)N(* subprocess and associates it with a virtual display. *)N(* K! *) /[ASYNCHRONOUS] FUNCTION smg$create_subprocess ( display_id : UNSIGNED;B %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST_routine := %IMMED 0;, %IMMED AST_argument : UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CREATE_VIEWPORT *)N(* *)N(* Create a Virtual Viewport L! *)N(* *)N(* The Create a Virtual Viewport routine creates a viewport and *)N(* associates it with a virtual display. The location and size of the *)N(* viewport are specified by the caller. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$create_viewport ( display_id : UNSIGNED; viewport_row_ M!start : INTEGER;! viewport_column_start : INTEGER; viewport_number_rows : INTEGER;8 viewport_number_columns : INTEGER) : INTEGER; EXTERNAL; N(* SMG$CREATE_VIRTUAL_DISPLAY *)N(* *)N(* Create a Virtual Display *)N(* *)N(* The Create Virtual Display rou N!tine creates a virtual display and *)N(* returns *)N(* assigned display identifier. *)N(* *) 4[ASYNCHRONOUS] FUNCTION smg$create_virtual_display ( number_of_rows : INTEGER; number_of_columns : INTEGER;& VAR display_id : [VOLATILE] UNSIGNED;+ display_attributes : UNSIGNED := %IMMED 0;) video_attributes O!: UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CREATE_VIRTUAL_KEYBOARD *)N(* *)N(* Create Virtual Keyboard *)N(* *)N(* The Create Virtual Keyboard routine creates a virtual keyboard and *)N(* returns P!its assigned keyboard identifier. *)N(* *) 5[ASYNCHRONOUS] FUNCTION smg$create_virtual_keyboard (' VAR keyboard_id : [VOLATILE] UNSIGNED;N input_device : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;R default_filespec : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;a VAR resultant_filespec : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED Q! 0;7 recall_size : $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$CURSOR_COLUMN *)N(* *)N(* Return Cursor Column Position *)N(* *)N(* The Return Cursor Column Position routine returns the virtual *)N(* cursor's R! *)N(* current column position in a specified virtual display. *)N(* *) +[ASYNCHRONOUS] FUNCTION smg$cursor_column (, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$CURSOR_ROW *)N(* *)N(* Return Cursor Row Position S! *)N(* *)N(* The Return Cursor Row Position routine returns the virtual cursor's *)N(* current row position in a specified virtual display. *)N(* *) ([ASYNCHRONOUS] FUNCTION smg$cursor_row (, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$DEFINE_KEY T! *)N(* *)N(* Perform a DEFINE/KEY Command *)N(* *)N(* The Perform a DEFINE/KEY Command routine performs the DEFINE/KEY *)N(* command you provide. *)N(* *) U! ([ASYNCHRONOUS] FUNCTION smg$define_key ( key_table_id : UNSIGNED;Y command_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* SMG$DELETE_CHARS *)N(* *)N(* Delete Characters *)N(* *)N(* The Delete V! Characters routine deletes characters in a virtual *)N(* display. *)N(* *) *[ASYNCHRONOUS] FUNCTION smg$delete_chars ( display_id : UNSIGNED; number_of_characters : INTEGER; start_row : INTEGER;- start_column : INTEGER) : INTEGER; EXTERNAL; N(* SMG$DELETE_KEY_DEF *)N(* W! *)N(* Delete Key Definition *)N(* *)N(* The Delete Key Definition routine deletes a key definition from the *)N(* specified table of key definitions. *)N(* *) ,[ASYNCHRONOUS] FUNCTION smg$delete_key_d X!ef ( key_table_id : UNSIGNED;> key_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;_ if_state : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$DELETE_LINE *)N(* *)N(* Delete Line *)N(* Y! *)N(* The Delete Line routine deletes lines from a virtual display. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$delete_line ( display_id : UNSIGNED; start_row : INTEGER;; number_of_rows : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$DELETE_MENU *)N(* *)N(* En Z!d Access to a Menu in the Virtual Display *)N(* *)N(* The End Access to a Menu in the Virtual Display routine ends access *)N(* to the menu choices in the specified virtual display. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$delete_menu ( display_id : UNSIGNED;3 flags : UNSIGNED := %IMMED 0) : INTEGER [!; EXTERNAL; N(* SMG$DELETE_PASTEBOARD *)N(* *)N(* Delete Pasteboard *)N(* *)N(* The Delete Pasteboard routine deletes a pasteboard. *)N(* *) /[ASY \!NCHRONOUS] FUNCTION smg$delete_pasteboard ( pasteboard_id : UNSIGNED;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$DELETE_SUBPROCESS *)N(* *)N(* Terminate a Subprocess *)N(* *)N(* The Terminate a Subprocess routine deletes a sub ]!process that was *)N(* created with the SMG$CREATE_SUBPROCESS routine. *)N(* *) /[ASYNCHRONOUS] FUNCTION smg$delete_subprocess (, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$DELETE_VIEWPORT *)N(* *)N(* Delete a Viewport ^! *)N(* *)N(* The Delete a Viewport routine deletes the specified viewport from *)N(* any pasteboards to which it is pasted. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$delete_viewport (, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$DELETE_VIRTUAL_DISPLAY _! *)N(* *)N(* Delete Virtual Display *)N(* *)N(* The Delete Virtual Display routine deletes a virtual display. *)N(* *) 4[ASYNCHRONOUS] FUNCTION smg$delete_virtual_display (, display_id : UNSIGNED) : IN `!TEGER; EXTERNAL; N(* SMG$DELETE_VIRTUAL_KEYBOARD *)N(* *)N(* Delete Virtual Keyboard *)N(* *)N(* The Delete Virtual Keyboard routine deletes a virtual keyboard. *)N(* *) 5a![ASYNCHRONOUS] FUNCTION smg$delete_virtual_keyboard (- keyboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$DEL_TERM_TABLE *)N(* *)N(* Delete Terminal Table *)N(* *)N(* The Delete Terminal Table routine terminates access to a private *) b!N(* TERMTABL *)N(* and frees the associated virtual address space. *)N(* *) ?[ASYNCHRONOUS] FUNCTION smg$del_term_table : INTEGER; EXTERNAL; 8[ASYNCHRONOUS] FUNCTION smg$disable_broadcast_trapping (/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$DISABLE_UNSOLICITED_INPUT *)c!N(* *)N(* Disable Unsolicited Input *)N(* *)N(* The Disable Unsolicited Input routine disables the trapping of *)N(* unsolicited input. *)N(* *) 7[ASYNCHRONOUS] FUNCT d!ION smg$disable_unsolicited_input (/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$DRAW_CHAR *)N(* *)N(* Draw a Character in a Virtual Display *)N(* *)N(* The Draw a Character in a Virtual Display routine draws a character *)N(* at e! *)N(* the specified position in a virtual display. *)N(* *) '[ASYNCHRONOUS] FUNCTION smg$draw_char ( display_id : UNSIGNED; flags : UNSIGNED; row : INTEGER := %IMMED 0; column : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complement : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$DRAWf!_LINE *)N(* *)N(* Draw a Line *)N(* *)N(* The Draw a Line routine draws a horizontal or vertical line. *)N(* *) '[ASYNCHRONOUS] FUNCTION smg$draw_lin g!e ( display_id : UNSIGNED; start_row : INTEGER; start_column : INTEGER; end_row : INTEGER; end_column : INTEGER;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complement : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$DRAW_RECTANGLE *)N(* *)N(* Draw a Rectangle *)N(* h! *)N(* The Draw a Rectangle routine draws a rectangle. *)N(* *) ,[ASYNCHRONOUS] FUNCTION smg$draw_rectangle ( display_id : UNSIGNED; start_row : INTEGER; start_column : INTEGER; end_row : INTEGER; end_column : INTEGER;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complement : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMi!G$ENABLE_UNSOLICITED_INPUT *)N(* *)N(* Enable Unsolicited Input *)N(* *)N(* The Enable Unsolicited Input routine detects unsolicited input and *)N(* calls an AST routine in response. *)N(* j! *) 6[ASYNCHRONOUS] FUNCTION smg$enable_unsolicited_input ( pasteboard_id : UNSIGNED;6 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST_routine;A %IMMED AST_argument : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$END_DISPLAY_UPDATE *)N(* *)N(* End Display Update *)N(* k! *)N(* The End Display Update routine ends update batching for a virtual *)N(* display. *)N(* *) 0[ASYNCHRONOUS] FUNCTION smg$end_display_update (, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$END_PASTEBOARD_UPDATE *)N(* l! *)N(* End Pasteboard Update *)N(* *)N(* The End Pasteboard Update routine ends update batching for a *)N(* pasteboard. *)N(* *) 3[ASYNCHRONOUS] FUNCTION smg$ m!end_pasteboard_update (/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$ERASE_CHARS *)N(* *)N(* Erase Characters *)N(* *)N(* The Erase Characters routine erases characters in a virtual display *)N(* by n! *)N(* replacing them with blanks. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$erase_chars ( display_id : UNSIGNED; number_of_characters : INTEGER; start_row : INTEGER;- start_column : INTEGER) : INTEGER; EXTERNAL; N(* SMG$ERASE_COLUMN *)N(* o! *)N(* Erase Column from Display *)N(* *)N(* The Erase Column From Display routine erases the specified portion *)N(* of the virtual display from the given position to the end of the *)N(* column. *)N(* p! *) *[ASYNCHRONOUS] FUNCTION smg$erase_column ( display_id : UNSIGNED;! start_row : INTEGER := %IMMED 0;% column_number : INTEGER := %IMMED 0;4 end_row : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$ERASE_DISPLAY *)N(* *)N(* Erase Virtual Display *)N(* q! *)N(* The Erase Virtual Display routine erases all or part of a virtual *)N(* display by replacing text characters with blanks. *)N(* *) +[ASYNCHRONOUS] FUNCTION smg$erase_display ( display_id : UNSIGNED;! start_row : INTEGER := %IMMED 0;$ start_column : INTEGER := %IMMED 0; end_row : INTEGER := %IMMED 0;7 end_column : INTEGER := %IMMED 0)r! : INTEGER; EXTERNAL; N(* SMG$ERASE_LINE *)N(* *)N(* Erase Line *)N(* *)N(* The Erase Line routine erases all or part of a line in a virtual *)N(* display. *) s!N(* *) ([ASYNCHRONOUS] FUNCTION smg$erase_line ( display_id : UNSIGNED;! start_row : INTEGER := %IMMED 0;9 start_column : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$ERASE_PASTEBOARD *)N(* *)N(* Erase Pasteboard *)N(* t! *)N(* The Erase Pasteboard routine erases the contents of a pasteboard. *)N(* *) .[ASYNCHRONOUS] FUNCTION smg$erase_pasteboard (/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$EXECUTE_COMMAND *)N(* *)N(* Executu!e Command in a Subprocess *)N(* *)N(* The Execute Command in a Subprocess routine executes the specified *)N(* command in the subprocess created with the SMG$CREATE_SUBPROCESS *)N(* routine. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$execut v!e_command ( display_id : UNSIGNED;B command_desc : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; flags : UNSIGNED := %IMMED 0;G VAR ret_status : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$FIND_CURSOR_DISPLAY *)N(* *)N(* Find Display *)N(* w! *)N(* The Find Display that Contains the Cursor routine returns the *)N(* identifier of the most recently pasted virtual display that contains *)N(* the physical cursor. *)N(* *) 1[ASYNCHRONOUS] FUNCTION smg$find_cursor_display ( pasteboard_id : UNSIGNED;& VAR display_id : [VOLATILE] UNSIGNED;& pasteboard_row : INTEGER := % x!IMMED 0;> pasteboard_column : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$FLUSH_BUFFER *)N(* *)N(* Flush Buffer *)N(* *)N(* The Flush Buffer routine flushes all buffered output to the *)N(* terminal. y! *)N(* *) *[ASYNCHRONOUS] FUNCTION smg$flush_buffer (/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$FLUSH_DISPLAY_UPDATE *)N(* *)N(* Flush Display Update *)N(* z! *)N(* The Flush Display Update routine flushes any update batching to the *)N(* screen and leaves the update batching in effect. *)N(* *) 2[ASYNCHRONOUS] FUNCTION smg$flush_display_update (, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$GET_BROADCAST_MESSAGE *)N(* {! *)N(* Get Broadcast Message *)N(* *)N(* The Get Broadcast Message routine determines whether a message has *)N(* been broadcast to the pasteboard and returns the message. *)N(* *) 3[ASYNCHRONOUS] FUNCTION smg$get_broadcast_message ( |! pasteboard_id : UNSIGNED;V VAR message : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;4 VAR message_length : [VOLATILE] $UWORD := %IMMED 0;G VAR message_type : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$GET_CHAR_AT_PHYSICAL_CURSOR *)N(* *)N(* Return Character at Cursor *)N(* }! *)N(* The Return Character at Cursor routine returns the character at the *)N(* current physical cursor position. *)N(* *) 9[ASYNCHRONOUS] FUNCTION smg$get_char_at_physical_cursor ( pasteboard_id : UNSIGNED;( VAR character_code : [VOLATILE] $UBYTE;/ VAR rendition : [VOLATILE] $UBYTE := %IMMED 0;I VAR user_rendition ~!: [VOLATILE] $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$GET_DISPLAY_ATTR *)N(* *)N(* Get Display Attributes *)N(* *)N(* The Get Display Attributes routine returns the attributes associated *)N(* with a virtual display. ! *)N(* *) .[ASYNCHRONOUS] FUNCTION smg$get_display_attr (& VAR display_id : [VOLATILE] UNSIGNED;- VAR height : [VOLATILE] INTEGER := %IMMED 0;, VAR width : [VOLATILE] INTEGER := %IMMED 0;: VAR display_attributes : [VOLATILE] UNSIGNED := %IMMED 0;8 VAR video_attributes : [VOLATILE] UNSIGNED := %IMMED 0;5 VAR character_set : [VOLATILE] UNSIGNED := %IMMED 0;B VAR flags : [VOLATILE] UNSIGNED! := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$GET_KEYBOARD_ATTRIBUTES *)N(* *)N(* Get Keyboard Attributes *)N(* *)N(* The Get Keyboard Attributes routine gets information about a virtual *)N(* keyboard and leaves it in a user-supplied area: the keyboard ! *)N(* information table (KIT). *)N(* *) 5[ASYNCHRONOUS] FUNCTION smg$get_keyboard_attributes ( keyboard_id : UNSIGNED;Q %REF keyboard_info_table : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;: keyboard_info_table_size : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$GET_KEY_DEF *)N(* ! *)N(* Get Key Definition *)N(* *)N(* The Get Key Definition routine returns the key definition for a *)N(* specified key. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$get_key_def !( key_table_id : UNSIGNED;> key_name : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;J if_state : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;2 VAR attributes : [VOLATILE] UNSIGNED := %IMMED 0;a VAR equivalence_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;p VAR state_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$GET_NUMERIC_DATA ! *)N(* *)N(* Get Numeric Terminal Data *)N(* *)N(* The Get Numeric Terminal Data routine accesses TERMTABLE.EXE and *)N(* returns the value associated with a specified Boolean or numeric *)N(* capability. *)N(* ! *) .[ASYNCHRONOUS] FUNCTION smg$get_numeric_data ( termtable_address : $DEFPTR; request_code : UNSIGNED;> VAR buffer_address : [VOLATILE] $DEFPTR) : INTEGER; EXTERNAL; N(* SMG$GET_PASTEBOARD_ATTRIBUTES *)N(* *)N(* Get Pasteboard Attributes *)N(* ! *)N(* The Get Pasteboard Attributes routine gets pasteboard attributes and *)N(* stores them in the pasteboard information table. *)N(* *) 7[ASYNCHRONOUS] FUNCTION smg$get_pasteboard_attributes ( pasteboard_id : UNSIGNED;S %REF pasteboard_info_table : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;< pasteboard_info_table_siz!e : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$GET_PASTING_INFO *)N(* *)N(* Return Pasting Information *)N(* *)N(* Provided that the specified virtual display is currently pasted, the *)N(* Return Pasting Information routine returns the row and colum !n of the *)N(* pasting. *)N(* *) .[ASYNCHRONOUS] FUNCTION smg$get_pasting_info ( display_id : UNSIGNED; pasteboard_id : UNSIGNED;! VAR flags : [VOLATILE] UNSIGNED;5 VAR pasteboard_row : [VOLATILE] INTEGER := %IMMED 0;M VAR pasteboard_column : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$GET_TERM_DATA ! *)N(* *)N(* Get Terminal Data *)N(* *)N(* The Get Terminal Data routine accesses TERMTABLE.EXE and returns the *)N(* character sequence that causes a terminal to perform a specified *)N(* operation. !*)N(* *) +[ASYNCHRONOUS] FUNCTION smg$get_term_data ( termtable_address : $DEFPTR; request_code : INTEGER;! maximum_buffer_length : INTEGER;( VAR return_length : [VOLATILE] INTEGER;M %REF capability_data : [VOLATILE,UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE;d %REF input_argument_vector : ARRAY [$l6..$u6:INTEGER] OF UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$GET_VIEWPORT_CHAR ! *)N(* *)N(* Get Characteristics of Display Viewport *)N(* *)N(* The Get Characteristics of Display Viewport routine returns the *)N(* characteristics of the specified viewport. *)N(* !*) /[ASYNCHRONOUS] FUNCTION smg$get_viewport_char ( display_id : UNSIGNED;9 VAR viewport_row_start : [VOLATILE] INTEGER := %IMMED 0;< VAR viewport_column_start : [VOLATILE] INTEGER := %IMMED 0;; VAR viewport_number_rows : [VOLATILE] INTEGER := %IMMED 0;S VAR viewport_number_columns : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$HOME_CURSOR *)N(* ! *)N(* Home Cursor *)N(* *)N(* The Home Cursor routine moves the virtual cursor to the specified *)N(* corner of a virtual display. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$home_cursor ( display_id : UNSIGNED;; position_code : UNS!IGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$INIT_TERM_TABLE *)N(* *)N(* Initialize Terminal Table *)N(* *)N(* The Initialize Terminal Table routine initializes the TERMTABLE *)N(* database for the terminal named, so that subsequent ca !lls to *)N(* SMG$GET_TERM_DATA can extract information and command strings for *)N(* that *)N(* terminal. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$init_term_table (C terminal_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;A VAR termtable_address : [VOLATILE] $DEFPTR)! : INTEGER; EXTERNAL; N(* SMG$INIT_TERM_TABLE_BY_TYPE *)N(* *)N(* Initialize TERMTABLE by VMS Terminal Type *)N(* *)N(* The Initialize TERMTABLE by VMS Terminal Type routine initializes *)N(* the TERMTABLE database for the terminal named, so that subsequent *) !N(* calls to SMG$GET_TERM_DATA can extract information and command *)N(* strings for that terminal. *)N(* *) 5[ASYNCHRONOUS] FUNCTION smg$init_term_table_by_type ( terminal_type : $BYTE;, VAR termtable_address : [VOLATILE] $DEFPTR;q VAR terminal_name : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$IN!SERT_CHARS *)N(* *)N(* Insert Characters *)N(* *)N(* The Insert Characters routine inserts characters into a virtual *)N(* display. *)N(* ! *) *[ASYNCHRONOUS] FUNCTION smg$insert_chars ( display_id : UNSIGNED;F character_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; start_row : INTEGER; start_column : INTEGER;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$INSERT_LINE *)N(* ! *)N(* Insert Line *)N(* *)N(* The Insert Line routine inserts a line into a virtual display and *)N(* scrolls the display. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$insert_line ( display_id !: UNSIGNED; start_row : INTEGER;R character_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;" direction : UNSIGNED := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$INVALIDATE_DISPLAY *)N(* *)N(* ! Mark a Display as Invalid *)N(* *)N(* The Mark a Display as Invalid routine marks a display as invalid and *)N(* causes the entire display to be redrawn. *)N(* *) 0[ASYNCHRONOUS] FUNCTION smg$invalidate_display (, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* ! SMG$KEYCODE_TO_NAME *)N(* *)N(* Translate a Key Code into a Key Name *)N(* *)N(* The Translate a Key Code into a Key Name routine translates the key *)N(* code *)N(* of a key on the keyboard ! into its associated key name. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$keycode_to_name ( key_code : $UWORD;` VAR key_name : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* SMG$LABEL_BORDER *)N(* *)N(* Label a Virtual Display Border ! *)N(* *)N(* The Label a Virtual Display Border routine supplies a label for a *)N(* virtual display's border. *)N(* *) *[ASYNCHRONOUS] FUNCTION smg$label_border ( display_id : UNSIGNED;F text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;& ! position_code : UNSIGNED := %IMMED 0; units : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$LIST_KEY_DEFS *)N(* *)N(* List Key Definitions *)N(* ! *)N(* The List Key Definitions routine returns, one at a time, the *)N(* definitions (equivalence strings) associated with specified keys *)N(* in a specified key table. *)N(* *) +[ASYNCHRONOUS] FUNCTION smg$list_key_defs ( key_table_id : UNSIGNED;# VAR context : [VOLATILE] UNSIGNED;W VAR key_name : [CLASS_S,VOLAT!ILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;W VAR if_state : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;2 VAR attributes : [VOLATILE] UNSIGNED := %IMMED 0;a VAR equivalence_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;p VAR state_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$LIST_PASTEBOARD_ORDER *)N(* ! *)N(* Return Pasting Information *)N(* *)N(* The Return Pasting Information routine returns the pasteboard *)N(* identifier of the pasteboard to which the specified virtual display *)N(* is pasted. Optionally, the pasteboard row 1 and column 1 (origins) of *)N(* the virtual displays are a !lso returned. *)N(* *) 3[ASYNCHRONOUS] FUNCTION smg$list_pasteboard_order ( display_id : UNSIGNED;# VAR context : [VOLATILE] UNSIGNED;) VAR pasteboard_id : [VOLATILE] UNSIGNED;5 VAR pasteboard_row : [VOLATILE] INTEGER := %IMMED 0;M VAR pasteboard_column : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$LIST_PASTING_ORDER ! *)N(* *)N(* Return Virtual Display Pasting Information *)N(* *)N(* The Return Virtual Display Pasting Information routine returns the *)N(* identifiers of the virtual displays pasted to a specified *)N(* pasteboard. Optionally, the pasteboard row 1 and column *)N(* 1 (origins) !of the virtual displays are also returned. *)N(* *) 0[ASYNCHRONOUS] FUNCTION smg$list_pasting_order ( pasteboard_id : UNSIGNED;# VAR context : [VOLATILE] UNSIGNED;& VAR display_id : [VOLATILE] UNSIGNED;5 VAR pasteboard_row : [VOLATILE] INTEGER := %IMMED 0;M VAR pasteboard_column : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$LOAD_KEY_DEFS ! *)N(* *)N(* Load Key Definitions *)N(* *)N(* The Load Key Definitions routine loads a file of key *)N(* definitions *)N(* (DEFINE/KEY commands) into a specified key table. *)N(* ! *) +[ASYNCHRONOUS] FUNCTION smg$load_key_defs ( key_table_id : UNSIGNED;> filespec : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;R default_filespec : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$LOAD_VIRTUAL_DISPLAY *)N(* ! *)N(* Load a Virtual Display *)N(* *)N(* The Load a Virtual Display from a File routine creates a new virtual *)N(* display and loads it with a virtual display saved with *)N(* SMG$SAVE_VIRTUAL_DISPLAY. *)N(* *) 2[ASYNCHRONOUS] ! FUNCTION smg$load_virtual_display (& VAR display_id : [VOLATILE] UNSIGNED;_ filespec : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$MOVE_TEXT *)N(* *)N(* Move Text from One Virtual Display to Another *)N(* *)N(* !The Move Text from One Virtual Display to Another routine moves a *)O(* rectangle of text from one virtual display to another virtual display. *)N(* Given two points in opposite corners of the rectangle, SMG$MOVE_TEXT *)N(* determines the desired width and height of the new virtual display. *)N(* *) '[ASYNCHRONOUS] FUNCTION smg$move_text ( display_id : UNSIGNED; top_left_row : UNSIGNED; top_left_ !column : UNSIGNED; bottom_right_row : UNSIGNED; bottom_right_column : UNSIGNED; display_id2 : UNSIGNED;& top_left_row2 : UNSIGNED := %IMMED 0;) top_left_column2 : UNSIGNED := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$MOVE_VIRTUAL_DISPLAY *)N(* *)N(* Move Virtual Display *)N(* ! *)N(* The Move Virtual Display routine relocates a virtual display on a *)N(* pasteboard and preserves the pasting order. *)N(* *) 2[ASYNCHRONOUS] FUNCTION smg$move_virtual_display ( display_id : UNSIGNED; pasteboard_id : UNSIGNED; pasteboard_row : INTEGER; pasteboard_column : INTEGER;< top_display_id : UNSIGNED :!= %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$NAME_TO_KEYCODE *)N(* *)N(* Translate a Key Name into a Key Code *)N(* *)N(* The Translate a Key Name into a Key Code routine translates the key *)N(* name of a key on the keyboard into its associated key code. ! *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$name_to_keycode (> key_name : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;7 VAR key_code : [VOLATILE] $UWORD) : INTEGER; EXTERNAL; N(* SMG$PASTE_VIRTUAL_DISPLAY *)N(* *)N(* Paste Virtual Display !*)N(* *)N(* The Paste Virtual Display routine pastes a virtual display to a *)N(* pasteboard. *)N(* *) 3[ASYNCHRONOUS] FUNCTION smg$paste_virtual_display ( display_id : UNSIGNED; pasteboard_id : UNSIGNED;& pasteboard_row : INTEGER := %IMMED 0;) pasteboard_column : INTEGER : != %IMMED 0;< top_display_id : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$POP_VIRTUAL_DISPLAY *)N(* *)N(* Delete a Series of Virtual Displays *)N(* *)N(* The Delete a Series of Virtual Displays routine deletes a specified *)N(* virtual display and !all displays that were pasted on the specified *)N(* pasteboard on top of the specified virtual display. *)N(* *) 1[ASYNCHRONOUS] FUNCTION smg$pop_virtual_display ( display_id : UNSIGNED;/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$PRINT_PASTEBOARD *)N(* !*)N(* Print Pasteboard Using a Print Queue *)N(* *)N(* The Print Pasteboard Using a Print Queue routine prints the contents *)N(* of the specified pasteboard on a line printer. *)N(* *) .[ASYNCHRONOUS] FUNCTION smg$print_pasteboard ( pasteboard_id : UNSIGNED;L queue_name : [CLASS_S!] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; copies : INTEGER := %IMMED 0;` form_name : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PRINT_PASTEBOARD *)N(* *)N(* Print Pasteboard Using a Print Queue *)N(* !*)N(* The Print Pasteboard Using a Print Queue routine prints the contents *)N(* of the specified pasteboard on a line printer. *)N(* *) '[ASYNCHRONOUS] FUNCTION smg$put_chars ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;! start_row : INTEGER := %IMMED 0;$ start_column : INTEGER := %IMMED 0; flags : UNSIGNED := %IMMED 0;& rendition_set : UNSIGNE !D := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_CHARS_HIGHWIDE *)N(* *)N(* Write Double-Height Double-Width Characters *)N(* *)N(* The Write Double-Height Double-Width Characters ro !utine writes *)N(* double-height, double-width characters to a virtual display. *)N(* *) 0[ASYNCHRONOUS] FUNCTION smg$put_chars_highwide ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;! start_row : INTEGER := %IMMED 0;$ start_column : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;; character_set : UNS!IGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_CHARS_MULTI *)N(* *)N(* Put Text with Multiple Renditions to Display *)N(* *)N(* The Put Text with Multiple Renditions to Display routine writes text *)N(* with ! *)N(* multiple renditions to the virtual display. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$put_chars_multi ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;! start_row : INTEGER := %IMMED 0;$ start_column : INTEGER := %IMMED 0; flags : UNSIGNED := %IMMED 0;R rendition_string : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;!V rendition_complement : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_CHARS_WIDE *)N(* *)N(* Write Double-Width Characters *)N(* *)N(* The Write Double-Width C !haracters routine writes double-width *)N(* characters to a virtual display. *)N(* *) ,[ASYNCHRONOUS] FUNCTION smg$put_chars_wide ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;! start_row : INTEGER := %IMMED 0;$ start_column : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;!; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_HELP_TEXT *)N(* *)N(* Output Help Text to the Display *)N(* *)N(* The Output Help Text to the Display routine retrieves and outputs *)O(* the help text for the specified !topic in the virtual display provided. *)N(* *) +[ASYNCHRONOUS] FUNCTION smg$put_help_text ( display_id : UNSIGNED;$ keyboard_id : UNSIGNED := %IMMED 0;L help_topic : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;N help_library : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complement : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; !N(* SMG$PUT_LINE *)N(* *)N(* Write Line to Virtual Display *)N(* *)N(* The Write Line to Virtual Display routine writes a line of text to a *)N(* virtual display, beginning at the current virtual cursor position. *)N(* ! *) &[ASYNCHRONOUS] FUNCTION smg$put_line ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;$ line_advance : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0;& character_set : UNSIGNED := %IMMED 0;7 direction : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_LINE_HIGHWIDE ! *)N(* *)N(* Write Double-Height and Double-Width Line *)N(* *)N(* The Write Double-Height and Double-Width Line routine writes a line *)N(* of *)N(* text with double-height and double-width characters. *)N(* ! *) /[ASYNCHRONOUS] FUNCTION smg$put_line_highwide ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;$ line_advance : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_LINE_MULTI ! *)N(* *)N(* Write Line with Multiple Renditions to Display *)N(* *)N(* The Write Line with Multiple Renditions to Display routine *)N(* writes lines with multiple renditions to the virtual display, *)N(* optionally followed by cursor movement sequences. *)N(* ! *) ,[ASYNCHRONOUS] FUNCTION smg$put_line_multi ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;F rendition_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;V rendition_complement : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;$ line_advance : INTEGER := %IMMED 0; flags : UNSIGNED := %IMMED 0;" direction : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0)! : INTEGER; EXTERNAL; N(* SMG$PUT_LINE_WIDE *)N(* *)N(* Write Double-Width Line *)N(* *)N(* The Write Double-Width Line routine writes a line of double-width *)N(* text *) !N(* to a virtual display. *)N(* *) +[ASYNCHRONOUS] FUNCTION smg$put_line_wide ( display_id : UNSIGNED;: text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;$ line_advance : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0;; character_set : UNSIGNED := %IMMED 0) : INTEGER; !EXTERNAL; N(* SMG$PUT_PASTEBOARD *)N(* *)N(* Output Pasteboard Using Routine *)N(* *)N(* The Output Pasteboard Using Routine routine accesses the contents of *)N(* a pasteboard. *)N(* ! *) ,[ASYNCHRONOUS] FUNCTION smg$put_pasteboard ( pasteboard_id : UNSIGNED;9 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE action_routine;5 %IMMED user_argument : [UNSAFE] INTEGER := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_STATUS_LINE *)N(* *)N(* Output Line of Tex!t to Hardware Status Line *)N(* *)N(* The Output Line of Text to Hardware Status Line routine outputs a *)N(* line *)N(* of text to the hardware status line. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$put_status_line (! pasteboard_id : UNSIGNED;O text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* SMG$PUT_VIRTUAL_DISPLAY_ENCODED *)N(* *)N(* Write Encoded String To Display *)N(* *)N(* SMG$PUT_VIRTUAL_DISPLAY_ENCODED lets you write a string that has ! *)N(* multiple video renditions to a virtual display. *)N(* *) 9[ASYNCHRONOUS] FUNCTION smg$put_virtual_display_encoded ( display_id : UNSIGNED; encoded_length : INTEGER;A %REF encoded_text : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE;! start_row : INTEGER := %IMMED 0;$ start_column : INTEGER := %IMMED 0;- placeholder_argument : UNSIGNED := %IMMED 0;; character_set : UNSIGNED :=! %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$PUT_WITH_SCROLL *)N(* *)N(* Write Text and Scroll *)N(* *)N(* SMG$PUT_WITH_SCROLL writes a line of text to a virtual display and *)N(* scrolls the display if necessary. ! *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$put_with_scroll ( display_id : UNSIGNED;F text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;" direction : UNSIGNED := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;" wrap_flag : UNSIGNED := %IMMED 0;6 char_set : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$READ_COMPOSED_LINE ! *)N(* *)N(* Read Composed Line *)N(* *)N(* The Read Composed Line routine reads a line of input composed of *)N(* normal keystrokes and equivalence strings. *)N(* ! *) 0[ASYNCHRONOUS] FUNCTION smg$read_composed_line ( keyboard_id : UNSIGNED;% key_table_id : UNSIGNED := %IMMED 0;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;O prompt_string : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;# display_id : UNSIGNED := %IMMED 0; flags : UNSIGNED := %IMMED 0;P initial_string : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0; ! timeout : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;O VAR word_terminator_code : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$READ_FROM_DISPLAY *)N(* *)N(* Read Text from Display *)N(* ! *)X(* The Read Text from Display routine reads a line of text from a virtual display. *)N(* *) /[ASYNCHRONOUS] FUNCTION smg$read_from_display ( display_id : UNSIGNED;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;S terminator_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;! start_row : INTEGER := %IMMED 0;t VAR rendition_string : [C!LASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$READ_KEYSTROKE *)N(* *)N(* Read a Single Character *)N(* *)N(* The Read a Single Character routine reads a keystroke and returns *)N(* that ! keystroke's terminator code. *)N(* *) ,[ASYNCHRONOUS] FUNCTION smg$read_keystroke ( keyboard_id : UNSIGNED;. VAR word_terminator_code : [VOLATILE] $UWORD;O prompt_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; timeout : INTEGER := %IMMED 0;# display_id : UNSIGNED := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complement : UNSIGNED := %I!MMED 0) : INTEGER; EXTERNAL; N(* SMG$READ_LOCATOR *)N(* *)N(* Read Locator Information *)N(* *)N(* The Read Locator Information routine reads information from *)P(* a DECwindows workstation terminal's locator device (such as a mous !e or *)N(* tablet). *)N(* *) *[ASYNCHRONOUS] FUNCTION smg$read_locator ( keyboard_id : UNSIGNED;$ VAR row_number : [VOLATILE] $UWORD;' VAR column_number : [VOLATILE] $UWORD;. VAR word_terminator_code : [VOLATILE] $UWORD; timeout : INTEGER := %IMMED 0;: parse_routine : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$READ_STRING ! *)N(* *)N(* Read String *)N(* *)N(* The Read String routine reads a string from a virtual keyboard. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$read_string ( keyboard_id : ! UNSIGNED;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;O prompt_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;& maximum_length : INTEGER := %IMMED 0;" modifiers : UNSIGNED := %IMMED 0; timeout : INTEGER := %IMMED 0;O %REF terminator_set : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0;6 VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0;: VAR word_terminator_code : [VOLATILE] $UWORD := %IMMED 0;# display_id : UNSI !GNED := %IMMED 0;R initial_string : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;w VAR terminator_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l14..$u14:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$READ_VERIFY *)N(* *)N(* Read and Verify a Stri !ng *)N(* *)N(* The Read and Verify a String routine reads a sequence of characters *)N(* and verifies the sequence. *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$read_verify ( keyboard_id : UNSIGNED;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2 !..$u2:INTEGER] OF CHAR;D initial_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;D picture_string : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR;D fill_character : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR;E clear_character : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR;O prompt_string : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0;" modifiers : UNSIGNED := %IMMED 0; timeout : INTEGER := %IMMED 0;R %REF placeholder_arg : [UNSAFE] ARRAY [$l10.. !$u10:INTEGER] OF $UBYTE := %IMMED 0;& initial_offset : INTEGER := %IMMED 0;: VAR word_terminator_code : [VOLATILE] $UWORD := %IMMED 0;# display_id : UNSIGNED := %IMMED 0;Y alternate_echo_string : [CLASS_S] PACKED ARRAY [$l14..$u14:INTEGER] OF CHAR := %IMMED 0;, alternate_display_id : INTEGER := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;- rendition_complement : UNSIGNED := %IMMED 0;G VAR input_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$REMOVE_LINE ! *)N(* *)N(* Remove a Line from a Virtual Display *)N(* *)N(* The Remove a Line from a Virtual Display routine removes a line from *)N(* a specified virtual display that was drawn with the SMG$DRAW_LINE or *)N(* SMG$DRAW_RECTANGLE routines. ! *)N(* *) )[ASYNCHRONOUS] FUNCTION smg$remove_line ( display_id : UNSIGNED; start_row : INTEGER; start_column : INTEGER; end_row : INTEGER;+ end_column : INTEGER) : INTEGER; EXTERNAL; N(* SMG$REPAINT_LINE *)N(* *)N(* Repaint One or More Lines on the Cur !rent Pasteboard *)N(* *)N(* The Repaint One or More Lines on the Current Pasteboard routine *)N(* repaints a series of lines on the current pasteboard. *)N(* *) *[ASYNCHRONOUS] FUNCTION smg$repaint_line ( pasteboard_id : UNSIGNED; start_row : INTEGER;< number_of_lines : INTEGER := %IMMED 0) : INTEGE !R; EXTERNAL; N(* SMG$REPAINT_SCREEN *)N(* *)N(* Repaint Current Pasteboard *)N(* *)N(* The Repaint Current Pasteboard routine repaints the specified *)N(* pasteboard after *)N(* no !n-SMG$ I/O has occurred. *)N(* *) ,[ASYNCHRONOUS] FUNCTION smg$repaint_screen (/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$REPASTE_VIRTUAL_DISPLAY *)N(* *)N(* Repaste Virtual Display *)N(* ! *)N(* The Repaste Virtual Display routine moves a virtual display to a new *)N(* position on the pasteboard. The pasting order is not preserved. *)N(* *) 5[ASYNCHRONOUS] FUNCTION smg$repaste_virtual_display ( display_id : UNSIGNED; pasteboard_id : UNSIGNED; pasteboard_row : INTEGER; pasteboard_column : INTEGER;< top_display_id : UNSI!GNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$REPLACE_INPUT_LINE *)N(* *)N(* Replace Input Line *)N(* *)N(* The Replace Input Line routine replaces the specified lines in the *)N(* recall buffer with the specified string. ! *)N(* *)N(* *) 0[ASYNCHRONOUS] FUNCTION smg$replace_input_line ( keyboard_id : UNSIGNED;P replace_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;! line_count : $UBYTE := %IMMED 0;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$RESTORE_PHYSICAL_SCREEN ! *)N(* *)N(* Restore Physical Pasteboard *)N(* *)N(* The Restore Physical Pasteboard routine rewrites the pasteboard *)N(* image as it was at the time the SMG$SAVE_PHYSICAL_SCREEN routine *)N(* was called. *)N(* ! *) 5[ASYNCHRONOUS] FUNCTION smg$restore_physical_screen ( pasteboard_id : UNSIGNED;, display_id : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$RETURN_CURSOR_POS *)N(* *)N(* Return Cursor Position *)N(* ! *)N(* The Return Cursor Position routine returns the current virtual *)N(* cursor *)N(* position in a specified virtual display. *)N(* *) /[ASYNCHRONOUS] FUNCTION smg$return_cursor_pos ( display_id : UNSIGNED;$ VAR start_row : [VOLATILE] INTEGER;< VAR start_column : [VOLATILE] INTEGER) : INTEGER; EXT !ERNAL; N(* SMG$RETURN_INPUT_LINE *)N(* *)N(* Return Input Line *)N(* *)N(* The Return Input Line routine returns to the caller the requested *)N(* line from the recall buffer. This line is retrieved either by *)N(* matching ! it with a specified string or by specifying the appropriate *)N(* line number. *)N(* *) /[ASYNCHRONOUS] FUNCTION smg$return_input_line ( keyboard_id : UNSIGNED;S VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;N match_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;/ byte_integer_line_number : $UBYTE ! := %IMMED 0;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$RING_BELL *)N(* *)N(* Ring the Terminal Bell or Buzzer *)N(* *)N(* The Ring the Terminal Bell or Buzzer routine sounds the terminal *)N(* be !ll or buzzer. *)N(* *) '[ASYNCHRONOUS] FUNCTION smg$ring_bell ( display_id : UNSIGNED;< number_of_times : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SAVE_PHYSICAL_SCREEN *)N(* *)N(* Save Physical Screen ! *)N(* *)N(* The Save Physical Screen routine saves the contents of the *)N(* pasteboard so *)N(* that a later call to SMG$RESTORE_PHYSICAL_SCREEN can restore it. *)N(* *) 2[ASYNCHRONOUS] FUNCTION smg$save_physical_screen ( pasteboard_id : UNSIGNED; !& VAR display_id : [VOLATILE] UNSIGNED;) desired_start_row : INTEGER := %IMMED 0;< desired_end_row : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SAVE_VIRTUAL_DISPLAY *)N(* *)N(* Save the Virtual Display to a File *)N(* *)N(* The Save the Virtual Display ! to a File routine saves the contents of *)N(* a *)N(* virtual display and stores it in a file. *)N(* *) 2[ASYNCHRONOUS] FUNCTION smg$save_virtual_display ( display_id : UNSIGNED;_ filespec : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SCROLL_DISPLAY_AREA ! *)N(* *)N(* Scroll Display Area *)N(* *)N(* The Scroll Display Area routine scrolls a rectangular region of a *)N(* virtual display. *)N(* ! *) 1[ASYNCHRONOUS] FUNCTION smg$scroll_display_area ( display_id : UNSIGNED;! start_row : INTEGER := %IMMED 0;$ start_column : INTEGER := %IMMED 0; height : INTEGER := %IMMED 0; width : INTEGER := %IMMED 0;" direction : UNSIGNED := %IMMED 0;2 count : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SCROLL_VIEWPORT *)N(* *)N(* Scroll a D !isplay Under a Viewport *)N(* *)N(* The Scroll a Display Under a Viewport routine scrolls a virtual *)N(* display under its associated viewport. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$scroll_viewport ( display_id : UNSIGNED;" direction : UNSIGNED := %IMMED 0;2 count :! INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SELECT_FROM_MENU *)N(* *)N(* Make a Selection from the Menu *)N(* *)N(* The Make a Selection from the Menu routine lets you move between the *)N(* menu choices using the arrow keys and lets you make !a selection by *)N(* pressing the return key. *)N(* *) .[ASYNCHRONOUS] FUNCTION smg$select_from_menu ( keyboard_id : UNSIGNED; display_id : UNSIGNED;0 VAR selected_choice_number : [VOLATILE] $UWORD;, default_choice_number : $UWORD := %IMMED 0; flags : UNSIGNED := %IMMED 0;N help_library : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; timeout : I !NTEGER := %IMMED 0;: VAR word_terminator_code : [VOLATILE] $UWORD := %IMMED 0;e VAR selected_choice_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0;& rendition_set : UNSIGNED := %IMMED 0;B rendition_complement : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SET_BROADCAST_TRAPPING *)N(* *)N(* Enable Broadcast Trapping ! *)N(* *)N(* The Enable Broadcast Trapping routine enables the trapping of *)N(* broadcast *)N(* messages. *)N(* *) 4[ASYNCHRONOUS] FUNCTION smg$set_broadcast_trapping ( pasteboard_id : ! UNSIGNED;B %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST_routine := %IMMED 0;A %IMMED AST_argument : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SET_CURSOR_ABS *)N(* *)N(* Set Absolute Cursor Position *)N(* *)N(* The Set Absolute Cursor Posi !tion routine moves the virtual cursor to *)N(* the specified position in a virtual display. *)N(* *) ,[ASYNCHRONOUS] FUNCTION smg$set_cursor_abs ( display_id : UNSIGNED;! start_row : INTEGER := %IMMED 0;9 start_column : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SET_CURSOR_MODE *)N(* ! *)N(* Set the Cursor Mode *)N(* *)N(* The Set the Cursor Mode *)N(* routine turns the physical cursor on or off and selects *)N(* jump or smooth scrolling. *)N(* ! *) -[ASYNCHRONOUS] FUNCTION smg$set_cursor_mode ( pasteboard_id : UNSIGNED;' flags : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$SET_CURSOR_REL *)N(* *)N(* Move Cursor Relative to Current Position *)N(* *)N(* The Move Cursor Relative to Current Position ! routine moves the *)N(* virtual *)N(* cursor the specified number of rows and columns from the current *)N(* virtual cursor position in a virtual display. *)N(* *) ,[ASYNCHRONOUS] FUNCTION smg$set_cursor_rel ( display_id : UNSIGNED;! delta_row : INTEGER := %IMMED 0;9 delta_column : INTEGER := %IMMED 0) : INTEG !ER; EXTERNAL; N(* SMG$SET_DEFAULT_STATE *)N(* *)N(* Set Default State *)N(* *)N(* The Set Default State routine sets and/or returns the current *)N(* default *)N(* !state for a key table. *)N(* *) /[ASYNCHRONOUS] FUNCTION smg$set_default_state ( key_table_id : UNSIGNED;K new_state : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;m VAR old_state : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SET_DISPLAY_SCROLL_REGION !*)N(* *)N(* Create Display Scrolling Region *)N(* *)N(* The Create Display Scrolling Region routine creates a virtual *)N(* scrolling r *)N(* in a virtual display. *)N(* ! *) 7[ASYNCHRONOUS] FUNCTION smg$set_display_scroll_region ( display_id : UNSIGNED;! start_row : INTEGER := %IMMED 0;4 end_row : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SET_KEYPAD_MODE *)N(* *)N(* Set Keypad Mode *)N(* ! *)N(* The Set Keypad Mode routine sets the terminal's numeric keypad to *)N(* either numeric or applications mode. *)N(* *) -[ASYNCHRONOUS] FUNCTION smg$set_keypad_mode ( keyboard_id : UNSIGNED;' flags : UNSIGNED) : INTEGER; EXTERNAL; N(* SMG$SET_OUT_OF_BAND_ASTS *)N(* ! *)N(* Set Out-of-Band ASTs *)N(* *)N(* The Set Out-of-Band ASTs routine either enables or disables the *)N(* trapping of out-of-band control characters. *)N(* *) 2[ASYNCHRONOUS] FUNCTION smg$se !t_out_of_band_asts ( pasteboard_id : UNSIGNED;# control_character_mask : UNSIGNED;6 %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST_routine;A %IMMED AST_argument : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SET_PHYSICAL_CURSOR *)N(* *)N(* Set Cursor on Physical Screen *)N(* ! *)N(* The Set Cursor on Physical Screen routine moves the physical cursor *)N(* to the specified position on the pasteboard. *)N(* *) 1[ASYNCHRONOUS] FUNCTION smg$set_physical_cursor ( pasteboard_id : UNSIGNED; pasteboard_row : INTEGER;2 pasteboard_column : INTEGER) : INTEGER; EXTERNAL; N(* SMG$SET_TERM_CHARACTERISTICS ! *)N(* *)N(* Change Terminal Characteristics *)N(* *)N(* The Change Terminal Characteristics routine changes or retrieves the *)N(* terminal characteristics for a given pasteboard. *)N(* *) 6[ASYNCHRON !OUS] FUNCTION smg$set_term_characteristics ( pasteboard_id : UNSIGNED;, on_characteristics1 : UNSIGNED := %IMMED 0;, on_characteristics2 : UNSIGNED := %IMMED 0;- off_characteristics1 : UNSIGNED := %IMMED 0;- off_characteristics2 : UNSIGNED := %IMMED 0;< VAR old_characteristics1 : [VOLATILE] UNSIGNED := %IMMED 0;< VAR old_characteristics2 : [VOLATILE] UNSIGNED := %IMMED 0;, on_characteristics3 : UNSIGNED := %IMMED 0;- off_characteristics3 : UNSIGNED := %IMMED 0;Q VAR old_characteristics3 !: [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SNAPSHOT *)N(* *)N(* Write Snapshot *)N(* *)N(* The Write Snapshot routine writes the current pasteboard buffer to *)N(* the file or hardcopy terminal specifie !d by the pasteboard identifier. *)N(* *) &[ASYNCHRONOUS] FUNCTION smg$snapshot ( pasteboard_id : UNSIGNED;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* SMG$SNAPSHOT_TO_PRINTER *)N(* *)N(* Write Snapshot to Printer *)N(* ! *)N(* The Write Snapshot to Printer routine writes the current pasteboard *)N(* buffer to the printer attached to the terminal. *)N(* *) 1[ASYNCHRONOUS] FUNCTION smg$snapshot_to_printer ( pasteboard_id : UNSIGNED;A device_type : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;3 flags : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL;" N(* SMG$UNPASTE_VIRTUAL_DISPLAY *)N(* *)N(* Remove Virtual Display *)N(* *)N(* The Remove Virtual Display routine removes a virtual display from a *)N(* pasteboard. *)N(* " *) 5[ASYNCHRONOUS] FUNCTION smg$unpaste_virtual_display ( display_id : UNSIGNED;/ pasteboard_id : UNSIGNED) : INTEGER; EXTERNAL; N(* END. *) N(* MODULE SMGMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; " *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; " *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; " *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5"),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; " *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; " *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BI"T(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; " *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SMGMSG ***) N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:54.06 *)N(* *)N(* FILE: SMGMSG.MSG EDIT: SL1035 *)N(* " *)Q(***************************************************************************** *)(** * *)M(** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1994 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * * ")Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. " * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(* *)N(* 1-035 MODIFY THE TEXT F "OR SEVERAL MESSAGES TO MATCH THE HELP TEXT, *)I(* WHICH IS CORRECT. SL 28-SEP-1994 *)N(* 1-034 ADD /MACRO=$SMGMSG FOR STARLETSD. TS 7-MAY-1986 *)N(* 1-033 CHANGE WINTRUFIT TO WINTRUNCFIT JCW 18-MAR-1986 *)N(* 1-032 ADD SUBPROCESS MESSAGES. TS 12-DEC-1985 *)N(* 1-031 ADD VIEWPORT MESSAGES. JCW 21-NOV-1985 *)N(* 1-030 ADD SMG$_GETDATSTR FOR USE IN HELP TEXT DISPLAY". TS 17-OCT-1985 *)N(* 1-029 ADD SMG$_NOTIMP - NOT IMPLEMENTED ERROR MESSAGE. JCW 2-JUL-1985 *)L(* 1-028 ADD LINNOTFND AND EXPTOOCOM. TS 28-MAY-1985 *)N(* 1-027 ADD DISREQ, LENNOTEQL, LENMUSONE FOR SMG$READ_VERIFY. *)I(* ADD FILESPEC TO TERMTABLE COMPILER ERROR MESSAGES. TS 8-JAN-1985 *)N(* 1-001 ORIGINAL. PLL 16-MAR-1983 *)N(*- *)N(*+ " *)N(* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *)N(* *)I(* SMG$_ABCMNOXYZ *)N(* *)O(* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *)Q(* AND "xyz" ARE THE FIRST THREE LET"TERS OF THE FIRST THREE WORDS OF THE ERROR *)N(* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *)N(* *)P(* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *)N(* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *)N(* *)N(* MACRO-32 PROGRAMMING: " *)N(* *)N(* THE MACROS CALL: *)N(* *)I(* $SMGDEF *)N(* *)N(* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *)N(* THE" RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *)N(* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *)N(* *)N(*- *)N(* TEMPLATE FOR DOCUMENTING MESSAGES. *)N(* EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND *)N(* IS FOLLOWED BY A BLANK LINE. " *)N(* BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "!" IN REGULAR COMMENTS *)N(* AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE *)N(* SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE *)N(* DOCUMENTATION BECOMES AUTOMATED. *)N(*++ *)K(* FACILITY: SMG " *)N(* EXPLANATION: X *)N(* USER ACTION: Y *)N(*-- *);(* ; SET LH TO 18 (DECIMAL). *) CONST SMG$_FACILITY = 18; SMG$_NORMAL = 1212417; N(*++ *)K(* FACILITY: SMG " *)N(* EXPLANATION: NORMAL SUCCESSFUL COMPLETION. *)N(* USER ACTION: NONE *)N(*-- *) CONST SMG$_PREDEFREP = 1212433; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A PREVIOUS KEY" DEFINITION WAS REPLACED BY A NEW *)B(* DEFINITION. *)N(* USER ACTION: NONE *)N(*-- *)N(*+ *)N(* THE NEXT THREE MESSAGES ARE USED BY THE "batching" *)N(* PROCEDURES, SMG$BEGIN_DISPLAY_UPDATE AND SMG$END_DISPLAY_UPDATE. " *)N(* THE TEXT OF THE MESSAGES SHOULD CHANGE IF WE DECIDE NOT *)N(* TO PUBLICLY USE THE TERM "batching". *)N(*- *) CONST SMG$_BATSTIPRO = 1212441; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A USER TRIED TO END BATCHING (UPDATING") WITH *)B(* A CALL TO SMG$END_DISPLAY_UPDATE OR *)B(* SMG$END_PASTEBOARD_UPDATE. THIS DID NOT *)B(* TERMINATE BATCHING BECAUSE THERE WERE MORE CALLS *)B(* MADE TO BEGIN BATCHING THAN TO END BATCHING. *)N(* USER ACTION: NONE. SOME OUTER LEVEL ROUTINE PROBABLY STILL *)B(* WANTS BATCHING TO BE IN EFFECT. *)N(*-- " *) CONST SMG$_BATWASOFF = 1212449; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A PROGRAM TRIED TO TURN OFF BATCHING WHEN *)B(* BATCHING WAS ALREADY OFF. *)N(* USER ACTION: PROBABLY NONE. CHECK THAT THERE WAS ONE CALL *)B(* TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. " *)N(*-- *) CONST SMG$_BATWAS_ON = 1212457; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A PROGRAM TRIED TO TURN ON BATCHING WHEN *)B(* BATCHING WAS ALREADY ON. THIS IS NORMAL IN *)B(* A MODULAR ENVIRONMENT. *)N "(* USER ACTION: NONE. CHECK THAT THERE WAS ONE CALL *)B(* TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. *)N(*-- *) CONST SMG$_PASALREXI = 1212465; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A USER TRIED TO CREATE A PASTEBOARD FOR A DEVICE, *) "B(* WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL IN *)B(* A MODULAR ENVIRONMENT. THE EXISTING PASTEBOARD ID *)B(* IS RETURNED. *)N(* USER ACTION: NONE. MAKE SURE YOU DON'T DELETE A PASTEBOARD *)B(* THAT YOU ACTUALLY DIDN'T CREATE. *)N(*-- *) CONST SMG$_NOT_A_TRM = 1212473; N(*++ " *)K(* FACILITY: SMG *)N(* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *)B(* THE PASTEBOARD HAS BEEN CREATED, BUT THE OUTPUT *)B(* DEVICE IS NOT A TERMINAL. *)N(* USER ACTION: NONE. *)N(*-- *) "CONST SMG$_NO_MORMSG = 1212481; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT *)B(* THERE WERE NO MORE MESSAGES TO BE OBTAINED. *)N(* USER ACTION: NONE. *)N(*-- *) " CONST SMG$_WILUSERMS = 1212489; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: NORMALLY THE SCREEN IS UPDATED AT THE END OF *)B(* EVERY OUTPUT OPERATION. IF, HOWEVER, THE 'DEVICE' *)B(* IS ACTUALLY A FILE OR AN UNKNOWN TERMINAL, THEN *)B(* THIS MESSAGE IS GIVEN AT THE TIME OUTPUT WOULD *)B(* HAVE BEEN SENT TO "THE SCREEN. *)N(* USER ACTION: NONE *)N(*-- *) CONST SMG$_NOTRMSOUT = 1212497; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: SMG$SNAPSHOT IS USED WITH FILES AND UNKNOWN DEVICES *)B(* TO CAPTURE THE C !"ONTENTS OF THE PASTEBOARD AT VARIOUS *)B(* TIMES. IF SMG$SNAPSHOT IS CALLED FOR A PASTEBOARD *)B(* ASSOCIATED WITH A VIDEO TERMINAL, THEN IT TAKES NO *)B(* ACTION AND RETURNS THIS INFORMATIONAL MESSAGE. *)N(* USER ACTION: NONE *)N(*-- *) CONST SMG$_NO_CHADIS = 1212505; N(*++ "" *)K(* FACILITY: SMG *)N(* EXPLANATION: THE REQUESTED NUMBER OF COLUMNS TO CHANGE WAS ZERO, *)B(* SO NOTHING IN THE VIRTUAL DISPLAY WAS CHANGED. *)N(* USER ACTION: NONE *)N(*-- *) CONST SMG$_PRISECMAP = 1212513; N(*++ #" *)K(* FACILITY: SMG *)N(* EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN *)B(* THE CALLER'S PRIVATE COPY OF TERMTABLE. *)N(* USER ACTION: NONE *)N(*-- *) CONST SMG$_GBLSECMAP = 1212521; N(*++ $" *)K(* FACILITY: SMG *)N(* EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN *)B(* THE SYSTEM TERMTABLE. (REQUESTED TERMINAL DEFINITION *)B(* DID NOT EXIST IN THE CALLER'S PRIVATE TERMTABLE.) *)N(* USER ACTION: NONE *)N(*-- *) !CONST SMG$_WINTR %"UNCFIT = 1212529; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE VIEWPORT SPECIFICATION WILL NOT FIT WHOLLY WITHIN *)B(* THE VIRTUAL DISPLAY. THE VIEWPORT HAS BEEN TRUNCATED *)B(* TO FIT WITHIN THE VIRTUAL DISPLAY. *)N(* USER ACTION: NONE *)N(*-- &" *) CONST SMG$_SUBALREXI = 1212537; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A USER TRIED TO CREATE A SUBPROCESS FOR A VIRTUAL *)B(* DISPLAY, WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL *)B(* IN A MODULAR ENVIRONMENT. *)N(* USER ACTION: NONE. '" *)N(*-- *) CONST SMG$_NONBRDMSG = 1212545; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT *)B(* THERE WAS A NON-BROADCAST MESSAGE TO BE OBTAINED. *)N(* USER ACTION: NONE. (" *)N(*-- *) CONST SMG$_FATERRLIB = 1212932; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INTERNAL ERROR HAS OCCURRED WITHIN SMG. *)N(* USER ACTION: CONTACT A DIGITAL SUPPORT REPRESENTATIVE. *)N(*-- )" *) CONST SMG$_INVARG = 1212940; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE. *)N(* USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS *)B(* OUT OF RANGE AND CORRECT YOUR PROGRAM. *)N(*-- *" *) CONST SMG$_INVCOL = 1212948; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INVALID COLUMN NUMBER WAS SPECIFIED. IT WAS EITHER *)B(* LESS THAN 0 OR LARGER THAN THE NUMBER OF COLUMNS *)B(* IN THE VIRTUAL DISPLAY. *)N(* USER ACTION: SPECIFY A VALID COLUMN +" NUMBER. COLUMNS ARE NUMBERED *)B(* BEGINNING WITH 1. *)N(*-- *) CONST SMG$_INVDIS_ID = 1212956; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INVALID DISPLAY-ID WAS SPECIFIED. *)N(* USER ACTION: CHECK THAT YOU ARE P ,"ASSING THE DISPLAY ID BY REFERENCE *)B(* NOT BY VALUE. ENSURE THAT THE DISPLAY ID WAS *)B(* PREVIOUSLY SET UP BY A CALL TO SMG$CREATE_VIRTUAL_DISPLAY. *)N(*-- *) CONST SMG$_INVPAS_ID = 1212964; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INVALID PASTEBOARD ID WAS S-"PECIFIED. *)N(* USER ACTION: CHECK THAT YOU ARE PASSING THE PASTEBOARD ID BY REFERENCE *)B(* NOT BY VALUE. (A REFERENCE TO A 0 IS VALID, SINCE 0 *)B(* IS A LEGAL PASTEBOARD ID.) ENSURE THAT THE PASTEBOARD *)B(* WAS PREVIOUSLY SET UP BY A CALL TO *)B(* SMG$CREATE_PASTEBOARD AND THAT THE PASTEBOARD HAS NOT *)B(* BEEN DELETED. *)N(*-- ." *) CONST SMG$_INVROW = 1212972; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INVALID ROW NUMBER WAS SPECIFIED. IT WAS EITHER *)B(* LESS THAN 0 OR LARGER THAN THE NUMBER OF ROWS *)B(* IN THE VIRTUAL DISPLAY. *)N(* USER ACTION: SPECIFY A VALID ROW NUMBER. ROWS ARE NUMBERED /" *)B(* BEGINNING WITH 1. *)N(*-- *) CONST SMG$_DSPIN_USE = 1212980; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT *)B(* LEGAL WHILE OUTPUT TO THE VIRTUAL DISPLAY IS BEING ACTIVE. 0"*)B(* FOR EXAMPLE, YOU CAN'T OUTPUT TEXT TO A DISPLAY IN AN AST *)B(* ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SAME DISPLAY. *)N(* USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE UPDATES *)B(* TO THE SAME VIRTUAL DISPLAY AT THE SAME TIME. *)N(*-- *) CONST SMG$_TOOMANPAS = 1212988; N(*++ *)K(* FACILITY: SMG 1" *)N(* EXPLANATION: AN INTERNAL LIMIT ON THE NUMBER OF PASTEBOARDS *)B(* THAT YOUR PROGRAM MAY HAVE HAS BEEN EXCEEDED. *)B(* THE LIMIT IS CURRENTLY 31. *)N(* USER ACTION: USE FEWER PASTEBOARDS. *)N(*-- *) CONST SMG$_WRONUMARG = 1212996; N(*++ 2" *)K(* FACILITY: SMG *)N(* EXPLANATION: AN SMG ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS *)B(* (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) *)B(* OR TOO MANY ARGUMENTS. *)N(* USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH *)B(* THE PROPER NUMBER OF ARGUMENTS. *)N(*-- 3" *) CONST SMG$_INVKBD_ID = 1213004; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INVALID KEYBOARD ID WAS PASSED. *)N(* USER ACTION: CHECK THAT YOU ARE PASSING THE KEYBOARD ID BY REFERENCE *)B(* NOT BY VALUE. ENSURE THAT THE KEYBOARD ID WAS *)B(* PREV 4"IOUSLY SET UP BY A CALL TO *)B(* SMG$CREATE_VIRTUAL_KEYBOARD. *)N(*-- *) CONST SMG$_INVKTB_ID = 1213012; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INVALID KEY TABLE ID WAS PASSED. *)N(* USER ACTION: CH 5"ECK THAT YOU ARE PASSING THE KEY TABLE ID BY REFERENCE *)B(* NOT BY VALUE. ENSURE THAT THE KEY TABLE ID WAS *)B(* PREVIOUSLY SET UP BY A CALL TO *)B(* SMG$CREATE_KEY_TABLE. *)N(*-- *) CONST SMG$_INVMAXLEN = 1213020; N(*++ *)K(* FACILITY: SMG 6" *)N(* EXPLANATION: THE MAXIMUM LENGTH SPECIFIED FOR AN INPUT STRING *)B(* WAS TOO LONG. *)N(* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS AN INPUT *)B(* STRING OF 512 CHARACTERS OR LESS. *)N(*-- *) CONST SMG$_FILTOOLON = 1213028; N(*++ 7" *)K(* FACILITY: SMG *)N(* EXPLANATION: THE LENGTH OF THE SPECIFIED STRING *)B(* WAS TOO LONG. *)N(* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE *)B(* NAME OF 255 CHARACTERS OR LESS. *)N(*-- *) CONST SMG$_PROTO 8"OLON = 1213036; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS. *)N(* USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. *)N(*-- *) CONST SMG$_NOTPASTED = 1213044; N(*++ 9" *)K(* FACILITY: SMG *)N(* EXPLANATION: AN ATTEMPT WAS MADE TO UNPASTE OR MOVE A DISPLAY *)B(* THAT WAS NOT PASTED TO THE SPECIFIED PASTEBOARD. *)N(* USER ACTION: CHECK THAT YOU ARE REFERENCING THE CORRECT VIRTUAL *)B(* DISPLAY. VERIFY THAT THE DISPLAY HAS NOT BEEN *)B(* UNPASTED OR THAT YOU FORGOT TO PASTE IT. *)N(*-- :" *) CONST SMG$_PBDIN_USE = 1213052; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT *)B(* LEGAL WHILE OUTPUT TO THE PASTEBOARD IS BEING BATCHED. *)B(* FOR EXAMPLE, YOU CAN'T CHANGE THE PASTEBOARD *)B(* CHARACTERISTICS WHILE THE PASTEBOA ;"RD IS BATCHED. *)N(* USER ACTION: TURN OFF PASTEBOARD BATCHING BEFORE ATTEMPTING THE *)B(* OPERATION. YOU MAY TURN BATCHING ON AGAIN AFTER THE *)B(* OPERATION. *)N(*-- *) CONST SMG$_INVWIDARG = 1213060; N(*++ *)K(* FACILITY: SMG <" *)N(* EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS *)B(* OF THE TERMINAL, SETTING ITS WIDTH TO 0. *)N(* USER ACTION: CORRECT THE CODE. A WIDTH OF 0 IS ILLEGAL. *)N(*-- *) CONST SMG$_INVPAGARG = 1213068; N(*++ *)K(* FACILITY: SMG =" *)N(* EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS *)B(* OF THE TERMINAL, SETTING ITS HEIGHT (PAGE SIZE) TO 0. *)N(* USER ACTION: CORRECT THE CODE. A HEIGHT OF 0 IS ILLEGAL. *)N(*-- *) CONST SMG$_INVCOLARG = 1213076; N(*++ *)K(* FACILITY: SMG >" *)N(* EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS *)B(* OF THE TERMINAL, CHANGING ITS BACKGROUND COLOR *)B(* TO A VALUE THAT WAS NOT LEGAL. *)N(* USER ACTION: CHECK THE SYMBOLIC NAME FOR THE BACKGROUND COLOR *)B(* DESIRED. SPECIFY IT CORRECTLY. *)N(*-- *) CONST SMG$_DIALINNOT = 1213084;?" N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE VERTICES SPECIFIED WILL RESULT IN A DIAGONAL LINE, *)B(* RATHER THAN A VERTICAL OR HORIZONTAL LINE. *)N(* USER ACTION: RE-SPECIFY THE VERTICES SO THAT THE LINE DRAWN WILL BE *)B(* VERTICAL OR HORIZONTAL. *)N(*-- @" *) CONST SMG$_TABID_MIS = 1213092; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE TERMTABLE INTERNAL CONSISTENCY CHECK FAILED. THE *)B(* ROUTINES WHICH FETCH INFORMATION FROM TERMTABLE HAVE *)B(* A DIFFERENT VERSION NUMBER THAN THE TERMTABLE DATA. *)N(* USER ACTION: PROBABLY THE ROUTINES WHICH FETCH THE DATA A" ARE NEWER *)B(* THAN YOUR TERMTABLE.EXE. RE-COMPILE TERMTABLE.TXT TO *)B(* UPDATE YOUR TERMTABLE.EXE. *)N(*-- *) CONST SMG$_UNDTERNAM = 1213100; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN B" *)B(* THE CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM *)B(* COPY OF TERMTABLE. *)N(* USER ACTION: IF YOU INTENDED TO USE A PRIVATE TERMINAL DEFINITION, *)B(* MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVATE *)B(* DIRECTORY AND THAT THE LOGICAL NAME TERM$TABLOC POINTS *)B(* TO IT. IF YOU EXPECTED YOUR TERMINAL TO BE DEFINED IN *)B(* THE SYSTEM TERMTABLE, CHECK WITH YOUR SYSTEM MANAGER. *)N(*-- C" *) CONST SMG$_INVTERTAB = 1213108; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN INVALID TERMINAL TABLE ADDRESS WAS SPECIFIED. *)N(* USER ACTION: CHECK THAT YOU ARE PASSING THE TERMINAL TABLE ARGUMENT *)B(* BY REFERENCE AND NOT BY VALUE. MAKE SURE THE TERMINAL *)B(* D"TABLE ADDRESS WAS ACQUIRED BY CALLING *)B(* SMG$INIT_TERM_TABLE. *)N(*-- *) CONST SMG$_INVREQCOD = 1213116; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: DATA IS REQUESTED FROM TERMTABLE VIA REQUEST CODES *)A(* WHICH ARE E"AVAILABLE AS SYMBOLIC NAMES. THE CODE YOU *)B(* HAVE SPECIFIED IS INVALID. *)N(* USER ACTION: CHECK THE SPELLING OF THE SYMBOLIC NAME YOU ARE USING. *)N(*-- *) CONST SMG$_NOTBOOCAP = 1213124; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERM F"TABLE COMPILER EXPECTED A BOOLEAN CAPABILITY *)B(* NAME BUT ENCOUNTERED SOMETHING ELSE. *)N(* USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE *)B(* MISSPELLED THE BOOLEAN CAPABILITY NAME OR OMITTED *)B(* ANOTHER STATEMENT SUCH AS STRING OR NUMERIC WHICH *)B(* WOULD HAVE TERMINATED BOOLEAN CAPABILITIES. *)N(*-- *) CONST SMG$_SYN G"ERR = 1213132; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID *)B(* SYNTAX. FOR INSTANCE, THERE MAY BE A MISPLACED OR *)B(* MISSING EQUALS SIGN. *)N(* USER ACTION: CHECK YOUR TERMINAL DEFINITION. *)N(*-- H" *) CONST SMG$_UNDTERTYP = 1213140; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE DEFINITION FOR THE REQUESTED TERMINAL TYPE WAS *)B(* NOT FOUND IN THE CALLER'S PRIVATE COPY OF TERMTABLE *)B(* OR THE SYSTEM TERMTABLE. *)N(* USER ACTION: IF YOU INTENDED TO USE A P I"RIVATE DEFINITION, MAKE *)B(* SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVATE DIRECTORY *)B(* AND THAT THE LOGICAL NAME TERM$TABLOC POINTS TO IT. *)B(* IF YOU EXPECTED YOUR TERMINAL DEFINITION TO EXIST IN *)B(* THE SYSTEM TERMTABLE, CONSULT YOUR SYSTEM MANAGER. *)N(*-- *) CONST SMG$_MISTERNAM = 1213148; N(*++ J" *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: CAPABILITIES WERE NOT PRECEEDED BY THE NAME OF A *)B(* TERMINAL. *)N(* USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. MAKE SURE THAT *)B(* EACH DEFINITION STARTS WITH NAME = . *)N(*-- *) CONST SMG$_EXPTOOCOM = 1213156; N(*++ K" *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE SPECIFIED EXPRESSION WAS *)B(* TOO COMPLEX FOR THE TERMTABLE COMPILER TO PARSE. *)N(* USER ACTION: CORRECT YOUR CAPABILITY SO THAT IT IS LESS COMPLEX. *)N(*-- *) CONST SMG$_ILLVAL = 1213164; N(*++ L" *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: A BOOLEAN CAPABILITY WAS GIVEN A VALUE OTHER THAN *)B(* 0 OR 1. *)N(* USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. BOOLEAN CAPABILITIES *)B(* MUST BE 0 OR 1 (OFF OR ON, RESPECTIVELY). *)N(*-- M" *) CONST SMG$_INVEXP = 1213172; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID *)B(* ARITHMETIC EXPRESSION. *)N(* USER ACTION: CHECK YOUR DEFINITION. MAKE SURE THAT YOU HAVE *)B(* USED ONLY VALID OPERATORS AND OPERANDS IN YOUR N" *)B(* EXPRESSIONS. *)N(*-- *) CONST SMG$_ERRAT_LIN = 1213180; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: GENERAL INFORMATION MESSAGE INCLUDED WITH MANY *)B(* TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY *)B(* O" SPECIFICALLY WHERE AN ERROR OCCURRED. *)N(* USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. *)N(*-- *) CONST SMG$_ERRLIN = 1213188; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: GENERAL INFORMATION MESSAGE INCLUDED WITH MANY *)B(* P"TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY *)B(* SPECIFICALLY WHICH LINE CONTAINED AN ERROR. *)N(* USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. *)N(*-- *) CONST SMG$_UNDTERNOP = 1213196; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATIONQ": THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN THE *)B(* CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM *)B(* TERMTABLE. THE CALLER'S PRIVATE TERMTABLE COULDN'T BE *)B(* BE ACCESSED, EITHER BECAUSE IT DIDN'T EXIST OR BECAUSE *)B(* RMS COULD NOT OPEN THE FILE. *)N(* USER ACTION: IF YOU INTENDED TO USE A DEFINITION FROM YOUR PRIVATE *)B(* TERMTABLE, MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR *)B(* PRIVATE DIRECTOR R"Y AND THAT THE LOGICAL NAME TERM$TABLOC *)B(* POINTS TO IT. MAKE SURE THAT YOU HAVE READ ACCESS TO *)B(* THE FILE. *)N(*-- *) CONST SMG$_UNDTERNOS = 1213204; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE REQUESTED TERMINAL DEF S"INITION WAS NOT FOUND IN *)B(* THE CALLER'S PRIVATE TERMTABLE OR THE SYSTEM TERMTABLE. *)B(* THE SYSTEM TERMTABLE WAS UNAVAILABLE. *)N(* USER ACTION: THE SYSTEM TERMTABLE SHOULD BE MAPPED AS A GLOBAL *)B(* SECTION AND THEREFORE SHOULD ALWAYS BE AVAILABLE. *)B(* CONSULT YOUR SYSTEM MANAGER REGARDING THIS. *)N(*-- *) CONST SMG$_MISFILSPE = 1213212;T" N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE REQUIRE STATEMENT NEEDS A FILE NAME IN ORDER TO *)B(* LOCATE EXTERNAL DEFINITIONS WHICH SHOULD BECOME PART *)B(* OF YOUR TERMTABLE. *)N(* USER ACTION: CHECK YOUR TERMTABLE.TXT. ADD A FILE NAME TO THE *)B(* REQUIRE STATEMENT. U" *)N(*-- *) CONST SMG$_UNRECSTA = 1213220; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED A STATEMENT THAT *)B(* IT DOES NOT RECOGNIZE. *)N(* USER ACTION: CHECK YOUR DEFINITION. MAKE SURE YOU HAVE V" SPELLED *)B(* KEYWORDS CORRECTLY AND THAT STATEMENTS APPEAR ONLY *)B(* IN VALID SEQUENCES. *)N(*-- *) CONST SMG$_FAIOPEFIL = 1213228; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER COULD NOT OPEN THE FILE W" *)B(* SPECIFIED IN A REQUIRE. *)N(* USER ACTION: MAKE SURE THAT THE SPECIFIED FILE EXISTS AND THAT *)B(* YOU HAVE READ ACCESS TO IT. *)N(*-- *) CONST SMG$_NO_ARGS = 1213236; N(*++ *)K(* FACILITY: SMG *)N X"(* EXPLANATION: YOU REQUESTED A CAPABILITY THAT REQUIRES USER *)B(* ARGUMENTS (SUCH AS A ROW AND COLUMN NUMBER) BUT *)B(* DID NOT PROVIDE ANY. *)N(* USER ACTION: CHECK THE NUMBER OF ARGUMENTS REQUIRED BY THIS *)B(* CAPABILITY AND CORRECT YOUR CALL TO SMG$GET_TERM_DATA. *)N(*-- *) CONST SMG$_NOTNUMCAP = 1213244; N(*++ Y" *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER EXPECTED A NUMERIC CAPABILITY *)B(* NAME BUT ENCOUNTERED SOMETHING ELSE. *)N(* USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE *)B(* MISSPELLED THE NUMERIC CAPABILITY NAME OR OMITTED *)B(* ANOTHER STATEMENT SUCH AS STRING OR BOOLEAN WHICH *)B(* Z"WOULD HAVE TERMINATED NUMERIC CAPABILITIES. *)N(*-- *) CONST SMG$_NOTSTRCAP = 1213252; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER EXPECTED A STRING CAPABILITY *)B(* NAME BUT ENCOUNTERED SOMETHING ELSE. *)N(* USER ACTION [": CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE *)B(* MISSPELLED THE STRING CAPABILITY NAME OR OMITTED *)B(* ANOTHER STATEMENT SUCH AS BOOLEAN OR NUMERIC WHICH *)B(* WOULD HAVE TERMINATED STRING CAPABILITIES. *)N(*-- *) CONST SMG$_MISENDSTA = 1213260; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPIL \"ER) *)N(* EXPLANATION: THE TERMTABLE COMPILER EXPECTED AN END STATEMENT *)B(* TO TERMINATE THE CURRENT TERMINAL DEFINITION AND *)B(* THIS END STATEMENT WAS MISSING. *)N(* USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. *)N(*-- *) CONST SMG$_MISNAMREQ = 1213268; N(*++ ]" *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER EXPECTED TERMTABLE.TXT TO *)B(* BEGIN WITH A TERMINAL DEFINITION (NAME STATEMENT) *)B(* OR A REQUIRE. SOMETHING ELSE WAS ENCOUNTERED. *)N(* USER ACTION: CHECK YOUR TERMTABLE.TXT. *)N(*-- *) CONST SMG$_I ^"LLBATFNC = 1213276; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION THAT *)B(* IS NOT PERMITTED WHILE A VIRTUAL DISPLAY IS BEING *)B(* BATCHED (FOR EXAMPLE, PERFORMING INPUT OR MOVING *)B(* THE VIRTUAL DISPLAY). *)N(* USER ACTION: TERMINATE BATCHING FIR _"ST BY CALLING *)B(* SMG$END_DISPLAY_UPDATE. *)N(*-- *) CONST SMG$_INVDIR = 1213284; N(*++ *)K(* FACILITY: SMG (TERMTABLE COMPILER) *)N(* EXPLANATION: THE TERMTABLE COMPILER ACCEPTS ONLY A FEW FAO *)B(* DIRECTIVES. IT ENCOUNTERED ONE THAT `" IT DOES NOT *)B(* HANDLE. *)N(* USER ACTION: CHECK YOUR TERMINAL DEFINITION. MAKE SURE THAT *)C(* YOU USE ONLY VALID FAO DIRECTIVES. *)N(*-- *) CONST SMG$_TRMNOTANS = 1213292; N(*++ *)K(* FACILITY: SMG a" *)N(* EXPLANATION: A CALL TO SMG$GET_PHYSICAL_CURSOR WAS MADE *)B(* SPECIFYING THAT THE TERMINAL IS TO BE QUERIED *)B(* TO DETERMINE WHERE THE CURSOR IS. *)B(* THIS COULD NOT BE DONE BECAUSE THE TERMINAL *)B(* WAS NOT ANSI, AND THIS FEATURE IS AVAILABLE *)B(* ONLY ON ANSI TERMINALS. *)N(* USER ACTION: RERUN YOUR APPLICATION ON AN ANSI TERMINAL, b" *)B(* SUCH AS A VT100. *)N(*-- *) CONST SMG$_LENNOTEQL = 1213300; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE *)B(* SPECIFYING A PICTURE STRING AND AN INITIAL c"*)B(* STRING OF UNEQUAL LENGTH. SINCE THE INITIAL *)B(* STRING IS USED AS THE DEFAULT VALUE FOR THE *)B(* INPUT, IT MUST MATCH THE PICTURE STRING IN LENGTH. *)N(* USER ACTION: MODIFY THE INITIAL STRING TO BE OF THE SAME LENGTH *)B(* AS THE PICTURE STRING. *)N(*-- *) CONST SMG$_LENMUSONE = 1213308; N(*++ d" *)K(* FACILITY: SMG *)N(* EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE *)B(* SPECIFYING A FILL STRING OR A CLEAR *)B(* STRING OF MORE THAN ONE CHARACTER. SINCE FILL CHARACTER *)B(* MATCHING IS DONE ONE CHARACTER AT A TIME, ONLY ONE *)B(* CHARACTER MAY BE SPECIFIED FOR THE FILL AND CLEAR STRING. *)N(* USER ACTION: MODIFY T e"HE FILL AND/OR CLEAR STRING TO BE ONE CHARACTER *)B(* LONG. *)N(*-- *) CONST SMG$_DISREQ = 1213316; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE *)B(* SPECIFYING RIGHT-JUSTIf"FICATION, NO DISPLAY_ID WAS *)B(* SPECIFIED AND THE SCROLL_REVERSE SEQUENCE WAS NOT *)B(* FOUND FOR THIS TERMINAL IN TERMTABLE.EXE. SINCE *)B(* RIGHT-JUSTIFICATION REQUIRES A CURSOR POSITIONING *)B(* SEQUENCE TO WORK PROPERLY, EITHER THE DISPLAY_ID *)B(* PARAMETER MUST BE SPECIFIED OR THE SCROLL_REVERSE *)B(* SEQUENCE MUST BE ADDED TO TERMTABLE.EXE. *)N(* USER ACTION: ADD THE DISPLAY_ID PARAMETER TO THE SMG$ g"READ_VERIFY *)B(* CALL OR ADD THE SCROLL_REVERSE SEQUENCE TO *)B(* TERMTABLE.EXE. *)N(*-- *) CONST SMG$_NOTIMP = 1213324; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: YOU TRIED TO USE A ROUTINE THAT IS NOT IMPLEMENTED h" *)B(* IN THIS VERSION OF SMG$. *)N(* USER ACTION: GET THE APPROPRIATE VERSION OF SMG$. *)N(*-- *) !CONST SMG$_NO_WINASSOC = 1213332; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A VIEWPORT HAS NOT BEEN ASSOCIATED WITH THE VIRTUA i"L *)B(* DISPLAY. *)N(* USER ACTION: CREATE A VIEWPORT ON THE VIRTUAL DISPLAY. *)N(*-- *) CONST SMG$_WINEXISTS = 1213340; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: A VIEWPORT EXISTS. THAT IS, A VIEWPORT HAS ALREA j"DY BEEN *)B(* ASSOCIATED WITH THE VIRTUAL DISPLAY. *)N(* USER ACTION: 1. USE THE VIEWPORT THAT ALREADY ASSOCIATED WITH THE *)B(* VIRTUAL DISPLAY. 2. DELETE THE EXISTING VIEWPORT BEFORE *)B(* YOU CREATE THE NEW VIEWPORT. OR, 3. USE OTHER VIEWPORT *)B(* ROUTINES ON CHANGE/MOVE THE EXISTING VIEWPORT. *)N(*-- *) CONST SMG$_NOSUBEXI = 1213348; N(*++ k" *)K(* FACILITY: SMG *)N(* EXPLANATION: A SUBPROCESS DOES NOT EXIST FOR THE SPECIFIED VIRTUAL *)B(* DISPLAY. *)N(* USER ACTION: CALL SMG$CREATE_SUBPROCESS TO CREATE A SUBPROCESS FOR *)B(* THIS VIRTUAL DISPLAY. *)N(*-- l" *) CONST SMG$_INSQUOCRE = 1213356; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE CURRENT BYTLM OR PRCLM QUOTA VALUE IS TOO SMALL *)B(* TO CREATE A SUBPROCESS. *)N(* USER ACTION: INCREASE THE ACCOUNTS BYTLM AND/OR PRCLM VALUE. *)N(*-- m" *) CONST SMG$_INPTOOLON = 1213364; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE LENGTH OF AN INPUT STRING EXCEEDED 255 CHARACTERS. *)N(* USER ACTION: SHORTEN THE STRING TO 255 CHARACTERS OR LESS. *)N(*-- *) CONST SMG$_KBDIN_USE = 1213372; N(*++ n" *)K(* FACILITY: SMG *)N(* EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT *)C(* LEGAL WHILE INPUT FROM THE VIRTUAL KEYBOARD IS BEING ACTIVE. *)B(* FOR EXAMPLE, YOU CAN'T READ TEXT FROM A KEYBOARD IN AN AST *)B(* ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SAME KEYBOARD. *)N(* USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE INPUTS o" *)B(* FROM THE SAME VIRTUAL KEYBOARD AT THE SAME TIME. *)N(*-- *) CONST SMG$_EOF = 1213442; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: END OF FILE CONDITION WAS DETECTED ON INPUT. *)N(* USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS *) p"B(* CONDITION AND RESPOND TO IT. *)N(*-- *) CONST SMG$_KEYDEFPRO = 1213450; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE SPECIFIED KEY IS ALREADY DEFINED, AND SINCE ITS *)B(* DEFINITION IS PROTECTED, IT CAN NOT BE CHANGED OR *)B(* RE-D q"EFINED. *)N(* USER ACTION: NONE *)N(*-- *) CONST SMG$_INVDEFATT = 1213458; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: WHEN A KEY IS DEFINED, ATTRIBUTES SUCH AS NOECHO MAY BE *)B(* SP r"ECIFIED WITH THE DEFINITION. AN ATTEMPT WAS MADE TO *)B(* SPECIFY AN UNKNOWN ATTRIBUTE. *)N(* USER ACTION: CHECK THE LIST OF VALID ATTRIBUTES AND CORRECT YOUR *)B(* PROGRAM. *)N(*-- *) CONST SMG$_INVKEYNAM = 1213466; N(*++ *)K(* FACILITY: SMG s" *)N(* EXPLANATION: THE SPECIFIED KEY NAME WAS LESS THAN 1 CHARACTER OR *)B(* MORE THAN 31 CHARACTERS. *)N(* USER ACTION: CHOOSE A KEY NAME WITH 1 TO 31 CHARACTERS. *)N(*-- *) CONST SMG$_INVSTANAM = 1213474; N(*++ *)K(* FACILITY: SMG t" *)N(* EXPLANATION: THE SPECIFIED STATE NAME WAS LESS THAN 1 CHARACTER OR *)B(* MORE THAN 31 CHARACTERS. *)N(* USER ACTION: CHOOSE A STATE NAME WITH 1 TO 31 CHARACTERS. *)N(*-- *) CONST SMG$_LINNOTFND = 1213482; N(*++ *)K(* FACILITY: SMG u" *)N(* EXPLANATION: THE INPUT LINE REQUESTED IN A CALL TO *)B(* SMG$RETURN_INPUT_LINE WAS NOT FOUND. *)N(* USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS *)B(* CONDITION AND RESPOND TO IT. *)N(*-- *) CONST SMG$_KEYNOTDEF = 1216512; N(*++ v" *)K(* FACILITY: SMG *)N(* EXPLANATION: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION, SUCH AS *)B(* SMG$GET_KEY_DEF, ON A KEY WHICH WAS NOT DEFINED. *)N(* USER ACTION: CHECK YOUR PROGRAM TO SEE IF THIS KEY SHOULD HAVE *)B(* BEEN DEFINED. *)N(*-- *) w"CONST SMG$_NOMOREKEYS = 1216520; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: SMG$LIST_KEY_DEFS, WHEN CALLED REPEATEDLY, RETURNS ALL *)B(* THE KEY DEFINITIONS IN A KEY TABLE. WHEN THERE ARE NO *)B(* MORE DEFINITIONS, THIS ERROR IS RETURNED. *)N(* USER ACTION: MODIFY YOUR PROGRAM TO EXPECT THIS CONDITION, IF NECESSARY. *)N(*-- x" *) CONST SMG$_STRTERESC = 1216528; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: AN SMG OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE *)B(* EMBEDDED IN THE OUTPUT STRING. THE OUTPUT STRING WAS *)B(* WRITTEN TO THE VIRTUAL DISPLAY BUT THE STRING WAS *)B(* TERMINATED AT THE ES y"CAPE SEQUENCE. *)N(* USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE *)B(* SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION *)B(* PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST *)B(* LIKELY A SMG ROUTINE THAT PROVIDES THAT FUNCTIONALITY. *)N(*-- *) CONST SMG$_GBLNOTCRE = 1216536; N(*++ z" *)K(* FACILITY: SMG *)N(* EXPLANATION: THE SYSTEM PROGRAM THAT MAPS TERMTABLE.EXE AS A GLOBAL *)B(* SECTION WAS UNSUCCESSFUL. *)N(* USER ACTION: THIS MESSAGE SHOULD BE HANDLED ONLY BY SYSTEM MANAGERS. *)B(* IF THERE IS ALREADY AN EXISTING GLOBAL SECTION FOR *)B(* TERMTABLE, THE SYSTEM MUST BE REBOOTED IN ORDER TO CREATE *)B(* A NEW GLOBAL SECTION. {" *)N(*-- *)N(* THE FOLLOWING IS USED WITH GBLNOTCRE *) CONST SMG$_DELEXIGBL = 1216544; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE SYSTEM PROGRAM WHICH MAPS TERMTABLE AS A GLOBAL *)B(* SECTION WAS UNSUCCESSFUL. BEFORE |"A NEW GLOBAL SECTION *)B(* CAN BE CREATED, THE PREVIOUS ONE MUST BE DELETED. *)N(* USER ACTION: THE SYSTEM MUST BE REBOOTED IN ORDER TO MAP A NEW *)B(* TERMTABLE.EXE AS THE GLOBAL SECTION. *)N(*-- *) CONST SMG$_GETDATSTR = 1216552; N(*++ *)K(* FACILITY: SMG }" *)N(* EXPLANATION: THIS MESSAGE IS SIGNALED INTERNALLY TO ALLOW THE HELP *)B(* OUTPUT ROUTINE THAT WAS CALLED BY LBR$OUTPUT_HELP TO *)B(* ACCESS THE DISPLAY_ID AND KEYBOARD_ID FOR THE SPECIFIED *)B(* DISPLAY. THIS MESSAGE SHOULD NEVER BE RETURNED AS A *)B(* STATUS FROM ANY SMG ROUTINE AND MUST NOT BE DOCUMENTED. *)N(* USER ACTION: NONE. *)N(*-- ~" *) CONST SMG$_OPNOTSUP = 1216560; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THE REQUESTED OPERATION CANNOT BE PERFORMED SINCE *)B(* THE TERMINAL HARDWARE DOES NOT SUPPORT THIS FEATURE. *)N(* USER ACTION: RUN THE APPLICATION ON A TERMINAL THAT SUPPORTS THIS *)B(* FEATURE. " *)N(*-- *) CONST SMG$_HLPPMTSTR = 1216568; N(*++ *)K(* FACILITY: SMG *)N(* EXPLANATION: THIS MESSAGE IS THE PROMPT STRING OUTPUT BY THE ROUTINE *)B(* SMG$PUT_HELP_TEXT. IT IS NOT A NORMAL ERROR MESSAGE *)B(* BUT RESIDES HERE TO ALLOW TRANSLATION TO LANGUAGES *)B(* OTHER THAN ENGLISH. *)N(* USER ACTION: NONE. *)N(*-- *) N(* END. *) END.ww"u6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$SOR_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with "FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio"ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ " }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP" = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; "# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0.."33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE SOR$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; " *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.".65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE"C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; " *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;" *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =" [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; " *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 "7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE sor$routines ***) P(**************************************************************************** *)(* * *)4(* COPYRIGHT (c) 1988 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE US "ED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND S "HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* *)N(* SOR$BEGIN_MERG"E *)N(* *)N(* Initialize a Merge Operation *)N(* *)N(* Initializes the merge operation by opening the input and output files *)N(* and by providing the number of input files, the key specifications, *)N(* and the merge options. " *)N(* *) )[ASYNCHRONOUS] FUNCTION SOR$BEGIN_MERGE (K %REF key_buffer : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0; options : UNSIGNED := %IMMED 0;" merge_order : $UBYTE := %IMMED 0;C %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare := %IMMED 0;A %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_equal := %IMMED 0;A %IMMED [UNBOUND, ASYNCHRONO"US] PROCEDURE user_input := %IMMED 0;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$BEGIN_SORT *)N(* *)N(* Begin a Sort Operation *)N(* " *)N(* Initializes a sort operation by opening input and output files and by *)N(* passing the key information and any sort options. *)N(* *) ([ASYNCHRONOUS] FUNCTION SOR$BEGIN_SORT (K %REF key_buffer : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0; options : UNSIGNED := %IMMED 0;# file_alloc : UNSIGNED := %IMMED 0;C %IMMED [UNBOUND, ASYNCHRONOUS] PR "OCEDURE user_compare := %IMMED 0;A %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_equal := %IMMED 0;# sort_process : $UBYTE := %IMMED 0;! work_files : $UBYTE := %IMMED 0;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$DO_MERGE *)N(* *)N(* Obsolete ( "from VMS V3) *)N(* *) 9[ASYNCHRONOUS] FUNCTION SOR$DO_MERGE : INTEGER; EXTERNAL; N(* *)N(* SOR$END_SORT *)N(* *)N(* End a Sort Operation " *)N(* *)N(* Does cleanup functions, such as closing files and releasing memory. *)N(* *) &[ASYNCHRONOUS] FUNCTION SOR$END_SORT (D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$INIT_MERGE " *)N(* *)N(* Obsolete (from VMS V3) *)N(* *) ([ASYNCHRONOUS] FUNCTION SOR$INIT_MERGE (" merge_order : $UBYTE := %IMMED 0;K %REF key_buffer : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0; options : UNSIGNED := %IMMED 0;C %IM"MED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare := %IMMED 0;V %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_equal := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$INIT_SORT *)N(* *)N(* Obsolete (from VMS V3) *)N(* " *) '[ASYNCHRONOUS] FUNCTION SOR$INIT_SORT (K %REF key_buffer : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0;# file_alloc : UNSIGNED := %IMMED 0;! work_files : $UBYTE := %IMMED 0;# sort_process : $UBYTE := %IMMED 0; key_size : $UBYTE := %IMMED 0;C %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare := %IMMED 0;5 options : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* " *)N(* SOR$PASS_FILES *)N(* *)N(* Pass File Names *)N(* *)N(* Passes the names of input and output files and output file *)N(* characteristics to SORT or MERGE. " *)N(* *) ([ASYNCHRONOUS] FUNCTION SOR$PASS_FILES (J inp_desc : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;J out_desc : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; org : $UBYTE := %IMMED 0; rfm : $UBYTE := %IMMED 0; bks : $UBYTE := %IMMED 0; bls : $UWORD := %IMMED 0; mrs : $UWORD := %IMMED 0; alq : UNSIGNED := %IMMED 0; fop : UNSIGNED := %IMMED 0; " fsz : $UBYTE := %IMMED 0;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$RELEASE_REC *)N(* *)N(* Pass One Record to Sort *)N(* *)N(* "Used with the record interface to pass one input record to SORT or *)N(* MERGE. *)N(* *) )[ASYNCHRONOUS] FUNCTION SOR$RELEASE_REC (: desc : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$"RETURN_REC *)N(* *)N(* Return One Sorted Record *)N(* *)N(* Used with the record interface to return one sorted or merged *)N(* record to a program. *)N(* " *) ([ASYNCHRONOUS] FUNCTION SOR$RETURN_REC (G VAR desc : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;, VAR LENGTH : [VOLATILE] $UWORD := %IMMED 0;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$SORT_MERGE *)N(* " *)N(* Sort *)N(* *)N(* Sorts the input records. *)N(* *) ([ASYNCHRONOUS] FUNCTION SOR$SORT_MERGE (D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* " *)N(* SOR$SPEC_FILE *)N(* *)N(* Pass a Specification File Name *)N(* *)N(* Used to pass a specification file or specification text. *)N(* " *) '[ASYNCHRONOUS] FUNCTION SOR$SPEC_FILE (K spec_file : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;M spec_buffer : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* SOR$STAT *)N(* " *)N(* Obtain Sorting Statistics *)N(* *)N(* Returns one statistic about the sort or merge operation to the user *)N(* program. *)N(* *) "[ASYNCHRONOUS] FUNCTION SOR$STAT ( code : UNSIGNED;" VAR result : [VOLATILE] U "NSIGNED;D VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* END. *) N(* MODULE SORMSG ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RE"CORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0..65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNS"IGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $D"EFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; " *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047; *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] "0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 = [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* "$BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; " *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SORDEF ***)" N(* *)Q(* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:22.60 *)N(* *)N(* FILE: SORMSG.MSG *)N(* *)Q(***************************************************************************** *)(** " * *)=(** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993 BY * *)E(** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)'(** ALL RIGHTS RESERVED. * *)(** * *)Q(** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)Q(** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)Q(** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)Q(** COPIES THEREOF MAY NOT BE PROVIDED OR " OTHERWISE MADE AVAILABLE TO ANY * *)Q(** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *)(** * *)Q(** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)Q(** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *)(** * *)Q(** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)F(** SOFTWAR"E ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(** * *)(** * *)Q(***************************************************************************** *)N(* *)N(*++ *)N(* *)K(* FACILITY: VAX-11 SORT/MERGE *)"N(* *)N(* ABSTRACT: *)N(* *)I(* THIS FILE CONTAINS THE DEFINITION FOR THE SORT FACILITY SPECIFIC *)I(* ERROR MESSAGES. THE FACILITY CODE FOR SORT/MERGE IS 28. *)N(* *)N(* ENVIRONMENT: VAX/VMS USER MOD"E *)N(* *)N(* AUTHOR: P. GILBERT, CREATION DATE: 15-FEB-1982 *)N(* *)N(* MODIFIED BY: *)N(* *)B(* T03-015 ORIGINAL " *)I(* T03-018 CHANGED THE SEVERITY OF WORK_DEV FROM FATAL TO SEVERE. *)B(* PDG 16-DEC-1982 *)I(* T03-019 ADDED OPERFAIL, REQ_ALT AND USE_ALT. PDG 21-DEC-1982 *)I(* T03-020 ADD NEW MESSAGES FOR ERRORS WITH COLLATING SEQUENCES. *)B(* PDG 26-JAN-1983 *)I(* T03-021 ADDED NEW MESSAGES FOR CDD ERRORS. PDG 11-FEB-1983 *)I(* T03-022 ADDED ENDDIAGS. PDG 16-MAR-1983 " *)I(* T03-023 CHANGE TEXT OF COL_PAD. PDG 20-APR-1983 *)I(* T03-024 ADDED OPREPLY. PDG 9-MAY-1983 *)I(* T04-001 ADDED ODD_LEN. MH 15-JUL-1985 *)I(* V05-001 CHANGED TEST FOR VAR_FIX TO "truncated or padded". *)B(* BAB 4-FEB-1993 *)N(* CORRECTED SPELLING AND PUNCTUATION ERRORS. *)N(* DEE RYAN " 29-SEP-1993 *)N(* V08-014 ADDED HS_NYI. KRN 23-MAY-2008 *)N(*-- *)N(* *)N(* SOME ERROR MESSAGES WERE ISSUED BY OLD VERSIONS OF VAX-11 SORT/MERGE, *)N(* BUT ARE NO LONGER BE ISSUED. THESE MUST STILL BE DEFINED. *)N(* " *)O(* SOME ERROR MESSAGES WILL BE USED BY THE NEW VERSION OF VAX-11 SORT/MERGE, *)N(* BUT ARE NOT YET ISSUED BY THE CODE. THESE ARE PREFIXED WITH A "?". *)N(* *) CONST SORT$_FACILITY = 28; SOR$_MISS_KEY = 1867780; SOR$_WORK_DEV = 1867786; SOR$_NO_WRK = 1867794; SOR$_VM_FAIL = 1867804; SOR$_WS_FAIL = 1867812; SOR$_SORT_ON = 1867820; SOR$_BAD_KEY = 1867828; SOR$_NUM_KEY = 1867836;" SOR$_BAD_LEN = 1867844; SOR$_ONE_IN = 1867852; SOR$_IND_OVR = 1867860; SOR$_INCONSIS = 1867868; SOR$_VAR_FIX = 1867872; SOR$_BAD_TYPE = 1867884; SOR$_LRL_MISS = 1867892; SOR$_BAD_SPEC = 1867900; SOR$_BAD_LRL = 1867906; SOR$_BAD_FILE = 1867916; SOR$_BAD_ADR = 1867924; SOR$_MAP = 1867932; SOR$_EXTEND = 1867940; SOR$_KEY_LEN = 1867946; SOR$_CLEAN_UP = 1867956; SOR$_BAD_MERGE = 1867962; SOR$_BAD_ROUTIN = 1867972; SOR$_INP_FILES = 1867980; SOR$_BAD_ORDER = 1867"984; N(* *)N(* V3B MESSAGES ARE DEFINED BELOW *)N(* *) CONST SOR$_DUP_OUTPUT = 1867996; SOR$_MISS_PARAM = 1868004; SOR$_END_SORT = 1868009; SOR$_KEYED = 1868018; SOR$_BAD_SRL = 1868024; SOR$_NODUPEXC = 1868036; SOR$_DELETE1 = 1868041; SOR$_DELETE2 = 1868049; SOR$_DELBOTH = 1868057; SOR"$_NYI = 1868066; SOR$_RTNERROR = 1868074; SOR$_KEYAMBINC = 1868084; SOR$_OBS_0 = 1868092; SOR$_ROPRAND = 1868098; SOR$_UNDOPTION = 1868108; SOR$_STABLEEXC = 1868116; SOR$_SRTIWA = 1868124; SOR$_SPCOVR = 1868128; SOR$_SPCMIS = 1868136; SOR$_SPCSIS = 1868144; SOR$_SPCIVP = 1868156; SOR$_SPCIVS = 1868164; SOR$_SPCIVC = 1868172; SOR$_SPCIVF = 1868180; SOR$_SPCIVD = 1868188; SOR$_SPCIVX = 1868196; SOR$_SPCIVK = 1868204; SOR$_SPCIVI = 1868212; SOR$_INCNOKEY" = 1868220; SOR$_INCNODATA = 1868228; SOR$_INVFOLD = 1868234; SOR$_OPERFAIL = 1868244; SOR$_REQ_ALT = 1868251; SOR$_USE_ALT = 1868259; SOR$_COL_ADJ = 1868268; SOR$_COL_CMPLX = 1868276; SOR$_COL_CHAR = 1868284; SOR$_COL_PAD = 1868292; SOR$_COL_THREE = 1868300; SOR$_BADDTYPE = 1868306; SOR$_BADLENOFF = 1868314; SOR$_BADOCCURS = 1868324; SOR$_BADOVRLAY = 1868330; SOR$_BADPROTCL = 1868340; SOR$_CDDERROR = 1868348; SOR$_ILLBASE = 1868354; SOR$_ILLLITERL = 1868364; SOR$_ILLSCALE = 1868370; SOR$_INCDIGITS = 1868378; SOR$_MISLENOFF = 1868384; SOR$_MULTIDIM = 1868394; SOR$_NOTRECORD = 1868404; SOR$_SIGNCOMPQ = 1868408; SOR$_UNSUPLEVL = 1868420; SOR$_ENDDIAGS = 1868427; SOR$_OPREPLY = 1868435; SOR$_CHKPNT = 1868441; SOR$_ODD_LEN = 1868452; SOR$_HS_NYI = 1868460; N(* END. *) END.ww"Kyv6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$STR_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with "FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio"ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ " }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP" = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; "# $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0.."33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE STR$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; " *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.".65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE"C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; " *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;" *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =" [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; " *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214"7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE str$routines ***) 2[HIDDEN] TYPE (**** SDL-Generated type names ****) str$routines$$typ1 = ^$QUAD;  P(**************************************************************************** *)(* * *)2(* COPYRIGHT (c) 1988, 1994, 1995 BY * *)D(* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *)&(* ALL RIGHTS RESERVED. " * *)(* * *)P(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *)P(* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *)P(* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *)P(* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *)Q(* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *)&(* TRANSFERRED. * *)(* * *)P(* " THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *)P(* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *)(* CORPORATION. * *)(* * *)P(* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *)E(* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *)(* * *)(* * *)P(**************************************************************************** *)N(* ST"R$ADD *)N(* *)N(* Add Two Decimal Strings *)N(* *)N(* The Add Two Decimal Strings routine *)N(* adds two decimal strings of digits. *)N(* " *) ![ASYNCHRONOUS] FUNCTION str$add ( asign : UNSIGNED; aexp : INTEGER;= adigits : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; bsign : UNSIGNED; bexp : INTEGER;= bdigits : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR;! VAR csign : [VOLATILE] UNSIGNED; VAR cexp : [VOLATILE] INTEGER;_ VAR cdigits : [CLASS_S,VOLATILE] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$ANALYZE_SDESC " *)N(* *)N(* Analyze String Descriptor *)N(* *)N(* The Analyze String Descriptor routine extracts the *)N(* length and starting address of the data *)N(* for a variety of string descriptor classes. " *)N(* *) +[ASYNCHRONOUS] FUNCTION str$analyze_sdesc (F input_descriptor : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;- VAR word_integer_length : [VOLATILE] $UWORD;; VAR data_address : [VOLATILE] $DEFPTR) : $UWORD; EXTERNAL; N(* STR$ANALYZE_SDESC_64 *)N(* *)N(* Analyze String" Descriptor (quadword output parameters) *)N(* *)N(* The Analyze String Descriptor routine extracts the *)N(* length and starting address of the data *)N(* for a variety of string descriptor classes. *)N(* *) .[ASYNCHRONOUS] FUNCTION str$analyze_sdesc_ "64 (F input_descriptor : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;- VAR quad_integer_length : [VOLATILE] $UQUAD;2 VAR data_address : [VOLATILE] str$routines$$typ1;J VAR descriptor_type : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* STR$APPEND *)N(* *)N(* Append String *)N(* " *)N(* The Append String routine appends a source string to the end of a *)N(* destination string. The destination string must be a dynamic or *)N(* varying-length string. *)N(* *) $[ASYNCHRONOUS] FUNCTION str$append (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTE"GER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$CASE_BLIND_COMPARE *)N(* *)N(* Compare Strings Without Regard to Case *)N(* *)O(* The Compare Strings Without Regard to Case routine compares two input " *)O(* strings of any supported class and data type without regard to whether *)N(* the alphabetic characters are uppercase or lowercase. *)N(* *) 0[ASYNCHRONOUS] FUNCTION str$case_blind_compare (I first_source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;_ second_source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$COMPARE " *)N(* *)N(* Compare Two Strings *)N(* *)N(* The Compare Two Strings routine compares the *)N(* contents of two strings. *)N(* " *) %[ASYNCHRONOUS] FUNCTION str$compare (I first_source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;_ second_source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$COMPARE_EQL *)N(* *)N(* Compare Two Strings for Equality *)N(* " *)N(* The Compare Two Strings for Equality routine, compares two *)N(* strings to see if they have the same length and contents. *)N(* Uppercase and lowercase characters are not considered equal. *)N(* *) )[ASYNCHRONOUS] FUNCTION str$compare_eql (I first_source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;"_ second_source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$COMPARE_MULTI *)N(* *)N(* Compare Two Strings for Equality Using Multinational Character Set *)N(* *)N(* The Compare Two Strings for Equality Using Multinational Character *)N(* " Set routine compares two character strings for equality using the *)N(* DEC Multinational character set. *)N(* *) +[ASYNCHRONOUS] FUNCTION str$compare_multi (I first_source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;J second_source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;+ %IMMED flags_value : UNSIGNED := %IMMED 0;E %IMMED foreign_lang"uage : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* STR$CONCAT *)N(* *)N(* Concatenate Two or More Strings *)N(* *)O(* The Concatenate Two or More Strings routine concatenates all specified *)N(* source strings into a single destination s "tring. *)N(* *) $[ASYNCHRONOUS] FUNCTION str$concat (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;Z $p3 : [LIST,CLASS_S,UNSAFE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$COPY_DX *)N(* " *)N(* Copy a Source String Passed by Descriptor to a Destination String *)N(* *)N(* The Copy a Source String Passed by Descriptor to *)N(* a Destination String routine copies a source string to *)N(* a destination string. Both strings are *)N(* passed by descriptor. " *)N(* *) %[ASYNCHRONOUS] FUNCTION str$copy_dx (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$COPY_R *)N(* *)N(* " Copy a Source String Passed by Reference to a Destination String *)N(* *)N(* The Copy a Source String Passed by Reference to a Destination String *)N(* routine copies a source string passed by reference to a destination *)N(* string. *)N(* *) $[ASYNCHRONOUS] FUNCTION st "r$copy_r (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;% word_integer_source_length : $UWORD;[ %REF source_string_address : PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$COPY_R_64 *)N(* *)N(* Copy a Source String Passed by Reference to a Destination String *)N(* " *)N(* The Copy a Source String Passed by Reference to a Destination String *)N(* routine copies a source string passed by reference to a destination *)N(* string. *)N(* *) '[ASYNCHRONOUS] FUNCTION str$copy_r_64 (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;%" quad_integer_source_length : $UQUAD;[ %REF source_string_address : PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$DIVIDE *)N(* *)N(* Divide Two Decimal Strings *)N(* *)N(* The Divide Two Decimal Strings routine div"ides two decimal strings. *)N(* *) $[ASYNCHRONOUS] FUNCTION str$divide ( asign : UNSIGNED; aexp : INTEGER;= adigits : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; bsign : UNSIGNED; bexp : INTEGER;= bdigits : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR; total_digits : INTEGER;% round_truncate_indicator : UNSIGNED;! VAR csign : [VOLATILE] UNSIGNED; VAR cexp : [VOLATILE] INTEGER;a VAR cdigits" : [CLASS_S,VOLATILE] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$DUPL_CHAR *)N(* *)N(* Duplicate Character Times *)N(* *)N(* The Duplicate Character empty Times routine generates a string *)N(* containi "ng n duplicates of the input character. If the destination *)N(* string is an empty dynamic string descriptor, STR$DUPL_CHAR will *)N(* allocate and initialize the string. *)N(* *) '[ASYNCHRONOUS] FUNCTION str$dupl_char (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;( repetition_count : INTEGER := %IMMED 0;a %REF ASCII_character : "PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* STR$ELEMENT *)N(* *)N(* Extract Delimited Element Substring *)N(* *)N(* The Extract Delimited Element Substring routine extracts an *)N(* element from a strin "g in which the elements are separated *)N(* by a specified delimiter. *)N(* *) %[ASYNCHRONOUS] FUNCTION str$element (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; element_number : INTEGER;F delimiter_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] O"F CHAR) : INTEGER; EXTERNAL; N(* STR$FIND_FIRST_IN_SET *)N(* *)N(* Find First Character in a Set of Characters *)N(* *)N(* The Find First Character in a Set of Characters routine searches a *)N(* string one character at a time, from left to right, comparing each " *)N(* character in the string to every character in a specified set of *)N(* characters for which it is searching. *)N(* *) /[ASYNCHRONOUS] FUNCTION str$find_first_in_set (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;\ set_of_characters : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$FIND_FIRST_NOT_IN_SET " *)N(* *)N(* Find First Character that Does Not Occur in Set *)N(* *)N(* The Find First Character that Does Not Occur in Set routine searches *)N(* a string, comparing each character to the characters in a specified *)N(* set of characters. The string is searched character by "character, *)O(* from left to right. STR$FIND_FIRST_NOT_IN_SET returns the position of *)N(* the first character in the string that does not match any of the *)N(* characters in the selected set of characters. *)N(* *) 3[ASYNCHRONOUS] FUNCTION str$find_first_not_in_set (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;\ set_of_characters : [CLASS_S] PACKED "ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$FIND_FIRST_SUBSTRING *)N(* *)N(* Find First Substring in Input String *)N(* *)N(* The Find First Substring in Input String routine *)N(* finds the first substring (in a provided " list of *)N(* substrings) occurring in a given string. *)N(* *) 2[ASYNCHRONOUS] FUNCTION str$find_first_substring (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR index : [VOLATILE] INTEGER;* VAR substring_index : [VOLATILE] INTEGER;` substring : [LIST,CLASS_S,UNSAFE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* "STR$FREE1_DX *)N(* *)N(* Free One Dynamic String *)N(* *)N(* The Free One Dynamic String routine deallocates one dynamic string. *)N(* *) &[ASYNCHRONOUS] FUNCTION str$"free1_dx (i VAR string_descriptor : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$GET1_DX *)N(* *)N(* Allocate One Dynamic String *)N(* *)N(* The Allocate One Dynamic String routine allocates a spec "ified number *)N(* of bytes of dynamic virtual memory to a specified dynamic string *)N(* descriptor. *)N(* *) %[ASYNCHRONOUS] FUNCTION str$get1_dx ( word_integer_length : $UWORD;h VAR character_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$GET1_DX_64 " *)N(* *)N(* Allocate One Dynamic String (quadword parameter) *)N(* *)N(* The Allocate One Dynamic String routine allocates a specified number *)N(* of bytes of dynamic virtual memory to a specified dynamic string *)N(* descriptor. *)N(* " *) ([ASYNCHRONOUS] FUNCTION str$get1_dx_64 ( quad_integer_length : $UQUAD;h VAR character_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$LEFT *)N(* *)N(* Extract a Substring of a String *)N(* " *)N(* The Extract a Substring of a String routine copies a substring of a *)N(* source string into a destination string. The relative starting *)N(* position in the source string is 1. *)N(* *) "[ASYNCHRONOUS] FUNCTION str$left (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTE "GER] OF CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;- end_position : INTEGER) : INTEGER; EXTERNAL; N(* STR$LEN_EXTR *)N(* *)N(* Extract a Substring of a String *)N(* *)N(* The Extract a Substring of a String routin "e copies a substring of *)N(* a source string into a destination string. *)N(* *) &[ASYNCHRONOUS] FUNCTION str$len_extr (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; start_position : INTEGER;8 longword_integer_length : INTEGER) : INTEGER; EXTERNAL; N(* STR$MATCH_WILD " *)N(* *)N(* Match Wildcard Specification *)N(* *)N(* The Match Wildcard Specification routine is used to compare a pattern *)N(* string that includes wildcard characters with a candidate string. It *)N(* returns a condition value of STR$_MATCH if " the strings match and *)N(* line_break STR$_NOMATCH if they do not match. *)N(* *) ([ASYNCHRONOUS] FUNCTION str$match_wild (F candidate_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;Y pattern_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$MUL *)N(* " *)N(* Multiply Two Decimal Strings *)N(* *)Q(* The Multiply Two Decimal Strings routine multiplies two decimal strings. *)N(* *) ![ASYNCHRONOUS] FUNCTION str$mul ( asign : UNSIGNED; aexp : INTEGER;= adigits : [CLASS_S] PACKED ARRAY [$l3..$u3: "INTEGER] OF CHAR; bsign : UNSIGNED; bexp : INTEGER;= bdigits : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR;! VAR csign : [VOLATILE] UNSIGNED; VAR cexp : [VOLATILE] INTEGER;_ VAR cdigits : [CLASS_S,VOLATILE] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$POSITION *)N(* *)N(* Return Relative Position of Substring " *)N(* *)N(* The Return Relative Position of Substring routine searches for the *)N(* first occurrence of a single substring within a source string. If *)N(* STR$POSITION finds the substring, it returns the relative position *)N(* of that substring. If the substring is not found, STR$POSITION *)N(* returns a zero. *) "N(* *) &[ASYNCHRONOUS] FUNCTION str$position (C source_string : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;? substring : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;; start_position : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; N(* STR$POS_EXTR *)N(* *)N(* Extract a Su"bstring of a String *)N(* *)N(* The Extract a Substring of a String routine copies a substring of a *)N(* source string into a destination string. *)N(* *) &[ASYNCHRONOUS] FUNCTION str$pos_extr (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF "CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; start_position : INTEGER;- end_position : INTEGER) : INTEGER; EXTERNAL; N(* STR$PREFIX *)N(* *)N(* Prefix a String *)N(* *)N(* The Prefix a String ro"utine inserts a source string at the *)N(* beginning of a destination string. The destination string *)N(* must be dynamic or varying length. *)N(* *) $[ASYNCHRONOUS] FUNCTION str$prefix (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTER #NAL; N(* STR$RECIP *)N(* *)N(* Reciprocal of a Decimal String *)N(* *)O(* The Reciprocal of a Decimal String routine takes the reciprocal of the *)N(* first decimal string to the precision limit specified by the second *)N(* decimal #string and returns the result as a decimal string. *)N(* *) #[ASYNCHRONOUS] FUNCTION str$recip ( asign : UNSIGNED; aexp : INTEGER;= adigits : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; bsign : UNSIGNED; bexp : INTEGER;= bdigits : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR;! VAR csign : [VOLATILE] UNSIGNED; VAR cexp : [VOLATILE] INTEGER;_ VAR cdigits : [CLASS_S,VOLATILE] PACKED ARR#AY [$l9..$u9:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$REPLACE *)N(* *)N(* Replace a Substring *)N(* *)N(* The Replace a Substring routine copies a source string to a *)N(* destination string, replacing part of the #string with another *)N(* string. The substring to be replaced is specified by its starting *)N(* and ending positions. *)N(* *) %[ASYNCHRONOUS] FUNCTION str$replace (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; start_position : INTEGER; end#_position : INTEGER;] replacement_string : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$RIGHT *)N(* *)N(* Extract a Substring of a String *)N(* *)N(* The Extract a Substring of a String routine copies a subst #ring *)N(* of a source string into a destination string. *)N(* *) #[ASYNCHRONOUS] FUNCTION str$right (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;/ start_position : INTEGER) : INTEGER; EXTERNAL; N(* STR$ROUND #*)N(* *)N(* Round or Truncate a Decimal String *)N(* *)N(* The Round or Truncate a Decimal String routine rounds or truncates a *)N(* decimal string to a specified number of significant digits and places *)N(* the result in another decimal string. *)N(* # *) #[ASYNCHRONOUS] FUNCTION str$round ( places : INTEGER; flags : UNSIGNED; asign : UNSIGNED; aexp : INTEGER;= adigits : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR;! VAR csign : [VOLATILE] UNSIGNED; VAR cexp : [VOLATILE] INTEGER;_ VAR cdigits : [CLASS_S,VOLATILE] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$TRANSLATE *)N(* # *)N(* Translate Matched Characters *)N(* *)N(* The Translate Matched Characters routine successively compares each *)N(* character in a source string to all characters in a match string. *)N(* If a source character has a match, the destination character is taken *)N(* from the translate string. Othe #rwise, STR$TRANSLATE moves the source *)N(* character to the destination string. *)N(* *) '[ASYNCHRONOUS] FUNCTION str$translate (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;H translation_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;W match_string : [CLASS_S]  #PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* STR$TRIM *)N(* *)N(* Trim Trailing Blanks and Tabs *)N(* *)N(* The Trim Trailing Blanks and Tabs routine copies a source string *)N(* to a destination string and dele #tes the trailing blank and tab *)N(* characters. *)N(* *) "[ASYNCHRONOUS] FUNCTION str$trim (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;C source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;K VAR resultant_length : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; N(* STR$UPCASE  # *)N(* *)N(* Convert String to All Uppercase Characters *)N(* *)N(* The Convert String to All Uppercase Characters routine *)N(* converts a source string to uppercase. *)N(* *) $[ASYNCHRONOUS] FUNCTION str$upcase (U VAR destination_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;X source_string : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* END. *) END.ww#w6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$TBK_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with #FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio#ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{ # }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP# = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; ## $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..#33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE TBK$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; # *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.#.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE#C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; # *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;# *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =# [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; # *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE TBK$ROUTINES ***) +[ASYNCHRONOUS] FUNCTION TBK$I64_SYMBOLIZE (D %REF parameter_block : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;R %REF $p2 : [LIST,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* END. *) END.ww#}8y6[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$TPU_ROUTINES;P{ Copyright 2005 Hewlett-Packard Development Company, L.P. }P{ }P{ Confidential computer software. Valid license from HP and/or }P{ its subsidiaries required for possession, use, or copying. }P{ }P{ Consistent with #FAR 12.211 and 12.212, Commercial Computer Software, }P{ Computer Software Documentation, and Technical Data for Commercial }P{ Items are licensed to the U.S. Government under vendor's standard }P{ commercial license. }P{ }P{ Neither HP nor any of its subsidiaries shall be liable for technical }P{ or editorial errors or omissio#ns contained herein. The information }P{ in this document is provided "as is" without warranty of any kind and }P{ is subject to change without notice. The warranties for HP products }P{ are set forth in the express limited warranty statements accompanying }P{ such products. Nothing herein should be construed as constituting an }P{ additional warranty. }P{  # }1[HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD% L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END;% $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP!# = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP;! $BOOL = [BIT(1),UNSAFE] BOOLEAN;! $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511;# $BIT10 = [BIT(10),UNSAFE] 0..1023;# $BIT11 = [BIT(11),UNSAFE] 0..2047;# $BIT12 = [BIT(12),UNSAFE] 0..4095; "## $BIT13 = [BIT(13),UNSAFE] 0..8191;$ $BIT14 = [BIT(14),UNSAFE] 0..16383;$ $BIT15 = [BIT(15),UNSAFE] 0..32767;$ $BIT16 = [BIT(16),UNSAFE] 0..65535;% $BIT17 = [BIT(17),UNSAFE] 0..131071;% $BIT18 = [BIT(18),UNSAFE] 0..262143;% $BIT19 = [BIT(19),UNSAFE] 0..524287;& $BIT20 = [BIT(20),UNSAFE] 0..1048575;& $BIT21 = [BIT(21),UNSAFE] 0..2097151;& $BIT22 = [BIT(22),UNSAFE] 0..4194303;& $BIT23 = [BIT(23),UNSAFE] 0..8388607;' $BIT24 = [BIT(24),UNSAFE] 0..16777215;' $BIT25 = [BIT(25),UNSAFE] 0..##33554431;' $BIT26 = [BIT(26),UNSAFE] 0..67108863;( $BIT27 = [BIT(27),UNSAFE] 0..134217727;( $BIT28 = [BIT(28),UNSAFE] 0..268435455;( $BIT29 = [BIT(29),UNSAFE] 0..536870911;) $BIT30 = [BIT(30),UNSAFE] 0..1073741823;) $BIT31 = [BIT(31),UNSAFE] 0..2147483647;$ $BIT32 = [BIT(32),UNSAFE] UNSIGNED; N(* MODULE TPU$ROUTINES ; *) G(* [HIDDEN] TYPE (**** Pre-declared data types ***?? *)J(* $BYTE = [BYTE] -128..127; $# *)J(* $WORD = [WORD] -32768..32767; *)J(* $QUAD = [QUAD,UNSAFE] RECORD *)C(* L0:UNSIGNED; L1:INTEGER; END; *)J(* $OCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *)J(* $UBYTE = [BYTE] 0..255; *)J(* $UWORD = [WORD] 0.%#.65535; *)J(* $UQUAD = [QUAD,UNSAFE] RECORD *)C(* L0,L1:UNSIGNED; END; *)J(* $UOCTA = [OCTA,UNSAFE] RECORD *)C(* L0,L1,L2,L3:UNSIGNED; END; *)J(* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *)C(* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *)J(* $PACKED_DE&#C = [BIT(4),UNSAFE] 0..15; *)J(* $DEFTYP = [UNSAFE] INTEGER; *)J(* $DEFPTR = [UNSAFE] ^$DEFTYP; *)J(* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *)J(* $BIT2 = [BIT(2),UNSAFE] 0..3; *)J(* $BIT3 = [BIT(3),UNSAFE] 0..7; *)J(* $BIT4 = [BIT(4),UNSAFE] 0..15; '# *)J(* $BIT5 = [BIT(5),UNSAFE] 0..31; *)J(* $BIT6 = [BIT(6),UNSAFE] 0..63; *)J(* $BIT7 = [BIT(7),UNSAFE] 0..127; *)J(* $BIT8 = [BIT(8),UNSAFE] 0..255; *)J(* $BIT9 = [BIT(9),UNSAFE] 0..511; *)J(* $BIT10 = [BIT(10),UNSAFE] 0..1023; *)J(* $BIT11 = [BIT(11),UNSAFE] 0..2047;(# *)J(* $BIT12 = [BIT(12),UNSAFE] 0..4095; *)J(* $BIT13 = [BIT(13),UNSAFE] 0..8191; *)J(* $BIT14 = [BIT(14),UNSAFE] 0..16383; *)J(* $BIT15 = [BIT(15),UNSAFE] 0..32767; *)J(* $BIT16 = [BIT(16),UNSAFE] 0..65535; *)J(* $BIT17 = [BIT(17),UNSAFE] 0..131071; *)J(* $BIT18 =)# [BIT(18),UNSAFE] 0..262143; *)J(* $BIT19 = [BIT(19),UNSAFE] 0..524287; *)J(* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *)J(* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *)J(* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *)J(* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *)J(* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *# *)J(* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *)J(* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *)J(* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *)J(* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *)J(* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *)J(* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *)J(* $BIT31 = [BIT(31),UNSAFE] 0..214 +#7483647; *)J(* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) '(*** MODULE TPU$ROUTINES IDENT X-1 ***) N(* *)N(* Text Processing Utility (TPU) Routines *)N(* *)N(* *)N(* TPU$CLEANUP - Fre ,#e System Resources Used During TPU Session *)N(* *)N(* status = TPU$CLEANUP (flags) *)N(* *)N(* flags - Cleanup options *)N(* *) %[ASYNCHRONOUS] FUNCTION TPU$CLEANUP (' F-#LAGS : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* TPU$CLIPARSE - Parse a command line *)N(* *)N(* status = TPU$CLIPARSE (string, fileio, call_user) *)N(* *)N(* string - Command line to be parsed .# *)N(* fileio - Bound Procedure Value for File I/O routine *)N(* call_user - Bound Procedure Value for call-user routine *)N(* *) &[ASYNCHRONOUS] FUNCTION TPU$CLIPARSE (< STRING : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;; %REF FILEIO : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;S %REF CALL_USER : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERN /#AL; N(* *)N(* TPU$CLOSE_TERMINAL - Close Channel to Terminal *)N(* *)N(* status = TPU$CLOSE_TERMINAL () *)N(* *) ?[ASYNCHRONOUS] FUNCTION TPU$CLOSE_TERMINAL : INTEGER; EXTERNAL; N(* 0# *)N(* TPU$CONTROL - Pass Control to TPU *)N(* *)N(* status = TPU$CONTROL () *)N(* *) 8[ASYNCHRONOUS] FUNCTION TPU$CONTROL : INTEGER; EXTERNAL; N(* 1# *)N(* TPU$EDIT - Edit a file *)N(* *)N(* status = TPU$EDIT (input, output) *)N(* *)N(* input - Input file name *)N(* output - Output file name *)N(* 2# *) "[ASYNCHRONOUS] FUNCTION TPU$EDIT (; INPUT : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;Q OUTPUT : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* *)N(* TPU$EXECUTE_COMMAND - Execute One or More TPU Statements *)N(* *)N(* s 3#tatus = TPU$EXECUTE_COMMAND (string) *)N(* *)N(* string - TPU statement(s) to execute *)N(* *) -[ASYNCHRONOUS] FUNCTION TPU$EXECUTE_COMMAND (Q STRING : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* 4# *)N(* TPU$EXECUTE_INIFILE - Execute Initialization Files *)N(* *)N(* status = TPU$EXECUTE_INIFILE () *)N(* *) @[ASYNCHRONOUS] FUNCTION TPU$EXECUTE_INIFILE : INTEGER; EXTERNAL; N(* *)N(*5# TPU$FILEIO - Perform File Operations *)N(* *)N(* status = TPU$FILEIO (code, stream, data) *)N(* *)N(* code - Item code specifying a TPU function *)N(* stream - File description *)N(* data - Stream data 6# *)N(* *) $[ASYNCHRONOUS] FUNCTION TPU$FILEIO ( CODE : UNSIGNED;D %REF STREAM : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;W %REF DATA : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* TPU$FILE_PARSE - Parse a File Specification 7# *)N(* *)N(* status = TPU$FILE_PARSE (result_string, flags, filespec, *)N(* [default_spec], [related_spec]) *)N(* *)N(* result_string - Resultant file specification *)N(* flags - Specifies components to be returned *)N(* filespec 8# - File specification to parse *)N(* default_spec - Default file specification *)N(* related_spec - Related file specification *)N(* *) ([ASYNCHRONOUS] FUNCTION TPU$FILE_PARSE (P VAR RESULT_STRING : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; FLAGS : UNSIGNED;> FILESPEC : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER9#] OF CHAR;N DEFAULT_SPEC : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;c RELATED_SPEC : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* TPU$FILE_SEARCH - Search for a File Specification *)N(* *)N(* status = TPU$FILE_SEARCH (result_string, flags, filespec, :# *)N(* [default_spec], [related_spec]) *)N(* *)N(* result_string - Resultant file specification *)N(* flags - Specifies components to be returned *)N(* filespec - File specification to parse *)N(* default_spec - Default file specification *)N(* related_sp ;#ec - Related file specification *)N(* *) )[ASYNCHRONOUS] FUNCTION TPU$FILE_SEARCH (P VAR RESULT_STRING : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; FLAGS : UNSIGNED;> FILESPEC : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;N DEFAULT_SPEC : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;c RELATED_SPEC : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR <#:= %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* TPU$HANDLER - TPU Condition Handler *)N(* *)N(* status = TPU$HANDLER (signal_vector, mechanism_vector) *)N(* *)N(* signal_vector - Signal vector =# *)N(* mechanism_vector - Mechanism vector *)N(* *) %[ASYNCHRONOUS] FUNCTION TPU$HANDLER (F %REF SIGNAL_VECTOR : [VOLATILE] ARRAY [$l1..$u1:INTEGER] OF UNSIGNED;^ %REF MECHANISM_VECTOR : [VOLATILE] ARRAY [$l2..$u2:INTEGER] OF UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* TPU$INITIALIZE - Initialize TPU f>#or Editing *)N(* *)N(* status = TPU$INITIALIZE (callback [, user_arg) *)N(* *)N(* callback - Callback routine bound procedure value *)N(* user_arg - User argument *)N(* ?# *) ([ASYNCHRONOUS] FUNCTION TPU$INITIALIZE (= %REF CALLBACK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;6 USER_ARG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* TPU$MESSAGE - Write Message String *)N(* *)N(* status = TPU$MESSAGE (string) *) @#N(* *)N(* string - Formatted message *)N(* *) %[ASYNCHRONOUS] FUNCTION TPU$MESSAGE (Q STRING : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* *)N(* TPU$PARSEINFO - Parse Command Line and Build ItemA# List *)N(* *)N(* status = TPU$PARSEINFO (fileio, call_user) *)N(* *)N(* fileio - Bound Procedure Value File I/O routine *)N(* call_user - Bound Procedure Value for call-user routine *)N(* *) B# '[ASYNCHRONOUS] FUNCTION TPU$PARSEINFO (; %REF FILEIO : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE;S %REF CALL_USER : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; N(* *)N(* TPU$SIGNAL - Signal a TPU Status *)N(* *)N(* status = TPU$SIGNAL (condition_code) C# *)N(* *)N(* condition_code - Condition code to signal *)N(* *) $[ASYNCHRONOUS] FUNCTION TPU$SIGNAL (7 %IMMED CONDITION_CODE : UNSIGNED) : INTEGER; EXTERNAL; N(* *)N(* TPU$SPECIFY_ASYNC_ACTION - Register an Asynchronous Action D# *)N(* *)N(* status = TPU$SPECIFY_ASYNC_ACTION (facility_index [, tpu_statement]) *)N(* *)N(* facility_index - Index number of this action *)N(* tpu_statement - TPU statement to execute for action *)N(* *) 2[ASYNCHRON E#OUS] FUNCTION TPU$SPECIFY_ASYNC_ACTION ( FACILITY_INDEX : UNSIGNED;d TPU_STATEMENT : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; N(* *)N(* TPU$TPU - Invoke TPU *)N(* *)N(* status = TPU$TPU (command) *)N(* F# *)N(* command - Command string *)N(* *) ![ASYNCHRONOUS] FUNCTION TPU$TPU (R COMMAND : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; N(* *)N(* TPU$TRIGGER_ASYNC_ACTION - Trigger an Asynchronous Action G# *)N(* *)N(* status = TPU$TRIGGER_ASYNC_ACTION (facility_index) *)N(* *)N(* facility_index - Index number of this action *)N(* *) 2[ASYNCHRONOUS] FUNCTION TPU$TRIGGER_ASYNC_ACTION (0 FACILITY_INDEX : UNSIGNED) : INTEGER; EXTERNAL; N(* END. *) END.ww I#z; SYS$LIBRARY:STARLET.PAS [new]; SYS$LIBRARY:STARLET.PEN [new]; SYS$LIBRARY:PASCAL$ACLEDIT_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$ACLEDIT_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$CLI_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$CLI_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$CMA_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$CMA_ROUTINES.PEN J# [new]; SYS$LIBRARY:PASCAL$CONV_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$CONV_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$CVT_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$CVT_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$DCX_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$DCX_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$DTK_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$DTK_ROUTINES.PEN [new]; K# SYS$LIBRARY:PASCAL$EDT_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$EDT_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$FDL_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$FDL_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$LIB_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$LIB_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$LIB_ROUTINES_IEEE_FLOAT.PAS [new]; SYS$LIBRARY:PASCAL$LIB_ROUTINES_IEEE_FLOAT.PEN [new]; SYS$L L#IBRARY:PASCAL$LBR_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$LBR_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$MAIL_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$MAIL_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$MTH_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$MTH_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$NCS_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$NCS_ROUTINES.PEN [new]; SYS$LIBRARY:PAS M#CAL$OTS_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$OTS_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$PPL_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$PPL_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$PSM_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$PSM_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$SMB_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$SMB_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$SMG_RO N#UTINES.PAS [new]; SYS$LIBRARY:PASCAL$SMG_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$SOR_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$SOR_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$STR_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$STR_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$TBK_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$TBK_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$TPU_ROUTINES.PAS [new]; SYS$LIBRARY:PASCAL$TPU_ROUTINES.PEN [new]; SYS$LIBRARY:PASCAL$D_FLOAT.PAS [new]; SYS$LIBRARY:PASCAL$D_FLOAT.PEN [new]; SYS$LIBRARY:PASCAL$G_FLOAT.PAS [new]; SYS$LIBRARY:PASCAL$G_FLOAT.PEN [new]ww P#{%PASSTR$ STARLET.PAS VMI$ROOT:[SYSLIB]%PASSTR$ STARLET.PEN VMI$ROOT:[SYSLIB]5PASSTR$ PASCAL$ACLEDIT_ROUTINES.PAS VMI$ROOT:[SYSLIB]5PASSTR$ PASCAL$ACLEDIT_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$CLI_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$CLI_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$CMA_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$CMA_ROUTINES.PEN VMI$ROOT:[SYSLIB]2PASSTR$ PASCAL$CONV_ROUTINES.PAS VMI$ROOT:[SYSLIB]2PASSTR$ PASCAL$CONV_ROUTINES.PEN V Q#MI$ROOT:[SYSLIB]1PASSTR$ PASCAL$CVT_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$CVT_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$DCX_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$DCX_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$DTK_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$DTK_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$EDT_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$EDT_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$FDL_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$FDL_R R#OUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$LIB_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$LIB_ROUTINES.PEN VMI$ROOT:[SYSLIB]<PASSTR$ PASCAL$LIB_ROUTINES_IEEE_FLOAT.PAS VMI$ROOT:[SYSLIB]<PASSTR$ PASCAL$LIB_ROUTINES_IEEE_FLOAT.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$LBR_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$LBR_ROUTINES.PEN VMI$ROOT:[SYSLIB]2PASSTR$ PASCAL$MAIL_ROUTINES.PAS VMI$ROOT:[SYSLIB]2PASSTR$ PASCAL$MAIL_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$MTH_ROUTINES.PAS VMI$RO S#OT:[SYSLIB]1PASSTR$ PASCAL$MTH_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$NCS_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$NCS_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$OTS_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$OTS_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$PPL_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$PPL_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$PSM_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$PSM_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$SMB_ROUTI T#NES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$SMB_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$SMG_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$SMG_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$SOR_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$SOR_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$STR_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$STR_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$TBK_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$TBK_ROUTINES.PEN VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$TPU_ROUTINES.PAS VMI$ROOT:[SYSLIB]1PASSTR$ PASCAL$TPU_ROUTINES.PEN VMI$ROOT:[SYSLIB],PASSTR$ PASCAL$D_FLOAT.PAS VMI$ROOT:[SYSLIB],PASSTR$ PASCAL$D_FLOAT.PEN VMI$ROOT:[SYSLIB],PASSTR$ PASCAL$G_FLOAT.PAS VMI$ROOT:[SYSLIB],PASSTR$ PASCAL$G_FLOAT.PEN VMI$ROOT:[SYSLIB]ww