Rohde & Schwarz NRT 1080.9506.02/.62, Operating Manual

Page: 96 / 194

Description of Commands NRT
1080.9506.02 3.16 E-6
Programming example
for external triggering via the AUX TTL-connector:
′
****************************************************************************
′
Initialize the SRQ
′
****************************************************************************
CALL IBWRT(sensor%,
"
*CLS
"
)
′
Reset Status Reporting
CALL IBWRT(sensor%,
"
*SRE 128
"
)
′
Enable SRQ for STAT:OPER
CALL IBWRT(sensor%,
"
*ESE 61
"
)
′
Enable SRQ at NRT with
′
Event-Enable-Bit
CALL IBWRT(sensor%,
"
STAT:OPER:ENAB 16
"
)
′
Activate MEASuring-Operation-
′
Enable-Bit
CALL IBWRT(sensor%,
"
STAT:OPER:NTR 16
"
)
′
Trigger SRQ as soon as the NRT
′
has terminated the measurement.
′
****************************************************************************
′
Activate SRQ at Controller
′
****************************************************************************
ON PEN GOSUB Srq
PEN ON
′
****************************************************************************
′
Main Program
′
****************************************************************************
′
Application-specific commands, Examples for querying the measured results
flag% = 0
lp = TRUE
WHILE lp = TRUE
′
Reading the data within a loop
IF flag% = 1 THEN
′
triggered measurement terminated
CALL IBWRT(sensor%,
"
SENS<n>:DATA?
"
)
′
query data
CALL IBRD(sensor%, Measval$)
PRINT
"
current meas. value:
"
; Measval$
′
and print them
flag% = 0
PEN ON
′
Activate SRQ again
END IF
WEND
STOP
′
End of program
′
****************************************************************************
Srq:
′
Service Request Routine
′
****************************************************************************
CALL IBRSP(sensor%, STB%)
′
Serial poll, read status byte
IF (STB% AND 128) > 0 THEN GOSUB Operationstatus
ON PEN GOSUB Srq
PEN ON
RETURN
′
End of service request routine
′
****************************************************************************
Operationstatus:
′
Subroutine for handling the OPER-register
′
****************************************************************************
Oper$ = SPACE$(20)
CALL IBWRT(sensor%,
"
STAT:OPER:EVEN?
"
)
CALL IBRD(sensor%, Oper$)
IF (VAL(Oper$) AND 16) > 0 THEN flag% = 1
RETURN
′
End of subroutine
深圳德标仪器
135-1095-0799