Operating Manual EMI TEST RECEIVER ESIB7 - Rohde & Schwarz

Programming Examples
ESIB
Service Request
The service request routine requires an extended initialization of the instrument in which the respective
bits of the transition and enable registers are set.
In order to use the service request function in conjugation with National Instruments GPIB driver, the
setting "Disable Auto Serial Poll" must be changed to "yes" by means of IBCONF!
REM ---- Example of initialization of the SRQ in the case of errors ------
CALL IBWRT(receiver%, "*CLS")
’Reset Status Reporting System
CALL IBWRT(receiver%,"*SRE 168")
’Permit service request for
’STAT:OPER,STAT:QUES and ESR
’register
CALL IBWRT(receiver%,"*ESE 60")
’Set event-enable bit for
’command, execution, device-
’dependent and query error
CALL IBWRT(receiver%,"STAT:OPER:ENAB 32767") ’Set OPERation enable bit for
’all events
CALL IBWRT(receiver%,"STAT:OPER:PTR 32767") ’Set appropriate OPERation
’Ptransition bits
CALL IBWRT(receiver%,"STAT:QUES:ENAB 32767") ’Set questionable enable bits
’for all events
CALL IBWRT(receiver%,"STAT:QUES:PTR 32767") ’Set appropriate questionable
’Ptransition bits
ON PEN GOSUB Srq
’Initialization of the service
’request routine
PEN ON
REM Continue main program here
STOP
A service request is then processed in the service request routine.
Note: the variables userN% and userM% must be pre-assigned usefully!
Srq:
REM ------------ Service request routine -----------
DO
SRQFOUND% = 0
FOR I% = userN% TO userM%
’Poll all bus users
ON ERROR GOTO nouser
’No user existing
CALL IBRSP(I%, STB%)
IF STB% > 0 THEN
’Serial poll, read status byte
’This instrument has bits set
’in the STB
SRQFOUND% = 1
IF (STB% AND 16) > 0 THEN GOSUB Outputqueue
IF (STB% AND 4) > 0 THEN GOSUB Failure
IF (STB% AND 8) > 0 THEN GOSUB Questionablestatus
IF (STB% AND 128) > 0 THEN GOSUB Operationstatus
IF (STB% AND 32) > 0 THEN GOSUB Esrread
END IF
nouser:
NEXT I%
LOOP UNTIL SRQFOUND% = 0
ON ERROR GOTO error handling
ON PEN GOSUB Srq: RETURN
’Enable SRQ routine again
’End of SRQ routine
1088.7531.12 7.4 E-16