|
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«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »INITIATE.K«
PROCEDURE INITIATE(VAR ZO:ISFHEAD;VAR F:ISF;IREC:INTEGER);
VAR I,BUCADR,BLKADR,J:INTEGER;
BEGIN
WITH ZO 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(Z,F,BLKADR,BLKSIZE,BLK,SKRIV); UNØDVENDIG *)
END;
IF UPSTAT=SKRIV THEN
COPSEGS(Z,F,BUCADR,BLTSIZE,BLT,SKRIV);
IF IER <>0 THEN EXIT(INITIATE)
END;
IF UPSTAT=SKRIV THEN
COPSEGS(Z,F,2,BUTSIZE,BUT,SKRIV);
IF IER <>0 THEN EXIT(INITIATE);
INITREC:=IREC;
IRPRBUC:=(IREC-1)DIV NBUC +1;
IRPRBLK:=(IRPRBUC-1) DIV BLKPRBUC +1
END
ELSE
IER:=-3
END;
0x000…03c Line {l1=0x3a, l2=»PROCEDURE INITIATE(VAR ZO:ISFHEAD;VAR F:ISF;IREC:INTEGER);«, l3=0x3a}
0x03c…05c Line {l1=0x1e, l2=»VAR I,BUCADR,BLKADR,J:INTEGER;«, l3=0x1e}
0x05c…063 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x063…071 Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x071…085 Line {l1=0x12, l2=» IF FILEOPEN THEN«, l3=0x12}
0x085…08e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x08e…09b Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x09b…0bb Line {l1=0x1e, l2=» IF FILEINIT THEN IER:=-13;«, l3=0x1e}
0x0bb…0dd Line {l1=0x20, l2=» IF RECINUSE>0 THEN IER:=-13;«, l3=0x20}
0x0dd…0fa Line {l1=0x1b, l2=» IF IREC<1 THEN IER:=-5;«, l3=0x1b}
0x0fa…11a Line {l1=0x1e, l2=» IF IREC>NREC THEN IER:=-5;«, l3=0x1e}
0x11a…13e Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(INITIATE);«, l3=0x22}
0x13e…157 Line {l1=0x17, l2=» FOR I:=1 TO NBUC DO«, l3=0x17}
0x157…162 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x162…18c Line {l1=0x28, l2=» BUCADR:=2+SEGINBUT+SEGINBUC*(I-1);«, l3=0x28}
0x18c…1b3 Line {l1=0x25, l2=» Z(BUT+(I-1)*ENTRYSIZE):=BUCADR;«, l3=0x25}
0x1b3…1d7 Line {l1=0x22, l2=» Z(BUT+(I-1)*ENTRYSIZE+1):=0;«, l3=0x22}
0x1d7…1f6 Line {l1=0x1d, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x1d}
0x1f6…203 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x203…234 Line {l1=0x2f, l2=» BLKADR:=BUCADR+SEGINBLT+SEGINBLK*(J-1);«, l3=0x2f}
0x234…25d Line {l1=0x27, l2=» Z(BLT+(J-1)*ENTRYSIZE):=BLKADR;«, l3=0x27}
0x25d…283 Line {l1=0x24, l2=» Z(BLT+(J-1)*ENTRYSIZE+1):=0;«, l3=0x24}
0x283…2c2 Line {l1=0x3d, l2=»(* COPSEGS(Z,F,BLKADR,BLKSIZE,BLK,SKRIV); UNØDVENDIG *)«, l3=0x3d}
0x2c2…2ce Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ce…2ea Line {l1=0x1a, l2=» IF UPSTAT=SKRIV THEN«, l3=0x1a}
0x2ea…318 Line {l1=0x2c, l2=» COPSEGS(Z,F,BUCADR,BLTSIZE,BLT,SKRIV);«, l3=0x2c}
0x318…33e Line {l1=0x24, l2=» IF IER <>0 THEN EXIT(INITIATE)«, l3=0x24}
0x33e…348 Line {l1=0x08, l2=» END;«, l3=0x08}
0x348…362 Line {l1=0x18, l2=» IF UPSTAT=SKRIV THEN«, l3=0x18}
0x362…389 Line {l1=0x25, l2=» COPSEGS(Z,F,2,BUTSIZE,BUT,SKRIV);«, l3=0x25}
0x389…3ae Line {l1=0x23, l2=» IF IER <>0 THEN EXIT(INITIATE);«, l3=0x23}
0x3ae…3c2 Line {l1=0x12, l2=» INITREC:=IREC;«, l3=0x12}
0x3c2…3e5 Line {l1=0x21, l2=» IRPRBUC:=(IREC-1)DIV NBUC +1;«, l3=0x21}
0x3e5…40f Line {l1=0x28, l2=» IRPRBLK:=(IRPRBUC-1) DIV BLKPRBUC +1«, l3=0x28}
0x40f…416 Line {l1=0x05, l2=» END«, l3=0x05}
0x416…41e Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x41e…429 Line {l1=0x09, l2=» IER:=-3«, l3=0x09}
0x429…42f Line {l1=0x04, l2=»END;«, l3=0x04}
0x42f…440 00 00 43 2d 31 29 20 44 49 56 20 42 4c 4b 50 52 42 ┆ C-1) DIV 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 ┆ ┆
[…0x2…]