home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / modem / comm.arc / COMM.C
Text File  |  1985-06-03  |  5KB  |  309 lines
  1.  
  2. COMM.C.1
  3.  
  4.  
  5.  
  6. /* NOTE: this code is indented using tabs set every 4 columns, not 8. */
  7.  
  8. /*
  9.  * Rudimentary communication program; written in C with I/O
  10.  * routines in assembler, using "#asm" construct in DeSmet C.
  11.  */
  12.  
  13. #define TRUE 1
  14. #define FALSE 0
  15. #define NULL 0
  16.  
  17. #define comm_stat head!=tail
  18.  
  19. int head=0,
  20.     tail=0;
  21.  
  22. char comm_buffer[8192];
  23.  
  24. main()
  25. { 
  26.     char commget();
  27.  
  28.     int c,
  29.         echo=FALSE,
  30.         verbose=FALSE;
  31.  
  32.     initcomm();
  33.  
  34.     goto inside;
  35.     while((c=my_ci())<256) /* alt's and function keys are >=256 */
  36.     {
  37.         commput(c);
  38.         if(echo)
  39.             my_co(c);
  40. inside:    while(my_stat()==0)
  41.             if(comm_stat)
  42.                 if(is_nice(c=commget()))
  43.                     my_co(c);
  44.                 else
  45.                     if(verbose)
  46.                     {
  47.                         my_co('^');
  48.                         my_co(127&(c+'@'));
  49.                     } 
  50.     }
  51.     switch(c>>8) /* process function key */
  52.     {
  53.         case '\060': /* b    send break    */
  54.             make_break();
  55.             my_puts("** break **\n");
  56.             break;
  57.         case '\022': /* e    echo toggle    */
  58.             echo = !echo;
  59.             if(echo)
  60.                 my_puts("** echo on **\n");
  61.             else
  62.                 my_puts("** echo off **\n");
  63.             break;
  64.         case '\020': /* q    quit        */
  65.             my_puts("** returning to DOS **\n");
  66.             goto byebye;
  67.         case '\057': /* v    verbose        */
  68.             verbose = !verbose;
  69.             if(verbose)
  70.                 my_puts("** verbose on **\n");
  71.             else
  72.                 my_puts("** verbose off **\n");
  73.             break; 
  74.     }
  75.     goto inside;
  76.  
  77. byebye:
  78.     killcomm();
  79. }
  80.  
  81. initcomm()
  82. {
  83. #asm
  84.  
  85. ; initialize communication port,
  86. ; and install interrupt handler
  87.  
  88. ; save dseg for interrupt handler
  89.     mov        ax,ds
  90.     mov        cs:dssave,ax
  91.  
  92. ; set int vector to my handler
  93.     push    ds
  94.     xor        ax,ax
  95.     mov        ds,ax
  96.     mov        [30h],offset handler
  97.     mov        ax,cs 
  98.     mov        [32h],ax
  99.     pop        ds
  100.  
  101. ; assert DTR, RTS, and OUT2
  102.     mov        dx,3fch
  103.     mov        al,11
  104.     out        dx,al
  105.  
  106. ; enable interrupts for data ready
  107.     mov        dx,3f9h
  108.     mov        al,1
  109.     out        dx,al
  110.  
  111. ; clear any outstanding int
  112.     mov        dx,3f8h
  113.     in        al,dx
  114.  
  115. ; enable interrupts
  116.     sti
  117.  
  118. ; enable IRQ4 on 8259A
  119.     in        al,21h
  120.     and        al,0efh
  121.     out        21h,al 
  122.  
  123. ; and return
  124.     jmp        init_finis
  125.  
  126. dssave:    dw 0
  127.  
  128. handler:
  129.     push    ds
  130.     push    ax
  131.     push    dx
  132.     push    bx
  133.  
  134. ; restore appropriate dseg
  135.     mov        ax,cs:dssave
  136.     mov        ds,ax
  137.  
  138. ; grab the byte from comm port
  139.     mov        dx,3f8h
  140.     in        al,dx
  141.  
  142. ; put it in the buffer
  143.     mov        bx,tail_
  144.     mov        comm_buffer_[bx],al
  145.  
  146. ; tail=tail+1 (mod 8192)
  147.     inc        bx
  148.     cmp        bx,8192
  149.     jl        handler_around
  150.     xor        bx,bx
  151.  
  152. handler_around:
  153.     mov        tail_,bx
  154.  
  155. ; tell the 8259A EOI
  156.     mov        dx,20h
  157.     mov        al,32
  158.     out        dx,al
  159.  
  160.     pop        bx
  161.     pop        dx
  162.     pop        ax
  163.     pop        ds
  164.  
  165. ; reenable interrupts
  166.     sti
  167.  
  168.     iret
  169.  
  170. init_finis:
  171. #
  172. }
  173.  
  174. commput(c)
  175. int c;
  176. {
  177. #asm
  178. ; put the character out the port
  179.     mov        dx,3f8h
  180.     mov        ax,[bp+4]
  181.     out        dx,al
  182. #
  183. }
  184.  
  185. char commget()
  186. {
  187.     char temp;
  188.  
  189.         temp=comm_buffer[head++];
  190.         head%=8192;
  191.         return(temp);
  192. }
  193.  
  194. killcomm()
  195. {
  196. #asm
  197. ; disconnect the interrupt handler
  198.     in        al,21h
  199.     or        al,10h
  200.     out        21h,al
  201. #
  202. }
  203.  
  204. make_break()
  205. {
  206. #asm
  207. ; set bit on LCR
  208.     mov        dx,3fbh
  209.     in        al,dx
  210.     push    ax
  211.     or        al,40h
  212.     out        dx,al
  213.  
  214. ; wait a wee bit (~200 ms)
  215.     mov        bx,8
  216. outer:
  217.     mov        cx,7000 
  218. tight:
  219.     loop    tight
  220.     dec        bx
  221.     jnz        outer
  222.  
  223. ; and turn break back off
  224.     pop        ax
  225.     out        dx,al
  226. #
  227. }
  228.  
  229. is_nice(c) /* true for those characters that "should" be received */
  230. char c;
  231. {
  232.     c&=127;
  233.     if(c>=' ' && c<='~')    /* printable */
  234.         return(TRUE);
  235.     if(c>6 && c<11)            /* BEL, BS, HT, LF */
  236.         return(TRUE);
  237.     if(c==13 || c==27)        /* CR, ESC */
  238.         return(TRUE);
  239.     return(FALSE);
  240. }
  241.  
  242. my_puts(s) /* puts, using my_co() */
  243. char *s;
  244. {
  245.     while(*s)
  246.     {
  247.         if(*s=='\n')
  248.             my_co('\r');
  249.         my_co(*(s++));
  250.     }
  251. }
  252.  
  253. my_co(c) /* character output, smaller and faster than DeSmet's,
  254.             using DOS function call 2.00 */
  255. char c;
  256. {
  257. #asm
  258.     mov        ah,2
  259.     mov        dx,[bp+4]
  260.     int        21h
  261. #
  262. }
  263.  
  264. my_stat() /* true if character is ready from keyboard */
  265. { 
  266. #asm
  267.     mov        ah,1
  268.     int        16h
  269.     jz        stat_no_char
  270.     mov        ax,1
  271.     jmp        stat_finis
  272.  
  273. stat_no_char:
  274.     xor        ax,ax
  275.  
  276. stat_finis:
  277. #
  278. }
  279.  
  280. my_ci() /* get character from keyboard, using BIOS function call */
  281. {
  282. #asm
  283.     xor        ah,ah
  284.     int        16h
  285.     or        al,al
  286.     jz        my_ci_finis
  287.     xor        ah,ah
  288.  
  289. my_ci_finis: 
  290. #
  291. }
  292. ------------------------------------------------------------------------------
  293. The termcap for DOS 2.00 with ansi device driver follows:
  294. ------------------------------------------------------------------------------
  295. pm|pcmon|IBM-PC using DOS 2.00 ansi device driver (monochrome)|\
  296.     :am:bc=^H:bw:ce=\E[K:cl=\E[2J:cm=\E[%i%d;%dH:co#80:cr=^M:\
  297.     :do=^J:ho=\E[H:kb=^H:li#25:ll=\E[25H:nd=\E[C:\
  298.     :pt:se=\E[0m:so=\E[1m:ta=^I:up=\E[A:xt:
  299. pc|pccol|IBM-PC using DOS 2.00 ansi device driver (color)|\
  300.     :am:bc=^H:bw:ce=\E[K:cl=\E[2J:cm=\E[%i%d;%dH:co#80:cr=^M:\
  301.     :do=^J:ho=\E[H:kb=^H:li#25:ll=\E[25H:nd=\E[C:\
  302.     :pt:se=\E[0;32m:so=\E[1m:ta=^I:up=\E[A:xt:
  303. ------------------------------------------------------------------------------
  304. and that's it! Enjoy. I place this in the public domain, and would appreciate
  305. feedback. Improvements and bug reports especially desired. If the code is too
  306. cryptic or uncommented, feel free to send questions to:
  307.                     Bennett Todd
  308.                     ...{decvax,ihnp4,akgua}!mcnc!ecsvax!bet
  309.