|
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«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦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
WRITELN(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
BEGIN
IF L MOD 20=0 THEN BEGIN WRITELN(LIST);WRITE(LIST,' ') END;
WRITE(LIST,Z(BLK+(K-1)*RECSIZE+L-1):6);
END;
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…9c8 Line {l1=0x34, l2=» WRITELN(LIST,I:5,'. BUCKET ',J:5,'. BLOCK');«, l3=0x34}
0x9c8…9e6 Line {l1=0x1c, l2=» READBLOCK(ZO,F,J,1);«, l3=0x1c}
0x9e6…a0c Line {l1=0x24, l2=» IF IER<>0 THEN EXIT(REPORT);«, l3=0x24}
0xa0c…a2d Line {l1=0x1f, l2=» FOR K:=1 TO RECPRBLK DO«, l3=0x1f}
0xa2d…a3c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xa3c…a6a Line {l1=0x2c, l2=» IF K>Z(BLT+(J-1)*ENTRYSIZE+1) THEN«, l3=0x2c}
0xa6a…a8b Line {l1=0x1f, l2=» WRITE(LIST,' *')«, l3=0x1f}
0xa8b…ab2 Line {l1=0x25, l2=» ELSE WRITE(LIST,' ');«, l3=0x25}
0xab2…ad4 Line {l1=0x20, l2=» FOR L:=1 TO RECSIZE DO«, l3=0x20}
0xad4…ae5 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xae5…b2f Line {l1=0x48, l2=» IF L MOD 20=0 THEN BEGIN WRITELN(LIST);WRITE(LIST,' ') END;«, l3=0x48}
0xb2f…b67 Line {l1=0x36, l2=» WRITE(LIST,Z(BLK+(K-1)*RECSIZE+L-1):6);«, l3=0x36}
0xb67…b77 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb77…b96 Line {l1=0x1d, l2=» WRITELN(LIST);«, l3=0x1d}
0xb96…ba4 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xba4…bbb Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0xbbb…bc7 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0xbc7…bdc Line {l1=0x13, l2=» WRITELN(LIST)«, l3=0x13}
0xbdc…be5 Line {l1=0x07, l2=» END«, l3=0x07}
0xbe5…bec Line {l1=0x05, l2=» END«, l3=0x05}
0xbec…bf2 Line {l1=0x04, l2=»END;«, l3=0x04}
0xbf2…c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0xc00…c20 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 ┆ ┆
[…0x14…]