Return to as24.c CVS log

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

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

1.1     ! root        1: /* a4 -- pdp-11 assembler pass2 */
        !             2: #include "as2.h"
        !             3: 
        !             4: putw(w,fp)
        !             5: FILE *fp;
        !             6: {
        !             7:        if (1!=fwrite(&w,2,1,fp)) wrterr();
        !             8: }
        !             9: 
        !            10: wrterr()
        !            11: {
        !            12:        fprintf(stderr,"as: write error on output\n"); saexit();
        !            13: }
        !            14: 
        !            15: OP savop;
        !            16: OP lastop;
        !            17: 
        !            18: OP
        !            19: readop()
        !            20: {
        !            21:        extern struct expr symtab[];
        !            22: 
        !            23:        if (savop.xp) {lastop=savop; savop.xp=0; return(lastop);}
        !            24:        lastop.v=getw();
        !            25:        if (ISCHAR(lastop)) return(lastop);
        !            26:        if (lastop.v>=04000) lastop.xp=usymtab+(lastop.v-04000);
        !            27:        else lastop.xp=symtab+(lastop.v-01000);
        !            28:        return(lastop);
        !            29: }
        !            30: 
        !            31: getw()
        !            32: {
        !            33:        register int t,error=0;
        !            34:        if (savop.xp) {lastop=savop; savop.xp=0; return(lastop.v);}
        !            35:        if (EOF==(t=getchar())) ++error;
        !            36:        lastop.v=t;
        !            37:        if (EOF==(t=getchar())) ++error;
        !            38:        lastop.v |= t<<8;
        !            39:        if (error) lastop.v=4;
        !            40:        return(lastop.v);
        !            41: }

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