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

⟦42d40485e⟧ TextFile

    Length: 480 (0x1e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »FORWARD.K«

Derivation

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »FORWARD.K«

Mikados K File

PROCEDURE COPSEGS(VAR Z:AR;VAR F:ISF;SEGADR,WORDS,WORDADR,INOUT:INTEGER);
FORWARD;
PROCEDURE READTABLE(VAR ZO:ISFHEAD;VAR F:ISF;BUTENTRY:INTEGER);
FORWARD;
PROCEDURE READBLOCK(VAR ZO:ISFHEAD;VAR F:ISF;BLTENTRY,STARTPOST:INTEGER);
FORWARD;

Mikados K File

0x000…04b Line {l1=0x49, l2=»PROCEDURE COPSEGS(VAR Z:AR;VAR F:ISF;SEGADR,WORDS,WORDADR,INOUT:INTEGER);«, l3=0x49}
0x04b…055 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x055…096 Line {l1=0x3f, l2=»PROCEDURE READTABLE(VAR ZO:ISFHEAD;VAR F:ISF;BUTENTRY:INTEGER);«, l3=0x3f}
0x096…0a0 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x0a0…0eb Line {l1=0x49, l2=»PROCEDURE READBLOCK(VAR ZO:ISFHEAD;VAR F:ISF;BLTENTRY,STARTPOST:INTEGER);«, l3=0x49}
0x0eb…0f5 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x0f5…100 00 00 52 4f 43 45 44 55 52 45 20                                                                  ┆  ROCEDURE ┆
0x100…120 45 52 52 4f 52 28 56 41 52 20 46 49 4c 3a 46 49 4c 4e 41 56 4e 29 3b 21 08 46 4f 52 57 41 52 44   ┆ERROR(VAR FIL:FILNAVN);! FORWARD┆
0x120…140 3b 08 21 50 52 4f 43 45 44 55 52 45 20 4f 46 45 4a 4c 28 56 41 52 20 46 49 4c 3a 46 49 4c 4e 41   ┆; !PROCEDURE OFEJL(VAR FIL:FILNA┆
0x140…160 56 4e 29 3b 21 08 46 4f 52 57 41 52 44 3b 08 00 00 4e 29 3b 29 08 46 4f 52 57 41 52 44 3b 08 00   ┆VN);! FORWARD;   N);) FORWARD;  ┆
0x160…180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
          […0x3…]

Reduced view