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

/*
* ========== Copyright Header Begin ==========================================
* 
* OpenSPARC T2 Processor File: tso_n1_mutex5_swap_casx.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 spinlock_addr_reg  		%o0
#define data_base_reg	  		%o1
#define to_reg	  			%o2
#define my_id_reg	  		%o3
#define test_reg	  		%o4
#define global_cnt_reg	  		%o5
#define tmp1	  			%i1
#define tmp2	  			%i2

#define TIMEOUT 	  		0x1000
#define ITERATIONS 	  		0x2

#include "hboot.s"

.global main

main:

	wr %g0, 0x4, %fprs         			! make sure fef is 1
	setx spinlock_address, tmp1, spinlock_addr_reg	! spinlock address
        set     TIMEOUT,	to_reg         		! set timeout count 
        set     ITERATIONS,	global_cnt_reg		! set iterations

        or      spinlock_addr_reg, %g0, my_id_reg

th_fork(th_main,tmp1)

th_main_0:
        add     my_id_reg, 0x10, my_id_reg		! this is my ID address
	stb	my_id_reg, [my_id_reg]			! write my ID there
	ba	getlock
	nop

th_main_1:
        add     my_id_reg, 0x18, my_id_reg
	stb	my_id_reg, [my_id_reg]
	ba	getlock
	nop


th_main_2:
        add     my_id_reg, 0x20, my_id_reg
	stb	my_id_reg, [my_id_reg]
	ba	getlock
	nop

th_main_3:
        add     my_id_reg, 0x28, my_id_reg
	stb	my_id_reg, [my_id_reg]
	ba	getlock
	nop

th_main_4:
        add     my_id_reg, 0x30, my_id_reg
	stb	my_id_reg, [my_id_reg]
	ba	getlock
	nop

th_main_5:
        add     my_id_reg, 0x38, my_id_reg
	stb	my_id_reg, [my_id_reg]
	ba	getlock
	nop

th_main_6:
        add     my_id_reg, 0x40, my_id_reg
	stb	my_id_reg, [my_id_reg]
	ba	getlock
	nop

th_main_7:
        add     my_id_reg, 0x48, my_id_reg
	stb	my_id_reg, [my_id_reg]
	ba	getlock
	nop
	
	ba bad_end
	nop


getlock:
        deccc   to_reg          			! dec timeout count
        be      bad_end                 		! branch if no timeout
        nop
	set 	1, tmp1					! some threads do
	andcc	tmp1, my_id_reg, tmp2			! swap_lock
	be	swap_lock				! some do cas_lock
	nop
cas_lock:	
        or      %g0, my_id_reg, test_reg       		! use cas
        cas     [spinlock_addr_reg], %g0, test_reg	! try to acquire lock
        tst     test_reg                       		! did we get it?
        bne     getlock
        nop
swap_lock:
        or      %g0, my_id_reg, test_reg                ! use swap
        swap    [spinlock_addr_reg], test_reg      	! try to acquire lock
        tst     test_reg                                ! did we get it?
        bne     getlock
        nop


gotlock:						! do soemthing
        set     TIMEOUT, to_reg         		! set to count again
	setx    protected_area,	tmp1, data_base_reg

	set 	20, %l0
loop1:
	ldd 	[my_id_reg], %d16			! read the ID
	std 	%d16, [data_base_reg]  			! store my ID in there
	add	data_base_reg, 8, data_base_reg 	! increment the address
	deccc	%l0
	bne 	loop1					! repeat
	nop

	set 	20, %l0
loop2:
	sub	data_base_reg, 8, data_base_reg 
	ldd 	[my_id_reg], %f16			! read the ID
	ldd 	[data_base_reg], %f0			! read the data area
	fcmps 	%fcc0, %f0, %f16 			! should be my ID
	fbne	%fcc0, bad_end
	nop
	deccc	%l0					! repeat
	bne 	loop2
	nop

clearlock:
        st        %g0, [spinlock_addr_reg]            ! unlock

check_done:
	deccc	global_cnt_reg
        be	good_end
	nop
	ba	getlock
	nop

good_end:
        ta      T_GOOD_TRAP
bad_end:
        ta      T_BAD_TRAP

!==========================
	.data

user_data_start:

spinlock_address:
	.word	0x0
	.skip 0x1000
.align  0x100
protected_area:
	.word	0xbeef
	.skip 0x1000
	.word	0xbeef
	

! some post-processing
Commit	Line	Data
86530b38 AT	1	/*
	2	* ========== Copyright Header Begin ==========================================
	3	*
	4	* OpenSPARC T2 Processor File: tso_n1_mutex5_swap_casx.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 spinlock_addr_reg %o0
	39	#define data_base_reg %o1
	40	#define to_reg %o2
	41	#define my_id_reg %o3
	42	#define test_reg %o4
	43	#define global_cnt_reg %o5
	44	#define tmp1 %i1
	45	#define tmp2 %i2
	46
	47	#define TIMEOUT 0x1000
	48	#define ITERATIONS 0x2
	49
	50	#include "hboot.s"
	51
	52	.global main
	53
	54	main:
	55
	56	wr %g0, 0x4, %fprs ! make sure fef is 1
	57	setx spinlock_address, tmp1, spinlock_addr_reg ! spinlock address
	58	set TIMEOUT, to_reg ! set timeout count
	59	set ITERATIONS, global_cnt_reg ! set iterations
	60
	61	or spinlock_addr_reg, %g0, my_id_reg
	62
	63	th_fork(th_main,tmp1)
	64
65	th_main_0:
66	add my_id_reg, 0x10, my_id_reg ! this is my ID address
67	stb my_id_reg, [my_id_reg] ! write my ID there
68	ba getlock
69	nop
70
71	th_main_1:
72	add my_id_reg, 0x18, my_id_reg
73	stb my_id_reg, [my_id_reg]
74	ba getlock
75	nop
76
77
78	th_main_2:
79	add my_id_reg, 0x20, my_id_reg
80	stb my_id_reg, [my_id_reg]
81	ba getlock
82	nop
83
84	th_main_3:
85	add my_id_reg, 0x28, my_id_reg
86	stb my_id_reg, [my_id_reg]
87	ba getlock
88	nop
89
90	th_main_4:
91	add my_id_reg, 0x30, my_id_reg
92	stb my_id_reg, [my_id_reg]
93	ba getlock
94	nop
95
96	th_main_5:
97	add my_id_reg, 0x38, my_id_reg
98	stb my_id_reg, [my_id_reg]
99	ba getlock
100	nop
101
102	th_main_6:
103	add my_id_reg, 0x40, my_id_reg
104	stb my_id_reg, [my_id_reg]
105	ba getlock
106	nop
107
108	th_main_7:
109	add my_id_reg, 0x48, my_id_reg
110	stb my_id_reg, [my_id_reg]
111	ba getlock
112	nop
113
114	ba bad_end
115	nop
116
117
118	getlock:
119	deccc to_reg ! dec timeout count
120	be bad_end ! branch if no timeout
121	nop
122	set 1, tmp1 ! some threads do
123	andcc tmp1, my_id_reg, tmp2 ! swap_lock
124	be swap_lock ! some do cas_lock
125	nop
126	cas_lock:
127	or %g0, my_id_reg, test_reg ! use cas
128	cas [spinlock_addr_reg], %g0, test_reg ! try to acquire lock
129	tst test_reg ! did we get it?
130	bne getlock
131	nop
132	swap_lock:
133	or %g0, my_id_reg, test_reg ! use swap
134	swap [spinlock_addr_reg], test_reg ! try to acquire lock
135	tst test_reg ! did we get it?
136	bne getlock
137	nop
138
139
140	gotlock: ! do soemthing
141	set TIMEOUT, to_reg ! set to count again
142	setx protected_area, tmp1, data_base_reg
143
144	set 20, %l0
145	loop1:
146	ldd [my_id_reg], %d16 ! read the ID
147	std %d16, [data_base_reg] ! store my ID in there
148	add data_base_reg, 8, data_base_reg ! increment the address
149	deccc %l0
150	bne loop1 ! repeat
151	nop
152
153	set 20, %l0
154	loop2:
155	sub data_base_reg, 8, data_base_reg
156	ldd [my_id_reg], %f16 ! read the ID
157	ldd [data_base_reg], %f0 ! read the data area
158	fcmps %fcc0, %f0, %f16 ! should be my ID
159	fbne %fcc0, bad_end
160	nop
161	deccc %l0 ! repeat
162	bne loop2
163	nop
164
165	clearlock:
166	st %g0, [spinlock_addr_reg] ! unlock
167
168	check_done:
169	deccc global_cnt_reg
170	be good_end
171	nop
172	ba getlock
173	nop
174
175	good_end:
176	ta T_GOOD_TRAP
177	bad_end:
178	ta T_BAD_TRAP
179
180	!==========================
181	.data
182
183	user_data_start:
184
185	spinlock_address:
186	.word 0x0
187	.skip 0x1000
188	.align 0x100
189	protected_area:
190	.word 0xbeef
191	.skip 0x1000
192	.word 0xbeef
193
194
195	! some post-processing
196