|
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«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »SÆTØG.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »SÆTØG.K«
(*$P*)
PROCEDURE ØGNUM;
VAR BUCNUM,BLKNUM:INTEGER;
BEGIN
WITH FILEHEAD(CURRHEAD) 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(CURRHEAD) 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…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…02c Line {l1=0x22, l2=»PROCEDURE ØGNUM; «, l3=0x22}
0x02c…048 Line {l1=0x1a, l2=»VAR BUCNUM,BLKNUM:INTEGER;«, l3=0x1a}
0x048…04f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04f…06d Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x06d…076 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x076…0a2 Line {l1=0x2a, l2=» BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;«, l3=0x2a}
0x0a2…0ce Line {l1=0x2a, l2=» BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;«, l3=0x2a}
0x0ce…0eb Line {l1=0x1b, l2=» Z(BUCNUM):=Z(BUCNUM)+1;«, l3=0x1b}
0x0eb…108 Line {l1=0x1b, l2=» Z(BLKNUM):=Z(BLKNUM)+1;«, l3=0x1b}
0x108…123 Line {l1=0x19, l2=» RECINUSE:=RECINUSE+1;«, l3=0x19}
0x123…13c Line {l1=0x17, l2=» IF Z(BLKNUM)=1 THEN«, l3=0x17}
0x13c…147 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x147…164 Line {l1=0x1b, l2=» BLKINUSE:=BLKINUSE+1;«, l3=0x1b}
0x164…194 Line {l1=0x2e, l2=» IF Z(BUCNUM)=1 THEN BUCINUSE:=BUCINUSE+1«, l3=0x2e}
0x194…19e Line {l1=0x08, l2=» END;«, l3=0x08}
0x19e…1b1 Line {l1=0x11, l2=» BUTCHG:=TRUE;«, l3=0x11}
0x1b1…1c3 Line {l1=0x10, l2=» BLTCHG:=TRUE«, l3=0x10}
0x1c3…1ca Line {l1=0x05, l2=» END«, l3=0x05}
0x1ca…1d0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d0…1d3 Line {l1=0x01, l2=» «, l3=0x01}
0x1d3…1f6 Line {l1=0x21, l2=»PROCEDURE SÆTKEY(BLKPEG:INTEGER);«, l3=0x21}
0x1f6…214 Line {l1=0x1c, l2=»VAR BUCNUM,BLKNUM,I:INTEGER;«, l3=0x1c}
0x214…21b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x21b…239 Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x239…242 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x242…26e Line {l1=0x2a, l2=» BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;«, l3=0x2a}
0x26e…29a Line {l1=0x2a, l2=» BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;«, l3=0x2a}
0x29a…2c5 Line {l1=0x29, l2=» EXTRACT((BLKPEG-1)*RECSIZE+BLK,KEY1);«, l3=0x29}
0x2c5…2de Line {l1=0x17, l2=» IF (Z(BUCNUM)=0) OR«, l3=0x17}
0x2de…31c Line {l1=0x3c, l2=» ((Z(BLKNUM)>0) AND (COMPARE(BLKNUM+1,BUCNUM+1)=0)) OR«, l3=0x3c}
0x31c…34f Line {l1=0x31, l2=» (COMPARE(KEY1,BUCNUM+1)>0) «, l3=0x31}
0x34f…37f Line {l1=0x2e, l2=» THEN «, l3=0x2e}
0x37f…3af Line {l1=0x2e, l2=» BEGIN «, l3=0x2e}
0x3af…3eb Line {l1=0x3a, l2=» FOR I:=1 TO KEYSIZE DO Z(BUCNUM+I):=Z(KEY1-1+I); «, l3=0x3a}
0x3eb…41b Line {l1=0x2e, l2=» BUTCHG:=TRUE «, l3=0x2e}
0x41b…44b Line {l1=0x2e, l2=» END; «, l3=0x2e}
0x44b…481 Line {l1=0x34, l2=» FOR I:=1 TO KEYSIZE DO Z(BLKNUM+I):=Z(KEY1-1+I);«, l3=0x34}
0x481…493 Line {l1=0x10, l2=» BLTCHG:=TRUE«, l3=0x10}
0x493…49a Line {l1=0x05, l2=» END«, l3=0x05}
0x49a…4a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4a0…4c0 00 00 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 ┆ D; ┆
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┆