Subversion Repositories planix.SVN

(root)/os/branches/feature_posix/sys/src/ape/lib/9/386/getfcr.s – Rev 42

Rev 2 | Blame | Compare with Previous | Last modification | View Log | RSS feed


TEXT    setfcr(SB), $0
        MOVL    p+0(FP),AX
        XORB    $0x3f,AX
        PUSHW   AX
        WAIT
        FLDCW   0(SP)
        POPW    AX
        RET

TEXT    getfcr(SB), $0
        PUSHW   AX
        WAIT
        FSTCW   0(SP)
        POPW    AX
        XORB    $0x3f,AX
        RET

TEXT    getfsr(SB), $0
        WAIT
        FSTSW   AX
        RET

TEXT    setfsr(SB), $0
        WAIT
        FCLEX
        RET

Generated by GNU Enscript 1.6.6.