Modifications T to Z - The World of Free Packet Software Amsterdam
www.alwaysfree.nl - Here Can You Find The NL3ASD Modification Files - 56K Modem Fixes And 56K Modem Bug Report
Homepage The World of Free Packet Radio Software Amsterdam The Netherlands



THE WORLD OF FREE PACKET RADIO SOFTWARE AMSTERDAM THE NETHERLANDS

HERE CAN YOU FIND THE PACKET RADIO AND HAM RADIO MODIFICATIONS



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



The Weather in Amsterdam The Nederlands
Amsterdam







Google PageRank


http://www.intelseek.com



If You Click Here You Can Vote For Oure Free Websites in The Top 100 List
CLICK HERE AND YOU CAN VOTE FOR OUR FREE WEBSITES IN THE TOP 100 LIST




Web CEO - The Ultimate Software Suite For Web Site Promotion
A TOP RANKING? USE THE ULTIMATE SOFTWARE SUITE FOR WEB SITE PROMOTION




Submit Your Site To The Web's Top 50 Search Engines for Free!
SUBMIT YOUR WEB SITE NOW TO THE INTERNET TOP 50 OF SEARCH ENGINES FOR FREE





ALEXA BANNER THIS BANNER GIVES THE DALLY STATISTICS OF THIS FREE WEB SITE




The World of Free Packet Radio Software Amsterdam
The World of Free Packet Radio Software Amsterdam The Netherlands

The World of Free Packet Radio Software Amsterdam The Netherlands - All Rights Reserved Design By Interspire