MGR10 A/B/C - Revision : I (for 7.0 software revision)
103
10000 PRINT "Error number :"; ERR; " at line :"; ERL
10010 PRINT "Please press on enter to go on ....";
10020 INPUT rep$
10030 'RESUME NEXT
CALL IBONL(brd0%, 0)
END
'=============================================================================
' Subroutine DVMERR
' This subroutine will notify you that the Fluke 45 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$, rd$) STATIC
PRINT msg$
PRINT "Status Byte = "; rd$
' Call the IBONL function to disable the hardware and software.
CALL IBONL(brd0%, 0)
STOP
END SUB
'=============================================================================
' Subroutine GPIBERR
' 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 THEN PRINT " ERR";
IF IBSTA% AND TIMO THEN PRINT " TIMO";
IF IBSTA% AND EEND THEN PRINT " END";
IF IBSTA% AND SRQI THEN PRINT " SRQI";
IF IBSTA% AND RQS THEN PRINT " RQS";
IF IBSTA% AND SPOLL THEN PRINT " SPOLL";
IF IBSTA% AND EEVENT THEN PRINT " EVENT";
IF IBSTA% AND CMPL THEN PRINT " CMPL";
IF IBSTA% AND LOK THEN PRINT " LOK";
IF IBSTA% AND RREM THEN PRINT " REM";
IF IBSTA% AND CIC THEN PRINT " CIC";
IF IBSTA% AND AATN THEN PRINT " ATN";
IF IBSTA% AND TACS THEN PRINT " TACS";
IF IBSTA% AND LACS THEN PRINT " LACS";
IF IBSTA% AND DTAS THEN PRINT " DTAS";
IF IBSTA% AND DCAS THEN PRINT " DCAS";
PRINT " >"
