|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »IOPEN.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »IOPEN.K«
PROCEDURE IOPEN(VAR ZO:ISFHEAD;VAR F:ISF;MODE:INTEGER);
(*F ER ÅBNET FØR KALD; MED REWRITE*)
VAR I,J,NUM,BUC,K,BLKNUM:INTEGER;
BEGIN
WITH ZO DO
BEGIN
SEEK(F,1);
IER:=IORESULT;
IF IER<>0 THEN EXIT(IOPEN);
GET(F);
IER:=IORESULT;
IF IER<>0 THEN EXIT (IOPEN);
NBUC := F^(1);
NBLK := F^(2);
NREC := F^(3);
BLKPRBUC := F^(4);
RECPRBUC := F^(5);
RECPRBLK := F^(6);
KEYFLDS := F^(7);
FLHSIZE := F^(8);
BUTSIZE := F^(9);
BLTSIZE := F^(10);
BLKSIZE := F^(11);
RECSIZE := F^(12);
KEYSIZE := F^(13);
SEGINFLH := F^(14);
SEGINBUT := F^(15);
SEGINBUC := F^(16);
SEGINBLT := F^(17);
SEGINBLK := F^(18);
INITREC := F^(19);
BUCINUSE := F^(20);
BLKINUSE := F^(21);
RECINUSE := F^(22);
FILEINIT := F^(23)=1;
FILEOPEN := F^(24)=1;
FOR I:=1 TO 9 DO
BEGIN
KEYPOS(I):= F^(22+I*3);
KEYLNG(I):= F^(23+I*3);
KEYSGN(I):= F^(24+I*3)
END;
BUTCHG:=FALSE;
BLTCHG:=FALSE;
BLKCHG:=FALSE;
BUCINZONE:=0;
BLKINZONE:=0;
BLKENTRY:=0;
UPSTAT:=MODE;
BUT:=1;
BLT:=BUT+BUTSIZE;
BLK:=BLT+BLTSIZE;
KEY1:=BLK+BLKSIZE+RECSIZE;
KEY2:=BLK+BLKSIZE;
ENTRYSIZE:=KEYSIZE+2;
IF RECPRBUC<>RECPRBLK*BLKPRBUC THEN
BEGIN
IER:=-4;
EXIT (IOPEN)
(*FILEN ER IKKE ISF*)
END;
IF FILEINIT THEN COPSEGS(Z,F,2,BUTSIZE,BUT,LÆS);
IF IER<>0 THEN EXIT (IOPEN);
IF FILEOPEN THEN
BEGIN
IER:=-18;
IF NOT FILEINIT THEN
BEGIN
IER:=-19;
INITREC:=0;
BUCINUSE:=0;
BLKINUSE:=0;
RECINUSE:=0
END
ELSE
BEGIN
BUCINUSE:=0;
BLKINUSE:=0;
RECINUSE:=0;
FOR I:=1 TO NBUC DO
BEGIN
BUC:=BUT+(I-1)*ENTRYSIZE+1;
COPSEGS(Z,F,Z(BUC-1),BLTSIZE,BLT,LÆS);
IF IER<>0 THEN EXIT (IOPEN);
IER:=-18;
NUM:=0;
FOR J:=1 TO BLKPRBUC DO
BEGIN
BLKNUM:=BLT+1+(J-1)*ENTRYSIZE;
IF Z(BLKNUM)>0 THEN
BEGIN
NUM:=NUM+Z(BLKNUM);
BLKINUSE:=BLKINUSE+1;
K:=BLKNUM
END
END;
IF NUM>0 THEN
BEGIN
RECINUSE:=RECINUSE+NUM;
BUCINUSE:=BUCINUSE+1;
FOR J:=1 TO KEYSIZE DO
Z(BUC+J):=Z(K+J)
END;
BUTCHG:=TRUE;
Z(BUC):=NUM
END; (*FOR I*)
BUCINZONE:=NBUC
END
END; (*FILEOPEN*)
FILEOPEN:=TRUE;
IF UPSTAT=SKRIV THEN
BEGIN
F^(1):=NBUC;
F^(2):=NBLK;
F^(3):=NREC;
F^(4):=BLKPRBUC;
F^(5):=RECPRBUC;
F^(6):=RECPRBLK;
F^(7):=KEYFLDS;
F^(8):=FLHSIZE;
F^(9):=BUTSIZE;
F^(10):=BLTSIZE;
F^(11):=BLKSIZE;
F^(12):=RECSIZE;
F^(13):=KEYSIZE;
F^(14):=SEGINFLH;
F^(15):=SEGINBUT;
F^(16):=SEGINBUC;
F^(17):=SEGINBLT;
F^(18):=SEGINBLK;
F^(19):=INITREC;
F^(20):=BUCINUSE;
F^(21):=BLKINUSE;
F^(22):=RECINUSE;
IF FILEINIT THEN F^(23):=1 ELSE F^(23):=0;
IF FILEOPEN THEN F^(24):=1 ELSE F^(24):=0;
FOR I:=1 TO 9 DO
BEGIN
F^(22+I*3):=KEYPOS(I);
F^(23+I*3):=KEYLNG(I);
F^(24+I*3):=KEYSGN(I)
END;
SEEK(F,1);
I:=IER;
IER:=IORESULT;
IF IER<>0 THEN EXIT(IOPEN);
PUT(F);
IER:=IORESULT;
IF IER<>0 THEN EXIT(IOPEN);
IER:=I
END
END
END (*IOPEN*);
0x0000…0039 Line {l1=0x37, l2=»PROCEDURE IOPEN(VAR ZO:ISFHEAD;VAR F:ISF;MODE:INTEGER);«, l3=0x37}
0x0039…0066 Line {l1=0x2b, l2=» (*F ER ÅBNET FØR KALD; MED REWRITE*)«, l3=0x2b}
0x0066…0089 Line {l1=0x21, l2=»VAR I,J,NUM,BUC,K,BLKNUM:INTEGER;«, l3=0x21}
0x0089…0090 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0090…009e Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x009e…00a7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x00a7…00b7 Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x00b7…00cb Line {l1=0x12, l2=» IER:=IORESULT;«, l3=0x12}
0x00cb…00ec Line {l1=0x1f, l2=» IF IER<>0 THEN EXIT(IOPEN);«, l3=0x1f}
0x00ec…00f9 Line {l1=0x0b, l2=» GET(F);«, l3=0x0b}
0x00f9…010d Line {l1=0x12, l2=» IER:=IORESULT;«, l3=0x12}
0x010d…012f Line {l1=0x20, l2=» IF IER<>0 THEN EXIT (IOPEN);«, l3=0x20}
0x012f…0149 Line {l1=0x18, l2=» NBUC := F^(1);«, l3=0x18}
0x0149…0163 Line {l1=0x18, l2=» NBLK := F^(2);«, l3=0x18}
0x0163…017d Line {l1=0x18, l2=» NREC := F^(3);«, l3=0x18}
0x017d…0197 Line {l1=0x18, l2=» BLKPRBUC := F^(4);«, l3=0x18}
0x0197…01b1 Line {l1=0x18, l2=» RECPRBUC := F^(5);«, l3=0x18}
0x01b1…01cb Line {l1=0x18, l2=» RECPRBLK := F^(6);«, l3=0x18}
0x01cb…01e5 Line {l1=0x18, l2=» KEYFLDS := F^(7);«, l3=0x18}
0x01e5…01ff Line {l1=0x18, l2=» FLHSIZE := F^(8);«, l3=0x18}
0x01ff…0219 Line {l1=0x18, l2=» BUTSIZE := F^(9);«, l3=0x18}
0x0219…0234 Line {l1=0x19, l2=» BLTSIZE := F^(10);«, l3=0x19}
0x0234…024f Line {l1=0x19, l2=» BLKSIZE := F^(11);«, l3=0x19}
0x024f…026a Line {l1=0x19, l2=» RECSIZE := F^(12);«, l3=0x19}
0x026a…0285 Line {l1=0x19, l2=» KEYSIZE := F^(13);«, l3=0x19}
0x0285…02a0 Line {l1=0x19, l2=» SEGINFLH := F^(14);«, l3=0x19}
0x02a0…02bb Line {l1=0x19, l2=» SEGINBUT := F^(15);«, l3=0x19}
0x02bb…02d6 Line {l1=0x19, l2=» SEGINBUC := F^(16);«, l3=0x19}
0x02d6…02f1 Line {l1=0x19, l2=» SEGINBLT := F^(17);«, l3=0x19}
0x02f1…030c Line {l1=0x19, l2=» SEGINBLK := F^(18);«, l3=0x19}
0x030c…0327 Line {l1=0x19, l2=» INITREC := F^(19);«, l3=0x19}
0x0327…0342 Line {l1=0x19, l2=» BUCINUSE := F^(20);«, l3=0x19}
0x0342…035d Line {l1=0x19, l2=» BLKINUSE := F^(21);«, l3=0x19}
0x035d…0378 Line {l1=0x19, l2=» RECINUSE := F^(22);«, l3=0x19}
0x0378…0395 Line {l1=0x1b, l2=» FILEINIT := F^(23)=1;«, l3=0x1b}
0x0395…03b2 Line {l1=0x1b, l2=» FILEOPEN := F^(24)=1;«, l3=0x1b}
0x03b2…03c8 Line {l1=0x14, l2=» FOR I:=1 TO 9 DO«, l3=0x14}
0x03c8…03d3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x03d3…03f3 Line {l1=0x1e, l2=» KEYPOS(I):= F^(22+I*3);«, l3=0x1e}
0x03f3…0413 Line {l1=0x1e, l2=» KEYLNG(I):= F^(23+I*3);«, l3=0x1e}
0x0413…0432 Line {l1=0x1d, l2=» KEYSGN(I):= F^(24+I*3)«, l3=0x1d}
0x0432…043c Line {l1=0x08, l2=» END;«, l3=0x08}
0x043c…0450 Line {l1=0x12, l2=» BUTCHG:=FALSE;«, l3=0x12}
0x0450…0464 Line {l1=0x12, l2=» BLTCHG:=FALSE;«, l3=0x12}
0x0464…0478 Line {l1=0x12, l2=» BLKCHG:=FALSE;«, l3=0x12}
0x0478…048b Line {l1=0x11, l2=» BUCINZONE:=0;«, l3=0x11}
0x048b…049e Line {l1=0x11, l2=» BLKINZONE:=0;«, l3=0x11}
0x049e…04b0 Line {l1=0x10, l2=» BLKENTRY:=0;«, l3=0x10}
0x04b0…04c3 Line {l1=0x11, l2=» UPSTAT:=MODE;«, l3=0x11}
0x04c3…04d0 Line {l1=0x0b, l2=» BUT:=1;«, l3=0x0b}
0x04d0…04e7 Line {l1=0x15, l2=» BLT:=BUT+BUTSIZE;«, l3=0x15}
0x04e7…04fe Line {l1=0x15, l2=» BLK:=BLT+BLTSIZE;«, l3=0x15}
0x04fe…051e Line {l1=0x1e, l2=» KEY1:=BLK+BLKSIZE+RECSIZE;«, l3=0x1e}
0x051e…0536 Line {l1=0x16, l2=» KEY2:=BLK+BLKSIZE;«, l3=0x16}
0x0536…0551 Line {l1=0x19, l2=» ENTRYSIZE:=KEYSIZE+2;«, l3=0x19}
0x0551…057a Line {l1=0x27, l2=» IF RECPRBUC<>RECPRBLK*BLKPRBUC THEN«, l3=0x27}
0x057a…0585 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0585…0596 Line {l1=0x0f, l2=» IER:=-4;«, l3=0x0f}
0x0596…05ab Line {l1=0x13, l2=» EXIT (IOPEN)«, l3=0x13}
0x05ab…05c9 Line {l1=0x1c, l2=» (*FILEN ER IKKE ISF*)«, l3=0x1c}
0x05c9…05d3 Line {l1=0x08, l2=» END;«, l3=0x08}
0x05d3…0609 Line {l1=0x34, l2=» IF FILEINIT THEN COPSEGS(Z,F,2,BUTSIZE,BUT,LÆS);«, l3=0x34}
0x0609…062b Line {l1=0x20, l2=» IF IER<>0 THEN EXIT (IOPEN);«, l3=0x20}
0x062b…0641 Line {l1=0x14, l2=» IF FILEOPEN THEN«, l3=0x14}
0x0641…064c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x064c…065e Line {l1=0x10, l2=» IER:=-18;«, l3=0x10}
0x065e…067b Line {l1=0x1b, l2=» IF NOT FILEINIT THEN«, l3=0x1b}
0x067b…0689 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0689…069d Line {l1=0x12, l2=» IER:=-19;«, l3=0x12}
0x069d…06b3 Line {l1=0x14, l2=» INITREC:=0;«, l3=0x14}
0x06b3…06ca Line {l1=0x15, l2=» BUCINUSE:=0;«, l3=0x15}
0x06ca…06e1 Line {l1=0x15, l2=» BLKINUSE:=0;«, l3=0x15}
0x06e1…06f7 Line {l1=0x14, l2=» RECINUSE:=0«, l3=0x14}
0x06f7…0703 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x0703…0710 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x0710…071e Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x071e…0735 Line {l1=0x15, l2=» BUCINUSE:=0;«, l3=0x15}
0x0735…074c Line {l1=0x15, l2=» BLKINUSE:=0;«, l3=0x15}
0x074c…0763 Line {l1=0x15, l2=» RECINUSE:=0;«, l3=0x15}
0x0763…0781 Line {l1=0x1c, l2=» FOR I:=1 TO NBUC DO«, l3=0x1c}
0x0781…0791 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x0791…07b9 Line {l1=0x26, l2=» BUC:=BUT+(I-1)*ENTRYSIZE+1;«, l3=0x26}
0x07b9…07ec Line {l1=0x31, l2=» COPSEGS(Z,F,Z(BUC-1),BLTSIZE,BLT,LÆS);«, l3=0x31}
0x07ec…0815 Line {l1=0x27, l2=» IF IER<>0 THEN EXIT (IOPEN);«, l3=0x27}
0x0815…082b Line {l1=0x14, l2=» IER:=-18;«, l3=0x14}
0x082b…083f Line {l1=0x12, l2=» NUM:=0;«, l3=0x12}
0x083f…0863 Line {l1=0x22, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x22}
0x0863…0875 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x0875…08a2 Line {l1=0x2b, l2=» BLKNUM:=BLT+1+(J-1)*ENTRYSIZE;«, l3=0x2b}
0x08a2…08c4 Line {l1=0x20, l2=» IF Z(BLKNUM)>0 THEN«, l3=0x20}
0x08c4…08d8 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x08d8…08fc Line {l1=0x22, l2=» NUM:=NUM+Z(BLKNUM);«, l3=0x22}
0x08fc…0922 Line {l1=0x24, l2=» BLKINUSE:=BLKINUSE+1;«, l3=0x24}
0x0922…093c Line {l1=0x18, l2=» K:=BLKNUM«, l3=0x18}
0x093c…094e Line {l1=0x10, l2=» END«, l3=0x10}
0x094e…095f Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x095f…0979 Line {l1=0x18, l2=» IF NUM>0 THEN«, l3=0x18}
0x0979…098b Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x098b…09b1 Line {l1=0x24, l2=» RECINUSE:=RECINUSE+NUM;«, l3=0x24}
0x09b1…09d5 Line {l1=0x22, l2=» BUCINUSE:=BUCINUSE+1;«, l3=0x22}
0x09d5…09fa Line {l1=0x23, l2=» FOR J:=1 TO KEYSIZE DO«, l3=0x23}
0x09fa…0a1b Line {l1=0x1f, l2=» Z(BUC+J):=Z(K+J)«, l3=0x1f}
0x0a1b…0a2c Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x0a2c…0a46 Line {l1=0x18, l2=» BUTCHG:=TRUE;«, l3=0x18}
0x0a46…0a5e Line {l1=0x16, l2=» Z(BUC):=NUM«, l3=0x16}
0x0a5e…0a79 Line {l1=0x19, l2=» END; (*FOR I*)«, l3=0x19}
0x0a79…0a93 Line {l1=0x18, l2=» BUCINZONE:=NBUC«, l3=0x18}
0x0a93…0a9f Line {l1=0x0a, l2=» END«, l3=0x0a}
0x0a9f…0ab8 Line {l1=0x17, l2=» END; (*FILEOPEN*)«, l3=0x17}
0x0ab8…0ace Line {l1=0x14, l2=» FILEOPEN:=TRUE;«, l3=0x14}
0x0ace…0ae9 Line {l1=0x19, l2=» IF UPSTAT=SKRIV THEN«, l3=0x19}
0x0ae9…0af5 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x0af5…0b0a Line {l1=0x13, l2=» F^(1):=NBUC;«, l3=0x13}
0x0b0a…0b1f Line {l1=0x13, l2=» F^(2):=NBLK;«, l3=0x13}
0x0b1f…0b34 Line {l1=0x13, l2=» F^(3):=NREC;«, l3=0x13}
0x0b34…0b4d Line {l1=0x17, l2=» F^(4):=BLKPRBUC;«, l3=0x17}
0x0b4d…0b66 Line {l1=0x17, l2=» F^(5):=RECPRBUC;«, l3=0x17}
0x0b66…0b7f Line {l1=0x17, l2=» F^(6):=RECPRBLK;«, l3=0x17}
0x0b7f…0b97 Line {l1=0x16, l2=» F^(7):=KEYFLDS;«, l3=0x16}
0x0b97…0baf Line {l1=0x16, l2=» F^(8):=FLHSIZE;«, l3=0x16}
0x0baf…0bc7 Line {l1=0x16, l2=» F^(9):=BUTSIZE;«, l3=0x16}
0x0bc7…0be0 Line {l1=0x17, l2=» F^(10):=BLTSIZE;«, l3=0x17}
0x0be0…0bf9 Line {l1=0x17, l2=» F^(11):=BLKSIZE;«, l3=0x17}
0x0bf9…0c12 Line {l1=0x17, l2=» F^(12):=RECSIZE;«, l3=0x17}
0x0c12…0c2b Line {l1=0x17, l2=» F^(13):=KEYSIZE;«, l3=0x17}
0x0c2b…0c45 Line {l1=0x18, l2=» F^(14):=SEGINFLH;«, l3=0x18}
0x0c45…0c5f Line {l1=0x18, l2=» F^(15):=SEGINBUT;«, l3=0x18}
0x0c5f…0c79 Line {l1=0x18, l2=» F^(16):=SEGINBUC;«, l3=0x18}
0x0c79…0c93 Line {l1=0x18, l2=» F^(17):=SEGINBLT;«, l3=0x18}
0x0c93…0cad Line {l1=0x18, l2=» F^(18):=SEGINBLK;«, l3=0x18}
0x0cad…0cc6 Line {l1=0x17, l2=» F^(19):=INITREC;«, l3=0x17}
0x0cc6…0ce0 Line {l1=0x18, l2=» F^(20):=BUCINUSE;«, l3=0x18}
0x0ce0…0cfa Line {l1=0x18, l2=» F^(21):=BLKINUSE;«, l3=0x18}
0x0cfa…0d14 Line {l1=0x18, l2=» F^(22):=RECINUSE;«, l3=0x18}
0x0d14…0d47 Line {l1=0x31, l2=» IF FILEINIT THEN F^(23):=1 ELSE F^(23):=0;«, l3=0x31}
0x0d47…0d7a Line {l1=0x31, l2=» IF FILEOPEN THEN F^(24):=1 ELSE F^(24):=0;«, l3=0x31}
0x0d7a…0d93 Line {l1=0x17, l2=» FOR I:=1 TO 9 DO«, l3=0x17}
0x0d93…0da1 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0da1…0dc2 Line {l1=0x1f, l2=» F^(22+I*3):=KEYPOS(I);«, l3=0x1f}
0x0dc2…0de3 Line {l1=0x1f, l2=» F^(23+I*3):=KEYLNG(I);«, l3=0x1f}
0x0de3…0e03 Line {l1=0x1e, l2=» F^(24+I*3):=KEYSGN(I)«, l3=0x1e}
0x0e03…0e10 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0e10…0e23 Line {l1=0x11, l2=» SEEK(F,1);«, l3=0x11}
0x0e23…0e33 Line {l1=0x0e, l2=» I:=IER;«, l3=0x0e}
0x0e33…0e4a Line {l1=0x15, l2=» IER:=IORESULT;«, l3=0x15}
0x0e4a…0e6e Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(IOPEN);«, l3=0x22}
0x0e6e…0e7e Line {l1=0x0e, l2=» PUT(F);«, l3=0x0e}
0x0e7e…0e95 Line {l1=0x15, l2=» IER:=IORESULT;«, l3=0x15}
0x0e95…0eb9 Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(IOPEN);«, l3=0x22}
0x0eb9…0ec8 Line {l1=0x0d, l2=» IER:=I«, l3=0x0d}
0x0ec8…0ed2 Line {l1=0x08, l2=» END«, l3=0x08}
0x0ed2…0eda Line {l1=0x06, l2=» END«, l3=0x06}
0x0eda…0eeb Line {l1=0x0f, l2=»END (*IOPEN*);«, l3=0x0f}
0x0eeb…0f00 00 00 20 46 5c 52 20 4b 41 4c 44 3b 20 4d 45 44 20 52 45 57 52 ┆ FØR KALD; MED REWR┆
0x0f00…0f20 49 54 45 2a 29 2b 21 56 41 52 20 49 2c 4a 2c 4e 55 4d 2c 42 55 43 2c 4b 2c 42 4c 4b 4e 55 4d 3a ┆ITE*)+!VAR I,J,NUM,BUC,K,BLKNUM:┆
0x0f20…0f40 49 4e 54 45 47 45 52 3b 21 05 42 45 47 49 4e 05 0c 20 20 57 49 54 48 20 5a 4f 20 44 4f 0c 07 20 ┆INTEGER;! BEGIN WITH ZO DO ┆
0x0f40…0f60 20 42 45 47 49 4e 07 0e 20 20 20 20 53 45 45 4b 28 46 2c 31 29 3b 0e 12 20 20 20 20 49 45 52 3a ┆ BEGIN SEEK(F,1); IER:┆
0x0f60…0f80 3d 49 4f 52 45 53 55 4c 54 3b 12 1f 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 ┆=IORESULT; IF IER<>0 THEN E┆
0x0f80…0fa0 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 ┆ ┆
[…0x1f…]