HP E1340A User Manual page 269

HP IBASIC (FREQ_GEN)
Appendix C
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".
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 FOR I=1 TO 20
50 Freq=10000.+RND*10000.
60 Duration=1+RND
70 OUTPUT @F;VAL$(Freq)&","&VAL$(Duration)
80 NEXT I
90 !
100 ASSIGN @F TO *
110 ASSIGN @F TO "Fdata"
120 FOR I=1 TO 20
130 ENTER @F;Line$
140 PRInt Line$
150 NEXT I
160 END
HP E1340A Register-Based Programming 269