|
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: 2946 (0xb82)
Types: TextFile
Names: »NSSMTCB.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!NSSMTCB.N«
"
"*****************************************************************
"*****************************************************************
"* *
"* NAME: NSSMTCB.N *
"* NUMBER: CFIX/66/007 *
"* FIKS SCC DATA BASE *
"* COPYRIGHT: CHRISTIAN ROVSIN CORP *
"* TC/801211 RELEASE: 01 VERSION: 01 *
"* *
"*****************************************************************
"* *
"* FUNCTION: *
"* THIS CONTAINS DECLARATION OF REAL MTCB *
"* FOR NARRATIVE MESSAGES AND CONTROL MESSAGES *
"* EXCHANGED BETWEEN NSS AND ISH. *
"* *
"*****************************************************************
"DEF. OF REAL MTCB FOR NARRATIVE MESSAGES AND CONTROL MESSAGES.
"
"REAL_MTCB HEADER:
TYPE
REAL_H =
RECORD
TAG : INTEGER;
APREC : INTEGER;
IPREC : INTEGER;
CLASS : INTEGER;
SPEC : INTEGER;
TYP : INTEGER;
LENGTH : INTEGER;
HDB0 : INTEGER;
HDB1 : INTEGER;
END;
CONST
REAL_HF_TY = (SR_WX + 9);
"REAL MTCB FOR NARRATIVE MESSAGE:
TYPE
REAL_2X =
RECORD
HEAD : REAL_H;
ORBITC : ORBTY;
ROUTM0 : BIMW;
ROUTM1 : BIMW;
CATEGORY : CAT_TY;
CHANNELNO : CHAN_NOTY;
END;
REAL_1X = REAL_2X;
REAL_2F =
RECORD
HEAD_WX : SUB_REC_CN;
REC_10_6_W : SUB_REC;
REC_BL : SUB_REC;
END;
REAL_1F = REAL_2F;
"REAL_2F INIT VALUES
CONST
LOC_HEAD_WX = (REAL_HF_TY + OF_0);
LOC_10_6_W = (SR_10_6_W + OF_9);
LOC_BL = (SR_BL + OF_11);
"REAL MTCB FOR CONTROL MESSAGES:
TYPE
REAL_1CX =
RECORD
HEAD : REAL_H;
SP1, SP2 : BINL;
END;
REAL_1CF =
RECORD
HEAD_WX : SUB_REC_CN;
REC_WL1,REC_W2 : SUB_REC;
END;
"REAL_1CF INIT VALUE
CONST
LOC_HEAD_WX_C = (REAL_HF_TY + OF_0);
LOC_REC_WL1_C = (SR_WL + OF_9);
LOC_REC_WL2_C = (SR_WL + OF_11);
"
"
TYPE
REAL_2CX =
RECORD
HEAD : REAL_H;
ORBITC : ORBTY;
ROUTM0 : BIMW;
ROUTM1 : BIMW;
REL_DTG : DTGTY;
END;
REAL_2CF =
RECORD
HEAD_WX : SUB_REC_CN;
REC_10_6_W : SUB_REC;
REC_WL : SUB_REC;
END;
"REAL_2CF INIT VALUES:
CONST
LOC_HEAD_WX_C2 = (REAL_HF_TY + OF_9);
LOC_10_6_W_C2 = (SR_10_6_W + OF_9);
LOC_WL_C2 = (SR_WL + OF_11);