Someone

std     %r31,-8(%r1)
stdu    %r1,-0x50(%r1)
mr      %r31,%r1

000000000130000c <_start>:
bl      1300010 <get_r2>

0000000001300010 <get_r2>:
mflr    %r3
lis     %r4,-2
ori     %r4,%r4,0x7F00
rldicr  %r4,%r4,0x20,31
sradi   %r4,%r4,0x20
subf    %r2,%r4,%r3
li      %r3,0x58
rlwinm  %r3,%r3,0x18,0,7
lis     %r4,-0x8000
ori     %r4,%r4,0x200
rldicr  %r4,%r4,0x20,31
oris    %r4,%r4,0xEA00

0000000001300040 <putc>:
stw     %r3,0x1014(%r4)
b       1300040 <putc>
li      %r0,0x58
std     %r0,0x38(%r31)
ld      %r0,-0x8000(%r2)
std     %r0,0x30(%r31)
ld      %r0,0x38(%r31)
rldicr  %r0,%r0,0x18,39
ld      %r9,0x30(%r31)
std     %r0,0(%r9)
b       1300058 <putc+0x18>
lwz     %r0,1(%r1)