Return to as22.c CVS log

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

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

1.1     ! root        1: /* a2 -- pdp-11 assembler pass 2 */
        !             2: #include "as2.h"
        !             3: 
        !             4: struct expr *xsymbol;
        !             5: 
        !             6: outw(typ,val)
        !             7: register int typ;
        !             8: {
        !             9:        register int pcrel;
        !            10: 
        !            11:        if (*dotrel==T_BSS) {error('x'); return;}
        !            12:        if (*dot&1) {error('o'); outb(0,val); return;}
        !            13:        *dot+=2;
        !            14:        if (passno==0) return;
        !            15:        pcrel=typ&PCREL; typ&=~PCREL;
        !            16:        if (typ==T_EXTERN) {/* external references */
        !            17:                outmod=0666;    /* non executable */
        !            18:                typ=((xsymbol-usymtab)<<3)|4;   /* external relocation */
        !            19:        } else {
        !            20:                if ((typ&=~T_EXTERN)>=R_EXTERN) {
        !            21:                        if (typ==T_ESTTXT || typ==T_ESTDAT) error('r');
        !            22:                        typ=T_ABS;
        !            23:                }
        !            24:                if (typ>=T_TEXT && typ<=T_BSS) {
        !            25:                        if (pcrel==0) val+= *dotdot;
        !            26:                } else if (pcrel) val-= *dotdot;
        !            27:                if (--typ<0) typ=0;
        !            28:        }
        !            29:        typ<<=1;
        !            30:        if (pcrel) typ|=1;
        !            31:        putw(val,txtf); tseek[*dotrel-T_TEXT]+=2;
        !            32:        putw(typ,relf); rseek[*dotrel-T_TEXT]+=2;
        !            33: }
        !            34: 
        !            35: outb(typ,val)
        !            36: {
        !            37:        if (*dotrel==T_BSS) {error('x'); return;}
        !            38:        if ((unsigned)typ>T_ABS) error('r');
        !            39:        if (passno!=0) {
        !            40:                if (1!=fwrite(&val,1,1,txtf)) wrterr();
        !            41:                tseek[*dotrel-T_TEXT]++;
        !            42:                if (!(*dot&1)) {/* relocate immediately, so we don't forget */
        !            43:                        val=0; if (1!=fwrite(&val,2,1,relf)) wrterr();
        !            44:                        rseek[*dotrel-T_TEXT]+=2;
        !            45:                }
        !            46:        }
        !            47:        (*dot)++;
        !            48: }
        !            49: 
        !            50: char argb[20];
        !            51: 
        !            52: error(t)
        !            53: {
        !            54:        ++errflg; outmod=0666;
        !            55:        fprintf(stderr,"%s%c %.4d\n",argb,t,line);
        !            56:        argb[0]='\0';
        !            57: }

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