AXIOMTEK AX10445 Series User Manual page 33

begin
inline($FA);
port[pa+4] :=0;
port[pa+1]: =0;
int14_0(0,$8A);
i :=port[pa+2];
i :=port[pa];
setintvec(intno,intbuf);
setintvec(intno,@ch_isr);
port[pa+1] := $01;
port[pa+4] := $08;
port[$21] := port[$21] and mask;
inline($FB);
end;
(* write data to UART *)
procedure write_com(data:string;wlen:wored);
var i : word;
begin
i := 1;
while i <= wlen do
begin
end;
end;
Application
(* 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 ;
AX10445 Module Series User's Manual
(* cli *)
(* clear modem control reg
*)
(* clear int enable reg. *)
(* initial using bios call *)
(* clear flags *)
(* save vectors *)
(* change vector *)
(* set receive interrupt *)
(* enable interrupt *)
(* unmask 8259 interrupt *)
(* sti *)
25