Advantech PCLS-848-P, User Manual

Page: 25 / 106

CHAPTER 2 INSTALLATION 19
Using the IEEE-488 procedures requires three steps.
1. Define the IEEE-488 procedures those will be called later. If you can not sure which
procedures wil1 be used, just key in the statement
{$I TBPGPIB.INC}
to include all the +EEE-488 procedures. Following is the list of TBPGPIB.INC.
{Start of definition of IEEE-488 procedures}
Type lstring = string[255];
procedure ieinit(ioport,myaddr,setting:integer);
begin inline($9A/$00/$04/$00/$DO);end; {call D000:0400}
procedure ieoutput(addr:integer;var tmp:lstring);
begin inline($gA/$03/$04/$00/$DO);end; {call D000:0403}
procedure ieenter(addr:integer;var instr:lstring);
begin inline($9A/$06/$04/$00/$DO);end; {cal+ D000:0406}
procedure ieabort;
begin inline($9A/$09/$04/$00/$DO);end; {call D000:0409}
procedure ieeol(addr,outeol:integer;var outeolstr: lstring;
ineol,ineolb:integer);
begin inline($9A/$0C/$04/$00/$DO);end; {call D000:040C}
procedure iedevclr(addr:integer);
begin inline($9A/$0F/$04/$00/$DO);end; {call D000:040F)
procedure iello;
begin inline($9A/$12/$04/$00/$DO);end; {call D000:0412}
procedure ielocal(addr~integer);
begin inline($9A/$15i$04/$00/$DO);end; {call D000:0415}
procedure ieppoll(var response:integer);
begin inline($9A/$18/$04/$00/$DO);end; {call D000:0418}
procedure ieppollc(addr,config:integer);
begin inline($9A/$1B/$04/$00/$DO);end; {call D000:041B}
procedure ieppollu(addr integer);
begin inline($9A/$1E/$04/$00/$DO);end; {call D000:041E}
procedure ieremote(addr:integer);
begin inline($9A/$21/$04/$00/$DO);end; {call D000:0421}
procedure iesend(var cmdstr:lstring);
begin inline($9A/$24/$04/$00/$DO);end; {call D000:0424}
procedure iespoll(addr:integer;var response:integer);