Table of Contents
Advertisement
580
COM /Gpib_names/ INTEGER Internal_gpib,Inst_address,Cntrl_state
590
COM /Cntrl_names/ Ext_cntrl_addrs,Int_cntrl_addrs
600
COM /Io_names/ INTEGER Printer_addrs,Pwr_suply_addrs
610
COM /Io_values/ REAL Meas_power,Prog_state$[80],Prog_name$[50]
620
COM /Reg_vals/ INTEGER Status_byte,Stdevnt_reg_val
630
!
640
OFF INTR Internal_gpib
650
Status_byte=SPOLL(Inst_address)
660
IF NOT BIT(Status_byte,5) THEN
670
PRINT "SRQ for unknown reason. Status Byte = ";Status_byte
680
STOP
690
END IF
700
!
710
! Tell Test Set where to pass control back to
720
OUTPUT Inst_address;"*PCB";Int_cntrl_addrs
730
!
740
! Put Test Set in LOCAL mode so front panel keys function
750
LOCAL Inst_address
760
!
770
PASS CONTROL Inst_address
780
!
790
ENABLE INTR Internal_gpib;2
800
!
810
SUBEND
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Chapter 3, Operating Overview
Passing Instrument Control
95
Advertisement
Table of Contents
