Return to as23.c CVS log

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

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

1.1     ! root        1: /* a3 -- pdp-11 assembler pass 2 */
        !             2: #include "as2.h"
        !             3: #define checkeos() (LAST('\n') || LAST(';') || LAST('\004'))
        !             4: 
        !             5: int brdelt;
        !             6: struct expr *curfb[20];
        !             7: 
        !             8: assem()
        !             9: {
        !            10:        OP op1,op2;
        !            11:        struct expr x;
        !            12: 
        !            13:        for (;;) {
        !            14:        op1=readop();
        !            15:        if (op1.v==5 || op1.v=='<') {
        !            16:                opline(op1); goto dotmax;
        !            17:        } else if (!checkeos()) {
        !            18:                if (op1.v==T_ABS) {op1.v=2; numval=getw();}
        !            19:                op2=readop();
        !            20:                if (LAST('=')) {
        !            21:                        x=expres(readop());
        !            22:                        if ((&op1.xp->typ)==dotrel) {           /* as in ".=.+2" */
        !            23:                                if ((x.typ&=~T_EXTERN)!=*dotrel) error('.');
        !            24:                                else if (x.typ==T_BSS) {*dot=x.val; goto dotmax;}
        !            25:                                else {
        !            26:                                        register short t = x.val-*dot;
        !            27:                                        if (t<0) error('.');
        !            28:                                        else {while (--t>=0) outb(T_ABS,0); goto dotmax;}
        !            29:                                }
        !            30:                        } else {
        !            31:                                if (x.typ==T_EXTERN) error('r');
        !            32:                                op1.xp->typ&=~037;
        !            33:                                if ((x.typ&=037)==0) x.val=0;
        !            34:                                op1.xp->typ |= x.typ; op1.xp->val=x.val;
        !            35:                        }
        !            36:                } else if (LAST(':')) {
        !            37:                        register int t;
        !            38:                        if (ISCHAR(op1)) {
        !            39:                                if (op1.v!=2) {error('x'); continue;}
        !            40:                                t=fbadv(numval);
        !            41:                                curfb[t]->typ= (curfb[t]->typ&~037) | *dotrel;
        !            42:                                brdelt=curfb[t]->val-*dot;
        !            43:                                curfb[t]->val= *dot;
        !            44:                        } else {
        !            45:                                if (passno==0) {
        !            46:                                        if ((t=op1.xp->typ&037)!=0 && t!=T_ESTTXT && t!=T_ESTDAT) error('m');
        !            47:                                        op1.xp->typ=(op1.xp->typ&~037)|*dotrel;
        !            48:                                        brdelt=op1.xp->val-*dot;
        !            49:                                        op1.xp->val= *dot;
        !            50:                                } else if (*dot!=op1.xp->val) error('p');
        !            51:                        }
        !            52:                        continue;
        !            53:                } else {
        !            54:                        register short *psiz;
        !            55:                        savop=op2; opline(op1);
        !            56:                  dotmax:
        !            57:                        psiz=(&hdr.txtsiz)+(*dotrel-T_TEXT);
        !            58:                        if (passno==0 && *dot>*psiz) *psiz= *dot;
        !            59:                        }
        !            60:                }
        !            61:        if (LAST('\n')) ++line;
        !            62:        else if (LAST('\004')) return;  /* sole exit */
        !            63:        }
        !            64: }
        !            65: 
        !            66: fbadv(t)
        !            67: {
        !            68:        register struct expr *p;
        !            69:        extern struct expr *fbbuf;
        !            70: 
        !            71:        if (curfb[t]=p=curfb[t+10]) p++;
        !            72:        else p=fbbuf;
        !            73:        for (;;) {
        !            74:                if ((p->typ>>8)==t || p->typ<0) break;
        !            75:                p++;
        !            76:        }
        !            77:        curfb[t+10]=p;
        !            78:        return(t);
        !            79: }

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