Return to asm_linkage.h CVS log

Up to [Research Unix] / researchv9 / sys / sun3

Annotation of researchv9/sys/sun3/asm_linkage.h, revision 1.1.1.1

1.1       root        1: /*     @(#)asm_linkage.h 1.1 86/02/03 SMI      */
                      2: 
                      3: /*
                      4:  * Copyright (c) 1985 by Sun Microsystems, Inc.
                      5:  */
                      6: 
                      7: /*
                      8:  * Entry macros for assembler subroutines.
                      9:  */
                     10: #define        IDENTITY(x) x
                     11: #define        NAME(x) IDENTITY(_)x
                     12: 
                     13: #ifdef GPROF
                     14: #define ENTRY(x)  \
                     15:        .globl  NAME(x); \
                     16: NAME(x): \
                     17:        link a6,#0; \
                     18:        movl #1f,a0; \
                     19:        jbsr mcount; \
                     20:        unlk a6; \
                     21:        .bss; \
                     22:        .even; \
                     23: 1:     .skip 4; \
                     24:        .text
                     25: 
                     26: #define ENTRY2(x,y)  \
                     27:        .globl  NAME(x), NAME(y); \
                     28: NAME(x): ; \
                     29: NAME(y):   \
                     30:        link a6,#0; \
                     31:        movl #1f,a0; \
                     32:        jbsr mcount; \
                     33:        unlk a6; \
                     34:        .bss; \
                     35:        .even; \
                     36: 1:     .skip 4; \
                     37:        .text
                     38: 
                     39: /*
                     40:  * CCENTRY is for cc known subroutines like ldivt which
                     41:  * know and use a0, a1, d0 and d1.  This means we have to
                     42:  * save them.
                     43:  */
                     44: #define CCENTRY(x)  \
                     45:        .globl  x; \
                     46: x: \
                     47:        link a6,#-16; \
                     48:        moveml #0x0303,sp@; \
                     49:        movl #1f,a0; \
                     50:        jbsr mcount; \
                     51:        moveml sp@,#0x0303; \
                     52:        unlk a6; \
                     53:        .bss; \
                     54:        .even; \
                     55: 1:     .skip 4; \
                     56:        .text
                     57: #else GPROF
                     58: #define ENTRY(x)  \
                     59:        .globl  NAME(x); \
                     60: NAME(x):
                     61: 
                     62: #define ENTRY2(x,y)  \
                     63:        .globl  NAME(x), NAME(y); \
                     64: NAME(x): \
                     65: NAME(y):
                     66: 
                     67: #define CCENTRY(x)  \
                     68:        .globl  x; \
                     69: x:
                     70: #endif GPROF
                     71: 
                     72: /*
                     73:  * Macro for autovectored interrupts.
                     74:  */
                     75: #define IOINTR(LEVEL) \
                     76:        moveml  #0xE0E0,sp@-    /* save regs we trash <d0,d1,d2,a0,a1,a2> */;\
                     77:        movl    sp,d2           /* save copy of previous sp */;\
                     78:        cmpl    #eintstack,sp   /* on interrupt stack? */;\
                     79:        jls     1f              /* yes, skip */;\
                     80:        lea     eintstack,sp    /* no, switch to interrupt stack */;\
                     81: 1:     movl    #_level/**/LEVEL/**/_vector,a2  /* get vector ptr */;\
                     82: 2:     movl    a2@+,a1         /* get routine address */;\
                     83:        jsr     a1@             /* go there */;\
                     84:        tstl    d0              /* success? */;\
                     85:        beqs    2b              /* no, try next one */;\
                     86:        movl    d2,sp           /* restore stack pointer */;\
                     87:        cmpl    #0x80000000,d0  /* spurious? */;\
                     88:        jeq     rei_iop         /* yes */;\
                     89:        clrl    _level/**/LEVEL/**/_spurious    /* no, clr spurious cnt */;\
                     90:        jra     rei_iop
                     91: 
                     92: /*
                     93:  * Macro for vectored interrupts.
                     94:  */
                     95: #define VECINTR(ifunc, cfunc, carg) \
                     96:        .globl  ifunc;\
                     97: ifunc:;\
                     98:        moveml  #0xE0C0,sp@-    /* save regs we trash <d0,d1,d2,a0,a1> */;\
                     99:        movl    sp,d2           /* save copy of previous sp */;\
                    100:        cmpl    #eintstack,sp   /* on interrupt stack? */;\
                    101:        jls     1f              /* yes, skip */;\
                    102:        lea     eintstack,sp    /* no, switch to interrupt stack */;\
                    103: 1:     movl    carg,sp@-       /* push arg to interrupt routine */;\
                    104:        jsr     cfunc           /* go to it */;\
                    105:        movl    d2,sp           /* restore stack pointer */;\
                    106:         moveml  sp@+,#0x0307    /* restore saved registers <a1,a0,d2,d1,d0> */;\
                    107:        jra     rei_io

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