projects / OpenSPARC-T2-DV / blob
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV] / verif / diag / assembly / arch / prm / tso / tso_directed / tso_n1_cross_mod103.s
/*
* ========== Copyright Header Begin ==========================================
*
* OpenSPARC T2 Processor File: tso_n1_cross_mod103.s
* Copyright (C) 1995-2007 Sun Microsystems, Inc. All Rights Reserved
* 4150 Network Circle, Santa Clara, California 95054, U.S.A.
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; version 2 of the License.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* For the avoidance of doubt, and except that if any non-GPL license
* choice is available it will apply instead, Sun elects to use only
* the General Public License version 2 (GPLv2) at this time for any
* software where a choice of GPL license versions is made
* available with the language indicating that GPLv2 or any later version
* may be used, or where a choice of which version of the GPL is applied is
* otherwise unspecified.
*
* Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
* CA 95054 USA or visit www.sun.com if you need additional information or
* have any questions.
*
*
* ========== Copyright Header End ============================================
*/
#define MAIN_BASE_DATA_ADDR 0x160000
#define MAIN_BASE_TEXT_ADDR 0x150000
#define MAIN_BASE_DATA_ADDR_RA 0x100160000
#define MAIN_BASE_TEXT_ADDR_RA 0x100150000
#define USER_PAGE_CUSTOM_MAP
#include "hboot.s"
SECTION .MAIN TEXT_VA=0x150000, DATA_VA=0x160000
attr_text {
Name = .MAIN,
VA=MAIN_BASE_TEXT_ADDR,
RA=MAIN_BASE_TEXT_ADDR_RA,
PA=ra2pa(MAIN_BASE_TEXT_ADDR_RA,0),
part_0_ctx_nonzero_tsb_config_0,
TTE_G=0, TTE_Context=PCONTEXT, TTE_V=1, TTE_Size=0, TTE_NFO=0,
TTE_IE=0, TTE_Soft2=0, TTE_Diag=0, TTE_Soft=0,
TTE_L=0, TTE_CP=1, TTE_CV=1, TTE_EP=1, TTE_E=0, TTE_P=0, TTE_W=1
}
attr_data {
Name = .MAIN,
VA=MAIN_BASE_DATA_ADDR,
RA=MAIN_BASE_DATA_ADDR_RA,
PA=ra2pa(MAIN_BASE_DATA_ADDR_RA,0),
part_0_ctx_nonzero_tsb_config_0,
TTE_G=0, TTE_Context=PCONTEXT, TTE_V=1, TTE_Size=0, TTE_NFO=0,
TTE_IE=0, TTE_Soft2=0, TTE_Diag=0, TTE_Soft=0,
TTE_L=0, TTE_CP=1, TTE_CV=1, TTE_E=0, TTE_P=0, TTE_W=1
}
.text
.global main
main:
clr %l0
th_fork(th_main,%l0)
! this thread modfifies the code
!===============================
th_main_0:
!--------------------------------------------------------------------
setx exit_code1,%l0, %l1 ! pointers...
setx wait_loop1, %l0, %l3 !
ld [%l3], %o6 ! get the instruction in the D$
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! the new code is a jump instruction
!--------------------------------------------------------------------
setx exit_code2,%l0, %l1 ! pointers...
setx wait_loop2, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_code3,%l0, %l1 ! pointers...
setx wait_loop3, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_code4,%l0, %l1 ! pointers...
setx wait_loop4, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_code5,%l0, %l1 ! pointers...
setx wait_loop5, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_code6,%l0, %l1 ! pointers...
setx wait_loop6, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_code7,%l0, %l1 ! pointers...
setx wait_loop7, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_code8,%l0, %l1 ! pointers...
setx wait_loop8, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_code9,%l0, %l1 ! pointers...
setx wait_loop9, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_codea,%l0, %l1 ! pointers...
setx wait_loopa, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
!--------------------------------------------------------------------
setx exit_codeb,%l0, %l1 ! pointers...
setx wait_loopb, %l0, %l3 !
ld [%l3], %o6 !
ld [%l1], %o6 !
ld [%l1+4], %o7 !
st %o6, [%l3 + 8] ! modify the code.
st %o7, [%l3 + 4] ! store the jump
ba good_end
nop
!--------------------------------------------------------------------
! these are the receivers
!------------------------
.align 0x4
th_main_1:
th_main_4:
!--------------------------------------------------------------
set goon1, %i0
set 0x0, %i1
wait_loop1: ! wait
nop ! this will be replaced
nop ! this also (with a jump)
nop
ba wait_loop1
nop
goon1:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goon2, %i0
ba wait_loop2
nop
!--------------------------------------------------------------
wait_loop2: ! wait
nop ! this will be replaced
nop ! this (with a jump)
nop
ba wait_loop2
nop
goon2:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goon3, %i0
ba wait_loop3
nop
!--------------------------------------------------------------
wait_loop3: ! wait
nop ! this will be replaced
nop ! this too
nop
ba wait_loop3
nop
goon3:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goon4, %i0
ba wait_loop4
nop
!--------------------------------------------------------------
.align 0x4
wait_loop4: ! wait
nop ! this will be replaced
nop ! this too
nop
ba wait_loop4
nop
goon4:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goon5, %i0
ba wait_loop5
nop
!--------------------------------------------------------------
.align 0x4
wait_loop5: ! wait
nop ! this will be replaced
nop ! this too
nop
ba wait_loop5
nop
goon5:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goon6, %i0
ba wait_loop6
nop
!--------------------------------------------------------------
.align 0x4
wait_loop6: ! wait
nop ! this will be replaced
nop ! this too
nop
ba wait_loop6
nop
goon6:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goon7, %i0
ba wait_loop7
nop
!--------------------------------------------------------------
.align 0x4
wait_loop7: ! wait
nop ! this will be replaced
nop ! this too
nop
ba wait_loop7
nop
goon7:
subcc %i1, 1, %i1
bne bad_end
nop
set goon8, %i0
ba wait_loop8
nop
!--------------------------------------------------------------
.align 0x4
wait_loop8: ! wait
nop ! this will be replaced
nop ! this too
nop
ba wait_loop8
nop
goon8:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goon9, %i0
ba wait_loop9
nop
!--------------------------------------------------------------
.align 0x4
wait_loop9: ! wait
nop ! this will be replaced
nop ! this too
nop
ba wait_loop9
nop
goon9:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goona, %i0
ba wait_loopa
nop
!--------------------------------------------------------------
.align 0x4
wait_loopa: ! wait
nop ! this too
nop ! this too
nop
ba wait_loopa
nop
goona:
subcc %i1, 1, %i1
bne bad_end
nop
set 0x0, %i1
set goonb, %i0
ba wait_loopb
nop
!--------------------------------------------------------------
wait_loopb: ! wait
nop ! this too
nop ! this too
nop
ba wait_loopb
nop
goonb:
subcc %i1, 1, %i1
bne bad_end
nop
!--------------------------------------------------------------
good_end:
ta T_GOOD_TRAP
bad_end:
ta T_BAD_TRAP
!--------------------------------------------------------------
.align 0x4
exit_code1:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code2:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code3:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code4:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code5:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code6:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code7:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code8:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_code9:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_codea:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.align 0x4
exit_codeb:
set 0x1, %i1
jmpl %i0,%o7
set 0x0, %i1
!--------------------------------------------------------------
.data
.global ready
ready:
.word 0x0
.end
Full OpenSPARC design & verification tarball including full HDL.