|
Yaesu FT- 736 mods
NOTICE: TO ALL CONCERNED Certain text files and messages contained on this site deal with activities and devices which would be in violation of various Federal, State, and local laws if actually carried out or constructed. The webmasters of this site do not advocate the breaking of any law. Our text files and message bases are for informational purposes only. We recommend that you contact your local law enforcement officials before undertaking any project based upon any information obtained from this or any other web site. We do not guarantee that any of the information contained on this system is correct, workable, or factual. We are not responsible for, nor do we assume any liability for, damages resulting from the use of any information on this site.
FT736R.4
DEF PROCsat_mode(F%,B%(1))
IF F%=tx B%(5)=&27 ELSE B%(5)=&17
PROCput: ENDPROC
:
DEF PROCfreq(F)
B%(5)=1
PROCfr(F)
PROCput: ENDPROC
:
DEF PROCsat_freq(F%,F)
IF F%=tx B%(5)=&2E ELSE B%(5)=&1E
PROCfr(F)
PROCput: ENDPROC
:
DEF PROCfr(F)
IF F>=1000 FX%=on ELSE FX%=off
F=(F+0.000005)/1000
FOR I%=1 TO 4: F=F*100: F%=INT(F): F=F-F%
B%(I%)=(F% DIV 10)*16 + F% MOD 10
NEXT
IF FX%=on B%(1)=B%(1)AND &F + &C0: REM 1200 MHz band
corrrection
ENDPROC
:
DEF FNsqlch
B%(5)=&E7: PROCput: PROCget
IF B%(1)=0 THEN =0 ELSE= -1
:
DEF FNmeter
B%(5)=&F7: PROCput: PROCget
=B%(1)
:
DEF PROCset_up
REM Establish constants etc
DIM B%(5)
off=0: on=-1
rx =0: tx=-1
plus=+1: minus=-1
lsb=0: usb=1: cw=2: cwn=&82: fm=8: fmn=&88
:
REM Most code after this is for controlling the BBC micro
hardware
REM and needs recoding for any other machine. Note "*FXn,m"
is
REM merely a BBC micro operating system call, no. n, parameter
m.
REM
REM Set up RS423 = 4800,8,N,2
*FX8,6
*FX7,6
*FX156,16,227
ENDPROC
:
DEF PROCput
REM Procedure sends five bytes to RS432c port, spaced by 50ms
REM bytes are in array B%(1) ... B%(5)
FOR I%=1 TO 5
REM Delay below is in the spec, but can actually be omitted
T%=TIME: REPEAT UNTIL TIME >= T%+5: REM Wait 50 ms/byte
REM Now direct output to RS423, o/p char, and restore o/p to
screen
*FX3,3
VDU B%(I%)
*FX3,0
NEXT
ENDPROC
:
DEF PROCget
REM Flush RS423 I/P buffer, then read bytes from input stream
REM until op code is detected. Previous value is result.
REM (straight reading 5 bytes found to be unreliable)
*FX15,1
*FX2,1
REPEAT B%(1)=B%: B%=GET: UNTIL B%=B%(5)
*FX2,0
ENDPROC
:
REM End of code
REM de G3RUH @ GB7SPV 1990 May 29
JAS>
|
|
