发送 A 接收。具体程РРР序如下:РРРРmtype = {Err,a,b};РРРРРРРРРРРchan SenderToReceiver = [1] of {mtype,byte};РРРРРchan ReceiverToSender = [1] of {mtype,byte};РРРРРРРРРРРproctype A_SENDER(chan InCh, OutCh)РРРРР{РРРРРS5: ifРРРРРРР::OutCh!a(0)РРРРР::OutCh!Err(0)РРРРРfi;РРРРРifРРРРР::InCh?Err(0)-> goto S5РРРРР::InCh?b(0)-> goto S1РРРРР::InCh?b(1)-> goto S1РРРРРfi;РРРРРS1: ifРРРРР::OutCh!a(1)РРРРР::OutCh!Err(0)РРРРРfi;РРРРРifРРРРР::InCh?Err(0)-> goto S5РРРРР::InCh? b(1)-> goto S1РРРРР::InCh?b(0)-> goto S1РРРРРfi;РРРРРРР}РРРРРРРРРРРproctype B_RECEIVER(chan InCh, OutCh)РРРРР{РРРРРifРРРРР::InCh?Err(0)-> goto S5РРРРР::InCh?a(0) -> goto S1РРРРР::InCh?a(1)-> goto S1РРРРРfi;РРРРРS5: ifРРРРР::OutCh!b(0)РРРРР::OutCh!Err(0)РРРРРfi;РРРРРifРРРРР::InCh?Err(0)-> goto S5РРРРР::InCh?a(0) -> goto S1РРРРР::InCh?a(1)-> goto S1