Agilent Technologies 75000 Series C, E1445A Agilent E1445A Service Manual Verification Tests 27

Functional Verification
Example Program (cont’d)
450 !---------- Subprograms ----------
460 SUB Reset_afg
470 COM @Afg,@Cmd_mod,INTEGER Done
480 OUTPUT @Afg;"*RST;*CLS" !Reset AFG and clear Status register
490 WAIT 1
500 SUBEND
510 !
520 SUB Self_test
530 COM @Afg,@Cmd_mod,INTEGER Done
540 DIM Message$[255]
550 !
560 Reset_afg
570 !
580 CLEAR SCREEN
590 PRINT "SELF-TEST"
600 PRINT
610 !
620 !Test connections
630 PRINT "Remove any connections from the E1445A front panel."
640 PRINT "Press ’Continue’ to initiate Self-Test."
650 PRINT
660 Wait_for_cont
670 !
680 !Perform test
690 OUTPUT @Afg;"*TST?" !Self-test command
700 ENTER @Afg;Result !Get result
710 !
720 IF Result=0 THEN
730 PRINT "Self-test passed."
740 ELSE
750 PRINT "Self-test failed."
760 PRINT "The following error(s) occurred:"
770 REPEAT
780 OUTPUT @Afg;"SYST:ERR?" !Check for errors
790 ENTER @Afg;Message$
800 PRINT " "&Message$
810 UNTIL POS(Message$,"No error ")
820 END IF
830 Wait_for_cont
840 SUBEND
850 !
860 SUB Ref_in
870 COM @Afg,@Cmd_mod,INTEGER Done
880 !
(Continued on next page)
Agilent E1445A Service Manual Verification Tests 27