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

⟦d5bb20258⟧ TextFile

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

Derivation

└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
    └─⟦this⟧ »PUTGET.K« 
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »PUTGET.K« 
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »PUTGET.K« 

PROCEDURE PUTREC(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH ZO DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    PEG:=1;
    IF (BLKENTRY>0) AND (BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)) THEN
    BEGIN
      EXTRACT(ZO,REC,Z,1,KEY1);
      EXTRACT(ZO,Z,Z,BLK+(BLKENTRY-1)*RECSIZE,KEY2);
      PEG:=COMPARE(ZO,Z,Z,KEY1,KEY2)
    END;
    IF PEG<>0 THEN
      FINDPOST(ZO,F,REC);
    IF IER=0 THEN
    BEGIN
      PEG:=BLK+(BLKENTRY-1)*RECSIZE-1;
      FOR I:=1 TO RECSIZE DO
          Z(PEG+I):=REC(I);
      BLKCHG:=TRUE
    END ELSE
    IF IER=-1 THEN IER:=-6
  END ELSE IER:=-12 ELSE IER:=-3
END;
 
PROCEDURE GETREC(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH ZO DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    FINDPOST(ZO,F,REC);
    PEG:=BLK+(BLKENTRY-1)*RECSIZE-1;
    IF IER=0 THEN FOR I:=1 TO RECSIZE DO
       REC(I):=Z(PEG+I);
    IF IER=-1 THEN IER:=-6
  END ELSE IER:=-12 ELSE IER:=-3
END;

0x000…038 Line {l1=0x36, l2=»PROCEDURE PUTREC(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);«, l3=0x36}
0x038…04c Line {l1=0x12, l2=»VAR I,PEG:INTEGER;«, l3=0x12}
0x04c…053 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x053…05e Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x05e…06c Line {l1=0x0c, l2=»  WITH ZO DO«, l3=0x0c}
0x06c…080 Line {l1=0x12, l2=»  IF FILEOPEN THEN«, l3=0x12}
0x080…094 Line {l1=0x12, l2=»  IF FILEINIT THEN«, l3=0x12}
0x094…09d Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x09d…0aa Line {l1=0x0b, l2=»    PEG:=1;«, l3=0x0b}
0x0aa…0f5 Line {l1=0x49, l2=»    IF (BLKENTRY>0) AND (BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)) THEN«, l3=0x49}
0x0f5…100 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x100…121 Line {l1=0x1f, l2=»      EXTRACT(ZO,REC,Z,1,KEY1);«, l3=0x1f}
0x121…157 Line {l1=0x34, l2=»      EXTRACT(ZO,Z,Z,BLK+(BLKENTRY-1)*RECSIZE,KEY2);«, l3=0x34}
0x157…17d Line {l1=0x24, l2=»      PEG:=COMPARE(ZO,Z,Z,KEY1,KEY2)«, l3=0x24}
0x17d…187 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x187…19b Line {l1=0x12, l2=»    IF PEG<>0 THEN«, l3=0x12}
0x19b…1b6 Line {l1=0x19, l2=»      FINDPOST(ZO,F,REC);«, l3=0x19}
0x1b6…1c9 Line {l1=0x11, l2=»    IF IER=0 THEN«, l3=0x11}
0x1c9…1d4 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x1d4…1fc Line {l1=0x26, l2=»      PEG:=BLK+(BLKENTRY-1)*RECSIZE-1;«, l3=0x26}
0x1fc…21a Line {l1=0x1c, l2=»      FOR I:=1 TO RECSIZE DO«, l3=0x1c}
0x21a…237 Line {l1=0x1b, l2=»          Z(PEG+I):=REC(I);«, l3=0x1b}
0x237…24b Line {l1=0x12, l2=»      BLKCHG:=TRUE«, l3=0x12}
0x24b…259 Line {l1=0x0c, l2=»    END ELSE«, l3=0x0c}
0x259…275 Line {l1=0x1a, l2=»    IF IER=-1 THEN IER:=-6«, l3=0x1a}
0x275…297 Line {l1=0x20, l2=»  END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x297…29d Line {l1=0x04, l2=»END;«, l3=0x04}
0x29d…2a0 Line {l1=0x01, l2=» «, l3=0x01}
0x2a0…2d8 Line {l1=0x36, l2=»PROCEDURE GETREC(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);«, l3=0x36}
0x2d8…2ec Line {l1=0x12, l2=»VAR I,PEG:INTEGER;«, l3=0x12}
0x2ec…2f3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2f3…2fe Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x2fe…30c Line {l1=0x0c, l2=»  WITH ZO DO«, l3=0x0c}
0x30c…320 Line {l1=0x12, l2=»  IF FILEOPEN THEN«, l3=0x12}
0x320…334 Line {l1=0x12, l2=»  IF FILEINIT THEN«, l3=0x12}
0x334…33d Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x33d…356 Line {l1=0x17, l2=»    FINDPOST(ZO,F,REC);«, l3=0x17}
0x356…37c Line {l1=0x24, l2=»    PEG:=BLK+(BLKENTRY-1)*RECSIZE-1;«, l3=0x24}
0x37c…3a6 Line {l1=0x28, l2=»    IF IER=0 THEN FOR I:=1 TO RECSIZE DO«, l3=0x28}
0x3a6…3c0 Line {l1=0x18, l2=»       REC(I):=Z(PEG+I);«, l3=0x18}
0x3c0…3dc Line {l1=0x1a, l2=»    IF IER=-1 THEN IER:=-6«, l3=0x1a}
0x3dc…3fe Line {l1=0x20, l2=»  END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x3fe…404 Line {l1=0x04, l2=»END;«, l3=0x04}
0x404…420 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               ┆                            ┆
0x420…440 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   ┆                                ┆
          […0x5…]

Reduced view