home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / mods / kenwood / ts / ts940_15.doc < prev    next >
Text File  |  1997-02-01  |  2KB  |  130 lines
  1. ts940.15
  2.  
  3. MSG#101 04/03/90  15:05:16 FROM WB0SEN TO ALL
  4. Subject: TS 940 married to IBM XT/AT
  5. Here below is a program that can coontrl the
  6. TS940 to run under IBM XT.
  7. ; **********************************************************
  8. ; TS-940 remote control programm for IBM-PC/AT/XT
  9. ; 1988/05Southern NET
  10. ;   MBBIOS and MBMODE must be run before execute.
  11. ;   Com port 1-6(A-F) allowed.
  12. ;       Usage....... 940set_(port)_(parameter)(parameter)...
  13. ;       example         940set a FA00014073000;MD1;
  14. ; ***********************************************************
  15. NUL= 00h
  16. TAB= 09h
  17. CR= 0dh
  18. LF= 0ah
  19. BEEP= 07h
  20. error= 1
  21. noerror= 0
  22. printmacro string
  23. movax,data
  24. movds,ax
  25. leadx,string
  26. movah,09h
  27. int21h
  28. endm
  29. putchmacroch
  30. movdl,ch
  31. movah,02h
  32. int21h
  33. endm
  34. mggroupcode,data
  35. datasegment
  36. no_cndbBEEP,"Not channel [A-F]$",CR,LF
  37. cmd_e_msgdbBEEP,"ommamd error .Usage (channel) (parameter)",CR,LF,"$"
  38. no_biosdbBEEP,"Not loadedMBBIOS.$"
  39. dataends
  40. codsegment
  41. assumecs:code;ds:code
  42. org81h
  43. channellabelbyte
  44. org82h
  45. cmdlinelabelbyte
  46. CONTINUED IN FILE TS940.13
  47.  
  48. (Server at KJ6FY)
  49. TS940.13
  50.  
  51. start:
  52. org100h
  53. mainprocnear
  54.  
  55. call bios_chk; com bios exit ?
  56. modi,offset channel
  57. argment:moval,[di]
  58. cmpal,CR
  59. jecmd_error;command error
  60. cmpal,' '
  61. jneport
  62. adddi,1
  63. loopargment
  64. port:
  65. pushds
  66. callchk_ch;channel check
  67. subal,'A'; get port idn
  68. movah,0
  69. movbx,ax; CX is port idn
  70. popds
  71. movdi,offset cmdline
  72. adddi,2
  73. get_cm
  74. moval,[di]
  75. adddi,1
  76. cmpal,CR
  77. jze_p;end
  78. cmpal,' '; skip space
  79. jzget_cmd
  80. calltoupr
  81. callouti
  82. loopget_cmd
  83. extprog:moval,0 
  84. movah,4ch
  85. int21h
  86. cmd_error:
  87. printcmd_e_msg
  88. jmpen_p
  89. chk_ch:;channel is A-F ?
  90. calltoupr; to upper
  91. cmpal,'A'
  92. jlno_cn_msg
  93. cmpal,'G'
  94. jgno_cn_msg
  95. ret
  96. toupr:
  97. cmpal,'Z'
  98. jlnot_mall
  99. subal,20h
  100. not_small:
  101. ret
  102. no_cn_msg:;no channel msg
  103. printno_cn
  104. end_p:
  105. moval,0; nomal end
  106. movah,4ch
  107.  
  108. bios_chk:
  109. movdx,00
  110. movah,04
  111. int14h
  112. cmpa0aa55h
  113. jneexit       ; bios no loaded
  114. ret
  115. exit:
  116. print no_bio
  117. jmpend_p
  118. outi:
  119. pushbx
  120. xordx,dx
  121. movdx,bx; load port_idn
  122. movah,01h; sirial out cmd for int 14
  123. int14h
  124. popbx
  125. ret
  126. mainendp
  127. codeends
  128. endmain
  129. RELAYED BY WB0SEN...&...n0kgx..gene...&...gene
  130.