HP 83620A, 24A OUTPUT @Source Freq GHZ, 0 DB 370 Freq=Freq+Increment, Getting Started Programming

360OUTPUT @Source; Freq; "GHZ, 0 DB,";

370Freq=Freq+Increment

380END WHILE

390OUTPUT @Source; Freq; "GHZ, 0 DB;"

400OUTPUT @Source; "POWer:STATe ON"

420!Enter d a t a i n U s e r F l a t n e s s C o r r e c t i o n t a b l e

430OUTPUT @Source; "CALibration:PMETer:FLATness:INITiate? USER"

440ENTER @Source; Freq

450WHILE Freq>O

460Power=FNRead,meter(QMeter, Freq)

470OUTPUT @Source; "CALibration:PMETer:FLATness:NEXT?"; P o w e r ; "DBM"

480ENTER @Source; Freq

490END WHILE

500END IF

510END

530SUB Zero-meter (@Meter, INTEGER Error-flag)

540OUTPUT @Meter; "CS"

550OUTPUT OMeter; "ZE"

560Max-attempts=30

570Attempts=0

580Zeroing=1590 Finished=0

600WHILE Zeroing AND NOT Finished

610Attempts=Attempts+l

620Meter-stat=SPOLL (@Meter)

630IF Attempts>Max-Attempts THEN Zeroing=0

640IF BIT (Meter-stat,11 THEN Finished=1

650WAIT 1

660END WHILE

670IF NOT Zeroing THEN

680Error-flag=1

690ELSE

700Error-flag=0

710END IF

720SUBEND

740	DEF FNRead,meter(OMeter, Freq)	!Beginning of	power	meter
		measurement routine
750	OUTPUT @Meter; "SEOEN"	!Select s e n s o r	d a t a	t a b l e 0
760	Freq$=VAL$(Frequency)

770OUTPUT @Meter; "FR"&Freq$&"GZ"

780OUTPUT QMeter; "TR2"

790ENTER @Meter; Power$

800PO=VAL(Power$)

810Flips=0

820Slope=0

830	REPEAT	!Wait for power meter to
		s e t t l e ; d e t e r m i n e p o w e r

840OUTPUT @Meter; "TR2"

850ENTER QMeter; Power$

Getting Started Programming 1-99