DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦016107a23⟧ TextFile

    Length: 3188 (0xc74)
    Types: TextFile
    Names: »RCT.N«

Derivation

└─⟦ffe699cee⟧ Bits:30005101 8" CR80 Floppy CR80FD_0060 ( VOL: SCC.V NSC Directories: EVR.D OCP.D SCCINIT.D )
    └─⟦9c1658a4c⟧ 
        └─ ⟦this⟧ »EVR.D!RCT.N«

TextFile

%NOLIST
%SOURCE EPM.N
%SOURCE RECM.N
%LIST
CONST
NO_MSG_TY     = 6;
NO_SUB_CAT    = 20;
NO_CM_CODE    = 75;

TYPE
MSG_TY        = ARRAY[0..NO_MSG_TY-1] OF INTEGER;
SUB_CAT       = ARRAY[0..NO_SUB_CAT-1] OF INTEGER;
CM_CODE_TABLE = ARRAY[0..NO_CM_CODE] OF INTEGER;

VAR
MSG_TY_TABLE  : MSG_TY;
SUB_CAT_TABLE : SUB_CAT;
CM_CODE       : CM_CODE_TABLE;

INIT
CM_CODE[0]    = ST_24;
CM_CODE[1]    = SM_CL;
CM_CODE[2]    = SM_CA;
CM_CODE[3]    = SM_GO;
CM_CODE[4]    = SS_SC;
CM_CODE[5]    = SS_SR;
CM_CODE[6]    = SS_NC;
CM_CODE[7]    = SS_NR;
CM_CODE[8]    = MO_NS;
CM_CODE[9]    = MO_NR;
CM_CODE[10]   = MO_MS;
CM_CODE[11]   = MO_MR;
CM_CODE[12]   = MO_MD;
CM_CODE[13]   = MO_SS;
CM_CODE[14]   = DB_US;
CM_CODE[15]   = DB_AI;
CM_CODE[16]   = DB_AN;
CM_CODE[17]   = DB_SS;
CM_CODE[18]   = ME_SW;
CM_CODE[19]   = ME_SI;
CM_CODE[20]   = ME_SO;
CM_CODE[21]   = ME_AV;
CM_CODE[22]   = ME_NA;
CM_CODE[23]   = ME_DN;
CM_CODE[24]   = ME_DF;
CM_CODE[25]   = TE_NE;
CM_CODE[26]   = TE_DI;
CM_CODE[27]   = TE_CT;
CM_CODE[28]   = TE_OP;
CM_CODE[29]   = NE_NN;
CM_CODE[30]   = NE_DU;
CM_CODE[31]   = NE_OE;
CM_CODE[32]   = NE_CF;
CM_CODE[33]   = SU_DP;
CM_CODE[34]   = SU_SR;
CM_CODE[35]   = SU_ST;
CM_CODE[36]   = SU_CT;
CM_CODE[37]   = SU_OT;
CM_CODE[38]   = SU_CL;
CM_CODE[39]   = SU_OL;
CM_CODE[40]   = SU_CD;
CM_CODE[41]   = SU_OD;
CM_CODE[42]   = SU_AS;
CM_CODE[43]   = SU_SA;
CM_CODE[44]   = SU_SO;
CM_CODE[45]   = SU_CA;
CM_CODE[46]   = SU_RJ;
CM_CODE[47]   = SU_RD;
CM_CODE[48]   = DR_DU;
CM_CODE[49]   = DR_DR;
CM_CODE[50]   = AA_DO;
CM_CODE[51]   = AA_IG;
CM_CODE[52]   = AA_UO;
CM_CODE[53]   = AA_UI;
CM_CODE[54]   = SE_DS;
CM_CODE[55]   = SE_US;
CM_CODE[56]   = LC_CT;
CM_CODE[57]   = LC_DQ;
CM_CODE[58]   = VC_OS;
CM_CODE[59]   = VC_OA;
CM_CODE[60]   = VC_OF;
CM_CODE[61]   = IN_QI;
CM_CODE[62]   = IN_ED;
CM_CODE[63]   = IN_QD;
CM_CODE[64]   = IN_RQ;
CM_CODE[65]   = ST_FD;
CM_CODE[66]   = ST_MS;
CM_CODE[67]   = ST_ST;
CM_CODE[68]   = TG_SA;
CM_CODE[69]   = SR_NS;
CM_CODE[70]   = SR_MS;
CM_CODE[71]   = RM_NS;
CM_CODE[72]   = RM_NB;
CM_CODE[73]   = RM_MS;
CM_CODE[74]   = RM_MB;


PROCEDURE INIT_RECM (R6);
VAR
LINK          : INTEGER;
BEGIN
R6 => LINK;
ADDRESS(MSG_TY_TABLE) => R4;
0 => R0 => R4@INTEGER;
MNE => R0 + R1 + 1 => (R4+1)@INTEGER;
CVC => R1 + R0 + 1 => (R4+1)@INTEGER;
CIN => R0 + R1 + 1 => (R4+1)@INTEGER;
CST => R1 + R0 + 1 => (R4+1)@INTEGER;
RTG => R0 + R1 + 1 => (R4+1)@INTEGER;

ADDRESS(SUB_CAT_TABLE) => R5;
0 => R0 => R5@INTEGER;
ST24H => R0 + R1 + 1 => (R5+1)@INTEGER;
SMGO  => R1 + R0 + 1 => (R5+1)@INTEGER;
SSNR  => R0 + R1 + 1 => (R5+1)@INTEGER;
MOSS  => R1 + R0 + 1 => (R5+1)@INTEGER;
DBSS  => R0 + R1 + 1 => (R5+1)@INTEGER;
MEDF  => R1 + R0 + 1 => (R5+1)@INTEGER;
TEOP  => R0 + R1 + 1 => (R5+1)@INTEGER;
NECF  => R1 + R0 + 1 => (R5+1)@INTEGER;
SURD  => R0 + R1 + 1 => (R5+1)@INTEGER;
DRDR  => R1 + R0 + 1 => (R5+1)@INTEGER;
AAUI  => R0 + R1 + 1 => (R5+1)@INTEGER;
SEUS  => R1 + R0 + 1 => (R5+1)@INTEGER;
LCDQ  => R0 + R1 + 1 => (R5+1)@INTEGER;
VCOF  => R1 + R0 + 1 => (R5+1)@INTEGER;
CCINRQ=> R0 + R1 + 1 => (R5+1)@INTEGER;
STST  => R1 + R0 + 1 => (R5+1)@INTEGER;
TGSA  => R0 + R1 + 1 => (R5+1)@INTEGER;
SRMS  => R1 + R0 + 1 => (R5+1)@INTEGER;
EXIT(LINK);
END;