|
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 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 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 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…4400 […elided…]
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 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 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 ┆