pa-risc.s

提供了很多种加密算法和CA认证及相关服务如CMP、OCSP等的开发

	.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