|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 43008 (0xa800)
Types: Rc489kSubCat
Names: »kkfiler«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »kkfiler«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x0024c3, f01=0x0007e4, f02=0x0007ed, filename=»kkmesst «, entry_tail=0-4-0-4-1982-10-12T20:36-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x006993, f01=0x0007e4, f02=0x0007ed, filename=»kkrenteøv1t «, entry_tail=0-4-0-3-1981-12-07T09:49-disc3-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x009f4b, f01=0x0007e4, f02=0x0007ed, filename=»kkrenteøv2t «, entry_tail=0-4-0-3-1981-12-07T10:23-disc3-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x00c3db, f01=0x0007e4, f02=0x0007ed, filename=»kkrenteøv0t «, entry_tail=0-4-0-3-1981-12-02T09:56-disc3-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x00f3eb, f01=0x0007e4, f02=0x0007ed, filename=»kkrente «, entry_tail=0-4-0-6-1981-09-04T15:35-disc3-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x015593, f01=0x0007e4, f02=0x0007ed, filename=»kkbud «, entry_tail=0-4-0-4-1981-12-23T13:38-disc3-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x019353, f01=0x0007e4, f02=0x0007ed, filename=»kkgladetal «, entry_tail=0-4-0-2-1980-11-05T11:47-disc3-0x0-0x0-0x0-0x0}
0x0165…0198 Rc489kSubCatEnt {f00=0x01ba93, f01=0x0007e4, f02=0x0007ed, filename=»kkct «, entry_tail=0-4-0-6-1980-07-23T08:38-disc1-0x0-0x0-0x0-0x0}
0x0198…01cb Rc489kSubCatEnt {f00=0x0210fa, f01=0x0007e4, f02=0x0007ed, filename=»kkmonclear «, entry_tail=0-4-0-1-1981-01-14T14:04-disc1-0x0-0x0-0x0-0x0}
0x01cb…01fe Rc489kSubCatEnt {f00=0x0226db, f01=0x0007e4, f02=0x0007ed, filename=»kkmess «, entry_tail=0-4-0-2-1980-11-17T15:36-disc1-0x0-0x0-0x0-0x0}
0x01fe…0231 Rc489kSubCatEnt {f00=0x02494b, f01=0x0007e4, f02=0x0007ed, filename=»kkmoncontra «, entry_tail=0-4-0-1-1980-10-23T12:59-disc1-0x0-0x0-0x0-0x0}
0x0231…0264 Rc489kSubCatEnt {f00=0x0259b3, f01=0x0007e4, f02=0x0007ed, filename=»kkmr2 «, entry_tail=0-4-0-1-1980-06-12T11:28-disc1-0x0-0x0-0x0-0x0}
0x0264…0297 Rc489kSubCatEnt {f00=0x02622b, f01=0x0007e4, f02=0x0007ed, filename=»kkmonrename «, entry_tail=0-4-0-1-1980-10-21T16:01-disc1-0x0-0x0-0x0-0x0}
0x0297…02ca Rc489kSubCatEnt {f00=0x02724b, f01=0x0007e4, f02=0x0007ed, filename=»kkjob «, entry_tail=0-4-0-1-1981-02-06T11:35-disc1-0x0-0x0-0x0-0x0}
0x02ca…02fd Rc489kSubCatEnt {f00=0x0282f3, f01=0x0007e4, f02=0x0007ed, filename=»kkmonscope «, entry_tail=0-4-0-1-1980-12-29T15:28-disc1-0x0-0x0-0x0-0x0}
0x02fd…0300 0x000017
0x0300…0333 Rc489kSubCatEnt {f00=0x0293d3, f01=0x0007e4, f02=0x0007ed, filename=»kkjob1 «, entry_tail=0-4-0-1-1981-01-28T14:29-disc1-0x0-0x0-0x0-0x0}
0x0333…0366 Rc489kSubCatEnt {f00=0x02a3d3, f01=0x0007e4, f02=0x0007ed, filename=»kk1 «, entry_tail=0-4-0-1-1980-11-12T14:31-disc1-0x0-0x0-0x0-0x0}
0x0366…0399 Rc489kSubCatEnt {f00=0x02b3db, f01=0x0007e4, f02=0x0007ed, filename=»kk2 «, entry_tail=0-4-0-1-1980-11-26T16:36-disc1-0x0-0x0-0x0-0x0}
0x0399…03cc Rc489kSubCatEnt {f00=0x02c4f3, f01=0x0007e4, f02=0x0007ed, filename=»kkmonmove «, entry_tail=0-4-0-1-1980-03-19T09:19-disc1-0x0-0x0-0x0-0x0}
0x03cc…03ff Rc489kSubCatEnt {f00=0x02d55b, f01=0x0007e4, f02=0x0007ed, filename=»kkss «, entry_tail=0-4-0-2-1980-02-08T11:56-disc1-0x0-0x0-0x0-0x0}
0x03ff…0432 Rc489kSubCatEnt {f00=0x02f6a3, f01=0x0007e4, f02=0x0007ed, filename=»kktoff «, entry_tail=0-4-0-1-1980-05-27T11:35-disc1-0x0-0x0-0x0-0x0}
0x0432…0465 Rc489kSubCatEnt {f00=0x030f23, f01=0x0007e4, f02=0x0007ed, filename=»kkfptest «, entry_tail=0-4-0-2-1980-10-20T12:03-disc1-0x0-0x0-0x0-0x0}
0x0465…0498 Rc489kSubCatEnt {f00=0x032e53, f01=0x0007e4, f02=0x0007ed, filename=»kkgg «, entry_tail=0-4-0-1-1980-05-23T08:31-disc1-0x0-0x0-0x0-0x0}
0x0498…04a0 02 10 fa 00 07 e4 00 07 ┆ ┆
0x04a0…04c0 ed 6b 6b 6d 6f 6e 63 6c 65 61 72 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 77 c2 35 00 ┆ kkmonclear disc1 w 5 ┆
0x04c0…04e0 00 00 00 00 00 00 00 00 00 00 00 02 26 db 00 07 e4 00 07 ed 6b 6b 6d 65 73 73 00 00 00 00 00 00 ┆ & kkmess ┆
0x04e0…0500 00 00 02 64 69 73 63 31 00 00 00 00 00 00 00 76 4d 41 00 00 00 00 00 00 00 00 00 00 00 00 02 49 ┆ disc1 vMA I┆
0x0500…0520 4b 00 07 e4 00 07 ed 6b 6b 6d 6f 6e 63 6f 6e 74 72 61 00 00 00 01 64 69 73 63 31 00 00 00 00 00 ┆K kkmoncontra disc1 ┆
0x0520…0540 00 00 75 ab 9e 00 00 00 00 00 00 00 00 00 00 00 00 02 59 b3 00 07 e4 00 07 ed 6b 6b 6d 72 32 00 ┆ u Y kkmr2 ┆
0x0540…0560 00 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 72 53 0d 00 00 00 00 00 00 00 00 ┆ disc1 rS ┆
0x0560…0580 00 00 00 00 02 62 2b 00 07 e4 00 07 ed 6b 6b 6d 6f 6e 72 65 6e 61 6d 65 00 00 00 01 64 69 73 63 ┆ b+ kkmonrename disc┆
0x0580…05a0 31 00 00 00 00 00 00 00 75 9f 8f 00 00 00 00 00 00 00 00 00 00 00 00 02 72 4b 00 07 e4 00 07 ed ┆1 u rK ┆
0x05a0…05c0 6b 6b 6a 6f 62 00 00 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 78 55 99 00 00 ┆kkjob disc1 xU ┆
0x05c0…05e0 00 00 00 00 00 00 00 00 00 00 02 82 f3 00 07 e4 00 07 ed 6b 6b 6d 6f 6e 73 63 6f 70 65 00 00 00 ┆ kkmonscope ┆
0x05e0…0600 00 01 64 69 73 63 31 00 00 00 00 00 00 00 77 5b 96 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc1 wÆ ┆
0x0600…1200 Data for kkmesst
0x1200…1b00 Data for kkrenteøv1t
0x1b00…2400 Data for kkrenteøv2t
0x2400…2d00 (3,) Data for kkrenteøv0t
0x2d00…3f00 Data for kkrente
0x3f00…4b00 Data for kkbud
0x4b00…5100 Data for kkgladetal
0x5100…6300 Data for kkct
0x6300…6600 Data for kkmonclear
0x6600…6c00 Data for kkmess
0x6c00…6f00 (9,) Data for kkmoncontra
0x6f00…7200 Data for kkmr2
0x7200…7500 Data for kkmonrename
0x7500…7800 Data for kkjob
0x7800…7b00 (10,) Data for kkmonscope
0x7b00…7e00 Data for kkjob1
0x7e00…8100 Data for kk1
0x8100…8400 Data for kk2
0x8400…8700 (11,) Data for kkmonmove
0x8700…8d00 Data for kkss
0x8d00…9000 Data for kktoff
0x9000…9600 (12,) Data for kkfptest
0x9600…9900 Data for kkgg
0x9900…9920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ * *┆
0x9920…9940 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 ┆ ┆
0x9940…9960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 0a 20 20 20 20 20 ┆ * ┆
0x9960…9980 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ***********************┆
0x9980…99a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x99a0…99c0 2a 3b 0a 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 63 3b 0a 20 20 20 20 20 ┆*; integer field c; ┆
0x99c0…99e0 20 69 6e 74 65 67 65 72 20 6e 72 5f 6f 66 5f 65 6e 3b 0a 20 20 20 20 20 20 63 3a 3d 32 3b 0a 20 ┆ integer nr_of_en; c:=2; ┆
0x99e0…9a00 20 20 20 20 20 6e 72 5f 6f 66 5f 65 6e 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 ┆ nr_of_en:=0; ope┆
0x9a00…9a20 6e 28 63 61 74 2c 34 2c 20 64 75 6d 70 31 6e 61 6d 65 2c 30 29 3b 0a 20 20 20 20 20 20 66 6f 72 ┆n(cat,4, dump1name,0); for┆
0x9a20…9a40 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 68 61 73 68 65 6e 74 72 69 65 73 2d 31 ┆ i:=0 step 1 until hashentries-1┆
0x9a40…9a60 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 ┆ do begin setposit┆
0x9a60…9a80 69 6f 6e 28 63 61 74 2c 30 2c 69 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 63 61 74 ┆ion(cat,0,i); inrec6(cat┆
0x9a80…9aa0 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 6e 72 5f 6f 66 5f 65 6e 3a 3d 6e 72 5f 6f 66 5f 65 6e 2b ┆,1); nr_of_en:=nr_of_en+┆
0x9aa0…9ac0 63 61 74 2e 63 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 63 6c 6f 73 65 28 63 61 ┆cat.c; end; close(ca┆
0x9ac0…9ae0 74 2c 74 72 75 65 29 3b 0a 20 20 20 20 20 20 69 66 20 74 74 65 73 74 20 74 68 65 6e 20 77 72 69 ┆t,true); if ttest then wri┆
0x9ae0…9b00 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a 2a 2a 20 73 69 7a 65 20 6f 66 20 68 61 73 68 74 61 62 ┆te(out,<:<10>*** size of hashtab┆
0x9b00…9b20 6c 65 3d 20 3a 3e 2c 6e 72 5f 6f 66 5f 65 6e 29 3b 0a 20 20 20 20 20 20 69 66 20 6e 72 5f 6f 66 ┆le= :>,nr_of_en); if nr_of┆
0x9b20…9b40 5f 65 6e 20 2f 20 28 68 61 73 68 65 6e 74 72 69 65 73 20 2a 20 32 38 29 20 3e 20 6d 61 78 68 61 ┆_en / (hashentries * 28) > maxha┆
0x9b40…9b60 73 68 73 69 7a 65 20 74 68 65 6e 20 72 65 6f 72 67 3b 0a 20 20 20 20 65 6e 64 3b 0a 0c 0a 20 20 ┆shsize then reorg; end; ┆
0x9b60…9b80 20 20 70 72 6f 63 65 64 75 72 65 20 72 68 61 73 68 65 6e 74 72 79 3b 0a 20 20 20 20 62 65 67 69 ┆ procedure rhashentry; begi┆
0x9b80…9ba0 6e 0a 20 20 20 20 20 20 6b 3a 3d 73 77 6f 70 72 65 63 36 28 63 61 74 2c 30 29 3b 0a 20 20 20 20 ┆n k:=swoprec6(cat,0); ┆
0x9ba0…9bc0 20 20 69 66 20 6b 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ if k = 0 then begin ┆
0x9bc0…9be0 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 63 61 74 2c 30 2c 30 29 3b 0a 20 20 20 20 20 ┆ setposition(cat,0,0); ┆
0x9be0…9c00 20 20 20 20 73 77 6f 70 72 65 63 36 28 63 61 74 2c 32 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆ swoprec6(cat,2); end; ┆
0x9c00…9c20 (13,) 20 20 20 20 20 20 69 66 20 6b 20 3d 20 35 31 32 20 74 68 65 6e 20 73 77 6f 70 72 65 63 36 28 63 ┆ if k = 512 then swoprec6(c┆
0x9c20…9c40 61 74 2c 32 29 3b 0a 20 20 20 20 20 20 69 66 20 6b 20 3d 20 72 65 73 74 6f 6e 64 75 6d 70 73 20 ┆at,2); if k = restondumps ┆
0x9c40…9c60 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 ┆then begin swoprec┆
0x9c60…9c80 36 28 63 61 74 2c 6b 29 3b 0a 20 20 20 20 20 20 20 20 6b 3a 3d 73 77 6f 70 72 65 63 36 28 63 61 ┆6(cat,k); k:=swoprec6(ca┆
0x9c80…9ca0 74 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6b 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆t,0); if k = 0 then ┆
0x9ca0…9cc0 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 63 61 74 2c 30 2c 30 29 3b 0a 20 20 20 20 20 ┆ setposition(cat,0,0); ┆
0x9cc0…9ce0 20 20 20 73 77 6f 70 72 65 63 36 28 63 61 74 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 73 77 6f 70 ┆ swoprec6(cat,2); swop┆
0x9ce0…9d00 72 65 63 36 28 63 61 74 2c 64 75 6d 70 65 6e 73 69 7a 65 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a ┆rec6(cat,dumpensize); end ┆
0x9d00…9d20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 63 61 74 2c 64 75 ┆ else swoprec6(cat,du┆
0x9d20…9d40 6d 70 65 6e 73 69 7a 65 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0c 0a 20 20 20 20 70 72 6f 63 65 64 ┆mpensize); end; proced┆
0x9d40…9d60 75 72 65 20 64 75 6d 70 63 61 74 75 70 64 61 74 65 28 6e 72 66 69 6c 65 73 2c 6e 72 2c 73 74 65 ┆ure dumpcatupdate(nrfiles,nr,ste┆
0x9d60…9d80 6e 74 72 79 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 6e 72 66 69 6c 65 73 2c 6e 72 2c 73 74 ┆ntry); integer nrfiles,nr,st┆
0x9d80…9da0 65 6e 74 72 79 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 62 ┆entry; begin integer b┆
0x9da0…9dc0 69 74 6e 6f 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆itno; comment ┆
0x9dc0…9de0 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *****************************┆
0x9de0…9e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 ┆************************** ┆
0x9e00…9e20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x9e20…9e40 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 2a ┆ *┆
0x9e40…9e60 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 ┆ * This procedure┆
0x9e60…9e80 20 77 69 6c 6c 20 66 6f 72 20 74 68 65 20 65 6e 74 72 69 65 73 20 69 6e 20 74 68 65 20 63 61 74 ┆ will for the entries in the cat┆
0x9e80…9ea0 61 6c 6f 67 20 20 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 74 6f 20 74 68 65 20 ┆alog * * to the ┆
0x9ea0…9ec0 74 61 70 65 20 63 6f 70 69 65 64 20 74 68 61 74 20 64 61 79 20 75 70 64 61 74 65 20 69 6e 20 64 ┆tape copied that day update in d┆
0x9ec0…9ee0 75 6d 70 63 61 74 2e 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 6e ┆umpcat. * * n┆
0x9ee0…9f00 72 66 69 6c 65 73 3a 20 73 70 65 63 69 66 69 65 73 20 68 6f 77 20 6d 61 6e 79 20 65 6e 74 72 69 ┆rfiles: specifies how many entri┆
0x9f00…9f20 65 73 20 74 68 61 74 20 69 73 20 74 6f 20 62 65 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆es that is to be * ┆
0x9f20…9f40 20 20 20 2a 20 75 70 64 61 74 65 64 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * updated. ┆
0x9f40…9f60 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 2a 0a 20 20 20 20 20 ┆ * ┆
0x9f60…9f80 20 20 20 20 20 20 20 20 20 2a 20 6e 72 20 20 20 20 20 3a 20 73 70 65 63 69 66 69 65 73 20 74 68 ┆ * nr : specifies th┆
0x9f80…9fa0 65 20 74 61 70 65 6e 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆e tapenr *┆
0x9fa0…9fc0 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 73 74 73 74 65 6e 74 72 79 3a 20 73 70 65 ┆ * ststentry: spe┆
0x9fc0…9fe0 63 69 66 69 65 73 20 77 68 65 72 65 20 74 68 65 20 65 6e 74 72 69 65 73 20 73 74 61 72 74 20 69 ┆cifies where the entries start i┆
0x9fe0…a000 6e 20 74 68 65 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 63 61 74 61 6c 6f 67 2e ┆n the * * catalog.┆
0xa000…a020 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 ┆ ┆
0xa020…a040 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 ┆ * * ┆
0xa040…a060 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 ┆ ┆
0xa060…a080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0xa080…a0a0 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ******************************┆
0xa0a0…a0c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0c 0a 20 20 20 ┆*************************; ┆
0xa0c0…a0e0 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f 76 65 64 75 6d 70 62 69 74 3b 0a 20 20 20 20 ┆ procedure removedumpbit; ┆
0xa0e0…a100 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 ┆ begin comment ┆
0xa100…a120 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ************************┆
0xa120…a140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 ┆****************************** ┆
0xa140…a160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0xa160…a180 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 ┆ ┆
0xa180…a1a0 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 54 68 69 73 20 70 72 6f ┆ * * This pro┆
0xa1a0…a1c0 63 65 64 75 72 65 20 72 65 6d 6f 76 65 73 20 74 68 65 20 62 69 74 20 62 65 6c 6f 6e 69 6e 67 20 ┆cedure removes the bit beloning ┆
0xa1c0…a1e0 74 6f 20 6e 72 20 69 6e 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 74 ┆to nr in * * t┆
0xa1e0…a200 68 65 20 77 68 6f 6c 65 20 64 75 6d 70 63 61 74 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆he whole dumpcat. ┆
0xa200…a220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0xa220…a240 20 20 20 20 2a 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 ┆ * ┆
0xa240…a260 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 2a 0a 20 20 20 20 20 ┆ * ┆
0xa260…a280 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *********************┆
0xa280…a2a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0xa2a0…a2c0 2a 3b 0a 20 20 20 20 20 20 20 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 75 72 65 20 62 69 74 ┆*; boolean procedure bit┆
0xa2c0…a2e0 73 61 74 28 62 69 74 6e 75 6d 6d 65 72 29 3b 69 6e 74 65 67 65 72 20 62 69 74 6e 75 6d 6d 65 72 ┆sat(bitnummer);integer bitnummer┆
0xa2e0…a300 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 62 69 74 73 61 74 ┆; begin bitsat┆
0xa300…a320 3a 3d 20 69 66 20 63 61 74 2e 77 6f 72 64 6e 6f 20 73 68 69 66 74 28 2d 62 69 74 6e 75 6d 6d 65 ┆:= if cat.wordno shift(-bitnumme┆
0xa320…a340 72 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆r) extract 1 = 1 then ┆
0xa340…a360 20 20 20 74 72 75 65 20 65 6c 73 65 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ true else false; end;┆
0xa360…a380 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6e 6f 6f 6e 73 65 67 6d 2c 6e 72 65 6d 6f 76 ┆ integer noonsegm,nremov┆
0xa380…a3a0 65 64 2c 77 6f 72 64 31 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 ┆ed,word1; integer field ┆
0xa3a0…a3c0 70 6c 61 63 65 3b 0a 20 20 20 20 20 20 20 20 62 6f 6f 6c 65 61 6e 20 65 6d 70 74 79 3b 0a 20 20 ┆place; boolean empty; ┆
0xa3c0…a3e0 20 20 20 20 20 20 20 69 66 20 74 74 65 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆ if ttest then write(out,<┆
0xa3e0…a400 3a 3c 31 30 3e 62 69 74 3d 3a 3e 2c 62 69 74 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c ┆:<10>bit=:>,bitno, <┆
0xa400…a420 3a 3c 31 30 3e 62 69 74 6d 6f 65 6e 73 74 65 72 20 3d 3a 3e 2c 62 69 74 70 61 74 74 65 72 6e 29 ┆:<10>bitmoenster =:>,bitpattern)┆
0xa420…a440 3b 0a 20 20 20 20 20 20 20 20 65 6d 70 74 79 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 6e ┆; empty:=true; n┆
0xa440…a460 72 65 6d 6f 76 65 64 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 63 61 ┆removed:=0; open(ca┆
0xa460…a480 74 2c 34 2c 20 64 75 6d 70 31 6e 61 6d 65 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 ┆t,4, dump1name,0); for i┆
0xa480…a4a0 3a 3d 20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 68 61 73 68 65 6e 74 72 69 65 73 2d 31 20 ┆:= 0 step 1 until hashentries-1 ┆
0xa4a0…a4c0 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f ┆do begin setpo┆
0xa4c0…a4e0 73 69 74 69 6f 6e 28 63 61 74 2c 30 2c 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 ┆sition(cat,0,i); swopr┆
0xa4e0…a500 65 63 36 28 63 61 74 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 6f 6f 6e 73 65 67 6d 3a 3d ┆ec6(cat,2); noonsegm:=┆
0xa500…a520 63 61 74 2e 63 61 74 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 74 65 73 74 20 ┆cat.catnr; if ttest ┆
0xa520…a540 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 61 6e 74 61 6c 3d 3a 3e 2c 6e 6f ┆then write(out,<:<10>antal=:>,no┆
0xa540…a560 6f 6e 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6e 6f 6f 6e 73 ┆onsegm); while noons┆
0xa560…a580 65 67 6d 20 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆egm > 0 do begin ┆
0xa580…a5a0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 74 65 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f ┆ if ttest then write(o┆
0xa5a0…a5c0 75 74 2c 3c 3a 3c 31 30 3e 20 61 6e 74 61 6c 31 20 3d 20 3a 3e 2c 6e 6f 6f 6e 73 65 67 6d 29 3b ┆ut,<:<10> antal1 = :>,noonsegm);┆
0xa5c0…a5e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 68 61 73 68 65 6e 74 72 79 3b 0a 20 20 20 20 20 ┆ rhashentry; ┆
0xa5e0…a600 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 63 61 74 2e 63 61 74 6e 72 20 3d 20 2d 31 20 20 64 ┆ while cat.catnr = -1 d┆
0xa600…a620 6f 20 72 68 61 73 68 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 ┆o rhashentry; word┆
0xa620…a640 31 3a 3d 63 61 74 2e 77 6f 72 64 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆1:=cat.wordno; if ┆
0xa640…a660 62 69 74 73 61 74 28 62 69 74 6e 6f 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆bitsat(bitno) then ┆
0xa660…a680 20 63 61 74 2e 77 6f 72 64 6e 6f 3a 3d 65 78 6f 72 28 63 61 74 2e 77 6f 72 64 6e 6f 2c 62 69 74 ┆ cat.wordno:=exor(cat.wordno,bit┆
0xa680…a6a0 70 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 74 65 73 74 ┆pattern); if ttest┆
0xa6a0…a6c0 20 61 6e 64 20 77 6f 72 64 31 20 3c 3e 20 63 61 74 2e 77 6f 72 64 6e 6f 20 0a 20 20 20 20 20 20 ┆ and word1 <> cat.wordno ┆
0xa6c0…a6e0 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 77 6f 72 64 32 20 3d ┆ then write(out,<:word2 =┆
0xa6e0…a700 20 3a 3e 2c 63 61 74 2e 77 6f 72 64 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆ :>,cat.wordno); f┆
0xa700…a720 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 62 69 74 74 73 69 7a 65 20 64 6f ┆or j:=1 step 1 until bittsize do┆
0xa720…a740 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6d 70 74 79 3a 3d 20 65 6d 70 74 79 20 61 6e 64 ┆ empty:= empty and┆
0xa740…a760 20 28 63 61 74 2e 73 74 61 72 74 6f 66 62 69 74 74 28 6a 29 20 3d 20 30 29 3b 0a 20 20 20 20 20 ┆ (cat.startofbitt(j) = 0); ┆
0xa760…a780 20 20 20 20 20 20 20 20 20 69 66 20 65 6d 70 74 79 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if empty then ┆
0xa780…a7a0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 ┆ begin for i┆
0xa7a0…a7c0 6b 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 64 75 6d 70 73 69 7a 65 20 64 6f 0a 20 ┆k:= 1 step 1 until dumpsize do ┆
0xa7c0…a7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0xa7e0…a800 20 20 20 20 20 20 20 70 6c 61 63 65 3a 3d 69 6b 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ place:=ik*2; ┆