home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / bcpl / BCPL / b / fpops < prev    next >
Encoding:
Text File  |  1987-06-30  |  1.2 KB  |  62 lines
  1. MANIFEST {
  2. // Operand size bit
  3.    ff.s = #x000000; ff.d = #x400000;
  4.  
  5.    // Type of 2nd operand
  6.    ff.const = #x800000;
  7.  
  8.    // Direction for CPDT/CPRT operations
  9.    ff.toarm = #x100000; ff.fromarm = #x000000;
  10.  
  11.    // the floating point co-processor id
  12.    ff.cpno = #x100;
  13.  
  14.    ff.cpdt = #x0c000000;
  15.    ff.cpdo = #x0e000000;
  16.    ff.cprt = #x0e000010;
  17.  
  18.    // single precision floating point format
  19.    fps.sign = #x80000000;
  20.    fps.expt = #x7f800000;
  21.    fps.mantissa =   #x007fffff;
  22.    fps.impliedbit = #x00800000;
  23.    fps.exptshift = 23 }
  24.  
  25. MANIFEST {
  26. // Registers
  27.    fr.0 = 0;
  28.    fr.1 = 1;
  29.    fr.2 = 2;
  30.    fr.3 = 3;
  31.    fr.4 = 4;
  32.    fr.5 = 5;
  33.    fr.6 = 6;
  34.    fr.7 = 7 }
  35.  
  36. MANIFEST {
  37. // CPRT ops
  38.    ff.fixflt = #x000000
  39.    ff.fix = ff.fixflt+ff.toarm;
  40.    ff.flt = ff.fixflt+ff.fromarm;
  41.    ff.trn = #x200000+ff.toarm;
  42.    ff.mvpsw = #x800000;
  43.    ff.mvffr = #xa00000;
  44.    ff.mvfd1 = #xc00000;
  45.    ff.mvfd2 = #xe00000;
  46.  
  47.    // CPDO ops (and compares)
  48.    ff.cmf   = #x100030;
  49.    ff.cnf   = #x300030;
  50.    ff.adf   = #x000000;
  51.    ff.sbf   = #x000020;
  52.    ff.rsf   = #x000040;
  53.    ff.asf   = #x000060;
  54.    ff.mul   = #x100000;
  55.    ff.div   = #x100020;
  56.    ff.rdv   = #x100040;
  57.    ff.cvt   = #x200000;
  58.    ff.abs   = #x200020;
  59.    ff.sqt   = #x200040;
  60.    ff.mvfff = #x200060;
  61.    ff.mnfff = #x300000 }
  62.