Eaton MGR10 Serie Manuel D'utilisation page 101

'=============================================================================
'
' This subroutine will notify you that the Fluke 45 returned an invalid
' serial poll response byte.
' 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
'=============================================================================
'
' This subroutine will notify you that a NI-488 function failed by printing
' an error message.
' 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.
' 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 " >"
PRINT "iberr = "; IBERR%;
IF IBERR% = EDVR THEN PRINT " EDVR <DOS Error>"
IF IBERR% = ECIC THEN PRINT " ECIC <Not CIC>"
IF IBERR% = ENOL THEN PRINT " ENOL <No Listener>"
IF IBERR% = EADR THEN PRINT " EADR <Address error>"
IF IBERR% = EARG THEN PRINT " EARG <Invalid argument>"
IF IBERR% = ESAC THEN PRINT " ESAC <Not Sys Ctrlr>"
IF IBERR% = EABO THEN PRINT " EABO <Op. aborted>"
IF IBERR% = ENEB THEN PRINT " ENEB <No GPIB board>"
IF IBERR% = EOIP THEN PRINT " EOIP <Async I/O in prg>"
IF IBERR% = ECAP THEN PRINT " ECAP <No capability>"
IF IBERR% = EFSO THEN PRINT " EFSO <File sys. error>"
Subroutine DVMERR
The error message will be printed along with
Subroutine GPIBERR
The status variable IBSTA% will also be printed
MGR10 A/B/C Indice : J (version 7.0 du logiciel)
The status variable IBCNT% will
101