97 lines
2.3 KiB
ArmAsm
97 lines
2.3 KiB
ArmAsm
.file "poly_div.S"
|
|
/*---------------------------------------------------------------------------+
|
|
| poly_div.S |
|
|
| |
|
|
| A set of functions to divide 64 bit integers by fixed numbers. |
|
|
| |
|
|
| Copyright (C) 1992 W. Metzenthen, 22 Parker St, Ormond, Vic 3163, |
|
|
| Australia. E-mail billm@vaxc.cc.monash.edu.au |
|
|
| |
|
|
| Call from C as: |
|
|
| void poly_div2(unsigned long long *x) |
|
|
| void poly_div4(unsigned long long *x) |
|
|
| void poly_div16(unsigned long long *x) |
|
|
| |
|
|
+---------------------------------------------------------------------------*/
|
|
|
|
#include "fpu_asm.h"
|
|
|
|
.text
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
.align 2,144
|
|
.globl _poly_div2
|
|
_poly_div2:
|
|
pushl %ebp
|
|
movl %esp,%ebp
|
|
|
|
movl PARAM1,%ecx
|
|
movw (%ecx),%ax
|
|
|
|
shrl $1,4(%ecx)
|
|
rcrl $1,(%ecx)
|
|
|
|
testw $1,%ax
|
|
je poly_div2_exit
|
|
|
|
addl $1,(%ecx)
|
|
adcl $0,4(%ecx)
|
|
poly_div2_exit:
|
|
|
|
leave
|
|
ret
|
|
/*---------------------------------------------------------------------------*/
|
|
.align 2,144
|
|
.globl _poly_div4
|
|
_poly_div4:
|
|
pushl %ebp
|
|
movl %esp,%ebp
|
|
|
|
movl PARAM1,%ecx
|
|
movw (%ecx),%ax
|
|
|
|
movl 4(%ecx),%edx
|
|
shll $30,%edx
|
|
|
|
shrl $2,4(%ecx)
|
|
shrl $2,(%ecx)
|
|
|
|
orl %edx,(%ecx)
|
|
|
|
testw $2,%ax
|
|
je poly_div4_exit
|
|
|
|
addl $1,(%ecx)
|
|
adcl $0,4(%ecx)
|
|
poly_div4_exit:
|
|
|
|
leave
|
|
ret
|
|
/*---------------------------------------------------------------------------*/
|
|
.align 2,144
|
|
.globl _poly_div16
|
|
_poly_div16:
|
|
pushl %ebp
|
|
movl %esp,%ebp
|
|
|
|
movl PARAM1,%ecx
|
|
movw (%ecx),%ax
|
|
|
|
movl 4(%ecx),%edx
|
|
shll $28,%edx
|
|
|
|
shrl $4,4(%ecx)
|
|
shrl $4,(%ecx)
|
|
|
|
orl %edx,(%ecx)
|
|
|
|
testw $8,%ax
|
|
je poly_div16_exit
|
|
|
|
addl $1,(%ecx)
|
|
adcl $0,4(%ecx)
|
|
poly_div16_exit:
|
|
|
|
leave
|
|
ret
|
|
/*---------------------------------------------------------------------------*/
|