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

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

AX10445 Module Series User
’
s Manual
Application
26
(**********************************************************************************)
(* 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.