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

⟦2392a28ef⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PUTGE1.K«

Derivation

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

(*$P*)
PROCEDURE PUTREC;
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH FILEHEAD 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;
    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 I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH FILEHEAD DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    FINDPOST;
    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…01b Line {l1=0x11, l2=»PROCEDURE PUTREC;«, l3=0x11}
0x01b…02f Line {l1=0x12, l2=»VAR I,PEG:INTEGER;«, l3=0x12}
0x02f…036 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x036…041 Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x041…055 Line {l1=0x12, l2=»  WITH FILEHEAD DO«, l3=0x12}
0x055…069 Line {l1=0x12, l2=»  IF FILEOPEN THEN«, l3=0x12}
0x069…07d Line {l1=0x12, l2=»  IF FILEINIT THEN«, l3=0x12}
0x07d…086 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x086…093 Line {l1=0x0b, l2=»    PEG:=1;«, l3=0x0b}
0x093…0de Line {l1=0x49, l2=»    IF (BLKENTRY>0) AND (BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)) THEN«, l3=0x49}
0x0de…0e9 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x0e9…100 Line {l1=0x15, l2=»      REXTRACT(KEY1);«, l3=0x15}
0x100…12f Line {l1=0x2d, l2=»      EXTRACT(BLK+(BLKENTRY-1)*RECSIZE,KEY2);«, l3=0x2d}
0x12f…14e Line {l1=0x1d, l2=»      PEG:=COMPARE(KEY1,KEY2)«, l3=0x1d}
0x14e…158 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x158…176 Line {l1=0x1c, l2=»    IF PEG<>0 THEN FINDPOST;«, l3=0x1c}
0x176…189 Line {l1=0x11, l2=»    IF IER=0 THEN«, l3=0x11}
0x189…194 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x194…1ba Line {l1=0x24, l2=»      PEG:=BLK+(BLKENTRY-1)*RECSIZE;«, l3=0x24}
0x1ba…1e5 Line {l1=0x29, l2=»      MOVELEFT(REC^(1),Z(PEG),2*RECSIZE);«, l3=0x29}
0x1e5…218 Line {l1=0x31, l2=»(*    FOR I:=1 TO RECSIZE DO Z(PEG+I):=REC^(I);*)«, l3=0x31}
0x218…22c Line {l1=0x12, l2=»      BLKCHG:=TRUE«, l3=0x12}
0x22c…23a Line {l1=0x0c, l2=»    END ELSE«, l3=0x0c}
0x23a…256 Line {l1=0x1a, l2=»    IF IER=-1 THEN IER:=-6«, l3=0x1a}
0x256…278 Line {l1=0x20, l2=»  END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x278…27e Line {l1=0x04, l2=»END;«, l3=0x04}
0x27e…281 Line {l1=0x01, l2=» «, l3=0x01}
0x281…294 Line {l1=0x11, l2=»PROCEDURE GETREC;«, l3=0x11}
0x294…2a8 Line {l1=0x12, l2=»VAR I,PEG:INTEGER;«, l3=0x12}
0x2a8…2af Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2af…2ba Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x2ba…2ce Line {l1=0x12, l2=»  WITH FILEHEAD DO«, l3=0x12}
0x2ce…2e2 Line {l1=0x12, l2=»  IF FILEOPEN THEN«, l3=0x12}
0x2e2…2f6 Line {l1=0x12, l2=»  IF FILEINIT THEN«, l3=0x12}
0x2f6…2ff Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x2ff…30e Line {l1=0x0d, l2=»    FINDPOST;«, l3=0x0d}
0x30e…332 Line {l1=0x22, l2=»    PEG:=BLK+(BLKENTRY-1)*RECSIZE;«, l3=0x22}
0x332…345 Line {l1=0x11, l2=»    IF IER=0 THEN«, l3=0x11}
0x345…370 Line {l1=0x29, l2=»      MOVELEFT(Z(PEG),REC^(1),2*RECSIZE);«, l3=0x29}
0x370…3af Line {l1=0x3d, l2=»(*                FOR I:=1 TO RECSIZE DO REC^(I):=Z(PEG+I);*)«, l3=0x3d}
0x3af…3cb Line {l1=0x1a, l2=»    IF IER=-1 THEN IER:=-6«, l3=0x1a}
0x3cb…3ed Line {l1=0x20, l2=»  END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x3ed…3f3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3f3…400 00 00 63 63 63 63 63 63 63 63 63 63 63                                                            ┆  ccccccccccc┆
0x400…420 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 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x2e…]

Reduced view