HP 8530A Operating And Programming Manual

Also see for 8530A: User guide User guide User guide

Programming Examples1877 OUTPUT @Rec;"STITON; PAR1TOFF; PAR2TON; PAR3TON; PAR4TON;"1879 Trigs=204 ! one trigger per parameter (P1 measured by stimulus trig)1881 PRINT "One trigger per parameter, per point."1883 LINPUT "Press Return to Start Triggered Sweep.",Input$1885 GOSUB Send_triggers1887 !1889 INPUT "Press Return For Next Example",Input$1891 OUTPUT @Rec;"TRGSFRE;"1893 RETURN1895 !1897 Send_triggers: !1899 FOR I=1 TO Trigs1901 TRIGGER @Rec1903 DISP "Trigger";I1905 GOSUB Ready_for_trig1907 NEXT I1909 PRINT "Sweep Complete,";Trigs;" Triggers Sent"1911 RETURN1913 !1915 Ready_for_trig: !1917 REPEAT1919 WAIT .011921 UNTIL BIT(SPOLL(@Rec),2) ! ready, waiting for trigger1923 RETURN1925 !1927 Example20: ! WAIT Required ************************************1929 PRINT1931 PRINT "Example 20, WAIT Required for display updates."1933 !1935 GOSUB Blank_keys1937 ON KEY 5 LABEL " NEXT EXAMPLE" GOTO Exit_example201939 !1941 OUTPUT @Rec;"DEBUOFF; FOUPOVER; STEP; POIN101; SING;"1943 OUTPUT @Rec;"PARA1; LINP; DATI; DISPMATH; PHAO 0;"1945 OUTPUT @Rec;"PARA2; LINP; DATI; DISPMATH; PHAO 90;"1947 OUTPUT @Rec;"PARA3; LINP; DATI; DISPMATH; PHAO 180;"1949 OUTPUT @Rec;"PARA4; LINP; DATI; DISPMATH; PHAO 270;"1951 OUTPUT @Rec;"OUTPERRO;"1953 ENTER @Rec;Error_number ! clear message1955 !1957 T=0 ! initial tint increment value1959 M=2.5E-11 ! electrical delay increment1961 !1963 Eled: !1965 FOR N=0 TO 1 STEP M1967 FOR P=1 TO 41969 SELECT P ! Choose Parameter1971 CASE 11973 OUTPUT @Rec;"PARA1; COLRP1D;"1975 T1=T+01977 CASE 21979 OUTPUT @Rec;"PARA2; COLRP2D;"1981 T1=T+251983 CASE 31985 OUTPUT @Rec;"PARA3; COLRP3D;"1987 T1=T+501989 CASE 41991 OUTPUT @Rec;"PARA4; COLRP4D;"1993 T1=T+751995 END SELECT1997 IF T1>100 THEN T1=T1-1001999 OUTPUT @Rec;"TINT";INT(T1);";" ! Change Color2001 OUTPUT @Rec;"ELED";P*N;"s;" ! Increment Delay2003 !HP-IB Programming 18-51