|
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: »SÆTØG.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »SÆTØG.K«
PROCEDURE ØGNUM(VAR ZO:ISFHEAD);
VAR BUCNUM,BLKNUM:INTEGER;
BEGIN
WITH ZO DO
BEGIN
BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;
BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;
Z(BUCNUM):=Z(BUCNUM)+1;
Z(BLKNUM):=Z(BLKNUM)+1;
RECINUSE:=RECINUSE+1;
IF Z(BLKNUM)=1 THEN
BEGIN
BLKINUSE:=BLKINUSE+1;
IF Z(BUCNUM)=1 THEN BUCINUSE:=BUCINUSE+1
END;
BUTCHG:=TRUE;
BLTCHG:=TRUE
END
END;
PROCEDURE SÆTKEY(VAR ZO:ISFHEAD;BLKPEG:INTEGER);
VAR BUCNUM,BLKNUM,I:INTEGER;
BEGIN
WITH ZO DO
BEGIN
BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;
BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;
EXTRACT(ZO,Z,Z,(BLKPEG-1)*RECSIZE+BLK,KEY1);
IF (Z(BUCNUM)=0) OR
(COMPARE(ZO,Z,Z,BLKNUM+1,
BUCNUM+1)=0) OR
(COMPARE(ZO,Z,Z,KEY1,BUCNUM+1)>0)
THEN
BEGIN
FOR I:=1 TO KEYSIZE DO Z(BUCNUM+I):=
Z(KEY1-1+I);
BUTCHG:=TRUE
END;
FOR I:=1 TO KEYSIZE DO Z(BLKNUM+I):=
Z(KEY1-1+I);
BLTCHG:=TRUE
END
END;
0x000…022 Line {l1=0x20, l2=»PROCEDURE ØGNUM(VAR ZO:ISFHEAD);«, l3=0x20}
0x022…03e Line {l1=0x1a, l2=»VAR BUCNUM,BLKNUM:INTEGER;«, l3=0x1a}
0x03e…045 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x045…053 Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x053…05c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05c…088 Line {l1=0x2a, l2=» BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;«, l3=0x2a}
0x088…0b4 Line {l1=0x2a, l2=» BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;«, l3=0x2a}
0x0b4…0d1 Line {l1=0x1b, l2=» Z(BUCNUM):=Z(BUCNUM)+1;«, l3=0x1b}
0x0d1…0ee Line {l1=0x1b, l2=» Z(BLKNUM):=Z(BLKNUM)+1;«, l3=0x1b}
0x0ee…109 Line {l1=0x19, l2=» RECINUSE:=RECINUSE+1;«, l3=0x19}
0x109…122 Line {l1=0x17, l2=» IF Z(BLKNUM)=1 THEN«, l3=0x17}
0x122…12d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x12d…14a Line {l1=0x1b, l2=» BLKINUSE:=BLKINUSE+1;«, l3=0x1b}
0x14a…17a Line {l1=0x2e, l2=» IF Z(BUCNUM)=1 THEN BUCINUSE:=BUCINUSE+1«, l3=0x2e}
0x17a…184 Line {l1=0x08, l2=» END;«, l3=0x08}
0x184…197 Line {l1=0x11, l2=» BUTCHG:=TRUE;«, l3=0x11}
0x197…1a9 Line {l1=0x10, l2=» BLTCHG:=TRUE«, l3=0x10}
0x1a9…1b0 Line {l1=0x05, l2=» END«, l3=0x05}
0x1b0…1b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b6…1b9 Line {l1=0x01, l2=» «, l3=0x01}
0x1b9…1eb Line {l1=0x30, l2=»PROCEDURE SÆTKEY(VAR ZO:ISFHEAD;BLKPEG:INTEGER);«, l3=0x30}
0x1eb…209 Line {l1=0x1c, l2=»VAR BUCNUM,BLKNUM,I:INTEGER;«, l3=0x1c}
0x209…210 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x210…21e Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x21e…227 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x227…253 Line {l1=0x2a, l2=» BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;«, l3=0x2a}
0x253…27f Line {l1=0x2a, l2=» BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;«, l3=0x2a}
0x27f…2b1 Line {l1=0x30, l2=» EXTRACT(ZO,Z,Z,(BLKPEG-1)*RECSIZE+BLK,KEY1);«, l3=0x30}
0x2b1…2ca Line {l1=0x17, l2=» IF (Z(BUCNUM)=0) OR«, l3=0x17}
0x2ca…2ec Line {l1=0x20, l2=» (COMPARE(ZO,Z,Z,BLKNUM+1,«, l3=0x20}
0x2ec…315 Line {l1=0x27, l2=» BUCNUM+1)=0) OR«, l3=0x27}
0x315…33f Line {l1=0x28, l2=» (COMPARE(ZO,Z,Z,KEY1,BUCNUM+1)>0)«, l3=0x28}
0x33f…34c Line {l1=0x0b, l2=» THEN«, l3=0x0b}
0x34c…35a Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x35a…389 Line {l1=0x2d, l2=» FOR I:=1 TO KEYSIZE DO Z(BUCNUM+I):=«, l3=0x2d}
0x389…3b7 Line {l1=0x2c, l2=» Z(KEY1-1+I);«, l3=0x2c}
0x3b7…3ce Line {l1=0x15, l2=» BUTCHG:=TRUE«, l3=0x15}
0x3ce…3db Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x3db…405 Line {l1=0x28, l2=» FOR I:=1 TO KEYSIZE DO Z(BLKNUM+I):=«, l3=0x28}
0x405…42e Line {l1=0x27, l2=» Z(KEY1-1+I);«, l3=0x27}
0x42e…440 Line {l1=0x10, l2=» BLTCHG:=TRUE«, l3=0x10}
0x440…447 Line {l1=0x05, l2=» END«, l3=0x05}
0x447…44d Line {l1=0x04, l2=»END;«, l3=0x04}
0x44d…460 00 00 3b 04 00 00 48 47 3a 3d 54 52 55 45 10 05 20 20 45 ┆ ; HG:=TRUE E┆
0x460…480 4e 44 05 04 45 4e 44 3b 04 00 00 28 42 4c 4b 2b 42 4c 4b 53 49 5a 45 2b 52 45 43 53 49 5a 45 2d ┆ND END; (BLK+BLKSIZE+RECSIZE-┆
0x480…4a0 31 2b 49 29 3b 36 10 20 20 20 20 42 4c 54 43 48 47 3a 3d 54 52 55 45 10 05 20 20 45 4e 44 05 04 ┆1+I);6 BLTCHG:=TRUE END ┆
0x4a0…4c0 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 00 ┆END; ┆
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 d7 ┆ ┆