home *** CD-ROM | disk | FTP | other *** search
/ Computer Tool Software / soft.iso / Modem / BITWARE / 3708.EM$ / 3708.EM$
Encoding:
Text File  |  1996-10-23  |  7.1 KB  |  275 lines
  1. INITIAL
  2. { VT100 Emulation 15MAR89 for V3.5X or V4.0X. Includes }
  3. { 3270 Keyboard Mapping for IBM3708 Protocol Converter }
  4. { BITCOM's default F1-F10 keys MUST be changed to Alt-F1 thru Alt-F10 }
  5. z#origin(1)
  6. z#setbuf(1,0)
  7. z#setbuf(3,0)
  8. z#awrap(2)
  9. z#setatt(7)
  10. setcolor(7)
  11. clear
  12. z#setmar(1,@mrow)
  13. z#setins(0)
  14. @MAXROW=25
  15. @Return  = '"$0D"'       {ENTER}  
  16. @CtlRet  = '"$0A"'       {NEW LINE} 
  17. @Home    = '"$08"'       {HOME CURSOR} 
  18. @CtlHome = '"$03"'       {CLEAR SCREEN} 
  19. @Bs      = '"$1B$44$7F"' {BACK SPACE} 
  20. @Del     = '"$7F"'       {DELETE} 
  21. @Ins     = '"$1B$7F"'    {INSERT ON} 
  22. @CtlEnd  = '"$05"'       {ERASE EOF} 
  23. @Rtab    = '"$09"'       {TAB} 
  24. @Ltab    = '"$08"'       {BACK TAB} 
  25. @PgUp    = '"$1B$37"'    {PAGE UP PF7} 
  26. @PgDn    = '"$1B$38"'    {PAGE DOWN PF8} 
  27. @UpArr   = '"$1B$41"'    {UP} 
  28. @DnArr   = '"$1B$42"'    {DOWN} 
  29. @LfArr   = '"$1B$44"'    {LEFT} 
  30. @RiArr   = '"$1B$43"'    {RIGHT} 
  31. @Alt-A   = '"$01"'       {ATTN} 
  32. @Alt-Q   = '"$1B$53"'    {SYS REQ} 
  33. @Alt-R   = '"$12"'       {RESET} 
  34. @Alt-T   = '"$1B$61"'    {TYPE AHEAD BUFFER ON} 
  35. @Alt-1   = '"$1B$2C"'    {PA1} 
  36. @Alt-2   = '"$1B$2E"'    {PA2} 
  37. @Alt-3   = '"$1B$2F"'    {PA3} 
  38. @F1      = '"$1B$31"'    {PF1} 
  39. @F2      = '"$1B$32"'    {PF2} 
  40. @F3      = '"$1B$33"'    {PF3}  
  41. @F4      = '"$1B$34"'    {PF4} 
  42. @F5      = '"$1B$35"'    {PF5} 
  43. @F6      = '"$1B$36"'    {PF6} 
  44. @F7      = '"$1B$37"'    {PF7} 
  45. @F8      = '"$1B$38"'    {PF8} 
  46. @F9      = '"$1B$39"'    {PF9} 
  47. @F10     = '"$1B$30"'    {PF10} 
  48. @F11     = '"$1B$2D"'    {PF11} 
  49. @F12     = '"$1B$3D"'    {PF12} 
  50. @Sft-F1  = '"$1B$2D"'    {PF11} 
  51. @Sft-F2  = '"$1B$3D"'    {PF12} 
  52. @Sft-F3  = '"$1B$21"'    {PF13} 
  53. @Sft-F4  = '"$1B$40"'    {PF14} 
  54. @Sft-F5  = '"$1B$23"'    {PF15} 
  55. @Sft-F6  = '"$1B$24"'    {PF16} 
  56. @Sft-F7  = '"$1B$25"'    {PF17} 
  57. @Sft-F8  = '"$1B$5E"'    {PF18} 
  58. @Sft-F9  = '"$1B$26"'    {PF19} 
  59. @Sft-F10 = '"$1B$2A"'    {PF20} 
  60. @Ctl-F1  = '"$1B$28"'    {PF21} 
  61. @Ctl-F2  = '"$1B$29"'    {PF22} 
  62. @Ctl-F3  = '"$1B$5F"'    {PF23} 
  63. @Ctl-F4  = '"$1B$2B"'    {PF24} 
  64. END
  65. INBUFFER
  66. 0x00 NUL
  67. 0x08 BS2
  68. 0x0a LF
  69. 0x0b LF
  70. 0x0c FF
  71. 0x1a CAN
  72. 0x7f NUL
  73. 0x0d CR
  74. END
  75. INBUFFER2
  76. 0x00 NUL
  77. 0x08 BS2
  78. 0x0b LF
  79. 0x0c FF
  80. 0x1a CAN
  81. 0x7f NUL
  82. 0x5f 0x20
  83. 0x60 0xfe
  84. 0x61 0x92
  85. 0x62 0x8b
  86. 0x63 0x9f
  87. 0x64 0x87
  88. 0x65 0x91
  89. 0x66 0xf8
  90. 0x67 0xf1
  91. 0x68 0xa5
  92. 0x69 0x9e
  93. 0x6a 0xd9
  94. 0x6b 0xbf
  95. 0x6c 0xda
  96. 0x6d 0xc0
  97. 0x6e 0xc5
  98. 0x6f 0xc4
  99. 0x70 0xc4
  100. 0x71 0xc4
  101. 0x72 0xc4
  102. 0x73 0xc4
  103. 0x74 0xc3
  104. 0x75 0xb4
  105. 0x76 0xc1
  106. 0x77 0xc2
  107. 0x78 0xb3
  108. 0x79 0xf3
  109. 0x7a 0xf2
  110. 0x7b 0xe3
  111. 0x7c 0xf7
  112. 0x7d 0x9c
  113. 0x7e 0xfa
  114. END
  115. INBUFFER3
  116. END
  117. INBUFFER4
  118. END
  119. OUTBUFFER
  120. 0x08 0x7f
  121. END
  122. 8CODEBUFFER
  123. END
  124. HOSTCODE
  125. [?1h            z#setflg(a,5)        { 5-89 added }
  126. [?2l                                 { set terminal to VT52 mode, not support }
  127. [?3h            @maxrow=44;dos("setmax -ammon -c132  -r44  -mmono");
  128. [?4h                                 { select smooth scroll }
  129. [?5h            z#setatt(112)
  130. [?6h            z#origin(2);poscur(1,1)
  131. [?7h            z#awrap(0)
  132. [?8h                                 { auto repeat mode on }
  133. [?9h                                 { full scrn to print during pnt scrn }
  134. [?18h
  135. [?19h
  136. [?25h           cursize(7,8)         { 5-89 added }
  137. [1h
  138. [3h
  139. [4h             z#setins(1)
  140. [5h             z#setatt(112)
  141. [6h             z#origin(2);poscur(1,1)
  142. [7h             z#awrap(0)
  143. [8h
  144. [9h
  145. [12h            @echo(0)             { 5-89 added }
  146. [20h            z#lfnl(1)            { 5-89 added }
  147. [?1l            z#setflg(a,4)
  148. [?2l            message("Received set VT52 sequence. Use vt100b.emu");
  149. [?3l            dos("setmax -ammon -c80 -r25 -mmono");
  150. [?4l                                 { select jump scroll }
  151. [?5l            z#setatt(7)
  152. [?6l            z#origin(1);poscur(1,1)
  153. [?7l            z#awrap(1)
  154. [?8l                                 { auto repeat mode off }
  155. [?9l                                 { scrolling region to print in pnt scrn }
  156. [?18l
  157. [?19l
  158. [?25l           cursize(9,9)         { 5-89 added }
  159. [?3;6;7l        dos("setmax -ammon -c80 -r25 -mmono");z#origin(1);poscur(1,1);z#awrap(1)
  160. [1l
  161. [2l             message("Received set VT52 sequence. Use vt100b.emu");
  162. [3l
  163. [4l             z#setins(0)
  164. [5l             z#setatt(7)
  165. [6l             z#origin(1);poscur(1,1)
  166. [7l             z#awrap(1)
  167. [8l
  168. [9l
  169. [12l            @echo(1)              { 5-89 added }
  170. [20l            z#lfnl(2)
  171. (A              z#setbuf(1,0)
  172. (B              z#setbuf(1,1)
  173. (0              z#setbuf(2,1)
  174. )A              z#setbuf(3,0)
  175. )B              z#setbuf(3,0)
  176. )0              z#setbuf(4,0)
  177. [m              z#setatt(7)
  178. [0m             z#setatt(7)
  179. [1m             z#setatt(14)
  180. [4m             z#setatt(1)
  181. [5m             z#setatt(128)
  182. [7m             z#setatt(112)
  183. [0;1m           z#setatt(14)
  184. [0;4m           z#setatt(1)
  185. [0;5m           z#setatt(128)
  186. [0;7m           z#setatt(112)
  187. [0;0r           z#setmar(1,24);poscur(1,1)
  188. [\t;\br         z#setmar(\\t,\\b);poscur(1,1)
  189. [;r             z#setmar(1,@mrow);poscur(1,1)
  190. [r              z#setmar(1,@mrow);poscur(1,1)
  191. [;\br           z#setmar(1,\\b);poscur(1,1)
  192. [\nA            z#curup(\\n,0)
  193. [A              z#curup(1,0)
  194. [\nB            z#curdn(\\n,0)
  195. [B              z#curdn(1,0)
  196. [\nC            z#curfwd(\\n)
  197. [C              z#curfwd(1)
  198. [\nD            z#curbak(\\n)
  199. [D              z#curbak(1)
  200. [;\nH           poscur(\\n,1)
  201. [\nH            poscur(1,\\n)
  202. [\n;H           poscur(1,\\n)
  203. [H              poscur(1,1)
  204. [;H             poscur(1,1)
  205. [\r;\cH         poscur(\\c,\\r)
  206. [;\nf           poscur(\\n,1)
  207. [\nf            poscur(1,\\n)
  208. [\n;f           poscur(1,\\n)
  209. [f              poscur(1,1)
  210. [;f             poscur(1,1)
  211. [\r;\cf         poscur(\\c,\\r)
  212. D               z#curdn(1,1);
  213. E               z#curdn(1,1);poscur(1,@row)
  214. M               z#curup(1,1);
  215. 7               z#savorg;z#savpos;z#savbuf
  216. 8               z#resorg;z#respos;z#resbuf
  217. H               z#tabset
  218. [g              z#tabclr
  219. [0g             z#tabclr
  220. [3g             z#tabcla
  221. #3
  222. #4
  223. #5
  224. #6
  225. [K              z#clreol
  226. [0K             z#clreol
  227. [1K             z#clrbol
  228. [2K             z#clrlin
  229. [J              z#clreos
  230. [0J             z#clreos
  231. [1J             z#clrbos
  232. [2J             clear
  233. [P              z#del(1)
  234. [0P             z#del(1)
  235. [\nP            z#del(\n)
  236. [L              z#inslin(1)
  237. [0L             z#inslin(1)
  238. [\nL            z#inslin(\n)
  239. [M              z#dellin(1)
  240. [0M             z#dellin(1)
  241. [\nM            z#dellin(\n)
  242. [5n             "$1b[0n"
  243. [6n             "$1b[@row;@colR"
  244. [c              "$1b[?1;0c"
  245. [0c             "$1b[?1;0c"
  246. Z               "$1b[?1;0c"
  247. c               z#origin(1);z#setbuf(1,0);z#setbuf(3,0);z#awrap(0);z#setmar(1,@mrow);
  248. #8
  249. [2;1y
  250. [2;2y
  251. [2;4y
  252. [2;9y
  253. [2;10y
  254. [2;12y
  255. [2;16y
  256. [2;24y
  257. [s              z#savpos
  258. [u              z#Resorg
  259. [y
  260. [0q
  261. [q
  262. [1q
  263. [2q
  264. [3q
  265. [4q
  266. =               z#setflg(a,5)      { application mode }
  267. >               z#setflg(a,4)      { numeric mode }
  268. <               z#setbuf(2,1)      { 3-89 added }
  269. $5C             z#setbuf(1,1)      { ESC \ }
  270. [5i             printer(1)         { 3-89 added }
  271. [?5i            printer(1)         { 3-89 added }
  272. [4i             printer(0)         { 3-89 added }
  273. [?4i            printer(0)         { 3-89 added }
  274. END
  275.