Advantech PCLS-848-P, User Manual

Page: 26 / 106

2 0 PCLS-848-P User's Manual
begin inline($9A/$27/$04/SOO/$DO);end; {call D000:0427}
procedure iestatus(condition:integer;var status:integer);
begin inline(59A/$2A/504/$00/$DO);end; {call D000:042A)
procedure ietimout(timeset:integer);
begin inline($9A/$2D/$04/$00/$DO);end; {call D000:042D}
procedure ietrig (addr:integer);
begin inline($9A/$30/$04/$00/$DO);end; {call D000:0430}
procedure ieentera(addr,dataseg,datalen:integer);
begin inline($9A/$33/$04/$00/$DO);end; {call D000:0433}
procedure ieouta(addr,dataseg,datalen:integer).
begin inline($9A/$36/$04/$00/$DO);end; {call D000:0436}
procedure iedevice(addr,portno:integer);
begin inline($9A/$39/$04/$00/SDO);end; {call D000:0439}
{End of definition of IEEE-488 procedures}
2. Develop the program with the IEEE-488 procedures and functions that you need.
3. Run the program.
3.4. The IEEE488 Procedures and Functions
The following twenty-one procedures can be called by programs written in Pascal
language to access the IEEE-488 interface. Turbo Pascal does not use procedure ieseg(
).