Agilent Technologies E1446A user manual Print Repeat

Models: E1446A

1 161
Download 161 pages 46.15 Kb
Page 40
Image 40

340

!Set up amplifier

 

350

OUTPUT @Amp;"INP1:IMP 75"

!input impedance

360

OUTPUT @Amp;"INP1:ATT 4"

!input attenuation (dB)

370

OUTPUT @Amp;"OUTP1:IMP 50"

!main output impedance

380

OUTPUT @Amp;"OUTP1:ATT 0"

!main output attenuation (dB)

390

!

 

400

OUTPUT @Afg;"INIT:IMM"

!E1445A wait-for-arm state

410SUBEND

420!

430SUB Rst

440Rst: !Subprogram which resets the E1445 and E1446

450COM @Afg,@Amp

460

OUTPUT @Afg;"*RST;*OPC?"

!reset the AFG

470

ENTER @Afg;Complete

 

480

OUTPUT @Amp;"*RST;*OPC?"

!reset the AMP

490ENTER @Amp;Complete

500SUBEND

510!

520SUB Errmsg

530Errmsg: !Subprogram which displays E1445/E1446 programming errors

540COM @Afg,@Amp

550DIM Message$[256]

560!Read AFG (at sec addr 10) status byte register, clear service

570!request bit

580B=SPOLL(@Afg)

590 IF BIT(B,6) THEN !AFG requested service

600!End of statement if error occurs among coupled commands

610OUTPUT @Afg;""

620OUTPUT @Afg;"ABORT"!abort output waveform

630PRINT "E1445A errors"

640PRINT

650REPEAT

660OUTPUT @Afg;"SYST:ERR?" !read AFG error queue

670ENTER @Afg;Code,Message$

680PRINT Code,Message$

690UNTIL Code=0

700STOP

710END IF

720!

730!Read AMP (at sec addr 11) status byte register, clear service

740!request bit

750B=SPOLL(@Amp)

760 IF BIT(B,6) THEN !amplifier requested service

770!End of statement if error occurs among coupled commands

780OUTPUT @Amp;""

790 PRINT "E1446A errors"

Continued on Next Page

Setting the Input Impedance

Programming the Agilent E1446A 2-19

Page 40
Image 40
Agilent Technologies E1446A user manual Print Repeat