|
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«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »REPORT.K«
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…03a Line {l1=0x38, l2=»PROCEDURE REPORT(VAR ZO:ISFHEAD;VAR F:ISF;SBUC:INTEGER);«, l3=0x38}
0x03a…052 Line {l1=0x16, l2=»VAR I,J,K,L,N:INTEGER;«, l3=0x16}
0x052…075 Line {l1=0x21, l2=»PROCEDURE W(T:STRING;NR:INTEGER);«, l3=0x21}
0x075…07c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07c…087 Line {l1=0x09, l2=» N:=N+1;«, l3=0x09}
0x087…0a3 Line {l1=0x1a, l2=» WRITE(LIST,' ',T,NR:6);«, l3=0x1a}
0x0a3…0b2 Line {l1=0x0d, l2=» IF N=6 THEN«, l3=0x0d}
0x0b2…0bb Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0bb…0cf Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x0cf…0d9 Line {l1=0x08, l2=» N:=0«, l3=0x08}
0x0d9…0e0 Line {l1=0x05, l2=» END«, l3=0x05}
0x0e0…0e6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e6…0ed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ed…0fb Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x0fb…104 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x104…121 Line {l1=0x1b, l2=» WRITELN(LIST,'REPORT');«, l3=0x1b}
0x121…135 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x135…160 Line {l1=0x29, l2=» WRITELN(LIST,'FILEHEAD-INFORMATION');«, l3=0x29}
0x160…174 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x174…17f Line {l1=0x09, l2=» N:=0;«, l3=0x09}
0x17f…1ad Line {l1=0x2c, l2=» W('NBUC :',NBUC);W('NBLK :',NBLK);«, l3=0x2c}
0x1ad…1c7 Line {l1=0x18, l2=» W('NREC :',NREC);«, l3=0x18}
0x1c7…1e5 Line {l1=0x1c, l2=» W('BLKPRBUC:',BLKPRBUC);«, l3=0x1c}
0x1e5…203 Line {l1=0x1c, l2=» W('RECPRBUC:',RECPRBUC);«, l3=0x1c}
0x203…221 Line {l1=0x1c, l2=» W('RECPRBLK:',RECPRBLK);«, l3=0x1c}
0x221…23e Line {l1=0x1b, l2=» W('KEYFLDS :',KEYFLDS);«, l3=0x1b}
0x23e…25b Line {l1=0x1b, l2=» W('FLHSIZE :',FLHSIZE);«, l3=0x1b}
0x25b…278 Line {l1=0x1b, l2=» W('BUTSIZE :',BUTSIZE);«, l3=0x1b}
0x278…295 Line {l1=0x1b, l2=» W('BLTSIZE :',BLTSIZE);«, l3=0x1b}
0x295…2b2 Line {l1=0x1b, l2=» W('BLKSIZE :',BLKSIZE);«, l3=0x1b}
0x2b2…2cf Line {l1=0x1b, l2=» W('RECSIZE :',RECSIZE);«, l3=0x1b}
0x2cf…2ec Line {l1=0x1b, l2=» W('KEYSIZE :',KEYSIZE);«, l3=0x1b}
0x2ec…30a Line {l1=0x1c, l2=» W('SEGINFLH:',SEGINFLH);«, l3=0x1c}
0x30a…328 Line {l1=0x1c, l2=» W('SEGINBUT:',SEGINBUT);«, l3=0x1c}
0x328…346 Line {l1=0x1c, l2=» W('SEGINBUC:',SEGINBUC);«, l3=0x1c}
0x346…364 Line {l1=0x1c, l2=» W('SEGINBLT:',SEGINBLT);«, l3=0x1c}
0x364…382 Line {l1=0x1c, l2=» W('SEGINBLK:',SEGINBLK);«, l3=0x1c}
0x382…396 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x396…3b8 Line {l1=0x20, l2=» WRITELN(LIST,'FILE-STATUS');«, l3=0x20}
0x3b8…3cc Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x3cc…3e9 Line {l1=0x1b, l2=» W('INITREC :',INITREC);«, l3=0x1b}
0x3e9…407 Line {l1=0x1c, l2=» W('BUCINUSE:',BUCINUSE);«, l3=0x1c}
0x407…425 Line {l1=0x1c, l2=» W('BLKINUSE:',BLKINUSE);«, l3=0x1c}
0x425…430 Line {l1=0x09, l2=» N:=5;«, l3=0x09}
0x430…44e Line {l1=0x1c, l2=» W('RECINUSE:',RECINUSE);«, l3=0x1c}
0x44e…46f Line {l1=0x1f, l2=» WRITE(LIST,' FILEINIT: ');«, l3=0x1f}
0x46f…4b3 Line {l1=0x42, l2=» IF FILEINIT THEN WRITE(LIST,' TRUE') ELSE WRITE(LIST,'FALSE');«, l3=0x42}
0x4b3…4d4 Line {l1=0x1f, l2=» WRITE(LIST,' FILEOPEN: ');«, l3=0x1f}
0x4d4…51c Line {l1=0x46, l2=» IF FILEOPEN THEN WRITELN(LIST,' TRUE') ELSE WRITELN(LIST,'FALSE');«, l3=0x46}
0x51c…530 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x530…556 Line {l1=0x24, l2=» WRITELN(LIST,'KEY-DESCRIPTION');«, l3=0x24}
0x556…56a Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x56a…5a5 Line {l1=0x39, l2=» WRITELN(LIST,' KEYFLD KEYPOS KEYLNG KEYSGN');«, l3=0x39}
0x5a5…5c1 Line {l1=0x1a, l2=» FOR I:=1 TO KEYFLDS DO«, l3=0x1a}
0x5c1…600 Line {l1=0x3d, l2=» WRITELN(LIST,I:9,KEYPOS(I):9,KEYLNG(I):9,KEYSGN(I):9);«, l3=0x3d}
0x600…614 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x614…636 Line {l1=0x20, l2=» WRITELN(LIST,'BUCKETTABLE');«, l3=0x20}
0x636…64a Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x64a…676 Line {l1=0x2a, l2=» WRITELN(LIST,' ADR NUM KEY');«, l3=0x2a}
0x676…68f Line {l1=0x17, l2=» FOR I:=1 TO NBUC DO«, l3=0x17}
0x68f…69a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x69a…6dd Line {l1=0x41, l2=» WRITE(LIST,Z((I-1)*ENTRYSIZE+1):6,Z((I-1)*ENTRYSIZE+2):6);«, l3=0x41}
0x6dd…722 Line {l1=0x43, l2=» FOR J:=1 TO KEYSIZE DO WRITE(LIST,Z((I-1)*ENTRYSIZE+2+J):6);«, l3=0x43}
0x722…738 Line {l1=0x14, l2=» WRITELN(LIST)«, l3=0x14}
0x738…742 Line {l1=0x08, l2=» END;«, l3=0x08}
0x742…756 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x756…772 Line {l1=0x1a, l2=» FOR I:=SBUC TO NBUC DO«, l3=0x1a}
0x772…77d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x77d…7a2 Line {l1=0x23, l2=» WRITELN(LIST,I:5,'. BUCKET');«, l3=0x23}
0x7a2…7b8 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x7b8…7d2 Line {l1=0x18, l2=» READTABLE(ZO,F,I);«, l3=0x18}
0x7d2…7f6 Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(REPORT);«, l3=0x22}
0x7f6…819 Line {l1=0x21, l2=» WRITELN(LIST,'BLOCKTABLE');«, l3=0x21}
0x819…82f Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x82f…85d Line {l1=0x2c, l2=» WRITELN(LIST,' ADR NUM KEY');«, l3=0x2c}
0x85d…87c Line {l1=0x1d, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x1d}
0x87c…889 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x889…8c8 Line {l1=0x3d, l2=» WRITE(LIST,Z((J-1)*ENTRYSIZE+BLT):6,Z((J-1)*ENTRYSIZE«, l3=0x3d}
0x8c8…8e3 Line {l1=0x19, l2=» +BLT+1):6);«, l3=0x19}
0x8e3…92d Line {l1=0x48, l2=» FOR K:=1 TO KEYSIZE DO WRITE(LIST,Z((J-1)*ENTRYSIZE+BLT+1+K):6);«, l3=0x48}
0x92d…944 Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0x944…950 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x950…966 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x966…985 Line {l1=0x1d, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x1d}
0x985…992 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x992…9c6 Line {l1=0x32, l2=» WRITE(LIST,I:5,'. BUCKET ',J:5,'. BLOCK');«, l3=0x32}
0x9c6…9e4 Line {l1=0x1c, l2=» READBLOCK(ZO,F,J,1);«, l3=0x1c}
0x9e4…a0a Line {l1=0x24, l2=» IF IER<>0 THEN EXIT(REPORT);«, l3=0x24}
0xa0a…a2b Line {l1=0x1f, l2=» FOR K:=1 TO RECPRBLK DO«, l3=0x1f}
0xa2b…a3a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xa3a…a68 Line {l1=0x2c, l2=» IF K>Z(BLT+(J-1)*ENTRYSIZE+1) THEN«, l3=0x2c}
0xa68…a89 Line {l1=0x1f, l2=» WRITE(LIST,' *')«, l3=0x1f}
0xa89…ab0 Line {l1=0x25, l2=» ELSE WRITE(LIST,' ');«, l3=0x25}
0xab0…ad2 Line {l1=0x20, l2=» FOR L:=1 TO RECSIZE DO«, l3=0x20}
0xad2…b08 Line {l1=0x34, l2=» WRITE(LIST,Z(BLK+(K-1)*RECSIZE+L-1));«, l3=0x34}
0xb08…b27 Line {l1=0x1d, l2=» WRITELN(LIST);«, l3=0x1d}
0xb27…b35 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xb35…b4c Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0xb4c…b58 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0xb58…b6d Line {l1=0x13, l2=» WRITELN(LIST)«, l3=0x13}
0xb6d…b76 Line {l1=0x07, l2=» END«, l3=0x07}
0xb76…b7d Line {l1=0x05, l2=» END«, l3=0x05}
0xb7d…b83 Line {l1=0x04, l2=»END;«, l3=0x04}
0xb83…ba0 00 00 54 29 13 07 20 20 20 20 45 4e 44 07 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 00 00 ┆ T) 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…]