Ten-Tec_RX-320_programmers_guide.pdf

《Ten-Tec_RX-320_programmers_guide.pdf》由会员分享，可在线阅读，更多相关《Ten-Tec_RX-320_programmers_guide.pdf（13页珍藏版）》请在收音机爱好者资料库上搜索。

1、RX-320 PC-RADIO Programmer?s Reference Guide Rev B. Copyright 1998 Ten-Tec Inc. 2 Convention used in this text Numeric Types: 0 x0A RADIOFREQ 580 RETURN 590 CLS: 600 GOSUB 730 610 LOCATE 4,25: PRINT Currently in ;MD$ 620 LOCATE 6,25: PRINT 1 . AM Mode 630 LOCATE 8,25: PRINT 2 . USB Mode 640 LOCATE 1

2、0,25: PRINT 3 . LSB Mode 650 LOCATE 12,25: PRINT 4 . CW Mode 660 LOCATE 16,25: PRINT Select New Mode 670 C$=INKEY$:IF C$= GOTO 670 680 IF C$=1 THEN MODE=AMMODE 690 IF C$=2 THEN MODE=USBMODE 700 IF C$=3 THEN MODE=LSBMODE 710 IF C$=4 THEN MODE=CWMODE 720 RETURN 730 convert MODE code to text name of mo

3、de 740 IF MODE=AMMODE THEN MD$=AM MODE : IF MODE=LSBMODE THEN MD$=LSB MODE 750 IF MODE=USBMODE THEN MD$=USB MODE : IF MODE=CWMODE THEN MD$=CW MODE 760 RETURN 770 FILTER SELECTION SUBROUTINE 780 CLS: 790 FOR N=0 TO 10 800 LOCATE N+1,20: PRINT N; ;FILTERSN 810 LOCATE N+1,40: PRINT N+11; ;FILTERSN+11 8

4、20 LOCATE N+1,60: PRINT N+22; ;FILTERSN+22 830 NEXT N 840 LOCATE 12,60: PRINT 33; ;FILTERS33 850 LOCATE 16,25 : INPUT Enter Fileter Number (0-33) ;FILTER 860 IF FILTER 33 GOTO 850 880 RETURN 890 SPEAKER VOLUME 900 LOCATE 16,25:INPUT Speaker Volume Setting (0-63) (soft-loud) ;SPKVOL 910 IF SPKVOL63 G

5、OTO 900 930 RETURN 940 LINE OUT VOLUME 950 LOCATE 16,25: INPUT Line Out Volume Setting (0-63) (soft-loud) ;LNVOL 960 IF LNVOL63 GOTO 950 980 RETURN 990 LOCATE 16,25: INPUT Enter Bfo Frequency (0-2000Hz) ;CWBFO 1000 IF CWBFO2000 GOTO 990 1020 RETURN 1030 SUBROUTINE TO FORMAT CALCULATED PARAMETERS AND

6、 SEND TO RADIO 1040 NH=INT(CTVAL/256):NL=CTVAL-NH*256 1050 FH=INT(FTVAL/256):FL=FTVAL-FH*256 1060 BH=INT(BTVAL/256):BL=BTVAL-BH*256 1070 C$=W+CHR$(FILTER)+D$:PRINT #2,C$; 1080 C$=N+CHR$(NH)+CHR$(NL)+CHR$(FH)+CHR$(FL)+CHR$(BH)+CHR$(BL)+D$:PRINT #2,C$; 1090 C$=A+CHR$(127)+CHR$(63-LNVOL)+D$:PRINT #2,C$

7、; 1100 C$=V+CHR$(127)+CHR$(63-SPKVOL)+D$:PRINT #2,C$; 1110 C$=M+CHR$(MODE)+D$:PRINT #2,C$;ELSE 1120 RETURN 12 1130 display current settings 1140 GOSUB 730 1150 LOCATE 20,2 : PRINT Freq= ;RADIOFREQ 1160 LOCATE 21,2 : PRINT Mode= ;MD$ 1170 LOCATE 22,2 : PRINT Filt= ;FILTERS(FILTER) 1180 LOCATE 20,25:

8、PRINT spkr= ;SPKVOL 1190 LOCATE 21,25: PRINT Line= ;LNVOL 1200 LOCATE 22,25: PRINT Bfo= ;CWBFO 1210 LOCATE 20,45: PRINT Coarse Tune Factor= ;CTVAL 1220 LOCATE 21,45: PRINT Fine Tune Factor= ;FTVAL 1230 IF MODE=AMMODE THEN BTVAL=0 btval is ignored by RX-320 in AM MODE 1240 LOCATE 22,45: PRINT Bfo Tun

9、e Factor= ;BTVAL 1250 RETURN 1260 Get DSP VERSION # 1270 IF LOC(2)0 THEN INPUT#2,C$ read port first to empty any old data 1280 C$=?+D$:PRINT#2,C$; 1290 GOSUB 1430 1300 IF LOC(2)=7 THEN GOTO 1300 1310 VER$=INPUT$(LOC(2),2) 1320 LOCATE 16,26: PRINT DSP REPORTS ;VER$ 1330 LOCATE 18,26 : PRINT Press Any

10、 Key To Continue 1340 C$=INKEY$:IF C$= GOTO 1330 1350 RETURN 1360 load filter array 1370 FOR N=0 TO 33 STEP 1 1380 READ FILTERS(N) 1390 NEXT N 1400 RETURN 1410 DATA 6000,5700,5400,5100,4800,4500,4200,3900,3600,3300,3000,2850,2700,2550,2400,2250,2100,1950,1800 1420 DATA 1650,1500,1350,1200,1050, 900, 750, 675, 600, 525, 450, 375, 330, 300,8000 1430 DELAY ROUTINE 1440 FOR D=1 TO 20000 1450 NEXT D 1460 RETURN 13 Rev A. Copyright 1998 Ten-Tec Inc. NOTES