HP 8360 L Series User Manual page 130

360
370 FOR I=1 TO N
380
390 Freq=Freq+Increment
400 NEXT I
410
420 B=B-1
430
440
OUTPUT QSource;"CORR:FLAT ";B$
450 ! OUTPUT QSource;"POW:STAT ON"
460 !
470
480
OUTPUT OSource;"CAL:PMET:FLAT:INIT? USER"
490 ENTER OSource;Freq
500 WHILE Freq>O
510
520 OUTPUT OSource;"CAL:PMET:FLAT:NEXT? ";VAL$(Power);"DBM"
530 ENTER QSource;Freq
540 END WHILE
550 END IF
560 END
I
570
580 SUB Zero-meter(QMeter,OSource,INTEGER Error-flag)
590 OUTPUT OSource;"Pow:stat off"
600 OUTPUT OMeter;"CS"
610 OUTPUT QMeter;"ZE"
620
630
Attempts=0
640 Zeroing=1590
650 Finished=0
660 WHILE Zeroing AND NOT Finished
670
Attempts=Attempts+l
680
690 IF Attrmpts>Max-attempts THEN Zeroing=0
IF BIT(Meter-stat,l) THEN Finished=1
700
710 WAIT 1
720
END WHILE
730 OUTPUT OSource;"Pow:stat on"
740 IF NOT Zeroing THEN
750
760 ELSE
770
780 END IF
790
800 !
810 DEF FNRead-meter(OMeter,Freq)
820 OUTPUT QMeter;"SEOEN"
830
Freq$=VAL$(Freq)
840 OUTPUT @Meter; "FR"&Freq$t"GZ"
850 OUTPUT QMeter;"TR2"
860 ENTER QMeter;Power$