home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 105_01 / fleval.c < prev    next >
Text File  |  1984-06-05  |  1KB  |  46 lines
  1.  
  2.  
  3. /* FLEVAL.C  a program to evaluate/test the BDS-C
  4. floating point package.  Entry from keyboard and
  5. printout showing structure of floating point word.
  6. */
  7. #include "bdscio.h"
  8. main()
  9. {
  10.     char *atof(), op1[5], s[80];
  11.     char *fpmag(),*fpchs(),*fpasg();
  12.     char result1[5],result2[5],result3[5];
  13.     char *gets();
  14.     int atoi();
  15.     int ftoit(), ftoir();
  16.     int nin;
  17.     printf("\n");
  18.     while (TRUE) {
  19.      printf("\nEnter integer ");
  20.      gets(s);
  21.      nin = atoi(s);
  22.      itof(op1,nin);
  23.      copyout(op1);
  24.      printf("\nEnter float ");
  25.      gets(s);
  26.      atof(op1,s);
  27.      copyout(op1);
  28.     printf("\n Truncate %d %x Round %d %x ",ftoit(op1),
  29.         ftoit(op1),ftoir(op1),ftoir(op1));
  30.     fpasg(result1,op1); fpmag(result2,op1); fpchs(result3,op1);
  31.      printf("\n Assign %e  Mag %e  Chg Sign %e ",result1,
  32.         result2,result3);
  33.             }
  34. }
  35.  
  36. copyout(oper)
  37. char oper[5];
  38. {    int i;
  39.     printf("\nFLOAT %e hex ",oper);
  40.     for(i=0;i<=4;i++) printf("%X,",oper[i]);
  41.     printf(" dec ");
  42.     for(i=0;i<=4;i++) printf("%D,",oper[i]);
  43.     return;
  44. }
  45.  
  46.