Table of Contents
Advertisement
1020
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!
1030
!
1040
!
1050
!
Subprogram name:
1060
!
Parameters: none
1070
!
Return value: none
1080
!
Description:
then checks
1090
!
the oscilloscope caused the
1100
!
of the oscilloscope
1110
!
The error queue
1120
!
registers and
1130
!
control is returned
1140
!
1150
!
1160
!
1170
!
1180
SUB Srq_handler
1190
COM /Io/@Scope,Interface
1200
DIM Error_str$[64]
1210
INTEGER Srq_asserted,More_errors
1220
Status_byte=SPOLL(@Scope)
1230
IF BIT(Status_byte,6) THEN
1240
More_errors=1
1250
WHILE More_errors
1260
1270
1280
1290
1300
1310
1320
1330
1340
END WHILE
1350
ELSE
1360
PRINT
1370
PRINT "Scope did not cause SRQ"
1380
PRINT
1390
END IF
1400
ENABLE INTR Interface;2
1410
SUBEND
Srq_handler
This routine verifies the status of the SRQ line.
the status byte of the oscilloscope to determine if
SRQ.
Note that using a SPOLL to read the status byte
clears the SRQ and allows another to be generated.
is read until all errors have been cleared.
queues, except the output queue, are cleared before
to the main program.
OUTPUT @Scope;":SYSTem:ERROR? STRING"
ENTER @Scope;Error_str$
PRINT
PRINT Error_str$
IF Error_str$[1,1]="0" THEN
OUTPUT @Scope;"*CLS"
More_errors=0
END IF
!re-enable SRQ
Sample Programs
srq.bas Sample Program
It
All event
6-49
Advertisement
Table of Contents
