Remove unused assembler modules.
This commit is contained in:
Andy Polyakov
parent
67ea999d4a
commit
da30c74a27
File diff suppressed because it is too large
Load Diff
@ -1,533 +0,0 @@
|
|||||||
|
|
||||||
# DEC Alpha assember
|
|
||||||
# The bn_div64 is actually gcc output but the other parts are hand done.
|
|
||||||
# Thanks to tzeruch@ceddec.com for sending me the gcc output for
|
|
||||||
# bn_div64.
|
|
||||||
# I've gone back and re-done most of routines.
|
|
||||||
# The key thing to remeber for the 164 CPU is that while a
|
|
||||||
# multiply operation takes 8 cycles, another one can only be issued
|
|
||||||
# after 4 cycles have elapsed. I've done modification to help
|
|
||||||
# improve this. Also, normally, a ld instruction will not be available
|
|
||||||
# for about 3 cycles.
|
|
||||||
.file 1 "bn_asm.c"
|
|
||||||
.set noat
|
|
||||||
gcc2_compiled.:
|
|
||||||
__gnu_compiled_c:
|
|
||||||
.text
|
|
||||||
.align 3
|
|
||||||
.globl bn_mul_add_words
|
|
||||||
.ent bn_mul_add_words
|
|
||||||
bn_mul_add_words:
|
|
||||||
bn_mul_add_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
.align 5
|
|
||||||
subq $18,4,$18
|
|
||||||
bis $31,$31,$0
|
|
||||||
blt $18,$43 # if we are -1, -2, -3 or -4 goto tail code
|
|
||||||
ldq $20,0($17) # 1 1
|
|
||||||
ldq $1,0($16) # 1 1
|
|
||||||
.align 3
|
|
||||||
$42:
|
|
||||||
mulq $20,$19,$5 # 1 2 1 ######
|
|
||||||
ldq $21,8($17) # 2 1
|
|
||||||
ldq $2,8($16) # 2 1
|
|
||||||
umulh $20,$19,$20 # 1 2 ######
|
|
||||||
ldq $27,16($17) # 3 1
|
|
||||||
ldq $3,16($16) # 3 1
|
|
||||||
mulq $21,$19,$6 # 2 2 1 ######
|
|
||||||
ldq $28,24($17) # 4 1
|
|
||||||
addq $1,$5,$1 # 1 2 2
|
|
||||||
ldq $4,24($16) # 4 1
|
|
||||||
umulh $21,$19,$21 # 2 2 ######
|
|
||||||
cmpult $1,$5,$22 # 1 2 3 1
|
|
||||||
addq $20,$22,$20 # 1 3 1
|
|
||||||
addq $1,$0,$1 # 1 2 3 1
|
|
||||||
mulq $27,$19,$7 # 3 2 1 ######
|
|
||||||
cmpult $1,$0,$0 # 1 2 3 2
|
|
||||||
addq $2,$6,$2 # 2 2 2
|
|
||||||
addq $20,$0,$0 # 1 3 2
|
|
||||||
cmpult $2,$6,$23 # 2 2 3 1
|
|
||||||
addq $21,$23,$21 # 2 3 1
|
|
||||||
umulh $27,$19,$27 # 3 2 ######
|
|
||||||
addq $2,$0,$2 # 2 2 3 1
|
|
||||||
cmpult $2,$0,$0 # 2 2 3 2
|
|
||||||
subq $18,4,$18
|
|
||||||
mulq $28,$19,$8 # 4 2 1 ######
|
|
||||||
addq $21,$0,$0 # 2 3 2
|
|
||||||
addq $3,$7,$3 # 3 2 2
|
|
||||||
addq $16,32,$16
|
|
||||||
cmpult $3,$7,$24 # 3 2 3 1
|
|
||||||
stq $1,-32($16) # 1 2 4
|
|
||||||
umulh $28,$19,$28 # 4 2 ######
|
|
||||||
addq $27,$24,$27 # 3 3 1
|
|
||||||
addq $3,$0,$3 # 3 2 3 1
|
|
||||||
stq $2,-24($16) # 2 2 4
|
|
||||||
cmpult $3,$0,$0 # 3 2 3 2
|
|
||||||
stq $3,-16($16) # 3 2 4
|
|
||||||
addq $4,$8,$4 # 4 2 2
|
|
||||||
addq $27,$0,$0 # 3 3 2
|
|
||||||
cmpult $4,$8,$25 # 4 2 3 1
|
|
||||||
addq $17,32,$17
|
|
||||||
addq $28,$25,$28 # 4 3 1
|
|
||||||
addq $4,$0,$4 # 4 2 3 1
|
|
||||||
cmpult $4,$0,$0 # 4 2 3 2
|
|
||||||
stq $4,-8($16) # 4 2 4
|
|
||||||
addq $28,$0,$0 # 4 3 2
|
|
||||||
blt $18,$43
|
|
||||||
|
|
||||||
ldq $20,0($17) # 1 1
|
|
||||||
ldq $1,0($16) # 1 1
|
|
||||||
|
|
||||||
br $42
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$45:
|
|
||||||
ldq $20,0($17) # 4 1
|
|
||||||
ldq $1,0($16) # 4 1
|
|
||||||
mulq $20,$19,$5 # 4 2 1
|
|
||||||
subq $18,1,$18
|
|
||||||
addq $16,8,$16
|
|
||||||
addq $17,8,$17
|
|
||||||
umulh $20,$19,$20 # 4 2
|
|
||||||
addq $1,$5,$1 # 4 2 2
|
|
||||||
cmpult $1,$5,$22 # 4 2 3 1
|
|
||||||
addq $20,$22,$20 # 4 3 1
|
|
||||||
addq $1,$0,$1 # 4 2 3 1
|
|
||||||
cmpult $1,$0,$0 # 4 2 3 2
|
|
||||||
addq $20,$0,$0 # 4 3 2
|
|
||||||
stq $1,-8($16) # 4 2 4
|
|
||||||
bgt $18,$45
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$43:
|
|
||||||
addq $18,4,$18
|
|
||||||
bgt $18,$45 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.end bn_mul_add_words
|
|
||||||
.align 3
|
|
||||||
.globl bn_mul_words
|
|
||||||
.ent bn_mul_words
|
|
||||||
bn_mul_words:
|
|
||||||
bn_mul_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
.align 5
|
|
||||||
subq $18,4,$18
|
|
||||||
bis $31,$31,$0
|
|
||||||
blt $18,$143 # if we are -1, -2, -3 or -4 goto tail code
|
|
||||||
ldq $20,0($17) # 1 1
|
|
||||||
.align 3
|
|
||||||
$142:
|
|
||||||
|
|
||||||
mulq $20,$19,$5 # 1 2 1 #####
|
|
||||||
ldq $21,8($17) # 2 1
|
|
||||||
ldq $27,16($17) # 3 1
|
|
||||||
umulh $20,$19,$20 # 1 2 #####
|
|
||||||
ldq $28,24($17) # 4 1
|
|
||||||
mulq $21,$19,$6 # 2 2 1 #####
|
|
||||||
addq $5,$0,$5 # 1 2 3 1
|
|
||||||
subq $18,4,$18
|
|
||||||
cmpult $5,$0,$0 # 1 2 3 2
|
|
||||||
umulh $21,$19,$21 # 2 2 #####
|
|
||||||
addq $20,$0,$0 # 1 3 2
|
|
||||||
addq $17,32,$17
|
|
||||||
addq $6,$0,$6 # 2 2 3 1
|
|
||||||
mulq $27,$19,$7 # 3 2 1 #####
|
|
||||||
cmpult $6,$0,$0 # 2 2 3 2
|
|
||||||
addq $21,$0,$0 # 2 3 2
|
|
||||||
addq $16,32,$16
|
|
||||||
umulh $27,$19,$27 # 3 2 #####
|
|
||||||
stq $5,-32($16) # 1 2 4
|
|
||||||
mulq $28,$19,$8 # 4 2 1 #####
|
|
||||||
addq $7,$0,$7 # 3 2 3 1
|
|
||||||
stq $6,-24($16) # 2 2 4
|
|
||||||
cmpult $7,$0,$0 # 3 2 3 2
|
|
||||||
umulh $28,$19,$28 # 4 2 #####
|
|
||||||
addq $27,$0,$0 # 3 3 2
|
|
||||||
stq $7,-16($16) # 3 2 4
|
|
||||||
addq $8,$0,$8 # 4 2 3 1
|
|
||||||
cmpult $8,$0,$0 # 4 2 3 2
|
|
||||||
|
|
||||||
addq $28,$0,$0 # 4 3 2
|
|
||||||
|
|
||||||
stq $8,-8($16) # 4 2 4
|
|
||||||
|
|
||||||
blt $18,$143
|
|
||||||
|
|
||||||
ldq $20,0($17) # 1 1
|
|
||||||
|
|
||||||
br $142
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$145:
|
|
||||||
ldq $20,0($17) # 4 1
|
|
||||||
mulq $20,$19,$5 # 4 2 1
|
|
||||||
subq $18,1,$18
|
|
||||||
umulh $20,$19,$20 # 4 2
|
|
||||||
addq $5,$0,$5 # 4 2 3 1
|
|
||||||
addq $16,8,$16
|
|
||||||
cmpult $5,$0,$0 # 4 2 3 2
|
|
||||||
addq $17,8,$17
|
|
||||||
addq $20,$0,$0 # 4 3 2
|
|
||||||
stq $5,-8($16) # 4 2 4
|
|
||||||
|
|
||||||
bgt $18,$145
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$143:
|
|
||||||
addq $18,4,$18
|
|
||||||
bgt $18,$145 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.end bn_mul_words
|
|
||||||
.align 3
|
|
||||||
.globl bn_sqr_words
|
|
||||||
.ent bn_sqr_words
|
|
||||||
bn_sqr_words:
|
|
||||||
bn_sqr_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
|
|
||||||
subq $18,4,$18
|
|
||||||
blt $18,$543 # if we are -1, -2, -3 or -4 goto tail code
|
|
||||||
ldq $20,0($17) # 1 1
|
|
||||||
.align 3
|
|
||||||
$542:
|
|
||||||
mulq $20,$20,$5 ######
|
|
||||||
ldq $21,8($17) # 1 1
|
|
||||||
subq $18,4
|
|
||||||
umulh $20,$20,$1 ######
|
|
||||||
ldq $27,16($17) # 1 1
|
|
||||||
mulq $21,$21,$6 ######
|
|
||||||
ldq $28,24($17) # 1 1
|
|
||||||
stq $5,0($16) # r[0]
|
|
||||||
umulh $21,$21,$2 ######
|
|
||||||
stq $1,8($16) # r[1]
|
|
||||||
mulq $27,$27,$7 ######
|
|
||||||
stq $6,16($16) # r[0]
|
|
||||||
umulh $27,$27,$3 ######
|
|
||||||
stq $2,24($16) # r[1]
|
|
||||||
mulq $28,$28,$8 ######
|
|
||||||
stq $7,32($16) # r[0]
|
|
||||||
umulh $28,$28,$4 ######
|
|
||||||
stq $3,40($16) # r[1]
|
|
||||||
|
|
||||||
addq $16,64,$16
|
|
||||||
addq $17,32,$17
|
|
||||||
stq $8,-16($16) # r[0]
|
|
||||||
stq $4,-8($16) # r[1]
|
|
||||||
|
|
||||||
blt $18,$543
|
|
||||||
ldq $20,0($17) # 1 1
|
|
||||||
br $542
|
|
||||||
|
|
||||||
$442:
|
|
||||||
ldq $20,0($17) # a[0]
|
|
||||||
mulq $20,$20,$5 # a[0]*w low part r2
|
|
||||||
addq $16,16,$16
|
|
||||||
addq $17,8,$17
|
|
||||||
subq $18,1,$18
|
|
||||||
umulh $20,$20,$1 # a[0]*w high part r3
|
|
||||||
stq $5,-16($16) # r[0]
|
|
||||||
stq $1,-8($16) # r[1]
|
|
||||||
|
|
||||||
bgt $18,$442
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$543:
|
|
||||||
addq $18,4,$18
|
|
||||||
bgt $18,$442 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
.end bn_sqr_words
|
|
||||||
|
|
||||||
.align 3
|
|
||||||
.globl bn_add_words
|
|
||||||
.ent bn_add_words
|
|
||||||
bn_add_words:
|
|
||||||
bn_add_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
|
|
||||||
subq $19,4,$19
|
|
||||||
bis $31,$31,$0 # carry = 0
|
|
||||||
blt $19,$900
|
|
||||||
ldq $5,0($17) # a[0]
|
|
||||||
ldq $1,0($18) # b[1]
|
|
||||||
.align 3
|
|
||||||
$901:
|
|
||||||
addq $1,$5,$1 # r=a+b;
|
|
||||||
ldq $6,8($17) # a[1]
|
|
||||||
cmpult $1,$5,$22 # did we overflow?
|
|
||||||
ldq $2,8($18) # b[1]
|
|
||||||
addq $1,$0,$1 # c+= overflow
|
|
||||||
ldq $7,16($17) # a[2]
|
|
||||||
cmpult $1,$0,$0 # overflow?
|
|
||||||
ldq $3,16($18) # b[2]
|
|
||||||
addq $0,$22,$0
|
|
||||||
ldq $8,24($17) # a[3]
|
|
||||||
addq $2,$6,$2 # r=a+b;
|
|
||||||
ldq $4,24($18) # b[3]
|
|
||||||
cmpult $2,$6,$23 # did we overflow?
|
|
||||||
addq $3,$7,$3 # r=a+b;
|
|
||||||
addq $2,$0,$2 # c+= overflow
|
|
||||||
cmpult $3,$7,$24 # did we overflow?
|
|
||||||
cmpult $2,$0,$0 # overflow?
|
|
||||||
addq $4,$8,$4 # r=a+b;
|
|
||||||
addq $0,$23,$0
|
|
||||||
cmpult $4,$8,$25 # did we overflow?
|
|
||||||
addq $3,$0,$3 # c+= overflow
|
|
||||||
stq $1,0($16) # r[0]=c
|
|
||||||
cmpult $3,$0,$0 # overflow?
|
|
||||||
stq $2,8($16) # r[1]=c
|
|
||||||
addq $0,$24,$0
|
|
||||||
stq $3,16($16) # r[2]=c
|
|
||||||
addq $4,$0,$4 # c+= overflow
|
|
||||||
subq $19,4,$19 # loop--
|
|
||||||
cmpult $4,$0,$0 # overflow?
|
|
||||||
addq $17,32,$17 # a++
|
|
||||||
addq $0,$25,$0
|
|
||||||
stq $4,24($16) # r[3]=c
|
|
||||||
addq $18,32,$18 # b++
|
|
||||||
addq $16,32,$16 # r++
|
|
||||||
|
|
||||||
blt $19,$900
|
|
||||||
ldq $5,0($17) # a[0]
|
|
||||||
ldq $1,0($18) # b[1]
|
|
||||||
br $901
|
|
||||||
.align 4
|
|
||||||
$945:
|
|
||||||
ldq $5,0($17) # a[0]
|
|
||||||
ldq $1,0($18) # b[1]
|
|
||||||
addq $1,$5,$1 # r=a+b;
|
|
||||||
subq $19,1,$19 # loop--
|
|
||||||
addq $1,$0,$1 # c+= overflow
|
|
||||||
addq $17,8,$17 # a++
|
|
||||||
cmpult $1,$5,$22 # did we overflow?
|
|
||||||
cmpult $1,$0,$0 # overflow?
|
|
||||||
addq $18,8,$18 # b++
|
|
||||||
stq $1,0($16) # r[0]=c
|
|
||||||
addq $0,$22,$0
|
|
||||||
addq $16,8,$16 # r++
|
|
||||||
|
|
||||||
bgt $19,$945
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
$900:
|
|
||||||
addq $19,4,$19
|
|
||||||
bgt $19,$945 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
.end bn_add_words
|
|
||||||
|
|
||||||
#
|
|
||||||
# What follows was taken directly from the C compiler with a few
|
|
||||||
# hacks to redo the lables.
|
|
||||||
#
|
|
||||||
.text
|
|
||||||
.align 3
|
|
||||||
.globl bn_div64
|
|
||||||
.ent bn_div64
|
|
||||||
bn_div64:
|
|
||||||
ldgp $29,0($27)
|
|
||||||
bn_div64..ng:
|
|
||||||
lda $30,-48($30)
|
|
||||||
.frame $30,48,$26,0
|
|
||||||
stq $26,0($30)
|
|
||||||
stq $9,8($30)
|
|
||||||
stq $10,16($30)
|
|
||||||
stq $11,24($30)
|
|
||||||
stq $12,32($30)
|
|
||||||
stq $13,40($30)
|
|
||||||
.mask 0x4003e00,-48
|
|
||||||
.prologue 1
|
|
||||||
bis $16,$16,$9
|
|
||||||
bis $17,$17,$10
|
|
||||||
bis $18,$18,$11
|
|
||||||
bis $31,$31,$13
|
|
||||||
bis $31,2,$12
|
|
||||||
bne $11,$119
|
|
||||||
lda $0,-1
|
|
||||||
br $31,$136
|
|
||||||
.align 4
|
|
||||||
$119:
|
|
||||||
bis $11,$11,$16
|
|
||||||
jsr $26,BN_num_bits_word
|
|
||||||
ldgp $29,0($26)
|
|
||||||
subq $0,64,$1
|
|
||||||
beq $1,$120
|
|
||||||
bis $31,1,$1
|
|
||||||
sll $1,$0,$1
|
|
||||||
cmpule $9,$1,$1
|
|
||||||
bne $1,$120
|
|
||||||
# lda $16,_IO_stderr_
|
|
||||||
# lda $17,$C32
|
|
||||||
# bis $0,$0,$18
|
|
||||||
# jsr $26,fprintf
|
|
||||||
# ldgp $29,0($26)
|
|
||||||
jsr $26,abort
|
|
||||||
ldgp $29,0($26)
|
|
||||||
.align 4
|
|
||||||
$120:
|
|
||||||
bis $31,64,$3
|
|
||||||
cmpult $9,$11,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
addl $1,$31,$0
|
|
||||||
subq $9,$11,$1
|
|
||||||
cmoveq $2,$1,$9
|
|
||||||
beq $0,$122
|
|
||||||
zapnot $0,15,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
sll $11,$2,$11
|
|
||||||
sll $9,$2,$3
|
|
||||||
srl $10,$1,$1
|
|
||||||
sll $10,$2,$10
|
|
||||||
bis $3,$1,$9
|
|
||||||
$122:
|
|
||||||
srl $11,32,$5
|
|
||||||
zapnot $11,15,$6
|
|
||||||
lda $7,-1
|
|
||||||
.align 5
|
|
||||||
$123:
|
|
||||||
srl $9,32,$1
|
|
||||||
subq $1,$5,$1
|
|
||||||
bne $1,$126
|
|
||||||
zapnot $7,15,$27
|
|
||||||
br $31,$127
|
|
||||||
.align 4
|
|
||||||
$126:
|
|
||||||
bis $9,$9,$24
|
|
||||||
bis $5,$5,$25
|
|
||||||
divqu $24,$25,$27
|
|
||||||
$127:
|
|
||||||
srl $10,32,$4
|
|
||||||
.align 5
|
|
||||||
$128:
|
|
||||||
mulq $27,$5,$1
|
|
||||||
subq $9,$1,$3
|
|
||||||
zapnot $3,240,$1
|
|
||||||
bne $1,$129
|
|
||||||
mulq $6,$27,$2
|
|
||||||
sll $3,32,$1
|
|
||||||
addq $1,$4,$1
|
|
||||||
cmpule $2,$1,$2
|
|
||||||
bne $2,$129
|
|
||||||
subq $27,1,$27
|
|
||||||
br $31,$128
|
|
||||||
.align 4
|
|
||||||
$129:
|
|
||||||
mulq $27,$6,$1
|
|
||||||
mulq $27,$5,$4
|
|
||||||
srl $1,32,$3
|
|
||||||
sll $1,32,$1
|
|
||||||
addq $4,$3,$4
|
|
||||||
cmpult $10,$1,$2
|
|
||||||
subq $10,$1,$10
|
|
||||||
addq $2,$4,$2
|
|
||||||
cmpult $9,$2,$1
|
|
||||||
bis $2,$2,$4
|
|
||||||
beq $1,$134
|
|
||||||
addq $9,$11,$9
|
|
||||||
subq $27,1,$27
|
|
||||||
$134:
|
|
||||||
subl $12,1,$12
|
|
||||||
subq $9,$4,$9
|
|
||||||
beq $12,$124
|
|
||||||
sll $27,32,$13
|
|
||||||
sll $9,32,$2
|
|
||||||
srl $10,32,$1
|
|
||||||
sll $10,32,$10
|
|
||||||
bis $2,$1,$9
|
|
||||||
br $31,$123
|
|
||||||
.align 4
|
|
||||||
$124:
|
|
||||||
bis $13,$27,$0
|
|
||||||
$136:
|
|
||||||
ldq $26,0($30)
|
|
||||||
ldq $9,8($30)
|
|
||||||
ldq $10,16($30)
|
|
||||||
ldq $11,24($30)
|
|
||||||
ldq $12,32($30)
|
|
||||||
ldq $13,40($30)
|
|
||||||
addq $30,48,$30
|
|
||||||
ret $31,($26),1
|
|
||||||
.end bn_div64
|
|
||||||
|
|
||||||
.set noat
|
|
||||||
.text
|
|
||||||
.align 3
|
|
||||||
.globl bn_sub_words
|
|
||||||
.ent bn_sub_words
|
|
||||||
bn_sub_words:
|
|
||||||
bn_sub_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
|
|
||||||
subq $19, 4, $19
|
|
||||||
bis $31, $31, $0
|
|
||||||
blt $19, $100
|
|
||||||
ldq $1, 0($17)
|
|
||||||
ldq $2, 0($18)
|
|
||||||
$101:
|
|
||||||
ldq $3, 8($17)
|
|
||||||
cmpult $1, $2, $4
|
|
||||||
ldq $5, 8($18)
|
|
||||||
subq $1, $2, $1
|
|
||||||
ldq $6, 16($17)
|
|
||||||
cmpult $1, $0, $2
|
|
||||||
ldq $7, 16($18)
|
|
||||||
subq $1, $0, $23
|
|
||||||
ldq $8, 24($17)
|
|
||||||
addq $2, $4, $0
|
|
||||||
cmpult $3, $5, $24
|
|
||||||
subq $3, $5, $3
|
|
||||||
ldq $22, 24($18)
|
|
||||||
cmpult $3, $0, $5
|
|
||||||
subq $3, $0, $25
|
|
||||||
addq $5, $24, $0
|
|
||||||
cmpult $6, $7, $27
|
|
||||||
subq $6, $7, $6
|
|
||||||
stq $23, 0($16)
|
|
||||||
cmpult $6, $0, $7
|
|
||||||
subq $6, $0, $28
|
|
||||||
addq $7, $27, $0
|
|
||||||
cmpult $8, $22, $21
|
|
||||||
subq $8, $22, $8
|
|
||||||
stq $25, 8($16)
|
|
||||||
cmpult $8, $0, $22
|
|
||||||
subq $8, $0, $20
|
|
||||||
addq $22, $21, $0
|
|
||||||
stq $28, 16($16)
|
|
||||||
subq $19, 4, $19
|
|
||||||
stq $20, 24($16)
|
|
||||||
addq $17, 32, $17
|
|
||||||
addq $18, 32, $18
|
|
||||||
addq $16, 32, $16
|
|
||||||
blt $19, $100
|
|
||||||
ldq $1, 0($17)
|
|
||||||
ldq $2, 0($18)
|
|
||||||
br $101
|
|
||||||
$102:
|
|
||||||
ldq $1, 0($17)
|
|
||||||
ldq $2, 0($18)
|
|
||||||
cmpult $1, $2, $27
|
|
||||||
subq $1, $2, $1
|
|
||||||
cmpult $1, $0, $2
|
|
||||||
subq $1, $0, $1
|
|
||||||
stq $1, 0($16)
|
|
||||||
addq $2, $27, $0
|
|
||||||
addq $17, 8, $17
|
|
||||||
addq $18, 8, $18
|
|
||||||
addq $16, 8, $16
|
|
||||||
subq $19, 1, $19
|
|
||||||
bgt $19, $102
|
|
||||||
ret $31,($26),1
|
|
||||||
$100:
|
|
||||||
addq $19, 4, $19
|
|
||||||
bgt $19, $102
|
|
||||||
$103:
|
|
||||||
ret $31,($26),1
|
|
||||||
.end bn_sub_words
|
|
||||||
@ -1,119 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_add_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
$count=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&br(&label("finish"));
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$b0)=&NR(2);
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1)=&NR(1); &ld($a1,&QWPw(1,$ap));
|
|
||||||
($b1)=&NR(1); &ld($b1,&QWPw(1,$bp));
|
|
||||||
($a2)=&NR(1); &ld($a2,&QWPw(2,$ap));
|
|
||||||
($b2)=&NR(1); &ld($b2,&QWPw(2,$bp));
|
|
||||||
($a3)=&NR(1); &ld($a3,&QWPw(3,$ap));
|
|
||||||
($b3)=&NR(1); &ld($b3,&QWPw(3,$bp));
|
|
||||||
|
|
||||||
($o0,$t0)=&NR(2);
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&cmpult($o0,$b0,$t0);
|
|
||||||
&add($o0,$cc,$o0);
|
|
||||||
&cmpult($o0,$cc,$cc);
|
|
||||||
&add($cc,$t0,$cc); &FR($t0);
|
|
||||||
|
|
||||||
($t1,$o1)=&NR(2);
|
|
||||||
|
|
||||||
&add($a1,$b1,$o1); &FR($a1);
|
|
||||||
&cmpult($o1,$b1,$t1); &FR($b1);
|
|
||||||
&add($o1,$cc,$o1);
|
|
||||||
&cmpult($o1,$cc,$cc);
|
|
||||||
&add($cc,$t1,$cc); &FR($t1);
|
|
||||||
|
|
||||||
($t2,$o2)=&NR(2);
|
|
||||||
|
|
||||||
&add($a2,$b2,$o2); &FR($a2);
|
|
||||||
&cmpult($o2,$b2,$t2); &FR($b2);
|
|
||||||
&add($o2,$cc,$o2);
|
|
||||||
&cmpult($o2,$cc,$cc);
|
|
||||||
&add($cc,$t2,$cc); &FR($t2);
|
|
||||||
|
|
||||||
($t3,$o3)=&NR(2);
|
|
||||||
|
|
||||||
&add($a3,$b3,$o3); &FR($a3);
|
|
||||||
&cmpult($o3,$b3,$t3); &FR($b3);
|
|
||||||
&add($o3,$cc,$o3);
|
|
||||||
&cmpult($o3,$cc,$cc);
|
|
||||||
&add($cc,$t3,$cc); &FR($t3);
|
|
||||||
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0);
|
|
||||||
&st($o1,&QWPw(0,$rp)); &FR($o1);
|
|
||||||
&st($o2,&QWPw(0,$rp)); &FR($o2);
|
|
||||||
&st($o3,&QWPw(0,$rp)); &FR($o3);
|
|
||||||
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
($t0,$o0)=&NR(2);
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld($a0,&QWPw(0,$ap)); # get a
|
|
||||||
&ld($b0,&QWPw(0,$bp)); # get b
|
|
||||||
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&cmpult($o0,$b0,$t0); # will we borrow?
|
|
||||||
&add($o0,$cc,$o0); # will we borrow?
|
|
||||||
&cmpult($o0,$cc,$cc); # will we borrow?
|
|
||||||
&add($cc,$t0,$cc); # add the borrows
|
|
||||||
&st($o0,&QWPw(0,$rp)); # save
|
|
||||||
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&add($bp,$QWS,$bp);
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&FR($o0,$t0,$a0,$b0);
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,144 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
|
|
||||||
sub bn_div64
|
|
||||||
{
|
|
||||||
local($data)=<<'EOF';
|
|
||||||
#
|
|
||||||
# What follows was taken directly from the C compiler with a few
|
|
||||||
# hacks to redo the lables.
|
|
||||||
#
|
|
||||||
.text
|
|
||||||
.set noreorder
|
|
||||||
.set volatile
|
|
||||||
.align 3
|
|
||||||
.globl bn_div64
|
|
||||||
.ent bn_div64
|
|
||||||
bn_div64:
|
|
||||||
ldgp $29,0($27)
|
|
||||||
bn_div64..ng:
|
|
||||||
lda $30,-48($30)
|
|
||||||
.frame $30,48,$26,0
|
|
||||||
stq $26,0($30)
|
|
||||||
stq $9,8($30)
|
|
||||||
stq $10,16($30)
|
|
||||||
stq $11,24($30)
|
|
||||||
stq $12,32($30)
|
|
||||||
stq $13,40($30)
|
|
||||||
.mask 0x4003e00,-48
|
|
||||||
.prologue 1
|
|
||||||
bis $16,$16,$9
|
|
||||||
bis $17,$17,$10
|
|
||||||
bis $18,$18,$11
|
|
||||||
bis $31,$31,$13
|
|
||||||
bis $31,2,$12
|
|
||||||
bne $11,$9119
|
|
||||||
lda $0,-1
|
|
||||||
br $31,$9136
|
|
||||||
.align 4
|
|
||||||
$9119:
|
|
||||||
bis $11,$11,$16
|
|
||||||
jsr $26,BN_num_bits_word
|
|
||||||
ldgp $29,0($26)
|
|
||||||
subq $0,64,$1
|
|
||||||
beq $1,$9120
|
|
||||||
bis $31,1,$1
|
|
||||||
sll $1,$0,$1
|
|
||||||
cmpule $9,$1,$1
|
|
||||||
bne $1,$9120
|
|
||||||
# lda $16,_IO_stderr_
|
|
||||||
# lda $17,$C32
|
|
||||||
# bis $0,$0,$18
|
|
||||||
# jsr $26,fprintf
|
|
||||||
# ldgp $29,0($26)
|
|
||||||
jsr $26,abort
|
|
||||||
ldgp $29,0($26)
|
|
||||||
.align 4
|
|
||||||
$9120:
|
|
||||||
bis $31,64,$3
|
|
||||||
cmpult $9,$11,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
addl $1,$31,$0
|
|
||||||
subq $9,$11,$1
|
|
||||||
cmoveq $2,$1,$9
|
|
||||||
beq $0,$9122
|
|
||||||
zapnot $0,15,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
sll $11,$2,$11
|
|
||||||
sll $9,$2,$3
|
|
||||||
srl $10,$1,$1
|
|
||||||
sll $10,$2,$10
|
|
||||||
bis $3,$1,$9
|
|
||||||
$9122:
|
|
||||||
srl $11,32,$5
|
|
||||||
zapnot $11,15,$6
|
|
||||||
lda $7,-1
|
|
||||||
.align 5
|
|
||||||
$9123:
|
|
||||||
srl $9,32,$1
|
|
||||||
subq $1,$5,$1
|
|
||||||
bne $1,$9126
|
|
||||||
zapnot $7,15,$27
|
|
||||||
br $31,$9127
|
|
||||||
.align 4
|
|
||||||
$9126:
|
|
||||||
bis $9,$9,$24
|
|
||||||
bis $5,$5,$25
|
|
||||||
divqu $24,$25,$27
|
|
||||||
$9127:
|
|
||||||
srl $10,32,$4
|
|
||||||
.align 5
|
|
||||||
$9128:
|
|
||||||
mulq $27,$5,$1
|
|
||||||
subq $9,$1,$3
|
|
||||||
zapnot $3,240,$1
|
|
||||||
bne $1,$9129
|
|
||||||
mulq $6,$27,$2
|
|
||||||
sll $3,32,$1
|
|
||||||
addq $1,$4,$1
|
|
||||||
cmpule $2,$1,$2
|
|
||||||
bne $2,$9129
|
|
||||||
subq $27,1,$27
|
|
||||||
br $31,$9128
|
|
||||||
.align 4
|
|
||||||
$9129:
|
|
||||||
mulq $27,$6,$1
|
|
||||||
mulq $27,$5,$4
|
|
||||||
srl $1,32,$3
|
|
||||||
sll $1,32,$1
|
|
||||||
addq $4,$3,$4
|
|
||||||
cmpult $10,$1,$2
|
|
||||||
subq $10,$1,$10
|
|
||||||
addq $2,$4,$2
|
|
||||||
cmpult $9,$2,$1
|
|
||||||
bis $2,$2,$4
|
|
||||||
beq $1,$9134
|
|
||||||
addq $9,$11,$9
|
|
||||||
subq $27,1,$27
|
|
||||||
$9134:
|
|
||||||
subl $12,1,$12
|
|
||||||
subq $9,$4,$9
|
|
||||||
beq $12,$9124
|
|
||||||
sll $27,32,$13
|
|
||||||
sll $9,32,$2
|
|
||||||
srl $10,32,$1
|
|
||||||
sll $10,32,$10
|
|
||||||
bis $2,$1,$9
|
|
||||||
br $31,$9123
|
|
||||||
.align 4
|
|
||||||
$9124:
|
|
||||||
bis $13,$27,$0
|
|
||||||
$9136:
|
|
||||||
ldq $26,0($30)
|
|
||||||
ldq $9,8($30)
|
|
||||||
ldq $10,16($30)
|
|
||||||
ldq $11,24($30)
|
|
||||||
ldq $12,32($30)
|
|
||||||
ldq $13,40($30)
|
|
||||||
addq $30,48,$30
|
|
||||||
ret $31,($26),1
|
|
||||||
.end bn_div64
|
|
||||||
EOF
|
|
||||||
&asm_add($data);
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,116 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_mul_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r,$couny);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$count=&wparam(2);
|
|
||||||
$word=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&br(&label("finish"));
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$r0)=&NR(2);
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($r0,&QWPw(0,$rp));
|
|
||||||
|
|
||||||
$a=<<'EOF';
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1)=&NR(1); &ld($a1,&QWPw(1,$ap));
|
|
||||||
($b1)=&NR(1); &ld($b1,&QWPw(1,$bp));
|
|
||||||
($a2)=&NR(1); &ld($a2,&QWPw(2,$ap));
|
|
||||||
($b2)=&NR(1); &ld($b2,&QWPw(2,$bp));
|
|
||||||
($a3)=&NR(1); &ld($a3,&QWPw(3,$ap));
|
|
||||||
($b3)=&NR(1); &ld($b3,&QWPw(3,$bp));
|
|
||||||
|
|
||||||
($o0,$t0)=&NR(2);
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&cmpult($o0,$b0,$t0);
|
|
||||||
&add($o0,$cc,$o0);
|
|
||||||
&cmpult($o0,$cc,$cc);
|
|
||||||
&add($cc,$t0,$cc); &FR($t0);
|
|
||||||
|
|
||||||
($t1,$o1)=&NR(2);
|
|
||||||
|
|
||||||
&add($a1,$b1,$o1); &FR($a1);
|
|
||||||
&cmpult($o1,$b1,$t1); &FR($b1);
|
|
||||||
&add($o1,$cc,$o1);
|
|
||||||
&cmpult($o1,$cc,$cc);
|
|
||||||
&add($cc,$t1,$cc); &FR($t1);
|
|
||||||
|
|
||||||
($t2,$o2)=&NR(2);
|
|
||||||
|
|
||||||
&add($a2,$b2,$o2); &FR($a2);
|
|
||||||
&cmpult($o2,$b2,$t2); &FR($b2);
|
|
||||||
&add($o2,$cc,$o2);
|
|
||||||
&cmpult($o2,$cc,$cc);
|
|
||||||
&add($cc,$t2,$cc); &FR($t2);
|
|
||||||
|
|
||||||
($t3,$o3)=&NR(2);
|
|
||||||
|
|
||||||
&add($a3,$b3,$o3); &FR($a3);
|
|
||||||
&cmpult($o3,$b3,$t3); &FR($b3);
|
|
||||||
&add($o3,$cc,$o3);
|
|
||||||
&cmpult($o3,$cc,$cc);
|
|
||||||
&add($cc,$t3,$cc); &FR($t3);
|
|
||||||
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0);
|
|
||||||
&st($o1,&QWPw(0,$rp)); &FR($o1);
|
|
||||||
&st($o2,&QWPw(0,$rp)); &FR($o2);
|
|
||||||
&st($o3,&QWPw(0,$rp)); &FR($o3);
|
|
||||||
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
EOF
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap)); # get a
|
|
||||||
&mul($a0,$word,($l0)=&NR(1));
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&muh($a0,$word,($h0)=&NR(1)); &FR($a0);
|
|
||||||
&add($l0,$cc,$l0);
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&cmpult($l0,$cc,$cc);
|
|
||||||
&st($l0,&QWPw(-1,$rp)); &FR($l0);
|
|
||||||
&add($h0,$cc,$cc); &FR($h0);
|
|
||||||
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,120 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_mul_add_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r,$couny);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$count=&wparam(2);
|
|
||||||
$word=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&br(&label("finish"));
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$r0)=&NR(2);
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($r0,&QWPw(0,$rp));
|
|
||||||
|
|
||||||
$a=<<'EOF';
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1)=&NR(1); &ld($a1,&QWPw(1,$ap));
|
|
||||||
($b1)=&NR(1); &ld($b1,&QWPw(1,$bp));
|
|
||||||
($a2)=&NR(1); &ld($a2,&QWPw(2,$ap));
|
|
||||||
($b2)=&NR(1); &ld($b2,&QWPw(2,$bp));
|
|
||||||
($a3)=&NR(1); &ld($a3,&QWPw(3,$ap));
|
|
||||||
($b3)=&NR(1); &ld($b3,&QWPw(3,$bp));
|
|
||||||
|
|
||||||
($o0,$t0)=&NR(2);
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&cmpult($o0,$b0,$t0);
|
|
||||||
&add($o0,$cc,$o0);
|
|
||||||
&cmpult($o0,$cc,$cc);
|
|
||||||
&add($cc,$t0,$cc); &FR($t0);
|
|
||||||
|
|
||||||
($t1,$o1)=&NR(2);
|
|
||||||
|
|
||||||
&add($a1,$b1,$o1); &FR($a1);
|
|
||||||
&cmpult($o1,$b1,$t1); &FR($b1);
|
|
||||||
&add($o1,$cc,$o1);
|
|
||||||
&cmpult($o1,$cc,$cc);
|
|
||||||
&add($cc,$t1,$cc); &FR($t1);
|
|
||||||
|
|
||||||
($t2,$o2)=&NR(2);
|
|
||||||
|
|
||||||
&add($a2,$b2,$o2); &FR($a2);
|
|
||||||
&cmpult($o2,$b2,$t2); &FR($b2);
|
|
||||||
&add($o2,$cc,$o2);
|
|
||||||
&cmpult($o2,$cc,$cc);
|
|
||||||
&add($cc,$t2,$cc); &FR($t2);
|
|
||||||
|
|
||||||
($t3,$o3)=&NR(2);
|
|
||||||
|
|
||||||
&add($a3,$b3,$o3); &FR($a3);
|
|
||||||
&cmpult($o3,$b3,$t3); &FR($b3);
|
|
||||||
&add($o3,$cc,$o3);
|
|
||||||
&cmpult($o3,$cc,$cc);
|
|
||||||
&add($cc,$t3,$cc); &FR($t3);
|
|
||||||
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0);
|
|
||||||
&st($o1,&QWPw(0,$rp)); &FR($o1);
|
|
||||||
&st($o2,&QWPw(0,$rp)); &FR($o2);
|
|
||||||
&st($o3,&QWPw(0,$rp)); &FR($o3);
|
|
||||||
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
EOF
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap)); # get a
|
|
||||||
&ld(($r0)=&NR(1),&QWPw(0,$rp)); # get b
|
|
||||||
&mul($a0,$word,($l0)=&NR(1));
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&muh($a0,$word,($h0)=&NR(1)); &FR($a0);
|
|
||||||
&add($r0,$l0,$r0);
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&cmpult($r0,$l0,($t0)=&NR(1)); &FR($l0);
|
|
||||||
&add($r0,$cc,$r0);
|
|
||||||
&add($h0,$t0,$h0); &FR($t0);
|
|
||||||
&cmpult($r0,$cc,$cc);
|
|
||||||
&st($r0,&QWPw(-1,$rp)); &FR($r0);
|
|
||||||
&add($h0,$cc,$cc); &FR($h0);
|
|
||||||
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,213 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub mul_add_c
|
|
||||||
{
|
|
||||||
local($a,$b,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
&mul($a,$b,($l1)=&NR(1));
|
|
||||||
&muh($a,$b,($h1)=&NR(1));
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&cmpult($c0,$l1,($t1)=&NR(1)); &FR($l1);
|
|
||||||
&add($t1,$h1,$h1); &FR($t1);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c1,$h1,($t2)=&NR(1)); &FR($h1);
|
|
||||||
&add($c2,$t2,$c2); &FR($t2);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub bn_mul_comba4
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(3);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($b[0])=&NR(1),&QWPw(0,$bp));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[1])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&mul($a[0],$b[0],($r00)=&NR(1));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($b[2])=&NR(1),&QWPw(2,$bp));
|
|
||||||
&muh($a[0],$b[0],($r01)=&NR(1));
|
|
||||||
&FR($ap); &ld(($a[3])=&NR(1),&QWPw(3,$ap));
|
|
||||||
&FR($bp); &ld(($b[3])=&NR(1),&QWPw(3,$bp));
|
|
||||||
&mul($a[0],$b[1],($r02)=&NR(1));
|
|
||||||
|
|
||||||
($R,$H1,$H2)=&NR(3);
|
|
||||||
|
|
||||||
&st($r00,&QWPw(0,$rp)); &FR($r00);
|
|
||||||
|
|
||||||
&mov("zero",$R);
|
|
||||||
&mul($a[1],$b[0],($r03)=&NR(1));
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&mov("zero",$H0);
|
|
||||||
&add($R,$r01,$R);
|
|
||||||
&muh($a[0],$b[1],($r04)=&NR(1));
|
|
||||||
&cmpult($R,$r01,($t01)=&NR(1)); &FR($r01);
|
|
||||||
&add($R,$r02,$R);
|
|
||||||
&add($H1,$t01,$H1) &FR($t01);
|
|
||||||
&muh($a[1],$b[0],($r05)=&NR(1));
|
|
||||||
&cmpult($R,$r02,($t02)=&NR(1)); &FR($r02);
|
|
||||||
&add($R,$r03,$R);
|
|
||||||
&add($H2,$t02,$H2) &FR($t02);
|
|
||||||
&mul($a[0],$b[2],($r06)=&NR(1));
|
|
||||||
&cmpult($R,$r03,($t03)=&NR(1)); &FR($r03);
|
|
||||||
&add($H1,$t03,$H1) &FR($t03);
|
|
||||||
&st($R,&QWPw(1,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r04,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&mul($a[1],$b[1],($r07)=&NR(1));
|
|
||||||
&cmpult($R,$r04,($t04)=&NR(1)); &FR($r04);
|
|
||||||
&add($R,$r05,$R);
|
|
||||||
&add($H1,$t04,$H1) &FR($t04);
|
|
||||||
&mul($a[2],$b[0],($r08)=&NR(1));
|
|
||||||
&cmpult($R,$r05,($t05)=&NR(1)); &FR($r05);
|
|
||||||
&add($R,$r01,$R);
|
|
||||||
&add($H2,$t05,$H2) &FR($t05);
|
|
||||||
&muh($a[0],$b[2],($r09)=&NR(1));
|
|
||||||
&cmpult($R,$r06,($t06)=&NR(1)); &FR($r06);
|
|
||||||
&add($R,$r07,$R);
|
|
||||||
&add($H1,$t06,$H1) &FR($t06);
|
|
||||||
&muh($a[1],$b[1],($r10)=&NR(1));
|
|
||||||
&cmpult($R,$r07,($t07)=&NR(1)); &FR($r07);
|
|
||||||
&add($R,$r08,$R);
|
|
||||||
&add($H2,$t07,$H2) &FR($t07);
|
|
||||||
&muh($a[2],$b[0],($r11)=&NR(1));
|
|
||||||
&cmpult($R,$r08,($t08)=&NR(1)); &FR($r08);
|
|
||||||
&add($H1,$t08,$H1) &FR($t08);
|
|
||||||
&st($R,&QWPw(2,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r09,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&mul($a[0],$b[3],($r12)=&NR(1));
|
|
||||||
&cmpult($R,$r09,($t09)=&NR(1)); &FR($r09);
|
|
||||||
&add($R,$r10,$R);
|
|
||||||
&add($H1,$t09,$H1) &FR($t09);
|
|
||||||
&mul($a[1],$b[2],($r13)=&NR(1));
|
|
||||||
&cmpult($R,$r10,($t10)=&NR(1)); &FR($r10);
|
|
||||||
&add($R,$r11,$R);
|
|
||||||
&add($H1,$t10,$H1) &FR($t10);
|
|
||||||
&mul($a[2],$b[1],($r14)=&NR(1));
|
|
||||||
&cmpult($R,$r11,($t11)=&NR(1)); &FR($r11);
|
|
||||||
&add($R,$r12,$R);
|
|
||||||
&add($H1,$t11,$H1) &FR($t11);
|
|
||||||
&mul($a[3],$b[0],($r15)=&NR(1));
|
|
||||||
&cmpult($R,$r12,($t12)=&NR(1)); &FR($r12);
|
|
||||||
&add($R,$r13,$R);
|
|
||||||
&add($H1,$t12,$H1) &FR($t12);
|
|
||||||
&muh($a[0],$b[3],($r16)=&NR(1));
|
|
||||||
&cmpult($R,$r13,($t13)=&NR(1)); &FR($r13);
|
|
||||||
&add($R,$r14,$R);
|
|
||||||
&add($H1,$t13,$H1) &FR($t13);
|
|
||||||
&muh($a[1],$b[2],($r17)=&NR(1));
|
|
||||||
&cmpult($R,$r14,($t14)=&NR(1)); &FR($r14);
|
|
||||||
&add($R,$r15,$R);
|
|
||||||
&add($H1,$t14,$H1) &FR($t14);
|
|
||||||
&muh($a[2],$b[1],($r18)=&NR(1));
|
|
||||||
&cmpult($R,$r15,($t15)=&NR(1)); &FR($r15);
|
|
||||||
&add($H1,$t15,$H1) &FR($t15);
|
|
||||||
&st($R,&QWPw(3,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r16,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&muh($a[3],$b[0],($r19)=&NR(1));
|
|
||||||
&cmpult($R,$r16,($t16)=&NR(1)); &FR($r16);
|
|
||||||
&add($R,$r17,$R);
|
|
||||||
&add($H1,$t16,$H1) &FR($t16);
|
|
||||||
&mul($a[1],$b[3],($r20)=&NR(1));
|
|
||||||
&cmpult($R,$r17,($t17)=&NR(1)); &FR($r17);
|
|
||||||
&add($R,$r18,$R);
|
|
||||||
&add($H1,$t17,$H1) &FR($t17);
|
|
||||||
&mul($a[2],$b[2],($r21)=&NR(1));
|
|
||||||
&cmpult($R,$r18,($t18)=&NR(1)); &FR($r18);
|
|
||||||
&add($R,$r19,$R);
|
|
||||||
&add($H1,$t18,$H1) &FR($t18);
|
|
||||||
&mul($a[3],$b[1],($r22)=&NR(1));
|
|
||||||
&cmpult($R,$r19,($t19)=&NR(1)); &FR($r19);
|
|
||||||
&add($R,$r20,$R);
|
|
||||||
&add($H1,$t19,$H1) &FR($t19);
|
|
||||||
&muh($a[1],$b[3],($r23)=&NR(1));
|
|
||||||
&cmpult($R,$r20,($t20)=&NR(1)); &FR($r20);
|
|
||||||
&add($R,$r21,$R);
|
|
||||||
&add($H1,$t20,$H1) &FR($t20);
|
|
||||||
&muh($a[2],$b[2],($r24)=&NR(1));
|
|
||||||
&cmpult($R,$r21,($t21)=&NR(1)); &FR($r21);
|
|
||||||
&add($R,$r22,$R);
|
|
||||||
&add($H1,$t21,$H1) &FR($t21);
|
|
||||||
&muh($a[3],$b[1],($r25)=&NR(1));
|
|
||||||
&cmpult($R,$r22,($t22)=&NR(1)); &FR($r22);
|
|
||||||
&add($H1,$t22,$H1) &FR($t22);
|
|
||||||
&st($R,&QWPw(4,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r23,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&mul($a[2],$b[3],($r26)=&NR(1));
|
|
||||||
&cmpult($R,$r23,($t23)=&NR(1)); &FR($r23);
|
|
||||||
&add($R,$r24,$R);
|
|
||||||
&add($H1,$t23,$H1) &FR($t23);
|
|
||||||
&mul($a[3],$b[2],($r27)=&NR(1));
|
|
||||||
&cmpult($R,$r24,($t24)=&NR(1)); &FR($r24);
|
|
||||||
&add($R,$r25,$R);
|
|
||||||
&add($H1,$t24,$H1) &FR($t24);
|
|
||||||
&muh($a[2],$b[3],($r28)=&NR(1));
|
|
||||||
&cmpult($R,$r25,($t25)=&NR(1)); &FR($r25);
|
|
||||||
&add($R,$r26,$R);
|
|
||||||
&add($H1,$t25,$H1) &FR($t25);
|
|
||||||
&muh($a[3],$b[2],($r29)=&NR(1));
|
|
||||||
&cmpult($R,$r26,($t26)=&NR(1)); &FR($r26);
|
|
||||||
&add($R,$r27,$R);
|
|
||||||
&add($H1,$t26,$H1) &FR($t26);
|
|
||||||
&mul($a[3],$b[3],($r30)=&NR(1));
|
|
||||||
&cmpult($R,$r27,($t27)=&NR(1)); &FR($r27);
|
|
||||||
&add($H1,$t27,$H1) &FR($t27);
|
|
||||||
&st($R,&QWPw(5,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r28,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&muh($a[3],$b[3],($r31)=&NR(1));
|
|
||||||
&cmpult($R,$r28,($t28)=&NR(1)); &FR($r28);
|
|
||||||
&add($R,$r29,$R);
|
|
||||||
&add($H1,$t28,$H1) &FR($t28);
|
|
||||||
############
|
|
||||||
&cmpult($R,$r29,($t29)=&NR(1)); &FR($r29);
|
|
||||||
&add($R,$r30,$R);
|
|
||||||
&add($H1,$t29,$H1) &FR($t29);
|
|
||||||
############
|
|
||||||
&cmpult($R,$r30,($t30)=&NR(1)); &FR($r30);
|
|
||||||
&add($H1,$t30,$H1) &FR($t30);
|
|
||||||
&st($R,&QWPw(6,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&add($R,$r31,$R); &FR($r31);
|
|
||||||
&st($R,&QWPw(7,$rp));
|
|
||||||
|
|
||||||
&FR($R,$H1,$H2);
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,98 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub mul_add_c
|
|
||||||
{
|
|
||||||
local($a,$b,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
print STDERR "count=$cnt\n"; $cnt++;
|
|
||||||
&mul($a,$b,($l1)=&NR(1));
|
|
||||||
&muh($a,$b,($h1)=&NR(1));
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&cmpult($c0,$l1,($t1)=&NR(1)); &FR($l1);
|
|
||||||
&add($t1,$h1,$h1); &FR($t1);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c1,$h1,($t2)=&NR(1)); &FR($h1);
|
|
||||||
&add($c2,$t2,$c2); &FR($t2);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub bn_mul_comba4
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(3);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($b[0])=&NR(1),&QWPw(0,$bp));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[1])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($b[2])=&NR(1),&QWPw(2,$bp));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap)); &FR($ap);
|
|
||||||
&ld(($b[3])=&NR(1),&QWPw(3,$bp)); &FR($bp);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$b[0],$c0);
|
|
||||||
&muh($a[0],$b[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[1],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[0],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[3],$c0,$c1,$c2); &FR($a[0]);
|
|
||||||
&mul_add_c($a[1],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[0],$c0,$c1,$c2); &FR($b[0]);
|
|
||||||
&st($c0,&QWPw(3,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[1],$b[3],$c0,$c1,$c2); &FR($a[1]);
|
|
||||||
&mul_add_c($a[2],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[1],$c0,$c1,$c2); &FR($b[1]);
|
|
||||||
&st($c0,&QWPw(4,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[2],$b[3],$c0,$c1,$c2); &FR($a[2]);
|
|
||||||
&mul_add_c($a[3],$b[2],$c0,$c1,$c2); &FR($b[2]);
|
|
||||||
&st($c0,&QWPw(5,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[3],$b[3],$c0,$c1,$c2); &FR($a[3],$b[3]);
|
|
||||||
&st($c0,&QWPw(6,$rp));
|
|
||||||
&st($c1,&QWPw(7,$rp));
|
|
||||||
|
|
||||||
&FR($c0,$c1,$c2);
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,177 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_mul_comba8
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(3);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&stack_push(2);
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($b[0])=&NR(1),&QWPw(0,$bp));
|
|
||||||
&st($reg_s0,&swtmp(0)); &FR($reg_s0);
|
|
||||||
&st($reg_s1,&swtmp(1)); &FR($reg_s1);
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[1])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($b[2])=&NR(1),&QWPw(2,$bp));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap));
|
|
||||||
&ld(($b[3])=&NR(1),&QWPw(3,$bp));
|
|
||||||
&ld(($a[4])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[4])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[5])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[5])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[6])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[6])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[7])=&NR(1),&QWPw(1,$ap)); &FR($ap);
|
|
||||||
&ld(($b[7])=&NR(1),&QWPw(1,$bp)); &FR($bp);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$b[0],$c0);
|
|
||||||
&muh($a[0],$b[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(3,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(4,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(5,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(6,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[7],$c0,$c1,$c2); &FR($a[0]);
|
|
||||||
&mul_add_c($a[1],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[0],$c0,$c1,$c2); &FR($b[0]);
|
|
||||||
&st($c0,&QWPw(7,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[1],$b[7],$c0,$c1,$c2); &FR($a[1]);
|
|
||||||
&mul_add_c($a[2],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[1],$c0,$c1,$c2); &FR($b[1]);
|
|
||||||
&st($c0,&QWPw(8,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[2],$b[7],$c0,$c1,$c2); &FR($a[2]);
|
|
||||||
&mul_add_c($a[3],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[2],$c0,$c1,$c2); &FR($b[2]);
|
|
||||||
&st($c0,&QWPw(9,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[3],$b[7],$c0,$c1,$c2); &FR($a[3]);
|
|
||||||
&mul_add_c($a[4],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[3],$c0,$c1,$c2); &FR($b[3]);
|
|
||||||
&st($c0,&QWPw(10,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[4],$b[7],$c0,$c1,$c2); &FR($a[4]);
|
|
||||||
&mul_add_c($a[5],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[4],$c0,$c1,$c2); &FR($b[4]);
|
|
||||||
&st($c0,&QWPw(11,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[5],$b[7],$c0,$c1,$c2); &FR($a[5]);
|
|
||||||
&mul_add_c($a[6],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[5],$c0,$c1,$c2); &FR($b[5]);
|
|
||||||
&st($c0,&QWPw(12,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[6],$b[7],$c0,$c1,$c2); &FR($a[6]);
|
|
||||||
&mul_add_c($a[7],$b[6],$c0,$c1,$c2); &FR($b[6]);
|
|
||||||
&st($c0,&QWPw(13,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[7],$b[7],$c0,$c1,$c2); &FR($a[7],$b[7]);
|
|
||||||
&st($c0,&QWPw(14,$rp));
|
|
||||||
&st($c1,&QWPw(15,$rp));
|
|
||||||
|
|
||||||
&FR($c0,$c1,$c2);
|
|
||||||
|
|
||||||
&ld($reg_s0,&swtmp(0));
|
|
||||||
&ld($reg_s1,&swtmp(1));
|
|
||||||
&stack_pop(2);
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,113 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_sqr_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r,$couny);
|
|
||||||
|
|
||||||
&init_pool(3);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$count=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&br(&label("finish"));
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$r0)=&NR(2);
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($r0,&QWPw(0,$rp));
|
|
||||||
|
|
||||||
$a=<<'EOF';
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1)=&NR(1); &ld($a1,&QWPw(1,$ap));
|
|
||||||
($b1)=&NR(1); &ld($b1,&QWPw(1,$bp));
|
|
||||||
($a2)=&NR(1); &ld($a2,&QWPw(2,$ap));
|
|
||||||
($b2)=&NR(1); &ld($b2,&QWPw(2,$bp));
|
|
||||||
($a3)=&NR(1); &ld($a3,&QWPw(3,$ap));
|
|
||||||
($b3)=&NR(1); &ld($b3,&QWPw(3,$bp));
|
|
||||||
|
|
||||||
($o0,$t0)=&NR(2);
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&cmpult($o0,$b0,$t0);
|
|
||||||
&add($o0,$cc,$o0);
|
|
||||||
&cmpult($o0,$cc,$cc);
|
|
||||||
&add($cc,$t0,$cc); &FR($t0);
|
|
||||||
|
|
||||||
($t1,$o1)=&NR(2);
|
|
||||||
|
|
||||||
&add($a1,$b1,$o1); &FR($a1);
|
|
||||||
&cmpult($o1,$b1,$t1); &FR($b1);
|
|
||||||
&add($o1,$cc,$o1);
|
|
||||||
&cmpult($o1,$cc,$cc);
|
|
||||||
&add($cc,$t1,$cc); &FR($t1);
|
|
||||||
|
|
||||||
($t2,$o2)=&NR(2);
|
|
||||||
|
|
||||||
&add($a2,$b2,$o2); &FR($a2);
|
|
||||||
&cmpult($o2,$b2,$t2); &FR($b2);
|
|
||||||
&add($o2,$cc,$o2);
|
|
||||||
&cmpult($o2,$cc,$cc);
|
|
||||||
&add($cc,$t2,$cc); &FR($t2);
|
|
||||||
|
|
||||||
($t3,$o3)=&NR(2);
|
|
||||||
|
|
||||||
&add($a3,$b3,$o3); &FR($a3);
|
|
||||||
&cmpult($o3,$b3,$t3); &FR($b3);
|
|
||||||
&add($o3,$cc,$o3);
|
|
||||||
&cmpult($o3,$cc,$cc);
|
|
||||||
&add($cc,$t3,$cc); &FR($t3);
|
|
||||||
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0);
|
|
||||||
&st($o1,&QWPw(0,$rp)); &FR($o1);
|
|
||||||
&st($o2,&QWPw(0,$rp)); &FR($o2);
|
|
||||||
&st($o3,&QWPw(0,$rp)); &FR($o3);
|
|
||||||
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
EOF
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap)); # get a
|
|
||||||
&mul($a0,$a0,($l0)=&NR(1));
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&add($rp,2*$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&muh($a0,$a0,($h0)=&NR(1)); &FR($a0);
|
|
||||||
&st($l0,&QWPw(-2,$rp)); &FR($l0);
|
|
||||||
&st($h0,&QWPw(-1,$rp)); &FR($h0);
|
|
||||||
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,109 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub sqr_add_c
|
|
||||||
{
|
|
||||||
local($a,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
&mul($a,$a,($l1)=&NR(1));
|
|
||||||
&muh($a,$a,($h1)=&NR(1));
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c0,$l1,($t1)=&NR(1)); &FR($l1);
|
|
||||||
&cmpult($c1,$h1,($t2)=&NR(1)); &FR($h1);
|
|
||||||
&add($c1,$t1,$c1); &FR($t1);
|
|
||||||
&add($c2,$t2,$c2); &FR($t2);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub sqr_add_c2
|
|
||||||
{
|
|
||||||
local($a,$b,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
&mul($a,$b,($l1)=&NR(1));
|
|
||||||
&muh($a,$b,($h1)=&NR(1));
|
|
||||||
&cmplt($l1,"zero",($lc1)=&NR(1));
|
|
||||||
&cmplt($h1,"zero",($hc1)=&NR(1));
|
|
||||||
&add($l1,$l1,$l1);
|
|
||||||
&add($h1,$h1,$h1);
|
|
||||||
&add($h1,$lc1,$h1); &FR($lc1);
|
|
||||||
&add($c2,$hc1,$c2); &FR($hc1);
|
|
||||||
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c0,$l1,($lc1)=&NR(1)); &FR($l1);
|
|
||||||
&cmpult($c1,$h1,($hc1)=&NR(1)); &FR($h1);
|
|
||||||
|
|
||||||
&add($c1,$lc1,$c1); &FR($lc1);
|
|
||||||
&add($c2,$hc1,$c2); &FR($hc1);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
sub bn_sqr_comba4
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(2);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap)); &FR($ap);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$a[0],$c0);
|
|
||||||
&muh($a[0],$a[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[0],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[2],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[3],$a[0],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[2],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(3,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[3],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(4,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[3],$a[2],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(5,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[3],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(6,$rp));
|
|
||||||
&st($c1,&QWPw(7,$rp));
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,132 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_sqr_comba8
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(2);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap));
|
|
||||||
&ld(($a[4])=&NR(1),&QWPw(4,$ap));
|
|
||||||
&ld(($a[5])=&NR(1),&QWPw(5,$ap));
|
|
||||||
&ld(($a[6])=&NR(1),&QWPw(6,$ap));
|
|
||||||
&ld(($a[7])=&NR(1),&QWPw(7,$ap)); &FR($ap);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$a[0],$c0);
|
|
||||||
&muh($a[0],$a[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[1],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[2],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[2],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[3],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(3,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[3],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[4],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(4,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[3],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[4],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(5,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[4],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(6,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[4],$a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(7,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[4],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(8,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[5],$a[4],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[2],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(9,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[5],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[4],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[3],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(10,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[6],$a[5],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[4],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(11,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[6],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[5],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(12,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[7],$a[6],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(13,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[7],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(14,$rp));
|
|
||||||
&st($c1,&QWPw(15,$rp));
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,108 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_sub_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
$count=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$b0)=&NR(2);
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1,$tmp,$b1,$a2,$b2,$a3,$b3,$o0)=&NR(8);
|
|
||||||
&ld($a1,&QWPw(1,$ap));
|
|
||||||
&cmpult($a0,$b0,$tmp); # will we borrow?
|
|
||||||
&ld($b1,&QWPw(1,$bp));
|
|
||||||
&sub($a0,$b0,$a0); # do the subtract
|
|
||||||
&ld($a2,&QWPw(2,$ap));
|
|
||||||
&cmpult($a0,$cc,$b0); # will we borrow?
|
|
||||||
&ld($b2,&QWPw(2,$bp));
|
|
||||||
&sub($a0,$cc,$o0); # will we borrow?
|
|
||||||
&ld($a3,&QWPw(3,$ap));
|
|
||||||
&add($b0,$tmp,$cc); ($t1,$o1)=&NR(2); &FR($tmp);
|
|
||||||
|
|
||||||
&cmpult($a1,$b1,$t1); # will we borrow?
|
|
||||||
&sub($a1,$b1,$a1); # do the subtract
|
|
||||||
&ld($b3,&QWPw(3,$bp));
|
|
||||||
&cmpult($a1,$cc,$b1); # will we borrow?
|
|
||||||
&sub($a1,$cc,$o1); # will we borrow?
|
|
||||||
&add($b1,$t1,$cc); ($tmp,$o2)=&NR(2); &FR($t1,$a1,$b1);
|
|
||||||
|
|
||||||
&cmpult($a2,$b2,$tmp); # will we borrow?
|
|
||||||
&sub($a2,$b2,$a2); # do the subtract
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0); # save
|
|
||||||
&cmpult($a2,$cc,$b2); # will we borrow?
|
|
||||||
&sub($a2,$cc,$o2); # will we borrow?
|
|
||||||
&add($b2,$tmp,$cc); ($t3,$o3)=&NR(2); &FR($tmp,$a2,$b2);
|
|
||||||
|
|
||||||
&cmpult($a3,$b3,$t3); # will we borrow?
|
|
||||||
&sub($a3,$b3,$a3); # do the subtract
|
|
||||||
&st($o1,&QWPw(1,$rp)); &FR($o1);
|
|
||||||
&cmpult($a3,$cc,$b3); # will we borrow?
|
|
||||||
&sub($a3,$cc,$o3); # will we borrow?
|
|
||||||
&add($b3,$t3,$cc); &FR($t3,$a3,$b3);
|
|
||||||
|
|
||||||
&st($o2,&QWPw(2,$rp)); &FR($o2);
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&st($o3,&QWPw(3,$rp)); &FR($o3);
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld($a0,&QWPw(0,$ap)); # get a
|
|
||||||
&ld($b0,&QWPw(0,$bp)); # get b
|
|
||||||
&cmpult($a0,$b0,$tmp); # will we borrow?
|
|
||||||
&sub($a0,$b0,$a0); # do the subtract
|
|
||||||
&cmpult($a0,$cc,$b0); # will we borrow?
|
|
||||||
&sub($a0,$cc,$a0); # will we borrow?
|
|
||||||
&st($a0,&QWPw(0,$rp)); # save
|
|
||||||
&add($b0,$tmp,$cc); # add the borrows
|
|
||||||
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&add($bp,$QWS,$bp);
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&FR($a0,$b0);
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,118 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_add_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
$count=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$b0)=&NR(2);
|
|
||||||
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($b0)=&NR(1),&QWPw(0,$bp));
|
|
||||||
&ld(($a1)=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b1)=&NR(1),&QWPw(1,$bp));
|
|
||||||
|
|
||||||
($o0,$t0)=&NR(2);
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&ld(($a2)=&NR(1),&QWPw(2,$ap));
|
|
||||||
&cmpult($o0,$b0,$t0);
|
|
||||||
&add($o0,$cc,$o0);
|
|
||||||
&cmpult($o0,$cc,$cc);
|
|
||||||
&ld(($b2)=&NR(1),&QWPw(2,$bp));
|
|
||||||
&add($cc,$t0,$cc); &FR($t0);
|
|
||||||
|
|
||||||
($t1,$o1)=&NR(2);
|
|
||||||
|
|
||||||
&add($a1,$b1,$o1); &FR($a1);
|
|
||||||
&cmpult($o1,$b1,$t1); &FR($b1);
|
|
||||||
&add($o1,$cc,$o1);
|
|
||||||
&cmpult($o1,$cc,$cc);
|
|
||||||
&ld(($a3)=&NR(1),&QWPw(3,$ap));
|
|
||||||
&add($cc,$t1,$cc); &FR($t1);
|
|
||||||
|
|
||||||
($t2,$o2)=&NR(2);
|
|
||||||
|
|
||||||
&add($a2,$b2,$o2); &FR($a2);
|
|
||||||
&cmpult($o2,$b2,$t2); &FR($b2);
|
|
||||||
&add($o2,$cc,$o2);
|
|
||||||
&cmpult($o2,$cc,$cc);
|
|
||||||
&ld(($b3)=&NR(1),&QWPw(3,$bp));
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0);
|
|
||||||
&add($cc,$t2,$cc); &FR($t2);
|
|
||||||
|
|
||||||
($t3,$o3)=&NR(2);
|
|
||||||
|
|
||||||
&st($o1,&QWPw(0,$rp)); &FR($o1);
|
|
||||||
&add($a3,$b3,$o3); &FR($a3);
|
|
||||||
&cmpult($o3,$b3,$t3); &FR($b3);
|
|
||||||
&add($o3,$cc,$o3);
|
|
||||||
&st($o2,&QWPw(0,$rp)); &FR($o2);
|
|
||||||
&cmpult($o3,$cc,$cc);
|
|
||||||
&st($o3,&QWPw(0,$rp)); &FR($o3);
|
|
||||||
&add($cc,$t3,$cc); &FR($t3);
|
|
||||||
|
|
||||||
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
###
|
|
||||||
&bge($count,&label("loop"));
|
|
||||||
###
|
|
||||||
&br(&label("finish"));
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
($t0,$o0)=&NR(2);
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld($a0,&QWPw(0,$ap)); # get a
|
|
||||||
&ld($b0,&QWPw(0,$bp)); # get b
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&add($bp,$QWS,$bp);
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&cmpult($o0,$b0,$t0); # will we borrow?
|
|
||||||
&add($o0,$cc,$o0); # will we borrow?
|
|
||||||
&cmpult($o0,$cc,$cc); # will we borrow?
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&st($o0,&QWPw(-1,$rp)); # save
|
|
||||||
&add($cc,$t0,$cc); # add the borrows
|
|
||||||
|
|
||||||
###
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&FR($o0,$t0,$a0,$b0);
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,144 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
|
|
||||||
sub bn_div_words
|
|
||||||
{
|
|
||||||
local($data)=<<'EOF';
|
|
||||||
#
|
|
||||||
# What follows was taken directly from the C compiler with a few
|
|
||||||
# hacks to redo the lables.
|
|
||||||
#
|
|
||||||
.text
|
|
||||||
.set noreorder
|
|
||||||
.set volatile
|
|
||||||
.align 3
|
|
||||||
.globl bn_div_words
|
|
||||||
.ent bn_div_words
|
|
||||||
bn_div_words
|
|
||||||
ldgp $29,0($27)
|
|
||||||
bn_div_words.ng:
|
|
||||||
lda $30,-48($30)
|
|
||||||
.frame $30,48,$26,0
|
|
||||||
stq $26,0($30)
|
|
||||||
stq $9,8($30)
|
|
||||||
stq $10,16($30)
|
|
||||||
stq $11,24($30)
|
|
||||||
stq $12,32($30)
|
|
||||||
stq $13,40($30)
|
|
||||||
.mask 0x4003e00,-48
|
|
||||||
.prologue 1
|
|
||||||
bis $16,$16,$9
|
|
||||||
bis $17,$17,$10
|
|
||||||
bis $18,$18,$11
|
|
||||||
bis $31,$31,$13
|
|
||||||
bis $31,2,$12
|
|
||||||
bne $11,$9119
|
|
||||||
lda $0,-1
|
|
||||||
br $31,$9136
|
|
||||||
.align 4
|
|
||||||
$9119:
|
|
||||||
bis $11,$11,$16
|
|
||||||
jsr $26,BN_num_bits_word
|
|
||||||
ldgp $29,0($26)
|
|
||||||
subq $0,64,$1
|
|
||||||
beq $1,$9120
|
|
||||||
bis $31,1,$1
|
|
||||||
sll $1,$0,$1
|
|
||||||
cmpule $9,$1,$1
|
|
||||||
bne $1,$9120
|
|
||||||
# lda $16,_IO_stderr_
|
|
||||||
# lda $17,$C32
|
|
||||||
# bis $0,$0,$18
|
|
||||||
# jsr $26,fprintf
|
|
||||||
# ldgp $29,0($26)
|
|
||||||
jsr $26,abort
|
|
||||||
ldgp $29,0($26)
|
|
||||||
.align 4
|
|
||||||
$9120:
|
|
||||||
bis $31,64,$3
|
|
||||||
cmpult $9,$11,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
addl $1,$31,$0
|
|
||||||
subq $9,$11,$1
|
|
||||||
cmoveq $2,$1,$9
|
|
||||||
beq $0,$9122
|
|
||||||
zapnot $0,15,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
sll $11,$2,$11
|
|
||||||
sll $9,$2,$3
|
|
||||||
srl $10,$1,$1
|
|
||||||
sll $10,$2,$10
|
|
||||||
bis $3,$1,$9
|
|
||||||
$9122:
|
|
||||||
srl $11,32,$5
|
|
||||||
zapnot $11,15,$6
|
|
||||||
lda $7,-1
|
|
||||||
.align 5
|
|
||||||
$9123:
|
|
||||||
srl $9,32,$1
|
|
||||||
subq $1,$5,$1
|
|
||||||
bne $1,$9126
|
|
||||||
zapnot $7,15,$27
|
|
||||||
br $31,$9127
|
|
||||||
.align 4
|
|
||||||
$9126:
|
|
||||||
bis $9,$9,$24
|
|
||||||
bis $5,$5,$25
|
|
||||||
divqu $24,$25,$27
|
|
||||||
$9127:
|
|
||||||
srl $10,32,$4
|
|
||||||
.align 5
|
|
||||||
$9128:
|
|
||||||
mulq $27,$5,$1
|
|
||||||
subq $9,$1,$3
|
|
||||||
zapnot $3,240,$1
|
|
||||||
bne $1,$9129
|
|
||||||
mulq $6,$27,$2
|
|
||||||
sll $3,32,$1
|
|
||||||
addq $1,$4,$1
|
|
||||||
cmpule $2,$1,$2
|
|
||||||
bne $2,$9129
|
|
||||||
subq $27,1,$27
|
|
||||||
br $31,$9128
|
|
||||||
.align 4
|
|
||||||
$9129:
|
|
||||||
mulq $27,$6,$1
|
|
||||||
mulq $27,$5,$4
|
|
||||||
srl $1,32,$3
|
|
||||||
sll $1,32,$1
|
|
||||||
addq $4,$3,$4
|
|
||||||
cmpult $10,$1,$2
|
|
||||||
subq $10,$1,$10
|
|
||||||
addq $2,$4,$2
|
|
||||||
cmpult $9,$2,$1
|
|
||||||
bis $2,$2,$4
|
|
||||||
beq $1,$9134
|
|
||||||
addq $9,$11,$9
|
|
||||||
subq $27,1,$27
|
|
||||||
$9134:
|
|
||||||
subl $12,1,$12
|
|
||||||
subq $9,$4,$9
|
|
||||||
beq $12,$9124
|
|
||||||
sll $27,32,$13
|
|
||||||
sll $9,32,$2
|
|
||||||
srl $10,32,$1
|
|
||||||
sll $10,32,$10
|
|
||||||
bis $2,$1,$9
|
|
||||||
br $31,$9123
|
|
||||||
.align 4
|
|
||||||
$9124:
|
|
||||||
bis $13,$27,$0
|
|
||||||
$9136:
|
|
||||||
ldq $26,0($30)
|
|
||||||
ldq $9,8($30)
|
|
||||||
ldq $10,16($30)
|
|
||||||
ldq $11,24($30)
|
|
||||||
ldq $12,32($30)
|
|
||||||
ldq $13,40($30)
|
|
||||||
addq $30,48,$30
|
|
||||||
ret $31,($26),1
|
|
||||||
.end bn_div_words
|
|
||||||
EOF
|
|
||||||
&asm_add($data);
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,104 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_mul_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r,$couny);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$count=&wparam(2);
|
|
||||||
$word=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
###
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0)=&NR(1); &ld($a0,&QWPw(0,$ap));
|
|
||||||
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1)=&NR(1); &ld($a1,&QWPw(1,$ap));
|
|
||||||
($a2)=&NR(1); &ld($a2,&QWPw(2,$ap));
|
|
||||||
|
|
||||||
&muh($a0,$word,($h0)=&NR(1)); &FR($a0);
|
|
||||||
($a3)=&NR(1); &ld($a3,&QWPw(3,$ap));
|
|
||||||
### wait 8
|
|
||||||
&mul($a0,$word,($l0)=&NR(1)); &FR($a0);
|
|
||||||
### wait 8
|
|
||||||
&muh($a1,$word,($h1)=&NR(1)); &FR($a1);
|
|
||||||
&add($l0,$cc,$l0); ### wait 8
|
|
||||||
&mul($a1,$word,($l1)=&NR(1)); &FR($a1);
|
|
||||||
&cmpult($l0,$cc,$cc); ### wait 8
|
|
||||||
&muh($a2,$word,($h2)=&NR(1)); &FR($a2);
|
|
||||||
&add($h0,$cc,$cc); &FR($h0); ### wait 8
|
|
||||||
&mul($a2,$word,($l2)=&NR(1)); &FR($a2);
|
|
||||||
&add($l1,$cc,$l1); ### wait 8
|
|
||||||
&st($l0,&QWPw(0,$rp)); &FR($l0);
|
|
||||||
&cmpult($l1,$cc,$cc); ### wait 8
|
|
||||||
&muh($a3,$word,($h3)=&NR(1)); &FR($a3);
|
|
||||||
&add($h1,$cc,$cc); &FR($h1);
|
|
||||||
&mul($a3,$word,($l3)=&NR(1)); &FR($a3);
|
|
||||||
&add($l2,$cc,$l2);
|
|
||||||
&st($l1,&QWPw(1,$rp)); &FR($l1);
|
|
||||||
&cmpult($l2,$cc,$cc);
|
|
||||||
&add($h2,$cc,$cc); &FR($h2);
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&st($l2,&QWPw(2,$rp)); &FR($l2);
|
|
||||||
&add($l3,$cc,$l3);
|
|
||||||
&cmpult($l3,$cc,$cc);
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($h3,$cc,$cc); &FR($h3);
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&st($l3,&QWPw(3,$rp)); &FR($l3);
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
###
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
($a0)=&NR(1); &ld($a0,&QWPw(0,$ap));
|
|
||||||
&br(&label("finish"));
|
|
||||||
##################################################
|
|
||||||
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap)); # get a
|
|
||||||
###
|
|
||||||
###
|
|
||||||
###
|
|
||||||
&muh($a0,$word,($h0)=&NR(1));
|
|
||||||
### Wait 8 for next mul issue
|
|
||||||
&mul($a0,$word,($l0)=&NR(1)); &FR($a0)
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
### Loose 12 until result is available
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&add($l0,$cc,$l0);
|
|
||||||
###
|
|
||||||
&st($l0,&QWPw(-1,$rp)); &FR($l0);
|
|
||||||
&cmpult($l0,$cc,$cc);
|
|
||||||
&add($h0,$cc,$cc); &FR($h0);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,123 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_mul_add_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r,$couny);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$count=&wparam(2);
|
|
||||||
$word=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
###
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap));
|
|
||||||
|
|
||||||
$a=<<'EOF';
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
&ld(($r0)=&NR(1),&QWPw(0,$rp));
|
|
||||||
&ld(($a1)=&NR(1),&QWPw(1,$ap));
|
|
||||||
&muh($a0,$word,($h0)=&NR(1));
|
|
||||||
&ld(($r1)=&NR(1),&QWPw(1,$rp));
|
|
||||||
&ld(($a2)=&NR(1),&QWPw(2,$ap));
|
|
||||||
###
|
|
||||||
&mul($a0,$word,($l0)=&NR(1)); &FR($a0);
|
|
||||||
&ld(($r2)=&NR(1),&QWPw(2,$rp));
|
|
||||||
&muh($a1,$word,($h1)=&NR(1));
|
|
||||||
&ld(($a3)=&NR(1),&QWPw(3,$ap));
|
|
||||||
&mul($a1,$word,($l1)=&NR(1)); &FR($a1);
|
|
||||||
&ld(($r3)=&NR(1),&QWPw(3,$rp));
|
|
||||||
&add($r0,$l0,$r0);
|
|
||||||
&add($r1,$l1,$r1);
|
|
||||||
&cmpult($r0,$l0,($t0)=&NR(1)); &FR($l0);
|
|
||||||
&cmpult($r1,$l1,($t1)=&NR(1)); &FR($l1);
|
|
||||||
&muh($a2,$word,($h2)=&NR(1));
|
|
||||||
&add($r0,$cc,$r0);
|
|
||||||
&add($h0,$t0,$h0); &FR($t0);
|
|
||||||
&cmpult($r0,$cc,$cc);
|
|
||||||
&add($h1,$t1,$h1); &FR($t1);
|
|
||||||
&add($h0,$cc,$cc); &FR($h0);
|
|
||||||
&mul($a2,$word,($l2)=&NR(1)); &FR($a2);
|
|
||||||
&add($r1,$cc,$r1);
|
|
||||||
&cmpult($r1,$cc,$cc);
|
|
||||||
&add($r2,$l2,$r2);
|
|
||||||
&add($h1,$cc,$cc); &FR($h1);
|
|
||||||
&cmpult($r2,$l2,($t2)=&NR(1)); &FR($l2);
|
|
||||||
&muh($a3,$word,($h3)=&NR(1));
|
|
||||||
&add($r2,$cc,$r2);
|
|
||||||
&st($r0,&QWPw(0,$rp)); &FR($r0);
|
|
||||||
&add($h2,$t2,$h2); &FR($t2);
|
|
||||||
&st($r1,&QWPw(1,$rp)); &FR($r1);
|
|
||||||
&cmpult($r2,$cc,$cc);
|
|
||||||
&mul($a3,$word,($l3)=&NR(1)); &FR($a3);
|
|
||||||
&add($h2,$cc,$cc); &FR($h2);
|
|
||||||
&st($r2,&QWPw(2,$rp)); &FR($r2);
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
&add($r3,$l3,$r3);
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&cmpult($r3,$l3,($t3)=&NR(1)); &FR($l3);
|
|
||||||
&add($r3,$cc,$r3);
|
|
||||||
&add($h3,$t3,$h3); &FR($t3);
|
|
||||||
&cmpult($r3,$cc,$cc);
|
|
||||||
&st($r3,&QWPw(-1,$rp)); &FR($r3);
|
|
||||||
&add($h3,$cc,$cc); &FR($h3);
|
|
||||||
|
|
||||||
###
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap));
|
|
||||||
&br(&label("loop"));
|
|
||||||
EOF
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap)); # get a
|
|
||||||
&ld(($r0)=&NR(1),&QWPw(0,$rp)); # get b
|
|
||||||
###
|
|
||||||
###
|
|
||||||
&muh($a0,$word,($h0)=&NR(1)); &FR($a0);
|
|
||||||
### wait 8
|
|
||||||
&mul($a0,$word,($l0)=&NR(1)); &FR($a0);
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
### wait 3 until l0 is available
|
|
||||||
&add($r0,$l0,$r0);
|
|
||||||
###
|
|
||||||
&cmpult($r0,$l0,($t0)=&NR(1)); &FR($l0);
|
|
||||||
&add($r0,$cc,$r0);
|
|
||||||
&add($h0,$t0,$h0); &FR($t0);
|
|
||||||
&cmpult($r0,$cc,$cc);
|
|
||||||
&add($h0,$cc,$cc); &FR($h0);
|
|
||||||
|
|
||||||
&st($r0,&QWPw(-1,$rp)); &FR($r0);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,215 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
# upto
|
|
||||||
|
|
||||||
sub mul_add_c
|
|
||||||
{
|
|
||||||
local($a,$b,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
&mul($a,$b,($l1)=&NR(1));
|
|
||||||
&muh($a,$b,($h1)=&NR(1));
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&cmpult($c0,$l1,($t1)=&NR(1)); &FR($l1);
|
|
||||||
&add($t1,$h1,$h1); &FR($t1);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c1,$h1,($t2)=&NR(1)); &FR($h1);
|
|
||||||
&add($c2,$t2,$c2); &FR($t2);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub bn_mul_comba4
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(3);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($b[0])=&NR(1),&QWPw(0,$bp));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[1])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&mul($a[0],$b[0],($r00)=&NR(1));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($b[2])=&NR(1),&QWPw(2,$bp));
|
|
||||||
&muh($a[0],$b[0],($r01)=&NR(1));
|
|
||||||
&FR($ap); &ld(($a[3])=&NR(1),&QWPw(3,$ap));
|
|
||||||
&FR($bp); &ld(($b[3])=&NR(1),&QWPw(3,$bp));
|
|
||||||
&mul($a[0],$b[1],($r02)=&NR(1));
|
|
||||||
|
|
||||||
($R,$H1,$H2)=&NR(3);
|
|
||||||
|
|
||||||
&st($r00,&QWPw(0,$rp)); &FR($r00);
|
|
||||||
|
|
||||||
&mov("zero",$R);
|
|
||||||
&mul($a[1],$b[0],($r03)=&NR(1));
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&mov("zero",$H0);
|
|
||||||
&add($R,$r01,$R);
|
|
||||||
&muh($a[0],$b[1],($r04)=&NR(1));
|
|
||||||
&cmpult($R,$r01,($t01)=&NR(1)); &FR($r01);
|
|
||||||
&add($R,$r02,$R);
|
|
||||||
&add($H1,$t01,$H1) &FR($t01);
|
|
||||||
&muh($a[1],$b[0],($r05)=&NR(1));
|
|
||||||
&cmpult($R,$r02,($t02)=&NR(1)); &FR($r02);
|
|
||||||
&add($R,$r03,$R);
|
|
||||||
&add($H2,$t02,$H2) &FR($t02);
|
|
||||||
&mul($a[0],$b[2],($r06)=&NR(1));
|
|
||||||
&cmpult($R,$r03,($t03)=&NR(1)); &FR($r03);
|
|
||||||
&add($H1,$t03,$H1) &FR($t03);
|
|
||||||
&st($R,&QWPw(1,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r04,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&mul($a[1],$b[1],($r07)=&NR(1));
|
|
||||||
&cmpult($R,$r04,($t04)=&NR(1)); &FR($r04);
|
|
||||||
&add($R,$r05,$R);
|
|
||||||
&add($H1,$t04,$H1) &FR($t04);
|
|
||||||
&mul($a[2],$b[0],($r08)=&NR(1));
|
|
||||||
&cmpult($R,$r05,($t05)=&NR(1)); &FR($r05);
|
|
||||||
&add($R,$r01,$R);
|
|
||||||
&add($H2,$t05,$H2) &FR($t05);
|
|
||||||
&muh($a[0],$b[2],($r09)=&NR(1));
|
|
||||||
&cmpult($R,$r06,($t06)=&NR(1)); &FR($r06);
|
|
||||||
&add($R,$r07,$R);
|
|
||||||
&add($H1,$t06,$H1) &FR($t06);
|
|
||||||
&muh($a[1],$b[1],($r10)=&NR(1));
|
|
||||||
&cmpult($R,$r07,($t07)=&NR(1)); &FR($r07);
|
|
||||||
&add($R,$r08,$R);
|
|
||||||
&add($H2,$t07,$H2) &FR($t07);
|
|
||||||
&muh($a[2],$b[0],($r11)=&NR(1));
|
|
||||||
&cmpult($R,$r08,($t08)=&NR(1)); &FR($r08);
|
|
||||||
&add($H1,$t08,$H1) &FR($t08);
|
|
||||||
&st($R,&QWPw(2,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r09,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&mul($a[0],$b[3],($r12)=&NR(1));
|
|
||||||
&cmpult($R,$r09,($t09)=&NR(1)); &FR($r09);
|
|
||||||
&add($R,$r10,$R);
|
|
||||||
&add($H1,$t09,$H1) &FR($t09);
|
|
||||||
&mul($a[1],$b[2],($r13)=&NR(1));
|
|
||||||
&cmpult($R,$r10,($t10)=&NR(1)); &FR($r10);
|
|
||||||
&add($R,$r11,$R);
|
|
||||||
&add($H1,$t10,$H1) &FR($t10);
|
|
||||||
&mul($a[2],$b[1],($r14)=&NR(1));
|
|
||||||
&cmpult($R,$r11,($t11)=&NR(1)); &FR($r11);
|
|
||||||
&add($R,$r12,$R);
|
|
||||||
&add($H1,$t11,$H1) &FR($t11);
|
|
||||||
&mul($a[3],$b[0],($r15)=&NR(1));
|
|
||||||
&cmpult($R,$r12,($t12)=&NR(1)); &FR($r12);
|
|
||||||
&add($R,$r13,$R);
|
|
||||||
&add($H1,$t12,$H1) &FR($t12);
|
|
||||||
&muh($a[0],$b[3],($r16)=&NR(1));
|
|
||||||
&cmpult($R,$r13,($t13)=&NR(1)); &FR($r13);
|
|
||||||
&add($R,$r14,$R);
|
|
||||||
&add($H1,$t13,$H1) &FR($t13);
|
|
||||||
&muh($a[1],$b[2],($r17)=&NR(1));
|
|
||||||
&cmpult($R,$r14,($t14)=&NR(1)); &FR($r14);
|
|
||||||
&add($R,$r15,$R);
|
|
||||||
&add($H1,$t14,$H1) &FR($t14);
|
|
||||||
&muh($a[2],$b[1],($r18)=&NR(1));
|
|
||||||
&cmpult($R,$r15,($t15)=&NR(1)); &FR($r15);
|
|
||||||
&add($H1,$t15,$H1) &FR($t15);
|
|
||||||
&st($R,&QWPw(3,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r16,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&muh($a[3],$b[0],($r19)=&NR(1));
|
|
||||||
&cmpult($R,$r16,($t16)=&NR(1)); &FR($r16);
|
|
||||||
&add($R,$r17,$R);
|
|
||||||
&add($H1,$t16,$H1) &FR($t16);
|
|
||||||
&mul($a[1],$b[3],($r20)=&NR(1));
|
|
||||||
&cmpult($R,$r17,($t17)=&NR(1)); &FR($r17);
|
|
||||||
&add($R,$r18,$R);
|
|
||||||
&add($H1,$t17,$H1) &FR($t17);
|
|
||||||
&mul($a[2],$b[2],($r21)=&NR(1));
|
|
||||||
&cmpult($R,$r18,($t18)=&NR(1)); &FR($r18);
|
|
||||||
&add($R,$r19,$R);
|
|
||||||
&add($H1,$t18,$H1) &FR($t18);
|
|
||||||
&mul($a[3],$b[1],($r22)=&NR(1));
|
|
||||||
&cmpult($R,$r19,($t19)=&NR(1)); &FR($r19);
|
|
||||||
&add($R,$r20,$R);
|
|
||||||
&add($H1,$t19,$H1) &FR($t19);
|
|
||||||
&muh($a[1],$b[3],($r23)=&NR(1));
|
|
||||||
&cmpult($R,$r20,($t20)=&NR(1)); &FR($r20);
|
|
||||||
&add($R,$r21,$R);
|
|
||||||
&add($H1,$t20,$H1) &FR($t20);
|
|
||||||
&muh($a[2],$b[2],($r24)=&NR(1));
|
|
||||||
&cmpult($R,$r21,($t21)=&NR(1)); &FR($r21);
|
|
||||||
&add($R,$r22,$R);
|
|
||||||
&add($H1,$t21,$H1) &FR($t21);
|
|
||||||
&muh($a[3],$b[1],($r25)=&NR(1));
|
|
||||||
&cmpult($R,$r22,($t22)=&NR(1)); &FR($r22);
|
|
||||||
&add($H1,$t22,$H1) &FR($t22);
|
|
||||||
&st($R,&QWPw(4,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r23,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&mul($a[2],$b[3],($r26)=&NR(1));
|
|
||||||
&cmpult($R,$r23,($t23)=&NR(1)); &FR($r23);
|
|
||||||
&add($R,$r24,$R);
|
|
||||||
&add($H1,$t23,$H1) &FR($t23);
|
|
||||||
&mul($a[3],$b[2],($r27)=&NR(1));
|
|
||||||
&cmpult($R,$r24,($t24)=&NR(1)); &FR($r24);
|
|
||||||
&add($R,$r25,$R);
|
|
||||||
&add($H1,$t24,$H1) &FR($t24);
|
|
||||||
&muh($a[2],$b[3],($r28)=&NR(1));
|
|
||||||
&cmpult($R,$r25,($t25)=&NR(1)); &FR($r25);
|
|
||||||
&add($R,$r26,$R);
|
|
||||||
&add($H1,$t25,$H1) &FR($t25);
|
|
||||||
&muh($a[3],$b[2],($r29)=&NR(1));
|
|
||||||
&cmpult($R,$r26,($t26)=&NR(1)); &FR($r26);
|
|
||||||
&add($R,$r27,$R);
|
|
||||||
&add($H1,$t26,$H1) &FR($t26);
|
|
||||||
&mul($a[3],$b[3],($r30)=&NR(1));
|
|
||||||
&cmpult($R,$r27,($t27)=&NR(1)); &FR($r27);
|
|
||||||
&add($H1,$t27,$H1) &FR($t27);
|
|
||||||
&st($R,&QWPw(5,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&mov("zero",$H1);
|
|
||||||
&add($R,$r28,$R);
|
|
||||||
&mov("zero",$H2);
|
|
||||||
&muh($a[3],$b[3],($r31)=&NR(1));
|
|
||||||
&cmpult($R,$r28,($t28)=&NR(1)); &FR($r28);
|
|
||||||
&add($R,$r29,$R);
|
|
||||||
&add($H1,$t28,$H1) &FR($t28);
|
|
||||||
############
|
|
||||||
&cmpult($R,$r29,($t29)=&NR(1)); &FR($r29);
|
|
||||||
&add($R,$r30,$R);
|
|
||||||
&add($H1,$t29,$H1) &FR($t29);
|
|
||||||
############
|
|
||||||
&cmpult($R,$r30,($t30)=&NR(1)); &FR($r30);
|
|
||||||
&add($H1,$t30,$H1) &FR($t30);
|
|
||||||
&st($R,&QWPw(6,$rp));
|
|
||||||
&add($H1,$H2,$R);
|
|
||||||
|
|
||||||
&add($R,$r31,$R); &FR($r31);
|
|
||||||
&st($R,&QWPw(7,$rp));
|
|
||||||
|
|
||||||
&FR($R,$H1,$H2);
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,98 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub mul_add_c
|
|
||||||
{
|
|
||||||
local($a,$b,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
print STDERR "count=$cnt\n"; $cnt++;
|
|
||||||
&mul($a,$b,($l1)=&NR(1));
|
|
||||||
&muh($a,$b,($h1)=&NR(1));
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&cmpult($c0,$l1,($t1)=&NR(1)); &FR($l1);
|
|
||||||
&add($t1,$h1,$h1); &FR($t1);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c1,$h1,($t2)=&NR(1)); &FR($h1);
|
|
||||||
&add($c2,$t2,$c2); &FR($t2);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub bn_mul_comba4
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(3);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($b[0])=&NR(1),&QWPw(0,$bp));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[1])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($b[2])=&NR(1),&QWPw(2,$bp));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap)); &FR($ap);
|
|
||||||
&ld(($b[3])=&NR(1),&QWPw(3,$bp)); &FR($bp);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$b[0],$c0);
|
|
||||||
&muh($a[0],$b[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[1],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[0],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[3],$c0,$c1,$c2); &FR($a[0]);
|
|
||||||
&mul_add_c($a[1],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[0],$c0,$c1,$c2); &FR($b[0]);
|
|
||||||
&st($c0,&QWPw(3,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[1],$b[3],$c0,$c1,$c2); &FR($a[1]);
|
|
||||||
&mul_add_c($a[2],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[1],$c0,$c1,$c2); &FR($b[1]);
|
|
||||||
&st($c0,&QWPw(4,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[2],$b[3],$c0,$c1,$c2); &FR($a[2]);
|
|
||||||
&mul_add_c($a[3],$b[2],$c0,$c1,$c2); &FR($b[2]);
|
|
||||||
&st($c0,&QWPw(5,$rp)); &FR($c0); ($c0)=&NR($c0);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[3],$b[3],$c0,$c1,$c2); &FR($a[3],$b[3]);
|
|
||||||
&st($c0,&QWPw(6,$rp));
|
|
||||||
&st($c1,&QWPw(7,$rp));
|
|
||||||
|
|
||||||
&FR($c0,$c1,$c2);
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,177 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_mul_comba8
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(3);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&stack_push(2);
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($b[0])=&NR(1),&QWPw(0,$bp));
|
|
||||||
&st($reg_s0,&swtmp(0)); &FR($reg_s0);
|
|
||||||
&st($reg_s1,&swtmp(1)); &FR($reg_s1);
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[1])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($b[2])=&NR(1),&QWPw(2,$bp));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap));
|
|
||||||
&ld(($b[3])=&NR(1),&QWPw(3,$bp));
|
|
||||||
&ld(($a[4])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[4])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[5])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[5])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[6])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($b[6])=&NR(1),&QWPw(1,$bp));
|
|
||||||
&ld(($a[7])=&NR(1),&QWPw(1,$ap)); &FR($ap);
|
|
||||||
&ld(($b[7])=&NR(1),&QWPw(1,$bp)); &FR($bp);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$b[0],$c0);
|
|
||||||
&muh($a[0],$b[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(3,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(4,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(5,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[1],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(6,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[0],$b[7],$c0,$c1,$c2); &FR($a[0]);
|
|
||||||
&mul_add_c($a[1],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[2],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[1],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[0],$c0,$c1,$c2); &FR($b[0]);
|
|
||||||
&st($c0,&QWPw(7,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[1],$b[7],$c0,$c1,$c2); &FR($a[1]);
|
|
||||||
&mul_add_c($a[2],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[3],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[2],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[1],$c0,$c1,$c2); &FR($b[1]);
|
|
||||||
&st($c0,&QWPw(8,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[2],$b[7],$c0,$c1,$c2); &FR($a[2]);
|
|
||||||
&mul_add_c($a[3],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[4],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[3],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[2],$c0,$c1,$c2); &FR($b[2]);
|
|
||||||
&st($c0,&QWPw(9,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[3],$b[7],$c0,$c1,$c2); &FR($a[3]);
|
|
||||||
&mul_add_c($a[4],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[5],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[4],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[3],$c0,$c1,$c2); &FR($b[3]);
|
|
||||||
&st($c0,&QWPw(10,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[4],$b[7],$c0,$c1,$c2); &FR($a[4]);
|
|
||||||
&mul_add_c($a[5],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[6],$b[5],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[4],$c0,$c1,$c2); &FR($b[4]);
|
|
||||||
&st($c0,&QWPw(11,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[5],$b[7],$c0,$c1,$c2); &FR($a[5]);
|
|
||||||
&mul_add_c($a[6],$b[6],$c0,$c1,$c2);
|
|
||||||
&mul_add_c($a[7],$b[5],$c0,$c1,$c2); &FR($b[5]);
|
|
||||||
&st($c0,&QWPw(12,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[6],$b[7],$c0,$c1,$c2); &FR($a[6]);
|
|
||||||
&mul_add_c($a[7],$b[6],$c0,$c1,$c2); &FR($b[6]);
|
|
||||||
&st($c0,&QWPw(13,$rp)); &FR($c0); ($c0)=&NR(1);
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&mul_add_c($a[7],$b[7],$c0,$c1,$c2); &FR($a[7],$b[7]);
|
|
||||||
&st($c0,&QWPw(14,$rp));
|
|
||||||
&st($c1,&QWPw(15,$rp));
|
|
||||||
|
|
||||||
&FR($c0,$c1,$c2);
|
|
||||||
|
|
||||||
&ld($reg_s0,&swtmp(0));
|
|
||||||
&ld($reg_s1,&swtmp(1));
|
|
||||||
&stack_pop(2);
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,113 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_sqr_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r,$couny);
|
|
||||||
|
|
||||||
&init_pool(3);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$count=&wparam(2);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&br(&label("finish"));
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$r0)=&NR(2);
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($r0,&QWPw(0,$rp));
|
|
||||||
|
|
||||||
$a=<<'EOF';
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1)=&NR(1); &ld($a1,&QWPw(1,$ap));
|
|
||||||
($b1)=&NR(1); &ld($b1,&QWPw(1,$bp));
|
|
||||||
($a2)=&NR(1); &ld($a2,&QWPw(2,$ap));
|
|
||||||
($b2)=&NR(1); &ld($b2,&QWPw(2,$bp));
|
|
||||||
($a3)=&NR(1); &ld($a3,&QWPw(3,$ap));
|
|
||||||
($b3)=&NR(1); &ld($b3,&QWPw(3,$bp));
|
|
||||||
|
|
||||||
($o0,$t0)=&NR(2);
|
|
||||||
&add($a0,$b0,$o0);
|
|
||||||
&cmpult($o0,$b0,$t0);
|
|
||||||
&add($o0,$cc,$o0);
|
|
||||||
&cmpult($o0,$cc,$cc);
|
|
||||||
&add($cc,$t0,$cc); &FR($t0);
|
|
||||||
|
|
||||||
($t1,$o1)=&NR(2);
|
|
||||||
|
|
||||||
&add($a1,$b1,$o1); &FR($a1);
|
|
||||||
&cmpult($o1,$b1,$t1); &FR($b1);
|
|
||||||
&add($o1,$cc,$o1);
|
|
||||||
&cmpult($o1,$cc,$cc);
|
|
||||||
&add($cc,$t1,$cc); &FR($t1);
|
|
||||||
|
|
||||||
($t2,$o2)=&NR(2);
|
|
||||||
|
|
||||||
&add($a2,$b2,$o2); &FR($a2);
|
|
||||||
&cmpult($o2,$b2,$t2); &FR($b2);
|
|
||||||
&add($o2,$cc,$o2);
|
|
||||||
&cmpult($o2,$cc,$cc);
|
|
||||||
&add($cc,$t2,$cc); &FR($t2);
|
|
||||||
|
|
||||||
($t3,$o3)=&NR(2);
|
|
||||||
|
|
||||||
&add($a3,$b3,$o3); &FR($a3);
|
|
||||||
&cmpult($o3,$b3,$t3); &FR($b3);
|
|
||||||
&add($o3,$cc,$o3);
|
|
||||||
&cmpult($o3,$cc,$cc);
|
|
||||||
&add($cc,$t3,$cc); &FR($t3);
|
|
||||||
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0);
|
|
||||||
&st($o1,&QWPw(0,$rp)); &FR($o1);
|
|
||||||
&st($o2,&QWPw(0,$rp)); &FR($o2);
|
|
||||||
&st($o3,&QWPw(0,$rp)); &FR($o3);
|
|
||||||
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
EOF
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld(($a0)=&NR(1),&QWPw(0,$ap)); # get a
|
|
||||||
&mul($a0,$a0,($l0)=&NR(1));
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&add($rp,2*$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&muh($a0,$a0,($h0)=&NR(1)); &FR($a0);
|
|
||||||
&st($l0,&QWPw(-2,$rp)); &FR($l0);
|
|
||||||
&st($h0,&QWPw(-1,$rp)); &FR($h0);
|
|
||||||
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,109 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub sqr_add_c
|
|
||||||
{
|
|
||||||
local($a,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
&mul($a,$a,($l1)=&NR(1));
|
|
||||||
&muh($a,$a,($h1)=&NR(1));
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c0,$l1,($t1)=&NR(1)); &FR($l1);
|
|
||||||
&cmpult($c1,$h1,($t2)=&NR(1)); &FR($h1);
|
|
||||||
&add($c1,$t1,$c1); &FR($t1);
|
|
||||||
&add($c2,$t2,$c2); &FR($t2);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub sqr_add_c2
|
|
||||||
{
|
|
||||||
local($a,$b,$c0,$c1,$c2)=@_;
|
|
||||||
local($l1,$h1,$t1,$t2);
|
|
||||||
|
|
||||||
&mul($a,$b,($l1)=&NR(1));
|
|
||||||
&muh($a,$b,($h1)=&NR(1));
|
|
||||||
&cmplt($l1,"zero",($lc1)=&NR(1));
|
|
||||||
&cmplt($h1,"zero",($hc1)=&NR(1));
|
|
||||||
&add($l1,$l1,$l1);
|
|
||||||
&add($h1,$h1,$h1);
|
|
||||||
&add($h1,$lc1,$h1); &FR($lc1);
|
|
||||||
&add($c2,$hc1,$c2); &FR($hc1);
|
|
||||||
|
|
||||||
&add($c0,$l1,$c0);
|
|
||||||
&add($c1,$h1,$c1);
|
|
||||||
&cmpult($c0,$l1,($lc1)=&NR(1)); &FR($l1);
|
|
||||||
&cmpult($c1,$h1,($hc1)=&NR(1)); &FR($h1);
|
|
||||||
|
|
||||||
&add($c1,$lc1,$c1); &FR($lc1);
|
|
||||||
&add($c2,$hc1,$c2); &FR($hc1);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
sub bn_sqr_comba4
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(2);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap)); &FR($ap);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$a[0],$c0);
|
|
||||||
&muh($a[0],$a[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[0],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[2],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[3],$a[0],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[2],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(3,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[3],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(4,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[3],$a[2],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(5,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[3],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(6,$rp));
|
|
||||||
&st($c1,&QWPw(7,$rp));
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,132 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_sqr_comba8
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local(@a,@b,$r,$c0,$c1,$c2);
|
|
||||||
|
|
||||||
$cnt=1;
|
|
||||||
&init_pool(2);
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
|
|
||||||
&ld(($a[0])=&NR(1),&QWPw(0,$ap));
|
|
||||||
&ld(($a[1])=&NR(1),&QWPw(1,$ap));
|
|
||||||
&ld(($a[2])=&NR(1),&QWPw(2,$ap));
|
|
||||||
&ld(($a[3])=&NR(1),&QWPw(3,$ap));
|
|
||||||
&ld(($a[4])=&NR(1),&QWPw(4,$ap));
|
|
||||||
&ld(($a[5])=&NR(1),&QWPw(5,$ap));
|
|
||||||
&ld(($a[6])=&NR(1),&QWPw(6,$ap));
|
|
||||||
&ld(($a[7])=&NR(1),&QWPw(7,$ap)); &FR($ap);
|
|
||||||
|
|
||||||
($c0,$c1,$c2)=&NR(3);
|
|
||||||
|
|
||||||
&mov("zero",$c2);
|
|
||||||
&mul($a[0],$a[0],$c0);
|
|
||||||
&muh($a[0],$a[0],$c1);
|
|
||||||
&st($c0,&QWPw(0,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[1],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(1,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[2],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(2,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[2],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[3],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(3,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[3],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[4],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(4,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[3],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[4],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(5,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[4],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(6,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[4],$a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[1],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[0],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(7,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[4],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[5],$a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[2],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[1],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(8,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[5],$a[4],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[3],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[2],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(9,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[5],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[6],$a[4],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[3],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(10,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[6],$a[5],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[4],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(11,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[6],$c0,$c1,$c2);
|
|
||||||
&sqr_add_c2($a[7],$a[5],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(12,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c2($a[7],$a[6],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(13,$rp));
|
|
||||||
($c0,$c1,$c2)=($c1,$c2,$c0);
|
|
||||||
&mov("zero",$c2);
|
|
||||||
|
|
||||||
&sqr_add_c($a[7],$c0,$c1,$c2);
|
|
||||||
&st($c0,&QWPw(14,$rp));
|
|
||||||
&st($c1,&QWPw(15,$rp));
|
|
||||||
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,108 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# alpha assember
|
|
||||||
|
|
||||||
sub bn_sub_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r);
|
|
||||||
|
|
||||||
&init_pool(4);
|
|
||||||
($cc)=GR("r0");
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
$count=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
($a0,$b0)=&NR(2);
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
($a1,$tmp,$b1,$a2,$b2,$a3,$b3,$o0)=&NR(8);
|
|
||||||
&ld($a1,&QWPw(1,$ap));
|
|
||||||
&cmpult($a0,$b0,$tmp); # will we borrow?
|
|
||||||
&ld($b1,&QWPw(1,$bp));
|
|
||||||
&sub($a0,$b0,$a0); # do the subtract
|
|
||||||
&ld($a2,&QWPw(2,$ap));
|
|
||||||
&cmpult($a0,$cc,$b0); # will we borrow?
|
|
||||||
&ld($b2,&QWPw(2,$bp));
|
|
||||||
&sub($a0,$cc,$o0); # will we borrow?
|
|
||||||
&ld($a3,&QWPw(3,$ap));
|
|
||||||
&add($b0,$tmp,$cc); ($t1,$o1)=&NR(2); &FR($tmp);
|
|
||||||
|
|
||||||
&cmpult($a1,$b1,$t1); # will we borrow?
|
|
||||||
&sub($a1,$b1,$a1); # do the subtract
|
|
||||||
&ld($b3,&QWPw(3,$bp));
|
|
||||||
&cmpult($a1,$cc,$b1); # will we borrow?
|
|
||||||
&sub($a1,$cc,$o1); # will we borrow?
|
|
||||||
&add($b1,$t1,$cc); ($tmp,$o2)=&NR(2); &FR($t1,$a1,$b1);
|
|
||||||
|
|
||||||
&cmpult($a2,$b2,$tmp); # will we borrow?
|
|
||||||
&sub($a2,$b2,$a2); # do the subtract
|
|
||||||
&st($o0,&QWPw(0,$rp)); &FR($o0); # save
|
|
||||||
&cmpult($a2,$cc,$b2); # will we borrow?
|
|
||||||
&sub($a2,$cc,$o2); # will we borrow?
|
|
||||||
&add($b2,$tmp,$cc); ($t3,$o3)=&NR(2); &FR($tmp,$a2,$b2);
|
|
||||||
|
|
||||||
&cmpult($a3,$b3,$t3); # will we borrow?
|
|
||||||
&sub($a3,$b3,$a3); # do the subtract
|
|
||||||
&st($o1,&QWPw(1,$rp)); &FR($o1);
|
|
||||||
&cmpult($a3,$cc,$b3); # will we borrow?
|
|
||||||
&sub($a3,$cc,$o3); # will we borrow?
|
|
||||||
&add($b3,$t3,$cc); &FR($t3,$a3,$b3);
|
|
||||||
|
|
||||||
&st($o2,&QWPw(2,$rp)); &FR($o2);
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&st($o3,&QWPw(3,$rp)); &FR($o3);
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld($a0,&QWPw(0,$ap)); # get a
|
|
||||||
&ld($b0,&QWPw(0,$bp)); # get b
|
|
||||||
&cmpult($a0,$b0,$tmp); # will we borrow?
|
|
||||||
&sub($a0,$b0,$a0); # do the subtract
|
|
||||||
&cmpult($a0,$cc,$b0); # will we borrow?
|
|
||||||
&sub($a0,$cc,$a0); # will we borrow?
|
|
||||||
&st($a0,&QWPw(0,$rp)); # save
|
|
||||||
&add($b0,$tmp,$cc); # add the borrows
|
|
||||||
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&add($bp,$QWS,$bp);
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&FR($a0,$b0);
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
|
|
||||||
&fin_pool;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
@ -1,571 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# I have this in perl so I can use more usefull register names and then convert
|
|
||||||
# them into alpha registers.
|
|
||||||
#
|
|
||||||
|
|
||||||
$d=&data();
|
|
||||||
$d =~ s/CC/0/g;
|
|
||||||
$d =~ s/R1/1/g;
|
|
||||||
$d =~ s/R2/2/g;
|
|
||||||
$d =~ s/R3/3/g;
|
|
||||||
$d =~ s/R4/4/g;
|
|
||||||
$d =~ s/L1/5/g;
|
|
||||||
$d =~ s/L2/6/g;
|
|
||||||
$d =~ s/L3/7/g;
|
|
||||||
$d =~ s/L4/8/g;
|
|
||||||
$d =~ s/O1/22/g;
|
|
||||||
$d =~ s/O2/23/g;
|
|
||||||
$d =~ s/O3/24/g;
|
|
||||||
$d =~ s/O4/25/g;
|
|
||||||
$d =~ s/A1/20/g;
|
|
||||||
$d =~ s/A2/21/g;
|
|
||||||
$d =~ s/A3/27/g;
|
|
||||||
$d =~ s/A4/28/g;
|
|
||||||
if (0){
|
|
||||||
}
|
|
||||||
|
|
||||||
print $d;
|
|
||||||
|
|
||||||
sub data
|
|
||||||
{
|
|
||||||
local($data)=<<'EOF';
|
|
||||||
|
|
||||||
# DEC Alpha assember
|
|
||||||
# The bn_div_words is actually gcc output but the other parts are hand done.
|
|
||||||
# Thanks to tzeruch@ceddec.com for sending me the gcc output for
|
|
||||||
# bn_div_words.
|
|
||||||
# I've gone back and re-done most of routines.
|
|
||||||
# The key thing to remeber for the 164 CPU is that while a
|
|
||||||
# multiply operation takes 8 cycles, another one can only be issued
|
|
||||||
# after 4 cycles have elapsed. I've done modification to help
|
|
||||||
# improve this. Also, normally, a ld instruction will not be available
|
|
||||||
# for about 3 cycles.
|
|
||||||
.file 1 "bn_asm.c"
|
|
||||||
.set noat
|
|
||||||
gcc2_compiled.:
|
|
||||||
__gnu_compiled_c:
|
|
||||||
.text
|
|
||||||
.align 3
|
|
||||||
.globl bn_mul_add_words
|
|
||||||
.ent bn_mul_add_words
|
|
||||||
bn_mul_add_words:
|
|
||||||
bn_mul_add_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
.align 5
|
|
||||||
subq $18,4,$18
|
|
||||||
bis $31,$31,$CC
|
|
||||||
blt $18,$43 # if we are -1, -2, -3 or -4 goto tail code
|
|
||||||
ldq $A1,0($17) # 1 1
|
|
||||||
ldq $R1,0($16) # 1 1
|
|
||||||
.align 3
|
|
||||||
$42:
|
|
||||||
mulq $A1,$19,$L1 # 1 2 1 ######
|
|
||||||
ldq $A2,8($17) # 2 1
|
|
||||||
ldq $R2,8($16) # 2 1
|
|
||||||
umulh $A1,$19,$A1 # 1 2 ######
|
|
||||||
ldq $A3,16($17) # 3 1
|
|
||||||
ldq $R3,16($16) # 3 1
|
|
||||||
mulq $A2,$19,$L2 # 2 2 1 ######
|
|
||||||
ldq $A4,24($17) # 4 1
|
|
||||||
addq $R1,$L1,$R1 # 1 2 2
|
|
||||||
ldq $R4,24($16) # 4 1
|
|
||||||
umulh $A2,$19,$A2 # 2 2 ######
|
|
||||||
cmpult $R1,$L1,$O1 # 1 2 3 1
|
|
||||||
addq $A1,$O1,$A1 # 1 3 1
|
|
||||||
addq $R1,$CC,$R1 # 1 2 3 1
|
|
||||||
mulq $A3,$19,$L3 # 3 2 1 ######
|
|
||||||
cmpult $R1,$CC,$CC # 1 2 3 2
|
|
||||||
addq $R2,$L2,$R2 # 2 2 2
|
|
||||||
addq $A1,$CC,$CC # 1 3 2
|
|
||||||
cmpult $R2,$L2,$O2 # 2 2 3 1
|
|
||||||
addq $A2,$O2,$A2 # 2 3 1
|
|
||||||
umulh $A3,$19,$A3 # 3 2 ######
|
|
||||||
addq $R2,$CC,$R2 # 2 2 3 1
|
|
||||||
cmpult $R2,$CC,$CC # 2 2 3 2
|
|
||||||
subq $18,4,$18
|
|
||||||
mulq $A4,$19,$L4 # 4 2 1 ######
|
|
||||||
addq $A2,$CC,$CC # 2 3 2
|
|
||||||
addq $R3,$L3,$R3 # 3 2 2
|
|
||||||
addq $16,32,$16
|
|
||||||
cmpult $R3,$L3,$O3 # 3 2 3 1
|
|
||||||
stq $R1,-32($16) # 1 2 4
|
|
||||||
umulh $A4,$19,$A4 # 4 2 ######
|
|
||||||
addq $A3,$O3,$A3 # 3 3 1
|
|
||||||
addq $R3,$CC,$R3 # 3 2 3 1
|
|
||||||
stq $R2,-24($16) # 2 2 4
|
|
||||||
cmpult $R3,$CC,$CC # 3 2 3 2
|
|
||||||
stq $R3,-16($16) # 3 2 4
|
|
||||||
addq $R4,$L4,$R4 # 4 2 2
|
|
||||||
addq $A3,$CC,$CC # 3 3 2
|
|
||||||
cmpult $R4,$L4,$O4 # 4 2 3 1
|
|
||||||
addq $17,32,$17
|
|
||||||
addq $A4,$O4,$A4 # 4 3 1
|
|
||||||
addq $R4,$CC,$R4 # 4 2 3 1
|
|
||||||
cmpult $R4,$CC,$CC # 4 2 3 2
|
|
||||||
stq $R4,-8($16) # 4 2 4
|
|
||||||
addq $A4,$CC,$CC # 4 3 2
|
|
||||||
blt $18,$43
|
|
||||||
|
|
||||||
ldq $A1,0($17) # 1 1
|
|
||||||
ldq $R1,0($16) # 1 1
|
|
||||||
|
|
||||||
br $42
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$45:
|
|
||||||
ldq $A1,0($17) # 4 1
|
|
||||||
ldq $R1,0($16) # 4 1
|
|
||||||
mulq $A1,$19,$L1 # 4 2 1
|
|
||||||
subq $18,1,$18
|
|
||||||
addq $16,8,$16
|
|
||||||
addq $17,8,$17
|
|
||||||
umulh $A1,$19,$A1 # 4 2
|
|
||||||
addq $R1,$L1,$R1 # 4 2 2
|
|
||||||
cmpult $R1,$L1,$O1 # 4 2 3 1
|
|
||||||
addq $A1,$O1,$A1 # 4 3 1
|
|
||||||
addq $R1,$CC,$R1 # 4 2 3 1
|
|
||||||
cmpult $R1,$CC,$CC # 4 2 3 2
|
|
||||||
addq $A1,$CC,$CC # 4 3 2
|
|
||||||
stq $R1,-8($16) # 4 2 4
|
|
||||||
bgt $18,$45
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$43:
|
|
||||||
addq $18,4,$18
|
|
||||||
bgt $18,$45 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.end bn_mul_add_words
|
|
||||||
.align 3
|
|
||||||
.globl bn_mul_words
|
|
||||||
.ent bn_mul_words
|
|
||||||
bn_mul_words:
|
|
||||||
bn_mul_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
.align 5
|
|
||||||
subq $18,4,$18
|
|
||||||
bis $31,$31,$CC
|
|
||||||
blt $18,$143 # if we are -1, -2, -3 or -4 goto tail code
|
|
||||||
ldq $A1,0($17) # 1 1
|
|
||||||
.align 3
|
|
||||||
$142:
|
|
||||||
|
|
||||||
mulq $A1,$19,$L1 # 1 2 1 #####
|
|
||||||
ldq $A2,8($17) # 2 1
|
|
||||||
ldq $A3,16($17) # 3 1
|
|
||||||
umulh $A1,$19,$A1 # 1 2 #####
|
|
||||||
ldq $A4,24($17) # 4 1
|
|
||||||
mulq $A2,$19,$L2 # 2 2 1 #####
|
|
||||||
addq $L1,$CC,$L1 # 1 2 3 1
|
|
||||||
subq $18,4,$18
|
|
||||||
cmpult $L1,$CC,$CC # 1 2 3 2
|
|
||||||
umulh $A2,$19,$A2 # 2 2 #####
|
|
||||||
addq $A1,$CC,$CC # 1 3 2
|
|
||||||
addq $17,32,$17
|
|
||||||
addq $L2,$CC,$L2 # 2 2 3 1
|
|
||||||
mulq $A3,$19,$L3 # 3 2 1 #####
|
|
||||||
cmpult $L2,$CC,$CC # 2 2 3 2
|
|
||||||
addq $A2,$CC,$CC # 2 3 2
|
|
||||||
addq $16,32,$16
|
|
||||||
umulh $A3,$19,$A3 # 3 2 #####
|
|
||||||
stq $L1,-32($16) # 1 2 4
|
|
||||||
mulq $A4,$19,$L4 # 4 2 1 #####
|
|
||||||
addq $L3,$CC,$L3 # 3 2 3 1
|
|
||||||
stq $L2,-24($16) # 2 2 4
|
|
||||||
cmpult $L3,$CC,$CC # 3 2 3 2
|
|
||||||
umulh $A4,$19,$A4 # 4 2 #####
|
|
||||||
addq $A3,$CC,$CC # 3 3 2
|
|
||||||
stq $L3,-16($16) # 3 2 4
|
|
||||||
addq $L4,$CC,$L4 # 4 2 3 1
|
|
||||||
cmpult $L4,$CC,$CC # 4 2 3 2
|
|
||||||
|
|
||||||
addq $A4,$CC,$CC # 4 3 2
|
|
||||||
|
|
||||||
stq $L4,-8($16) # 4 2 4
|
|
||||||
|
|
||||||
blt $18,$143
|
|
||||||
|
|
||||||
ldq $A1,0($17) # 1 1
|
|
||||||
|
|
||||||
br $142
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$145:
|
|
||||||
ldq $A1,0($17) # 4 1
|
|
||||||
mulq $A1,$19,$L1 # 4 2 1
|
|
||||||
subq $18,1,$18
|
|
||||||
umulh $A1,$19,$A1 # 4 2
|
|
||||||
addq $L1,$CC,$L1 # 4 2 3 1
|
|
||||||
addq $16,8,$16
|
|
||||||
cmpult $L1,$CC,$CC # 4 2 3 2
|
|
||||||
addq $17,8,$17
|
|
||||||
addq $A1,$CC,$CC # 4 3 2
|
|
||||||
stq $L1,-8($16) # 4 2 4
|
|
||||||
|
|
||||||
bgt $18,$145
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$143:
|
|
||||||
addq $18,4,$18
|
|
||||||
bgt $18,$145 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.end bn_mul_words
|
|
||||||
.align 3
|
|
||||||
.globl bn_sqr_words
|
|
||||||
.ent bn_sqr_words
|
|
||||||
bn_sqr_words:
|
|
||||||
bn_sqr_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
|
|
||||||
subq $18,4,$18
|
|
||||||
blt $18,$543 # if we are -1, -2, -3 or -4 goto tail code
|
|
||||||
ldq $A1,0($17) # 1 1
|
|
||||||
.align 3
|
|
||||||
$542:
|
|
||||||
mulq $A1,$A1,$L1 ######
|
|
||||||
ldq $A2,8($17) # 1 1
|
|
||||||
subq $18,4
|
|
||||||
umulh $A1,$A1,$R1 ######
|
|
||||||
ldq $A3,16($17) # 1 1
|
|
||||||
mulq $A2,$A2,$L2 ######
|
|
||||||
ldq $A4,24($17) # 1 1
|
|
||||||
stq $L1,0($16) # r[0]
|
|
||||||
umulh $A2,$A2,$R2 ######
|
|
||||||
stq $R1,8($16) # r[1]
|
|
||||||
mulq $A3,$A3,$L3 ######
|
|
||||||
stq $L2,16($16) # r[0]
|
|
||||||
umulh $A3,$A3,$R3 ######
|
|
||||||
stq $R2,24($16) # r[1]
|
|
||||||
mulq $A4,$A4,$L4 ######
|
|
||||||
stq $L3,32($16) # r[0]
|
|
||||||
umulh $A4,$A4,$R4 ######
|
|
||||||
stq $R3,40($16) # r[1]
|
|
||||||
|
|
||||||
addq $16,64,$16
|
|
||||||
addq $17,32,$17
|
|
||||||
stq $L4,-16($16) # r[0]
|
|
||||||
stq $R4,-8($16) # r[1]
|
|
||||||
|
|
||||||
blt $18,$543
|
|
||||||
ldq $A1,0($17) # 1 1
|
|
||||||
br $542
|
|
||||||
|
|
||||||
$442:
|
|
||||||
ldq $A1,0($17) # a[0]
|
|
||||||
mulq $A1,$A1,$L1 # a[0]*w low part r2
|
|
||||||
addq $16,16,$16
|
|
||||||
addq $17,8,$17
|
|
||||||
subq $18,1,$18
|
|
||||||
umulh $A1,$A1,$R1 # a[0]*w high part r3
|
|
||||||
stq $L1,-16($16) # r[0]
|
|
||||||
stq $R1,-8($16) # r[1]
|
|
||||||
|
|
||||||
bgt $18,$442
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
$543:
|
|
||||||
addq $18,4,$18
|
|
||||||
bgt $18,$442 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
.end bn_sqr_words
|
|
||||||
|
|
||||||
.align 3
|
|
||||||
.globl bn_add_words
|
|
||||||
.ent bn_add_words
|
|
||||||
bn_add_words:
|
|
||||||
bn_add_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
|
|
||||||
subq $19,4,$19
|
|
||||||
bis $31,$31,$CC # carry = 0
|
|
||||||
blt $19,$900
|
|
||||||
ldq $L1,0($17) # a[0]
|
|
||||||
ldq $R1,0($18) # b[1]
|
|
||||||
.align 3
|
|
||||||
$901:
|
|
||||||
addq $R1,$L1,$R1 # r=a+b;
|
|
||||||
ldq $L2,8($17) # a[1]
|
|
||||||
cmpult $R1,$L1,$O1 # did we overflow?
|
|
||||||
ldq $R2,8($18) # b[1]
|
|
||||||
addq $R1,$CC,$R1 # c+= overflow
|
|
||||||
ldq $L3,16($17) # a[2]
|
|
||||||
cmpult $R1,$CC,$CC # overflow?
|
|
||||||
ldq $R3,16($18) # b[2]
|
|
||||||
addq $CC,$O1,$CC
|
|
||||||
ldq $L4,24($17) # a[3]
|
|
||||||
addq $R2,$L2,$R2 # r=a+b;
|
|
||||||
ldq $R4,24($18) # b[3]
|
|
||||||
cmpult $R2,$L2,$O2 # did we overflow?
|
|
||||||
addq $R3,$L3,$R3 # r=a+b;
|
|
||||||
addq $R2,$CC,$R2 # c+= overflow
|
|
||||||
cmpult $R3,$L3,$O3 # did we overflow?
|
|
||||||
cmpult $R2,$CC,$CC # overflow?
|
|
||||||
addq $R4,$L4,$R4 # r=a+b;
|
|
||||||
addq $CC,$O2,$CC
|
|
||||||
cmpult $R4,$L4,$O4 # did we overflow?
|
|
||||||
addq $R3,$CC,$R3 # c+= overflow
|
|
||||||
stq $R1,0($16) # r[0]=c
|
|
||||||
cmpult $R3,$CC,$CC # overflow?
|
|
||||||
stq $R2,8($16) # r[1]=c
|
|
||||||
addq $CC,$O3,$CC
|
|
||||||
stq $R3,16($16) # r[2]=c
|
|
||||||
addq $R4,$CC,$R4 # c+= overflow
|
|
||||||
subq $19,4,$19 # loop--
|
|
||||||
cmpult $R4,$CC,$CC # overflow?
|
|
||||||
addq $17,32,$17 # a++
|
|
||||||
addq $CC,$O4,$CC
|
|
||||||
stq $R4,24($16) # r[3]=c
|
|
||||||
addq $18,32,$18 # b++
|
|
||||||
addq $16,32,$16 # r++
|
|
||||||
|
|
||||||
blt $19,$900
|
|
||||||
ldq $L1,0($17) # a[0]
|
|
||||||
ldq $R1,0($18) # b[1]
|
|
||||||
br $901
|
|
||||||
.align 4
|
|
||||||
$945:
|
|
||||||
ldq $L1,0($17) # a[0]
|
|
||||||
ldq $R1,0($18) # b[1]
|
|
||||||
addq $R1,$L1,$R1 # r=a+b;
|
|
||||||
subq $19,1,$19 # loop--
|
|
||||||
addq $R1,$CC,$R1 # c+= overflow
|
|
||||||
addq $17,8,$17 # a++
|
|
||||||
cmpult $R1,$L1,$O1 # did we overflow?
|
|
||||||
cmpult $R1,$CC,$CC # overflow?
|
|
||||||
addq $18,8,$18 # b++
|
|
||||||
stq $R1,0($16) # r[0]=c
|
|
||||||
addq $CC,$O1,$CC
|
|
||||||
addq $16,8,$16 # r++
|
|
||||||
|
|
||||||
bgt $19,$945
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
$900:
|
|
||||||
addq $19,4,$19
|
|
||||||
bgt $19,$945 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
.end bn_add_words
|
|
||||||
|
|
||||||
.align 3
|
|
||||||
.globl bn_sub_words
|
|
||||||
.ent bn_sub_words
|
|
||||||
bn_sub_words:
|
|
||||||
bn_sub_words..ng:
|
|
||||||
.frame $30,0,$26,0
|
|
||||||
.prologue 0
|
|
||||||
|
|
||||||
subq $19,4,$19
|
|
||||||
bis $31,$31,$CC # carry = 0
|
|
||||||
br $800
|
|
||||||
blt $19,$800
|
|
||||||
ldq $L1,0($17) # a[0]
|
|
||||||
ldq $R1,0($18) # b[1]
|
|
||||||
.align 3
|
|
||||||
$801:
|
|
||||||
addq $R1,$L1,$R1 # r=a+b;
|
|
||||||
ldq $L2,8($17) # a[1]
|
|
||||||
cmpult $R1,$L1,$O1 # did we overflow?
|
|
||||||
ldq $R2,8($18) # b[1]
|
|
||||||
addq $R1,$CC,$R1 # c+= overflow
|
|
||||||
ldq $L3,16($17) # a[2]
|
|
||||||
cmpult $R1,$CC,$CC # overflow?
|
|
||||||
ldq $R3,16($18) # b[2]
|
|
||||||
addq $CC,$O1,$CC
|
|
||||||
ldq $L4,24($17) # a[3]
|
|
||||||
addq $R2,$L2,$R2 # r=a+b;
|
|
||||||
ldq $R4,24($18) # b[3]
|
|
||||||
cmpult $R2,$L2,$O2 # did we overflow?
|
|
||||||
addq $R3,$L3,$R3 # r=a+b;
|
|
||||||
addq $R2,$CC,$R2 # c+= overflow
|
|
||||||
cmpult $R3,$L3,$O3 # did we overflow?
|
|
||||||
cmpult $R2,$CC,$CC # overflow?
|
|
||||||
addq $R4,$L4,$R4 # r=a+b;
|
|
||||||
addq $CC,$O2,$CC
|
|
||||||
cmpult $R4,$L4,$O4 # did we overflow?
|
|
||||||
addq $R3,$CC,$R3 # c+= overflow
|
|
||||||
stq $R1,0($16) # r[0]=c
|
|
||||||
cmpult $R3,$CC,$CC # overflow?
|
|
||||||
stq $R2,8($16) # r[1]=c
|
|
||||||
addq $CC,$O3,$CC
|
|
||||||
stq $R3,16($16) # r[2]=c
|
|
||||||
addq $R4,$CC,$R4 # c+= overflow
|
|
||||||
subq $19,4,$19 # loop--
|
|
||||||
cmpult $R4,$CC,$CC # overflow?
|
|
||||||
addq $17,32,$17 # a++
|
|
||||||
addq $CC,$O4,$CC
|
|
||||||
stq $R4,24($16) # r[3]=c
|
|
||||||
addq $18,32,$18 # b++
|
|
||||||
addq $16,32,$16 # r++
|
|
||||||
|
|
||||||
blt $19,$800
|
|
||||||
ldq $L1,0($17) # a[0]
|
|
||||||
ldq $R1,0($18) # b[1]
|
|
||||||
br $801
|
|
||||||
.align 4
|
|
||||||
$845:
|
|
||||||
ldq $L1,0($17) # a[0]
|
|
||||||
ldq $R1,0($18) # b[1]
|
|
||||||
cmpult $L1,$R1,$O1 # will we borrow?
|
|
||||||
subq $L1,$R1,$R1 # r=a-b;
|
|
||||||
subq $19,1,$19 # loop--
|
|
||||||
cmpult $R1,$CC,$O2 # will we borrow?
|
|
||||||
subq $R1,$CC,$R1 # c+= overflow
|
|
||||||
addq $17,8,$17 # a++
|
|
||||||
addq $18,8,$18 # b++
|
|
||||||
stq $R1,0($16) # r[0]=c
|
|
||||||
addq $O2,$O1,$CC
|
|
||||||
addq $16,8,$16 # r++
|
|
||||||
|
|
||||||
bgt $19,$845
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
|
|
||||||
$800:
|
|
||||||
addq $19,4,$19
|
|
||||||
bgt $19,$845 # goto tail code
|
|
||||||
ret $31,($26),1 # else exit
|
|
||||||
.end bn_sub_words
|
|
||||||
|
|
||||||
#
|
|
||||||
# What follows was taken directly from the C compiler with a few
|
|
||||||
# hacks to redo the lables.
|
|
||||||
#
|
|
||||||
.text
|
|
||||||
.align 3
|
|
||||||
.globl bn_div_words
|
|
||||||
.ent bn_div_words
|
|
||||||
bn_div_words:
|
|
||||||
ldgp $29,0($27)
|
|
||||||
bn_div_words..ng:
|
|
||||||
lda $30,-48($30)
|
|
||||||
.frame $30,48,$26,0
|
|
||||||
stq $26,0($30)
|
|
||||||
stq $9,8($30)
|
|
||||||
stq $10,16($30)
|
|
||||||
stq $11,24($30)
|
|
||||||
stq $12,32($30)
|
|
||||||
stq $13,40($30)
|
|
||||||
.mask 0x4003e00,-48
|
|
||||||
.prologue 1
|
|
||||||
bis $16,$16,$9
|
|
||||||
bis $17,$17,$10
|
|
||||||
bis $18,$18,$11
|
|
||||||
bis $31,$31,$13
|
|
||||||
bis $31,2,$12
|
|
||||||
bne $11,$119
|
|
||||||
lda $0,-1
|
|
||||||
br $31,$136
|
|
||||||
.align 4
|
|
||||||
$119:
|
|
||||||
bis $11,$11,$16
|
|
||||||
jsr $26,BN_num_bits_word
|
|
||||||
ldgp $29,0($26)
|
|
||||||
subq $0,64,$1
|
|
||||||
beq $1,$120
|
|
||||||
bis $31,1,$1
|
|
||||||
sll $1,$0,$1
|
|
||||||
cmpule $9,$1,$1
|
|
||||||
bne $1,$120
|
|
||||||
# lda $16,_IO_stderr_
|
|
||||||
# lda $17,$C32
|
|
||||||
# bis $0,$0,$18
|
|
||||||
# jsr $26,fprintf
|
|
||||||
# ldgp $29,0($26)
|
|
||||||
jsr $26,abort
|
|
||||||
ldgp $29,0($26)
|
|
||||||
.align 4
|
|
||||||
$120:
|
|
||||||
bis $31,64,$3
|
|
||||||
cmpult $9,$11,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
addl $1,$31,$0
|
|
||||||
subq $9,$11,$1
|
|
||||||
cmoveq $2,$1,$9
|
|
||||||
beq $0,$122
|
|
||||||
zapnot $0,15,$2
|
|
||||||
subq $3,$0,$1
|
|
||||||
sll $11,$2,$11
|
|
||||||
sll $9,$2,$3
|
|
||||||
srl $10,$1,$1
|
|
||||||
sll $10,$2,$10
|
|
||||||
bis $3,$1,$9
|
|
||||||
$122:
|
|
||||||
srl $11,32,$5
|
|
||||||
zapnot $11,15,$6
|
|
||||||
lda $7,-1
|
|
||||||
.align 5
|
|
||||||
$123:
|
|
||||||
srl $9,32,$1
|
|
||||||
subq $1,$5,$1
|
|
||||||
bne $1,$126
|
|
||||||
zapnot $7,15,$27
|
|
||||||
br $31,$127
|
|
||||||
.align 4
|
|
||||||
$126:
|
|
||||||
bis $9,$9,$24
|
|
||||||
bis $5,$5,$25
|
|
||||||
divqu $24,$25,$27
|
|
||||||
$127:
|
|
||||||
srl $10,32,$4
|
|
||||||
.align 5
|
|
||||||
$128:
|
|
||||||
mulq $27,$5,$1
|
|
||||||
subq $9,$1,$3
|
|
||||||
zapnot $3,240,$1
|
|
||||||
bne $1,$129
|
|
||||||
mulq $6,$27,$2
|
|
||||||
sll $3,32,$1
|
|
||||||
addq $1,$4,$1
|
|
||||||
cmpule $2,$1,$2
|
|
||||||
bne $2,$129
|
|
||||||
subq $27,1,$27
|
|
||||||
br $31,$128
|
|
||||||
.align 4
|
|
||||||
$129:
|
|
||||||
mulq $27,$6,$1
|
|
||||||
mulq $27,$5,$4
|
|
||||||
srl $1,32,$3
|
|
||||||
sll $1,32,$1
|
|
||||||
addq $4,$3,$4
|
|
||||||
cmpult $10,$1,$2
|
|
||||||
subq $10,$1,$10
|
|
||||||
addq $2,$4,$2
|
|
||||||
cmpult $9,$2,$1
|
|
||||||
bis $2,$2,$4
|
|
||||||
beq $1,$134
|
|
||||||
addq $9,$11,$9
|
|
||||||
subq $27,1,$27
|
|
||||||
$134:
|
|
||||||
subl $12,1,$12
|
|
||||||
subq $9,$4,$9
|
|
||||||
beq $12,$124
|
|
||||||
sll $27,32,$13
|
|
||||||
sll $9,32,$2
|
|
||||||
srl $10,32,$1
|
|
||||||
sll $10,32,$10
|
|
||||||
bis $2,$1,$9
|
|
||||||
br $31,$123
|
|
||||||
.align 4
|
|
||||||
$124:
|
|
||||||
bis $13,$27,$0
|
|
||||||
$136:
|
|
||||||
ldq $26,0($30)
|
|
||||||
ldq $9,8($30)
|
|
||||||
ldq $10,16($30)
|
|
||||||
ldq $11,24($30)
|
|
||||||
ldq $12,32($30)
|
|
||||||
ldq $13,40($30)
|
|
||||||
addq $30,48,$30
|
|
||||||
ret $31,($26),1
|
|
||||||
.end bn_div_words
|
|
||||||
EOF
|
|
||||||
return($data);
|
|
||||||
}
|
|
||||||
|
|
||||||
@ -1,33 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# I have this in perl so I can use more usefull register names and then convert
|
|
||||||
# them into alpha registers.
|
|
||||||
#
|
|
||||||
|
|
||||||
push(@INC,"perlasm","../../perlasm");
|
|
||||||
require "alpha.pl";
|
|
||||||
require "alpha/mul_add.pl";
|
|
||||||
require "alpha/mul.pl";
|
|
||||||
require "alpha/sqr.pl";
|
|
||||||
require "alpha/add.pl";
|
|
||||||
require "alpha/sub.pl";
|
|
||||||
require "alpha/mul_c8.pl";
|
|
||||||
require "alpha/mul_c4.pl";
|
|
||||||
require "alpha/sqr_c4.pl";
|
|
||||||
require "alpha/sqr_c8.pl";
|
|
||||||
require "alpha/div.pl";
|
|
||||||
|
|
||||||
&asm_init($ARGV[0],$0);
|
|
||||||
|
|
||||||
&bn_mul_words("bn_mul_words");
|
|
||||||
&bn_sqr_words("bn_sqr_words");
|
|
||||||
&bn_mul_add_words("bn_mul_add_words");
|
|
||||||
&bn_add_words("bn_add_words");
|
|
||||||
&bn_sub_words("bn_sub_words");
|
|
||||||
&bn_div_words("bn_div_words");
|
|
||||||
&bn_mul_comba8("bn_mul_comba8");
|
|
||||||
&bn_mul_comba4("bn_mul_comba4");
|
|
||||||
&bn_sqr_comba4("bn_sqr_comba4");
|
|
||||||
&bn_sqr_comba8("bn_sqr_comba8");
|
|
||||||
|
|
||||||
&asm_finish();
|
|
||||||
|
|
||||||
@ -1,116 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
# I have this in perl so I can use more usefull register names and then convert
|
|
||||||
# them into alpha registers.
|
|
||||||
#
|
|
||||||
|
|
||||||
push(@INC,"perlasm","../../perlasm");
|
|
||||||
require "alpha.pl";
|
|
||||||
|
|
||||||
&asm_init($ARGV[0],$0);
|
|
||||||
|
|
||||||
print &bn_sub_words("bn_sub_words");
|
|
||||||
|
|
||||||
&asm_finish();
|
|
||||||
|
|
||||||
sub bn_sub_words
|
|
||||||
{
|
|
||||||
local($name)=@_;
|
|
||||||
local($cc,$a,$b,$r);
|
|
||||||
|
|
||||||
$cc="r0";
|
|
||||||
$a0="r1"; $b0="r5"; $r0="r9"; $tmp="r13";
|
|
||||||
$a1="r2"; $b1="r6"; $r1="r10"; $t1="r14";
|
|
||||||
$a2="r3"; $b2="r7"; $r2="r11";
|
|
||||||
$a3="r4"; $b3="r8"; $r3="r12"; $t3="r15";
|
|
||||||
|
|
||||||
$rp=&wparam(0);
|
|
||||||
$ap=&wparam(1);
|
|
||||||
$bp=&wparam(2);
|
|
||||||
$count=&wparam(3);
|
|
||||||
|
|
||||||
&function_begin($name,"");
|
|
||||||
|
|
||||||
&comment("");
|
|
||||||
&sub($count,4,$count);
|
|
||||||
&mov("zero",$cc);
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
|
|
||||||
##########################################################
|
|
||||||
&set_label("loop");
|
|
||||||
|
|
||||||
&ld($a1,&QWPw(1,$ap));
|
|
||||||
&cmpult($a0,$b0,$tmp); # will we borrow?
|
|
||||||
&ld($b1,&QWPw(1,$bp));
|
|
||||||
&sub($a0,$b0,$a0); # do the subtract
|
|
||||||
&ld($a2,&QWPw(2,$ap));
|
|
||||||
&cmpult($a0,$cc,$b0); # will we borrow?
|
|
||||||
&ld($b2,&QWPw(2,$bp));
|
|
||||||
&sub($a0,$cc,$a0); # will we borrow?
|
|
||||||
&ld($a3,&QWPw(3,$ap));
|
|
||||||
&add($b0,$tmp,$cc); # add the borrows
|
|
||||||
|
|
||||||
&cmpult($a1,$b1,$t1); # will we borrow?
|
|
||||||
&sub($a1,$b1,$a1); # do the subtract
|
|
||||||
&ld($b3,&QWPw(3,$bp));
|
|
||||||
&cmpult($a1,$cc,$b1); # will we borrow?
|
|
||||||
&sub($a1,$cc,$a1); # will we borrow?
|
|
||||||
&add($b1,$t1,$cc); # add the borrows
|
|
||||||
|
|
||||||
&cmpult($a2,$b2,$tmp); # will we borrow?
|
|
||||||
&sub($a2,$b2,$a2); # do the subtract
|
|
||||||
&st($a0,&QWPw(0,$rp)); # save
|
|
||||||
&cmpult($a2,$cc,$b2); # will we borrow?
|
|
||||||
&sub($a2,$cc,$a2); # will we borrow?
|
|
||||||
&add($b2,$tmp,$cc); # add the borrows
|
|
||||||
|
|
||||||
&cmpult($a3,$b3,$t3); # will we borrow?
|
|
||||||
&sub($a3,$b3,$a3); # do the subtract
|
|
||||||
&st($a1,&QWPw(1,$rp)); # save
|
|
||||||
&cmpult($a3,$cc,$b3); # will we borrow?
|
|
||||||
&sub($a3,$cc,$a3); # will we borrow?
|
|
||||||
&add($b3,$t3,$cc); # add the borrows
|
|
||||||
|
|
||||||
&st($a2,&QWPw(2,$rp)); # save
|
|
||||||
&sub($count,4,$count); # count-=4
|
|
||||||
&st($a3,&QWPw(3,$rp)); # save
|
|
||||||
&add($ap,4*$QWS,$ap); # count+=4
|
|
||||||
&add($bp,4*$QWS,$bp); # count+=4
|
|
||||||
&add($rp,4*$QWS,$rp); # count+=4
|
|
||||||
|
|
||||||
&blt($count,&label("finish"));
|
|
||||||
&ld($a0,&QWPw(0,$ap));
|
|
||||||
&ld($b0,&QWPw(0,$bp));
|
|
||||||
&br(&label("loop"));
|
|
||||||
##################################################
|
|
||||||
# Do the last 0..3 words
|
|
||||||
|
|
||||||
&set_label("last_loop");
|
|
||||||
|
|
||||||
&ld($a0,&QWPw(0,$ap)); # get a
|
|
||||||
&ld($b0,&QWPw(0,$bp)); # get b
|
|
||||||
&cmpult($a0,$b0,$tmp); # will we borrow?
|
|
||||||
&sub($a0,$b0,$a0); # do the subtract
|
|
||||||
&cmpult($a0,$cc,$b0); # will we borrow?
|
|
||||||
&sub($a0,$cc,$a0); # will we borrow?
|
|
||||||
&st($a0,&QWPw(0,$rp)); # save
|
|
||||||
&add($b0,$tmp,$cc); # add the borrows
|
|
||||||
|
|
||||||
&add($ap,$QWS,$ap);
|
|
||||||
&add($bp,$QWS,$bp);
|
|
||||||
&add($rp,$QWS,$rp);
|
|
||||||
&sub($count,1,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
&function_end_A($name);
|
|
||||||
|
|
||||||
######################################################
|
|
||||||
&set_label("finish");
|
|
||||||
&add($count,4,$count);
|
|
||||||
&bgt($count,&label("last_loop"));
|
|
||||||
|
|
||||||
&set_label("end");
|
|
||||||
&function_end($name);
|
|
||||||
}
|
|
||||||
|
|
||||||
@ -1,539 +0,0 @@
|
|||||||
/* This assember is for R2000/R3000 machines, or higher ones that do
|
|
||||||
* no want to do any 64 bit arithmatic.
|
|
||||||
* Make sure that the SSLeay bignum library is compiled with
|
|
||||||
* THIRTY_TWO_BIT set.
|
|
||||||
* This must either be compiled with the system CC, or, if you use GNU gas,
|
|
||||||
* cc -E mips1.s|gas -o mips1.o
|
|
||||||
*/
|
|
||||||
.set reorder
|
|
||||||
.set noat
|
|
||||||
|
|
||||||
#define R1 $1
|
|
||||||
#define CC $2
|
|
||||||
#define R2 $3
|
|
||||||
#define R3 $8
|
|
||||||
#define R4 $9
|
|
||||||
#define L1 $10
|
|
||||||
#define L2 $11
|
|
||||||
#define L3 $12
|
|
||||||
#define L4 $13
|
|
||||||
#define H1 $14
|
|
||||||
#define H2 $15
|
|
||||||
#define H3 $24
|
|
||||||
#define H4 $25
|
|
||||||
|
|
||||||
#define P1 $4
|
|
||||||
#define P2 $5
|
|
||||||
#define P3 $6
|
|
||||||
#define P4 $7
|
|
||||||
|
|
||||||
.align 2
|
|
||||||
.ent bn_mul_add_words
|
|
||||||
.globl bn_mul_add_words
|
|
||||||
.text
|
|
||||||
bn_mul_add_words:
|
|
||||||
.frame $sp,0,$31
|
|
||||||
.mask 0x00000000,0
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
|
|
||||||
#blt P3,4,$lab34
|
|
||||||
|
|
||||||
subu R1,P3,4
|
|
||||||
move CC,$0
|
|
||||||
bltz R1,$lab34
|
|
||||||
$lab2:
|
|
||||||
lw R1,0(P1)
|
|
||||||
lw L1,0(P2)
|
|
||||||
lw R2,4(P1)
|
|
||||||
lw L2,4(P2)
|
|
||||||
lw R3,8(P1)
|
|
||||||
lw L3,8(P2)
|
|
||||||
lw R4,12(P1)
|
|
||||||
lw L4,12(P2)
|
|
||||||
multu L1,P4
|
|
||||||
addu R1,R1,CC
|
|
||||||
mflo L1
|
|
||||||
sltu CC,R1,CC
|
|
||||||
addu R1,R1,L1
|
|
||||||
mfhi H1
|
|
||||||
sltu L1,R1,L1
|
|
||||||
sw R1,0(P1)
|
|
||||||
addu CC,CC,L1
|
|
||||||
multu L2,P4
|
|
||||||
addu CC,H1,CC
|
|
||||||
mflo L2
|
|
||||||
addu R2,R2,CC
|
|
||||||
sltu CC,R2,CC
|
|
||||||
mfhi H2
|
|
||||||
addu R2,R2,L2
|
|
||||||
addu P2,P2,16
|
|
||||||
sltu L2,R2,L2
|
|
||||||
sw R2,4(P1)
|
|
||||||
addu CC,CC,L2
|
|
||||||
multu L3,P4
|
|
||||||
addu CC,H2,CC
|
|
||||||
mflo L3
|
|
||||||
addu R3,R3,CC
|
|
||||||
sltu CC,R3,CC
|
|
||||||
mfhi H3
|
|
||||||
addu R3,R3,L3
|
|
||||||
addu P1,P1,16
|
|
||||||
sltu L3,R3,L3
|
|
||||||
sw R3,-8(P1)
|
|
||||||
addu CC,CC,L3
|
|
||||||
multu L4,P4
|
|
||||||
addu CC,H3,CC
|
|
||||||
mflo L4
|
|
||||||
addu R4,R4,CC
|
|
||||||
sltu CC,R4,CC
|
|
||||||
mfhi H4
|
|
||||||
addu R4,R4,L4
|
|
||||||
subu P3,P3,4
|
|
||||||
sltu L4,R4,L4
|
|
||||||
addu CC,CC,L4
|
|
||||||
addu CC,H4,CC
|
|
||||||
|
|
||||||
subu R1,P3,4
|
|
||||||
sw R4,-4(P1) # delay slot
|
|
||||||
bgez R1,$lab2
|
|
||||||
|
|
||||||
bleu P3,0,$lab3
|
|
||||||
.align 2
|
|
||||||
$lab33:
|
|
||||||
lw L1,0(P2)
|
|
||||||
lw R1,0(P1)
|
|
||||||
multu L1,P4
|
|
||||||
addu R1,R1,CC
|
|
||||||
sltu CC,R1,CC
|
|
||||||
addu P1,P1,4
|
|
||||||
mflo L1
|
|
||||||
mfhi H1
|
|
||||||
addu R1,R1,L1
|
|
||||||
addu P2,P2,4
|
|
||||||
sltu L1,R1,L1
|
|
||||||
subu P3,P3,1
|
|
||||||
addu CC,CC,L1
|
|
||||||
sw R1,-4(P1)
|
|
||||||
addu CC,H1,CC
|
|
||||||
bgtz P3,$lab33
|
|
||||||
j $31
|
|
||||||
.align 2
|
|
||||||
$lab3:
|
|
||||||
j $31
|
|
||||||
.align 2
|
|
||||||
$lab34:
|
|
||||||
bgt P3,0,$lab33
|
|
||||||
j $31
|
|
||||||
.end bn_mul_add_words
|
|
||||||
|
|
||||||
.align 2
|
|
||||||
# Program Unit: bn_mul_words
|
|
||||||
.ent bn_mul_words
|
|
||||||
.globl bn_mul_words
|
|
||||||
.text
|
|
||||||
bn_mul_words:
|
|
||||||
.frame $sp,0,$31
|
|
||||||
.mask 0x00000000,0
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
|
|
||||||
subu P3,P3,4
|
|
||||||
move CC,$0
|
|
||||||
bltz P3,$lab45
|
|
||||||
$lab44:
|
|
||||||
lw L1,0(P2)
|
|
||||||
lw L2,4(P2)
|
|
||||||
lw L3,8(P2)
|
|
||||||
lw L4,12(P2)
|
|
||||||
multu L1,P4
|
|
||||||
subu P3,P3,4
|
|
||||||
mflo L1
|
|
||||||
mfhi H1
|
|
||||||
addu L1,L1,CC
|
|
||||||
multu L2,P4
|
|
||||||
sltu CC,L1,CC
|
|
||||||
sw L1,0(P1)
|
|
||||||
addu CC,H1,CC
|
|
||||||
mflo L2
|
|
||||||
mfhi H2
|
|
||||||
addu L2,L2,CC
|
|
||||||
multu L3,P4
|
|
||||||
sltu CC,L2,CC
|
|
||||||
sw L2,4(P1)
|
|
||||||
addu CC,H2,CC
|
|
||||||
mflo L3
|
|
||||||
mfhi H3
|
|
||||||
addu L3,L3,CC
|
|
||||||
multu L4,P4
|
|
||||||
sltu CC,L3,CC
|
|
||||||
sw L3,8(P1)
|
|
||||||
addu CC,H3,CC
|
|
||||||
mflo L4
|
|
||||||
mfhi H4
|
|
||||||
addu L4,L4,CC
|
|
||||||
addu P1,P1,16
|
|
||||||
sltu CC,L4,CC
|
|
||||||
addu P2,P2,16
|
|
||||||
addu CC,H4,CC
|
|
||||||
sw L4,-4(P1)
|
|
||||||
|
|
||||||
bgez P3,$lab44
|
|
||||||
b $lab45
|
|
||||||
$lab46:
|
|
||||||
lw L1,0(P2)
|
|
||||||
addu P1,P1,4
|
|
||||||
multu L1,P4
|
|
||||||
addu P2,P2,4
|
|
||||||
mflo L1
|
|
||||||
mfhi H1
|
|
||||||
addu L1,L1,CC
|
|
||||||
subu P3,P3,1
|
|
||||||
sltu CC,L1,CC
|
|
||||||
sw L1,-4(P1)
|
|
||||||
addu CC,H1,CC
|
|
||||||
bgtz P3,$lab46
|
|
||||||
j $31
|
|
||||||
$lab45:
|
|
||||||
addu P3,P3,4
|
|
||||||
bgtz P3,$lab46
|
|
||||||
j $31
|
|
||||||
.align 2
|
|
||||||
.end bn_mul_words
|
|
||||||
|
|
||||||
# Program Unit: bn_sqr_words
|
|
||||||
.ent bn_sqr_words
|
|
||||||
.globl bn_sqr_words
|
|
||||||
.text
|
|
||||||
bn_sqr_words:
|
|
||||||
.frame $sp,0,$31
|
|
||||||
.mask 0x00000000,0
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
|
|
||||||
subu P3,P3,4
|
|
||||||
bltz P3,$lab55
|
|
||||||
$lab54:
|
|
||||||
lw L1,0(P2)
|
|
||||||
lw L2,4(P2)
|
|
||||||
lw L3,8(P2)
|
|
||||||
lw L4,12(P2)
|
|
||||||
|
|
||||||
multu L1,L1
|
|
||||||
subu P3,P3,4
|
|
||||||
mflo L1
|
|
||||||
mfhi H1
|
|
||||||
sw L1,0(P1)
|
|
||||||
sw H1,4(P1)
|
|
||||||
|
|
||||||
multu L2,L2
|
|
||||||
addu P1,P1,32
|
|
||||||
mflo L2
|
|
||||||
mfhi H2
|
|
||||||
sw L2,-24(P1)
|
|
||||||
sw H2,-20(P1)
|
|
||||||
|
|
||||||
multu L3,L3
|
|
||||||
addu P2,P2,16
|
|
||||||
mflo L3
|
|
||||||
mfhi H3
|
|
||||||
sw L3,-16(P1)
|
|
||||||
sw H3,-12(P1)
|
|
||||||
|
|
||||||
multu L4,L4
|
|
||||||
|
|
||||||
mflo L4
|
|
||||||
mfhi H4
|
|
||||||
sw L4,-8(P1)
|
|
||||||
sw H4,-4(P1)
|
|
||||||
|
|
||||||
bgtz P3,$lab54
|
|
||||||
b $lab55
|
|
||||||
$lab56:
|
|
||||||
lw L1,0(P2)
|
|
||||||
addu P1,P1,8
|
|
||||||
multu L1,L1
|
|
||||||
addu P2,P2,4
|
|
||||||
subu P3,P3,1
|
|
||||||
mflo L1
|
|
||||||
mfhi H1
|
|
||||||
sw L1,-8(P1)
|
|
||||||
sw H1,-4(P1)
|
|
||||||
|
|
||||||
bgtz P3,$lab56
|
|
||||||
j $31
|
|
||||||
$lab55:
|
|
||||||
addu P3,P3,4
|
|
||||||
bgtz P3,$lab56
|
|
||||||
j $31
|
|
||||||
.align 2
|
|
||||||
.end bn_sqr_words
|
|
||||||
|
|
||||||
# Program Unit: bn_add_words
|
|
||||||
.ent bn_add_words
|
|
||||||
.globl bn_add_words
|
|
||||||
.text
|
|
||||||
bn_add_words: # 0x590
|
|
||||||
.frame $sp,0,$31
|
|
||||||
.mask 0x00000000,0
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
|
|
||||||
subu P4,P4,4
|
|
||||||
move CC,$0
|
|
||||||
bltz P4,$lab65
|
|
||||||
$lab64:
|
|
||||||
lw L1,0(P2)
|
|
||||||
lw R1,0(P3)
|
|
||||||
lw L2,4(P2)
|
|
||||||
lw R2,4(P3)
|
|
||||||
|
|
||||||
addu L1,L1,CC
|
|
||||||
lw L3,8(P2)
|
|
||||||
sltu CC,L1,CC
|
|
||||||
addu L1,L1,R1
|
|
||||||
sltu R1,L1,R1
|
|
||||||
lw R3,8(P3)
|
|
||||||
addu CC,CC,R1
|
|
||||||
lw L4,12(P2)
|
|
||||||
|
|
||||||
addu L2,L2,CC
|
|
||||||
lw R4,12(P3)
|
|
||||||
sltu CC,L2,CC
|
|
||||||
addu L2,L2,R2
|
|
||||||
sltu R2,L2,R2
|
|
||||||
sw L1,0(P1)
|
|
||||||
addu CC,CC,R2
|
|
||||||
addu P1,P1,16
|
|
||||||
addu L3,L3,CC
|
|
||||||
sw L2,-12(P1)
|
|
||||||
|
|
||||||
sltu CC,L3,CC
|
|
||||||
addu L3,L3,R3
|
|
||||||
sltu R3,L3,R3
|
|
||||||
addu P2,P2,16
|
|
||||||
addu CC,CC,R3
|
|
||||||
|
|
||||||
addu L4,L4,CC
|
|
||||||
addu P3,P3,16
|
|
||||||
sltu CC,L4,CC
|
|
||||||
addu L4,L4,R4
|
|
||||||
subu P4,P4,4
|
|
||||||
sltu R4,L4,R4
|
|
||||||
sw L3,-8(P1)
|
|
||||||
addu CC,CC,R4
|
|
||||||
sw L4,-4(P1)
|
|
||||||
|
|
||||||
bgtz P4,$lab64
|
|
||||||
b $lab65
|
|
||||||
$lab66:
|
|
||||||
lw L1,0(P2)
|
|
||||||
lw R1,0(P3)
|
|
||||||
addu L1,L1,CC
|
|
||||||
addu P1,P1,4
|
|
||||||
sltu CC,L1,CC
|
|
||||||
addu P2,P2,4
|
|
||||||
addu P3,P3,4
|
|
||||||
addu L1,L1,R1
|
|
||||||
subu P4,P4,1
|
|
||||||
sltu R1,L1,R1
|
|
||||||
sw L1,-4(P1)
|
|
||||||
addu CC,CC,R1
|
|
||||||
|
|
||||||
bgtz P4,$lab66
|
|
||||||
j $31
|
|
||||||
$lab65:
|
|
||||||
addu P4,P4,4
|
|
||||||
bgtz P4,$lab66
|
|
||||||
j $31
|
|
||||||
.end bn_add_words
|
|
||||||
|
|
||||||
# Program Unit: bn_div64
|
|
||||||
.set at
|
|
||||||
.set reorder
|
|
||||||
.text
|
|
||||||
.align 2
|
|
||||||
.globl bn_div64
|
|
||||||
# 321 {
|
|
||||||
.ent bn_div64 2
|
|
||||||
bn_div64:
|
|
||||||
subu $sp, 64
|
|
||||||
sw $31, 56($sp)
|
|
||||||
sw $16, 48($sp)
|
|
||||||
.mask 0x80010000, -56
|
|
||||||
.frame $sp, 64, $31
|
|
||||||
move $9, $4
|
|
||||||
move $12, $5
|
|
||||||
move $16, $6
|
|
||||||
# 322 BN_ULONG dh,dl,q,ret=0,th,tl,t;
|
|
||||||
move $31, $0
|
|
||||||
# 323 int i,count=2;
|
|
||||||
li $13, 2
|
|
||||||
# 324
|
|
||||||
# 325 if (d == 0) return(BN_MASK2);
|
|
||||||
bne $16, 0, $80
|
|
||||||
li $2, -1
|
|
||||||
b $93
|
|
||||||
$80:
|
|
||||||
# 326
|
|
||||||
# 327 i=BN_num_bits_word(d);
|
|
||||||
move $4, $16
|
|
||||||
sw $31, 16($sp)
|
|
||||||
sw $9, 24($sp)
|
|
||||||
sw $12, 32($sp)
|
|
||||||
sw $13, 40($sp)
|
|
||||||
.livereg 0x800ff0e,0xfff
|
|
||||||
jal BN_num_bits_word
|
|
||||||
li $4, 32
|
|
||||||
lw $31, 16($sp)
|
|
||||||
lw $9, 24($sp)
|
|
||||||
lw $12, 32($sp)
|
|
||||||
lw $13, 40($sp)
|
|
||||||
move $3, $2
|
|
||||||
# 328 if ((i != BN_BITS2) && (h > (BN_ULONG)1<<i))
|
|
||||||
beq $2, $4, $81
|
|
||||||
li $14, 1
|
|
||||||
sll $15, $14, $2
|
|
||||||
bleu $9, $15, $81
|
|
||||||
# 329 {
|
|
||||||
# 330 #if !defined(NO_STDIO) && !defined(WIN16)
|
|
||||||
# 331 fprintf(stderr,"Division would overflow (%d)\n",i);
|
|
||||||
# 332 #endif
|
|
||||||
# 333 abort();
|
|
||||||
sw $3, 8($sp)
|
|
||||||
sw $9, 24($sp)
|
|
||||||
sw $12, 32($sp)
|
|
||||||
sw $13, 40($sp)
|
|
||||||
sw $31, 26($sp)
|
|
||||||
.livereg 0xff0e,0xfff
|
|
||||||
jal abort
|
|
||||||
lw $3, 8($sp)
|
|
||||||
li $4, 32
|
|
||||||
lw $9, 24($sp)
|
|
||||||
lw $12, 32($sp)
|
|
||||||
lw $13, 40($sp)
|
|
||||||
lw $31, 26($sp)
|
|
||||||
# 334 }
|
|
||||||
$81:
|
|
||||||
# 335 i=BN_BITS2-i;
|
|
||||||
subu $3, $4, $3
|
|
||||||
# 336 if (h >= d) h-=d;
|
|
||||||
bltu $9, $16, $82
|
|
||||||
subu $9, $9, $16
|
|
||||||
$82:
|
|
||||||
# 337
|
|
||||||
# 338 if (i)
|
|
||||||
beq $3, 0, $83
|
|
||||||
# 339 {
|
|
||||||
# 340 d<<=i;
|
|
||||||
sll $16, $16, $3
|
|
||||||
# 341 h=(h<<i)|(l>>(BN_BITS2-i));
|
|
||||||
sll $24, $9, $3
|
|
||||||
subu $25, $4, $3
|
|
||||||
srl $14, $12, $25
|
|
||||||
or $9, $24, $14
|
|
||||||
# 342 l<<=i;
|
|
||||||
sll $12, $12, $3
|
|
||||||
# 343 }
|
|
||||||
$83:
|
|
||||||
# 344 dh=(d&BN_MASK2h)>>BN_BITS4;
|
|
||||||
# 345 dl=(d&BN_MASK2l);
|
|
||||||
and $8, $16, -65536
|
|
||||||
srl $8, $8, 16
|
|
||||||
and $10, $16, 65535
|
|
||||||
li $6, -65536
|
|
||||||
$84:
|
|
||||||
# 346 for (;;)
|
|
||||||
# 347 {
|
|
||||||
# 348 if ((h>>BN_BITS4) == dh)
|
|
||||||
srl $15, $9, 16
|
|
||||||
bne $8, $15, $85
|
|
||||||
# 349 q=BN_MASK2l;
|
|
||||||
li $5, 65535
|
|
||||||
b $86
|
|
||||||
$85:
|
|
||||||
# 350 else
|
|
||||||
# 351 q=h/dh;
|
|
||||||
divu $5, $9, $8
|
|
||||||
$86:
|
|
||||||
# 352
|
|
||||||
# 353 for (;;)
|
|
||||||
# 354 {
|
|
||||||
# 355 t=(h-q*dh);
|
|
||||||
mul $4, $5, $8
|
|
||||||
subu $2, $9, $4
|
|
||||||
move $3, $2
|
|
||||||
# 356 if ((t&BN_MASK2h) ||
|
|
||||||
# 357 ((dl*q) <= (
|
|
||||||
# 358 (t<<BN_BITS4)+
|
|
||||||
# 359 ((l&BN_MASK2h)>>BN_BITS4))))
|
|
||||||
and $25, $2, $6
|
|
||||||
bne $25, $0, $87
|
|
||||||
mul $24, $10, $5
|
|
||||||
sll $14, $3, 16
|
|
||||||
and $15, $12, $6
|
|
||||||
srl $25, $15, 16
|
|
||||||
addu $15, $14, $25
|
|
||||||
bgtu $24, $15, $88
|
|
||||||
$87:
|
|
||||||
# 360 break;
|
|
||||||
mul $3, $10, $5
|
|
||||||
b $89
|
|
||||||
$88:
|
|
||||||
# 361 q--;
|
|
||||||
addu $5, $5, -1
|
|
||||||
# 362 }
|
|
||||||
b $86
|
|
||||||
$89:
|
|
||||||
# 363 th=q*dh;
|
|
||||||
# 364 tl=q*dl;
|
|
||||||
# 365 t=(tl>>BN_BITS4);
|
|
||||||
# 366 tl=(tl<<BN_BITS4)&BN_MASK2h;
|
|
||||||
sll $14, $3, 16
|
|
||||||
and $2, $14, $6
|
|
||||||
move $11, $2
|
|
||||||
# 367 th+=t;
|
|
||||||
srl $25, $3, 16
|
|
||||||
addu $7, $4, $25
|
|
||||||
# 368
|
|
||||||
# 369 if (l < tl) th++;
|
|
||||||
bgeu $12, $2, $90
|
|
||||||
addu $7, $7, 1
|
|
||||||
$90:
|
|
||||||
# 370 l-=tl;
|
|
||||||
subu $12, $12, $11
|
|
||||||
# 371 if (h < th)
|
|
||||||
bgeu $9, $7, $91
|
|
||||||
# 372 {
|
|
||||||
# 373 h+=d;
|
|
||||||
addu $9, $9, $16
|
|
||||||
# 374 q--;
|
|
||||||
addu $5, $5, -1
|
|
||||||
# 375 }
|
|
||||||
$91:
|
|
||||||
# 376 h-=th;
|
|
||||||
subu $9, $9, $7
|
|
||||||
# 377
|
|
||||||
# 378 if (--count == 0) break;
|
|
||||||
addu $13, $13, -1
|
|
||||||
beq $13, 0, $92
|
|
||||||
# 379
|
|
||||||
# 380 ret=q<<BN_BITS4;
|
|
||||||
sll $31, $5, 16
|
|
||||||
# 381 h=((h<<BN_BITS4)|(l>>BN_BITS4))&BN_MASK2;
|
|
||||||
sll $24, $9, 16
|
|
||||||
srl $15, $12, 16
|
|
||||||
or $9, $24, $15
|
|
||||||
# 382 l=(l&BN_MASK2l)<<BN_BITS4;
|
|
||||||
and $12, $12, 65535
|
|
||||||
sll $12, $12, 16
|
|
||||||
# 383 }
|
|
||||||
b $84
|
|
||||||
$92:
|
|
||||||
# 384 ret|=q;
|
|
||||||
or $31, $31, $5
|
|
||||||
# 385 return(ret);
|
|
||||||
move $2, $31
|
|
||||||
$93:
|
|
||||||
lw $16, 48($sp)
|
|
||||||
lw $31, 56($sp)
|
|
||||||
addu $sp, 64
|
|
||||||
j $31
|
|
||||||
.end bn_div64
|
|
||||||
|
|
||||||
@ -1,710 +0,0 @@
|
|||||||
.SPACE $PRIVATE$
|
|
||||||
.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
|
|
||||||
.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
|
|
||||||
.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
|
|
||||||
.IMPORT $global$,DATA
|
|
||||||
.IMPORT $$dyncall,MILLICODE
|
|
||||||
; gcc_compiled.:
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $CODE$
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_mul_add_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR
|
|
||||||
bn_mul_add_words
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=0,CALLS,SAVE_RP
|
|
||||||
.ENTRY
|
|
||||||
stw %r2,-20(0,%r30)
|
|
||||||
ldi 0,%r28
|
|
||||||
extru %r23,31,16,%r2
|
|
||||||
stw %r2,-16(0,%r30)
|
|
||||||
extru %r23,15,16,%r23
|
|
||||||
ldil L'65536,%r31
|
|
||||||
fldws -16(0,%r30),%fr11R
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
ldo 12(%r25),%r29
|
|
||||||
ldo 12(%r26),%r23
|
|
||||||
fldws -16(0,%r30),%fr11L
|
|
||||||
L$0002
|
|
||||||
ldw 0(0,%r25),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0005
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi 1,%r19,%r19
|
|
||||||
ldw 0(0,%r26),%r28
|
|
||||||
addl %r20,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0003
|
|
||||||
stw %r20,0(0,%r26)
|
|
||||||
ldw -8(0,%r29),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0010
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi 1,%r19,%r19
|
|
||||||
ldw -8(0,%r23),%r28
|
|
||||||
addl %r20,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0003
|
|
||||||
stw %r20,-8(0,%r23)
|
|
||||||
ldw -4(0,%r29),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0015
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi 1,%r19,%r19
|
|
||||||
ldw -4(0,%r23),%r28
|
|
||||||
addl %r20,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0003
|
|
||||||
stw %r20,-4(0,%r23)
|
|
||||||
ldw 0(0,%r29),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0020
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi 1,%r19,%r19
|
|
||||||
ldw 0(0,%r23),%r28
|
|
||||||
addl %r20,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0003
|
|
||||||
stw %r20,0(0,%r23)
|
|
||||||
ldo 16(%r29),%r29
|
|
||||||
ldo 16(%r25),%r25
|
|
||||||
ldo 16(%r23),%r23
|
|
||||||
bl L$0002,0
|
|
||||||
ldo 16(%r26),%r26
|
|
||||||
L$0003
|
|
||||||
ldw -20(0,%r30),%r2
|
|
||||||
bv,n 0(%r2)
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_mul_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR
|
|
||||||
bn_mul_words
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=0,CALLS,SAVE_RP
|
|
||||||
.ENTRY
|
|
||||||
stw %r2,-20(0,%r30)
|
|
||||||
ldi 0,%r28
|
|
||||||
extru %r23,31,16,%r2
|
|
||||||
stw %r2,-16(0,%r30)
|
|
||||||
extru %r23,15,16,%r23
|
|
||||||
ldil L'65536,%r31
|
|
||||||
fldws -16(0,%r30),%fr11R
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
ldo 12(%r26),%r29
|
|
||||||
ldo 12(%r25),%r23
|
|
||||||
fldws -16(0,%r30),%fr11L
|
|
||||||
L$0026
|
|
||||||
ldw 0(0,%r25),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0029
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0027
|
|
||||||
stw %r20,0(0,%r26)
|
|
||||||
ldw -8(0,%r23),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0033
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0027
|
|
||||||
stw %r20,-8(0,%r29)
|
|
||||||
ldw -4(0,%r23),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0037
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0027
|
|
||||||
stw %r20,-4(0,%r29)
|
|
||||||
ldw 0(0,%r23),%r19
|
|
||||||
extru %r19,31,16,%r20
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r19
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
stw %r19,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr11R,%fr22L,%fr10
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
stw %r20,-16(0,%r30)
|
|
||||||
xmpyu %fr22L,%fr11L,%fr9
|
|
||||||
fldws -16(0,%r30),%fr22L
|
|
||||||
fstws %fr10R,-16(0,%r30)
|
|
||||||
copy %r2,%r22
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
xmpyu %fr11L,%fr22L,%fr8
|
|
||||||
copy %r2,%r19
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
copy %r2,%r20
|
|
||||||
ldw -16(0,%r30),%r2
|
|
||||||
addl %r2,%r19,%r21
|
|
||||||
comclr,<<= %r19,%r21,0
|
|
||||||
addl %r20,%r31,%r20
|
|
||||||
L$0041
|
|
||||||
extru %r21,15,16,%r19
|
|
||||||
addl %r20,%r19,%r20
|
|
||||||
zdep %r21,15,16,%r19
|
|
||||||
addl %r22,%r19,%r22
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi,tr 1,%r20,%r19
|
|
||||||
copy %r20,%r19
|
|
||||||
addl %r22,%r28,%r20
|
|
||||||
comclr,<<= %r28,%r20,0
|
|
||||||
addi,tr 1,%r19,%r28
|
|
||||||
copy %r19,%r28
|
|
||||||
addib,= -1,%r24,L$0027
|
|
||||||
stw %r20,0(0,%r29)
|
|
||||||
ldo 16(%r23),%r23
|
|
||||||
ldo 16(%r25),%r25
|
|
||||||
ldo 16(%r29),%r29
|
|
||||||
bl L$0026,0
|
|
||||||
ldo 16(%r26),%r26
|
|
||||||
L$0027
|
|
||||||
ldw -20(0,%r30),%r2
|
|
||||||
bv,n 0(%r2)
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_sqr_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR
|
|
||||||
bn_sqr_words
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=0,NO_CALLS
|
|
||||||
.ENTRY
|
|
||||||
ldo 28(%r26),%r23
|
|
||||||
ldo 12(%r25),%r28
|
|
||||||
L$0046
|
|
||||||
ldw 0(0,%r25),%r21
|
|
||||||
extru %r21,31,16,%r22
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
extru %r21,15,16,%r21
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
copy %r29,%r19
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
extru %r19,16,17,%r20
|
|
||||||
zdep %r19,14,15,%r19
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
xmpyu %fr10L,%fr10R,%fr9
|
|
||||||
addl %r29,%r19,%r22
|
|
||||||
stw %r22,0(0,%r26)
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
addl %r29,%r20,%r21
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi 1,%r21,%r21
|
|
||||||
addib,= -1,%r24,L$0057
|
|
||||||
stw %r21,-24(0,%r23)
|
|
||||||
ldw -8(0,%r28),%r21
|
|
||||||
extru %r21,31,16,%r22
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
extru %r21,15,16,%r21
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
copy %r29,%r19
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
extru %r19,16,17,%r20
|
|
||||||
zdep %r19,14,15,%r19
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
xmpyu %fr10L,%fr10R,%fr9
|
|
||||||
addl %r29,%r19,%r22
|
|
||||||
stw %r22,-20(0,%r23)
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
addl %r29,%r20,%r21
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi 1,%r21,%r21
|
|
||||||
addib,= -1,%r24,L$0057
|
|
||||||
stw %r21,-16(0,%r23)
|
|
||||||
ldw -4(0,%r28),%r21
|
|
||||||
extru %r21,31,16,%r22
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
extru %r21,15,16,%r21
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
copy %r29,%r19
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
extru %r19,16,17,%r20
|
|
||||||
zdep %r19,14,15,%r19
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
xmpyu %fr10L,%fr10R,%fr9
|
|
||||||
addl %r29,%r19,%r22
|
|
||||||
stw %r22,-12(0,%r23)
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
addl %r29,%r20,%r21
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi 1,%r21,%r21
|
|
||||||
addib,= -1,%r24,L$0057
|
|
||||||
stw %r21,-8(0,%r23)
|
|
||||||
ldw 0(0,%r28),%r21
|
|
||||||
extru %r21,31,16,%r22
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
extru %r21,15,16,%r21
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
stw %r22,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
copy %r29,%r19
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r21,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
extru %r19,16,17,%r20
|
|
||||||
zdep %r19,14,15,%r19
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
xmpyu %fr10L,%fr10R,%fr9
|
|
||||||
addl %r29,%r19,%r22
|
|
||||||
stw %r22,-4(0,%r23)
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r29
|
|
||||||
addl %r29,%r20,%r21
|
|
||||||
comclr,<<= %r19,%r22,0
|
|
||||||
addi 1,%r21,%r21
|
|
||||||
addib,= -1,%r24,L$0057
|
|
||||||
stw %r21,0(0,%r23)
|
|
||||||
ldo 16(%r28),%r28
|
|
||||||
ldo 16(%r25),%r25
|
|
||||||
ldo 32(%r23),%r23
|
|
||||||
bl L$0046,0
|
|
||||||
ldo 32(%r26),%r26
|
|
||||||
L$0057
|
|
||||||
bv,n 0(%r2)
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
.IMPORT BN_num_bits_word,CODE
|
|
||||||
.IMPORT fprintf,CODE
|
|
||||||
.IMPORT __iob,DATA
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $LIT$
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
L$C0000
|
|
||||||
.STRING "Division would overflow\x0a\x00"
|
|
||||||
.IMPORT abort,CODE
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $CODE$
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_div64,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,RTNVAL=GR
|
|
||||||
bn_div64
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=128,CALLS,SAVE_RP,ENTRY_GR=8
|
|
||||||
.ENTRY
|
|
||||||
stw %r2,-20(0,%r30)
|
|
||||||
stwm %r8,128(0,%r30)
|
|
||||||
stw %r7,-124(0,%r30)
|
|
||||||
stw %r4,-112(0,%r30)
|
|
||||||
stw %r3,-108(0,%r30)
|
|
||||||
copy %r26,%r3
|
|
||||||
copy %r25,%r4
|
|
||||||
stw %r6,-120(0,%r30)
|
|
||||||
ldi 0,%r7
|
|
||||||
stw %r5,-116(0,%r30)
|
|
||||||
movb,<> %r24,%r5,L$0059
|
|
||||||
ldi 2,%r6
|
|
||||||
bl L$0076,0
|
|
||||||
ldi -1,%r28
|
|
||||||
L$0059
|
|
||||||
.CALL ARGW0=GR
|
|
||||||
bl BN_num_bits_word,%r2
|
|
||||||
copy %r5,%r26
|
|
||||||
ldi 32,%r19
|
|
||||||
comb,= %r19,%r28,L$0060
|
|
||||||
subi 31,%r28,%r19
|
|
||||||
mtsar %r19
|
|
||||||
zvdepi 1,32,%r19
|
|
||||||
comb,>>= %r19,%r3,L$0060
|
|
||||||
addil LR'__iob-$global$+32,%r27
|
|
||||||
ldo RR'__iob-$global$+32(%r1),%r26
|
|
||||||
ldil LR'L$C0000,%r25
|
|
||||||
.CALL ARGW0=GR,ARGW1=GR
|
|
||||||
bl fprintf,%r2
|
|
||||||
ldo RR'L$C0000(%r25),%r25
|
|
||||||
.CALL
|
|
||||||
bl abort,%r2
|
|
||||||
nop
|
|
||||||
L$0060
|
|
||||||
comb,>> %r5,%r3,L$0061
|
|
||||||
subi 32,%r28,%r28
|
|
||||||
sub %r3,%r5,%r3
|
|
||||||
L$0061
|
|
||||||
comib,= 0,%r28,L$0062
|
|
||||||
subi 31,%r28,%r19
|
|
||||||
mtsar %r19
|
|
||||||
zvdep %r5,32,%r5
|
|
||||||
zvdep %r3,32,%r21
|
|
||||||
subi 32,%r28,%r20
|
|
||||||
mtsar %r20
|
|
||||||
vshd 0,%r4,%r20
|
|
||||||
or %r21,%r20,%r3
|
|
||||||
mtsar %r19
|
|
||||||
zvdep %r4,32,%r4
|
|
||||||
L$0062
|
|
||||||
extru %r5,15,16,%r23
|
|
||||||
extru %r5,31,16,%r28
|
|
||||||
L$0063
|
|
||||||
extru %r3,15,16,%r19
|
|
||||||
comb,<> %r23,%r19,L$0066
|
|
||||||
copy %r3,%r26
|
|
||||||
bl L$0067,0
|
|
||||||
zdepi -1,31,16,%r29
|
|
||||||
L$0066
|
|
||||||
.IMPORT $$divU,MILLICODE
|
|
||||||
bl $$divU,%r31
|
|
||||||
copy %r23,%r25
|
|
||||||
L$0067
|
|
||||||
stw %r29,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r28,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr10L,%fr10R,%fr9
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
copy %r8,%r22
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
extru %r4,15,16,%r24
|
|
||||||
copy %r8,%r21
|
|
||||||
L$0068
|
|
||||||
sub %r3,%r21,%r20
|
|
||||||
copy %r20,%r19
|
|
||||||
depi 0,31,16,%r19
|
|
||||||
comib,<> 0,%r19,L$0069
|
|
||||||
zdep %r20,15,16,%r19
|
|
||||||
addl %r19,%r24,%r19
|
|
||||||
comb,>>= %r19,%r22,L$0069
|
|
||||||
sub %r22,%r28,%r22
|
|
||||||
sub %r21,%r23,%r21
|
|
||||||
bl L$0068,0
|
|
||||||
ldo -1(%r29),%r29
|
|
||||||
L$0069
|
|
||||||
stw %r29,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r28,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
copy %r8,%r19
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r20
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
zdep %r19,15,16,%r19
|
|
||||||
addl %r8,%r20,%r20
|
|
||||||
comclr,<<= %r19,%r4,0
|
|
||||||
addi 1,%r20,%r20
|
|
||||||
comb,<<= %r20,%r3,L$0074
|
|
||||||
sub %r4,%r19,%r4
|
|
||||||
addl %r3,%r5,%r3
|
|
||||||
ldo -1(%r29),%r29
|
|
||||||
L$0074
|
|
||||||
addib,= -1,%r6,L$0064
|
|
||||||
sub %r3,%r20,%r3
|
|
||||||
zdep %r29,15,16,%r7
|
|
||||||
shd %r3,%r4,16,%r3
|
|
||||||
bl L$0063,0
|
|
||||||
zdep %r4,15,16,%r4
|
|
||||||
L$0064
|
|
||||||
or %r7,%r29,%r28
|
|
||||||
L$0076
|
|
||||||
ldw -148(0,%r30),%r2
|
|
||||||
ldw -124(0,%r30),%r7
|
|
||||||
ldw -120(0,%r30),%r6
|
|
||||||
ldw -116(0,%r30),%r5
|
|
||||||
ldw -112(0,%r30),%r4
|
|
||||||
ldw -108(0,%r30),%r3
|
|
||||||
bv 0(%r2)
|
|
||||||
ldwm -128(0,%r30),%r8
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
@ -1,416 +0,0 @@
|
|||||||
.SPACE $PRIVATE$
|
|
||||||
.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
|
|
||||||
.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
|
|
||||||
.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
|
|
||||||
.IMPORT $global$,DATA
|
|
||||||
.IMPORT $$dyncall,MILLICODE
|
|
||||||
; gcc_compiled.:
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $CODE$
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_mul_add_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR
|
|
||||||
bn_mul_add_words
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=64,CALLS,SAVE_RP,ENTRY_GR=4
|
|
||||||
.ENTRY
|
|
||||||
stw %r2,-20(0,%r30)
|
|
||||||
stwm %r4,64(0,%r30)
|
|
||||||
copy %r24,%r31
|
|
||||||
stw %r3,-60(0,%r30)
|
|
||||||
ldi 0,%r20
|
|
||||||
ldo 12(%r26),%r2
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
copy %r25,%r3
|
|
||||||
ldo 12(%r3),%r1
|
|
||||||
fldws -16(0,%r30),%fr8L
|
|
||||||
L$0010
|
|
||||||
copy %r20,%r25
|
|
||||||
ldi 0,%r24
|
|
||||||
fldws 0(0,%r3),%fr9L
|
|
||||||
ldw 0(0,%r26),%r19
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r19,%r23
|
|
||||||
ldw -16(0,%r30),%r28
|
|
||||||
ldw -12(0,%r30),%r29
|
|
||||||
ldi 0,%r22
|
|
||||||
add %r23,%r29,%r29
|
|
||||||
addc %r22,%r28,%r28
|
|
||||||
add %r25,%r29,%r29
|
|
||||||
addc %r24,%r28,%r28
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
copy %r21,%r20
|
|
||||||
addib,= -1,%r31,L$0011
|
|
||||||
stw %r29,0(0,%r26)
|
|
||||||
copy %r20,%r25
|
|
||||||
ldi 0,%r24
|
|
||||||
fldws -8(0,%r1),%fr9L
|
|
||||||
ldw -8(0,%r2),%r19
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r19,%r23
|
|
||||||
ldw -16(0,%r30),%r28
|
|
||||||
ldw -12(0,%r30),%r29
|
|
||||||
ldi 0,%r22
|
|
||||||
add %r23,%r29,%r29
|
|
||||||
addc %r22,%r28,%r28
|
|
||||||
add %r25,%r29,%r29
|
|
||||||
addc %r24,%r28,%r28
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
copy %r21,%r20
|
|
||||||
addib,= -1,%r31,L$0011
|
|
||||||
stw %r29,-8(0,%r2)
|
|
||||||
copy %r20,%r25
|
|
||||||
ldi 0,%r24
|
|
||||||
fldws -4(0,%r1),%fr9L
|
|
||||||
ldw -4(0,%r2),%r19
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r19,%r23
|
|
||||||
ldw -16(0,%r30),%r28
|
|
||||||
ldw -12(0,%r30),%r29
|
|
||||||
ldi 0,%r22
|
|
||||||
add %r23,%r29,%r29
|
|
||||||
addc %r22,%r28,%r28
|
|
||||||
add %r25,%r29,%r29
|
|
||||||
addc %r24,%r28,%r28
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
copy %r21,%r20
|
|
||||||
addib,= -1,%r31,L$0011
|
|
||||||
stw %r29,-4(0,%r2)
|
|
||||||
copy %r20,%r25
|
|
||||||
ldi 0,%r24
|
|
||||||
fldws 0(0,%r1),%fr9L
|
|
||||||
ldw 0(0,%r2),%r19
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r19,%r23
|
|
||||||
ldw -16(0,%r30),%r28
|
|
||||||
ldw -12(0,%r30),%r29
|
|
||||||
ldi 0,%r22
|
|
||||||
add %r23,%r29,%r29
|
|
||||||
addc %r22,%r28,%r28
|
|
||||||
add %r25,%r29,%r29
|
|
||||||
addc %r24,%r28,%r28
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
copy %r21,%r20
|
|
||||||
addib,= -1,%r31,L$0011
|
|
||||||
stw %r29,0(0,%r2)
|
|
||||||
ldo 16(%r1),%r1
|
|
||||||
ldo 16(%r3),%r3
|
|
||||||
ldo 16(%r2),%r2
|
|
||||||
bl L$0010,0
|
|
||||||
ldo 16(%r26),%r26
|
|
||||||
L$0011
|
|
||||||
copy %r20,%r28
|
|
||||||
ldw -84(0,%r30),%r2
|
|
||||||
ldw -60(0,%r30),%r3
|
|
||||||
bv 0(%r2)
|
|
||||||
ldwm -64(0,%r30),%r4
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_mul_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR
|
|
||||||
bn_mul_words
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=64,CALLS,SAVE_RP,ENTRY_GR=3
|
|
||||||
.ENTRY
|
|
||||||
stw %r2,-20(0,%r30)
|
|
||||||
copy %r25,%r2
|
|
||||||
stwm %r4,64(0,%r30)
|
|
||||||
copy %r24,%r19
|
|
||||||
ldi 0,%r28
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
ldo 12(%r26),%r31
|
|
||||||
ldo 12(%r2),%r29
|
|
||||||
fldws -16(0,%r30),%fr8L
|
|
||||||
L$0026
|
|
||||||
fldws 0(0,%r2),%fr9L
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
ldw -16(0,%r30),%r24
|
|
||||||
ldw -12(0,%r30),%r25
|
|
||||||
add %r21,%r25,%r25
|
|
||||||
addc %r20,%r24,%r24
|
|
||||||
copy %r24,%r23
|
|
||||||
ldi 0,%r22
|
|
||||||
copy %r23,%r28
|
|
||||||
addib,= -1,%r19,L$0027
|
|
||||||
stw %r25,0(0,%r26)
|
|
||||||
fldws -8(0,%r29),%fr9L
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
ldw -16(0,%r30),%r24
|
|
||||||
ldw -12(0,%r30),%r25
|
|
||||||
add %r21,%r25,%r25
|
|
||||||
addc %r20,%r24,%r24
|
|
||||||
copy %r24,%r23
|
|
||||||
ldi 0,%r22
|
|
||||||
copy %r23,%r28
|
|
||||||
addib,= -1,%r19,L$0027
|
|
||||||
stw %r25,-8(0,%r31)
|
|
||||||
fldws -4(0,%r29),%fr9L
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
ldw -16(0,%r30),%r24
|
|
||||||
ldw -12(0,%r30),%r25
|
|
||||||
add %r21,%r25,%r25
|
|
||||||
addc %r20,%r24,%r24
|
|
||||||
copy %r24,%r23
|
|
||||||
ldi 0,%r22
|
|
||||||
copy %r23,%r28
|
|
||||||
addib,= -1,%r19,L$0027
|
|
||||||
stw %r25,-4(0,%r31)
|
|
||||||
fldws 0(0,%r29),%fr9L
|
|
||||||
xmpyu %fr8L,%fr9L,%fr9
|
|
||||||
fstds %fr9,-16(0,%r30)
|
|
||||||
copy %r28,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
ldw -16(0,%r30),%r24
|
|
||||||
ldw -12(0,%r30),%r25
|
|
||||||
add %r21,%r25,%r25
|
|
||||||
addc %r20,%r24,%r24
|
|
||||||
copy %r24,%r23
|
|
||||||
ldi 0,%r22
|
|
||||||
copy %r23,%r28
|
|
||||||
addib,= -1,%r19,L$0027
|
|
||||||
stw %r25,0(0,%r31)
|
|
||||||
ldo 16(%r29),%r29
|
|
||||||
ldo 16(%r2),%r2
|
|
||||||
ldo 16(%r31),%r31
|
|
||||||
bl L$0026,0
|
|
||||||
ldo 16(%r26),%r26
|
|
||||||
L$0027
|
|
||||||
ldw -84(0,%r30),%r2
|
|
||||||
bv 0(%r2)
|
|
||||||
ldwm -64(0,%r30),%r4
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_sqr_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR
|
|
||||||
bn_sqr_words
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=0,NO_CALLS
|
|
||||||
.ENTRY
|
|
||||||
ldo 28(%r26),%r19
|
|
||||||
ldo 12(%r25),%r28
|
|
||||||
L$0042
|
|
||||||
fldws 0(0,%r25),%fr8L
|
|
||||||
fldws 0(0,%r25),%fr8R
|
|
||||||
xmpyu %fr8L,%fr8R,%fr8
|
|
||||||
fstds %fr8,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r22
|
|
||||||
ldw -12(0,%r30),%r23
|
|
||||||
stw %r23,0(0,%r26)
|
|
||||||
copy %r22,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
addib,= -1,%r24,L$0049
|
|
||||||
stw %r21,-24(0,%r19)
|
|
||||||
fldws -8(0,%r28),%fr8L
|
|
||||||
fldws -8(0,%r28),%fr8R
|
|
||||||
xmpyu %fr8L,%fr8R,%fr8
|
|
||||||
fstds %fr8,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r22
|
|
||||||
ldw -12(0,%r30),%r23
|
|
||||||
stw %r23,-20(0,%r19)
|
|
||||||
copy %r22,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
addib,= -1,%r24,L$0049
|
|
||||||
stw %r21,-16(0,%r19)
|
|
||||||
fldws -4(0,%r28),%fr8L
|
|
||||||
fldws -4(0,%r28),%fr8R
|
|
||||||
xmpyu %fr8L,%fr8R,%fr8
|
|
||||||
fstds %fr8,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r22
|
|
||||||
ldw -12(0,%r30),%r23
|
|
||||||
stw %r23,-12(0,%r19)
|
|
||||||
copy %r22,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
addib,= -1,%r24,L$0049
|
|
||||||
stw %r21,-8(0,%r19)
|
|
||||||
fldws 0(0,%r28),%fr8L
|
|
||||||
fldws 0(0,%r28),%fr8R
|
|
||||||
xmpyu %fr8L,%fr8R,%fr8
|
|
||||||
fstds %fr8,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r22
|
|
||||||
ldw -12(0,%r30),%r23
|
|
||||||
stw %r23,-4(0,%r19)
|
|
||||||
copy %r22,%r21
|
|
||||||
ldi 0,%r20
|
|
||||||
addib,= -1,%r24,L$0049
|
|
||||||
stw %r21,0(0,%r19)
|
|
||||||
ldo 16(%r28),%r28
|
|
||||||
ldo 16(%r25),%r25
|
|
||||||
ldo 32(%r19),%r19
|
|
||||||
bl L$0042,0
|
|
||||||
ldo 32(%r26),%r26
|
|
||||||
L$0049
|
|
||||||
bv,n 0(%r2)
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
.IMPORT BN_num_bits_word,CODE
|
|
||||||
.IMPORT fprintf,CODE
|
|
||||||
.IMPORT __iob,DATA
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $LIT$
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
L$C0000
|
|
||||||
.STRING "Division would overflow (%d)\x0a\x00"
|
|
||||||
.IMPORT abort,CODE
|
|
||||||
.SPACE $TEXT$
|
|
||||||
.SUBSPA $CODE$
|
|
||||||
|
|
||||||
.align 4
|
|
||||||
.EXPORT bn_div64,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,RTNVAL=GR
|
|
||||||
bn_div64
|
|
||||||
.PROC
|
|
||||||
.CALLINFO FRAME=128,CALLS,SAVE_RP,ENTRY_GR=8
|
|
||||||
.ENTRY
|
|
||||||
stw %r2,-20(0,%r30)
|
|
||||||
stwm %r8,128(0,%r30)
|
|
||||||
stw %r7,-124(0,%r30)
|
|
||||||
stw %r4,-112(0,%r30)
|
|
||||||
stw %r3,-108(0,%r30)
|
|
||||||
copy %r26,%r3
|
|
||||||
copy %r25,%r4
|
|
||||||
stw %r6,-120(0,%r30)
|
|
||||||
ldi 0,%r7
|
|
||||||
stw %r5,-116(0,%r30)
|
|
||||||
movb,<> %r24,%r5,L$0051
|
|
||||||
ldi 2,%r6
|
|
||||||
bl L$0068,0
|
|
||||||
ldi -1,%r28
|
|
||||||
L$0051
|
|
||||||
.CALL ARGW0=GR
|
|
||||||
bl BN_num_bits_word,%r2
|
|
||||||
copy %r5,%r26
|
|
||||||
copy %r28,%r24
|
|
||||||
ldi 32,%r19
|
|
||||||
comb,= %r19,%r24,L$0052
|
|
||||||
subi 31,%r24,%r19
|
|
||||||
mtsar %r19
|
|
||||||
zvdepi 1,32,%r19
|
|
||||||
comb,>>= %r19,%r3,L$0052
|
|
||||||
addil LR'__iob-$global$+32,%r27
|
|
||||||
ldo RR'__iob-$global$+32(%r1),%r26
|
|
||||||
ldil LR'L$C0000,%r25
|
|
||||||
.CALL ARGW0=GR,ARGW1=GR,ARGW2=GR
|
|
||||||
bl fprintf,%r2
|
|
||||||
ldo RR'L$C0000(%r25),%r25
|
|
||||||
.CALL
|
|
||||||
bl abort,%r2
|
|
||||||
nop
|
|
||||||
L$0052
|
|
||||||
comb,>> %r5,%r3,L$0053
|
|
||||||
subi 32,%r24,%r24
|
|
||||||
sub %r3,%r5,%r3
|
|
||||||
L$0053
|
|
||||||
comib,= 0,%r24,L$0054
|
|
||||||
subi 31,%r24,%r19
|
|
||||||
mtsar %r19
|
|
||||||
zvdep %r5,32,%r5
|
|
||||||
zvdep %r3,32,%r21
|
|
||||||
subi 32,%r24,%r20
|
|
||||||
mtsar %r20
|
|
||||||
vshd 0,%r4,%r20
|
|
||||||
or %r21,%r20,%r3
|
|
||||||
mtsar %r19
|
|
||||||
zvdep %r4,32,%r4
|
|
||||||
L$0054
|
|
||||||
extru %r5,15,16,%r23
|
|
||||||
extru %r5,31,16,%r28
|
|
||||||
L$0055
|
|
||||||
extru %r3,15,16,%r19
|
|
||||||
comb,<> %r23,%r19,L$0058
|
|
||||||
copy %r3,%r26
|
|
||||||
bl L$0059,0
|
|
||||||
zdepi -1,31,16,%r29
|
|
||||||
L$0058
|
|
||||||
.IMPORT $$divU,MILLICODE
|
|
||||||
bl $$divU,%r31
|
|
||||||
copy %r23,%r25
|
|
||||||
L$0059
|
|
||||||
stw %r29,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r28,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
xmpyu %fr10L,%fr10R,%fr9
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
fstws %fr9R,-16(0,%r30)
|
|
||||||
copy %r8,%r22
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
extru %r4,15,16,%r24
|
|
||||||
copy %r8,%r21
|
|
||||||
L$0060
|
|
||||||
sub %r3,%r21,%r20
|
|
||||||
copy %r20,%r19
|
|
||||||
depi 0,31,16,%r19
|
|
||||||
comib,<> 0,%r19,L$0061
|
|
||||||
zdep %r20,15,16,%r19
|
|
||||||
addl %r19,%r24,%r19
|
|
||||||
comb,>>= %r19,%r22,L$0061
|
|
||||||
sub %r22,%r28,%r22
|
|
||||||
sub %r21,%r23,%r21
|
|
||||||
bl L$0060,0
|
|
||||||
ldo -1(%r29),%r29
|
|
||||||
L$0061
|
|
||||||
stw %r29,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10L
|
|
||||||
stw %r28,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
stw %r23,-16(0,%r30)
|
|
||||||
fldws -16(0,%r30),%fr10R
|
|
||||||
copy %r8,%r19
|
|
||||||
xmpyu %fr10L,%fr10R,%fr8
|
|
||||||
fstws %fr8R,-16(0,%r30)
|
|
||||||
extru %r19,15,16,%r20
|
|
||||||
ldw -16(0,%r30),%r8
|
|
||||||
zdep %r19,15,16,%r19
|
|
||||||
addl %r8,%r20,%r20
|
|
||||||
comclr,<<= %r19,%r4,0
|
|
||||||
addi 1,%r20,%r20
|
|
||||||
comb,<<= %r20,%r3,L$0066
|
|
||||||
sub %r4,%r19,%r4
|
|
||||||
addl %r3,%r5,%r3
|
|
||||||
ldo -1(%r29),%r29
|
|
||||||
L$0066
|
|
||||||
addib,= -1,%r6,L$0056
|
|
||||||
sub %r3,%r20,%r3
|
|
||||||
zdep %r29,15,16,%r7
|
|
||||||
shd %r3,%r4,16,%r3
|
|
||||||
bl L$0055,0
|
|
||||||
zdep %r4,15,16,%r4
|
|
||||||
L$0056
|
|
||||||
or %r7,%r29,%r28
|
|
||||||
L$0068
|
|
||||||
ldw -148(0,%r30),%r2
|
|
||||||
ldw -124(0,%r30),%r7
|
|
||||||
ldw -120(0,%r30),%r6
|
|
||||||
ldw -116(0,%r30),%r5
|
|
||||||
ldw -112(0,%r30),%r4
|
|
||||||
ldw -108(0,%r30),%r3
|
|
||||||
bv 0(%r2)
|
|
||||||
ldwm -128(0,%r30),%r8
|
|
||||||
.EXIT
|
|
||||||
.PROCEND
|
|
||||||
@ -1,646 +0,0 @@
|
|||||||
.file 1 "../bn_mulw.c"
|
|
||||||
.set nobopt
|
|
||||||
.option pic2
|
|
||||||
|
|
||||||
# GNU C 2.6.3 [AL 1.1, MM 40] SGI running IRIX 5.0 compiled by GNU C
|
|
||||||
|
|
||||||
# Cc1 defaults:
|
|
||||||
# -mabicalls
|
|
||||||
|
|
||||||
# Cc1 arguments (-G value = 0, Cpu = 3000, ISA = 1):
|
|
||||||
# -quiet -dumpbase -O2 -o
|
|
||||||
|
|
||||||
gcc2_compiled.:
|
|
||||||
__gnu_compiled_c:
|
|
||||||
.rdata
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x34,0x39,0x20
|
|
||||||
.byte 0x24,0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x33,0x34,0x20
|
|
||||||
.byte 0x24,0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x35,0x20,0x24
|
|
||||||
.byte 0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x38,0x20,0x24
|
|
||||||
.byte 0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x32,0x33,0x20
|
|
||||||
.byte 0x24,0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x37,0x38,0x20
|
|
||||||
.byte 0x24,0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x33,0x2e,0x37,0x30,0x20
|
|
||||||
.byte 0x24,0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x32,0x20,0x24
|
|
||||||
.byte 0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x34,0x20,0x24
|
|
||||||
.byte 0x0
|
|
||||||
|
|
||||||
.byte 0x24,0x52,0x65,0x76,0x69,0x73,0x69,0x6f
|
|
||||||
.byte 0x6e,0x3a,0x20,0x31,0x2e,0x38,0x20,0x24
|
|
||||||
.byte 0x0
|
|
||||||
.text
|
|
||||||
.align 2
|
|
||||||
.globl bn_mul_add_words
|
|
||||||
.ent bn_mul_add_words
|
|
||||||
bn_mul_add_words:
|
|
||||||
.frame $sp,0,$31 # vars= 0, regs= 0/0, args= 0, extra= 0
|
|
||||||
.mask 0x00000000,0
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
.set noreorder
|
|
||||||
.cpload $25
|
|
||||||
.set reorder
|
|
||||||
move $12,$4
|
|
||||||
move $14,$5
|
|
||||||
move $9,$6
|
|
||||||
move $13,$7
|
|
||||||
move $8,$0
|
|
||||||
addu $10,$12,12
|
|
||||||
addu $11,$14,12
|
|
||||||
$L2:
|
|
||||||
lw $6,0($14)
|
|
||||||
#nop
|
|
||||||
multu $13,$6
|
|
||||||
mfhi $6
|
|
||||||
mflo $7
|
|
||||||
#nop
|
|
||||||
move $5,$8
|
|
||||||
move $4,$0
|
|
||||||
lw $3,0($12)
|
|
||||||
addu $9,$9,-1
|
|
||||||
move $2,$0
|
|
||||||
addu $7,$7,$3
|
|
||||||
sltu $8,$7,$3
|
|
||||||
addu $6,$6,$2
|
|
||||||
addu $6,$6,$8
|
|
||||||
addu $7,$7,$5
|
|
||||||
sltu $2,$7,$5
|
|
||||||
addu $6,$6,$4
|
|
||||||
addu $6,$6,$2
|
|
||||||
srl $3,$6,0
|
|
||||||
move $2,$0
|
|
||||||
move $8,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $9,$0,$L3
|
|
||||||
sw $7,0($12)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $6,-8($11)
|
|
||||||
#nop
|
|
||||||
multu $13,$6
|
|
||||||
mfhi $6
|
|
||||||
mflo $7
|
|
||||||
#nop
|
|
||||||
move $5,$8
|
|
||||||
move $4,$0
|
|
||||||
lw $3,-8($10)
|
|
||||||
addu $9,$9,-1
|
|
||||||
move $2,$0
|
|
||||||
addu $7,$7,$3
|
|
||||||
sltu $8,$7,$3
|
|
||||||
addu $6,$6,$2
|
|
||||||
addu $6,$6,$8
|
|
||||||
addu $7,$7,$5
|
|
||||||
sltu $2,$7,$5
|
|
||||||
addu $6,$6,$4
|
|
||||||
addu $6,$6,$2
|
|
||||||
srl $3,$6,0
|
|
||||||
move $2,$0
|
|
||||||
move $8,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $9,$0,$L3
|
|
||||||
sw $7,-8($10)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $6,-4($11)
|
|
||||||
#nop
|
|
||||||
multu $13,$6
|
|
||||||
mfhi $6
|
|
||||||
mflo $7
|
|
||||||
#nop
|
|
||||||
move $5,$8
|
|
||||||
move $4,$0
|
|
||||||
lw $3,-4($10)
|
|
||||||
addu $9,$9,-1
|
|
||||||
move $2,$0
|
|
||||||
addu $7,$7,$3
|
|
||||||
sltu $8,$7,$3
|
|
||||||
addu $6,$6,$2
|
|
||||||
addu $6,$6,$8
|
|
||||||
addu $7,$7,$5
|
|
||||||
sltu $2,$7,$5
|
|
||||||
addu $6,$6,$4
|
|
||||||
addu $6,$6,$2
|
|
||||||
srl $3,$6,0
|
|
||||||
move $2,$0
|
|
||||||
move $8,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $9,$0,$L3
|
|
||||||
sw $7,-4($10)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $6,0($11)
|
|
||||||
#nop
|
|
||||||
multu $13,$6
|
|
||||||
mfhi $6
|
|
||||||
mflo $7
|
|
||||||
#nop
|
|
||||||
move $5,$8
|
|
||||||
move $4,$0
|
|
||||||
lw $3,0($10)
|
|
||||||
addu $9,$9,-1
|
|
||||||
move $2,$0
|
|
||||||
addu $7,$7,$3
|
|
||||||
sltu $8,$7,$3
|
|
||||||
addu $6,$6,$2
|
|
||||||
addu $6,$6,$8
|
|
||||||
addu $7,$7,$5
|
|
||||||
sltu $2,$7,$5
|
|
||||||
addu $6,$6,$4
|
|
||||||
addu $6,$6,$2
|
|
||||||
srl $3,$6,0
|
|
||||||
move $2,$0
|
|
||||||
move $8,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $9,$0,$L3
|
|
||||||
sw $7,0($10)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
addu $11,$11,16
|
|
||||||
addu $14,$14,16
|
|
||||||
addu $10,$10,16
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $L2
|
|
||||||
addu $12,$12,16
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
$L3:
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $31
|
|
||||||
move $2,$8
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
.end bn_mul_add_words
|
|
||||||
.align 2
|
|
||||||
.globl bn_mul_words
|
|
||||||
.ent bn_mul_words
|
|
||||||
bn_mul_words:
|
|
||||||
.frame $sp,0,$31 # vars= 0, regs= 0/0, args= 0, extra= 0
|
|
||||||
.mask 0x00000000,0
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
.set noreorder
|
|
||||||
.cpload $25
|
|
||||||
.set reorder
|
|
||||||
move $11,$4
|
|
||||||
move $12,$5
|
|
||||||
move $8,$6
|
|
||||||
move $6,$0
|
|
||||||
addu $10,$11,12
|
|
||||||
addu $9,$12,12
|
|
||||||
$L10:
|
|
||||||
lw $4,0($12)
|
|
||||||
#nop
|
|
||||||
multu $7,$4
|
|
||||||
mfhi $4
|
|
||||||
mflo $5
|
|
||||||
#nop
|
|
||||||
move $3,$6
|
|
||||||
move $2,$0
|
|
||||||
addu $8,$8,-1
|
|
||||||
addu $5,$5,$3
|
|
||||||
sltu $6,$5,$3
|
|
||||||
addu $4,$4,$2
|
|
||||||
addu $4,$4,$6
|
|
||||||
srl $3,$4,0
|
|
||||||
move $2,$0
|
|
||||||
move $6,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $8,$0,$L11
|
|
||||||
sw $5,0($11)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $4,-8($9)
|
|
||||||
#nop
|
|
||||||
multu $7,$4
|
|
||||||
mfhi $4
|
|
||||||
mflo $5
|
|
||||||
#nop
|
|
||||||
move $3,$6
|
|
||||||
move $2,$0
|
|
||||||
addu $8,$8,-1
|
|
||||||
addu $5,$5,$3
|
|
||||||
sltu $6,$5,$3
|
|
||||||
addu $4,$4,$2
|
|
||||||
addu $4,$4,$6
|
|
||||||
srl $3,$4,0
|
|
||||||
move $2,$0
|
|
||||||
move $6,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $8,$0,$L11
|
|
||||||
sw $5,-8($10)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $4,-4($9)
|
|
||||||
#nop
|
|
||||||
multu $7,$4
|
|
||||||
mfhi $4
|
|
||||||
mflo $5
|
|
||||||
#nop
|
|
||||||
move $3,$6
|
|
||||||
move $2,$0
|
|
||||||
addu $8,$8,-1
|
|
||||||
addu $5,$5,$3
|
|
||||||
sltu $6,$5,$3
|
|
||||||
addu $4,$4,$2
|
|
||||||
addu $4,$4,$6
|
|
||||||
srl $3,$4,0
|
|
||||||
move $2,$0
|
|
||||||
move $6,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $8,$0,$L11
|
|
||||||
sw $5,-4($10)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $4,0($9)
|
|
||||||
#nop
|
|
||||||
multu $7,$4
|
|
||||||
mfhi $4
|
|
||||||
mflo $5
|
|
||||||
#nop
|
|
||||||
move $3,$6
|
|
||||||
move $2,$0
|
|
||||||
addu $8,$8,-1
|
|
||||||
addu $5,$5,$3
|
|
||||||
sltu $6,$5,$3
|
|
||||||
addu $4,$4,$2
|
|
||||||
addu $4,$4,$6
|
|
||||||
srl $3,$4,0
|
|
||||||
move $2,$0
|
|
||||||
move $6,$3
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $8,$0,$L11
|
|
||||||
sw $5,0($10)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
addu $9,$9,16
|
|
||||||
addu $12,$12,16
|
|
||||||
addu $10,$10,16
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $L10
|
|
||||||
addu $11,$11,16
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
$L11:
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $31
|
|
||||||
move $2,$6
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
.end bn_mul_words
|
|
||||||
.align 2
|
|
||||||
.globl bn_sqr_words
|
|
||||||
.ent bn_sqr_words
|
|
||||||
bn_sqr_words:
|
|
||||||
.frame $sp,0,$31 # vars= 0, regs= 0/0, args= 0, extra= 0
|
|
||||||
.mask 0x00000000,0
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
.set noreorder
|
|
||||||
.cpload $25
|
|
||||||
.set reorder
|
|
||||||
move $9,$4
|
|
||||||
addu $7,$9,28
|
|
||||||
addu $8,$5,12
|
|
||||||
$L18:
|
|
||||||
lw $2,0($5)
|
|
||||||
#nop
|
|
||||||
multu $2,$2
|
|
||||||
mfhi $2
|
|
||||||
mflo $3
|
|
||||||
#nop
|
|
||||||
addu $6,$6,-1
|
|
||||||
sw $3,0($9)
|
|
||||||
srl $3,$2,0
|
|
||||||
move $2,$0
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $6,$0,$L19
|
|
||||||
sw $3,-24($7)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $2,-8($8)
|
|
||||||
#nop
|
|
||||||
multu $2,$2
|
|
||||||
mfhi $2
|
|
||||||
mflo $3
|
|
||||||
#nop
|
|
||||||
addu $6,$6,-1
|
|
||||||
sw $3,-20($7)
|
|
||||||
srl $3,$2,0
|
|
||||||
move $2,$0
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $6,$0,$L19
|
|
||||||
sw $3,-16($7)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $2,-4($8)
|
|
||||||
#nop
|
|
||||||
multu $2,$2
|
|
||||||
mfhi $2
|
|
||||||
mflo $3
|
|
||||||
#nop
|
|
||||||
addu $6,$6,-1
|
|
||||||
sw $3,-12($7)
|
|
||||||
srl $3,$2,0
|
|
||||||
move $2,$0
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $6,$0,$L19
|
|
||||||
sw $3,-8($7)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
lw $2,0($8)
|
|
||||||
#nop
|
|
||||||
multu $2,$2
|
|
||||||
mfhi $2
|
|
||||||
mflo $3
|
|
||||||
#nop
|
|
||||||
addu $6,$6,-1
|
|
||||||
sw $3,-4($7)
|
|
||||||
srl $3,$2,0
|
|
||||||
move $2,$0
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $6,$0,$L19
|
|
||||||
sw $3,0($7)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
addu $8,$8,16
|
|
||||||
addu $5,$5,16
|
|
||||||
addu $7,$7,32
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $L18
|
|
||||||
addu $9,$9,32
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
$L19:
|
|
||||||
j $31
|
|
||||||
.end bn_sqr_words
|
|
||||||
.rdata
|
|
||||||
.align 2
|
|
||||||
$LC0:
|
|
||||||
|
|
||||||
.byte 0x44,0x69,0x76,0x69,0x73,0x69,0x6f,0x6e
|
|
||||||
.byte 0x20,0x77,0x6f,0x75,0x6c,0x64,0x20,0x6f
|
|
||||||
.byte 0x76,0x65,0x72,0x66,0x6c,0x6f,0x77,0xa
|
|
||||||
.byte 0x0
|
|
||||||
.text
|
|
||||||
.align 2
|
|
||||||
.globl bn_div64
|
|
||||||
.ent bn_div64
|
|
||||||
bn_div64:
|
|
||||||
.frame $sp,56,$31 # vars= 0, regs= 7/0, args= 16, extra= 8
|
|
||||||
.mask 0x901f0000,-8
|
|
||||||
.fmask 0x00000000,0
|
|
||||||
.set noreorder
|
|
||||||
.cpload $25
|
|
||||||
.set reorder
|
|
||||||
subu $sp,$sp,56
|
|
||||||
.cprestore 16
|
|
||||||
sw $16,24($sp)
|
|
||||||
move $16,$4
|
|
||||||
sw $17,28($sp)
|
|
||||||
move $17,$5
|
|
||||||
sw $18,32($sp)
|
|
||||||
move $18,$6
|
|
||||||
sw $20,40($sp)
|
|
||||||
move $20,$0
|
|
||||||
sw $19,36($sp)
|
|
||||||
li $19,0x00000002 # 2
|
|
||||||
sw $31,48($sp)
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
bne $18,$0,$L26
|
|
||||||
sw $28,44($sp)
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $L43
|
|
||||||
li $2,-1 # 0xffffffff
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
$L26:
|
|
||||||
move $4,$18
|
|
||||||
jal BN_num_bits_word
|
|
||||||
move $4,$2
|
|
||||||
li $2,0x00000020 # 32
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $4,$2,$L27
|
|
||||||
li $2,0x00000001 # 1
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
sll $2,$2,$4
|
|
||||||
sltu $2,$2,$16
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $2,$0,$L44
|
|
||||||
li $5,0x00000020 # 32
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
la $4,__iob+32
|
|
||||||
la $5,$LC0
|
|
||||||
jal fprintf
|
|
||||||
jal abort
|
|
||||||
$L27:
|
|
||||||
li $5,0x00000020 # 32
|
|
||||||
$L44:
|
|
||||||
sltu $2,$16,$18
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
bne $2,$0,$L28
|
|
||||||
subu $4,$5,$4
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
subu $16,$16,$18
|
|
||||||
$L28:
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $4,$0,$L29
|
|
||||||
li $10,-65536 # 0xffff0000
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
sll $18,$18,$4
|
|
||||||
sll $3,$16,$4
|
|
||||||
subu $2,$5,$4
|
|
||||||
srl $2,$17,$2
|
|
||||||
or $16,$3,$2
|
|
||||||
sll $17,$17,$4
|
|
||||||
$L29:
|
|
||||||
srl $7,$18,16
|
|
||||||
andi $9,$18,0xffff
|
|
||||||
$L30:
|
|
||||||
srl $2,$16,16
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $2,$7,$L34
|
|
||||||
li $6,0x0000ffff # 65535
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
divu $6,$16,$7
|
|
||||||
$L34:
|
|
||||||
mult $6,$9
|
|
||||||
mflo $5
|
|
||||||
#nop
|
|
||||||
#nop
|
|
||||||
mult $6,$7
|
|
||||||
and $2,$17,$10
|
|
||||||
srl $8,$2,16
|
|
||||||
mflo $4
|
|
||||||
$L35:
|
|
||||||
subu $3,$16,$4
|
|
||||||
and $2,$3,$10
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
bne $2,$0,$L36
|
|
||||||
sll $2,$3,16
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
addu $2,$2,$8
|
|
||||||
sltu $2,$2,$5
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $2,$0,$L36
|
|
||||||
subu $5,$5,$9
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
subu $4,$4,$7
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $L35
|
|
||||||
addu $6,$6,-1
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
$L36:
|
|
||||||
mult $6,$7
|
|
||||||
mflo $5
|
|
||||||
#nop
|
|
||||||
#nop
|
|
||||||
mult $6,$9
|
|
||||||
mflo $4
|
|
||||||
#nop
|
|
||||||
#nop
|
|
||||||
srl $3,$4,16
|
|
||||||
sll $2,$4,16
|
|
||||||
and $4,$2,$10
|
|
||||||
sltu $2,$17,$4
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $2,$0,$L40
|
|
||||||
addu $5,$5,$3
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
addu $5,$5,1
|
|
||||||
$L40:
|
|
||||||
sltu $2,$16,$5
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $2,$0,$L41
|
|
||||||
subu $17,$17,$4
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
addu $16,$16,$18
|
|
||||||
addu $6,$6,-1
|
|
||||||
$L41:
|
|
||||||
addu $19,$19,-1
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
beq $19,$0,$L31
|
|
||||||
subu $16,$16,$5
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
sll $20,$6,16
|
|
||||||
sll $3,$16,16
|
|
||||||
srl $2,$17,16
|
|
||||||
or $16,$3,$2
|
|
||||||
.set noreorder
|
|
||||||
.set nomacro
|
|
||||||
j $L30
|
|
||||||
sll $17,$17,16
|
|
||||||
.set macro
|
|
||||||
.set reorder
|
|
||||||
|
|
||||||
$L31:
|
|
||||||
or $2,$20,$6
|
|
||||||
$L43:
|
|
||||||
lw $31,48($sp)
|
|
||||||
lw $20,40($sp)
|
|
||||||
lw $19,36($sp)
|
|
||||||
lw $18,32($sp)
|
|
||||||
lw $17,28($sp)
|
|
||||||
lw $16,24($sp)
|
|
||||||
addu $sp,$sp,56
|
|
||||||
j $31
|
|
||||||
.end bn_div64
|
|
||||||
|
|
||||||
.globl abort .text
|
|
||||||
.globl fprintf .text
|
|
||||||
.globl BN_num_bits_word .text
|
|
||||||
@ -1,434 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
|
|
||||||
package alpha;
|
|
||||||
use Carp qw(croak cluck);
|
|
||||||
|
|
||||||
$label="100";
|
|
||||||
|
|
||||||
$n_debug=0;
|
|
||||||
$smear_regs=1;
|
|
||||||
$reg_alloc=1;
|
|
||||||
|
|
||||||
$align="3";
|
|
||||||
$com_start="#";
|
|
||||||
|
|
||||||
sub main'asm_init_output { @out=(); }
|
|
||||||
sub main'asm_get_output { return(@out); }
|
|
||||||
sub main'get_labels { return(@labels); }
|
|
||||||
sub main'external_label { push(@labels,@_); }
|
|
||||||
|
|
||||||
# General registers
|
|
||||||
|
|
||||||
%regs=( 'r0', '$0',
|
|
||||||
'r1', '$1',
|
|
||||||
'r2', '$2',
|
|
||||||
'r3', '$3',
|
|
||||||
'r4', '$4',
|
|
||||||
'r5', '$5',
|
|
||||||
'r6', '$6',
|
|
||||||
'r7', '$7',
|
|
||||||
'r8', '$8',
|
|
||||||
'r9', '$22',
|
|
||||||
'r10', '$23',
|
|
||||||
'r11', '$24',
|
|
||||||
'r12', '$25',
|
|
||||||
'r13', '$27',
|
|
||||||
'r14', '$28',
|
|
||||||
'r15', '$21', # argc == 5
|
|
||||||
'r16', '$20', # argc == 4
|
|
||||||
'r17', '$19', # argc == 3
|
|
||||||
'r18', '$18', # argc == 2
|
|
||||||
'r19', '$17', # argc == 1
|
|
||||||
'r20', '$16', # argc == 0
|
|
||||||
'r21', '$9', # save 0
|
|
||||||
'r22', '$10', # save 1
|
|
||||||
'r23', '$11', # save 2
|
|
||||||
'r24', '$12', # save 3
|
|
||||||
'r25', '$13', # save 4
|
|
||||||
'r26', '$14', # save 5
|
|
||||||
|
|
||||||
'a0', '$16',
|
|
||||||
'a1', '$17',
|
|
||||||
'a2', '$18',
|
|
||||||
'a3', '$19',
|
|
||||||
'a4', '$20',
|
|
||||||
'a5', '$21',
|
|
||||||
|
|
||||||
's0', '$9',
|
|
||||||
's1', '$10',
|
|
||||||
's2', '$11',
|
|
||||||
's3', '$12',
|
|
||||||
's4', '$13',
|
|
||||||
's5', '$14',
|
|
||||||
'zero', '$31',
|
|
||||||
'sp', '$30',
|
|
||||||
);
|
|
||||||
|
|
||||||
$main'reg_s0="r21";
|
|
||||||
$main'reg_s1="r22";
|
|
||||||
$main'reg_s2="r23";
|
|
||||||
$main'reg_s3="r24";
|
|
||||||
$main'reg_s4="r25";
|
|
||||||
$main'reg_s5="r26";
|
|
||||||
|
|
||||||
@reg=( '$0', '$1' ,'$2' ,'$3' ,'$4' ,'$5' ,'$6' ,'$7' ,'$8',
|
|
||||||
'$22','$23','$24','$25','$20','$21','$27','$28');
|
|
||||||
|
|
||||||
|
|
||||||
sub main'sub { &out3("subq",@_); }
|
|
||||||
sub main'add { &out3("addq",@_); }
|
|
||||||
sub main'mov { &out3("bis",$_[0],$_[0],$_[1]); }
|
|
||||||
sub main'or { &out3("bis",@_); }
|
|
||||||
sub main'bis { &out3("bis",@_); }
|
|
||||||
sub main'br { &out1("br",@_); }
|
|
||||||
sub main'ld { &out2("ldq",@_); }
|
|
||||||
sub main'st { &out2("stq",@_); }
|
|
||||||
sub main'cmpult { &out3("cmpult",@_); }
|
|
||||||
sub main'cmplt { &out3("cmplt",@_); }
|
|
||||||
sub main'bgt { &out2("bgt",@_); }
|
|
||||||
sub main'ble { &out2("ble",@_); }
|
|
||||||
sub main'blt { &out2("blt",@_); }
|
|
||||||
sub main'mul { &out3("mulq",@_); }
|
|
||||||
sub main'muh { &out3("umulh",@_); }
|
|
||||||
|
|
||||||
$main'QWS=8;
|
|
||||||
|
|
||||||
sub main'asm_add
|
|
||||||
{
|
|
||||||
push(@out,@_);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'asm_finish
|
|
||||||
{
|
|
||||||
&main'file_end();
|
|
||||||
print &main'asm_get_output();
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'asm_init
|
|
||||||
{
|
|
||||||
($type,$fn)=@_;
|
|
||||||
$filename=$fn;
|
|
||||||
|
|
||||||
&main'asm_init_output();
|
|
||||||
&main'comment("Don't even think of reading this code");
|
|
||||||
&main'comment("It was automatically generated by $filename");
|
|
||||||
&main'comment("Which is a perl program used to generate the alpha assember.");
|
|
||||||
&main'comment("eric <eay\@cryptsoft.com>");
|
|
||||||
&main'comment("");
|
|
||||||
|
|
||||||
$filename =~ s/\.pl$//;
|
|
||||||
&main'file($filename);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub conv
|
|
||||||
{
|
|
||||||
local($r)=@_;
|
|
||||||
local($v);
|
|
||||||
|
|
||||||
return($regs{$r}) if defined($regs{$r});
|
|
||||||
return($r);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'QWPw
|
|
||||||
{
|
|
||||||
local($off,$reg)=@_;
|
|
||||||
|
|
||||||
return(&main'QWP($off*8,$reg));
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'QWP
|
|
||||||
{
|
|
||||||
local($off,$reg)=@_;
|
|
||||||
|
|
||||||
$ret="$off(".&conv($reg).")";
|
|
||||||
return($ret);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out3
|
|
||||||
{
|
|
||||||
local($name,$p1,$p2,$p3)=@_;
|
|
||||||
|
|
||||||
$p1=&conv($p1);
|
|
||||||
$p2=&conv($p2);
|
|
||||||
$p3=&conv($p3);
|
|
||||||
push(@out,"\t$name\t");
|
|
||||||
$l=length($p1)+1;
|
|
||||||
push(@out,$p1.",");
|
|
||||||
$ll=3-($l+9)/8;
|
|
||||||
$tmp1=sprintf("\t" x $ll);
|
|
||||||
push(@out,$tmp1);
|
|
||||||
|
|
||||||
$l=length($p2)+1;
|
|
||||||
push(@out,$p2.",");
|
|
||||||
$ll=3-($l+9)/8;
|
|
||||||
$tmp1=sprintf("\t" x $ll);
|
|
||||||
push(@out,$tmp1);
|
|
||||||
|
|
||||||
push(@out,&conv($p3)."\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out2
|
|
||||||
{
|
|
||||||
local($name,$p1,$p2,$p3)=@_;
|
|
||||||
|
|
||||||
$p1=&conv($p1);
|
|
||||||
$p2=&conv($p2);
|
|
||||||
push(@out,"\t$name\t");
|
|
||||||
$l=length($p1)+1;
|
|
||||||
push(@out,$p1.",");
|
|
||||||
$ll=3-($l+9)/8;
|
|
||||||
$tmp1=sprintf("\t" x $ll);
|
|
||||||
push(@out,$tmp1);
|
|
||||||
|
|
||||||
push(@out,&conv($p2)."\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out1
|
|
||||||
{
|
|
||||||
local($name,$p1)=@_;
|
|
||||||
|
|
||||||
$p1=&conv($p1);
|
|
||||||
push(@out,"\t$name\t".$p1."\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out0
|
|
||||||
{
|
|
||||||
push(@out,"\t$_[0]\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'file
|
|
||||||
{
|
|
||||||
local($file)=@_;
|
|
||||||
|
|
||||||
local($tmp)=<<"EOF";
|
|
||||||
# DEC Alpha assember
|
|
||||||
# Generated from perl scripts contains in SSLeay
|
|
||||||
.file 1 "$file.s"
|
|
||||||
.set noat
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_begin
|
|
||||||
{
|
|
||||||
local($func)=@_;
|
|
||||||
|
|
||||||
print STDERR "$func\n";
|
|
||||||
local($tmp)=<<"EOF";
|
|
||||||
.text
|
|
||||||
.align $align
|
|
||||||
.globl $func
|
|
||||||
.ent $func
|
|
||||||
${func}:
|
|
||||||
${func}..ng:
|
|
||||||
.frame \$30,0,\$26,0
|
|
||||||
.prologue 0
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=0;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end
|
|
||||||
{
|
|
||||||
local($func)=@_;
|
|
||||||
|
|
||||||
local($tmp)=<<"EOF";
|
|
||||||
ret \$31,(\$26),1
|
|
||||||
.end $func
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=0;
|
|
||||||
%label=();
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end_A
|
|
||||||
{
|
|
||||||
local($func)=@_;
|
|
||||||
|
|
||||||
local($tmp)=<<"EOF";
|
|
||||||
ret \$31,(\$26),1
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end_B
|
|
||||||
{
|
|
||||||
local($func)=@_;
|
|
||||||
|
|
||||||
$func=$under.$func;
|
|
||||||
|
|
||||||
push(@out,"\t.end $func\n");
|
|
||||||
$stack=0;
|
|
||||||
%label=();
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'wparam
|
|
||||||
{
|
|
||||||
local($num)=@_;
|
|
||||||
|
|
||||||
if ($num < 6)
|
|
||||||
{
|
|
||||||
$num=20-$num;
|
|
||||||
return("r$num");
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{ return(&main'QWP($stack+$num*8,"sp")); }
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'stack_push
|
|
||||||
{
|
|
||||||
local($num)=@_;
|
|
||||||
$stack+=$num*8;
|
|
||||||
&main'sub("sp",$num*8,"sp");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'stack_pop
|
|
||||||
{
|
|
||||||
local($num)=@_;
|
|
||||||
$stack-=$num*8;
|
|
||||||
&main'add("sp",$num*8,"sp");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'swtmp
|
|
||||||
{
|
|
||||||
return(&main'QWP(($_[0])*8,"sp"));
|
|
||||||
}
|
|
||||||
|
|
||||||
# Should use swtmp, which is above sp. Linix can trash the stack above esp
|
|
||||||
#sub main'wtmp
|
|
||||||
# {
|
|
||||||
# local($num)=@_;
|
|
||||||
#
|
|
||||||
# return(&main'QWP(-($num+1)*4,"esp","",0));
|
|
||||||
# }
|
|
||||||
|
|
||||||
sub main'comment
|
|
||||||
{
|
|
||||||
foreach (@_)
|
|
||||||
{
|
|
||||||
if (/^\s*$/)
|
|
||||||
{ push(@out,"\n"); }
|
|
||||||
else
|
|
||||||
{ push(@out,"\t$com_start $_ $com_end\n"); }
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'label
|
|
||||||
{
|
|
||||||
if (!defined($label{$_[0]}))
|
|
||||||
{
|
|
||||||
$label{$_[0]}=$label;
|
|
||||||
$label++;
|
|
||||||
}
|
|
||||||
return('$'.$label{$_[0]});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'set_label
|
|
||||||
{
|
|
||||||
if (!defined($label{$_[0]}))
|
|
||||||
{
|
|
||||||
$label{$_[0]}=$label;
|
|
||||||
$label++;
|
|
||||||
}
|
|
||||||
# push(@out,".align $align\n") if ($_[1] != 0);
|
|
||||||
push(@out,'$'."$label{$_[0]}:\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'file_end
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'data_word
|
|
||||||
{
|
|
||||||
push(@out,"\t.long $_[0]\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
@pool_free=();
|
|
||||||
@pool_taken=();
|
|
||||||
$curr_num=0;
|
|
||||||
$max=0;
|
|
||||||
|
|
||||||
sub main'init_pool
|
|
||||||
{
|
|
||||||
local($args)=@_;
|
|
||||||
local($i);
|
|
||||||
|
|
||||||
@pool_free=();
|
|
||||||
for ($i=(14+(6-$args)); $i >= 0; $i--)
|
|
||||||
{
|
|
||||||
push(@pool_free,"r$i");
|
|
||||||
}
|
|
||||||
print STDERR "START :register pool:@pool_free\n";
|
|
||||||
$curr_num=$max=0;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'fin_pool
|
|
||||||
{
|
|
||||||
printf STDERR "END %2d:register pool:@pool_free\n",$max;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'GR
|
|
||||||
{
|
|
||||||
local($r)=@_;
|
|
||||||
local($i,@n,$_);
|
|
||||||
|
|
||||||
foreach (@pool_free)
|
|
||||||
{
|
|
||||||
if ($r ne $_)
|
|
||||||
{ push(@n,$_); }
|
|
||||||
else
|
|
||||||
{
|
|
||||||
$curr_num++;
|
|
||||||
$max=$curr_num if ($curr_num > $max);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
@pool_free=@n;
|
|
||||||
print STDERR "GR:@pool_free\n" if $reg_alloc;
|
|
||||||
return(@_);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'NR
|
|
||||||
{
|
|
||||||
local($num)=@_;
|
|
||||||
local(@ret);
|
|
||||||
|
|
||||||
$num=1 if $num == 0;
|
|
||||||
($#pool_free >= ($num-1)) || croak "out of registers: want $num, have @pool_free";
|
|
||||||
while ($num > 0)
|
|
||||||
{
|
|
||||||
push(@ret,pop @pool_free);
|
|
||||||
$curr_num++;
|
|
||||||
$max=$curr_num if ($curr_num > $max);
|
|
||||||
$num--
|
|
||||||
}
|
|
||||||
print STDERR "nr @ret\n" if $n_debug;
|
|
||||||
print STDERR "NR:@pool_free\n" if $reg_alloc;
|
|
||||||
return(@ret);
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'FR
|
|
||||||
{
|
|
||||||
local(@r)=@_;
|
|
||||||
local(@a,$v,$w);
|
|
||||||
|
|
||||||
print STDERR "fr @r\n" if $n_debug;
|
|
||||||
# cluck "fr @r";
|
|
||||||
for $w (@pool_free)
|
|
||||||
{
|
|
||||||
foreach $v (@r)
|
|
||||||
{
|
|
||||||
croak "double register free of $v (@pool_free)" if $w eq $v;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
foreach $v (@r)
|
|
||||||
{
|
|
||||||
croak "bad argument to FR" if ($v !~ /^r\d+$/);
|
|
||||||
if ($smear_regs)
|
|
||||||
{ unshift(@pool_free,$v); }
|
|
||||||
else { push(@pool_free,$v); }
|
|
||||||
$curr_num--;
|
|
||||||
}
|
|
||||||
print STDERR "FR:@pool_free\n" if $reg_alloc;
|
|
||||||
}
|
|
||||||
1;
|
|
||||||
@ -1,363 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
|
|
||||||
# x86 CodeWarrior assembler for NetWare
|
|
||||||
|
|
||||||
# This file is a slightly modified version of x86nasm.pl. The Metrowerks
|
|
||||||
# compiler for NetWare doesn't prefix symbols with an underscore.
|
|
||||||
#
|
|
||||||
|
|
||||||
$label="L000";
|
|
||||||
|
|
||||||
%lb=( 'eax', 'al',
|
|
||||||
'ebx', 'bl',
|
|
||||||
'ecx', 'cl',
|
|
||||||
'edx', 'dl',
|
|
||||||
'ax', 'al',
|
|
||||||
'bx', 'bl',
|
|
||||||
'cx', 'cl',
|
|
||||||
'dx', 'dl',
|
|
||||||
);
|
|
||||||
|
|
||||||
%hb=( 'eax', 'ah',
|
|
||||||
'ebx', 'bh',
|
|
||||||
'ecx', 'ch',
|
|
||||||
'edx', 'dh',
|
|
||||||
'ax', 'ah',
|
|
||||||
'bx', 'bh',
|
|
||||||
'cx', 'ch',
|
|
||||||
'dx', 'dh',
|
|
||||||
);
|
|
||||||
|
|
||||||
sub main'asm_init_output
|
|
||||||
{
|
|
||||||
@out=();
|
|
||||||
&comment("NetWare: assembly for CodeWarrior assembler (mwasmnlm)");
|
|
||||||
}
|
|
||||||
sub main'asm_get_output { return(@out); }
|
|
||||||
sub main'get_labels { return(@labels); }
|
|
||||||
|
|
||||||
sub main'external_label
|
|
||||||
{
|
|
||||||
push(@labels,@_);
|
|
||||||
foreach (@_) {
|
|
||||||
push(@out, ".extern\t$_\n");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'LB
|
|
||||||
{
|
|
||||||
(defined($lb{$_[0]})) || die "$_[0] does not have a 'low byte'\n";
|
|
||||||
return($lb{$_[0]});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'HB
|
|
||||||
{
|
|
||||||
(defined($hb{$_[0]})) || die "$_[0] does not have a 'high byte'\n";
|
|
||||||
return($hb{$_[0]});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'BP
|
|
||||||
{
|
|
||||||
&get_mem("BYTE",@_);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'DWP
|
|
||||||
{
|
|
||||||
&get_mem("DWORD",@_);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'BC
|
|
||||||
{
|
|
||||||
return "@_";
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'DWC
|
|
||||||
{
|
|
||||||
return "@_";
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'stack_push
|
|
||||||
{
|
|
||||||
my($num)=@_;
|
|
||||||
$stack+=$num*4;
|
|
||||||
&main'sub("esp",$num*4);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'stack_pop
|
|
||||||
{
|
|
||||||
my($num)=@_;
|
|
||||||
$stack-=$num*4;
|
|
||||||
&main'add("esp",$num*4);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub get_mem
|
|
||||||
{
|
|
||||||
my($size,$addr,$reg1,$reg2,$idx)=@_;
|
|
||||||
my($t,$post);
|
|
||||||
my($ret)="$size PTR [";
|
|
||||||
$addr =~ s/^\s+//;
|
|
||||||
if ($addr =~ /^(.+)\+(.+)$/)
|
|
||||||
{
|
|
||||||
$reg2=&conv($1);
|
|
||||||
$addr="$2";
|
|
||||||
}
|
|
||||||
elsif ($addr =~ /^[_a-zA-Z]/)
|
|
||||||
{
|
|
||||||
$addr="$addr";
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($addr =~ /^.+\-.+$/) { $addr="($addr)"; }
|
|
||||||
|
|
||||||
$reg1="$regs{$reg1}" if defined($regs{$reg1});
|
|
||||||
$reg2="$regs{$reg2}" if defined($regs{$reg2});
|
|
||||||
if (($addr ne "") && ($addr ne 0))
|
|
||||||
{
|
|
||||||
if ($addr !~ /^-/)
|
|
||||||
{ $ret.="${addr}+"; }
|
|
||||||
else { $post=$addr; }
|
|
||||||
}
|
|
||||||
if ($reg2 ne "")
|
|
||||||
{
|
|
||||||
$t="";
|
|
||||||
$t="*$idx" if ($idx != 0);
|
|
||||||
$reg1="+".$reg1 if ("$reg1$post" ne "");
|
|
||||||
$ret.="$reg2$t$reg1$post]";
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
$ret.="$reg1$post]"
|
|
||||||
}
|
|
||||||
$ret =~ s/\+\]/]/; # in case $addr was the only argument
|
|
||||||
return($ret);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'mov { &out2("mov",@_); }
|
|
||||||
sub main'movb { &out2("mov",@_); }
|
|
||||||
sub main'and { &out2("and",@_); }
|
|
||||||
sub main'or { &out2("or",@_); }
|
|
||||||
sub main'shl { &out2("shl",@_); }
|
|
||||||
sub main'shr { &out2("shr",@_); }
|
|
||||||
sub main'xor { &out2("xor",@_); }
|
|
||||||
sub main'xorb { &out2("xor",@_); }
|
|
||||||
sub main'add { &out2("add",@_); }
|
|
||||||
sub main'adc { &out2("adc",@_); }
|
|
||||||
sub main'sub { &out2("sub",@_); }
|
|
||||||
sub main'rotl { &out2("rol",@_); }
|
|
||||||
sub main'rotr { &out2("ror",@_); }
|
|
||||||
sub main'exch { &out2("xchg",@_); }
|
|
||||||
sub main'cmp { &out2("cmp",@_); }
|
|
||||||
sub main'lea { &out2("lea",@_); }
|
|
||||||
sub main'mul { &out1("mul",@_); }
|
|
||||||
sub main'div { &out1("div",@_); }
|
|
||||||
sub main'dec { &out1("dec",@_); }
|
|
||||||
sub main'inc { &out1("inc",@_); }
|
|
||||||
sub main'jmp { &out1("jmp",@_); }
|
|
||||||
sub main'jmp_ptr { &out1p("jmp",@_); }
|
|
||||||
|
|
||||||
sub main'je { &out1("je ",@_); }
|
|
||||||
sub main'jle { &out1("jle ",@_); }
|
|
||||||
sub main'jz { &out1("jz ",@_); }
|
|
||||||
sub main'jge { &out1("jge ",@_); }
|
|
||||||
sub main'jl { &out1("jl ",@_); }
|
|
||||||
sub main'ja { &out1("ja ",@_); }
|
|
||||||
sub main'jae { &out1("jae ",@_); }
|
|
||||||
sub main'jb { &out1("jb ",@_); }
|
|
||||||
sub main'jbe { &out1("jbe ",@_); }
|
|
||||||
sub main'jc { &out1("jc ",@_); }
|
|
||||||
sub main'jnc { &out1("jnc ",@_); }
|
|
||||||
sub main'jnz { &out1("jnz ",@_); }
|
|
||||||
sub main'jne { &out1("jne ",@_); }
|
|
||||||
sub main'jno { &out1("jno ",@_); }
|
|
||||||
|
|
||||||
sub main'push { &out1("push",@_); $stack+=4; }
|
|
||||||
sub main'pop { &out1("pop",@_); $stack-=4; }
|
|
||||||
sub main'bswap { &out1("bswap",@_); &using486(); }
|
|
||||||
sub main'not { &out1("not",@_); }
|
|
||||||
sub main'call { &out1("call",$_[0]); }
|
|
||||||
sub main'ret { &out0("ret"); }
|
|
||||||
sub main'nop { &out0("nop"); }
|
|
||||||
|
|
||||||
sub out2
|
|
||||||
{
|
|
||||||
my($name,$p1,$p2)=@_;
|
|
||||||
my($l,$t);
|
|
||||||
|
|
||||||
push(@out,"\t$name\t");
|
|
||||||
$t=&conv($p1).",";
|
|
||||||
$l=length($t);
|
|
||||||
push(@out,$t);
|
|
||||||
$l=4-($l+9)/8;
|
|
||||||
push(@out,"\t" x $l);
|
|
||||||
push(@out,&conv($p2));
|
|
||||||
push(@out,"\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out0
|
|
||||||
{
|
|
||||||
my($name)=@_;
|
|
||||||
|
|
||||||
push(@out,"\t$name\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out1
|
|
||||||
{
|
|
||||||
my($name,$p1)=@_;
|
|
||||||
my($l,$t);
|
|
||||||
push(@out,"\t$name\t".&conv($p1)."\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub conv
|
|
||||||
{
|
|
||||||
my($p)=@_;
|
|
||||||
$p =~ s/0x([0-9A-Fa-f]+)/0$1h/;
|
|
||||||
return $p;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub using486
|
|
||||||
{
|
|
||||||
return if $using486;
|
|
||||||
$using486++;
|
|
||||||
grep(s/\.386/\.486/,@out);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'file
|
|
||||||
{
|
|
||||||
push(@out, ".section .text\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_begin
|
|
||||||
{
|
|
||||||
my($func,$extra)=@_;
|
|
||||||
|
|
||||||
push(@labels,$func);
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
.global $func
|
|
||||||
$func:
|
|
||||||
push ebp
|
|
||||||
push ebx
|
|
||||||
push esi
|
|
||||||
push edi
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=20;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_begin_B
|
|
||||||
{
|
|
||||||
my($func,$extra)=@_;
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
.global $func
|
|
||||||
$func:
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=4;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end
|
|
||||||
{
|
|
||||||
my($func)=@_;
|
|
||||||
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
pop edi
|
|
||||||
pop esi
|
|
||||||
pop ebx
|
|
||||||
pop ebp
|
|
||||||
ret
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=0;
|
|
||||||
%label=();
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end_B
|
|
||||||
{
|
|
||||||
$stack=0;
|
|
||||||
%label=();
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end_A
|
|
||||||
{
|
|
||||||
my($func)=@_;
|
|
||||||
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
pop edi
|
|
||||||
pop esi
|
|
||||||
pop ebx
|
|
||||||
pop ebp
|
|
||||||
ret
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'file_end
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'wparam
|
|
||||||
{
|
|
||||||
my($num)=@_;
|
|
||||||
|
|
||||||
return(&main'DWP($stack+$num*4,"esp","",0));
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'swtmp
|
|
||||||
{
|
|
||||||
return(&main'DWP($_[0]*4,"esp","",0));
|
|
||||||
}
|
|
||||||
|
|
||||||
# Should use swtmp, which is above esp. Linix can trash the stack above esp
|
|
||||||
#sub main'wtmp
|
|
||||||
# {
|
|
||||||
# my($num)=@_;
|
|
||||||
#
|
|
||||||
# return(&main'DWP(-(($num+1)*4),"esp","",0));
|
|
||||||
# }
|
|
||||||
|
|
||||||
sub main'comment
|
|
||||||
{
|
|
||||||
foreach (@_)
|
|
||||||
{
|
|
||||||
push(@out,"\t; $_\n");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'label
|
|
||||||
{
|
|
||||||
if (!defined($label{$_[0]}))
|
|
||||||
{
|
|
||||||
$label{$_[0]}="${label}${_[0]}";
|
|
||||||
$label++;
|
|
||||||
}
|
|
||||||
return($label{$_[0]});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'set_label
|
|
||||||
{
|
|
||||||
if (!defined($label{$_[0]}))
|
|
||||||
{
|
|
||||||
$label{$_[0]}="${label}${_[0]}";
|
|
||||||
$label++;
|
|
||||||
}
|
|
||||||
push(@out,"$label{$_[0]}:\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'data_word
|
|
||||||
{
|
|
||||||
push(@out,"\t.long\t$_[0]\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out1p
|
|
||||||
{
|
|
||||||
my($name,$p1)=@_;
|
|
||||||
my($l,$t);
|
|
||||||
|
|
||||||
push(@out,"\t$name\t ".&conv($p1)."\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'picmeup
|
|
||||||
{
|
|
||||||
local($dst,$sym)=@_;
|
|
||||||
&main'lea($dst,&main'DWP($sym));
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'blindpop { &out1("pop",@_); }
|
|
||||||
@ -1,364 +0,0 @@
|
|||||||
#!/usr/local/bin/perl
|
|
||||||
|
|
||||||
# x86 nasm assembler for NetWare
|
|
||||||
|
|
||||||
# This file is a slightly modified version of x86nasm.pl. The Metrowerks
|
|
||||||
# compiler for NetWare doesn't prefix symbols with an underscore.
|
|
||||||
#
|
|
||||||
|
|
||||||
$label="L000";
|
|
||||||
|
|
||||||
%lb=( 'eax', 'al',
|
|
||||||
'ebx', 'bl',
|
|
||||||
'ecx', 'cl',
|
|
||||||
'edx', 'dl',
|
|
||||||
'ax', 'al',
|
|
||||||
'bx', 'bl',
|
|
||||||
'cx', 'cl',
|
|
||||||
'dx', 'dl',
|
|
||||||
);
|
|
||||||
|
|
||||||
%hb=( 'eax', 'ah',
|
|
||||||
'ebx', 'bh',
|
|
||||||
'ecx', 'ch',
|
|
||||||
'edx', 'dh',
|
|
||||||
'ax', 'ah',
|
|
||||||
'bx', 'bh',
|
|
||||||
'cx', 'ch',
|
|
||||||
'dx', 'dh',
|
|
||||||
);
|
|
||||||
|
|
||||||
sub main'asm_init_output
|
|
||||||
{
|
|
||||||
@out=();
|
|
||||||
&comment("NetWare: assembly for NASM assembler (nasmw)");
|
|
||||||
}
|
|
||||||
sub main'asm_get_output { return(@out); }
|
|
||||||
sub main'get_labels { return(@labels); }
|
|
||||||
|
|
||||||
sub main'external_label
|
|
||||||
{
|
|
||||||
push(@labels,@_);
|
|
||||||
foreach (@_) {
|
|
||||||
push(@out, "extern\t$_\n");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'LB
|
|
||||||
{
|
|
||||||
(defined($lb{$_[0]})) || die "$_[0] does not have a 'low byte'\n";
|
|
||||||
return($lb{$_[0]});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'HB
|
|
||||||
{
|
|
||||||
(defined($hb{$_[0]})) || die "$_[0] does not have a 'high byte'\n";
|
|
||||||
return($hb{$_[0]});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'BP
|
|
||||||
{
|
|
||||||
&get_mem("BYTE",@_);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'DWP
|
|
||||||
{
|
|
||||||
&get_mem("DWORD",@_);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'BC
|
|
||||||
{
|
|
||||||
return "BYTE @_";
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'DWC
|
|
||||||
{
|
|
||||||
return "DWORD @_";
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'stack_push
|
|
||||||
{
|
|
||||||
my($num)=@_;
|
|
||||||
$stack+=$num*4;
|
|
||||||
&main'sub("esp",$num*4);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'stack_pop
|
|
||||||
{
|
|
||||||
my($num)=@_;
|
|
||||||
$stack-=$num*4;
|
|
||||||
&main'add("esp",$num*4);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub get_mem
|
|
||||||
{
|
|
||||||
my($size,$addr,$reg1,$reg2,$idx)=@_;
|
|
||||||
my($t,$post);
|
|
||||||
my($ret)="[";
|
|
||||||
$addr =~ s/^\s+//;
|
|
||||||
if ($addr =~ /^(.+)\+(.+)$/)
|
|
||||||
{
|
|
||||||
$reg2=&conv($1);
|
|
||||||
$addr="$2";
|
|
||||||
}
|
|
||||||
elsif ($addr =~ /^[_a-zA-Z]/)
|
|
||||||
{
|
|
||||||
$addr="$addr";
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($addr =~ /^.+\-.+$/) { $addr="($addr)"; }
|
|
||||||
|
|
||||||
$reg1="$regs{$reg1}" if defined($regs{$reg1});
|
|
||||||
$reg2="$regs{$reg2}" if defined($regs{$reg2});
|
|
||||||
if (($addr ne "") && ($addr ne 0))
|
|
||||||
{
|
|
||||||
if ($addr !~ /^-/)
|
|
||||||
{ $ret.="${addr}+"; }
|
|
||||||
else { $post=$addr; }
|
|
||||||
}
|
|
||||||
if ($reg2 ne "")
|
|
||||||
{
|
|
||||||
$t="";
|
|
||||||
$t="*$idx" if ($idx != 0);
|
|
||||||
$reg1="+".$reg1 if ("$reg1$post" ne "");
|
|
||||||
$ret.="$reg2$t$reg1$post]";
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
$ret.="$reg1$post]"
|
|
||||||
}
|
|
||||||
$ret =~ s/\+\]/]/; # in case $addr was the only argument
|
|
||||||
return($ret);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'mov { &out2("mov",@_); }
|
|
||||||
sub main'movb { &out2("mov",@_); }
|
|
||||||
sub main'and { &out2("and",@_); }
|
|
||||||
sub main'or { &out2("or",@_); }
|
|
||||||
sub main'shl { &out2("shl",@_); }
|
|
||||||
sub main'shr { &out2("shr",@_); }
|
|
||||||
sub main'xor { &out2("xor",@_); }
|
|
||||||
sub main'xorb { &out2("xor",@_); }
|
|
||||||
sub main'add { &out2("add",@_); }
|
|
||||||
sub main'adc { &out2("adc",@_); }
|
|
||||||
sub main'sub { &out2("sub",@_); }
|
|
||||||
sub main'rotl { &out2("rol",@_); }
|
|
||||||
sub main'rotr { &out2("ror",@_); }
|
|
||||||
sub main'exch { &out2("xchg",@_); }
|
|
||||||
sub main'cmp { &out2("cmp",@_); }
|
|
||||||
sub main'lea { &out2("lea",@_); }
|
|
||||||
sub main'mul { &out1("mul",@_); }
|
|
||||||
sub main'div { &out1("div",@_); }
|
|
||||||
sub main'dec { &out1("dec",@_); }
|
|
||||||
sub main'inc { &out1("inc",@_); }
|
|
||||||
sub main'jmp { &out1("jmp",@_); }
|
|
||||||
sub main'jmp_ptr { &out1p("jmp",@_); }
|
|
||||||
|
|
||||||
# This is a bit of a kludge: declare all branches as NEAR.
|
|
||||||
sub main'je { &out1("je NEAR",@_); }
|
|
||||||
sub main'jle { &out1("jle NEAR",@_); }
|
|
||||||
sub main'jz { &out1("jz NEAR",@_); }
|
|
||||||
sub main'jge { &out1("jge NEAR",@_); }
|
|
||||||
sub main'jl { &out1("jl NEAR",@_); }
|
|
||||||
sub main'ja { &out1("ja NEAR",@_); }
|
|
||||||
sub main'jae { &out1("jae NEAR",@_); }
|
|
||||||
sub main'jb { &out1("jb NEAR",@_); }
|
|
||||||
sub main'jbe { &out1("jbe NEAR",@_); }
|
|
||||||
sub main'jc { &out1("jc NEAR",@_); }
|
|
||||||
sub main'jnc { &out1("jnc NEAR",@_); }
|
|
||||||
sub main'jnz { &out1("jnz NEAR",@_); }
|
|
||||||
sub main'jne { &out1("jne NEAR",@_); }
|
|
||||||
sub main'jno { &out1("jno NEAR",@_); }
|
|
||||||
|
|
||||||
sub main'push { &out1("push",@_); $stack+=4; }
|
|
||||||
sub main'pop { &out1("pop",@_); $stack-=4; }
|
|
||||||
sub main'bswap { &out1("bswap",@_); &using486(); }
|
|
||||||
sub main'not { &out1("not",@_); }
|
|
||||||
sub main'call { &out1("call",$_[0]); }
|
|
||||||
sub main'ret { &out0("ret"); }
|
|
||||||
sub main'nop { &out0("nop"); }
|
|
||||||
|
|
||||||
sub out2
|
|
||||||
{
|
|
||||||
my($name,$p1,$p2)=@_;
|
|
||||||
my($l,$t);
|
|
||||||
|
|
||||||
push(@out,"\t$name\t");
|
|
||||||
$t=&conv($p1).",";
|
|
||||||
$l=length($t);
|
|
||||||
push(@out,$t);
|
|
||||||
$l=4-($l+9)/8;
|
|
||||||
push(@out,"\t" x $l);
|
|
||||||
push(@out,&conv($p2));
|
|
||||||
push(@out,"\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out0
|
|
||||||
{
|
|
||||||
my($name)=@_;
|
|
||||||
|
|
||||||
push(@out,"\t$name\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out1
|
|
||||||
{
|
|
||||||
my($name,$p1)=@_;
|
|
||||||
my($l,$t);
|
|
||||||
push(@out,"\t$name\t".&conv($p1)."\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub conv
|
|
||||||
{
|
|
||||||
my($p)=@_;
|
|
||||||
$p =~ s/0x([0-9A-Fa-f]+)/0$1h/;
|
|
||||||
return $p;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub using486
|
|
||||||
{
|
|
||||||
return if $using486;
|
|
||||||
$using486++;
|
|
||||||
grep(s/\.386/\.486/,@out);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'file
|
|
||||||
{
|
|
||||||
push(@out, "segment .text\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_begin
|
|
||||||
{
|
|
||||||
my($func,$extra)=@_;
|
|
||||||
|
|
||||||
push(@labels,$func);
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
global $func
|
|
||||||
$func:
|
|
||||||
push ebp
|
|
||||||
push ebx
|
|
||||||
push esi
|
|
||||||
push edi
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=20;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_begin_B
|
|
||||||
{
|
|
||||||
my($func,$extra)=@_;
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
global $func
|
|
||||||
$func:
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=4;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end
|
|
||||||
{
|
|
||||||
my($func)=@_;
|
|
||||||
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
pop edi
|
|
||||||
pop esi
|
|
||||||
pop ebx
|
|
||||||
pop ebp
|
|
||||||
ret
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
$stack=0;
|
|
||||||
%label=();
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end_B
|
|
||||||
{
|
|
||||||
$stack=0;
|
|
||||||
%label=();
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'function_end_A
|
|
||||||
{
|
|
||||||
my($func)=@_;
|
|
||||||
|
|
||||||
my($tmp)=<<"EOF";
|
|
||||||
pop edi
|
|
||||||
pop esi
|
|
||||||
pop ebx
|
|
||||||
pop ebp
|
|
||||||
ret
|
|
||||||
EOF
|
|
||||||
push(@out,$tmp);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'file_end
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'wparam
|
|
||||||
{
|
|
||||||
my($num)=@_;
|
|
||||||
|
|
||||||
return(&main'DWP($stack+$num*4,"esp","",0));
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'swtmp
|
|
||||||
{
|
|
||||||
return(&main'DWP($_[0]*4,"esp","",0));
|
|
||||||
}
|
|
||||||
|
|
||||||
# Should use swtmp, which is above esp. Linix can trash the stack above esp
|
|
||||||
#sub main'wtmp
|
|
||||||
# {
|
|
||||||
# my($num)=@_;
|
|
||||||
#
|
|
||||||
# return(&main'DWP(-(($num+1)*4),"esp","",0));
|
|
||||||
# }
|
|
||||||
|
|
||||||
sub main'comment
|
|
||||||
{
|
|
||||||
foreach (@_)
|
|
||||||
{
|
|
||||||
push(@out,"\t; $_\n");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'label
|
|
||||||
{
|
|
||||||
if (!defined($label{$_[0]}))
|
|
||||||
{
|
|
||||||
$label{$_[0]}="\$${label}${_[0]}";
|
|
||||||
$label++;
|
|
||||||
}
|
|
||||||
return($label{$_[0]});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'set_label
|
|
||||||
{
|
|
||||||
if (!defined($label{$_[0]}))
|
|
||||||
{
|
|
||||||
$label{$_[0]}="${label}${_[0]}";
|
|
||||||
$label++;
|
|
||||||
}
|
|
||||||
push(@out,"$label{$_[0]}:\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'data_word
|
|
||||||
{
|
|
||||||
push(@out,"\tDD\t$_[0]\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub out1p
|
|
||||||
{
|
|
||||||
my($name,$p1)=@_;
|
|
||||||
my($l,$t);
|
|
||||||
|
|
||||||
push(@out,"\t$name\t ".&conv($p1)."\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'picmeup
|
|
||||||
{
|
|
||||||
local($dst,$sym)=@_;
|
|
||||||
&main'lea($dst,&main'DWP($sym));
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main'blindpop { &out1("pop",@_); }
|
|
||||||
Loading…
x
Reference in New Issue
Block a user