You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

599 lines
11 KiB

.data
.globl RADIUS
.p2align 2
RADIUS:
.word 1085276160
.globl PI
.p2align 2
PI:
.word 1078530011
.globl EPS
.p2align 2
EPS:
.word 897988541
.globl PI_HEX
.p2align 2
PI_HEX:
.word 1078530011
.globl HEX2
.p2align 2
HEX2:
.word 1033895936
.globl FACT
.p2align 2
FACT:
.word -956241920
.globl EVAL1
.p2align 2
EVAL1:
.word 1119752446
.globl EVAL2
.p2align 2
EVAL2:
.word 1107966695
.globl EVAL3
.p2align 2
EVAL3:
.word 1107966695
.globl CONV1
.p2align 2
CONV1:
.word 1130954752
.globl CONV2
.p2align 2
CONV2:
.word 1166012416
.globl MAX
.p2align 2
MAX:
.word 1000000000
.globl TWO
.p2align 2
TWO:
.word 2
.globl THREE
.p2align 2
THREE:
.word 3
.globl FIVE
.p2align 2
FIVE:
.word 5
.text
.globl float_abs
.p2align 2
float_abs:
.L.float_abs.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
sub sp, sp, #32
stur s0, [x29, #-4]
ldur s8, [x29, #-4]
stur s8, [x29, #-8]
ldur s8, [x29, #-8]
stur s8, [x29, #-12]
ldur s8, [x29, #-12]
mov w14, #0
fmov s9, w14
fcmp s8, s9
b.lt .L.float_abs.1
b .L.float_abs.2
.L.float_abs.1:
ldur s8, [x29, #-8]
stur s8, [x29, #-16]
mov w14, #0
fmov s0, w14
ldur s8, [x29, #-16]
fsub s0, s0, s8
add sp, sp, #32
ldp x29, x30, [sp], #16
ret
.L.float_abs.2:
ldur s8, [x29, #-8]
stur s8, [x29, #-20]
ldur s0, [x29, #-20]
add sp, sp, #32
ldp x29, x30, [sp], #16
ret
.text
.globl circle_area
.p2align 2
circle_area:
.L.circle_area.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
sub sp, sp, #32
stur w0, [x29, #-4]
ldur w8, [x29, #-4]
stur w8, [x29, #-8]
adrp x13, PI
ldr s8, [x13, #:lo12:PI]
stur s8, [x29, #-12]
ldur w8, [x29, #-8]
stur w8, [x29, #-16]
ldur w8, [x29, #-8]
stur w8, [x29, #-20]
ldur w8, [x29, #-8]
stur w8, [x29, #-24]
ldur w8, [x29, #-8]
stur w8, [x29, #-28]
adrp x13, PI
ldr s8, [x13, #:lo12:PI]
stur s8, [x29, #-32]
ldur s0, [x29, #-12]
ldur w14, [x29, #-16]
scvtf s11, w14
fmul s0, s0, s11
ldur w14, [x29, #-20]
scvtf s10, w14
fmul s0, s0, s10
ldur w14, [x29, #-24]
ldur w8, [x29, #-28]
mul w14, w14, w8
scvtf s9, w14
ldur s10, [x29, #-32]
fmul s9, s9, s10
fadd s0, s0, s9
movz w14, #0
movk w14, #16384, lsl #16
fmov s8, w14
fdiv s0, s0, s8
add sp, sp, #32
ldp x29, x30, [sp], #16
ret
.text
.globl float_eq
.p2align 2
float_eq:
.L.float_eq.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
sub sp, sp, #32
stur s0, [x29, #-4]
stur s1, [x29, #-8]
ldur s8, [x29, #-4]
stur s8, [x29, #-12]
ldur s8, [x29, #-8]
stur s8, [x29, #-16]
ldur s8, [x29, #-12]
stur s8, [x29, #-20]
ldur s8, [x29, #-16]
stur s8, [x29, #-24]
ldur s0, [x29, #-20]
ldur s8, [x29, #-24]
fsub s0, s0, s8
bl float_abs
stur s0, [x29, #-28]
adrp x13, EPS
ldr s8, [x13, #:lo12:EPS]
stur s8, [x29, #-32]
ldur s8, [x29, #-28]
ldur s9, [x29, #-32]
fcmp s8, s9
b.lt .L.float_eq.1
b .L.float_eq.2
.L.float_eq.1:
mov w0, #1
add sp, sp, #32
ldp x29, x30, [sp], #16
ret
.L.float_eq.2:
mov w0, #0
add sp, sp, #32
ldp x29, x30, [sp], #16
ret
.L.float_eq.3:
mov w0, #0
add sp, sp, #32
ldp x29, x30, [sp], #16
ret
.text
.globl error
.p2align 2
error:
.L.error.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
mov w0, #101
bl putch
mov w0, #114
bl putch
mov w0, #114
bl putch
mov w0, #111
bl putch
mov w0, #114
bl putch
mov w0, #10
bl putch
ldp x29, x30, [sp], #16
ret
.text
.globl ok
.p2align 2
ok:
.L.ok.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
mov w0, #111
bl putch
mov w0, #107
bl putch
mov w0, #10
bl putch
ldp x29, x30, [sp], #16
ret
.text
.globl assert
.p2align 2
assert:
.L.assert.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
sub sp, sp, #16
stur w0, [x29, #-4]
ldur w8, [x29, #-4]
stur w8, [x29, #-8]
ldur w8, [x29, #-8]
stur w8, [x29, #-12]
ldur w8, [x29, #-12]
mov w9, #0
cmp w8, w9
b.eq .L.assert.1
b .L.assert.2
.L.assert.1:
bl error
b .L.assert.3
.L.assert.2:
bl ok
b .L.assert.3
.L.assert.3:
add sp, sp, #16
ldp x29, x30, [sp], #16
ret
.text
.globl assert_not
.p2align 2
assert_not:
.L.assert_not.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
sub sp, sp, #16
stur w0, [x29, #-4]
ldur w8, [x29, #-4]
stur w8, [x29, #-8]
ldur w8, [x29, #-8]
stur w8, [x29, #-12]
ldur w8, [x29, #-12]
mov w9, #0
cmp w8, w9
b.ne .L.assert_not.1
b .L.assert_not.2
.L.assert_not.1:
bl error
b .L.assert_not.3
.L.assert_not.2:
bl ok
b .L.assert_not.3
.L.assert_not.3:
add sp, sp, #16
ldp x29, x30, [sp], #16
ret
.text
.globl main
.p2align 2
main:
.L.main.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
sub sp, sp, #208
adrp x13, HEX2
ldr s8, [x13, #:lo12:HEX2]
stur s8, [x29, #-68]
adrp x13, FACT
ldr s8, [x13, #:lo12:FACT]
stur s8, [x29, #-72]
ldur s0, [x29, #-68]
ldur s1, [x29, #-72]
bl float_eq
stur w0, [x29, #-76]
ldur w0, [x29, #-76]
bl assert_not
adrp x13, EVAL1
ldr s8, [x13, #:lo12:EVAL1]
stur s8, [x29, #-80]
adrp x13, EVAL2
ldr s8, [x13, #:lo12:EVAL2]
stur s8, [x29, #-84]
ldur s0, [x29, #-80]
ldur s1, [x29, #-84]
bl float_eq
stur w0, [x29, #-88]
ldur w0, [x29, #-88]
bl assert_not
adrp x13, EVAL2
ldr s8, [x13, #:lo12:EVAL2]
stur s8, [x29, #-92]
adrp x13, EVAL3
ldr s8, [x13, #:lo12:EVAL3]
stur s8, [x29, #-96]
ldur s0, [x29, #-92]
ldur s1, [x29, #-96]
bl float_eq
stur w0, [x29, #-100]
ldur w0, [x29, #-100]
bl assert
adrp x13, RADIUS
ldr s8, [x13, #:lo12:RADIUS]
stur s8, [x29, #-104]
ldur s8, [x29, #-104]
fcvtzs w0, s8
bl circle_area
stur s0, [x29, #-108]
mov w0, #5
bl circle_area
stur s0, [x29, #-112]
ldur s0, [x29, #-108]
ldur s1, [x29, #-112]
bl float_eq
stur w0, [x29, #-116]
ldur w0, [x29, #-116]
bl assert
adrp x13, CONV1
ldr s8, [x13, #:lo12:CONV1]
stur s8, [x29, #-120]
adrp x13, CONV2
ldr s8, [x13, #:lo12:CONV2]
stur s8, [x29, #-124]
ldur s0, [x29, #-120]
ldur s1, [x29, #-124]
bl float_eq
stur w0, [x29, #-128]
ldur w0, [x29, #-128]
bl assert_not
movz w14, #0
movk w14, #16320, lsl #16
fmov s8, w14
mov w14, #0
fmov s9, w14
fcmp s8, s9
b.ne .L.main.1
b .L.main.2
.L.main.1:
bl ok
b .L.main.2
.L.main.2:
mov w8, #1
mov w9, #0
cmp w8, w9
b.ne .L.main.3
b .L.main.4
.L.main.3:
bl ok
b .L.main.4
.L.main.4:
mov w14, #0
fmov s8, w14
mov w14, #0
fmov s9, w14
fcmp s8, s9
b.ne .L.main.7
b .L.main.6
.L.main.5:
bl error
b .L.main.6
.L.main.6:
mov w8, #0
mov w9, #0
cmp w8, w9
b.ne .L.main.8
b .L.main.10
.L.main.7:
mov w8, #3
mov w9, #0
cmp w8, w9
b.ne .L.main.5
b .L.main.6
.L.main.8:
bl ok
b .L.main.9
.L.main.9:
mov w8, #1
stur w8, [x29, #-4]
mov w8, #0
stur w8, [x29, #-8]
mov x15, x29
sub x15, x15, #48
movz w14, #0
movk w14, #16256, lsl #16
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #4
add x15, x15, x14
movz w14, #0
movk w14, #16384, lsl #16
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #8
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #12
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #16
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #20
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #24
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #28
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #32
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x15, x29
sub x15, x15, #48
mov x14, #36
add x15, x15, x14
mov w14, #0
fmov s8, w14
str s8, [x15]
mov x0, x29
sub x0, x0, #48
bl getfarray
stur w0, [x29, #-132]
ldur w8, [x29, #-132]
stur w8, [x29, #-52]
b .L.main.11
.L.main.10:
movz w14, #39322
movk w14, #16025, lsl #16
fmov s8, w14
mov w14, #0
fmov s9, w14
fcmp s8, s9
b.ne .L.main.8
b .L.main.9
.L.main.11:
ldur w8, [x29, #-4]
stur w8, [x29, #-136]
ldur w8, [x29, #-136]
movz w9, #51712
movk w9, #15258, lsl #16
cmp w8, w9
b.lt .L.main.12
b .L.main.13
.L.main.12:
bl getfloat
stur s0, [x29, #-140]
ldur s8, [x29, #-140]
stur s8, [x29, #-56]
adrp x13, PI
ldr s8, [x13, #:lo12:PI]
stur s8, [x29, #-144]
ldur s8, [x29, #-56]
stur s8, [x29, #-148]
ldur s8, [x29, #-56]
stur s8, [x29, #-152]
ldur s8, [x29, #-144]
ldur s10, [x29, #-148]
fmul s8, s8, s10
ldur s9, [x29, #-152]
fmul s8, s8, s9
stur s8, [x29, #-60]
ldur s8, [x29, #-56]
stur s8, [x29, #-156]
ldur s8, [x29, #-156]
fcvtzs w0, s8
bl circle_area
stur s0, [x29, #-160]
ldur s8, [x29, #-160]
stur s8, [x29, #-64]
ldur w8, [x29, #-8]
stur w8, [x29, #-164]
ldur w8, [x29, #-8]
stur w8, [x29, #-168]
mov x15, x29
sub x15, x15, #48
ldur w14, [x29, #-168]
sxtw x14, w14
lsl x14, x14, #2
add x15, x15, x14
ldr s8, [x15]
stur s8, [x29, #-172]
ldur s8, [x29, #-56]
stur s8, [x29, #-176]
mov x15, x29
sub x15, x15, #48
ldur w14, [x29, #-164]
sxtw x14, w14
lsl x14, x14, #2
add x15, x15, x14
ldur s8, [x29, #-172]
ldur s9, [x29, #-176]
fadd s8, s8, s9
str s8, [x15]
ldur s8, [x29, #-60]
stur s8, [x29, #-180]
ldur s0, [x29, #-180]
bl putfloat
mov w0, #32
bl putch
ldur s8, [x29, #-64]
stur s8, [x29, #-184]
ldur s8, [x29, #-184]
fcvtzs w0, s8
bl putint
mov w0, #10
bl putch
ldur w8, [x29, #-4]
stur w8, [x29, #-188]
ldur w14, [x29, #-188]
scvtf s8, w14
movz w14, #0
movk w14, #16672, lsl #16
fmov s9, w14
fmul s8, s8, s9
fcvtzs w8, s8
stur w8, [x29, #-4]
ldur w8, [x29, #-8]
stur w8, [x29, #-192]
ldur w8, [x29, #-192]
mov w9, #1
add w8, w8, w9
stur w8, [x29, #-8]
b .L.main.11
.L.main.13:
ldur w8, [x29, #-52]
stur w8, [x29, #-196]
ldur w0, [x29, #-196]
mov x1, x29
sub x1, x1, #48
bl putfarray
mov w0, #0
add sp, sp, #208
ldp x29, x30, [sp], #16
ret