|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »SÆTØ1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »SÆTØ1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »SÆTØ1.K«
PROCEDURE ØGNUM;
VAR BUCNUM,BLKNUM:INTEGER;
BEGIN
WITH FILEHEAD 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(BLKPEG:INTEGER);
VAR BUCNUM,BLKNUM,I:INTEGER;
BEGIN
WITH FILEHEAD DO
BEGIN
BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;
BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;
EXTRACT((BLKPEG-1)*RECSIZE+BLK,KEY1);
IF (Z(BUCNUM)=0) OR
((Z(BLKNUM)>0) AND (COMPARE(BLKNUM+1,BUCNUM+1)=0)) OR
(COMPARE(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…024 Line {l1=0x22, l2=»PROCEDURE ØGNUM; «, l3=0x22}
0x024…040 Line {l1=0x1a, l2=»VAR BUCNUM,BLKNUM:INTEGER;«, l3=0x1a}
0x040…047 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x047…05b Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x05b…064 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x064…090 Line {l1=0x2a, l2=» BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;«, l3=0x2a}
0x090…0bc Line {l1=0x2a, l2=» BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;«, l3=0x2a}
0x0bc…0d9 Line {l1=0x1b, l2=» Z(BUCNUM):=Z(BUCNUM)+1;«, l3=0x1b}
0x0d9…0f6 Line {l1=0x1b, l2=» Z(BLKNUM):=Z(BLKNUM)+1;«, l3=0x1b}
0x0f6…111 Line {l1=0x19, l2=» RECINUSE:=RECINUSE+1;«, l3=0x19}
0x111…12a Line {l1=0x17, l2=» IF Z(BLKNUM)=1 THEN«, l3=0x17}
0x12a…135 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x135…152 Line {l1=0x1b, l2=» BLKINUSE:=BLKINUSE+1;«, l3=0x1b}
0x152…182 Line {l1=0x2e, l2=» IF Z(BUCNUM)=1 THEN BUCINUSE:=BUCINUSE+1«, l3=0x2e}
0x182…18c Line {l1=0x08, l2=» END;«, l3=0x08}
0x18c…19f Line {l1=0x11, l2=» BUTCHG:=TRUE;«, l3=0x11}
0x19f…1b1 Line {l1=0x10, l2=» BLTCHG:=TRUE«, l3=0x10}
0x1b1…1b8 Line {l1=0x05, l2=» END«, l3=0x05}
0x1b8…1be Line {l1=0x04, l2=»END;«, l3=0x04}
0x1be…1c1 Line {l1=0x01, l2=» «, l3=0x01}
0x1c1…1e4 Line {l1=0x21, l2=»PROCEDURE SÆTKEY(BLKPEG:INTEGER);«, l3=0x21}
0x1e4…202 Line {l1=0x1c, l2=»VAR BUCNUM,BLKNUM,I:INTEGER;«, l3=0x1c}
0x202…209 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x209…21d Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x21d…226 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x226…252 Line {l1=0x2a, l2=» BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;«, l3=0x2a}
0x252…27e Line {l1=0x2a, l2=» BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;«, l3=0x2a}
0x27e…2a9 Line {l1=0x29, l2=» EXTRACT((BLKPEG-1)*RECSIZE+BLK,KEY1);«, l3=0x29}
0x2a9…2c2 Line {l1=0x17, l2=» IF (Z(BUCNUM)=0) OR«, l3=0x17}
0x2c2…300 Line {l1=0x3c, l2=» ((Z(BLKNUM)>0) AND (COMPARE(BLKNUM+1,BUCNUM+1)=0)) OR«, l3=0x3c}
0x300…333 Line {l1=0x31, l2=» (COMPARE(KEY1,BUCNUM+1)>0) «, l3=0x31}
0x333…363 Line {l1=0x2e, l2=» THEN «, l3=0x2e}
0x363…393 Line {l1=0x2e, l2=» BEGIN «, l3=0x2e}
0x393…3cf Line {l1=0x3a, l2=» FOR I:=1 TO KEYSIZE DO Z(BUCNUM+I):=Z(KEY1-1+I); «, l3=0x3a}
0x3cf…3ff Line {l1=0x2e, l2=» BUTCHG:=TRUE «, l3=0x2e}
0x3ff…42f Line {l1=0x2e, l2=» END; «, l3=0x2e}
0x42f…465 Line {l1=0x34, l2=» FOR I:=1 TO KEYSIZE DO Z(BLKNUM+I):=Z(KEY1-1+I);«, l3=0x34}
0x465…477 Line {l1=0x10, l2=» BLTCHG:=TRUE«, l3=0x10}
0x477…47e Line {l1=0x05, l2=» END«, l3=0x05}
0x47e…484 Line {l1=0x04, l2=»END;«, l3=0x04}
0x484…4a0 00 00 04 45 4e 44 3b 04 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ END; cccccccccccccccccc┆
0x4a0…4c0 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┆
[…0x29…]