80SUB Err_trap

90OFF KEY

100 COM /Ps/ @Ps

110OUTPUT @Ps:”ERR?”

120ENTER@Ps;Err

130OUTPUT 2 USING "#.k":CHR$;(255)&CHR$(75)

140IF Err THEN

150PRINT “ POWER SUPPLY PROGRAMMING ERROR:”

160END IF

170SELECT Err

180

CASE 0

190

PRINT "NO ERROR HAS OCCURRED”

200

SUBEXIT

210

CASE 1

220

PRINT 'CHARACTER NOT RECOGNIZED”

230

CASE 2

240

PRINT “IMPROPER NUMBER”

250

CASE 3

260

PRINT “UNRECOGNIZED ALPHA CHARACTER”

270

CASE 4

280

PRINT “SYNTAX ERROR”

290

CASE 5

300

PRINT “NUMBER OUT OF RANGE”

310

CASE 6

320

PRINT “ATTEMPT TO PROGRAM ABOVE SOFT LIMIT”

330

CASE 7

340

PRINT “LIMIT CANNOT BE SET < OPERATING POINT”

350

CASE 8

360PRINT “DATA REQUESTED W/O QUERY”

370END SELECT

380PRINT “ RE-ENTER STATEMENT AND TRY AGAIN”

390SUBEND

Explanation:

10:Assign I/O path name to power supply

20:Declare common block for I/O path name

30:Define interrupt on softkey depression branch to error routine

40:Idle on softkey definition

80:Define subprogram ERR TRAP

100:Bring in common block for I/O path name

110-120: Enter error code from power supply

130:Clear computer CRT

140-150: If an error occurred, print message

170-420: Print out message based on error code returned from power supply. If no error, print message saying no error occurred.

124 Programming the Agilent 603xA Power Supplies Using Basic

Page 124
Image 124
Agilent Technologies 6023A, 6035A, 6028A, 6033A, 603xA, 6038A 6010A, 6031A, 6032A manual Off Key