[OpenSPARC-T2-DV] / verif / diag / assembly / arch / prm / tso / tso_directed / tso_n1_self_mod201.s

/*
* ========== Copyright Header Begin ==========================================
* 
* OpenSPARC T2 Processor File: tso_n1_self_mod201.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_E=0, TTE_EP=1, 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

firstExecuteMain1:
	set	main1,%i0
	jmpl	%i0,%o7          !the jump causes a new cache line to be
        nop                      !loaded into the l2 and the icache.
        nop
        nop


modifyCodeAtMain1:
	set	copied_code, %i0 ! get some known data into the store reg.
	set	main1,%i1  	! change data at main
	ld	[%i1],%l0	! bring to D$ for testing
	ld	[%i0],%l0
	st	%i1, [%i1]
	cas	[%i1], %i1, %l0 ! cas should succeed here and modify the code
	flush	%i0 		! flush

execute_main1_again:
        set     main1,%i0
        jmpl    %i0,%o7          !the jump causes a new cache line to be
        nop                      !loaded into the l2 and the icache.

	mov 7, %l1		 ! check that the modified instruction
	sub %l1, %l0, %l1	 ! is used and not the original
	brnz,pn %l1, bad_end
	nop

get_new_cache_line:
	set	main2, %i0
	set	new_cache_line, %i1
	ld	[%i0], %l0
	st	%i1,[%i1]
	cas	[%i1], %i1, %l0
	flush	%i0       

execute_new_cache_line:
        set     new_cache_line,%i0
        jmpl    %i0,%o7          !the jump causes a new cache line to be
        nop                      !loaded into the l2 and the icache.
        nop
        set  0xbe, %l1
        sub %l1, %l0, %l1
        brnz,pn %l1, bad_end
        nop
 
normal_end:
        ta      T_GOOD_TRAP
bad_end:
        ta      T_BAD_TRAP


!==========================================================================
! the point of these next two pages is to have text pages that
! can be written and read
! The first page holds 2 cache lines worth, the second page has 1 cache line.
!==========================================================================

main1:
        mov     1,%l0           ! Replaced with copied_code second pass
	jmpl	%o7+8, %g0
	nop
copied_code:
	mov	7,%l0
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
new_cache_line:
	mov	0xbad,%l0
	jmpl	%o7+8, %g0
        nop
        nop
user_text2_end:

main2:
        mov     0xbe,%l0           ! Replaced with copied_code second pass
	jmpl	%o7+8, %g0
	nop

!======================================
.data
user_data_start:
	.word 0x0
user_data_end:
Commit	Line	Data
86530b38 AT	1	/*
	2	* ========== Copyright Header Begin ==========================================
	3	*
	4	* OpenSPARC T2 Processor File: tso_n1_self_mod201.s
	5	* Copyright (C) 1995-2007 Sun Microsystems, Inc. All Rights Reserved
	6	* 4150 Network Circle, Santa Clara, California 95054, U.S.A.
	7	*
	8	* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
	9	*
	10	* This program is free software; you can redistribute it and/or modify
	11	* it under the terms of the GNU General Public License as published by
	12	* the Free Software Foundation; version 2 of the License.
	13	*
	14	* This program is distributed in the hope that it will be useful,
	15	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	16	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	* GNU General Public License for more details.
	18	*
	19	* You should have received a copy of the GNU General Public License
	20	* along with this program; if not, write to the Free Software
	21	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	22	*
	23	* For the avoidance of doubt, and except that if any non-GPL license
	24	* choice is available it will apply instead, Sun elects to use only
	25	* the General Public License version 2 (GPLv2) at this time for any
	26	* software where a choice of GPL license versions is made
	27	* available with the language indicating that GPLv2 or any later version
	28	* may be used, or where a choice of which version of the GPL is applied is
	29	* otherwise unspecified.
	30	*
	31	* Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
	32	* CA 95054 USA or visit www.sun.com if you need additional information or
	33	* have any questions.
	34	*
	35	*
	36	* ========== Copyright Header End ============================================
	37	*/
	38	#define MAIN_BASE_DATA_ADDR 0x160000
	39	#define MAIN_BASE_TEXT_ADDR 0x150000
	40	#define MAIN_BASE_DATA_ADDR_RA 0x100160000
	41	#define MAIN_BASE_TEXT_ADDR_RA 0x100150000
	42
	43	#define USER_PAGE_CUSTOM_MAP
	44	#include "hboot.s"
	45
	46	SECTION .MAIN TEXT_VA=0x150000, DATA_VA=0x160000
	47
	48	attr_text {
	49	Name = .MAIN,
	50	VA=MAIN_BASE_TEXT_ADDR,
	51	RA=MAIN_BASE_TEXT_ADDR_RA,
	52	PA=ra2pa(MAIN_BASE_TEXT_ADDR_RA,0),
	53	part_0_ctx_nonzero_tsb_config_0,
	54	TTE_G=0, TTE_Context=PCONTEXT, TTE_V=1, TTE_Size=0, TTE_NFO=0,
	55	TTE_IE=0, TTE_Soft2=0, TTE_Diag=0, TTE_Soft=0,
	56	TTE_L=0, TTE_CP=1, TTE_CV=1, TTE_E=0, TTE_EP=1, TTE_P=0, TTE_W=1
	57	}
	58	attr_data {
	59	Name = .MAIN,
	60	VA=MAIN_BASE_DATA_ADDR,
	61	RA=MAIN_BASE_DATA_ADDR_RA,
	62	PA=ra2pa(MAIN_BASE_DATA_ADDR_RA,0),
	63	part_0_ctx_nonzero_tsb_config_0,
	64	TTE_G=0, TTE_Context=PCONTEXT, TTE_V=1, TTE_Size=0, TTE_NFO=0,
65	TTE_IE=0, TTE_Soft2=0, TTE_Diag=0, TTE_Soft=0,
66	TTE_L=0, TTE_CP=1, TTE_CV=1, TTE_E=0, TTE_P=0, TTE_W=1
67	}
68
69	.text
70	.global main
71	main: clr %l0
72
73	firstExecuteMain1:
74	set main1,%i0
75	jmpl %i0,%o7 !the jump causes a new cache line to be
76	nop !loaded into the l2 and the icache.
77	nop
78	nop
79
80
81	modifyCodeAtMain1:
82	set copied_code, %i0 ! get some known data into the store reg.
83	set main1,%i1 ! change data at main
84	ld [%i1],%l0 ! bring to D$ for testing
85	ld [%i0],%l0
86	st %i1, [%i1]
87	cas [%i1], %i1, %l0 ! cas should succeed here and modify the code
88	flush %i0 ! flush
89
90	execute_main1_again:
91	set main1,%i0
92	jmpl %i0,%o7 !the jump causes a new cache line to be
93	nop !loaded into the l2 and the icache.
94
95	mov 7, %l1 ! check that the modified instruction
96	sub %l1, %l0, %l1 ! is used and not the original
97	brnz,pn %l1, bad_end
98	nop
99
100	get_new_cache_line:
101	set main2, %i0
102	set new_cache_line, %i1
103	ld [%i0], %l0
104	st %i1,[%i1]
105	cas [%i1], %i1, %l0
106	flush %i0
107
108	execute_new_cache_line:
109	set new_cache_line,%i0
110	jmpl %i0,%o7 !the jump causes a new cache line to be
111	nop !loaded into the l2 and the icache.
112	nop
113	set 0xbe, %l1
114	sub %l1, %l0, %l1
115	brnz,pn %l1, bad_end
116	nop
117
118	normal_end:
119	ta T_GOOD_TRAP
120	bad_end:
121	ta T_BAD_TRAP
122
123
124	!==========================================================================
125	! the point of these next two pages is to have text pages that
126	! can be written and read
127	! The first page holds 2 cache lines worth, the second page has 1 cache line.
128	!==========================================================================
129
130	main1:
131	mov 1,%l0 ! Replaced with copied_code second pass
132	jmpl %o7+8, %g0
133	nop
134	copied_code:
135	mov 7,%l0
136	nop
137	nop
138	nop
139	nop
140	nop
141	nop
142	nop
143	nop
144	nop
145	nop
146	nop
147	nop
148	new_cache_line:
149	mov 0xbad,%l0
150	jmpl %o7+8, %g0
151	nop
152	nop
153	user_text2_end:
154
155	main2:
156	mov 0xbe,%l0 ! Replaced with copied_code second pass
157	jmpl %o7+8, %g0
158	nop
159
160	!======================================
161	.data
162	user_data_start:
163	.word 0x0
164	user_data_end: