Return to as15.c CVS log

Up to [Research Unix] / researchv10no / cmd / PDP11 / 11as

Annotation of researchv10no/cmd/PDP11/11as/as15.c, revision 1.1.1.1

1.1       root        1: /* a5 -- pdp-11 assembler pass 1 */
                      2: #include "as1.h"
                      3: 
                      4: OP savop;
                      5: OP lastop;
                      6: int noputw;
                      7: 
                      8: OP
                      9: readop()
                     10: {
                     11:        if (savop.xp) {lastop=savop; savop.xp=0; return(lastop);}
                     12:        noputw=0;
                     13:        lastop=_readop(rch());
                     14:        if (noputw==0) putw(lastop.v);
                     15:        return(lastop);
                     16: }
                     17: 
                     18: extern int fbflag;
                     19: int rschflg;
                     20: 
                     21: OP
                     22: _readop(t)
                     23: register int t;
                     24: {
                     25:        OP s;
                     26: 
                     27:        for (;;) {
                     28:        switch (chartab[t]) {
                     29:        case C_IOR:
                     30:                s.v=037; return(s);
                     31:        case C_ESC:
                     32:                switch (t=rch()) {
                     33:                        case '/': s.v='/'; return(s);
                     34:                        case '<': s.v=035; return(s);
                     35:                        case '>': s.v=036; return(s);
                     36:                        case '%': s.v=037; return(s);
                     37:                }
                     38:                s.v=t; return(s);
                     39:        case C_WHITE:
                     40:                break;
                     41:        case C_TERM:
                     42:                s.v=t; return(s);
                     43:        case C_SQUO:
                     44:                t=rsch(); goto ccon;
                     45:        case C_DQUO:
                     46:                t=rsch(); t |= rsch()<<8;
                     47:         ccon:
                     48:                numval=t; putw(T_ABS); putw(numval); s.v=T_ABS; noputw=1; return(s);
                     49:        case C_GARB:
                     50:                error('g'); break;
                     51:        case C_SKIP:
                     52:                for (;;) {
                     53:                        t=rch();
                     54:                        if (t=='\004' || t=='\n') {s.v=t; return(s);}
                     55:                }
                     56:        case C_EOL:
                     57:                s.v=t; return(s);
                     58:        case C_STR:
                     59:                putw('<'); numval=0;
                     60:                for (;;) {
                     61:                        t=rsch();
                     62:                        if (rschflg) break;
                     63:                        putw(t|0400);
                     64:                        numval++;
                     65:                }
                     66:                putw(-1);
                     67:                s.v='<'; noputw=1; return(s);
                     68:        default:
                     69:                ch=t;
                     70:                if ('0'<=t && t<='9') {
                     71:                        t=number();
                     72:                        if (fbflag==0) goto ccon;
                     73:                        s.v=t; return(s);
                     74:                }
                     75:                s.xp=rname(t); return(s);
                     76:        }
                     77:        t=rch();
                     78:        }
                     79: }
                     80: 
                     81: rsch()
                     82: {
                     83:        register int t=rch();
                     84: 
                     85:        if (t=='\004' || t=='\n') {error('<'); aexit();}
                     86:        rschflg=0;
                     87:        if (t=='\\') {
                     88:                switch (t=rch()) {
                     89:                        case 'n': return(012);  
                     90:                        case 's': return(040);
                     91:                        case 't': return(011);
                     92:                        case 'e': return(004);
                     93:                        case '0': return(000);
                     94:                        case 'r': return(015);
                     95:                        case 'a': return(006);
                     96:                        case 'p': return(033);
                     97:                }
                     98:                return(t);
                     99:        }
                    100:        if (t=='>') rschflg=1;
                    101:        return(t);
                    102: }

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