HP 8153A - Page 195

Example 4
Example 4
For this program to work, you need a sensor module in channel A or channel B.
Function
This program counts the number of times the power reading goes into
overrange.
When this program is running, put the instrument under local operation (use
(Local ! ' make sure that RMT is off). Set the range to the lowest manual range.
Apply an optical .signal to the sensor, and switch this signal on and off to
generate an overload.
Listing
10 ASSIGN @PBim TO 722
15 i
20 OUTPUT Qp!nm;’'*cls’'
30 OUTPUT @Pmra;"stat:ques:pow:overr:ptr 3;ntr 0;enab 3"
40 OUTPUT @Pmm;''stat:ques:pow:ptr l;ntr 0;enab 1"
50 OUTPUT @Pinin;"stat:ques:ptr 8;ntr 0;enab 8"
60 OUTPUT SPinm;"*sre 8"
65 !
70 REPEAT
80 OUTPUT 8Pmm;"syst:err?"
90 ENTER ®Pmm;Err
100 IF ErrOO THEN PRINT "Error Code = ";Err
110 UNTIL Err=0
115 !
120 CLEAR SCREEN
130 PRINT TABXY(20,10);"Waiting for HPIB-Interrupt in an endless loop."
140 PRINT TABXY(20,il);"If an Overrange occurs, a counter will be"
150 PRINT TABXY(20,12);"incremented."
160 PRINT TABXY(20,14);"Overrange Count :
170 PRINT TABXY(20,16);"Serial Poll :
175 !
180 ON INTR 7 GOSUB Pmra.srq
190 ENABLE INTR 7;2
195 !
200 Ends = 0
210 REPEAT
220 UNTIL Ende=200
225 !
230 GOTO 320
235 !
Remote Operation • Programming Examples 10-7