CHAPTER 2 INSTALLATION
61
ietimout(30000);
{ Setting timeout S sec.
}
ieeol(adS00,2,oeolstr,0,10); { Init ADSOOA terminator
}
{ Set the DVM and Multiplexer }
outstr:=’FlT3RANS’;
ieoutput(hp3478,outstr);
{ Send DVM setting string
}
iochk;
{ Error check
}
outstr:=’DW0,16;DW1,0';
icoutput(adS00,outstr);
{ Open Mux & Actuator
}
iochk();
{ Error check
}
{ Measurement start }
for meas:=1 to 10 do
begin
alarm:=0;
for i:=0 to 1S do
begin
dumflag:=encode(chstr,i);
outstr:=’DW0,’;
concat(outstr,chstr);
ieoutput(adS00,outstr);
{ Close ch.I
}
iochk;
for k:=1 to 100 do dum:=dum;{ Relay operation delay }
ietrig(hp3478);
{ Trigger the DVM.}
ieenter(hp3478,instr);
{ Enter DVM reading }
iochk;
{ Error check
}
if instr[1]=’+’ then delete(instr,1,1);{ delete ‘+’ }
dumflag:=decode(instr,v[i]);
writeln(‘CHANNEL’,i:3,v[i]:10:6,’ VOLTS’);
if v[i] > v_lmt then
begin
writeln(,
ALARM l!’);
alarm:=1;
end;
end;
if alarm=1 then
begin
outstr:=’DW1,1';
ieoutput(adS00,outstr);
{ Set the alarm }
writeln(‘Set Alarm !’);
end
else
begin
outstr:=’DW1,0';
ieoutput(adS00,outstr);
{ Reset the alarm}
writeln(‘Reset Alarm !’);
end;
end;
end.
{ End of program }
Содержание PCLS-848-P
Страница 1: ...PCLS 848 P IEEE 488 INTERFACE CARD PASCA SUPPORT PACKAGE USER S MANUAL...
Страница 6: ...Figures Figuree 7 1 PCL 848A B Block Diagram 77...
Страница 10: ...4 PCLS 848 P User s Manual...
Страница 20: ...14 PCLS 848 P User s Manual...
Страница 32: ...26 PCLS 848 P User s Manual If addr 0 or addr 30 ATN is set false String is entered...
Страница 37: ...CHAPTER 2 INSTALLATION 31 ieinit ioport myaddr setting...
Страница 42: ...36 PCLS 848 P User s Manual If addr 0 or addr 30 ATN is set false Long string is sent...
Страница 56: ...50 PCLS 848 P User s Manual...
Страница 80: ...74 PCLS 848 P User s Manual...
Страница 83: ...CHAPTER 7 THEORY OF OPERATION 77 Figuree 7 1 PCL 848A B Block Diagram...
Страница 84: ...78 PCLS 848 P User s Manual...
Страница 95: ...CHAPTER 7 THEORY OF OPERATION 89...
Страница 97: ...CHAPTER 7 THEORY OF OPERATION 91 Handshake Timing Sequence...
Страница 102: ...96 PCLS 848 P User s Manual...