7-78 Chapter7
Programming Examples
Measurement Process Synchronization Examples
570 OUTPUT @Nwa;"USEPASC;" ! Enable pass control operation
580 OUTPUT @Nwa;"TAKCS;" ! Take Cal Sweep
590 !
600 FOR I=1 TO Numpoints*Numreads+1 ! Points * Number of readings plus 1
610 ! Serial poll does not place analyzer in remote operation
620 ! and does not require the analyzer to process the command.
630 !
640 REPEAT ! Repeat until SRQ detected
650 Stat=SPOLL(@Nwa) ! Serial poll to read status byte
660 DISP "Stat ";Stat;" Waiting for request"
670 UNTIL BIT(Stat,6) ! SRQ detected for request control
680 OUTPUT @Nwa;"ESR?;" ! Read status register to clear
690 ENTER @Nwa;Reply ! Read and discard register value
700 !
710 PRINT "Passing Control" ! status read and pasing control
720 PASS CONTROL @Nwa ! Pass control to analyzer
730 !
740 REPEAT
750 ! Read HP-IB interface state information register.
760 STATUS 7,6;Hpib ! Test HP-IB register for control
770 !
780 ! Reading the interface status register does not interact with the
790 ! analyzer. Bit 6 is set when control is returned.
800 !
810 DISP "Waiting for control"
820 UNTIL BIT(Hpib,6) ! Loop until control is returned
830 NEXT I
840 !
850 PRINT "Finished with Power meter Cal"
860 DISP "" ! Clear display message
870 !
880 OUTPUT @Nwa;"TALKLIST;" ! Restore Talker/Listener operation
890 OUTPUT @Nwa;"CLES;" ! Clear and reset status byte operation
900 !
910 OUTPUT @Nwa;"PWMCONES;" ! Power meter cal correct one sweep
920 OUTPUT @Nwa;"OPC?;WAIT;" ! Wait for the analyzer to finish
930 ENTER @Nwa;Reply ! Read the 1 when complete
940 !
950 ! Read the power meter cal correction factors
960 OUTPUT @Nwa;"FORM4;" ! ASCII data format to read cal data
970 OUTPUT @Nwa;"OUTPPMCAL1;" ! Request the power meter cal factors
980 ENTER @Nwa;Pmcal(*) ! Read the factors
990 !
1000! Display the power meter cal factors
1010 PRINT "Point","Factor"
1020 FOR I=1 TO Numpoints ! Cycle throught the factors
1030 PRINT I,Pmcal(I)
1040 NEXT I
1050!
1060 LOCAL @Nwa ! Release HP-IB control
1070 END