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

⟦d9dad6cf2⟧ TextFile

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

Derivation

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

(*$P*)
SEGMENT PROCEDURE INITIATE;
VAR I,BUCADR,BLKADR,J:INTEGER;
BEGIN
  WITH FILEHEAD DO
  IF FILEOPEN THEN
  BEGIN
    IER:=0;
    IF FILEINIT THEN IER:=-13;
    IF RECINUSE>0 THEN IER:=-13;
    IF IREC<1 THEN IER:=-5;
    IF IREC>NREC THEN IER:=-5;
    IF IER<>0 THEN EXIT(INITIATE);
    FOR I:=1 TO NBUC DO
    BEGIN
      BUCADR:=2+SEGINBUT+SEGINBUC*(I-1);
      Z(BUT+(I-1)*ENTRYSIZE):=BUCADR;
      Z(BUT+(I-1)*ENTRYSIZE+1):=0;
      FOR J:=1 TO BLKPRBUC DO
      BEGIN
        BLKADR:=BUCADR+SEGINBLT+SEGINBLK*(J-1);
        Z(BLT+(J-1)*ENTRYSIZE):=BLKADR;
        Z(BLT+(J-1)*ENTRYSIZE+1):=0;
(*      COPSEGS(BLKADR,BLKSIZE,BLK,SKRIV);  UNØDVENDIG *)
      END;
      COPSEGS(BUCADR,BLTSIZE,BLT,SKRIV);
    END;
    COPSEGS(2,BUTSIZE,BUT,SKRIV);
    INITREC:=IREC;
    IRPRBUC:=(IREC-1)DIV NBUC +1;
    IRPRBLK:=RECPRBLK (*(IRPRBUC-1) DIV BLKPRBUC +1*)
  END
  ELSE
  IER:=-3
END;

0x000…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…025 Line {l1=0x1b, l2=»SEGMENT PROCEDURE INITIATE;«, l3=0x1b}
0x025…045 Line {l1=0x1e, l2=»VAR I,BUCADR,BLKADR,J:INTEGER;«, l3=0x1e}
0x045…04c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04c…060 Line {l1=0x12, l2=»  WITH FILEHEAD DO«, l3=0x12}
0x060…074 Line {l1=0x12, l2=»  IF FILEOPEN THEN«, l3=0x12}
0x074…07d Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x07d…08a Line {l1=0x0b, l2=»    IER:=0;«, l3=0x0b}
0x08a…0aa Line {l1=0x1e, l2=»    IF FILEINIT THEN IER:=-13;«, l3=0x1e}
0x0aa…0cc Line {l1=0x20, l2=»    IF RECINUSE>0 THEN IER:=-13;«, l3=0x20}
0x0cc…0e9 Line {l1=0x1b, l2=»    IF IREC<1 THEN IER:=-5;«, l3=0x1b}
0x0e9…109 Line {l1=0x1e, l2=»    IF IREC>NREC THEN IER:=-5;«, l3=0x1e}
0x109…12d Line {l1=0x22, l2=»    IF IER<>0 THEN EXIT(INITIATE);«, l3=0x22}
0x12d…146 Line {l1=0x17, l2=»    FOR I:=1 TO NBUC DO«, l3=0x17}
0x146…151 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x151…17b Line {l1=0x28, l2=»      BUCADR:=2+SEGINBUT+SEGINBUC*(I-1);«, l3=0x28}
0x17b…1a2 Line {l1=0x25, l2=»      Z(BUT+(I-1)*ENTRYSIZE):=BUCADR;«, l3=0x25}
0x1a2…1c6 Line {l1=0x22, l2=»      Z(BUT+(I-1)*ENTRYSIZE+1):=0;«, l3=0x22}
0x1c6…1e5 Line {l1=0x1d, l2=»      FOR J:=1 TO BLKPRBUC DO«, l3=0x1d}
0x1e5…1f2 Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x1f2…223 Line {l1=0x2f, l2=»        BLKADR:=BUCADR+SEGINBLT+SEGINBLK*(J-1);«, l3=0x2f}
0x223…24c Line {l1=0x27, l2=»        Z(BLT+(J-1)*ENTRYSIZE):=BLKADR;«, l3=0x27}
0x24c…272 Line {l1=0x24, l2=»        Z(BLT+(J-1)*ENTRYSIZE+1):=0;«, l3=0x24}
0x272…2ad Line {l1=0x39, l2=»(*      COPSEGS(BLKADR,BLKSIZE,BLK,SKRIV);  UNØDVENDIG *)«, l3=0x39}
0x2ad…2b9 Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x2b9…2e3 Line {l1=0x28, l2=»      COPSEGS(BUCADR,BLTSIZE,BLT,SKRIV);«, l3=0x28}
0x2e3…2ed Line {l1=0x08, l2=»    END;«, l3=0x08}
0x2ed…310 Line {l1=0x21, l2=»    COPSEGS(2,BUTSIZE,BUT,SKRIV);«, l3=0x21}
0x310…324 Line {l1=0x12, l2=»    INITREC:=IREC;«, l3=0x12}
0x324…347 Line {l1=0x21, l2=»    IRPRBUC:=(IREC-1)DIV NBUC +1;«, l3=0x21}
0x347…37e Line {l1=0x35, l2=»    IRPRBLK:=RECPRBLK (*(IRPRBUC-1) DIV BLKPRBUC +1*)«, l3=0x35}
0x37e…385 Line {l1=0x05, l2=»  END«, l3=0x05}
0x385…38d Line {l1=0x06, l2=»  ELSE«, l3=0x06}
0x38d…398 Line {l1=0x09, l2=»  IER:=-3«, l3=0x09}
0x398…39e Line {l1=0x04, l2=»END;«, l3=0x04}
0x39e…3a0 00 00                                                                                             ┆  ┆
0x3a0…3c0 00 00 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   ┆  cccccccccccccccccccccccccccccc┆
0x3c0…3e0 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┆
          […0x30…]

▶06◀(*$P*)▶06◀▶1b◀SEGMENT PROCEDURE INITIATE;▶1b◀▶1e◀VAR I,BUCADR,BLKADR,J:INTEGER;▶1e◀▶05◀BEGIN▶05◀▶12◀  WITH FILEHEAD DO▶12◀▶12◀  IF FILEOPEN THEN▶12◀▶07◀  BEGIN▶07◀▶0b◀    IER:=0;▶0b◀▶1e◀    IF FILEINIT THEN IER:=-13;▶1e◀     IF RECINUSE>0 THEN IER:=-13; ▶1b◀    IF IREC<1 THEN IER:=-5;▶1b◀▶1e◀    IF IREC>NREC THEN IER:=-5;▶1e◀"    IF IER<>0 THEN EXIT(INITIATE);"▶17◀    FOR I:=1 TO NBUC DO▶17◀	    BEGIN	(      BUCADR:=2+SEGINBUT+SEGINBUC*(I-1);(%      Z(BUT+(I-1)*ENTRYSIZE):=BUCADR;%"      Z(BUT+(I-1)*ENTRYSIZE+1):=0;"▶1d◀      FOR J:=1 TO BLKPRBUC DO▶1d◀▶0b◀      BEGIN▶0b◀/        BLKADR:=BUCADR+SEGINBLT+SEGINBLK*(J-1);/'        Z(BLT+(J-1)*ENTRYSIZE):=BLKADR;'$        Z(BLT+(J-1)*ENTRYSIZE+1):=0;$9(*      COPSEGS(BLKADR,BLKSIZE,BLK,SKRIV);  UNØDVENDIG *)9
      END;
(      COPSEGS(BUCADR,BLTSIZE,BLT,SKRIV);(▶08◀    END;▶08◀!    COPSEGS(2,BUTSIZE,BUT,SKRIV);!▶12◀    INITREC:=IREC;▶12◀!    IRPRBUC:=(IREC-1)DIV NBUC +1;!5    IRPRBLK:=RECPRBLK (*(IRPRBUC-1) DIV BLKPRBUC +1*)5▶05◀  END▶05◀▶06◀  ELSE▶06◀	  IER:=-3	▶04◀END;▶04◀▶00◀▶00◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view