HP 8921A Programmer's Manual page 326

Cell site test set

Hide thumbs Also See for 8921A:

Table of Contents

Chapter 5, Advanced Operations

Passing Control

STATUS Internal_hpib,3;Cntrl_state

DISP "WAITING FOR CONTROL BACK FROM THE Test Set"

UNTIL BIT(Cntrl_state,6)

! Data is ready in the Test Set

OUTPUT Inst_address;"PROG:NUMB? Meas_power"

ENTER Inst_address;Meas_power

PRINT "Measured power = ";Meas_power

DISP "Program finished."

SUB Pass_control

COM /Hpib_names/ INTEGER Internal_hpib,Inst_address,Cntrl_state

COM /Cntrl_names/ Ext_cntrl_addrs,Int_cntrl_addrs

COM /Io_names/ INTEGER Printer_addrs,Pwr_suply_addrs

COM /Io_values/ REAL Meas_power,Prog_state$[80],Prog_name$[50]

COM /Reg_vals/ INTEGER Status_byte,Stdevnt_reg_val

OFF INTR Internal_hpib

Status_byte=SPOLL(Inst_address)

IF NOT BIT(Status_byte,5) THEN

PRINT "SRQ for unknown reason. Status Byte = ";Status_byte

! Tell Test Set where to pass control back to

OUTPUT Inst_address;"*PCB";Int_cntrl_addrs

! Put Test Set in LOCAL mode so front panel keys function

LOCAL Inst_address

PASS CONTROL Inst_address

ENABLE INTR Internal_hpib;2

Show Quick Links

Table of Contents