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 |
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 |