Escort 3136A Operation Manual page 95

CALL ibonl(dvm%, 0)
END
'======================================================================
'
'
'
' This subroutine will notify you that the meter returned an invalid
' serial poll response byte. The error message will be printed along with
' the serial poll response byte.
'
' The NI-488 function IBONL is called to disable the hardware and software.
'
' The STOP command will terminate this program.
'======================================================================
'
SUB dvmerr (msg$, spr%) STATIC
PRINT msg$
PRINT "Status Byte = &H"; HEX$(spr%)
' Call the IBONL function to disable the hardware and software.
CALL ibonl(dvm%, 0)
STOP
END SUB
'======================================================================
'
' This subroutine will notify you that a NI-488 function failed by printing
' an error message. The status variable IBSTA% will also be printed
' in hexadecimal along with the mnemonic meaning of the bit position.
' The status variable IBERR% will be printed in decimal along with the
' mnemonic meaning of the decimal value. The status variable IBCNT% will
' be printed in decimal.
'
' The NI-488 function IBONL is called to disable the hardware and software.
'
' The STOP command will terminate this program.
'======================================================================
'
SUB gpiberr (msg$) STATIC
PRINT msg$
PRINT "ibsta = &H"; HEX$(ibsta%); " <";
IF ibsta% AND EERR
IF ibsta% AND TIMO
IF ibsta% AND EEND
IF ibsta% AND SRQI
IF ibsta% AND RQS
IF ibsta% AND SPOLL THEN PRINT " SPOLL";
IF ibsta% AND EEVENT THEN PRINT " EVENT";
IF ibsta% AND CMPL
Subroutine DVMERR
Subroutine GPIBERR
THEN PRINT " ERR";
THEN PRINT " TIMO";
THEN PRINT " END";
THEN PRINT " SRQI";
THEN PRINT " RQS";
THEN PRINT " CMPL";
91