Agilent Technologies E3631-90002, User Manual, Page: 135 / 166

Chapter 6 Application Programs
Using the Status Registers
134
. . . continued
260 !
270 ! Set the power supply to an output for three outputs
280 !
290 OUTPUT @Psup;"APPL P6V,3.0, 0.5" ! Set 3 V/0.5 A for +6V output,
300 OUTPUT @Psup;"APPL P25V,10.0, 0.8" ! Set 10 V/0.8 A for +25V output,
310 OUTPUT @Psup;"APPL N25V,-15.0, 0.2"! Set -15 V/0.2 A for -25V output
320 !
330 OUTPUT @Psup;"OUTP ON"! ! Enable the outputs
340 !
350 OUTPUT @Psup;"*OPC" ! Verify previous commands has executed
360 !
370 OFF INTR Gpib ! Disable interrupts
380 END
390 !
400 !***************************************************************************
410 !
420 SUB Err_msg ! Error subprogram is called if errors occurred
430 DIM Message$[80] ! Dimension array for error
440 INTEGER Code ! Define integer variable
450 COM @Psup ! Use same address as in main program
460 B=SPOLL(@Psup) ! Use Serial Poll to read Status Byte
470 ! (all bits are cleared too)
480 !
490 ! Loop until error queue is cleared
500 !
510 REPEAT
520 OUTPUT @Psup;"SYST:ERR?"
530 ENTER @Psup;Code,Message$
540 PRINT Code,Message$
550 UNTIL Code=0
560 STOP
570 SUBEND
End of Program 3