103
S:\HP8924C\USRGUIDE\BOOK\chapters\opoverv.fb
Chapter 3, Operating Overview
Passing Instrument Control
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_hpib
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_hpib;2
800 !
810 SUBEND
To Next Page
Loading...
