User`s guide

2-49
GPIB Tutorial and Examples
Program 3
4560 IF Func$=”TXON” THEN !These commands configure the
generator to begin
4570 OUTPUT Uut;”RFG:AMPL2 7DBM” !emulating the mobile
4580 OUTPUT Uut;”RFG:OUTP ‘AUX RFOUT’”
4590 OUTPUT Uut;”CONF:OFL:RFIN “;Trickloss
4600 OUTPUT Uut;”CELL:CALL:TCH:ARFCN “;Arfcn
4610 OUTPUT Uut;”CELL:CALL:TCH:TSL 2”
4620 OUTPUT Uut;”CELL:CALL:ORIGINATE”
4630 OUTPUT Uut;”SERV:LATCH:SEL ‘g_pulse_start_trig’”
4640 OUTPUT Uut;”SERV:LATCH:VALUE 1431”
4650 OUTPUT Uut;”SERV:LATCH:SEL ‘g_pulse_stop_trig’”
4660 OUTPUT Uut;”SERV:LATCH:VALUE 1281”
4670 OUTPUT Uut;”SERV:LATCH:SEL ‘g_tx_slot’”
4680 OUTPUT Uut;”SERV:LATCH:VALUE 5”
4690 OUTPUT Uut;”SERV:LATCH:SEL ‘g_mux_a_cntl’”
4700 OUTPUT Uut;”SERV:LATCH:VALUE 75”
4710 OUTPUT Uut;”SERV:LATCH:SEL ‘g_hop_to_bch’”
4720 OUTPUT Uut;”SERV:LATCH:VALUE 1536”
4730 OUTPUT Uut;”RFG:MOD:PULS ‘EXT’”
4740 END IF
4750 IF Func$=”ARFCN” THEN !These commands simulate a chan-
nel change by
4760 OUTPUT Uut;”CELL:CALL:TCH:ARFCN “;Arfcn !re-tuning the generator
4770 OUTPUT Uut;”SERV:LATCH:SEL ‘g_tx_slot’”
4780 OUTPUT Uut;”SERV:LATCH:VALUE 5”
4790 OUTPUT Uut;”SERV:LATCH:SEL ‘g_mux_a_cntl’”
4800 OUTPUT Uut;”SERV:LATCH:VALUE 75”
4810 OUTPUT Uut;”SERV:LATCH:SEL ‘g_hop_to_bch’”
4820 OUTPUT Uut;”SERV:LATCH:VALUE 1536”
4830 END IF
4840 IF Func$=”TXLEV” THEN !These commands simulate a Tx
Level Change
4850 OUTPUT Uut;”CONF:OFL:RFIN “;Trickloss
4860 END IF
4870 IF Func$=”TXOFF” THEN !Dissable the TCH to simulate
turning the
4880 OUTPUT Uut;”CELL:CALL:END” !mobile off
4890 END IF
4900 IF Func$=”CABLE” THEN
4910 PRINT
4920 PRINT “Connect a short cable from the Agilent 8922M/S AUX RF OUT”
4930 PRINT “to the RF IN/OUT port”
4940 PRINT
4950 PRINT “Cycle instrument power when testing is complete”
4960 PRINT
4970 PRINT “Press Return when ready”
4980 PRINT
4990 INPUT Dummy$
5000 END IF
5010 SUBEND
5020 !
5030 !============================================================
5040 !end of program