From: VK3YZW
To: ALL
Subject: TS-940 Control Program
HI,
THIS PROGRAM WAS A RESULT OF A PRIVATE REQUEST AND IS NOW PUT
ON THE BBS FOR ALL TO USE WHO MAY LIKE TO TAKE ADVANTAGE.
GOOD LUCK WITH IT....DON
Here below is a program that can control the TS940 to run under IBM XT.
The program is written by JA6FTL and his group.
The program is being used by JA6FTL and no bug report was found!
Good Luck, 73
Eric VS6EL
; **********************************************************
; TS-940 remote control programm for IBM-PC/AT/XT
; 1988/05Southern NET
; MBBIOS and MBMODE must be run before execute.
; Com port 1-6(A-F) allowed.
; Usage....... 940set_(port)_(parameter)(parameter)...
; example 940set a FA00014073000;MD1;
; ***********************************************************
NUL= 00h
TAB= 09h
CR= 0dh
LF= 0ah
BEEP= 07h
error= 1
noerror= 0
printmacro string
movax,data
movds,ax
leadx,string
movah,09h
int21h
endm
putchmacroch
movdl,ch
movah,02h
int21h
endm
mggroupcode,data
datasegment
no_cn dbBEEP,"Not channel [A-F]$",CR,LF
cmd_e_msgdbBEEP,"ommamd error .Usage (channel) (parameter)",CR,LF,"$"
no_bios dbBEEP,"Not loadedMBBIOS.$"
dataends
codsegment
assumecs:code;ds:code
org81h
channellabelbyte
org82h
cmdlinelabelbyte
start:
org100h
mainprocnear
call bios_chk; com bios exit ?
modi,offset channel
argment:moval,[di]
cmpal,CR
jecmd_error;command error
cmpal,' '
jneport
adddi,1
loopargment
port:
pushds
callchk_ch ;channel check
subal,'A' ; get port idn
movah,0
movbx,ax ; CX is port idn
popds
movdi,offset cmdline
adddi,2
get_cm
moval,[di]
adddi,1
cmpal,CR
jze_p ;end
cmpal,' ' ; skip space
jzget_cmd
calltoupr
callouti
loopget_cmd
extprog:moval,0
movah,4ch
int21h
cmd_error:
printcmd_e_msg
jmpend_p
chk_ch: ;channel is A-F ?
calltoupr ; to upper
cmpal,'A'
jlno_cn_msg
cmpal,'G'
jgno_cn_msg
ret
toupr:
cmpal,'Z'
jlnot_mall
subal,20h
not_small:
ret
no_cn_msg: ;no channel msg
printno_cn
end_p:
moval,0 ; nomal end
movah,4ch
int21h
bios_chk:
movdx,00
movah,04
int14h
cmpa0aa55h
jneexit ; bios no loaded
ret
exit:
print no_bio
jmpend_p
outi:
pushbx
xordx,dx
movdx,bx ; load port_idn
movah,01h ; sirial out cmd for int 14
int14h
popbx
ret
mainendp
codeends
endmain
SOURCE: The QRZ Windows Ham Radio CDROM |