|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »REPORT.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »REPORT.K«
SEGMENT PROCEDURE REPORT(VAR ZO:ISFHEAD;VAR F:ISF;SBUC:INTEGER);
VAR I,J,K,L,N:INTEGER;
PROCEDURE W(T:STRING;NR:INTEGER);
BEGIN
N:=N+1;
WRITE(LIST,' ',T,NR:6);
IF N=6 THEN
BEGIN
WRITELN(LIST);
N:=0
END
END;
BEGIN
WITH ZO DO
BEGIN
WRITELN(LIST,'REPORT');
WRITELN(LIST);
WRITELN(LIST,'FILEHEAD-INFORMATION');
WRITELN(LIST);
N:=0;
W('NBUC :',NBUC);W('NBLK :',NBLK);
W('NREC :',NREC);
W('BLKPRBUC:',BLKPRBUC);
W('RECPRBUC:',RECPRBUC);
W('RECPRBLK:',RECPRBLK);
W('KEYFLDS :',KEYFLDS);
W('FLHSIZE :',FLHSIZE);
W('BUTSIZE :',BUTSIZE);
W('BLTSIZE :',BLTSIZE);
W('BLKSIZE :',BLKSIZE);
W('RECSIZE :',RECSIZE);
W('KEYSIZE :',KEYSIZE);
W('SEGINFLH:',SEGINFLH);
W('SEGINBUT:',SEGINBUT);
W('SEGINBUC:',SEGINBUC);
W('SEGINBLT:',SEGINBLT);
W('SEGINBLK:',SEGINBLK);
WRITELN(LIST);
WRITELN(LIST,'FILE-STATUS');
WRITELN(LIST);
W('INITREC :',INITREC);
W('BUCINUSE:',BUCINUSE);
W('BLKINUSE:',BLKINUSE);
N:=5;
W('RECINUSE:',RECINUSE);
WRITE(LIST,' FILEINIT: ');
IF FILEINIT THEN WRITE(LIST,' TRUE') ELSE WRITE(LIST,'FALSE');
WRITE(LIST,' FILEOPEN: ');
IF FILEOPEN THEN WRITELN(LIST,' TRUE') ELSE WRITELN(LIST,'FALSE');
WRITELN(LIST);
WRITELN(LIST,'KEY-DESCRIPTION');
WRITELN(LIST);
WRITELN(LIST,' KEYFLD KEYPOS KEYLNG KEYSGN');
FOR I:=1 TO KEYFLDS DO
WRITELN(LIST,I:9,KEYPOS(I):9,KEYLNG(I):9,KEYSGN(I):9);
WRITELN(LIST);
WRITELN(LIST,'BUCKETTABLE');
WRITELN(LIST);
WRITELN(LIST,' ADR NUM KEY');
FOR I:=1 TO NBUC DO
BEGIN
WRITE(LIST,Z((I-1)*ENTRYSIZE+1):6,Z((I-1)*ENTRYSIZE+2):6);
FOR J:=1 TO KEYSIZE DO WRITE(LIST,Z((I-1)*ENTRYSIZE+2+J):6);
WRITELN(LIST)
END;
WRITELN(LIST);
FOR I:=SBUC TO NBUC DO
BEGIN
WRITELN(LIST,I:5,'. BUCKET');
WRITELN(LIST);
READTABLE(ZO,F,I);
IF IER<>0 THEN EXIT(REPORT);
WRITELN(LIST,'BLOCKTABLE');
WRITELN(LIST);
WRITELN(LIST,' ADR NUM KEY');
FOR J:=1 TO BLKPRBUC DO
BEGIN
WRITE(LIST,Z((J-1)*ENTRYSIZE+BLT):6,Z((J-1)*ENTRYSIZE
+BLT+1):6);
FOR K:=1 TO KEYSIZE DO WRITE(LIST,Z((J-1)*ENTRYSIZE+BLT+1+K):6);
WRITELN(LIST)
END;
WRITELN(LIST);
FOR J:=1 TO BLKPRBUC DO
BEGIN
WRITE(LIST,I:5,'. BUCKET ',J:5,'. BLOCK');
READBLOCK(ZO,F,J,1);
IF IER<>0 THEN EXIT(REPORT);
FOR K:=1 TO RECPRBLK DO
BEGIN
IF K>Z(BLT+(J-1)*ENTRYSIZE+1) THEN
WRITE(LIST,' *')
ELSE WRITE(LIST,' ');
FOR L:=1 TO RECSIZE DO
WRITE(LIST,Z(BLK+(K-1)*RECSIZE+L-1));
WRITELN(LIST);
END;
WRITELN(LIST)
END;
WRITELN(LIST)
END
END
END;
0x000…042 Line {l1=0x40, l2=»SEGMENT PROCEDURE REPORT(VAR ZO:ISFHEAD;VAR F:ISF;SBUC:INTEGER);«, l3=0x40}
0x042…05a Line {l1=0x16, l2=»VAR I,J,K,L,N:INTEGER;«, l3=0x16}
0x05a…07d Line {l1=0x21, l2=»PROCEDURE W(T:STRING;NR:INTEGER);«, l3=0x21}
0x07d…084 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x084…08f Line {l1=0x09, l2=» N:=N+1;«, l3=0x09}
0x08f…0ab Line {l1=0x1a, l2=» WRITE(LIST,' ',T,NR:6);«, l3=0x1a}
0x0ab…0ba Line {l1=0x0d, l2=» IF N=6 THEN«, l3=0x0d}
0x0ba…0c3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0c3…0d7 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x0d7…0e1 Line {l1=0x08, l2=» N:=0«, l3=0x08}
0x0e1…0e8 Line {l1=0x05, l2=» END«, l3=0x05}
0x0e8…0ee Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ee…0f5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f5…103 Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x103…10c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x10c…129 Line {l1=0x1b, l2=» WRITELN(LIST,'REPORT');«, l3=0x1b}
0x129…13d Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x13d…168 Line {l1=0x29, l2=» WRITELN(LIST,'FILEHEAD-INFORMATION');«, l3=0x29}
0x168…17c Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x17c…187 Line {l1=0x09, l2=» N:=0;«, l3=0x09}
0x187…1b5 Line {l1=0x2c, l2=» W('NBUC :',NBUC);W('NBLK :',NBLK);«, l3=0x2c}
0x1b5…1cf Line {l1=0x18, l2=» W('NREC :',NREC);«, l3=0x18}
0x1cf…1ed Line {l1=0x1c, l2=» W('BLKPRBUC:',BLKPRBUC);«, l3=0x1c}
0x1ed…20b Line {l1=0x1c, l2=» W('RECPRBUC:',RECPRBUC);«, l3=0x1c}
0x20b…229 Line {l1=0x1c, l2=» W('RECPRBLK:',RECPRBLK);«, l3=0x1c}
0x229…246 Line {l1=0x1b, l2=» W('KEYFLDS :',KEYFLDS);«, l3=0x1b}
0x246…263 Line {l1=0x1b, l2=» W('FLHSIZE :',FLHSIZE);«, l3=0x1b}
0x263…280 Line {l1=0x1b, l2=» W('BUTSIZE :',BUTSIZE);«, l3=0x1b}
0x280…29d Line {l1=0x1b, l2=» W('BLTSIZE :',BLTSIZE);«, l3=0x1b}
0x29d…2ba Line {l1=0x1b, l2=» W('BLKSIZE :',BLKSIZE);«, l3=0x1b}
0x2ba…2d7 Line {l1=0x1b, l2=» W('RECSIZE :',RECSIZE);«, l3=0x1b}
0x2d7…2f4 Line {l1=0x1b, l2=» W('KEYSIZE :',KEYSIZE);«, l3=0x1b}
0x2f4…312 Line {l1=0x1c, l2=» W('SEGINFLH:',SEGINFLH);«, l3=0x1c}
0x312…330 Line {l1=0x1c, l2=» W('SEGINBUT:',SEGINBUT);«, l3=0x1c}
0x330…34e Line {l1=0x1c, l2=» W('SEGINBUC:',SEGINBUC);«, l3=0x1c}
0x34e…36c Line {l1=0x1c, l2=» W('SEGINBLT:',SEGINBLT);«, l3=0x1c}
0x36c…38a Line {l1=0x1c, l2=» W('SEGINBLK:',SEGINBLK);«, l3=0x1c}
0x38a…39e Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x39e…3c0 Line {l1=0x20, l2=» WRITELN(LIST,'FILE-STATUS');«, l3=0x20}
0x3c0…3d4 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x3d4…3f1 Line {l1=0x1b, l2=» W('INITREC :',INITREC);«, l3=0x1b}
0x3f1…40f Line {l1=0x1c, l2=» W('BUCINUSE:',BUCINUSE);«, l3=0x1c}
0x40f…42d Line {l1=0x1c, l2=» W('BLKINUSE:',BLKINUSE);«, l3=0x1c}
0x42d…438 Line {l1=0x09, l2=» N:=5;«, l3=0x09}
0x438…456 Line {l1=0x1c, l2=» W('RECINUSE:',RECINUSE);«, l3=0x1c}
0x456…477 Line {l1=0x1f, l2=» WRITE(LIST,' FILEINIT: ');«, l3=0x1f}
0x477…4bb Line {l1=0x42, l2=» IF FILEINIT THEN WRITE(LIST,' TRUE') ELSE WRITE(LIST,'FALSE');«, l3=0x42}
0x4bb…4dc Line {l1=0x1f, l2=» WRITE(LIST,' FILEOPEN: ');«, l3=0x1f}
0x4dc…524 Line {l1=0x46, l2=» IF FILEOPEN THEN WRITELN(LIST,' TRUE') ELSE WRITELN(LIST,'FALSE');«, l3=0x46}
0x524…538 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x538…55e Line {l1=0x24, l2=» WRITELN(LIST,'KEY-DESCRIPTION');«, l3=0x24}
0x55e…572 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x572…5ad Line {l1=0x39, l2=» WRITELN(LIST,' KEYFLD KEYPOS KEYLNG KEYSGN');«, l3=0x39}
0x5ad…5c9 Line {l1=0x1a, l2=» FOR I:=1 TO KEYFLDS DO«, l3=0x1a}
0x5c9…608 Line {l1=0x3d, l2=» WRITELN(LIST,I:9,KEYPOS(I):9,KEYLNG(I):9,KEYSGN(I):9);«, l3=0x3d}
0x608…61c Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x61c…63e Line {l1=0x20, l2=» WRITELN(LIST,'BUCKETTABLE');«, l3=0x20}
0x63e…652 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x652…67e Line {l1=0x2a, l2=» WRITELN(LIST,' ADR NUM KEY');«, l3=0x2a}
0x67e…697 Line {l1=0x17, l2=» FOR I:=1 TO NBUC DO«, l3=0x17}
0x697…6a2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x6a2…6e5 Line {l1=0x41, l2=» WRITE(LIST,Z((I-1)*ENTRYSIZE+1):6,Z((I-1)*ENTRYSIZE+2):6);«, l3=0x41}
0x6e5…72a Line {l1=0x43, l2=» FOR J:=1 TO KEYSIZE DO WRITE(LIST,Z((I-1)*ENTRYSIZE+2+J):6);«, l3=0x43}
0x72a…740 Line {l1=0x14, l2=» WRITELN(LIST)«, l3=0x14}
0x740…74a Line {l1=0x08, l2=» END;«, l3=0x08}
0x74a…75e Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x75e…77a Line {l1=0x1a, l2=» FOR I:=SBUC TO NBUC DO«, l3=0x1a}
0x77a…785 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x785…7aa Line {l1=0x23, l2=» WRITELN(LIST,I:5,'. BUCKET');«, l3=0x23}
0x7aa…7c0 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x7c0…7da Line {l1=0x18, l2=» READTABLE(ZO,F,I);«, l3=0x18}
0x7da…7fe Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(REPORT);«, l3=0x22}
0x7fe…821 Line {l1=0x21, l2=» WRITELN(LIST,'BLOCKTABLE');«, l3=0x21}
0x821…837 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x837…865 Line {l1=0x2c, l2=» WRITELN(LIST,' ADR NUM KEY');«, l3=0x2c}
0x865…884 Line {l1=0x1d, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x1d}
0x884…891 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x891…8d0 Line {l1=0x3d, l2=» WRITE(LIST,Z((J-1)*ENTRYSIZE+BLT):6,Z((J-1)*ENTRYSIZE«, l3=0x3d}
0x8d0…8eb Line {l1=0x19, l2=» +BLT+1):6);«, l3=0x19}
0x8eb…935 Line {l1=0x48, l2=» FOR K:=1 TO KEYSIZE DO WRITE(LIST,Z((J-1)*ENTRYSIZE+BLT+1+K):6);«, l3=0x48}
0x935…94c Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0x94c…958 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x958…96e Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x96e…98d Line {l1=0x1d, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x1d}
0x98d…99a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x99a…9ce Line {l1=0x32, l2=» WRITE(LIST,I:5,'. BUCKET ',J:5,'. BLOCK');«, l3=0x32}
0x9ce…9ec Line {l1=0x1c, l2=» READBLOCK(ZO,F,J,1);«, l3=0x1c}
0x9ec…a12 Line {l1=0x24, l2=» IF IER<>0 THEN EXIT(REPORT);«, l3=0x24}
0xa12…a33 Line {l1=0x1f, l2=» FOR K:=1 TO RECPRBLK DO«, l3=0x1f}
0xa33…a42 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xa42…a70 Line {l1=0x2c, l2=» IF K>Z(BLT+(J-1)*ENTRYSIZE+1) THEN«, l3=0x2c}
0xa70…a91 Line {l1=0x1f, l2=» WRITE(LIST,' *')«, l3=0x1f}
0xa91…ab8 Line {l1=0x25, l2=» ELSE WRITE(LIST,' ');«, l3=0x25}
0xab8…ada Line {l1=0x20, l2=» FOR L:=1 TO RECSIZE DO«, l3=0x20}
0xada…b10 Line {l1=0x34, l2=» WRITE(LIST,Z(BLK+(K-1)*RECSIZE+L-1));«, l3=0x34}
0xb10…b2f Line {l1=0x1d, l2=» WRITELN(LIST);«, l3=0x1d}
0xb2f…b3d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xb3d…b54 Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0xb54…b60 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0xb60…b75 Line {l1=0x13, l2=» WRITELN(LIST)«, l3=0x13}
0xb75…b7e Line {l1=0x07, l2=» END«, l3=0x07}
0xb7e…b85 Line {l1=0x05, l2=» END«, l3=0x05}
0xb85…b8b Line {l1=0x04, l2=»END;«, l3=0x04}
0xb8b…ba0 00 00 45 4e 44 07 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 00 00 ┆ END END END; ┆
0xba0…bc0 20 20 45 4e 44 05 04 45 4e 44 3b 04 00 00 49 53 54 29 13 07 20 20 20 20 45 4e 44 07 05 20 20 45 ┆ END END; IST) END E┆
0xbc0…be0 4e 44 05 04 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 ┆ND END; ┆
0xbe0…c00 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 ┆ ┆
[…0x15…]