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.

703 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
fmov s8, s0
mov w8, #0
fmov s9, w8
fcmp s8, s9
b.lt .L.float_abs.1
b .L.float_abs.2
.L.float_abs.1:
mov w8, #0
fmov s9, w8
fsub s8, s9, s8
fmov s0, s8
ldp x29, x30, [sp], #16
ret
.L.float_abs.2:
fmov s0, s8
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
mov w8, w0
adrp x13, PI
ldr s8, [x13, #:lo12:PI]
scvtf s9, w8
fmul s8, s8, s9
scvtf s9, w8
fmul s8, s8, s9
mul w8, w8, w8
adrp x13, PI
ldr s9, [x13, #:lo12:PI]
scvtf s10, w8
fmul s9, s10, s9
fadd s8, s8, s9
movz w8, #0
movk w8, #16384, lsl #16
fmov s9, w8
fdiv s8, s8, s9
fmov s0, s8
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
fmov s8, s0
fmov s9, s1
fsub s8, s8, s9
fmov s0, s8
.L.float_eq.3:
fmov s8, s0
mov w8, #0
fmov s9, w8
fcmp s8, s9
b.ge .L.float_eq.5
.L.float_eq.4:
mov w8, #0
fmov s9, w8
fsub s8, s9, s8
fmov s0, s8
.L.float_eq.6:
fmov s8, s0
adrp x13, EPS
ldr s9, [x13, #:lo12:EPS]
fcmp s8, s9
b.ge .L.float_eq.2
.L.float_eq.1:
mov w8, #1
mov w0, w8
ldp x29, x30, [sp], #16
ret
.L.float_eq.2:
mov w8, #0
mov w0, w8
ldp x29, x30, [sp], #16
ret
.L.float_eq.5:
fmov s0, s8
b .L.float_eq.6
.text
.globl error
.p2align 2
error:
.L.error.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
sub sp, sp, #32
str x19, [sp, #0]
mov w8, #101
mov w0, w8
bl putch
mov w19, #114
mov w0, w19
bl putch
mov w0, w19
bl putch
mov w8, #111
mov w0, w8
bl putch
mov w0, w19
bl putch
mov w8, #10
mov w0, w8
bl putch
ldr x19, [sp, #0]
add sp, sp, #32
ldp x29, x30, [sp], #16
ret
.text
.globl ok
.p2align 2
ok:
.L.ok.0:
stp x29, x30, [sp, #-16]!
mov x29, sp
mov w8, #111
mov w0, w8
bl putch
mov w8, #107
mov w0, w8
bl putch
mov w8, #10
mov w0, w8
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
mov w8, w0
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:
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
mov w8, w0
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:
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, #96
str x21, [sp, #0]
str x19, [sp, #8]
str x20, [sp, #16]
str s16, [sp, #24]
adrp x13, HEX2
ldr s8, [x13, #:lo12:HEX2]
adrp x13, FACT
ldr s9, [x13, #:lo12:FACT]
fmov s0, s8
fmov s1, s9
b .L.main.12
.L.main.1:
bl ok
b .L.main.2
.L.main.2:
b .L.main.3
.L.main.3:
bl ok
b .L.main.4
.L.main.4:
b .L.main.5
.L.main.5:
b .L.main.8
.L.main.6:
bl ok
b .L.main.7
.L.main.7:
mov x9, x29
sub x9, x9, #40
movz w8, #0
movk w8, #16256, lsl #16
fmov s8, w8
str s8, [x9]
mov x8, #4
add x10, x9, x8
movz w8, #0
movk w8, #16384, lsl #16
fmov s8, w8
str s8, [x10]
mov x8, #8
add x8, x9, x8
mov w10, #0
fmov s8, w10
str s8, [x8]
mov x8, #12
add x8, x9, x8
str s8, [x8]
mov x8, #16
add x8, x9, x8
str s8, [x8]
mov x8, #20
add x8, x9, x8
str s8, [x8]
mov x8, #24
add x8, x9, x8
str s8, [x8]
mov x8, #28
add x8, x9, x8
str s8, [x8]
mov x8, #32
add x8, x9, x8
str s8, [x8]
mov x8, #36
add x8, x9, x8
str s8, [x8]
mov x0, x9
bl getfarray
mov w8, w0
mov w20, w8
mov w8, #0
mov w19, w8
mov w8, #1
mov w21, w8
b .L.main.9
.L.main.8:
b .L.main.6
.L.main.9:
movz w8, #51712
movk w8, #15258, lsl #16
cmp w21, w8
b.lt .L.main.10
b .L.main.11
.L.main.10:
bl getfloat
fmov s12, s0
adrp x13, PI
ldr s8, [x13, #:lo12:PI]
fmul s8, s8, s12
fmul s11, s8, s12
fcvtzs w8, s12
mov w0, w8
b .L.main.20
.L.main.11:
mov w0, w20
mov x8, x29
sub x8, x8, #40
mov x1, x8
bl putfarray
mov w8, #0
mov w0, w8
ldr x21, [sp, #0]
ldr x19, [sp, #8]
ldr x20, [sp, #16]
ldr s16, [sp, #24]
add sp, sp, #96
ldp x29, x30, [sp], #16
ret
.L.main.12:
fmov s8, s0
fmov s9, s1
fsub s8, s8, s9
fmov s0, s8
b .L.main.15
.L.main.13:
mov w8, #1
mov w0, w8
b .L.main.19
.L.main.14:
mov w8, #0
mov w0, w8
b .L.main.19
.L.main.15:
fmov s9, s0
mov w8, #0
fmov s8, w8
fcmp s9, s8
b.lt .L.main.16
b .L.main.17
.L.main.16:
mov w8, #0
fmov s8, w8
fsub s8, s8, s9
fmov s0, s8
b .L.main.18
.L.main.17:
fmov s0, s9
b .L.main.18
.L.main.18:
fmov s9, s0
adrp x13, EPS
ldr s8, [x13, #:lo12:EPS]
fcmp s9, s8
b.lt .L.main.13
b .L.main.14
.L.main.19:
mov w8, w0
mov w0, w8
bl assert_not
adrp x13, EVAL1
ldr s9, [x13, #:lo12:EVAL1]
adrp x13, EVAL2
ldr s8, [x13, #:lo12:EVAL2]
fmov s0, s9
fmov s1, s8
b .L.main.22
.L.main.20:
mov w8, w0
adrp x13, PI
ldr s9, [x13, #:lo12:PI]
scvtf s8, w8
fmul s9, s9, s8
scvtf s8, w8
fmul s10, s9, s8
mul w8, w8, w8
adrp x13, PI
ldr s9, [x13, #:lo12:PI]
scvtf s8, w8
fmul s8, s8, s9
fadd s9, s10, s8
movz w8, #0
movk w8, #16384, lsl #16
fmov s8, w8
fdiv s8, s9, s8
fmov s0, s8
b .L.main.21
.L.main.21:
fmov s16, s0
mov x9, x29
sub x9, x9, #40
sxtw x8, w19
lsl x8, x8, #2
add x8, x9, x8
ldr s8, [x8]
fadd s8, s8, s12
sxtw x8, w19
lsl x8, x8, #2
add x8, x9, x8
str s8, [x8]
fmov s0, s11
bl putfloat
mov w8, #32
mov w0, w8
bl putch
fcvtzs w8, s16
mov w0, w8
bl putint
mov w8, #10
mov w0, w8
bl putch
scvtf s9, w21
movz w8, #0
movk w8, #16672, lsl #16
fmov s8, w8
fmul s8, s9, s8
fcvtzs w9, s8
mov w8, #1
add w8, w19, w8
mov w19, w8
mov w21, w9
b .L.main.9
.L.main.22:
fmov s9, s0
fmov s8, s1
fsub s8, s9, s8
fmov s0, s8
b .L.main.25
.L.main.23:
mov w8, #1
mov w0, w8
b .L.main.29
.L.main.24:
mov w8, #0
mov w0, w8
b .L.main.29
.L.main.25:
fmov s9, s0
mov w8, #0
fmov s8, w8
fcmp s9, s8
b.lt .L.main.26
b .L.main.27
.L.main.26:
mov w8, #0
fmov s8, w8
fsub s8, s8, s9
fmov s0, s8
b .L.main.28
.L.main.27:
fmov s0, s9
b .L.main.28
.L.main.28:
fmov s9, s0
adrp x13, EPS
ldr s8, [x13, #:lo12:EPS]
fcmp s9, s8
b.lt .L.main.23
b .L.main.24
.L.main.29:
mov w8, w0
mov w0, w8
bl assert_not
adrp x13, EVAL2
ldr s9, [x13, #:lo12:EVAL2]
adrp x13, EVAL3
ldr s8, [x13, #:lo12:EVAL3]
fmov s0, s9
fmov s1, s8
b .L.main.30
.L.main.30:
fmov s9, s0
fmov s8, s1
fsub s8, s9, s8
fmov s0, s8
b .L.main.33
.L.main.31:
mov w8, #1
mov w0, w8
b .L.main.37
.L.main.32:
mov w8, #0
mov w0, w8
b .L.main.37
.L.main.33:
fmov s8, s0
mov w8, #0
fmov s9, w8
fcmp s8, s9
b.lt .L.main.34
b .L.main.35
.L.main.34:
mov w8, #0
fmov s9, w8
fsub s8, s9, s8
fmov s0, s8
b .L.main.36
.L.main.35:
fmov s0, s8
b .L.main.36
.L.main.36:
fmov s9, s0
adrp x13, EPS
ldr s8, [x13, #:lo12:EPS]
fcmp s9, s8
b.lt .L.main.31
b .L.main.32
.L.main.37:
mov w8, w0
mov w0, w8
bl assert
adrp x13, RADIUS
ldr s8, [x13, #:lo12:RADIUS]
fcvtzs w8, s8
mov w0, w8
b .L.main.38
.L.main.38:
mov w8, w0
adrp x13, PI
ldr s9, [x13, #:lo12:PI]
scvtf s8, w8
fmul s9, s9, s8
scvtf s8, w8
fmul s9, s9, s8
mul w8, w8, w8
adrp x13, PI
ldr s8, [x13, #:lo12:PI]
scvtf s10, w8
fmul s8, s10, s8
fadd s9, s9, s8
movz w8, #0
movk w8, #16384, lsl #16
fmov s8, w8
fdiv s8, s9, s8
fmov s0, s8
b .L.main.39
.L.main.39:
fmov s9, s0
mov w8, #5
mov w0, w8
b .L.main.40
.L.main.40:
mov w8, w0
adrp x13, PI
ldr s8, [x13, #:lo12:PI]
scvtf s10, w8
fmul s8, s8, s10
scvtf s10, w8
fmul s8, s8, s10
mul w8, w8, w8
adrp x13, PI
ldr s10, [x13, #:lo12:PI]
scvtf s11, w8
fmul s10, s11, s10
fadd s8, s8, s10
movz w8, #0
movk w8, #16384, lsl #16
fmov s10, w8
fdiv s8, s8, s10
fmov s0, s8
b .L.main.41
.L.main.41:
fmov s8, s0
fmov s0, s9
fmov s1, s8
b .L.main.42
.L.main.42:
fmov s9, s0
fmov s8, s1
fsub s8, s9, s8
fmov s0, s8
b .L.main.45
.L.main.43:
mov w8, #1
mov w0, w8
b .L.main.49
.L.main.44:
mov w8, #0
mov w0, w8
b .L.main.49
.L.main.45:
fmov s9, s0
mov w8, #0
fmov s8, w8
fcmp s9, s8
b.lt .L.main.46
b .L.main.47
.L.main.46:
mov w8, #0
fmov s8, w8
fsub s8, s8, s9
fmov s0, s8
b .L.main.48
.L.main.47:
fmov s0, s9
b .L.main.48
.L.main.48:
fmov s9, s0
adrp x13, EPS
ldr s8, [x13, #:lo12:EPS]
fcmp s9, s8
b.lt .L.main.43
b .L.main.44
.L.main.49:
mov w8, w0
mov w0, w8
bl assert
adrp x13, CONV1
ldr s8, [x13, #:lo12:CONV1]
adrp x13, CONV2
ldr s9, [x13, #:lo12:CONV2]
fmov s0, s8
fmov s1, s9
b .L.main.50
.L.main.50:
fmov s9, s0
fmov s8, s1
fsub s8, s9, s8
fmov s0, s8
b .L.main.53
.L.main.51:
mov w8, #1
mov w0, w8
b .L.main.57
.L.main.52:
mov w8, #0
mov w0, w8
b .L.main.57
.L.main.53:
fmov s9, s0
mov w8, #0
fmov s8, w8
fcmp s9, s8
b.lt .L.main.54
b .L.main.55
.L.main.54:
mov w8, #0
fmov s8, w8
fsub s8, s8, s9
fmov s0, s8
b .L.main.56
.L.main.55:
fmov s0, s9
b .L.main.56
.L.main.56:
fmov s9, s0
adrp x13, EPS
ldr s8, [x13, #:lo12:EPS]
fcmp s9, s8
b.lt .L.main.51
b .L.main.52
.L.main.57:
mov w8, w0
mov w0, w8
bl assert_not
b .L.main.1