Agilent Technologies 87075C Option H08 User's And Service Manual page 34

Controlling the Test Set and Making Measurements
Calibrating the Test System
530 PRINT "port to be used (respectively).
will terminate the"
540 PRINT "corresponding port."
550 PRINT "Unless both numbers are `0', the two values cannot be
the same."
560 PRINT "To terminate the program, press STOP or PAUSE."
570 PRINT
580 PRINT "Example:
2; TRANSMISSION to"
590 PRINT " PORT 3."
600 PRINT " 4,0 Sets REFLECTION to PORT 4; TRANSMISSION is not
used."
610 LOOP
620 LOOP ! Enter port numbers here
630 Refl=0
640 Trans=0
650 BEEP 500,.1
660 INPUT "Enter the Refl/Trans PORT selections separated by
commas, e.g. 2,4",Refl,Trans
670 Refl=INT(Refl)
680 Trans=INT(Trans)
690 EXIT IF (Refl<>Trans OR (Refl=0 AND Trans=0)) AND Refl<9 AND
Trans<9 AND Refl>=0 AND Trans>=0
700 DISP "PORT selections MUST be different if non-zero; Range = 0
to 8. Try again! Refl=";Refl;", Trans=";Trans
710 BEEP 1500,.3
720 WAIT 3
730 END LOOP
740 Set_switches(Addr,"REFL",VAL$(Refl),Controller$)
REFLECTION PORT
750 Set_switches(Addr,"TRANS",VAL$(Trans),Controller$) ! Sets
TRANSMISSION PORT
760 PRINT TABXY(1,16),"Current REFLECTION PORT
770 PRINT TABXY(1,17),"Current TRANSMISSION PORT =";Trans
780 LOCAL Isc
790 END LOOP
800 END
810 !
820 SUB Set_switches(Addr,Main_port$,Switched_port$,Controller$)
830
!=================================================================
32
2,3 Sets the switch box REFLECTION to PORT
Setting a port to `0'
! Sets
=";Refl
Chapter 2