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

⟦24e130121⟧ Rc489kSubCat

    Length: 21504 (0x5400)
    Types: Rc489kSubCat
    Names: »orcb«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »orcb« 

OctetView

0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x001cf3, f01=0x0007e4, f02=0x0007ed, filename=»orcbosinp   «, entry_tail=0-4-0-4-1982-02-23T10:04-disc1-0x0-0x0-0x0-0x0}
0x0033…0066      Rc489kSubCatEnt {f00=0x0059ea, f01=0x0007e4, f02=0x0007ed, filename=»orcbinp     «, entry_tail=0-4-0-5-1981-01-27T15:45-disc1-0x0-0x0-0x0-0x0}
0x0066…0099      Rc489kSubCatEnt {f00=0x00a5e0, f01=0x0007e4, f02=0x0007e4, filename=»orcbconv    «, entry_tail=0-4-0-1-1980-11-20T13:21-disc1-0x0-0x0-0x0-0x0}
0x0099…00a0      ff ff ff ff ff ff ff   ┆       ┆
0x00a0…00c0      ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
        […0x8…]
0x01c0…01e0      ff ff ff ff ff ff ff ff ff ff ff 00 00 05 02 2b cb 00 75 30 00 75 39 63 68 73 74 69 66 66 31 74   ┆               +  u0 u9chstiff1t┆
0x01e0…0200      78 74 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 6d 51 bd 00 00 00 00 00 00 00 00 00 00 00   ┆xt    disc        mQ            ┆
0x0200…0220      00 10 7b cb 00 c3 64 00 c3 6d 72 61 6d 6c 69 73 74 78 00 00 00 00 00 00 03 64 69 73 63 00 00 00   ┆  æ   d  mramlistx       disc   ┆
0x0220…0240      00 00 00 00 00 7f ba 8e 00 00 00 00 00 00 00 00 00 00 00 00 55 9b cb 00 c3 64 00 c3 6d 72 61 36   ┆                    U    d  mra6┆
0x0240…0260      38 38 00 00 00 00 00 00 00 00 00 0f 64 69 73 63 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆88          disc2               ┆
0x0260…0280      01 00 18 eb 00 1a 94 04 0b cb 00 00 50 00 00 59 63 6f 6d 77 75 64 76 00 00 00 00 00 00 00 08 64   ┆            P  Ycomwudv        d┆
0x0280…02a0      69 73 63 32 00 00 00 00 00 00 00 7e 99 0a 00 00 00 00 00 00 00 00 00 00 00 00 44 4b cb 00 75 30   ┆isc2       ü              DK  u0┆
0x02a0…02c0      00 75 39 63 68 6d 61 72 00 00 00 00 00 00 00 00 00 a5 64 69 73 63 32 00 00 00 00 00 00 00 7d f1   ┆ u9chmar          disc2       å ┆
0x02c0…02e0      46 80 b1 26 00 00 00 00 2a 60 00 0b ee 68 8b cb 00 07 e4 00 07 ed 6e 65 77 74 63 6c 61 69 6d 00   ┆F  &    *`   h        newtclaim ┆
0x02e0…02fd      00 00 00 00 1a 64 69 73 63 33 00 00 00 00 00 00 00 70 b7 8a 00 00 00 00 00 00 00 00 00   ┆     disc3       p           ┆
0x02fd…0300      0x000003
0x0300…0f00      Data for orcbosinp
0x0f00…1e00      Data for orcbinp
0x1e00…2100      Data for orcbconv
0x2100…2120      31 39 2d 65 32 30 20 2c 20 65 31 39 20 3d 20 6b 2d 32 0a 61 6d 20 20 65 32 30 2d 65 32 34 20 2c   ┆19-e20 , e19 = k-2 am  e20-e24 ,┆
0x2120…2140      20 65 32 30 20 3d 20 6b 2d 32 0a 61 6d 20 20 65 32 34 2d 65 32 36 20 2c 20 65 32 34 3d 6b 2d 32   ┆ e20 = k-2 am  e24-e26 , e24=k-2┆
0x2140…2160      0a 61 6d 20 20 65 32 36 2d 65 34 33 20 2c 20 65 32 36 20 3d 20 6b 2d 32 0a 6a 6c 2e 20 65 34 33   ┆ am  e26-e43 , e26 = k-2 jl. e43┆
0x2160…2180      2e 20 20 20 20 2c 20 65 34 33 20 3d 20 6b 2d 32 0a 6a 6c 2e 20 65 34 34 2e 20 20 20 20 2c 20 65   ┆.    , e43 = k-2 jl. e44.    , e┆
0x2180…21a0      34 34 20 3d 20 6b 2d 32 0a 6a 6c 2e 20 65 34 35 2e 20 20 20 20 2c 20 65 34 35 3d 6b 2d 32 0a 6a   ┆44 = k-2 jl. e45.    , e45=k-2 j┆
0x21a0…21c0      6c 2e 20 65 34 36 2e 20 20 20 20 2c 20 65 34 36 3d 6b 2d 32 0a 6a 6c 2e 20 65 32 35 2e 20 20 20   ┆l. e46.    , e46=k-2 jl. e25.   ┆
0x21c0…21e0      20 2c 20 65 32 35 3d 6b 2d 32 0a 6a 6c 2e 20 65 34 37 2e 20 20 20 20 2c 20 65 34 37 20 3d 20 6b   ┆ , e25=k-2 jl. e47.    , e47 = k┆
0x21e0…2200      2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 65 35 32 2e 2c 20 20 65 35 32 3d 6b 2d 32 0a 20 20 20 20   ┆-2      jl.  e52.,  e52=k-2     ┆
0x2200…2220      20 6a 6c 2e 20 20 65 35 33 2e 2c 20 20 65 35 33 3d 6b 2d 32 0a 6a 6c 2e 20 65 36 30 2e 20 20 20   ┆ jl.  e53.,  e53=k-2 jl. e60.   ┆
0x2220…2240      20 2c 20 65 36 30 20 3d 20 6b 2d 32 0a 6a 6c 2e 20 65 37 34 2e 20 20 20 20 2c 20 65 37 34 20 3d   ┆ , e60 = k-2 jl. e74.    , e74 =┆
0x2240…2260      20 6b 2d 32 0a 6a 6c 2e 20 65 37 36 2e 20 20 20 20 2c 20 65 37 36 20 3d 20 6b 2d 32 0a 0a 0a 0a   ┆ k-2 jl. e76.    , e76 = k-2    ┆
0x2260…2280      3b 20 74 65 72 6d 69 6e 61 74 65 20 75 70 64 61 74 65 20 6f 66 20 6e 65 77 20 63 68 61 69 6e 68   ┆; terminate update of new chainh┆
0x2280…22a0      65 61 64 0a 3b 0a 3b 20 20 20 74 68 65 20 63 68 61 69 6e 74 61 62 6c 65 20 61 6e 64 20 74 68 65   ┆ead ; ;   the chaintable and the┆
0x22a0…22c0      20 64 69 73 63 2d 70 72 6f 63 65 73 73 20 61 72 65 20 6c 69 6e 6b 65 64 2c 20 61 6e 64 20 74 68   ┆ disc-process are linked, and th┆
0x22c0…22e0      65 20 73 6c 69 63 65 6c 65 6e 67 74 68 0a 3b 20 20 20 20 20 69 73 20 69 6e 73 65 72 74 65 64 20   ┆e slicelength ;     is inserted ┆
0x22e0…2300      69 6e 20 74 68 65 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68   ┆in the process-description of th┆
0x2300…2320      65 20 64 69 73 63 0a 3b 20 20 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 64 6f 63 6e 61 6d 65   ┆e disc ;   first word of docname┆
0x2320…2340      2e 63 68 61 69 6e 74 61 62 6c 65 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 74 68 75 73   ┆.chaintable is initialized, thus┆
0x2340…2360      20 69 6e 64 69 63 61 74 69 6e 67 0a 3b 20 20 20 20 20 74 68 61 74 20 74 68 65 20 63 68 61 69 6e   ┆ indicating ;     that the chain┆
0x2360…2380      20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 6d 70 74 79 2e 0a 3b 20 20 20 70 72 6f 63 66 75 6e   ┆ is no longer empty. ;   procfun┆
0x2380…23a0      63 20 69 74 73 65 6c 66 20 69 73 20 69 6e 73 65 72 74 65 64 20 61 73 20 75 73 65 72 20 61 6e 64   ┆c itself is inserted as user and┆
0x23a0…23c0      20 72 65 73 65 72 76 65 72 20 6f 66 20 74 68 65 20 64 69 73 63 2d 70 72 6f 63 65 73 73 0a 3b 0a   ┆ reserver of the disc-process ; ┆
0x23c0…23e0      3b 20 63 61 6c 6c 3a 20 6d 34 30 0a 0a 6d 34 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆; call: m40  m40:               ┆
0x23e0…2400      20 20 20 20 3b 20 74 65 72 6d 69 6e 61 74 65 20 75 70 64 61 74 65 20 6f 66 20 6e 65 77 20 63 68   ┆    ; terminate update of new ch┆
0x2400…2420 (4,) 61 69 6e 68 65 61 64 3a 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 64 34 2e 20 20 20 20   ┆ainhead:      rl. w1     d4.    ┆
0x2420…2440      3b 20 20 20 20 77 31 20 3a 3d 20 63 75 72 64 6f 63 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20   ┆;    w1 := curdoc;      rl. w2  ┆
0x2440…2460      20 20 20 64 31 31 2e 20 20 20 3b 20 20 20 20 77 32 20 3a 3d 20 63 75 72 20 70 72 6f 63 20 6e 61   ┆   d11.   ;    w2 := cur proc na┆
0x2460…2480      6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 3b 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78   ┆me table address;      rs  w2  x┆
0x2480…24a0      31 2b 66 36 32 20 20 20 20 3b 20 20 20 20 73 65 74 20 64 6f 63 75 6d 65 6e 74 20 6e 61 6d 65 20   ┆1+f62    ;    set document name ┆
0x24a0…24c0      74 61 62 6c 65 20 61 64 64 72 65 73 73 3b 0a 0a 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 20   ┆table address;       rl. w0     ┆
0x24c0…24e0      64 31 2e 2b 66 36 31 2b 66 30 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 31 2b 66 36 31 20   ┆d1.+f61+f0;      rs  w0  x1+f61 ┆
0x24e0…2500      20 20 20 3b 20 20 20 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 64 6f 63 6e 61 6d 65 2e 63 68   ┆   ;    first word of docname.ch┆
0x2500…2520      61 69 6e 68 65 61 64 20 3a 3d 20 64 6f 63 6e 61 6d 65 2e 77 6f 72 6b 3b 0a 3b 20 6e 6f 77 20 74   ┆ainhead := docname.work; ; now t┆
0x2520…2540      68 65 20 63 68 61 69 6e 74 61 62 6c 65 2d 68 65 61 64 20 69 73 20 63 6f 6d 70 6c 65 74 65 6c 79   ┆he chaintable-head is completely┆
0x2540…2560      20 69 6e 69 74 69 61 6c 69 7a 65 64 0a 3b 20 28 65 78 63 65 70 74 20 73 74 61 74 65 2c 20 77 68   ┆ initialized ; (except state, wh┆
0x2560…2580      69 63 68 20 73 74 69 6c 6c 20 69 73 20 75 6e 64 65 66 69 6e 65 64 29 0a 0a 20 20 20 20 20 72 6c   ┆ich still is undefined)       rl┆
0x2580…25a0      20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 20 20 20 70 72 6f 63 20 3a 3d 20 64 69 73   ┆  w3  x2        ;    proc := dis┆
0x25a0…25c0      63 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 3b 0a 0a 20 20 20 20 20 72 6c 20   ┆c process description;       rl ┆
0x25c0…25e0      20 77 32 20 20 78 31 2b 66 36 34 20 20 20 20 3b 20 20 20 20 73 6c 69 63 65 6c 65 6e 67 74 68 2e   ┆ w2  x1+f64    ;    slicelength.┆
0x25e0…2600      70 72 6f 63 20 3a 3d 20 73 6c 69 63 65 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 64 73 20 20 77 32   ┆proc := slicelength;      ds  w2┆
0x2600…2620      20 20 78 33 2b 61 37 32 20 20 20 20 3b 20 20 20 20 63 68 61 69 6e 74 61 62 6c 65 20 2e 70 72 6f   ┆  x3+a72    ;    chaintable .pro┆
0x2620…2640      63 20 3a 3d 20 63 75 72 64 6f 63 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 62 31 20   ┆c := curdoc;      rl  w1     b1 ┆
0x2640…2660      20 20 20 20 3b 20 20 77 31 3a 3d 61 64 64 72 28 70 72 6f 63 66 75 6e 63 20 70 72 6f 63 65 73 73   ┆    ;  w1:=addr(procfunc process┆
0x2660…2680      20 64 65 73 63 72 69 70 74 69 6f 6e 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 61   ┆ description);      rl  w0  x1+a┆
0x2680…26a0      31 34 20 20 20 20 3b 20 20 77 30 3a 3d 69 64 62 69 74 2e 70 72 6f 63 66 75 6e 63 3b 0a 20 20 20   ┆14    ;  w0:=idbit.procfunc;    ┆
0x26a0…26c0      20 20 72 73 20 20 77 30 20 20 78 33 2b 61 35 32 20 20 20 20 3b 20 20 64 69 73 63 70 72 6f 63 65   ┆  rs  w0  x3+a52    ;  discproce┆
0x26c0…26e0      73 73 2e 72 65 73 65 72 76 65 72 3a 3d 69 64 62 69 74 2e 70 72 6f 63 66 75 6e 63 3b 0a 20 20 20   ┆ss.reserver:=idbit.procfunc;    ┆
0x26e0…2700      20 20 6a 6c 2e 20 77 32 20 20 20 20 20 65 35 31 2e 20 20 20 3b 20 20 69 6e 63 6c 75 64 65 20 70   ┆  jl. w2     e51.   ;  include p┆
0x2700…2720      72 6f 63 66 75 6e 63 20 61 73 20 75 73 65 72 20 6f 66 20 64 69 73 63 70 72 6f 63 65 73 73 3b 0a   ┆rocfunc as user of discprocess; ┆
0x2720…2740      0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 20 20 6e 65 78   ┆      jl.        n0.    ;    nex┆
0x2740…2760      74 20 69 6e 73 74 72 75 63 74 69 6f 6e 3b 0a 0a 0a 0a 3b 20 74 65 72 6d 69 6e 61 74 65 20 75 73   ┆t instruction;    ; terminate us┆
0x2760…2780      65 20 6f 66 20 63 68 61 69 6e 20 61 6e 64 20 64 69 73 63 0a 3b 0a 3b 20 20 20 2a 2a 2a 2a 2a 2a   ┆e of chain and disc ; ;   ******┆
0x2780…27a0      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   ┆********************************┆
0x27a0…27c0      2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆************ ;   *              ┆
0x27c0…27e0      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   ┆                                ┆
0x27e0…2800      20 20 2a 0a 3b 20 20 20 2a 20 6e 6f 74 69 63 65 20 74 68 61 74 20 74 68 65 20 66 6f 6c 6c 6f 77   ┆  * ;   * notice that the follow┆
0x2800…2820      69 6e 67 20 69 73 20 65 78 65 63 75 74 65 64 20 64 69 73 61 62 6c 65 64 20 2a 0a 3b 20 20 20 2a   ┆ing is executed disabled * ;   *┆
0x2820…2840      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   ┆                                ┆
0x2840…2860      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 3b 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆                * ;   **********┆
0x2860…2880      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   ┆********************************┆
0x2880…28a0      2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 0a 3b 20 20 20 74 68 65 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66   ┆******** ; ;   the first word of┆
0x28a0…28c0      20 64 6f 63 6e 61 6d 65 2e 63 75 72 64 6f 63 20 69 73 20 63 6c 65 61 72 65 64 2c 20 74 68 75 73   ┆ docname.curdoc is cleared, thus┆
0x28c0…28e0      20 69 6e 64 69 63 61 74 69 6e 67 0a 3b 20 20 20 20 20 74 68 61 74 20 74 68 65 20 63 68 61 69 6e   ┆ indicating ;     that the chain┆
0x28e0…2900      20 69 73 20 65 6d 70 74 79 0a 3b 20 20 20 72 65 6d 6f 76 65 73 20 74 68 65 20 6c 69 6e 6b 73 20   ┆ is empty ;   removes the links ┆
0x2900…2920      62 65 74 77 65 65 6e 20 64 69 73 63 2d 70 72 6f 63 65 73 73 20 61 6e 64 20 63 68 61 69 6e 74 61   ┆between disc-process and chainta┆
0x2920…2940      62 6c 65 0a 3b 20 20 20 72 65 6d 6f 76 65 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 64 69 73 63   ┆ble ;   removes the name of disc┆
0x2940…2960      2d 70 72 6f 63 0a 3b 20 20 20 65 78 63 6c 75 64 65 73 20 70 72 6f 63 66 75 6e 63 20 61 73 20 75   ┆-proc ;   excludes procfunc as u┆
0x2960…2980      73 65 72 20 61 6e 64 20 72 65 73 65 72 76 65 72 20 6f 66 20 64 69 73 63 2d 70 72 6f 63 0a 3b 20   ┆ser and reserver of disc-proc ; ┆
0x2980…29a0      20 20 61 6c 6c 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 73 20 77 69 6c 6c 20 68 61   ┆  all internal processes will ha┆
0x29a0…29c0      76 65 20 74 68 65 69 72 20 63 6c 61 69 6d 73 20 63 6c 65 61 72 65 64 0a 3b 0a 3b 20 63 61 6c 6c   ┆ve their claims cleared ; ; call┆
0x29c0…29e0      3a 20 6d 34 31 0a 0a 6d 34 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20   ┆: m41  m41:                   ; ┆
0x29e0…2a00      74 65 72 6d 69 6e 61 74 65 20 75 73 65 20 6f 66 20 63 68 61 69 6e 20 61 6e 64 20 64 69 73 63 3a   ┆terminate use of chain and disc:┆
0x2a00…2a20      0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 64 34 2e 20 20 20 20 3b 20 20 20 20 77 31 20   ┆      rl. w1     d4.    ;    w1 ┆
0x2a20…2a40      3a 3d 20 63 75 72 64 6f 63 3b 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 68 31 2e 20 20   ┆:= curdoc;      rs. w1     h1.  ┆
0x2a40…2a60      20 20 3b 20 20 20 20 73 61 76 65 20 28 63 68 61 69 6e 74 61 62 6c 65 20 61 64 64 72 65 73 73 29   ┆  ;    save (chaintable address)┆
0x2a60…2a80      3b 0a 20 20 20 20 20 6a 64 2e 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 3b 20 20 20 20 64 69   ┆;      jd.        2      ;    di┆
0x2a80…2aa0      73 61 62 6c 65 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a   ┆sable;      al  w2     0      ; ┆
0x2aa0…2ac0      20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b 66 36 31 20 20 20 20 3b 20 20 20 20 66 69 72 73   ┆     rs  w2  x1+f61    ;    firs┆
0x2ac0…2ae0      74 20 77 6f 72 64 20 6f 66 20 64 6f 63 6e 61 6d 65 2e 63 75 72 64 6f 63 20 3a 3d 20 30 3b 0a 0a   ┆t word of docname.curdoc := 0;  ┆
0x2ae0…2b00      20 20 20 20 20 72 78 20 20 77 32 20 20 78 31 2b 66 36 32 20 20 20 20 3b 20 20 20 20 64 6f 63 75   ┆     rx  w2  x1+f62    ;    docu┆
0x2b00…2b20      6d 65 6e 74 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 20 3a 3d 20 30 3b 0a 20 20 20 20 20   ┆ment name table addr := 0;      ┆
0x2b20…2b40      72 6c 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 20 77 33 3a 3d 61 64 64 72 28 64 69   ┆rl  w3  x2        ;  w3:=addr(di┆
0x2b40…2b60      73 63 70 72 6f 63 65 73 73 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 62 31 20 20   ┆scprocess);      rl  w1     b1  ┆
0x2b60…2b80      20 20 20 3b 20 20 77 31 3a 3d 61 64 64 72 28 70 72 6f 63 66 75 6e 63 20 70 72 6f 63 65 73 73 20   ┆   ;  w1:=addr(procfunc process ┆
0x2b80…2ba0      64 65 73 63 72 69 70 74 69 6f 6e 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 32 20 20 20 20 20 65 35   ┆description);      jl. w2     e5┆
0x2ba0…2bc0      32 2e 20 20 20 3b 20 20 65 78 63 6c 75 64 65 20 70 72 6f 63 66 75 6e 63 20 61 73 20 75 73 65 72   ┆2.   ;  exclude procfunc as user┆
0x2bc0…2be0      20 6f 66 20 64 69 73 63 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 6c 64 20 20 77 31 20 20 20 20   ┆ of discprocess;      ld  w1    ┆
0x2be0…2c00      2d 31 30 30 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 61 31 31 20 20 20   ┆-100    ;      rs  w0  x3+a11   ┆
0x2c00…2c20      20 3b 20 20 6e 61 6d 65 28 30 29 3a 3d 30 3b 20 20 28 74 68 69 73 20 77 69 6c 6c 20 70 72 65 76   ┆ ;  name(0):=0;  (this will prev┆
0x2c20…2c40      65 6e 74 20 66 75 72 74 68 65 72 20 75 73 65 72 20 6f 66 20 74 68 65 20 64 69 73 63 70 72 6f 63   ┆ent further user of the discproc┆
0x2c40…2c60      65 73 73 29 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 61 35 32 20 20 20 20 3b 20 20 65   ┆ess)      rs  w0  x3+a52    ;  e┆
0x2c60…2c80      78 63 6c 75 64 65 20 70 72 6f 63 66 75 6e 63 20 61 73 20 72 65 73 65 72 76 65 72 3b 0a 20 20 20   ┆xclude procfunc as reserver;    ┆
0x2c80…2ca0      20 20 64 73 20 20 77 31 20 20 78 33 2b 61 37 32 20 20 20 20 3b 20 20 63 68 61 69 6e 74 61 62 6c   ┆  ds  w1  x3+a72    ;  chaintabl┆
0x2ca0…2cc0      65 2e 64 69 73 63 70 72 6f 63 3a 3d 73 6c 69 63 65 6c 65 6e 67 74 68 2e 64 69 73 63 70 72 6f 63   ┆e.discproc:=slicelength.discproc┆
0x2cc0…2ce0      3a 3d 30 3b 0a 0a 3b 20 77 30 20 3d 20 30 20 20 28 20 3d 20 6d 61 78 20 63 6c 61 69 6d 73 20 29   ┆:=0;  ; w0 = 0  ( = max claims )┆
0x2ce0…2d00      0a 20 20 20 20 20 6a 65 2e 20 20 20 20 20 20 20 20 67 38 2e 20 20 20 20 3b 20 20 20 20 65 6e 61   ┆      je.        g8.    ;    ena┆
0x2d00…2d20 (5,) 62 6c 65 2c 20 67 6f 74 6f 20 70 72 65 70 61 72 65 20 63 6c 61 69 6d 73 3b 0a 0a 65 2e 20 20 20   ┆ble, goto prepare claims;  e.   ┆
0x2d20…2d40      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 0a 0a 3b 20 63 6c 65 61 6e 20 63   ┆                  ;    ; clean c┆
0x2d40…2d60      61 74 61 6c 6f 67 0a 3b 0a 3b 20 20 20 63 6c 65 61 72 73 20 61 6c 6c 20 73 65 67 6d 65 6e 74 73   ┆atalog ; ;   clears all segments┆
0x2d60…2d80      20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 61 74 61 6c 6f 67 20 28 77 68 69 63 68 20 6d   ┆ in the current catalog (which m┆
0x2d80…2da0      75 73 74 20 62 65 20 6d 61 69 6e 63 61 74 29 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 6d 34 32 0a 3b 20   ┆ust be maincat) ; ; call: m42 ; ┆
0x2da0…2dc0      65 72 72 6f 72 20 72 65 74 75 72 6e 3a 20 72 65 73 75 6c 74 20 32 2c 20 69 66 20 63 61 74 61 6c   ┆error return: result 2, if catal┆
0x2dc0…2de0      6f 67 20 69 6f 2d 65 72 72 6f 72 0a 0a 62 2e 20 67 31 30 2c 20 68 31 30 20 77 2e 0a 0a 6d 34 32   ┆og io-error  b. g10, h10 w.  m42┆
0x2de0…2e00      3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6c 65 61 6e 20 63 61 74 61   ┆:                   ; clean cata┆
0x2e00…2e20      6c 6f 67 3a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 65 37 2e 20 20 20 20 3b 20 20 20   ┆log:      jl. w3     e7.    ;   ┆
0x2e20…2e40      28 74 65 72 6d 69 6e 61 74 65 20 75 70 64 61 74 65 29 3b 0a 3b 20 77 32 20 3d 20 73 74 61 72 74   ┆(terminate update); ; w2 = start┆
0x2e40…2e60      20 6f 66 20 63 61 74 61 6c 6f 67 20 62 75 66 66 65 72 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20   ┆ of catalog buffer      al  w0  ┆
0x2e60…2e80      20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 20 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 32 2b   ┆  -1      ;          al  w1  x2+┆
0x2e80…2ea0      66 39 20 20 20 20 20 3b 0a 67 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆f9     ; g1:                    ┆
0x2ea0…2ec0      3b 20 63 6c 65 61 72 20 6e 65 78 74 20 77 6f 72 64 20 6f 66 20 63 61 74 61 6c 6f 67 20 62 75 66   ┆; clear next word of catalog buf┆
0x2ec0…2ee0      66 65 72 3a 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20   ┆fer:      rs  w0  x2        ;   ┆
0x2ee0…2f00      20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 32 20 20 20 20 20 20 3b 20 20 20 20 73 65 74 20 61 6c   ┆   al  w2  x2+2      ;    set al┆
0x2f00…2f20      6c 20 77 6f 72 64 73 20 6f 66 20 63 61 74 61 6c 6f 67 20 62 75 66 66 65 72 20 74 6f 20 2d 31 0a   ┆l words of catalog buffer to -1 ┆
0x2f20…2f40      20 20 20 20 20 73 65 20 20 77 32 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 74 68   ┆     se  w2  x1        ;      th┆
0x2f40…2f60      75 73 20 69 6e 64 69 63 61 74 69 6e 67 20 61 6c 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 66 72   ┆us indicating all entries are fr┆
0x2f60…2f80      65 65 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 2e 20 20 20 20 3b 0a 0a 20 20   ┆ee;      jl.        g1.    ;    ┆
0x2f80…2fa0      20 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 65 6e 74 72 79 20   ┆   al  w0     0      ;    entry ┆
0x2fa0…2fc0      63 6f 75 6e 74 2e 63 61 74 62 75 66 66 65 72 20 3a 3d 20 30 3b 0a 20 20 20 20 20 72 73 20 20 77   ┆count.catbuffer := 0;      rs  w┆
0x2fc0…2fe0      30 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆0  x2        ;                  ┆
0x2fe0…3000      20 20 20 20 20 20 20 3b 20 20 20 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 20 3a 3d 20 30 3b   ┆       ;    segment number := 0;┆
0x3000…3020      0a 0a 67 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20   ┆  g2:                    ; next ┆
0x3020…3040      73 65 67 6d 65 6e 74 3a 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 28 68 30 2e 29 20 20 20   ┆segment:      rs. w0    (h0.)   ┆
0x3040…3060      3b 20 20 20 20 73 61 76 65 20 28 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 29 3b 0a 20 20 20 20   ┆;    save (segment number);     ┆
0x3060…3080      20 6a 6c 2e 20 77 33 20 20 20 20 20 65 39 2e 20 20 20 20 3b 20 20 20 20 70 72 65 70 61 72 65 20   ┆ jl. w3     e9.    ;    prepare ┆
0x3080…30a0      75 70 64 61 74 65 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 65 37 2e 20 20 20 20 3b   ┆update;      jl. w3     e7.    ;┆
0x30a0…30c0      20 20 20 20 74 65 72 6d 69 6e 61 74 65 20 75 70 64 61 74 65 3b 20 20 69 2e 65 2e 20 77 72 69 74   ┆    terminate update;  i.e. writ┆
0x30c0…30e0      65 20 74 68 65 20 63 61 74 61 6c 6f 67 20 62 75 66 66 65 72 0a 3b 20 77 31 20 3d 20 73 65 67 6d   ┆e the catalog buffer ; w1 = segm┆
0x30e0…3100      65 6e 74 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 2b 31 20 20 20 20   ┆ent number      al  w0  x1+1    ┆
0x3100…3120      20 20 3b 20 20 20 20 69 6e 63 72 65 61 73 65 20 28 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 29   ┆  ;    increase (segment number)┆
0x3120…3140      3b 0a 20 20 20 20 20 77 73 2e 20 77 31 20 20 20 20 28 68 31 2e 29 20 20 20 3b 0a 20 20 20 20 20   ┆;      ws. w1    (h1.)   ;      ┆
0x3140…3160      73 65 20 20 77 31 20 20 20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 73 65 67 6d 65 6e   ┆se  w1    -1      ;    if segmen┆
0x3160…3180      74 20 6e 75 6d 62 65 72 20 3c 3e 20 73 69 7a 65 20 6f 66 20 63 75 72 63 61 74 20 74 68 65 6e 0a   ┆t number <> size of curcat then ┆
0x3180…31a0      20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 32 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f   ┆     jl.        g2.    ;      go┆
0x31a0…31c0      74 6f 20 6e 65 78 74 20 73 65 67 6d 65 6e 74 3b 0a 0a 3b 20 6e 6f 77 20 61 6c 6c 20 63 61 74 61   ┆to next segment;  ; now all cata┆
0x31c0…31e0      6c 6f 67 20 73 65 67 6d 65 6e 74 73 20 68 61 76 65 20 62 65 65 6e 20 63 6c 65 61 72 65 64 0a 20   ┆log segments have been cleared  ┆
0x31e0…3200      20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 20 20 6e 65 78 74 20   ┆    jl.        n0.    ;    next ┆
0x3200…3220      69 6e 73 74 72 75 63 74 69 6f 6e 0a 0a 68 30 3a 20 20 64 38 20 2b 20 66 33 36 20 20 20 20 20 20   ┆instruction  h0:  d8 + f36      ┆
0x3220…3240      20 20 20 20 3b 20 61 64 64 72 65 73 73 20 6f 66 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 20   ┆    ; address of segment number ┆
0x3240…3260      69 6e 20 63 61 74 2d 6d 65 73 73 61 67 65 0a 68 31 3a 20 20 63 30 20 20 20 20 20 20 20 20 20 20   ┆in cat-message h1:  c0          ┆
0x3260…3280      20 20 20 20 20 20 3b 20 61 64 64 72 65 73 73 20 6f 66 20 73 69 7a 65 20 6f 66 20 63 75 72 63 61   ┆      ; address of size of curca┆
0x3280…32a0      74 0a 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 0a 0a 3b   ┆t  e.                     ;    ;┆
0x32a0…32c0      20 63 68 65 63 6b 20 69 64 6c 65 20 62 73 2d 64 65 76 69 63 65 20 6f 72 20 73 74 69 6c 6c 20 73   ┆ check idle bs-device or still s┆
0x32c0…32e0      61 6d 65 20 6e 61 6d 65 0a 3b 0a 3b 20 20 20 69 66 20 74 68 65 20 64 69 73 63 2d 70 72 6f 63 65   ┆ame name ; ;   if the disc-proce┆
0x32e0…3300      73 73 20 68 61 73 20 61 20 6c 69 6e 6b 20 74 6f 20 61 20 63 68 61 69 6e 74 61 62 6c 65 20 28 69   ┆ss has a link to a chaintable (i┆
0x3300…3320      2e 65 2e 20 63 68 61 69 6e 2e 64 69 73 63 20 3c 3e 20 30 29 0a 3b 20 20 20 20 20 74 68 65 20 6e   ┆.e. chain.disc <> 0) ;     the n┆
0x3320…3340      65 77 20 6e 61 6d 65 20 6d 75 73 74 20 63 6f 72 72 65 73 70 6f 6e 64 20 77 69 74 68 20 64 6f 63   ┆ew name must correspond with doc┆
0x3340…3360      6e 61 6d 65 2e 63 68 61 69 6e 0a 3b 20 20 20 20 20 28 75 73 65 64 20 61 66 74 65 72 20 69 6e 74   ┆name.chain ;     (used after int┆
0x3360…3380      65 72 76 65 6e 74 69 6f 6e 20 6f 6e 20 61 20 64 69 73 63 29 2e 0a 3b 20 20 20 6f 74 68 65 72 77   ┆ervention on a disc). ;   otherw┆
0x3380…33a0      69 73 65 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 66 75 72 74 68 65 72 20 6c 69 6d 69 74 61 74   ┆ise there are no further limitat┆
0x33a0…33c0      69 6f 6e 73 20 6f 6e 20 74 68 65 20 6e 65 77 20 70 72 6f 63 65 73 73 2d 6e 61 6d 65 2e 0a 3b 0a   ┆ions on the new process-name. ; ┆
0x33c0…33e0      3b 20 63 61 6c 6c 3a 20 6d 34 33 2c 20 3c 69 64 6c 65 20 62 73 20 61 64 64 72 3e 0a 3b 20 65 72   ┆; call: m43, <idle bs addr> ; er┆
0x33e0…3400      72 6f 72 20 72 65 74 75 72 6e 3a 20 72 65 73 75 6c 74 20 33 2c 20 69 66 20 63 68 61 69 6e 2e 70   ┆ror return: result 3, if chain.p┆
0x3400…3420      72 6f 63 20 3c 3e 20 30 20 61 6e 64 20 6e 65 77 6e 61 6d 65 20 3c 3e 20 64 6f 63 6e 61 6d 65 2e   ┆roc <> 0 and newname <> docname.┆
0x3420…3440      63 68 61 69 6e 2e 70 72 6f 63 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c   ┆chain.proc ;               resul┆
0x3440…3460      74 20 36 2c 20 69 66 20 6e 65 77 6e 61 6d 65 28 30 29 20 3d 20 30 0a 3b 20 20 20 20 20 20 20 20   ┆t 6, if newname(0) = 0 ;        ┆
0x3460…3480      20 20 20 20 20 20 20 67 6f 74 6f 2d 61 63 74 69 6f 6e 20 31 2c 20 69 66 20 63 68 61 69 6e 2e 70   ┆       goto-action 1, if chain.p┆
0x3480…34a0      72 6f 63 20 3d 20 30 0a 0a 6d 34 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆roc = 0  m43:                   ┆
0x34a0…34c0      3b 20 63 68 65 63 6b 20 69 64 6c 65 20 62 73 2d 64 65 76 69 63 65 20 6f 72 20 74 65 73 74 20 73   ┆; check idle bs-device or test s┆
0x34c0…34e0      74 69 6c 6c 20 73 61 6d 65 20 6e 61 6d 65 3a 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 28   ┆till same name:      rl. w2    (┆
0x34e0…3500      64 31 31 2e 29 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 32 2b 61 37 31 20 20 20 20   ┆d11.)  ;      rl  w2  x2+a71    ┆
0x3500…3520      3b 20 20 20 20 63 68 61 69 6e 20 3a 3d 20 63 68 61 69 6e 2e 63 75 72 70 72 6f 63 3b 0a 20 20 20   ┆;    chain := chain.curproc;    ┆
0x3520…3540      20 20 73 6e 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 63 68 61 69   ┆  sn  w2     0      ;    if chai┆
0x3540…3560      6e 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 35 2e 20 20   ┆n = 0 then      jl.        n5.  ┆
0x3560…3580      20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 3c 69 64 6c 65 20 62 73 2d 64 65 76 69 63 65 3e 0a 0a   ┆  ;      goto <idle bs-device>  ┆
0x3580…35a0      20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 64 34 2e 20 20 20 20 3b 20 20 20 20 63 75 72 64   ┆     rs. w2     d4.    ;    curd┆
0x35a0…35c0      6f 63 20 3a 3d 20 63 68 61 69 6e 3b 0a 0a 3b 20 74 65 73 74 20 74 68 61 74 20 6e 61 6d 65 2e 77   ┆oc := chain;  ; test that name.w┆
0x35c0…35e0      6f 72 6b 20 3d 20 64 6f 63 6e 61 6d 65 2e 63 68 61 69 6e 0a 3b 20 20 28 65 2e 67 2e 20 66 69 6e   ┆ork = docname.chain ;  (e.g. fin┆
0x35e0…3600      64 20 63 68 61 69 6e 20 77 69 74 68 20 64 6f 63 6e 61 6d 65 20 3d 20 6e 61 6d 65 2e 77 6f 72 6b   ┆d chain with docname = name.work┆
0x3600…3620 (6,) 20 61 6e 64 20 74 65 73 74 20 73 61 6d 65 20 63 68 61 69 6e 29 0a 0a 20 20 20 20 20 6a 6c 2e 20   ┆ and test same chain)       jl. ┆
0x3620…3640      77 33 20 20 20 20 20 65 34 35 2e 20 20 20 3b 20 20 20 20 66 69 6e 64 20 63 68 61 69 6e 20 28 6e   ┆w3     e45.   ;    find chain (n┆
0x3640…3660      61 6d 65 2e 77 6f 72 6b 29 3b 0a 20 20 20 20 20 20 20 64 31 2b 66 35 20 20 20 20 20 20 20 20 20   ┆ame.work);        d1+f5         ┆
0x3660…3680      20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 33 2e 20 20 20 20 3b 2b 34 3a 20   ┆  ;      jl.        j3.    ;+4: ┆
0x3680…36a0      20 6e 6f 74 20 66 6f 75 6e 64 3a 20 20 72 65 73 75 6c 74 20 33 3b 20 20 28 6e 6f 74 20 73 61 6d   ┆ not found:  result 3;  (not sam┆
0x36a0…36c0      65 20 6e 61 6d 65 20 61 74 20 61 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆e name at all)                  ┆
0x36c0…36e0      20 20 20 20 20 20 3b 2b 36 3a 20 20 66 6f 75 6e 64 3a 0a 20 20 20 20 20 73 6e 2e 20 77 32 20 20   ┆      ;+6:  found:      sn. w2  ┆
0x36e0…3700      20 20 28 64 34 2e 29 20 20 20 3b 20 20 20 20 69 66 20 63 68 61 69 6e 20 3d 20 63 75 72 64 6f 63   ┆  (d4.)   ;    if chain = curdoc┆
0x3700…3720      20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 31 2e 20 20 20 20 3b 20 20   ┆ then      jl.        n1.    ;  ┆
0x3720…3740      20 20 20 20 73 6b 69 70 3b 20 20 28 69 2e 65 2e 20 6e 61 6d 65 2e 63 68 61 69 6e 20 3d 20 6e 61   ┆    skip;  (i.e. name.chain = na┆
0x3740…3760      6d 65 2e 77 6f 72 6b 29 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 33 2e 20 20 20   ┆me.work)       jl.        j3.   ┆
0x3760…3780      20 3b 20 20 20 20 72 65 73 75 6c 74 20 33 3b 20 20 28 6e 6f 74 20 73 61 6d 65 20 6e 61 6d 65 29   ┆ ;    result 3;  (not same name)┆
0x3780…37a0      0a 6a 33 20 3d 20 6b 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 28 73 74 65 70 70   ┆ j3 = k-2               ; (stepp┆
0x37a0…37c0      69 6e 67 20 73 74 6f 6e 65 29 0a 0a 0a 0a 3b 20 73 65 61 72 63 68 20 62 65 73 74 20 61 72 65 61   ┆ing stone)    ; search best area┆
0x37c0…37e0      20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 6d 34 35 2c 20 3c 6e 6f 74 20 66 6f 75   ┆ process ; ; call: m45, <not fou┆
0x37e0…3800      6e 64 20 61 64 64 72 3e 0a 3b 20 65 72 72 6f 72 20 72 65 74 75 72 6e 3a 20 67 6f 74 6f 2d 61 63   ┆nd addr> ; error return: goto-ac┆
0x3800…3820      74 69 6f 6e 20 31 2c 20 69 66 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 6e 6f 74 20 66 6f 75 6e   ┆tion 1, if area process not foun┆
0x3820…3840      64 0a 0a 6d 34 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 61 72   ┆d  m45:                   ; sear┆
0x3840…3860      63 68 20 62 65 73 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 6a 6c 2e 20 77   ┆ch best area process:      jl. w┆
0x3860…3880      33 20 20 20 20 20 65 34 37 2e 20 20 20 3b 20 20 20 20 73 65 61 72 63 68 20 62 65 73 74 20 70 72   ┆3     e47.   ;    search best pr┆
0x3880…38a0      6f 63 65 73 73 0a 20 20 20 20 20 20 20 62 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20   ┆ocess        b5              ;  ┆
0x38a0…38c0      20 20 20 20 62 65 74 77 65 65 6e 20 66 69 72 73 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 20   ┆    between first area process  ┆
0x38c0…38e0      20 20 20 20 20 20 62 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 61 6e 64   ┆      b6              ;      and┆
0x38e0…3900      20 20 20 20 20 74 6f 70 20 20 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 6a 6c   ┆     top   area process;      jl┆
0x3900…3920      2e 20 20 20 20 20 20 20 20 6e 35 2e 20 20 20 20 3b 2b 36 3a 20 6e 6f 74 20 66 6f 75 6e 64 3a 20   ┆.        n5.    ;+6: not found: ┆
0x3920…3940      67 6f 74 6f 20 3c 6e 6f 74 20 66 6f 75 6e 64 3e 0a 0a 3b 20 77 32 20 3d 20 61 72 65 61 2d 20 28   ┆goto <not found>  ; w2 = area- (┆
0x3940…3960      6f 72 20 70 73 65 75 64 6f 2d 29 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 72 6c 20 20 77 30 20   ┆or pseudo-) process      rl  w0 ┆
0x3960…3980      20 78 32 2b 61 31 30 20 20 20 20 3b 20 20 20 20 77 30 20 3a 3d 20 6b 69 6e 64 2e 70 72 6f 63 3b   ┆ x2+a10    ;    w0 := kind.proc;┆
0x3980…39a0      0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 66 33 38 20 20 20 20 3b 20 20 20 20 69 66 20   ┆      sn  w0     f38    ;    if ┆
0x39a0…39c0      6b 69 6e 64 2e 70 72 6f 63 20 3d 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 74 68 65 6e 0a 20 20   ┆kind.proc = area process then   ┆
0x39c0…39e0      20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 31 2e 20 20 20 20 3b 20 20 20 20 20 20 73 6b 69 70   ┆   jl.        n1.    ;      skip┆
0x39e0…3a00      3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 35 2e 20 20 20 20 3b 20 20 20 20 67   ┆;       jl.        n5.    ;    g┆
0x3a00…3a20      6f 74 6f 20 3c 6e 6f 74 20 61 72 65 61 3e 3b 0a 0a 0a 0a 3b 20 73 65 74 75 70 20 61 72 65 61 20   ┆oto <not area>;    ; setup area ┆
0x3a20…3a40      70 72 6f 63 65 73 73 0a 3b 0a 3b 20 20 20 69 66 20 74 68 65 20 61 72 65 61 20 70 72 6f 63 65 73   ┆process ; ;   if the area proces┆
0x3a40…3a60      73 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 2c 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20   ┆s already exists, the specified ┆
0x3a60…3a80      70 72 6f 63 65 73 73 0a 3b 20 20 20 20 20 69 73 20 69 6e 63 6c 75 64 65 64 20 61 73 20 75 73 65   ┆process ;     is included as use┆
0x3a80…3aa0      72 20 28 69 6e 20 63 61 73 65 20 69 74 20 68 61 73 20 72 65 73 6f 75 72 63 65 73 29 0a 3b 20 20   ┆r (in case it has resources) ;  ┆
0x3aa0…3ac0      20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 61 72 65 61 2d 63 6c 61 69 6d 20 6f 66 20 74 68 65   ┆ otherwise the area-claim of the┆
0x3ac0…3ae0      20 70 72 6f 63 65 73 73 20 69 73 20 74 65 73 74 65 64 2c 0a 3b 20 20 20 20 20 61 6e 64 20 61 6e   ┆ process is tested, ;     and an┆
0x3ae0…3b00      20 65 6d 70 74 79 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 69 73 20 69 6e 69 74 69 61 6c 69 7a   ┆ empty area process is initializ┆
0x3b00…3b20      65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 65 6e 74 72 79 2e 77 6f 72 6b 0a 3b 0a 3b 20 63   ┆ed according to entry.work ; ; c┆
0x3b20…3b40      61 6c 6c 3a 20 28 65 6e 74 72 79 2e 77 6f 72 6b 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 65 6e   ┆all: (entry.work contains the en┆
0x3b40…3b60      74 72 79 29 0a 3b 20 20 20 20 20 20 20 6d 34 36 2c 20 3c 70 72 6f 63 65 73 73 20 63 6f 64 65 3e   ┆try) ;       m46, <process code>┆
0x3b60…3b80      20 20 20 20 28 63 6f 64 65 20 3d 20 30 20 3a 20 70 72 6f 63 66 75 6e 63 2c 20 63 6f 64 65 20 3d   ┆    (code = 0 : procfunc, code =┆
0x3b80…3ba0      20 32 20 3a 20 73 65 6e 64 65 72 29 0a 3b 0a 3b 20 65 72 72 6f 72 20 72 65 74 75 72 6e 3a 20 72   ┆ 2 : sender) ; ; error return: r┆
0x3ba0…3bc0      65 73 75 6c 74 20 31 2c 20 69 66 20 61 72 65 61 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64   ┆esult 1, if area claims exceeded┆
0x3bc0…3be0      0a 3b 20 72 65 74 75 72 6e 3a 20 63 75 72 20 70 72 6f 63 20 6e 61 6d 65 20 74 61 62 6c 65 20 61   ┆ ; return: cur proc name table a┆
0x3be0…3c00      64 64 72 65 73 73 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 74 68 65 20 61 72 65 61 20 70   ┆ddress corresponds to the area p┆
0x3c00…3c20      72 6f 63 65 73 73 0a 3b 20 20 20 20 20 20 20 20 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 70   ┆rocess ;         the specified p┆
0x3c20…3c40      72 6f 63 65 73 73 20 69 73 20 69 6e 63 6c 75 64 65 64 20 61 73 20 75 73 65 72 20 6f 66 20 74 68   ┆rocess is included as user of th┆
0x3c40…3c60      65 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 0a 62 2e 20 67 31 30 2c 20 68 31 30 20 77 2e 0a 0a   ┆e area process  b. g10, h10 w.  ┆
0x3c60…3c80      6d 34 36 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 74 75 70 20 61   ┆m46:                   ; setup a┆
0x3c80…3ca0      72 65 61 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 6e 31 30   ┆rea process:      jl. w3     n10┆
0x3ca0…3cc0      2e 20 20 20 3b 20 20 20 20 77 30 20 3a 3d 20 70 72 6f 63 65 73 73 20 63 6f 64 65 20 3a 3d 20 70   ┆.   ;    w0 := process code := p┆
0x3cc0…3ce0      61 72 61 6d 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 28 30 29 20 20 20 20 20 3b 0a 20   ┆aram;      am        (0)     ;  ┆
0x3ce0…3d00      20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 28 68 30 2e 29 20 20 20 3b 20 20 20 20 69 6e 74 65 72   ┆    rl. w1    (h0.)   ;    inter┆
0x3d00…3d20      6e 61 6c 20 3a 3d 20 70 72 6f 63 74 61 62 6c 65 20 28 70 72 6f 63 65 73 73 20 63 6f 64 65 29 3b   ┆nal := proctable (process code);┆
0x3d20…3d40      0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 68 31 2e 20 20 20 20 3b 0a 0a 20 20 20 20 20   ┆      rs. w1     h1.    ;       ┆
0x3d40…3d60      6a 6c 2e 20 77 33 20 20 20 20 20 65 34 37 2e 20 20 20 3b 20 20 20 20 73 65 61 72 63 68 20 62 65   ┆jl. w3     e47.   ;    search be┆
0x3d60…3d80      73 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 62 35 20 20 20 20 20 20   ┆st area process;        b5      ┆
0x3d80…3da0      20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 62 36 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆        ;        b6             ┆
0x3da0…3dc0      20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 2e 20 20 20 20 3b 2b 36 3a 20 20   ┆ ;      jl.        g1.    ;+6:  ┆
0x3dc0…3de0      20 6e 6f 74 20 66 6f 75 6e 64 3a 20 67 6f 74 6f 20 74 65 73 74 20 61 72 65 61 20 63 6c 61 69 6d   ┆ not found: goto test area claim┆
0x3de0…3e00      3b 0a 0a 3b 20 61 6e 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 77 61 73 20 66 6f 75 6e 64 2c 20   ┆;  ; an area process was found, ┆
0x3e00…3e20      62 75 74 20 77 61 73 20 69 74 20 74 68 65 20 72 69 67 74 68 20 6f 6e 65 2c 20 69 2e 65 20 68 6f   ┆but was it the rigth one, i.e ho┆
0x3e20…3e40      77 20 61 62 6f 75 74 20 74 68 65 20 62 61 73 65 0a 3b 20 77 30 77 31 20 3d 20 62 61 73 65 2e 70   ┆w about the base ; w0w1 = base.p┆
0x3e40…3e60      72 6f 63 0a 20 20 20 20 20 73 6e 2e 20 77 30 20 20 20 20 28 64 31 2e 2b 66 31 29 3b 20 20 20 20   ┆roc      sn. w0    (d1.+f1);    ┆
0x3e60…3e80      69 66 20 62 61 73 65 2e 70 72 6f 63 20 3c 3e 20 62 61 73 65 2e 77 6f 72 6b 20 74 68 65 6e 0a 20   ┆if base.proc <> base.work then  ┆
0x3e80…3ea0      20 20 20 20 73 65 2e 20 77 31 20 20 20 20 28 64 31 2e 2b 66 32 29 3b 0a 20 20 20 20 20 6a 6c 2e   ┆    se. w1    (d1.+f2);      jl.┆
0x3ea0…3ec0      20 20 20 20 20 20 20 20 67 31 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 74 65 73 74 20   ┆        g1.    ;      goto test ┆
0x3ec0…3ee0      61 72 65 61 20 63 6c 61 69 6d 3b 0a 0a 3b 20 69 74 20 77 61 73 20 74 68 65 20 63 6f 72 72 65 63   ┆area claim;  ; it was the correc┆
0x3ee0…3f00      74 20 61 72 65 61 20 70 72 6f 63 65 73 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 35   ┆t area proces      jl.        g5┆
0x3f00…3f20 (7,) 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 63 6c 75 64 65 3b 0a 0a 67 31 3a 20 20 20 20   ┆.    ;    goto include;  g1:    ┆
0x3f20…3f40      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 65 73 74 20 61 72 65 61 20 63 6c 61 69   ┆                ; test area clai┆
0x3f40…3f60      6d 3a 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 68 31 2e 20 20 20 20 3b 0a 20 20 20 20   ┆m:      rl. w1     h1.    ;     ┆
0x3f60…3f80      20 62 7a 20 20 77 30 20 20 78 31 2b 61 32 30 20 20 20 20 3b 20 20 20 20 69 66 20 61 72 65 61 20   ┆ bz  w0  x1+a20    ;    if area ┆
0x3f80…3fa0      63 6c 61 69 6d 2e 69 6e 74 65 72 6e 61 6c 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 73 6e 20   ┆claim.internal = 0 then      sn ┆
0x3fa0…3fc0      20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20   ┆ w0     0      ;      jl.       ┆
0x3fc0…3fe0      20 6a 31 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 20 20 69   ┆ j1.    ;      goto result 1;  i┆
0x3fe0…4000      2e 65 2e 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 0a 0a 3b 20 74 68 65 20 69 6e 74 65 72   ┆.e. claims exceeded  ; the inter┆
0x4000…4020      6e 61 6c 20 70 72 6f 63 65 73 73 20 68 61 73 20 74 68 65 20 63 6c 61 69 6d 20 6f 66 20 61 74 20   ┆nal process has the claim of at ┆
0x4020…4040      6c 65 61 73 74 20 6f 6e 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 2c 0a 3b 20 20 20 69 2e 65 2e   ┆least one area process, ;   i.e.┆
0x4040…4060      20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 65 6d 70 74 79 20 61 72 65 61 20 70 72 6f 63 65 73 73   ┆ at least one empty area process┆
0x4060…4080      20 65 78 69 73 74 2e 0a 3b 20 66 69 6e 64 20 74 68 61 74 20 6f 6e 65 20 61 6e 64 20 69 6e 69 74   ┆ exist. ; find that one and init┆
0x4080…40a0      69 61 6c 69 7a 65 20 69 74 2e 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 65 34 34 2e 20   ┆ialize it.      jl. w3     e44. ┆
0x40a0…40c0      20 20 3b 20 20 20 20 66 69 6e 64 20 65 6d 70 74 79 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a   ┆  ;    find empty area process; ┆
0x40c0…40e0      20 20 20 20 20 20 20 62 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c   ┆       b5              ;      rl┆
0x40e0…4100      2e 20 77 33 20 28 64 31 31 2e 29 20 20 20 20 20 3b 0a 20 20 20 20 20 6c 64 20 20 77 31 20 20 2d   ┆. w3 (d11.)     ;      ld  w1  -┆
0x4100…4120      31 30 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 34 31 32 20   ┆100      ;      ds  w1  x3+a412 ┆
0x4120…4140      20 20 3b 20 20 20 61 63 63 65 73 73 20 63 6f 75 6e 74 65 72 73 3a 3d 30 2c 30 3b 0a 20 20 20 20   ┆  ;   access counters:=0,0;     ┆
0x4140…4160      20 6a 6c 2e 20 77 33 20 20 20 20 20 67 31 30 2e 20 20 20 3b 20 20 20 20 69 6e 69 74 20 61 72 65   ┆ jl. w3     g10.   ;    init are┆
0x4160…4180      61 28 65 6e 61 62 6c 65 64 29 3b 0a 0a 3b 20 61 6e 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 65   ┆a(enabled);  ; an area process e┆
0x4180…41a0      78 69 73 74 73 20 6e 6f 77 2c 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 65 6e 74 72   ┆xists now, corresponding to entr┆
0x41a0…41c0      79 2e 77 6f 72 6b 0a 67 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20   ┆y.work g5:                    ; ┆
0x41c0…41e0      69 6e 63 6c 75 64 65 3a 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 68 31 2e 20 20 20 20   ┆include:      rl. w1     h1.    ┆
0x41e0…4200      3b 20 20 77 31 3a 3d 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 28   ┆;  w1:=intproc;      rl. w3    (┆
0x4200…4220      64 31 31 2e 29 20 20 3b 20 20 77 33 3a 3d 65 78 74 70 72 6f 63 3b 0a 20 20 20 20 20 6a 6c 2e 20   ┆d11.)  ;  w3:=extproc;      jl. ┆
0x4220…4240      77 32 20 20 20 20 20 65 35 33 2e 20 20 20 3b 20 20 74 65 73 74 20 75 73 65 72 73 20 61 6e 64 20   ┆w2     e53.   ;  test users and ┆
0x4240…4260      72 65 73 65 72 76 65 72 3b 0a 20 20 20 20 20 73 7a 20 20 77 32 20 20 20 20 20 32 2e 31 20 20 20   ┆reserver;      sz  w2     2.1   ┆
0x4260…4280      20 3b 20 20 69 66 20 69 6e 74 70 72 6f 63 20 61 6c 72 65 61 64 79 20 75 73 65 72 20 74 68 65 6e   ┆ ;  if intproc already user then┆
0x4280…42a0      0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 67 6f 74 6f 20   ┆      jl.        n0.    ;  goto ┆
0x42a0…42c0      6e 65 78 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 65 6c 73 65 0a 20 20 20 20 20 61 6c 20 20 77   ┆next instruction else      al  w┆
0x42c0…42e0      30 20 20 20 20 20 2d 31 20 20 20 20 20 3b 0a 20 20 20 20 20 62 61 20 20 77 30 20 20 20 78 31 2b   ┆0     -1     ;      ba  w0   x1+┆
0x42e0…4300      61 32 30 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 2d 31 20 20 20 20 20 3b   ┆a20   ;      sn  w0     -1     ;┆
0x4300…4320      20 20 69 66 20 61 72 65 61 63 6c 61 69 6d 2e 73 65 6e 64 65 72 3d 30 20 74 68 65 6e 0a 20 20 20   ┆  if areaclaim.sender=0 then    ┆
0x4320…4340      20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 31 2e 20 20 20 20 3b 20 20 67 6f 74 6f 20 72 65 73 75   ┆  jl.        j1.    ;  goto resu┆
0x4340…4360      6c 74 20 31 20 65 6c 73 65 0a 20 20 20 20 20 6a 31 3d 6b 2d 32 0a 20 20 20 20 20 68 73 20 20 77   ┆lt 1 else      j1=k-2      hs  w┆
0x4360…4380      30 20 20 78 31 2b 61 32 30 20 20 20 20 3b 20 20 65 6c 73 65 20 64 65 63 72 65 61 73 65 20 61 72   ┆0  x1+a20    ;  else decrease ar┆
0x4380…43a0      65 61 63 6c 61 69 6d 2e 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 32 20 20 20 20 20   ┆eaclaim.sender;      jl. w2     ┆
0x43a0…43c0      65 35 31 2e 20 20 20 3b 20 20 69 6e 63 6c 75 64 65 20 69 6e 74 70 72 6f 63 20 61 73 20 75 73 65   ┆e51.   ;  include intproc as use┆
0x43c0…43e0      72 20 6f 66 20 61 72 65 61 70 72 6f 63 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20   ┆r of areaproc;       jl.        ┆
0x43e0…4400      6e 30 2e 20 20 20 20 3b 20 20 20 20 6e 65 78 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 0a 0a 0a 0a   ┆n0.    ;    next instruction    ┆
0x4400…4420      3b 20 73 75 62 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 20 61 72 65 61 0a 3b 0a 3b 20 20 20 69   ┆; subprocedure init area ; ;   i┆
0x4420…4440      6e 69 74 69 61 6c 69 7a 65 73 20 74 68 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 66 72 6f 6d   ┆nitializes the area process from┆
0x4440…4460      20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 67 69 76 65 6e 20 69 6e 20 65 6e 74 72 79 2e 77 6f 72 6b   ┆ information given in entry.work┆
0x4460…4480      0a 3b 0a 3b 20 61 6e 20 65 6d 70 74 79 20 20 20 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 6d 61   ┆ ; ; an empty    area process ma┆
0x4480…44a0      79 20 20 62 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 65 6e 61 62 6c 65 64 0a 3b 20 61 6e 20 65   ┆y  be initialized enabled ; an e┆
0x44a0…44c0      78 69 73 74 69 6e 67 20 20 2d 20 20 20 20 20 20 2d 20 20 20 20 6d 75 73 74 20 20 2d 20 20 20 20   ┆xisting  -      -    must  -    ┆
0x44c0…44e0      20 20 2d 20 20 20 20 20 20 64 69 73 61 62 6c 65 64 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 77 33 20 3d   ┆  -      disabled ; ; call: w3 =┆
0x44e0…4500      20 6c 69 6e 6b 0a 0a 67 31 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20   ┆ link  g10:                   ; ┆
0x4500…4520      70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 20 61 72 65 61 3a 0a 20 20 20 20 20 72 73 2e 20 77 33   ┆procedure init area:      rs. w3┆
0x4520…4540      20 20 20 20 20 68 32 2e 20 20 20 20 3b 20 20 20 20 73 61 76 65 20 28 72 65 74 75 72 6e 29 3b 0a   ┆     h2.    ;    save (return); ┆
0x4540…4560      20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 20 64 31 2e 20 20 20 20 3b 20 20 20 20 6d 6f 76 65   ┆     al. w2     d1.    ;    move┆
0x4560…4580      20 66 72 6f 6d 3a 20 65 6e 74 72 79 2e 77 6f 72 6b 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20   ┆ from: entry.work      rl. w3   ┆
0x4580…45a0      20 28 64 31 31 2e 29 20 20 3b 20 20 20 20 20 20 20 20 20 74 6f 3a 20 20 20 61 72 65 61 20 70 72   ┆ (d11.)  ;         to:   area pr┆
0x45a0…45c0      6f 63 65 73 73 20 20 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 0a 20 20 20 20 20 61 6c 20   ┆ocess   the following:       al ┆
0x45c0…45e0      20 77 30 20 20 20 20 20 66 33 38 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33   ┆ w0     f38    ;      rs  w0  x3┆
0x45e0…4600      2b 61 31 30 20 20 20 20 3b 20 20 20 20 20 20 6b 69 6e 64 20 28 20 3d 20 61 72 65 61 20 70 72 6f   ┆+a10    ;      kind ( = area pro┆
0x4600…4620      63 65 73 73 29 0a 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 66 31 31 2b 32 20 20 3b 0a   ┆cess)       dl  w1  x2+f11+2  ; ┆
0x4620…4640      20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 36 32 2b 32 20 20 3b 20 20 20 20 20 20 64 6f   ┆     ds  w1  x3+a62+2  ;      do┆
0x4640…4660      63 6e 61 6d 65 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 66 31 31 2b 36 20 20 3b 0a 20   ┆cname      dl  w1  x2+f11+6  ;  ┆
0x4660…4680      20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 36 32 2b 36 20 20 3b 0a 0a 20 20 20 20 20 62 7a   ┆    ds  w1  x3+a62+6  ;       bz┆
0x4680…46a0      20 20 77 30 20 20 78 32 2b 66 34 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78   ┆  w0  x2+f4     ;      rs  w0  x┆
0x46a0…46c0      33 2b 61 36 30 20 20 20 20 3b 20 20 20 20 20 20 66 69 72 73 74 20 73 6c 69 63 65 0a 0a 20 20 20   ┆3+a60    ;      first slice     ┆
0x46c0…46e0      20 20 72 6c 20 20 77 30 20 20 78 32 2b 66 37 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77   ┆  rl  w0  x2+f7     ;      rs  w┆
0x46e0…4700      30 20 20 78 33 2b 61 36 31 20 20 20 20 3b 20 20 20 20 20 20 73 69 7a 65 0a 0a 20 20 20 20 20 64   ┆0  x3+a61    ;      size       d┆
0x4700…4720      6c 20 20 77 31 20 20 78 32 2b 66 32 20 20 20 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20   ┆l  w1  x2+f2     ;      ds  w1  ┆
0x4720…4740      78 33 2b 61 34 39 20 20 20 20 3b 20 20 20 20 20 20 62 61 73 65 0a 0a 3b 20 6e 6f 74 69 63 65 3a   ┆x3+a49    ;      base  ; notice:┆
0x4740…4760      20 6e 61 6d 65 28 30 29 20 69 73 20 6d 6f 76 65 64 20 6c 61 73 74 0a 20 20 20 20 20 64 6c 20 20   ┆ name(0) is moved last      dl  ┆
0x4760…4780      77 31 20 20 78 32 2b 66 35 2b 36 20 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b   ┆w1  x2+f5+6   ;      ds  w1  x3+┆
0x4780…47a0      61 31 31 2b 36 20 20 3b 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20   ┆a11+6  ;      name      dl  w1  ┆
0x47a0…47c0      78 32 2b 66 35 2b 32 20 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 31 31 2b   ┆x2+f5+2   ;      ds  w1  x3+a11+┆
0x47c0…47e0      32 20 20 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 68 32 2e 29 20 20 20 3b 20 20   ┆2  ;       jl.       (h2.)   ;  ┆
0x47e0…4800      20 20 72 65 74 75 72 6e 3b 0a 0a 68 30 3a 20 20 62 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆  return;  h0:  b1              ┆
0x4800…4820 (8,) 20 20 3b 20 70 72 6f 63 65 73 73 20 74 61 62 6c 65 3a 20 70 61 72 61 6d 20 3d 20 30 20 3a 20 70   ┆  ; process table: param = 0 : p┆
0x4820…4840      72 6f 63 66 75 6e 63 0a 64 32 30 3a 20 64 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b   ┆rocfunc d20: d2                ;┆
0x4840…4860      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 20 3d 20 32 20 3a 20 73 65 6e 64   ┆                param = 2 : send┆
0x4860…4880      65 72 0a 0a 68 31 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74   ┆er  h1:  0                 ; int┆
0x4880…48a0      65 72 6e 61 6c 0a 68 32 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72   ┆ernal h2:  0                 ; r┆
0x48a0…48c0      65 74 75 72 6e 20 66 72 6f 6d 20 69 6e 69 74 20 61 72 65 61 0a 0a 0a 0a 3b 20 69 6e 63 6c 75 64   ┆eturn from init area    ; includ┆
0x48c0…48e0      65 20 69 6e 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 20 20 74 68 65 20 69 6e 74 65   ┆e in area process ; ;   the inte┆
0x48e0…4900      72 6e 61 6c 20 70 72 6f 63 65 73 73 2c 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 70   ┆rnal process, specified in the p┆
0x4900…4920      61 72 61 6d 65 74 65 72 20 69 73 20 69 6e 63 6c 75 64 65 64 0a 3b 20 20 20 20 20 61 73 20 75 73   ┆arameter is included ;     as us┆
0x4920…4940      65 72 20 6f 66 20 74 68 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 63 61 6c 6c 3a   ┆er of the area process ; ; call:┆
0x4940…4960      20 6d 34 37 2c 20 3c 70 72 6f 63 65 73 73 20 63 6f 64 65 3e 0a 3b 20 65 72 72 6f 72 20 72 65 74   ┆ m47, <process code> ; error ret┆
0x4960…4980      75 72 6e 3a 20 72 65 73 75 6c 74 20 31 2c 20 69 66 20 61 72 65 61 20 63 6c 61 69 6d 73 20 65 78   ┆urn: result 1, if area claims ex┆
0x4980…49a0      63 65 65 64 65 64 0a 0a 6d 34 37 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b   ┆ceeded  m47:                   ;┆
0x49a0…49c0      20 69 6e 63 6c 75 64 65 20 69 6e 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 6a   ┆ include in area process:      j┆
0x49c0…49e0      6c 2e 20 77 33 20 20 20 20 20 6e 31 30 2e 20 20 20 3b 20 20 20 20 77 30 20 3a 3d 20 70 72 6f 63   ┆l. w3     n10.   ;    w0 := proc┆
0x49e0…4a00      65 73 73 20 63 6f 64 65 20 3a 3d 20 70 61 72 61 6d 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20   ┆ess code := param;      am      ┆
0x4a00…4a20      20 20 28 30 29 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 28 68 30 2e 29   ┆  (0)     ;      rl. w1    (h0.)┆
0x4a20…4a40      20 20 20 3b 20 20 20 20 69 6e 74 65 72 6e 61 6c 20 3a 3d 20 70 72 6f 63 74 61 62 6c 65 20 28 70   ┆   ;    internal := proctable (p┆
0x4a40…4a60      72 6f 63 65 73 73 20 63 6f 64 65 29 3b 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 68 31   ┆rocess code);      rs. w1     h1┆
0x4a60…4a80      2e 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 35 2e 20 20 20 20 3b 20   ┆.    ;      jl.        g5.    ; ┆
0x4a80…4aa0      20 20 20 67 6f 74 6f 20 69 6e 63 6c 75 64 65 3b 0a 0a 0a 0a 3b 20 69 66 20 61 72 65 61 20 70 72   ┆   goto include;    ; if area pr┆
0x4aa0…4ac0      6f 63 65 73 73 20 74 68 65 6e 20 72 65 69 6e 69 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 3b   ┆ocess then reinit area process ;┆
0x4ac0…4ae0      0a 3b 20 20 20 69 74 20 69 73 20 74 65 73 74 65 64 2c 20 74 68 61 74 20 61 6e 20 61 72 65 61 20   ┆ ;   it is tested, that an area ┆
0x4ae0…4b00      70 72 6f 63 65 73 73 20 77 61 73 20 66 6f 75 6e 64 20 65 61 72 6c 69 65 72 2e 0a 3b 20 20 20 69   ┆process was found earlier. ;   i┆
0x4b00…4b20      6e 20 74 68 69 73 20 63 61 73 65 20 69 74 20 77 69 6c 6c 20 62 65 20 72 65 2d 69 6e 69 74 69 61   ┆n this case it will be re-initia┆
0x4b20…4b40      6c 69 7a 65 64 20 66 72 6f 6d 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 6e 74 72 79 2e 77 6f 72   ┆lized from the current entry.wor┆
0x4b40…4b60      6b 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 6d 34 38 0a 0a 6d 34 38 3a 20 20 20 20 20 20 20 20 20 20 20   ┆k ; ; call: m48  m48:           ┆
0x4b60…4b80      20 20 20 20 20 20 20 20 3b 20 72 65 69 6e 69 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 0a 20   ┆        ; reinit area process:  ┆
0x4b80…4ba0      20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 64 31 31 2e 20 20 20 3b 20 20 20 20 69 66 20 63 75   ┆    rl. w2     d11.   ;    if cu┆
0x4ba0…4bc0      72 20 70 72 6f 63 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 0a 20 20 20 20 20 73   ┆r proc name table address      s┆
0x4bc0…4be0      6c 20 20 77 32 20 20 20 20 28 62 35 29 20 20 20 20 3b 20 20 20 20 20 20 64 6f 65 73 20 6e 6f 74   ┆l  w2    (b5)    ;      does not┆
0x4be0…4c00      20 6f 75 74 70 6f 69 6e 74 20 61 6e 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 74 68 65 6e 0a 20   ┆ outpoint an area process then  ┆
0x4c00…4c20      20 20 20 20 73 6c 20 20 77 32 20 20 20 20 28 62 36 29 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e   ┆    sl  w2    (b6)    ;      jl.┆
0x4c20…4c40      20 20 20 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 20 20 20 20 6e 65 78 74 20 69 6e 73 74 72   ┆        n0.    ;      next instr┆
0x4c40…4c60      75 63 74 69 6f 6e 3b 0a 0a 20 20 20 20 20 6a 64 2e 20 77 33 20 20 20 20 20 67 31 30 2e 20 20 20   ┆uction;       jd. w3     g10.   ┆
0x4c60…4c80      3b 20 20 20 20 69 6e 69 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 64 69 73 61 62 6c 65 64 3b   ┆;    init area process disabled;┆
0x4c80…4ca0      0a 0a 20 20 20 20 20 6a 65 2e 20 20 20 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 20 20 65 6e   ┆       je.        n0.    ;    en┆
0x4ca0…4cc0      61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20   ┆able                        ;   ┆
0x4cc0…4ce0      20 6e 65 78 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 0a 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20   ┆ next instruction  e.           ┆
0x4ce0…4d00      20 20 20 20 20 20 20 20 20 20 3b 0a 0a 0a 0a 3b 20 6d 61 6b 65 20 73 65 6e 64 65 72 20 74 6f 20   ┆          ;    ; make sender to ┆
0x4d00…4d20      72 65 73 65 72 76 65 72 20 6f 66 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 63 61 6c   ┆reserver of area process ; ; cal┆
0x4d20…4d40      6c 3a 20 6d 34 39 0a 0a 6d 34 39 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b   ┆l: m49  m49:                   ;┆
0x4d40…4d60      20 6d 61 6b 65 20 73 65 6e 64 65 72 20 72 65 73 65 72 76 65 72 3a 0a 20 20 20 20 20 72 6c 2e 20   ┆ make sender reserver:      rl. ┆
0x4d60…4d80      77 31 20 20 20 20 20 64 32 2e 20 20 20 20 3b 20 20 20 20 77 31 20 3a 3d 20 73 65 6e 64 65 72 3b   ┆w1     d2.    ;    w1 := sender;┆
0x4d80…4da0      0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 28 64 31 31 2e 29 20 20 3b 20 20 20 20 77 32 20   ┆      rl. w2    (d11.)  ;    w2 ┆
0x4da0…4dc0      3a 3d 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31   ┆:= area process;      rl  w0  x1┆
0x4dc0…4de0      2b 61 31 34 20 20 20 20 3b 20 20 20 20 77 30 20 3a 3d 20 69 64 62 69 74 2e 73 65 6e 64 65 72 3b   ┆+a14    ;    w0 := idbit.sender;┆
0x4de0…4e00      0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 32 2b 61 35 32 20 20 20 20 3b 20 20 20 20 72 65 73   ┆      rs  w0  x2+a52    ;    res┆
0x4e00…4e20      65 72 76 65 72 2e 61 72 65 61 70 72 6f 63 20 3a 3d 20 73 65 6e 64 65 72 3b 0a 0a 20 20 20 20 20   ┆erver.areaproc := sender;       ┆
0x4e20…4e40      6a 6c 2e 20 20 20 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 20 20 6e 65 78 74 20 69 6e 73 74   ┆jl.        n0.    ;    next inst┆
0x4e40…4e60      72 75 63 74 69 6f 6e 0a 6e 30 20 3d 20 6b 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b   ┆ruction n0 = k-2               ;┆
0x4e60…4e80      20 28 73 74 65 70 70 69 6e 67 20 73 74 6f 6e 65 29 0a 0a 0a 0a 3b 20 69 66 20 61 72 65 61 20 70   ┆ (stepping stone)    ; if area p┆
0x4e80…4ea0      72 6f 63 65 73 73 20 74 68 65 6e 20 64 65 6c 65 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a   ┆rocess then delete area process ┆
0x4ea0…4ec0      3b 0a 3b 20 20 20 74 68 65 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 6e 61 6d 65 2e 70 72 6f   ┆; ;   the first word of name.pro┆
0x4ec0…4ee0      63 20 69 73 20 63 6c 65 61 72 65 64 2c 20 69 6e 64 69 63 61 74 69 6e 67 20 61 6e 20 65 6d 70 74   ┆c is cleared, indicating an empt┆
0x4ee0…4f00      79 20 61 72 65 61 70 72 6f 63 65 73 73 2e 0a 3b 20 20 20 72 65 73 65 72 76 65 72 2e 70 72 6f 63   ┆y areaprocess. ;   reserver.proc┆
0x4f00…4f20      20 61 6e 64 20 75 73 65 72 73 2e 70 72 6f 63 20 61 72 65 20 63 6c 65 61 72 65 64 2e 0a 3b 20 20   ┆ and users.proc are cleared. ;  ┆
0x4f20…4f40      20 61 6c 6c 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 73 20 77 68 6f 20 77 65 72 65   ┆ all internal processes who were┆
0x4f40…4f60      20 75 73 65 72 73 20 6f 66 20 74 68 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 77 69 6c 6c 20   ┆ users of the area process will ┆
0x4f60…4f80      68 61 76 65 0a 3b 20 20 20 20 20 74 68 65 69 72 20 61 72 65 61 2d 63 6c 61 69 6d 20 69 6e 63 72   ┆have ;     their area-claim incr┆
0x4f80…4fa0      65 61 73 65 64 2e 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 6d 35 30 0a 0a 62 2e 20 67 31 30 2c 68 35 20   ┆eased. ; ; call: m50  b. g10,h5 ┆
0x4fa0…4fc0      77 2e 0a 0a 6d 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20   ┆w.  m50:                   ; if ┆
0x4fc0…4fe0      61 72 65 61 70 72 6f 63 65 73 73 20 74 68 65 6e 20 64 65 6c 65 74 65 20 61 72 65 61 20 70 72 6f   ┆areaprocess then delete area pro┆
0x4fe0…5000      63 65 73 73 3a 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 64 31 31 2e 20 20 20 3b 20 20   ┆cess:      rl. w2     d11.   ;  ┆
0x5000…5020      20 20 77 32 20 3a 3d 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 20 6f 66 20 70 6f   ┆  w2 := name table address of po┆
0x5020…5040      73 73 69 62 6c 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 73 6c 20 20 77 32   ┆ssible area process;      sl  w2┆
0x5040…5060      20 20 20 20 28 62 35 29 20 20 20 20 3b 20 20 20 20 69 66 20 6e 6f 74 20 61 6e 20 61 72 65 61 20   ┆    (b5)    ;    if not an area ┆
0x5060…5080      70 72 6f 63 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 20 20 28 62 36 29   ┆process then      sl  w2    (b6)┆
0x5080…50a0      20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20   ┆    ;      jl.        n0.    ;  ┆
0x50a0…50c0      20 20 20 20 6e 65 78 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 0a 0a 20 20 20 20 20 72 6c 20 20 77   ┆    next instruction       rl  w┆
0x50c0…50e0      33 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 20 20 20 70 72 6f 63 20 3a 3d 20 61 72 65 61 20 70   ┆3  x2        ;    proc := area p┆
0x50e0…5100      72 6f 63 65 73 73 3b 0a 0a 3b 20 6e 6f 74 69 63 65 3a 20 61 6c 6c 20 74 68 65 20 72 65 6d 6f 76   ┆rocess;  ; notice: all the remov┆
0x5100…5120 (9,) 65 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 65 6e 61 62 6c 65 64 3a 0a 20 20 20 20 20 61 6c 20   ┆e is performed enabled:      al ┆
0x5120…5140      20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 33   ┆ w2     0      ;      rs  w2  x3┆
0x5140…5160      2b 61 35 32 20 20 20 20 3b 20 20 63 6c 65 61 72 20 72 65 73 65 72 76 65 72 2e 65 78 74 70 72 6f   ┆+a52    ;  clear reserver.extpro┆
0x5160…5180      63 3b 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 33 2b 61 31 31 20 20 20 20 3b 20 20 20 20 20   ┆c;      rs  w2  x3+a11    ;     ┆
0x5180…51a0      20 20 20 6e 61 6d 65 28 30 29 2e 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 33 2b 61 35 30 20   ┆   name(0).      rs  w2  x3+a50 ┆
0x51a0…51c0      20 20 20 3b 20 20 20 20 20 20 20 20 64 6f 63 61 64 64 72 2e 0a 0a 3b 20 73 63 61 6e 20 61 6c 6c   ┆   ;        docaddr.  ; scan all┆
0x51c0…51e0      20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 73 20 61 6e 64 20 6d 61 79 62 65 20 69 6e   ┆ internal processes and maybe in┆
0x51e0…5200      63 72 65 61 73 65 20 74 68 65 69 72 20 61 72 65 61 2d 63 6c 61 69 6d 0a 0a 20 20 20 20 20 72 6c   ┆crease their area-claim       rl┆
0x5200…5220      20 20 77 32 20 20 20 20 20 62 36 20 20 20 20 20 3b 20 20 77 32 3a 3d 66 69 72 73 74 20 69 6e 74   ┆  w2     b6     ;  w2:=first int┆
0x5220…5240      70 72 6f 63 20 69 6e 20 6e 61 6d 65 74 61 62 6c 65 3b 0a 67 31 3a 20 20 72 6c 20 20 77 31 20 20   ┆proc in nametable; g1:  rl  w1  ┆
0x5240…5260      78 32 20 20 20 20 20 20 20 20 3b 20 20 77 31 3a 3d 6e 65 78 74 20 69 6e 74 70 72 6f 63 20 69 6e   ┆x2        ;  w1:=next intproc in┆
0x5260…5280      20 6e 61 6d 65 74 61 62 6c 65 3b 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 68 30 2e 20   ┆ nametable;      rs. w2     h0. ┆
0x5280…52a0      20 20 20 3b 20 20 0a 20 20 20 20 20 6a 6c 2e 20 77 32 20 20 20 20 20 65 35 33 2e 20 20 20 3b 20   ┆   ;        jl. w2     e53.   ; ┆
0x52a0…52c0      20 74 65 73 74 20 75 73 65 72 73 20 61 6e 64 20 72 65 73 65 72 76 65 72 3b 0a 20 20 20 20 20 72   ┆ test users and reserver;      r┆
0x52c0…52e0      73 2e 20 77 32 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 3a 3d 75 73 65 72 20 61 6e 64 20 72   ┆s. w2     h1.    ;  :=user and r┆
0x52e0…5300      65 73 65 72 76 65 72 20 6d 61 73 6b 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 32 20 20 20 20 20 65 35   ┆eserver mask;      jl. w2     e5┆
0x5300…5320      32 2e 20 20 20 3b 20 20 65 78 63 6c 75 64 65 20 69 6e 74 70 72 6f 63 20 61 73 20 75 73 65 72 3b   ┆2.   ;  exclude intproc as user;┆
0x5320…5340      0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 77 32 3a 3d 75   ┆      rl. w2     h1.    ;  w2:=u┆
0x5340…5360      73 65 72 20 61 6e 64 20 72 65 73 65 72 76 65 72 20 6d 61 73 6b 3b 0a 20 20 20 20 20 61 6c 20 20   ┆ser and reserver mask;      al  ┆
0x5360…5380      77 30 20 20 20 20 20 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 61 20 20 77 30 20 20 78 31 2b   ┆w0     1      ;      ba  w0  x1+┆
0x5380…53a0      61 32 30 20 20 20 20 3b 0a 20 20 20 20 20 73 7a 20 20 77 32 20 20 20 20 20 32 2e 31 20 20 20 20   ┆a20    ;      sz  w2     2.1    ┆
0x53a0…53c0      3b 20 20 69 66 20 69 6e 74 70 72 6f 63 20 69 73 20 75 73 65 72 20 74 68 65 6e 0a 20 20 20 20 20   ┆;  if intproc is user then      ┆
0x53c0…53e0      68 73 20 20 77 30 20 20 78 31 2b 61 32 30 20 20 20 20 3b 20 20 69 6e 63 72 65 61 73 65 20 61 72   ┆hs  w0  x1+a20    ;  increase ar┆
0x53e0…5400      65 61 63 6c 61 69 6d 2e 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 73 6f 20 20 77 32 20 20 20 20   ┆eaclaim.intproc;      so  w2    ┆