addi $Tbl0,$Tbl0,`128-8`
mtlr r0
blr
- .long 0
- .byte 0,12,0x14,0,0,0,0,0
- .space `64-9*4`
+ .space `64-12*4`
LAES_Td:
mflr r0
bcl 20,31,\$+4
addi $Tbl0,$Tbl0,`128-64-8+2048+256`
mtlr r0
blr
- .long 0
- .byte 0,12,0x14,0,0,0,0,0
- .space `128-64-9*4`
+ .space `128-64-12*4`
___
&_data_word(
0xc66363a5, 0xf87c7c84, 0xee777799, 0xf67b7b8d,
mtlr r0
addi $sp,$sp,$FRAME
blr
- .long 0
- .byte 0,12,4,1,0x80,18,3,0
- .long 0
.align 5
Lppc_AES_encrypt:
xor $s2,$s2,$t2
xor $s3,$s3,$t3
blr
- .long 0
- .byte 0,12,0x14,0,0,0,0,0
.align 4
Lppc_AES_encrypt_compact:
xor $s2,$s2,$t2
xor $s3,$s3,$t3
blr
- .long 0
- .byte 0,12,0x14,0,0,0,0,0
.globl .AES_decrypt
.align 7
mtlr r0
addi $sp,$sp,$FRAME
blr
- .long 0
- .byte 0,12,4,1,0x80,18,3,0
- .long 0
.align 5
Lppc_AES_decrypt:
xor $s2,$s2,$t2
xor $s3,$s3,$t3
blr
- .long 0
- .byte 0,12,0x14,0,0,0,0,0
.align 4
Lppc_AES_decrypt_compact:
xor $s2,$s2,$t2
xor $s3,$s3,$t3
blr
- .long 0
- .byte 0,12,0x14,0,0,0,0,0
-
-.asciz "AES for PPC, CRYPTOGAMS by <appro\@openssl.org>"
-.align 7
___
$code =~ s/\`([^\`]*)\`/eval $1/gem;
$ST r9,`6*$BNSZ`(r3) #r[6]=c1
$ST r10,`7*$BNSZ`(r3) #r[7]=c2
blr
- .long 0
- .byte 0,12,0x14,0,0,0,2,0
- .long 0
#
# NOTE: The following label name should be changed to
blr
- .long 0
- .byte 0,12,0x14,0,0,0,2,0
- .long 0
#
# NOTE: The following label name should be changed to
$ST r10,`6*$BNSZ`(r3) #r[6]=c1
$ST r11,`7*$BNSZ`(r3) #r[7]=c2
blr
- .long 0
- .byte 0,12,0x14,0,0,0,3,0
- .long 0
#
# NOTE: The following label name should be changed to
$ST r12,`14*$BNSZ`(r3) #r[14]=c3;
$ST r10,`15*$BNSZ`(r3) #r[15]=c1;
blr
- .long 0
- .byte 0,12,0x14,0,0,0,3,0
- .long 0
#
# NOTE: The following label name should be changed to
subfze r3,r0 # if carry bit is set then r3 = 0 else -1
andi. r3,r3,1 # keep only last bit.
blr
- .long 0
- .byte 0,12,0x14,0,0,0,4,0
- .long 0
#
# NOTE: The following label name should be changed to
Lppcasm_add_adios:
addze r3,r0 #return carry bit.
blr
- .long 0
- .byte 0,12,0x14,0,0,0,4,0
- .long 0
#
# NOTE: The following label name should be changed to
Lppcasm_div9:
or r3,r8,r0
blr
- .long 0
- .byte 0,12,0x14,0,0,0,3,0
- .long 0
#
# NOTE: The following label name should be changed to
bdnz- Lppcasm_sqr_mainloop
Lppcasm_sqr_adios:
blr
- .long 0
- .byte 0,12,0x14,0,0,0,3,0
- .long 0
#
# NOTE: The following label name should be changed to
Lppcasm_mw_OVER:
addi r3,r12,0
blr
- .long 0
- .byte 0,12,0x14,0,0,0,4,0
- .long 0
#
# NOTE: The following label name should be changed to
Lppcasm_maw_adios:
addi r3,r12,0
blr
- .long 0
- .byte 0,12,0x14,0,0,0,4,0
- .long 0
.align 4
EOF
$data =~ s/\`([^\`]*)\`/eval $1/gem;
mtlr r0
addi $sp,$sp,$FRAME
blr
- .long 0
- .byte 0,12,4,1,0x80,18,3,0
- .long 0
___
# This is private block function, which uses tailored calling
addi $inp,$inp,`16*4`
bdnz- Lsha1_block_private
blr
- .long 0
- .byte 0,12,0x14,0,0,0,0,0
-___
-$code.=<<___;
-.asciz "SHA1 block transform for PPC, CRYPTOGAMS by <appro\@fy.chalmers.se>"
___
$code =~ s/\`([^\`]*)\`/eval $1/gem;