AXIOMTEK AX10445 Series User Manual page 34

AX10445 Module Series User's Manual
(**********************************************************************************)
(* Repeat to send and receive data via PC communication port number 1 *)
(**********************************************************************************)
begin
clrscr;
com_init;
is_485 :=TRUE;
while not keypressed do
begin
(* reset receiver buffer index *)
ii := 1;
(* issue write data routine *)
write_com('This is a product of AXIOMTEK. Made In
Taiwan.',43);
(* wait for completion of remote response *)
(*
(* show on screen *)
for i := 1 to ii-1 do
write(chr(rxbuf[i]):1);
writeln;
(* user routines for checksum, retrieving data... *)
(*
end;
(* restore all changed system resource *)
setintvec(intno,intbuf);
port[$21] := port[$21] or (not mask);
port[pa+4] := 0;
port[pa+1] := 0;
end.
26
*)
*)
Application