1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495 |
- //
- // sys_dosa.s
- // x86 assembly-language DOS-dependent routines.
- #include "qasm.h"
- .data
- .align 4
- fpenv:
- .long 0, 0, 0, 0, 0, 0, 0, 0
- .text
- .globl C(MaskExceptions)
- C(MaskExceptions):
- fnstenv fpenv
- orl $0x3F,fpenv
- fldenv fpenv
- ret
- #if 0
- .globl C(unmaskexceptions)
- C(unmaskexceptions):
- fnstenv fpenv
- andl $0xFFFFFFE0,fpenv
- fldenv fpenv
- ret
- #endif
- .data
- .align 4
- .globl ceil_cw, single_cw, full_cw, cw, pushed_cw
- ceil_cw: .long 0
- single_cw: .long 0
- full_cw: .long 0
- cw: .long 0
- pushed_cw: .long 0
- .text
- .globl C(Sys_LowFPPrecision)
- C(Sys_LowFPPrecision):
- fldcw single_cw
- ret
- .globl C(Sys_HighFPPrecision)
- C(Sys_HighFPPrecision):
- fldcw full_cw
- ret
- .globl C(Sys_PushFPCW_SetHigh)
- C(Sys_PushFPCW_SetHigh):
- fnstcw pushed_cw
- fldcw full_cw
- ret
- .globl C(Sys_PopFPCW)
- C(Sys_PopFPCW):
- fldcw pushed_cw
- ret
- .globl C(Sys_SetFPCW)
- C(Sys_SetFPCW):
- fnstcw cw
- movl cw,%eax
- #if id386
- andb $0xF0,%ah
- orb $0x03,%ah // round mode, 64-bit precision
- #endif
- movl %eax,full_cw
- #if id386
- andb $0xF0,%ah
- orb $0x0C,%ah // chop mode, single precision
- #endif
- movl %eax,single_cw
- #if id386
- andb $0xF0,%ah
- orb $0x08,%ah // ceil mode, single precision
- #endif
- movl %eax,ceil_cw
- ret
|