Return to rswitch.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / setup / vax_sysv

Annotation of researchv10dc/cmd/icon/setup/vax_sysv/rswitch.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * This co-expression context switch is the same as for the VAX-11 operating
                      3:  * under Berkeley 4.3bsd. It has not been tested on System V.
                      4:  */
                      5: 
                      6: 
                      7: /*
                      8:  * coswitch
                      9:  */
                     10: coswitch(old_cs, new_cs, first)
                     11: int *old_cs, *new_cs;
                     12: int first;
                     13: {
                     14:    asm("  movl 4(ap),r0");
                     15:    asm("  movl 8(ap),r1");
                     16:    asm("  movl sp,0(r0)");
                     17:    asm("  movl fp,4(r0)");
                     18:    asm("  movl ap,8(r0)");
                     19:    asm("  movl r11,16(r0)");
                     20:    asm("  movl r10,20(r0)");
                     21:    asm("  movl r9,24(r0)");
                     22:    asm("  movl r8,28(r0)");
                     23:    asm("  movl r7,32(r0)");
                     24:    asm("  movl r6,36(r0)");
                     25:    if (first == 0) { /* this is first activation */
                     26:       asm("  movl 0(r1),sp");
                     27:       asm("  clrl fp");
                     28:       asm("  clrl ap");
                     29:       interp(0, 0);
                     30:       syserr("interp() returned in coswitch");
                     31:       }
                     32:    else {
                     33:       asm(" movl 0(r1),sp");
                     34:       asm(" movl 4(r1),fp");
                     35:       asm(" movl 8(r1),ap");
                     36:       asm(" movl 16(r1),r11");
                     37:       asm(" movl 20(r1),r10");
                     38:       asm(" movl 24(r1),r9");
                     39:       asm(" movl 28(r1),r8");
                     40:       asm(" movl 32(r1),r7");
                     41:       asm(" movl 36(r1),r6");
                     42:       }
                     43: }

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