DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

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

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦867b96024⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »CENTRAL.K«

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »CENTRAL.K«

Mikados K File

PROGRAM CENTRALPROCES;
CONST   NROFUSERS=2;
        NROFFILES=5;
        KEYL=20;
        ZS1=612;
        ZS2=375;
        ZS3=410;
        ZS4=511;
        ZS5=350;
(*$IISFHEAD*)
ZONEPTR=^ISFHEAD;
PCB    =^INTEGER;
ZONE1  =RECORD
          H:ISFHEAD;
          T:ARRAY (1..ZS1) OF INTEGER
        END;
ZONE2= RECORD
          H:ISFHEAD;
          T:ARRAY (1..ZS2) OF INTEGER
        END;
ZONE3  =RECORD
          H:ISFHEAD;
          T:ARRAY (1..ZS3) OF INTEGER
        END;
ZONE4  =RECORD
          H:ISFHEAD;
          T:ARRAY (1..ZS4) OF INTEGER
        END;
ZONE5  =RECORD
          H:ISFHEAD;
          T:ARRAY (1..ZS5) OF INTEGER
        END;
USER   =RECORD
          ADDRESS:PCB;
          FILES: ARRAY (1..NROFFILES) OF RECORD
                                           STATUS:INTEGER;
                                           IDENT:ARRAY (1..KEYL) OF INTEGER
                                         END
        END;
VAR     ZONES:ARRAY (1..NROFFILES) OF ZONEPTR;
        USERS:ARRAY (1..NROFUSERS) OF USER;
        Z1:ZONE1;Z2:ZONE2;Z3:ZONE3;Z4:ZONE4;Z5:ZONE5;
        F1,F2,F3,F4,F5:ISF;
BEGIN
  ZONES(1)^:=Z1.H;
  ZONES(5)^:=Z5.H
END.

Full view