|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »INSER1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »INSER1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »INSER1.K«
(*$P*)
PROCEDURE INSERT;
VAR I,K:INTEGER;
PROCEDURE SKAFENTOM;
VAR TOMBUC,TOMBLK,TOMADR,CURRBUC:INTEGER;
PROCEDURE COPYKEY(TIL,FRA,SIZE:INTEGER);
VAR I:INTEGER;
BEGIN
I:=TIL+SIZE;
REPEAT
Z(TIL):=Z(FRA);
TIL:=TIL+1;
FRA:=FRA+1
UNTIL TIL=I
END;
PROCEDURE FORSKYD(FULD,TOM,BLTSTART:INTEGER);
VAR INCR:INTEGER;
BEGIN
IF TOM>FULD THEN INCR:=-1 ELSE INCR:=1;
WHILE TOM<>FULD DO
BEGIN
WITH FILEHEAD DO
COPYKEY(BLTSTART+(TOM-1)*ENTRYSIZE,
BLTSTART+(TOM+INCR-1)*ENTRYSIZE,ENTRYSIZE);
TOM:=TOM+INCR
END
END;
FUNCTION IBLTADR:INTEGER;
BEGIN
WITH FILEHEAD DO
IBLTADR:=BUT+(CURRBUC-1)*ENTRYSIZE
END;
PROCEDURE TOMENTRY(ADR:INTEGER);
BEGIN
Z(ADR):=TOMADR;
Z(ADR+1):=0
END;
(*$P*)
BEGIN (*SKAFENTOM*)
WITH FILEHEAD DO
IF BLKINUSE<NBLK THEN (*DER FINDES TOMME BLOKKE*)
BEGIN
TOMBUC:=0;
IF Z(BUT+1+(BUCINZONE-1)*ENTRYSIZE)<=RECPRBUC-RECPRBLK THEN
BEGIN (*DER ER CHANCE FOR EN TOM BLOK I DENNE BUCKET*)
TOMBLK:=1;
WHILE TOMBUC=0 DO (*SØG FREMAD*)
IF TOMBLK>BLKPRBUC THEN
TOMBUC:=-1 (*IKKE FUNDET*)
ELSE
IF Z(BLT+1+(TOMBLK-1)*ENTRYSIZE)=0 THEN
BEGIN (*FUNDET*)
TOMBUC:=BUCINZONE;
TOMADR:=Z(BLT+(TOMBLK-1)*ENTRYSIZE);
IF TOMBLK<BLKINZONE THEN BLKINZONE:=BLKINZONE-1;
FORSKYD(BLKINZONE+1,TOMBLK,BLT);
TOMENTRY(BLT+BLKINZONE*ENTRYSIZE)
END
ELSE TOMBLK:=TOMBLK+1 (*IKKE FUNDET ENDNU*)
END;
(*IKKE FUNDET ENDNU OG PLADS TIL EKSTRA BLOKTABEL*)
IF (TOMBUC<=0) AND (BLTSIZE+ENTRYSIZE<=HELPBLT) THEN
BEGIN (*DER SKAL OG KAN LEDES I ANDRE BUCKETS*)
CURRBUC:=BUCINZONE+1;
TOMBUC:=0;
WHILE TOMBUC=0 DO
BEGIN
IF CURRBUC<1 THEN CURRBUC:=2*BUCINZONE+1-CURRBUC;
IF CURRBUC>NBUC THEN CURRBUC:=2*BUCINZONE-CURRBUC;
IF CURRBUC>0 THEN
BEGIN
IF Z(IBLTADR+1)<=RECPRBUC-RECPRBLK THEN
BEGIN (*MULIGHED FOR TOM BLOK I CURRBUC*)
COPSEGS(Z(IBLTADR),BLTSIZE,1,LÆS);
TOMBLK:=1;
WHILE TOMBUC=0 DO
IF TOMBLK>BLKPRBUC THEN
TOMBUC:=-1
ELSE
IF Z(2+(TOMBLK-1)*ENTRYSIZE)=0 THEN
TOMBUC:=CURRBUC
ELSE
TOMBLK:=TOMBLK+1
END;
IF TOMBUC<=0 THEN
BEGIN (*IKKE PLADS I CURRBUC*)
IF CURRBUC>BUCINZONE THEN
CURRBUC:=2*BUCINZONE-CURRBUC
ELSE
CURRBUC:=2*BUCINZONE+1-CURRBUC;
TOMBUC:=0
END
ELSE
TOMADR:=Z(1+(TOMBLK-1)*ENTRYSIZE)
END
ELSE
BEGIN
IER:=-106;
EXIT(OBEY)
END
END;
(*NU ER TOMBUC,TOMBLK,TOMADR IORDEN, OG BLOKTABELLEN MED PLADS I ER INDLÆST*)
IF TOMBUC>BUCINZONE THEN
BEGIN
IF BLKINZONE=BLKPRBUC THEN
(*INDSÆT TOM BLOK I STARTEN AF NÆSTE BUCKET*)
TOMENTRY(1)
ELSE
BEGIN
(*FLYT SIDSTE BLOK TIL STARTEN AF NÆSTE BUCKET*)
COPYKEY(1,BLT+(BLKPRBUC-1)*ENTRYSIZE,ENTRYSIZE);
(*ÅBEN ET HUL I BLOKTABELLEN*)
FORSKYD(BLKINZONE+1,BLKPRBUC,BLT);
(*INDSÆT TOM BLOK I DETTE HUL*)
TOMENTRY(BLT+BLKINZONE*ENTRYSIZE);
(*TÆL BUCKETS NUM NED MED NUM FRA DEN FJERNEDE BLOK*)
Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=
Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-Z(2);
(*SÆT BUCKETS KEY=NY SIDSTE BLOKS KEY*)
IF BLKINZONE+1<BLKPRBUC THEN
COPYKEY(BUT+(BUCINZONE-1)*ENTRYSIZE+2,
BLT+(BLKPRBUC-1)*ENTRYSIZE+2,KEYSIZE)
ELSE
COPYKEY(BUT+(BUCINZONE-1)*ENTRYSIZE+2,
BLT+(BLKPRBUC-2)*ENTRYSIZE+2,KEYSIZE)
END;
CURRBUC:=BUCINZONE;
REPEAT
CURRBUC:=CURRBUC+1;
(*INDLÆS NÆSTE BLOKTABEL FORSKUDT ET ENTRY*)
COPSEGS(Z(IBLTADR),BLTSIZE,1+ENTRYSIZE,LÆS);
IF CURRBUC<TOMBUC THEN
BEGIN
(*UDSKRIV BLOKTABEL FORSKUDT ET ENTRY TILBAGE*)
COPSEGS(Z(IBLTADR),BLTSIZE,1,SKRIV);
(*KORRIGER NUM MED DEN INDSKUDTE BLOK - DEN UDSKUDTE BLOK*)
Z(IBLTADR+1):=Z(IBLTADR+1)+Z(2)-Z(2+BLTSIZE);
(*SÆT BUCKETS KEY=NY SIDSTE BLOKS KEY*)
COPYKEY(IBLTADR+2,(BLKPRBUC-1)*ENTRYSIZE+3,KEYSIZE);
COPYKEY(1,BLTSIZE+1,ENTRYSIZE)
END
UNTIL CURRBUC=TOMBUC;
(*BUCKET MED TOM BLOK ER NU INDLÆST*)
FORSKYD(BLKPRBUC+1,TOMBLK+1,1);(*FJERN DEN FUNDNE TOMME BLOK*)
IF (Z(IBLTADR+1)=0) AND (Z(2)>0) THEN
BEGIN (*FORSKYD IND I TOM BUCKET*)
BUCINUSE:=BUCINUSE+1;
(*SÆT BUCKETS NUM,KEY=NY BLOKS NUM,KEY*)
COPYKEY(IBLTADR+1,2,KEYSIZE+1)
END
ELSE (*OPTÆL BUCKETS NUM MED INDSKUDT BLOK*)
Z(IBLTADR+1):=Z(IBLTADR+1)+Z(2);
COPSEGS(Z(IBLTADR),BLTSIZE,1,SKRIV)
END
ELSE
BEGIN
(*TOMBUC<BUCINZONE*)
IF BLKINZONE=1 THEN
(*INDSÆT TOM BLOK SIDST I FORRIGE BUCKET*)
TOMENTRY(BLTSIZE+1)
ELSE
BEGIN
(*FLYT FØRSTE BLOK TIL SIDST I FORRIGE BUCKET*)
COPYKEY(1+BLKPRBUC*ENTRYSIZE,BLT,ENTRYSIZE);
(*ÅBEN ET HUL I BLOKTABELLEN*)
FORSKYD(BLKINZONE-1,1,BLT);
(*INDSÆT TOM BLOK I DETTE HUL*)
TOMENTRY(BLT+(BLKINZONE-2)*ENTRYSIZE);
(*TÆL BUCKETS NUM NED MED NUM FRA DEN FJERNEDE BLOK*)
Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=
Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-Z(BLTSIZE+2)
END;
CURRBUC:=BUCINZONE;
REPEAT
CURRBUC:=CURRBUC-1;
(*INDLÆS NÆSTE BLOKTABEL ET ENTRY*)
COPSEGS(Z(IBLTADR),BLTSIZE,1,LÆS);
IF CURRBUC>TOMBUC THEN
BEGIN
(*UDSKRIV BLOKTABEL FORSKUDT ET ENTRY FREMAD*)
COPSEGS(Z(IBLTADR),BLTSIZE,1+ENTRYSIZE,SKRIV);
(*KORRIGER NUM MED DEN INDSKUDTE BLOK - DEN UDSKUDTE BLOK*)
Z(IBLTADR+1):=Z(IBLTADR+1)-Z(2)+Z(2+BLTSIZE);
(*SÆT BUCKETS KEY=NY SIDSTE BLOKS KEY, HVIS DER ER NOGET I DEN*)
IF Z(2+BLTSIZE)>0 THEN
COPYKEY(IBLTADR+2,BLTSIZE+3,KEYSIZE);
COPYKEY(BLTSIZE+1,1,ENTRYSIZE)
END
UNTIL CURRBUC=TOMBUC;
(*BUCKET MED TOM BLOK ER NU INDLÆST*)
FORSKYD(BLKPRBUC+1,TOMBLK,1);(*FJERN DEN FUNDNE TOMME BLOK*)
IF Z((BLKPRBUC-1)*ENTRYSIZE+2)>0 THEN
BEGIN
IF Z(IBLTADR+1)=0 THEN BUCINUSE:=BUCINUSE+1;
(*SÆT BUCKETS KEY=NY BLOKS KEY*)
COPYKEY(IBLTADR+2,(BLKPRBUC-1)*ENTRYSIZE+3,KEYSIZE);
(*OPTÆL BUCKETS NUM MED INDSKUDT BLOK*)
Z(IBLTADR+1):=Z(IBLTADR+1)+Z((BLKPRBUC-1)*ENTRYSIZE+2)
END;
COPSEGS(Z(IBLTADR),BLTSIZE,1,SKRIV)
END
END
END
END;
(*$P*)
BEGIN (*INSERT*)
WITH FILEHEAD DO
IF FILEOPEN THEN
IF NOT FILEINIT THEN
BEGIN
IER:=0;
IF INITREC=0 THEN BEGIN IER:=-10; EXIT(INSERT) END;
IF RECINUSE>0 THEN
BEGIN
EXTRACT(BLK+(BLKENTRY-1)*RECSIZE,KEY1);
REXTRACT(KEY2);
IF COMPARE(KEY1,KEY2)>=0
THEN BEGIN IER:=-11;EXIT(INSERT) END
END;
K:=RECINUSE MOD IRPRBUC;
I:=RECINUSE DIV IRPRBUC+1;
READTABLE(I);
I:=K DIV IRPRBLK+1;
READBLOCK(I,1);
BLKENTRY:= K MOD IRPRBLK+1;
K:=BLK+(BLKENTRY-1)*RECSIZE;
MOVELEFT(REC^(1),Z(K),2*RECSIZE);
(* FOR I:=1 TO RECSIZE DO Z(K+I):=REC^(I); *)
SÆTKEY(BLKENTRY);
ØGNUM;
BLKCHG:=TRUE;
IF RECINUSE=INITREC THEN FILEINIT:=TRUE
END
ELSE
IF RECINUSE<NREC THEN
BEGIN
FINDPOST;
IF IER=-1 THEN
BEGIN
IF (Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)=RECPRBLK) AND
((Z(BLT+BLKINZONE*ENTRYSIZE+1)=RECPRBLK) OR (BLKINZONE=BLKPRBUC)) AND
((Z(BLT+(BLKINZONE-2)*ENTRYSIZE+1)=RECPRBLK) OR (BLKINZONE=1)) THEN
SKAFENTOM;
IER:=0;
IF BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1) THEN
FSKDIBLK(BLKENTRY);
K:=BLK+(BLKENTRY-1)*RECSIZE;
MOVELEFT(REC^(1),Z(K),2*RECSIZE);
(* FOR I:=1 TO RECSIZE DO Z(K+I):=REC^(I);*)
BLKCHG:=TRUE;
IF Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)=RECPRBLK THEN
FSKDUBLK
ELSE
IF BLKENTRY=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)+1 THEN SÆTKEY(BLKENTRY);
ØGNUM
END
ELSE IF IER=0 THEN IER:=-7
END
ELSE IER:=-8 ELSE IER:=-3
END;
0x0000…0008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0008…001b Line {l1=0x11, l2=»PROCEDURE INSERT;«, l3=0x11}
0x001b…002d Line {l1=0x10, l2=»VAR I,K:INTEGER;«, l3=0x10}
0x002d…0030 Line {l1=0x01, l2=» «, l3=0x01}
0x0030…0046 Line {l1=0x14, l2=»PROCEDURE SKAFENTOM;«, l3=0x14}
0x0046…0071 Line {l1=0x29, l2=»VAR TOMBUC,TOMBLK,TOMADR,CURRBUC:INTEGER;«, l3=0x29}
0x0071…0074 Line {l1=0x01, l2=» «, l3=0x01}
0x0074…009e Line {l1=0x28, l2=»PROCEDURE COPYKEY(TIL,FRA,SIZE:INTEGER);«, l3=0x28}
0x009e…00ae Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x00ae…00b5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00b5…00c5 Line {l1=0x0e, l2=» I:=TIL+SIZE;«, l3=0x0e}
0x00c5…00cf Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x00cf…00e4 Line {l1=0x13, l2=» Z(TIL):=Z(FRA);«, l3=0x13}
0x00e4…00f5 Line {l1=0x0f, l2=» TIL:=TIL+1;«, l3=0x0f}
0x00f5…0105 Line {l1=0x0e, l2=» FRA:=FRA+1«, l3=0x0e}
0x0105…0114 Line {l1=0x0d, l2=» UNTIL TIL=I«, l3=0x0d}
0x0114…011a Line {l1=0x04, l2=»END;«, l3=0x04}
0x011a…011d Line {l1=0x01, l2=» «, l3=0x01}
0x011d…014c Line {l1=0x2d, l2=»PROCEDURE FORSKYD(FULD,TOM,BLTSTART:INTEGER);«, l3=0x2d}
0x014c…015f Line {l1=0x11, l2=»VAR INCR:INTEGER;«, l3=0x11}
0x015f…0166 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0166…0191 Line {l1=0x29, l2=» IF TOM>FULD THEN INCR:=-1 ELSE INCR:=1;«, l3=0x29}
0x0191…01a7 Line {l1=0x14, l2=» WHILE TOM<>FULD DO«, l3=0x14}
0x01a7…01b0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x01b0…01c6 Line {l1=0x14, l2=» WITH FILEHEAD DO«, l3=0x14}
0x01c6…01ef Line {l1=0x27, l2=» COPYKEY(BLTSTART+(TOM-1)*ENTRYSIZE,«, l3=0x27}
0x01ef…0228 Line {l1=0x37, l2=» BLTSTART+(TOM+INCR-1)*ENTRYSIZE,ENTRYSIZE);«, l3=0x37}
0x0228…023b Line {l1=0x11, l2=» TOM:=TOM+INCR«, l3=0x11}
0x023b…0242 Line {l1=0x05, l2=» END«, l3=0x05}
0x0242…0248 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0248…024b Line {l1=0x01, l2=» «, l3=0x01}
0x024b…0266 Line {l1=0x19, l2=»FUNCTION IBLTADR:INTEGER;«, l3=0x19}
0x0266…026d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x026d…0281 Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x0281…02a7 Line {l1=0x24, l2=» IBLTADR:=BUT+(CURRBUC-1)*ENTRYSIZE«, l3=0x24}
0x02a7…02ad Line {l1=0x04, l2=»END;«, l3=0x04}
0x02ad…02b0 Line {l1=0x01, l2=» «, l3=0x01}
0x02b0…02d2 Line {l1=0x20, l2=»PROCEDURE TOMENTRY(ADR:INTEGER);«, l3=0x20}
0x02d2…02d9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x02d9…02ec Line {l1=0x11, l2=» Z(ADR):=TOMADR;«, l3=0x11}
0x02ec…02fb Line {l1=0x0d, l2=» Z(ADR+1):=0«, l3=0x0d}
0x02fb…0301 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0301…0309 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0309…031e Line {l1=0x13, l2=»BEGIN (*SKAFENTOM*)«, l3=0x13}
0x031e…0332 Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x0332…036f Line {l1=0x3b, l2=» IF BLKINUSE<NBLK THEN (*DER FINDES TOMME BLOKKE*)«, l3=0x3b}
0x036f…0378 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0378…0388 Line {l1=0x0e, l2=» TOMBUC:=0;«, l3=0x0e}
0x0388…03c9 Line {l1=0x3f, l2=» IF Z(BUT+1+(BUCINZONE-1)*ENTRYSIZE)<=RECPRBUC-RECPRBLK THEN«, l3=0x3f}
0x03c9…0405 Line {l1=0x3a, l2=» BEGIN (*DER ER CHANCE FOR EN TOM BLOK I DENNE BUCKET*)«, l3=0x3a}
0x0405…0417 Line {l1=0x10, l2=» TOMBLK:=1;«, l3=0x10}
0x0417…0447 Line {l1=0x2e, l2=» WHILE TOMBUC=0 DO (*SØG FREMAD*)«, l3=0x2e}
0x0447…0466 Line {l1=0x1d, l2=» IF TOMBLK>BLKPRBUC THEN«, l3=0x1d}
0x0466…0497 Line {l1=0x2f, l2=» TOMBUC:=-1 (*IKKE FUNDET*)«, l3=0x2f}
0x0497…04a3 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x04a3…04d2 Line {l1=0x2d, l2=» IF Z(BLT+1+(TOMBLK-1)*ENTRYSIZE)=0 THEN«, l3=0x2d}
0x04d2…04fe Line {l1=0x2a, l2=» BEGIN (*FUNDET*)«, l3=0x2a}
0x04fe…051a Line {l1=0x1a, l2=» TOMBUC:=BUCINZONE;«, l3=0x1a}
0x051a…0548 Line {l1=0x2c, l2=» TOMADR:=Z(BLT+(TOMBLK-1)*ENTRYSIZE);«, l3=0x2c}
0x0548…0582 Line {l1=0x38, l2=» IF TOMBLK<BLKINZONE THEN BLKINZONE:=BLKINZONE-1;«, l3=0x38}
0x0582…05ac Line {l1=0x28, l2=» FORSKYD(BLKINZONE+1,TOMBLK,BLT);«, l3=0x28}
0x05ac…05d7 Line {l1=0x29, l2=» TOMENTRY(BLT+BLKINZONE*ENTRYSIZE)«, l3=0x29}
0x05d7…05e2 Line {l1=0x09, l2=» END«, l3=0x09}
0x05e2…0619 Line {l1=0x35, l2=» ELSE TOMBLK:=TOMBLK+1 (*IKKE FUNDET ENDNU*)«, l3=0x35}
0x0619…0623 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0623…065e Line {l1=0x39, l2=» (*IKKE FUNDET ENDNU OG PLADS TIL EKSTRA BLOKTABEL*)«, l3=0x39}
0x065e…0698 Line {l1=0x38, l2=» IF (TOMBUC<=0) AND (BLTSIZE+ENTRYSIZE<=HELPBLT) THEN«, l3=0x38}
0x0698…06e3 Line {l1=0x49, l2=» BEGIN (*DER SKAL OG KAN LEDES I ANDRE BUCKETS*)«, l3=0x49}
0x06e3…0700 Line {l1=0x1b, l2=» CURRBUC:=BUCINZONE+1;«, l3=0x1b}
0x0700…0712 Line {l1=0x10, l2=» TOMBUC:=0;«, l3=0x10}
0x0712…072b Line {l1=0x17, l2=» WHILE TOMBUC=0 DO«, l3=0x17}
0x072b…0738 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0738…0773 Line {l1=0x39, l2=» IF CURRBUC<1 THEN CURRBUC:=2*BUCINZONE+1-CURRBUC;«, l3=0x39}
0x0773…07af Line {l1=0x3a, l2=» IF CURRBUC>NBUC THEN CURRBUC:=2*BUCINZONE-CURRBUC;«, l3=0x3a}
0x07af…07ca Line {l1=0x19, l2=» IF CURRBUC>0 THEN«, l3=0x19}
0x07ca…07d9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x07d9…080c Line {l1=0x31, l2=» IF Z(IBLTADR+1)<=RECPRBUC-RECPRBLK THEN«, l3=0x31}
0x080c…0851 Line {l1=0x43, l2=» BEGIN (*MULIGHED FOR TOM BLOK I CURRBUC*)«, l3=0x43}
0x0851…0881 Line {l1=0x2e, l2=» COPSEGS(Z(IBLTADR),BLTSIZE,1,LÆS);«, l3=0x2e}
0x0881…0899 Line {l1=0x16, l2=» TOMBLK:=1;«, l3=0x16}
0x0899…08b8 Line {l1=0x1d, l2=» WHILE TOMBUC=0 DO«, l3=0x1d}
0x08b8…08dd Line {l1=0x23, l2=» IF TOMBLK>BLKPRBUC THEN«, l3=0x23}
0x08dd…08f7 Line {l1=0x18, l2=» TOMBUC:=-1«, l3=0x18}
0x08f7…0909 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x0909…093a Line {l1=0x2f, l2=» IF Z(2+(TOMBLK-1)*ENTRYSIZE)=0 THEN«, l3=0x2f}
0x093a…0959 Line {l1=0x1d, l2=» TOMBUC:=CURRBUC«, l3=0x1d}
0x0959…096b Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x096b…098b Line {l1=0x1e, l2=» TOMBLK:=TOMBLK+1«, l3=0x1e}
0x098b…099b Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x099b…09b8 Line {l1=0x1b, l2=» IF TOMBUC<=0 THEN«, l3=0x1b}
0x09b8…09f2 Line {l1=0x38, l2=» BEGIN (*IKKE PLADS I CURRBUC*)«, l3=0x38}
0x09f2…0a19 Line {l1=0x25, l2=» IF CURRBUC>BUCINZONE THEN«, l3=0x25}
0x0a19…0a45 Line {l1=0x2a, l2=» CURRBUC:=2*BUCINZONE-CURRBUC«, l3=0x2a}
0x0a45…0a57 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x0a57…0a86 Line {l1=0x2d, l2=» CURRBUC:=2*BUCINZONE+1-CURRBUC;«, l3=0x2d}
0x0a86…0a9d Line {l1=0x15, l2=» TOMBUC:=0«, l3=0x15}
0x0a9d…0aac Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0aac…0abc Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x0abc…0aeb Line {l1=0x2d, l2=» TOMADR:=Z(1+(TOMBLK-1)*ENTRYSIZE)«, l3=0x2d}
0x0aeb…0af8 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0af8…0b06 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0b06…0b15 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b15…0b2b Line {l1=0x14, l2=» IER:=-106;«, l3=0x14}
0x0b2b…0b41 Line {l1=0x14, l2=» EXIT(OBEY)«, l3=0x14}
0x0b41…0b4e Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0b4e…0b5a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0b5a…0baa Line {l1=0x4e, l2=» (*NU ER TOMBUC,TOMBLK,TOMADR IORDEN, OG BLOKTABELLEN MED PLADS I ER INDLÆST*)«, l3=0x4e}
0x0baa…0bca Line {l1=0x1e, l2=» IF TOMBUC>BUCINZONE THEN«, l3=0x1e}
0x0bca…0bd7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0bd7…0bfb Line {l1=0x22, l2=» IF BLKINZONE=BLKPRBUC THEN«, l3=0x22}
0x0bfb…0c34 Line {l1=0x37, l2=» (*INDSÆT TOM BLOK I STARTEN AF NÆSTE BUCKET*)«, l3=0x37}
0x0c34…0c4b Line {l1=0x15, l2=» TOMENTRY(1)«, l3=0x15}
0x0c4b…0c59 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0c59…0c68 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0c68…0ca4 Line {l1=0x3a, l2=» (*FLYT SIDSTE BLOK TIL STARTEN AF NÆSTE BUCKET*)«, l3=0x3a}
0x0ca4…0ce0 Line {l1=0x3a, l2=» COPYKEY(1,BLT+(BLKPRBUC-1)*ENTRYSIZE,ENTRYSIZE);«, l3=0x3a}
0x0ce0…0d0a Line {l1=0x28, l2=» (*ÅBEN ET HUL I BLOKTABELLEN*)«, l3=0x28}
0x0d0a…0d38 Line {l1=0x2c, l2=» FORSKYD(BLKINZONE+1,BLKPRBUC,BLT);«, l3=0x2c}
0x0d38…0d63 Line {l1=0x29, l2=» (*INDSÆT TOM BLOK I DETTE HUL*)«, l3=0x29}
0x0d63…0d91 Line {l1=0x2c, l2=» TOMENTRY(BLT+BLKINZONE*ENTRYSIZE);«, l3=0x2c}
0x0d91…0dd2 Line {l1=0x3f, l2=» (*TÆL BUCKETS NUM NED MED NUM FRA DEN FJERNEDE BLOK*)«, l3=0x3f}
0x0dd2…0e00 Line {l1=0x2c, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=«, l3=0x2c}
0x0e00…0e46 Line {l1=0x44, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-Z(2);«, l3=0x44}
0x0e46…0e79 Line {l1=0x31, l2=» (*SÆT BUCKETS KEY=NY SIDSTE BLOKS KEY*)«, l3=0x31}
0x0e79…0ea1 Line {l1=0x26, l2=» IF BLKINZONE+1<BLKPRBUC THEN«, l3=0x26}
0x0ea1…0ed5 Line {l1=0x32, l2=» COPYKEY(BUT+(BUCINZONE-1)*ENTRYSIZE+2,«, l3=0x32}
0x0ed5…0f10 Line {l1=0x39, l2=» BLT+(BLKPRBUC-1)*ENTRYSIZE+2,KEYSIZE)«, l3=0x39}
0x0f10…0f20 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x0f20…0f54 Line {l1=0x32, l2=» COPYKEY(BUT+(BUCINZONE-1)*ENTRYSIZE+2,«, l3=0x32}
0x0f54…0f8f Line {l1=0x39, l2=» BLT+(BLKPRBUC-2)*ENTRYSIZE+2,KEYSIZE)«, l3=0x39}
0x0f8f…0f9d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0f9d…0fba Line {l1=0x1b, l2=» CURRBUC:=BUCINZONE;«, l3=0x1b}
0x0fba…0fca Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0fca…0fe9 Line {l1=0x1d, l2=» CURRBUC:=CURRBUC+1;«, l3=0x1d}
0x0fe9…1021 Line {l1=0x36, l2=» (*INDLÆS NÆSTE BLOKTABEL FORSKUDT ET ENTRY*)«, l3=0x36}
0x1021…1059 Line {l1=0x36, l2=» COPSEGS(Z(IBLTADR),BLTSIZE,1+ENTRYSIZE,LÆS);«, l3=0x36}
0x1059…107b Line {l1=0x20, l2=» IF CURRBUC<TOMBUC THEN«, l3=0x20}
0x107b…108c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x108c…10c9 Line {l1=0x3b, l2=» (*UDSKRIV BLOKTABEL FORSKUDT ET ENTRY TILBAGE*)«, l3=0x3b}
0x10c9…10fb Line {l1=0x30, l2=» COPSEGS(Z(IBLTADR),BLTSIZE,1,SKRIV);«, l3=0x30}
0x10fb…1144 Line {l1=0x47, l2=» (*KORRIGER NUM MED DEN INDSKUDTE BLOK - DEN UDSKUDTE BLOK*)«, l3=0x47}
0x1144…117f Line {l1=0x39, l2=» Z(IBLTADR+1):=Z(IBLTADR+1)+Z(2)-Z(2+BLTSIZE);«, l3=0x39}
0x117f…11b4 Line {l1=0x33, l2=» (*SÆT BUCKETS KEY=NY SIDSTE BLOKS KEY*)«, l3=0x33}
0x11b4…11f6 Line {l1=0x40, l2=» COPYKEY(IBLTADR+2,(BLKPRBUC-1)*ENTRYSIZE+3,KEYSIZE);«, l3=0x40}
0x11f6…1222 Line {l1=0x2a, l2=» COPYKEY(1,BLTSIZE+1,ENTRYSIZE)«, l3=0x2a}
0x1222…1231 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1231…1250 Line {l1=0x1d, l2=» UNTIL CURRBUC=TOMBUC;«, l3=0x1d}
0x1250…127f Line {l1=0x2d, l2=» (*BUCKET MED TOM BLOK ER NU INDLÆST*)«, l3=0x2d}
0x127f…12c7 Line {l1=0x46, l2=» FORSKYD(BLKPRBUC+1,TOMBLK+1,1);(*FJERN DEN FUNDNE TOMME BLOK*)«, l3=0x46}
0x12c7…12f6 Line {l1=0x2d, l2=» IF (Z(IBLTADR+1)=0) AND (Z(2)>0) THEN«, l3=0x2d}
0x12f6…1334 Line {l1=0x3c, l2=» BEGIN (*FORSKYD IND I TOM BUCKET*)«, l3=0x3c}
0x1334…1355 Line {l1=0x1f, l2=» BUCINUSE:=BUCINUSE+1;«, l3=0x1f}
0x1355…1389 Line {l1=0x32, l2=» (*SÆT BUCKETS NUM,KEY=NY BLOKS NUM,KEY*)«, l3=0x32}
0x1389…13b4 Line {l1=0x29, l2=» COPYKEY(IBLTADR+1,2,KEYSIZE+1) «, l3=0x29}
0x13b4…13c1 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x13c1…140a Line {l1=0x47, l2=» ELSE (*OPTÆL BUCKETS NUM MED INDSKUDT BLOK*)«, l3=0x47}
0x140a…1436 Line {l1=0x2a, l2=» Z(IBLTADR+1):=Z(IBLTADR+1)+Z(2);«, l3=0x2a}
0x1436…1463 Line {l1=0x2b, l2=» COPSEGS(Z(IBLTADR),BLTSIZE,1,SKRIV)«, l3=0x2b}
0x1463…146e Line {l1=0x09, l2=» END«, l3=0x09}
0x146e…147a Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x147a…1487 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1487…14a5 Line {l1=0x1c, l2=» (*TOMBUC<BUCINZONE*)«, l3=0x1c}
0x14a5…14c2 Line {l1=0x1b, l2=» IF BLKINZONE=1 THEN«, l3=0x1b}
0x14c2…14f8 Line {l1=0x34, l2=» (*INDSÆT TOM BLOK SIDST I FORRIGE BUCKET*)«, l3=0x34}
0x14f8…1517 Line {l1=0x1d, l2=» TOMENTRY(BLTSIZE+1)«, l3=0x1d}
0x1517…1525 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1525…1534 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1534…156f Line {l1=0x39, l2=» (*FLYT FØRSTE BLOK TIL SIDST I FORRIGE BUCKET*)«, l3=0x39}
0x156f…15a7 Line {l1=0x36, l2=» COPYKEY(1+BLKPRBUC*ENTRYSIZE,BLT,ENTRYSIZE);«, l3=0x36}
0x15a7…15d1 Line {l1=0x28, l2=» (*ÅBEN ET HUL I BLOKTABELLEN*)«, l3=0x28}
0x15d1…15f8 Line {l1=0x25, l2=» FORSKYD(BLKINZONE-1,1,BLT);«, l3=0x25}
0x15f8…1623 Line {l1=0x29, l2=» (*INDSÆT TOM BLOK I DETTE HUL*)«, l3=0x29}
0x1623…1655 Line {l1=0x30, l2=» TOMENTRY(BLT+(BLKINZONE-2)*ENTRYSIZE);«, l3=0x30}
0x1655…1696 Line {l1=0x3f, l2=» (*TÆL BUCKETS NUM NED MED NUM FRA DEN FJERNEDE BLOK*)«, l3=0x3f}
0x1696…16c4 Line {l1=0x2c, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=«, l3=0x2c}
0x16c4…1706 Line {l1=0x40, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-Z(BLTSIZE+2) «, l3=0x40}
0x1706…1714 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1714…1731 Line {l1=0x1b, l2=» CURRBUC:=BUCINZONE;«, l3=0x1b}
0x1731…1741 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1741…1760 Line {l1=0x1d, l2=» CURRBUC:=CURRBUC-1;«, l3=0x1d}
0x1760…178f Line {l1=0x2d, l2=» (*INDLÆS NÆSTE BLOKTABEL ET ENTRY*)«, l3=0x2d}
0x178f…17bd Line {l1=0x2c, l2=» COPSEGS(Z(IBLTADR),BLTSIZE,1,LÆS);«, l3=0x2c}
0x17bd…17df Line {l1=0x20, l2=» IF CURRBUC>TOMBUC THEN«, l3=0x20}
0x17df…17f0 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x17f0…182c Line {l1=0x3a, l2=» (*UDSKRIV BLOKTABEL FORSKUDT ET ENTRY FREMAD*)«, l3=0x3a}
0x182c…1868 Line {l1=0x3a, l2=» COPSEGS(Z(IBLTADR),BLTSIZE,1+ENTRYSIZE,SKRIV);«, l3=0x3a}
0x1868…18b1 Line {l1=0x47, l2=» (*KORRIGER NUM MED DEN INDSKUDTE BLOK - DEN UDSKUDTE BLOK*)«, l3=0x47}
0x18b1…18ec Line {l1=0x39, l2=» Z(IBLTADR+1):=Z(IBLTADR+1)-Z(2)+Z(2+BLTSIZE);«, l3=0x39}
0x18ec…193a Line {l1=0x4c, l2=» (*SÆT BUCKETS KEY=NY SIDSTE BLOKS KEY, HVIS DER ER NOGET I DEN*)«, l3=0x4c}
0x193a…195e Line {l1=0x22, l2=» IF Z(2+BLTSIZE)>0 THEN«, l3=0x22}
0x195e…1993 Line {l1=0x33, l2=» COPYKEY(IBLTADR+2,BLTSIZE+3,KEYSIZE);«, l3=0x33}
0x1993…19bf Line {l1=0x2a, l2=» COPYKEY(BLTSIZE+1,1,ENTRYSIZE)«, l3=0x2a}
0x19bf…19ce Line {l1=0x0d, l2=» END«, l3=0x0d}
0x19ce…19ed Line {l1=0x1d, l2=» UNTIL CURRBUC=TOMBUC;«, l3=0x1d}
0x19ed…1a1c Line {l1=0x2d, l2=» (*BUCKET MED TOM BLOK ER NU INDLÆST*)«, l3=0x2d}
0x1a1c…1a62 Line {l1=0x44, l2=» FORSKYD(BLKPRBUC+1,TOMBLK,1);(*FJERN DEN FUNDNE TOMME BLOK*)«, l3=0x44}
0x1a62…1a92 Line {l1=0x2e, l2=» IF Z((BLKPRBUC-1)*ENTRYSIZE+2)>0 THEN «, l3=0x2e}
0x1a92…1aa1 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1aa1…1ad9 Line {l1=0x36, l2=» IF Z(IBLTADR+1)=0 THEN BUCINUSE:=BUCINUSE+1;«, l3=0x36}
0x1ad9…1b05 Line {l1=0x2a, l2=» (*SÆT BUCKETS KEY=NY BLOKS KEY*)«, l3=0x2a}
0x1b05…1b45 Line {l1=0x3e, l2=» COPYKEY(IBLTADR+2,(BLKPRBUC-1)*ENTRYSIZE+3,KEYSIZE);«, l3=0x3e}
0x1b45…1b78 Line {l1=0x31, l2=» (*OPTÆL BUCKETS NUM MED INDSKUDT BLOK*)«, l3=0x31}
0x1b78…1bbb Line {l1=0x41, l2=» Z(IBLTADR+1):=Z(IBLTADR+1)+Z((BLKPRBUC-1)*ENTRYSIZE+2) «, l3=0x41}
0x1bbb…1bc9 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1bc9…1bf6 Line {l1=0x2b, l2=» COPSEGS(Z(IBLTADR),BLTSIZE,1,SKRIV)«, l3=0x2b}
0x1bf6…1c01 Line {l1=0x09, l2=» END«, l3=0x09}
0x1c01…1c0a Line {l1=0x07, l2=» END«, l3=0x07}
0x1c0a…1c11 Line {l1=0x05, l2=» END«, l3=0x05}
0x1c11…1c17 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c17…1c1f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c1f…1c31 Line {l1=0x10, l2=»BEGIN (*INSERT*)«, l3=0x10}
0x1c31…1c45 Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x1c45…1c59 Line {l1=0x12, l2=» IF FILEOPEN THEN«, l3=0x12}
0x1c59…1c71 Line {l1=0x16, l2=» IF NOT FILEINIT THEN«, l3=0x16}
0x1c71…1c7a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1c7a…1c87 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x1c87…1cc0 Line {l1=0x37, l2=» IF INITREC=0 THEN BEGIN IER:=-10; EXIT(INSERT) END;«, l3=0x37}
0x1cc0…1cd8 Line {l1=0x16, l2=» IF RECINUSE>0 THEN«, l3=0x16}
0x1cd8…1ce3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1ce3…1d12 Line {l1=0x2d, l2=» EXTRACT(BLK+(BLKENTRY-1)*RECSIZE,KEY1);«, l3=0x2d}
0x1d12…1d29 Line {l1=0x15, l2=» REXTRACT(KEY2);«, l3=0x15}
0x1d29…1d49 Line {l1=0x1e, l2=» IF COMPARE(KEY1,KEY2)>=0«, l3=0x1e}
0x1d49…1d75 Line {l1=0x2a, l2=» THEN BEGIN IER:=-11;EXIT(INSERT) END«, l3=0x2a}
0x1d75…1d7f Line {l1=0x08, l2=» END;«, l3=0x08}
0x1d7f…1db0 Line {l1=0x2f, l2=» K:=RECINUSE MOD IRPRBUC; «, l3=0x2f}
0x1db0…1de1 Line {l1=0x2f, l2=» I:=RECINUSE DIV IRPRBUC+1; «, l3=0x2f}
0x1de1…1e0d Line {l1=0x2a, l2=» READTABLE(I); «, l3=0x2a}
0x1e0d…1e3e Line {l1=0x2f, l2=» I:=K DIV IRPRBLK+1; «, l3=0x2f}
0x1e3e…1e6a Line {l1=0x2a, l2=» READBLOCK(I,1); «, l3=0x2a}
0x1e6a…1e9b Line {l1=0x2f, l2=» BLKENTRY:= K MOD IRPRBLK+1; «, l3=0x2f}
0x1e9b…1eca Line {l1=0x2d, l2=» K:=BLK+(BLKENTRY-1)*RECSIZE; «, l3=0x2d}
0x1eca…1ef1 Line {l1=0x25, l2=» MOVELEFT(REC^(1),Z(K),2*RECSIZE);«, l3=0x25}
0x1ef1…1f25 Line {l1=0x32, l2=»(* FOR I:=1 TO RECSIZE DO Z(K+I):=REC^(I); *)«, l3=0x32}
0x1f25…1f53 Line {l1=0x2c, l2=» SÆTKEY(BLKENTRY); «, l3=0x2c}
0x1f53…1f80 Line {l1=0x2b, l2=» ØGNUM; «, l3=0x2b}
0x1f80…1fb1 Line {l1=0x2f, l2=» BLKCHG:=TRUE; «, l3=0x2f}
0x1fb1…1fe2 Line {l1=0x2f, l2=» IF RECINUSE=INITREC THEN FILEINIT:=TRUE «, l3=0x2f}
0x1fe2…2020 Line {l1=0x3c, l2=» END «, l3=0x3c}
0x2020…205e Line {l1=0x3c, l2=» ELSE «, l3=0x3c}
0x205e…209c Line {l1=0x3c, l2=» IF RECINUSE<NREC THEN «, l3=0x3c}
0x209c…20da Line {l1=0x3c, l2=» BEGIN «, l3=0x3c}
0x20da…2112 Line {l1=0x36, l2=» FINDPOST; «, l3=0x36}
0x2112…2150 Line {l1=0x3c, l2=» IF IER=-1 THEN «, l3=0x3c}
0x2150…218e Line {l1=0x3c, l2=» BEGIN «, l3=0x3c}
0x218e…21c8 Line {l1=0x38, l2=» IF (Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)=RECPRBLK) AND«, l3=0x38}
0x21c8…2217 Line {l1=0x4d, l2=» ((Z(BLT+BLKINZONE*ENTRYSIZE+1)=RECPRBLK) OR (BLKINZONE=BLKPRBUC)) AND«, l3=0x4d}
0x2217…2264 Line {l1=0x4b, l2=» ((Z(BLT+(BLKINZONE-2)*ENTRYSIZE+1)=RECPRBLK) OR (BLKINZONE=1)) THEN«, l3=0x4b}
0x2264…2278 Line {l1=0x12, l2=» SKAFENTOM;«, l3=0x12}
0x2278…22b6 Line {l1=0x3c, l2=» IER:=0; «, l3=0x3c}
0x22b6…22f4 Line {l1=0x3c, l2=» IF BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1) THEN «, l3=0x3c}
0x22f4…232f Line {l1=0x39, l2=» FSKDIBLK(BLKENTRY); «, l3=0x39}
0x232f…236b Line {l1=0x3a, l2=» K:=BLK+(BLKENTRY-1)*RECSIZE; «, l3=0x3a}
0x236b…2394 Line {l1=0x27, l2=» MOVELEFT(REC^(1),Z(K),2*RECSIZE);«, l3=0x27}
0x2394…23d2 Line {l1=0x3c, l2=»(* FOR I:=1 TO RECSIZE DO Z(K+I):=REC^(I);*) «, l3=0x3c}
0x23d2…2410 Line {l1=0x3c, l2=» BLKCHG:=TRUE; «, l3=0x3c}
0x2410…244e Line {l1=0x3c, l2=» IF Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)=RECPRBLK THEN «, l3=0x3c}
0x244e…2460 Line {l1=0x10, l2=» FSKDUBLK«, l3=0x10}
0x2460…249a Line {l1=0x38, l2=» ELSE «, l3=0x38}
0x249a…24e9 Line {l1=0x4d, l2=» IF BLKENTRY=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)+1 THEN SÆTKEY(BLKENTRY); «, l3=0x4d}
0x24e9…2523 Line {l1=0x38, l2=» ØGNUM «, l3=0x38}
0x2523…252c Line {l1=0x07, l2=» END«, l3=0x07}
0x252c…254c Line {l1=0x1e, l2=» ELSE IF IER=0 THEN IER:=-7«, l3=0x1e}
0x254c…2553 Line {l1=0x05, l2=» END«, l3=0x05}
0x2553…2570 Line {l1=0x1b, l2=» ELSE IER:=-8 ELSE IER:=-3«, l3=0x1b}
0x2570…2576 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2576…2580 00 00 45 59 28 42 4c 4b 45 4e ┆ EY(BLKEN┆
0x2580…25a0 54 52 59 29 3b 20 20 4d 38 20 20 20 20 20 20 5c 47 4e 55 4d 20 20 20 20 20 20 20 20 20 20 20 20 ┆TRY); M8 ØGNUM ┆
0x25a0…25c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25c0…25e0 20 38 07 20 20 20 20 45 4e 44 07 1e 20 20 20 20 45 4c 53 45 20 49 46 20 49 45 52 3d 30 20 54 48 ┆ 8 END ELSE IF IER=0 TH┆
0x25e0…2600 45 4e 20 49 45 52 3a 3d 2d 37 1e 05 20 20 45 4e 44 05 1b 20 20 45 4c 53 45 20 49 45 52 3a 3d 2d ┆EN IER:=-7 END ELSE IER:=-┆
0x2600…2620 38 20 45 4c 53 45 20 49 45 52 3a 3d 2d 33 1b 04 45 4e 44 3b 04 00 00 63 63 63 63 63 63 63 63 63 ┆8 ELSE IER:=-3 END; ccccccccc┆
0x2620…2640 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┆
[…0xa…]