Escort 3136A - Appendix B Maintenance; B-1 Introduction

To Next Page

To Previous Page

CALL ibonl(dvm%, 0)

END

'======================================================================

' Subroutine DVMERR

‘

' 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

'======================================================================

' 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";