DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦8c6b0f8fa⟧ Rc489kSubCat

    Length: 86016 (0x15000)
    Types: Rc489kSubCat
    Names: »cdes«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »cdes« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »cdes« 

OctetView - Rc489kSubCat

0x00000…00033 Rc489kSubCatEnt {f00=0x0031d8, f01=0x0007e4, f02=0x0007e4, filename=»complinp    «, entry_tail=0-4-0-2-1981-01-10T14:59-disc1-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x005efa, f01=0x0007e4, f02=0x0007ed, filename=»multicopinp «, entry_tail=0-4-0-4-1981-02-04T11:08-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x009d8a, f01=0x0007e4, f02=0x0007ed, filename=»compfphead  «, entry_tail=0-4-0-2-1981-01-21T16:44-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x00b5ba, f01=0x0007e4, f02=0x0007e4, filename=»compdes     «, entry_tail=0-4-0-3-1981-01-21T16:32-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x00e33a, f01=0x0007e4, f02=0x0007ed, filename=»listerrinp  «, entry_tail=0-4-0-2-1980-12-09T11:47-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x0106fa, f01=0x0007e4, f02=0x0007ed, filename=»describeinp «, entry_tail=0-4-0-6-1980-11-12T12:08-disc1-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x016b82, f01=0x0007e4, f02=0x0007ed, filename=»writestdinp «, entry_tail=0-4-0-4-1980-11-11T15:19-disc1-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x01a26a, f01=0x0007e4, f02=0x0007ed, filename=»testbufinp  «, entry_tail=0-4-0-2-1980-11-11T15:13-disc1-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x01c762, f01=0x0007e4, f02=0x0007ed, filename=»stdvarinp   «, entry_tail=0-4-0-6-1980-11-11T15:11-disc1-0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x022652, f01=0x0007e4, f02=0x0007ed, filename=»searchcinp  «, entry_tail=0-4-0-2-1980-11-11T15:06-disc1-0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x024a02, f01=0x0007e4, f02=0x0007ed, filename=»remspinp    «, entry_tail=0-4-0-2-1980-11-11T15:07-disc1-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x02609a, f01=0x0007e4, f02=0x0007ed, filename=»mtreadinp   «, entry_tail=0-4-0-4-1980-11-11T15:02-disc1-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x02ad5a, f01=0x0007e4, f02=0x0007ed, filename=»macroinp    «, entry_tail=0-4-0-2-1980-11-11T14:58-disc1-0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x02cf5a, f01=0x0007e4, f02=0x0007ed, filename=»listintinp  «, entry_tail=0-4-0-2-1980-11-11T14:56-disc1-0x0-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x02e402, f01=0x0007e4, f02=0x0007ed, filename=»extractinp  «, entry_tail=0-4-0-5-1980-11-11T14:53-disc1-0x0-0x0-0x0-0x0}
0x002fd…00300 0x00001c
0x00300…00333 Rc489kSubCatEnt {f00=0x0331f2, f01=0x0007e4, f02=0x0007ed, filename=»docmoveinp  «, entry_tail=0-4-0-2-1980-11-11T14:47-disc1-0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x0356e2, f01=0x0007e4, f02=0x0007ed, filename=»convertinp  «, entry_tail=0-4-0-2-1980-11-11T14:28-disc1-0x0-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x03787a, f01=0x0007e4, f02=0x0007ed, filename=»deviceinp   «, entry_tail=0-4-0-2-1980-11-11T14:30-disc1-0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x039352, f01=0x0007e4, f02=0x0007ed, filename=»disccopyinp «, entry_tail=0-4-0-2-1980-11-11T14:15-disc3-0x0-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x03b0f2, f01=0x0007e4, f02=0x0007ed, filename=»readparinp  «, entry_tail=0-4-0-2-1980-11-11T14:08-disc1-0x0-0x0-0x0-0x0}
0x003ff…00432 Rc489kSubCatEnt {f00=0x03db4a, f01=0x0007e4, f02=0x0007ed, filename=»wrstdeinp   «, entry_tail=0-4-0-3-1980-11-11T14:11-disc3-0x0-0x0-0x0-0x0}
0x00432…00465 Rc489kSubCatEnt {f00=0x04042a, f01=0x0007e4, f02=0x0007ed, filename=»careainp    «, entry_tail=0-4-0-2-1980-11-11T13:56-disc3-0x0-0x0-0x0-0x0}
0x00465…00498 Rc489kSubCatEnt {f00=0x042662, f01=0x0007e4, f02=0x0007ed, filename=»outshclinp  «, entry_tail=0-4-0-1-1980-11-11T13:58-disc1-0x0-0x0-0x0-0x0}
0x00498…004cb Rc489kSubCatEnt {f00=0x043252, f01=0x0007e4, f02=0x0007ed, filename=»printfinp   «, entry_tail=0-4-0-2-1980-11-11T14:01-disc1-0x0-0x0-0x0-0x0}
0x004cb…004fe Rc489kSubCatEnt {f00=0x04591a, f01=0x0007e4, f02=0x0007ed, filename=»procfinp    «, entry_tail=0-4-0-2-1980-10-21T16:10-disc1-0x0-0x0-0x0-0x0}
0x004fe…00531 Rc489kSubCatEnt {f00=0x0470c8, f01=0x0007e4, f02=0x0007e4, filename=»progfinp    «, entry_tail=0-4-0-2-1980-10-21T14:31-disc1-0x0-0x0-0x0-0x0}
0x00531…00564 Rc489kSubCatEnt {f00=0x049802, f01=0x0007e4, f02=0x0007ed, filename=»guidec      «, entry_tail=0-4-0-3-1980-10-21T14:28-disc1-0x0-0x0-0x0-0x0}
0x00564…00597 Rc489kSubCatEnt {f00=0x04ca5a, f01=0x0007e4, f02=0x0007ed, filename=»guideinp    «, entry_tail=0-4-0-10-1980-10-21T14:28-disc1-0x0-0x0-0x0-0x0}
0x00597…005a0 02 cf 5a 00 07 e4 00 07 ed                                                                        ┆  Z      ┆
0x005a0…005c0 6c 69 73 74 69 6e 74 69 6e 70 00 00 00 00 02 64 69 73 63 31 00 00 00 00 00 00 00 76 26 73 00 00   ┆listintinp     disc1       v&s  ┆
0x005c0…005e0 00 00 00 00 00 00 00 00 00 00 02 e4 02 00 07 e4 00 07 ed 65 78 74 72 61 63 74 69 6e 70 00 00 00   ┆                   extractinp   ┆
0x005e0…00600 00 05 64 69 73 63 31 00 00 00 00 00 00 00 76 26 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆  disc1       v&p               ┆
0x00600…00620 65 72 6d 61 6e 65 6e 74 65 20 70 6c 61 64 65 6c 61 67 65 72 20 72 65 73 6f 75 72 63 65 72 2e 0a   ┆ermanente pladelager resourcer. ┆
0x00620…00640 44 65 73 75 64 65 6e 20 67 7b 6c 64 65 72 20 61 74 20 73 74 61 6e 64 61 72 64 20 74 69 64 20 65   ┆Desuden gælder at standard tid e┆
0x00640…00660 72 20 35 20 6d 69 6e 20 6f 67 0a 61 74 20 6d 61 78 69 6d 61 6c 74 69 64 20 69 20 64 61 67 74 69   ┆r 5 min og at maximaltid i dagti┆
0x00660…00680 64 20 65 72 20 32 30 20 6d 69 6e 20 6f 67 20 6f 6d 20 6e 61 74 74 65 6e 0a 38 20 74 69 6d 65 72   ┆d er 20 min og om natten 8 timer┆
0x00680…006a0 2e 0a 44 65 72 20 6b 61 6e 20 6b 7c 72 65 20 6f 70 20 74 69 6c 20 38 20 6a 6f 62 73 20 73 61 6d   ┆. Der kan køre op til 8 jobs sam┆
0x006a0…006c0 74 69 64 69 67 20 75 6e 64 65 72 20 64 65 6e 20 73 61 74 73 76 69 73 65 0a 61 66 76 69 6b 6c 69   ┆tidig under den satsvise afvikli┆
0x006c0…006e0 6e 67 20 76 65 64 20 62 65 6e 79 74 74 65 6c 73 65 20 61 66 20 6c 61 67 65 72 76 65 6b 73 6c 69   ┆ng ved benyttelse af lagerveksli┆
0x006e0…00700 6e 67 2e 20 4a 6f 62 62 65 6e 65 0a 62 6c 69 76 65 72 20 70 72 69 6f 72 69 74 65 72 65 74 20 65   ┆ng. Jobbene bliver prioriteret e┆
0x00700…00720 66 74 65 72 20 66 6f 72 76 65 6e 74 65 74 20 6b 7c 72 65 74 69 64 2c 20 66 6f 72 62 72 75 67 74   ┆fter forventet køretid, forbrugt┆
0x00720…00740 0a 74 69 64 20 6f 67 20 65 66 74 65 72 20 68 76 6f 72 20 6d 61 6e 67 65 20 6a 6f 62 73 20 65 6e   ┆ tid og efter hvor mange jobs en┆
0x00740…00760 20 62 72 75 67 65 72 67 72 75 70 70 65 20 61 6c 6c 65 72 65 64 65 0a 65 72 20 76 65 64 20 61 74   ┆ brugergruppe allerede er ved at┆
0x00760…00780 20 66 7d 20 61 66 76 69 6b 6c 65 74 2e 0a 0a 42 61 67 67 72 75 6e 64 73 6c 61 67 65 72 2e 0a 52   ┆ få afviklet.  Baggrundslager. R┆
0x00780…007a0 43 38 30 30 30 27 73 20 6d 7d 64 65 20 61 74 20 62 65 68 61 6e 64 6c 65 20 62 61 67 67 72 75 6e   ┆C8000's måde at behandle baggrun┆
0x007a0…007c0 64 73 6c 61 67 65 72 20 70 7d 20 75 64 76 69 73 65 72 0a 65 6e 20 72 7b 6b 6b 65 20 61 66 76 69   ┆dslager på udviser en række afvi┆
0x007c0…007e0 67 65 6c 73 65 72 20 66 72 61 20 52 43 34 30 30 30 27 73 2e 20 48 65 72 20 73 6b 61 6c 20 6b 75   ┆gelser fra RC4000's. Her skal ku┆
0x007e0…00800 6e 20 6e 7b 76 6e 65 73 20 74 72 65 2c 0a 73 6f 6d 20 69 6d 69 64 6c 65 72 74 69 64 20 62 7c 72   ┆n nævnes tre, som imidlertid bør┆
0x00800…00820 20 68 75 73 6b 65 73 2e 20 31 29 20 49 20 52 43 34 30 30 30 20 6b 61 6e 20 6d 61 6e 20 6c 7b 73   ┆ huskes. 1) I RC4000 kan man læs┆
0x00820…00840 65 20 69 20 61 6c 6c 65 0a 6f 6d 72 7d 64 65 72 2e 20 44 65 74 74 65 20 65 72 20 69 6b 6b 65 20   ┆e i alle områder. Dette er ikke ┆
0x00840…00860 74 69 6c 66 7b 6c 64 65 74 20 69 20 52 43 38 30 30 30 2e 20 32 29 20 52 43 38 30 30 30 20 6f 70   ┆tilfældet i RC8000. 2) RC8000 op┆
0x00860…00880 72 65 74 74 65 72 0a 73 65 6c 76 20 6f 6d 72 7d 64 65 72 2e 20 48 76 69 73 20 6d 61 6e 20 66 2e   ┆retter selv områder. Hvis man f.┆
0x00880…008a0 65 6b 73 2e 20 7c 6e 73 6b 65 72 20 61 74 20 65 64 69 74 65 72 65 72 20 6f 76 65 72 20 69 20 65   ┆eks. ønsker at editerer over i e┆
0x008a0…008c0 74 20 6f 6d 72 7d 64 65 2c 20 0a 6e 61 76 6e 31 2c 28 6e 61 76 6e 31 20 3d 20 65 64 69 74 20 6e   ┆t område,  navn1,(navn1 = edit n┆
0x008c0…008e0 61 76 6e 32 20 66 2e 65 6b 73 2e 29 20 6f 67 20 6e 61 76 6e 31 20 69 6b 6b 65 20 66 69 6e 64 65   ┆avn2 f.eks.) og navn1 ikke finde┆
0x008e0…00900 73 20 65 6c 6c 65 72 0a 6d 61 6e 20 69 6b 6b 65 20 6d 7d 20 73 6b 72 69 76 65 20 69 20 64 65 74   ┆s eller man ikke må skrive i det┆
0x00900…00f00 Data for complinp
0x00f00…01b00 Data for multicopinp
0x01b00…02100 Data for compfphead
0x02100…02a00 Data for compdes
0x02a00…03000 Data for listerrinp
0x03000…04200 Data for describeinp
0x04200…04e00 Data for writestdinp
0x04e00…05400 Data for testbufinp
0x05400…06600 Data for stdvarinp
0x06600…06c00 Data for searchcinp
0x06c00…07200 Data for remspinp
0x07200…07e00 Data for mtreadinp
0x07e00…08400 Data for macroinp
0x08400…08a00 Data for listintinp
0x08a00…09900 Data for extractinp
0x09900…09f00 Data for docmoveinp
0x09f00…0a500 Data for convertinp
0x0a500…0ab00 Data for deviceinp
0x0ab00…0b100 Data for disccopyinp
0x0b100…0b700 Data for readparinp
0x0b700…0c000 Data for wrstdeinp
0x0c000…0c600 Data for careainp
0x0c600…0c900 Data for outshclinp
0x0c900…0cf00 Data for printfinp
0x0cf00…0d500 Data for procfinp
0x0d500…0db00 Data for progfinp
0x0db00…0e400 Data for guidec
0x0e400…10200 Data for guideinp
0x10200…10220 80 0b 73 80 00 01 7f ff fd 64 65 6c 65 74 65 72 65 63 69 00 00 80 00 04 64 72 75 6d 00 00 00 00   ┆  s      deletereci     drum    ┆
0x10220…10240 00 00 00 00 80 11 54 04 80 00 00 00 00 00 40 00 00 70 02 80 04 c3 00 00 78 00 00 81 64 69 61 67   ┆      T       @  p      x   diag┆
0x10240…10260 72 61 6d 00 00 00 00 00 80 00 00 64 72 75 6d 00 00 00 00 00 00 00 00 7c f9 c9 00 07 df 00 00 00   ┆ram        drum        ø        ┆
0x10260…10280 00 00 00 00 00 0b 02 2f 7b 00 00 50 00 00 59 64 69 66 62 6f 67 32 00 00 00 00 00 00 00 0c 64 69   ┆       /æ  P  Ydifbog2        di┆
0x10280…102a0 73 63 32 00 00 00 00 00 00 00 80 ae aa 00 00 00 00 00 00 00 00 00 00 00 00 53 5c 6b 00 07 f8 00   ┆sc2                      SØk    ┆
0x102a0…102c0 08 01 64 6c 69 73 74 00 00 00 00 00 00 00 00 00 0e 64 69 73 63 31 00 00 00 00 00 00 00 80 bc f4   ┆  dlist          disc1          ┆
0x102c0…102e0 00 00 00 00 00 00 00 00 00 00 00 00 64 78 c3 80 00 01 7f ff fd 64 75 6d 70 31 63 61 74 00 00 00   ┆            dx       dump1cat   ┆
0x102e0…10300 00 00 01 75 64 69 73 63 33 00 00 00 00 00 00 00 80 ae 56 00 00 00 00 00 00 00 b0 00 00 00 14 05   ┆   udisc3         V             ┆
0x10300…10320 c4 93 01 11 7a 01 11 83 65 6c 69 73 32 00 00 00 00 00 00 00 00 00 09 64 69 73 63 34 00 00 00 00   ┆    z   elis2          disc4    ┆
0x10320…10340 00 00 00 80 bc 62 00 00 00 00 00 00 00 00 00 00 00 00 07 35 03 01 11 7a 01 11 83 65 6c 69 73 34   ┆     b             5   z   elis4┆
0x10340…10360 00 00 00 00 00 00 00 00 00 0a 64 69 73 63 34 00 00 00 00 00 00 00 80 be 43 00 00 00 00 00 00 00   ┆          disc4         C       ┆
0x10360…10380 00 00 00 00 00 01 3c 4b 01 11 7a 01 11 83 65 6c 69 73 64 61 74 61 00 00 00 00 00 00 01 64 69 73   ┆      <K  z   elisdata       dis┆
0x10380…103a0 63 34 00 00 00 00 00 00 00 80 bc 73 00 00 00 00 00 00 00 00 00 00 00 00 01 4a db 01 11 7a 01 11   ┆c4         s             J   z  ┆
0x103a0…103c0 83 65 6c 69 73 6f 75 74 00 00 00 00 00 00 00 01 64 69 73 63 34 00 00 00 00 00 00 00 80 c2 bc 00   ┆ elisout        disc4           ┆
0x103c0…103e0 00 00 00 00 00 00 00 00 00 00 00 53 1f 5b 00 00 00 7f ff fc 66 72 65 61 64 62 00 00 00 00 00 00   ┆           S Æ      freadb      ┆
0x103e0…10400 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 a0 08 80 00 00 00 00 00 41 7e 00 10 00 53 30   ┆   disc1                 Aü   S0┆
0x10400…10420 43 00 00 00 7f ff fc 66 72 65 61 64 72 00 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00   ┆C      freadr         disc1     ┆
0x10420…10440 00 00 80 01 b2 10 80 00 00 00 00 00 41 90 00 10 00 53 4e 43 00 00 00 7f ff fc 66 72 65 61 64 72   ┆            A    SNC      freadr┆
0x10440…10460 61 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 76 04 d6 88 00 00 00 00 41   ┆a        disc1         v       A┆
0x10460…10480 54 00 10 00 11 17 03 80 00 01 7f ff fd 67 65 6e 73 63 61 6e 00 00 00 00 00 00 00 27 64 69 73 63   ┆T            genscan       'disc┆
0x10480…104a0 35 00 00 00 00 00 00 00 80 bd b5 80 b1 30 00 00 00 00 2a 60 00 0b ee 11 bf 53 80 00 01 7f ff fd   ┆5            0    *`     S      ┆
0x104a0…104c0 67 65 6e 73 79 6e 74 61 78 00 00 00 00 00 30 64 69 73 63 35 00 00 00 00 00 00 00 80 bd b6 80 b1   ┆gensyntax     0disc5            ┆
0x104c0…104e0 8a 00 00 00 00 2a 60 00 0b ee 80 00 83 80 00 01 7f ff fd 67 65 74 6e 65 77 00 00 00 00 00 00 80   ┆     *`            getnew       ┆
0x104e0…10500 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 54 08 30 c0 00 00 00 00 41 a8 01 20 3a 00 00 00   ┆  drum          T 0     A   :   ┆
0x10500…10520 80 01 03 80 00 01 7f ff fd 67 65 74 70 61 72 61 6d 73 69 00 00 80 00 04 64 72 75 6d 00 00 00 00   ┆         getparamsi     drum    ┆
0x10520…10540 00 00 00 00 80 60 18 0e 72 00 00 00 00 00 40 00 00 70 02 14 be d3 00 07 e4 00 07 ed 68 63 72 68   ┆     `  r     @  p          hcrh┆
0x10540…10560 63 6f 6d 74 00 00 00 00 00 00 14 64 69 73 63 31 00 00 00 00 00 00 00 80 61 07 00 00 00 00 00 00   ┆comt       disc1        a       ┆
0x10560…10580 00 00 00 00 00 00 14 fa 63 00 00 00 7f ff fc 68 63 7c 6c 69 62 00 00 00 00 00 00 00 01 3a 64 69   ┆        c      hcølib        :di┆
0x10580…105a0 73 63 31 00 00 00 00 00 00 00 80 01 c0 0c 00 00 00 00 00 00 41 92 00 20 00 10 0d 03 01 11 7a 01   ┆sc1                 A         z ┆
0x105a0…105c0 11 83 68 65 61 74 63 76 73 63 00 00 00 00 00 00 08 64 69 73 63 35 00 00 00 00 00 00 00 80 56 85   ┆  heatcvsc       disc5        V ┆
0x105c0…105e0 00 00 00 00 00 00 00 00 00 00 00 00 01 22 33 01 11 7a 01 11 83 68 65 61 74 72 65 6c 73 00 00 00   ┆             "3  z   heatrels   ┆
0x105e0…10600 00 00 00 06 64 69 73 63 34 00 00 00 00 00 00 00 80 b6 3b 00 00 00 00 00 00 00 00 00 00 00 00 80   ┆    disc4         ;             ┆
0x10600…10620 07 a3 00 00 00 7f ff fc 68 6f 75 73 74 6f 6e 61 00 00 00 00 80 00 14 64 72 75 6d 00 00 00 00 00   ┆        houstona       drum     ┆
0x10620…10640 00 00 00 77 ba d5 00 00 00 00 00 00 00 00 00 00 00 00 53 2b 2b 00 00 00 7f ff fc 69 66 72 65 61   ┆   w              S++      ifrea┆
0x10640…10660 64 69 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 b2 0c 80 00 00 00 00 00   ┆di        disc1                 ┆
0x10660…10680 41 90 00 10 00 80 0c cb 80 00 01 7f ff fd 69 6e 69 74 63 6f 6d 00 00 00 00 00 80 00 04 64 72 75   ┆A             initcom        dru┆
0x10680…106a0 6d 00 00 00 00 00 00 00 00 81 10 94 05 90 c3 0d e0 00 00 41 a8 01 20 3a 80 00 4b 80 00 01 7f ff   ┆m                  A   :  K     ┆
0x106a0…106c0 fd 69 6e 69 74 66 69 6c 65 69 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 20 12 04   ┆ initfilei      drum            ┆
0x106c0…106e0 e3 88 00 00 00 00 40 00 00 70 02 80 0b 13 80 00 01 7f ff fd 69 6e 69 74 72 65 63 69 00 00 00 00   ┆      @  p          initreci    ┆
0x106e0…10700 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 88 05 a2 00 00 00 00 00 40 00 00 70 02 80 03   ┆   drum                  @  p   ┆
0x10700…10720 33 80 00 01 7f ff fd 69 6e 73 65 72 74 72 65 63 69 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00   ┆3      insertreci     drum      ┆
0x10720…10740 00 00 80 30 22 05 a2 00 00 00 00 00 40 00 00 70 02 11 6c 93 80 00 01 7f ff fd 69 73 6f 74 61 62   ┆   0"       @  p  l       isotab┆
0x10740…10760 6c 65 00 00 00 00 00 00 1c 64 69 73 63 35 00 00 00 00 00 00 00 80 00 12 05 90 00 00 00 00 00 40   ┆le       disc5                 @┆
0x10760…10780 0a 00 10 00 03 83 8b 01 11 7a 01 11 83 6a 6f 62 66 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63   ┆         z   jobf           disc┆
0x10780…107a0 34 00 00 00 00 00 00 00 80 b6 0b 00 00 00 00 00 00 00 00 00 00 00 00 06 5e 3b 01 11 7a 01 11 83   ┆4                       ^;  z   ┆
0x107a0…107c0 6a 6f 62 66 34 00 00 00 00 00 00 00 00 00 01 64 69 73 63 34 00 00 00 00 00 00 00 80 c2 bb 00 00   ┆jobf4          disc4            ┆
0x107c0…107e0 00 00 00 00 00 00 00 00 00 00 10 ed e3 00 00 50 00 00 59 6a 6f 64 75 6d 70 00 00 00 00 00 00 00   ┆               P  Yjodump       ┆
0x107e0…10800 00 05 64 69 73 63 33 00 00 00 00 00 00 00 80 c2 ec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆  disc3                         ┆
0x10800…10820 11 95 6b 00 00 50 00 00 59 6a 7c 72 67 65 6e 00 00 00 00 00 00 00 00 06 64 69 73 63 32 00 00 00   ┆  k  P  Yjørgen         disc2   ┆
0x10820…10840 00 00 00 00 80 56 62 00 00 00 00 00 00 00 00 00 00 00 00 52 55 93 00 07 e4 00 07 ed 6b 6b 62 75   ┆     Vb            RU       kkbu┆
0x10840…10860 64 00 00 00 00 00 00 00 00 00 04 64 69 73 63 31 00 00 00 00 00 00 00 80 62 15 00 00 00 00 00 00   ┆d          disc1        b       ┆
0x10860…10880 00 00 00 00 00 00 52 04 d3 00 07 e4 00 07 ed 6b 6b 68 63 6c 6f 61 64 00 00 00 00 00 00 04 64 69   ┆      R        kkhcload       di┆
0x10880…108a0 73 63 31 00 00 00 00 00 00 00 80 54 ec 00 00 00 00 00 00 00 00 00 00 00 00 1e b3 93 00 07 e4 00   ┆sc1        T                    ┆
0x108a0…108c0 07 ed 6b 6b 6c 70 00 00 00 00 00 00 00 00 00 00 0a 64 69 73 63 31 00 00 00 00 00 00 00 80 5b f1   ┆  kklp           disc1        Æ ┆
0x108c0…108e0 00 00 01 00 00 00 00 00 00 00 00 00 18 8d d3 00 07 e4 00 07 ed 6b 6b 6c 70 32 00 00 00 00 00 00   ┆                     kklp2      ┆
0x108e0…10900 00 00 00 07 64 69 73 63 33 00 00 00 00 00 00 00 80 bb 98 00 00 00 00 00 00 00 00 00 00 00 00 1f   ┆    disc3                       ┆
0x10900…10920 b1 53 00 07 e4 00 07 ed 6b 6b 6d 6f 6e 38 30 30 33 00 00 00 00 00 65 64 69 73 63 31 00 00 00 00   ┆ S      kkmon8003     edisc1    ┆
0x10920…10940 00 00 00 80 5b f6 00 00 00 00 00 00 00 20 06 00 c8 4a 66 88 4b 00 07 e4 00 07 ed 6b 6b 6d 6f 6e   ┆    Æ            Jf K      kkmon┆
0x10940…10960 72 65 74 33 00 00 00 00 00 26 64 69 73 63 33 00 00 00 00 00 00 00 80 5b de 00 00 00 00 00 00 00   ┆ret3     &disc3        Æ        ┆
0x10960…10980 00 00 00 00 00 2c 8d 73 00 07 e4 00 07 ed 6b 6b 6f 70 74 33 00 00 00 00 00 00 00 00 17 64 69 73   ┆     , s      kkopt3         dis┆
0x10980…109a0 63 31 00 00 00 00 00 00 00 80 55 34 00 00 00 00 00 00 00 00 00 00 00 00 2c e4 cb 00 07 e4 00 07   ┆c1        U4            ,       ┆
0x109a0…109c0 ed 6b 6b 72 68 00 00 00 00 00 00 00 00 00 00 11 64 69 73 63 31 00 00 00 00 00 00 00 80 61 f0 00   ┆ kkrh           disc1        a  ┆
0x109c0…109e0 00 00 00 00 00 00 20 04 00 20 e2 06 1c fb 00 07 e4 00 07 ed 6b 6b 72 68 74 00 00 00 00 00 00 00   ┆                    kkrht       ┆
0x109e0…10a00 00 00 09 64 69 73 63 00 00 00 00 00 00 00 00 80 61 ef 00 00 00 00 00 00 00 00 00 00 00 00 08 50   ┆   disc         a              P┆
0x10a00…10a20 db 00 07 e4 00 07 ed 6b 6b 74 69 31 74 00 00 00 00 00 00 00 00 06 64 69 73 63 31 00 00 00 00 00   ┆       kkti1t         disc1     ┆
0x10a20…10a40 00 00 80 bb 97 00 00 00 00 00 00 00 00 00 00 00 00 80 08 9b 80 00 01 7f ff fd 6c 61 73 74 74 6f   ┆                          lastto┆
0x10a40…10a60 74 61 6c 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 73 3a 3e 00 00 00 00 00 00 00 00   ┆tal      drum        s:>        ┆
0x10a60…10a80 00 00 00 00 80 01 43 80 00 01 7f ff fd 6c 70 00 00 00 00 00 00 00 00 00 00 80 00 0e 64 72 75 6d   ┆      C      lp             drum┆
0x10a80…10aa0 00 00 00 00 00 00 00 00 7f 74 1c 00 00 00 00 00 00 00 00 00 00 00 00 80 04 d3 00 75 30 00 9c 3f   ┆         t                 u0  ?┆
0x10aa0…10ac0 6c 70 72 00 00 00 00 00 00 00 00 00 80 20 08 64 72 75 6d 00 00 00 00 00 00 00 00 7d 3e 66 00 00   ┆lpr            drum        å>f  ┆
0x10ac0…10ae0 00 00 00 00 00 00 00 00 00 00 52 49 33 00 00 00 7f ff fc 6d 61 74 72 69 78 6d 75 6c 74 00 00 00   ┆          RI3      matrixmult   ┆
0x10ae0…10b00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 0a 05 a6 9a 34 d3 40 00 40 12 00 10 00 00 00 00   ┆  disc1             4 @ @       ┆
0x10b00…10b20 2c f9 03 80 00 01 7f ff fd 6d 74 31 70 6f 6f 6c 00 00 00 00 00 00 00 1c 64 69 73 63 33 00 00 00   ┆,        mt1pool        disc3   ┆
0x10b20…10b40 00 00 00 00 80 ae 56 00 00 00 00 00 00 00 b0 00 00 00 00 80 0b 8b 00 07 e4 00 07 ed 6d 74 78 00   ┆      V                     mtx ┆
0x10b40…10b60 00 00 00 00 00 00 00 00 80 00 12 64 72 75 6d 00 00 00 00 00 00 00 00 7c 29 50 00 00 00 00 00 00   ┆           drum        ø)P      ┆
0x10b60…10b80 00 00 00 00 00 00 80 0e eb 80 00 01 7f ff fd 6e 65 78 74 72 65 63 69 00 00 00 00 80 00 04 64 72   ┆               nextreci       dr┆
0x10b80…10ba0 75 6d 00 00 00 00 00 00 00 00 80 01 58 04 80 00 00 00 00 00 40 00 00 70 02 32 81 cb 80 00 01 7f   ┆um          X       @  p 2      ┆
0x10ba0…10bc0 ff fd 6e 74 72 61 6d 6f 73 00 00 00 00 00 00 01 4c 64 69 73 63 33 00 00 00 00 00 00 00 80 bc 50   ┆  ntramos       Ldisc3         P┆
0x10bc0…10be0 80 b0 86 00 00 00 00 2a 60 00 0b ee 51 4b 3b 00 07 f8 00 08 01 6e 74 72 61 6d 74 72 61 6e 73 00   ┆       *`   QK;      ntramtrans ┆
0x10be0…10c00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 bc 54 00 00 00 00 00 00 00 00 00 00 00 00 80   ┆    disc1         T             ┆
0x10c00…10c20 0d e3 80 00 01 7f ff fd 6f 70 65 6e 61 64 70 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00   ┆        openadp        drum     ┆
0x10c20…10c40 00 00 00 80 10 14 04 26 88 00 00 00 00 40 00 00 20 02 80 02 ab 80 00 01 7f ff fd 6f 70 65 6e 61   ┆       &     @             opena┆
0x10c40…10c60 6e 64 70 6f 73 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 0e 04 30 c2 68 80 00 00   ┆ndpos     drum            0 h   ┆
0x10c60…10c80 40 00 00 20 02 80 06 e3 00 07 f8 00 08 01 6f 73 63 68 65 63 6b 00 00 00 00 00 80 00 00 64 72 75   ┆@             oscheck        dru┆
0x10c80…10ca0 6d 00 00 00 00 00 00 00 00 80 00 ef 00 00 00 00 00 00 00 00 00 00 00 00 80 07 23 80 00 01 7f ff   ┆m                         #     ┆
0x10ca0…10cc0 fd 6f 75 74 65 6e 64 00 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 88 04   ┆ outend         drum            ┆
0x10cc0…10ce0 80 00 00 00 00 00 41 a8 01 20 3a 80 0a 03 00 c3 50 00 ea 5f 70 63 6f 6e 76 65 72 74 00 00 00 00   ┆      A   :     P  _pconvert    ┆
0x10ce0…10d00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 00 7a 0d b0 00 00 00 00 02 20 3e 00 20 00 80 07   ┆   drum          z        >     ┆
0x10d00…10d20 b3 80 00 01 7f ff fd 70 6c 00 00 00 00 00 00 00 00 00 00 80 00 14 64 72 75 6d 00 00 00 00 00 00   ┆       pl             drum      ┆
0x10d20…10d40 00 00 63 99 3e 00 00 00 00 00 00 00 00 00 00 00 00 80 0e 33 80 00 01 7f ff fd 70 6f 73 69 74 69   ┆  c >              3      positi┆
0x10d40…10d60 6f 6e 61 64 70 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 10 04 30 c8 00 00 00 00 40   ┆onadp    drum            0     @┆
0x10d60…10d80 00 00 20 02 07 f9 7b 00 00 14 00 00 1d 70 72 69 6d 65 73 00 00 00 00 00 00 00 00 01 64 69 73 63   ┆      æ      primes         disc┆
0x10d80…10da0 35 00 00 00 00 00 00 00 7e 25 fb 00 00 01 00 00 00 00 00 04 00 01 b6 ff ff ff ff ff ff ff ff ff   ┆5       ü%                      ┆
0x10da0…10dc0 70 72 69 6d 6f 73 70 6f 6f 6c 00 00 00 00 64 64 72 75 6d 00 00 00 00 00 00 00 00 80 c2 a8 00 00   ┆primospool    ddrum             ┆
0x10dc0…10de0 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff 70 72 69 6d 6f 74 65 73 74 00 00 00 00   ┆                   primotest    ┆
0x10de0…10e00 00 2a 64 69 73 63 31 00 00 00 00 00 00 00 80 c2 a8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ *disc1                         ┆
0x10e00…10e20 80 0a 4b 80 00 01 7f ff fd 70 74 72 65 00 00 00 00 00 00 00 00 80 20 0a 64 72 75 6d 00 00 00 00   ┆  K      ptre           drum    ┆
0x10e20…10e40 00 00 00 00 63 99 3e 00 00 00 00 00 00 00 00 00 00 00 00 80 00 6b 80 00 01 7f ff fd 70 74 72 66   ┆    c >              k      ptrf┆
0x10e40…10e60 00 00 00 00 00 00 00 00 80 60 0a 64 72 75 6d 00 00 00 00 00 00 00 00 63 99 3e 00 00 00 00 00 00   ┆         ` drum        c >      ┆
0x10e60…10e80 00 00 00 00 00 00 80 0e fb 80 00 01 7f ff fd 70 74 72 6e 00 00 00 00 00 00 00 00 80 40 0a 64 72   ┆               ptrn         @ dr┆
0x10e80…10ea0 75 6d 00 00 00 00 00 00 00 00 63 99 3e 00 00 00 00 00 00 00 00 00 00 00 00 80 05 1b 80 00 01 7f   ┆um        c >                   ┆
0x10ea0…10ec0 ff fd 70 74 72 6f 00 00 00 00 00 00 00 00 80 00 0a 64 72 75 6d 00 00 00 00 00 00 00 00 63 99 3e   ┆  ptro           drum        c >┆
0x10ec0…10ee0 00 00 00 00 00 00 00 00 00 00 00 00 80 0c 83 80 00 01 7f ff fd 70 75 74 72 65 63 69 00 00 00 00   ┆                     putreci    ┆
0x10ee0…10f00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 7a 04 80 00 00 00 00 00 40 00 00 70 02 80   ┆    drum          z       @  p  ┆
0x10f00…10f20 0c 9b 00 00 3c 00 00 45 72 00 00 00 00 00 00 00 00 00 00 00 80 40 12 64 72 75 6d 00 00 00 00 00   ┆    <  Er            @ drum     ┆
0x10f20…10f40 00 00 00 7e 98 11 00 00 00 00 00 00 00 00 00 00 00 00 80 0c 9b 00 02 76 00 02 7f 72 00 00 00 00   ┆   ü                   v   r    ┆
0x10f40…10f60 00 00 00 00 00 00 00 80 40 12 64 72 75 6d 00 00 00 00 00 00 00 00 75 2b 56 00 00 04 00 00 00 00   ┆        @ drum        u+V       ┆
0x10f60…10f80 00 00 00 00 00 80 0c fb 00 02 62 00 02 6b 72 64 63 6f 73 00 00 00 00 00 00 00 80 00 04 64 72 75   ┆          b  krdcos          dru┆
0x10f80…10fa0 6d 00 00 00 00 00 00 00 00 80 01 20 91 60 00 00 00 00 00 40 00 ff ff e4 80 02 bb 00 02 62 00 02   ┆m            `     @         b  ┆
0x10fa0…10fc0 6b 72 64 72 65 61 6c 00 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 01 1c 91   ┆krdreal         drum            ┆
0x10fc0…10fe0 60 00 00 00 00 00 40 00 ff ff ac 80 04 f3 00 02 62 00 02 6b 72 64 73 71 72 74 00 00 00 00 00 00   ┆`     @         b  krdsqrt      ┆
0x10fe0…11000 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 01 1e 91 60 00 00 00 00 00 40 00 ff ff c8 80 6a   ┆   drum            `     @     j┆
0x11000…11020 fb 00 00 00 7f ff fc 72 65 61 64 72 61 31 6c 00 00 00 00 80 00 04 64 69 73 63 31 00 00 00 00 00   ┆       readra1l       disc1     ┆
0x11020…11040 00 00 80 00 b8 04 e3 8d 35 a2 40 0b 61 d2 00 30 00 80 07 fb 80 00 01 7f ff fd 72 65 6c 66 6f 72   ┆        5 @ a  0          relfor┆
0x11040…11060 6d 61 74 73 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 1c 04 00 00 00 00 00 00 41   ┆mats     drum                  A┆
0x11060…11080 a8 01 20 3a 80 06 1b 80 00 01 7f ff fd 72 65 73 65 74 61 6c 69 61 73 00 00 80 00 04 64 72 75 6d   ┆   :         resetalias     drum┆
0x11080…110a0 00 00 00 00 00 00 00 00 81 10 6c 04 00 00 00 00 00 00 41 a8 01 20 3a 80 00 cb 80 00 01 7f ff fd   ┆          l       A   :         ┆
0x110a0…110c0 72 65 73 75 6c 74 69 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 00 00 01 24 00   ┆resulti        drum           $ ┆
0x110c0…110e0 00 00 00 00 00 40 00 00 70 02 80 0d 8b 00 00 00 00 07 cf 72 65 74 00 00 00 00 00 00 00 00 00 80   ┆     @  p          ret          ┆
0x110e0…11100 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 00 20 04 00 11 30 00 00 00   ┆  drum                      0   ┆
0x11100…11120 07 b7 3b 80 00 01 7f ff fd 72 65 74 63 6f 6d 61 6c 00 00 00 00 00 00 01 64 69 73 63 35 00 00 00   ┆  ;      retcomal       disc5   ┆
0x11120…11140 00 00 00 00 80 bd ab 00 00 00 00 00 00 00 00 00 00 00 00 0b 6e 33 80 00 01 7f ff fd 73 63 61 6e   ┆                    n3      scan┆
0x11140…11160 74 61 62 6c 65 00 00 00 00 00 04 64 69 73 63 35 00 00 00 00 00 00 00 80 bd b6 00 00 00 00 00 00   ┆table      disc5                ┆
0x11160…11180 00 00 00 00 00 00 80 02 33 80 00 01 7f ff fd 73 65 74 61 6c 69 61 73 00 00 00 00 80 00 04 64 72   ┆        3      setalias       dr┆
0x11180…111a0 75 6d 00 00 00 00 00 00 00 00 81 10 60 04 80 00 00 00 00 00 41 a8 01 20 3a 80 06 13 80 00 01 7f   ┆um          `       A   :       ┆
0x111a0…111c0 ff fd 73 65 74 64 65 73 63 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 7a   ┆  setdesc        drum          z┆
0x111c0…111e0 04 80 00 00 00 00 00 41 a8 01 20 3a 80 07 43 80 00 01 7f ff fd 73 65 74 70 61 72 61 6d 73 69 00   ┆       A   :  C      setparamsi ┆
0x111e0…11200 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 60 1a 0e 72 00 00 00 00 00 40 00 00 70 02 80   ┆    drum         `  r     @  p  ┆
0x11200…14000 […elided…]
0x14000…14020 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 20 20   ┆  *                             ┆
0x14020…14040 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   ┆                         *      ┆
0x14040…14060 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 20 66 69 6e 64 73 20   ┆         * This procedure finds ┆
0x14060…14080 6f 75 74 20 68 6f 77 20 6d 61 6e 79 20 65 6e 74 72 69 65 73 20 74 68 65 72 65 20 61 72 65 20 20   ┆out how many entries there are  ┆
0x14080…140a0 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 69 6e 20 74 68 65 20 68 61 73 68 20 74 61   ┆*               * in the hash ta┆
0x140a0…140c0 62 6c 65 20 61 6e 64 20 69 66 20 74 68 65 72 65 20 69 73 20 6d 6f 72 65 20 74 68 61 6e 20 6d 61   ┆ble and if there is more than ma┆
0x140c0…140e0 78 68 61 73 68 2d 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 73 69 7a 65 20 69 74   ┆xhash- *               * size it┆
0x140e0…14100 20 69 73 20 72 65 6f 72 67 61 6e 69 73 65 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ is reorganised                 ┆
0x14100…14120 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   ┆              *                *┆
0x14120…14140 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   ┆                                ┆
0x14140…14160 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   ┆                      *         ┆
0x14160…14180 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   ┆         ***********************┆
0x14180…141a0 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   ┆********************************┆
0x141a0…141c0 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;      ┆
0x141c0…141e0 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;  ┆
0x141e0…14200 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┆
0x14200…14220 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┆
0x14220…14240 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┆
0x14240…14260 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┆
0x14260…14280 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┆
0x14280…142a0 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+┆
0x142a0…142c0 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┆
0x142c0…142e0 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┆
0x142e0…14300 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┆
0x14300…14320 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┆
0x14320…14340 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┆
0x14340…14360 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;     ┆
0x14360…14380 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┆
0x14380…143a0 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);     ┆
0x143a0…143c0 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     ┆
0x143c0…143e0 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);      ┆
0x143e0…14400 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; ┆
0x14400…14420 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┆
0x14420…14440 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 ┆
0x14440…14460 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┆
0x14460…14480 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┆
0x14480…144a0 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     ┆
0x144a0…144c0 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);      ┆
0x144c0…144e0 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┆
0x144e0…14500 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 ┆
0x14500…14520 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┆
0x14520…14540 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┆
0x14540…14560 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┆
0x14560…14580 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┆
0x14580…145a0 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┆
0x145a0…145c0 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             ┆
0x145c0…145e0 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   ┆   *****************************┆
0x145e0…14600 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   ┆**************************      ┆
0x14600…14620 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   ┆         *                      ┆
0x14620…14640 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   ┆                               *┆
0x14640…14660 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┆
0x14660…14680 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┆
0x14680…146a0 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 ┆
0x146a0…146c0 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┆
0x146c0…146e0 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┆
0x146e0…14700 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┆
0x14700…14720 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   *            ┆
0x14720…14740 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.                   ┆
0x14740…14760 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   ┆                         *      ┆
0x14760…14780 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┆
0x14780…147a0 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                       *┆
0x147a0…147c0 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┆
0x147c0…147e0 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┆
0x147e0…14800 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.┆
0x14800…14820 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   ┆                                ┆
0x14820…14840 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   ┆            *               *   ┆
0x14840…14860 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   ┆                                ┆
0x14860…14880 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   ┆                  *             ┆
0x14880…148a0 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   ┆  ******************************┆
0x148a0…148c0 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   ┆*************************;      ┆
0x148c0…148e0 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;     ┆
0x148e0…14900 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         ┆
0x14900…14920 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   ┆        ************************┆
0x14920…14940 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   ┆******************************  ┆
0x14940…14960 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   ┆               *                ┆
0x14960…14980 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   ┆                                ┆
0x14980…149a0 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┆
0x149a0…149c0 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 ┆
0x149c0…149e0 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┆
0x149e0…14a00 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.               ┆
0x14a00…14a20 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   ┆                  *             ┆
0x14a20…14a40 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   ┆    *                           ┆
0x14a40…14a60 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   ┆                         *      ┆
0x14a60…14a80 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   ┆           *********************┆
0x14a80…14aa0 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   ┆********************************┆
0x14aa0…14ac0 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┆
0x14ac0…14ae0 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┆
0x14ae0…14b00 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┆
0x14b00…14b20 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┆
0x14b20…14b40 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           ┆
0x14b40…14b60 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;┆
0x14b60…14b80 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┆
0x14b80…14ba0 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 ┆
0x14ba0…14bc0 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;   ┆
0x14bc0…14be0 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,<┆
0x14be0…14c00 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,             <┆
0x14c00…14c20 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)┆
0x14c20…14c40 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┆
0x14c40…14c60 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┆
0x14c60…14c80 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┆
0x14c80…14ca0 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 ┆
0x14ca0…14cc0 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┆
0x14cc0…14ce0 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┆
0x14ce0…14d00 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:=┆
0x14d00…14d20 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 ┆
0x14d20…14d40 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┆
0x14d40…14d60 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┆
0x14d60…14d80 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    ┆
0x14d80…14da0 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┆
0x14da0…14dc0 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);┆
0x14dc0…14de0 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;      ┆
0x14de0…14e00 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┆
0x14e00…14e20 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┆
0x14e20…14e40 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 ┆
0x14e40…14e60 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              ┆
0x14e60…14e80 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┆
0x14e80…14ea0 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┆
0x14ea0…14ec0 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        ┆
0x14ec0…14ee0 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 =┆
0x14ee0…14f00 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┆
0x14f00…14f20 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┆
0x14f20…14f40 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┆
0x14f40…14f60 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);      ┆
0x14f60…14f80 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          ┆
0x14f80…14fa0 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┆
0x14fa0…14fc0 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  ┆
0x14fc0…14fe0 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            ┆
0x14fe0…15000 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;             ┆

OctetView - Rc489kSubCat

0x00000…00033 Rc489kSubCatEnt {f00=0x0031d8, f01=0x0007e4, f02=0x0007e4, filename=»complinp    «, entry_tail=0-4-0-2-1981-01-10T14:59-disc1-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x005efa, f01=0x0007e4, f02=0x0007ed, filename=»multicopinp «, entry_tail=0-4-0-4-1981-02-04T11:08-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x009d8a, f01=0x0007e4, f02=0x0007ed, filename=»compfphead  «, entry_tail=0-4-0-2-1981-01-21T16:44-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x00b5ba, f01=0x0007e4, f02=0x0007e4, filename=»compdes     «, entry_tail=0-4-0-3-1981-01-21T16:32-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x00e33a, f01=0x0007e4, f02=0x0007ed, filename=»listerrinp  «, entry_tail=0-4-0-2-1980-12-09T11:47-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x0106fa, f01=0x0007e4, f02=0x0007ed, filename=»describeinp «, entry_tail=0-4-0-6-1980-11-12T12:08-disc1-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x016b82, f01=0x0007e4, f02=0x0007ed, filename=»writestdinp «, entry_tail=0-4-0-4-1980-11-11T15:19-disc1-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x01a26a, f01=0x0007e4, f02=0x0007ed, filename=»testbufinp  «, entry_tail=0-4-0-2-1980-11-11T15:13-disc1-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x01c762, f01=0x0007e4, f02=0x0007ed, filename=»stdvarinp   «, entry_tail=0-4-0-6-1980-11-11T15:11-disc1-0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x022652, f01=0x0007e4, f02=0x0007ed, filename=»searchcinp  «, entry_tail=0-4-0-2-1980-11-11T15:06-disc1-0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x024a02, f01=0x0007e4, f02=0x0007ed, filename=»remspinp    «, entry_tail=0-4-0-2-1980-11-11T15:07-disc1-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x02609a, f01=0x0007e4, f02=0x0007ed, filename=»mtreadinp   «, entry_tail=0-4-0-4-1980-11-11T15:02-disc1-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x02ad5a, f01=0x0007e4, f02=0x0007ed, filename=»macroinp    «, entry_tail=0-4-0-2-1980-11-11T14:58-disc1-0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x02cf5a, f01=0x0007e4, f02=0x0007ed, filename=»listintinp  «, entry_tail=0-4-0-2-1980-11-11T14:56-disc1-0x0-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x02e402, f01=0x0007e4, f02=0x0007ed, filename=»extractinp  «, entry_tail=0-4-0-5-1980-11-11T14:53-disc1-0x0-0x0-0x0-0x0}
0x002fd…00300 0x00001c
0x00300…00333 Rc489kSubCatEnt {f00=0x0331f2, f01=0x0007e4, f02=0x0007ed, filename=»docmoveinp  «, entry_tail=0-4-0-2-1980-11-11T14:47-disc1-0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x0356e2, f01=0x0007e4, f02=0x0007ed, filename=»convertinp  «, entry_tail=0-4-0-2-1980-11-11T14:28-disc1-0x0-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x03787a, f01=0x0007e4, f02=0x0007ed, filename=»deviceinp   «, entry_tail=0-4-0-2-1980-11-11T14:30-disc1-0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x039352, f01=0x0007e4, f02=0x0007ed, filename=»disccopyinp «, entry_tail=0-4-0-2-1980-11-11T14:15-disc3-0x0-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x03b0f2, f01=0x0007e4, f02=0x0007ed, filename=»readparinp  «, entry_tail=0-4-0-2-1980-11-11T14:08-disc1-0x0-0x0-0x0-0x0}
0x003ff…00432 Rc489kSubCatEnt {f00=0x03db4a, f01=0x0007e4, f02=0x0007ed, filename=»wrstdeinp   «, entry_tail=0-4-0-3-1980-11-11T14:11-disc3-0x0-0x0-0x0-0x0}
0x00432…00465 Rc489kSubCatEnt {f00=0x04042a, f01=0x0007e4, f02=0x0007ed, filename=»careainp    «, entry_tail=0-4-0-2-1980-11-11T13:56-disc3-0x0-0x0-0x0-0x0}
0x00465…00498 Rc489kSubCatEnt {f00=0x042662, f01=0x0007e4, f02=0x0007ed, filename=»outshclinp  «, entry_tail=0-4-0-1-1980-11-11T13:58-disc1-0x0-0x0-0x0-0x0}
0x00498…004cb Rc489kSubCatEnt {f00=0x043252, f01=0x0007e4, f02=0x0007ed, filename=»printfinp   «, entry_tail=0-4-0-2-1980-11-11T14:01-disc1-0x0-0x0-0x0-0x0}
0x004cb…004fe Rc489kSubCatEnt {f00=0x04591a, f01=0x0007e4, f02=0x0007ed, filename=»procfinp    «, entry_tail=0-4-0-2-1980-10-21T16:10-disc1-0x0-0x0-0x0-0x0}
0x004fe…00531 Rc489kSubCatEnt {f00=0x0470c8, f01=0x0007e4, f02=0x0007e4, filename=»progfinp    «, entry_tail=0-4-0-2-1980-10-21T14:31-disc1-0x0-0x0-0x0-0x0}
0x00531…00564 Rc489kSubCatEnt {f00=0x049802, f01=0x0007e4, f02=0x0007ed, filename=»guidec      «, entry_tail=0-4-0-3-1980-10-21T14:28-disc1-0x0-0x0-0x0-0x0}
0x00564…00597 Rc489kSubCatEnt {f00=0x04ca5a, f01=0x0007e4, f02=0x0007ed, filename=»guideinp    «, entry_tail=0-4-0-10-1980-10-21T14:28-disc1-0x0-0x0-0x0-0x0}
0x00597…005a0 02 cf 5a 00 07 e4 00 07 ed                                                                        ┆  Z      ┆
0x005a0…005c0 6c 69 73 74 69 6e 74 69 6e 70 00 00 00 00 02 64 69 73 63 31 00 00 00 00 00 00 00 76 26 73 00 00   ┆listintinp     disc1       v&s  ┆
0x005c0…005e0 00 00 00 00 00 00 00 00 00 00 02 e4 02 00 07 e4 00 07 ed 65 78 74 72 61 63 74 69 6e 70 00 00 00   ┆                   extractinp   ┆
0x005e0…00600 00 05 64 69 73 63 31 00 00 00 00 00 00 00 76 26 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆  disc1       v&p               ┆
0x00600…00620 65 72 6d 61 6e 65 6e 74 65 20 70 6c 61 64 65 6c 61 67 65 72 20 72 65 73 6f 75 72 63 65 72 2e 0a   ┆ermanente pladelager resourcer. ┆
0x00620…00640 44 65 73 75 64 65 6e 20 67 7b 6c 64 65 72 20 61 74 20 73 74 61 6e 64 61 72 64 20 74 69 64 20 65   ┆Desuden gælder at standard tid e┆
0x00640…00660 72 20 35 20 6d 69 6e 20 6f 67 0a 61 74 20 6d 61 78 69 6d 61 6c 74 69 64 20 69 20 64 61 67 74 69   ┆r 5 min og at maximaltid i dagti┆
0x00660…00680 64 20 65 72 20 32 30 20 6d 69 6e 20 6f 67 20 6f 6d 20 6e 61 74 74 65 6e 0a 38 20 74 69 6d 65 72   ┆d er 20 min og om natten 8 timer┆
0x00680…006a0 2e 0a 44 65 72 20 6b 61 6e 20 6b 7c 72 65 20 6f 70 20 74 69 6c 20 38 20 6a 6f 62 73 20 73 61 6d   ┆. Der kan køre op til 8 jobs sam┆
0x006a0…006c0 74 69 64 69 67 20 75 6e 64 65 72 20 64 65 6e 20 73 61 74 73 76 69 73 65 0a 61 66 76 69 6b 6c 69   ┆tidig under den satsvise afvikli┆
0x006c0…006e0 6e 67 20 76 65 64 20 62 65 6e 79 74 74 65 6c 73 65 20 61 66 20 6c 61 67 65 72 76 65 6b 73 6c 69   ┆ng ved benyttelse af lagerveksli┆
0x006e0…00700 6e 67 2e 20 4a 6f 62 62 65 6e 65 0a 62 6c 69 76 65 72 20 70 72 69 6f 72 69 74 65 72 65 74 20 65   ┆ng. Jobbene bliver prioriteret e┆
0x00700…00720 66 74 65 72 20 66 6f 72 76 65 6e 74 65 74 20 6b 7c 72 65 74 69 64 2c 20 66 6f 72 62 72 75 67 74   ┆fter forventet køretid, forbrugt┆
0x00720…00740 0a 74 69 64 20 6f 67 20 65 66 74 65 72 20 68 76 6f 72 20 6d 61 6e 67 65 20 6a 6f 62 73 20 65 6e   ┆ tid og efter hvor mange jobs en┆
0x00740…00760 20 62 72 75 67 65 72 67 72 75 70 70 65 20 61 6c 6c 65 72 65 64 65 0a 65 72 20 76 65 64 20 61 74   ┆ brugergruppe allerede er ved at┆
0x00760…00780 20 66 7d 20 61 66 76 69 6b 6c 65 74 2e 0a 0a 42 61 67 67 72 75 6e 64 73 6c 61 67 65 72 2e 0a 52   ┆ få afviklet.  Baggrundslager. R┆
0x00780…007a0 43 38 30 30 30 27 73 20 6d 7d 64 65 20 61 74 20 62 65 68 61 6e 64 6c 65 20 62 61 67 67 72 75 6e   ┆C8000's måde at behandle baggrun┆
0x007a0…007c0 64 73 6c 61 67 65 72 20 70 7d 20 75 64 76 69 73 65 72 0a 65 6e 20 72 7b 6b 6b 65 20 61 66 76 69   ┆dslager på udviser en række afvi┆
0x007c0…007e0 67 65 6c 73 65 72 20 66 72 61 20 52 43 34 30 30 30 27 73 2e 20 48 65 72 20 73 6b 61 6c 20 6b 75   ┆gelser fra RC4000's. Her skal ku┆
0x007e0…00800 6e 20 6e 7b 76 6e 65 73 20 74 72 65 2c 0a 73 6f 6d 20 69 6d 69 64 6c 65 72 74 69 64 20 62 7c 72   ┆n nævnes tre, som imidlertid bør┆
0x00800…00820 20 68 75 73 6b 65 73 2e 20 31 29 20 49 20 52 43 34 30 30 30 20 6b 61 6e 20 6d 61 6e 20 6c 7b 73   ┆ huskes. 1) I RC4000 kan man læs┆
0x00820…00840 65 20 69 20 61 6c 6c 65 0a 6f 6d 72 7d 64 65 72 2e 20 44 65 74 74 65 20 65 72 20 69 6b 6b 65 20   ┆e i alle områder. Dette er ikke ┆
0x00840…00860 74 69 6c 66 7b 6c 64 65 74 20 69 20 52 43 38 30 30 30 2e 20 32 29 20 52 43 38 30 30 30 20 6f 70   ┆tilfældet i RC8000. 2) RC8000 op┆
0x00860…00880 72 65 74 74 65 72 0a 73 65 6c 76 20 6f 6d 72 7d 64 65 72 2e 20 48 76 69 73 20 6d 61 6e 20 66 2e   ┆retter selv områder. Hvis man f.┆
0x00880…008a0 65 6b 73 2e 20 7c 6e 73 6b 65 72 20 61 74 20 65 64 69 74 65 72 65 72 20 6f 76 65 72 20 69 20 65   ┆eks. ønsker at editerer over i e┆
0x008a0…008c0 74 20 6f 6d 72 7d 64 65 2c 20 0a 6e 61 76 6e 31 2c 28 6e 61 76 6e 31 20 3d 20 65 64 69 74 20 6e   ┆t område,  navn1,(navn1 = edit n┆
0x008c0…008e0 61 76 6e 32 20 66 2e 65 6b 73 2e 29 20 6f 67 20 6e 61 76 6e 31 20 69 6b 6b 65 20 66 69 6e 64 65   ┆avn2 f.eks.) og navn1 ikke finde┆
0x008e0…00900 73 20 65 6c 6c 65 72 0a 6d 61 6e 20 69 6b 6b 65 20 6d 7d 20 73 6b 72 69 76 65 20 69 20 64 65 74   ┆s eller man ikke må skrive i det┆
0x00900…00f00 Data for complinp
0x00f00…01b00 Data for multicopinp
0x01b00…02100 Data for compfphead
0x02100…02a00 Data for compdes
0x02a00…03000 Data for listerrinp
0x03000…04200 Data for describeinp
0x04200…04e00 Data for writestdinp
0x04e00…05400 Data for testbufinp
0x05400…06600 Data for stdvarinp
0x06600…06c00 Data for searchcinp
0x06c00…07200 Data for remspinp
0x07200…07e00 Data for mtreadinp
0x07e00…08400 Data for macroinp
0x08400…08a00 Data for listintinp
0x08a00…09900 Data for extractinp
0x09900…09f00 Data for docmoveinp
0x09f00…0a500 Data for convertinp
0x0a500…0ab00 Data for deviceinp
0x0ab00…0b100 Data for disccopyinp
0x0b100…0b700 Data for readparinp
0x0b700…0c000 Data for wrstdeinp
0x0c000…0c600 Data for careainp
0x0c600…0c900 Data for outshclinp
0x0c900…0cf00 Data for printfinp
0x0cf00…0d500 Data for procfinp
0x0d500…0db00 Data for progfinp
0x0db00…0e400 Data for guidec
0x0e400…10200 Data for guideinp
0x10200…10220 80 0b 73 80 00 01 7f ff fd 64 65 6c 65 74 65 72 65 63 69 00 00 80 00 04 64 72 75 6d 00 00 00 00   ┆  s      deletereci     drum    ┆
0x10220…10240 00 00 00 00 80 11 54 04 80 00 00 00 00 00 40 00 00 70 02 80 04 c3 00 00 78 00 00 81 64 69 61 67   ┆      T       @  p      x   diag┆
0x10240…10260 72 61 6d 00 00 00 00 00 80 00 00 64 72 75 6d 00 00 00 00 00 00 00 00 7c f9 c9 00 07 df 00 00 00   ┆ram        drum        ø        ┆
0x10260…10280 00 00 00 00 00 0b 02 2f 7b 00 00 50 00 00 59 64 69 66 62 6f 67 32 00 00 00 00 00 00 00 0c 64 69   ┆       /æ  P  Ydifbog2        di┆
0x10280…102a0 73 63 32 00 00 00 00 00 00 00 80 ae aa 00 00 00 00 00 00 00 00 00 00 00 00 53 5c 6b 00 07 f8 00   ┆sc2                      SØk    ┆
0x102a0…102c0 08 01 64 6c 69 73 74 00 00 00 00 00 00 00 00 00 0e 64 69 73 63 31 00 00 00 00 00 00 00 80 bc f4   ┆  dlist          disc1          ┆
0x102c0…102e0 00 00 00 00 00 00 00 00 00 00 00 00 64 78 c3 80 00 01 7f ff fd 64 75 6d 70 31 63 61 74 00 00 00   ┆            dx       dump1cat   ┆
0x102e0…10300 00 00 01 75 64 69 73 63 33 00 00 00 00 00 00 00 80 ae 56 00 00 00 00 00 00 00 b0 00 00 00 14 05   ┆   udisc3         V             ┆
0x10300…10320 c4 93 01 11 7a 01 11 83 65 6c 69 73 32 00 00 00 00 00 00 00 00 00 09 64 69 73 63 34 00 00 00 00   ┆    z   elis2          disc4    ┆
0x10320…10340 00 00 00 80 bc 62 00 00 00 00 00 00 00 00 00 00 00 00 07 35 03 01 11 7a 01 11 83 65 6c 69 73 34   ┆     b             5   z   elis4┆
0x10340…10360 00 00 00 00 00 00 00 00 00 0a 64 69 73 63 34 00 00 00 00 00 00 00 80 be 43 00 00 00 00 00 00 00   ┆          disc4         C       ┆
0x10360…10380 00 00 00 00 00 01 3c 4b 01 11 7a 01 11 83 65 6c 69 73 64 61 74 61 00 00 00 00 00 00 01 64 69 73   ┆      <K  z   elisdata       dis┆
0x10380…103a0 63 34 00 00 00 00 00 00 00 80 bc 73 00 00 00 00 00 00 00 00 00 00 00 00 01 4a db 01 11 7a 01 11   ┆c4         s             J   z  ┆
0x103a0…103c0 83 65 6c 69 73 6f 75 74 00 00 00 00 00 00 00 01 64 69 73 63 34 00 00 00 00 00 00 00 80 c2 bc 00   ┆ elisout        disc4           ┆
0x103c0…103e0 00 00 00 00 00 00 00 00 00 00 00 53 1f 5b 00 00 00 7f ff fc 66 72 65 61 64 62 00 00 00 00 00 00   ┆           S Æ      freadb      ┆
0x103e0…10400 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 a0 08 80 00 00 00 00 00 41 7e 00 10 00 53 30   ┆   disc1                 Aü   S0┆
0x10400…10420 43 00 00 00 7f ff fc 66 72 65 61 64 72 00 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00   ┆C      freadr         disc1     ┆
0x10420…10440 00 00 80 01 b2 10 80 00 00 00 00 00 41 90 00 10 00 53 4e 43 00 00 00 7f ff fc 66 72 65 61 64 72   ┆            A    SNC      freadr┆
0x10440…10460 61 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 76 04 d6 88 00 00 00 00 41   ┆a        disc1         v       A┆
0x10460…10480 54 00 10 00 11 17 03 80 00 01 7f ff fd 67 65 6e 73 63 61 6e 00 00 00 00 00 00 00 27 64 69 73 63   ┆T            genscan       'disc┆
0x10480…104a0 35 00 00 00 00 00 00 00 80 bd b5 80 b1 30 00 00 00 00 2a 60 00 0b ee 11 bf 53 80 00 01 7f ff fd   ┆5            0    *`     S      ┆
0x104a0…104c0 67 65 6e 73 79 6e 74 61 78 00 00 00 00 00 30 64 69 73 63 35 00 00 00 00 00 00 00 80 bd b6 80 b1   ┆gensyntax     0disc5            ┆
0x104c0…104e0 8a 00 00 00 00 2a 60 00 0b ee 80 00 83 80 00 01 7f ff fd 67 65 74 6e 65 77 00 00 00 00 00 00 80   ┆     *`            getnew       ┆
0x104e0…10500 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 54 08 30 c0 00 00 00 00 41 a8 01 20 3a 00 00 00   ┆  drum          T 0     A   :   ┆
0x10500…10520 80 01 03 80 00 01 7f ff fd 67 65 74 70 61 72 61 6d 73 69 00 00 80 00 04 64 72 75 6d 00 00 00 00   ┆         getparamsi     drum    ┆
0x10520…10540 00 00 00 00 80 60 18 0e 72 00 00 00 00 00 40 00 00 70 02 14 be d3 00 07 e4 00 07 ed 68 63 72 68   ┆     `  r     @  p          hcrh┆
0x10540…10560 63 6f 6d 74 00 00 00 00 00 00 14 64 69 73 63 31 00 00 00 00 00 00 00 80 61 07 00 00 00 00 00 00   ┆comt       disc1        a       ┆
0x10560…10580 00 00 00 00 00 00 14 fa 63 00 00 00 7f ff fc 68 63 7c 6c 69 62 00 00 00 00 00 00 00 01 3a 64 69   ┆        c      hcølib        :di┆
0x10580…105a0 73 63 31 00 00 00 00 00 00 00 80 01 c0 0c 00 00 00 00 00 00 41 92 00 20 00 10 0d 03 01 11 7a 01   ┆sc1                 A         z ┆
0x105a0…105c0 11 83 68 65 61 74 63 76 73 63 00 00 00 00 00 00 08 64 69 73 63 35 00 00 00 00 00 00 00 80 56 85   ┆  heatcvsc       disc5        V ┆
0x105c0…105e0 00 00 00 00 00 00 00 00 00 00 00 00 01 22 33 01 11 7a 01 11 83 68 65 61 74 72 65 6c 73 00 00 00   ┆             "3  z   heatrels   ┆
0x105e0…10600 00 00 00 06 64 69 73 63 34 00 00 00 00 00 00 00 80 b6 3b 00 00 00 00 00 00 00 00 00 00 00 00 80   ┆    disc4         ;             ┆
0x10600…10620 07 a3 00 00 00 7f ff fc 68 6f 75 73 74 6f 6e 61 00 00 00 00 80 00 14 64 72 75 6d 00 00 00 00 00   ┆        houstona       drum     ┆
0x10620…10640 00 00 00 77 ba d5 00 00 00 00 00 00 00 00 00 00 00 00 53 2b 2b 00 00 00 7f ff fc 69 66 72 65 61   ┆   w              S++      ifrea┆
0x10640…10660 64 69 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 b2 0c 80 00 00 00 00 00   ┆di        disc1                 ┆
0x10660…10680 41 90 00 10 00 80 0c cb 80 00 01 7f ff fd 69 6e 69 74 63 6f 6d 00 00 00 00 00 80 00 04 64 72 75   ┆A             initcom        dru┆
0x10680…106a0 6d 00 00 00 00 00 00 00 00 81 10 94 05 90 c3 0d e0 00 00 41 a8 01 20 3a 80 00 4b 80 00 01 7f ff   ┆m                  A   :  K     ┆
0x106a0…106c0 fd 69 6e 69 74 66 69 6c 65 69 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 20 12 04   ┆ initfilei      drum            ┆
0x106c0…106e0 e3 88 00 00 00 00 40 00 00 70 02 80 0b 13 80 00 01 7f ff fd 69 6e 69 74 72 65 63 69 00 00 00 00   ┆      @  p          initreci    ┆
0x106e0…10700 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 88 05 a2 00 00 00 00 00 40 00 00 70 02 80 03   ┆   drum                  @  p   ┆
0x10700…10720 33 80 00 01 7f ff fd 69 6e 73 65 72 74 72 65 63 69 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00   ┆3      insertreci     drum      ┆
0x10720…10740 00 00 80 30 22 05 a2 00 00 00 00 00 40 00 00 70 02 11 6c 93 80 00 01 7f ff fd 69 73 6f 74 61 62   ┆   0"       @  p  l       isotab┆
0x10740…10760 6c 65 00 00 00 00 00 00 1c 64 69 73 63 35 00 00 00 00 00 00 00 80 00 12 05 90 00 00 00 00 00 40   ┆le       disc5                 @┆
0x10760…10780 0a 00 10 00 03 83 8b 01 11 7a 01 11 83 6a 6f 62 66 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63   ┆         z   jobf           disc┆
0x10780…107a0 34 00 00 00 00 00 00 00 80 b6 0b 00 00 00 00 00 00 00 00 00 00 00 00 06 5e 3b 01 11 7a 01 11 83   ┆4                       ^;  z   ┆
0x107a0…107c0 6a 6f 62 66 34 00 00 00 00 00 00 00 00 00 01 64 69 73 63 34 00 00 00 00 00 00 00 80 c2 bb 00 00   ┆jobf4          disc4            ┆
0x107c0…107e0 00 00 00 00 00 00 00 00 00 00 10 ed e3 00 00 50 00 00 59 6a 6f 64 75 6d 70 00 00 00 00 00 00 00   ┆               P  Yjodump       ┆
0x107e0…10800 00 05 64 69 73 63 33 00 00 00 00 00 00 00 80 c2 ec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆  disc3                         ┆
0x10800…10820 11 95 6b 00 00 50 00 00 59 6a 7c 72 67 65 6e 00 00 00 00 00 00 00 00 06 64 69 73 63 32 00 00 00   ┆  k  P  Yjørgen         disc2   ┆
0x10820…10840 00 00 00 00 80 56 62 00 00 00 00 00 00 00 00 00 00 00 00 52 55 93 00 07 e4 00 07 ed 6b 6b 62 75   ┆     Vb            RU       kkbu┆
0x10840…10860 64 00 00 00 00 00 00 00 00 00 04 64 69 73 63 31 00 00 00 00 00 00 00 80 62 15 00 00 00 00 00 00   ┆d          disc1        b       ┆
0x10860…10880 00 00 00 00 00 00 52 04 d3 00 07 e4 00 07 ed 6b 6b 68 63 6c 6f 61 64 00 00 00 00 00 00 04 64 69   ┆      R        kkhcload       di┆
0x10880…108a0 73 63 31 00 00 00 00 00 00 00 80 54 ec 00 00 00 00 00 00 00 00 00 00 00 00 1e b3 93 00 07 e4 00   ┆sc1        T                    ┆
0x108a0…108c0 07 ed 6b 6b 6c 70 00 00 00 00 00 00 00 00 00 00 0a 64 69 73 63 31 00 00 00 00 00 00 00 80 5b f1   ┆  kklp           disc1        Æ ┆
0x108c0…108e0 00 00 01 00 00 00 00 00 00 00 00 00 18 8d d3 00 07 e4 00 07 ed 6b 6b 6c 70 32 00 00 00 00 00 00   ┆                     kklp2      ┆
0x108e0…10900 00 00 00 07 64 69 73 63 33 00 00 00 00 00 00 00 80 bb 98 00 00 00 00 00 00 00 00 00 00 00 00 1f   ┆    disc3                       ┆
0x10900…10920 b1 53 00 07 e4 00 07 ed 6b 6b 6d 6f 6e 38 30 30 33 00 00 00 00 00 65 64 69 73 63 31 00 00 00 00   ┆ S      kkmon8003     edisc1    ┆
0x10920…10940 00 00 00 80 5b f6 00 00 00 00 00 00 00 20 06 00 c8 4a 66 88 4b 00 07 e4 00 07 ed 6b 6b 6d 6f 6e   ┆    Æ            Jf K      kkmon┆
0x10940…10960 72 65 74 33 00 00 00 00 00 26 64 69 73 63 33 00 00 00 00 00 00 00 80 5b de 00 00 00 00 00 00 00   ┆ret3     &disc3        Æ        ┆
0x10960…10980 00 00 00 00 00 2c 8d 73 00 07 e4 00 07 ed 6b 6b 6f 70 74 33 00 00 00 00 00 00 00 00 17 64 69 73   ┆     , s      kkopt3         dis┆
0x10980…109a0 63 31 00 00 00 00 00 00 00 80 55 34 00 00 00 00 00 00 00 00 00 00 00 00 2c e4 cb 00 07 e4 00 07   ┆c1        U4            ,       ┆
0x109a0…109c0 ed 6b 6b 72 68 00 00 00 00 00 00 00 00 00 00 11 64 69 73 63 31 00 00 00 00 00 00 00 80 61 f0 00   ┆ kkrh           disc1        a  ┆
0x109c0…109e0 00 00 00 00 00 00 20 04 00 20 e2 06 1c fb 00 07 e4 00 07 ed 6b 6b 72 68 74 00 00 00 00 00 00 00   ┆                    kkrht       ┆
0x109e0…10a00 00 00 09 64 69 73 63 00 00 00 00 00 00 00 00 80 61 ef 00 00 00 00 00 00 00 00 00 00 00 00 08 50   ┆   disc         a              P┆
0x10a00…10a20 db 00 07 e4 00 07 ed 6b 6b 74 69 31 74 00 00 00 00 00 00 00 00 06 64 69 73 63 31 00 00 00 00 00   ┆       kkti1t         disc1     ┆
0x10a20…10a40 00 00 80 bb 97 00 00 00 00 00 00 00 00 00 00 00 00 80 08 9b 80 00 01 7f ff fd 6c 61 73 74 74 6f   ┆                          lastto┆
0x10a40…10a60 74 61 6c 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 73 3a 3e 00 00 00 00 00 00 00 00   ┆tal      drum        s:>        ┆
0x10a60…10a80 00 00 00 00 80 01 43 80 00 01 7f ff fd 6c 70 00 00 00 00 00 00 00 00 00 00 80 00 0e 64 72 75 6d   ┆      C      lp             drum┆
0x10a80…10aa0 00 00 00 00 00 00 00 00 7f 74 1c 00 00 00 00 00 00 00 00 00 00 00 00 80 04 d3 00 75 30 00 9c 3f   ┆         t                 u0  ?┆
0x10aa0…10ac0 6c 70 72 00 00 00 00 00 00 00 00 00 80 20 08 64 72 75 6d 00 00 00 00 00 00 00 00 7d 3e 66 00 00   ┆lpr            drum        å>f  ┆
0x10ac0…10ae0 00 00 00 00 00 00 00 00 00 00 52 49 33 00 00 00 7f ff fc 6d 61 74 72 69 78 6d 75 6c 74 00 00 00   ┆          RI3      matrixmult   ┆
0x10ae0…10b00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 01 0a 05 a6 9a 34 d3 40 00 40 12 00 10 00 00 00 00   ┆  disc1             4 @ @       ┆
0x10b00…10b20 2c f9 03 80 00 01 7f ff fd 6d 74 31 70 6f 6f 6c 00 00 00 00 00 00 00 1c 64 69 73 63 33 00 00 00   ┆,        mt1pool        disc3   ┆
0x10b20…10b40 00 00 00 00 80 ae 56 00 00 00 00 00 00 00 b0 00 00 00 00 80 0b 8b 00 07 e4 00 07 ed 6d 74 78 00   ┆      V                     mtx ┆
0x10b40…10b60 00 00 00 00 00 00 00 00 80 00 12 64 72 75 6d 00 00 00 00 00 00 00 00 7c 29 50 00 00 00 00 00 00   ┆           drum        ø)P      ┆
0x10b60…10b80 00 00 00 00 00 00 80 0e eb 80 00 01 7f ff fd 6e 65 78 74 72 65 63 69 00 00 00 00 80 00 04 64 72   ┆               nextreci       dr┆
0x10b80…10ba0 75 6d 00 00 00 00 00 00 00 00 80 01 58 04 80 00 00 00 00 00 40 00 00 70 02 32 81 cb 80 00 01 7f   ┆um          X       @  p 2      ┆
0x10ba0…10bc0 ff fd 6e 74 72 61 6d 6f 73 00 00 00 00 00 00 01 4c 64 69 73 63 33 00 00 00 00 00 00 00 80 bc 50   ┆  ntramos       Ldisc3         P┆
0x10bc0…10be0 80 b0 86 00 00 00 00 2a 60 00 0b ee 51 4b 3b 00 07 f8 00 08 01 6e 74 72 61 6d 74 72 61 6e 73 00   ┆       *`   QK;      ntramtrans ┆
0x10be0…10c00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 80 bc 54 00 00 00 00 00 00 00 00 00 00 00 00 80   ┆    disc1         T             ┆
0x10c00…10c20 0d e3 80 00 01 7f ff fd 6f 70 65 6e 61 64 70 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00   ┆        openadp        drum     ┆
0x10c20…10c40 00 00 00 80 10 14 04 26 88 00 00 00 00 40 00 00 20 02 80 02 ab 80 00 01 7f ff fd 6f 70 65 6e 61   ┆       &     @             opena┆
0x10c40…10c60 6e 64 70 6f 73 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 0e 04 30 c2 68 80 00 00   ┆ndpos     drum            0 h   ┆
0x10c60…10c80 40 00 00 20 02 80 06 e3 00 07 f8 00 08 01 6f 73 63 68 65 63 6b 00 00 00 00 00 80 00 00 64 72 75   ┆@             oscheck        dru┆
0x10c80…10ca0 6d 00 00 00 00 00 00 00 00 80 00 ef 00 00 00 00 00 00 00 00 00 00 00 00 80 07 23 80 00 01 7f ff   ┆m                         #     ┆
0x10ca0…10cc0 fd 6f 75 74 65 6e 64 00 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 88 04   ┆ outend         drum            ┆
0x10cc0…10ce0 80 00 00 00 00 00 41 a8 01 20 3a 80 0a 03 00 c3 50 00 ea 5f 70 63 6f 6e 76 65 72 74 00 00 00 00   ┆      A   :     P  _pconvert    ┆
0x10ce0…10d00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 00 7a 0d b0 00 00 00 00 02 20 3e 00 20 00 80 07   ┆   drum          z        >     ┆
0x10d00…10d20 b3 80 00 01 7f ff fd 70 6c 00 00 00 00 00 00 00 00 00 00 80 00 14 64 72 75 6d 00 00 00 00 00 00   ┆       pl             drum      ┆
0x10d20…10d40 00 00 63 99 3e 00 00 00 00 00 00 00 00 00 00 00 00 80 0e 33 80 00 01 7f ff fd 70 6f 73 69 74 69   ┆  c >              3      positi┆
0x10d40…10d60 6f 6e 61 64 70 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 10 04 30 c8 00 00 00 00 40   ┆onadp    drum            0     @┆
0x10d60…10d80 00 00 20 02 07 f9 7b 00 00 14 00 00 1d 70 72 69 6d 65 73 00 00 00 00 00 00 00 00 01 64 69 73 63   ┆      æ      primes         disc┆
0x10d80…10da0 35 00 00 00 00 00 00 00 7e 25 fb 00 00 01 00 00 00 00 00 04 00 01 b6 ff ff ff ff ff ff ff ff ff   ┆5       ü%                      ┆
0x10da0…10dc0 70 72 69 6d 6f 73 70 6f 6f 6c 00 00 00 00 64 64 72 75 6d 00 00 00 00 00 00 00 00 80 c2 a8 00 00   ┆primospool    ddrum             ┆
0x10dc0…10de0 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff 70 72 69 6d 6f 74 65 73 74 00 00 00 00   ┆                   primotest    ┆
0x10de0…10e00 00 2a 64 69 73 63 31 00 00 00 00 00 00 00 80 c2 a8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ *disc1                         ┆
0x10e00…10e20 80 0a 4b 80 00 01 7f ff fd 70 74 72 65 00 00 00 00 00 00 00 00 80 20 0a 64 72 75 6d 00 00 00 00   ┆  K      ptre           drum    ┆
0x10e20…10e40 00 00 00 00 63 99 3e 00 00 00 00 00 00 00 00 00 00 00 00 80 00 6b 80 00 01 7f ff fd 70 74 72 66   ┆    c >              k      ptrf┆
0x10e40…10e60 00 00 00 00 00 00 00 00 80 60 0a 64 72 75 6d 00 00 00 00 00 00 00 00 63 99 3e 00 00 00 00 00 00   ┆         ` drum        c >      ┆
0x10e60…10e80 00 00 00 00 00 00 80 0e fb 80 00 01 7f ff fd 70 74 72 6e 00 00 00 00 00 00 00 00 80 40 0a 64 72   ┆               ptrn         @ dr┆
0x10e80…10ea0 75 6d 00 00 00 00 00 00 00 00 63 99 3e 00 00 00 00 00 00 00 00 00 00 00 00 80 05 1b 80 00 01 7f   ┆um        c >                   ┆
0x10ea0…10ec0 ff fd 70 74 72 6f 00 00 00 00 00 00 00 00 80 00 0a 64 72 75 6d 00 00 00 00 00 00 00 00 63 99 3e   ┆  ptro           drum        c >┆
0x10ec0…10ee0 00 00 00 00 00 00 00 00 00 00 00 00 80 0c 83 80 00 01 7f ff fd 70 75 74 72 65 63 69 00 00 00 00   ┆                     putreci    ┆
0x10ee0…10f00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 10 7a 04 80 00 00 00 00 00 40 00 00 70 02 80   ┆    drum          z       @  p  ┆
0x10f00…10f20 0c 9b 00 00 3c 00 00 45 72 00 00 00 00 00 00 00 00 00 00 00 80 40 12 64 72 75 6d 00 00 00 00 00   ┆    <  Er            @ drum     ┆
0x10f20…10f40 00 00 00 7e 98 11 00 00 00 00 00 00 00 00 00 00 00 00 80 0c 9b 00 02 76 00 02 7f 72 00 00 00 00   ┆   ü                   v   r    ┆
0x10f40…10f60 00 00 00 00 00 00 00 80 40 12 64 72 75 6d 00 00 00 00 00 00 00 00 75 2b 56 00 00 04 00 00 00 00   ┆        @ drum        u+V       ┆
0x10f60…10f80 00 00 00 00 00 80 0c fb 00 02 62 00 02 6b 72 64 63 6f 73 00 00 00 00 00 00 00 80 00 04 64 72 75   ┆          b  krdcos          dru┆
0x10f80…10fa0 6d 00 00 00 00 00 00 00 00 80 01 20 91 60 00 00 00 00 00 40 00 ff ff e4 80 02 bb 00 02 62 00 02   ┆m            `     @         b  ┆
0x10fa0…10fc0 6b 72 64 72 65 61 6c 00 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 01 1c 91   ┆krdreal         drum            ┆
0x10fc0…10fe0 60 00 00 00 00 00 40 00 ff ff ac 80 04 f3 00 02 62 00 02 6b 72 64 73 71 72 74 00 00 00 00 00 00   ┆`     @         b  krdsqrt      ┆
0x10fe0…11000 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 01 1e 91 60 00 00 00 00 00 40 00 ff ff c8 80 6a   ┆   drum            `     @     j┆
0x11000…11020 fb 00 00 00 7f ff fc 72 65 61 64 72 61 31 6c 00 00 00 00 80 00 04 64 69 73 63 31 00 00 00 00 00   ┆       readra1l       disc1     ┆
0x11020…11040 00 00 80 00 b8 04 e3 8d 35 a2 40 0b 61 d2 00 30 00 80 07 fb 80 00 01 7f ff fd 72 65 6c 66 6f 72   ┆        5 @ a  0          relfor┆
0x11040…11060 6d 61 74 73 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 1c 04 00 00 00 00 00 00 41   ┆mats     drum                  A┆
0x11060…11080 a8 01 20 3a 80 06 1b 80 00 01 7f ff fd 72 65 73 65 74 61 6c 69 61 73 00 00 80 00 04 64 72 75 6d   ┆   :         resetalias     drum┆
0x11080…110a0 00 00 00 00 00 00 00 00 81 10 6c 04 00 00 00 00 00 00 41 a8 01 20 3a 80 00 cb 80 00 01 7f ff fd   ┆          l       A   :         ┆
0x110a0…110c0 72 65 73 75 6c 74 69 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 00 00 01 24 00   ┆resulti        drum           $ ┆
0x110c0…110e0 00 00 00 00 00 40 00 00 70 02 80 0d 8b 00 00 00 00 07 cf 72 65 74 00 00 00 00 00 00 00 00 00 80   ┆     @  p          ret          ┆
0x110e0…11100 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 00 20 04 00 11 30 00 00 00   ┆  drum                      0   ┆
0x11100…11120 07 b7 3b 80 00 01 7f ff fd 72 65 74 63 6f 6d 61 6c 00 00 00 00 00 00 01 64 69 73 63 35 00 00 00   ┆  ;      retcomal       disc5   ┆
0x11120…11140 00 00 00 00 80 bd ab 00 00 00 00 00 00 00 00 00 00 00 00 0b 6e 33 80 00 01 7f ff fd 73 63 61 6e   ┆                    n3      scan┆
0x11140…11160 74 61 62 6c 65 00 00 00 00 00 04 64 69 73 63 35 00 00 00 00 00 00 00 80 bd b6 00 00 00 00 00 00   ┆table      disc5                ┆
0x11160…11180 00 00 00 00 00 00 80 02 33 80 00 01 7f ff fd 73 65 74 61 6c 69 61 73 00 00 00 00 80 00 04 64 72   ┆        3      setalias       dr┆
0x11180…111a0 75 6d 00 00 00 00 00 00 00 00 81 10 60 04 80 00 00 00 00 00 41 a8 01 20 3a 80 06 13 80 00 01 7f   ┆um          `       A   :       ┆
0x111a0…111c0 ff fd 73 65 74 64 65 73 63 00 00 00 00 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 81 10 7a   ┆  setdesc        drum          z┆
0x111c0…111e0 04 80 00 00 00 00 00 41 a8 01 20 3a 80 07 43 80 00 01 7f ff fd 73 65 74 70 61 72 61 6d 73 69 00   ┆       A   :  C      setparamsi ┆
0x111e0…11200 00 80 00 04 64 72 75 6d 00 00 00 00 00 00 00 00 80 60 1a 0e 72 00 00 00 00 00 40 00 00 70 02 80   ┆    drum         `  r     @  p  ┆
0x11200…14000 […elided…]
0x14000…14020 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 20 20   ┆  *                             ┆
0x14020…14040 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   ┆                         *      ┆
0x14040…14060 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 20 66 69 6e 64 73 20   ┆         * This procedure finds ┆
0x14060…14080 6f 75 74 20 68 6f 77 20 6d 61 6e 79 20 65 6e 74 72 69 65 73 20 74 68 65 72 65 20 61 72 65 20 20   ┆out how many entries there are  ┆
0x14080…140a0 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 69 6e 20 74 68 65 20 68 61 73 68 20 74 61   ┆*               * in the hash ta┆
0x140a0…140c0 62 6c 65 20 61 6e 64 20 69 66 20 74 68 65 72 65 20 69 73 20 6d 6f 72 65 20 74 68 61 6e 20 6d 61   ┆ble and if there is more than ma┆
0x140c0…140e0 78 68 61 73 68 2d 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 73 69 7a 65 20 69 74   ┆xhash- *               * size it┆
0x140e0…14100 20 69 73 20 72 65 6f 72 67 61 6e 69 73 65 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ is reorganised                 ┆
0x14100…14120 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   ┆              *                *┆
0x14120…14140 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   ┆                                ┆
0x14140…14160 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   ┆                      *         ┆
0x14160…14180 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   ┆         ***********************┆
0x14180…141a0 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   ┆********************************┆
0x141a0…141c0 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;      ┆
0x141c0…141e0 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;  ┆
0x141e0…14200 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┆
0x14200…14220 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┆
0x14220…14240 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┆
0x14240…14260 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┆
0x14260…14280 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┆
0x14280…142a0 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+┆
0x142a0…142c0 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┆
0x142c0…142e0 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┆
0x142e0…14300 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┆
0x14300…14320 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┆
0x14320…14340 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┆
0x14340…14360 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;     ┆
0x14360…14380 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┆
0x14380…143a0 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);     ┆
0x143a0…143c0 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     ┆
0x143c0…143e0 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);      ┆
0x143e0…14400 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; ┆
0x14400…14420 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┆
0x14420…14440 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 ┆
0x14440…14460 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┆
0x14460…14480 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┆
0x14480…144a0 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     ┆
0x144a0…144c0 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);      ┆
0x144c0…144e0 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┆
0x144e0…14500 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 ┆
0x14500…14520 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┆
0x14520…14540 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┆
0x14540…14560 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┆
0x14560…14580 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┆
0x14580…145a0 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┆
0x145a0…145c0 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             ┆
0x145c0…145e0 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   ┆   *****************************┆
0x145e0…14600 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   ┆**************************      ┆
0x14600…14620 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   ┆         *                      ┆
0x14620…14640 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   ┆                               *┆
0x14640…14660 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┆
0x14660…14680 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┆
0x14680…146a0 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 ┆
0x146a0…146c0 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┆
0x146c0…146e0 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┆
0x146e0…14700 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┆
0x14700…14720 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   *            ┆
0x14720…14740 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.                   ┆
0x14740…14760 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   ┆                         *      ┆
0x14760…14780 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┆
0x14780…147a0 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                       *┆
0x147a0…147c0 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┆
0x147c0…147e0 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┆
0x147e0…14800 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.┆
0x14800…14820 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   ┆                                ┆
0x14820…14840 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   ┆            *               *   ┆
0x14840…14860 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   ┆                                ┆
0x14860…14880 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   ┆                  *             ┆
0x14880…148a0 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   ┆  ******************************┆
0x148a0…148c0 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   ┆*************************;      ┆
0x148c0…148e0 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;     ┆
0x148e0…14900 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         ┆
0x14900…14920 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   ┆        ************************┆
0x14920…14940 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   ┆******************************  ┆
0x14940…14960 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   ┆               *                ┆
0x14960…14980 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   ┆                                ┆
0x14980…149a0 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┆
0x149a0…149c0 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 ┆
0x149c0…149e0 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┆
0x149e0…14a00 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.               ┆
0x14a00…14a20 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   ┆                  *             ┆
0x14a20…14a40 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   ┆    *                           ┆
0x14a40…14a60 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   ┆                         *      ┆
0x14a60…14a80 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   ┆           *********************┆
0x14a80…14aa0 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   ┆********************************┆
0x14aa0…14ac0 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┆
0x14ac0…14ae0 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┆
0x14ae0…14b00 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┆
0x14b00…14b20 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┆
0x14b20…14b40 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           ┆
0x14b40…14b60 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;┆
0x14b60…14b80 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┆
0x14b80…14ba0 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 ┆
0x14ba0…14bc0 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;   ┆
0x14bc0…14be0 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,<┆
0x14be0…14c00 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,             <┆
0x14c00…14c20 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)┆
0x14c20…14c40 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┆
0x14c40…14c60 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┆
0x14c60…14c80 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┆
0x14c80…14ca0 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 ┆
0x14ca0…14cc0 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┆
0x14cc0…14ce0 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┆
0x14ce0…14d00 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:=┆
0x14d00…14d20 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 ┆
0x14d20…14d40 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┆
0x14d40…14d60 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┆
0x14d60…14d80 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    ┆
0x14d80…14da0 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┆
0x14da0…14dc0 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);┆
0x14dc0…14de0 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;      ┆
0x14de0…14e00 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┆
0x14e00…14e20 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┆
0x14e20…14e40 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 ┆
0x14e40…14e60 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              ┆
0x14e60…14e80 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┆
0x14e80…14ea0 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┆
0x14ea0…14ec0 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        ┆
0x14ec0…14ee0 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 =┆
0x14ee0…14f00 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┆
0x14f00…14f20 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┆
0x14f20…14f40 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┆
0x14f40…14f60 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);      ┆
0x14f60…14f80 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          ┆
0x14f80…14fa0 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┆
0x14fa0…14fc0 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  ┆
0x14fc0…14fe0 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            ┆
0x14fe0…15000 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;             ┆