ts940.15

MSG#101 04/03/90  15:05:16 FROM WB0SEN TO ALL
Subject: TS 940 married to IBM XT/AT
Here below is a program that can coontrl the
TS940 to run under IBM XT.
; **********************************************************
; 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_cndbBEEP,"Not channel [A-F]$",CR,LF
cmd_e_msgdbBEEP,"ommamd error .Usage (channel) (parameter)",CR,LF,"$"
no_biosdbBEEP,"Not loadedMBBIOS.$"
dataends
codsegment
assumecs:code;ds:code
org81h
channellabelbyte
org82h
cmdlinelabelbyte
CONTINUED IN FILE TS940.13

(Server at KJ6FY)
TS940.13

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
jmpen_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

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
RELAYED BY WB0SEN...&...n0kgx..gene...&...gene