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/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  Amsterdam View Our Stats   CLICK FOR A FREE DOMAIN NAMES HTTP://WWW.YOURNAME.TK FOR YOUR OWN WEBSITE IF YOU CLICK HERE AND YOU CAN VOTE FOR OUR FREE WEBSITES IN THE TOP 100 LIST  WANT A TOP RANKING ? USE THE ULTIMATE SOFTWARE SUITE FOR WEB SITE PROMOTION  FreeWebSubmissions Submit Your Site To The Web's Top 50 Search Engines For Free THE 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 |