Return to as11.c CVS log

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

Annotation of researchv10no/cmd/PDP11/11as/as11.c, revision 1.1.1.1

1.1       root        1: /* PDP-11 assembler pass 0 */
                      2: #include "as1.h"
                      3: #include <signal.h>
                      4: 
                      5: #ifndef PASS2PGM
                      6: #define PASS2PGM "/lib/as2"            /*god: is tweakable */
                      7: #endif
                      8: #ifndef A_DOT_OUT
                      9: #define A_DOT_OUT "a.out"              /*god: " */
                     10: #endif
                     11: 
                     12: char *atmp1 = "/tmp/atm1XXXXXX";
                     13: char *atmp2 = "/tmp/atm2XXXXXX";
                     14: char *atmp3 = "/tmp/atm3XXXXXX";
                     15: char *fpass2 = PASS2PGM;               /*god: use -DPASS2PGM=/xxxx... */
                     16: char unglob[3] = "-";
                     17: char *outfile = A_DOT_OUT;             /*god:6/17/80 made for porting*/
                     18: int    debug;
                     19: 
                     20: main(argc, argv)
                     21: char **argv;
                     22: {
                     23:        extern char *sbrk();
                     24:        extern aexit();
                     25:        FILE *t;
                     26:        char *buf1,*buf2;
                     27: 
                     28:        if (signal(SIGINT,SIG_IGN)!=SIG_IGN) signal(SIGINT,aexit);
                     29:        while (--argc>=0 && (++argv)[0][0]=='-') {
                     30:                if (argv[0][1]=='u' || argv[0][1]=='\0') unglob[1]='g';
                     31:                else if (argv[0][1]=='o' && --argc>=0) outfile= *++argv;
                     32:                else if (argv[0][1]=='d') {
                     33:                        atmp1 = "T1"; atmp2 = "T2", atmp3 = "T3";
                     34:                        debug++;
                     35:                }
                     36:        }
                     37:        nargs=argc+1; curarg=argv-1;
                     38:        if (NULL==(pof=fopen(mktemp(atmp1),"w"))) wrterr();
                     39:        setbuf(pof,buf1=sbrk(BUFSIZ));
                     40:        if (NULL==(fbfil=fopen(mktemp(atmp2),"w"))) wrterr();
                     41:        setbuf(fbfil,buf2=sbrk(BUFSIZ));
                     42:        setup();
                     43:        fclose(stdin);
                     44:        assem();
                     45:        if (EOF==fclose(pof)) wrterr(); if (EOF==fclose(fbfil)) wrterr();
                     46:        if (errflg) aexit();
                     47:        if (NULL==(t=fopen(mktemp(atmp3),"w"))) wrterr();
                     48:        setbuf(t,buf1);
                     49:        if ((symend-usymtab)!=fwrite(usymtab,sizeof(*usymtab),symend-usymtab,t)) wrterr();
                     50:        if (EOF==fclose(t)) wrterr();
                     51:        if (debug)
                     52:                exit(1);
                     53:        execl(fpass2,fpass2,unglob,"-o",outfile,atmp1,atmp2,atmp3,0);
                     54:        filerr(fpass2,"?\n");
                     55:        aexit();
                     56: }
                     57: 
                     58: aexit()
                     59: {
                     60:        unlink(atmp1); unlink(atmp2); unlink(atmp3);
                     61:        exit(3);
                     62: }
                     63: 
                     64: filerr(file,str)
                     65: char *file,*str;
                     66: {
                     67:        fprintf(stderr,"%s%s",file,str);
                     68: }
                     69: 
                     70: wrterr()
                     71: {
                     72:        fprintf(stderr,"as: Write error on temp file.\n");
                     73:        ++errflg; aexit();
                     74: }

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