Table of Contents
Advertisement
HP IBASIC (MARK_OUT)
105
HP E1340A Arming and Marker Outputs
1
!RE-SAVE"MARK_OUT"
2
!This program outputs marker pulses with all amplitude points less
3
!than 0V. The output sequence consists of two arbitrary waveforms.
4
!
10
!Assign I/O path between IBASIC and the E1340A.
20
ASSIGN @Afg TO 80910
30
COM @Afg,Waveform1(1:4096),Waveform2(1:4096)
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:FREQ:FIX 10E3;";!frequency
170
OUTPUT @Afg;":SOUR:FUNC:SHAP USER;"; !function
180
OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 5.1V" !scale
190
OUTPUT @Afg;":SOUR:MARK:FEED ""OUTP:ZERO"";"; !marker
200
OUTPUT @Afg;":SOUR:MARK:POL INV" !marker source polarity
210
!
220
!Call subprogram which defines waveform segments A and B.
230
CALL Sine_tri_wave
240
!
250
!Select output sequence and initiate waveform
260
OUTPUT @Afg;"SOUR:FUNC:USER AB"
270
OUTPUT @Afg;"INIT:IMM"
280
!
290
WAIT .1
300
OFF INTR 8
310
END
320
!
330
SUB Sine_tri_wave
340 Sine_tri_wave: !Subprogram which defines waveforms
350
COM @Afg,Waveform1(*),Waveform2(*)
360
FOR I=1 TO 4096
370
Waveform1(I)=5*(SIN(2*PI*(I/4096)))
380
NEXT I
Continued on next page
amplitude
source
!wait-for-arm state
!allow interrupt to be serviced
Chapter 5
Advertisement
Table of Contents
