MGR10 A/B/C - Revision : I (for 7.0 software revision) 104
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 THE
N PRINT " EADR <Address e
rror>"
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 THE
N PRINT " EOIP <Async I/O
in prg>"
IF IBERR% = ECAP THEN PRINT " ECAP <No capability>"
IF IBERR% = EFSO THEN PRINT " EFSO <File sys. error>"
IF IBERR% = EBUS THEN PRINT " EBUS <Command error>"
IF IBERR% = ESTB THEN PRINT " ESTB <Status byte lost>"
IF IBERR% = ESRQ THEN PRINT " ESRQ <SRQ stuck on>"
IF IBERR% = ETAB THE
N PRINT " ETAB <Table Ove
rflow>"
PRINT "ibcnt = "; IBCNT%
' Call the IBONL function to disable the hardware and software.
CALL IBONL(brd0%, 0)
'STOP
END SUB
To Next Page
Loading...
Need help?
General
