|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 21504 (0x5400) Types: Rc489kSubCat Names: »orcb«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ. └─⟦b2ec5d50f⟧ └─⟦this⟧ »orcb«
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 ┆