|
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: 241920 (0x3b100)
Types: Rc489kSubCat
Names: »ccompose«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »ccompose«
0x00000…00033 Rc489kSubCatEnt {f00=0x0016b2, f01=0x0007e4, f02=0x0007ed, filename=»comind «, entry_tail=0-4-0-3-1981-01-07T11:56-disc1-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x00444a, f01=0x0007e4, f02=0x0007ed, filename=»combes «, entry_tail=0-4-0-25-1981-01-07T11:56-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x01d01a, f01=0x0007e4, f02=0x0007ed, filename=»appenab «, entry_tail=0-4-0-1-1981-01-07T11:57-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x01e83a, f01=0x0007e4, f02=0x0007ed, filename=»apendixb «, entry_tail=0-4-0-6-1981-01-07T11:58-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x024f2a, f01=0x0007e4, f02=0x0007ed, filename=»typolb «, entry_tail=0-4-0-20-1981-01-07T12:56-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x03811a, f01=0x0007e4, f02=0x0007ed, filename=»appx «, entry_tail=0-4-0-3-1981-01-07T12:00-disc1-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x03b962, f01=0x0007e4, f02=0x0007ed, filename=»ermes «, entry_tail=0-4-0-9-1981-01-07T12:27-disc1-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x04420a, f01=0x0007e4, f02=0x0007ed, filename=»dbes «, entry_tail=0-4-0-2-1981-01-07T13:00-disc1-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x0461e2, f01=0x0007e4, f02=0x0007ed, filename=»lpbes «, entry_tail=0-4-0-2-1981-01-07T12:58-disc1-0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x048e62, f01=0x0007e4, f02=0x0007ed, filename=»dia1620 «, entry_tail=0-4-0-2-1981-01-07T12:59-disc1-0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x04a1d2, f01=0x0007e4, f02=0x0007ed, filename=»comref «, entry_tail=0-4-0-1-1981-01-07T12:30-disc1-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x04b582, f01=0x0007e4, f02=0x0007ed, filename=»tcompose «, entry_tail=0-4-0-142-1981-01-07T11:49-disc1-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x0d97ea, f01=0x0007e4, f02=0x0007ed, filename=»tinp «, entry_tail=0-4-0-52-1981-01-07T11:50-disc1-0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x10df1a, f01=0x0007e4, f02=0x0007ed, filename=»tdiablo «, entry_tail=0-4-0-14-1981-01-07T11:53-disc1-0x0-0x0-0x0-0x0}
0x002ca…002e0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
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 0x00000e
0x00300…00c00 Data for comind
0x00c00…05700 Data for combes
0x05700…05a00 Data for appenab
0x05a00…06c00 Data for apendixb
0x06c00…0a800 Data for typolb
0x0a800…0b100 Data for appx
0x0b100…0cc00 Data for ermes
0x0cc00…0d200 Data for dbes
0x0d200…0d800 Data for lpbes
0x0d800…0de00 Data for dia1620
0x0de00…0e100 Data for comref
0x0e100…28b00 Data for tcompose
0x28b00…32700 Data for tinp
0x32700…35100 Data for tdiablo
0x35100…35120 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 20 20 20 ┆nchanged ; w2 ┆
0x35120…35140 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 20 20 20 ┆unchanged ; w3 link ┆
0x35140…35160 20 75 6e 64 65 66 69 6e 65 64 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 32 30 3a ┆ undefined b. i10, j10 w. u20:┆
0x35160…35180 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 6e 73 77 65 72 ┆ ; test answer┆
0x35180…351a0 20 61 74 74 65 6e 74 69 6f 6e 3a 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 70 31 32 20 ┆ attention: rl w0 x1+p12 ┆
0x351a0…351c0 20 20 20 3b 20 20 69 66 20 61 6e 73 77 65 72 20 61 74 74 65 6e 74 69 6f 6e 28 73 74 61 74 65 28 ┆ ; if answer attention(state(┆
0x351c0…351e0 73 75 62 70 72 6f 63 29 29 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 73 6f 20 20 77 30 20 20 76 37 ┆subproc))=0 then so w0 v7┆
0x351e0…35200 31 20 20 20 20 20 20 20 3b 20 20 72 65 74 75 72 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 ┆1 ; return jl x┆
0x35200…35220 33 20 20 20 20 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 ; ┆
0x35220…35240 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 61 35 30 20 20 20 20 3b 20 20 6d 61 ┆ ; rl w3 x1+a50 ; ma┆
0x35240…35260 69 6e 3a 3d 20 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 0a 63 2e 20 70 31 30 33 2d 31 ┆in:= mainproc(subproc) c. p103-1┆
0x35260…35280 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 38 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 65 73 ┆ al w0 8 ; addres┆
0x35280…352a0 73 63 6f 64 65 28 6d 61 69 6e 29 3a 3d 20 27 20 6e 6f 20 63 68 65 63 6b 20 27 0a 20 20 20 20 20 ┆scode(main):= ' no check ' ┆
0x352a0…352c0 68 73 20 20 77 30 20 20 78 33 2b 70 37 32 20 20 20 20 3b 0a 7a 2e 0a 20 20 20 20 20 6a 6c 2e 20 ┆hs w0 x3+p72 ; z. jl. ┆
0x352c0…352e0 77 33 20 20 75 32 35 2e 20 20 20 20 20 20 3b 20 20 73 65 74 20 6c 69 6e 6b 70 61 72 61 6d 73 0a ┆w3 u25. ; set linkparams ┆
0x352e0…35300 20 20 20 20 20 61 6c 20 20 77 30 20 20 76 35 39 20 20 20 20 20 20 20 3b 20 20 66 75 6e 63 74 69 ┆ al w0 v59 ; functi┆
0x35300…35320 6f 6e 28 6d 61 69 6e 29 3a 3d 20 61 6e 73 77 65 72 20 61 74 74 65 6e 74 69 6f 6e 0a 20 20 20 20 ┆on(main):= answer attention ┆
0x35320…35340 20 68 73 20 20 77 30 20 20 78 33 2b 70 36 31 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 ┆ hs w0 x3+p61 ; rl w0┆
0x35340…35360 20 20 78 31 2b 70 31 32 20 20 20 20 3b 20 20 62 75 66 6e 6f 28 6d 61 69 6e 29 3a 3d 20 72 69 67 ┆ x1+p12 ; bufno(main):= rig┆
0x35360…35380 68 74 6d 6f 73 74 20 38 20 62 69 74 73 0a 20 20 20 20 20 6c 61 20 20 77 30 20 20 67 35 33 20 20 ┆htmost 8 bits la w0 g53 ┆
0x35380…353a0 20 20 20 20 20 3b 20 20 20 28 73 74 61 74 65 28 73 75 62 70 72 6f 63 29 29 0a 20 20 20 20 20 68 ┆ ; (state(subproc)) h┆
0x353a0…353c0 73 20 20 77 30 20 20 78 33 2b 70 36 38 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s w0 x3+p68 ; ┆
0x353c0…353e0 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 28 62 31 30 31 29 20 ┆ ; jl (b101) ┆
0x353e0…35400 20 20 20 3b 20 20 67 6f 74 6f 20 6d 61 69 6e 70 72 6f 63 20 72 65 74 75 72 6e 0a 0a 65 2e 20 20 ┆ ; goto mainproc return e. ┆
0x35400…35420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 74 65 73 74 ┆ ; end of test┆
0x35420…35440 20 61 6e 73 77 65 72 20 61 74 74 65 6e 74 69 6f 6e 0a 0c 3b 20 66 70 61 2d 73 75 62 70 72 6f 63 ┆ answer attention ; fpa-subproc┆
0x35440…35460 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 65 6c ┆ common procedures ; el┆
0x35460…35480 69 2c 20 31 31 2e 32 2e 31 39 37 36 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 20 61 ┆i, 11.2.1976 ; procedure test a┆
0x35480…354a0 6e 64 20 69 6e 63 72 65 61 73 65 20 73 74 6f 70 20 63 6f 75 6e 74 0a 3b 0a 3b 20 69 6e 63 72 65 ┆nd increase stop count ; ; incre┆
0x354a0…354c0 61 73 65 73 20 74 68 65 20 73 74 6f 70 20 63 6f 75 6e 74 20 6f 66 20 74 68 65 20 73 65 6e 64 65 ┆ases the stop count of the sende┆
0x354c0…354e0 72 20 6f 66 20 61 20 6d 65 73 73 61 67 65 2c 20 69 66 20 69 74 20 68 61 73 0a 3b 20 6e 6f 74 20 ┆r of a message, if it has ; not ┆
0x354e0…35500 61 6c 72 65 61 64 79 20 62 65 65 6e 20 69 6e 63 72 65 61 73 65 64 2e 20 74 68 65 20 6d 65 73 73 ┆already been increased. the mess┆
0x35500…35520 61 67 65 20 6d 75 73 74 20 62 65 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 0a 3b 20 6d 65 73 ┆age must be present in the ; mes┆
0x35520…35540 73 61 67 65 20 74 61 62 6c 65 20 61 6e 64 20 74 68 65 20 61 64 64 72 65 73 73 20 69 6e 20 74 68 ┆sage table and the address in th┆
0x35540…35560 65 20 74 61 62 6c 65 20 6d 75 73 74 20 62 65 65 20 6f 64 64 20 69 66 20 73 74 6f 70 0a 3b 20 63 ┆e table must bee odd if stop ; c┆
0x35560…35580 6f 75 6e 74 20 68 61 73 20 62 65 65 6e 20 69 6e 63 72 65 61 73 65 64 2e 0a 3b 0a 3b 20 20 20 20 ┆ount has been increased. ; ; ┆
0x35580…355a0 20 20 20 20 63 61 6c 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 ┆ call return ; w0 ┆
0x355a0…355c0 20 20 20 20 20 20 20 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 ┆ undefined ; w1 ┆
0x355c0…355e0 20 20 20 73 75 62 70 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 ┆ subproc unchanged ; w2┆
0x355e0…35600 20 20 20 20 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 73 65 65 20 62 65 6c 6f 77 0a 3b 20 20 77 ┆ message see below ; w┆
0x35600…35620 33 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 3b 0a 3b ┆3 link undefined ; ;┆
0x35620…35640 20 69 66 20 73 74 6f 70 20 63 6f 75 6e 74 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 65 20 69 6e 63 ┆ if stop count could not bee inc┆
0x35640…35660 72 65 61 73 65 64 2c 20 62 65 63 61 75 73 65 20 74 68 65 20 73 65 6e 64 65 72 20 68 61 73 20 62 ┆reased, because the sender has b┆
0x35660…35680 65 65 6e 0a 3b 20 73 74 6f 70 70 65 64 20 74 68 65 6e 20 72 65 74 75 72 6e 20 77 69 6c 6c 20 62 ┆een ; stopped then return will b┆
0x35680…356a0 65 20 6d 61 64 65 20 74 6f 20 3c 6c 69 6e 6b 3e 20 61 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 ┆e made to <link> and the message┆
0x356a0…356c0 20 68 61 73 0a 3b 20 62 65 65 6e 20 72 65 74 75 72 6e 65 64 20 28 77 32 20 69 73 20 75 6e 64 65 ┆ has ; been returned (w2 is unde┆
0x356c0…356e0 66 69 6e 65 64 29 2e 0a 3b 0a 3b 20 6f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 74 6f 20 ┆fined). ; ; otherwise return to ┆
0x356e0…35700 3c 6c 69 6e 6b 2b 32 3e 20 28 77 32 20 69 73 20 75 6e 63 68 61 6e 67 65 64 29 2e 0a 0a 62 2e 20 ┆<link+2> (w2 is unchanged). b. ┆
0x35700…35720 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 32 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆i10, j10 w. u21: ┆
0x35720…35740 20 20 20 20 3b 20 74 65 73 74 20 61 6e 64 20 69 6e 63 72 65 61 73 65 20 73 74 6f 70 20 63 6f 75 ┆ ; test and increase stop cou┆
0x35740…35760 6e 74 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 20 73 61 ┆nt: rs. w3 j0. ; sa┆
0x35760…35780 76 65 20 6c 69 6e 6b 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 31 2b 70 31 39 20 20 20 20 3b ┆ve link al w3 x1+p19 ;┆
0x35780…357a0 20 20 73 65 61 72 63 68 20 6d 65 73 73 61 67 65 20 74 61 62 6c 65 20 66 6f 72 20 6d 65 73 73 61 ┆ search message table for messa┆
0x357a0…357c0 67 65 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 31 2e 20 20 20 20 20 20 20 3b 0a 0a 0a 69 30 ┆ge jl. i1. ; i0┆
0x357c0…357e0 3a 20 20 61 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 3b 0a 69 31 3a 20 20 72 6c 20 20 ┆: al w3 x3+2 ; i1: rl ┆
0x357e0…35800 77 30 20 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 77 30 3a 3d 20 65 76 65 6e 20 6d 65 73 73 61 ┆w0 x3 ; w0:= even messa┆
0x35800…35820 67 65 28 6d 65 73 73 61 67 65 20 74 61 62 6c 65 29 20 0a 20 20 20 20 20 6c 61 20 20 77 30 20 20 ┆ge(message table) la w0 ┆
0x35820…35840 67 35 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 78 32 20 20 20 20 20 ┆g50 ; se w0 x2 ┆
0x35840…35860 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 30 2e 20 20 20 20 20 20 20 3b 0a 0a 3b ┆ ; jl. i0. ; ;┆
0x35860…35880 20 77 33 20 70 6f 69 6e 74 73 20 74 6f 20 65 6e 74 72 79 2e 20 77 30 20 68 6f 6c 64 73 20 65 76 ┆ w3 points to entry. w0 holds ev┆
0x35880…358a0 65 6e 20 6d 65 73 73 61 67 65 20 61 64 64 72 65 73 73 0a 0a 20 20 20 20 20 6c 6f 20 20 77 30 20 ┆en message address lo w0 ┆
0x358a0…358c0 20 67 36 33 20 20 20 20 20 20 20 3b 20 20 73 65 74 20 6f 64 64 20 76 61 6c 75 65 20 69 6e 20 6d ┆ g63 ; set odd value in m┆
0x358c0…358e0 65 73 73 61 67 65 20 74 61 62 6c 65 0a 20 20 20 20 20 72 78 20 20 77 30 20 20 78 33 20 20 20 20 ┆essage table rx w0 x3 ┆
0x358e0…35900 20 20 20 20 3b 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 32 2e 31 20 20 20 20 20 20 20 3b 20 20 ┆ ; sz w0 2.1 ; ┆
0x35900…35920 69 66 20 73 74 6f 70 20 63 6f 75 6e 74 20 61 6c 72 65 61 64 79 20 69 6e 63 72 65 61 73 65 64 20 ┆if stop count already increased ┆
0x35920…35940 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 2e 20 20 20 20 20 20 20 3b 20 20 67 ┆then jl. i2. ; g┆
0x35940…35960 6f 74 6f 20 6f 6b 2d 72 65 74 75 72 6e 0a 0a 3b 20 65 78 61 6d 69 6e 65 20 73 74 61 74 65 20 6f ┆oto ok-return ; examine state o┆
0x35960…35980 66 20 73 65 6e 64 65 72 20 62 65 66 6f 72 65 20 69 6e 63 72 65 61 73 65 0a 0a 20 20 20 20 20 72 ┆f sender before increase r┆
0x35980…359a0 73 2e 20 77 33 20 20 6a 31 2e 20 20 20 20 20 20 20 3b 20 20 73 61 76 65 20 65 6e 74 72 79 0a 20 ┆s. w3 j1. ; save entry ┆
0x359a0…359c0 20 20 20 20 6a 6c 20 20 77 33 20 20 67 33 34 20 20 20 20 20 20 20 3b 20 20 65 78 61 6d 20 73 65 ┆ jl w3 g34 ; exam se┆
0x359c0…359e0 6e 64 65 72 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 33 2e 20 20 20 20 20 20 20 3b 20 73 74 ┆nder jl. i3. ; st┆
0x359e0…35a00 6f 70 70 65 64 3a 20 67 6f 74 6f 20 73 74 6f 70 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 6a 6c 20 ┆opped: goto stop-return jl ┆
0x35a00…35a20 20 77 33 20 20 67 33 31 20 20 20 20 20 20 20 3b 20 6f 6b 3a 20 69 6e 63 72 65 61 73 65 20 73 74 ┆ w3 g31 ; ok: increase st┆
0x35a20…35a40 6f 70 20 63 6f 75 6e 74 0a 0a 3b 20 72 65 74 75 72 6e 20 74 6f 20 3c 6c 69 6e 6b 2b 32 3e 0a 0a ┆op count ; return to <link+2> ┆
0x35a40…35a60 69 32 3a 20 20 72 6c 2e 20 77 33 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 6f 6b 2d 72 65 74 75 ┆i2: rl. w3 j0. ; ok-retu┆
0x35a60…35a80 72 6e 3a 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 2b 32 20 20 20 20 20 20 3b 0a 0a 3b 20 ┆rn: jl x3+2 ; ; ┆
0x35a80…35aa0 73 74 6f 70 20 63 6f 75 6e 74 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 69 6e 63 72 65 61 73 65 ┆stop count could not be increase┆
0x35aa0…35ac0 64 2e 20 64 65 6c 69 76 65 72 20 61 6e 73 77 65 72 0a 0a 69 33 3a 20 20 61 6c 20 20 77 30 20 20 ┆d. deliver answer i3: al w0 ┆
0x35ac0…35ae0 30 20 20 20 20 20 20 20 20 20 3b 20 20 6d 65 73 73 61 67 65 20 65 6e 74 72 79 3a 3d 20 30 0a 20 ┆0 ; message entry:= 0 ┆
0x35ae0…35b00 20 20 20 20 20 72 73 20 20 77 30 20 20 78 31 2b 70 31 32 20 20 20 20 3b 20 20 73 74 61 74 65 28 ┆ rs w0 x1+p12 ; state(┆
0x35b00…35b20 73 75 62 70 72 6f 63 29 3a 3d 20 72 65 61 64 79 3b 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 28 ┆subproc):= ready; rs. w0 (┆
0x35b20…35b40 6a 31 2e 29 20 20 20 20 20 3b 20 20 69 66 20 6d 65 73 3d 63 75 72 72 65 6e 74 20 6d 65 73 73 61 ┆j1.) ; if mes=current messa┆
0x35b40…35b60 67 65 28 73 75 62 70 72 6f 63 29 20 74 68 65 6e 0a 20 20 20 20 20 73 6e 20 20 77 32 20 20 28 78 ┆ge(subproc) then sn w2 (x┆
0x35b60…35b80 31 2b 70 31 33 29 20 20 3b 20 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 28 73 75 62 70 72 ┆1+p13) ; current message(subpr┆
0x35b80…35ba0 6f 63 29 3a 3d 20 30 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 31 2b 70 31 33 20 20 20 20 3b ┆oc):= 0 rs w0 x1+p13 ;┆
0x35ba0…35bc0 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 31 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 ┆ al w3 1 ; b┆
0x35bc0…35be0 61 20 20 77 33 20 20 78 31 2b 70 31 36 20 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 33 20 20 ┆a w3 x1+p16 ; hs w3 ┆
0x35be0…35c00 78 31 2b 70 31 36 20 20 20 20 3b 20 20 66 72 65 65 20 62 75 66 66 65 72 73 3a 3d 20 66 72 65 65 ┆x1+p16 ; free buffers:= free┆
0x35c00…35c20 20 62 75 66 66 65 72 73 2b 31 0a 63 2e 70 31 30 31 20 62 2e 66 31 20 77 2e 20 20 20 20 20 20 20 ┆ buffers+1 c.p101 b.f1 w. ┆
0x35c20…35c40 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 31 2a 2a 2a 2a 2a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 ┆ ;*****test51***** rs. w3 ┆
0x35c40…35c60 20 66 30 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 34 2e 20 20 ┆ f0. ;* jl. w3 f4. ┆
0x35c60…35c80 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 35 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ ;* 51 ;┆
0x35c80…35ca0 2a 0a 66 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 ┆* f0: 0 ;* ┆
0x35ca0…35cc0 20 6a 6c 2e 20 20 20 20 20 66 31 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 ┆ jl. f1. ;* al w┆
0x35cc0…35ce0 30 20 20 78 31 2b 70 31 31 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b ┆0 x1+p11 ;* al w1 x1+┆
0x35ce0…35d00 70 31 39 2b 31 34 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e 20 20 20 20 20 20 ┆p19+14 ;* jl. w3 f5. ┆
0x35d00…35d20 20 3b 2a 0a 66 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 0a 65 2e ┆ ;* f1: ;* e.┆
0x35d20…35d40 7a 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 ┆z. ;*****test5┆
0x35d40…35d60 31 2a 2a 2a 2a 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 36 2e 20 20 20 20 20 20 20 3b 20 ┆1***** jl. w3 u6. ; ┆
0x35d60…35d80 20 70 72 65 70 61 72 65 20 61 6e 73 77 65 72 20 61 66 74 65 72 20 73 74 6f 70 0a 20 20 20 20 20 ┆ prepare answer after stop ┆
0x35d80…35da0 6a 6c 20 20 77 33 20 20 67 31 38 20 20 20 20 20 20 20 3b 20 20 64 65 6c 69 76 65 72 20 20 72 65 ┆jl w3 g18 ; deliver re┆
0x35da0…35dc0 73 75 6c 74 28 31 29 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 ┆sult(1) jl. (j0.) ;┆
0x35dc0…35de0 20 20 67 6f 74 6f 20 3c 6c 69 6e 6b 3e 0a 0a 6a 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 ┆ goto <link> j0: 0 ┆
0x35de0…35e00 20 20 20 20 20 20 3b 20 20 73 61 76 65 64 20 6c 69 6e 6b 0a 6a 31 3a 20 20 30 20 20 20 20 20 20 ┆ ; saved link j1: 0 ┆
0x35e00…35e20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 73 61 76 65 64 20 65 6e 74 72 79 0a 0a 65 2e 20 20 20 ┆ ; saved entry e. ┆
0x35e20…35e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 74 65 73 74 20 ┆ ; end of test ┆
0x35e40…35e60 61 6e 64 20 69 6e 63 72 65 61 73 65 20 73 74 6f 70 20 63 6f 75 6e 74 0a 0c 3b 20 66 70 61 2d 73 ┆and increase stop count ; fpa-s┆
0x35e60…35e80 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 65 ┆ubproc common procedure┆
0x35e80…35ea0 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 73 ┆s ; eli, 8.6.1977 ; procedure s┆
0x35ea0…35ec0 65 74 20 6c 69 6e 6b 70 61 72 61 6d 73 0a 3b 0a 3b 20 63 6f 70 69 65 73 20 74 68 65 20 66 69 65 ┆et linkparams ; ; copies the fie┆
0x35ec0…35ee0 6c 64 73 20 64 65 76 68 6f 73 74 20 6c 69 6e 6b 6e 6f 2c 20 6a 6f 62 68 6f 73 74 20 6c 69 6e 6b ┆lds devhost linkno, jobhost link┆
0x35ee0…35f00 6e 6f 2c 0a 3b 20 64 65 76 68 6f 73 74 20 68 6f 73 74 2d 69 64 2c 20 64 65 76 68 6f 73 74 20 6e ┆no, ; devhost host-id, devhost n┆
0x35f00…35f20 65 74 2d 69 64 20 61 6e 64 20 64 65 76 68 6f 73 74 0a 3b 20 68 6f 6d 65 2d 72 65 67 20 74 6f 20 ┆et-id and devhost ; home-reg to ┆
0x35f20…35f40 74 68 65 20 6d 61 69 6e 70 72 6f 63 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 3b 0a 3b 20 61 6c 73 ┆the mainproc parameters. ; ; als┆
0x35f40…35f60 6f 20 63 6f 70 69 65 73 20 74 68 65 20 62 75 66 66 65 72 6e 6f 20 6f 66 20 74 68 65 20 6c 69 6e ┆o copies the bufferno of the lin┆
0x35f60…35f80 6b 20 61 6e 64 20 73 65 74 73 20 74 68 65 0a 3b 20 6d 6f 6e 69 74 6f 72 20 61 64 64 72 65 73 73 ┆k and sets the ; monitor address┆
0x35f80…35fa0 20 63 6f 64 65 20 74 6f 20 27 6e 6f 20 63 68 65 63 6b 27 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 ┆ code to 'no check'. ; ; ┆
0x35fa0…35fc0 63 61 6c 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 ┆call return ; w0 ┆
0x35fc0…35fe0 20 20 20 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 ┆ undefined ; w1 s┆
0x35fe0…36000 75 62 70 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 ┆ubproc unchanged ; w2 ┆
0x36000…36020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 20 77 33 20 20 20 ┆ unchanged ; w3 ┆
0x36020…36040 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 70 72 6f 63 0a 0a 62 2e 20 69 31 30 2c ┆ link mainproc b. i10,┆
0x36040…36060 20 6a 31 30 0a 77 2e 0a 0a 75 32 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ j10 w. u25: ┆
0x36060…36080 3b 20 73 65 74 20 6c 69 6e 6b 70 61 72 61 6d 73 3a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 6a ┆; set linkparams: rs. w3 j┆
0x36080…360a0 30 2e 20 20 20 20 20 20 20 3b 20 20 73 61 76 65 20 6c 69 6e 6b 0a 20 20 20 20 20 72 6c 20 20 77 ┆0. ; save link rl w┆
0x360a0…360c0 33 20 20 78 31 2b 61 35 30 20 20 20 20 3b 20 20 6d 61 69 6e 3a 3d 20 6d 61 69 6e 70 72 6f 63 28 ┆3 x1+a50 ; main:= mainproc(┆
0x360c0…360e0 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 31 31 20 20 20 20 ┆subproc) bz w0 x1+p11 ┆
0x360e0…36100 3b 20 20 72 65 63 65 69 76 65 72 20 6c 69 6e 6b 6e 6f 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 ┆; receiver linkno(main):= ┆
0x36100…3a100 […elided…]
0x3a100…3a120 65 65 6e 20 72 65 74 75 72 6e 65 64 20 64 75 65 20 74 6f 20 6c 69 6e 65 20 65 72 72 6f 72 73 2e ┆een returned due to line errors.┆
0x3a120…3a140 20 61 20 72 65 6a 65 63 74 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 20 69 73 20 ┆ a reject ; status is ┆
0x3a140…3a160 72 65 74 75 72 6e 65 64 20 6f 6e 20 74 68 65 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 6c 69 ┆returned on the communication li┆
0x3a160…3a180 6e 65 2e 20 72 65 74 75 72 6e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 77 69 6c 6c 20 62 65 20 6d ┆ne. return ; will be m┆
0x3a180…3a1a0 61 64 65 20 74 6f 20 74 65 73 74 6d 6f 72 65 2e 0a 3b 20 20 20 69 6d 70 6f 73 73 69 62 6c 65 20 ┆ade to testmore. ; impossible ┆
0x3a1a0…3a1c0 6d 65 73 73 61 67 65 20 61 64 64 72 65 73 73 3a 20 73 69 67 6e 61 6c 73 20 61 20 73 70 65 63 69 ┆message address: signals a speci┆
0x3a1c0…3a1e0 61 6c 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 74 68 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆al function for the ; ┆
0x3a1e0…3a200 73 75 62 70 72 6f 63 2e 20 72 65 74 75 72 6e 20 74 6f 20 3c 6c 69 6e 6b 2b 32 3e 2e 0a 3b 20 20 ┆subproc. return to <link+2>. ; ┆
0x3a200…3a220 20 6e 6f 72 6d 61 6c 20 6d 65 73 73 61 67 65 20 61 64 64 72 65 73 73 3a 20 70 72 6f 63 65 64 75 ┆ normal message address: procedu┆
0x3a220…3a240 72 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 69 73 0a ┆re corresponding to function is ┆
0x3a240…3a260 3b 20 20 20 20 20 20 20 20 20 20 20 61 63 74 69 76 61 74 65 64 2e 20 69 66 20 74 68 65 20 64 61 ┆; activated. if the da┆
0x3a260…3a280 74 61 62 6c 6f 63 6b 20 63 61 6e 20 62 65 20 72 65 63 65 69 76 65 64 20 72 65 74 75 72 6e 20 69 ┆tablock can be received return i┆
0x3a280…3a2a0 73 0a 3b 20 20 20 20 20 20 20 20 20 20 20 6d 61 64 65 20 74 6f 20 6d 61 69 6e 70 72 6f 63 2e 20 ┆s ; made to mainproc. ┆
0x3a2a0…3a2c0 6f 74 68 65 72 77 69 73 65 20 61 20 73 6b 69 70 2d 73 74 61 74 75 73 20 69 73 20 73 69 67 6e 61 ┆otherwise a skip-status is signa┆
0x3a2c0…3a2e0 6c 6c 65 64 0a 3b 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 72 65 74 75 72 6e 20 6d 61 64 65 ┆lled ; and return made┆
0x3a2e0…3a300 20 74 6f 20 3c 6c 69 6e 6b 3e 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 ┆ to <link>. ; ; call ┆
0x3a300…3a320 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 20 20 ┆ return ; w0 ┆
0x3a320…3a340 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 3b 20 77 31 20 20 20 20 20 73 75 62 70 72 6f 63 20 20 20 ┆ undefined ; w1 subproc ┆
0x3a340…3a360 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ unchanged ; w2 ┆
0x3a360…3a380 20 20 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 3b 20 77 33 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 ┆ undefined ; w3 link ┆
0x3a380…3a3a0 20 20 20 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 0a 62 2e 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a ┆ undefined b.i10, j10 w. ┆
0x3a3a0…3a3c0 75 35 30 3a 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 68 65 ┆u50: ; test he┆
0x3a3c0…3a3e0 61 64 65 72 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 20 ┆ader: rs. w3 j0. ; ┆
0x3a3e0…3a400 73 61 76 65 20 6c 69 6e 6b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 32 33 2e 20 20 20 20 20 ┆save link jl. w3 u23. ┆
0x3a400…3a420 20 3b 20 20 74 65 73 74 6c 69 6e 6b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 32 34 2e 20 20 ┆ ; testlink jl. u24. ┆
0x3a420…3a440 20 20 20 20 3b 20 65 72 72 6f 72 3a 20 67 6f 74 6f 20 72 65 6a 65 63 74 0a 20 20 20 20 20 72 6c ┆ ; error: goto reject rl┆
0x3a440…3a460 2e 20 77 33 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 20 72 65 73 74 6f 72 65 20 6c 69 6e 6b 0a ┆. w3 j0. ; restore link ┆
0x3a460…3a480 20 20 20 20 20 61 6c 20 20 77 30 20 20 70 31 36 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 68 73 ┆ al w0 p160 ; hs┆
0x3a480…3a4a0 20 20 77 30 20 20 78 32 2b 70 38 30 20 20 20 20 3b 20 20 73 6b 69 70 28 6d 61 69 6e 29 3a 3d 20 ┆ w0 x2+p80 ; skip(main):= ┆
0x3a4a0…3a4c0 66 61 6c 73 65 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 32 2b 70 38 31 20 20 20 20 3b 20 20 ┆false bz w0 x2+p81 ; ┆
0x3a4c0…3a4e0 66 75 6e 63 3a 3d 20 66 75 6e 63 74 69 6f 6e 28 6d 61 69 6e 29 0a 20 20 20 20 20 62 7a 20 20 77 ┆func:= function(main) bz w┆
0x3a4e0…3a500 32 20 20 78 32 2b 70 38 38 20 20 20 20 3b 20 20 6d 65 73 3a 3d 20 65 76 65 6e 20 6d 65 73 73 61 ┆2 x2+p88 ; mes:= even messa┆
0x3a500…3a520 67 65 20 74 61 62 6c 65 28 62 75 66 6e 6f 28 6d 61 69 6e 29 29 0a 20 20 20 20 20 61 6d 20 20 20 ┆ge table(bufno(main)) am ┆
0x3a520…3a540 20 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 78 32 20 20 ┆ x2 ; am x2 ┆
0x3a540…3a560 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 70 31 39 20 20 20 20 3b ┆ ; rl w2 x1+p19 ;┆
0x3a560…3a580 0a 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 ┆ c.p101 b.f1 w. ;*****te┆
0x3a580…3a5a0 73 74 36 30 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 ┆st60***** rs. w3 f0. ┆
0x3a5a0…3a5c0 20 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 ┆ ;* jl. w3 f4. ;* ┆
0x3a5c0…3a5e0 20 20 20 36 30 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 ┆ 60 ;* f0: 0 ┆
0x3a5e0…3a600 20 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 ┆ ;* jl. f┆
0x3a600…3a620 31 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 32 20 20 20 20 20 ┆1. ;* al w0 x2 ┆
0x3a620…3a640 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 32 2b 32 32 20 20 20 20 20 3b 2a 0a ┆ ;* al w1 x2+22 ;* ┆
0x3a640…3a660 20 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 ┆ jl. w3 f5. ;* f1: ┆
0x3a660…3a680 20 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 ┆ ;* e.z. ┆
0x3a680…3a6a0 20 20 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 36 30 2a 2a 2a 2a 2a 0a 20 20 20 ┆ ;*****test60***** ┆
0x3a6a0…3a6c0 20 20 6c 61 20 20 77 32 20 20 67 35 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6c 20 20 77 ┆ la w2 g50 ; sl w┆
0x3a6c0…3a6e0 32 20 20 28 62 38 2b 34 29 20 20 20 20 3b 20 20 69 66 20 6d 65 73 3c 66 69 72 73 74 20 6d 65 73 ┆2 (b8+4) ; if mes<first mes┆
0x3a6e0…3a700 73 61 67 65 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 30 2e 20 20 20 20 20 20 ┆sage then jl. i0. ┆
0x3a700…3a720 20 3b 20 20 62 65 67 69 6e 0a 20 20 20 20 20 73 6e 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 ┆ ; begin sn w2 0 ┆
0x3a720…3a740 20 3b 20 20 69 66 20 6d 65 73 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 ┆ ; if mes=0 then jl. u┆
0x3a740…3a760 32 34 2e 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 72 65 6a 65 63 74 0a 63 2e 70 31 30 31 20 62 ┆24. ; goto reject c.p101 b┆
0x3a760…3a780 2e 66 31 20 77 2e 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 36 31 2a 2a 2a 2a 2a ┆.f1 w. ;*****test61*****┆
0x3a780…3a7a0 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 66 30 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a ┆ rs. w3 f0. ; j┆
0x3a7a0…3a7c0 6c 2e 20 77 33 20 20 66 34 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 36 31 20 20 20 20 20 ┆l. w3 f4. ;* 61 ┆
0x3a7c0…3a7e0 20 20 20 20 20 20 20 20 20 20 20 3b 2a 0a 66 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ;* f0: 0 ┆
0x3a7e0…3a800 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 66 31 2e 20 20 20 20 20 20 20 3b ┆ ;* jl. f1. ;┆
0x3a800…3a820 2a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 2b 70 31 39 20 20 20 20 3b 2a 0a 20 20 20 20 ┆* al w0 x1+p19 ;* ┆
0x3a820…3a840 20 61 6c 20 20 77 31 20 20 78 31 2b 70 31 39 2b 31 34 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 ┆ al w1 x1+p19+14 ;* jl. w┆
0x3a840…3a860 33 20 20 66 35 2e 20 20 20 20 20 20 20 3b 2a 0a 66 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 f5. ;* f1: ┆
0x3a860…3a880 20 20 20 20 20 20 20 3b 2a 0a 65 2e 7a 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ;* e.z. ┆
0x3a880…3a8a0 20 3b 2a 2a 2a 2a 2a 74 65 73 74 36 31 2a 2a 2a 2a 2a 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 ┆ ;*****test61***** jl ┆
0x3a8a0…3a8c0 78 33 2b 32 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 3c 6c 69 6e 6b 2b 32 3e 0a 20 20 20 20 ┆x3+2 ; goto <link+2> ┆
0x3a8c0…3a8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 65 6e 64 0a 69 30 3a 20 20 72 ┆ ; end i0: r┆
0x3a8e0…3a900 73 20 20 77 32 20 20 62 31 38 20 20 20 20 20 20 20 3b 20 20 63 75 72 72 65 6e 74 20 6d 65 73 73 ┆s w2 b18 ; current mess┆
0x3a900…3a920 61 67 65 28 6d 6f 6e 69 74 6f 72 29 3a 3d 20 6d 65 73 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 ┆age(monitor):= mes am ┆
0x3a920…3a940 28 78 31 2b 61 35 30 29 20 20 3b 20 20 69 66 20 6c 6f 63 61 6c 20 66 75 6e 63 74 69 6f 6e 28 72 ┆(x1+a50) ; if local function(r┆
0x3a940…3a960 65 63 29 3d 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 2b 70 39 39 20 20 20 20 20 20 3b 20 20 20 ┆ec)= bz w3 +p99 ; ┆
0x3a960…3a980 20 20 72 65 6a 65 63 74 65 64 20 70 61 63 6b 65 74 20 74 68 65 6e 0a 20 20 20 20 20 73 65 20 20 ┆ rejected packet then se ┆
0x3a980…3a9a0 77 33 20 20 33 20 20 20 20 20 20 20 20 20 3b 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 ┆w3 3 ; begin comment: ┆
0x3a9a0…3a9c0 64 65 6c 69 76 65 72 20 61 6e 73 77 65 72 20 6d 61 6c 66 75 6e 63 74 69 6f 6e 3b 0a 20 20 20 20 ┆deliver answer malfunction; ┆
0x3a9c0…3a9e0 20 6a 6c 2e 20 20 20 20 20 69 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 ┆ jl. i1. ; am ┆
0x3a9e0…3aa00 20 20 28 78 31 2b 61 35 30 29 20 20 3b 20 20 20 77 32 3a 3d 20 62 75 66 6e 6f 28 72 65 63 29 0a ┆ (x1+a50) ; w2:= bufno(rec) ┆
0x3aa00…3aa20 20 20 20 20 20 62 7a 20 20 77 32 20 20 2b 70 38 38 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c ┆ bz w2 +p88 ; jl┆
0x3aa20…3aa40 2e 20 77 33 20 20 75 31 38 2e 20 20 20 20 20 20 3b 20 20 20 74 65 73 74 20 61 6e 64 20 64 65 63 ┆. w3 u18. ; test and dec┆
0x3aa40…3aa60 72 65 61 73 65 20 73 74 6f 70 63 6f 75 6e 74 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 31 31 ┆rease stopcount jl. w3 u11┆
0x3aa60…3aa80 2e 20 20 20 20 20 20 3b 20 20 20 63 6c 65 61 72 20 6d 65 73 73 61 67 65 20 65 6e 74 72 79 0a 20 ┆. ; clear message entry ┆
0x3aa80…3aaa0 20 20 20 20 6a 6c 20 20 77 33 20 20 67 34 20 20 20 20 20 20 20 20 3b 20 20 20 64 65 6c 69 76 65 ┆ jl w3 g4 ; delive┆
0x3aaa0…3aac0 72 20 72 65 73 75 6c 74 28 34 29 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 70 31 36 32 20 20 20 ┆r result(4) al w0 p162 ┆
0x3aac0…3aae0 20 20 20 3b 20 20 20 69 6e 74 65 72 6e 61 6c 20 73 74 61 74 75 73 28 6d 61 69 6e 29 3a 3d 20 73 ┆ ; internal status(main):= s┆
0x3aae0…3ab00 6b 69 70 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 28 78 31 2b 61 35 30 29 20 20 3b 0a 20 20 20 ┆kip am (x1+a50) ; ┆
0x3ab00…3ab20 20 20 68 73 20 20 77 30 20 20 2b 70 38 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆ hs w0 +p80 ; jl. ┆
0x3ab20…3ab40 20 20 20 75 32 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 74 65 73 74 6d 6f 72 65 0a 69 ┆ u2. ; goto testmore i┆
0x3ab40…3ab60 31 3a 20 20 72 6c 2e 20 77 33 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 20 65 6e 64 0a 0a 3b 20 ┆1: rl. w3 j0. ; end ; ┆
0x3ab60…3ab80 73 77 69 74 63 68 20 74 6f 20 61 63 74 69 6f 6e 0a 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 76 ┆switch to action sn w0 v┆
0x3ab80…3aba0 35 31 2b 28 3a 31 3c 30 3a 29 3b 20 20 69 66 20 66 75 6e 63 74 69 6f 6e 3d 20 3c 61 6e 73 77 65 ┆51+(:1<0:); if function= <answe┆
0x3aba0…3abc0 72 20 69 6e 70 75 74 20 77 69 74 68 20 64 61 74 61 3e 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e ┆r input with data> then jl.┆
0x3abc0…3abe0 20 20 20 20 20 75 35 31 2e 20 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 74 65 73 74 20 61 ┆ u51. ; goto test a┆
0x3abe0…3ac00 6e 73 77 65 72 20 69 6e 70 75 74 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 35 33 2e 20 20 20 ┆nswer input jl. u53. ┆
0x3ac00…3ac20 20 20 20 3b 20 20 20 67 6f 74 6f 20 74 65 73 74 20 61 6e 73 77 65 72 20 6d 65 73 73 61 67 65 0a ┆ ; goto test answer message ┆
0x3ac20…3ac40 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 73 61 76 65 64 20 ┆ j0: 0 ; saved ┆
0x3ac40…3ac60 6c 69 6e 6b 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 20 65 ┆link e. ; e┆
0x3ac60…3ac80 6e 64 20 6f 66 20 74 65 73 74 20 61 6e 73 77 65 72 20 68 65 61 64 65 72 0a 0c 0a 3b 20 66 70 61 ┆nd of test answer header ; fpa┆
0x3ac80…3aca0 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 6f 63 65 64 75 ┆-subproc common procedu┆
0x3aca0…3acc0 72 65 73 0a 3b 20 65 6c 69 2c 20 31 31 2e 32 2e 31 39 37 36 0a 0a 3b 20 70 72 6f 63 65 64 75 72 ┆res ; eli, 11.2.1976 ; procedur┆
0x3acc0…3ace0 65 20 74 65 73 74 20 61 6e 73 77 65 72 20 69 6e 70 75 74 20 68 65 61 64 65 72 0a 3b 0a 3b 20 63 ┆e test answer input header ; ; c┆
0x3ace0…3ad00 61 6c 6c 65 64 2c 20 77 68 65 6e 20 61 20 68 65 61 64 65 72 20 77 69 74 68 20 66 75 6e 63 74 69 ┆alled, when a header with functi┆
0x3ad00…3ad20 6f 6e 3d 3c 61 6e 73 77 65 72 20 69 6e 70 75 74 20 77 69 74 68 20 64 61 74 61 3e 20 68 61 73 20 ┆on=<answer input with data> has ┆
0x3ad20…3ad40 62 65 65 6e 0a 3b 20 72 65 63 65 69 76 65 64 2e 0a 3b 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 ┆been ; received. ; the state of ┆
0x3ad40…3ad60 74 68 65 20 72 65 63 65 69 76 69 6e 67 20 70 72 6f 63 65 73 73 0a 3b 20 69 73 20 63 68 65 63 6b ┆the receiving process ; is check┆
0x3ad60…3ad80 65 64 2e 20 20 69 66 20 69 74 20 69 73 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 2c 20 74 68 65 ┆ed. if it is still running, the┆
0x3ad80…3ada0 20 6d 61 69 6e 70 72 6f 63 20 70 61 72 61 6d 65 74 65 72 73 0a 3b 20 61 72 65 20 69 6e 69 74 69 ┆ mainproc parameters ; are initi┆
0x3ada0…3adc0 61 6c 69 7a 65 64 20 61 6e 64 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 6e 73 ┆alized and the procedure returns┆
0x3adc0…3ade0 20 74 6f 20 6d 61 69 6e 70 72 6f 63 2e 0a 3b 0a 3b 20 69 66 20 74 68 65 20 72 65 63 65 69 76 65 ┆ to mainproc. ; ; if the receive┆
0x3ade0…3ae00 72 20 69 73 20 73 74 6f 70 70 65 64 20 61 6e 20 61 6e 73 77 65 72 20 69 73 20 72 65 74 75 72 6e ┆r is stopped an answer is return┆
0x3ae00…3ae20 65 64 20 61 6e 64 20 61 20 73 6b 69 70 2d 73 74 61 74 75 73 20 73 69 67 6e 61 6c 6c 65 64 0a 3b ┆ed and a skip-status signalled ;┆
0x3ae20…3ae40 20 74 6f 20 6d 61 69 6e 70 72 6f 63 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 ┆ to mainproc. ; ; call ┆
0x3ae40…3ae60 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 ┆
0x3ae60…3ae80 20 20 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 3b 20 77 31 20 20 20 20 20 73 75 62 70 72 6f 63 20 ┆ undefined ; w1 subproc ┆
0x3ae80…3aea0 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 77 32 20 20 20 20 20 6d 65 73 73 61 67 65 ┆ unchanged ; w2 message┆
0x3aea0…3aec0 20 20 20 20 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 3b 20 77 33 20 20 20 20 20 6c 69 6e 6b 20 20 ┆ undefined ; w3 link ┆
0x3aec0…3aee0 20 20 20 20 20 20 20 20 75 6e 64 65 66 69 6e 65 64 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 30 0a 77 ┆ undefined b. i10, j10 w┆
0x3aee0…3af00 2e 0a 0a 75 35 31 3a 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 ┆. u51: ; test┆
0x3af00…3af20 20 61 6e 73 77 65 72 20 69 6e 70 75 74 20 68 65 61 64 65 72 3a 0a 20 20 20 20 20 72 73 2e 20 77 ┆ answer input header: rs. w┆
0x3af20…3af40 33 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 20 73 61 76 65 20 6c 69 6e 6b 0a 0a 3b 20 65 78 61 ┆3 j0. ; save link ; exa┆
0x3af40…3af60 6d 69 6e 65 20 73 74 61 74 65 20 6f 66 20 72 65 63 65 69 76 69 6e 67 20 70 72 6f 63 65 73 73 0a ┆mine state of receiving process ┆
0x3af60…3af80 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 32 31 2e 20 20 20 20 20 20 3b 20 20 74 65 73 74 20 ┆ jl. w3 u21. ; test ┆
0x3af80…3afa0 61 6e 64 20 69 6e 63 72 65 61 73 65 20 73 74 6f 70 20 63 6f 75 6e 74 0a 20 20 20 20 20 6a 6c 2e ┆and increase stop count jl.┆
0x3afa0…3afc0 20 20 20 20 20 69 30 2e 20 20 20 20 20 20 20 3b 20 73 74 6f 70 70 65 64 3a 20 67 6f 74 6f 20 73 ┆ i0. ; stopped: goto s┆
0x3afc0…3afe0 6b 69 70 20 0a 0a 3b 20 73 65 6e 64 65 72 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 0a 0a 20 20 ┆kip ; sender still running ┆
0x3afe0…3b000 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 61 35 30 20 20 20 20 3b 20 20 6d 61 69 6e 3a 3d 20 6d ┆ rl w3 x1+a50 ; main:= m┆
0x3b000…3b020 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 ┆ainproc(subproc) rl w0 x2┆
0x3b020…3b040 2b 32 32 20 20 20 20 20 3b 20 20 66 69 72 73 74 28 6d 61 69 6e 29 3a 3d 20 75 70 64 61 74 65 64 ┆+22 ; first(main):= updated┆
0x3b040…3b060 20 66 69 72 73 74 28 6d 65 73 29 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 70 38 35 20 ┆ first(mes) rs w0 x3+p85 ┆
0x3b060…3b080 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 2b 70 38 34 20 20 20 20 3b 20 20 0a ┆ ; rl w0 x3+p84 ; ┆
0x3b080…3b0a0 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 70 38 36 20 20 20 20 3b 20 20 64 61 74 61 20 73 ┆ rs w0 x3+p86 ; data s┆
0x3b0a0…3b0c0 69 7a 65 28 6d 61 69 6e 29 3a 3d 20 68 65 61 64 65 72 20 73 69 7a 65 28 6d 61 69 6e 29 0a 63 2e ┆ize(main):= header size(main) c.┆
0x3b0c0…3b0e0 20 70 31 30 33 2d 31 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b ┆ p103-1 al w0 0 ;┆
0x3b0e0…3b100 20 61 64 64 72 65 73 20 63 6f 64 65 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 30 ┆ addres code(main):= hs w0┆