'http://webster.cs.ucr.edu/AoA/Windows/HTML/RealArithmetic.html#1000010

deff floor
'=========
sub esp,8
fstcw [esp] : fstcw [esp+4] : and [esp],0xf3ff : or [esp],0x0400 'round down
fldcw [esp]
frndint
fldcw [esp+4]
add esp,8
end deff

deff ceil
'=========
sub esp,8
fstcw [esp] : fstcw [esp+4] : and [esp],0xf3ff : or [esp],0x0800 'round up
fldcw [esp]
frndint
fldcw [esp+4]
add esp,8
end deff

print floor 7.5
print floor -7.5
print ceil 7.5
print ceil -7.5
