Return to Aloadr.c CVS log

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

Annotation of cci/sys/tahoe/Aloadr.c, revision 1.1.1.1

1.1       root        1: #include "../machine/alignment.h" 
                      2: loadr(infop)   process_info *infop;
                      3: /*
                      4: /*     Load multiple registers.
                      5: /*
                      6: /***************************************/
                      7: {
                      8:        register long mask, next_register, new_address;
                      9: 
                     10:        mask = operand(infop,0)->data & 0x3fff; /* Bits 0 to 13 only */
                     11:        new_address = operand(infop,1)->address;
                     12:        next_register = 0;                              /* Register # */
                     13:        while (next_register <= 13)
                     14:        { 
                     15:                if (mask & 1 << next_register) 
                     16:                {
                     17:                        Replace (infop, next_register,
                     18:                                get_longword (infop, new_address));
                     19:                        new_address += 4; 
                     20:                }
                     21:                next_register++ ;
                     22:        }
                     23: }

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