[thirdparty/openssl.git] / crypto / bn / asm / pa-risc2.s

	.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
Commit	Line	Data
d02b48c6 RE	1	.SPACE $PRIVATE$
	2	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
	3	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
	4	.SPACE $TEXT$
	5	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
	6	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
	7	.IMPORT $global$,DATA
	8	.IMPORT $$dyncall,MILLICODE
	9	; gcc_compiled.:
	10	.SPACE $TEXT$
	11	.SUBSPA $CODE$
	12
	13	.align 4
58964a49 RE	14	.EXPORT bn_mul_add_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR
58964a49 RE	15	bn_mul_add_words
d02b48c6 RE	16	.PROC
	17	.CALLINFO FRAME=64,CALLS,SAVE_RP,ENTRY_GR=4
	18	.ENTRY
	19	stw %r2,-20(0,%r30)
	20	stwm %r4,64(0,%r30)
	21	copy %r24,%r31
	22	stw %r3,-60(0,%r30)
	23	ldi 0,%r20
	24	ldo 12(%r26),%r2
	25	stw %r23,-16(0,%r30)
	26	copy %r25,%r3
	27	ldo 12(%r3),%r1
	28	fldws -16(0,%r30),%fr8L
	29	L$0010
	30	copy %r20,%r25
	31	ldi 0,%r24
	32	fldws 0(0,%r3),%fr9L
	33	ldw 0(0,%r26),%r19
	34	xmpyu %fr8L,%fr9L,%fr9
	35	fstds %fr9,-16(0,%r30)
	36	copy %r19,%r23
	37	ldw -16(0,%r30),%r28
	38	ldw -12(0,%r30),%r29
	39	ldi 0,%r22
	40	add %r23,%r29,%r29
	41	addc %r22,%r28,%r28
	42	add %r25,%r29,%r29
	43	addc %r24,%r28,%r28
	44	copy %r28,%r21
	45	ldi 0,%r20
	46	copy %r21,%r20
	47	addib,= -1,%r31,L$0011
	48	stw %r29,0(0,%r26)
	49	copy %r20,%r25
	50	ldi 0,%r24
	51	fldws -8(0,%r1),%fr9L
	52	ldw -8(0,%r2),%r19
	53	xmpyu %fr8L,%fr9L,%fr9
	54	fstds %fr9,-16(0,%r30)
	55	copy %r19,%r23
	56	ldw -16(0,%r30),%r28
	57	ldw -12(0,%r30),%r29
	58	ldi 0,%r22
	59	add %r23,%r29,%r29
	60	addc %r22,%r28,%r28
	61	add %r25,%r29,%r29
	62	addc %r24,%r28,%r28
	63	copy %r28,%r21
	64	ldi 0,%r20
	65	copy %r21,%r20
	66	addib,= -1,%r31,L$0011
	67	stw %r29,-8(0,%r2)
	68	copy %r20,%r25
	69	ldi 0,%r24
	70	fldws -4(0,%r1),%fr9L
	71	ldw -4(0,%r2),%r19
	72	xmpyu %fr8L,%fr9L,%fr9
	73	fstds %fr9,-16(0,%r30)
	74	copy %r19,%r23
	75	ldw -16(0,%r30),%r28
	76	ldw -12(0,%r30),%r29
	77	ldi 0,%r22
	78	add %r23,%r29,%r29
	79	addc %r22,%r28,%r28
80	add %r25,%r29,%r29
81	addc %r24,%r28,%r28
82	copy %r28,%r21
83	ldi 0,%r20
84	copy %r21,%r20
85	addib,= -1,%r31,L$0011
86	stw %r29,-4(0,%r2)
87	copy %r20,%r25
88	ldi 0,%r24
89	fldws 0(0,%r1),%fr9L
90	ldw 0(0,%r2),%r19
91	xmpyu %fr8L,%fr9L,%fr9
92	fstds %fr9,-16(0,%r30)
93	copy %r19,%r23
94	ldw -16(0,%r30),%r28
95	ldw -12(0,%r30),%r29
96	ldi 0,%r22
97	add %r23,%r29,%r29
98	addc %r22,%r28,%r28
99	add %r25,%r29,%r29
100	addc %r24,%r28,%r28
101	copy %r28,%r21
102	ldi 0,%r20
103	copy %r21,%r20
104	addib,= -1,%r31,L$0011
105	stw %r29,0(0,%r2)
106	ldo 16(%r1),%r1
107	ldo 16(%r3),%r3
108	ldo 16(%r2),%r2
109	bl L$0010,0
110	ldo 16(%r26),%r26
111	L$0011
112	copy %r20,%r28
113	ldw -84(0,%r30),%r2
114	ldw -60(0,%r30),%r3
115	bv 0(%r2)
116	ldwm -64(0,%r30),%r4
117	.EXIT
118	.PROCEND
119	.align 4
58964a49 RE	120	.EXPORT bn_mul_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR
58964a49 RE	121	bn_mul_words
d02b48c6 RE	122	.PROC
	123	.CALLINFO FRAME=64,CALLS,SAVE_RP,ENTRY_GR=3
	124	.ENTRY
	125	stw %r2,-20(0,%r30)
	126	copy %r25,%r2
	127	stwm %r4,64(0,%r30)
	128	copy %r24,%r19
	129	ldi 0,%r28
	130	stw %r23,-16(0,%r30)
	131	ldo 12(%r26),%r31
	132	ldo 12(%r2),%r29
	133	fldws -16(0,%r30),%fr8L
	134	L$0026
	135	fldws 0(0,%r2),%fr9L
	136	xmpyu %fr8L,%fr9L,%fr9
	137	fstds %fr9,-16(0,%r30)
	138	copy %r28,%r21
	139	ldi 0,%r20
	140	ldw -16(0,%r30),%r24
	141	ldw -12(0,%r30),%r25
	142	add %r21,%r25,%r25
	143	addc %r20,%r24,%r24
	144	copy %r24,%r23
	145	ldi 0,%r22
	146	copy %r23,%r28
	147	addib,= -1,%r19,L$0027
	148	stw %r25,0(0,%r26)
	149	fldws -8(0,%r29),%fr9L
	150	xmpyu %fr8L,%fr9L,%fr9
	151	fstds %fr9,-16(0,%r30)
	152	copy %r28,%r21
	153	ldi 0,%r20
	154	ldw -16(0,%r30),%r24
	155	ldw -12(0,%r30),%r25
	156	add %r21,%r25,%r25
	157	addc %r20,%r24,%r24
	158	copy %r24,%r23
	159	ldi 0,%r22
	160	copy %r23,%r28
	161	addib,= -1,%r19,L$0027
	162	stw %r25,-8(0,%r31)
	163	fldws -4(0,%r29),%fr9L
	164	xmpyu %fr8L,%fr9L,%fr9
	165	fstds %fr9,-16(0,%r30)
	166	copy %r28,%r21
	167	ldi 0,%r20
	168	ldw -16(0,%r30),%r24
	169	ldw -12(0,%r30),%r25
	170	add %r21,%r25,%r25
	171	addc %r20,%r24,%r24
	172	copy %r24,%r23
	173	ldi 0,%r22
	174	copy %r23,%r28
	175	addib,= -1,%r19,L$0027
	176	stw %r25,-4(0,%r31)
	177	fldws 0(0,%r29),%fr9L
	178	xmpyu %fr8L,%fr9L,%fr9
	179	fstds %fr9,-16(0,%r30)
	180	copy %r28,%r21
	181	ldi 0,%r20
	182	ldw -16(0,%r30),%r24
	183	ldw -12(0,%r30),%r25
	184	add %r21,%r25,%r25
	185	addc %r20,%r24,%r24
186	copy %r24,%r23
187	ldi 0,%r22
188	copy %r23,%r28
189	addib,= -1,%r19,L$0027
190	stw %r25,0(0,%r31)
191	ldo 16(%r29),%r29
192	ldo 16(%r2),%r2
193	ldo 16(%r31),%r31
194	bl L$0026,0
195	ldo 16(%r26),%r26
196	L$0027
197	ldw -84(0,%r30),%r2
198	bv 0(%r2)
199	ldwm -64(0,%r30),%r4
200	.EXIT
201	.PROCEND
202	.align 4
203	.EXPORT bn_sqr_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR
204	bn_sqr_words
205	.PROC
206	.CALLINFO FRAME=0,NO_CALLS
207	.ENTRY
208	ldo 28(%r26),%r19
209	ldo 12(%r25),%r28
210	L$0042
211	fldws 0(0,%r25),%fr8L
212	fldws 0(0,%r25),%fr8R
213	xmpyu %fr8L,%fr8R,%fr8
214	fstds %fr8,-16(0,%r30)
215	ldw -16(0,%r30),%r22
216	ldw -12(0,%r30),%r23
217	stw %r23,0(0,%r26)
218	copy %r22,%r21
219	ldi 0,%r20
220	addib,= -1,%r24,L$0049
221	stw %r21,-24(0,%r19)
222	fldws -8(0,%r28),%fr8L
223	fldws -8(0,%r28),%fr8R
224	xmpyu %fr8L,%fr8R,%fr8
225	fstds %fr8,-16(0,%r30)
226	ldw -16(0,%r30),%r22
227	ldw -12(0,%r30),%r23
228	stw %r23,-20(0,%r19)
229	copy %r22,%r21
230	ldi 0,%r20
231	addib,= -1,%r24,L$0049
232	stw %r21,-16(0,%r19)
233	fldws -4(0,%r28),%fr8L
234	fldws -4(0,%r28),%fr8R
235	xmpyu %fr8L,%fr8R,%fr8
236	fstds %fr8,-16(0,%r30)
237	ldw -16(0,%r30),%r22
238	ldw -12(0,%r30),%r23
239	stw %r23,-12(0,%r19)
240	copy %r22,%r21
241	ldi 0,%r20
242	addib,= -1,%r24,L$0049
243	stw %r21,-8(0,%r19)
244	fldws 0(0,%r28),%fr8L
245	fldws 0(0,%r28),%fr8R
246	xmpyu %fr8L,%fr8R,%fr8
247	fstds %fr8,-16(0,%r30)
248	ldw -16(0,%r30),%r22
249	ldw -12(0,%r30),%r23
250	stw %r23,-4(0,%r19)
251	copy %r22,%r21
252	ldi 0,%r20
253	addib,= -1,%r24,L$0049
254	stw %r21,0(0,%r19)
255	ldo 16(%r28),%r28
256	ldo 16(%r25),%r25
257	ldo 32(%r19),%r19
258	bl L$0042,0
259	ldo 32(%r26),%r26
260	L$0049
261	bv,n 0(%r2)
262	.EXIT
263	.PROCEND
264	.IMPORT BN_num_bits_word,CODE
265	.IMPORT fprintf,CODE
266	.IMPORT __iob,DATA
267	.SPACE $TEXT$
268	.SUBSPA $LIT$
269
270	.align 4
271	L$C0000
272	.STRING "Division would overflow (%d)\x0a\x00"
273	.IMPORT abort,CODE
274	.SPACE $TEXT$
275	.SUBSPA $CODE$
276
277	.align 4
278	.EXPORT bn_div64,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,RTNVAL=GR
279	bn_div64
280	.PROC
281	.CALLINFO FRAME=128,CALLS,SAVE_RP,ENTRY_GR=8
282	.ENTRY
283	stw %r2,-20(0,%r30)
284	stwm %r8,128(0,%r30)
285	stw %r7,-124(0,%r30)
286	stw %r4,-112(0,%r30)
287	stw %r3,-108(0,%r30)
288	copy %r26,%r3
289	copy %r25,%r4
290	stw %r6,-120(0,%r30)
291	ldi 0,%r7
292	stw %r5,-116(0,%r30)
293	movb,<> %r24,%r5,L$0051
294	ldi 2,%r6
295	bl L$0068,0
296	ldi -1,%r28
297	L$0051
298	.CALL ARGW0=GR
299	bl BN_num_bits_word,%r2
300	copy %r5,%r26
301	copy %r28,%r24
302	ldi 32,%r19
303	comb,= %r19,%r24,L$0052
304	subi 31,%r24,%r19
305	mtsar %r19
306	zvdepi 1,32,%r19
307	comb,>>= %r19,%r3,L$0052
308	addil LR'__iob-$global$+32,%r27
309	ldo RR'__iob-$global$+32(%r1),%r26
310	ldil LR'L$C0000,%r25
311	.CALL ARGW0=GR,ARGW1=GR,ARGW2=GR
312	bl fprintf,%r2
313	ldo RR'L$C0000(%r25),%r25
314	.CALL
315	bl abort,%r2
316	nop
317	L$0052
318	comb,>> %r5,%r3,L$0053
319	subi 32,%r24,%r24
320	sub %r3,%r5,%r3
321	L$0053
322	comib,= 0,%r24,L$0054
323	subi 31,%r24,%r19
324	mtsar %r19
325	zvdep %r5,32,%r5
326	zvdep %r3,32,%r21
327	subi 32,%r24,%r20
328	mtsar %r20
329	vshd 0,%r4,%r20
330	or %r21,%r20,%r3
331	mtsar %r19
332	zvdep %r4,32,%r4
333	L$0054
334	extru %r5,15,16,%r23
335	extru %r5,31,16,%r28
336	L$0055
337	extru %r3,15,16,%r19
338	comb,<> %r23,%r19,L$0058
339	copy %r3,%r26
340	bl L$0059,0
341	zdepi -1,31,16,%r29
342	L$0058
343	.IMPORT $$divU,MILLICODE
344	bl $$divU,%r31
345	copy %r23,%r25
346	L$0059
347	stw %r29,-16(0,%r30)
348	fldws -16(0,%r30),%fr10L
349	stw %r28,-16(0,%r30)
350	fldws -16(0,%r30),%fr10R
351	stw %r23,-16(0,%r30)
352	xmpyu %fr10L,%fr10R,%fr8
353	fldws -16(0,%r30),%fr10R
354	fstws %fr8R,-16(0,%r30)
355	xmpyu %fr10L,%fr10R,%fr9
356	ldw -16(0,%r30),%r8
357	fstws %fr9R,-16(0,%r30)
358	copy %r8,%r22
359	ldw -16(0,%r30),%r8
360	extru %r4,15,16,%r24
361	copy %r8,%r21
362	L$0060
363	sub %r3,%r21,%r20
364	copy %r20,%r19
365	depi 0,31,16,%r19
366	comib,<> 0,%r19,L$0061
367	zdep %r20,15,16,%r19
368	addl %r19,%r24,%r19
369	comb,>>= %r19,%r22,L$0061
370	sub %r22,%r28,%r22
371	sub %r21,%r23,%r21
372	bl L$0060,0
373	ldo -1(%r29),%r29
374	L$0061
375	stw %r29,-16(0,%r30)
376	fldws -16(0,%r30),%fr10L
377	stw %r28,-16(0,%r30)
378	fldws -16(0,%r30),%fr10R
379	xmpyu %fr10L,%fr10R,%fr8
380	fstws %fr8R,-16(0,%r30)
381	ldw -16(0,%r30),%r8
382	stw %r23,-16(0,%r30)
383	fldws -16(0,%r30),%fr10R
384	copy %r8,%r19
385	xmpyu %fr10L,%fr10R,%fr8
386	fstws %fr8R,-16(0,%r30)
387	extru %r19,15,16,%r20
388	ldw -16(0,%r30),%r8
389	zdep %r19,15,16,%r19
390	addl %r8,%r20,%r20
391	comclr,<<= %r19,%r4,0
392	addi 1,%r20,%r20
393	comb,<<= %r20,%r3,L$0066
394	sub %r4,%r19,%r4
395	addl %r3,%r5,%r3
396	ldo -1(%r29),%r29
397	L$0066
398	addib,= -1,%r6,L$0056
399	sub %r3,%r20,%r3
400	zdep %r29,15,16,%r7
401	shd %r3,%r4,16,%r3
402	bl L$0055,0
403	zdep %r4,15,16,%r4
404	L$0056
405	or %r7,%r29,%r28
406	L$0068
407	ldw -148(0,%r30),%r2
408	ldw -124(0,%r30),%r7
409	ldw -120(0,%r30),%r6
410	ldw -116(0,%r30),%r5
411	ldw -112(0,%r30),%r4
412	ldw -108(0,%r30),%r3
413	bv 0(%r2)
414	ldwm -128(0,%r30),%r8
415	.EXIT
416	.PROCEND