Table of Contents
Advertisement
HP IBASIC (FSK1)
C and QuickBASIC
Programs
93
HP E1340A Sweeping and Frequency-Shift Keying
1
!RE-SAVE"FSK1"
2
!This program sets up frequency-shift keying using the AFG's "Aux In"
3
!port as the control source. A high signal on the port selects the
4
!first frequency. A low signal on the port selects the second frequency.
5
!
10
!Assign I/O path between IBASIC and the E1340A.
20
ASSIGN @Afg TO 80910
30
COM @Afg
40
!
50
!Set up error checking
60
ON INTR 8 CALL Errmsg
70
ENABLE INTR 8;2
80
OUTPUT @Afg;"*CLS"
90
OUTPUT @Afg;"*SRE 32"
100
OUTPUT @Afg;"*ESE 60"
110
!
120
!Call the subprogram which resets the AFG.
130
CALL Rst
140
!
150
!Set AFG parameters
160
OUTPUT @Afg;"SOUR:ROSC:SOUR INT;";!reference oscillator
170
OUTPUT @Afg;":SOUR:FREQ:MODE FSK;";!frequency mode
180
OUTPUT @Afg;":SOUR:FREQ:FSK 10E3,20E3;";!FSK frequencies
190
OUTPUT @Afg;":SOUR:FUNC:SHAP SIN;";!function
200
OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 5V" !amplitude
210
OUTPUT @Afg;"INIT:IMM"
220
!
230
WAIT .1
240
OFF INTR 8
250
END
260
!
270
SUB Rst
340
SUB Errmsg
FSK frequencies are: +1.000000000E+004,+2.000000000E+004
The C program FSK1.C is in directory " CPROG" , and the QuickBASIC
program FSK1.BAS is in directory "QBPROG" on the example program
disk HP P/N E1340-10036.
!wait-for-arm state
!allow interrupt to be serviced
Chapter 4
Advertisement
Table of Contents
