FORM  dPTCHVERS   $   SAS Institute, Inc. Patch V6.50 INPF    RŚ  f/_fpinit.cOUTF    &Î  Ź/_fpinit.cPSEQ  řžsiinclude <constructorŽiLexec/execbase.h>
#include <proto/dos.h>
#endif
#include <stdio.h>
#include <Usi20;
   }

   return 0;
ŹsÇItFP_CONSTRUCTOR(m881)
{
    extern struct ExecBase *SysBase;

    /* Check to see if an 881 is present */
    if ((SysBase->AttnFlags & (1 << AFB_68881)) == 0)
    {
        struct DOSBase *DOSBase;
        long fh;
        int closefh = 0;
        
        DOSBase = (struct DOSBase *)OpenLibrary("dos.library",0);
        fh = Output();
        if (fh == NULL)
        {
Śi%fh = Open(__stdiowin, MODE_NEWFILE);
‹sĘi6 closefh = 1;
        }
        
        if (fh)
     ŚIŹ     Write(fh, "This program requires a math co-processor\n", 42);
            if (closefh)
               Close(fh);
        }
        CloseLibrary((struct Library *)DOSBase);
        return 1;  /* fail */
    }

    __emit(0xf23c);        /* put out the instruction FMOVE.L #$00,FPCR */
    __emit(0x9000);        /* This is Round toward nearest and use      */
    __emit(0x0000);        /* Extended precision.                       */
    __emit(0x0000);
    
    return 0;
}
#endif


void __stdargs __fpterm(void)
{
   void * volatile p = &__dtors;  /* so GO won't eliminate tst */   
   /* call all the auto close routines */
   if (p)
   {
       uC