Agilent Technologies 8510C, Operating And Programming Manual

Page: 356 / 391

Programming Examples
579 Wait_for_meas: ! Status Byte BIT 4 True when Standard Measured
580 REPEAT
581 Ser_poll=SPOLL(@Nwa)
582 WAIT .1
583 UNTIL BIT(Ser_poll,4)
584 OUTPUT @Nwa;"CLES;"
585 RETURN
586 !
587 Example8_a: ! CAL ERROR COEFICIENTS ********************
588 PRINT
589 PRINT "Example 8_a, Calibration Error Coefficients"
590 !
591 OUTPUT @Nwa;"PRES;"
592 Read_response: !
593 PRINT "Read Cal Coefficient, Cal 5 (S21 Response Cal)"
594 OUTPUT @Nwa;"S21; CORRON; CALS5; FORM3; OUTPCALC01;"
595 ENTER @Nwa_data2;Preamble,Size,Data(*)
596 !
597 FOR N=0 TO 200
598 ! Data can be modified here
599 Formatted_data(N,0)=Data(N,0)
600 Formatted_data(N,1)=Data(N,1)
601 NEXT N
602 !
603 PRINT "Write Processed Cal Coefficients."
604 OUTPUT @Nwa;"CORROFF; CAL1; CALIRESP; FORM3; INPUCALC01;"
605 OUTPUT @Nwa_data2;Preamble,Size,Formatted_data(*)
606 OUTPUT @Nwa;"SAVC; CALS6; CONT;"
607 !
608 PRINT " Processed Cal saved in Cal Set 6."
609 LINPUT "Press Return",Input$
610 !
611 Read_1_port: !
612 !
613 OUTPUT @Nwa;"DEBUOFF; HOLD; S11; CORRON; CALS4; OUTPERRO;"
614 ENTER @Nwa;Error_number ! clear message
615 !
616 PRINT "Read and Display Cal Coefficients, Cal 4 (S11 1-Port)"
617 PRINT " Display Directivity Coefficient."
618 OUTPUT @Nwa;"FORM3; OUTPCALC01;"
619 ENTER @Nwa_data2;Preamble,Size,Data(*)
620 !
621 OUTPUT @Nwa;"FORM3; INPUDATA;"
622 OUTPUT @Nwa_data2;Preamble,Size,Data(*)
623 OUTPUT @Nwa;"AUTO; TITL""PORT 1 DIRECTIVITY"";"
624 LINPUT "Press Return",Input$
625 !
626 PRINT " Display Source Match Coefficient."
627 OUTPUT @Nwa;"FORM3; OUTPCALC02;"
628 ENTER @Nwa_data2;Preamble,Size,Data(*)
629 !
630 OUTPUT @Nwa;"FORM3; INPUDATA;"
631 OUTPUT @Nwa_data2;Preamble,Size,Data(*)
632 OUTPUT @Nwa;"AUTO; TITL""PORT 1 SOURCE MATCH"";"
633 LINPUT "Press Return",Input$
634 !
635 PRINT " Display Relection Tracking Coefficient."
636 OUTPUT @Nwa;"FORM3; OUTPCALC03;"
637 ENTER @Nwa_data2;Preamble,Size,Data(*)
GPIB Programming 13-51