Return to as17.c CVS log

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

Annotation of researchv10no/cmd/PDP11/11as/as17.c, revision 1.1

1.1     ! root        1: /*  a7 -- pdp-11 assembler pass 1 */
        !             2: #include "as1.h"
        !             3: int opfound;
        !             4: 
        !             5: struct expr
        !             6: expres(op)
        !             7: OP op;
        !             8: {
        !             9:        register int ltyp,rtyp;
        !            10:        register short lval,rval;
        !            11:        int opprev = '+';       /* previous operator */
        !            12:        struct expr x;
        !            13: 
        !            14:        opfound=0;
        !            15:        lval=0; ltyp=T_ABS;
        !            16:        for (;;) {
        !            17:                if (!ISCHAR(op)) {
        !            18:                        rtyp=op.xp->typ; rval=op.xp->val;
        !            19:                } else if (op.v>='a') {
        !            20:                        if (op.v>=('a'+10)) {lval=0; ltyp=0;}
        !            21:                        else {
        !            22:                                rtyp=curfbr[op.v-'a'];
        !            23:                                if ((lval=curfb[op.v-'a'])== -1) error('f');
        !            24:                        }
        !            25:                } else switch (op.v) {
        !            26:                        default:
        !            27:                                if (opfound==0) errore();
        !            28:                                x.typ=ltyp; x.val=lval;
        !            29:                                return(x);
        !            30:                        case T_ABS:
        !            31:                                rval=numval; rtyp=T_ABS; break;
        !            32:                        case '+': case '-': case '*': case '/':
        !            33:                        case '&': case 037: case 035: case 036:
        !            34:                        case '%': case '^': case '!':
        !            35:                                if (opprev!='+') errore();
        !            36:                                opprev=op.v;
        !            37:                                goto advanc;
        !            38:                        case '[':
        !            39:                                x=expres(readop());
        !            40:                                if (!LAST(']')) error(']');
        !            41:                                rtyp=x.typ; rval=x.val;
        !            42:                }
        !            43:                ++opfound;
        !            44:                switch (opprev) {
        !            45:                        case '+': ltyp=combin(0,rtyp,ltyp); lval+=rval; break;
        !            46:                        case '-': ltyp=combin(1,rtyp,ltyp); lval-=rval; break;
        !            47:                        case '*': ltyp=combin(0,rtyp,ltyp); lval*=rval; break;
        !            48:                        case '/': ltyp=combin(0,rtyp,ltyp); lval/=rval; break;
        !            49:                        case 037: ltyp=combin(0,rtyp,ltyp); lval|=rval; break;
        !            50:                        case '&': ltyp=combin(0,rtyp,ltyp); lval&=rval; break;
        !            51:                        case 035: ltyp=combin(0,rtyp,ltyp); lval<<=rval; break;
        !            52:                        case 036: ltyp=combin(0,rtyp,ltyp); lval>>=rval; break;
        !            53:                        case '%': ltyp=combin(0,rtyp,ltyp); lval%=rval; break;
        !            54:                        case '!': ltyp=combin(0,rtyp,ltyp); lval= ~rval; break;
        !            55:                        case '^': ltyp=rtyp; break;
        !            56:                }
        !            57:                opprev='+';
        !            58:          advanc:
        !            59:                op=readop();
        !            60:        }
        !            61: }
        !            62: 
        !            63: combin(subtract,rtyp,ltyp)
        !            64: register int rtyp,ltyp;
        !            65: {
        !            66:        register int t;
        !            67: 
        !            68:        t=(rtyp|ltyp)&T_EXTERN;
        !            69:        rtyp&=037;
        !            70:        ltyp&=037;
        !            71:        if (rtyp>ltyp) {register int x=rtyp; rtyp=ltyp; ltyp=x;}
        !            72:        if (rtyp!=T_UNDEF) {
        !            73:                if (subtract) {
        !            74:                        if (rtyp!=ltyp) return(t|ltyp);
        !            75:                        return(T_ABS|t);
        !            76:                } else return(t|ltyp);
        !            77:        } else return(t);
        !            78: }

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