Agilent Technologies 4339B, Руководство по эксплуатации

Страница: 145 / 287

4339B Other F eatures
F or example , to detect the measurement completion:
OUTPUT 717;":SYST:OPER:ENAB 16" Enable Measurement bit of Operation Status R egister
OUTPUT 717;"*SRE 128" Enable Operation Status R egister Summary bit
REPEAT
A=SPOLL(717)
UNTIL BIT(A,7)
W ait until the Operation Status R egister Summary
bit is set
F or example , to generate an interrupt when an error occurs in the 4339B :
:
DIM Err$[50]
!
:
OUTPUT 717;"*CLS" Clears status byte register
OUTPUT 717;"*ESE 48" Sets Command Error Bit and Execution Error Bit
OUTPUT 717;"*SRE 32" Sets Standard Event Status R egister Summary Bit
!
ON INTR 7 GOSUB Err_report T ells where to branch to when interrupted
ENABLE INTR 7;2 Enable an interrupt from GPIB interface
!
:
LOOP
:
END LOOP
STOP
!
Err_report:!
Stat=SPOLL(717) Clears the SRQ bit
OUTPUT 717;"*ESR?" A sks contents of the Standard Event Status R egister
ENTER 717;Estat
PRINT "Syntax Error detected."
!
OUTPUT 717;":SYST:ERR?" A sks to output error number and message
ENTER 717;Err,Err$
PRINT Err,Err$
!
ENABLE INTR 7
RETURN
END
Remote Operation 4-27