33c33
< extern struct UFB _ufbs[];
---
> /* extern struct UFB _ufbs[];*/
52a53,57
> #ifdef _IEEE
> struct Library *MathIeeeDoubBasBase;
> struct Library *MathIeeeDoubTransBase;
> #endif
> 
109c114,145
< {   memcpy((char *) &page, (char *) &parm->page, sizeof page);
---
> {
> #ifdef __SASC_60
>     extern struct UFB __ufbs3[3];
> 
>     __ufbs3[0].ufbnxt = &__ufbs3[1];
>     __ufbs3[1].ufbnxt = &__ufbs3[2];
>     __ufbs3[2].ufbnxt = NULL;
>     __ufbs3[0].ufbfn = NULL;
>     __ufbs3[1].ufbfn = NULL;
>     __ufbs3[2].ufbfn = NULL;
>     __ufbs3[0].ufbflg = UFB_RA | O_RAW | UFB_NC;
>     __ufbs3[1].ufbflg = UFB_WA | O_RAW | UFB_NC;
>     __ufbs3[2].ufbflg = UFB_WA | O_RAW | UFB_NC;
>     __ufbs = &__ufbs3[0];
> #endif
> 
> #ifdef _IEEE
>     MathIeeeDoubBasBase   = OpenLibrary("mathieeedoubbas.library", 33L);
>     if(!MathIeeeDoubBasBase)
>     {
>         return(0);
>     } /* if */
> 
>     MathIeeeDoubTransBase = OpenLibrary("mathieeedoubtrans.library", 33L);
>     if(!MathIeeeDoubTransBase)
>     {
>         CloseLibrary(MathIeeeDoubBasBase);
>         MathIeeeDoubBasBase = NULL;
>         return(0);
>     } /* if */
> 
> #endif
110a147,148
>     memcpy((char *) &page, (char *) &parm->page, sizeof page);
> 
120,125c158,169
<     _ufbs[0].ufbfh = (long) parm->infh;
<     _ufbs[0].ufbflg |= UFB_RA|O_RAW|UFB_NC;
<     _ufbs[1].ufbfh = (long) parm->outfh;
<     _ufbs[1].ufbflg |= UFB_WA|O_RAW|UFB_NC;
<     _ufbs[2].ufbfh = (long) parm->errfh;
<     _ufbs[2].ufbflg |= UFB_WA|O_RAW|UFB_NC;
---
> 
>     __ufbs[0].ufbfh = (long) parm->infh;
>     __ufbs[0].ufbflg |= UFB_RA|O_RAW|UFB_NC;
>     __ufbs[1].ufbfh = (long) parm->outfh;
>     __ufbs[1].ufbflg |= UFB_WA|O_RAW|UFB_NC;
>     __ufbs[2].ufbfh = (long) parm->errfh;
>     __ufbs[2].ufbflg |= UFB_WA|O_RAW|UFB_NC;
> 
> #ifdef __SASC_60
>     __nufbs += 3;
> #endif
> 
181a226,240
> 
> #ifdef _IEEE
>     if(MathIeeeDoubBasBase)
>     {
>         CloseLibrary(MathIeeeDoubBasBase);
>         MathIeeeDoubBasBase = NULL;
>     } /* if */
> 
>     if(MathIeeeDoubTransBase)
>     {
>         CloseLibrary(MathIeeeDoubTransBase);
>         MathIeeeDoubTransBase = NULL;
>     } /* if */
> #endif
> 
249c308,309
< void stub(void)
---
> /*
> void __stdargs _stub(void)
251a312
> */
255c316
< void chkabort(void)
---
> void __chkabort(void)
261c322
< void CXFERR(int code)
---
> void __stdargs _CXFERR(int code)