Return to Awrite_byte.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Awrite_byte.c, revision 1.1

1.1     ! root        1: #include       "../machine/alignment.h"
        !             2: 
        !             3: write_byte (infop,byte, where)
        !             4: process_info   *infop;
        !             5: long           byte; 
        !             6: struct oprnd   *where;
        !             7: /*
        !             8: /*     Put the 'byte' at the given address in
        !             9: /*     tahoe's memory.
        !            10: /*     
        !            11: /*     1. Only the least significant byte is written.
        !            12: /*
        !            13: /**************************************************/
        !            14: {
        !            15:        register struct operand_des *look_at;
        !            16: 
        !            17:        look_at = &Table[opCODE].operand[last_operand];
        !            18:        if (! (look_at->add_modes & NOVF))
        !            19:                if (byte > 0x7f || byte < -0x80) overflow_1;    
        !            20:        if (!(where->mode & W)) exception(infop, ILL_ADDRMOD);
        !            21:        switch (where->mode & ADDFIELD) /* Mask out R/W bits */
        !            22:        {
        !            23:        case Add:
        !            24:                put_byte(infop, byte, where->address);
        !            25:                break;
        !            26:        case Dir:
        !            27:                Replace (infop, where->reg_number, byte);
        !            28:                break;
        !            29:        case SPmode:
        !            30:                where->mode = where->mode & ~SPmode | Add;
        !            31:                write_longword (infop, byte, where);
        !            32:                break;
        !            33:        default:
        !            34:                printf("Unknown destination in write_byte (alignment code)\n");
        !            35:        };
        !            36: }      

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