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

⟦4bf61cf09⟧ TextFile

    Length: 448 (0x1c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »FXCOMCOP.K«

Derivation

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »FXCOMCOP.K« 
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
    └─⟦this⟧ »FXCOMCOP.K«

Mikados K File

PROCEDURE EXTRACT(RECPOS,RESPOS:ZONEADR);
FORWARD;
PROCEDURE REXTRACT(RESPOS:ZONEADR);
FORWARD;
FUNCTION COMPARE(KEY1POS,KEY2POS:ZONEADR):INTEGER;
FORWARD;
PROCEDURE COPSEGS(VAR F:ISF;SEGADR,WORDS,WORDADR:INTEGER;INOUT:ACCMODE);
FORWARD;

Mikados K File

0x000…02b Line {l1=0x29, l2=»PROCEDURE EXTRACT(RECPOS,RESPOS:ZONEADR);«, l3=0x29}
0x02b…035 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x035…05a Line {l1=0x23, l2=»PROCEDURE REXTRACT(RESPOS:ZONEADR);«, l3=0x23}
0x05a…064 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x064…098 Line {l1=0x32, l2=»FUNCTION COMPARE(KEY1POS,KEY2POS:ZONEADR):INTEGER;«, l3=0x32}
0x098…0a2 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x0a2…0ec Line {l1=0x48, l2=»PROCEDURE COPSEGS(VAR F:ISF;SEGADR,WORDS,WORDADR:INTEGER;INOUT:ACCMODE);«, l3=0x48}
0x0ec…0f6 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x0f6…100 00 00 53 2c 52 45 53 50 4f 53                                                                     ┆  S,RESPOS┆
0x100…120 3a 5a 4f 4e 45 41 44 52 29 3b 29 08 46 4f 52 57 41 52 44 3b 08 23 50 52 4f 43 45 44 55 52 45 20   ┆:ZONEADR);) FORWARD; #PROCEDURE ┆
0x120…140 52 45 58 54 52 41 43 54 28 52 45 53 50 4f 53 3a 5a 4f 4e 45 41 44 52 29 3b 23 08 46 4f 52 57 41   ┆REXTRACT(RESPOS:ZONEADR);# FORWA┆
0x140…160 52 44 3b 08 32 46 55 4e 43 54 49 4f 4e 20 43 4f 4d 50 41 52 45 28 4b 45 59 31 50 4f 53 2c 4b 45   ┆RD; 2FUNCTION COMPARE(KEY1POS,KE┆
0x160…180 59 32 50 4f 53 3a 5a 4f 4e 45 41 44 52 29 3a 49 4e 54 45 47 45 52 3b 32 08 46 4f 52 57 41 52 44   ┆Y2POS:ZONEADR):INTEGER;2 FORWARD┆
0x180…1a0 3b 08 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   ┆;                               ┆
0x1a0…1c0 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   ┆                                ┆

Reduced view