square_of_circle

section .data
fmt db "%lf", 0
two dq 2.0

section .bss
l: resq 1

section .text
extern _scanf
extern _printf
global _main

_main:
push l
push fmt
call _scanf
add esp, 8
fldpi ;st0 = pi
fmul qword [two]
fdivr qword [l] ;[l] = l/2pi
fldpi ;st0 = pi, st1 = r
fmul st1
fmul st1
fst qword [l]
push dword [l+4]
push dword [l]
push fmt
call _printf
add esp, 12
xor eax, eax
xor ecx, ecx
ret