|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »INITIATE.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »INITIATE.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »INITIATE.K«
(*$P*)
SEGMENT PROCEDURE INITIATE(VAR F:ISF);
VAR I,BUCADR,BLKADR,J:INTEGER;
BEGIN
WITH FILEHEAD(CURRHEAD) 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(F,BLKADR,BLKSIZE,BLK,SKRIV); UNØDVENDIG *)
END;
COPSEGS(F,BUCADR,BLTSIZE,BLT,SKRIV);
END;
COPSEGS(F,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…04c Line {l1=0x42, l2=»SEGMENT PROCEDURE INITIATE(VAR F:ISF); «, l3=0x42}
0x04c…06c Line {l1=0x1e, l2=»VAR I,BUCADR,BLKADR,J:INTEGER;«, l3=0x1e}
0x06c…073 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x073…091 Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x091…0a5 Line {l1=0x12, l2=» IF FILEOPEN THEN«, l3=0x12}
0x0a5…0ae Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0ae…0bb Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x0bb…0db Line {l1=0x1e, l2=» IF FILEINIT THEN IER:=-13;«, l3=0x1e}
0x0db…0fd Line {l1=0x20, l2=» IF RECINUSE>0 THEN IER:=-13;«, l3=0x20}
0x0fd…11a Line {l1=0x1b, l2=» IF IREC<1 THEN IER:=-5;«, l3=0x1b}
0x11a…13a Line {l1=0x1e, l2=» IF IREC>NREC THEN IER:=-5;«, l3=0x1e}
0x13a…15e Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(INITIATE);«, l3=0x22}
0x15e…177 Line {l1=0x17, l2=» FOR I:=1 TO NBUC DO«, l3=0x17}
0x177…182 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x182…1ac Line {l1=0x28, l2=» BUCADR:=2+SEGINBUT+SEGINBUC*(I-1);«, l3=0x28}
0x1ac…1d3 Line {l1=0x25, l2=» Z(BUT+(I-1)*ENTRYSIZE):=BUCADR;«, l3=0x25}
0x1d3…1f7 Line {l1=0x22, l2=» Z(BUT+(I-1)*ENTRYSIZE+1):=0;«, l3=0x22}
0x1f7…216 Line {l1=0x1d, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x1d}
0x216…223 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x223…254 Line {l1=0x2f, l2=» BLKADR:=BUCADR+SEGINBLT+SEGINBLK*(J-1);«, l3=0x2f}
0x254…27d Line {l1=0x27, l2=» Z(BLT+(J-1)*ENTRYSIZE):=BLKADR;«, l3=0x27}
0x27d…2a3 Line {l1=0x24, l2=» Z(BLT+(J-1)*ENTRYSIZE+1):=0;«, l3=0x24}
0x2a3…2e0 Line {l1=0x3b, l2=»(* COPSEGS(F,BLKADR,BLKSIZE,BLK,SKRIV); UNØDVENDIG *)«, l3=0x3b}
0x2e0…2ec Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ec…318 Line {l1=0x2a, l2=» COPSEGS(F,BUCADR,BLTSIZE,BLT,SKRIV);«, l3=0x2a}
0x318…322 Line {l1=0x08, l2=» END;«, l3=0x08}
0x322…347 Line {l1=0x23, l2=» COPSEGS(F,2,BUTSIZE,BUT,SKRIV);«, l3=0x23}
0x347…35b Line {l1=0x12, l2=» INITREC:=IREC;«, l3=0x12}
0x35b…37e Line {l1=0x21, l2=» IRPRBUC:=(IREC-1)DIV NBUC +1;«, l3=0x21}
0x37e…3b5 Line {l1=0x35, l2=» IRPRBLK:=RECPRBLK (*(IRPRBUC-1) DIV BLKPRBUC +1*)«, l3=0x35}
0x3b5…3bc Line {l1=0x05, l2=» END«, l3=0x05}
0x3bc…3c4 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x3c4…3cf Line {l1=0x09, l2=» IER:=-3«, l3=0x09}
0x3cf…3d5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3d5…3e0 00 00 2d 31 29 20 44 49 56 20 42 ┆ -1) DIV B┆
0x3e0…400 4c 4b 50 52 42 55 43 20 2b 31 28 05 20 20 45 4e 44 05 06 20 20 45 4c 53 45 06 09 20 20 49 45 52 ┆LKPRBUC +1( END ELSE IER┆
0x400…420 3a 3d 2d 33 09 04 45 4e 44 3b 04 00 00 4b 50 52 42 55 43 20 2b 31 28 05 20 20 45 4e 44 05 06 20 ┆:=-3 END; KPRBUC +1( END ┆
0x420…440 20 45 4c 53 45 06 09 20 20 49 45 52 3a 3d 2d 33 09 04 45 4e 44 3b 04 00 00 20 42 4c 4b 50 52 42 ┆ ELSE IER:=-3 END; BLKPRB┆
0x440…460 55 43 20 2b 31 28 05 20 20 45 4e 44 05 06 20 20 45 4c 53 45 06 09 20 20 49 45 52 3a 3d 2d 33 09 ┆UC +1( END ELSE IER:=-3 ┆
0x460…480 04 45 4e 44 3b 04 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 ┆ END; ┆
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┆