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

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

 Procedure Resiver_2(Var M:Byte);
 Label
       Ml,
       M2;
 Begin
       asm
            {направление передачи}
mov dx,Port_B
mov al,Cryl
out dx,al
            {установить ГП в "высокое"}
mov dx,Port_C
mov al,20h
out dx,al
             {направление передачи}
             mov dx,Port_B
 mov al,Cry3
 ut dx,al
 mov dx,Port_C

 {            ожидание СД "низкое"}
Ml: in al,dx
and al,01h
jnz Ml
             {направление передачи}
             mov dx,Port_B
mov al,Cryl
out dx,al
             {установить ГП в "низкое"}
             mov dx,Port_C
mov al,Cry3
out dx,al
             {ввод данных}

                                119