|
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 - metrics - download
Length: 10102 (0x2776)
Types: TextFile
Names: »SCCDATA.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!SCCDATA.N«
"*****************************************************************
"*****************************************************************
"* NAMES: SCCDATA.N *
"* NUMBER: CFIX/66/002 *
"* FIKS SCC DATA BASE *
"* COPYRIGHT: CHRISTIAN ROVSIN CORP *
"* TC/801211 RELEASE: 01 VERSION: 01 *
"* *
"*****************************************************************
"* *
"* FUNCTION: *
"* THIS FILE CONTAINS THE DECLARATION OF *
"* SCC GENERAL DATA FORMAT . *
"* *
"*****************************************************************
"
"GENERAL DATA FORMAT DEF:
"
"
"BIT MASKS IN FIKS
CONST
"DEF. OF MASK_TYPE: FIRST_LAST BIT IN A WORD
BM0_15 = 0; "0-15 FULL WORD
BM0_7 = 1; "0-7 LOWER BYTE
BM8_15 = 2; "8-15 UPPER BYTE
BM0_9 = 3; "0-9
BM10_15 = 4; "10-15
BM0_5 = 5; "0-5
BM6_15 = 6; "6-15
BM8_9 = 7; "8-9
TYPE
MASK_TYPE = BM0_15..BM8_9;
CONST
"BIT MASK SUB-RECORD OFFSETS
OF_0 = #0000; "WORD OFFSET IN PACKED RECORD
OF_1 = #0100; "WORD OFFSET IN PACKED RECORD
OF_2 = #0200; "WORD OFFSET IN PACKED RECORD
OF_3 = #0300; "WORD OFFSET IN PACKED RECORD
OF_4 = #0400; "WORD OFFSET IN PACKED RECORD
OF_5 = #0500; "WORD OFFSET IN PACKED RECORD
OF_6 = #0600; "WORD OFFSET IN PACKED RECORD
OF_7 = #0700; "WORD OFFSET IN PACKED RECORD
OF_8 = #0800; "WORD OFFSET IN PACKED RECORD
OF_9 = #0900; "WORD OFFSET IN PACKED RECORD
OF_10 = #0A00; "WORD OFFSET IN PACKED RECORD
OF_11 = #0B00; "WORD OFFSET IN PACKED RECORD
OF_12 = #0C00; "WORD OFFSET IN PACKED RECORD
OF_13 = #0D00; "WORD OFFSET IN PACKED RECORD
OF_14 = #0E00; "WORD OFFSET IN PACKED RECORD
OF_15 = #0F00; "WORD OFFSET IN PACKED RECORD
TYPE
OF_TY = 0..15;
"
"BIT MASK CONSTANT
"
CONST
BM0_15_M = #FFFF; "MASKOUT
BM0_15_S = 0; "BIT START OFFSET
BM0_7_M = #00FF; "MASKOUT
BM0_7_S = 0; "BIT START OFFSET
BM8_15_M = #FF00; "MASKOUT
BM8_15_S = 8; "BIT START OFFSET
BM0_9_M = #03FF; "MASKOUT
BM0_9_S = 0; "BIT START OFFSET
BM10_15_M = #FC00; "MASKOUT
BM10_15_S = 10; "BIT START OFFSET
BM0_5_M = #003F; "MASKOUT
BM0_5_S = 0; "BIT START OFFSET
BM6_15_M = #FFC0; "MASKOUT
BM6_15_S = 6; "BIT START OFFSET
BM8_9_M = #0300; "MASKOUT
BM8_9_S = 8; "BIT START OFFSET
"
"GENERAL SUB_RECORD TYPES IN FIKS
"
CONST
SR_WL = 0; "WORDS IN LONG RECORD
SR_BL = 1; "BYTES IN LONG RECORD
SR_BW = 2; "BYTES IN WORD
SR_WW = 3; "WORD IN WORD
SR_2B_W = 4; "2 BYTES + 1 W IN RECORD
SR_6_10_2B = 5; "6,10 BITM + 2 BYTE RECORD
SR_10_6_W = 6; "10,6 BITM + 1 WORD RECORD
SR_2_8 = 7; "2,8 BITM IN ONE WORD
SR_WX = #80; "WORDS IN X WORD RECORD
SR_BX = #40; "BYTES IN X WORD RECORD
TYPE
SUB_REC = SR_WL..SR_2_8;
SUB_REC_CN = BINW;
SR_WBX_TY = 1..32;
"SUB_RECORDS: PACKED (REC)
" UNPACKED (REX) (EXPANDED)
REC_WL =
RECORD
L0: BIML; "PACKED RECORD
END;
REX_WL =
RECORD
W0: BINW; "WORD 0
W1: BINW; "WORD 1
END;
"REC_WL VAR. LOCATION
CONST
W0_L = (BM0_15 + OF_0);
W1_L = (BM0_15 + OF_1);
TYPE
REC_BL = REC_WL;
REX_BL =
RECORD
B0: BINW; "BYTE 0;
B1: BINW; "BYTE 1;
B2: BINW; "BYTE 2;
B3: BINW; "BYTE 3;
END;
"REC_BL VAR. LOCATIONS
CONST
B0_L = (BM0_7 + OF_0);
B1_L = (BM8_15 + OF_0);
B2_L = (BM0_7 + OF_1);
B3_L = (BM8_15 + OF_1);
"
"
TYPE
REC_BW =
RECORD
W0: BIMW; "PACKED RECORD
END;
REX_BW =
RECORD
B0: BINW; "BYTE 0
B1: BINW; "BYTE 1
END;
"REC_BW VAR LOCATIONS
"AS B0_L, B1_L IN REC_BL
TYPE
REC_WW = REC_BW;
REX_WW =
RECORD
W0: BINW; "WORD 0
END;
"
"LOCATION W0_L AS IN REC_WL
"
TYPE
REC_2B_W = REC_WL;
REX_2B_W =
RECORD
B0: BINW;
B1: BINW;
W1: BINW;
END;
"
"REC_2B_2 VAR LOCATIONS
"B0_L AS IN REC_BL
"B1_L AS IN REC_BL
"W1_L AS IN REC_WL
TYPE
REC_6_10_2B = REC_WL;
"
REX_6_10_2B =
RECORD
M10: BINW;
M6: BINW;
B2: BINW;
B3: BINW;
END;
"REC_6_10_2B VAR LOCATION
CONST
M10_L = (BM0_9 + OF_0);
M6_L = (BM10_15 + OF_0);
"B2_L AS IN EC_BL
"B3_L AS IN REC_BL
"
"
TYPE
REC_1_6_W = REC_WL;
REX_10_6_W =
RECORD
M6: BINW; "ORBIT COUNT
M10: BINW; "ROOT MASK A-J
W1: BINW; "ROOT MASK K-Z
END;
"REC_10_6W VAR LOCATIONS
CONST
M6L = (BM0_5 + OF_0);
M10L = (BM6_15 + OF_0);
" W1 AS IN REC_WL
"
"
TYPE
REC_2_8 = REC_BW;
REX_2_8 =
RECORD
M8: BINW;
M2: BINW;
END;
"REC_2_8 VAR LOCATION
CONST
M8_6 = (BM0_7 + OF_0);
M2_L = (BM8_9 + OF_0);
"
" GENERAL FIKS SUB-RECORDS
"
TYPE
"RELEASED MESSAGE STATUS RECORD DEFINITION
MSG_RELTY =
RECORD
NO_MSG : BINW; "MSG. COUNT
NO_ANO : BINW; "ACTION, INFO. ANO COUNT
NO_CHAR : BINL; "CHAR COUNT
END;
"RECEIVED MESSAGE STATUS RECORD DEFINITION
MSG_RECTY =
RECORD
NO_MSG : BINW; "MSG. COUNT
NO_CHAR : BINL; "CHAR. COUNT
END;
"GENERAL FIKS ARRAY TYPES
"INDEX ARRAY TYPES:
"ARRAY TYPES FOR 'Y' INDEXING
"VAR(Y) = PRECEDENCE / TRUNK
CONST
Y_R1 = 0; "ARRAY Y(1W)
PR_R1 = Y_R1;
TR_R1 = PR_R1;
Y_R2 = 1; "ARRAY Y(2W)
PR_R2 = Y_R2;
TR_R2 = PR_R2;
Y_R3 = 2; "ARRAY Y(3W)
PR_R3 = Y_R3;
TR_R3 = PR_R3;
Y_R4 = 3; "ARRAY Y(4W)
PR_R4 = Y_R4;
TR_R4 = PR_R4;
"ARRAY TYPES FOR 'X' INDEXING
"FOR VAR(Y) = PRECEDENCE:
"VAR(X) = USER/TRUNK/CLASS
X_PR_R1 = 4; "ARRAY X(PRECC*1W)
US_PR_R1 = X_PR_R1;
TR_PR_R1 = US_PR_R1;
X_PR_R2 = 5; "ARRAY X(PRECC*2W)
US_PR_R2 = X_PR_R2;
TR_PR_R2 = US_PR_R2;
X_PR_R3 = 6; "ARRAY X(PRECC*3W)
US_PR_R3 = X_PR_R3;
TR_PR_R3 = US_PR_R3;
X_PR_R4 = 7; "ARRAY X(PRECC*4W)
US_PR_R4 = X_PR_R4;
TR_PR_R4 = US_PR_R4;
"INDEX ARRAY CONSTANTS
CONST
Y_R1_F = 0; "FIRST ELEMENT
Y_R1_D = 1; "DELTA VALUE
Y_R2_F = 0; "FIRST ELEMENT
Y_R2_D = 2; "DELTA VALUE
Y_R3_F = 0; "FIRST ELEMENT
Y_R3_D = 3; "DELTA VALUE
Y_R4_F = 0; "FIRST ELEMENT
Y_R4_D = 4; "DELTA VALUE
"
"
X_PR_R1_F= 0; "FIRST ELEMENT
X_PR_R1_D= (PRECC*Y_R1_D); "DELTA VALUE
X_PR_R2_F= 0; "FIRST ELEMENT
X_PR_R2_D= (PRECC*Y_R2_D); "DELTA VALUE
X_PR_R3_F= 0; "FITRST ELEMENT
X_PR_R3_D= (PRECC*Y_R3_D); "DELTA VALUE
X_PR_R4_F= 0; "FIRST ELEMENT
X_PR_R4_D= (PRECC*Y_R4_D); "DELTA VALUE
"INDEX ARRAY:
"ELEMENT IN INDEX ARRAY TYPE Y OR LOOKUP AND ADDITION OF ELEMENTS
"FROM INDEX ARRAY TYPE X,Y GIVES THE INDEX FOR LOOKUP OF
"1/2/3/4 WORD RECORDS IN MAIN ARRAY.
TYPE
AR_Y_R1 = ARRAY[0..TRUNKC-1] OF INTEGER;
AR_Y_R2 = ARRAY[0..TRUNKC-1] OF INTEGER;
AR_Y_R3 = ARRAY[0..TRUNKC-1] OF INTEGER;
AR_Y_R4 = ARRAY[0..TRUNKC-1] OF INTEGER;
AR_X_PR_R1 = ARRAY [0..MAXUC-1] OF INTEGER;
AR_X_PR_R2 = ARRAY [0..MAXUC-1] OF INTEGER;
AR_X_PR_R3 = ARRAY [0..CLASSC-1] OF INTEGER;
AR_X_PR_R4 = ARRAY [0..CLASSC-1] OF INTEGER;
TYPE
"DANISH PLAIN TEXT ADDRESS
DAN_PLTX = ARRAY[0..DAN_PLTX_SI-1] OF TEXT;
"ENGLISH PLAIN TEXT ADDRESS
ENG_PLTX = ARRAY[0..ENG_PLTX_SI-1] OF TEXT;
"TERMINAL ID
TERM_IDTY = ARRAY[0..3] OF TEXT;
"USER ID
USER_IDTY = TEXT;
"PASSWORD DEF.:
PASS_WTY = ARRAY[0..7] OF TEXT;
"MSG_RELEASE PER PRECEDENCE
"GENERAL FIKS RECORD TYPES
"USER SECURITY PROFILE DEF.
SECURITY_PROFILE=
RECORD
TYP : USER_TYTY;
CLASS : USER_CLASTY;
PASSWORD : PASS_WTY;
SHPASSWORD: PASS_WTY;
END;
"PLAN TEXT ADDRESS RECORD
PLAIN_TEXT =
RECORD
DAN_TEXT : DAN_PLTX;
ENG_TEXT : ENG_PLTX;
END;
"STATISTICS RECORD
STATIST_REC=
RECORD
MSG_RLD_STA:ARRAY[0..CLASSC*PRECC*4-1] OF BINW;
MSG_REC_STA:ARRAY[0..CLASSC*PRECC*3-1] OF BINW;
END;
"ANO ENTRY DEF:
ANO_ENTRY = REC_BW; "PACKED ANO_ENTRY
ANO_ENTRY_X = "EXPANDED RECORD
RECORD
AREA_ID : N_M_ID; "NODE/MEDE ID
ANO_NO : ANO_NOTY; "NO 0-999
END;
"ANO_ENTRY SUB_RECIRD TYPE
CONST
ANO_ENTRY_SRTY = SR_BW;
"TRUNK_ID DEF: (NETWORK GLOBAL TRUNK_ID)
TYPE
TRUNK_TYPE = REC_BW; "PACKED TRUNK_TYPE
TRUNK_TYPE_X = "PACKED RECORD
RECORD
TRUNK_NODE_ID: N_M_ID; "NEIGHBOR NODE
TRUNK_SE_NO: TRUNK_SERIAL_NOTYPE;
END;
"TRUNK-TYPE SUB_RECORD TYPE
CONST
TRUNK_TYPE_SRTY = SR_BW; R