|
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: 193536 (0x2f400)
Types: Rc489kSubCat
Names: »cgndit«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »cgndit«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x0014ca, f01=0x000276, f02=0x00027f, filename=»ntedit2 «, entry_tail=0-4-0-62-1981-07-24T15:29-disc2-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x03f5ab, f01=0x000000, f02=0x0007cf, filename=»nditdiary «, entry_tail=0-4-0-1-1981-07-24T15:46-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x04031b, f01=0x000276, f02=0x00027f, filename=»tndithelp1 «, entry_tail=0-4-0-12-1981-07-14T16:09-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x04ceab, f01=0x000000, f02=0x0007cf, filename=»ntedit1 «, entry_tail=0-4-0-42-1980-12-05T12:33-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x076a83, f01=0x000000, f02=0x0007cf, filename=»ntedit3 «, entry_tail=0-4-0-58-1980-12-05T14:51-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x0b00a3, f01=0x000000, f02=0x0007cf, filename=»ntedit4 «, entry_tail=0-4-0-63-1981-03-05T16:31-disc1-0x0-0x0-0x0-0x0}
0x00132…00140 68 63 7c 6c 69 62 00 00 00 00 00 00 80 00 ┆hcølib ┆
0x00140…00160 be 08 e3 8e 38 00 00 12 c1 f0 00 10 00 06 de cb 80 00 01 7f ff fd 6c 69 6e 6b 63 65 6e 74 72 61 ┆ 8 linkcentra┆
0x00160…00180 6c 00 00 00 08 64 69 73 63 31 00 00 00 00 00 00 00 63 99 6c 00 00 00 00 00 00 00 00 00 00 00 00 ┆l disc1 c l ┆
0x00180…001a0 15 8e cb 00 00 78 00 00 81 72 79 64 69 76 00 00 00 00 00 00 00 00 00 7e 64 69 73 63 33 00 00 00 ┆ x rydiv üdisc3 ┆
0x001a0…001c0 00 00 00 00 78 22 b7 00 00 78 00 00 81 00 a0 00 00 fc 00 2a be ca 00 07 e4 00 07 ed 70 6c 6f 74 ┆ x" x * plot┆
0x001c0…001e0 66 69 67 39 00 00 00 00 00 00 7d 64 69 73 63 33 00 00 00 00 00 00 00 78 a3 55 80 b0 7c 00 00 00 ┆fig9 ådisc3 x U ø ┆
0x001e0…00200 00 2a 60 00 0b ee 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 ┆ *` ┆
0x00200…00220 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 ┆ ┆
[…0x6…]
0x002e0…002fd 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 ┆ ┆
0x002fd…00300 0x000006
0x00300…0bd00 Data for ntedit2
0x0bd00…0c000 (21,) Data for nditdiary
0x0c000…0e400 Data for tndithelp1
0x0e400…16200 Data for ntedit1
0x16200…21000 Data for ntedit3
0x21000…2cd00 Data for ntedit4
0x2cd00…2cd20 63 6c 61 69 6d 2e 69 6e 74 70 72 6f 63 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 32 20 20 78 31 2b ┆claim.intproc:= hs w2 x1+┆
0x2cd20…2cd40 61 32 30 20 20 20 20 3b 20 20 61 72 65 61 63 6c 61 69 6d 2e 69 6e 74 70 72 6f 63 2b 31 3b 0a 20 ┆a20 ; areaclaim.intproc+1; ┆
0x2cd40…2cd60 20 20 20 20 73 7a 20 20 77 30 20 20 20 20 20 32 2e 31 30 30 20 20 3b 20 20 69 66 20 6f 74 68 65 ┆ sz w0 2.100 ; if othe┆
0x2cd60…2cd80 72 20 75 73 65 72 73 20 74 68 65 6e 0a 20 20 20 20 20 6a 65 2e 20 20 20 20 20 20 20 28 68 31 2e ┆r users then je. (h1.┆
0x2cd80…2cda0 29 20 20 20 3b 20 20 65 6e 61 62 6c 65 20 72 65 74 75 72 6e 0a 20 20 20 20 20 61 6c 20 20 77 30 ┆) ; enable return al w0┆
0x2cda0…2cdc0 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 2f 2c 6c 2e 2f 6a 65 78 32 2b 30 2f 2c 72 2f 6a 65 78 ┆ 0 ; /,l./jex2+0/,r/jex┆
0x2cdc0…2cde0 32 2b 30 20 20 2f 6a 65 2e 20 20 20 20 20 20 20 28 68 31 2e 29 2f 2c 0a 6c 2e 2f 67 31 3a 2f 2c ┆2+0 /je. (h1.)/, l./g1:/,┆
0x2cde0…2ce00 72 2f 3a 2f 3a 0a 2f 2c 64 2c 6c 2e 2f 65 35 30 3a 2f 2c 6c 2e 2f 65 33 32 2e 2f 2c 6c 31 2c 69 ┆r/:/: /,d,l./e50:/,l./e32./,l1,i┆
0x2ce00…2ce20 2f 0a 0a 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 69 6e 63 6c 75 64 65 20 75 73 65 72 28 69 6e ┆/ ; procedure include user(in┆
0x2ce20…2ce40 74 70 72 6f 63 2c 65 78 74 70 72 6f 63 29 3b 0a 3b 20 20 72 65 67 20 20 20 20 63 61 6c 6c 20 20 ┆tproc,extproc); ; reg call ┆
0x2ce40…2ce60 20 20 20 20 20 20 20 72 65 74 75 72 6e 0a 3b 20 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ return ; w0 ┆
0x2ce60…2ce80 20 20 20 20 20 75 6e 64 65 66 0a 3b 20 20 77 31 20 20 20 20 69 6e 74 70 72 6f 63 20 20 20 20 20 ┆ undef ; w1 intproc ┆
0x2ce80…2cea0 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 20 77 32 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 ┆ unchanged ; w2 link ┆
0x2cea0…2cec0 20 20 20 20 20 20 20 2d 0a 3b 20 20 77 33 20 20 20 20 65 78 74 70 72 6f 63 20 20 20 20 20 20 20 ┆ - ; w3 extproc ┆
0x2cec0…2cee0 20 20 20 20 2d 0a 0a 3b 20 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 6e 74 70 72 6f 63 20 69 73 ┆ - ; the process intproc is┆
0x2cee0…2cf00 20 69 6e 63 6c 75 64 65 64 20 61 73 20 75 73 65 72 20 6f 66 20 74 68 65 20 65 78 74 65 72 6e 61 ┆ included as user of the externa┆
0x2cf00…2cf20 6c 20 70 72 6f 63 65 73 73 20 65 78 74 70 72 6f 63 0a 0a 65 35 31 3a 20 20 20 20 20 20 20 20 20 ┆l process extproc e51: ┆
0x2cf20…2cf40 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 61 20 20 77 33 20 20 78 31 2b 61 31 34 ┆ ; ba w3 x1+a14┆
0x2cf40…2cf60 20 20 20 20 20 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 33 2b 61 34 30 32 20 20 20 20 3b ┆ ; bz w0 x3+a402 ;┆
0x2cf60…2cf80 20 20 77 30 3a 3d 75 73 65 72 62 69 74 73 2e 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 6c 6f 20 ┆ w0:=userbits.intproc; lo ┆
0x2cf80…2cfa0 20 77 30 20 20 78 31 2b 61 31 34 20 20 20 20 20 3b 20 20 69 6e 63 6c 75 64 65 20 69 6e 74 70 72 ┆ w0 x1+a14 ; include intpr┆
0x2cfa0…2cfc0 6f 63 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 61 34 30 32 20 20 20 20 3b 0a 20 20 ┆oc; hs w0 x3+a402 ; ┆
0x2cfc0…2cfe0 20 20 20 62 73 20 20 77 33 20 20 78 31 2b 61 31 34 20 20 20 20 20 3b 20 20 72 65 73 65 74 20 77 ┆ bs w3 x1+a14 ; reset w┆
0x2cfe0…2d000 33 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 32 20 20 20 20 20 20 20 20 20 3b 20 20 72 65 74 ┆3 jl x2 ; ret┆
0x2d000…2d020 (80,) 75 72 6e 0a 0a 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 65 78 63 6c 75 64 65 20 75 73 65 72 28 ┆urn ; procedure exclude user(┆
0x2d020…2d040 69 6e 74 70 72 6f 63 2c 65 78 74 70 72 6f 63 29 3b 0a 3b 20 72 65 67 20 20 20 20 63 61 6c 6c 20 ┆intproc,extproc); ; reg call ┆
0x2d040…2d060 20 20 20 20 20 20 20 72 65 74 75 72 6e 0a 3b 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ return ; w0 ┆
0x2d060…2d080 20 20 20 75 6e 64 65 66 0a 3b 20 77 31 20 20 20 20 20 69 6e 74 70 72 6f 63 20 20 20 20 20 75 6e ┆ undef ; w1 intproc un┆
0x2d080…2d0a0 63 68 61 6e 67 65 64 0a 3b 20 77 32 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 20 ┆changed ; w2 link ┆
0x2d0a0…2d0c0 20 2d 0a 3b 20 77 33 20 20 20 20 20 65 78 74 70 72 6f 63 20 20 20 20 20 20 20 20 20 2d 0a 0a 3b ┆ - ; w3 extproc - ;┆
0x2d0c0…2d0e0 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 65 78 63 6c 75 64 65 20 74 68 65 20 ┆ the procedure will exclude the ┆
0x2d0e0…2d100 70 72 6f 63 65 73 73 20 61 64 64 72 65 73 65 64 20 62 79 20 69 6e 74 70 72 6f 63 20 61 73 20 75 ┆process addresed by intproc as u┆
0x2d100…2d120 73 65 72 0a 3b 20 6f 66 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 61 64 ┆ser ; of the external process ad┆
0x2d120…2d140 64 72 65 73 73 65 64 20 62 79 20 65 78 74 70 72 6f 63 0a 0a 65 35 32 3a 20 62 61 20 20 77 33 20 ┆dressed by extproc e52: ba w3 ┆
0x2d140…2d160 20 78 31 2b 61 31 34 20 20 20 20 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 33 2b 61 34 30 ┆ x1+a14 ; bz w0 x3+a40┆
0x2d160…2d180 32 20 20 20 3b 20 20 77 30 3a 3d 75 73 65 72 73 2e 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 73 ┆2 ; w0:=users.intproc; s┆
0x2d180…2d1a0 7a 20 20 77 30 20 20 28 78 31 2b 61 31 34 29 20 20 3b 20 20 69 66 20 69 6e 74 70 72 6f 63 20 69 ┆z w0 (x1+a14) ; if intproc i┆
0x2d1a0…2d1c0 73 20 75 73 65 72 20 74 68 65 6e 0a 20 20 20 20 20 6c 78 20 20 77 30 20 20 78 31 2b 61 31 34 20 ┆s user then lx w0 x1+a14 ┆
0x2d1c0…2d1e0 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 0a 20 ┆ ; exclude intproc as user; ┆
0x2d1e0…2d200 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 61 34 30 32 20 20 20 3b 0a 20 20 20 20 20 62 73 20 ┆ hs w0 x3+a402 ; bs ┆
0x2d200…2d220 20 77 33 20 20 78 31 2b 61 31 34 20 20 20 20 3b 20 20 72 65 73 65 74 20 77 33 0a 20 20 20 20 20 ┆ w3 x1+a14 ; reset w3 ┆
0x2d220…2d240 6a 6c 20 20 20 20 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 0a 0a 0a 3b 20 70 72 6f 63 65 64 75 ┆jl x2 ; ; procedu┆
0x2d240…2d260 72 65 20 74 65 73 74 20 75 73 65 72 73 20 61 6e 64 20 72 65 73 65 72 76 65 72 28 69 6e 74 70 72 ┆re test users and reserver(intpr┆
0x2d260…2d280 6f 63 2c 65 78 74 70 72 6f 63 29 3b 0a 3b 20 72 65 67 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 ┆oc,extproc); ; reg call ┆
0x2d280…2d2a0 20 20 72 65 74 75 72 6e 0a 3b 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e ┆ return ; w0 un┆
0x2d2a0…2d2c0 64 65 66 0a 3b 20 77 31 20 20 20 20 20 69 6e 74 70 72 6f 63 20 20 20 20 20 75 6e 63 68 61 6e 67 ┆def ; w1 intproc unchang┆
0x2d2c0…2d2e0 65 64 0a 3b 20 77 32 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 0a 3b ┆ed ; w2 link result ;┆
0x2d2e0…2d300 20 77 33 20 20 20 20 20 65 78 74 70 72 6f 63 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 0a 3b ┆ w3 extproc unchanged ;┆
0x2d300…2d320 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 73 65 74 20 72 65 73 75 6c 74 20 3d 20 32 2e 30 30 ┆ the procedure set result = 2.00┆
0x2d320…2d340 30 31 20 20 69 66 20 69 6e 74 70 72 6f 63 20 69 73 20 75 73 65 72 0a 3b 20 20 20 20 20 20 20 20 ┆01 if intproc is user ; ┆
0x2d340…2d360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 32 2e 30 30 31 31 20 20 69 66 20 69 ┆ = 2.0011 if i┆
0x2d360…2d380 6e 74 70 72 6f 63 20 69 73 20 72 65 73 65 72 76 65 72 20 28 61 6e 64 20 75 73 65 72 29 0a 3b 20 ┆ntproc is reserver (and user) ; ┆
0x2d380…2d3a0 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 3d 20 32 2e 30 31 30 ┆ = 2.010┆
0x2d3a0…2d3c0 31 20 20 69 66 20 69 6e 74 70 72 6f 63 20 61 6e 64 20 6f 74 68 65 72 20 69 70 20 61 72 65 20 75 ┆1 if intproc and other ip are u┆
0x2d3c0…2d3e0 73 65 72 73 0a 3b 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 ┆sers ; ┆
0x2d3e0…2d400 3d 20 32 2e 30 31 30 30 20 20 69 66 20 74 68 65 72 65 20 6f 6e 6c 79 20 61 72 65 20 6f 74 68 65 ┆= 2.0100 if there only are othe┆
0x2d400…2d420 72 20 75 73 65 72 73 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r users ; ┆
0x2d420…2d440 20 20 20 3d 20 32 2e 31 31 30 30 20 20 69 66 20 61 6e 6f 74 68 65 72 20 69 70 20 69 73 20 72 65 ┆ = 2.1100 if another ip is re┆
0x2d440…2d460 73 65 72 76 65 72 20 28 61 6e 64 20 75 73 65 72 29 0a 3b 20 6f 66 20 65 78 74 70 72 6f 63 20 65 ┆server (and user) ; of extproc e┆
0x2d460…2d480 6c 73 65 20 72 65 73 75 6c 74 20 69 73 20 73 65 74 20 74 6f 20 7a 65 72 6f 0a 0a 62 2e 20 66 35 ┆lse result is set to zero b. f5┆
0x2d480…2d4a0 2c 67 35 20 20 77 2e 0a 65 35 33 3a 20 64 73 2e 20 77 33 20 20 20 20 20 67 31 2e 20 20 20 20 3b ┆,g5 w. e53: ds. w3 g1. ;┆
0x2d4a0…2d4c0 20 20 73 61 76 65 28 6c 69 6e 6b 2c 77 33 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 ┆ save(link,w3); rl w0 x3┆
0x2d4c0…2d4e0 2b 61 35 32 20 20 20 20 3b 20 20 77 30 3a 3d 72 65 73 65 72 76 65 72 2e 65 78 74 70 72 6f 63 3b ┆+a52 ; w0:=reserver.extproc;┆
0x2d4e0…2d500 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 32 2e 31 30 20 20 20 3b 0a 20 20 20 20 20 73 ┆ al w2 2.10 ; s┆
0x2d500…2d520 6e 20 20 77 30 20 20 28 78 31 2b 61 31 34 29 20 20 3b 20 20 69 66 20 69 6e 74 70 72 6f 63 20 69 ┆n w0 (x1+a14) ; if intproc i┆
0x2d520…2d540 73 20 72 65 73 65 72 76 65 72 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 ┆s reserver then jl. ┆
0x2d540…2d560 66 33 2e 20 20 20 20 3b 20 20 67 6f 74 6f 20 74 65 73 74 20 6f 74 68 65 72 20 75 73 65 72 73 3b ┆f3. ; goto test other users;┆
0x2d560…2d580 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 20 20 20 20 20 73 ┆ al w2 0 ; s┆
0x2d580…2d5a0 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 69 66 20 74 68 65 72 65 20 69 73 20 ┆e w0 0 ; if there is ┆
0x2d5a0…2d5c0 61 6e 6f 74 68 65 72 20 72 65 73 65 72 76 65 72 20 74 68 65 6e 0a 20 20 20 20 20 61 6c 20 20 77 ┆another reserver then al w┆
0x2d5c0…2d5e0 32 20 20 20 20 32 2e 31 30 30 30 20 20 3b 20 20 73 65 74 20 6f 74 68 65 72 2d 72 65 73 65 72 76 ┆2 2.1000 ; set other-reserv┆
0x2d5e0…2d600 65 72 20 62 69 74 3b 0a 20 20 20 20 20 62 61 20 20 77 33 20 20 78 31 2b 61 31 34 20 20 20 20 3b ┆er bit; ba w3 x1+a14 ;┆
0x2d600…2d620 20 20 77 33 3a 3d 61 64 64 72 28 62 69 74 70 61 74 74 65 72 6e 2e 69 6e 74 70 72 6f 63 29 3b 0a ┆ w3:=addr(bitpattern.intproc); ┆
0x2d620…2d640 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 33 2b 61 34 30 32 20 20 20 3b 20 20 77 30 3a 3d 62 69 ┆ bz w0 x3+a402 ; w0:=bi┆
0x2d640…2d660 74 70 61 74 74 65 72 6e 2e 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 28 ┆tpattern.intproc; sz w0 (┆
0x2d660…2d680 78 31 2b 61 31 34 29 20 20 3b 20 20 69 66 20 75 73 65 72 62 69 74 2e 69 6e 74 70 72 6f 63 20 69 ┆x1+a14) ; if userbit.intproc i┆
0x2d680…2d6a0 73 20 6f 6e 20 74 68 65 6e 0a 66 33 3a 20 20 61 6c 20 20 77 32 20 20 78 32 2b 31 20 20 20 20 20 ┆s on then f3: al w2 x2+1 ┆
0x2d6a0…2d6c0 20 3b 20 20 72 65 73 75 6c 74 3a 3d 72 65 73 75 6c 74 20 61 64 64 20 31 3b 0a 20 20 20 20 20 61 ┆ ; result:=result add 1; a┆
0x2d6c0…2d6e0 6c 20 20 77 33 20 20 20 20 20 20 30 20 20 20 20 20 3b 0a 66 30 3a 20 20 61 6d 2e 20 20 20 20 20 ┆l w3 0 ; f0: am. ┆
0x2d6e0…2d700 20 20 28 67 31 2e 29 20 20 20 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 78 33 2b 61 34 30 32 20 ┆ (g1.) ; bz w0 x3+a402 ┆
0x2d700…2d720 20 20 20 3b 20 20 77 30 3a 3d 6e 65 78 74 20 70 61 74 74 65 72 6e 2e 75 73 65 72 62 69 74 74 61 ┆ ; w0:=next pattern.userbitta┆
0x2d720…2d740 62 6c 65 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 69 ┆ble; sn w0 0 ; i┆
0x2d740…2d760 66 20 6e 6f 20 75 73 65 72 73 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 ┆f no users then jl. ┆
0x2d760…2d780 66 31 2e 20 20 20 20 3b 20 20 67 6f 74 6f 20 66 31 3b 0a 20 20 20 20 20 68 73 20 20 77 33 20 20 ┆f1. ; goto f1; hs w3 ┆
0x2d780…2d7a0 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 28 78 31 2b 61 31 34 ┆ 0 ; sn w0 (x1+a14┆
0x2d7a0…2d7c0 29 20 20 3b 20 20 69 66 20 6f 6e 6c 79 20 69 6e 74 70 72 6f 63 20 69 73 20 75 73 65 72 20 74 68 ┆) ; if only intproc is user th┆
0x2d7c0…2d7e0 65 6e 20 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 66 31 2e 20 20 20 20 3b 20 20 67 6f ┆en jl. f1. ; go┆
0x2d7e0…2d800 74 6f 20 66 31 20 65 6c 73 65 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 32 2e 30 31 30 ┆to f1 else al w2 x2+2.010┆
0x2d800…2d820 30 20 3b 20 20 72 65 73 75 6c 74 3a 3d 72 65 73 75 6c 74 20 61 64 64 20 32 2e 30 31 30 30 3b 0a ┆0 ; result:=result add 2.0100; ┆
0x2d820…2d840 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 66 32 2e 20 20 20 20 3b 20 20 67 6f 74 6f 20 66 ┆ jl. f2. ; goto f┆
0x2d840…2d860 32 20 65 6c 73 65 0a 66 31 3a 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 3b 20 ┆2 else f1: al w3 x3+1 ; ┆
0x2d860…2d880 20 77 33 3a 3d 6e 65 78 74 20 72 65 6c 2d 61 64 64 72 0a 20 20 20 20 20 73 65 20 20 77 33 20 20 ┆ w3:=next rel-addr se w3 ┆
0x2d880…2d8a0 20 20 20 61 34 30 33 20 20 20 3b 20 20 69 66 20 6e 6f 74 20 65 6e 64 20 62 69 74 74 61 62 6c 65 ┆ a403 ; if not end bittable┆
0x2d8a0…2d8c0 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 66 30 2e 20 20 20 20 3b 20 20 ┆ then jl. f0. ; ┆
0x2d8c0…2d8e0 67 6f 74 6f 20 66 30 3b 0a 66 32 3a 20 20 72 6c 2e 20 77 33 20 20 20 20 20 67 31 2e 20 20 20 20 ┆goto f0; f2: rl. w3 g1. ┆
0x2d8e0…2d900 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 28 67 30 2e 29 20 20 3b 20 20 72 65 74 75 ┆; jl. (g0.) ; retu┆
0x2d900…2d920 (81,) 72 6e 3b 0a 67 30 3a 20 20 30 0a 67 31 3a 20 20 30 0a 65 2e 0a 2f 2c 0a 66 0a 0a 0a 24 70 72 6f ┆rn; g0: 0 g1: 0 e. /, f $pro┆
0x2d920…2d940 63 66 6e 63 32 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 6c 2e 2f 6d 31 3a 2f 2c ┆cfnc2 ;**************** l./m1:/,┆
0x2d940…2d960 6c 2e 2f 6a 36 2e 2f 2c 6c 31 2c 69 2f 0a 6a 36 3d 6b 2d 32 0a 2f 2c 0a 0a 6c 2e 2f 6d 39 3a 2f ┆l./j6./,l1,i/ j6=k-2 /, l./m9:/┆
0x2d960…2d980 2c 6c 2e 2f 72 6c 20 77 30 20 78 33 2b 61 35 33 2f 2c 64 20 31 2c 69 2f 0a 20 20 20 20 20 20 62 ┆,l./rl w0 x3+a53/,d 1,i/ b┆
0x2d980…2d9a0 61 20 20 77 33 20 20 78 31 2b 61 31 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 ┆a w3 x1+a14 ; bz w┆
0x2d9a0…2d9c0 33 20 20 78 33 2b 61 34 30 32 20 20 20 20 20 3b 20 20 77 33 3a 3d 75 73 65 72 62 69 74 73 2e 69 ┆3 x3+a402 ; w3:=userbits.i┆
0x2d9c0…2d9e0 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 31 20 20 78 31 2b 61 31 34 2b 31 20 20 ┆ntproc; bz w1 x1+a14+1 ┆
0x2d9e0…2da00 20 20 3b 20 20 77 31 3a 3d 69 64 62 69 74 2e 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 20 73 6f ┆ ; w1:=idbit.intproc; so┆
0x2da00…2da20 20 20 77 33 20 20 78 31 20 20 20 20 20 20 20 20 20 20 3b 20 20 69 66 20 69 64 62 69 74 2e 69 6e ┆ w3 x1 ; if idbit.in┆
0x2da20…2da40 74 70 72 6f 63 20 69 73 20 6e 6f 74 20 6f 6e 20 74 68 65 6e 0a 2f 2c 6c 2e 2f 6e 6f 75 73 65 72 ┆tproc is not on then /,l./nouser┆
0x2da40…2da60 3d 61 35 33 2f 2c 72 2f 61 35 33 2f 32 2e 30 31 30 30 2f 2c 72 2f 61 35 32 2f 32 2e 31 30 30 30 ┆=a53/,r/a53/2.0100/,r/a52/2.1000┆
0x2da60…2da80 2f 2c 6c 2e 2f 6d 31 31 3a 2f 2c 0a 6c 2e 2f 6a 6c 2e 77 33 6e 31 30 2e 2f 2c 64 2e 2f 73 6e 77 ┆/,l./m11:/, l./jl.w3n10./,d./snw┆
0x2da80…2daa0 30 30 2f 2c 69 2f 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 ┆00/,i/ rl w3 x2 ; ┆
0x2daa0…2dac0 20 77 33 3a 3d 61 64 64 72 28 61 72 65 61 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 ┆ w3:=addr(area process descripti┆
0x2dac0…2dae0 6f 6e 29 3b 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 20 20 77 ┆on); rl. w1 d2. ; w┆
0x2dae0…2db00 31 3a 3d 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 32 20 20 20 20 20 65 35 33 2e ┆1:=intproc; jl. w2 e53.┆
0x2db00…2db20 20 20 20 3b 20 20 74 65 73 74 20 75 73 65 72 20 61 6e 64 20 72 65 73 65 72 76 65 72 3b 0a 20 20 ┆ ; test user and reserver; ┆
0x2db20…2db40 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 6e 31 30 2e 20 20 20 3b 20 20 77 30 3a 3d 32 2e 31 30 ┆ jl. w3 n10. ; w0:=2.10┆
0x2db40…2db60 30 20 20 20 20 74 65 73 74 20 6f 74 68 65 72 20 75 73 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 ┆0 test other users ┆
0x2db60…2db80 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 32 2e 31 31 30 30 20 20 20 74 65 73 ┆ ; 2.1100 tes┆
0x2db80…2dba0 74 20 6f 74 68 65 72 20 72 65 73 65 72 76 65 72 73 3b 0a 20 20 20 20 20 73 6f 20 20 77 32 20 20 ┆t other reservers; so w2 ┆
0x2dba0…2dbc0 20 20 28 30 29 20 20 20 20 20 3b 20 20 69 66 20 6e 6f 20 6f 74 68 65 72 20 75 73 65 72 73 2d 72 ┆ (0) ; if no other users-r┆
0x2dbc0…2dbe0 65 73 65 72 76 65 72 73 20 74 68 65 6e 0a 2f 2c 0a 6c 2e 2f 6d 31 34 3a 2f 2c 6c 2e 2f 3b 74 65 ┆eservers then /, l./m14:/,l./;te┆
0x2dbe0…2dc00 73 74 2f 2c 69 2f 0a 20 20 20 20 20 6a 6c 2e 20 65 31 2e 2c 20 20 65 31 20 3d 20 6b 2d 32 0a 2f ┆st/,i/ jl. e1., e1 = k-2 /┆
0x2dc00…2dc20 2c 0a 0a 6c 2e 2f 6d 32 32 3a 2f 2c 0a 6c 2e 2f 68 34 3a 2f 2c 6c 20 31 2c 69 2f 0a 0a 0a 0a 3b ┆, l./m22:/, l./h4:/,l 1,i/ ;┆
0x2dc20…2dc40 20 63 6f 6d 6d 6f 6e 20 76 61 72 69 61 62 6c 65 73 3a 0a 64 31 36 3a 20 30 2c 20 72 2e 38 20 20 ┆ common variables: d16: 0, r.8 ┆
0x2dc40…2dc60 20 20 20 20 20 20 20 20 20 3b 20 61 6e 73 77 65 72 20 61 72 65 61 0a 63 2e 20 34 20 2a 20 28 3a ┆ ; answer area c. 4 * (:┆
0x2dc60…2dc80 61 31 31 30 2b 31 3a 29 2b 64 31 36 2e 2d 31 3b 20 20 20 61 6e 64 0a 20 20 20 20 20 30 2c 20 72 ┆a110+1:)+d16.-1; and 0, r┆
0x2dc80…2dca0 2e 20 32 2a 28 3a 61 31 31 30 2b 31 3a 29 2b 64 31 36 2e 3e 31 3b 20 20 63 6c 61 69 6d 20 63 68 ┆. 2*(:a110+1:)+d16.>1; claim ch┆
0x2dca0…2dcc0 61 6e 67 65 20 61 72 72 61 79 20 20 28 73 65 74 20 62 73 20 63 6c 61 69 6d 73 29 0a 7a 2e 20 20 ┆ange array (set bs claims) z. ┆
0x2dcc0…2dce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 34 3a 20 20 30 20 20 20 20 20 20 ┆ ; d4: 0 ┆
0x2dce0…2dd00 20 20 20 20 20 20 20 20 20 20 3b 20 63 75 72 64 6f 63 3a 20 20 61 64 64 72 65 73 73 20 6f 66 20 ┆ ; curdoc: address of ┆
0x2dd00…2dd20 63 75 72 72 65 6e 74 20 64 6f 63 75 6d 65 6e 74 20 28 63 68 61 69 6e 74 61 62 6c 65 29 0a 64 35 ┆current document (chaintable) d5┆
0x2dd20…2dd40 3a 20 20 64 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 61 69 6e 63 61 74 20 70 73 ┆: d9 ; maincat ps┆
0x2dd40…2dd60 65 75 64 6f 63 68 61 69 6e 0a 20 3b 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 63 75 72 72 ┆eudochain ; description of curr┆
0x2dd60…2dd80 65 6e 74 20 65 6e 74 72 79 0a 64 32 39 3a 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 3b 20 2d ┆ent entry d29: 0 ; -┆
0x2dd80…2dda0 32 20 63 75 72 72 20 65 6e 74 72 79 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 0a 64 33 3a 20 ┆2 curr entry segment number d3: ┆
0x2dda0…2ddc0 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 3b 20 20 20 20 63 75 72 72 20 65 6e 74 72 79 20 61 ┆ 0 ; curr entry a┆
0x2ddc0…2dde0 64 64 72 65 73 73 20 69 6e 20 63 61 74 61 6c 6f 67 0a 0a 0a 3b 20 72 65 63 6f 72 64 20 77 6f 72 ┆ddress in catalog ; record wor┆
0x2dde0…2de00 6b 3a 0a 3b 20 28 66 6f 72 6d 61 74 20 61 73 20 61 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 79 29 ┆k: ; (format as a catalog entry)┆
0x2de00…2de20 0a 0a 64 31 3a 20 20 20 30 2c 72 2e 66 30 3e 31 20 20 20 20 20 20 3b 20 77 6f 72 6b 0a 64 33 30 ┆ d1: 0,r.f0>1 ; work d30┆
0x2de20…2de40 3a 20 20 30 2c 20 72 2e 34 20 20 20 20 20 20 20 20 3b 20 73 74 61 74 20 61 72 65 61 2e 77 6f 72 ┆: 0, r.4 ; stat area.wor┆
0x2de40…2de60 6b 0a 0a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d ┆k ; form┆
0x2de60…2de80 61 74 20 6f 66 20 63 68 61 69 6e 68 65 61 64 20 20 20 20 20 66 6f 72 6d 61 74 20 6f 66 20 63 61 ┆at of chainhead format of ca┆
0x2de80…2dea0 74 61 6c 6f 67 20 65 6e 74 72 79 0a 0a 76 31 20 3d 20 64 31 20 2b 20 66 31 20 20 20 20 20 20 20 ┆talog entry v1 = d1 + f1 ┆
0x2dea0…2dec0 20 20 20 3b 20 6c 6f 77 65 72 20 62 61 73 65 20 6f 66 20 63 61 74 61 6c 6f 67 20 20 20 20 6c 6f ┆ ; lower base of catalog lo┆
0x2dec0…2dee0 77 65 72 20 62 61 73 65 20 6f 66 20 65 6e 74 72 79 0a 76 32 20 3d 20 64 31 20 2b 20 66 32 20 20 ┆wer base of entry v2 = d1 + f2 ┆
0x2dee0…2df00 20 20 20 20 20 20 20 20 3b 20 75 70 70 65 72 20 62 61 73 65 20 6f 66 20 63 61 74 61 6c 6f 67 20 ┆ ; upper base of catalog ┆
0x2df00…2df20 20 20 20 75 70 70 65 72 20 62 61 73 65 20 6f 66 20 65 6e 74 72 79 0a 76 33 20 3d 20 64 31 20 2b ┆ upper base of entry v3 = d1 +┆
0x2df20…2df40 20 66 33 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 69 6e 6b 69 6e 6b 2a 38 20 2b 20 70 65 72 ┆ f3 ; chainkink*8 + per┆
0x2df40…2df60 6d 6b 65 79 20 20 20 20 6e 61 6d 65 6b 65 79 2a 38 20 2b 20 70 65 72 6d 6b 65 79 0a 76 34 20 3d ┆mkey namekey*8 + permkey v4 =┆
0x2df60…2df80 20 64 31 20 2b 20 66 34 20 20 20 20 20 20 20 20 20 20 3b 20 66 69 72 73 74 20 73 6c 69 63 65 20 ┆ d1 + f4 ; first slice ┆
0x2df80…2dfa0 6f 66 20 61 75 78 63 61 74 20 20 20 20 66 69 72 73 74 20 73 6c 69 63 65 0a 76 35 20 3d 20 64 31 ┆of auxcat first slice v5 = d1┆
0x2dfa0…2dfc0 20 2b 20 66 35 20 20 20 20 20 20 20 20 20 20 3b 20 6e 61 6d 65 20 6f 66 20 61 75 78 63 61 74 20 ┆ + f5 ; name of auxcat ┆
0x2dfc0…2dfe0 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 20 6e 61 6d 65 0a 76 36 20 3d 20 64 31 20 2b 20 66 ┆ entry name v6 = d1 + f┆
0x2dfe0…2e000 36 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 20 20 20 20 20 ┆6 ; ┆
0x2e000…2e020 20 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 74 61 69 6c 0a 76 37 20 3d 20 64 31 20 2b 20 66 37 ┆ start of tail v7 = d1 + f7┆
0x2e020…2e040 20 20 20 20 20 20 20 20 20 20 3b 20 73 69 7a 65 20 6f 66 20 61 75 78 63 61 74 20 20 20 20 20 20 ┆ ; size of auxcat ┆
0x2e040…2e060 20 20 20 20 20 73 69 7a 65 20 6f 66 20 65 6e 74 72 79 0a 76 31 31 3d 20 64 31 20 2b 20 66 31 31 ┆ size of entry v11= d1 + f11┆
0x2e060…2e080 20 20 20 20 20 20 20 20 20 3b 20 64 6f 63 75 6d 65 6e 74 20 6e 61 6d 65 20 20 20 20 20 20 20 20 ┆ ; document name ┆
0x2e080…2e0a0 20 20 20 20 6e 61 6d 65 0a 76 31 32 3d 20 64 31 20 2b 20 66 31 32 20 20 20 20 20 20 20 20 20 3b ┆ name v12= d1 + f12 ;┆
0x2e0a0…2e0c0 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 20 6f 66 20 20 20 20 20 20 20 77 72 69 74 65 20 ┆ name table addr of write ┆
0x2e0c0…2e0e0 61 63 63 65 73 73 20 63 6f 75 6e 74 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆access counter, ┆
0x2e0e0…2e100 20 20 20 20 20 20 3b 20 61 75 78 63 61 74 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 20 20 20 20 ┆ ; auxcat area process ┆
0x2e100…2e120 20 72 65 61 64 20 61 63 63 65 73 20 63 6f 75 6e 74 65 72 0a 76 31 33 3d 20 64 31 20 2b 20 66 35 ┆ read acces counter v13= d1 + f5┆
0x2e120…2e140 20 2b 20 32 20 20 20 20 20 20 3b 0a 76 31 34 3d 20 64 31 20 2b 20 66 35 20 2b 20 36 20 20 20 20 ┆ + 2 ; v14= d1 + f5 + 6 ┆
0x2e140…2e160 20 20 3b 0a 76 31 35 3d 20 64 31 20 2b 20 66 35 20 2b 20 37 20 20 20 20 20 20 3b 0a 76 32 36 3d ┆ ; v15= d1 + f5 + 7 ; v26=┆
0x2e160…2e180 20 64 31 20 2b 20 66 36 36 20 2b 20 20 66 30 20 20 20 3b 20 6c 61 73 74 20 73 6c 69 63 65 20 69 ┆ d1 + f66 + f0 ; last slice i┆
0x2e180…2e1a0 6e 20 63 68 61 69 6e 74 61 62 6c 65 0a 76 32 37 3d 20 64 31 20 2b 20 66 36 37 20 2b 20 20 66 30 ┆n chaintable v27= d1 + f67 + f0┆
0x2e1a0…2e1c0 20 20 20 3b 20 66 69 72 73 74 20 73 6c 69 63 65 20 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; first slice in ┆
0x2e1c0…2e1e0 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 69 6e 74 61 62 6c 65 2d 63 68 61 69 6e 0a 76 33 30 ┆ ; chaintable-chain v30┆
0x2e1e0…2e200 3d 20 64 31 20 2b 20 66 31 31 20 2b 20 20 32 20 20 20 20 3b 0a 76 33 31 3d 20 64 31 20 2b 20 66 ┆= d1 + f11 + 2 ; v31= d1 + f┆
0x2e200…2e220 (82,) 31 31 20 2b 20 20 36 20 20 20 20 3b 0a 76 33 32 3d 20 64 31 20 2b 20 66 31 32 20 2b 20 20 32 20 ┆11 + 6 ; v32= d1 + f12 + 2 ┆
0x2e220…2e240 20 20 20 3b 0a 0a 64 32 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 ┆ ; d2: 0 ; s┆
0x2e240…2e260 65 6e 64 65 72 3a 20 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 ┆ender: process description addr┆
0x2e260…2e280 65 73 73 20 6f 66 20 73 65 6e 64 65 72 0a 64 31 31 3a 20 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess of sender d11: 0 ┆
0x2e280…2e2a0 20 20 20 20 20 3b 20 63 75 72 20 70 72 6f 63 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 ┆ ; cur proc name table addre┆
0x2e2a0…2e2c0 73 73 0a 64 31 33 3a 20 30 2c 72 2e 61 34 30 31 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 69 6c ┆ss d13: 0,r.a401 ; chil┆
0x2e2c0…2e2e0 64 72 65 6e 20 62 69 74 73 0a 64 31 34 3a 20 30 20 20 20 20 20 20 20 20 20 3b 20 64 31 33 2b 32 ┆dren bits d14: 0 ; d13+2┆
0x2e2e0…2e300 20 3b 20 61 64 64 72 65 73 73 20 6f 66 20 61 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 ┆ ; address of a process descript┆
0x2e300…2e320 69 6f 6e 0a 64 31 35 3a 20 30 20 20 20 20 20 20 20 20 20 3b 20 64 31 33 2b 34 20 3b 20 65 6e 64 ┆ion d15: 0 ; d13+4 ; end┆
0x2e320…2e340 20 63 68 61 69 6e 0a 0a 0a 3b 20 73 74 65 70 70 69 6e 67 20 73 74 6f 6e 65 73 0a 20 20 20 20 20 ┆ chain ; stepping stones ┆
0x2e340…2e360 6a 6c 2e 20 65 35 2e 2c 20 20 65 35 20 3d 20 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 65 37 2e 2c ┆jl. e5., e5 = k-2 jl. e7.,┆
0x2e360…2e380 20 20 65 37 20 3d 20 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 65 38 2e 2c 20 20 65 38 20 3d 20 6b ┆ e7 = k-2 jl. e8., e8 = k┆
0x2e380…2e3a0 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 65 39 2e 2c 20 20 65 39 20 3d 20 6b 2d 32 0a 20 20 20 20 20 ┆-2 jl. e9., e9 = k-2 ┆
0x2e3a0…2e3c0 6a 6c 2e 20 65 31 30 2e 2c 20 65 31 30 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 65 31 32 2e 2c ┆jl. e10., e10=k-2 jl. e12.,┆
0x2e3c0…2e3e0 20 65 31 32 3d 20 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 65 35 30 2e 2c 20 65 35 30 3d 20 6b 2d ┆ e12= k-2 jl. e50., e50= k-┆
0x2e3e0…2e400 32 0a 0a 0a 2f 2c 0a 0a 6c 2e 2f 6d 32 34 3a 2f 2c 0a 6c 2e 2f 64 33 3a 2f 2c 64 2d 32 2c 64 2e ┆2 /, l./m24:/, l./d3:/,d-2,d.┆
0x2e400…2e420 2f 64 35 3a 2f 2c 6c 31 2c 64 2e 2f 65 31 30 2e 2f 2c 0a 69 2f 0a 20 20 20 20 20 6a 6c 2e 20 65 ┆/d5:/,l1,d./e10./, i/ jl. e┆
0x2e420…2e440 31 37 2e 2c 20 20 65 31 37 3d 20 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 65 33 31 2e 2c 20 20 65 ┆17., e17= k-2 jl. e31., e┆
0x2e440…2e460 33 31 3d 20 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 65 33 32 2e 2c 20 20 65 33 32 3d 20 6b 2d 32 ┆31= k-2 jl. e32., e32= k-2┆
0x2e460…2e480 0a 20 20 20 20 20 6a 6c 2e 20 65 33 33 2e 2c 20 20 65 33 33 3d 20 6b 2d 32 0a 2f 2c 6c 2e 2f 6d ┆ jl. e33., e33= k-2 /,l./m┆
0x2e480…2e4a0 33 34 3a 2f 2c 6c 2e 2f 6e 31 2e 2f 2c 6c 31 2c 69 2f 0a 6e 31 3d 6b 2d 32 0a 2f 2c 6c 2e 2f 6e ┆34:/,l./n1./,l1,i/ n1=k-2 /,l./n┆
0x2e4a0…2e4c0 35 2e 2f 2c 6c 31 2c 69 2f 0a 6e 35 3d 6b 2d 32 0a 2f 2c 6c 2e 2f 64 32 3a 2f 2c 64 2e 2f 64 31 ┆5./,l1,i/ n5=k-2 /,l./d2:/,d./d1┆
0x2e4c0…2e4e0 35 3a 2f 2c 0a 6c 2e 2f 6a 6c 2e 6a 35 2e 2f 2c 6c 31 2c 69 2f 0a 20 20 6a 35 3d 6b 2d 32 0a 2f ┆5:/, l./jl.j5./,l1,i/ j5=k-2 /┆
0x2e4e0…2e500 2c 0a 6c 2e 2f 73 74 65 70 70 69 6e 67 20 73 74 6f 6e 65 73 2f 2c 6c 31 2c 64 31 2c 0a 6c 2e 2f ┆, l./stepping stones/,l1,d1, l./┆
0x2e500…2e520 65 32 30 2d 2f 2c 72 2f 36 2f 34 2f 2c 0a 6c 20 31 2c 69 2f 0a 61 6d 20 20 65 32 34 2d 65 32 36 ┆e20-/,r/6/4/, l 1,i/ am e24-e26┆
0x2e520…2e540 20 2c 20 65 32 34 3d 6b 2d 32 0a 2f 2c 6c 2e 2f 65 33 31 2f 2c 72 2f 33 31 2f 34 33 2f 2c 6c 31 ┆ , e24=k-2 /,l./e31/,r/31/43/,l1┆
0x2e540…2e560 2c 64 32 2c 6c 2e 2f 65 36 30 2f 2c 69 2f 0a 20 20 20 20 20 6a 6c 2e 20 20 65 35 32 2e 2c 20 20 ┆,d2,l./e60/,i/ jl. e52., ┆
0x2e560…2e580 65 35 32 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 65 35 33 2e 2c 20 20 65 35 33 3d 6b 2d 32 ┆e52=k-2 jl. e53., e53=k-2┆
0x2e580…2e5a0 0a 2f 2c 0a 6c 2e 2f 6d 34 30 3a 2f 2c 6c 2e 2f 61 6d 28 62 31 29 2f 2c 64 2e 2f 72 73 77 30 78 ┆ /, l./m40:/,l./am(b1)/,d./rsw0x┆
0x2e5a0…2e5c0 33 2b 61 35 33 2f 2c 69 2f 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 62 31 20 20 20 20 ┆3+a53/,i/ rl w1 b1 ┆
0x2e5c0…2e5e0 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 64 65 ┆ ; w1:=addr(procfunc process de┆
0x2e5e0…2e600 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 31 34 20 ┆scription); rl w0 x1+a14 ┆
0x2e600…2e620 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 20 20 72 ┆ ; w0:=idbit.procfunc; r┆
0x2e620…2e640 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 73 73 2e ┆s w0 x3+a52 ; discprocess.┆
0x2e640…2e660 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 20 20 6a ┆reserver:=idbit.procfunc; j┆
0x2e660…2e680 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 72 6f 63 ┆l. w2 e51. ; include proc┆
0x2e680…2e6a0 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 2f 2c 6c ┆func as user of discprocess; /,l┆
0x2e6a0…2e6c0 2e 2f 6d 34 31 3a 2f 2c 6c 2e 2f 72 6c 77 32 78 32 2f 2c 64 2e 2f 78 32 2b 61 37 32 2f 2c 69 2f ┆./m41:/,l./rlw2x2/,d./x2+a72/,i/┆
0x2e6c0…2e6e0 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 77 33 3a 3d 61 ┆ rl w3 x2 ; w3:=a┆
0x2e6e0…2e700 64 64 72 28 64 69 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 ┆ddr(discprocess); rl w1 ┆
0x2e700…2e720 20 20 62 31 20 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 ┆ b1 ; w1:=addr(procfunc pr┆
0x2e720…2e740 6f 63 65 73 73 20 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 ┆ocess description); jl. w2 ┆
0x2e740…2e760 20 20 20 20 65 35 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 ┆ e52. ; exclude procfunc a┆
0x2e760…2e780 73 20 75 73 65 72 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 ┆s user of discprocess; ld ┆
0x2e780…2e7a0 77 31 20 20 20 20 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 ┆w1 -100 ; rs w0 x3+┆
0x2e7a0…2e7c0 61 31 31 20 20 20 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 ┆a11 ; name(0):=0; (this wil┆
0x2e7c0…2e7e0 6c 20 70 72 65 76 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 ┆l prevent further user of the di┆
0x2e7e0…2e800 73 63 70 72 6f 63 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 ┆scprocess) rs w0 x3+a52 ┆
0x2e800…2e820 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 72 65 73 65 72 76 65 ┆ ; exclude procfunc as reserve┆
0x2e820…2e840 72 3b 0a 20 20 20 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 ┆r; ds w1 x3+a72 ; cha┆
0x2e840…2e860 69 6e 74 61 62 6c 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 ┆intable.discproc:=slicelength.di┆
0x2e860…2e880 73 63 70 72 6f 63 3a 3d 30 3b 0a 2f 2c 6c 2e 2f 6d 34 36 3a 2f 2c 6c 2e 2f 67 35 3a 2f 2c 6c 2e ┆scproc:=0; /,l./m46:/,l./g5:/,l.┆
0x2e880…2e8a0 2f 72 6c 2e 77 32 68 31 2e 2f 2c 64 2e 2f 72 73 77 31 78 33 2b 61 35 33 2f 2c 69 2f 0a 20 20 20 ┆/rl.w2h1./,d./rsw1x3+a53/,i/ ┆
0x2e8a0…2e8c0 20 20 72 6c 2e 20 77 31 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 77 31 3a 3d 69 6e 74 70 72 ┆ rl. w1 h1. ; w1:=intpr┆
0x2e8c0…2e8e0 6f 63 3b 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 77 33 ┆oc; rl. w3 (d11.) ; w3┆
0x2e8e0…2e900 3a 3d 65 78 74 70 72 6f 63 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 32 20 20 20 20 20 65 35 33 2e 20 ┆:=extproc; jl. w2 e53. ┆
0x2e900…2e920 20 20 3b 20 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 ┆ ; test users and reserver; ┆
0x2e920…2e940 20 20 20 73 7a 20 20 77 32 20 20 20 20 20 32 2e 31 20 20 20 20 3b 20 20 69 66 20 69 6e 74 70 72 ┆ sz w2 2.1 ; if intpr┆
0x2e940…2e960 6f 63 20 61 6c 72 65 61 64 79 20 75 73 65 72 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 ┆oc already user then jl. ┆
0x2e960…2e980 20 20 20 20 20 6e 30 2e 20 20 20 20 3b 20 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 75 63 ┆ n0. ; goto next instruc┆
0x2e980…2e9a0 74 69 6f 6e 20 65 6c 73 65 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 2d 31 20 20 20 20 ┆tion else al w0 -1 ┆
0x2e9a0…2e9c0 20 3b 0a 20 20 20 20 20 62 61 20 20 77 30 20 20 20 78 31 2b 61 32 30 20 20 20 3b 0a 20 20 20 20 ┆ ; ba w0 x1+a20 ; ┆
0x2e9c0…2e9e0 20 73 6e 20 20 77 30 20 20 20 20 20 2d 31 20 20 20 20 20 3b 20 20 69 66 20 61 72 65 61 63 6c 61 ┆ sn w0 -1 ; if areacla┆
0x2e9e0…2ea00 69 6d 2e 73 65 6e 64 65 72 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 ┆im.sender=0 then jl. ┆
0x2ea00…2ea20 20 6a 31 2e 20 20 20 20 3b 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 20 65 6c 73 65 0a 20 20 ┆ j1. ; goto result 1 else ┆
0x2ea20…2ea40 20 20 20 6a 31 3d 6b 2d 32 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 31 2b 61 32 30 20 20 20 ┆ j1=k-2 hs w0 x1+a20 ┆
0x2ea40…2ea60 20 3b 20 20 65 6c 73 65 20 64 65 63 72 65 61 73 65 20 61 72 65 61 63 6c 61 69 6d 2e 73 65 6e 64 ┆ ; else decrease areaclaim.send┆
0x2ea60…2ea80 65 72 3b 0a 20 20 20 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 ┆er; jl. w2 e51. ; in┆
0x2ea80…2eaa0 63 6c 75 64 65 20 69 6e 74 70 72 6f 63 20 61 73 20 75 73 65 72 20 6f 66 20 61 72 65 61 70 72 6f ┆clude intproc as user of areapro┆
0x2eaa0…2eac0 63 3b 0a 2f 2c 6c 2e 2f 6d 35 30 3a 2f 2c 6c 2d 31 2c 72 2f 67 31 30 2f 67 31 30 2c 68 35 2f 2c ┆c; /,l./m50:/,l-1,r/g10/g10,h5/,┆
0x2eac0…2eae0 0a 6c 2e 2f 6c 64 77 32 2d 31 30 30 2f 2c 64 2e 2f 6a 6c 2e 6e 30 2e 2f 2c 69 2f 0a 20 20 20 20 ┆ l./ldw2-100/,d./jl.n0./,i/ ┆
0x2eae0…2eb00 20 61 6c 20 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 ┆ al w2 0 ; rs w2┆
0x2eb00…2eb20 (83,) 20 20 78 33 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 ┆ x3+a52 ; clear reserver.ex┆
0x2eb20…2eb40 74 70 72 6f 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 ┆tproc; rs w2 x3+a11 ; ┆
0x2eb40…2eb60 20 20 20 20 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 ┆ name(0). rs w2 x3+┆
0x2eb60…2eb80 61 35 30 20 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 ┆a50 ; docaddr. ; scan┆
0x2eb80…2eba0 20 61 6c 6c 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 ┆ all internal processes and mayb┆
0x2eba0…2ebc0 65 20 69 6e 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 ┆e increase their area-claim ┆
0x2ebc0…2ebe0 20 20 72 6c 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 ┆ rl w2 b6 ; w2:=first┆
0x2ebe0…2ec00 20 69 6e 74 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 ┆ intproc in nametable; g1: rl ┆
0x2ec00…2ec20 77 31 20 20 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 ┆w1 x2 ; w1:=next intpro┆
0x2ec20…2ec40 63 20 69 6e 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 ┆c in nametable; rs. w2 ┆
0x2ec40…2ec60 68 30 2e 20 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 ┆h0. ; jl. w2 e53. ┆
0x2ec60…2ec80 20 20 3b 20 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 ┆ ; test users and reserver; ┆
0x2ec80…2eca0 20 20 20 72 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 ┆ rs. w2 h1. ; :=user a┆
0x2eca0…2ecc0 6e 64 20 72 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 ┆nd reserver mask; jl. w2 ┆
0x2ecc0…2ece0 20 20 65 35 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 ┆ e52. ; exclude intproc as u┆
0x2ece0…2ed00 73 65 72 3b 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 ┆ser; rl. w2 h1. ; w┆
0x2ed00…2ed20 32 3a 3d 75 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 ┆2:=user and reserver mask; ┆
0x2ed20…2ed40 61 6c 20 20 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 ┆al w0 1 ; ba w0 ┆
0x2ed40…2ed60 20 78 31 2b 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 ┆ x1+a20 ; sz w2 2.1┆
0x2ed60…2ed80 20 20 20 20 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 ┆ ; if intproc is user then ┆
0x2ed80…2eda0 20 20 20 20 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 ┆ hs w0 x1+a20 ; increas┆
0x2eda0…2edc0 65 20 61 72 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 ┆e areaclaim.intproc; so w2┆
0x2edc0…2ede0 20 20 20 20 20 32 2e 30 31 30 30 20 3b 20 20 69 66 20 6e 6f 20 6f 74 68 65 72 20 75 73 65 72 73 ┆ 2.0100 ; if no other users┆
0x2ede0…2ee00 20 74 68 65 6e 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 6e ┆ then jl. n0. ; n┆
0x2ee00…2ee20 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 72 6c 2e 20 77 32 ┆ext instruction else rl. w2┆
0x2ee20…2ee40 20 20 20 20 20 68 30 2e 20 20 20 20 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 32 20 20 ┆ h0. al w2 x2+2 ┆
0x2ee40…2ee60 20 20 20 20 3b 20 6e 65 78 74 20 69 6e 20 6e 61 6d 65 20 74 61 62 6c 65 3b 0a 20 20 20 20 20 6a ┆ ; next in name table; j┆
0x2ee60…2ee80 6c 2e 20 20 20 20 20 20 20 20 67 31 2e 20 20 20 20 3b 20 20 28 6e 6f 20 63 68 65 63 6b 20 6f 66 ┆l. g1. ; (no check of┆
0x2ee80…2eea0 20 75 70 70 65 72 20 6c 69 6d 69 74 20 69 6e 20 6e 61 6d 65 74 61 62 6c 65 2c 0a 20 20 20 20 20 ┆ upper limit in nametable, ┆
0x2eea0…2eec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 62 65 63 61 75 73 65 20 6f 66 ┆ ; because of┆
0x2eec0…2eee0 20 74 68 65 20 74 65 73 74 20 6f 6e 20 6f 74 68 65 72 20 75 73 65 72 73 29 0a 68 30 3a 20 20 30 ┆ the test on other users) h0: 0┆
0x2eee0…2ef00 0a 68 31 3a 20 20 30 0a 2f 2c 6c 2e 2f 64 65 6c 65 74 65 20 61 75 78 20 65 6e 74 72 79 2f 2c 69 ┆ h1: 0 /,l./delete aux entry/,i┆
0x2ef00…2ef20 2f 0a 64 32 31 3a 20 64 31 36 0a 64 32 32 3a 20 64 31 36 2b 32 0a 64 32 34 3a 20 64 31 34 0a 64 ┆/ d21: d16 d22: d16+2 d24: d14 d┆
0x2ef20…2ef40 33 33 3a 20 64 31 35 0a 64 33 34 3a 20 64 31 2b 66 36 0a 0a 3b 73 74 65 70 70 69 6e 67 20 73 74 ┆33: d15 d34: d1+f6 ;stepping st┆
0x2ef40…2ef60 6f 6e 65 73 3a 0a 6a 6c 2e 20 65 33 31 2e 20 2c 20 65 33 31 3d 6b 2d 32 0a 6a 6c 2e 20 65 39 30 ┆ones: jl. e31. , e31=k-2 jl. e90┆
0x2ef60…2ef80 2e 20 2c 20 65 39 30 3d 6b 2d 32 0a 6a 6c 2e 20 65 39 32 2e 20 2c 20 65 39 32 3d 6b 2d 32 0a 2f ┆. , e90=k-2 jl. e92. , e92=k-2 /┆
0x2ef80…2efa0 2c 0a 0a 6c 2e 2f 6d 35 39 3a 2f 2c 0a 6c 2e 2f 73 74 65 70 70 69 6e 67 20 73 74 6f 6e 65 73 2f ┆, l./m59:/, l./stepping stones/┆
0x2efa0…2efc0 2c 64 2e 2f 6e 35 2e 2f 2c 0a 6c 2e 2f 6d 38 39 3a 2f 2c 6c 2e 2f 6a 36 2e 2f 2c 6c 31 2c 69 2f ┆,d./n5./, l./m89:/,l./j6./,l1,i/┆
0x2efc0…2efe0 0a 6a 36 3d 6b 2d 32 0a 2f 2c 6c 2e 2f 6d 31 31 35 3a 2f 2c 6c 2d 31 2c 64 2e 2f 6a 6c 2e 67 32 ┆ j6=k-2 /,l./m115:/,l-1,d./jl.g2┆
0x2efe0…2f000 2e 2f 2c 69 2f 0a 62 2e 20 67 31 30 2c 68 35 20 77 2e 0a 6d 31 31 35 3a 20 20 20 20 20 20 20 20 ┆./,i/ b. g10,h5 w. m115: ┆
0x2f000…2f020 20 20 20 20 20 20 20 20 20 20 3b 20 20 63 68 65 63 6b 20 61 6e 79 20 61 72 65 61 20 70 72 6f 63 ┆ ; check any area proc┆
0x2f020…2f040 65 73 73 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 20 20 20 62 35 20 20 20 20 20 3b 20 20 77 ┆ess; rl w2 b5 ; w┆
0x2f040…2f060 32 3a 3d 66 69 72 73 74 20 61 64 64 72 20 69 6e 20 6e 61 6d 65 74 61 62 6c 65 3b 0a 20 20 20 20 ┆2:=first addr in nametable; ┆
0x2f060…2f080 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 30 2e 20 20 20 20 3b 0a 67 31 3a 0a 67 32 3a 20 20 72 6c ┆ jl. g0. ; g1: g2: rl┆
0x2f080…2f0a0 2e 20 77 32 20 20 20 20 20 68 30 2e 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 ┆. w2 h0. ; al w2 x┆
0x2f0a0…2f0c0 32 2b 32 20 20 20 20 20 20 3b 20 20 77 32 3a 3d 6e 65 78 74 20 69 6e 20 6e 61 6d 65 74 61 62 6c ┆2+2 ; w2:=next in nametabl┆
0x2f0c0…2f0e0 65 0a 67 30 3a 20 20 73 6e 20 20 77 32 20 20 20 20 28 62 36 29 20 20 20 20 3b 20 20 69 66 20 75 ┆e g0: sn w2 (b6) ; if u┆
0x2f0e0…2f100 70 70 65 72 20 6c 69 6d 69 74 20 69 6e 20 6e 61 6d 74 61 62 6c 65 20 69 73 20 65 78 63 65 65 64 ┆pper limit in namtable is exceed┆
0x2f100…2f120 65 64 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 74 68 65 ┆ed jl. n0. ; the┆
0x2f120…2f140 6e 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 3b 0a 20 20 20 20 20 72 73 ┆n goto next instruction; rs┆
0x2f140…2f160 2e 20 77 32 20 20 20 20 20 68 30 2e 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 ┆. w2 h0. ; rl w3 x┆
0x2f160…2f180 32 20 20 20 20 20 20 20 20 3b 20 20 77 33 3a 3d 61 64 64 72 28 6e 65 78 74 20 65 78 74 70 72 6f ┆2 ; w3:=addr(next extpro┆
0x2f180…2f1a0 63 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 62 31 20 20 20 20 20 3b 20 20 77 31 ┆c); rl w1 b1 ; w1┆
0x2f1a0…2f1c0 3a 3d 61 64 64 72 28 70 72 6f 63 66 75 6e 63 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 ┆:=addr(procfunc process descript┆
0x2f1c0…2f1e0 69 6f 6e 29 3b 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 20 ┆ion); jl. w2 e53. ; ┆
0x2f1e0…2f200 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 73 6e ┆test users and reserver; sn┆
0x2f200…2f220 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 69 66 20 6e 6f 20 75 73 65 72 73 20 74 ┆ w2 0 ; if no users t┆
0x2f220…2f240 68 65 6e 0a 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 67 6f ┆hen jl. g2. ; go┆
0x2f240…2f260 74 6f 20 6e 65 78 74 20 65 78 74 70 72 6f 63 3b 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 ┆to next extproc; rs. w2 ┆
0x2f260…2f280 20 68 31 2e 20 20 20 20 3b 20 20 73 74 6f 72 65 20 72 65 73 75 6c 74 20 6f 66 20 74 65 73 74 20 ┆ h1. ; store result of test ┆
0x2f280…2f2a0 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 61 6c 20 20 77 31 20 ┆users and reserver; al w1 ┆
0x2f2a0…2f2c0 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 4e 42 20 20 77 31 3c 2d 3e 77 33 20 20 20 67 31 3c 2d ┆ x3 ; NB w1<->w3 g1<-┆
0x2f2c0…2f2e0 3e 67 32 0a 2f 2c 6c 2e 2f 72 6c 77 33 62 31 2f 2c 64 20 32 2c 69 2f 0a 20 20 20 20 20 72 6c 2e ┆>g2 /,l./rlw3b1/,d 2,i/ rl.┆
0x2f2e0…2f300 20 77 30 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 77 30 3a 3d 72 65 73 75 6c 74 20 6f 66 20 ┆ w0 h1. ; w0:=result of ┆
0x2f300…2f320 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 73 6f ┆test users and reserver; so┆
0x2f320…2f340 20 20 77 30 20 20 20 20 20 32 2e 30 31 30 30 20 3b 20 20 69 66 20 6e 6f 74 20 61 6e 79 20 6f 74 ┆ w0 2.0100 ; if not any ot┆
0x2f340…2f360 68 65 72 20 75 73 65 72 73 20 74 68 65 6e 0a 2f 2c 6c 2e 2f 67 33 3a 2f 2c 6c 2e 2f 6a 35 2e 2f ┆her users then /,l./g3:/,l./j5./┆
0x2f360…2f380 2c 6c 31 2c 69 2f 0a 68 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆,l1,i/ h0: 0 ; ┆
0x2f380…2f3a0 20 61 64 64 72 20 69 6e 20 6e 61 6d 65 20 74 61 62 6c 65 3b 0a 68 31 3a 20 20 30 20 20 20 20 20 ┆ addr in name table; h1: 0 ┆
0x2f3a0…2f3c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 72 65 73 75 6c 74 20 61 66 20 74 65 73 74 20 75 73 ┆ ; result af test us┆
0x2f3c0…2f3e0 65 72 73 20 61 6e 64 20 72 65 73 65 72 76 65 72 3b 0a 2f 2c 6c 2e 2f 6d 31 34 39 3a 2f 2c 6c 2e ┆ers and reserver; /,l./m149:/,l.┆
0x2f3e0…2f400 2f 72 6c 77 32 78 32 2b 30 2f 2c 64 2e 2f 73 6f 77 30 28 78 32 2b 61 35 32 29 2f 2c 69 2f 0a 20 ┆/rlw2x2+0/,d./sow0(x2+a52)/,i/ ┆