Return to as13.c CVS log

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

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

1.1     ! root        1: /* a3 -- pdp-11 assembler pass 1 */
        !             2: #include "as1.h"
        !             3: #define checkeos() (LAST('\n') || LAST(';') || LAST('\004'))
        !             4: 
        !             5: assem()
        !             6: {
        !             7:        OP op1,op2;
        !             8: 
        !             9:        for (;;) {
        !            10:        op1=readop();
        !            11:        if (!checkeos()) {
        !            12:                if (ifflg) {
        !            13:                        if (ISCHAR(op1)) continue;
        !            14:                        if (op1.xp->typ==T_IF) ++ifflg;
        !            15:                        if (op1.xp->typ==T_ENDIF) --ifflg;
        !            16:                        continue;
        !            17:                }
        !            18:                op2=readop();
        !            19:                if (LAST('=')) {
        !            20:                        struct expr x;
        !            21:                        x=expres(readop());
        !            22:                        if (ISCHAR(op1)) error('x');
        !            23:                        else if ((&op1.xp->typ)==dotrel         /* as in ".=.+2" */
        !            24:                          && (x.typ&=~T_EXTERN)!=*dotrel) {
        !            25:                                error('.'); *dotrel=T_TEXT;
        !            26:                        } else {
        !            27:                                op1.xp->typ&=~037;
        !            28:                                if ((x.typ&=037)==0) x.val=0;
        !            29:                                op1.xp->typ |= x.typ; op1.xp->val=x.val;
        !            30:                        }
        !            31:                } else if (LAST(':')) {
        !            32:                        register int t;
        !            33:                        if (ISCHAR(op1)) {
        !            34:                                if (op1.v!=T_ABS) {error('x'); continue;}
        !            35:                                t=fbcheck(numval);
        !            36:                                curfbr[t]= *dotrel; curfb[t]= *dot;
        !            37:                                nxtfb.c0= *dotrel; nxtfb.c1=t; nxtfb.val= *dot;
        !            38:                                if (1!=fwrite(&nxtfb,sizeof(nxtfb),1,fbfil)) wrterr();
        !            39:                        } else {
        !            40:                                if (op1.xp->typ&037) error('m');
        !            41:                                op1.xp->typ |= *dotrel; op1.xp->val = *dot;
        !            42:                        }
        !            43:                        continue;
        !            44:                } else {
        !            45:                        savop=op2; opline(op1);
        !            46:                }
        !            47:        }
        !            48:        if (LAST('\n')) ++line;
        !            49:        else if (LAST(';')) ;
        !            50:        else if (LAST('\004')) {
        !            51:                if (ifflg) error('x');
        !            52:                return;         /* sole exit */
        !            53:        } else {
        !            54:                error('x'); while (!checkeos()) readop();
        !            55:        }
        !            56:        }
        !            57: }
        !            58: 
        !            59: fbcheck(t)
        !            60: {
        !            61:        if (((unsigned)t)>9) {error('f'); t=0;}
        !            62:        return(t);
        !            63: }

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