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

⟦783e2309b⟧ TextFile

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

Derivation

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

(*$P*)
PROCEDURE PUTREC(VAR F:ISF);                             
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH FILEHEAD(CURRHEAD) DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    PEG:=1;
    IF (BLKENTRY>0) AND (BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)) THEN
    BEGIN
      REXTRACT(KEY1);
      EXTRACT(BLK+(BLKENTRY-1)*RECSIZE,KEY2);
      PEG:=COMPARE(KEY1,KEY2)
    END;
    IF PEG<>0 THEN FINDPOST(F);
    IF IER=0 THEN
    BEGIN
      PEG:=BLK+(BLKENTRY-1)*RECSIZE;
      MOVELEFT(REC^(1),Z(PEG),2*RECSIZE);
(*    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 F:ISF);                           
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH FILEHEAD(CURRHEAD) DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    FINDPOST(F);       
    PEG:=BLK+(BLKENTRY-1)*RECSIZE;
    IF IER=0 THEN
      MOVELEFT(Z(PEG),REC^(1),2*RECSIZE);
(*                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…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…043 Line {l1=0x39, l2=»PROCEDURE PUTREC(VAR F:ISF);                             «, l3=0x39}
0x043…057 Line {l1=0x12, l2=»VAR I,PEG:INTEGER;«, l3=0x12}
0x057…05e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05e…069 Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x069…087 Line {l1=0x1c, l2=»  WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x087…09b Line {l1=0x12, l2=»  IF FILEOPEN THEN«, l3=0x12}
0x09b…0af Line {l1=0x12, l2=»  IF FILEINIT THEN«, l3=0x12}
0x0af…0b8 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x0b8…0c5 Line {l1=0x0b, l2=»    PEG:=1;«, l3=0x0b}
0x0c5…110 Line {l1=0x49, l2=»    IF (BLKENTRY>0) AND (BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)) THEN«, l3=0x49}
0x110…11b Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x11b…132 Line {l1=0x15, l2=»      REXTRACT(KEY1);«, l3=0x15}
0x132…161 Line {l1=0x2d, l2=»      EXTRACT(BLK+(BLKENTRY-1)*RECSIZE,KEY2);«, l3=0x2d}
0x161…180 Line {l1=0x1d, l2=»      PEG:=COMPARE(KEY1,KEY2)«, l3=0x1d}
0x180…18a Line {l1=0x08, l2=»    END;«, l3=0x08}
0x18a…1ab Line {l1=0x1f, l2=»    IF PEG<>0 THEN FINDPOST(F);«, l3=0x1f}
0x1ab…1be Line {l1=0x11, l2=»    IF IER=0 THEN«, l3=0x11}
0x1be…1c9 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x1c9…1ef Line {l1=0x24, l2=»      PEG:=BLK+(BLKENTRY-1)*RECSIZE;«, l3=0x24}
0x1ef…21a Line {l1=0x29, l2=»      MOVELEFT(REC^(1),Z(PEG),2*RECSIZE);«, l3=0x29}
0x21a…24d Line {l1=0x31, l2=»(*    FOR I:=1 TO RECSIZE DO Z(PEG+I):=REC^(I);*)«, l3=0x31}
0x24d…261 Line {l1=0x12, l2=»      BLKCHG:=TRUE«, l3=0x12}
0x261…26f Line {l1=0x0c, l2=»    END ELSE«, l3=0x0c}
0x26f…28b Line {l1=0x1a, l2=»    IF IER=-1 THEN IER:=-6«, l3=0x1a}
0x28b…2ad Line {l1=0x20, l2=»  END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x2ad…2b3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2b3…2b6 Line {l1=0x01, l2=» «, l3=0x01}
0x2b6…2ef Line {l1=0x37, l2=»PROCEDURE GETREC(VAR F:ISF);                           «, l3=0x37}
0x2ef…303 Line {l1=0x12, l2=»VAR I,PEG:INTEGER;«, l3=0x12}
0x303…30a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x30a…315 Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x315…333 Line {l1=0x1c, l2=»  WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x333…347 Line {l1=0x12, l2=»  IF FILEOPEN THEN«, l3=0x12}
0x347…35b Line {l1=0x12, l2=»  IF FILEINIT THEN«, l3=0x12}
0x35b…364 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x364…37d Line {l1=0x17, l2=»    FINDPOST(F);       «, l3=0x17}
0x37d…3a1 Line {l1=0x22, l2=»    PEG:=BLK+(BLKENTRY-1)*RECSIZE;«, l3=0x22}
0x3a1…3b4 Line {l1=0x11, l2=»    IF IER=0 THEN«, l3=0x11}
0x3b4…3df Line {l1=0x29, l2=»      MOVELEFT(Z(PEG),REC^(1),2*RECSIZE);«, l3=0x29}
0x3df…41e Line {l1=0x3d, l2=»(*                FOR I:=1 TO RECSIZE DO REC^(I):=Z(PEG+I);*)«, l3=0x3d}
0x41e…43a Line {l1=0x1a, l2=»    IF IER=-1 THEN IER:=-6«, l3=0x1a}
0x43a…45c Line {l1=0x20, l2=»  END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x45c…462 Line {l1=0x04, l2=»END;«, l3=0x04}
0x462…480 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         ┆                              ┆
0x480…4a0 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   ┆                                ┆
          […0x1…]
0x4c0…4e0 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 63   ┆                               c┆

Reduced view