150

!

160

REPEAT

170OUTPUT Vxi_address;"SYST:ERR?"

180ENTER Vxi_address;Error

190PRINT "E1406 Reports Error: ";Error

200UNTIL (Error=0)

210!

220OUTPUT Vxi_address;"VXI:WRITE 128,4,1"! reset E1459A

230WAIT .1

240OUTPUT Vxi_address;"VXI:WRITE 128,4,0"! un-reset E1459A

250WAIT .1

260!

265! unmask all 16 pos bits for port 0

270OUTPUT Vxi_address;"VXI:WRITE 128,24,-1"

275! unmask all 16 neg bits for port 0

280OUTPUT Vxi_address;"VXI:WRITE 128,26,-1"

285! unmask all 16 pos bits for port 1

290OUTPUT Vxi_address;"VXI:WRITE 128,40,-1"

295! unmask all 16 neg bits for port 1

300OUTPUT Vxi_address;"VXI:WRITE 128,42,-1"

310!

315! set debounce to 16 uS (250KHz) for ports 0/1

320OUTPUT Vxi_address;"VXI:WRITE 128,30,2"

330!

340OUTPUT Vxi_address;"VXI:WRITE 128,4,16"! port 2/3 select

350!

355! unmask all 16 pos bits for port 2

360OUTPUT Vxi_address;"VXI:WRITE 128,24,-1"

365! unmask all 16 neg bits for port 2

370OUTPUT Vxi_address;"VXI:WRITE 128,26,-1"

375! unmask all 16 pos bits for port 3

380OUTPUT Vxi_address;"VXI:WRITE 128,40,-1"

385! unmask all 16 neg bits for port 3

390OUTPUT Vxi_address;"VXI:WRITE 128,42,-1"

400!

405! set debounce to 16 uS (250KHz) for ports 2/3

410OUTPUT Vxi_address;"VXI:WRITE 128,46,2"

420!

430OUTPUT Vxi_address;"*SRE 128"

440OUTPUT Vxi_address;"STAT:OPER:ENAB 256"

450OUTPUT Vxi_address;"DIAG:INT:SET1 ON"

460OUTPUT Vxi_address;"DIAG:INT:ACT ON"

470!

480OUTPUT Vxi_address;"*OPC?"

490ENTER Vxi_address;Done

500!

510ON INTR 7 GOSUB Service

520!

530OUTPUT Vxi_address;"VXI:WRITE 128,16,1"! edge enable, port 2

540OUTPUT Vxi_address;"VXI:WRITE 128,32,1"! edge enable, port 3

550!

560OUTPUT Vxi_address;"VXI:WRITE 128,4,0" ! port 0/1 select

570!

580OUTPUT Vxi_address;"VXI:WRITE 128,16,1"! edge enable, port 0

590OUTPUT Vxi_address;"VXI:WRITE 128,32,1"! edge enable, port 1

600!

610ENABLE INTR 7;2

615! int enable, port 0/1 select

HP E1459A Register Definitions 93