FT736R.3

Here are some routines to drive a Yaesu FT736R CAT interface. 

Note that the radio has TTL levels, so you need to build a circuit to
convert RS232 voltages to TTL voltages.  You can do this with a MAX231 etc,
or a couple of NPN transistors.  The latter can be mounted inside your
DB25 connector.

 1. The Yaesu spec contains one or two typos which are herein connected. 
 2. It does not appear to be necessary to space out the 5 control
    bytes by 50 ms.
 3. The READ S-meter, squelch functions smetimes fail to return all 5
    bytes, so the code (FNget) accomodates this.
 
 
REM
REM                 FT736R CAT Interface Drivers
REM                 ----------------------------
REM                  Last modified 1990 May 21
REM
REM                  (C)1990 J R Miller G3RUH
REM
REM  Procedures and functions available are:
REM
REM      PROCcat(on|off)
REM      PROCmode(lsb|usb|cw|cwn|fm|fmn)
REM      PROCptt(on|off)
REM      PROCsplit(off|plus|minus)
REM      PROCoffset(MHz)
REM      PROCfreq(MHz)                (* e.g. MHz = 145.6789
etc *)
REM      PROCfull_dup(on|off)
REM      PROCsat_mode(tx|rx , lsb|usb|cw|cwn|fm|fmn)
REM      PROCsat_freq(tx|rx , MHz)
REM      FNsqlch                      (* returns 0 if no
signal *)
REM      FNmeter                      (* returns S-meter value 
*)
REM
REM
REM        Example - prepare FT736R for FUJI-OSCAR-20
satellite
REM       
====================================================
PROCset_up:   REM Do once only per session!
PROCcat(on)
PROCfull_dup(on)
PROCsat_mode(rx,usb): PROCsat_freq(rx,435.916)
PROCsat_mode(tx,fm ): PROCsat_freq(tx,145.850)
PROCcat(off)
END
:
REM Now follows procedures and functions
:
DEF PROCcat(F%)
IF F%=on B%(5)=0 ELSE B%(5)=&80
PROCput: ENDPROC
:
DEF PROCmode(B%(1))
B%(5)=7: PROCput: ENDPROC
:
DEF PROCptt(F%)
IF F%=on B%(5)=8 ELSE B%(5)=&88
PROCput: ENDPROC
:
DEF PROCsplit(F%)
B%(5)=&89: REM simplex
IF F%=plus B%(5)=&49
IF F%=minus B%(5)=9
PROCput: ENDPROC
:
DEF PROCoffset(F)
B%(5)=&F9
PROCfr(F)
PROCput: ENDPROC
:
DEF PROCfull_dup(F%)
IF F%=on B%(5)=&E ELSE B%(5)=&8E
PROCput: ENDPROC
:
CONT IN FT736R.4