HP E1340A User's Manual
Download Operation & user’s manual of HP E1340A Portable Generator for Free or View it Online on All-Guides.com.
HP IBASIC (ERRORCHK)
1 !RE-SAVE"ERRORCHK"
2 !This program represents the method used to check for programming
3 !errors in HP IBASIC programs.
10 !Assign I/O path between IBASIC and the E1340A.
20 ASSIGN @Afg TO 80910
30 COM @Afg
40 !Define branch to be taken when an E1340A error occurs.
50 !Enable IBASIC interface to generate interrupt when error occurs.
60 ON INTR 8 CALL Errmsg
70 ENABLE INTR 8;2
80 !Clear all bits in the standard event status register, unmask the
90 !standard event status group summary bit in the E1340A status byte
100 !register (decimal weight 32), unmask the query error, device
110 !dependent error, execution error, and command error bits
120 !(decimal sum 60) in the E1340A standard event status register.
130 OUTPUT @Afg;"*CLS"
140 OUTPUT @Afg;"*SRE 32"
150 OUTPUT @Afg;"*ESE 60"
160 !
170 !Subprogram calls would be here
180 !
190 WAIT .1 !allow error branch to occur before turning intr off
200 OFF INTR 8
210 END
220 !
230 SUB Errmsg
240 Errmsg: !Subprogram which displays E1340 programming errors
250 COM @Afg
260 DIM Message$[256]
270 !Read AFG status byte register and clear service request bit
280 B=SPOLL(@Afg)
290 !End of statement if error occurs among coupled commands
300 OUTPUT @Afg;""
310 OUTPUT @Afg;"ABORT" !abort output waveform
320 REPEAT
330 OUTPUT @Afg;"SYST:ERR?" !read AFG error queue
340 ENTER @Afg;Code,Message$
350 PRINT Code,Message$
360 UNTIL Code=0
370 STOP
380 SUBEND
39 Getting Started with the HP E1340A Chapter 1