|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12014 (0x2eee)
Types: TextFile
Names: »SCCNAME.N«
└─⟦582898758⟧ Bits:30005091 8" CR80 Floppy CR80FD_0048 ( CRAS1 12-11-80 Contains: SCCNAME.N, SCCDATA.N SCCHEAD.N SCCMEDE, SCCREC, SCCNSS, NSSMTCB in directory: SCCNAMES.D )
└─⟦1dfc29892⟧
└─ ⟦this⟧ »SCCNAMES.D!SCCNAME.N«
"*****************************************************************
"*****************************************************************
"* *
"* NAME: SCCNAME.N *
"* NUMBER: CFIX/66/001 *
"* FIKS SCC DATA BASE *
"* COPYRIGHT: CHRISTIAN ROVSING CORP *
"* TC/801211 RELEASE: 01 VERSION: 01 *
"* *
"*****************************************************************
"* *
"* FUNCTION: *
"* THIS FILE DECLARES ALL GENERAL PARAMETERS USED *
"* BY THE SCC. *
"* *
"*****************************************************************
" GENERAL FIKS CONSTANTS:
CONST
TRUNKC = 8; "MAX NUMBER OF TRUNKS PER NODE
MAXUC = 30; "MAXIMUN NO. OF USER
AIG_SIZEM = 275; "MAXIMUN NO. OF ANO'S IN AIG
DAN_PLTX_SI= 20; "NO. OF CHAR. IN DANISH PLAIN ADDR.
ENG_PLTX_SI= 20; "NO. OF CHAR. IN ENGLISH PLAIN ADDR.
PLAIN_TX_SI= 40; "TOTAL NO. OF CHAR. IN DANISH AND ENGLISH PLAIN ADDR.
HOURC = 48; "NO. OF HOURS (2 DAYS)
DAYC = 24; "NO. OF HOURS
"SCC CONTROL MESSAGES: TYPE AND CONST.
"GENERAL TYPES
TYPE
BINB = ARRAY [0..0] OF BYTE;
"BINARY BYTE
BINW = INTEGER; "BINARY WORD
BINL = LONG; "BINARY LONG WORD
ASCII = CHAR;
"SHORT CHARACTER
CBCB = ARRAY [0..0] OF BYTE;
"CYCLIC BINARY BYTE
CBCW = INTEGER; "CYCLIC BINARY WORD
CBCL = LONG; "CYCLIC BINARY LONG WORD
BIMB = BYTE; "BIT MASK - BYTE
BIMW = INTEGER; "BIT MASK - WORD
BIML = LONG; "BIT MASK - LONG WORD
EXPBYTE = INTEGER; "EXPANDED BYTE
"GENERAL FIKS TYPE:
ANO_NOTY_I = 000..999; "ANO NO. TYPE - INTEGER
ANO_NOTY_B = BINB; "ANO NO. TYPE - BYTE
AIG_NOTY_I = 00..100; "AIG NO. TYPE - INTEGER
AIG_NOTY_B = BINB; "AIG NO. TYPE - BYTE
TERM_NOTY_I= 0..29; "TERMINAL NO. TYPE - INTEGER
TERM_NOTY_B= BINB; "TERMINAL NO. TYPE - BYTE
SHORT = ARRAY [0..0] OF BYTE;
TEXT = ARRAY [0..0] OF CHAR;
TYPE
N_M_ID = TEXT; "NODE/MEDE ID IN ASCII
TRUNK_SERIAL_NOTYPE = SHORT;
"SERIAL NO ASSOCIATED WITH TO_NODE_ID
TRUNK_NOTY = BINB; "NODE LOCAL TRUNK NO. 0-7
ANO_NOTY = ANO_NOTY_I; "ANO NO. 000-999
AIG_NOTY = AIG_NOTY_I; "AIG NO. 00-99
TERM_NOTY = TERM_NOTY_I; "TERMINAL NO. 0-29
USER_TYTY = TEXT; "USER TYPE - TYPE
USER_CLASTY= BINB; "USER CLASSIFICATION
TRUNK_Q_LTY= BINW; "NO. OF MESSAGES IN QUEUE
TRUNK_LOADTY=CBCL; "NO. OF CHARACTERS TRANSMITTED FROM QUEUE
PRINT_Q_LTY= BINB; "NO. OF MESSAGES IN QUEUE
DTGTY = BINL; "NO. OF SECONDS SINCE 1980
"FIKS MESSAGE PARAMETER DEFINITIONS:
"MAIN TYPE DEF. :
CONST
NM_MEDE = 0; "NARRATIVE MESSAGE TO MDS/CIP/SIP
CM_MEDE = 1; "CONTROL MESSAGE TO MDS/CIP/SIP
NM_NSS = 2; "NARRATIVE MESSAGE TO NSS
CM_NSS = 3; "CONTROL MESSAGE TO NSS
TYPE
MAIN_TYTY_I= NM_MEDE..CM_NSS;
MAIN_TYTY_B= BINB;
MAIN_TYTY = MAIN_TYTY_I;
"PRECEDENCE DEF. :
CONST
PRC_S = 0; "SUPER FLASH
PRC_Z = 1; "FLASH
PRC_Y = 2; "RUSH
PRC_O = 3; "IMMEDIATE
PRC_P = 4; "PRIORITY
PRC_M = 5; "QUICK
PRC_R = 6; "ROUTINE
PRECC = 6; "PRECEDENCE COUNT (EXCL: PRC_S)
TYPE
PRC_TY_I = PRC_S..PRC_R; "PREC. TYPE INTEGER
PRC_TY_B = BINB; "PREC. TYPE BYTE
PRECTY = PRC_TY_I;
IPRECTY = PRC_TY_I;
"SPECIAL CATEGORY DEF. :
CONST
SPC_ATOM = 1; "ATOMAL
SPC_CRYS = 2; "CRYPTO SECURITY
SPC_EXCL = 3; "EXCLUSIVE
TYPE
SPC_TY_I = SPC_ATOM..SPC_EXCL;
"SPEC TYPE INTEGER
SPC_TY_B = BINB; "SPEC TYPE BYTE
SPECTY = SPC_TY_I;
"CLASSIFICATION DEF. :
CONST
CLA_UKL = 0; "UKLASSIFICERET
CLA_UNCL = 1; "UNCLASSIFIED
CLA_NU = 2; "NATO UNCLASSIFIED
CLA_TTJ = 3; "TIL TJENESTEBRUG
CLA_REST = 4; "RESTRICTED
CLA_NR = 5; "NATO RESTRICTED
CLA_FTR = 6; "FORTROLIGT
CLA_CONF = 7; "CONFIDENTIAL
CLA_NC = 8; "NATO CONFIDENTIAL
CLA_HEM = 9; "HEMMELIGT
CLA_SECR = 10; "SECRET
CLA_NS = 11; "NATO SECRET
CLA_YHM = 12; "YDERST HEMMELIGT
CLA_TSEC = 13; "TOP SECRET
CLA_CTS = 14; "COSMIC TOP SECRET
CLASSC = 15; "NO OF CLASSES
TYPE
CLA_TY_I = CLA_UKL..CLA_CTS;
"CLASS TY INTEGER
CLA_TY_B = BINB; "CLASS TY BYTE
CLASSTY = CLA_TY_I;
"
" MESSAGE IDENTIFICATION DEF.
"
TYPE
MSG_ID_TY= TEXT;
MSG_NOTY = 0..999;
MSG_VERTY = 0..31;
"
"
"
" NARRATIVE MESSAGE CATEGORY DEF.
"
CONST
CANMIM= 0; " NAR.MSG. ISH-MSS
CANMFI= 1; " - INTERCEPT
CANMMT= 2; " - MSS-NTS
CANMMI= 3; " - NSS-ISH
CAMAIM= 4; "ACK ISH-MSS
CAMNIM= 5; "NACK ISH-MSS
CAMATM= 6; "ACK NTS-MSS
CAMNTM= 7; "NACK NTS-MSS
CACMNS= 8; "COMMAND NSC
CARSNS= 9; "RESPONSE NSC
CASTNS= 10; "STATUS NSC
CACMMS= 11; "COMMAND MSS
CARSMS= 12; "RESPONSE MSS
CASTMS= 13; "STATUS MSS
CACMTS= 14; "COMMAND NTS
CARSTS= 15; "RESPONSE NTS
CASTTS= 16; "STATUS NTS
CAIMQ1= 17; "CQ1 MSG. INTERCEPT
CAIMQ2= 18; "CQ2 MSG. INTERCEPT
CAIMQ3= 19; "CQ3 MSG. INTERCEPT
CAIMQ4= 20; "CQ4 MSG. INTERCEPT
CAIMNM= 21; "NM MSG. INTERCEPT
TYPE
CAT_TY = CANMIM..CAIMNM;
"MESSAGE COMMAND CODE
CONST
CA = 0;
CCPMIN= (CA+1); " PSEUDO MSG. ISH-NSC
CCPMNM= (CA+2); " - NSC-MSS
CCPMNT= (CA+3); " - NSC-NTS
CCPMAK= (CA+4); " PSEUDO ACK ON NARRATIVE MSG
CB= CCPMAK;
CCINQI= (CB+1); " INTERCEPT QUEUE TO IQ
CCINED= (CB+2); " - EDIT STARTED
CCINQO= (CB+3); " - DELETE
CCINRQ= (CB+4); " - REQUEUE
CCPCMD= (CB+5); " PSEUDO MESSAGE COMMAND/RESPONSE
TYPE
MCC_TY = CCPMIN..CCPCMD;
"
"
"
" NARRATIVE MESSAGE CHANNEL NO DEF.
CONST
CHAN_F= 0; " FIRST
CHSAC = 0; " MESSAGE FOR CONVERSION SMF/ACP
CHASC = 1; " MESSAGE FOR CONVERSION ACP/SMF
CHFTN = 2; " MESSAGE TO NICS-TARE
CHSAO = 3; " CONVERTED MESSAGE SMF/ACP
CHASO = 4; " CONVERTED MESSAGE ACP/SMF
CHNTF = 5; " MESSAGE FROM NICS-TARE
CHIFM = 6; " RETURNED INTERCEPTED MESSAGE
CHAN_L= 6; " LAST
"
TYPE
CHAN_NOTY= CHAN_F..CHAN_L;
"
"FIKS CONTROL MESSAGE PARAMETERS DEF. :
"CONTROL MESSAGES RELEASED BY SCC :
CONST
OLDTYP = 1; "OLD TYPE
OLDCAT = 1; "OLD CATEGORY
TABLE_UPDATE=2;
AIGTYP = TABLE_UPDATE; "AIG UPDATE TYPE
AIGCOR = 1; "CATEGORY FOR CORRECT
AIGINS = 2; "CATEGORY FOR INSERT
AIGDEL = 3; "CATEGORY FOR DELETE
ANOTYP = TABLE_UPDATE; "ANO UPDATE TYPE
ANOCOR = 4; "CATEGORY FOR CORRECT
ANOINS = 5; "CATEGORY FOR INSERT
ANODEL = 6; "CATEGORY FOR DELETE
USPTYP = TABLE_UPDATE; "USP UPDATE TYPE
USPCOR = 7; "CATEGORY FOR CORRECT
USPINS = 8; "CATEGORY FOR INSERT
USPDEL = 9; "CATEGORY FOR DELETE
SCCMCTYPE = TABLE_UPDATE;
SCCMODE_CHANGE=10;
STATSTYP = 3; "STATISTICS TYPE
STATSCAT = 1; "STATISTICS CATEGORY
NODEALARM = 4; "
TRUNKFAILTYP=NODEALARM; "TRUNK FAILURE TYPE
TRUNKFAILON= 1; "CATEGORY FOR FAIL ON
TRUNKFAILOFF=2; "CATEGORY FOR FAIL OFF
NODEFAILTYP= NODEALARM; "NODE FAILURE TYPE
NODEFAILON = 3; "NODE FAILURE CATEGORY
NPDNTYP = 5; "NPDN TYPE
NPDNOPENOK = 1; "CAT FOR SUCCESSFUL
"CALL UP
NPDNOPENERR= 2; "CAT FOR CALL UP ERROR
NPDNCLOSEOK= 3; "CAT FOR CLOSE DOWN OK
NPDNCLOSEERR=4; "CAT FOR C/D ERROR
TYPE
CM_SFS_TY = OLDTYP..NPDNTYP;
CM_SFS_CA = 1..10;
"CONTROL MESSAGES RECEIVED BY SCC
CONST
CMST = 0; "STATISTICS
CAST = 0;
CMSC = 0; "STAT. + COUNTER RESET
CASC = 1;
CMHR = 1; "HOURLY REPORT
CAHR = 0;
CMRC = 1; "REPORT WITH COUNTER RESET
CARC = 1;
CMLN = 2; "LOCAL NETWORK REQUEST
CALN = 0;
CMNR = 2; "REQUEST + COUNTER RESET
CANR = 1;
CMNC = 2; "STATUS SENT AFTER NODE EVENT
CANC = 2;
CMCS = 2; "STATUS SENT AFTER NODE EVENT + COUNTER RESET
CACS = 3;
CMNS = 3; "N/M SWITCHOVER
CANS = 0;
CMNO = 3; "N/M IN OPERATION
CANO = 1;
CMOO = 3; "N/M OUT OF OPERATION
CAOO = 2;
CMAV = 4; "N/M STAND-BY AVAILABLE
CAAV = 0;
CMNA = 4; "N/M STAND-BY UNAVAILABLE
CANA = 1;
CMOD = 5; "ON-LINE DIAGNOSTIC RESULT
CAOD = 0;
CMDO = 6; "DISC ON
CADO = 0;
CMDF = 6; "DISC OFF
CADF = 1;
CMSA = 7; "SECURITY PROFILE ADDED
CASA = 0;
CMSI = 7; "SECURITY PROFILE INSERTED
CASI = 1;
CMSD = 7; "SECURITY PROFILE DELETED
CASD = 2;
CMMS = 8; "MEDE STATISTICS
CAMS = 0;
CMMR = 8; "STATISTICS WITH COUNTER RESET
CAMR = 1;
CMMH = 9; "MEDE HOURLY REPORT
CAMD = 0;
CMKA = 10; "KEEP ALIVE MESSAGE
CAKA = 0;
CMAN = 11; "ACP127 AND N/T STATISTICS
CAAN = 0;
CMCR = 11; "STATISTICS WITH COUNTER RESET
TYPE
CM_SCC_TY = CMST..CMCR;
CM_SCC_CA = 0..3;
"CONTROL MESSAGES SENT TO NSS
CONST
TCRT = 0; "ROUTING TABLE
CCRT = 0;
TCOT = 1; "OPEN TRUNK
CCOT = 0;
TCCT = 1; "CLOSE TRUNK
CCCT = 1;
TCPR = 2; "SELECT PRIM ROUTE
CCPR = 0;
TCTR = 3; "SET RETRANS THRESH
CCTR = 0;
TCTT = 4; "SET TRK-Q THRESHOLD
CCTT = 0;
TCSR = 5; "STATUS REQUEST
CCSR = 0;
TCCU = 6; "NPDN CALL-UP
CCCU = 0;
TCCD = 6; "NPDN CLOSE-DOWN
CCCD = 1;
TCRU = 7; "ROUTING TABLE UPDATE
CCRU = 0;
TCNC = 8; "CONFIGURATION, NORMAL
CCNC = 0;
TCA1 = 8; "CONFIGURATION, ALT.1
CCA1 = 1;
TCA2 = 8; "CONFIGURATION, ALT.2
CCA2 = 2;
TCACK = 9; "ACK
CCACL = 0;
TCNACK = 9; "NACK
CCNACK = 1;
TCODU = 10; "OPEN DATA USER
CCODU = 0;
TCCDU = 10; "CLOSE DATA USER
CCCDU = 1;
TYPE
CM_NSS_TY = TCRT..TCCDU; "CONTROL MSG. TYPE
CM_NSS_CA = 0..2; "CONTROL MSG. CATEGORY
CM_TYTY = CM_SCC_TY;
CM_CATY = CM_SFS_CA;
"ORBIT COUNTER DEF. :
CONST
ORBMAX = 6;
TYPE
ORBTY = 1..ORBMAX;