Return to acia.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / sys

Annotation of researchv9/jerq/src/lib/sys/acia.c, revision 1.1.1.1

1.1       root        1: #include <jerq.h>
                      2: #include <queue.h>
                      3: #include <setup.h>
                      4: /*static*/ int dtr;
                      5: aciainit(speed)
                      6: char speed;
                      7: {
                      8:        /* init the host side */
                      9:        int i;
                     10: 
                     11:        DUART->a_cmnd=RESET_RECV|DIS_TX|DIS_RX;
                     12:        DUART->a_cmnd=RESET_TRANS;
                     13:        DUART->a_cmnd=RESET_ERR;
                     14:        DUART->a_cmnd=RESET_MR;
                     15:        DUART->mr1_2a=CHAR_ERR|NO_PAR | CBITS8;
                     16:        DUART->mr1_2a=NRML_MOD|ONEP000SB;
                     17:        DUART->a_sr_csr=speed;
                     18:        DUART->a_cmnd=ENB_TX|ENB_RX; /* enable TX and RX last */
                     19:        /* configure the output port */
                     20:        DUART->ip_opcr=0x70;
                     21:        DUART->scc_ropbc=0xff;  /* make sure the port is reset first */
                     22:        DUART->scc_sopbc=0x01;  /* make sure DTR is on */
                     23:        if(VALSCREENCOLOR)
                     24:                BonW();
                     25:        else
                     26:                WonB();
                     27:        for(i=0; i<255; i++)
                     28:                ;               /*delay for stupid device */
                     29:        dtr=1;
                     30: }
                     31: rcvchar(){
                     32:        register c=qgetc(&RCVQUEUE);
                     33:        if(c!=-1)
                     34:                c&=0xFF;
                     35:        return c;
                     36: }
                     37: sendchar(c){
                     38:        qputc(&OUTQUEUE, c);
                     39:        aciatrint();
                     40: }
                     41: aciatrint(){
                     42:        register sr, c;
                     43:        sr=spl5();
                     44:        /* should check here for carrier fail */
                     45:        DUART->a_cmnd=ENB_TX;           /* done here so flags are right */
                     46:        if(DUART->a_sr_csr&(XMT_EMT|XMT_RDY)){
                     47:                if((c=qgetc(&OUTQUEUE))==-1 || dtr==0)
                     48:                        DUART->a_cmnd=DIS_TX;           /* forget it */
                     49:                else
                     50:                        DUART->a_data=c;                /* send the char */
                     51:        }
                     52:        splx(sr);
                     53: }
                     54: sendbreak(){
                     55:        register int sr,i;
                     56:        sr=spl5();
                     57:        DUART->a_cmnd=(STRT_BRK|ENB_TX);
                     58:        i= 0x27106;
                     59:        while(--i>0)
                     60:                ;
                     61:        DUART->a_cmnd=(STOP_BRK|DIS_TX);
                     62:        kbdinit();
                     63:        splx(sr);
                     64: }
                     65: dtrctl(flg) {
                     66:        dtr=flg;
                     67:        aciatrint();
                     68: }
                     69: tstdcd() {
                     70:        return((DUART->ip_opcr & 0x40) != 0);
                     71: }
                     72: aciapaws()
                     73: {
                     74:        int i;
                     75:        for(i=0 ; i<16; i++);
                     76: }
                     77: /*
                     78:  * disconnect will drop the DTR line for approx. 1/2 second.
                     79:  */
                     80: disconnect() {
                     81:        register long i, sr;
                     82:        
                     83:        if(dtr==0)
                     84:                return; /* already being disconnected */
                     85:        sr=spl5();
                     86:        dtr=0;
                     87:        DUART->scc_ropbc=0x01;  /* disable DTR  */
                     88:        i=0x30d48;
                     89:        while(--i>0)
                     90:                ;
                     91:        DUART->scc_sopbc=0x01;  /* Turn back on DTR */
                     92:        dtr=1;  /* allow disconnects again */
                     93:        kbdinit();
                     94:        splx(sr);
                     95: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.