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;

▶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

Full view