public _isfpu 

assume  cs:_TEXT

_TEXT   segment byte public 'CODE'
;**************************************************************************	
;       Function:	isfpu ()
;
;       Purpose:        Determine if FPU is present
;       Inputs:         None
;       Output:         ax=1 if FPU present, 0 otherwise
;**************************************************************************
_isfpu proc near
        .386
        .387
        fninit
        mov     ax, 5a5ah
        fnstsw  ax
        cmp     ax, 0
        jne     no_fpu
        mov     ax, 1
        jmp     done

no_fpu:        
        mov     ax, 0
done:
        ret

_isfpu  endp
_TEXT   ends
end