|
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 (0,) 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 (10,) Data for apendixb
0x06c00…0a800 (12,) 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 (24,) Data for dia1620
0x0de00…0e100 Data for comref
0x0e100…28b00 (25,) 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 (95,) 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 (96,) 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…36120 68 73 20 20 77 30 20 20 78 33 2b 70 36 39 20 20 20 20 3b 20 20 20 64 65 76 68 6f 73 74 20 6c 69 ┆hs w0 x3+p69 ; devhost li┆
0x36120…36140 6e 6b 6e 6f 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 39 ┆nkno(subproc) bz w0 x1+p9┆
0x36140…36160 20 20 20 20 20 3b 20 20 73 65 6e 64 65 72 20 6c 69 6e 6b 6e 6f 28 6d 61 69 6e 29 3a 3d 0a 20 20 ┆ ; sender linkno(main):= ┆
0x36160…36180 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 70 37 38 20 20 20 20 3b 20 20 20 6a 6f 62 68 6f 73 74 ┆ hs w0 x3+p78 ; jobhost┆
0x36180…361a0 20 6c 69 6e 6b 6e 6f 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 ┆ linkno(subproc) bz w0 x1┆
0x361a0…361c0 2b 70 37 20 20 20 20 20 3b 20 20 72 65 63 65 69 76 65 72 20 6e 65 74 2d 69 64 28 6d 61 69 6e 29 ┆+p7 ; receiver net-id(main)┆
0x361c0…361e0 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 70 33 30 31 20 20 20 3b 20 20 20 64 65 ┆:= hs w0 x3+p301 ; de┆
0x361e0…36200 76 68 6f 73 74 20 6e 65 74 2d 69 64 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 62 7a 20 20 77 ┆vhost net-id(subproc) bz w┆
0x36200…36220 30 20 20 78 31 2b 70 36 20 20 20 20 20 3b 20 20 72 65 63 65 69 76 65 72 20 68 6f 6d 65 2d 72 65 ┆0 x1+p6 ; receiver home-re┆
0x36220…36240 67 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 70 33 30 32 20 20 ┆g(main):= hs w0 x3+p302 ┆
0x36240…36260 20 3b 20 20 20 64 65 76 68 6f 73 74 20 68 6f 6d 65 2d 72 65 67 28 73 75 62 70 72 6f 63 29 0a 20 ┆ ; devhost home-reg(subproc) ┆
0x36260…36280 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 70 35 20 20 20 20 20 3b 20 20 72 65 63 65 69 76 65 ┆ rl w0 x1+p5 ; receive┆
0x36280…362a0 72 20 68 6f 73 74 2d 69 64 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 ┆r host-id(main):= rs w0 x┆
0x362a0…362c0 33 2b 70 33 30 33 20 20 20 3b 20 20 20 64 65 76 68 6f 73 74 20 68 6f 73 74 2d 69 64 28 73 75 62 ┆3+p303 ; devhost host-id(sub┆
0x362c0…362e0 70 72 6f 63 29 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 70 31 37 20 20 20 20 3b 20 20 ┆proc) bz w0 x1+p17 ; ┆
0x362e0…36300 62 75 66 6e 6f 28 6d 61 69 6e 29 3a 3d 20 62 75 66 6e 6f 28 73 75 62 70 72 6f 63 29 0a 20 20 20 ┆bufno(main):= bufno(subproc) ┆
0x36300…36320 20 20 68 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 ┆ hs w0 x3+p68 ; ┆
0x36320…36340 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 28 6a 30 2e ┆ ; jl. (j0.┆
0x36340…36360 29 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 0a 0a 6a 30 3a 20 20 30 20 20 20 20 ┆) ; goto return j0: 0 ┆
0x36360…36380 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 6c 69 6e 6b 0a 0a 65 2e 20 20 20 ┆ ; saved link e. ┆
0x36380…363a0 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 73 65 74 20 6c ┆ ; end of set l┆
0x363a0…363c0 69 6e 6b 70 61 72 61 6d 73 0a 0c 3b 20 66 70 61 2d 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 20 ┆inkparams ; fpa-subproc ┆
0x363c0…363e0 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 36 2e 31 ┆ common procedures ; eli, 8.6.1┆
0x363e0…36400 39 37 37 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 6c 69 6e 6b 0a 3b 0a 3b 20 74 65 ┆977 ; procedure testlink ; ; te┆
0x36400…36420 73 74 73 2c 20 74 68 61 74 20 74 68 65 20 6d 61 69 6e 70 72 6f 63 20 70 61 72 61 6d 65 74 65 72 ┆sts, that the mainproc parameter┆
0x36420…36440 73 20 73 65 6e 64 65 72 20 6c 69 6e 6b 6e 6f 2c 20 73 65 6e 64 65 72 20 68 6f 73 74 2d 69 64 0a ┆s sender linkno, sender host-id ┆
0x36440…36460 3b 20 61 6e 64 20 73 65 6e 64 65 72 20 6e 65 74 2d 69 64 20 61 72 65 20 65 71 75 61 6c 20 74 6f ┆; and sender net-id are equal to┆
0x36460…36480 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 64 65 76 68 6f 73 74 20 6c 69 6e 6b 6e 6f 2c 0a ┆ the parameters devhost linkno, ┆
0x36480…364a0 3b 20 64 65 76 68 6f 73 74 20 68 6f 73 74 2d 69 64 20 61 6e 64 20 64 65 76 68 6f 73 74 20 6e 65 ┆; devhost host-id and devhost ne┆
0x364a0…364c0 74 2d 69 64 20 69 6e 20 74 68 65 20 73 75 62 70 72 6f 63 2e 0a 3b 0a 3b 20 69 66 20 6e 6f 74 20 ┆t-id in the subproc. ; ; if not ┆
0x364c0…364e0 65 71 75 61 6c 2c 20 72 65 74 75 72 6e 20 77 69 6c 6c 20 62 65 20 6d 61 64 65 20 74 6f 20 6c 69 ┆equal, return will be made to li┆
0x364e0…36500 6e 6b 2b 30 2c 20 6f 74 68 65 72 77 69 73 65 0a 3b 20 74 6f 20 6c 69 6e 6b 2b 32 2e 0a 3b 0a 3b ┆nk+0, otherwise ; to link+2. ; ;┆
0x36500…36520 20 20 20 20 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 ┆ call return ; ┆
0x36520…36540 77 30 20 20 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 ┆w0 undefined ; ┆
0x36540…36560 20 77 31 20 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 ┆ w1 subproc unchanged ;┆
0x36560…36580 20 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 70 72 6f 63 0a 3b ┆ w2 mainproc ;┆
0x36580…365a0 20 20 77 33 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a ┆ w3 link unchanged ┆
0x365a0…365c0 0a 62 2e 20 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 32 33 3a 20 20 20 20 20 20 20 20 20 20 20 ┆ b. i10, j10 w. u23: ┆
0x365c0…365e0 20 20 20 20 20 20 20 20 3b 20 74 65 73 74 6c 69 6e 6b 3a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 ┆ ; testlink: rl w2 ┆
0x365e0…36600 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 73 75 ┆ x1+a50 ; main:= mainproc(su┆
0x36600…36620 62 70 72 6f 63 29 0a 20 20 20 20 20 62 6c 20 20 77 30 20 20 78 32 2b 70 39 38 20 20 20 20 3b 20 ┆bproc) bl w0 x2+p98 ; ┆
0x36620…36640 20 69 66 20 73 65 6e 64 65 72 20 6c 69 6e 6b 6e 6f 28 6d 61 69 6e 29 3c 3e 0a 20 20 20 20 20 62 ┆ if sender linkno(main)<> b┆
0x36640…36660 73 20 20 77 30 20 20 78 31 2b 70 31 31 20 20 20 20 3b 20 20 20 20 20 64 65 76 68 6f 73 74 20 6c ┆s w0 x1+p11 ; devhost l┆
0x36660…36680 69 6e 6b 6e 6f 28 73 75 62 70 72 6f 63 29 20 74 68 65 6e 0a 20 20 20 20 20 73 65 20 20 77 30 20 ┆inkno(subproc) then se w0 ┆
0x36680…366a0 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 30 0a 20 20 20 20 20 6a ┆ 0 ; goto link+0 j┆
0x366a0…366c0 6c 20 20 20 20 20 20 78 33 2b 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 ┆l x3+0 ; rl w0 ┆
0x366c0…366e0 78 32 2b 70 33 32 33 20 20 20 3b 20 20 69 66 20 73 65 6e 64 65 72 20 68 6f 73 74 2d 69 64 28 6d ┆x2+p323 ; if sender host-id(m┆
0x366e0…36700 61 69 6e 29 3c 3e 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 28 78 31 2b 70 35 29 20 20 20 3b 20 ┆ain)<> se w0 (x1+p5) ; ┆
0x36700…36720 20 20 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 20 74 68 65 ┆ devhost host-id(subproc) the┆
0x36720…36740 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 2b 30 20 20 20 20 20 20 3b 20 20 67 6f 74 6f ┆n jl x3+0 ; goto┆
0x36740…36760 20 6c 69 6e 6b 2b 30 0a 20 20 20 20 20 62 6c 20 20 77 30 20 20 78 32 2b 70 33 32 31 20 20 20 3b ┆ link+0 bl w0 x2+p321 ;┆
0x36760…36780 20 20 69 66 20 73 65 6e 64 65 72 20 6e 65 74 2d 69 64 28 6d 61 69 6e 29 3c 3e 0a 20 20 20 20 20 ┆ if sender net-id(main)<> ┆
0x36780…367a0 62 73 20 20 77 30 20 20 78 31 2b 70 37 20 20 20 20 20 3b 20 20 20 20 20 64 65 76 68 6f 73 74 20 ┆bs w0 x1+p7 ; devhost ┆
0x367a0…367c0 6e 65 74 2d 69 64 28 73 75 62 70 72 6f 63 29 20 74 68 65 6e 0a 3b 20 20 20 20 73 65 20 20 77 30 ┆net-id(subproc) then ; se w0┆
0x367c0…367e0 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 30 0a 3b 20 20 20 20 ┆ 0 ; goto link+0 ; ┆
0x367e0…36800 6a 6c 20 20 20 20 20 20 78 33 2b 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 ┆jl x3+0 ; jl ┆
0x36800…36820 20 78 33 2b 32 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 32 0a 0a 65 2e 20 20 20 ┆ x3+2 ; goto link+2 e. ┆
0x36820…36840 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 6c ┆ ; end of testl┆
0x36840…36860 69 6e 6b 0a 0c 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 ┆ink ; fpa-subproc comm┆
0x36860…36880 6f 6e 20 70 72 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 ┆on procedures ; eli, 8.6.1977 ;┆
0x36880…368a0 20 70 72 6f 63 65 64 75 72 65 20 72 65 6a 65 63 74 0a 3b 0a 3b 20 73 65 74 73 20 74 68 65 20 69 ┆ procedure reject ; ; sets the i┆
0x368a0…368c0 6e 74 65 72 6e 61 6c 20 73 74 61 74 75 73 20 6f 66 20 6d 61 69 6e 70 72 6f 63 20 74 6f 20 27 72 ┆nternal status of mainproc to 'r┆
0x368c0…368e0 65 6a 65 63 74 27 0a 3b 20 61 6e 64 20 6a 75 6d 70 73 20 74 6f 20 74 65 73 74 6d 6f 72 65 0a 3b ┆eject' ; and jumps to testmore ;┆
0x368e0…36900 0a 3b 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 6e 6f 20 72 65 74 75 72 ┆ ; call no retur┆
0x36900…36920 (97,) 6e 0a 3b 20 20 77 30 0a 3b 20 20 77 31 20 20 20 20 73 75 62 70 72 6f 63 0a 3b 20 20 77 32 0a 3b ┆n ; w0 ; w1 subproc ; w2 ;┆
0x36920…36940 20 20 77 33 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 32 34 3a 20 20 20 20 20 20 ┆ w3 b. i10, j10 w. u24: ┆
0x36940…36960 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 6a 65 63 74 3a 0a 20 20 20 20 20 61 6c 20 20 ┆ ; reject: al ┆
0x36960…36980 77 30 20 20 70 31 36 33 20 20 20 20 20 20 3b 20 20 69 6e 74 65 72 6e 61 6c 20 73 74 61 74 75 73 ┆w0 p163 ; internal status┆
0x36980…369a0 28 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 3a 3d 0a 20 20 20 20 20 61 6d 20 20 20 20 ┆(mainproc(subproc):= am ┆
0x369a0…369c0 20 20 28 78 31 2b 61 35 30 29 20 20 3b 20 20 72 65 6a 65 63 74 0a 20 20 20 20 20 68 73 20 20 77 ┆ (x1+a50) ; reject hs w┆
0x369c0…369e0 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 20 20 20 75 32 2e 20 ┆0 +p80 ; jl. u2. ┆
0x369e0…36a00 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 74 65 73 74 6d 6f 72 65 0a 0a 65 2e 20 20 20 20 20 20 ┆ ; goto testmore e. ┆
0x36a00…36a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 72 65 6a 65 63 74 0a 0c ┆ ; end of reject ┆
0x36a20…36a40 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┆
0x36a40…36a60 6f 63 65 64 75 72 65 73 0a 3b 20 65 6c 69 2c 20 37 2e 38 2e 31 39 37 35 0a 0a 3b 20 74 65 73 74 ┆ocedures ; eli, 7.8.1975 ; test┆
0x36a60…36a80 6d 6f 72 65 0a 3b 0a 3b 20 65 6e 74 65 72 65 64 2c 20 77 68 65 6e 20 74 68 65 20 73 75 62 70 72 ┆more ; ; entered, when the subpr┆
0x36a80…36aa0 6f 63 2d 73 74 61 74 65 20 73 68 6f 75 6c 64 20 62 65 20 74 65 73 74 65 64 20 66 6f 72 20 6d 6f ┆oc-state should be tested for mo┆
0x36aa0…36ac0 72 65 20 6d 65 73 73 61 67 65 73 20 74 6f 0a 3b 20 70 72 6f 63 65 73 73 2e 0a 3b 0a 3b 20 69 66 ┆re messages to ; process. ; ; if┆
0x36ac0…36ae0 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 73 75 62 70 72 6f 63 20 69 73 20 66 72 65 ┆ the state of the subproc is fre┆
0x36ae0…36b00 65 2c 20 61 6e 64 20 6d 6f 72 65 20 6d 65 73 73 61 67 65 73 20 74 6f 20 70 72 6f 63 65 73 73 20 ┆e, and more messages to process ┆
0x36b00…36b20 65 78 69 73 74 0a 3b 20 74 68 65 20 73 75 62 70 72 6f 63 20 69 73 20 6c 69 6e 6b 65 64 20 74 6f ┆exist ; the subproc is linked to┆
0x36b20…36b40 20 74 68 65 20 6d 61 69 6e 70 72 6f 63 2e 0a 3b 0a 3b 20 72 65 74 75 72 6e 20 69 73 20 6d 61 64 ┆ the mainproc. ; ; return is mad┆
0x36b40…36b60 65 20 74 68 72 6f 75 67 68 20 74 68 65 20 63 6f 6d 6d 6f 6e 20 72 65 74 75 72 6e 2e 0a 3b 0a 3b ┆e through the common return. ; ;┆
0x36b60…36b80 20 75 70 6f 6e 20 65 6e 74 72 79 3a 0a 3b 0a 3b 20 20 77 30 20 20 20 20 0a 3b 20 20 77 31 0a 3b ┆ upon entry: ; ; w0 ; w1 ;┆
0x36b80…36ba0 20 20 77 32 20 20 20 0a 3b 20 20 77 33 0a 3b 20 20 62 31 39 20 20 20 20 73 75 62 70 72 6f 63 0a ┆ w2 ; w3 ; b19 subproc ┆
0x36ba0…36bc0 0a 62 2e 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ b.i10, j10 w. u2: ┆
0x36bc0…36be0 20 20 20 20 20 20 20 3b 20 74 65 73 74 6d 6f 72 65 3a 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 ┆ ; testmore: rl w1 ┆
0x36be0…36c00 62 31 39 20 20 20 20 20 20 20 3b 20 20 67 65 74 20 63 75 72 72 65 6e 74 20 73 75 62 70 72 6f 63 ┆b19 ; get current subproc┆
0x36c00…36c20 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┆
0x36c20…36c40 73 74 35 32 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 ┆st52***** rs. w3 f0. ┆
0x36c40…36c60 20 3b 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 0a 20 20 20 20 ┆ ; jl. w3 f4. ; ┆
0x36c60…36c80 20 35 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 66 30 3a 20 20 30 20 20 20 20 20 ┆ 52 ; f0: 0 ┆
0x36c80…36ca0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 66 31 2e 20 20 ┆ ; jl. f1. ┆
0x36ca0…36cc0 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 ┆ ; al w0 x1 ; ┆
0x36cc0…36ce0 20 20 74 65 73 74 72 65 63 6f 72 64 3a 3d 20 20 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 ┆ testrecord:= al w1 x1┆
0x36ce0…36d00 2b 70 31 39 2b 31 36 20 3b 20 20 20 20 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f ┆+p19+16 ; process descriptio┆
0x36d00…36d20 6e 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e 20 20 20 20 20 20 20 3b 0a 66 31 3a 20 ┆n; jl. w3 f5. ; f1: ┆
0x36d20…36d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 65 2e 7a 2e 20 20 20 20 20 20 20 ┆ ; e.z. ┆
0x36d40…36d60 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 32 2a 2a 2a 2a 2a 0a 20 20 ┆ ;*****test52***** ┆
0x36d60…36d80 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 70 31 34 20 20 20 20 3b 20 20 69 66 20 69 6e 20 6d 61 ┆ rl w0 x1+p14 ; if in ma┆
0x36d80…36da0 69 6e 70 72 6f 63 20 71 75 65 75 65 20 74 68 65 6e 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 78 ┆inproc queue then se w0 x┆
0x36da0…36dc0 31 2b 70 31 34 20 20 20 20 3b 20 20 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 28 62 31 30 31 29 ┆1+p14 ; jl (b101)┆
0x36dc0…36de0 20 20 20 20 3b 20 20 72 65 74 75 72 6e 0a 0a 3b 20 74 65 73 74 20 61 6e 73 77 65 72 73 20 74 6f ┆ ; return ; test answers to┆
0x36de0…36e00 20 74 72 61 6e 73 6d 69 74 0a 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 70 31 32 20 20 ┆ transmit rl w0 x1+p12 ┆
0x36e00…36e20 20 20 3b 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 ┆ ; c.p101 b.f1 w. ;****┆
0x36e20…36e40 2a 74 65 73 74 35 33 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 ┆*test53***** rs. w3 f0. ┆
0x36e40…36e60 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 20 20 20 20 20 3b 2a ┆ ;* jl. w3 f4. ;*┆
0x36e60…36e80 0a 20 20 20 20 20 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 0a 66 30 3a 20 20 ┆ 53 ;* f0: ┆
0x36e80…36ea0 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 20 6a 6c 2e 20 20 20 ┆0 ;* jl. ┆
0x36ea0…36ec0 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 30 20 20 78 33 20 20 ┆ f1. ;* al w0 x3 ┆
0x36ec0…36ee0 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 33 2d 32 20 20 20 20 20 20 ┆ ;* al w1 x3-2 ┆
0x36ee0…36f00 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 20 3b 2a 0a 66 31 3a ┆;* jl. w3 f5. ;* f1:┆
0x36f00…36f20 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 7a 2e 20 20 20 20 20 ┆ ;* e.z. ┆
0x36f20…36f40 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 33 2a 2a 2a 2a 2a 0a ┆ ;*****test53***** ┆
0x36f40…36f60 20 20 20 20 20 73 7a 20 20 77 30 20 20 76 37 31 20 20 20 20 20 20 20 3b 20 20 69 66 20 61 6e 73 ┆ sz w0 v71 ; if ans┆
0x36f60…36f80 77 65 72 20 61 74 74 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 30 2e ┆wer att<>0 then jl. i0.┆
0x36f80…36fa0 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 20 73 75 62 70 72 6f 63 0a 0a 3b 20 74 ┆ ; goto link subproc ; t┆
0x36fa0…36fc0 65 73 74 20 6d 65 73 73 61 67 65 20 65 6e 74 72 79 20 66 72 65 65 20 61 6e 64 20 6e 75 6d 62 65 ┆est message entry free and numbe┆
0x36fc0…36fe0 72 20 6f 66 20 62 75 66 66 65 72 73 20 66 72 65 65 0a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 ┆r of buffers free jl. w3 ┆
0x36fe0…37000 75 38 2e 20 20 20 20 20 20 20 3b 20 20 69 66 20 6d 65 73 73 2e 61 64 64 72 2e 28 63 75 72 2e 65 ┆u8. ; if mess.addr.(cur.e┆
0x37000…37020 6e 74 72 79 29 3c 3e 30 0a 20 20 20 20 20 62 6c 20 20 77 30 20 20 78 31 2b 70 31 36 20 20 20 20 ┆ntry)<>0 bl w0 x1+p16 ┆
0x37020…37040 3b 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 ┆; c.p101 b.f1 w. ;*****t┆
0x37040…37060 65 73 74 35 34 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 ┆est54***** rs. w3 f0. ┆
0x37060…37080 20 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 ┆ ;* jl. w3 f4. ;* ┆
0x37080…370a0 20 20 20 20 35 34 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 ┆ 54 ;* f0: 0 ┆
0x370a0…370c0 20 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 ┆ ;* jl. ┆
0x370c0…370e0 66 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 33 20 20 20 20 ┆f1. ;* al w0 x3 ┆
0x370e0…37100 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 33 2d 32 20 20 20 20 20 20 3b 2a ┆ ;* al w1 x3-2 ;*┆
0x37100…37120 0a 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 ┆ jl. w3 f5. ;* f1: ┆
0x37120…37140 20 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 ┆ ;* e.z. ┆
0x37140…37160 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 34 2a 2a 2a 2a 2a 0a 20 20 ┆ ;*****test54***** ┆
0x37160…37180 20 20 20 73 6e 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 6f 72 20 62 75 66 73 20 ┆ sn w2 0 ; or bufs ┆
0x37180…371a0 66 72 65 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 30 20 20 20 20 20 20 ┆free=0 then sn w0 0 ┆
0x371a0…371c0 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 20 20 20 3b 20 20 67 ┆ ; jl (b101) ; g┆
0x371c0…371e0 6f 74 6f 20 72 65 74 75 72 6e 0a 0a 3b 20 74 65 73 74 20 66 6f 72 20 61 20 63 75 72 72 65 6e 74 ┆oto return ; test for a current┆
0x371e0…37200 20 6d 65 73 73 61 67 65 20 6f 72 20 6d 6f 72 65 20 6d 65 73 73 61 67 65 73 20 74 6f 20 70 72 6f ┆ message or more messages to pro┆
0x37200…37220 (98,) 63 65 73 73 0a 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 70 31 32 20 20 20 20 3b 0a 20 ┆cess rl w0 x1+p12 ; ┆
0x37220…37240 20 20 20 20 73 7a 20 20 77 30 20 20 76 37 30 20 20 20 20 20 20 20 3b 20 20 69 66 20 62 6c 6f 63 ┆ sz w0 v70 ; if bloc┆
0x37240…37260 6b 65 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 20 20 20 20 28 ┆ked(subproc) then jl (┆
0x37260…37280 62 31 30 31 29 20 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 ┆b101) ; goto mainproc return┆
0x37280…372a0 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 76 37 32 20 20 20 20 20 20 20 3b 20 20 69 66 20 70 65 ┆ sz w0 v72 ; if pe┆
0x372a0…372c0 6e 64 69 6e 67 20 6d 65 73 73 61 67 65 73 28 73 75 62 70 72 6f 63 29 3c 3e 30 20 74 68 65 6e 0a ┆nding messages(subproc)<>0 then ┆
0x372c0…372e0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 30 2e 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c ┆ jl. i0. ; goto l┆
0x372e0…37300 69 6e 6b 20 73 75 62 70 72 6f 63 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 31 32 2e 20 20 20 ┆ink subproc jl. w3 u12. ┆
0x37300…37320 20 20 20 3b 20 20 69 66 20 6e 65 78 74 20 70 65 6e 64 69 6e 67 3d 30 20 74 68 65 6e 0a 63 2e 70 ┆ ; if next pending=0 then c.p┆
0x37320…37340 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 74 35 35 ┆101 b.f1 w. ;*****test55┆
0x37340…37360 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 3b 2a 0a ┆***** rs. w3 f0. ;* ┆
0x37360…37380 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 20 20 35 ┆ jl. w3 f4. ;* 5┆
0x37380…373a0 35 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 20 20 20 ┆5 ;* f0: 0 ┆
0x373a0…373c0 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 2e 20 20 ┆ ;* jl. f1. ┆
0x373c0…373e0 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 3b ┆ ;* al w0 x3 ;┆
0x373e0…37400 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 33 2d 32 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 ┆* al w1 x3-2 ;* ┆
0x37400…37420 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 20 20 20 ┆ jl. w3 f5. ;* f1: ┆
0x37420…37440 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 20 20 20 ┆ ;* e.z. ┆
0x37440…37460 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 35 2a 2a 2a 2a 2a 0a 20 20 20 20 20 73 6e ┆ ;*****test55***** sn┆
0x37460…37480 20 20 77 32 20 20 30 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 ┆ w2 0 ; jl (┆
0x37480…374a0 62 31 30 31 29 20 20 20 20 3b 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 0a 0a 3b 20 61 20 6d 65 73 ┆b101) ; goto return ; a mes┆
0x374a0…374c0 73 61 67 65 20 6f 72 20 61 6e 73 77 65 72 20 69 73 20 70 65 6e 64 69 6e 67 0a 3b 20 6c 69 6e 6b ┆sage or answer is pending ; link┆
0x374c0…374e0 20 73 75 62 70 72 6f 63 20 74 6f 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 6d 61 ┆ subproc to the corresponding ma┆
0x374e0…37500 69 6e 70 72 6f 63 0a 3b 0a 3b 20 6e 6f 74 65 3a 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 6e ┆inproc ; ; note: the buffer is n┆
0x37500…37520 6f 74 20 72 65 73 65 72 76 65 64 20 66 6f 72 20 74 68 65 20 73 75 62 70 72 6f 63 20 61 6e 64 20 ┆ot reserved for the subproc and ┆
0x37520…37540 74 68 65 20 62 75 66 66 65 72 61 64 64 72 65 73 73 0a 3b 20 20 20 20 20 20 20 6e 6f 74 20 73 61 ┆the bufferaddress ; not sa┆
0x37540…37560 76 65 64 20 75 6e 74 69 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 61 63 74 75 61 6c 6c 79 20 73 74 ┆ved until processing actually st┆
0x37560…37580 61 72 74 73 2e 0a 0a 69 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆arts. i0: ; ┆
0x37580…375a0 6c 69 6e 6b 20 73 75 62 70 72 6f 63 3a 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 31 2b 70 31 ┆link subproc: al w2 x1+p1┆
0x375a0…375c0 34 20 20 20 20 3b 20 20 65 6c 65 6d 3a 3d 20 71 75 65 75 65 20 65 6c 65 6d 28 73 75 62 70 72 6f ┆4 ; elem:= queue elem(subpro┆
0x375c0…375e0 63 29 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 20 20 68 65 61 ┆c) am (x1+a50) ; hea┆
0x375e0…37600 64 3a 3d 20 71 75 65 75 65 20 68 65 61 64 28 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 ┆d:= queue head(mainproc(subproc)┆
0x37600…37620 29 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 2b 70 31 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆) al w1 +p14 ; ┆
0x37620…37640 6a 6c 20 20 77 33 20 20 64 36 20 20 20 20 20 20 20 20 3b 20 20 6c 69 6e 6b 28 68 65 61 64 2c 65 ┆jl w3 d6 ; link(head,e┆
0x37640…37660 6c 65 6d 29 0a 0a 3b 20 6d 61 69 6e 70 72 6f 63 20 77 69 6c 6c 20 6c 61 74 65 72 20 61 63 74 69 ┆lem) ; mainproc will later acti┆
0x37660…37680 76 61 74 65 20 74 68 65 20 73 75 62 70 72 6f 63 0a 0a 20 20 20 20 20 6a 6c 20 20 20 20 28 62 31 ┆vate the subproc jl (b1┆
0x37680…376a0 30 31 29 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 0a 0a 65 2e 20 20 20 20 20 ┆01) ; goto return e. ┆
0x376a0…376c0 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 6d 6f 72 ┆ ; end of testmor┆
0x376c0…376e0 65 0a 0c 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 ┆e ; fpa-subproc common┆
0x376e0…37700 20 70 72 6f 63 65 64 75 72 65 73 0a 3b 20 65 6c 69 2c 20 37 2e 38 2e 31 39 37 35 0a 0a 3b 20 70 ┆ procedures ; eli, 7.8.1975 ; p┆
0x37700…37720 72 6f 63 65 64 75 72 65 20 6e 6f 20 62 6c 6f 63 6b 0a 3b 0a 3b 20 73 69 67 6e 61 6c 73 20 61 20 ┆rocedure no block ; ; signals a ┆
0x37720…37740 27 6e 6f 74 68 69 6e 67 20 74 6f 20 64 6f 27 20 73 74 61 74 75 73 20 74 6f 20 6d 61 69 6e 70 72 ┆'nothing to do' status to mainpr┆
0x37740…37760 6f 63 2c 0a 3b 20 63 6c 65 61 72 73 20 62 75 73 79 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 6f ┆oc, ; clears busy and returns to┆
0x37760…37780 20 6d 61 69 6e 70 72 6f 63 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 ┆ mainproc ; ; call ┆
0x37780…377a0 20 20 20 6e 6f 20 72 65 74 75 72 6e 0a 3b 20 77 30 0a 3b 20 77 31 20 20 20 20 20 73 75 62 70 72 ┆ no return ; w0 ; w1 subpr┆
0x377a0…377c0 6f 63 0a 3b 20 77 32 0a 3b 20 77 33 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 33 ┆oc ; w2 ; w3 b. i10, j10 w. u3┆
0x377c0…377e0 3a 20 20 61 6c 20 20 77 30 20 20 70 31 36 34 20 20 20 20 20 20 3b 20 6e 6f 20 62 6c 6f 63 6b 3a ┆: al w0 p164 ; no block:┆
0x377e0…37800 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 20 20 69 6e 74 65 72 ┆ am (x1+a50) ; inter┆
0x37800…37820 6e 61 6c 20 73 74 61 74 65 28 6d 61 69 6e 70 72 6f 63 29 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 ┆nal state(mainproc):= hs w┆
0x37820…37840 30 20 20 2b 70 36 30 20 20 20 20 20 20 3b 20 20 20 20 27 6e 6f 74 68 69 6e 67 20 74 6f 20 64 6f ┆0 +p60 ; 'nothing to do┆
0x37840…37860 27 20 28 69 2e 65 2e 20 72 65 67 72 65 74 74 65 64 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆' (i.e. regretted) jl. ┆
0x37860…37880 75 32 2e 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 74 65 73 74 6d 6f 72 65 0a 0a 65 2e 20 20 ┆u2. ; goto testmore e. ┆
0x37880…378a0 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 6e 6f 20 62 ┆ ; end of no b┆
0x378a0…378c0 6c 6f 63 6b 0a 0c 0a 3b 20 66 70 61 2d 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 20 20 20 73 74 ┆lock ; fpa-subproc st┆
0x378c0…378e0 65 70 70 69 6e 67 20 73 74 6f 6e 65 73 0a 3b 20 65 6c 69 2c 20 37 37 2e 30 36 2e 31 34 0a 0a 63 ┆epping stones ; eli, 77.06.14 c┆
0x378e0…37900 2e 20 70 31 30 31 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 66 34 2e 20 20 20 20 20 20 20 3b ┆. p101 jl. f4. ;┆
0x37900…37920 0a 66 34 3d 6b 2d 32 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 66 35 2e 20 20 20 20 20 20 20 ┆ f4=k-2 jl. f5. ┆
0x37920…37940 3b 0a 66 35 3d 6b 2d 32 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 66 36 2e 20 20 20 20 20 20 ┆; f5=k-2 jl. f6. ┆
0x37940…37960 20 3b 0a 66 36 3d 6b 2d 32 0a 0a 7a 2e 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 34 2e 20 ┆ ; f6=k-2 z. jl. u4. ┆
0x37960…37980 20 20 20 20 20 20 3b 0a 75 34 3d 6b 2d 32 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 38 2e ┆ ; u4=k-2 jl. u8.┆
0x37980…379a0 20 20 20 20 20 20 20 3b 0a 75 38 3d 6b 2d 32 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 31 ┆ ; u8=k-2 jl. u1┆
0x379a0…379c0 32 2e 20 20 20 20 20 20 3b 0a 75 31 32 3d 6b 2d 32 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆2. ; u12=k-2 jl. ┆
0x379c0…379e0 75 31 35 2e 20 20 20 20 20 20 3b 0a 75 31 35 3d 6b 2d 32 0a 0c 3b 20 66 70 61 2d 73 75 62 70 72 ┆u15. ; u15=k-2 ; fpa-subpr┆
0x379e0…37a00 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 ; ┆
0x37a00…37a20 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 65 20 70 72 65 70 ┆eli, 11.2.1976 ; procedure prep┆
0x37a20…37a40 61 72 65 20 74 72 61 6e 73 66 65 72 0a 3b 0a 3b 20 73 61 76 65 73 20 74 68 65 20 6d 65 73 73 61 ┆are transfer ; ; saves the messa┆
0x37a40…37a60 67 65 20 61 64 64 72 65 73 73 20 66 6f 72 20 74 68 65 20 73 75 62 70 72 6f 63 20 61 6e 64 20 74 ┆ge address for the subproc and t┆
0x37a60…37a80 68 65 6e 0a 3b 20 70 72 65 70 61 72 65 73 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 6f 66 20 61 ┆hen ; prepares transmission of a┆
0x37a80…37aa0 20 68 65 61 64 65 72 20 28 61 6e 64 20 6d 61 79 62 65 20 61 20 64 61 74 61 62 6c 6f 63 6b 29 0a ┆ header (and maybe a datablock) ┆
0x37aa0…37ac0 3b 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2d 66 69 65 ┆; depending on the operation-fie┆
0x37ac0…37ae0 6c 64 20 69 6e 20 74 68 65 20 6d 65 73 73 61 67 65 2e 0a 3b 20 66 69 6e 61 6c 6c 79 20 74 68 65 ┆ld in the message. ; finally the┆
0x37ae0…37b00 20 73 74 61 6e 64 61 72 64 20 70 61 72 61 6d 65 74 65 72 73 20 69 6e 20 6d 61 69 6e 70 72 6f 63 ┆ standard parameters in mainproc┆
0x37b00…37b20 (99,) 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 0a 3b 20 74 68 65 20 73 75 62 70 72 6f 63 20 ┆ corresponding to ; the subproc ┆
0x37b20…37b40 61 72 65 20 73 65 74 2e 0a 3b 0a 3b 20 6e 6f 74 65 2c 20 74 68 61 74 20 6f 6e 6c 79 20 74 68 65 ┆are set. ; ; note, that only the┆
0x37b40…37b60 20 6f 70 65 72 61 74 69 6f 6e 73 20 3c 69 6e 70 75 74 3e 2c 20 3c 6f 75 74 70 75 74 3e 20 6f 72 ┆ operations <input>, <output> or┆
0x37b60…37b80 20 3c 6d 65 73 73 61 67 65 3e 0a 3b 20 20 20 20 20 20 20 6d 61 79 20 62 65 20 68 61 6e 64 6c 65 ┆ <message> ; may be handle┆
0x37b80…37ba0 64 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 72 65 74 75 ┆d. ; ; call retu┆
0x37ba0…37bc0 72 6e 0a 3b 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 64 65 66 69 ┆rn ; w0 undefi┆
0x37bc0…37be0 6e 65 64 0a 3b 20 77 31 20 20 20 20 20 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 75 6e 63 68 61 ┆ned ; w1 subproc uncha┆
0x37be0…37c00 6e 67 65 64 0a 3b 20 77 32 20 20 20 20 20 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 75 6e 63 68 ┆nged ; w2 message unch┆
0x37c00…37c20 61 6e 67 65 64 0a 3b 20 77 33 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 75 6e 64 ┆anged ; w3 link und┆
0x37c20…37c40 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 33 30 3a 20 20 20 20 ┆efined b. i10, j10 w. u30: ┆
0x37c40…37c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 72 65 70 61 72 65 20 74 72 61 6e 73 66 65 ┆ ; prepare transfe┆
0x37c60…37c80 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 73 61 76 ┆r: rs. w3 j0. ; sav┆
0x37c80…37ca0 65 20 6c 69 6e 6b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 31 33 2e 20 20 20 20 20 20 3b 20 ┆e link jl. w3 u13. ; ┆
0x37ca0…37cc0 20 73 61 76 65 20 61 6e 64 20 72 65 73 65 72 76 65 20 6d 65 73 73 61 67 65 0a 20 20 20 20 20 61 ┆ save and reserve message a┆
0x37cc0…37ce0 6c 2e 20 77 33 20 20 69 30 2e 20 20 20 20 20 20 20 3b 20 20 6c 69 6e 6b 3a 3d 20 61 66 74 65 72 ┆l. w3 i0. ; link:= after┆
0x37ce0…37d00 20 70 72 65 70 61 72 65 0a 0a 3b 20 73 77 69 74 63 68 20 74 6f 20 70 72 6f 63 65 64 75 72 65 2c ┆ prepare ; switch to procedure,┆
0x37d00…37d20 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 6f 70 65 72 61 74 69 6f 6e 0a 0a 20 20 20 ┆ corresponding to operation ┆
0x37d20…37d40 20 20 62 6c 20 20 77 30 20 20 78 32 2b 38 20 20 20 20 20 20 3b 20 20 6f 70 3a 3d 20 6f 70 65 72 ┆ bl w0 x2+8 ; op:= oper┆
0x37d40…37d60 61 74 69 6f 6e 28 6d 65 73 29 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 33 20 20 20 20 20 20 20 ┆ation(mes) sn w0 3 ┆
0x37d60…37d80 20 20 3b 20 20 69 66 20 6f 70 3d 69 6e 70 75 74 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆ ; if op=input then jl. ┆
0x37d80…37da0 20 20 20 75 33 31 2e 20 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 70 72 65 70 61 72 65 20 ┆ u31. ; goto prepare ┆
0x37da0…37dc0 69 6e 70 75 74 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 35 20 20 20 20 20 20 20 20 20 3b 20 20 ┆input sn w0 5 ; ┆
0x37dc0…37de0 69 66 20 6f 70 3d 6f 75 74 70 75 74 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 ┆if op=output then jl. u┆
0x37de0…37e00 33 32 2e 20 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 70 72 65 70 61 72 65 20 6f 75 74 70 ┆32. ; goto prepare outp┆
0x37e00…37e20 75 74 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 75 33 33 2e 20 20 20 20 20 20 3b 20 20 67 6f 74 ┆ut jl. u33. ; got┆
0x37e20…37e40 6f 20 70 72 65 70 61 72 65 20 6d 65 73 73 61 67 65 0a 0a 3b 20 72 65 74 75 72 6e 20 69 73 20 6d ┆o prepare message ; return is m┆
0x37e40…37e60 61 64 65 20 74 6f 20 68 65 72 65 20 66 72 6f 6d 20 61 6c 6c 20 73 75 62 72 6f 75 74 69 6e 65 20 ┆ade to here from all subroutine ┆
0x37e60…37e80 63 61 6c 6c 73 2e 0a 3b 20 73 65 74 20 72 65 73 74 20 6f 66 20 70 61 72 61 6d 65 74 65 72 73 0a ┆calls. ; set rest of parameters ┆
0x37e80…37ea0 0a 69 30 3a 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 ┆ i0: rl w3 x1+a50 ; main:┆
0x37ea0…37ec0 3d 20 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 62 7a 20 20 77 30 20 ┆= mainproc(subproc) bz w0 ┆
0x37ec0…37ee0 20 78 31 2b 61 35 36 2b 31 20 20 3b 20 20 73 3a 3d 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 74 61 ┆ x1+a56+1 ; s:= initialize sta┆
0x37ee0…37f00 74 65 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 31 20 20 20 20 20 20 ┆te(subproc) se w0 1 ┆
0x37f00…37f20 20 20 20 3b 20 20 73 74 61 74 65 28 6d 61 69 6e 29 3a 3d 20 69 66 20 73 3d 31 20 74 68 65 6e 20 ┆ ; state(main):= if s=1 then ┆
0x37f20…37f40 73 20 65 6c 73 65 20 30 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 ┆s else 0 al w0 0 ┆
0x37f40…37f60 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 70 36 32 20 20 20 20 3b 0a 20 20 20 20 20 ┆; hs w0 x3+p62 ; ┆
0x37f60…37f80 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 69 6e 69 74 69 61 6c 69 7a 65 20 ┆al w0 0 ; initialize ┆
0x37f80…37fa0 73 74 61 74 65 28 73 75 62 70 72 6f 63 29 3a 3d 30 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 ┆state(subproc):=0 hs w0 x┆
0x37fa0…37fc0 31 2b 61 35 36 2b 31 20 20 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 32 2b 39 20 20 20 20 ┆1+a56+1 ; bz w0 x2+9 ┆
0x37fc0…37fe0 20 20 3b 20 20 6d 6f 64 65 28 6d 61 69 6e 29 3a 3d 20 6d 6f 64 65 28 6d 65 73 29 0a 20 20 20 20 ┆ ; mode(main):= mode(mes) ┆
0x37fe0…38000 20 72 73 20 20 77 30 20 20 78 33 2b 70 36 33 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 ┆ rs w0 x3+p63 ; jl. w3┆
0x38000…38020 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 20 20 ┆ u25. ; set linkparams ┆
0x38020…38040 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 70 31 33 20 20 20 20 3b 20 20 20 69 66 20 63 75 72 72 ┆ rl w0 x1+p13 ; if curr┆
0x38040…38060 65 6e 74 20 6d 65 73 73 61 67 65 28 73 75 62 70 72 6f 63 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆ent message(subproc)<>0 then ┆
0x38060…38080 20 20 73 6e 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 62 6c 6f 63 6b 65 ┆ sn w0 0 ; blocke┆
0x38080…380a0 64 28 73 75 62 70 72 6f 63 29 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 ┆d(subproc):=true; jl. i┆
0x380a0…380c0 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 76 37 30 20 20 20 20 20 ┆1. ; al w0 v70 ┆
0x380c0…380e0 20 20 3b 0a 20 20 20 20 20 6c 6f 20 20 77 30 20 20 78 31 2b 70 31 32 20 20 20 20 3b 0a 20 20 20 ┆ ; lo w0 x1+p12 ; ┆
0x380e0…38100 20 20 72 73 20 20 77 30 20 20 78 31 2b 70 31 32 20 20 20 20 3b 0a 69 31 3a 20 20 20 20 20 20 20 ┆ rs w0 x1+p12 ; i1: ┆
0x38100…38120 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 63 2e 70 31 30 31 20 62 2e 66 31 20 77 2e 20 20 20 ┆ ; c.p101 b.f1 w. ┆
0x38120…38140 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 36 2a 2a 2a 2a 2a 0a 20 20 20 20 20 72 73 2e ┆ ;*****test56***** rs.┆
0x38140…38160 20 77 33 20 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 ┆ w3 f0. ;* jl. w3 f┆
0x38160…38180 34 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 35 36 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4. ;* 56 ┆
0x38180…381a0 20 20 20 3b 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 ┆ ;* f0: 0 ;* ┆
0x381a0…381c0 20 20 20 20 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 ┆ jl. f1. ;* a┆
0x381c0…381e0 6c 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 ┆l w0 x2 ;* al w1 ┆
0x381e0…38200 20 78 32 2b 32 32 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e 20 20 ┆ x2+22 ;* jl. w3 f5. ┆
0x38200…38220 20 20 20 20 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 ┆ ;* f1: ;┆
0x38220…38240 2a 0a 65 2e 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 ┆* e.z. ;*****t┆
0x38240…38260 65 73 74 35 36 2a 2a 2a 2a 2a 0a 0a 3b 20 72 65 74 75 72 6e 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆est56***** ; return jl. ┆
0x38260…38280 20 20 20 28 6a 30 2e 29 20 20 20 20 20 3b 0a 0a 6a 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 ┆ (j0.) ; j0: 0 ┆
0x38280…382a0 20 20 20 20 20 20 20 3b 20 20 73 61 76 65 64 20 6c 69 6e 6b 0a 0a 65 2e 20 20 20 20 20 20 20 20 ┆ ; saved link e. ┆
0x382a0…382c0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 70 72 65 70 61 72 65 20 74 72 ┆ ; end of prepare tr┆
0x382c0…382e0 61 6e 73 66 65 72 0a 0c 3b 20 66 70 61 2d 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 20 20 20 63 ┆ansfer ; fpa-subproc c┆
0x382e0…38300 6f 6d 6d 6f 6e 20 70 72 6f 63 65 64 75 72 65 73 0a 3b 20 65 6c 69 2c 20 31 39 2e 38 2e 31 39 37 ┆ommon procedures ; eli, 19.8.197┆
0x38300…38320 35 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 70 72 65 70 61 72 65 20 69 6e 70 75 74 0a 3b 0a 3b ┆5 ; procedure prepare input ; ;┆
0x38320…38340 20 70 72 65 70 61 72 65 73 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 6f 66 20 61 20 68 65 61 64 ┆ prepares transmission of a head┆
0x38340…38360 65 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 61 6e 20 69 6e 70 75 74 2d 0a 3b 20 ┆er corresponding to an input- ; ┆
0x38360…38380 6d 65 73 73 61 67 65 2e 20 74 68 65 20 3c 73 69 7a 65 3e 2d 66 69 65 6c 64 20 6f 66 20 74 68 65 ┆message. the <size>-field of the┆
0x38380…383a0 20 68 65 61 64 65 72 20 73 68 6f 77 73 20 68 6f 77 20 6d 61 6e 79 20 63 68 61 72 61 63 74 65 72 ┆ header shows how many character┆
0x383a0…383c0 73 0a 3b 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 70 75 74 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 ┆s ; should be input. ; ; ┆
0x383c0…383e0 63 61 6c 6c 20 20 20 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 ┆call return ; w0 ┆
0x383e0…38400 20 20 20 20 20 20 20 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 ┆ undefined ; w1 s┆
0x38400…38420 (100,) 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 77 32 20 20 20 20 20 ┆ubproc unchanged ; w2 ┆
0x38420…38440 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 77 33 20 20 20 20 ┆message unchanged ; w3 ┆
0x38440…38460 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 0a 62 2e 20 69 31 30 ┆ link undefined b. i10┆
0x38460…38480 2c 20 6a 31 30 0a 77 2e 0a 75 33 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, j10 w. u31: ┆
0x38480…384a0 3b 20 70 72 65 70 61 72 65 20 69 6e 70 75 74 3a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 6a 30 ┆; prepare input: rs. w3 j0┆
0x384a0…384c0 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 6a 6c 2e 20 77 33 ┆. ; save link jl. w3┆
0x384c0…384e0 20 20 75 31 36 2e 20 20 20 20 20 20 3b 20 20 70 72 65 70 61 72 65 20 61 64 64 72 65 73 73 65 73 ┆ u16. ; prepare addresses┆
0x384e0…38500 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 69 6e 3a ┆ rl w3 x1+a50 ; main:┆
0x38500…38520 3d 20 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 61 6c 20 20 77 30 20 ┆= mainproc(subproc) al w0 ┆
0x38520…38540 20 76 35 30 20 20 20 20 20 20 20 3b 20 20 66 75 6e 63 74 69 6f 6e 28 6d 61 69 6e 29 3a 3d 20 69 ┆ v50 ; function(main):= i┆
0x38540…38560 6e 70 75 74 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 70 36 31 20 20 20 20 3b 0a 20 20 ┆nput hs w0 x3+p61 ; ┆
0x38560…38580 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 64 61 74 61 20 73 69 7a ┆ al w0 0 ; data siz┆
0x38580…385a0 65 28 6d 61 69 6e 29 3a 3d 20 30 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 70 36 36 20 ┆e(main):= 0 rs w0 x3+p66 ┆
0x385a0…385c0 20 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 ┆ ; jl. (j0.) ; g┆
0x385c0…385e0 6f 74 6f 20 6c 69 6e 6b 0a 0a 6a 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆oto link j0: 0 ┆
0x385e0…38600 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 20 ┆ ; saved link e. ┆
0x38600…38620 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 70 72 65 70 61 72 65 20 69 6e 70 75 74 0a 0c 3b 20 ┆ ; end of prepare input ; ┆
0x38620…38640 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 6f 63 ┆fpa-subproc common proc┆
0x38640…38660 65 64 75 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 ┆edures ; eli, 11.2.1976 ; proce┆
0x38660…38680 64 75 72 65 20 70 72 65 70 61 72 65 20 6f 75 74 70 75 74 0a 3b 0a 3b 20 70 72 65 70 61 72 65 73 ┆dure prepare output ; ; prepares┆
0x38680…386a0 20 74 68 65 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 6f 66 20 61 20 68 65 61 64 65 72 20 63 6f ┆ the transmission of a header co┆
0x386a0…386c0 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 61 6e 0a 3b 20 6f 75 74 70 75 74 2d 6d 65 73 73 61 ┆rresponding to an ; output-messa┆
0x386c0…386e0 67 65 2e 20 74 68 65 20 61 64 64 72 65 73 73 65 73 20 69 6e 20 74 68 65 20 73 65 6e 64 65 72 20 ┆ge. the addresses in the sender ┆
0x386e0…38700 74 61 62 6c 65 20 6f 66 20 6d 61 69 6e 70 72 6f 63 0a 3b 20 61 72 65 20 69 6e 69 74 69 61 6c 69 ┆table of mainproc ; are initiali┆
0x38700…38720 7a 65 64 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 61 20 64 61 74 61 62 6c 6f 63 6b ┆zed corresponding to a datablock┆
0x38720…38740 2c 20 77 68 69 63 68 20 69 73 20 74 6f 0a 3b 20 62 65 20 74 72 61 6e 73 6d 69 74 74 65 64 20 66 ┆, which is to ; be transmitted f┆
0x38740…38760 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 68 65 61 64 65 72 2e 0a 3b 20 69 66 20 74 68 65 20 73 65 ┆ollowing the header. ; if the se┆
0x38760…38780 6e 64 65 72 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 73 74 6f 70 70 65 64 2c 20 ┆nder of the message is stopped, ┆
0x38780…387a0 61 6e 20 61 6e 73 77 65 72 20 69 73 20 0a 3b 20 67 65 6e 65 72 61 74 65 64 20 73 68 6f 77 69 6e ┆an answer is ; generated showin┆
0x387a0…387c0 67 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 61 6e 64 20 63 68 61 72 61 63 ┆g the number of bytes and charac┆
0x387c0…387e0 74 65 72 73 20 6f 75 74 70 75 74 0a 3b 20 75 6e 74 69 6c 20 6e 6f 77 2e 0a 3b 0a 3b 20 20 20 20 ┆ters output ; until now. ; ; ┆
0x387e0…38800 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 77 30 20 20 20 ┆ call return ; w0 ┆
0x38800…38820 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 77 31 20 20 ┆ undefined ; w1 ┆
0x38820…38840 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 77 32 20 ┆ subproc unchanged ; w2 ┆
0x38840…38860 20 20 20 20 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 77 33 ┆ message unchanged ; w3┆
0x38860…38880 20 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 0a 62 2e ┆ link undefined b.┆
0x38880…388a0 20 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 33 32 3a 20 72 73 2e 20 77 33 20 20 6a 30 2e 20 20 ┆ i10, j10 w. u32: rs. w3 j0. ┆
0x388a0…388c0 20 20 20 20 20 3b 20 70 72 65 70 61 72 65 20 6f 75 74 70 75 74 3a 20 73 61 76 65 20 6c 69 6e 6b ┆ ; prepare output: save link┆
0x388c0…388e0 0a 0a 3b 20 65 78 61 6d 69 6e 65 20 73 74 61 74 65 20 6f 66 20 73 65 6e 64 65 72 0a 0a 20 20 20 ┆ ; examine state of sender ┆
0x388e0…38900 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 61 6e 64 20 ┆ jl. w3 u21. ; test and ┆
0x38900…38920 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 20 20 20 20 ┆increase stop count jl. ┆
0x38920…38940 20 75 33 2e 20 20 20 20 20 20 20 3b 20 73 74 6f 70 70 65 64 3a 20 67 6f 74 6f 20 6e 6f 20 62 6c ┆ u3. ; stopped: goto no bl┆
0x38940…38960 6f 63 6b 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 20 20 20 20 ┆ock ; sender still running ┆
0x38960…38980 20 72 6c 20 20 77 33 20 20 78 31 2b 61 35 30 20 20 20 20 3b 20 6d 61 69 6e 3a 3d 20 6d 61 69 6e ┆ rl w3 x1+a50 ; main:= main┆
0x38980…389a0 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 76 35 32 2b 28 3a 31 3c 30 ┆(subproc) al w0 v52+(:1<0┆
0x389a0…389c0 3a 29 3b 20 66 75 6e 63 74 69 6f 6e 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 30 ┆:); function(main):= hs w0┆
0x389c0…389e0 20 20 78 33 2b 70 36 31 20 20 20 20 3b 20 6f 75 74 70 75 74 2b 64 61 74 61 62 69 74 0a 63 2e 20 ┆ x3+p61 ; output+databit c. ┆
0x389e0…38a00 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 20 ┆p103-1 al w0 0 ; ┆
0x38a00…38a20 61 64 64 72 65 73 73 63 6f 64 65 28 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 68 73 20 20 77 30 20 ┆addresscode(main):= hs w0 ┆
0x38a20…38a40 20 78 33 2b 70 37 32 20 20 20 20 3b 20 73 65 6e 64 65 72 20 61 72 65 61 0a 20 20 20 20 20 72 73 ┆ x3+p72 ; sender area rs┆
0x38a40…38a60 20 20 77 32 20 20 78 33 2b 70 37 31 20 20 20 20 3b 20 6d 65 73 73 61 67 65 62 75 66 28 6d 61 69 ┆ w2 x3+p71 ; messagebuf(mai┆
0x38a60…38a80 6e 29 3a 3d 20 6d 65 73 73 61 67 65 3b 0a 7a 2e 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 31 ┆n):= message; z. jl. w3 u1┆
0x38a80…38aa0 36 2e 20 20 20 20 20 20 3b 20 20 70 72 65 70 61 72 65 20 61 64 64 72 65 73 73 65 73 0a 20 20 20 ┆6. ; prepare addresses ┆
0x38aa0…38ac0 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 6c 69 6e 6b ┆ jl. (j0.) ; goto link┆
0x38ac0…38ae0 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 76 65 ┆ j0: 0 ; save┆
0x38ae0…38b00 64 20 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 ┆d link e. ;┆
0x38b00…38b20 20 65 6e 64 20 6f 66 20 70 72 65 70 61 72 65 20 6f 75 74 70 75 74 0a 0c 3b 20 66 70 61 2d 73 75 ┆ end of prepare output ; fpa-su┆
0x38b20…38b40 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 73 ┆bproc common procedures┆
0x38b40…38b60 0a 3b 20 65 6c 69 2c 20 31 39 2e 38 2e 31 39 37 35 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 70 ┆ ; eli, 19.8.1975 ; procedure p┆
0x38b60…38b80 72 65 70 61 72 65 20 6d 65 73 73 61 67 65 0a 3b 0a 3b 20 70 72 65 70 61 72 65 73 20 74 72 61 6e ┆repare message ; ; prepares tran┆
0x38b80…38ba0 73 6d 69 73 73 69 6f 6e 20 6f 66 20 61 20 68 65 61 64 65 72 20 2c 20 66 6f 6c 6c 6f 77 65 64 20 ┆smission of a header , followed ┆
0x38ba0…38bc0 62 79 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 0a 3b 20 74 68 65 20 6d 65 73 73 61 67 65 62 ┆by the content of ; the messageb┆
0x38bc0…38be0 75 66 66 65 72 20 28 6f 6e 6c 79 20 74 68 65 20 75 73 65 72 20 70 61 72 74 20 69 73 20 74 72 61 ┆uffer (only the user part is tra┆
0x38be0…38c00 6e 73 6d 69 74 74 65 64 29 2e 0a 3b 20 74 68 65 20 66 69 65 6c 64 20 3c 63 75 72 72 65 6e 74 20 ┆nsmitted). ; the field <current ┆
0x38c00…38c20 6d 65 73 73 61 67 65 3e 20 69 6e 20 74 68 65 20 73 75 62 70 72 6f 63 20 69 73 20 63 6c 65 61 72 ┆message> in the subproc is clear┆
0x38c20…38c40 65 64 2e 0a 3b 0a 3b 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 72 65 74 ┆ed. ; ; call ret┆
0x38c40…38c60 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 20 20 75 6e 64 65 66 ┆urn ; w0 undef┆
0x38c60…38c80 69 6e 65 64 0a 3b 20 77 31 20 20 20 20 20 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 75 6e 63 68 ┆ined ; w1 subproc unch┆
0x38c80…38ca0 61 6e 67 65 64 0a 3b 20 77 32 20 20 20 20 20 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 75 6e 63 ┆anged ; w2 message unc┆
0x38ca0…38cc0 68 61 6e 67 65 64 0a 3b 20 77 33 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 6d 61 ┆hanged ; w3 link ma┆
0x38cc0…38ce0 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 33 33 3a 20 72 73 2e ┆inproc b. i10, j10 w. u33: rs.┆
0x38ce0…38d00 20 77 33 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 70 72 65 70 61 72 65 20 6d 65 73 73 61 67 65 ┆ w3 j0. ; prepare message┆
0x38d00…38d20 (101,) 3a 20 73 61 76 65 20 6c 69 6e 6b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 ┆: save link al w0 0 ┆
0x38d20…38d40 20 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 6f 63 29 3a 3d ┆ ; current message(subproc):=┆
0x38d40…38d60 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 0a 20 20 20 20 ┆ 0 rs w0 x1+p13 ; ┆
0x38d60…38d80 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 61 69 ┆ rl w3 x1+a50 ; main:= mai┆
0x38d80…38da0 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 38 ┆nproc(subproc) al w0 x2+8┆
0x38da0…38dc0 20 20 20 20 20 20 3b 20 20 66 69 72 73 74 28 6d 61 69 6e 29 3a 3d 20 66 69 72 73 74 20 75 73 65 ┆ ; first(main):= first use┆
0x38dc0…38de0 72 20 61 64 64 72 28 6d 65 73 29 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 70 36 35 20 ┆r addr(mes) rs w0 x3+p65 ┆
0x38de0…38e00 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 28 3a 32 32 2d 38 2b 32 3a 29 2f 32 2a 33 ┆ ; al w0 (:22-8+2:)/2*3┆
0x38e00…38e20 3b 20 68 65 61 64 65 72 20 73 69 7a 65 28 6d 61 69 6e 29 3a 3d 20 64 61 74 61 20 73 69 7a 65 28 ┆; header size(main):= data size(┆
0x38e20…38e40 6d 61 69 6e 29 3a 3d 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 70 36 34 20 20 20 20 3b ┆main):= rs w0 x3+p64 ;┆
0x38e40…38e60 20 20 20 20 73 69 7a 65 20 6f 66 20 75 73 65 72 20 70 61 72 74 28 6d 65 73 29 0a 20 20 20 20 20 ┆ size of user part(mes) ┆
0x38e60…38e80 72 73 20 20 77 30 20 20 78 33 2b 70 36 36 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 ┆rs w0 x3+p66 ; al w0 ┆
0x38e80…38ea0 20 76 35 34 2b 28 3a 31 3c 30 3a 29 3b 20 66 75 6e 63 74 69 6f 6e 28 6d 61 69 6e 70 72 6f 63 29 ┆ v54+(:1<0:); function(mainproc)┆
0x38ea0…38ec0 3a 3d 20 6d 65 73 73 61 67 65 2b 64 61 74 61 62 69 74 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 ┆:= message+databit hs w0 ┆
0x38ec0…38ee0 78 33 2b 70 36 31 20 20 20 20 3b 0a 63 2e 20 70 31 30 33 2d 31 0a 20 20 20 20 20 61 6c 20 20 77 ┆x3+p61 ; c. p103-1 al w┆
0x38ee0…38f00 30 20 20 38 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 70 ┆0 8 ; hs w0 x3+p┆
0x38f00…38f20 37 32 20 20 20 20 3b 0a 7a 2e 0a 0a 3b 20 72 65 74 75 72 6e 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆72 ; z. ; return jl. ┆
0x38f20…38f40 20 20 20 28 6a 30 2e 29 20 20 20 20 20 3b 20 20 0a 0a 6a 30 3a 20 20 30 20 20 20 20 20 20 20 20 ┆ (j0.) ; j0: 0 ┆
0x38f40…38f60 20 20 20 20 20 20 20 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 ┆ ; saved link e. ┆
0x38f60…38f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 70 72 65 70 61 72 65 20 6d ┆ ; end of prepare m┆
0x38f80…38fa0 65 73 73 61 67 65 0a 0c 3b 20 66 70 61 2d 73 75 62 70 72 6f 63 20 20 20 20 20 20 20 20 20 20 63 ┆essage ; fpa-subproc c┆
0x38fa0…38fc0 6f 6d 6d 6f 6e 20 70 72 6f 63 65 64 75 72 65 73 0a 3b 20 65 6c 69 2c 20 31 31 2e 32 2e 31 39 37 ┆ommon procedures ; eli, 11.2.197┆
0x38fc0…38fe0 36 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 20 68 65 61 64 65 72 20 61 6e 64 20 64 ┆6 ; procedure test header and d┆
0x38fe0…39000 61 74 61 20 74 72 61 6e 73 6d 69 74 74 65 64 0a 3b 0a 3b 20 74 65 73 74 73 20 74 68 65 20 72 65 ┆ata transmitted ; ; tests the re┆
0x39000…39020 73 75 6c 74 20 6f 66 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 6f 66 20 61 20 68 65 61 64 65 72 ┆sult of transmission of a header┆
0x39020…39040 20 61 6e 64 20 28 6d 61 79 62 65 29 0a 3b 20 61 20 64 61 74 61 62 6c 6f 63 6b 2e 0a 3b 20 69 66 ┆ and (maybe) ; a datablock. ; if┆
0x39040…39060 20 74 68 65 20 3c 73 74 6f 70 20 63 6f 75 6e 74 20 69 6e 63 72 65 61 73 65 64 3e 2d 66 6c 61 67 ┆ the <stop count increased>-flag┆
0x39060…39080 20 69 73 20 73 65 74 2c 20 74 68 65 20 73 74 6f 70 20 63 6f 75 6e 74 0a 3b 20 6f 66 20 74 68 65 ┆ is set, the stop count ; of the┆
0x39080…390a0 20 73 65 6e 64 65 72 20 6f 66 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20 69 73 20 64 65 ┆ sender of current message is de┆
0x390a0…390c0 63 72 65 61 73 65 64 2e 0a 3b 20 69 66 20 61 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 65 72 72 ┆creased. ; if a transmission err┆
0x390c0…390e0 6f 72 20 68 61 73 20 6f 63 63 75 72 65 64 2c 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 ┆or has occured, the message is r┆
0x390e0…39100 65 74 75 72 6e 65 64 0a 3b 20 77 69 74 68 20 72 65 73 75 6c 74 3d 34 20 28 72 65 63 65 69 76 65 ┆eturned ; with result=4 (receive┆
0x39100…39120 72 20 6d 61 6c 66 75 6e 63 74 69 6f 6e 29 20 61 6e 64 20 74 68 65 20 3c 63 75 72 72 65 6e 74 20 ┆r malfunction) and the <current ┆
0x39120…39140 6d 65 73 73 61 67 65 3e 2d 0a 3b 20 66 69 65 6c 64 20 63 6c 65 61 72 65 64 2e 20 72 65 74 75 72 ┆message>- ; field cleared. retur┆
0x39140…39160 6e 20 77 69 6c 6c 20 74 68 65 6e 20 62 65 20 6d 61 64 65 20 74 6f 20 3c 6c 69 6e 6b 2b 30 3e 2e ┆n will then be made to <link+0>.┆
0x39160…39180 0a 3b 0a 3b 20 69 66 20 6e 6f 20 65 72 72 6f 72 20 68 61 73 20 6f 63 63 75 72 65 64 2c 20 3c 63 ┆ ; ; if no error has occured, <c┆
0x39180…391a0 75 72 72 65 6e 74 20 62 75 66 6e 6f 3e 20 69 73 0a 3b 20 69 6e 63 72 65 61 73 65 64 20 61 6e 64 ┆urrent bufno> is ; increased and┆
0x391a0…391c0 20 72 65 74 75 72 6e 20 6d 61 64 65 20 74 6f 20 3c 6c 69 6e 6b 2b 32 3e 2e 0a 3b 0a 3b 20 20 20 ┆ return made to <link+2>. ; ; ┆
0x391c0…391e0 20 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 77 30 20 20 ┆ call return ; w0 ┆
0x391e0…39200 20 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 77 31 20 ┆ undefined ; w1 ┆
0x39200…39220 20 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 77 32 ┆ subproc unchanged ; w2┆
0x39220…39240 20 20 20 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 77 ┆ undefined ; w┆
0x39240…39260 33 20 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 0a 62 ┆3 link undefined b┆
0x39260…39280 2e 20 69 31 30 2c 20 6a 31 30 0a 77 2e 0a 0a 75 34 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆. i10, j10 w. u40: ┆
0x39280…392a0 20 20 20 20 20 20 3b 20 74 65 73 74 20 68 65 61 64 65 72 20 61 6e 64 20 64 61 74 61 20 74 72 61 ┆ ; test header and data tra┆
0x392a0…392c0 6e 73 6d 69 74 74 65 64 3a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 6a 30 2e 20 20 20 20 20 20 ┆nsmitted: rs. w3 j0. ┆
0x392c0…392e0 20 3b 20 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 ┆ ; save link rl w3 x1+a5┆
0x392e0…39300 30 20 20 20 20 3b 20 20 69 66 20 66 75 6e 63 74 69 6f 6e 20 74 79 70 65 28 6d 61 69 6e 28 73 75 ┆0 ; if function type(main(su┆
0x39300…39320 62 70 72 6f 63 29 29 3d 61 6e 73 77 65 72 20 74 68 65 6e 0a 20 20 20 20 20 62 7a 20 20 77 30 20 ┆bproc))=answer then bz w0 ┆
0x39320…39340 20 78 33 2b 70 36 31 20 20 20 20 3b 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 32 2e 31 30 20 20 ┆ x3+p61 ; sz w0 2.10 ┆
0x39340…39360 20 20 20 20 3b 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 20 20 ┆ ; jl. i1. ; ┆
0x39360…39380 67 6f 74 6f 20 61 66 74 65 72 20 61 6e 73 77 65 72 20 61 74 74 65 6e 74 69 6f 6e 0a 20 20 20 20 ┆goto after answer attention ┆
0x39380…393a0 20 6a 6c 2e 20 77 33 20 20 75 38 2e 20 20 20 20 20 20 20 3b 20 20 3c 63 75 72 72 65 6e 74 20 62 ┆ jl. w3 u8. ; <current b┆
0x393a0…393c0 75 66 66 65 72 3e 3a 3d 20 77 32 3a 3d 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 62 31 38 20 20 ┆uffer>:= w2:= rs w2 b18 ┆
0x393c0…393e0 20 20 20 20 20 3b 20 20 6d 65 73 73 61 67 65 0a 20 20 20 20 20 62 6c 20 20 77 32 20 20 78 31 2b ┆ ; message bl w2 x1+┆
0x393e0…39400 70 31 37 20 20 20 20 3b 20 20 67 65 74 20 6d 65 73 73 61 67 65 6e 6f 0a 20 20 20 20 20 73 7a 20 ┆p17 ; get messageno sz ┆
0x39400…39420 20 77 30 20 20 32 2e 31 20 20 20 20 20 20 20 3b 20 20 69 66 20 64 61 74 61 62 69 74 28 66 75 6e ┆ w0 2.1 ; if databit(fun┆
0x39420…39440 63 74 69 6f 6e 29 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 31 38 2e 20 ┆ction)=1 then jl. w3 u18. ┆
0x39440…39460 20 20 20 20 20 3b 20 20 74 65 73 74 20 61 6e 64 20 64 65 63 72 65 61 73 65 20 73 74 6f 70 20 63 ┆ ; test and decrease stop c┆
0x39460…39480 6f 75 6e 74 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 62 31 38 20 20 20 20 20 20 20 3b 0a 0a 3b ┆ount rl w2 b18 ; ;┆
0x39480…394a0 20 74 65 73 74 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 73 74 61 74 65 0a 0a 20 20 20 20 20 61 ┆ test transmission state a┆
0x394a0…394c0 6d 20 20 20 20 20 20 28 78 31 2b 61 35 30 29 20 20 3b 20 20 69 66 20 69 6e 74 65 72 6e 61 6c 20 ┆m (x1+a50) ; if internal ┆
0x394c0…394e0 73 74 61 74 65 28 6d 61 69 6e 70 72 6f 63 28 73 75 62 70 72 6f 63 29 29 3c 3e 30 20 74 68 65 6e ┆state(mainproc(subproc))<>0 then┆
0x394e0…39500 0a 20 20 20 20 20 62 6c 20 20 77 30 20 20 2b 70 36 30 20 20 20 20 20 20 3b 20 20 62 65 67 69 6e ┆ bl w0 +p60 ; begin┆
0x39500…39520 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a ┆ sn w0 0 ; j┆
0x39520…39540 6c 2e 20 20 20 20 20 69 30 2e 20 20 20 20 20 20 20 3b 20 20 0a 0a 3b 20 74 72 61 6e 73 6d 69 73 ┆l. i0. ; ; transmis┆
0x39540…39560 73 69 6f 6e 20 74 72 6f 75 62 6c 65 0a 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 28 62 38 2b 34 ┆sion trouble sl w2 (b8+4┆
0x39560…39580 29 20 20 20 20 3b 20 20 69 66 20 6d 65 73 73 61 67 65 20 61 64 64 72 3e 3d 66 69 72 73 74 20 6d ┆) ; if message addr>=first m┆
0x39580…395a0 65 73 73 61 67 65 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 2b 34 20 20 20 20 20 ┆essage then jl. +4 ┆
0x395a0…395c0 20 20 20 3b 20 20 62 65 67 69 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 2e 20 20 20 20 ┆ ; begin jl. i2. ┆
0x395c0…395e0 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 20 20 3b 0a 20 20 ┆ ; ; ┆
0x395e0…39600 20 20 20 73 65 20 20 77 30 20 20 70 31 36 31 20 20 20 20 20 20 3b 20 20 20 69 66 20 73 74 61 74 ┆ se w0 p161 ; if stat┆
0x39600…39620 (102,) 65 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 ┆e<>1 then al w2 0 ┆
0x39620…39640 20 3b 20 20 20 6d 65 73 3a 3d 20 30 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b 70 31 33 ┆ ; mes:= 0 rs w2 x1+p13┆
0x39640…39660 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 73 74 61 74 65 3d 31 20 61 66 74 65 72 20 77 ┆ ; comment: state=1 after w┆
0x39660…39680 61 69 74 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆ait; al w0 4 ; ┆
0x39680…396a0 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 6d 65 73 0a 20 ┆current message(subproc):= mes ┆
0x396a0…396c0 20 20 20 20 73 6e 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6d 65 73 ┆ sn w2 0 ; if mes┆
0x396c0…396e0 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 67 31 39 20 20 20 20 20 20 20 3b ┆=0 then jl w3 g19 ;┆
0x396e0…39700 20 20 20 64 65 6c 69 76 65 72 20 72 65 73 75 6c 74 28 34 29 0a 69 32 3a 20 20 61 6c 20 20 77 30 ┆ deliver result(4) i2: al w0┆
0x39700…39720 20 20 2d 31 2d 76 37 30 20 20 20 20 3b 20 20 65 6e 64 0a 20 20 20 20 20 6c 61 20 20 77 30 20 20 ┆ -1-v70 ; end la w0 ┆
0x39720…39740 78 31 2b 70 31 32 20 20 20 20 3b 20 20 62 6c 6f 63 6b 65 64 28 73 75 62 70 72 6f 63 29 3a 3d 20 ┆x1+p12 ; blocked(subproc):= ┆
0x39740…39760 66 61 6c 73 65 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 31 2b 70 31 32 20 20 20 20 3b 0a 63 ┆false rs w0 x1+p12 ; c┆
0x39760…39780 2e 70 31 30 31 20 62 2e 20 66 31 20 77 2e 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 ┆.p101 b. f1 w. ;*****test┆
0x39780…397a0 35 37 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 3b ┆57***** rs. w3 f0. ;┆
0x397a0…397c0 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 20 ┆* jl. w3 f4. ;* ┆
0x397c0…397e0 20 35 37 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 20 ┆ 57 ;* f0: 0 ┆
0x397e0…39800 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 2e ┆ ;* jl. f1.┆
0x39800…39820 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 62 31 38 20 20 20 20 20 20 ┆ ;* rl w2 b18 ┆
0x39820…39840 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 ┆ ;* al w0 x2 ;* ┆
0x39840…39860 20 20 20 61 6c 20 20 77 31 20 20 78 32 2b 32 32 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e ┆ al w1 x2+22 ;* jl.┆
0x39860…39880 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 20 20 20 20 20 20 20 ┆ w3 f5. ;* f1: ┆
0x39880…398a0 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 20 20 20 20 20 20 20 ┆ ;* e.z. ┆
0x398a0…398c0 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 37 2a 2a 2a 2a 2a 0a 20 20 20 20 20 61 6c 20 20 77 30 ┆ ;*****test57***** al w0┆
0x398c0…398e0 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 39 2e 20 20 ┆ 0 ; jl. w3 u9. ┆
0x398e0…39900 20 20 20 20 20 3b 20 20 20 6d 65 73 73 61 67 65 20 61 64 64 72 28 63 75 72 72 65 6e 74 20 65 6e ┆ ; message addr(current en┆
0x39900…39920 74 72 79 29 3a 3d 20 30 20 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 ┆try):= 0 rs w0 x2 ┆
0x39920…39940 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 31 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 6e ┆ ; al w0 1 ; in┆
0x39940…39960 63 72 65 61 73 65 28 66 72 65 65 20 62 75 66 66 65 72 73 28 73 75 62 70 72 6f 63 29 29 0a 20 20 ┆crease(free buffers(subproc)) ┆
0x39960…39980 20 20 20 62 61 20 20 77 30 20 20 78 31 2b 70 31 36 20 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 ┆ ba w0 x1+p16 ; hs ┆
0x39980…399a0 77 30 20 20 78 31 2b 70 31 36 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 28 6a 30 ┆w0 x1+p16 ; jl. (j0┆
0x399a0…399c0 2e 29 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 30 0a 20 20 20 20 20 20 20 20 20 ┆.) ; goto link+0 ┆
0x399c0…399e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 65 6e 64 0a 0a 3b 20 74 72 61 6e 73 6d 69 73 ┆ ; end ; transmis┆
0x399e0…39a00 73 69 6f 6e 20 6f 6b 2e 0a 0a 69 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sion ok. i0: ┆
0x39a00…39a20 20 3b 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 ┆ ; c.p101 b.f1 w. ;*****┆
0x39a20…39a40 74 65 73 74 35 38 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 ┆test58***** rs. w3 f0. ┆
0x39a40…39a60 20 20 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 ┆ ;* jl. w3 f4. ;* ┆
0x39a60…39a80 20 20 20 20 20 35 38 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 ┆ 58 ;* f0: 0┆
0x39a80…39aa0 20 20 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 ┆ ;* jl. ┆
0x39aa0…39ac0 20 66 31 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 33 20 20 20 ┆ f1. ;* rs w2 x3 ┆
0x39ac0…39ae0 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 70 31 33 20 20 20 20 3b ┆ ;* rl w2 x1+p13 ;┆
0x39ae0…39b00 2a 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 33 2b 32 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 ┆* rs w2 x3+2 ;* ┆
0x39b00…39b20 20 61 6c 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 ┆ al w0 x3 ;* al w┆
0x39b20…39b40 31 20 20 78 33 2b 32 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e ┆1 x3+2 ;* jl. w3 f5.┆
0x39b40…39b60 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 20 20 20 20 20 20 ┆ ;* f1: ┆
0x39b60…39b80 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 20 3b 2a 2a 2a 2a ┆ ;* e.z. ;****┆
0x39b80…39ba0 2a 74 65 73 74 35 38 2a 2a 2a 2a 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 75 31 30 2e 20 20 ┆*test58***** jl. w3 u10. ┆
0x39ba0…39bc0 20 20 20 20 3b 20 20 69 6e 63 72 65 61 73 65 28 63 75 72 72 65 6e 74 20 65 6e 74 72 79 28 73 75 ┆ ; increase(current entry(su┆
0x39bc0…39be0 62 70 72 6f 63 29 29 0a 0a 3b 20 72 65 74 75 72 6e 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆bproc)) ; return jl. ┆
0x39be0…39c00 69 33 2e 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 32 0a 0a 3b 20 61 6e 73 77 ┆i3. ; goto link+2 ; answ┆
0x39c00…39c20 65 72 20 61 74 74 65 6e 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 74 72 61 6e 73 6d 69 74 74 65 ┆er attention has been transmitte┆
0x39c20…39c40 64 0a 0a 69 31 3a 20 20 62 7a 20 20 77 33 20 20 78 33 2b 70 36 30 20 20 20 20 3b 20 61 66 74 65 ┆d i1: bz w3 x3+p60 ; afte┆
0x39c40…39c60 72 20 61 6e 73 77 65 72 20 61 74 74 65 6e 74 69 6f 6e 3a 0a 63 2e 70 31 30 31 20 62 2e 66 31 20 ┆r answer attention: c.p101 b.f1 ┆
0x39c60…39c80 77 2e 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 39 2a 2a 2a 2a 2a 0a 20 20 20 ┆w. ;*****test59***** ┆
0x39c80…39ca0 20 20 72 73 2e 20 77 33 20 20 66 30 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 ┆ rs. w3 f0. ;* jl. ┆
0x39ca0…39cc0 77 33 20 20 66 34 2e 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 35 39 20 20 20 20 20 20 20 20 ┆w3 f4. ;* 59 ┆
0x39cc0…39ce0 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 20 20 20 ┆ ;* f0: 0 ┆
0x39ce0…39d00 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 2a 0a 20 ┆ ;* jl. f1. ;* ┆
0x39d00…39d20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c ┆ rs w0 x3 ;* al┆
0x39d20…39d40 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 ┆ w0 x3 ;* al w1 ┆
0x39d40…39d60 78 33 20 20 20 20 20 20 20 20 3b 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e 20 20 20 ┆x3 ;* jl. w3 f5. ┆
0x39d60…39d80 20 20 20 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 ┆ ;* f1: ;*┆
0x39d80…39da0 0a 65 2e 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 ┆ e.z. ;*****te┆
0x39da0…39dc0 73 74 35 39 2a 2a 2a 2a 2a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 2d 31 2d 76 37 31 20 20 20 ┆st59***** al w0 -1-v71 ┆
0x39dc0…39de0 20 3b 20 20 69 66 20 69 6e 74 65 72 6e 61 6c 20 73 74 61 74 65 28 6d 61 69 6e 29 3d 30 20 74 68 ┆ ; if internal state(main)=0 th┆
0x39de0…39e00 65 6e 0a 20 20 20 20 20 6c 61 20 20 77 30 20 20 78 31 2b 70 31 32 20 20 20 20 3b 0a 20 20 20 20 ┆en la w0 x1+p12 ; ┆
0x39e00…39e20 20 73 6e 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 30 ┆ sn w3 0 ; rs w0┆
0x39e20…39e40 20 20 78 31 2b 70 31 32 20 20 20 20 3b 20 20 61 6e 73 77 65 72 20 61 74 74 65 6e 74 69 6f 6e 20 ┆ x1+p12 ; answer attention ┆
0x39e40…39e60 66 6c 61 67 28 73 75 62 70 72 6f 63 29 3a 3d 20 66 61 6c 73 65 0a 69 33 3a 20 20 72 6c 2e 20 77 ┆flag(subproc):= false i3: rl. w┆
0x39e60…39e80 33 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 6c 69 6e 6b 2b 32 0a 20 20 20 20 ┆3 j0. ; goto link+2 ┆
0x39e80…39ea0 20 6a 6c 20 20 20 20 20 20 78 33 2b 32 20 20 20 20 20 20 3b 0a 0a 6a 30 3a 20 20 30 20 20 20 20 ┆ jl x3+2 ; j0: 0 ┆
0x39ea0…39ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 73 61 76 65 64 20 6c 69 6e 6b 0a 0a 65 2e 20 20 ┆ ; saved link e. ┆
0x39ec0…39ee0 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┆
0x39ee0…39f00 20 68 65 61 64 65 72 20 61 6e 64 20 64 61 74 61 20 74 72 61 6e 73 6d 69 74 74 65 64 0a 0c 3b 20 ┆ header and data transmitted ; ┆
0x39f00…39f20 (103,) 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 6f 63 ┆fpa-subproc common proc┆
0x39f20…39f40 65 64 75 72 65 73 0a 3b 20 65 6c 69 2c 20 31 35 2e 31 2e 31 39 37 36 0a 0a 3b 20 70 72 6f 63 65 ┆edures ; eli, 15.1.1976 ; proce┆
0x39f40…39f60 64 75 72 65 20 74 65 73 74 20 61 6e 73 77 65 72 20 68 65 61 64 65 72 0a 3b 0a 3b 20 63 61 6c 6c ┆dure test answer header ; ; call┆
0x39f60…39f80 65 64 20 77 68 65 6e 20 61 20 68 65 61 64 65 72 2c 20 77 68 69 63 68 20 69 73 20 67 6f 69 6e 67 ┆ed when a header, which is going┆
0x39f80…39fa0 20 74 6f 20 62 65 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 64 61 74 61 62 6c 6f 63 6b 20 68 ┆ to be followed by a datablock h┆
0x39fa0…39fc0 61 73 0a 3b 20 62 65 65 6e 20 72 65 63 65 69 76 65 64 2e 0a 3b 20 69 6e 20 74 68 65 20 63 75 72 ┆as ; been received. ; in the cur┆
0x39fc0…39fe0 72 65 6e 74 20 76 65 72 73 69 6f 6e 20 6f 6e 6c 79 20 61 6e 73 77 65 72 73 20 74 6f 20 70 72 65 ┆rent version only answers to pre┆
0x39fe0…3a000 76 69 6f 75 73 6c 79 20 74 72 61 6e 73 6d 69 74 74 65 64 20 6d 65 73 73 61 67 65 73 0a 3b 20 6d ┆viously transmitted messages ; m┆
0x3a000…3a020 61 79 20 62 65 20 68 61 6e 64 6c 65 64 2e 0a 3b 20 66 75 6e 63 74 69 6f 6e 73 20 6d 61 79 20 62 ┆ay be handled. ; functions may b┆
0x3a020…3a040 65 20 3c 61 6e 73 77 65 72 20 69 6e 70 75 74 3e 20 6f 72 20 3c 61 6e 73 77 65 72 20 6d 65 73 73 ┆e <answer input> or <answer mess┆
0x3a040…3a060 61 67 65 3e 2e 0a 3b 20 74 68 65 20 62 75 66 6e 6f 20 69 6e 20 74 68 65 20 61 6e 73 77 65 72 20 ┆age>. ; the bufno in the answer ┆
0x3a060…3a080 69 73 20 75 73 65 64 20 74 6f 20 66 69 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 20 74 61 62 6c ┆is used to find the message tabl┆
0x3a080…3a0a0 65 20 65 6e 74 72 79 2e 0a 3b 20 20 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 76 61 ┆e entry. ; depending on the va┆
0x3a0a0…3a0c0 6c 75 65 20 69 6e 20 74 68 65 20 65 6e 74 72 79 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 ┆lue in the entry, the following ┆
0x3a0c0…3a0e0 69 73 20 70 65 72 66 6f 72 6d 65 64 3a 0a 3b 0a 3b 20 6d 65 73 73 61 67 65 20 65 6e 74 72 79 3a ┆is performed: ; ; message entry:┆
0x3a0e0…3a100 0a 3b 0a 3b 20 20 20 30 20 20 20 20 20 20 20 74 68 65 20 6d 65 73 73 61 67 65 20 68 61 73 20 62 ┆ ; ; 0 the message has b┆
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 (104,) 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┆