|
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: 236544 (0x39c00)
Types: Rc489kSubCat
Names: »talgprog«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »talgprog«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x00251a, f01=0x0007e4, f02=0x0007ed, filename=»tmtread «, entry_tail=0-4-0-5-1981-07-08T15:32-disc1-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x0071b3, f01=0x0007e4, f02=0x0007ed, filename=»tconvert «, entry_tail=0-4-0-1-1980-10-23T15:10-disc2-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x0081b3, f01=0x0007e4, f02=0x0007ed, filename=»trep «, entry_tail=0-4-0-1-1980-10-15T15:23-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x009ce2, f01=0x0007e4, f02=0x0007ed, filename=»tmulticopy «, entry_tail=0-4-0-4-1981-02-04T15:59-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x00d5fa, f01=0x0007e4, f02=0x0007ed, filename=»tcontract «, entry_tail=0-4-0-23-1981-01-20T15:01-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x02479b, f01=0x000000, f02=0x7ffffc, filename=»tmacro «, entry_tail=0-4-0-4-1981-01-08T15:26-disc1-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x02819a, f01=0x0007e4, f02=0x0007ed, filename=»tfindill «, entry_tail=0-4-0-1-1980-11-13T14:33-disc1-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x0295e3, f01=0x0007e4, f02=0x0007ed, filename=»tdescribe «, entry_tail=0-4-0-49-1980-11-12T13:02-disc1-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x05ac5b, f01=0x0007e4, f02=0x0007ed, filename=»textract «, entry_tail=0-4-0-9-1980-11-11T13:36-disc1-0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x063ce2, f01=0x0007e4, f02=0x0007ed, filename=»tdesc «, entry_tail=0-4-0-65-1980-10-29T11:15-disc1-0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x0a46da, f01=0x0007e4, f02=0x0007ed, filename=»tsearchcon «, entry_tail=0-4-0-3-1980-10-27T14:33-disc1-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x0a78da, f01=0x0007e4, f02=0x0007ed, filename=»tdevice «, entry_tail=0-4-0-3-1980-10-22T15:48-disc1-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x0aabda, f01=0x0007e4, f02=0x0007ed, filename=»tdocmove «, entry_tail=0-4-0-3-1980-10-21T15:45-disc1-0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x0ad193, f01=0x0007e4, f02=0x0007ed, filename=»tskipill «, entry_tail=0-4-0-1-1980-10-20T11:51-disc1-0x0-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x0ae092, f01=0x0007e4, f02=0x0007ed, filename=»tremill «, entry_tail=0-4-0-1-1980-10-16T13:32-disc1-0x0-0x0-0x0-0x0}
0x002fd…00300 0x00001b
0x00300…00333 Rc489kSubCatEnt {f00=0x0af3d3, f01=0x0007e4, f02=0x0007ed, filename=»tremsp «, entry_tail=0-4-0-1-1980-10-16T12:11-disc2-0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x0b005b, f01=0x0007e4, f02=0x0007ed, filename=»tclaim «, entry_tail=0-4-0-25-1980-03-26T09:31-disc1-0x0-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x0c9d13, f01=0x0007e4, f02=0x0007ed, filename=»tdiscmove «, entry_tail=0-4-0-4-1980-08-07T15:25-disc1-0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x0cd102, f01=0x0007e4, f02=0x0007ed, filename=»tlistint «, entry_tail=0-4-0-2-1980-10-14T15:03-disc1-0x0-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x0cff1a, f01=0x0007e4, f02=0x0007ed, filename=»tmanindex «, entry_tail=0-4-0-21-1980-10-14T12:28-disc1-0x0-0x0-0x0-0x0}
0x003ff…00432 Rc489kSubCatEnt {f00=0x0e4b42, f01=0x0007e4, f02=0x0007ed, filename=»twrindex «, entry_tail=0-4-0-10- -disc1-0x0-0x0-0x0-0x0}
0x00432…00465 Rc489kSubCatEnt {f00=0x0eef7a, f01=0x0007e4, f02=0x0007ed, filename=»ebcd «, entry_tail=0-4-0-5-1980-05-07T14:40-disc1-0xd039-0x0-0x0-0x0}
0x00465…00498 Rc489kSubCatEnt {f00=0x0f311a, f01=0x0007e4, f02=0x0007ed, filename=»ebcdic «, entry_tail=0-4-0-1-1980-09-19T14:00-disc1-0x0-0x0-0x0-0x0}
0x00498…004cb Rc489kSubCatEnt {f00=0x0f4613, f01=0x000000, f02=0x7ffffc, filename=»setconstant «, entry_tail=0-4-0-7-1980-09-29T15:09-disc1-0x0-0x0-0x0-0x0}
0x004cb…004fe Rc489kSubCatEnt {f00=0x0fb15a, f01=0x0007e4, f02=0x0007ed, filename=»twritestd «, entry_tail=0-4-0-28-1980-10-07T11:17-disc1-0x0-0x0-0x0-0x0}
0x004fe…00531 Rc489kSubCatEnt {f00=0x1171e2, f01=0x0007e4, f02=0x0007e4, filename=»tprocdes «, entry_tail=0-4-0-2-1980-04-25T12:00-disc1-0x0-0x0-0x0-0x0}
0x00531…00564 Rc489kSubCatEnt {f00=0x119203, f01=0x000000, f02=0x7ffffc, filename=»tstdvar «, entry_tail=0-4-0-14-1980-04-25T11:16-disc1-0x0-0x0-0x0-0x0}
0x00564…00580 0a ab da 00 07 e4 00 07 ed 74 64 6f 63 6d 6f 76 65 00 00 00 00 00 00 03 64 69 73 63 ┆ tdocmove disc┆
0x00580…005a0 31 00 00 00 00 00 00 00 75 9f 7c 00 00 00 00 00 00 00 00 00 00 00 00 0a d1 93 00 07 e4 00 07 ed ┆1 u ø ┆
0x005a0…005c0 74 73 6b 69 70 69 6c 6c 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 75 98 01 00 00 ┆tskipill disc1 u ┆
0x005c0…005e0 00 00 00 00 00 00 00 00 00 00 0a e0 92 00 07 e4 00 07 ed 74 72 65 6d 69 6c 6c 00 00 00 00 00 00 ┆ tremill ┆
0x005e0…00600 00 01 64 69 73 63 31 00 00 00 00 00 00 00 75 7e b5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc1 uü ┆
0x00600…01500 Data for tmtread
0x01500…01800 Data for tconvert
0x01800…01b00 Data for trep
0x01b00…02700 (3,) Data for tmulticopy
0x02700…06c00 Data for tcontract
0x06c00…07800 (12,) Data for tmacro
0x07800…07b00 Data for tfindill
0x07b00…10e00 Data for tdescribe
0x10e00…12900 (30,) Data for textract
0x12900…1ec00 (33,) Data for tdesc
0x1ec00…1f500 Data for tsearchcon
0x1f500…1fe00 Data for tdevice
0x1fe00…20700 Data for tdocmove
0x20700…20a00 Data for tskipill
0x20a00…20d00 (58,) Data for tremill
0x20d00…21000 Data for tremsp
0x21000…25b00 Data for tclaim
0x25b00…26700 (67,) Data for tdiscmove
0x26700…26d00 Data for tlistint
0x26d00…2ac00 (69,) Data for tmanindex
0x2ac00…2ca00 (76,) Data for twrindex
0x2ca00…2d900 Data for ebcd
0x2d900…2dc00 (81,) Data for ebcdic
0x2dc00…2f100 Data for setconstant
0x2f100…34500 Data for twritestd
0x34500…34b00 (93,) Data for tprocdes
0x34b00…37500 Data for tstdvar
0x37500…37520 6f 2c 20 69 74 20 69 73 20 64 65 63 72 65 61 73 65 64 0a 3b 20 62 79 20 6f 6e 65 20 61 66 74 65 ┆o, it is decreased ; by one afte┆
0x37520…37540 72 20 67 65 6e 65 72 61 74 69 6f 6e 20 6f 66 20 65 61 63 68 20 74 65 73 74 72 65 63 6f 72 64 2e ┆r generation of each testrecord.┆
0x37540…37560 20 69 66 20 74 68 69 73 20 6d 61 6b 65 73 0a 3b 20 74 68 65 20 63 6f 75 6e 74 65 72 20 7a 65 72 ┆ if this makes ; the counter zer┆
0x37560…37580 6f 2c 20 74 68 65 20 74 65 73 74 6d 61 73 6b 20 69 73 20 73 65 74 20 74 6f 20 7a 65 72 6f 2e 0a ┆o, the testmask is set to zero. ┆
0x37580…375a0 3b 20 0a 3b 20 61 66 74 65 72 20 6f 6e 65 20 63 61 6c 6c 20 6f 66 20 66 36 2c 20 66 75 72 74 68 ┆; ; after one call of f6, furth┆
0x375a0…375c0 65 72 20 63 61 6c 6c 73 20 77 69 6c 6c 20 6f 6e 6c 79 20 63 68 61 6e 67 65 0a 3b 20 74 68 65 20 ┆er calls will only change ; the ┆
0x375c0…375e0 63 6f 75 6e 74 65 72 2c 20 69 66 20 74 68 65 20 76 61 6c 75 65 20 73 70 65 63 69 66 69 65 64 20 ┆counter, if the value specified ┆
0x375e0…37600 69 6e 20 77 32 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 74 68 65 0a 3b 20 63 75 72 72 65 6e 74 ┆in w2 is less than the ; current┆
0x37600…37620 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 63 6f 75 6e 74 65 72 20 28 70 72 6f 76 69 64 65 64 2c ┆ value of the counter (provided,┆
0x37620…37640 20 74 68 65 20 63 6f 75 6e 74 65 72 20 69 73 0a 3b 20 6e 6f 6e 7a 65 72 6f 29 2e 0a 3b 0a 3b 20 ┆ the counter is ; nonzero). ; ; ┆
0x37640…37660 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 77 30 ┆ call return ; w0┆
0x37660…37680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 62 65 66 6f 72 65 20 ┆ value before ┆
0x37680…376a0 74 65 73 74 70 6f 69 6e 74 0a 3b 20 77 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆testpoint ; w1 ┆
0x376a0…376c0 20 76 61 6c 75 65 20 62 65 66 6f 72 65 20 74 65 73 74 70 6f 69 6e 74 0a 3b 20 77 32 20 20 20 20 ┆ value before testpoint ; w2 ┆
0x376c0…376e0 20 63 6f 75 6e 74 65 72 20 20 20 20 20 20 20 76 61 6c 75 65 20 62 65 66 6f 72 65 20 74 65 73 74 ┆ counter value before test┆
0x376e0…37700 70 6f 69 6e 74 0a 3b 20 77 33 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 76 61 6c ┆point ; w3 link val┆
0x37700…37720 75 65 20 62 65 66 6f 72 65 20 74 65 73 74 70 6f 69 6e 74 0a 0a 62 2e 20 69 30 20 77 2e 20 20 20 ┆ue before testpoint b. i0 w. ┆
0x37720…37740 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 66 36 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; f6: ┆
0x37740…37760 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 69 30 2e 20 20 20 20 20 20 20 3b 20 ┆ ; rs. w3 i0. ; ┆
0x37760…37780 20 73 61 76 65 20 6c 69 6e 6b 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 66 37 2e 20 20 20 20 20 ┆ save link rl. w3 f7. ┆
0x37780…377a0 20 20 3b 20 20 0a 20 20 20 20 20 72 78 20 20 77 32 20 20 78 33 2b 73 36 20 20 20 20 20 3b 20 20 ┆ ; rx w2 x3+s6 ; ┆
0x377a0…377c0 69 66 20 63 6f 75 6e 74 65 72 28 6d 61 69 6e 29 3d 30 20 6f 72 0a 20 20 20 20 20 73 65 20 20 77 ┆if counter(main)=0 or se w┆
0x377c0…377e0 32 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 63 6f 75 6e 74 65 72 28 6d 61 69 6e 29 ┆2 0 ; counter(main)┆
0x377e0…37800 3e 63 6f 75 6e 74 65 72 20 74 68 65 6e 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 28 78 33 2b 73 ┆>counter then sl w2 (x3+s┆
0x37800…37820 36 29 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 2b 34 20 20 20 20 20 20 20 20 3b 0a ┆6) ; jl. +4 ; ┆
0x37820…37840 20 20 20 20 20 72 78 20 20 77 32 20 20 78 33 2b 73 36 20 20 20 20 20 3b 20 20 63 6f 75 6e 74 65 ┆ rx w2 x3+s6 ; counte┆
0x37840…37860 72 28 6d 61 69 6e 29 3a 3d 20 63 6f 75 6e 74 65 72 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 69 ┆r(main):= counter rl. w3 i┆
0x37860…37880 30 2e 20 20 20 20 20 20 20 3b 20 20 6c 69 6e 6b 3a 3d 20 73 61 76 65 64 20 6c 69 6e 6b 0a 20 20 ┆0. ; link:= saved link ┆
0x37880…378a0 20 20 20 6a 6c 2e 20 20 20 20 20 66 35 2e 20 20 20 20 20 20 20 3b 20 20 67 6f 74 6f 20 63 72 65 ┆ jl. f5. ; goto cre┆
0x378a0…378c0 61 74 65 20 74 65 73 74 72 65 63 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ate testrecord ┆
0x378c0…378e0 20 20 20 20 20 20 3b 0a 69 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ ; i0: 0 ;┆
0x378e0…37900 20 73 61 76 65 64 20 6c 69 6e 6b 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ saved link e. ┆
0x37900…37920 20 20 20 3b 0a 0a 7a 2e 0a 0c 0a 3b 20 6d 61 69 6e 70 72 6f 63 65 73 73 2e 0a 3b 0a 3b 20 74 68 ┆ ; z. ; mainprocess. ; ; th┆
0x37920…37940 65 20 6d 61 69 6e 70 72 6f 63 65 73 73 20 61 63 63 65 70 74 73 20 6d 65 73 73 61 67 65 73 20 6f ┆e mainprocess accepts messages o┆
0x37940…37960 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 79 70 65 73 3a 0a 3b 20 20 20 73 74 61 72 74 ┆f the following types: ; start┆
0x37960…37980 20 74 72 61 6e 73 6d 69 74 74 65 72 20 20 30 3c 31 32 0a 3b 20 20 20 73 74 61 72 74 20 20 20 20 ┆ transmitter 0<12 ; start ┆
0x37980…379a0 20 20 20 20 20 20 20 20 20 20 32 3c 31 32 0a 3b 20 20 20 72 65 73 65 74 20 20 20 20 20 20 20 20 ┆ 2<12 ; reset ┆
0x379a0…379c0 20 20 20 20 20 20 34 3c 31 32 0a 3b 20 20 20 74 72 61 6e 73 66 65 72 20 62 6c 6f 63 6b 20 20 20 ┆ 4<12 ; transfer block ┆
0x379c0…379e0 20 20 35 3c 31 32 0a 3b 20 20 20 61 75 74 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 36 3c ┆ 5<12 ; autoload 6<┆
0x379e0…37a00 31 32 0a 3b 20 20 20 6d 61 73 74 65 72 20 63 6c 65 61 72 20 20 20 20 20 20 20 38 3c 31 32 0a 3b ┆12 ; master clear 8<12 ;┆
0x37a00…37a20 20 20 20 73 65 74 20 6d 61 73 6b 20 20 20 20 20 20 20 20 20 20 31 32 3c 31 32 0a 3b 0a 3b 20 20 ┆ set mask 12<12 ; ; ┆
0x37a20…37a40 6d 6f 64 65 2d 20 6f 6e 6c 79 20 72 65 6c 65 76 61 6e 74 20 69 6e 20 63 6f 6e 6e 65 63 74 69 6f ┆mode- only relevant in connectio┆
0x37a40…37a60 6e 20 77 69 74 68 20 73 74 61 72 74 20 74 72 61 6e 73 6d 69 74 2d 0a 3b 20 20 20 30 20 20 70 6f ┆n with start transmit- ; 0 po┆
0x37a60…37a80 6c 6c 0a 3b 20 20 20 31 20 20 61 63 63 65 70 74 20 6d 61 73 74 65 72 20 63 6c 65 61 72 0a 3b 20 ┆ll ; 1 accept master clear ; ┆
0x37a80…37aa0 20 20 32 20 20 72 65 73 65 74 2c 20 69 6e 69 74 69 61 74 65 2c 20 70 6f 6c 6c 0a 3b 20 20 20 33 ┆ 2 reset, initiate, poll ; 3┆
0x37aa0…37ac0 20 20 72 65 73 65 74 2c 20 69 6e 69 74 69 61 74 65 2c 20 61 63 63 65 70 74 20 6d 61 73 74 65 72 ┆ reset, initiate, accept master┆
0x37ac0…37ae0 20 63 6c 65 61 72 0a 3b 0a 3b 0a 3b 20 74 6f 20 65 78 65 63 75 74 65 20 6f 70 65 72 61 74 69 6f ┆ clear ; ; ; to execute operatio┆
0x37ae0…37b00 6e 73 20 74 68 65 20 73 65 6e 64 65 72 20 6d 75 73 74 20 62 65 0a 3b 20 20 6f 70 3a 20 30 20 20 ┆ns the sender must be ; op: 0 ┆
0x37b00…37b20 (99,) 2e 2e 0a 3b 20 20 20 20 20 20 33 20 20 72 65 73 65 72 76 65 72 20 6f 66 20 6d 61 69 6e 20 6f 72 ┆.. ; 3 reserver of main or┆
0x37b20…37b40 20 72 65 63 65 69 76 65 72 0a 3b 20 20 20 20 20 20 34 20 20 72 65 73 65 72 76 65 72 20 6f 66 20 ┆ receiver ; 4 reserver of ┆
0x37b40…37b60 6d 61 69 6e 0a 3b 20 20 20 20 20 20 35 20 20 72 65 73 65 72 76 65 72 20 6f 66 20 6d 61 69 6e 20 ┆main ; 5 reserver of main ┆
0x37b60…37b80 6f 72 20 74 72 61 6e 73 6d 69 74 74 65 72 0a 3b 20 20 20 20 20 20 36 20 20 72 65 73 65 72 76 65 ┆or transmitter ; 6 reserve┆
0x37b80…37ba0 72 20 6f 66 20 6d 61 69 6e 0a 3b 20 20 20 20 20 20 38 20 20 72 65 73 65 72 76 65 72 20 6f 66 20 ┆r of main ; 8 reserver of ┆
0x37ba0…37bc0 6d 61 69 6e 0a 3b 20 20 20 20 20 31 32 20 20 6e 65 69 74 68 65 72 20 72 65 73 65 72 76 61 74 69 ┆main ; 12 neither reservati┆
0x37bc0…37be0 6f 6e 20 6e 6f 72 20 75 73 65 72 20 69 6e 63 6c 75 73 69 6f 6e 20 69 73 20 64 65 6d 61 6e 64 65 ┆on nor user inclusion is demande┆
0x37be0…37c00 64 0a 0c 0a 62 2e 69 31 30 2c 6a 31 30 20 77 2e 0a 0a 20 20 20 20 20 61 30 3d 31 3c 32 33 20 20 ┆d b.i10,j10 w. a0=1<23 ┆
0x37c00…37c20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 30 3e 30 2b 61 30 3e 33 2b 61 30 3e 34 2b 61 ┆ ; a0>0+a0>3+a0>4+a┆
0x37c20…37c40 30 3e 35 2b 61 30 3e 36 2b 61 30 3e 38 2b 61 30 3e 31 32 0a 69 30 3a 20 20 61 30 3e 30 2b 61 30 ┆0>5+a0>6+a0>8+a0>12 i0: a0>0+a0┆
0x37c40…37c60 3e 31 2b 61 30 3e 32 2b 61 30 3e 33 0a 0a 0a 68 38 30 3a 20 62 7a 20 20 77 30 20 20 78 32 2b 38 ┆>1+a0>2+a0>3 h80: bz w0 x2+8┆
0x37c60…37c80 20 20 20 20 20 20 3b 20 73 74 61 72 74 20 6d 61 69 6e 3a 0a 20 20 20 20 20 73 6e 20 20 77 30 20 ┆ ; start main: sn w0 ┆
0x37c80…37ca0 20 31 32 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6f 70 3d 31 32 20 74 68 65 6e 0a 20 20 20 ┆ 12 ; if op=12 then ┆
0x37ca0…37cc0 20 20 6a 6c 2e 20 20 20 20 20 6a 31 30 2e 20 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 73 ┆ jl. j10. ; goto s┆
0x37cc0…37ce0 65 74 6d 61 73 6b 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 ┆etmask; sz w0 2.1 ;┆
0x37ce0…37d00 20 20 20 69 66 20 6f 70 65 72 61 74 69 6f 6e 20 6f 64 64 20 74 68 65 6e 0a 20 20 20 20 20 61 6d ┆ if operation odd then am┆
0x37d00…37d20 20 20 20 20 20 20 67 31 34 2d 67 31 35 20 20 20 3b 20 20 20 20 20 63 68 65 63 6b 20 75 73 65 72 ┆ g14-g15 ; check user┆
0x37d20…37d40 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 67 31 35 20 20 20 20 20 20 20 3b 20 20 20 65 6c 73 ┆; jl w3 g15 ; els┆
0x37d40…37d60 65 20 63 68 65 63 6b 20 72 65 73 65 72 76 65 72 3b 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 69 ┆e check reserver; dl. w1 i┆
0x37d60…37d80 30 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 67 31 36 20 20 20 20 20 ┆0. ; jl w3 g16 ┆
0x37d80…37da0 20 20 3b 20 20 20 63 68 65 63 6b 20 6f 70 65 72 61 74 69 6f 6e 28 30 2e 33 2e 34 2e 36 2e 38 2e ┆ ; check operation(0.3.4.6.8.┆
0x37da0…37dc0 31 32 2c 30 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 62 31 39 20 20 20 20 20 20 20 3b 0a ┆12,0); rl w1 b19 ; ┆
0x37dc0…37de0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6d 31 30 2e 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 ┆ jl. m10. ; goto ┆
0x37de0…37e00 73 75 70 65 72 76 69 73 65 3b 0a 0a 6a 31 30 3a 20 72 6c 20 20 77 31 20 20 62 31 39 20 20 20 20 ┆supervise; j10: rl w1 b19 ┆
0x37e00…37e20 20 20 20 3b 20 73 65 74 20 6d 61 73 6b 3a 0a 20 20 20 20 20 64 6c 20 20 77 30 20 20 78 32 2b 31 ┆ ; set mask: dl w0 x2+1┆
0x37e20…37e40 32 20 20 20 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 30 20 20 78 31 2b 73 32 20 20 20 20 20 3b ┆2 ; ds w0 x1+s2 ;┆
0x37e40…37e60 20 20 20 6d 61 73 6b 30 3a 3d 6d 61 73 6b 28 30 3a 34 37 29 3b 0a 20 20 20 20 20 64 6c 20 20 77 ┆ mask0:=mask(0:47); dl w┆
0x37e60…37e80 30 20 20 78 32 2b 31 36 20 20 20 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 30 20 20 78 31 2b 73 ┆0 x2+16 ; ds w0 x1+s┆
0x37e80…37ea0 33 20 20 20 20 20 3b 20 20 20 6d 61 73 6b 31 3a 3d 6d 61 73 6b 28 34 38 3a 39 35 29 3b 0a 20 20 ┆3 ; mask1:=mask(48:95); ┆
0x37ea0…37ec0 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 ┆ al w0 0 ; rs ┆
0x37ec0…37ee0 77 30 20 20 67 32 30 20 20 20 20 20 20 20 3b 20 20 20 73 74 61 74 75 73 3a 3d 30 3b 0a 20 20 20 ┆w0 g20 ; status:=0; ┆
0x37ee0…37f00 20 20 6a 6c 20 20 77 33 20 20 67 31 38 20 20 20 20 20 20 20 3b 20 20 20 64 65 6c 69 76 65 72 20 ┆ jl w3 g18 ; deliver ┆
0x37f00…37f20 72 65 73 75 6c 74 31 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 28 62 32 30 29 20 20 20 20 20 20 ┆result1; jl (b20) ┆
0x37f20…37f40 3b 20 65 78 69 74 3a 20 72 65 74 75 72 6e 20 74 6f 20 73 65 6e 64 65 72 3b 0a 65 2e 0a 0c 0a 0a ┆; exit: return to sender; e. ┆
0x37f40…37f60 3b 20 69 6e 69 74 69 61 74 65 20 70 61 72 74 2e 0a 0a 62 2e 69 31 30 2c 6a 31 30 20 77 2e 0a 69 ┆; initiate part. b.i10,j10 w. i┆
0x37f60…37f80 32 3a 20 20 30 3c 31 32 2b 32 2e 30 30 20 20 20 20 20 20 20 20 20 3b 20 6d 65 73 73 61 67 65 3a ┆2: 0<12+2.00 ; message:┆
0x37f80…37fa0 20 73 74 61 72 74 20 74 72 61 6e 73 6d 69 74 74 65 72 2c 20 70 6f 6c 6c 0a 69 36 3a 20 20 30 3c ┆ start transmitter, poll i6: 0<┆
0x37fa0…37fc0 31 32 2b 32 2e 31 30 20 20 20 20 20 20 20 20 20 3b 20 6d 65 73 73 61 67 65 3a 20 73 74 61 72 74 ┆12+2.10 ; message: start┆
0x37fc0…37fe0 20 74 72 61 6e 73 6d 69 74 74 65 72 2c 20 72 65 73 65 74 2c 20 69 6e 69 74 69 61 74 65 2c 20 70 ┆ transmitter, reset, initiate, p┆
0x37fe0…38000 6f 6c 6c 0a 69 37 3a 20 20 30 3c 31 32 2b 32 2e 31 31 20 20 20 20 20 20 20 20 20 3b 20 6d 65 73 ┆oll i7: 0<12+2.11 ; mes┆
0x38000…38020 73 61 67 65 3a 20 73 74 61 72 74 20 74 72 61 6e 73 6d 69 74 74 65 72 2c 20 72 65 73 65 74 2c 20 ┆sage: start transmitter, reset, ┆
0x38020…38040 69 6e 69 74 69 61 74 65 2c 20 61 63 63 65 70 74 20 6d 61 73 74 65 72 20 63 6c 65 61 72 0a 69 34 ┆initiate, accept master clear i4┆
0x38040…38060 3a 20 20 30 2c 72 2e 37 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 6e 73 77 65 72 3a 20 64 ┆: 0,r.7 ; answer: d┆
0x38060…38080 75 6d 6d 79 0a 69 35 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 ┆ummy i5: 0 ; sa┆
0x38080…380a0 76 65 64 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 0a 0a 0a 3b 20 65 6e 74 72 79 20 66 72 6f ┆ved message buffer ; entry fro┆
0x380a0…380c0 6d 20 73 65 6e 64 20 6d 65 73 73 61 67 65 2e 0a 0a 3b 20 77 31 3a 20 6d 61 69 6e 2c 20 77 32 3a ┆m send message. ; w1: main, w2:┆
0x380c0…380e0 20 61 64 64 72 28 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 29 2e 0a 0a 6d 31 30 3a 20 72 6c 20 ┆ addr(message buffer). m10: rl ┆
0x380e0…38100 20 77 33 20 20 78 32 2b 38 20 20 20 20 20 20 3b 20 73 75 70 65 72 76 69 73 65 3a 0a 20 20 20 20 ┆ w3 x2+8 ; supervise: ┆
0x38100…38120 20 72 73 2e 20 77 32 20 20 69 35 2e 20 20 20 20 20 20 20 3b 20 73 61 76 65 20 6d 65 73 73 20 62 ┆ rs. w2 i5. ; save mess b┆
0x38120…38140 75 66 66 65 72 3b 0a 20 20 20 20 20 72 73 20 20 77 33 20 20 78 31 2b 73 31 36 20 20 20 20 3b 20 ┆uffer; rs w3 x1+s16 ; ┆
0x38140…38160 20 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 6f 70 65 72 61 74 69 6f 6e 28 6d 65 73 73 61 67 65 29 3b ┆ operation:=operation(message);┆
0x38160…38180 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┆
0x38180…381a0 73 74 31 2a 2a 2a 2a 2a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 66 30 2e 20 20 20 20 20 20 20 ┆st1***** rs. w3 f0. ┆
0x381a0…381c0 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 20 ┆; jl. w3 f4. ; ┆
0x381c0…381e0 31 20 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 20 ┆1 ; f0: 0 ┆
0x381e0…38200 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 20 ┆ ; jl. f1. ┆
0x38200…38220 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 38 20 20 20 20 20 20 3b 20 20 ┆ ; al w0 x2+8 ; ┆
0x38220…38240 20 64 75 6d 70 20 6d 65 73 73 61 67 65 28 30 3a 38 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 ┆ dump message(0:8); al w1 ┆
0x38240…38260 20 78 32 2b 38 2b 38 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e 20 20 20 ┆ x2+8+8 ; jl. w3 f5. ┆
0x38260…38280 20 20 20 20 3b 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 0a 65 ┆ ; f1: ; e┆
0x38280…382a0 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 73 74 ┆.z. ;*****test┆
0x382a0…382c0 31 2a 2a 2a 2a 2a 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 36 20 20 20 20 20 20 20 20 20 3b 0a ┆1***** bz w3 6 ; ┆
0x382c0…382e0 20 20 20 20 20 61 6d 20 20 20 20 20 20 78 33 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c ┆ am x3 ; jl┆
0x382e0…38300 2e 20 20 20 20 28 78 33 2b 32 29 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 63 61 73 65 20 6f 70 ┆. (x3+2) ; goto case op┆
0x38300…38320 65 72 61 74 69 6f 6e 20 6f 66 0a 20 20 20 20 20 6d 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eration of m11 ┆
0x38320…38340 20 20 3b 20 20 20 20 28 30 3a 20 73 74 61 72 74 20 74 72 61 6e 73 6d 69 74 74 65 72 28 6d 6f 64 ┆ ; (0: start transmitter(mod┆
0x38340…38360 65 29 2c 0a 20 20 20 20 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 ┆e), -1 ; ┆
0x38360…38380 20 31 3a 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 2c 0a 20 20 20 20 20 2d 31 20 20 20 20 20 20 20 20 ┆ 1: not allowed, -1 ┆
0x38380…383a0 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 32 3a 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 2c 0a 20 20 ┆ ; 2: not allowed, ┆
0x383a0…383c0 20 20 20 6d 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 33 3a 20 72 65 ┆ m12 ; 3: re┆
0x383c0…383e0 63 65 69 76 65 20 62 6c 6f 63 6b 2c 0a 20 20 20 20 20 6d 31 33 20 20 20 20 20 20 20 20 20 20 20 ┆ceive block, m13 ┆
0x383e0…38400 20 20 20 20 3b 20 20 20 20 20 34 3a 20 72 65 73 65 74 2c 0a 20 20 20 20 20 6d 31 34 20 20 20 20 ┆ ; 4: reset, m14 ┆
0x38400…38420 (100,) 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 35 3a 20 74 72 61 6e 73 6d 69 74 20 62 6c 6f ┆ ; 5: transmit blo┆
0x38420…38440 63 6b 2c 0a 20 20 20 20 20 6d 31 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 ┆ck, m14 ; ┆
0x38440…38460 20 36 3a 20 61 75 74 6f 6c 6f 61 64 2c 0a 20 20 20 20 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 ┆ 6: autoload, -1 ┆
0x38460…38480 20 20 20 20 20 3b 20 20 20 20 20 37 3a 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 2c 0a 20 20 20 20 20 ┆ ; 7: not allowed, ┆
0x38480…384a0 6d 31 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 38 3a 20 6d 61 73 74 65 ┆m15 ; 8: maste┆
0x384a0…384c0 72 20 63 6c 65 61 72 29 3b 0a 0a 3b 20 72 65 73 65 74 2e 0a 6d 31 33 3a 20 6a 6c 2e 20 77 33 20 ┆r clear); ; reset. m13: jl. w3 ┆
0x384c0…384e0 20 6e 31 34 2e 20 20 20 20 20 20 3b 20 72 65 73 65 74 3a 20 63 6c 65 61 72 20 73 75 62 70 72 6f ┆ n14. ; reset: clear subpro┆
0x384e0…38500 63 65 73 73 65 73 28 6d 61 69 6e 29 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 69 35 2e 20 20 ┆cesses(main); rl. w2 i5. ┆
0x38500…38520 20 20 20 20 20 3b 20 20 20 6c 6f 61 64 20 6d 65 73 73 20 62 75 66 66 65 72 3b 0a 20 20 20 20 20 ┆ ; load mess buffer; ┆
0x38520…38540 61 6c 20 20 77 30 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 20 ┆al w0 0 ; rs w0 ┆
0x38540…38560 20 67 32 30 20 20 20 20 20 20 20 3b 20 20 20 73 74 61 74 75 73 28 6d 65 73 73 29 3a 3d 30 3b 0a ┆ g20 ; status(mess):=0; ┆
0x38560…38580 20 20 20 20 20 6a 6c 20 20 77 33 20 20 67 31 38 20 20 20 20 20 20 20 3b 20 20 20 64 65 6c 69 76 ┆ jl w3 g18 ; deliv┆
0x38580…385a0 65 72 20 72 65 73 75 6c 74 28 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 28 ┆er result(status); jl (┆
0x385a0…385c0 62 32 30 29 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 73 74 64 20 77 61 69 74 69 6e 67 20 70 ┆b20) ; goto std waiting p┆
0x385c0…385e0 6f 69 6e 74 3b 0a 0a 3b 20 73 74 61 72 74 20 74 72 61 6e 73 6d 69 74 74 65 72 2e 0a 6d 31 31 3a ┆oint; ; start transmitter. m11:┆
0x385e0…38600 20 6a 6c 20 20 77 33 20 20 67 31 38 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 20 74 72 61 6e 73 ┆ jl w3 g18 ; start trans┆
0x38600…38620 6d 69 74 74 65 72 3a 20 64 65 6c 69 76 65 72 20 72 65 73 75 6c 74 31 28 64 75 6d 6d 79 29 3b 0a ┆mitter: deliver result1(dummy); ┆
0x38620…38640 20 20 20 20 20 61 6c 2e 20 77 31 20 20 69 34 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c ┆ al. w1 i4. ; rl┆
0x38640…38660 2e 20 77 32 20 20 69 35 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 64 20 20 20 20 20 20 31 ┆. w2 i5. ; jd 1┆
0x38660…38680 3c 31 31 2b 31 38 20 20 20 3b 20 20 20 77 61 69 74 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 72 ┆<11+18 ; wait answer; r┆
0x38680…386a0 6c 20 20 77 31 20 20 62 31 39 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 ┆l w1 b19 ; jl. w3 ┆
0x386a0…386c0 6e 35 2e 20 20 20 20 20 20 20 3b 20 20 20 73 65 74 20 68 6f 73 74 2d 69 64 3b 0a 20 20 20 20 20 ┆n5. ; set host-id; ┆
0x386c0…386e0 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 ┆al w0 0 ; hs w0 ┆
0x386e0…38700 20 78 31 2b 70 36 37 20 20 20 20 3b 20 20 20 65 72 72 6f 72 63 6f 75 6e 74 3a 3d 30 3b 0a 6a 32 ┆ x1+p67 ; errorcount:=0; j2┆
0x38700…38720 3a 20 20 6a 6c 2e 20 77 33 20 20 6e 31 34 2e 20 20 20 20 20 20 3b 20 72 65 70 65 61 74 3a 20 63 ┆: jl. w3 n14. ; repeat: c┆
0x38720…38740 6c 65 61 6e 20 73 75 62 70 72 6f 63 65 73 73 65 73 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 ┆lean subprocesses; bz w0 ┆
0x38740…38760 78 31 2b 70 36 37 20 20 20 20 3b 0a 20 20 20 20 20 62 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 ┆x1+p67 ; ba. w0 1 ┆
0x38760…38780 20 20 20 3b 20 20 20 65 72 72 6f 72 63 6f 75 6e 74 3a 3d 65 72 72 6f 72 63 6f 75 6e 74 20 2b 20 ┆ ; errorcount:=errorcount + ┆
0x38780…387a0 31 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 31 2b 70 36 37 20 20 20 20 3b 0a 20 20 20 20 ┆1; hs w0 x1+p67 ; ┆
0x387a0…387c0 20 73 6c 20 20 77 30 20 20 70 31 34 31 20 20 20 20 20 20 3b 20 20 20 69 66 20 65 72 72 6f 72 63 ┆ sl w0 p141 ; if errorc┆
0x387c0…387e0 6f 75 6e 74 3e 6d 61 78 20 65 72 72 6f 72 63 6f 75 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 61 6d ┆ount>max errorcount then am┆
0x387e0…38800 20 20 20 20 20 20 34 2e 30 30 32 30 30 20 20 20 3b 20 20 20 20 20 6f 70 65 72 61 74 69 6f 6e 3a ┆ 4.00200 ; operation:┆
0x38800…38820 3d 6c 6f 6e 67 20 64 65 6c 61 79 3b 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 34 2e 30 30 30 30 ┆=long delay; al w3 4.0000┆
0x38820…38840 30 20 20 20 3b 20 20 20 65 6c 73 65 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 6e 6f 20 64 65 6c 61 79 ┆0 ; else operation:=no delay┆
0x38840…38860 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 73 31 37 20 20 20 20 3b 0a 20 20 20 20 20 ┆; bz w0 x1+s17 ; ┆
0x38860…38880 73 7a 20 20 77 30 20 20 32 2e 30 31 20 20 20 20 20 20 3b 20 20 20 69 66 20 6d 6f 64 65 3d 61 63 ┆sz w0 2.01 ; if mode=ac┆
0x38880…388a0 63 65 70 74 20 6d 61 73 74 65 72 20 63 6c 65 61 72 20 74 68 65 6e 0a 20 20 20 20 20 61 6d 20 20 ┆cept master clear then am ┆
0x388a0…388c0 20 20 20 20 34 2e 32 30 30 30 30 20 20 20 3b 20 20 20 20 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 6f ┆ 4.20000 ; operation:=o┆
0x388c0…388e0 70 65 72 61 74 69 6f 6e 20 61 6e 64 20 61 63 63 20 6d 61 73 74 65 72 20 63 6c 65 61 72 2c 6e 6f ┆peration and acc master clear,no┆
0x388e0…38900 20 74 65 73 74 3b 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 34 2e 30 30 30 30 31 3b 20 ┆ test; al w3 x3+4.00001; ┆
0x38900…38920 20 20 65 6c 73 65 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 6f 70 65 72 61 74 69 6f 6e 20 61 6e 64 20 ┆ else operation:=operation and ┆
0x38920…38940 64 75 6d 6d 79 2c 6e 6f 20 74 65 73 74 3b 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 32 2e 31 30 ┆dummy,no test; sz w0 2.10┆
0x38940…38960 20 20 20 20 20 20 3b 20 20 20 69 66 20 6d 6f 64 65 3d 69 6e 69 74 69 61 74 65 20 74 68 65 6e 0a ┆ ; if mode=initiate then ┆
0x38960…38980 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 34 2e 30 33 31 30 30 3b 20 20 20 20 20 6f 70 65 ┆ al w3 x3+4.03100; ope┆
0x38980…389a0 72 61 74 69 6f 6e 3a 3d 6f 70 65 72 61 74 69 6f 6e 20 61 6e 64 20 72 65 73 65 74 2c 73 68 6f 72 ┆ration:=operation and reset,shor┆
0x389a0…389c0 74 20 64 65 6c 61 79 2c 20 69 6e 69 74 69 61 74 65 3b 0a 20 20 20 20 20 68 73 20 20 77 33 20 20 ┆t delay, initiate; hs w3 ┆
0x389c0…389e0 78 31 2b 70 37 33 20 20 20 20 3b 20 20 20 6f 70 65 72 61 74 69 6f 6e 28 74 72 6d 29 3a 3d 6f 70 ┆x1+p73 ; operation(trm):=op┆
0x389e0…38a00 65 72 61 74 69 6f 6e 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 65 31 31 2e 20 20 20 20 20 20 ┆eration; jl. w3 e11. ┆
0x38a00…38a20 3b 20 20 20 63 61 6c 6c 20 74 72 61 6e 73 6d 69 74 74 65 72 28 6f 70 65 72 61 74 69 6f 6e 29 3b ┆; call transmitter(operation);┆
0x38a20…38a40 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┆
0x38a40…38a60 73 74 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 20 20 ┆st4***** rs. w3 f0. ┆
0x38a60…38a80 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 20 ┆; jl. w3 f4. ; ┆
0x38a80…38aa0 34 20 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 20 ┆4 ; f0: 0 ┆
0x38aa0…38ac0 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 20 ┆ ; jl. f1. ┆
0x38ac0…38ae0 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 2b 70 37 33 20 20 20 20 3b 0a 20 ┆ ; al w0 x1+p73 ; ┆
0x38ae0…38b00 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 70 37 37 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e ┆ al w1 x1+p77 ; jl.┆
0x38b00…38b20 20 77 33 20 20 66 35 2e 20 20 20 20 20 20 20 3b 0a 66 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w3 f5. ; f1: ┆
0x38b20…38b40 20 20 20 20 20 20 20 20 3b 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. ┆
0x38b40…38b60 20 3b 2a 2a 2a 2a 2a 74 65 73 74 34 2a 2a 2a 2a 2a 0a 20 20 20 20 20 62 6c 20 20 77 30 20 20 78 ┆ ;*****test4***** bl w0 x┆
0x38b60…38b80 31 2b 70 37 34 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 30 20 20 20 20 20 20 20 ┆1+p74 ; se w0 0 ┆
0x38b80…38ba0 20 20 3b 20 20 20 69 66 20 72 65 73 75 6c 74 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e ┆ ; if result<>0 then jl.┆
0x38ba0…38bc0 20 20 20 20 20 6a 32 2e 20 20 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 72 65 70 65 61 74 ┆ j2. ; goto repeat┆
0x38bc0…38be0 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 31 2b 73 31 36 20 20 20 20 3b 20 20 20 72 65 61 ┆; rs w0 x1+s16 ; rea┆
0x38be0…38c00 64 79 20 66 6c 61 67 3a 3d 72 75 6e 6e 69 6e 67 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6d ┆dy flag:=running; jl. m┆
0x38c00…38c20 32 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 20 74 72 61 6e 73 ┆2. ; goto continue trans┆
0x38c20…38c40 6d 69 74 3b 0a 0a 3b 20 72 65 63 65 69 76 65 20 62 6c 6f 63 6b 2e 0a 6d 31 32 3a 20 61 6c 20 20 ┆mit; ; receive block. m12: al ┆
0x38c40…38c60 77 31 20 20 78 31 2b 70 32 30 30 20 20 20 3b 20 72 65 63 65 69 76 65 20 62 6c 6f 63 6b 3a 0a 20 ┆w1 x1+p200 ; receive block: ┆
0x38c60…38c80 20 20 20 20 72 73 20 20 77 31 20 20 62 31 39 20 20 20 20 20 20 20 3b 20 20 20 63 75 72 72 3a 3d ┆ rs w1 b19 ; curr:=┆
0x38c80…38ca0 72 65 63 65 69 76 65 72 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 68 38 36 2e 20 20 20 20 20 ┆receiver; jl. h86. ┆
0x38ca0…38cc0 20 3b 20 20 20 67 6f 74 6f 20 72 65 63 65 69 76 65 72 3b 0a 0a 3b 20 74 72 61 6e 73 6d 69 74 20 ┆ ; goto receiver; ; transmit ┆
0x38cc0…38ce0 62 6c 6f 63 6b 2c 20 61 75 74 6f 6c 6f 61 64 2e 0a 6d 31 34 3a 20 61 6c 20 20 77 31 20 20 78 31 ┆block, autoload. m14: al w1 x1┆
0x38ce0…38d00 2b 70 32 30 31 20 20 20 3b 20 74 72 61 6e 73 6d 69 74 20 62 6c 6f 63 6b 2c 20 61 75 74 6f 6c 6f ┆+p201 ; transmit block, autolo┆
0x38d00…38d20 (101,) 61 64 3a 0a 20 20 20 20 20 72 73 20 20 77 31 20 20 62 31 39 20 20 20 20 20 20 20 3b 20 20 20 63 ┆ad: rs w1 b19 ; c┆
0x38d20…38d40 75 72 72 3a 3d 74 72 61 6e 73 6d 69 74 74 65 72 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 68 ┆urr:=transmitter; jl. h┆
0x38d40…38d60 38 38 2e 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 74 72 61 6e 73 6d 69 74 74 65 72 3b 0a 0a ┆88. ; goto transmitter; ┆
0x38d60…38d80 3b 20 74 72 61 6e 73 6d 69 74 20 6d 61 73 74 65 72 20 63 6c 65 61 72 2e 0a 6d 31 35 3a 20 61 6c ┆; transmit master clear. m15: al┆
0x38d80…38da0 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 74 72 61 6e 73 6d 69 74 20 6d 61 73 74 65 ┆ w0 0 ; transmit maste┆
0x38da0…38dc0 72 20 63 6c 65 61 72 3a 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 67 32 30 20 20 20 20 20 20 20 ┆r clear: rs w0 g20 ┆
0x38dc0…38de0 3b 20 20 20 73 74 61 74 75 73 28 6d 65 73 73 29 3a 3d 30 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 ┆; status(mess):=0; jl w3┆
0x38de0…38e00 20 20 67 31 38 20 20 20 20 20 20 20 3b 20 20 20 64 65 6c 69 76 65 72 20 72 65 73 75 6c 74 31 28 ┆ g18 ; deliver result1(┆
0x38e00…38e20 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 62 31 39 20 20 20 20 20 20 20 ┆status); rl w1 b19 ┆
0x38e20…38e40 3b 0a 6d 31 36 3a 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 62 72 65 61 6b ┆; m16: al w0 0 ; break┆
0x38e40…38e60 2d 64 6f 77 6e 3a 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 31 2b 70 36 37 20 20 20 20 3b 20 ┆-down: hs w0 x1+p67 ; ┆
0x38e60…38e80 20 20 65 72 72 6f 72 63 6f 75 6e 74 3a 3d 30 3b 0a 63 2e 70 31 30 31 20 62 2e 66 31 20 77 2e 20 ┆ errorcount:=0; c.p101 b.f1 w. ┆
0x38e80…38ea0 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 37 2a 2a 2a 2a 2a 0a 20 20 20 20 20 72 73 ┆ ;*****test7***** rs┆
0x38ea0…38ec0 2e 20 77 33 20 20 66 30 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 ┆. w3 f0. ; jl. w3 f┆
0x38ec0…38ee0 34 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4. ; 7 ┆
0x38ee0…38f00 20 20 3b 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 0a 20 20 20 ┆ ; f0: 0 ; ┆
0x38f00…38f20 20 20 6a 6c 2e 20 20 20 20 20 66 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 ┆ jl. f1. ; al w┆
0x38f20…38f40 30 20 20 78 31 2b 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 35 2e 20 ┆0 x1+2 ; jl. w3 f5. ┆
0x38f40…38f60 20 20 20 20 20 20 3b 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: ;┆
0x38f60…38f80 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┆
0x38f80…38fa0 73 74 37 2a 2a 2a 2a 2a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 6e 35 2e 20 20 20 20 20 20 20 ┆st7***** jl. w3 n5. ┆
0x38fa0…38fc0 3b 20 20 20 73 65 74 20 68 6f 73 74 2d 69 64 3b 0a 6a 30 3a 20 20 6a 6c 2e 20 77 33 20 20 6e 31 ┆; set host-id; j0: jl. w3 n1┆
0x38fc0…38fe0 34 2e 20 20 20 20 20 20 3b 20 72 65 70 65 61 74 3a 20 63 6c 65 61 6e 20 73 75 62 70 72 6f 63 65 ┆4. ; repeat: clean subproce┆
0x38fe0…39000 73 73 65 73 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 70 36 37 20 20 20 20 3b 0a 20 ┆sses; bz w0 x1+p67 ; ┆
0x39000…39020 20 20 20 20 62 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 20 20 20 3b 20 20 20 65 72 72 6f 72 63 ┆ ba. w0 1 ; errorc┆
0x39020…39040 6f 75 6e 74 3a 3d 65 72 72 6f 72 63 6f 75 6e 74 20 2b 20 31 3b 0a 20 20 20 20 20 68 73 20 20 77 ┆ount:=errorcount + 1; hs w┆
0x39040…39060 30 20 20 78 31 2b 70 36 37 20 20 20 20 3b 0a 20 20 20 20 20 73 6c 20 20 77 30 20 20 70 31 34 31 ┆0 x1+p67 ; sl w0 p141┆
0x39060…39080 20 20 20 20 20 20 3b 20 20 20 69 66 20 65 72 72 6f 72 63 6f 75 6e 74 3e 6d 61 78 20 65 72 72 6f ┆ ; if errorcount>max erro┆
0x39080…390a0 72 63 6f 75 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 34 2e 30 30 31 30 30 ┆rcount then am 4.00100┆
0x390a0…390c0 20 20 20 3b 20 20 20 20 20 64 65 6c 61 79 3a 3d 6c 6f 6e 67 20 64 65 6c 61 79 3b 0a 20 20 20 20 ┆ ; delay:=long delay; ┆
0x390c0…390e0 20 61 6c 20 20 77 30 20 20 34 2e 31 33 31 30 31 20 20 20 3b 20 20 20 65 6c 73 65 20 64 65 6c 61 ┆ al w0 4.13101 ; else dela┆
0x390e0…39100 79 3a 3d 73 68 6f 72 74 20 64 65 6c 61 79 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 31 2b ┆y:=short delay; hs w0 x1+┆
0x39100…39120 70 37 33 20 20 20 20 3b 20 20 20 6f 70 65 72 61 74 69 6f 6e 28 74 72 6d 29 3a 3d 6d 61 73 74 65 ┆p73 ; operation(trm):=maste┆
0x39120…39140 72 20 63 6c 65 61 72 2c 69 6e 69 74 69 61 74 65 2c 72 65 73 65 74 2c 64 65 6c 61 79 2c 65 72 72 ┆r clear,initiate,reset,delay,err┆
0x39140…39160 6f 72 20 61 63 74 69 6f 6e 20 6f 66 66 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 65 31 31 2e ┆or action off; jl. w3 e11.┆
0x39160…39180 20 20 20 20 20 20 3b 20 20 20 63 61 6c 6c 20 74 72 61 6e 73 6d 69 74 74 65 72 28 6f 70 65 72 61 ┆ ; call transmitter(opera┆
0x39180…391a0 74 69 6f 6e 29 3b 0a 20 20 20 20 20 62 6c 20 20 77 30 20 20 78 31 2b 70 37 34 20 20 20 20 3b 0a ┆tion); bl w0 x1+p74 ; ┆
0x391a0…391c0 63 2e 70 31 30 31 20 62 2e 66 31 20 77 2e 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 ┆c.p101 b.f1 w. ;*****tes┆
0x391c0…391e0 74 35 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 ┆t5***** rs. w3 f0. ;┆
0x391e0…39200 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 20 35 ┆ jl. w3 f4. ; 5┆
0x39200…39220 20 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 20 20 ┆ ; f0: 0 ┆
0x39220…39240 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 20 20 ┆ ; jl. f1. ┆
0x39240…39260 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 2b 32 20 20 20 20 20 20 3b 0a 20 20 ┆ ; al w0 x1+2 ; ┆
0x39260…39280 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 20 20 20 20 20 ┆ jl. w3 f5. ; f1: ┆
0x39280…392a0 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 20 20 20 20 20 ┆ ; e.z. ┆
0x392a0…392c0 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 35 2a 2a 2a 2a 2a 0a 20 20 20 20 20 73 65 20 ┆ ;*****test5***** se ┆
0x392c0…392e0 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 73 75 6c 74 3c 3e 6f 6b ┆ w0 0 ; if result<>ok┆
0x392e0…39300 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 20 ┆ then jl. j0. ; ┆
0x39300…39320 20 20 20 67 6f 74 6f 20 72 65 70 65 61 74 3b 0a 6a 31 3a 20 20 61 6c 20 20 77 30 20 20 34 2e 30 ┆ goto repeat; j1: al w0 4.0┆
0x39320…39340 33 31 31 31 20 20 20 3b 20 20 20 6f 70 65 72 61 74 69 6f 6e 28 72 65 63 29 3a 3d 69 6e 69 74 69 ┆3111 ; operation(rec):=initi┆
0x39340…39360 61 74 65 2c 72 65 73 65 74 2c 73 68 6f 72 74 20 64 65 6c 61 79 2c 0a 20 20 20 20 20 68 73 20 20 ┆ate,reset,short delay, hs ┆
0x39360…39380 77 30 20 20 78 31 2b 70 39 33 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0 x1+p93 ; ┆
0x39380…393a0 20 20 68 65 61 64 65 72 2c 65 72 72 6f 72 20 61 63 74 69 6f 6e 73 20 6f 66 66 3b 0a 20 20 20 20 ┆ header,error actions off; ┆
0x393a0…393c0 20 6a 6c 2e 20 77 33 20 20 65 31 30 2e 20 20 20 20 20 20 3b 20 20 20 63 61 6c 6c 20 72 65 63 65 ┆ jl. w3 e10. ; call rece┆
0x393c0…393e0 69 76 65 72 28 6f 70 65 72 61 74 69 6f 6e 29 3b 0a 20 20 20 20 20 62 6c 20 20 77 30 20 20 78 31 ┆iver(operation); bl w0 x1┆
0x393e0…39400 2b 70 39 34 20 20 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 ┆+p94 ; c.p101 b.f1 w. ┆
0x39400…39420 20 3b 2a 2a 2a 2a 2a 74 65 73 74 36 2a 2a 2a 2a 2a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 66 ┆ ;*****test6***** rs. w3 f┆
0x39420…39440 30 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 34 2e 20 20 20 20 20 ┆0. ; jl. w3 f4. ┆
0x39440…39460 20 20 3b 0a 20 20 20 20 20 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 66 30 3a ┆ ; 6 ; f0:┆
0x39460…39480 20 20 30 20 20 20 20 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 ┆ 0 ; jl. ┆
0x39480…394a0 20 20 20 66 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 2b 32 ┆ f1. ; al w0 x1+2┆
0x394a0…394c0 20 20 20 20 20 20 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 ┆ ; jl. w3 f5. ;┆
0x394c0…394e0 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 0a 65 2e 7a 2e 20 20 ┆ f1: ; e.z. ┆
0x394e0…39500 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 36 2a 2a 2a 2a ┆ ;*****test6****┆
0x39500…39520 2a 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 38 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 ┆* sn w0 8 ; if ┆
0x39520…39540 72 65 73 75 6c 74 3d 61 62 6e 6f 72 6d 61 6c 20 74 65 72 6d 69 6e 61 74 69 6f 6e 28 72 65 73 65 ┆result=abnormal termination(rese┆
0x39540…39560 74 20 72 65 63 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6a 31 2e 20 20 20 20 ┆t rec) then jl. j1. ┆
0x39560…39580 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 72 65 73 74 61 72 74 20 72 65 63 3b 0a 20 20 20 20 20 ┆ ; goto restart rec; ┆
0x39580…395a0 73 65 20 20 77 30 20 20 31 30 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 73 75 6c 74 3c ┆se w0 10 ; if result<┆
0x395a0…395c0 3e 61 63 63 65 70 74 20 6d 61 73 74 65 72 20 63 6c 65 61 72 20 74 68 65 6e 0a 20 20 20 20 20 6a ┆>accept master clear then j┆
0x395c0…395e0 6c 2e 20 20 20 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 72 65 70 65 ┆l. j0. ; goto repe┆
0x395e0…39600 61 74 3b 0a 20 20 20 20 20 61 6c 2e 20 77 32 20 20 69 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6d ┆at; al. w2 i2. ; m┆
0x39600…39620 (102,) 65 73 73 61 67 65 3a 3d 73 74 61 72 74 20 74 72 6d 2c 20 70 6f 6c 6c 3b 0a 20 20 20 20 20 6a 6c ┆essage:=start trm, poll; jl┆
0x39620…39640 2e 20 77 33 20 20 6e 34 2e 20 20 20 20 20 20 20 3b 20 20 20 73 65 6e 64 20 74 72 6d 20 6d 65 73 ┆. w3 n4. ; send trm mes┆
0x39640…39660 73 61 67 65 28 6d 65 73 73 61 67 65 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 34 2e 30 31 ┆sage(message); al w0 4.01┆
0x39660…39680 30 31 30 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 31 2b 70 39 33 20 20 20 20 3b ┆010 ; hs w0 x1+p93 ;┆
0x39680…396a0 20 20 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 69 6e 69 74 69 61 74 65 2c 68 65 61 64 65 72 3b 0a 20 ┆ operation:=initiate,header; ┆
0x396a0…396c0 20 20 20 20 6a 6c 2e 20 20 20 20 20 6d 30 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 73 ┆ jl. m0. ; goto s┆
0x396c0…396e0 74 61 72 74 20 72 65 63 65 69 76 65 72 3b 0a 0a 0a 3b 20 6d 61 73 74 65 72 20 63 6c 65 61 72 20 ┆tart receiver; ; master clear ┆
0x396e0…39700 72 65 63 65 69 76 65 64 20 66 72 6f 6d 20 64 65 76 69 63 65 20 63 6f 6e 74 72 6f 6c 6c 65 72 2e ┆received from device controller.┆
0x39700…39720 0a 6d 38 3a 20 20 6a 6c 2e 20 77 33 20 20 6e 31 34 2e 20 20 20 20 20 20 3b 20 6d 61 73 74 65 72 ┆ m8: jl. w3 n14. ; master┆
0x39720…39740 20 63 6c 65 61 72 20 72 65 63 65 69 76 65 64 3a 20 63 6c 65 61 6e 20 73 75 62 70 72 6f 63 65 73 ┆ clear received: clean subproces┆
0x39740…39760 73 65 73 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 ┆ses; c.p101 b.f1 w. ;***┆
0x39760…39780 2a 2a 74 65 73 74 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 ┆**test2***** rs. w3 f0. ┆
0x39780…397a0 20 20 20 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 ┆ ; jl. w3 f4. ; ┆
0x397a0…397c0 20 20 20 20 32 20 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 ┆ 2 ; f0: 0 ┆
0x397c0…397e0 20 20 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 66 31 ┆ ; jl. f1┆
0x397e0…39800 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 2b 32 20 20 20 20 20 ┆. ; al w0 x1+2 ┆
0x39800…39820 20 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 ┆ ; jl. w3 f5. ; f1: ┆
0x39820…39840 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. ┆
0x39840…39860 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 32 2a 2a 2a 2a 2a 0a 20 20 20 ┆ ;*****test2***** ┆
0x39860…39880 20 20 61 6c 2e 20 77 32 20 20 69 37 2e 20 20 20 20 20 20 20 3b 20 20 20 6d 65 73 73 61 67 65 3a ┆ al. w2 i7. ; message:┆
0x39880…398a0 3d 73 74 61 72 74 20 74 72 6d 2c 20 72 65 73 65 74 2c 20 69 6e 69 74 69 61 74 65 2c 20 61 63 63 ┆=start trm, reset, initiate, acc┆
0x398a0…398c0 20 6d 61 73 74 65 72 20 63 6c 65 61 72 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 6e 34 2e 20 ┆ master clear; jl. w3 n4. ┆
0x398c0…398e0 20 20 20 20 20 20 3b 20 20 20 73 65 6e 64 20 74 72 6d 20 6d 65 73 73 61 67 65 28 6d 65 73 73 61 ┆ ; send trm message(messa┆
0x398e0…39900 67 65 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 34 2e 30 31 30 31 30 20 20 20 3b 0a 20 20 ┆ge); al w0 4.01010 ; ┆
0x39900…39920 20 20 20 68 73 20 20 77 30 20 20 78 31 2b 70 39 33 20 20 20 20 3b 20 20 20 6f 70 65 72 61 74 69 ┆ hs w0 x1+p93 ; operati┆
0x39920…39940 6f 6e 3a 3d 69 6e 69 74 69 61 74 65 2c 68 65 61 64 65 72 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 ┆on:=initiate,header; jl. ┆
0x39940…39960 20 20 6d 30 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 73 74 61 72 74 20 72 65 63 65 69 ┆ m0. ; goto start recei┆
0x39960…39980 76 65 72 3b 0a 0a 65 2e 0a 0c 0a 3b 20 72 65 63 65 69 76 65 20 70 61 72 74 2e 0a 0a 62 2e 6a 31 ┆ver; e. ; receive part. b.j1┆
0x39980…399a0 30 2c 69 31 30 20 77 2e 0a 0a 6d 30 3a 20 20 6a 6c 2e 20 77 33 20 20 65 31 30 2e 20 20 20 20 20 ┆0,i10 w. m0: jl. w3 e10. ┆
0x399a0…399c0 20 3b 20 73 74 61 72 74 20 72 65 63 65 69 76 65 3a 20 63 61 6c 6c 20 72 65 63 65 69 76 65 72 3b ┆ ; start receive: call receiver;┆
0x399c0…399e0 0a 6d 33 3a 20 20 62 7a 20 20 77 33 20 20 78 31 2b 70 39 34 20 20 20 20 3b 20 63 6f 6e 74 69 6e ┆ m3: bz w3 x1+p94 ; contin┆
0x399e0…39a00 75 65 20 72 65 63 65 69 76 65 3a 0a 63 2e 70 31 30 31 20 62 2e 66 31 20 77 2e 20 20 20 20 20 20 ┆ue receive: c.p101 b.f1 w. ┆
0x39a00…39a20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 38 2a 2a 2a 2a 2a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 ┆ ;*****test8***** rs. w3 ┆
0x39a20…39a40 20 66 30 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 66 34 2e 20 20 20 ┆ f0. ; jl. w3 f4. ┆
0x39a40…39a60 20 20 20 20 3b 0a 20 20 20 20 20 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 66 ┆ ; 8 ; f┆
0x39a60…39a80 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e ┆0: 0 ; jl.┆
0x39a80…39aa0 20 20 20 20 20 66 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 ┆ f1. ; al w0 x1┆
0x39aa0…39ac0 2b 70 38 36 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 70 39 35 2b 31 34 ┆+p86 ; al w1 x1+p95+14┆
0x39ac0…39ae0 20 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 ┆ ; jl. w3 f5. ; f1: ┆
0x39ae0…39b00 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. ┆
0x39b00…39b20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 2a 2a 2a 2a 74 65 73 74 38 2a 2a 2a 2a 2a 0a 20 20 20 ┆ ;*****test8***** ┆
0x39b20…39b40 20 20 73 65 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 73 75 6c ┆ se w3 0 ; if resul┆
0x39b40…39b60 74 3c 3e 6f 6b 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6a 38 2e 20 20 20 20 20 ┆t<>ok then jl. j8. ┆
0x39b60…39b80 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 63 68 65 63 6b 20 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 ┆ ; goto check result; ┆
0x39b80…39ba0 62 7a 20 20 77 30 20 20 78 31 2b 70 39 37 20 20 20 20 3b 0a 20 20 20 20 20 73 6f 20 20 77 30 20 ┆bz w0 x1+p97 ; so w0 ┆
0x39ba0…39bc0 20 34 2e 30 30 30 30 32 20 20 20 3b 20 20 20 69 66 20 6e 6f 20 64 61 74 61 66 6c 61 67 20 74 68 ┆ 4.00002 ; if no dataflag th┆
0x39bc0…39be0 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6a 30 2e 20 20 20 20 20 20 20 3b 20 20 20 20 67 ┆en jl. j0. ; g┆
0x39be0…39c00 6f 74 6f 20 68 65 61 64 65 72 3b 0a 20 20 20 20 20 68 73 20 20 77 33 20 20 78 31 2b 70 38 30 20 ┆oto header; hs w3 x1+p80 ┆