|
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
Length: 1505280 (0x16f800)
Types: Rc489kSubCat
Names: »kkmon0filer«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »kkmon0filer«
0x000000…000033 (0,) Rc489kSubCatEnt {f00=0x002833, f01=0x0007e4, f02=0x0007ed, filename=»kkmonret0 «, entry_tail=0-4-0-18-1982-02-22T15:32-disc3-0x0-0x0-0x0-0x0}
0x000033…000066 Rc489kSubCatEnt {f00=0x014d5a, f01=0x0007e4, f02=0x0007ed, filename=»kkopt0 «, entry_tail=0-4-0-20-1982-02-15T11:24-disc-0x0-0x0-0x0-0x0}
0x000066…000099 Rc489kSubCatEnt {f00=0x0283da, f01=0x0007e4, f02=0x0007ed, filename=»kklistopt0 «, entry_tail=0-4-0-20-1982-02-15T11:22-disc-0x0-0x0-0x0-0x0}
0x000099…0000cc Rc489kSubCatEnt {f00=0x03ca28, f01=0x0007e4, f02=0x0007ed, filename=»mondef «, entry_tail=0-4-0-30-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x0000cc…0000ff Rc489kSubCatEnt {f00=0x05a408, f01=0x0007e4, f02=0x0007ed, filename=»moncentral «, entry_tail=0-4-0-87-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x0000ff…000132 Rc489kSubCatEnt {f00=0x0b1600, f01=0x0007e4, f02=0x0007ed, filename=»monprocs «, entry_tail=0-4-0-253-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x000132…000165 Rc489kSubCatEnt {f00=0x1ae5a0, f01=0x0007e4, f02=0x0007ed, filename=»mondisc «, entry_tail=0-4-0-158-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x000165…000198 Rc489kSubCatEnt {f00=0x24cdc8, f01=0x0007e4, f02=0x0007ed, filename=»monfpaline «, entry_tail=0-4-0-130-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x000198…0001cb Rc489kSubCatEnt {f00=0x2ce230, f01=0x0007e4, f02=0x0007ed, filename=»monhost «, entry_tail=0-4-0-83-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x0001cb…0001fe Rc489kSubCatEnt {f00=0x321bc0, f01=0x0007e4, f02=0x0007ed, filename=»monfpasub «, entry_tail=0-4-0-164-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x0001fe…000231 Rc489kSubCatEnt {f00=0x3c5458, f01=0x0007e4, f02=0x0007ed, filename=»montabinit «, entry_tail=0-4-0-22-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x000231…000264 Rc489kSubCatEnt {f00=0x3db2c0, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc1 «, entry_tail=0-4-0-79-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x000264…000297 Rc489kSubCatEnt {f00=0x42aac0, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc2 «, entry_tail=0-4-0-244-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x000297…0002ca Rc489kSubCatEnt {f00=0x51e420, f01=0x0007e4, f02=0x0007ed, filename=»mons1 «, entry_tail=0-4-0-90-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x0002ca…0002fd Rc489kSubCatEnt {f00=0x578c20, f01=0x0007e4, f02=0x0007ed, filename=»mons2 «, entry_tail=0-4-0-92-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x0002fd…000300 0x000019
0x000300…000333 Rc489kSubCatEnt {f00=0x5d4140, f01=0x0007e4, f02=0x0007ed, filename=»moncatinit «, entry_tail=0-4-0-124-1982-02-10T09:04-disc3-0x0-0x0-0x0-0x0}
0x000333…000366 Rc489kSubCatEnt {f00=0x65067a, f01=0x0007e4, f02=0x0007ed, filename=»kkfpret0 «, entry_tail=0-4-0-4-1981-07-15T11:21-disc1-0x0-0x0-0x0-0x0}
0x000366…000399 Rc489kSubCatEnt {f00=0x654b4b, f01=0x0007e4, f02=0x0007ed, filename=»fptext1 «, entry_tail=0-4-0-68-1979-11-13T11:57-disc1-0x0-0x0-0x0-0x0}
0x000399…0003cc Rc489kSubCatEnt {f00=0x6980fb, f01=0x0007e4, f02=0x0007ed, filename=»kkclaimret «, entry_tail=0-4-0-3-1980-10-21T11:48-disc1-0x0-0x0-0x0-0x0}
0x0003cc…0003ff Rc489kSubCatEnt {f00=0x69b05b, f01=0x0007e4, f02=0x0007ed, filename=»tclaim «, entry_tail=0-4-0-25-1980-03-26T09:31-disc1-0x0-0x0-0x0-0x0}
0x0003ff…000432 Rc489kSubCatEnt {f00=0x6b48ab, f01=0x0007e4, f02=0x0007ed, filename=»kkclaimt «, entry_tail=0-4-0-26-1980-01-08T12:10-disc1-0x0-0x0-0x0-0x0}
0x000432…000465 Rc489kSubCatEnt {f00=0x6ce4a3, f01=0x0007e4, f02=0x0007ed, filename=»kkclaimwt1 «, entry_tail=0-4-0-26-1979-12-05T20:37-disc1-0x0-0x0-0x0-0x0}
0x000465…000498 Rc489kSubCatEnt {f00=0x6e816b, f01=0x0007e4, f02=0x0007ed, filename=»fptext2 «, entry_tail=0-4-0-104-1979-11-13T11:57-disc1-0x0-0x0-0x0-0x0}
0x000498…0004cb Rc489kSubCatEnt {f00=0x750723, f01=0x0007e4, f02=0x0007ed, filename=»fptext3 «, entry_tail=0-4-0-81-1979-11-13T11:58-disc1-0x0-0x0-0x0-0x0}
0x0004cb…0004fe Rc489kSubCatEnt {f00=0x7a189b, f01=0x0007e4, f02=0x0007ed, filename=»inf0 «, entry_tail=0-4-0-1-1980-10-21T11:55-disc1-0x0-0x0-0x0-0x0}
0x0004fe…000500 3c 54 ┆<T┆
0x000500…000520 58 00 07 e4 00 07 ed 6d 6f 6e 74 61 62 69 6e 69 74 00 00 00 00 16 64 69 73 63 33 00 00 00 00 00 ┆X montabinit disc3 ┆
0x000520…000540 00 00 81 9c 49 00 00 00 00 00 00 00 00 00 00 00 00 3d b2 c0 00 07 e4 00 07 ed 6d 6f 6e 70 72 6f ┆ I = monpro┆
0x000540…000560 63 66 6e 63 31 00 00 00 4f 64 69 73 63 33 00 00 00 00 00 00 00 81 9c 49 00 00 00 00 00 00 00 00 ┆cfnc1 Odisc3 I ┆
0x000560…000580 00 00 00 00 42 aa c0 00 07 e4 00 07 ed 6d 6f 6e 70 72 6f 63 66 6e 63 32 00 00 00 f4 64 69 73 63 ┆ B monprocfnc2 disc┆
0x000580…0005a0 33 00 00 00 00 00 00 00 81 9c 49 00 00 00 00 00 00 00 00 00 00 00 00 51 e4 20 00 07 e4 00 07 ed ┆3 I Q ┆
0x0005a0…0005c0 6d 6f 6e 73 31 00 00 00 00 00 00 00 00 00 5a 64 69 73 63 33 00 00 00 00 00 00 00 81 9c 49 00 00 ┆mons1 Zdisc3 I ┆
0x0005c0…0005e0 00 00 00 00 00 00 00 00 00 00 57 8c 20 00 07 e4 00 07 ed 6d 6f 6e 73 32 00 00 00 00 00 00 00 00 ┆ W mons2 ┆
0x0005e0…000600 00 5c 64 69 73 63 33 00 00 00 00 00 00 00 81 9c 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Ødisc3 I ┆
0x000600…003c00 Data for kkmonret0
0x003c00…007800 Data for kkopt0
0x007800…00b400 Data for kklistopt0
0x00b400…010e00 (20,) Data for mondef
0x010e00…021300 (30,) Data for moncentral
0x021300…050a00 (59,) Data for monprocs
0x050a00…06e400 Data for mondisc
0x06e400…086a00 (196,) Data for monfpaline
0x086a00…096300 Data for monhost
0x096300…0b4f00 (267,) Data for monfpasub
0x0b4f00…0b9100 Data for montabinit
0x0b9100…0c7e00 (329,) Data for monprocfnc1
0x0c7e00…0f5a00 Data for monprocfnc2
0x0f5a00…106800 Data for mons1
0x106800…117c00 Data for mons2
0x117c00…12f000 Data for moncatinit
0x12f000…12fc00 Data for kkfpret0
0x12fc00…13c800 (540,) Data for fptext1
0x13c800…13d100 Data for kkclaimret
0x13d100…141c00 Data for tclaim
0x141c00…146a00 (572,) Data for kkclaimt
0x146a00…14b800 Data for kkclaimwt1
0x14b800…15f000 Data for fptext2
0x15f000…16e300 (624,) Data for fptext3
0x16e300…16e600 (651,) Data for inf0
0x16e600…16e620 20 67 33 34 20 20 20 20 20 20 20 3b 20 20 65 78 61 6d 20 73 65 6e 64 65 72 0a 20 20 20 20 20 6a ┆ g34 ; exam sender j┆
0x16e620…16e640 6c 2e 20 20 20 20 20 69 33 2e 20 20 20 20 20 20 20 3b 20 73 74 6f 70 70 65 64 3a 20 67 6f 74 6f ┆l. i3. ; stopped: goto┆
0x16e640…16e660 20 73 74 6f 70 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 67 33 31 20 20 20 ┆ stop-return jl w3 g31 ┆
0x16e660…16e680 20 20 20 20 3b 20 6f 6b 3a 20 69 6e 63 72 65 61 73 65 20 73 74 6f 70 20 63 6f 75 6e 74 0a 0a 3b ┆ ; ok: increase stop count ;┆
0x16e680…16e6a0 20 72 65 74 75 72 6e 20 74 6f 20 3c 6c 69 6e 6b 2b 32 3e 0a 0a 69 32 3a 20 20 72 6c 2e 20 77 33 ┆ return to <link+2> i2: rl. w3┆
0x16e6a0…16e6c0 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 6f 6b 2d 72 65 74 75 72 6e 3a 0a 20 20 20 20 20 6a 6c ┆ j0. ; ok-return: jl┆
0x16e6c0…16e6e0 20 20 20 20 20 20 78 33 2b 32 20 20 20 20 20 20 3b 0a 0a 3b 20 73 74 6f 70 20 63 6f 75 6e 74 20 ┆ x3+2 ; ; stop count ┆
0x16e6e0…16e700 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 69 6e 63 72 65 61 73 65 64 2e 20 64 65 6c 69 76 65 72 20 ┆could not be increased. deliver ┆
0x16e700…16e720 61 6e 73 77 65 72 0a 0a 69 33 3a 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b ┆answer i3: al w0 0 ;┆
0x16e720…16e740 20 20 6d 65 73 73 61 67 65 20 65 6e 74 72 79 3a 3d 20 30 0a 20 20 20 20 20 20 72 73 20 20 77 30 ┆ message entry:= 0 rs w0┆
0x16e740…16e760 20 20 78 31 2b 70 31 32 20 20 20 20 3b 20 20 73 74 61 74 65 28 73 75 62 70 72 6f 63 29 3a 3d 20 ┆ x1+p12 ; state(subproc):= ┆
0x16e760…16e780 72 65 61 64 79 3b 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 28 6a 31 2e 29 20 20 20 20 20 3b 20 ┆ready; rs. w0 (j1.) ; ┆
0x16e780…16e7a0 20 69 66 20 6d 65 73 3d 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 28 73 75 62 70 72 6f 63 29 ┆ if mes=current message(subproc)┆
0x16e7a0…16e7c0 20 74 68 65 6e 0a 20 20 20 20 20 73 6e 20 20 77 32 20 20 28 78 31 2b 70 31 33 29 20 20 3b 20 20 ┆ then sn w2 (x1+p13) ; ┆
0x16e7c0…16e7e0 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 28 73 75 62 70 72 6f 63 29 3a 3d 20 30 0a 20 20 20 ┆current message(subproc):= 0 ┆
0x16e7e0…16e800 20 20 72 73 20 20 77 30 20 20 78 31 2b 70 31 33 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 ┆ rs w0 x1+p13 ; al w┆
0x16e800…16e820 33 20 20 31 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 70 ┆3 1 ; ba w3 x1+p┆
0x16e820…16e840 31 36 20 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 33 20 20 78 31 2b 70 31 36 20 20 20 20 3b ┆16 ; hs w3 x1+p16 ;┆
0x16e840…16e860 20 20 66 72 65 65 20 62 75 66 66 65 72 73 3a 3d 20 66 72 65 65 20 62 75 66 66 65 72 73 2b 31 0a ┆ free buffers:= free buffers+1 ┆
0x16e860…16e880 63 2e 70 31 30 31 20 62 2e 66 31 20 77 2e 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 ┆c.p101 b.f1 w. ;*****tes┆
0x16e880…16e8a0 74 35 31 2a 2a 2a 2a 2a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 66 30 2e 20 20 20 20 20 20 20 ┆t51***** rs. w3 f0. ┆
0x16e8a0…16e8c0 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 34 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 ┆;* jl. w3 f4. ;* ┆
0x16e8c0…16e8e0 20 20 35 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 0a 66 30 3a 20 20 30 20 20 20 ┆ 51 ;* f0: 0 ┆
0x16e8e0…16e900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 66 31 ┆ ;* jl. f1┆
0x16e900…16e920 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 2b 70 31 31 20 20 ┆. ;* al w0 x1+p11 ┆
0x16e920…16e940 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 70 31 39 2b 31 34 20 3b 2a 0a 20 ┆ ;* al w1 x1+p19+14 ;* ┆
0x16e940…16e960 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e 20 20 20 20 20 20 20 3b 2a 0a 66 31 3a 20 20 20 20 ┆ jl. w3 f5. ;* f1: ┆
0x16e960…16e980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 0a 65 2e 7a 2e 20 20 20 20 20 20 20 20 20 ┆ ;* e.z. ┆
0x16e980…16e9a0 20 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 31 2a 2a 2a 2a 2a 0a 20 20 20 20 ┆ ;*****test51***** ┆
0x16e9a0…16e9c0 20 6a 6c 2e 20 77 33 20 20 75 36 2e 20 20 20 20 20 20 20 3b 20 20 70 72 65 70 61 72 65 20 61 6e ┆ jl. w3 u6. ; prepare an┆
0x16e9c0…16e9e0 73 77 65 72 20 61 66 74 65 72 20 73 74 6f 70 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 67 31 38 ┆swer after stop jl w3 g18┆
0x16e9e0…16ea00 20 20 20 20 20 20 20 3b 20 20 64 65 6c 69 76 65 72 20 20 72 65 73 75 6c 74 28 31 29 0a 20 20 20 ┆ ; deliver result(1) ┆
0x16ea00…16ea20 20 20 6a 6c 2e 20 20 20 20 20 28 6a 30 2e 29 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 3c 6c 69 6e ┆ jl. (j0.) ; goto <lin┆
0x16ea20…16ea40 6b 3e 0a 0a 6a 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 73 61 ┆k> j0: 0 ; sa┆
0x16ea40…16ea60 76 65 64 20 6c 69 6e 6b 0a 6a 31 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ved link j1: 0 ┆
0x16ea60…16ea80 3b 20 20 73 61 76 65 64 20 65 6e 74 72 79 0a 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; saved entry e. ┆
0x16ea80…16eaa0 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 74 65 73 74 20 61 6e 64 20 69 6e 63 72 65 61 73 ┆ ; end of test and increas┆
0x16eaa0…16eac0 65 20 73 74 6f 70 20 63 6f 75 6e 74 0a 0c 3b 20 66 70 61 2d 73 75 62 70 72 6f 63 20 20 20 20 20 ┆e stop count ; fpa-subproc ┆
0x16eac0…16eae0 20 20 20 20 20 63 6f 6d 6d 6f 6e 20 70 72 6f 63 65 64 75 72 65 73 0a 3b 20 65 6c 69 2c 20 38 2e ┆ common procedures ; eli, 8.┆
0x16eae0…16eb00 36 2e 31 39 37 37 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 73 65 74 20 6c 69 6e 6b 70 61 72 61 ┆6.1977 ; procedure set linkpara┆
0x16eb00…16eb20 6d 73 0a 3b 0a 3b 20 63 6f 70 69 65 73 20 74 68 65 20 66 69 65 6c 64 73 20 64 65 76 68 6f 73 74 ┆ms ; ; copies the fields devhost┆
0x16eb20…16eb40 20 6c 69 6e 6b 6e 6f 2c 20 6a 6f 62 68 6f 73 74 20 6c 69 6e 6b 6e 6f 2c 0a 3b 20 64 65 76 68 6f ┆ linkno, jobhost linkno, ; devho┆
0x16eb40…16eb60 73 74 20 68 6f 73 74 2d 69 64 2c 20 64 65 76 68 6f 73 74 20 6e 65 74 2d 69 64 20 61 6e 64 20 64 ┆st host-id, devhost net-id and d┆
0x16eb60…16eb80 65 76 68 6f 73 74 0a 3b 20 68 6f 6d 65 2d 72 65 67 20 74 6f 20 74 68 65 20 6d 61 69 6e 70 72 6f ┆evhost ; home-reg to the mainpro┆
0x16eb80…16eba0 63 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 3b 0a 3b 20 61 6c 73 6f 20 63 6f 70 69 65 73 20 74 68 ┆c parameters. ; ; also copies th┆
0x16eba0…16ebc0 65 20 62 75 66 66 65 72 6e 6f 20 6f 66 20 74 68 65 20 6c 69 6e 6b 20 61 6e 64 20 73 65 74 73 20 ┆e bufferno of the link and sets ┆
0x16ebc0…16ebe0 74 68 65 0a 3b 20 6d 6f 6e 69 74 6f 72 20 61 64 64 72 65 73 73 20 63 6f 64 65 20 74 6f 20 27 6e ┆the ; monitor address code to 'n┆
0x16ebe0…16ec00 6f 20 63 68 65 63 6b 27 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 ┆o check'. ; ; call ┆
0x16ec00…16ec20 (652,) 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 20 20 20 20 ┆ return ; w0 ┆
0x16ec20…16ec40 20 75 6e 64 65 66 69 6e 65 64 0a 3b 20 20 77 31 20 20 20 20 73 75 62 70 72 6f 63 20 20 20 20 20 ┆ undefined ; w1 subproc ┆
0x16ec40…16ec60 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ unchanged ; w2 ┆
0x16ec60…16ec80 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 20 77 33 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 ┆ unchanged ; w3 link ┆
0x16ec80…16eca0 20 20 20 20 6d 61 69 6e 70 72 6f 63 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 32 ┆ mainproc b. i10, j10 w. u2┆
0x16eca0…16ecc0 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 74 20 6c 69 6e 6b 70 ┆5: ; set linkp┆
0x16ecc0…16ece0 61 72 61 6d 73 3a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 ┆arams: rs. w3 j0. ; ┆
0x16ece0…16ed00 20 73 61 76 65 20 6c 69 6e 6b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 61 35 30 20 20 ┆ save link rl w3 x1+a50 ┆
0x16ed00…16ed20 20 20 3b 20 20 6d 61 69 6e 3a 3d 20 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 0a 20 20 ┆ ; main:= mainproc(subproc) ┆
0x16ed20…16ed40 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 70 31 31 20 20 20 20 3b 20 20 72 65 63 65 69 76 65 72 ┆ bz w0 x1+p11 ; receiver┆
0x16ed40…16ed60 20 6c 69 6e 6b 6e 6f 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b ┆ linkno(main):= hs w0 x3+┆
0x16ed60…16ed80 70 36 39 20 20 20 20 3b 20 20 20 64 65 76 68 6f 73 74 20 6c 69 6e 6b 6e 6f 28 73 75 62 70 72 6f ┆p69 ; devhost linkno(subpro┆
0x16ed80…16eda0 63 29 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 70 39 20 20 20 20 20 3b 20 20 73 65 6e ┆c) bz w0 x1+p9 ; sen┆
0x16eda0…16edc0 64 65 72 20 6c 69 6e 6b 6e 6f 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 ┆der linkno(main):= hs w0 ┆
0x16edc0…16ede0 78 33 2b 70 37 38 20 20 20 20 3b 20 20 20 6a 6f 62 68 6f 73 74 20 6c 69 6e 6b 6e 6f 28 73 75 62 ┆x3+p78 ; jobhost linkno(sub┆
0x16ede0…16ee00 70 72 6f 63 29 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 70 37 20 20 20 20 20 3b 20 20 ┆proc) bz w0 x1+p7 ; ┆
0x16ee00…16ee20 72 65 63 65 69 76 65 72 20 6e 65 74 2d 69 64 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 68 73 20 ┆receiver net-id(main):= hs ┆
0x16ee20…16ee40 20 77 30 20 20 78 33 2b 70 33 30 31 20 20 20 3b 20 20 20 64 65 76 68 6f 73 74 20 6e 65 74 2d 69 ┆ w0 x3+p301 ; devhost net-i┆
0x16ee40…16ee60 64 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 70 36 20 20 20 ┆d(subproc) bz w0 x1+p6 ┆
0x16ee60…16ee80 20 20 3b 20 20 72 65 63 65 69 76 65 72 20 68 6f 6d 65 2d 72 65 67 28 6d 61 69 6e 29 3a 3d 0a 20 ┆ ; receiver home-reg(main):= ┆
0x16ee80…16eea0 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 70 33 30 32 20 20 20 3b 20 20 20 64 65 76 68 6f 73 ┆ hs w0 x3+p302 ; devhos┆
0x16eea0…16eec0 74 20 68 6f 6d 65 2d 72 65 67 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 72 6c 20 20 77 30 20 ┆t home-reg(subproc) rl w0 ┆
0x16eec0…16eee0 20 78 31 2b 70 35 20 20 20 20 20 3b 20 20 72 65 63 65 69 76 65 72 20 68 6f 73 74 2d 69 64 28 6d ┆ x1+p5 ; receiver host-id(m┆
0x16eee0…16ef00 61 69 6e 29 3a 3d 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 70 33 30 33 20 20 20 3b 20 ┆ain):= rs w0 x3+p303 ; ┆
0x16ef00…16ef20 20 20 64 65 76 68 6f 73 74 20 68 6f 73 74 2d 69 64 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 ┆ devhost host-id(subproc) ┆
0x16ef20…16ef40 62 7a 20 20 77 30 20 20 78 31 2b 70 31 37 20 20 20 20 3b 20 20 62 75 66 6e 6f 28 6d 61 69 6e 29 ┆bz w0 x1+p17 ; bufno(main)┆
0x16ef40…16ef60 3a 3d 20 62 75 66 6e 6f 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 ┆:= bufno(subproc) hs w0 x┆
0x16ef60…16ef80 33 2b 70 36 38 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3+p68 ; ┆
0x16ef80…16efa0 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 28 6a 30 2e 29 20 20 20 20 20 3b 20 20 67 6f ┆ ; jl. (j0.) ; go┆
0x16efa0…16efc0 74 6f 20 72 65 74 75 72 6e 0a 0a 6a 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆to return j0: 0 ┆
0x16efc0…16efe0 20 20 3b 20 73 61 76 65 64 20 6c 69 6e 6b 0a 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; saved link e. ┆
0x16efe0…16f000 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 73 65 74 20 6c 69 6e 6b 70 61 72 61 6d 73 0a 0c ┆ ; end of set linkparams ┆
0x16f000…16f020 3b 20 66 70 61 2d 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 20 70 72 ┆; fpa-subproc common pr┆
0x16f020…16f040 6f 63 65 64 75 72 65 73 0a 3b 20 65 6c 69 2c 20 38 2e 36 2e 31 39 37 37 0a 0a 3b 20 70 72 6f 63 ┆ocedures ; eli, 8.6.1977 ; proc┆
0x16f040…16f060 65 64 75 72 65 20 74 65 73 74 6c 69 6e 6b 0a 3b 0a 3b 20 74 65 73 74 73 2c 20 74 68 61 74 20 74 ┆edure testlink ; ; tests, that t┆
0x16f060…16f080 68 65 20 6d 61 69 6e 70 72 6f 63 20 70 61 72 61 6d 65 74 65 72 73 20 73 65 6e 64 65 72 20 6c 69 ┆he mainproc parameters sender li┆
0x16f080…16f0a0 6e 6b 6e 6f 2c 20 73 65 6e 64 65 72 20 68 6f 73 74 2d 69 64 0a 3b 20 61 6e 64 20 73 65 6e 64 65 ┆nkno, sender host-id ; and sende┆
0x16f0a0…16f0c0 72 20 6e 65 74 2d 69 64 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 ┆r net-id are equal to the parame┆
0x16f0c0…16f0e0 74 65 72 73 20 64 65 76 68 6f 73 74 20 6c 69 6e 6b 6e 6f 2c 0a 3b 20 64 65 76 68 6f 73 74 20 68 ┆ters devhost linkno, ; devhost h┆
0x16f0e0…16f100 6f 73 74 2d 69 64 20 61 6e 64 20 64 65 76 68 6f 73 74 20 6e 65 74 2d 69 64 20 69 6e 20 74 68 65 ┆ost-id and devhost net-id in the┆
0x16f100…16f120 20 73 75 62 70 72 6f 63 2e 0a 3b 0a 3b 20 69 66 20 6e 6f 74 20 65 71 75 61 6c 2c 20 72 65 74 75 ┆ subproc. ; ; if not equal, retu┆
0x16f120…16f140 72 6e 20 77 69 6c 6c 20 62 65 20 6d 61 64 65 20 74 6f 20 6c 69 6e 6b 2b 30 2c 20 6f 74 68 65 72 ┆rn will be made to link+0, other┆
0x16f140…16f160 77 69 73 65 0a 3b 20 74 6f 20 6c 69 6e 6b 2b 32 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 61 6c ┆wise ; to link+2. ; ; cal┆
0x16f160…16f180 6c 20 20 20 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 ┆l return ; w0 ┆
0x16f180…16f1a0 20 20 20 20 20 20 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 3b 20 20 77 31 20 20 20 20 73 75 62 70 ┆ undefined ; w1 subp┆
0x16f1a0…16f1c0 72 6f 63 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 20 77 32 20 20 20 20 20 20 20 ┆roc unchanged ; w2 ┆
0x16f1c0…16f1e0 20 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 70 72 6f 63 0a 3b 20 20 77 33 20 20 20 20 6c 69 6e ┆ mainproc ; w3 lin┆
0x16f1e0…16f200 6b 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 ┆k unchanged b. i10, j1┆
0x16f200…16f220 30 0a 77 2e 0a 0a 75 32 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 ┆0 w. u23: ; t┆
0x16f220…16f240 65 73 74 6c 69 6e 6b 3a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 35 30 20 20 20 20 ┆estlink: rl w2 x1+a50 ┆
0x16f240…16f260 3b 20 20 6d 61 69 6e 3a 3d 20 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 ┆; main:= mainproc(subproc) ┆
0x16f260…16f280 20 62 6c 20 20 77 30 20 20 78 32 2b 70 39 38 20 20 20 20 3b 20 20 69 66 20 73 65 6e 64 65 72 20 ┆ bl w0 x2+p98 ; if sender ┆
0x16f280…16f2a0 6c 69 6e 6b 6e 6f 28 6d 61 69 6e 29 3c 3e 0a 20 20 20 20 20 62 73 20 20 77 30 20 20 78 31 2b 70 ┆linkno(main)<> bs w0 x1+p┆
0x16f2a0…16f2c0 31 31 20 20 20 20 3b 20 20 20 20 20 64 65 76 68 6f 73 74 20 6c 69 6e 6b 6e 6f 28 73 75 62 70 72 ┆11 ; devhost linkno(subpr┆
0x16f2c0…16f2e0 6f 63 29 20 74 68 65 6e 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 ┆oc) then se w0 0 ┆
0x16f2e0…16f300 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 30 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 2b 30 ┆; goto link+0 jl x3+0┆
0x16f300…16f320 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 70 33 32 33 20 20 20 3b ┆ ; rl w0 x2+p323 ;┆
0x16f320…16f340 20 20 69 66 20 73 65 6e 64 65 72 20 68 6f 73 74 2d 69 64 28 6d 61 69 6e 29 3c 3e 0a 20 20 20 20 ┆ if sender host-id(main)<> ┆
0x16f340…16f360 20 73 65 20 20 77 30 20 20 28 78 31 2b 70 35 29 20 20 20 3b 20 20 20 20 20 64 65 76 68 6f 73 74 ┆ se w0 (x1+p5) ; devhost┆
0x16f360…16f380 20 68 6f 73 74 2d 69 64 28 73 75 62 70 72 6f 63 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 ┆ host-id(subproc) then jl ┆
0x16f380…16f3a0 20 20 20 20 78 33 2b 30 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 30 0a 20 20 20 ┆ x3+0 ; goto link+0 ┆
0x16f3a0…16f3c0 20 20 62 6c 20 20 77 30 20 20 78 32 2b 70 33 32 31 20 20 20 3b 20 20 69 66 20 73 65 6e 64 65 72 ┆ bl w0 x2+p321 ; if sender┆
0x16f3c0…16f3e0 20 6e 65 74 2d 69 64 28 6d 61 69 6e 29 3c 3e 0a 20 20 20 20 20 62 73 20 20 77 30 20 20 78 31 2b ┆ net-id(main)<> bs w0 x1+┆
0x16f3e0…16f400 70 37 20 20 20 20 20 3b 20 20 20 20 20 64 65 76 68 6f 73 74 20 6e 65 74 2d 69 64 28 73 75 62 70 ┆p7 ; devhost net-id(subp┆
0x16f400…16f420 72 6f 63 29 20 74 68 65 6e 0a 3b 20 20 20 20 73 65 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 ┆roc) then ; se w0 0 ┆
0x16f420…16f440 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 30 0a 3b 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 2b ┆ ; goto link+0 ; jl x3+┆
0x16f440…16f460 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 2b 32 20 20 20 20 20 20 ┆0 ; jl x3+2 ┆
0x16f460…16f480 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 32 0a 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; goto link+2 e. ┆
0x16f480…16f4a0 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 74 65 73 74 6c 69 6e 6b 0a 0c 3b 20 66 70 61 2d ┆ ; end of testlink ; fpa-┆
0x16f4a0…16f4c0 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 20 70 72 6f 63 65 64 75 72 ┆subproc common procedur┆
0x16f4c0…16f4e0 65 73 0a 3b 20 65 6c 69 2c 20 38 2e 36 2e 31 39 37 37 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 ┆es ; eli, 8.6.1977 ; procedure ┆
0x16f4e0…16f500 72 65 6a 65 63 74 0a 3b 0a 3b 20 73 65 74 73 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 73 74 61 ┆reject ; ; sets the internal sta┆
0x16f500…16f520 (653,) 74 75 73 20 6f 66 20 6d 61 69 6e 70 72 6f 63 20 74 6f 20 27 72 65 6a 65 63 74 27 0a 3b 20 61 6e ┆tus of mainproc to 'reject' ; an┆
0x16f520…16f540 64 20 6a 75 6d 70 73 20 74 6f 20 74 65 73 74 6d 6f 72 65 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 ┆d jumps to testmore ; ; c┆
0x16f540…16f560 61 6c 6c 20 20 20 20 20 20 20 20 20 20 6e 6f 20 72 65 74 75 72 6e 0a 3b 20 20 77 30 0a 3b 20 20 ┆all no return ; w0 ; ┆
0x16f560…16f580 77 31 20 20 20 20 73 75 62 70 72 6f 63 0a 3b 20 20 77 32 0a 3b 20 20 77 33 0a 0a 62 2e 20 69 31 ┆w1 subproc ; w2 ; w3 b. i1┆
0x16f580…16f5a0 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 32 34 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0, j10 w. u24: ┆
0x16f5a0…16f5c0 20 20 3b 20 72 65 6a 65 63 74 3a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 70 31 36 33 20 20 20 ┆ ; reject: al w0 p163 ┆
0x16f5c0…16f5e0 20 20 20 3b 20 20 69 6e 74 65 72 6e 61 6c 20 73 74 61 74 75 73 28 6d 61 69 6e 70 72 6f 63 28 73 ┆ ; internal status(mainproc(s┆
0x16f5e0…16f600 75 62 70 72 6f 63 29 3a 3d 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 28 78 31 2b 61 35 30 29 20 ┆ubproc):= am (x1+a50) ┆
0x16f600…16f620 20 3b 20 20 72 65 6a 65 63 74 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 2b 70 38 30 20 20 20 20 ┆ ; reject hs w0 +p80 ┆
0x16f620…16f640 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 32 2e 20 20 20 20 20 20 20 3b 20 20 67 6f ┆ ; jl. u2. ; go┆
0x16f640…16f660 74 6f 20 74 65 73 74 6d 6f 72 65 0a 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆to testmore e. ┆
0x16f660…16f680 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 72 65 6a 65 63 74 0a 0c 3b 20 66 70 61 2d 73 75 62 70 72 ┆ ; end of reject ; fpa-subpr┆
0x16f680…16f6a0 6f 63 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 20 70 72 6f 63 65 64 75 72 65 73 0a 3b 20 ┆oc common procedures ; ┆
0x16f6a0…16f6c0 65 6c 69 2c 20 37 2e 38 2e 31 39 37 35 0a 0a 3b 20 74 65 73 74 6d 6f 72 65 0a 3b 0a 3b 20 65 6e ┆eli, 7.8.1975 ; testmore ; ; en┆
0x16f6c0…16f6e0 74 65 72 65 64 2c 20 77 68 65 6e 20 74 68 65 20 73 75 62 70 72 6f 63 2d 73 74 61 74 65 20 73 68 ┆tered, when the subproc-state sh┆
0x16f6e0…16f700 6f 75 6c 64 20 62 65 20 74 65 73 74 65 64 20 66 6f 72 20 6d 6f 72 65 20 6d 65 73 73 61 67 65 73 ┆ould be tested for more messages┆
0x16f700…16f720 20 74 6f 0a 3b 20 70 72 6f 63 65 73 73 2e 0a 3b 0a 3b 20 69 66 20 74 68 65 20 73 74 61 74 65 20 ┆ to ; process. ; ; if the state ┆
0x16f720…16f740 6f 66 20 74 68 65 20 73 75 62 70 72 6f 63 20 69 73 20 66 72 65 65 2c 20 61 6e 64 20 6d 6f 72 65 ┆of the subproc is free, and more┆
0x16f740…16f760 20 6d 65 73 73 61 67 65 73 20 74 6f 20 70 72 6f 63 65 73 73 20 65 78 69 73 74 0a 3b 20 74 68 65 ┆ messages to process exist ; the┆
0x16f760…16f780 20 73 75 62 70 72 6f 63 20 69 73 20 6c 69 6e 6b 65 64 20 74 6f 20 74 68 65 20 6d 61 69 6e 70 72 ┆ subproc is linked to the mainpr┆
0x16f780…16f7a0 6f 63 2e 0a 3b 0a 3b 20 72 65 74 75 72 6e 20 69 73 20 6d 61 64 65 20 74 68 72 6f 75 67 68 20 74 ┆oc. ; ; return is made through t┆
0x16f7a0…16f7c0 68 65 20 63 6f 6d 6d 6f 6e 20 72 65 74 75 72 6e 2e 0a 3b 0a 3b 20 75 70 6f 6e 20 65 6e 74 72 79 ┆he common return. ; ; upon entry┆
0x16f7c0…16f7e0 3a 0a 3b 0a 3b 20 20 77 30 20 20 20 20 0a 3b 20 20 77 31 0a 3b 20 20 77 32 20 20 20 0a 3b 20 20 ┆: ; ; w0 ; w1 ; w2 ; ┆
0x16f7e0…16f800 77 33 0a 3b 20 20 62 31 39 20 20 20 20 73 75 62 70 72 6f 63 0a 0a 62 2e 69 31 30 2c 20 6a 31 30 ┆w3 ; b19 subproc b.i10, j10┆