|
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: 3490 (0xda2)
Types: TextFile
Names: »SCCHEAD.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!SCCHEAD.N«
"*****************************************************************
"*****************************************************************
"* NAME: SCCHEAD.N *
"* NUMBER: CFIX/66/003 *
"* FIKS SCC DATA BASE *
"* TC/801211 RELEASE: 01 VERSION: 01 *
"* *
"*****************************************************************
"* *
"* FUNCTION: *
" THIS FILE CONTAINS ALL THE HEADER FOR *
"* THE FILES, NARRATIVE MESSAGES, AND *
"* CONTROL MESSAGES FOR THE SCC. *
"* *
"*****************************************************************
" ROUTING HEADER COMMON TO BINARY HEADER FOR
" -NARRATIVE MESSAGES
" -CONTROL MESSAGES
"NOTE: ONLY EXPANDED RECORDS ARE DECLARED
"
TYPE
R_HE=
RECORD
SERIAL_NO: BINW; "NODE_TO_NODE SERIAL NO
PREC: PRECTY; "PRECEDENCE
MAIN_TYPE: MAIN_TYTY; "MAIN TYPE
ORBITC : ORBTY; "ORBIT COUNTER
ROUTM0 : BIMW; "ROUT MASK A-J
ROUTM1 : BIMW; "ROUT MASK K_Z
MSG_LEN : BIMW; "LENGTH OF MESSAGE
END;
"CONSTANTS IN R_HE
CONST
ROUTM0_FN = 'A'; "NODE IN BIT ZERO
ROUTM1_FN = 'K';
"
" NARRATIVE MESSAGE BINARY HEADER DEF
"
TYPE
NM_HEAD=
RECORD
ROUT_HEAD: R_HE; " ROUTING HEADER
SPEC: SPECTY; " SPECIAL CATEGORY
CLASS: CLASSTY; " CLASSIFICATION
ADDRL_OFF: BINW; " ADDR.LIST OFFSET
IPREC: IPRECTY; " INFOPRECEDENSE
SPARE: SHORT; "
SIGH_LEN: BINW; " SIGNAL HEADER LENGTH
REL_TIME: DTGTY; " RELEASE TIME
MSG_ID_REF: BINW; " REF TO MSG ID
SIC_REF: BINW; " REF TO SIC
END;
"
"
"
" CONTROL MESSAGE BINARY HEADER
"
TYPE
CM_HEAD=
RECORD
ROUT_HEAD: R_HE; " ROUTING HEADER
TYP: CM_TYTY; " CTL MESSAGE TYPE
CAT: CM_CATY; " CTL MESSAGE CATEGORY
ORIGINATOR: N_M_ID; " ID OF ORIGINATOR
SPARE: SHORT; "
DTG: DTGTY; " CREATION TIME
END;
"
"FORMAT DESCRIPTION RECORDS FOR
"BINARY HEADERS.
"
TYPE
R_HE_F =
RECORD
REC_W_0: SUB_REC;
REC_2_8_0: SUB_REC;
REC_10_6_W_0:SUB_REC;
REC_W_1: SUB_REC;
END;
"SUB_RECORD LOCATIONS
CONST
LOC_W_0 = (SR_WW + OF_0);
LOC_2_8_0 = (SR_2_8 + OF_1);
LOC_10_6_W_0= (SR_10_6_W + OF_2);
LOC_W_1 = (SR_WW + OF_4);
TYPE
NM_HEAD_F =
RECORD
R_HE_R : R_HE_F;
REC_2B_W_0: SUB_REC;
REC_2B_W_1: SUB_REC;
REC_WL_0 : SUB_REC;
REC_WL_1 : SUB_REC;
END;
"SUBRECORD LOCATIONS
CONST
LOC_2B_W_0 = (SR_2B_W + OF_5);
LOC_2B_W_1 = (SR_2B_W + OF_2);
LOC_WL_0 = (SR_WL + OF_9);
LOC_WL_1 = (SR_WL + OF_11);
TYPE
CM_HEAD_F =
RECORD
R_HE_F_0 : SUB_REC;
REC_BL_0 : SUB_REC;
REC_WL_0 : SUB_REC;
END;
"SUB-RECOORD LOCATIONS
CONST
LOC_BL0 = (SR_BL + OF_5);
LOC_WL0 = (SR_WL + OF_7);
"
"
" Y