|
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: 4346 (0x10fa)
Types: TextFile
Names: »RECM.N«
└─⟦ffe699cee⟧ Bits:30005101 8" CR80 Floppy CR80FD_0060 ( VOL: SCC.V NSC Directories: EVR.D OCP.D SCCINIT.D )
└─⟦9c1658a4c⟧
└─ ⟦this⟧ »EVR.D!RECM.N«
CONST
EVPR = 0; "EVENT PRECEDENCE -- REPORT
EVPN = 1; "EVENT PRECEDENCE -- NOTICE
EVPT = 2; "EVENT PRECEDENCE -- ALERT
EVPA = 3; "EVENT PRECEDENCE -- ALARM
OUTB = 3;
OUT = (1 SHIFTLL OUTB); "BIT MASK -- OUT
HORNB = 4;
HORN = (1 SHIFTLL HORNB);"BIT MASK -- HORN
VDUB = 5;
VDU = (1 SHIFTLL VDUB); "BIT MASK -- VDU
LOGB = 6;
LOGM = (1 SHIFTLL LOGB); "BIT MASK -- LOG
SHB = 7;
SH = (1 SHIFTLL SHB); "BIT MASK -- SH
REMB = 8;
REM = (1 SHIFTLL REMB); "BIT MASK -- REMB
N_NODEB = 9;
N_NODE = (1 SHIFTLL N_NODEB);"BIT MASK -- N_NODE
NTLB = 10;
NTL = (1 SHIFTLL NTLB); "BIT MASK -- NTL
SCCB = 11;
SCC = (1 SHIFTLL SCCB); "BIT MASK -- SCC
N_MB = 12;
N_M = (1 SHIFTLL N_MB); "BIT MASK -- N_M
TRUNKB = 13;
TRUNK = (1 SHIFTLL TRUNKB);"BIT MASK -- TRUNK
ALLB = 14;
ALL = (1 SHIFTLL ALLB); "BIT MASK -- ALL
UPDATEB = 15;
UPDATEM = (1 SHIFTLL UPDATEB);"BIT MASK -- UPDATE
"REGISTRATION COMMAND
"MSG. CMD. CODE SUB_CATEGORY
"-----------------------------------------------------------------
CONST
"MSG. TYPE -- TYME
ST_24 = (LOGM + EVPR); "MST
SM_CL = (LOGM + VDU + EVPT); "MSM
SM_CA = SM_CL;
SM_GO = (LOGM + VDU + HORN + EVPA);
"MSS
SS_SC = (UPDATEM + SCC + SH + LOGM + VDU + HORN + EVPT);
SS_SR = (UPDATEM + SCC + REM + LOGM + VDU + EVPT);
SS_NC = (UPDATEM + NTL + SH + LOGM + EVPN);
SS_NR = (UPDATEM + NTL + REM + LOGM + EVPN);
MO_NS = ST_24; "MMO
MO_NR = ST_24;
MO_MS = ST_24;
MO_MR = ST_24;
MO_MD = ST_24;
MO_SS = ST_24;
DB_US = (LOG + EVPN); "MDB
DB_AI = ST_24;
DB_AN = ST_24;
DB_SS = ST_24;
ME_SW = (UPDATEM + N_M + LOGM + VDU + EVPT);
"MME
ME_SI = ME_SW;
ME_SO = ME_SW;
ME_AV = ME_SW;
ME_NA = (UPDATEM + N_M + LOGM + VDU + HORN + EVPA);
ME_DN = DB_US;
ME_DF = DB_US;
"MTE
TE_NE = (UPDATEM + ALL + TRUNK + N_M + LOGM + VDU + EVPT);
TE_DI = (UPDATEM + TRUNK + SH + LOGM + VDU + EVPT);
TE_CT = (UPDATEM + TRUNK + SH + LOGM + EVPN);
TE_OP = (UPDATEM + TRUNK + SH + LOGM + VDU + EVPN);
"MNE
NE_NN = (UPDATEM + N_NODE + LOGM + VDU + HORN + EVPA);
NE_DU = (LOGM + VDU + HORN + EVPA);
NE_OE = DB_US;
NE_CF = SM_CL;
"MSG. TYPE -- TYCE
SU_DP = (LOG + OUT + EVPR); "CSU
SU_SR = SU_DP;
SU_ST = SU_DP;
SU_CT = (UPDATEM + TRUNK + LOGM + OUT + EVPR);
SU_OT = SU_CT;
SU_CL = (UPDATEM + N_NODE + LOGM + OUT + EVPR);
SU_OL = SU_CL;
SU_CD = SU_DP;
SU_OD = SU_DP;
SU_AS = (UPDATEM + NTL + LOGM + OUT + EVPR);
SU_SA = SU_AS;
SU_SO = SU_AS;
SU_CA = SU_AS;
SU_RJ = SU_AS;
SU_RD = SU_DP;
DR_DU = ST_24; "CDR
DR_DR = ST_24;
AA_DO = ST_24; "CAA
AA_IG = ST_24;
AA_UO = SU_DP;
AA_UI = SU_DP;
SE_DS = ST_24; "CSE
SE_US = SU_DP;
LC_CT = ST_24; "CLC
LC_DQ = ST_24;
VC_OS = (LOGM + VDU + EVPR); "CVC
VC_OA = VC_OS;
VC_OF = VC_OS;
"MSG. TYPE -- TYIM
IN_QI = SM_CL; "CIN
IN_ED = ST_24;
IN_QD = SM_CL;
IN_RQ = ST_24;
"MSG. TYPE -- TYST
ST_FD = ST_24; "CST
ST_MS = ST_24;
ST_ST = ST_24;
"MSG. TYPE -- TYRC
TG_SA = SU_DP; "RTG
"MSG. TYPE -- TYTE
SR_NS = (OUT + EVPR); "TSR
SR_MS = SR_NS;
RM_NS = ME_SW; "TRM
RM_NB = (UPDATEM + N_M + LOGM + EVPN);
RM_MS = ME_SW;
RM_MB = RM_NB;