HP E1340A User Manual page 124

Chapter 6
320 !
330 WAIT .1
340 OFF INTR 8
350 END
360 !
370 SUB Sine_tri_wave
380 Sine_tri_wave: !Subprogram which defines and downloads waveforms
390 COM @Afg,Base_addr,INTEGER Wave1(*),INTEGER Wave2(*)
400 FOR I=1 TO 4096 !calculate waveform points as dac codes
410 Wave1(I)=(5*(SIN(2*PI*(I/4096)))/.0025)+2048
420 NEXT I
430 !
440 OUTPUT @Afg;"SOUR:ARB:DAC:SOUR INT" !dac data source
450 OUTPUT @Afg;"SOUR:ARB:DOWN VXI,A,4096"!enable
460 OUTPUT @Afg;"*OPC?"
470 ENTER @Afg;Ready
480 FOR I=1 TO 4096
490 WRITEIO -9826,Base_addr+12;Wave1(I) !load waveform
500 NEXT I
510 OUTPUT @Afg;"*OPC?"
520 ENTER @Afg;Ready
530 OUTPUT @Afg;"SOUR:ARB:DOWN:COMP"!disable
540 !
550 FOR I=1 TO 2047 !calculate waveform points as dac codes
560 Wave2(I)=((I*.0024414)/.0025)+2048
570 NEXT I
580 FOR I=2048 TO 4096
590 Wave2(I)=(((4096-I)*.0024414)/.0025)+2048
600 NEXT I
610 !
620 OUTPUT @Afg;"SOUR:ARB:DAC:SOUR INT"!dac data source
630 OUTPUT @Afg;"SOUR:ARB:DOWN VXI,B,4096"!enable
640 OUTPUT @Afg;"*OPC?"
650 ENTER @Afg;Ready
660 FOR I=1 TO 4096
670 WRITEIO -9826,Base_addr+12;Wave2(I)!load waveform
680 NEXT I
690 OUTPUT @Afg;"*OPC?"
700 ENTER @Afg;Ready
Continued on next page
!allow interrupt to be serviced
!allow AFG set up to complete
!allow downloading to complete
!allow AFG set up to complete
!allow downloading to complete
HP E1340A High Speed Operation
(internal)
download mode
points
downloading from VXIbus
(internal)
download mode
points
124