* ========== Copyright Header Begin ==========================================
* OpenSPARC T2 Processor File: tso_n1_dekker1.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
* Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
* CA 95054 USA or visit www.sun.com if you need additional information or
* ========== Copyright Header End ============================================
#define global_cnt_reg %o0
#define data_base_reg %o1
setx addrA, %l0, addrA_reg !
setx addrB, %l0, addrB_reg !
set TIMEOUT, to_reg ! set timeout count
set ITERATIONS, global_cnt_reg !
add my_id_reg, 0x20, my_id_reg ! this is my ID address
set 1, test_reg ! load the swap data register
st test_reg, [addrA_reg] ! try to acquire lock
ld [addrB_reg], test_reg ! try to acquire lock
st %g0, [addrA_reg] ! release
deccc to_reg ! dec timeout count
bne getlock0 ! branch if no timeout
setx protected_area, %l0, data_base_reg ! the data area
add my_id_reg, data_base_reg, %i1
st %i1, [data_base_reg] ! store my ID in there
add data_base_reg, 4, data_base_reg ! increment the address
sub data_base_reg, 4, data_base_reg
ld [data_base_reg], %l1 ! read the data area
subcc %l1, %i1, %l1 ! should be same is i1
st %g0, [addrA_reg] ! unlock
nop;nop;nop;nop; ! backoff
set TIMEOUT, to_reg ! set timeout count again
add my_id_reg, 0x24, my_id_reg
set 1, test_reg ! load the swap data register
st test_reg, [addrB_reg] ! try to acquire lock addr B
ld [addrA_reg], test_reg ! try to acquire lock addr A
st %g0, [addrB_reg] ! release
sub backoff_hlp1, to_reg, backoff_cnt
nop;nop;nop;nop; ! wait - quasi exponential backoff
deccc backoff_cnt ! well, actually kinda linear.
deccc to_reg ! dec timeout count
bne getlock1 ! branch if no timeout
setx protected_area, %l0, data_base_reg ! the data area
add my_id_reg, data_base_reg, %i1
st %i1, [data_base_reg] ! store my ID in there
add data_base_reg, 4, data_base_reg ! increment the address
sub data_base_reg, 4, data_base_reg
ld [data_base_reg], %l1 ! read the data area
subcc %l1, %i1, %l1 ! should be same is i1
st %g0, [addrB_reg] ! unlock
set TIMEOUT, to_reg ! set timeout count again
!==========================
SECTION .MY_DATA0 TEXT_VA=0xf0100000, DATA_VA=0xd0100000
PA= ra2pa(0x1d0100000,0),
part_0_ctx_nonzero_tsb_config_0,
TTE_G=1, TTE_Context=0x44, 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
PA= ra2pa(0x1f0100000,0),
part_0_ctx_nonzero_tsb_config_0,
TTE_G=1, TTE_Context=0x44, 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
SECTION .MY_DATA1 TEXT_VA=0xf1110000, DATA_VA=0xd1110000
PA= ra2pa(0x1d1110000,0),
part_0_ctx_nonzero_tsb_config_0,
TTE_G=1, TTE_Context=0x44, 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
PA= ra2pa(0x1f1110000,0),
part_0_ctx_nonzero_tsb_config_0,
TTE_G=1, TTE_Context=0x44, 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