Измерительно-вычислительные комплексы (канал общего пользования). Петросьянц В.В. - 121 стр.

             mov dx,Port_A
mov al,dx
out M,al
              {установить ДП в "высокое"}
              mov dx,Port_C
mov al,10h
out dx,al
           {направление передачи}
           mov dx,Port_B
mov al,Cry3
out dx,al
mov dx,PortC

 {           ожидание СД "высокое"}
M2: in al,dx
and al,O1h
jz M2

              {направление передачи}
              mov dx,Port_B
mov al,Cryl
out dx,al
            {установить ДП в "низкое"}
           mov dx,Port_C
mov al,Cry3
out dx,al
      end;
End;

Procedur Source_l;
Begin
      asm
            {направление передачи}
mov dx,Port_B
mov al,Cryl
out dx,al
            {установить СД в "высокое"}
mov dx,Port_C
mov al,Olh
out dx,al
      end;
End;

Procedure Source_2(M:Byte);

                                 120