Download Contents - Artisan Technology Group

290 !
•
1059 SUB Frequency1(Freq1)
1069 Frequency1: !Subprogram which sets the output frequency using frequency
1079
!register 1.
1089 COM Base_addr
1099 Freq=(Freq1*100)
1109 C$=DVAL$(Freq,16)
1119 !
1129 !Load the frequency value
1139 ! Write_reg(8,1)
1149 Write_reg(10,IVAL(C$[1;2],16))
1159 Write_reg(10,IVAL(C$[3;2],16))
1169 Write_reg(10,IVAL(C$[5;2],16))
1179 Write_reg(10,IVAL(C$[7;2],16))
1189 ! Check_done
The following program generates the frequencies used by the program
"FASTFREQ".
HP IBASIC (FREQ_GEN)
1 !RE-SAVE "FREQ_GEN"
2 !This program generates the frequencies used by example program ’FASTFREQ’.
3 !
10 DIM Line$[100]
20 CREATE ASCII "Fdata",10
30 ASSIGN @F TO "Fdata"
40
50
60
70
80
90
100
110
120
130
140
150
160
Appendix C
FOR I=1 TO 20
Freq=10000.+RND*10000.
Duration=1+RND
OUTPUT @F;VAL$(Freq)&","&VAL$(Duration)
NEXT I
!
ASSIGN @F TO *
ASSIGN @F TO "Fdata"
FOR I=1 TO 20
ENTER @F;Line$
PRInt Line$
NEXT I
END
HP E1340A Register-Based Programming 269
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com