math64.s
上传用户:dangjiwu
上传日期:2013-07-19
资源大小:42019k
文件大小:4k
- ; ***** BEGIN LICENSE BLOCK *****
- ; Source last modified: $Id: math64.s,v 1.2.46.1 2004/07/09 02:00:51 hubbe Exp $
- ;
- ; * Portions Copyright (c) 1995-2002 RealNetworks, Inc. All Rights Reserved.
- ;
- ; The contents of this file, and the files included with this file,
- ; are subject to the current version of the RealNetworks Public
- ; Source License (the "RPSL") available at
- ; http://www.helixcommunity.org/content/rpsl unless you have licensed
- ; the file under the current version of the RealNetworks Community
- ; Source License (the "RCSL") available at
- ; http://www.helixcommunity.org/content/rcsl, in which case the RCSL
- ; will apply. You may also obtain the license terms directly from
- ; RealNetworks. You may not use this file except in compliance with
- ; the RPSL or, if you have a valid RCSL with RealNetworks applicable
- ; to this file, the RCSL. Please see the applicable RPSL or RCSL for
- ; the rights, obligations and limitations governing use of the
- ; contents of the file.
- ;
- ; Alternatively, the contents of this file may be used under the
- ; terms of the GNU General Public License Version 2 or later (the
- ; "GPL") in which case the provisions of the GPL are applicable
- ; instead of those above. If you wish to allow use of your version of
- ; this file only under the terms of the GPL, and not to allow others
- ; to use your version of this file under the terms of either the RPSL
- ; or RCSL, indicate your decision by deleting the provisions above
- ; and replace them with the notice and other provisions required by
- ; the GPL. If you do not delete the provisions above, a recipient may
- ; use your version of this file under the terms of any one of the
- ; RPSL, the RCSL or the GPL.
- ;
- ; This file is part of the Helix DNA Technology. RealNetworks is the
- ; developer of the Original Code and owns the copyrights in the
- ; portions it created.
- ;
- ; This file, and the files included with this file, is distributed
- ; and made available on an 'AS IS' basis, WITHOUT WARRANTY OF ANY
- ; KIND, EITHER EXPRESS OR IMPLIED, AND REALNETWORKS HEREBY DISCLAIMS
- ; ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES
- ; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET
- ; ENJOYMENT OR NON-INFRINGEMENT.
- ;
- ; Technology Compatibility Kit Test Suite(s) Location:
- ; http://www.helixcommunity.org/content/tck
- ;
- ; Contributor(s):
- ;
- ; ***** END LICENSE BLOCK *****
- ;/* assembly.s
- ; *
- ; * the assembly routines are written in this separate .s file because EVC++ won't inline...
- ; *
- ; * Notes on APCS (ARM procedure call standard):
- ; * - first four arguments are in r0-r3
- ; * - additional argumets are pushed onto stack in reverse order
- ; * - return value goes in r0
- ; * - routines can overwrite r0-r3, r12 without saving
- ; * - other registers must be preserved with stm/ldm commands
- ; *
- ; * Equivalent register names:
- ; *
- ; * r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 r13 r14 r15
- ; * ---------------------------------------------------------------
- ; * a1 a2 a3 a4 v1 v2 v3 v4 v5 v6 sl fp ip sp lr pc
- ; */
- INCLUDE kxarm.h
- TEXTAREA
- ; int MULSHIFT32(int x, int y)
- LEAF_ENTRY MulShift32
- smull r2,r0,r1,r0
- mov pc, lr
- ENTRY_END MulShift32
- ; int MulShift31(int x, int y)
- LEAF_ENTRY MulShift31
- smull r2,r0,r1,r0
- mov r2,r2,lsr #31
- orr r0,r2,r0,lsl #1
- mov pc, lr
- ENTRY_END MulShift31
- ; int MULSHIFT30(int x, int y)
- LEAF_ENTRY MulShift30
- smull r2,r0,r1,r0
- mov r2,r2,lsr #30
- orr r0,r2,r0,lsl #2
- mov pc, lr
- ENTRY_END MulShift30
- ; int MulShiftN(int x, int y, int n)
- LEAF_ENTRY MulShiftN
- smull r3,r0,r1,r0 ; r0 hi, h3 lo
- mov r3,r3,lsr r2 ; shift lo right by r2
- rsb r2,r2,#32
- orr r0,r3,r0,lsl r2 ; shift hi left by 32-r2, and or in
- mov pc, lr
- ENTRY_END MulShiftN
- END