AXIOMTEK AX10445 Series, Руководство пользователя

Страница: 33 / 58

AX10445 Module Series User
’
s Manual
Application
25
begin
inline($FA); (* cli *)
port[pa+4] :=0; (* clear modem control reg
*)
port[pa+1]: =0; (* clear int enable reg. *)
int14_0(0,$8A); (* initial using bios call *)
i :=port[pa+2]; (* clear flags *)
i :=port[pa];
setintvec(intno,intbuf); (* save vectors *)
setintvec(intno,@ch_isr); (* change vector *)
port[pa+1] := $01; (* set receive interrupt *)
port[pa+4] := $08; (* enable interrupt *)
port[$21] := port[$21] and mask; (* unmask 8259 interrupt *)
inline($FB); (* sti *)
end;
(* write data to UART *)
procedure write_com(data:string;wlen:wored);
var i : word;
begin
i := 1;
while i <= wlen do
begin
(* check if 485 mode then turn rts on *)
if (is_485) then port[pa+4] := $0b;
(* write a byte to UART *)
port[pa] := ord(data[i]);
(* check Trans. Empty bit *)
while ((port[pa+5] and $40) = 0) do begin end;
(* check if 485 mode then turn rts off *)
if (is_485) then port[pa+4] :=$08;
i := i + i;
end;
end;