Return to Acall.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / sys / tahoealign

Annotation of 43BSDReno/sys/tahoealign/Acall.c, revision 1.1.1.1

1.1       root        1: /*     Acall.c 1.1     86/07/20        */
                      2: 
                      3: #include "../tahoealign/align.h" 
                      4: call(infop)
                      5: process_info *infop;
                      6: /*
                      7: /*     Call a procedure with argument list on stack.
                      8: /*
                      9: /******************************************************/
                     10: {
                     11: 
                     12:        register long removed, mask, new_address, i, next, temp_fp;
                     13: 
                     14:        printf("entering call\n");
                     15:        removed = operand(infop, 0)->data & 0xffff ;
                     16:        printf("after first call to operand\n");
                     17:        new_address = operand(infop, 1)->address;
                     18:        printf("in call, removed = 0x%x , new_address=0x%x \n",removed, new_address);
                     19:        push (infop, fp);
                     20:        temp_fp = sp;
                     21:        mask = get_word (infop, new_address) & 0x1fff;  /* Only bits 12-0 */
                     22:        printf("in call, mask = 0x%x , pc=0x%x \n",mask,pc);
                     23:        push (infop, mask << 16 | removed);
                     24:        push (infop, pc);                               /* Next opcode address */
                     25:        next = 12;                              /* Register # to save */
                     26:        for (i = 0x1000; i != 0; i = i >> 1)
                     27:        { 
                     28:                if ( i & mask ) push (infop,  Register (infop, next));
                     29:                next--; 
                     30:        }
                     31:        fp = temp_fp;
                     32:        pc = new_address + 2;                   /* Transfer control */
                     33: }  

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