bn/asm/armv4-mont.pl

127 	ldr	ip,[sp,#4]		@ load num
128 	stmdb	sp!,{r0,r2}		@ sp points at argument block
141 	ldmia	sp, {r0,r2}
143 	add	sp,sp,#8
154 	addlt	sp,sp,#2*4
157 	stmdb	sp!,{r4-r12,lr}		@ save 10 registers
160 	sub	sp,sp,$num		@ alloca(4*num)
161 	sub	sp,sp,#4		@ +extra dword
165 	add	$num,sp,$num		@ $num to point at &tp[num-1]
178 	mov	$tp,sp
200 	mov	$tj,sp
210 	ldr	$alo,[sp]		@ tp[0]
212 	ldr	$tj,[sp,#4]		@ tp[1]
220 	mov	$tp,sp
253 	movne	$tj,sp
258 	mov	$aj,sp
261 	mov	$tp,sp			@ "rewind" $tp
273 	mov	$tp,sp			@ "rewind" $tp
278 	str	sp,[$tp],#4		@ zap tp
287 	mov	sp,$num
288 	add	sp,sp,#4		@ skip over tp[num+1]
289 	ldmia	sp!,{r4-r12,lr}		@ restore registers
290 	add	sp,sp,#2*4		@ skip over {r0,r2}
322 	mov	ip,sp
323 	stmdb	sp!,{r4-r11}
324 	vstmdb	sp!,{d8-d15}		@ ABI specification says so
326 	mov	ip,sp
335 	sub		$toutptr,sp,$num,lsl#4
339 	mov		sp,$toutptr			@ alloca
433 	mov		$toutptr,sp
437 	add		$tinptr,sp,#96
446 	 sub		$toutptr,sp,#128
452 	 mov		sp,$toutptr			@ alloca
468 	add		$tinptr,sp,#256
470 	add		$bnptr,sp,#8
480 	add		$toutptr,sp,#128
493 	vst1.32		{$Bi},[sp,:64]		@ put aside smashed b[8*i+0]
537 	vld1.32		{$Bi},[sp,:64]		@ pull smashed b[8*i+0]
552 	add		$bnptr,sp,#8		@ rewind
609 	vld1.32		{$Bi},[sp,:64]		@ pull smashed b[8*i+0]
613 	add		$bnptr,sp,#8		@ rewind
625 	add		$tinptr,sp,#128
643 	add		$toutptr,sp,#128
644 	vst1.64		{q2-q3}, [sp,:256]!	@ start wiping stack frame
646 	vst1.64		{q2-q3},[sp,:256]!
648 	vst1.64		{q2-q3}, [sp,:256]!
650 	vst1.64		{q2-q3}, [sp,:256]!
689 	subs	$aptr,sp,#0				@ clear carry flag
690 	add	$bptr,sp,$num,lsl#2
704 	mov	r11,sp
708 	mov	$aptr,sp
742 	mov	sp,ip
743         vldmia  sp!,{d8-d15}
744         ldmia   sp!,{r4-r11}