home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / mods / newmods3 / ft736r.3 < prev    next >
Text File  |  1991-03-09  |  2KB  |  84 lines
  1. FT736R.3
  2.  
  3. Here are some routines to drive a Yaesu FT736R CAT interface. 
  4.  
  5. Note that the radio has TTL levels, so you need to build a circuit to
  6. convert RS232 voltages to TTL voltages.  You can do this with a MAX231 etc,
  7. or a couple of NPN transistors.  The latter can be mounted inside your
  8. DB25 connector.
  9.  
  10.  1. The Yaesu spec contains one or two typos which are herein connected. 
  11.  2. It does not appear to be necessary to space out the 5 control
  12.     bytes by 50 ms.
  13.  3. The READ S-meter, squelch functions smetimes fail to return all 5
  14.     bytes, so the code (FNget) accomodates this.
  15.  
  16.  
  17. REM
  18. REM                 FT736R CAT Interface Drivers
  19. REM                 ----------------------------
  20. REM                  Last modified 1990 May 21
  21. REM
  22. REM                  (C)1990 J R Miller G3RUH
  23. REM
  24. REM  Procedures and functions available are:
  25. REM
  26. REM      PROCcat(on|off)
  27. REM      PROCmode(lsb|usb|cw|cwn|fm|fmn)
  28. REM      PROCptt(on|off)
  29. REM      PROCsplit(off|plus|minus)
  30. REM      PROCoffset(MHz)
  31. REM      PROCfreq(MHz)                (* e.g. MHz = 145.6789
  32. etc *)
  33. REM      PROCfull_dup(on|off)
  34. REM      PROCsat_mode(tx|rx , lsb|usb|cw|cwn|fm|fmn)
  35. REM      PROCsat_freq(tx|rx , MHz)
  36. REM      FNsqlch                      (* returns 0 if no
  37. signal *)
  38. REM      FNmeter                      (* returns S-meter value 
  39. *)
  40. REM
  41. REM
  42. REM        Example - prepare FT736R for FUJI-OSCAR-20
  43. satellite
  44. REM       
  45. ====================================================
  46. PROCset_up:   REM Do once only per session!
  47. PROCcat(on)
  48. PROCfull_dup(on)
  49. PROCsat_mode(rx,usb): PROCsat_freq(rx,435.916)
  50. PROCsat_mode(tx,fm ): PROCsat_freq(tx,145.850)
  51. PROCcat(off)
  52. END
  53. :
  54. REM Now follows procedures and functions
  55. :
  56. DEF PROCcat(F%)
  57. IF F%=on B%(5)=0 ELSE B%(5)=&80
  58. PROCput: ENDPROC
  59. :
  60. DEF PROCmode(B%(1))
  61. B%(5)=7: PROCput: ENDPROC
  62. :
  63. DEF PROCptt(F%)
  64. IF F%=on B%(5)=8 ELSE B%(5)=&88
  65. PROCput: ENDPROC
  66. :
  67. DEF PROCsplit(F%)
  68. B%(5)=&89: REM simplex
  69. IF F%=plus B%(5)=&49
  70. IF F%=minus B%(5)=9
  71. PROCput: ENDPROC
  72. :
  73. DEF PROCoffset(F)
  74. B%(5)=&F9
  75. PROCfr(F)
  76. PROCput: ENDPROC
  77. :
  78. DEF PROCfull_dup(F%)
  79. IF F%=on B%(5)=&E ELSE B%(5)=&8E
  80. PROCput: ENDPROC
  81. :
  82. CONT IN FT736R.4
  83.  
  84.