Operating instructions

Basic Steps of IEC/IEEE-Bus Programming R&S ESCI
1166.6004.12 7.12 E-1
Evaluation of Event Status Register
REM ------ Subroutine for evaluating the Event Status Register ------------
Public SUB Esrread()
Esr$ = SPACE$(20) 'Preallocate blanks to text variable
CALL IBWRT(receiver%, "*ESR?") 'Read ESR
CALL IBRD(receiver%, Esr$)
IF (VAL(Esr$) AND 1) > 0 THEN PRINT "Operation complete"
IF (VAL(Esr$) AND 2) > 0 THEN PRINT "Request Control"
IF (VAL(Esr$) AND 4) > 0 THEN PRINT "Query Error"
IF (VAL(Esr$) AND 8) > 0 THEN PRINT "Device dependent error"
IF (VAL(Esr$) AND 16) > 0 THEN
PRINT "Execution Error; Program aborted"' Output error message
STOP 'Stop software
END IF
IF (VAL(Esr$) AND 32) > 0 THEN
PRINT "Command Error; Program aborted"' Output error message
STOP 'Stop software
END IF
IF (VAL(Esr$) AND 64) > 0 THEN PRINT "User request"
IF (VAL(Esr$) AND 128) > 0 THEN PRINT "Power on"
END SUB
REM
**********************************************************************