|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »CENTRAL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »CENTRAL.K«
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.
0x000…018 Line {l1=0x16, l2=»PROGRAM CENTRALPROCES;«, l3=0x16}
0x018…02e Line {l1=0x14, l2=»CONST NROFUSERS=2;«, l3=0x14}
0x02e…044 Line {l1=0x14, l2=» NROFFILES=5;«, l3=0x14}
0x044…056 Line {l1=0x10, l2=» KEYL=20;«, l3=0x10}
0x056…068 Line {l1=0x10, l2=» ZS1=612;«, l3=0x10}
0x068…07a Line {l1=0x10, l2=» ZS2=375;«, l3=0x10}
0x07a…08c Line {l1=0x10, l2=» ZS3=410;«, l3=0x10}
0x08c…09e Line {l1=0x10, l2=» ZS4=511;«, l3=0x10}
0x09e…0b0 Line {l1=0x10, l2=» ZS5=350;«, l3=0x10}
0x0b0…0bf Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0bf…0d2 Line {l1=0x11, l2=»ZONEPTR=^ISFHEAD;«, l3=0x11}
0x0d2…0e5 Line {l1=0x11, l2=»PCB =^INTEGER;«, l3=0x11}
0x0e5…0f5 Line {l1=0x0e, l2=»ZONE1 =RECORD«, l3=0x0e}
0x0f5…10b Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x10b…132 Line {l1=0x25, l2=» T:ARRAY (1..ZS1) OF INTEGER«, l3=0x25}
0x132…140 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x140…14f Line {l1=0x0d, l2=»ZONE2= RECORD«, l3=0x0d}
0x14f…165 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x165…18c Line {l1=0x25, l2=» T:ARRAY (1..ZS2) OF INTEGER«, l3=0x25}
0x18c…19a Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x19a…1aa Line {l1=0x0e, l2=»ZONE3 =RECORD«, l3=0x0e}
0x1aa…1c0 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x1c0…1e7 Line {l1=0x25, l2=» T:ARRAY (1..ZS3) OF INTEGER«, l3=0x25}
0x1e7…1f5 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1f5…205 Line {l1=0x0e, l2=»ZONE4 =RECORD«, l3=0x0e}
0x205…21b Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x21b…242 Line {l1=0x25, l2=» T:ARRAY (1..ZS4) OF INTEGER«, l3=0x25}
0x242…250 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x250…260 Line {l1=0x0e, l2=»ZONE5 =RECORD«, l3=0x0e}
0x260…276 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x276…29d Line {l1=0x25, l2=» T:ARRAY (1..ZS5) OF INTEGER«, l3=0x25}
0x29d…2ab Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2ab…2bb Line {l1=0x0e, l2=»USER =RECORD«, l3=0x0e}
0x2bb…2d3 Line {l1=0x16, l2=» ADDRESS:PCB;«, l3=0x16}
0x2d3…304 Line {l1=0x2f, l2=» FILES: ARRAY (1..NROFFILES) OF RECORD«, l3=0x2f}
0x304…340 Line {l1=0x3a, l2=» STATUS:INTEGER;«, l3=0x3a}
0x340…38d Line {l1=0x4b, l2=» IDENT:ARRAY (1..KEYL) OF INTEGER«, l3=0x4b}
0x38d…3bb Line {l1=0x2c, l2=» END«, l3=0x2c}
0x3bb…3c9 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3c9…3f9 Line {l1=0x2e, l2=»VAR ZONES:ARRAY (1..NROFFILES) OF ZONEPTR;«, l3=0x2e}
0x3f9…426 Line {l1=0x2b, l2=» USERS:ARRAY (1..NROFUSERS) OF USER;«, l3=0x2b}
0x426…45d Line {l1=0x35, l2=» Z1:ZONE1;Z2:ZONE2;Z3:ZONE3;Z4:ZONE4;Z5:ZONE5;«, l3=0x35}
0x45d…47a Line {l1=0x1b, l2=» F1,F2,F3,F4,F5:ISF;«, l3=0x1b}
0x47a…481 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x481…495 Line {l1=0x12, l2=» ZONES(1)^:=Z1.H;«, l3=0x12}
0x495…4a8 Line {l1=0x11, l2=» ZONES(5)^:=Z5.H«, l3=0x11}
0x4a8…4ae Line {l1=0x04, l2=»END.«, l3=0x04}
0x4ae…4c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccc┆
0x4c0…4e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆