generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Correct a number of syntax errors.

Browse Source
This commit is contained in:
Richard Levitte 2000-11-22 18:20:31 +00:00
parent d53d271728
commit 73343ac38a
1 changed files with 40 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
crypto/bn/asm/vms.mar
View File

@ -241,14 +241,14 @@ h=4 ;(AP) h by value (input)
l=8 ;(AP) l by value (input) l=8 ;(AP) l by value (input)
d=12 ;(AP) d by value (input) d=12 ;(AP) d by value (input)
aprim=r5 ;aprim=r5
a2=r6 ;a2=r6
a20=r6 ;a20=r6
a21=r7 ;a21=r7
bprim=r8 ;bprim=r8
b2=r9 ;b2=r9
qprim=r10 ; initially used as q'' ;qprim=r10 ; initially used as q''
rprim=r11 ; initially used as r'' ;rprim=r11 ; initially used as r''
.psect code,nowrt .psect code,nowrt
@ -258,58 +258,58 @@ rprim=r11 ; initially used as r''
movl h(ap),r3 movl h(ap),r3
movl d(ap),r4 movl d(ap),r4
movl #0,aprim movl #0,r5
movl #0,bprim movl #0,r8
movl #0,r0 movl #0,r0
rotl #-1,r2,a20 ; a20 = l >> 1 (almost) rotl #-1,r2,r6 ; a20 = l >> 1 (almost)
rotl #-1,r3,a21 ; a21 = h >> 1 (almost) rotl #-1,r3,r7 ; a21 = h >> 1 (almost)
rotl #-1,r4,b2 ; b2 = d >> 1 (almost) rotl #-1,r4,r9 ; b2 = d >> 1 (almost)
tstl a20 tstl r6
bgeq 1$ bgeq 1$
xorl2 #^X80000000,a20 ; fixup a20 so highest bit is 0 xorl2 #^X80000000,r6 ; fixup a20 so highest bit is 0
incl aprim ; a' = 1 incl r5 ; a' = 1
1$: 1$:
tstl a21 tstl r7
bgeq 2$ bgeq 2$
xorl2 #^X80000000,a20 ; fixup a20 so highest bit is 1, xorl2 #^X80000000,r6 ; fixup a20 so highest bit is 1,
; since that's what was lowest in a21 ; since that's what was lowest in a21
xorl2 #^X80000000,a21 ; fixup a21 so highest bit is 1 xorl2 #^X80000000,r7 ; fixup a21 so highest bit is 1
2$: 2$:
tstl b2 tstl r9
bgeq 666$ ; Uh-oh, the divisor is 0... bgeq 666$ ; Uh-oh, the divisor is 0...
bgrt 3$ bgtr 3$
xorl2 #^X80000000,b2 ; fixup b2 so highest bit is 1 xorl2 #^X80000000,r9 ; fixup b2 so highest bit is 1
incl bprim incl r8
3$: 3$:
tstl b2 tstl r9
bneq 4$ ; if b2 is 0, we know that bprim is 1 bneq 4$ ; if b2 is 0, we know that bprim is 1
tstl a21 tstl r7
bneq 666$ ; if higher half isn't 0, we overflow bneq 666$ ; if higher half isn't 0, we overflow
movl r0,a20 ; otherwise, we have our result movl r0,r6 ; otherwise, we have our result
brb 42$ brb 42$
4$: 4$:
ediv b2,a2,qprim,rprim ediv r9,r6,r10,r11
tstl bprim tstl r8
bneq 5$ ; If b' != 0, go to the other part bneq 5$ ; If b' != 0, go to the other part
; addl3 rprim,rprim,r1 ; addl3 r11,r11,r1
; addl2 aprim,r1 ; addl2 r5,r1
brb 42$ brb 42$
5$: 5$:
ash #1,rprim,rprim ashl #1,r11,r11
subl2 qprim,rprim subl2 r10,r11
addl2 aprim,rprim addl2 r5,r11
bgeq 7$ bgeq 7$
6$: 6$:
decl qprim decl r10
addl2 r4,rprim addl2 r4,r11
blss 6$ blss 6$
7$: 7$:
; movl rprim,r1 ; movl r11,r1
42$: 42$:
movl qprim,r0 movl r10,r0
666$: 666$:
ret ret
@ -345,11 +345,11 @@ n=16 ;(AP) n by value (input)
0$: 0$:
movl (r3)+,r6 ; carry untouched movl (r3)+,r6 ; carry untouched
addwc (r4)+,r6 ; carry used and touched adwc (r4)+,r6 ; carry used and touched
movl r6,(r2)+ ; carry untouched movl r6,(r2)+ ; carry untouched
sobgtr r5,0$ ; carry untouched sobgtr r5,0$ ; carry untouched
addwc #0,r0 adwc #0,r0
666$: 666$:
ret ret
@ -389,7 +389,7 @@ n=16 ;(AP) n by value (input)
movl r6,(r2)+ ; carry untouched movl r6,(r2)+ ; carry untouched
sobgtr r5,0$ ; carry untouched sobgtr r5,0$ ; carry untouched
addwc #0,r0 adwc #0,r0
666$: 666$:
ret ret