Не пойму логики, он, что при каждом вызове кейса номер 1 равен ТRUE?. Тогда и
IF Send.Q THEN
ptr:=ADR(Ves_Post1);
buffer[1]:=ptr^;
ptr:=ptr+1;
buffer[0]:=ptr^;
ptr:=ptr+1;
buffer[3]:=ptr^;
ptr:=ptr+1;
buffer[2]:=ptr^;
ptr:=ptr+1;
END_IF
нельзя! Так как трогать буфер после отправки до завершения операции нельзя. )





Ответить с цитированием