From: VK3YZW@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 @ VS6EL ; ********************************************************** ; TS-940 remote control programm for IBM-PC/AT/XT ; 1988/05 Southern 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 print macro string mov ax,data mov ds,ax lea dx,string mov ah,09h int 21h endm putch macro ch mov dl,ch mov ah,02h int 21h endm mg group code,data data segment no_cn db BEEP,"Not channel [A-F]$",CR,LF cmd_e_msg db BEEP,"ommamd error .Usage (channel) (parameter)",CR,LF,"$" no_bios db BEEP,"Not loadedMBBIOS.$" data ends cod segment assume cs:code;ds:code org 81h channel label byte org 82h cmdline label byte start: org 100h main proc near call bios_chk ; com bios exit ? modi,offset channel argment:mov al,[di] cmp al,CR je cmd_error ;command error cmp al,' ' jne port add di,1 loop argment port: push ds call chk_ch ;channel check sub al,'A' ; get port idn mov ah,0 mov bx,ax ; CX is port idn pop ds mov di,offset cmdline add di,2 get_cm mov al,[di] add di,1 cmp al,CR jz e_p ;end cmp al,' ' ; skip space jz get_cmd call toupr call outi loop get_cmd extprog:mov al,0 mov ah,4ch int 21h cmd_error: print cmd_e_msg jmp end_p chk_ch: ;channel is A-F ? call toupr ; to upper cmp al,'A' jl no_cn_msg cmp al,'G' jg no_cn_msg ret toupr: cmp al,'Z' jl not_mall sub al,20h not_small: ret no_cn_msg: ;no channel msg print no_cn end_p: mov al,0 ; nomal end mov ah,4ch int 21h bios_chk: mov dx,00 mov ah,04 int 14h cmp a0aa55h jne exit ; bios no loaded ret exit: print no_bio jmp end_p outi: push bx xor dx,dx mov dx,bx ; load port_idn mov ah,01h ; sirial out cmd for int 14 int 14h pop bx ret main endp code ends end main Copied from the QRZ! Windows Ham Radio CDROM