home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / win3x / twswfwg.exe / WINPKT.BAT < prev    next >
DOS Batch File  |  1995-07-13  |  5KB  |  218 lines
  1. @ECHO OFF
  2. rem WINPKT.BAT
  3. rem
  4. rem USAGE:
  5. rem Automatically invoked by accompanying
  6. rem OEMSETUP.INF as a CALL from AUTOEXEC.BAT
  7. rem following the NET START command, i.e.
  8. rem after DIS_PKT.DOS has loaded. This allows
  9. rem automatic detection of PKTDRV interrupt
  10. rem vector by WINPKT, and, thus, allows
  11. rem setting this vector via the standard
  12. rem Windows for Workgroups 3.1x dialogue boxes
  13. rem (Network Setup [Drivers...] [Setup...]).
  14. rem 
  15. rem May also be manually installed by non-WfWG
  16. rem users: replace your WINPKT.COM line with
  17. rem   CALL [[drive:][\path\]]WINPKT.BAT [[drive:][\path\]]
  18. rem in AUTOEXEC.BAT after your packet driver load
  19. rem line and prior to running Windows. The drive and
  20. rem path parameters are optional; if the directories
  21. rem containing WINPKT.BAT and WINPKT.COM are in your
  22. rem PATH line you don't need them. If not, the drive
  23. rem and path following WINPKT.BAT specify the location
  24. rem of WINPKT.COM, and MUST end in a "\" (omit quotes),
  25. rem for example: 
  26. rem   CALL C:\TRUMPET\WINPKT.BAT C:\TRUMPET\
  27. rem will work if both WINPKT.BAT and WINPKT.COM are
  28. rem in the C:\TRUMPET directory.
  29. rem
  30. rem DESCRIPTION:
  31. rem This batch file tries to load WINPKT with
  32. rem successive PKTDRV interrupt vector values
  33. rem until WINPKT returns with ERRORLEVEL 0
  34. rem indicating that it found a loaded PKTDRV.
  35. rem This is a brute force "kludge" and could be
  36. rem accomplished much more graceful from within
  37. rem WINPKT (as it is by PKTMUX).
  38. rem
  39. rem HISTORY:
  40. rem 13 Jul 95 - by Douglas W. Jones
  41. rem             (email jones@cbdb1.nimh.nih.gov)
  42. rem             Modified to test all possible
  43. rem             vectors from 0x60 (96.) to 0x7F (127.)
  44. rem             for users not using OEMSETUP.INF.
  45. rem             "Bad" vectors checked last.
  46. rem
  47. rem 22 Mar 94 - Original by Douglas W. Jones
  48. rem             (email jones@cbdb1.nimh.nih.gov)
  49. rem
  50. rem
  51. SET pktdrv_vec=0x60
  52. %1winpkt.com %pktdrv_vec% > NUL:
  53. IF ERRORLEVEL 1 GOTO try63
  54. GOTO loaded
  55. :try63
  56. SET pktdrv_vec=0x63
  57. %1winpkt.com %pktdrv_vec% > NUL:
  58. IF ERRORLEVEL 1 GOTO try65
  59. GOTO loaded
  60. :try65
  61. SET pktdrv_vec=0x65
  62. %1winpkt.com %pktdrv_vec% > NUL:
  63. IF ERRORLEVEL 1 GOTO try66
  64. GOTO loaded
  65. :try66
  66. SET pktdrv_vec=0x66
  67. %1winpkt.com %pktdrv_vec% > NUL:
  68. IF ERRORLEVEL 1 GOTO try78
  69. GOTO loaded
  70. :try78
  71. SET pktdrv_vec=0x78
  72. %1winpkt.com %pktdrv_vec% > NUL:
  73. IF ERRORLEVEL 1 GOTO try79
  74. GOTO loaded
  75. :try79
  76. SET pktdrv_vec=0x79
  77. %1winpkt.com %pktdrv_vec% > NUL:
  78. IF ERRORLEVEL 1 GOTO try7B
  79. GOTO loaded
  80. :try7B
  81. SET pktdrv_vec=0x7B
  82. %1winpkt.com %pktdrv_vec% > NUL:
  83. IF ERRORLEVEL 1 GOTO try7C
  84. GOTO loaded
  85. :try7C
  86. SET pktdrv_vec=0x7C
  87. %1winpkt.com %pktdrv_vec% > NUL:
  88. IF ERRORLEVEL 1 GOTO try7D
  89. GOTO loaded
  90. :try7D
  91. SET pktdrv_vec=0x7D
  92. %1winpkt.com %pktdrv_vec% > NUL:
  93. IF ERRORLEVEL 1 GOTO try7E
  94. GOTO loaded
  95. :try7E
  96. SET pktdrv_vec=0x7E
  97. %1winpkt.com %pktdrv_vec% > NUL:
  98. IF ERRORLEVEL 1 GOTO try7F
  99. GOTO loaded
  100. :try7F
  101. SET pktdrv_vec=0x7F
  102. %1winpkt.com %pktdrv_vec% > NUL:
  103. IF ERRORLEVEL 1 GOTO try61
  104. GOTO loaded
  105. :try61
  106. SET pktdrv_vec=0x61
  107. %1winpkt.com %pktdrv_vec% > NUL:
  108. IF ERRORLEVEL 1 GOTO try62
  109. GOTO loaded
  110. :try62
  111. SET pktdrv_vec=0x62
  112. %1winpkt.com %pktdrv_vec% > NUL:
  113. IF ERRORLEVEL 1 GOTO try64
  114. GOTO loaded
  115. :try64
  116. SET pktdrv_vec=0x64
  117. %1winpkt.com %pktdrv_vec% > NUL:
  118. IF ERRORLEVEL 1 GOTO try67
  119. GOTO loaded
  120. :try67
  121. SET pktdrv_vec=0x67
  122. %1winpkt.com %pktdrv_vec% > NUL:
  123. IF ERRORLEVEL 1 GOTO try68
  124. GOTO loaded
  125. :try68
  126. SET pktdrv_vec=0x68
  127. %1winpkt.com %pktdrv_vec% > NUL:
  128. IF ERRORLEVEL 1 GOTO try69
  129. GOTO loaded
  130. :try69
  131. SET pktdrv_vec=0x69
  132. %1winpkt.com %pktdrv_vec% > NUL:
  133. IF ERRORLEVEL 1 GOTO try6A
  134. GOTO loaded
  135. :try6A
  136. SET pktdrv_vec=0x6A
  137. %1winpkt.com %pktdrv_vec% > NUL:
  138. IF ERRORLEVEL 1 GOTO try6B
  139. GOTO loaded
  140. :try6B
  141. SET pktdrv_vec=0x6B
  142. %1winpkt.com %pktdrv_vec% > NUL:
  143. IF ERRORLEVEL 1 GOTO try6C
  144. GOTO loaded
  145. :try6C
  146. SET pktdrv_vec=0x6C
  147. %1winpkt.com %pktdrv_vec% > NUL:
  148. IF ERRORLEVEL 1 GOTO try6D
  149. GOTO loaded
  150. :try6D
  151. SET pktdrv_vec=0x6D
  152. %1winpkt.com %pktdrv_vec% > NUL:
  153. IF ERRORLEVEL 1 GOTO try6E
  154. GOTO loaded
  155. :try6E
  156. SET pktdrv_vec=0x6E
  157. %1winpkt.com %pktdrv_vec% > NUL:
  158. IF ERRORLEVEL 1 GOTO try6F
  159. GOTO loaded
  160. :try6F
  161. SET pktdrv_vec=0x6F
  162. %1winpkt.com %pktdrv_vec% > NUL:
  163. IF ERRORLEVEL 1 GOTO try70
  164. GOTO loaded
  165. :try70
  166. SET pktdrv_vec=0x70
  167. %1winpkt.com %pktdrv_vec% > NUL:
  168. IF ERRORLEVEL 1 GOTO try71
  169. GOTO loaded
  170. :try71
  171. SET pktdrv_vec=0x71
  172. %1winpkt.com %pktdrv_vec% > NUL:
  173. IF ERRORLEVEL 1 GOTO try72
  174. GOTO loaded
  175. :try72
  176. SET pktdrv_vec=0x72
  177. %1winpkt.com %pktdrv_vec% > NUL:
  178. IF ERRORLEVEL 1 GOTO try73
  179. GOTO loaded
  180. :try73
  181. SET pktdrv_vec=0x73
  182. %1winpkt.com %pktdrv_vec% > NUL:
  183. IF ERRORLEVEL 1 GOTO try74
  184. GOTO loaded
  185. :try74
  186. SET pktdrv_vec=0x74
  187. %1winpkt.com %pktdrv_vec% > NUL:
  188. IF ERRORLEVEL 1 GOTO try75
  189. GOTO loaded
  190. :try75
  191. SET pktdrv_vec=0x75
  192. %1winpkt.com %pktdrv_vec% > NUL:
  193. IF ERRORLEVEL 1 GOTO try76
  194. GOTO loaded
  195. :try76
  196. SET pktdrv_vec=0x76
  197. %1winpkt.com %pktdrv_vec% > NUL:
  198. IF ERRORLEVEL 1 GOTO try77
  199. GOTO loaded
  200. :try77
  201. SET pktdrv_vec=0x77
  202. %1winpkt.com %pktdrv_vec% > NUL:
  203. IF ERRORLEVEL 1 GOTO try7A
  204. GOTO loaded
  205. :try7A
  206. SET pktdrv_vec=0x7A
  207. %1winpkt.com %pktdrv_vec% > NUL:
  208. IF ERRORLEVEL 1 GOTO notloaded
  209. GOTO loaded
  210. :notloaded
  211. ECHO ERROR: WINPKT not loaded; PKTDRV not found
  212. GOTO exit
  213. :loaded
  214. ECHO WINPKT loaded; PKTDRV using interrupt %pktdrv_vec%
  215. :exit
  216. SET pktdrv_vec=
  217.  
  218.