Operating Manual R&S SMIQ - Volume 1 - Rohde & Schwarz

SMIQProgramming ExamplesReading out the status event registers, the output buffer and the error/event queue is effected insubroutines.REM ---------------- Subroutines for the individual STB bits --------------Outputqueue:'Reading the output bufferMessage$ = SPACE$(100)'Make space for responseCALL IBRD(generator%, Message$)PRINT "Message in output buffer :"; Message$RETURNFailure:ERROR$ = SPACE$(100)CALL IBWRT(generator%, "SYSTEM:ERROR?")CALL IBRD(generator%, ERROR$)PRINT "Error text :"; ERROR$RETURNQuestionablestatus:Ques$ = SPACE$(20)CALL IBWRT(generator%, "STATus:QUEStionable:EVENt?")CALL IBRD(generator%, Ques$)IF (VAL(Ques$) AND 128) > 0 THEN PRINT "Calibration ?"IF (VAL(Ques$) AND 1) > 0 THEN PRINT "Voltage ?"RETURNOperationstatus:Oper$ = SPACE$(20)CALL IBWRT(generator%, "STATus:OPERation:EVENt?")CALL IBRD(generator%, Oper$)IF (VAL(Oper$) AND 1) > 0 THEN PRINT "Calibration"IF (VAL(Oper$) AND 2) > 0 THEN PRINT "Settling"IF (VAL(Oper$) AND 8) > 0 THEN PRINT "Sweeping"IF (VAL(Oper$) AND 32) > 0 THEN PRINT "Wait for trigger"RETURN'Read error queue'Make space for error variable'Read questionable status register'Preallocate blanks to text variable'Calibration is questionable'Output level is questionable'Read operation status register'Preallocate blanks to text variableEsrread:'Read event status registerEsr$ = SPACE$(20)'Preallocate blanks to text variableCALL IBWRT(generator%, "*ESR?")'Read ESRCALL IBRD(generator%, Esr$)IF (VAL(Esr$) AND 1) > 0 THEN PRINT "Operation complete"IF (VAL(Esr$) AND 4) > 0 THEN GOTO FailureIF (VAL(Esr$) AND 8) > 0 THEN PRINT "Device dependent error"IF (VAL(Esr$) AND 16) > 0 THEN GOTO FailureIF (VAL(Esr$) AND 32) > 0 THEN GOTO FailureIF (VAL(Esr$) AND 64) > 0 THEN PRINT "User request"IF (VAL(Esr$) AND 128) > 0 THEN PRINT "Power on"RETURNREM **********************************************************************REM --------------------------- Error routine --------------------------------Error handling:PRINT "ERROR"'Output error messageSTOP'Stop software1125.5555.03 D.5E-7