|
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: 107520 (0x1a400)
Types: Rc489kSubCat
Names: »hc8mon«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »hc8mon«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x0014ba, f01=0x0007e4, f02=0x0007ed, filename=»hcmonflet «, entry_tail=0-4-0-3-1982-02-23T15:21-disc-0x10000-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x004003, f01=0x0003fc, f02=0x000405, filename=»netmoninp «, entry_tail=0-4-0-50-1980-05-07T14:43--0xb009-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x036003, f01=0x0003fc, f02=0x000405, filename=»hcmonrefinp «, entry_tail=0-4-0-75-1980-05-07T14:43--0xb009-0x0-0x0-0x0}
0x00099…000a0 ff ff ff ff ff ff ff ┆ ┆
0x000a0…000c0 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 ┆ ┆
[…0x10…]
0x002c0…002e0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 03 03 86 b3 00 00 8c 00 00 95 74 70 6c 66 ┆ tplf┆
0x002e0…002fd 00 00 00 00 00 00 00 00 00 00 11 64 69 73 63 31 00 00 00 00 00 00 00 81 d7 80 00 00 00 ┆ disc1 ┆
0x002fd…00300 0x000003
0x00300…00c00 Data for hcmonflet
0x00c00…0a200 Data for netmoninp
0x0a200…18300 (18,) Data for hcmonrefinp
0x18300…18320 (43,) 69 6e 20 28 6e 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 ┆in (name.work); d1+f5 ┆
0x18320…18340 20 20 20 20 20 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 ┆ ; jl. j3. ┆
0x18340…18360 3b 2b 34 3a 20 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 ┆;+4: not found: result 3; (no┆
0x18360…18380 74 20 73 61 6d 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 ┆t same name at all) ┆
0x18380…183a0 20 20 20 20 20 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 ┆ ;+6: found: sn.┆
0x183a0…183c0 20 77 32 20 20 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 ┆ w2 (d4.) ; if chain = c┆
0x183c0…183e0 75 72 64 6f 63 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 ┆urdoc then jl. n1. ┆
0x183e0…18400 20 20 3b 20 20 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 ┆ ; skip; (i.e. name.chain┆
0x18400…18420 20 3d 20 6e 61 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 ┆ = name.work) jl. j┆
0x18420…18440 33 2e 20 20 20 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 ┆3. ; result 3; (not same ┆
0x18440…18460 6e 61 6d 65 29 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 ┆name) j3 = k-2 ; (┆
0x18460…18480 73 74 65 70 70 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 ┆stepping stone) ; search best┆
0x18480…184a0 20 61 72 65 61 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 ┆ area process ; ; call: m45, <no┆
0x184a0…184c0 74 20 66 6f 75 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 ┆t found addr> ; error return: go┆
0x184c0…184e0 74 6f 2d 61 63 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 ┆to-action 1, if area process not┆
0x184e0…18500 20 66 6f 75 6e 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 ┆ found m45: ;┆
0x18500…18520 20 73 65 61 72 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 ┆ search best area process: ┆
0x18520…18540 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┆
0x18540…18560 73 74 20 70 72 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 ┆st process b5 ┆
0x18560…18580 20 20 3b 20 20 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 ┆ ; between first area proc┆
0x18580…185a0 65 73 73 0a 20 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 ┆ess b6 ; ┆
0x185a0…185c0 20 20 61 6e 64 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 ┆ and top area process; ┆
0x185c0…185e0 20 20 20 6a 6c 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 ┆ jl. n5. ;+6: not fo┆
0x185e0…18600 75 6e 64 3a 20 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 ┆und: goto <not found> ; w2 = ar┆
0x18600…18620 65 61 2d 20 28 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 ┆ea- (or pseudo-) process rl┆
0x18620…18640 20 20 77 30 20 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 ┆ w0 x2+a10 ; w0 := kind.┆
0x18640…18660 70 72 6f 63 3b 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 ┆proc; sn w0 f38 ; ┆
0x18660…18680 20 20 69 66 20 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 ┆ if kind.proc = area process th┆
0x18680…186a0 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 20 20 20 ┆en jl. n1. ; ┆
0x186a0…186c0 20 73 6b 69 70 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 ┆ skip; jl. n5. ;┆
0x186c0…186e0 20 20 20 20 67 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 ┆ goto <not area>; ; setup ┆
0x186e0…18700 61 72 65 61 20 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 ┆area process ; ; if the area p┆
0x18700…18720 72 6f 63 65 73 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 ┆rocess already exists, the speci┆
0x18720…18740 66 69 65 64 20 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 ┆fied process ; is included a┆
0x18740…18760 73 20 75 73 65 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 ┆s user (in case it has resources┆
0x18760…18780 29 0a 3b 20 20 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 ┆) ; otherwise the area-claim o┆
0x18780…187a0 66 20 74 68 65 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 ┆f the process is tested, ; a┆
0x187a0…187c0 6e 64 20 61 6e 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 ┆nd an empty area process is init┆
0x187c0…187e0 69 61 6c 69 7a 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 ┆ialized according to entry.work ┆
0x187e0…18800 3b 0a 3b 20 63 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 ┆; ; call: (entry.work contains t┆
0x18800…18820 68 65 20 65 6e 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 ┆he entry) ; m46, <process ┆
0x18820…18840 63 6f 64 65 3e 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 ┆code> (code = 0 : procfunc, c┆
0x18840…18860 6f 64 65 20 3d 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 ┆ode = 2 : sender) ; ; error retu┆
0x18860…18880 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 63 ┆rn: result 1, if area claims exc┆
0x18880…188a0 65 65 64 65 64 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 ┆eeded ; return: cur proc name ta┆
0x188a0…188c0 62 6c 65 20 61 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 ┆ble address corresponds to the a┆
0x188c0…188e0 72 65 61 20 70 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 ┆rea process ; the specif┆
0x188e0…18900 69 65 64 20 70 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 ┆ied process is included as user ┆
0x18900…18920 6f 66 20 74 68 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 ┆of the area process b. g10, h10┆
0x18920…18940 20 77 2e 0a 0a 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 ┆ w. m46: ; se┆
0x18940…18960 74 75 70 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 33 20 20 20 ┆tup area process: jl. w3 ┆
0x18960…18980 20 20 6e 31 30 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 ┆ n10. ; w0 := process code┆
0x18980…189a0 20 3a 3d 20 70 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 ┆ := param; am (0) ┆
0x189a0…189c0 20 20 3b 0a 20 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 ┆ ; rl. w1 (h0.) ; ┆
0x189c0…189e0 69 6e 74 65 72 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 ┆internal := proctable (process c┆
0x189e0…18a00 6f 64 65 29 3b 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 ┆ode); rs. w1 h1. ; ┆
0x18a00…18a20 20 20 20 20 20 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 ┆ jl. w3 e47. ; sear┆
0x18a20…18a40 63 68 20 62 65 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 ┆ch best area process; b5 ┆
0x18a40…18a60 20 20 20 20 20 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 ┆ ; b6 ┆
0x18a60…18a80 20 20 20 20 20 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 ┆ ; jl. g1. ;┆
0x18a80…18aa0 2b 36 3a 20 20 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 ┆+6: not found: goto test area ┆
0x18aa0…18ac0 63 6c 61 69 6d 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 ┆claim; ; an area process was fo┆
0x18ac0…18ae0 75 6e 64 2c 20 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 ┆und, but was it the rigth one, i┆
0x18ae0…18b00 2e 65 20 68 6f 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 ┆.e how about the base ; w0w1 = b┆
0x18b00…18b20 61 73 65 2e 70 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 ┆ase.proc sn. w0 (d1.+f1)┆
0x18b20…18b40 3b 20 20 20 20 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 ┆; if base.proc <> base.work t┆
0x18b40…18b60 68 65 6e 0a 20 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 ┆hen se. w1 (d1.+f2); ┆
0x18b60…18b80 20 20 6a 6c 2e 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 ┆ jl. g1. ; goto ┆
0x18b80…18ba0 74 65 73 74 20 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 ┆test area claim; ; it was the c┆
0x18ba0…18bc0 6f 72 72 65 63 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 ┆orrect area proces jl. ┆
0x18bc0…18be0 20 20 20 67 35 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 ┆ g5. ; goto include; g1┆
0x18be0…18c00 3a 20 20 20 20 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 ┆: ; test area┆
0x18c00…18c20 (44,) 20 63 6c 61 69 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 ┆ claim: rl. w1 h1. ;┆
0x18c20…18c40 0a 20 20 20 20 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 ┆ bz w0 x1+a20 ; if ┆
0x18c40…18c60 61 72 65 61 20 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 ┆area claim.internal = 0 then ┆
0x18c60…18c80 20 20 73 6e 20 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 ┆ sn w0 0 ; jl. ┆
0x18c80…18ca0 20 20 20 20 20 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 ┆ j1. ; goto result ┆
0x18ca0…18cc0 31 3b 20 20 69 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 ┆1; i.e. claims exceeded ; the ┆
0x18cc0…18ce0 69 6e 74 65 72 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 ┆internal process has the claim o┆
0x18ce0…18d00 66 20 61 74 20 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 ┆f at least one area process, ; ┆
0x18d00…18d20 20 69 2e 65 2e 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 ┆ i.e. at least one empty area pr┆
0x18d20…18d40 6f 63 65 73 73 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 ┆ocess exist. ; find that one and┆
0x18d40…18d60 20 69 6e 69 74 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 ┆ initialize it. jl. w3 ┆
0x18d60…18d80 65 34 34 2e 20 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 ┆e44. ; find empty area proc┆
0x18d80…18da0 65 73 73 3b 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 0a 20 20 ┆ess; b5 ; ┆
0x18da0…18dc0 20 20 20 72 6c 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 ┆ rl. w3 (d11.) ; ld ┆
0x18dc0…18de0 77 31 20 20 2d 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 ┆w1 -100 ; ds w1 x3+┆
0x18de0…18e00 61 34 31 32 20 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 ┆a412 ; access counters:=0,0;┆
0x18e00…18e20 0a 20 20 20 20 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 ┆ jl. w3 g10. ; ini┆
0x18e20…18e40 74 20 61 72 65 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 ┆t area(enabled); ; an area proc┆
0x18e40…18e60 65 73 73 20 65 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 ┆ess exists now, corresponding to┆
0x18e60…18e80 20 65 6e 74 72 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 ┆ entry.work g5: ┆
0x18e80…18ea0 20 20 20 3b 20 69 6e 63 6c 75 64 65 3a 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 68 31 ┆ ; include: rl. w2 h1┆
0x18ea0…18ec0 2e 20 20 20 20 3b 20 20 20 20 77 32 20 3a 3d 20 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 20 20 20 72 ┆. ; w2 := internal; r┆
0x18ec0…18ee0 6c 2e 20 77 33 20 20 20 20 28 64 31 31 2e 29 20 20 3b 20 20 20 20 77 33 20 3a 3d 20 61 72 65 61 ┆l. w3 (d11.) ; w3 := area┆
0x18ee0…18f00 20 70 72 6f 63 65 73 73 3b 0a 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 33 2b 61 35 33 20 20 ┆ process; rl w1 x3+a53 ┆
0x18f00…18f20 20 20 3b 20 20 20 20 77 31 20 3a 3d 20 75 73 65 72 73 2e 61 72 65 61 20 70 72 6f 63 65 73 73 3b ┆ ; w1 := users.area process;┆
0x18f20…18f40 0a 20 20 20 20 20 73 7a 20 20 77 31 20 28 78 32 2b 61 31 34 29 20 20 20 3b 20 20 20 20 69 66 20 ┆ sz w1 (x2+a14) ; if ┆
0x18f40…18f60 69 6e 74 65 72 6e 61 6c 20 69 73 20 61 6c 72 65 61 64 79 20 75 73 65 72 20 74 68 65 6e 0a 20 20 ┆internal is already user then ┆
0x18f60…18f80 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 20 20 6e 65 78 74 ┆ jl. n0. ; next┆
0x18f80…18fa0 20 69 6e 73 74 72 75 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ instruction; ┆
0x18fa0…18fc0 20 20 20 20 20 3b 20 20 20 20 20 20 28 6f 6e 6c 79 20 77 68 65 6e 20 69 74 20 65 78 69 73 74 65 ┆ ; (only when it existe┆
0x18fc0…18fe0 64 20 61 74 20 73 74 61 72 74 29 0a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 2d 31 20 20 ┆d at start) al w0 -1 ┆
0x18fe0…19000 20 20 20 20 3b 0a 20 20 20 20 20 62 61 20 20 77 30 20 20 78 32 2b 61 32 30 20 20 20 20 3b 0a 20 ┆ ; ba w0 x2+a20 ; ┆
0x19000…19020 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 61 72 ┆ sn w0 -1 ; if ar┆
0x19020…19040 65 61 20 63 6c 61 69 6d 2e 73 65 6e 64 65 72 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c ┆ea claim.sender = 0 then jl┆
0x19040…19060 2e 20 20 20 20 20 20 20 20 6a 31 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 72 65 73 75 ┆. j1. ; goto resu┆
0x19060…19080 6c 74 20 31 3b 20 20 69 2e 65 2e 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 0a 6a 31 20 3d ┆lt 1; i.e. claims exceeded j1 =┆
0x19080…190a0 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 69 6e 67 20 73 ┆ k-2 ; (stepping s┆
0x190a0…190c0 74 6f 6e 65 29 0a 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 32 2b 61 32 30 20 20 20 20 3b 20 ┆tone) hs w0 x2+a20 ; ┆
0x190c0…190e0 20 20 20 64 65 63 72 65 61 73 65 20 28 61 72 65 61 20 63 6c 61 69 6d 2e 73 65 6e 64 65 72 29 3b ┆ decrease (area claim.sender);┆
0x190e0…19100 0a 20 20 20 20 20 6c 6f 20 20 77 31 20 20 78 32 2b 61 31 34 20 20 20 20 3b 20 20 20 20 69 6e 63 ┆ lo w1 x2+a14 ; inc┆
0x19100…19120 6c 75 64 65 20 69 6e 74 65 72 6e 61 6c 20 61 73 20 75 73 65 72 20 6f 66 20 61 72 65 61 20 70 72 ┆lude internal as user of area pr┆
0x19120…19140 6f 63 65 73 73 3b 0a 20 20 20 20 20 72 73 20 20 77 31 20 20 78 33 2b 61 35 33 20 20 20 20 3b 0a ┆ocess; rs w1 x3+a53 ; ┆
0x19140…19160 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┆
0x19160…19180 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 0a 0a 0a 0a 3b 20 73 75 62 70 72 6f 63 65 64 75 72 65 20 ┆t instruction ; subprocedure ┆
0x19180…191a0 69 6e 69 74 20 61 72 65 61 0a 3b 0a 3b 20 20 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 65 20 ┆init area ; ; initializes the ┆
0x191a0…191c0 61 72 65 61 20 70 72 6f 63 65 73 73 20 66 72 6f 6d 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 67 69 ┆area process from information gi┆
0x191c0…191e0 76 65 6e 20 69 6e 20 65 6e 74 72 79 2e 77 6f 72 6b 0a 3b 0a 3b 20 61 6e 20 65 6d 70 74 79 20 20 ┆ven in entry.work ; ; an empty ┆
0x191e0…19200 20 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 6d 61 79 20 20 62 65 20 69 6e 69 74 69 61 6c 69 7a ┆ area process may be initializ┆
0x19200…19220 65 64 20 65 6e 61 62 6c 65 64 0a 3b 20 61 6e 20 65 78 69 73 74 69 6e 67 20 20 2d 20 20 20 20 20 ┆ed enabled ; an existing - ┆
0x19220…19240 20 2d 20 20 20 20 6d 75 73 74 20 20 2d 20 20 20 20 20 20 2d 20 20 20 20 20 20 64 69 73 61 62 6c ┆ - must - - disabl┆
0x19240…19260 65 64 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 77 33 20 3d 20 6c 69 6e 6b 0a 0a 67 31 30 3a 20 20 20 20 ┆ed ; ; call: w3 = link g10: ┆
0x19260…19280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 20 ┆ ; procedure init ┆
0x19280…192a0 61 72 65 61 3a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 68 32 2e 20 20 20 20 3b 20 20 ┆area: rs. w3 h2. ; ┆
0x192a0…192c0 20 20 73 61 76 65 20 28 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 ┆ save (return); al. w2 ┆
0x192c0…192e0 20 64 31 2e 20 20 20 20 3b 20 20 20 20 6d 6f 76 65 20 66 72 6f 6d 3a 20 65 6e 74 72 79 2e 77 6f ┆ d1. ; move from: entry.wo┆
0x192e0…19300 72 6b 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 28 64 31 31 2e 29 20 20 3b 20 20 20 20 20 ┆rk rl. w3 (d11.) ; ┆
0x19300…19320 20 20 20 20 74 6f 3a 20 20 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 20 20 74 68 65 20 66 6f 6c ┆ to: area process the fol┆
0x19320…19340 6c 6f 77 69 6e 67 3a 0a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 66 33 38 20 20 20 20 ┆lowing: al w0 f38 ┆
0x19340…19360 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 61 31 30 20 20 20 20 3b 20 20 20 20 20 20 ┆; rs w0 x3+a10 ; ┆
0x19360…19380 6b 69 6e 64 20 28 20 3d 20 61 72 65 61 20 70 72 6f 63 65 73 73 29 0a 0a 20 20 20 20 20 64 6c 20 ┆kind ( = area process) dl ┆
0x19380…193a0 20 77 31 20 20 78 32 2b 66 31 31 2b 32 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 ┆ w1 x2+f11+2 ; ds w1 x3┆
0x193a0…193c0 2b 61 36 32 2b 32 20 20 3b 20 20 20 20 20 20 64 6f 63 6e 61 6d 65 0a 20 20 20 20 20 64 6c 20 20 ┆+a62+2 ; docname dl ┆
0x193c0…193e0 77 31 20 20 78 32 2b 66 31 31 2b 36 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b ┆w1 x2+f11+6 ; ds w1 x3+┆
0x193e0…19400 61 36 32 2b 36 20 20 3b 0a 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 32 2b 66 34 20 20 20 20 ┆a62+6 ; bz w0 x2+f4 ┆
0x19400…19420 20 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 61 36 30 20 20 20 20 3b 20 20 20 20 20 ┆ ; rs w0 x3+a60 ; ┆
0x19420…19440 20 66 69 72 73 74 20 73 6c 69 63 65 0a 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 66 37 ┆ first slice rl w0 x2+f7┆
0x19440…19460 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 61 36 31 20 20 20 20 3b 20 ┆ ; rs w0 x3+a61 ; ┆
0x19460…19480 20 20 20 20 20 73 69 7a 65 0a 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 66 32 20 20 20 ┆ size dl w1 x2+f2 ┆
0x19480…194a0 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 34 39 20 20 20 20 3b 20 20 20 20 ┆ ; ds w1 x3+a49 ; ┆
0x194a0…194c0 20 20 62 61 73 65 0a 0a 3b 20 6e 6f 74 69 63 65 3a 20 6e 61 6d 65 28 30 29 20 69 73 20 6d 6f 76 ┆ base ; notice: name(0) is mov┆
0x194c0…194e0 65 64 20 6c 61 73 74 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 66 35 2b 36 20 20 20 3b ┆ed last dl w1 x2+f5+6 ;┆
0x194e0…19500 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 31 31 2b 36 20 20 3b 20 20 20 20 20 20 6e ┆ ds w1 x3+a11+6 ; n┆
0x19500…19520 (45,) 61 6d 65 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 66 35 2b 32 20 20 20 3b 0a 20 20 20 ┆ame dl w1 x2+f5+2 ; ┆
0x19520…19540 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 31 31 2b 32 20 20 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 ┆ ds w1 x3+a11+2 ; jl. ┆
0x19540…19560 20 20 20 20 20 20 28 68 32 2e 29 20 20 20 3b 20 20 20 20 72 65 74 75 72 6e 3b 0a 0a 68 30 3a 20 ┆ (h2.) ; return; h0: ┆
0x19560…19580 20 62 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 72 6f 63 65 73 73 20 74 61 62 ┆ b1 ; process tab┆
0x19580…195a0 6c 65 3a 20 70 61 72 61 6d 20 3d 20 30 20 3a 20 70 72 6f 63 66 75 6e 63 0a 64 32 30 3a 20 64 32 ┆le: param = 0 : procfunc d20: d2┆
0x195a0…195c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x195c0…195e0 20 70 61 72 61 6d 20 3d 20 32 20 3a 20 73 65 6e 64 65 72 0a 0a 68 31 3a 20 20 30 20 20 20 20 20 ┆ param = 2 : sender h1: 0 ┆
0x195e0…19600 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 72 6e 61 6c 0a 68 32 3a 20 20 30 20 20 20 ┆ ; internal h2: 0 ┆
0x19600…19620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 69 6e 69 74 ┆ ; return from init┆
0x19620…19640 20 61 72 65 61 0a 0a 0a 0a 3b 20 69 6e 63 6c 75 64 65 20 69 6e 20 61 72 65 61 20 70 72 6f 63 65 ┆ area ; include in area proce┆
0x19640…19660 73 73 0a 3b 0a 3b 20 20 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 2c 20 73 ┆ss ; ; the internal process, s┆
0x19660…19680 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 69 6e 63 ┆pecified in the parameter is inc┆
0x19680…196a0 6c 75 64 65 64 0a 3b 20 20 20 20 20 61 73 20 75 73 65 72 20 6f 66 20 74 68 65 20 61 72 65 61 20 ┆luded ; as user of the area ┆
0x196a0…196c0 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 6d 34 37 2c 20 3c 70 72 6f 63 65 73 73 20 ┆process ; ; call: m47, <process ┆
0x196c0…196e0 63 6f 64 65 3e 0a 3b 20 65 72 72 6f 72 20 72 65 74 75 72 6e 3a 20 72 65 73 75 6c 74 20 31 2c 20 ┆code> ; error return: result 1, ┆
0x196e0…19700 69 66 20 61 72 65 61 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 0a 0a 6d 34 37 3a 20 20 20 ┆if area claims exceeded m47: ┆
0x19700…19720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 63 6c 75 64 65 20 69 6e 20 61 72 65 ┆ ; include in are┆
0x19720…19740 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 2e 20 ┆a process: jl. w3 n10. ┆
0x19740…19760 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 61 72 ┆ ; w0 := process code := par┆
0x19760…19780 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 20 20 ┆am; am (0) ; ┆
0x19780…197a0 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 6e 61 ┆ rl. w1 (h0.) ; interna┆
0x197a0…197c0 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 0a 20 ┆l := proctable (process code); ┆
0x197c0…197e0 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 68 31 2e 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e ┆ rs. w1 h1. ; jl.┆
0x197e0…19800 20 20 20 20 20 20 20 20 67 35 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 63 6c 75 64 65 ┆ g5. ; goto include┆
0x19800…19820 3b 0a 0a 0a 0a 3b 20 69 66 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 74 68 65 6e 20 72 65 69 6e ┆; ; if area process then rein┆
0x19820…19840 69 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 20 20 69 74 20 69 73 20 74 65 73 74 ┆it area process ; ; it is test┆
0x19840…19860 65 64 2c 20 74 68 61 74 20 61 6e 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 77 61 73 20 66 6f 75 ┆ed, that an area process was fou┆
0x19860…19880 6e 64 20 65 61 72 6c 69 65 72 2e 0a 3b 20 20 20 69 6e 20 74 68 69 73 20 63 61 73 65 20 69 74 20 ┆nd earlier. ; in this case it ┆
0x19880…198a0 77 69 6c 6c 20 62 65 20 72 65 2d 69 6e 69 74 69 61 6c 69 7a 65 64 20 66 72 6f 6d 20 74 68 65 20 ┆will be re-initialized from the ┆
0x198a0…198c0 63 75 72 72 65 6e 74 20 65 6e 74 72 79 2e 77 6f 72 6b 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 6d 34 38 ┆current entry.work ; ; call: m48┆
0x198c0…198e0 0a 0a 6d 34 38 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 69 6e 69 ┆ m48: ; reini┆
0x198e0…19900 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 ┆t area process: rl. w2 ┆
0x19900…19920 64 31 31 2e 20 20 20 3b 20 20 20 20 69 66 20 63 75 72 20 70 72 6f 63 20 6e 61 6d 65 20 74 61 62 ┆d11. ; if cur proc name tab┆
0x19920…19940 6c 65 20 61 64 64 72 65 73 73 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 20 20 28 62 35 29 20 20 ┆le address sl w2 (b5) ┆
0x19940…19960 20 20 3b 20 20 20 20 20 20 64 6f 65 73 20 6e 6f 74 20 6f 75 74 70 6f 69 6e 74 20 61 6e 20 61 72 ┆ ; does not outpoint an ar┆
0x19960…19980 65 61 20 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 ┆ea process then sl w2 (┆
0x19980…199a0 62 36 29 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 ┆b6) ; jl. n0. ┆
0x199a0…199c0 3b 20 20 20 20 20 20 6e 65 78 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 3b 0a 0a 20 20 20 20 20 6a ┆; next instruction; j┆
0x199c0…199e0 64 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 61 20 ┆d. w3 g10. ; init area ┆
0x199e0…19a00 70 72 6f 63 65 73 73 20 64 69 73 61 62 6c 65 64 3b 0a 0a 20 20 20 20 20 6a 65 2e 20 20 20 20 20 ┆process disabled; je. ┆
0x19a00…19a20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 20 20 65 6e 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ n0. ; enable ┆
0x19a20…19a40 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 6e 65 78 74 20 69 6e 73 74 72 75 63 74 69 ┆ ; next instructi┆
0x19a40…19a60 6f 6e 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 ┆on e. ; ┆
0x19a60…19a80 3b 20 6d 61 6b 65 20 73 65 6e 64 65 72 20 74 6f 20 72 65 73 65 72 76 65 72 20 6f 66 20 61 72 65 ┆; make sender to reserver of are┆
0x19a80…19aa0 61 20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 6d 34 39 0a 0a 6d 34 39 3a 20 20 20 ┆a process ; ; call: m49 m49: ┆
0x19aa0…19ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 61 6b 65 20 73 65 6e 64 65 72 20 72 65 ┆ ; make sender re┆
0x19ac0…19ae0 73 65 72 76 65 72 3a 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 64 32 2e 20 20 20 20 3b ┆server: rl. w1 d2. ;┆
0x19ae0…19b00 20 20 20 20 77 31 20 3a 3d 20 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 ┆ w1 := sender; rl. w2 ┆
0x19b00…19b20 20 28 64 31 31 2e 29 20 20 3b 20 20 20 20 77 32 20 3a 3d 20 61 72 65 61 20 70 72 6f 63 65 73 73 ┆ (d11.) ; w2 := area process┆
0x19b20…19b40 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 61 31 34 20 20 20 20 3b 20 20 20 20 77 30 ┆; rl w0 x1+a14 ; w0┆
0x19b40…19b60 20 3a 3d 20 69 64 62 69 74 2e 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 ┆ := idbit.sender; rs w0 x┆
0x19b60…19b80 32 2b 61 35 32 20 20 20 20 3b 20 20 20 20 72 65 73 65 72 76 65 72 2e 61 72 65 61 70 72 6f 63 20 ┆2+a52 ; reserver.areaproc ┆
0x19b80…19ba0 3a 3d 20 73 65 6e 64 65 72 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e 30 2e 20 ┆:= sender; jl. n0. ┆
0x19ba0…19bc0 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 6e 30 20 3d 20 6b 2d ┆ ; next instruction n0 = k-┆
0x19bc0…19be0 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 28 73 74 65 70 70 69 6e 67 20 73 74 6f 6e ┆2 ; (stepping ston┆
0x19be0…19c00 65 29 0a 0a 0a 0a 3b 20 69 66 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 74 68 65 6e 20 64 65 6c ┆e) ; if area process then del┆
0x19c00…19c20 65 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 20 20 74 68 65 20 66 69 72 73 74 ┆ete area process ; ; the first┆
0x19c20…19c40 20 77 6f 72 64 20 6f 66 20 6e 61 6d 65 2e 70 72 6f 63 20 69 73 20 63 6c 65 61 72 65 64 2c 20 69 ┆ word of name.proc is cleared, i┆
0x19c40…19c60 6e 64 69 63 61 74 69 6e 67 20 61 6e 20 65 6d 70 74 79 20 61 72 65 61 70 72 6f 63 65 73 73 2e 0a ┆ndicating an empty areaprocess. ┆
0x19c60…19c80 3b 20 20 20 72 65 73 65 72 76 65 72 2e 70 72 6f 63 20 61 6e 64 20 75 73 65 72 73 2e 70 72 6f 63 ┆; reserver.proc and users.proc┆
0x19c80…19ca0 20 61 72 65 20 63 6c 65 61 72 65 64 2e 0a 3b 20 20 20 61 6c 6c 20 69 6e 74 65 72 6e 61 6c 20 70 ┆ are cleared. ; all internal p┆
0x19ca0…19cc0 72 6f 63 65 73 73 65 73 20 77 68 6f 20 77 65 72 65 20 75 73 65 72 73 20 6f 66 20 74 68 65 20 61 ┆rocesses who were users of the a┆
0x19cc0…19ce0 72 65 61 20 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 68 61 76 65 0a 3b 20 20 20 20 20 74 68 65 69 ┆rea process will have ; thei┆
0x19ce0…19d00 72 20 61 72 65 61 2d 63 6c 61 69 6d 20 69 6e 63 72 65 61 73 65 64 2e 0a 3b 0a 3b 20 63 61 6c 6c ┆r area-claim increased. ; ; call┆
0x19d00…19d20 3a 20 6d 35 30 0a 0a 62 2e 20 67 31 30 20 77 2e 0a 0a 6d 35 30 3a 20 20 20 20 20 20 20 20 20 20 ┆: m50 b. g10 w. m50: ┆
0x19d20…19d40 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 72 65 61 70 72 6f 63 65 73 73 20 74 68 65 6e 20 64 ┆ ; if areaprocess then d┆
0x19d40…19d60 65 6c 65 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 ┆elete area process: rl. w2 ┆
0x19d60…19d80 20 20 20 20 64 31 31 2e 20 20 20 3b 20 20 20 20 77 32 20 3a 3d 20 6e 61 6d 65 20 74 61 62 6c 65 ┆ d11. ; w2 := name table┆
0x19d80…19da0 20 61 64 64 72 65 73 73 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 61 72 65 61 20 70 72 6f 63 65 73 ┆ address of possible area proces┆
0x19da0…19dc0 73 3b 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 20 20 28 62 35 29 20 20 20 20 3b 20 20 20 20 69 ┆s; sl w2 (b5) ; i┆
0x19dc0…19de0 66 20 6e 6f 74 20 61 6e 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 ┆f not an area process then ┆
0x19de0…19e00 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 20 20 20 20 ┆sl w2 (b6) ; jl. ┆
0x19e00…19e20 (46,) 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 75 63 74 69 ┆ n0. ; next instructi┆
0x19e20…19e40 6f 6e 0a 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 20 20 20 ┆on rl w3 x2 ; ┆
0x19e40…19e60 70 72 6f 63 20 3a 3d 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a 0a 3b 20 6e 6f 74 69 63 65 3a ┆proc := area process; ; notice:┆
0x19e60…19e80 20 61 6c 6c 20 74 68 65 20 72 65 6d 6f 76 65 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 65 6e 61 ┆ all the remove is performed ena┆
0x19e80…19ea0 62 6c 65 64 3a 0a 20 20 20 20 20 6c 64 20 20 77 32 20 20 20 20 2d 31 30 30 20 20 20 20 3b 0a 20 ┆bled: ld w2 -100 ; ┆
0x19ea0…19ec0 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 2b 61 35 33 20 20 20 20 3b 20 20 20 20 63 75 72 72 65 ┆ rl w0 x3+a53 ; curre┆
0x19ec0…19ee0 6e 74 20 75 73 65 72 73 20 3a 3d 20 75 73 65 72 73 2e 70 72 6f 63 3b 0a 20 20 20 20 20 64 73 20 ┆nt users := users.proc; ds ┆
0x19ee0…19f00 20 77 32 20 20 78 33 2b 61 35 33 20 20 20 20 3b 20 20 20 20 63 6c 65 61 72 3a 20 20 72 65 73 65 ┆ w2 x3+a53 ; clear: rese┆
0x19f00…19f20 72 76 65 72 2e 70 72 6f 63 2c 20 75 73 65 72 73 2e 70 72 6f 63 0a 20 20 20 20 20 72 73 20 20 77 ┆rver.proc, users.proc rs w┆
0x19f20…19f40 32 20 20 78 33 2b 61 31 31 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 28 30 ┆2 x3+a11 ; name(0┆
0x19f40…19f60 29 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 33 2b 61 35 30 20 20 20 20 3b 20 20 20 20 20 20 ┆) rs w2 x3+a50 ; ┆
0x19f60…19f80 20 20 20 20 20 20 64 6f 63 61 64 64 72 0a 0a 3b 20 73 63 61 6e 20 61 6c 6c 20 69 6e 74 65 72 6e ┆ docaddr ; scan all intern┆
0x19f80…19fa0 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 63 72 65 61 73 65 20 ┆al processes and maybe increase ┆
0x19fa0…19fc0 74 68 65 69 72 20 61 72 65 61 2d 63 6c 61 69 6d 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 20 20 ┆their area-claim rl w2 ┆
0x19fc0…19fe0 20 62 36 20 20 20 20 20 3b 20 20 20 20 77 32 20 3a 3d 20 66 69 72 73 74 20 69 6e 74 65 72 6e 61 ┆ b6 ; w2 := first interna┆
0x19fe0…1a000 6c 20 69 6e 20 6e 61 6d 65 20 74 61 62 6c 65 3b 0a 67 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆l in name table; g1: ┆
0x1a000…1a020 20 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20 69 6e 74 65 72 6e 61 6c 3a 0a 20 20 20 20 20 72 6c ┆ ; next internal: rl┆
0x1a020…1a040 20 20 77 33 20 20 78 32 2b 30 20 20 20 20 20 20 3b 20 20 20 20 70 72 6f 63 20 3a 3d 20 6e 61 6d ┆ w3 x2+0 ; proc := nam┆
0x1a040…1a060 65 74 61 62 6c 65 28 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 20 20 31 ┆etable(entry); al w1 1┆
0x1a060…1a080 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 61 20 20 77 31 20 20 78 33 2b 61 32 30 20 20 20 20 3b ┆ ; ba w1 x3+a20 ;┆
0x1a080…1a0a0 0a 20 20 20 20 20 73 7a 20 20 77 30 20 28 78 33 2b 61 31 34 29 20 20 20 3b 20 20 20 20 69 66 20 ┆ sz w0 (x3+a14) ; if ┆
0x1a0a0…1a0c0 70 72 6f 63 20 77 61 73 20 75 73 65 72 20 6f 66 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 74 68 ┆proc was user of area process th┆
0x1a0c0…1a0e0 65 6e 0a 20 20 20 20 20 68 73 20 20 77 31 20 20 78 33 2b 61 32 30 20 20 20 20 3b 20 20 20 20 20 ┆en hs w1 x3+a20 ; ┆
0x1a0e0…1a100 20 69 6e 63 72 65 61 73 65 20 28 61 72 65 61 20 63 6c 61 69 6d 2e 70 72 6f 63 29 3b 0a 20 20 20 ┆ increase (area claim.proc); ┆
0x1a100…1a120 20 20 61 6c 20 20 77 32 20 20 78 32 2b 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 ┆ al w2 x2+2 ; se w┆
0x1a120…1a140 32 20 20 20 20 28 62 37 29 20 20 20 20 3b 20 20 20 20 69 66 20 6e 6f 74 20 61 6c 6c 20 69 6e 74 ┆2 (b7) ; if not all int┆
0x1a140…1a160 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 73 20 74 65 73 74 65 64 20 74 68 65 6e 0a 20 20 20 20 ┆ernal processes tested then ┆
0x1a160…1a180 20 6a 6c 2e 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 6e ┆ jl. g1. ; goto n┆
0x1a180…1a1a0 65 78 74 20 69 6e 74 65 72 6e 61 6c 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6e ┆ext internal; jl. n┆
0x1a1a0…1a1c0 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 65 2e 20 ┆0. ; next instruction e. ┆
0x1a1c0…1a1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 3b 20 66 69 6e 64 20 70 72 6f ┆ ; ; find pro┆
0x1a1e0…1a200 63 65 73 73 20 61 6e 64 20 6d 6f 76 65 20 62 73 2d 63 6c 61 69 6d 73 20 66 72 6f 6d 20 70 72 6f ┆cess and move bs-claims from pro┆
0x1a200…1a220 63 65 73 73 20 74 6f 20 73 65 6e 64 65 72 20 61 72 65 61 0a 3b 20 63 61 6c 6c 20 3a 20 6d 35 31 ┆cess to sender area ; call : m51┆
0x1a220…1a240 0a 62 2e 20 20 20 67 31 30 20 77 2e 0a 6d 35 31 3a 20 6a 6c 2e 20 77 33 20 20 20 20 20 65 34 37 ┆ b. g10 w. m51: jl. w3 e47┆
0x1a240…1a260 2e 20 20 20 3b 20 66 69 6e 64 20 62 65 73 74 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 ┆. ; find best process ┆
0x1a260…1a280 20 20 20 20 62 36 20 20 20 20 20 20 20 20 20 3b 20 66 69 72 73 74 20 69 6e 74 65 72 6e 61 6c 20 ┆ b6 ; first internal ┆
0x1a280…1a2a0 69 6e 20 6e 61 6d 65 20 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 37 20 20 20 20 ┆in name table b7 ┆
0x1a2a0…1a2c0 20 20 20 20 20 3b 20 6c 61 73 74 20 69 6e 20 6e 61 6d 65 20 74 61 62 6c 65 0a 20 20 20 20 20 6a ┆ ; last in name table j┆
0x1a2c0…1a2e0 6c 2e 20 20 20 20 20 20 20 20 6a 33 2e 20 20 20 20 3b 20 70 72 6f 63 65 73 73 20 6e 6f 6e 20 65 ┆l. j3. ; process non e┆
0x1a2e0…1a300 78 69 73 74 3a 20 72 65 73 75 6c 74 20 33 0a 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 20 28 ┆xist: result 3 am. (┆
0x1a300…1a320 64 34 2e 29 20 20 3b 0a 20 20 20 20 20 77 61 20 20 77 32 20 20 20 20 20 66 36 30 20 20 20 20 3b ┆d4.) ; wa w2 f60 ;┆
0x1a320…1a340 20 77 32 3a 3d 20 62 73 2d 63 6c 61 69 6d 20 61 64 64 72 65 73 73 20 69 6e 20 63 75 72 72 20 70 ┆ w2:= bs-claim address in curr p┆
0x1a340…1a360 72 6f 63 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆roc al w1 x2 ; ┆
0x1a360…1a380 20 20 61 6c 20 20 77 30 20 20 20 20 20 61 31 31 30 2a 34 2b 34 3b 20 62 73 2d 63 6c 61 69 6d 73 ┆ al w0 a110*4+4; bs-claims┆
0x1a380…1a3a0 20 6c 65 6e 67 74 68 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 65 38 33 2e 20 20 20 3b ┆ length jl. w3 e83. ;┆
0x1a3a0…1a3c0 20 6d 6f 76 65 0a 20 20 20 20 20 6a 6c 2e 20 77 32 20 20 20 20 20 65 36 30 2e 20 20 20 3b 20 77 ┆ move jl. w2 e60. ; w┆
0x1a3c0…1a3e0 32 3a 3d 61 64 64 72 28 77 31 2e 73 65 6e 64 65 72 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 ┆2:=addr(w1.sender); al w1 ┆
0x1a3e0…1a400 20 78 32 2b 61 31 31 30 2a 34 20 3b 20 77 31 3a 3d 6c 61 73 74 20 6b 65 79 3b 0a 67 30 3a 20 20 ┆ x2+a110*4 ; w1:=last key; g0: ┆