--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:36 by OpenVMS SDL EV3-3 -- Source: 17-JUN-2013 19:21:50 $1$DGA8085:[LIB_ADA.LIS]SYSPARDEF.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package SYSPARDEF is -- module $SYSPARDEF ACP_S_DATACHK : constant := 1; -- Old size name, synonym for ACP$S_SYS_DATACHK type ACP_BITS_TYPE is record READCHK : BOOLEAN; -- do datachecks on reads WRITECHK : BOOLEAN; -- do datachecks on writes FILLER_1 : UNSIGNED_6; end record; for ACP_BITS_TYPE use record READCHK at 0 range 0 .. 0; WRITECHK at 0 range 1 .. 1; FILLER_1 at 0 range 2 .. 7; end record; for ACP_BITS_TYPE'SIZE use 8; ACP_BITS_TYPE_INIT : constant ACP_BITS_TYPE := (READCHK => FALSE, WRITECHK => FALSE, FILLER_1 => 0); type ACP_SYS_DATACHK_TYPE is -- Definition for ACP$GB_DATACHK record BITS : ACP_BITS_TYPE; end record; for ACP_SYS_DATACHK_TYPE use record BITS at 0 range 0 .. 7; end record; for ACP_SYS_DATACHK_TYPE'SIZE use 8; ACP_SYS_DATACHK_TYPE_INIT : constant ACP_SYS_DATACHK_TYPE := ( BITS => ACP_BITS_TYPE_INIT ); ACP_S_SWAPFLAGS : constant := 1; -- Old size name, synonym for ACP$S_SYS_SWAPFLAGS type ACP_BITS_TYPE is record SWAPSYS : BOOLEAN; -- /SYSTEM SWAPGRP : BOOLEAN; -- /GROUP SWAPPRV : BOOLEAN; -- other (private mount) SWAPMAG : BOOLEAN; -- magtape FILLER_1 : UNSIGNED_4; end record; for ACP_BITS_TYPE use record SWAPSYS at 0 range 0 .. 0; SWAPGRP at 0 range 1 .. 1; SWAPPRV at 0 range 2 .. 2; SWAPMAG at 0 range 3 .. 3; FILLER_1 at 0 range 4 .. 7; end record; for ACP_BITS_TYPE'SIZE use 8; ACP_BITS_TYPE_INIT : constant ACP_BITS_TYPE := (SWAPSYS => FALSE, SWAPGRP => FALSE, SWAPPRV => FALSE, SWAPMAG => FALSE, FILLER_1 => 0); type ACP_SYS_SWAPFLAGS_TYPE is -- Definition for ACP$GB_SWAPFLGS record BITS : ACP_BITS_TYPE; end record; for ACP_SYS_SWAPFLAGS_TYPE use record BITS at 0 range 0 .. 7; end record; for ACP_SYS_SWAPFLAGS_TYPE'SIZE use 8; ACP_SYS_SWAPFLAGS_TYPE_INIT : constant ACP_SYS_SWAPFLAGS_TYPE := ( BITS => ACP_BITS_TYPE_INIT ); CLU_S_SGN_FLAGS : constant := 4; -- Old size name, synonym for CLU$S_SYS_SGN_FLAGS type CLU_BITS_TYPE is -- Bit Definition record NISCS_LOAD_PEA0 : BOOLEAN; -- <0> Load PEA0 for NISCS NISCS_CONV_BOOT : BOOLEAN; -- <1> Allow remote conversational boot NISCS_USE_LAN : BOOLEAN; -- <2> Allow NISCS use of LAN NISCS_USE_UDP : BOOLEAN; -- <3> Allow NISCS use of UDP FILLER_1 : UNSIGNED_28; end record; for CLU_BITS_TYPE use record NISCS_LOAD_PEA0 at 0 range 0 .. 0; NISCS_CONV_BOOT at 0 range 1 .. 1; NISCS_USE_LAN at 0 range 2 .. 2; NISCS_USE_UDP at 0 range 3 .. 3; FILLER_1 at 0 range 4 .. 31; end record; for CLU_BITS_TYPE'SIZE use 32; CLU_BITS_TYPE_INIT : constant CLU_BITS_TYPE := (NISCS_LOAD_PEA0 => FALSE, NISCS_CONV_BOOT => FALSE, NISCS_USE_LAN => FALSE, NISCS_USE_UDP => FALSE, FILLER_1 => 0); type CLU_SYS_SGN_FLAGS_TYPE is -- Definition for CLU$GL_SGN_FLAGS record BITS : CLU_BITS_TYPE; -- Bit Definition end record; for CLU_SYS_SGN_FLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for CLU_SYS_SGN_FLAGS_TYPE'SIZE use 32; CLU_SYS_SGN_FLAGS_TYPE_INIT : constant CLU_SYS_SGN_FLAGS_TYPE := ( BITS => CLU_BITS_TYPE_INIT ); EXE_M_FATAL_BUG : constant := 16#00000100#; EXE_S_FLAGS : constant := 4; -- Old size name, synonym for EXE$S_SYS_FLAGS type EXE_BITS_TYPE is record SYSWRTABL : BOOLEAN; -- LEAVE SYSTEM READ ONLY CODE WRITABLE NOAUTOCNF : BOOLEAN; -- NO AUTOMATIC CONFIGURATION OF UBA POOLPGING : BOOLEAN; -- ENABLE DYNAMIC POOL PAGING SIMULATOR : BOOLEAN; -- RUNNING ON SIMULATOR CRDENABL : BOOLEAN; -- ENABLE CRD ERROR DETECTION SBIERR : BOOLEAN; -- ENABLE SBI ERROR INTERRUPT INIT : BOOLEAN; -- RMS AND FILE SYSTEM INITIALIZED SETTIME : BOOLEAN; -- FORCE SOLICITATION OF TIME FATAL_BUG : BOOLEAN; -- FORCE ALL BUG CHECKS FATAL MULTACP : BOOLEAN; -- USE MULTIPLE FILE ACP'S NOCLUSTER : BOOLEAN; -- TURN OFF PAGE FAULT CLUSTERING BUGREBOOT : BOOLEAN; -- AUTO REBOOT ON BUGCHECK SYSUAFALT : BOOLEAN; -- ALTERNATE LOGICAL NAME FOR SYSUAF SHRF11ACP : BOOLEAN; -- MAKE F11ACP SHARABLE AT BOOT TIME BUGDUMP : BOOLEAN; -- TAKE SYSTEM DUMP ON BUGCHECK RESALLOC : BOOLEAN; -- ENABLE RESOURCE ALLOCATION CHECKS CONCEALED : BOOLEAN; -- ENABLE USE OF CONCEALED DEVICES SSINHIBIT : BOOLEAN; -- INHIBIT SYSTEM SERVICES PER-PROCESS EXPLICITP : BOOLEAN; -- IF SET TODAY IS CONSIDERED PRIMARY EXPLICITS : BOOLEAN; -- IF SET TODAY IS CONSIDERED SECONDARY PGFLFRAG : BOOLEAN; -- SET IF PAGE FILE FRAGMENTED MSG ISSUED PGFLCRIT : BOOLEAN; -- SET IF PAGE FILE FULL MSG ISSUED TBCHK : BOOLEAN; -- SET IF PROCESSOR REGISTER TBCHK PRESENT PAGFILDMP : BOOLEAN; -- SET IF DUMP IS IN PAGE FILE SAVEDUMP : BOOLEAN; -- SET TO SAVE DUMP UNTIL ANALYZED JOBQUEUES : BOOLEAN; -- Set if JOBCTL to enable queues REINITQUE : BOOLEAN; -- Set if JOBCTL to reinitialize JBCSYSQUE WLKSYSDSK : BOOLEAN; -- Set if system disk is write locked POWEROFF : BOOLEAN; -- Enable software power-off VIRTUAL_MACHINE : BOOLEAN; -- Running on HPVM FILLER_1 : UNSIGNED_2; end record; for EXE_BITS_TYPE use record SYSWRTABL at 0 range 0 .. 0; NOAUTOCNF at 0 range 1 .. 1; POOLPGING at 0 range 2 .. 2; SIMULATOR at 0 range 3 .. 3; CRDENABL at 0 range 4 .. 4; SBIERR at 0 range 5 .. 5; INIT at 0 range 6 .. 6; SETTIME at 0 range 7 .. 7; FATAL_BUG at 1 range 0 .. 0; MULTACP at 1 range 1 .. 1; NOCLUSTER at 1 range 2 .. 2; BUGREBOOT at 1 range 3 .. 3; SYSUAFALT at 1 range 4 .. 4; SHRF11ACP at 1 range 5 .. 5; BUGDUMP at 1 range 6 .. 6; RESALLOC at 1 range 7 .. 7; CONCEALED at 2 range 0 .. 0; SSINHIBIT at 2 range 1 .. 1; EXPLICITP at 2 range 2 .. 2; EXPLICITS at 2 range 3 .. 3; PGFLFRAG at 2 range 4 .. 4; PGFLCRIT at 2 range 5 .. 5; TBCHK at 2 range 6 .. 6; PAGFILDMP at 2 range 7 .. 7; SAVEDUMP at 3 range 0 .. 0; JOBQUEUES at 3 range 1 .. 1; REINITQUE at 3 range 2 .. 2; WLKSYSDSK at 3 range 3 .. 3; POWEROFF at 3 range 4 .. 4; VIRTUAL_MACHINE at 3 range 5 .. 5; FILLER_1 at 3 range 6 .. 7; end record; for EXE_BITS_TYPE'SIZE use 32; EXE_BITS_TYPE_INIT : constant EXE_BITS_TYPE := (SYSWRTABL => FALSE, NOAUTOCNF => FALSE, POOLPGING => FALSE, SIMULATOR => FALSE, CRDENABL => FALSE, SBIERR => FALSE, INIT => FALSE, SETTIME => FALSE, FATAL_BUG => FALSE, MULTACP => FALSE, NOCLUSTER => FALSE, BUGREBOOT => FALSE, SYSUAFALT => FALSE, SHRF11ACP => FALSE, BUGDUMP => FALSE, RESALLOC => FALSE, CONCEALED => FALSE, SSINHIBIT => FALSE, EXPLICITP => FALSE, EXPLICITS => FALSE, PGFLFRAG => FALSE, PGFLCRIT => FALSE, TBCHK => FALSE, PAGFILDMP => FALSE, SAVEDUMP => FALSE, JOBQUEUES => FALSE, REINITQUE => FALSE, WLKSYSDSK => FALSE, POWEROFF => FALSE, VIRTUAL_MACHINE => FALSE, FILLER_1 => 0); type EXE_SYS_FLAGS_TYPE is -- DEFINITION FOR EXE$GL_FLAGS record BITS : EXE_BITS_TYPE; end record; for EXE_SYS_FLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for EXE_SYS_FLAGS_TYPE'SIZE use 32; EXE_SYS_FLAGS_TYPE_INIT : constant EXE_SYS_FLAGS_TYPE := ( BITS => EXE_BITS_TYPE_INIT ); EXE_M_NOCLOCK : constant := 16#00000001#; EXE_M_NOSMPSANITY : constant := 16#00000002#; EXE_M_NOSPINWAIT : constant := 16#00000004#; EXE_M_SPCTL_BIT_3 : constant := 16#00000008#; EXE_M_SPCTL_BIT_4 : constant := 16#00000010#; EXE_S_TIME_CONTROL : constant := 4; -- Old size name, synonym for EXE$S_SYS_TIME_CONTROL type EXE_BITS_TYPE is record NOCLOCK : BOOLEAN; -- DO NOT TURN ON CLOCK NOSMPSANITY : BOOLEAN; -- DISABLE SMP SANITY TIMER TIMEOUTS NOSPINWAIT : BOOLEAN; -- DISABLE SMP SPIN/BUSYWAIT TIMEOUTS SPCTL_BIT_3 : BOOLEAN; -- SPECIAL CONTROL BITS FOR BBW_ROUTINES_DS1287 SPCTL_BIT_4 : BOOLEAN; -- AND POSSIBLY TIMESCHDL FILLER_1 : UNSIGNED_27; end record; for EXE_BITS_TYPE use record NOCLOCK at 0 range 0 .. 0; NOSMPSANITY at 0 range 1 .. 1; NOSPINWAIT at 0 range 2 .. 2; SPCTL_BIT_3 at 0 range 3 .. 3; SPCTL_BIT_4 at 0 range 4 .. 4; FILLER_1 at 0 range 5 .. 31; end record; for EXE_BITS_TYPE'SIZE use 32; EXE_BITS_TYPE_INIT : constant EXE_BITS_TYPE := (NOCLOCK => FALSE, NOSMPSANITY => FALSE, NOSPINWAIT => FALSE, SPCTL_BIT_3 => FALSE, SPCTL_BIT_4 => FALSE, FILLER_1 => 0); type EXE_SYS_TIME_CONTROL_TYPE is -- DEFINITION FOR EXE$GL_TIME_CONTROL record BITS : EXE_BITS_TYPE; end record; for EXE_SYS_TIME_CONTROL_TYPE use record BITS at 0 range 0 .. 31; end record; for EXE_SYS_TIME_CONTROL_TYPE'SIZE use 32; EXE_SYS_TIME_CONTROL_TYPE_INIT : constant EXE_SYS_TIME_CONTROL_TYPE := ( BITS => EXE_BITS_TYPE_INIT ); EXE_M_SYSSER_LOGGING : constant := 16#00000080#; EXE_S_DYNAMIC_FLAGS : constant := 4; -- Old size name, synonym for EXE$S_SYS_DYNAMIC_FLAGS type EXE_FILL_16_TYPE is record CLASS_PROT : BOOLEAN; -- Do non-discretionary classification check WRITESYSPARAMS : BOOLEAN; -- Write the active parameters to the system .PAR file BRK_TERM : BOOLEAN; -- Associate on terminal in breakin detection BRK_DISUSER : BOOLEAN; -- Disable user account on breakin NOPGFLSWP : BOOLEAN; -- Disallow swapping into page files LOAD_PWD_POLICY : BOOLEAN; -- Load site-specific password change policy PERSISTENT_RES : BOOLEAN; -- Enable Fibre SCSI Persistent reservations. SYSSER_LOGGING : BOOLEAN; -- Enable system service logging end record; for EXE_FILL_16_TYPE use record CLASS_PROT at 0 range 0 .. 0; WRITESYSPARAMS at 0 range 1 .. 1; BRK_TERM at 0 range 2 .. 2; BRK_DISUSER at 0 range 3 .. 3; NOPGFLSWP at 0 range 4 .. 4; LOAD_PWD_POLICY at 0 range 5 .. 5; PERSISTENT_RES at 0 range 6 .. 6; SYSSER_LOGGING at 0 range 7 .. 7; end record; for EXE_FILL_16_TYPE'SIZE use 8; EXE_FILL_16_TYPE_INIT : constant EXE_FILL_16_TYPE := (CLASS_PROT => FALSE, WRITESYSPARAMS => FALSE, BRK_TERM => FALSE, BRK_DISUSER => FALSE, NOPGFLSWP => FALSE, LOAD_PWD_POLICY => FALSE, PERSISTENT_RES => FALSE, SYSSER_LOGGING => FALSE); type EXE_FILL_15_TYPE is record FILLER_1 : UNSIGNED_LONGWORD; ----Component(s) below are defined as comments since they ----overlap other fields ---- ----FILL_16 : EXE_FILL_16_TYPE; end record; for EXE_FILL_15_TYPE use record FILLER_1 at 0 range 0 .. 31; ----Component representation spec(s) below are defined as ----comments since they overlap other fields ---- ----FILL_16 at 0 range 0 .. 7; end record; for EXE_FILL_15_TYPE'SIZE use 32; EXE_FILL_15_TYPE_INIT : constant EXE_FILL_15_TYPE := (FILLER_1 => 0); type EXE_SYS_DYNAMIC_FLAGS_TYPE is -- DEFINITION FOR EXE$GL_DYNAMIC_FLAGS record FILL_15 : EXE_FILL_15_TYPE; end record; for EXE_SYS_DYNAMIC_FLAGS_TYPE use record FILL_15 at 0 range 0 .. 31; end record; for EXE_SYS_DYNAMIC_FLAGS_TYPE'SIZE use 32; EXE_SYS_DYNAMIC_FLAGS_TYPE_INIT : constant EXE_SYS_DYNAMIC_FLAGS_TYPE := ( FILL_15 => EXE_FILL_15_TYPE_INIT ); EXE_M_SSI_ENABLE : constant := 16#00000010#; EXE_S_STATIC_FLAGS : constant := 4; -- Old size name, synonym for EXE$S_SYS_STATIC_FLAGS type EXE_BITS_TYPE is record XQP_RESIDENT : BOOLEAN; -- MEMORY RESIDENT XQP REBLDSYSD : BOOLEAN; -- REBUILD SYSTEM DISK IN SYSMOUNT OBSSHAD : BOOLEAN; -- Skip obsolete SHADOWING bit SA_APP : BOOLEAN; -- Booting stand-alone application (SA-BACKUP) SSI_ENABLE : BOOLEAN; -- Enable system service interception on I64 FILLER_1 : UNSIGNED_27; end record; for EXE_BITS_TYPE use record XQP_RESIDENT at 0 range 0 .. 0; REBLDSYSD at 0 range 1 .. 1; OBSSHAD at 0 range 2 .. 2; SA_APP at 0 range 3 .. 3; SSI_ENABLE at 0 range 4 .. 4; FILLER_1 at 0 range 5 .. 31; end record; for EXE_BITS_TYPE'SIZE use 32; EXE_BITS_TYPE_INIT : constant EXE_BITS_TYPE := (XQP_RESIDENT => FALSE, REBLDSYSD => FALSE, OBSSHAD => FALSE, SA_APP => FALSE, SSI_ENABLE => FALSE, FILLER_1 => 0); type EXE_SYS_STATIC_FLAGS_TYPE is -- DEFINITION FOR EXE$GL_STATIC_FLAGS record BITS : EXE_BITS_TYPE; end record; for EXE_SYS_STATIC_FLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for EXE_SYS_STATIC_FLAGS_TYPE'SIZE use 32; EXE_SYS_STATIC_FLAGS_TYPE_INIT : constant EXE_SYS_STATIC_FLAGS_TYPE := ( BITS => EXE_BITS_TYPE_INIT ); EXE_M_MOUNTMSG : constant := 16#00000001#; EXE_M_DISMOUMSG : constant := 16#00000002#; EXE_S_MSGFLAGS : constant := 4; -- Old size name, synonym for EXE$S_SYS_MSGFLAGS type EXE_BITS_TYPE is record MOUNTMSG : BOOLEAN; -- ENABLE MOUNT NOTIFICATION DISMOUMSG : BOOLEAN; -- ENABLE DISMOUNT NOTIFICATION FILLER_1 : UNSIGNED_30; end record; for EXE_BITS_TYPE use record MOUNTMSG at 0 range 0 .. 0; DISMOUMSG at 0 range 1 .. 1; FILLER_1 at 0 range 2 .. 31; end record; for EXE_BITS_TYPE'SIZE use 32; EXE_BITS_TYPE_INIT : constant EXE_BITS_TYPE := (MOUNTMSG => FALSE, DISMOUMSG => FALSE, FILLER_1 => 0); type EXE_SYS_MSGFLAGS_TYPE is -- DEFINITION FOR EXE$GL_MSGFLAGS record BITS : EXE_BITS_TYPE; end record; for EXE_SYS_MSGFLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for EXE_SYS_MSGFLAGS_TYPE'SIZE use 32; EXE_SYS_MSGFLAGS_TYPE_INIT : constant EXE_SYS_MSGFLAGS_TYPE := ( BITS => EXE_BITS_TYPE_INIT ); EXE_S_WSFLAGS : constant := 4; -- Old size name, synonym for EXE$S_SYS_WSFLAGS type EXE_BITS_TYPE is record OPA0 : BOOLEAN; -- Reserve a window for OPA0 FILLER_1 : UNSIGNED_31; end record; for EXE_BITS_TYPE use record OPA0 at 0 range 0 .. 0; FILLER_1 at 0 range 1 .. 31; end record; for EXE_BITS_TYPE'SIZE use 32; EXE_BITS_TYPE_INIT : constant EXE_BITS_TYPE := (OPA0 => FALSE, FILLER_1 => 0); type EXE_SYS_WSFLAGS_TYPE is -- DEFINITION FOR EXE$GL_WSFLAGS record BITS : EXE_BITS_TYPE; end record; for EXE_SYS_WSFLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for EXE_SYS_WSFLAGS_TYPE'SIZE use 32; EXE_SYS_WSFLAGS_TYPE_INIT : constant EXE_SYS_WSFLAGS_TYPE := ( BITS => EXE_BITS_TYPE_INIT ); SGN_S_LOADFLAGS : constant := 4; -- Old size name, synonym for SGN$S_SYS_LOADFLAGS type SGN_BITS_TYPE is record LOAD_SYS_IMAGES : BOOLEAN; -- Alternate load system images EXEC_SLICING : BOOLEAN; -- Slice system images RELEASE_PFNS : BOOLEAN; -- Release PFNs in the huge page FILLER_1 : UNSIGNED_29; end record; for SGN_BITS_TYPE use record LOAD_SYS_IMAGES at 0 range 0 .. 0; EXEC_SLICING at 0 range 1 .. 1; RELEASE_PFNS at 0 range 2 .. 2; FILLER_1 at 0 range 3 .. 31; end record; for SGN_BITS_TYPE'SIZE use 32; SGN_BITS_TYPE_INIT : constant SGN_BITS_TYPE := (LOAD_SYS_IMAGES => FALSE, EXEC_SLICING => FALSE, RELEASE_PFNS => FALSE, FILLER_1 => 0); type SGN_SYS_LOADFLAGS_TYPE is -- DEFINITION FOR SGN$GL_LOADFLAGS record BITS : SGN_BITS_TYPE; end record; for SGN_SYS_LOADFLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for SGN_SYS_LOADFLAGS_TYPE'SIZE use 32; SGN_SYS_LOADFLAGS_TYPE_INIT : constant SGN_SYS_LOADFLAGS_TYPE := ( BITS => SGN_BITS_TYPE_INIT ); SGN_M_SDH : constant := 16#00000001#; SGN_M_EVENT_MSG_MAJ : constant := 16#00000002#; SGN_M_EVENT_MSG_ALL : constant := 16#00000004#; SGN_M_UNI_V30 : constant := 16#00000008#; SGN_M_UNI_V31 : constant := 16#00000010#; SGN_M_DISABLE_GBE_AUTO : constant := 16#00000020#; SGN_M_ENABLE_GBE_JUMBO : constant := 16#00000040#; SGN_M_ENABLE_MORE_RCV : constant := 16#00000080#; SGN_M_DISABLE_FLOW_CTL : constant := 16#00000100#; SGN_M_RESERVED1 : constant := 16#00000600#; SGN_M_DISABLE_ERRLOG : constant := 16#00000800#; SGN_M_ENABLE_FAST_TIMER : constant := 16#00001000#; SGN_M_DEFAULT_XMT_ERROR : constant := 16#00002000#; SGN_M_PORT_USABLE_ALWAYS : constant := 16#00004000#; SGN_M_PORT_USABLE_UP : constant := 16#00008000#; SGN_M_RESERVED2 : constant := 16#00FF0000#; SGN_M_STOP_TRACE_FULL : constant := 16#01000000#; SGN_M_ENABLE_ALT_FUNC2 : constant := 16#02000000#; SGN_M_ENABLE_ALT_FUNC3 : constant := 16#04000000#; SGN_M_DISABLE_MAP_REG : constant := 16#08000000#; SGN_M_DISABLE_ALL_MSG : constant := 16#10000000#; SGN_M_ENABLE_DEBUG_MODE : constant := 16#20000000#; SGN_M_ENABLE_ALL_TRACE : constant := 16#40000000#; SGN_M_ENABLE_ALL_MSG : constant := 16#80000000#; SGN_S_LAN_FLAGS : constant := 4; -- Old size name, synonym for SGN$S_SYS_LAN_FLAGS type SGN_BITS_TYPE is record SDH : BOOLEAN; -- 00000001 0 ATM device is in SDH mode EVENT_MSG_MAJ : BOOLEAN; -- 00000002 1 Enable a subset of the ATM/NIPG event messages EVENT_MSG_ALL : BOOLEAN; -- 00000004 2 Enable all ATM/NIPG event messages UNI_V30 : BOOLEAN; -- 00000008 3 Enable UNI version 3.0 UNI_V31 : BOOLEAN; -- 00000010 4 Enable UNI version 3.1 (overrides 3.0) DISABLE_GBE_AUTO : BOOLEAN; -- 00000020 5 Disable GBE autoconfiguration ENABLE_GBE_JUMBO : BOOLEAN; -- 00000040 6 Enable GBE use of jumbo frames ENABLE_MORE_RCV : BOOLEAN; -- 00000080 7 Enable more receive buffers DISABLE_FLOW_CTL : BOOLEAN; -- 00000100 8 Disable flow control RESERVED1 : UNSIGNED_2; -- 00000600 9,10 Reserved FCLAN bits DISABLE_ERRLOG : BOOLEAN; -- 00000800 11 Disable LAN error logging ENABLE_FAST_TIMER : BOOLEAN; -- 00001000 12 Enable fast transmit timer DEFAULT_XMT_ERROR : BOOLEAN; -- 00002000 13 Default to transmit error on aborted transmits PORT_USABLE_ALWAYS : BOOLEAN; -- 00004000 14 Report port usable after enable_port PORT_USABLE_UP : BOOLEAN; -- 00008000 15 Report port usable when link up RESERVED2 : UNSIGNED_8; -- 00FF0000 16..23 Unused bits STOP_TRACE_FULL : BOOLEAN; -- 01000000 24 Stop tracing when buffer full ENABLE_ALT_FUNC2 : BOOLEAN; -- 02000000 25 Enable alternate fucntionality #2 ENABLE_ALT_FUNC3 : BOOLEAN; -- 04000000 26 Enable alternate fucntionality #3 DISABLE_MAP_REG : BOOLEAN; -- 08000000 27 Disable use of map registers DISABLE_ALL_MSG : BOOLEAN; -- 10000000 28 Disable all messages ENABLE_DEBUG_MODE : BOOLEAN; -- 20000000 29 Enable debug mode ENABLE_ALL_TRACE : BOOLEAN; -- 40000000 30 Enable all tracing ENABLE_ALL_MSG : BOOLEAN; -- 80000000 31 Enable all messages end record; for SGN_BITS_TYPE use record SDH at 0 range 0 .. 0; EVENT_MSG_MAJ at 0 range 1 .. 1; EVENT_MSG_ALL at 0 range 2 .. 2; UNI_V30 at 0 range 3 .. 3; UNI_V31 at 0 range 4 .. 4; DISABLE_GBE_AUTO at 0 range 5 .. 5; ENABLE_GBE_JUMBO at 0 range 6 .. 6; ENABLE_MORE_RCV at 0 range 7 .. 7; DISABLE_FLOW_CTL at 1 range 0 .. 0; RESERVED1 at 1 range 1 .. 2; DISABLE_ERRLOG at 1 range 3 .. 3; ENABLE_FAST_TIMER at 1 range 4 .. 4; DEFAULT_XMT_ERROR at 1 range 5 .. 5; PORT_USABLE_ALWAYS at 1 range 6 .. 6; PORT_USABLE_UP at 1 range 7 .. 7; RESERVED2 at 2 range 0 .. 7; STOP_TRACE_FULL at 3 range 0 .. 0; ENABLE_ALT_FUNC2 at 3 range 1 .. 1; ENABLE_ALT_FUNC3 at 3 range 2 .. 2; DISABLE_MAP_REG at 3 range 3 .. 3; DISABLE_ALL_MSG at 3 range 4 .. 4; ENABLE_DEBUG_MODE at 3 range 5 .. 5; ENABLE_ALL_TRACE at 3 range 6 .. 6; ENABLE_ALL_MSG at 3 range 7 .. 7; end record; for SGN_BITS_TYPE'SIZE use 32; SGN_BITS_TYPE_INIT : constant SGN_BITS_TYPE := (SDH => FALSE, EVENT_MSG_MAJ => FALSE, EVENT_MSG_ALL => FALSE, UNI_V30 => FALSE, UNI_V31 => FALSE, DISABLE_GBE_AUTO => FALSE, ENABLE_GBE_JUMBO => FALSE, ENABLE_MORE_RCV => FALSE, DISABLE_FLOW_CTL => FALSE, RESERVED1 => 0, DISABLE_ERRLOG => FALSE, ENABLE_FAST_TIMER => FALSE, DEFAULT_XMT_ERROR => FALSE, PORT_USABLE_ALWAYS => FALSE, PORT_USABLE_UP => FALSE, RESERVED2 => 0, STOP_TRACE_FULL => FALSE, ENABLE_ALT_FUNC2 => FALSE, ENABLE_ALT_FUNC3 => FALSE, DISABLE_MAP_REG => FALSE, DISABLE_ALL_MSG => FALSE, ENABLE_DEBUG_MODE => FALSE, ENABLE_ALL_TRACE => FALSE, ENABLE_ALL_MSG => FALSE); type SGN_LAN_FLAGS_TYPE is -- Definition for SGN$GL_LAN_FLAGS record BITS : SGN_BITS_TYPE; end record; for SGN_LAN_FLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for SGN_LAN_FLAGS_TYPE'SIZE use 32; SGN_LAN_FLAGS_TYPE_INIT : constant SGN_LAN_FLAGS_TYPE := ( BITS => SGN_BITS_TYPE_INIT ); -- -- values for sysgen parameter: SGN$GL_GALAXY -- GLX_C_NOJOIN : constant := 0; GLX_C_JOIN_NOW : constant := 1; GLX_C_JOIN_LATER : constant := 2; EXE_M_CLASS_SCHED_ACTIVE : constant := 16#00000001#; type EXE_BITS_TYPE is record CLASS_SCHED_ACTIVE : BOOLEAN; -- Class scheduling is active FILLER_1 : UNSIGNED_31; end record; for EXE_BITS_TYPE use record CLASS_SCHED_ACTIVE at 0 range 0 .. 0; FILLER_1 at 0 range 1 .. 31; end record; for EXE_BITS_TYPE'SIZE use 32; EXE_BITS_TYPE_INIT : constant EXE_BITS_TYPE := (CLASS_SCHED_ACTIVE => FALSE, FILLER_1 => 0); type EXE_SYS_SCHED_FLAGS_TYPE is -- DEFINITION FOR EXE$GL_SCHED_FLAGS record BITS : EXE_BITS_TYPE; end record; for EXE_SYS_SCHED_FLAGS_TYPE use record BITS at 0 range 0 .. 31; end record; for EXE_SYS_SCHED_FLAGS_TYPE'SIZE use 32; EXE_SYS_SCHED_FLAGS_TYPE_INIT : constant EXE_SYS_SCHED_FLAGS_TYPE := ( BITS => EXE_BITS_TYPE_INIT ); SGN_M_PKQ_FP_DISABLE : constant := 16#00000001#; SGN_M_FGE_FP_DISABLE : constant := 16#00000002#; SGN_M_PKA_FP_DISABLE : constant := 16#00000004#; SGN_M_LAN_FP_DISABLE : constant := 16#00000008#; SGN_M_PKR_FP_DISABLE : constant := 16#00000010#; SGN_M_PKM_FP_DISABLE : constant := 16#00000020#; SGN_M_PGQ_FP_DISABLE : constant := 16#00000040#; SGN_M_DE_FP_DISABLE : constant := 16#00000080#; SGN_S_FAST_PATH_PORTS : constant := 4; -- Old size name, synonym for SGN$S_SYS_FAST_PATH_PORTS type SGN_BITS_TYPE is record PKQ_FP_DISABLE : BOOLEAN; -- Set = disable PKQ (QLogic) Fast Path FGE_FP_DISABLE : BOOLEAN; -- Set = disable Emulex FiberChannel Fast Path PKA_FP_DISABLE : BOOLEAN; -- Set = disable PKA Fast Path LAN_FP_DISABLE : BOOLEAN; -- Set = disable LAN Fast Path PKR_FP_DISABLE : BOOLEAN; -- Set = disable PKR Fast Path PKM_FP_DISABLE : BOOLEAN; -- Set = disable PKM Fast Path PGQ_FP_DISABLE : BOOLEAN; -- Set = disable PGQ (QLogic FC) Fast Path DE_FP_DISABLE : BOOLEAN; -- X-33 Set = disable DE (iSCSI) Fast Path FILLER_1 : UNSIGNED_24; -- Align to next byte end record; for SGN_BITS_TYPE use record PKQ_FP_DISABLE at 0 range 0 .. 0; FGE_FP_DISABLE at 0 range 1 .. 1; PKA_FP_DISABLE at 0 range 2 .. 2; LAN_FP_DISABLE at 0 range 3 .. 3; PKR_FP_DISABLE at 0 range 4 .. 4; PKM_FP_DISABLE at 0 range 5 .. 5; PGQ_FP_DISABLE at 0 range 6 .. 6; DE_FP_DISABLE at 0 range 7 .. 7; FILLER_1 at 1 range 0 .. 23; end record; for SGN_BITS_TYPE'SIZE use 32; SGN_BITS_TYPE_INIT : constant SGN_BITS_TYPE := (PKQ_FP_DISABLE => FALSE, FGE_FP_DISABLE => FALSE, PKA_FP_DISABLE => FALSE, LAN_FP_DISABLE => FALSE, PKR_FP_DISABLE => FALSE, PKM_FP_DISABLE => FALSE, PGQ_FP_DISABLE => FALSE, DE_FP_DISABLE => FALSE, FILLER_1 => 0); type SGN_FAST_PATH_PORTS_TYPE is -- DEFINITION FOR SGN$GL_FAST_PATH_PORTS record BITS : SGN_BITS_TYPE; end record; for SGN_FAST_PATH_PORTS_TYPE use record BITS at 0 range 0 .. 31; end record; for SGN_FAST_PATH_PORTS_TYPE'SIZE use 32; SGN_FAST_PATH_PORTS_TYPE_INIT : constant SGN_FAST_PATH_PORTS_TYPE := ( BITS => SGN_BITS_TYPE_INIT ); SGN_M_PAC_ENABLE : constant := 16#00000001#; SGN_M_DEPTH_FIRST : constant := 16#00000002#; SGN_M_MAX_UNITS : constant := 16#0000000C#; SGN_S_DEVICE_NAMING : constant := 4; -- Old size name, synonym for SGN$S_DEVICE_NAMING type SGN_BITS_TYPE is record PAC_ENABLE : BOOLEAN; -- set to enable port allocation class naming scheme DEPTH_FIRST : BOOLEAN; -- set to enable depth-first adapter enumeration scheme MAX_UNITS : UNSIGNED_2; -- set to limit maximum device units to 9999 FILLER_1 : UNSIGNED_28; end record; for SGN_BITS_TYPE use record PAC_ENABLE at 0 range 0 .. 0; DEPTH_FIRST at 0 range 1 .. 1; MAX_UNITS at 0 range 2 .. 3; FILLER_1 at 0 range 4 .. 31; end record; for SGN_BITS_TYPE'SIZE use 32; SGN_BITS_TYPE_INIT : constant SGN_BITS_TYPE := (PAC_ENABLE => FALSE, DEPTH_FIRST => FALSE, MAX_UNITS => 0, FILLER_1 => 0); type SGN_DEVICE_NAMING_TYPE is -- DEFINITION FOR IOC$GL_NAMING record BITS : SGN_BITS_TYPE; end record; for SGN_DEVICE_NAMING_TYPE use record BITS at 0 range 0 .. 31; end record; for SGN_DEVICE_NAMING_TYPE'SIZE use 32; SGN_DEVICE_NAMING_TYPE_INIT : constant SGN_DEVICE_NAMING_TYPE := ( BITS => SGN_BITS_TYPE_INIT ); end SYSPARDEF;