7-92 Chapter7
Programming Examples
List-Frequency and Limit-Test Table Examples
570 ENTER @Nwa;Done
580 Numb=SIZE(Listtable,1) ! Number of segments in list table
590 OUTPUT @Nwa;”HOLD;” ! Hold mode allows faster set up
600!
610! For ET model analyzers, comment out this next line
620 OUTPUT @Nwa;”PORTPUNCPLD;” ! Uncouple ports
630!
640! Create the list frequency table from the table above
650! LISTTYPE = LSWP (swept list mode)
660!
670 OUTPUT @Nwa;”EDITLIST;LISTTYPELSWP;”
680!
690! Turn on list power mode for each port (uncoupled)
700! Turn on list ifbw mode
710!
720 OUTPUT @Nwa;”LISIFBWMON;” ! IF bandwidth set by list
730 OUTPUT @Nwa;”S21;LISPWRMON;” ! Port 1 power set by list
740!
750! For ET model analyzers, comment out this next line
760 OUTPUT @Nwa;”S22;LISPWRMON;” ! Port 2 power set by list
770!
780 FOR I=1 TO Numb
790 OUTPUT @Nwa;”SADD;STAR”;Listtable(I,1);”MHZ;”
800 OUTPUT @Nwa;”STOP”;Listtable(I,2);”MHZ;”
810 OUTPUT @Nwa;”POIN”;Listtable(I,3);”;”
820 OUTPUT @Nwa;”S11;” ! Port 1 active
830 OUTPUT @Nwa;”SEGPOWER”;Listtable(I,4),”;”
840!
850! For ET model analyzers, comment out these next two lines
860 OUTPUT @Nwa;”S22;” ! Port 2 active
870 OUTPUT @Nwa;”SEGPOWER”;Listtable(I,5),”;”
880!
890 OUTPUT @Nwa;”SEGIFBW”;Listtable(I,6),”;”
900 OUTPUT @Nwa;”SDON;”
910 NEXT I
920 OUTPUT @Nwa;”EDITDONE;”
930 OUTPUT @Nwa;”LISFREQ;S21;OPC?;SING;”
940 ENTER @Nwa;Done
950 OUTPUT @Nwa;”AUTOSCAL;WAIT;”
960!
970! Now create the corresponding limit table
980!
990 OUTPUT @Nwa;”EDITLIML;CLEAL;” ! Initiate the limit table
1000 FOR I=1 TO Numb
1010 IF Listtable(I,9)<>No_limit THEN
1020 OUTPUT @Nwa;”SADD” ! Add a new limit segment
1030 OUTPUT @Nwa;”;LIMS”;Listtable(I,1);”MHZ”
1040 OUTPUT @Nwa;”;LIMU”;Listtable(I,7)
1050 OUTPUT @Nwa;”;LIML”;Listtable(I,8)
1060 OUTPUT @Nwa;”;LIMT”;Limtype$(Listtable(I,9))
1070 OUTPUT @Nwa;”;SDON;”
1080 IF Listtable(I,10)<>No_limit THEN !
1090 OUTPUT @Nwa;”SADD “ ! Add a new limit segment
1100 OUTPUT @Nwa;”;LIMS”;Listtable(I,2);”MHZ”
1110 OUTPUT @Nwa;”;LIMT”;Limtype$(Listtable(I,10))
1120 OUTPUT @Nwa;”;SDON;”
1130 END IF
1140 END IF