Return to writlow.c CVS log

Up to [Research Unix] / researchv10no / sys / mkconf

Annotation of researchv10no/sys/mkconf/writlow.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * write system control block
        !             3:  */
        !             4: 
        !             5: #include <libc.h>
        !             6: #include "mkconf.h"
        !             7: 
        !             8: #define        SVSIZE  4       /* size of an scb vector */
        !             9: 
        !            10: writlow(f)
        !            11: char *f;
        !            12: {
        !            13:        int fd;
        !            14:        register Scb *sp;
        !            15:        register int ssize;
        !            16:        register int i;
        !            17:        register Dev *dp;
        !            18: 
        !            19:        if ((fd = creat(f, 0666)) < 0) {
        !            20:                perror(f);
        !            21:                exit(1);
        !            22:        }
        !            23:        /*
        !            24:         * system control block
        !            25:         */
        !            26:        fprint(fd, "\t.text\n\t.align 9\n\t.set INTSTACK,1\n");
        !            27:        fprint(fd, "\t.globl\tscb\nscb:\n");
        !            28:        for (ssize = 0, sp = llist; sp; ssize = sp->offset+SVSIZE, sp = sp->next) {
        !            29:                for (; ssize < sp->offset; ssize += SVSIZE)
        !            30:                        fprint(fd, "\t.long straycatch+0x%x+INTSTACK\n", ssize);
        !            31:                fprint(fd, "\t.long %s%s\n", sp->name, sp->type == SINTR ? "+INTSTACK" : "");
        !            32:        }
        !            33:        while ((ssize & 0x1fc) != 0) {
        !            34:                fprint(fd, "\t.long straycatch+0x%x+INTSTACK\n", ssize);
        !            35:                ssize += SVSIZE;
        !            36:        }
        !            37:        /*
        !            38:         * stray catching stuff
        !            39:         */
        !            40:        fprint(fd, "\t.globl\tstraycatch\nstraycatch:\n");
        !            41:        for (i = 0; i < ssize; i += SVSIZE)
        !            42:                fprint(fd, "\t.align 2; bsbw stray\n");
        !            43:        /*
        !            44:         * trampoline, because assembler can't cope with global bsbw
        !            45:         */
        !            46:        fprint(fd, "stray:\tjmp Xstray\n");
        !            47:        /*
        !            48:         * interface routines
        !            49:         */
        !            50:        for (dp = dlist; dp; dp = dp->next)
        !            51:                (*acode[dp->mdev->atype].putvec)(fd, dp);
        !            52:        close(fd);
        !            53: }
        !            54: 
        !            55: stdputvec(fd, dp, name, ix)
        !            56: int fd;
        !            57: Dev *dp;
        !            58: char *name;
        !            59: int ix;
        !            60: {
        !            61:        Mdev *mp;
        !            62: 
        !            63:        mp = dp->mdev;
        !            64:        if (mp->flags & FRAWVEC)
        !            65:                return;
        !            66:        fprint(fd, "\t.align 2\n.globl _%s%dint\n%s:\n", mp->tag, ix, name);
        !            67:        fprint(fd, "\tpushr\t$0x3f\n");
        !            68:        if (dp->id == 0)
        !            69:                fprint(fd, "\tclrl\t-(sp)\n");
        !            70:        else
        !            71:                fprint(fd, "\tpushl\t$%d\n", dp->id);
        !            72:        fprint(fd, "\tcalls\t$1,_%s%dint\n", mp->tag, ix);
        !            73:        fprint(fd, "\tpopr\t$0x3f\n\trei\n");
        !            74: }

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