beautypg.com

AMETEK SLM-4 User Manual

Page 68

background image

Appendix B

Sorensen SLM-4 Chassis

void pd_loc(void)
{
char ch;
outportb(ACE_INT_ENB_REG, 0);

/* disable all 8250 interrupt */

outportb(ACE_MODEM_CTL_REG, 0);

/* clear RTS,DTR to disable modem and

*/

/* turn off OUT2 to disable the

8250's*/

/* IRQ interrupt to system

*/
}/* Program terminated. */

C Example Program


/* Link this program with pd_rs232.obj */

#include
#include
#include
#include

main()
{
int com;
int io_err= 0;
char rdbuf[1024];
clrscr();
printf("Input COM1/COM2 port is : ");
scanf("%d", &com);
if((io_err = pd_init(com)) == 0)

/* Initial RS-232 interface */

{
setstr(rdbuf,'');
pd_wrt("chan

1",6);

delay(200);
pd_wrt("name?",5);

if ((io_err = pd_rd(a,10)) == 0)

{

do

{

/* Set the channel 1, preset off, current sink 1.0 amps and load on commands to the load. */
pd_wrt("chan

1",6);

delay(200);
pd_wrt("pres

off",8);

delay(200);
pd_wrt("curr:low

0.0",12);

delay(200);
pd_wrt("curr

high

1.0",13;

delay(200);
pd_wrt("load

on",7);

delay(200);
pd_wrt("meas:curr

?",11);

B-8

M540069-01 Rev B