# [325] begin
push {r4,r14}
sub r13,r13,#48
# Var x located at r13+8, size=OS_8
# Var y located at r13+12, size=OS_8
# Var pString located at r13+16, size=OS_32
# Var Size located at r13+20, size=OS_8
# Var Mode located at r13+24, size=OS_8
# Var buffer located at r13+28, size=OS_32
add r4,r13,#8
strb r0,[r4]
add r0,r13,#12
strb r1,[r0]
str r2,[r13, #16]
add r0,r13,#20
strb r3,[r0]
add r0,r13,#56
add r1,r13,#24
ldrb r0,[r0]
strb r0,[r1]
ldr r0,[r13, #60]
str r0,[r13, #28]
# [326] while (Ord(pstring^) <> $00) do
bl .Lj101
.Lj100:
# [328] if (x > (WIDTH - (size div 2))) then
add r0,r13,#20
ldrb r0,[r0]
mov r1,#128
sub r1,r0
add r0,r13,#8
ldrb r0,[r0]
cmp r1,r0
bge .Lj105
bl .Lj103
.Lj105: