OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [uclinux/] [uClinux-2.0.x/] [arch/] [sparc/] [kernel/] [entry.S] - Rev 1775

Go to most recent revision | Compare with Previous | Blame | View Log

/* $Id: entry.S,v 1.1.1.1 2001-09-10 07:44:02 simons Exp $
 * arch/sparc/kernel/entry.S:  Sparc trap low-level entry points.
 *
 * Copyright (C) 1995 David S. Miller (davem@caip.rutgers.edu)
 */

#include <linux/config.h>
#include <linux/errno.h>

#include <asm/head.h>
#include <asm/asi.h>
#include <asm/smp.h>
#include <asm/kgdb.h>
#include <asm/contregs.h>
#include <asm/ptrace.h>
#include <asm/psr.h>
#include <asm/cprefix.h>
#include <asm/vaddrs.h>
#include <asm/memreg.h>
#include <asm/page.h>
#include <asm/winmacro.h>
#include <asm/signal.h>

#include <asm/asmmacro.h>

#define NR_SYSCALLS 255      /* Each OS is different... */

/* First, KGDB low level things.  This is a rewrite
 * of the routines found in the sparc-stub.c asm() statement
 * from the gdb distribution.  This is also dual-purpose
 * as a software trap for userlevel programs.
 */
        .data
        .align  4

in_trap_handler:
        .word   0

        .text
        .align  4

! This function is called when any SPARC trap (except window overflow or
! underflow) occurs.  It makes sure that the invalid register window is still
! available before jumping into C code.  It will also restore the world if you
! return from handle_exception.

        .globl  C_LABEL(trap_low)
C_LABEL(trap_low):
        rd      %wim, %l3
        SAVE_ALL
        ENTER_SYSCALL

        sethi   %hi(in_trap_handler), %l4
        ld      [%lo(in_trap_handler) + %l4], %l5
        inc     %l5
        st      %l5, [%lo(in_trap_handler) + %l4]

        /* Make sure kgdb sees the same state we just saved. */
        LOAD_PT_GLOBALS(sp)
        LOAD_PT_INS(sp)
        ld      [%sp + REGWIN_SZ + PT_Y], %l4
        ld      [%sp + REGWIN_SZ + PT_WIM], %l3
        ld      [%sp + REGWIN_SZ + PT_PSR], %l0
        ld      [%sp + REGWIN_SZ + PT_PC], %l1
        ld      [%sp + REGWIN_SZ + PT_NPC], %l2
        rd      %tbr, %l5       /* Never changes... */

        /* Make kgdb exception frame. */        
        sub     %sp,(16+1+6+1+72)*4,%sp ! Make room for input & locals
                                        ! + hidden arg + arg spill
                                        ! + doubleword alignment
                                        ! + registers[72] local var
        SAVE_KGDB_GLOBALS(sp)
        SAVE_KGDB_INS(sp)
        SAVE_KGDB_SREGS(sp, l4, l0, l3, l5, l1, l2)

        /* We are increasing PIL, so two writes. */
        or      %l0, PSR_PIL, %l0
        wr      %l0, 0, %psr
        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        call    C_LABEL(handle_exception)
         add    %sp, REGWIN_SZ, %o0     ! Pass address of registers

        /* Load new kgdb register set. */
        LOAD_KGDB_GLOBALS(sp)
        LOAD_KGDB_INS(sp)
        LOAD_KGDB_SREGS(sp, l0, l2)
        wr      %l0, 0x0, %y

        sethi   %hi(in_trap_handler), %l4
        ld      [%lo(in_trap_handler) + %l4], %l5
        dec     %l5
        st      %l5, [%lo(in_trap_handler) + %l4]

        add     %sp,(16+1+6+1+72)*4,%sp ! Undo the kgdb trap frame.

        /* Now take what kgdb did and place it into the pt_regs
         * frame which SparcLinux RESTORE_ALL understands.,
         */
        STORE_PT_INS(sp)
        STORE_PT_GLOBALS(sp)
        STORE_PT_YREG(sp, g2)
        STORE_PT_PRIV(sp, l1, l2, l3)

        RESTORE_ALL


#ifdef CONFIG_BLK_DEV_FD
#ifdef TRACE_FLOPPY_HARDINT
/* Useful tracing */
        .data
        .align  4
        .globl  C_LABEL(floppy_hardint_trace)
C_LABEL(floppy_hardint_trace):
        .skip   32
        .globl  C_LABEL(floppy_hardint_index)
C_LABEL(floppy_hardint_index):
        .word   0
#endif

        .text
        .align  4
        .globl  C_LABEL(floppy_hardint)
C_LABEL(floppy_hardint):
        /* Can only use regs %l3->%l7:
         * %l3 -- base address of fdc registers
         * %l4 -- pdma_vaddr
         * %l5 -- scratch for ld/st address
         * %l6 -- pdma_size
         * %l7 -- floppy_softint
         */

#ifdef TRACE_FLOPPY_HARDINT
        sethi   %hi(C_LABEL(floppy_hardint_trace)), %l5
        or      %l5, %lo(C_LABEL(floppy_hardint_trace)), %l5
        ld      [%l5 + 32], %l7
        add     %l7, 1, %l7
        and     %l7, 31, %l7
        st      %l7, [%l5 + 32]
        sub     %l7, 1, %l7
        and     %l7, 31, %l7
        add     %l7, %l5, %l5
        or      %g0, 0xf, %l7
        stb     %l7, [%l5]
#endif

        /* Do we have work to do? */
        sethi   %hi(C_LABEL(doing_pdma)), %l4
        ld      [%l4 + %lo(C_LABEL(doing_pdma))], %l4
        cmp     %l4, 0
        be      floppy_dosoftint
         nop

        /* Load fdc register base */
        sethi   %hi(C_LABEL(fdc_status)), %l3
        ld      [%l3 + %lo(C_LABEL(fdc_status))], %l3

        /* Setup register addresses */
        sethi   %hi(C_LABEL(pdma_vaddr)), %l5   ! transfer buffer
        ld      [%l5 + %lo(C_LABEL(pdma_vaddr))], %l4
        sethi   %hi(C_LABEL(pdma_size)), %l5    ! bytes to go
        ld      [%l5 + %lo(C_LABEL(pdma_size))], %l6
next_byte:
#ifdef TRACE_FLOPPY_HARDINT
        sethi   %hi(C_LABEL(floppy_hardint_trace)), %l5
        or      %l5, %lo(C_LABEL(floppy_hardint_trace)), %l5
        ld      [%l5 + 32], %l7
        add     %l7, 1, %l7
        and     %l7, 31, %l7
        st      %l7, [%l5 + 32]
        sub     %l7, 1, %l7
        and     %l7, 31, %l7
        add     %l7, %l5, %l5
        ldub    [%l3], %l7
        stb     %l7, [%l5]
#else
        ldub    [%l3], %l7
#endif

        andcc   %l7, 0x80, %g0          ! Does fifo still have data
        bz      floppy_fifo_emptied     ! fifo has been emptied...
         andcc  %l7, 0x20, %g0          ! in non-dma mode still?
        bz      floppy_overrun          ! nope, overrun
         andcc  %l7, 0x40, %g0          ! 0=write 1=read
        bz      floppy_write
         sub    %l6, 0x1, %l6

        /* Ok, actually read this byte */
        ldub    [%l3 + 1], %l7
        orcc    %g0, %l6, %g0
        stb     %l7, [%l4]
        bne     next_byte
         add    %l4, 0x1, %l4

        b       floppy_tdone
         nop

floppy_write:
        /* Ok, actually write this byte */
        ldub    [%l4], %l7
        orcc    %g0, %l6, %g0
        stb     %l7, [%l3 + 1]
        bne     next_byte
         add    %l4, 0x1, %l4

        /* fall through... */
floppy_tdone:
        sethi   %hi(C_LABEL(pdma_vaddr)), %l5
        st      %l4, [%l5 + %lo(C_LABEL(pdma_vaddr))]
        sethi   %hi(C_LABEL(pdma_size)), %l5
        st      %l6, [%l5 + %lo(C_LABEL(pdma_size))]
        /* Flip terminal count pin */
        set     C_LABEL(auxio_register), %l4
        ld      [%l4], %l4

        set     C_LABEL(sparc_cpu_model), %l5
        ld      [%l5], %l5
        subcc   %l5, 1, %g0             /* enum { sun4c = 1 }; */
        be      1f
         ldub   [%l4], %l5

        or      %l5, 0xc2, %l5
        stb     %l5, [%l4]
        andn    %l5, 0x02, %l5
        b       2f
         nop

1:
        or      %l5, 0xf4, %l5
        stb     %l5, [%l4]
        andn    %l5, 0x04, %l5

2:
        /* Kill some time so the bits set */
        WRITE_PAUSE
        WRITE_PAUSE

        stb     %l5, [%l4]

        /* Prevent recursion */
        sethi   %hi(C_LABEL(doing_pdma)), %l4
        b       floppy_dosoftint
         st     %g0, [%l4 + %lo(C_LABEL(doing_pdma))]

        /* We emptied the FIFO, but we haven't read everything
         * as of yet.  Store the current transfer address and
         * bytes left to read so we can continue when the next
         * fast IRQ comes in.
         */
floppy_fifo_emptied:
        sethi   %hi(C_LABEL(pdma_vaddr)), %l5
        st      %l4, [%l5 + %lo(C_LABEL(pdma_vaddr))]
        sethi   %hi(C_LABEL(pdma_size)), %l7
        st      %l6, [%l7 + %lo(C_LABEL(pdma_size))]

        /* Restore condition codes */
        wr      %l0, 0x0, %psr
        WRITE_PAUSE

        jmp     %l1
        rett    %l2

floppy_overrun:
        sethi   %hi(C_LABEL(pdma_vaddr)), %l5
        st      %l4, [%l5 + %lo(C_LABEL(pdma_vaddr))]
        sethi   %hi(C_LABEL(pdma_size)), %l5
        st      %l6, [%l5 + %lo(C_LABEL(pdma_size))]
        /* Prevent recursion */
        sethi   %hi(C_LABEL(doing_pdma)), %l4
        st      %g0, [%l4 + %lo(C_LABEL(doing_pdma))]

        /* fall through... */
floppy_dosoftint:
        rd      %wim, %l3
        SAVE_ALL
        ENTER_IRQ

        /* Set all IRQs off. */
        or      %l0, PSR_PIL, %l4
        wr      %l4, 0x0, %psr
        wr      %l4, PSR_ET, %psr
        WRITE_PAUSE

        mov     11, %o0                 ! floppy irq level
        call    C_LABEL(floppy_interrupt)
         add    %sp, REGWIN_SZ, %o1     ! struct pt_regs *regs

        LEAVE_IRQ
        RESTORE_ALL
        
#endif /* (CONFIG_BLK_DEV_FD) */

        /* Bad trap handler */
        .globl  bad_trap_handler
bad_trap_handler:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        mov     %l7, %o0                ! trap number
        mov     %l0, %o1                ! psr
        call    C_LABEL(do_hw_interrupt)
         mov    %l1, %o2                ! pc

        RESTORE_ALL
        
/* For now all IRQ's not registered get sent here. handler_irq() will
 * see if a routine is registered to handle this interrupt and if not
 * it will say so on the console.
 */

        .align  4
        .globl  real_irq_entry
real_irq_entry:
        SAVE_ALL
#ifdef __SMP__
        cmp     %l7, 9
        bne     1f
         nop

        GET_PROCESSOR_MID(l4, l5)
        set     C_LABEL(sun4m_interrupts), %l5
        ld      [%l5], %l5
        sethi   %hi(0x02000000), %l6
        sll     %l4, 12, %l4
        add     %l5, %l4, %l5
        ld      [%l5], %l4
        andcc   %l4, %l6, %g0
        be      1f
         nop

        b       linux_trap_ipi9_sun4m
         nop

1:
#endif
        ENTER_IRQ

#ifdef __SMP__
        cmp     %l7, 13
        bne     1f
         nop

        /* This is where we catch the level 13 reschedule soft-IRQ. */
        GET_PROCESSOR_MID(o3, o2)
        set     C_LABEL(sun4m_interrupts), %l5
        ld      [%l5], %o5
        sethi   %hi(0x20000000), %o4
        sll     %o3, 12, %o3
        add     %o5, %o3, %o5
        ld      [%o5], %o1              ! read processor irq pending reg
        andcc   %o1, %o4, %g0
        be      1f
         nop

        b       linux_trap_ipi13_sun4m
         nop

1:      

#endif

        /* start atomic operation with respect to software interrupts */
        sethi   %hi(C_LABEL(intr_count)), %l4
        ld      [%l4 + %lo(C_LABEL(intr_count))], %l5
        add     %l5, 0x1, %l5
        st      %l5, [%l4 + %lo(C_LABEL(intr_count))]

        /* Enable traps w/IRQs off, so we can call c-code properly.
         * Note how we are increasing PIL so we need to do two writes
         * to work around a MicroSPARC bug of sorts.
         */
        or      %l0, PSR_PIL, %l4

        wr      %l4, 0x0, %psr
        WRITE_PAUSE
        wr      %l4, PSR_ET, %psr
        WRITE_PAUSE

        mov     %l7, %o0                ! irq level
        call    C_LABEL(handler_irq)
         add    %sp, REGWIN_SZ, %o1     ! pt_regs ptr

rie_checkbh:
        sethi   %hi(C_LABEL(intr_count)), %l4
        ld      [%l4 + %lo(C_LABEL(intr_count))], %l5
        subcc   %l5, 0x1, %l5
        bne     2f      /* IRQ within IRQ, get out of here... */
         nop

        sethi   %hi(C_LABEL(bh_active)), %l3
        ld      [%l3 + %lo(C_LABEL(bh_active))], %g2
        sethi   %hi(C_LABEL(bh_mask)), %l3
        ld      [%l3 + %lo(C_LABEL(bh_mask))], %g3
        andcc   %g2, %g3, %g0
        be      2f
         nop

        call    C_LABEL(do_bottom_half) 
         nop

        /* Try again... */
        b       rie_checkbh
         nop
        
2:
        st      %l5, [%l4 + %lo(C_LABEL(intr_count))]

        LEAVE_IRQ
        RESTORE_ALL

        /* This routine handles illegal instructions and privileged
         * instruction attempts from user code.
         */
        .align  4
        .globl  bad_instruction
bad_instruction:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(do_illegal_instruction)
         mov    %l0, %o3

        RESTORE_ALL

        .align  4
        .globl  priv_instruction
priv_instruction:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(do_priv_instruction)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles unaligned data accesses.
         */
        .align  4
        .globl  mna_handler
mna_handler:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(do_memaccess_unaligned)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles floating point disabled traps. */
        .align  4
        .globl  fpd_trap_handler
fpd_trap_handler:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(do_fpd_trap)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Floating Point Exceptions. */
        .align  4
        .globl  fpe_trap_handler
fpe_trap_handler:
        set     fpsave_magic, %l5
        cmp     %l1, %l5
        be      1f
         sethi  %hi(C_LABEL(fpsave)), %l5
        or      %l5, %lo(C_LABEL(fpsave)), %l5
        cmp     %l1, %l5
        bne     2f
         sethi  %hi(fpsave_catch2), %l5
        or      %l5, %lo(fpsave_catch2), %l5
        wr      %l0, 0x0, %psr
        WRITE_PAUSE
        jmp     %l5
         rett   %l5 + 4
1:      
        sethi   %hi(fpsave_catch), %l5
        or      %l5, %lo(fpsave_catch), %l5
        wr      %l0, 0x0, %psr
        WRITE_PAUSE
        jmp     %l5
         rett   %l5 + 4

2:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(do_fpe_trap)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Tag Overflow Exceptions. */
        .align  4
        .globl  do_tag_overflow
do_tag_overflow:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(handle_tag_overflow)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Watchpoint Exceptions. */
        .align  4
        .globl  do_watchpoint
do_watchpoint:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(handle_watchpoint)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Register Access Exceptions. */
        .align  4
        .globl  do_reg_access
do_reg_access:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(handle_reg_access)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Co-Processor Disabled Exceptions. */
        .align  4
        .globl  do_cp_disabled
do_cp_disabled:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(handle_cp_disabled)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Unimplemented FLUSH Exceptions. */
        .align  4
        .globl  do_bad_flush
do_bad_flush:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(handle_bad_flush)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Co-Processor Exceptions. */
        .align  4
        .globl  do_cp_exception
do_cp_exception:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(handle_cp_exception)
         mov    %l0, %o3

        RESTORE_ALL

        /* This routine handles Hardware Divide By Zero Exceptions. */
        .align  4
        .globl  do_hw_divzero
do_hw_divzero:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr               ! re-enable traps
        WRITE_PAUSE

        add     %sp, REGWIN_SZ, %o0
        mov     %l1, %o1
        mov     %l2, %o2
        call    C_LABEL(handle_hw_divzero)
         mov    %l0, %o3

        RESTORE_ALL

        .align  4
        .globl  do_flush_windows
do_flush_windows:
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        andcc   %l0, PSR_PS, %g0
        bne     dfw_kernel
         nop

        call    C_LABEL(flush_user_windows)
         nop

        /* Advance over the trap instruction. */
        ld      [%sp + REGWIN_SZ + PT_NPC], %l1
        add     %l1, 0x4, %l2
        st      %l1, [%sp + REGWIN_SZ + PT_PC]
        st      %l2, [%sp + REGWIN_SZ + PT_NPC]

        RESTORE_ALL

        /* We get these for debugging routines using __builtin_return_address() */
dfw_kernel:
        FLUSH_ALL_KERNEL_WINDOWS

        /* Advance over the trap instruction. */
        ld      [%sp + REGWIN_SZ + PT_NPC], %l1
        add     %l1, 0x4, %l2
        st      %l1, [%sp + REGWIN_SZ + PT_PC]
        st      %l2, [%sp + REGWIN_SZ + PT_NPC]

        RESTORE_ALL

        /* The getcc software trap.  The user wants the condition codes from
         * the %psr in register %g1.
         */

        .align  4
        .globl  getcc_trap_handler
getcc_trap_handler:
        srl     %l0, 20, %g1    ! give user
        and     %g1, 0xf, %g1   ! only ICC bits in %psr
        jmp     %l2             ! advance over trap instruction
        rett    %l2 + 0x4       ! like this...

        /* The setcc software trap.  The user has condition codes in %g1
         * that it would like placed in the %psr.  Be careful not to flip
         * any unintentional bits!
         */

        .align  4
        .globl  setcc_trap_handler
setcc_trap_handler:
        sll     %g1, 0x14, %l4
        set     PSR_ICC, %l5
        andn    %l0, %l5, %l0   ! clear ICC bits in current %psr
        and     %l4, %l5, %l4   ! clear non-ICC bits in user value
        or      %l4, %l0, %l4   ! or them in... mix mix mix

        wr      %l4, 0x0, %psr  ! set new %psr
        WRITE_PAUSE             ! TI scumbags...

        jmp     %l2             ! advance over trap instruction
        rett    %l2 + 0x4       ! like this...

        .align  4
        .globl  linux_trap_nmi_sun4c
linux_trap_nmi_sun4c:
        SAVE_ALL
        ENTER_SYSCALL

        /* Ugh, we need to clear the IRQ line.  This is now
         * a very sun4c specific trap handler...
         */
        sethi   %hi(C_LABEL(interrupt_enable)), %l5
        ld      [%l5 + %lo(C_LABEL(interrupt_enable))], %l5
        ldub    [%l5], %l6
        andn    %l6, INTS_ENAB, %l6
        stb     %l6, [%l5]

        /* Now it is safe to re-enable traps without recursion. */
        or      %l0, PSR_PIL, %l0
        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        /* Now call the c-code with the pt_regs frame ptr and the
         * memory error registers as arguments.  The ordering chosen
         * here is due to unlatching semantics.
         */
        sethi   %hi(AC_SYNC_ERR), %o0
        add     %o0, 0x4, %o0
        lda     [%o0] ASI_CONTROL, %o2  ! sync vaddr
        sub     %o0, 0x4, %o0
        lda     [%o0] ASI_CONTROL, %o1  ! sync error
        add     %o0, 0xc, %o0
        lda     [%o0] ASI_CONTROL, %o4  ! async vaddr
        sub     %o0, 0x4, %o0
        lda     [%o0] ASI_CONTROL, %o3  ! async error
        call    C_LABEL(sparc_lvl15_nmi)
         add    %sp, REGWIN_SZ, %o0

        RESTORE_ALL

#ifdef __SMP__

        .align  4
        .globl  linux_trap_ipi9_sun4m
linux_trap_ipi9_sun4m:
        sethi   %hi(0x02000000), %o2
        GET_PROCESSOR_MID(o0, o1)
        set     C_LABEL(sun4m_interrupts), %l5
        ld      [%l5], %o5
        sll     %o0, 12, %o0
        add     %o5, %o0, %o5
        st      %o2, [%o5 + 4]
        WRITE_PAUSE

        ld      [%o5], %g0
        WRITE_PAUSE

        /* IRQ's off else we deadlock. */
        or      %l0, PSR_PIL, %l4
        wr      %l4, 0x0, %psr
        WRITE_PAUSE

        wr      %l4, PSR_ET, %psr
        WRITE_PAUSE

        call    C_LABEL(smp_message_irq)
         nop

        RESTORE_ALL_FASTIRQ

        .align  4
        .globl  linux_trap_ipi13_sun4m
linux_trap_ipi13_sun4m:
        /* NOTE: real_irq_entry saved state and grabbed klock already. */

        /* start atomic operation with respect to software interrupts */
        sethi   %hi(C_LABEL(intr_count)), %l4
        ld      [%l4 + %lo(C_LABEL(intr_count))], %l5
        add     %l5, 0x1, %l5
        st      %l5, [%l4 + %lo(C_LABEL(intr_count))]

        sethi   %hi(0x20000000), %o2
        GET_PROCESSOR_MID(o0, o1)
        set     C_LABEL(sun4m_interrupts), %l5
        ld      [%l5], %o5
        sll     %o0, 12, %o0
        add     %o5, %o0, %o5
        st      %o2, [%o5 + 4]
        WRITE_PAUSE

        ld      [%o5], %g0
        WRITE_PAUSE

        /* IRQ's off else we deadlock. */
        or      %l0, PSR_PIL, %l4
        wr      %l4, 0x0, %psr
        WRITE_PAUSE

        wr      %l4, PSR_ET, %psr
        WRITE_PAUSE

        call    C_LABEL(smp_reschedule_irq)
         nop

        sethi   %hi(C_LABEL(intr_count)), %l4
        ld      [%l4 + %lo(C_LABEL(intr_count))], %l5
        sub     %l5, 0x1, %l5
        st      %l5, [%l4 + %lo(C_LABEL(intr_count))]

        LEAVE_IRQ
        RESTORE_ALL

        .align  4
        .globl  linux_trap_ipi15_sun4m
linux_trap_ipi15_sun4m:
        SAVE_ALL

        /* First check for hard NMI memory error. */
        sethi   %hi(0xf0000000), %o2
        set     C_LABEL(sun4m_interrupts), %l5
        set     0x4000, %o3
        ld      [%l5], %l5
        add     %l5, %o3, %l5
        ld      [%l5], %l6
        andcc   %o2, %l6, %o2
        be      1f
         nop

        /* Asynchronous fault, why you little ?!#&%@... */
        sethi   %hi(0x80000000), %o2
        st      %o2, [%l5 + 0xc]
        WRITE_PAUSE
        ld      [%l5], %g0
        WRITE_PAUSE

        /* All interrupts are off... now safe to enable traps
         * and call C-code.
         */     
        or      %l0, PSR_PIL, %l4       ! I am very paranoid...
        wr      %l4, 0x0, %psr
        WRITE_PAUSE
        wr      %l4, PSR_ET, %psr
        WRITE_PAUSE
        call    C_LABEL(sun4m_nmi)
         nop

        sethi   %hi(0x80000000), %o2
        st      %o2, [%l5 + 0x8]
        WRITE_PAUSE
        ld      [%l5], %g0
        WRITE_PAUSE

        RESTORE_ALL_FASTIRQ

1:
        sethi   %hi(0x80000000), %o2
        GET_PROCESSOR_MID(o0, o1)
        set     C_LABEL(sun4m_interrupts), %l5
        ld      [%l5], %o5
        sll     %o0, 12, %o0
        add     %o5, %o0, %o5
        st      %o2, [%o5 + 4]
        WRITE_PAUSE

        ld      [%o5], %g0
        WRITE_PAUSE

        /* IRQ's off else we deadlock. */
        or      %l0, PSR_PIL, %l4
        wr      %l4, 0x0, %psr
        WRITE_PAUSE

        wr      %l4, PSR_ET, %psr
        WRITE_PAUSE

        call    C_LABEL(smp_message_irq)
         nop

        RESTORE_ALL_FASTIRQ

#endif

        .align  4
        .globl  sun4c_fault
sun4c_fault:
        SAVE_ALL
        ENTER_SYSCALL

        /* XXX This needs to be scheduled better */
        sethi   %hi(AC_SYNC_ERR), %l4
        add     %l4, 0x4, %l5           ! AC_SYNC_VA in %l5
        lda     [%l5] ASI_CONTROL, %o3          /* Address */
        lda     [%l4] ASI_CONTROL, %l6
        srl     %l6, 15, %l6
        and     %l6, 1, %o2     /* Write? */

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        mov     %l7, %o1                        /* Text fault? */
        call    C_LABEL(do_sparc_fault)
         add    %sp, REGWIN_SZ, %o0             /* pt_regs */

        RESTORE_ALL

        .align  4
        .globl  C_LABEL(srmmu_fault)
C_LABEL(srmmu_fault):
        mov     0x400, %l5
        mov     0x300, %l4

        lda     [%l5] ASI_M_MMUREGS, %l6        ! read sfar first
        lda     [%l4] ASI_M_MMUREGS, %l5        ! read sfsr last

        andn    %l6, 0xfff, %l6
        srl     %l5, 6, %l5                     ! and encode all info into l7

        and     %l5, 2, %l5
        or      %l5, %l6, %l6

        or      %l6, %l7, %l7                   ! l7 = [addr,write,txtfault]

        SAVE_ALL
        ENTER_SYSCALL

        mov     %l7, %o1
        mov     %l7, %o2
        and     %o1, 1, %o1             ! arg2 = text_faultp
        mov     %l7, %o3
        and     %o2, 2, %o2             ! arg3 = writep
        andn    %o3, 0xfff, %o3         ! arg4 = faulting address

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        call    C_LABEL(do_sparc_fault)
         add    %sp, REGWIN_SZ, %o0     ! arg1 = pt_regs ptr

        RESTORE_ALL

        /* SunOS uses syscall zero as the 'indirect syscall' it looks
         * like indir_syscall(scall_num, arg0, arg1, arg2...);  etc.
         * This is complete brain damage.
         */
        .globl  C_LABEL(sunos_indir)
C_LABEL(sunos_indir):
        ld      [%sp + REGWIN_SZ + PT_I0], %g1
        cmp     %g1, NR_SYSCALLS
        blu,a   1f
         sll    %g1, 0x2, %g1

        set     C_LABEL(sunos_nosys), %l6
        b       2f
         nop

1:
        set     C_LABEL(sunos_sys_table), %l7
        ld      [%l7 + %g1], %l6

2:      
        ld      [%sp + REGWIN_SZ + PT_I1], %o0
        ld      [%sp + REGWIN_SZ + PT_I2], %o1
        ld      [%sp + REGWIN_SZ + PT_I3], %o2
        mov     %o7, %l5
        ld      [%sp + REGWIN_SZ + PT_I4], %o3
        call    %l6
         ld     [%sp + REGWIN_SZ + PT_I5], %o4

        jmp     %l5 + 0x8               /* so stupid... */
         nop

        /* Note how we really return to ret_syscall because we share the
         * register window with our caller.
         */

        .align 4
        .globl  C_LABEL(sys_ptrace)
C_LABEL(sys_ptrace):
        call    C_LABEL(do_ptrace)
         add    %sp, REGWIN_SZ, %o0

        LOAD_CURRENT(l4, l5)
        ld      [%l4 + 0x14], %l5
        andcc   %l5, 0x20, %g0
        be      1f
         nop

        call    C_LABEL(syscall_trace)
         nop

1:
        RESTORE_ALL

        .align  4
        .globl  C_LABEL(sys_execve)
C_LABEL(sys_execve):
        mov     %o7, %l5
        call    C_LABEL(sparc_execve)
         add    %sp, REGWIN_SZ, %o0             ! pt_regs *regs arg

        jmp     %l5 + 0x8
         nop

        .align  4
        .globl  C_LABEL(sys_pipe)
C_LABEL(sys_pipe):
        mov     %o7, %l5

        call    C_LABEL(sparc_pipe)
         add    %sp, REGWIN_SZ, %o0             ! pt_regs *regs arg

        jmp     %l5 + 0x8
         nop

        .align  4
        .globl  C_LABEL(sys_sigpause)
C_LABEL(sys_sigpause):
        ld      [%sp + REGWIN_SZ + PT_I0], %o0
        call    C_LABEL(do_sigpause)
         add    %sp, REGWIN_SZ, %o1

        LOAD_CURRENT(l4, l5)
        ld      [%l4 + 0x14], %l5
        andcc   %l5, 0x20, %g0
        be      1f
         nop

        call    C_LABEL(syscall_trace)
         nop

1:
        /* We are returning to a signal handler. */
        RESTORE_ALL

        .align  4
        .globl  C_LABEL(sys_sigsuspend)
C_LABEL(sys_sigsuspend):
        call    C_LABEL(do_sigsuspend)
         add    %sp, REGWIN_SZ, %o0

        LOAD_CURRENT(l4, l5)
        ld      [%l4 + 0x14], %l5
        andcc   %l5, 0x20, %g0
        be      1f
         nop

        call    C_LABEL(syscall_trace)
         nop

1:
        /* We are returning to a signal handler. */
        RESTORE_ALL

        .align  4
        .globl  C_LABEL(sys_sigreturn)
C_LABEL(sys_sigreturn):
        call    C_LABEL(do_sigreturn)
         add    %sp, REGWIN_SZ, %o0

        LOAD_CURRENT(l4, l5)
        ld      [%l4 + 0x14], %l5
        andcc   %l5, 0x20, %g0
        be      1f
         nop

        call    C_LABEL(syscall_trace)
         nop

1:
        /* We don't want to muck with user registers like a
         * normal syscall, just return.
         */
        RESTORE_ALL

        /* Now that we have a real sys_clone, sys_fork() is
         * implemented in terms of it.  Our _real_ implementation
         * of SunOS vfork() will use sys_clone() instead.
         */
        .align  4
        .globl  C_LABEL(sys_fork), C_LABEL(sys_vfork)
C_LABEL(sys_vfork):
C_LABEL(sys_fork):
        mov     %o7, %l5

        /* Save the kernel state as of now. */
        FLUSH_ALL_KERNEL_WINDOWS;
        STORE_WINDOW(sp)
        LOAD_CURRENT(g6, g5)
        rd      %psr, %g4
        rd      %wim, %g5
        std     %g4, [%g6 + THREAD_FORK_KPSR]

        mov     SIGCHLD, %o0                    ! arg0: clone flags
        ld      [%sp + REGWIN_SZ + PT_FP], %o1  ! arg1: usp
        call    C_LABEL(do_fork)
         add    %sp, REGWIN_SZ, %o2             ! arg2: pt_regs ptr

        jmp     %l5 + 0x8
         nop
        
        /* Whee, kernel threads! */
        .globl  C_LABEL(sys_clone)
C_LABEL(sys_clone):
        mov     %o7, %l5

        /* Save the kernel state as of now. */
        FLUSH_ALL_KERNEL_WINDOWS;
        STORE_WINDOW(sp)
        LOAD_CURRENT(g6, g5)
        rd      %psr, %g4
        rd      %wim, %g5
        std     %g4, [%g6 + THREAD_FORK_KPSR]

        ldd     [%sp + REGWIN_SZ + PT_I0], %o0  ! arg0,1: flags,usp
        cmp     %o1, 0x0                        ! Is new_usp NULL?
        be,a    1f
         ld     [%sp + REGWIN_SZ + PT_FP], %o1  ! yes, use current usp
1:
        call    C_LABEL(do_fork)
         add    %sp, REGWIN_SZ, %o2             ! arg2: pt_regs ptr

        jmp     %l5 + 0x8
         nop

        /* Linux native and SunOS system calls enter here... */
        .align  4
        .globl  linux_sparc_syscall
linux_sparc_syscall:
        /* While we are here trying to optimize our lives
         * away, handle the easy bogus cases like a
         * ni_syscall or sysnum > NR_SYSCALLS etc.
         * In the cases where we cannot optimize the
         * call inline we don't really lose anything
         * performance wise because we are doing here
         * things which we did anyway in the original
         * routine.  The only added complexity is a
         * bit test, compare, and branch to decide
         * if we need to save process state or not.
         */

        /* XXX TODO: When we have ptrace working test
         * XXX       test for PF_TRACESYS in task flags.
         */

        /* Direct access to user regs, must faster. */
        cmp     %g1, NR_SYSCALLS
        blu,a   1f
         sll    %g1, 2, %l4

        set     C_LABEL(sys_ni_syscall), %l7
        b       syscall_is_too_hard
         nop

1:
        ld      [%l7 + %l4], %l7

        /* If bit-1 is set, this is a "fast" syscall.
         * This is the _complete_ overhead of this optimization,
         * and we save ourselves a load, so it evens out to nothing.
         */
        andcc   %l7, 0x1, %g0
        be      syscall_is_too_hard
         andn   %l7, 0x1, %l7

        jmpl    %l7, %g0
         nop

        .globl  syscall_is_too_hard
syscall_is_too_hard:
        rd      %wim, %l3
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

        LOAD_CURRENT(l4, l5)
        ld      [%l4 + 0x14], %l5
        andcc   %l5, 0x20, %g0
        be      2f
         nop

        call    C_LABEL(syscall_trace)
         nop

2:
        ldd     [%sp + REGWIN_SZ + PT_I0], %o0
        st      %o0, [%sp + REGWIN_SZ + PT_G0]  ! for restarting syscalls
        ldd     [%sp + REGWIN_SZ + PT_I2], %o2
        call    %l7
         ldd    [%sp + REGWIN_SZ + PT_I4], %o4

        st      %o0, [%sp + REGWIN_SZ + PT_I0]

        .globl  C_LABEL(ret_sys_call)
C_LABEL(ret_sys_call):
        ld      [%sp + REGWIN_SZ + PT_I0], %o0
        set     PSR_C, %l6
        cmp     %o0, -ENOIOCTLCMD
        bgeu    1f
         ld     [%sp + REGWIN_SZ + PT_PSR], %l5

        /* System call success, clear Carry condition code. */          
        andn    %l5, %l6, %l5
        b       2f
         st     %l5, [%sp + REGWIN_SZ + PT_PSR] 

1:
        /* System call failure, set Carry condition code.
         * Also, get abs(errno) to return to the process.
         */
        sub     %g0, %o0, %o0
        st      %o0, [%sp + REGWIN_SZ + PT_I0]
        or      %l5, %l6, %l5
        st      %l5, [%sp + REGWIN_SZ + PT_PSR]

2:
        LOAD_CURRENT(l4, l5)
        ld      [%l4 + 0x14], %l5
        andcc   %l5, 0x20, %g0
        be      3f
         nop

        call    C_LABEL(syscall_trace)
         nop

        /* Advance the pc and npc over the trap instruction. */
3:
        ld      [%sp + REGWIN_SZ + PT_NPC], %l1 /* pc  = npc   */
        add     %l1, 0x4, %l2                   /* npc = npc+4 */
        st      %l1, [%sp + REGWIN_SZ + PT_PC]
        st      %l2, [%sp + REGWIN_SZ + PT_NPC]

        RESTORE_ALL

        /* Solaris system calls enter here... */
        .align  4
        .globl  solaris_syscall
solaris_syscall:
        /* While we are here trying to optimize our lives
         * away, handle the easy bogus cases like a
         * ni_syscall or sysnum > NR_SYSCALLS etc.
         * In the cases where we cannot optimize the
         * call inline we don't really lose anything
         * performance wise because we are doing here
         * things which we did anyway in the original
         * routine.  The only added complexity is a
         * bit test, compare, and branch to decide
         * if we need to save process state or not.
         */

        /* XXX TODO: When we have ptrace working test
         * XXX       test for PF_TRACESYS in task flags.
         */

        /* Direct access to user regs, must faster. */
        cmp     %g1, NR_SYSCALLS
        blu,a   1f
         sll    %g1, 2, %l4

        set     C_LABEL(sys_ni_syscall), %l7
        b       solaris_is_too_hard
         nop

1:
        ld      [%l7 + %l4], %l7

        /* If bit-1 is set, this is a "fast" syscall.
         * This is the _complete_ overhead of this optimization,
         * and we save ourselves a load, so it evens out to nothing.
         */
        andcc   %l7, 0x1, %g0
        be      solaris_is_too_hard
         andn   %l7, 0x1, %l7

        jmpl    %l7, %g0
         nop

        .globl  solaris_is_too_hard
solaris_is_too_hard:
        rd      %wim, %l3
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

2:
        ldd     [%sp + REGWIN_SZ + PT_I0], %o0
        st      %o0, [%sp + REGWIN_SZ + PT_G0]  ! for restarting syscalls
        ldd     [%sp + REGWIN_SZ + PT_I2], %o2
        call    %l7
         ldd    [%sp + REGWIN_SZ + PT_I4], %o4

        st      %o0, [%sp + REGWIN_SZ + PT_I0]
        set     PSR_C, %l6
        cmp     %o0, -ENOIOCTLCMD
        bgeu    1f
         ld     [%sp + REGWIN_SZ + PT_PSR], %l5

        /* System call success, clear Carry condition code. */          
        andn    %l5, %l6, %l5
        b       2f
         st     %l5, [%sp + REGWIN_SZ + PT_PSR] 

1:
        /* System call failure, set Carry condition code.
         * Also, get abs(errno) to return to the process.
         */
        sub     %g0, %o0, %o0
        sethi   %hi(C_LABEL(solaris_xlatb_rorl)), %o3
        or      %o3, %lo(C_LABEL(solaris_xlatb_rorl)), %o3
        sll     %o0, 2, %o0
        ld      [%o3 + %o0], %o0
        st      %o0, [%sp + REGWIN_SZ + PT_I0]
        or      %l5, %l6, %l5
        st      %l5, [%sp + REGWIN_SZ + PT_PSR]

        /* Advance the pc and npc over the trap instruction. */
2:
        ld      [%sp + REGWIN_SZ + PT_NPC], %l1 /* pc  = npc   */
        add     %l1, 0x4, %l2                   /* npc = npc+4 */
        st      %l1, [%sp + REGWIN_SZ + PT_PC]
        st      %l2, [%sp + REGWIN_SZ + PT_NPC]

        RESTORE_ALL

        /* {net, open}bsd system calls enter here... */
        .align  4
        .globl  bsd_syscall
bsd_syscall:
        /* While we are here trying to optimize our lives
         * away, handle the easy bogus cases like a
         * ni_syscall or sysnum > NR_SYSCALLS etc.
         * In the cases where we cannot optimize the
         * call inline we don't really lose anything
         * performance wise because we are doing here
         * things which we did anyway in the original
         * routine.  The only added complexity is a
         * bit test, compare, and branch to decide
         * if we need to save process state or not.
         */

        /* XXX TODO: When we have ptrace working test
         * XXX       test for PF_TRACESYS in task flags.
         */

        /* Direct access to user regs, must faster. */
        cmp     %g1, NR_SYSCALLS
        blu,a   1f
         sll    %g1, 2, %l4

        set     C_LABEL(sys_ni_syscall), %l7
        b       bsd_is_too_hard
         nop

1:
        ld      [%l7 + %l4], %l7

        /* If bit-1 is set, this is a "fast" syscall.
         * This is the _complete_ overhead of this optimization,
         * and we save ourselves a load, so it evens out to nothing.
         */
        andcc   %l7, 0x1, %g0
        be      bsd_is_too_hard
         andn   %l7, 0x1, %l7

        jmpl    %l7, %g0
         nop

        .globl  bsd_is_too_hard
bsd_is_too_hard:
        rd      %wim, %l3
        SAVE_ALL
        ENTER_SYSCALL

        wr      %l0, PSR_ET, %psr
        WRITE_PAUSE

2:
        ldd     [%sp + REGWIN_SZ + PT_I0], %o0
        st      %o0, [%sp + REGWIN_SZ + PT_G0]  ! for restarting syscalls
        ldd     [%sp + REGWIN_SZ + PT_I2], %o2
        call    %l7
         ldd    [%sp + REGWIN_SZ + PT_I4], %o4

        st      %o0, [%sp + REGWIN_SZ + PT_I0]
        set     PSR_C, %l6
        cmp     %o0, -ENOIOCTLCMD
        bgeu    1f
         ld     [%sp + REGWIN_SZ + PT_PSR], %l5

        /* System call success, clear Carry condition code. */          
        andn    %l5, %l6, %l5
        b       2f
         st     %l5, [%sp + REGWIN_SZ + PT_PSR] 

1:
        /* System call failure, set Carry condition code.
         * Also, get abs(errno) to return to the process.
         */
        sub     %g0, %o0, %o0
#if 0 /* XXX todo XXX */
        sethi   %hi(C_LABEL(bsd_xlatb_rorl), %o3
        or      %o3, %lo(C_LABEL(bsd_xlatb_rorl)), %o3
        sll     %o0, 2, %o0
        ld      [%o3 + %o0], %o0
#endif
        st      %o0, [%sp + REGWIN_SZ + PT_I0]
        or      %l5, %l6, %l5
        st      %l5, [%sp + REGWIN_SZ + PT_PSR]

        /* Advance the pc and npc over the trap instruction. */
2:
        ld      [%sp + REGWIN_SZ + PT_NPC], %l1 /* pc  = npc   */
        add     %l1, 0x4, %l2                   /* npc = npc+4 */
        st      %l1, [%sp + REGWIN_SZ + PT_PC]
        st      %l2, [%sp + REGWIN_SZ + PT_NPC]

        RESTORE_ALL

/* Saving and restoring the FPU state is best done from lowlevel code.
 *
 * void fpsave(unsigned long *fpregs, unsigned long *fsr,
 *             void *fpqueue, unsigned long *fpqdepth)
 */

        .globl  C_LABEL(fpsave)
C_LABEL(fpsave):
        st      %fsr, [%o1]     ! this can trap on us if fpu is in bogon state
        ld      [%o1], %g1
        set     0x2000, %g4
        andcc   %g1, %g4, %g0
        be      2f
         mov    0, %g2

        /* We have an fpqueue to save. */
1:
        std     %fq, [%o2]
fpsave_magic:
        st      %fsr, [%o1]
        ld      [%o1], %g3
        andcc   %g3, %g4, %g0
        add     %g2, 1, %g2
        bne     1b
         add    %o2, 8, %o2

2:
        st      %g2, [%o3]

        std     %f0, [%o0 + 0x00]
        std     %f2, [%o0 + 0x08]
        std     %f4, [%o0 + 0x10]
        std     %f6, [%o0 + 0x18]
        std     %f8, [%o0 + 0x20]
        std     %f10, [%o0 + 0x28]
        std     %f12, [%o0 + 0x30]
        std     %f14, [%o0 + 0x38]
        std     %f16, [%o0 + 0x40]
        std     %f18, [%o0 + 0x48]
        std     %f20, [%o0 + 0x50]
        std     %f22, [%o0 + 0x58]
        std     %f24, [%o0 + 0x60]
        std     %f26, [%o0 + 0x68]
        std     %f28, [%o0 + 0x70]
        retl
         std    %f30, [%o0 + 0x78]

        /* Thanks for Theo Deraadt and the authors of the Sprite/netbsd/openbsd
         * code for pointing out this possible deadlock, while we save state
         * above we could trap on the fsr store so our low level fpu trap
         * code has to know how to deal with this.
         */
fpsave_catch:
        b       fpsave_magic + 4
         st     %fsr, [%o1]

fpsave_catch2:
        b       C_LABEL(fpsave) + 4
         st     %fsr, [%o1]

        /* void fpload(unsigned long *fpregs, unsigned long *fsr); */

        .globl  C_LABEL(fpload)
C_LABEL(fpload):
        ldd     [%o0 + 0x00], %f0
        ldd     [%o0 + 0x08], %f2
        ldd     [%o0 + 0x10], %f4
        ldd     [%o0 + 0x18], %f6
        ldd     [%o0 + 0x20], %f8
        ldd     [%o0 + 0x28], %f10
        ldd     [%o0 + 0x30], %f12
        ldd     [%o0 + 0x38], %f14
        ldd     [%o0 + 0x40], %f16
        ldd     [%o0 + 0x48], %f18
        ldd     [%o0 + 0x50], %f20
        ldd     [%o0 + 0x58], %f22
        ldd     [%o0 + 0x60], %f24
        ldd     [%o0 + 0x68], %f26
        ldd     [%o0 + 0x70], %f28
        ldd     [%o0 + 0x78], %f30
        ld      [%o1], %fsr
        retl
         nop

        .globl  C_LABEL(udelay)
C_LABEL(udelay):
        save    %sp, -REGWIN_SZ, %sp
        mov     %i0, %o0
        sethi   %hi(0x10c6), %o1
        call    .umul
         or     %o1, %lo(0x10c6), %o1
#ifndef __SMP__
        sethi   %hi(C_LABEL(loops_per_sec)), %o3
        call    .umul
         ld     [%o3 + %lo(C_LABEL(loops_per_sec))], %o1
#else
        GET_PROCESSOR_OFFSET(o4)
        set     C_LABEL(cpu_data), %o3
        call    .umul
         ld     [%o3 + %o4], %o1
#endif

        cmp     %o1, 0x0
1:
        bne     1b
         subcc  %o1, 1, %o1
        
        ret
        restore

/* End of entry.S */

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.