Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.         cpu     vax-11/780
  2.         page    0
  3.  
  4.         ; NOTE: To avoid rounding errors when converting decimal fractions
  5.         ; to binary, compute fractions from integer values
  6.  
  7.         ; negative numbers not supported at all
  8.         expect  1315
  9.         movf    s^#-1.0,r4
  10.         endexpect
  11.  
  12.         ; zero is not supported either (could use clr)
  13.         expect  1315
  14.         movf    s^#0.0,r4
  15.         endexpect
  16.  
  17.         ; just too small
  18.         expect  1315
  19.         movf    s^#(1.0/4.0),r4
  20.         endexpect
  21.  
  22.         ; valid values encoding to 0..63
  23.         movf    s^#(1.0/2.0),r4
  24.         movf    s^#(9.0/16.0),r4
  25.         movf    s^#(5.0/8.0),r4
  26.         movf    s^#(11.0/16.0),r4
  27.         movf    s^#(3.0/4.0),r4
  28.         movf    s^#(13.0/16.0),r4
  29.         movf    s^#(7.0/8.0),r4
  30.         movf    s^#(15.0/16.0),r4
  31.         movf    s^#1.0,r4
  32.         movf    s^#(9.0/8.0),r4
  33.         movf    s^#(5.0/4.0),r4
  34.         movf    s^#(11.0/8.0),r4
  35.         movf    s^#(3.0/2.0),r4
  36.         movf    s^#(13.0/8.0),r4
  37.         movf    s^#(7.0/4.0),r4
  38.         movf    s^#(15.0/8.0),r4
  39.         movf    s^#2.0,r4
  40.         movf    s^#(9.0/4.0),r4
  41.         movf    s^#(5.0/2.0),r4
  42.         movf    s^#(11.0/4.0),r4
  43.         movf    s^#3.0,r4
  44.         movf    s^#(13.0/4.0),r4
  45.         movf    s^#(7.0/2.0),r4
  46.         movf    s^#(15.0/4.0),r4
  47.         movf    s^#4.0,r4
  48.         movf    s^#(9.0/2.0),r4
  49.         movf    s^#5.0,r4
  50.         movf    s^#(11.0/2.0),r4
  51.         movf    s^#6.0,r4
  52.         movf    s^#(13.0/2.0),r4
  53.         movf    s^#7.0,r4
  54.         movf    s^#(15.0/2.0),r4
  55.         movf    s^#8.0,r4
  56.         movf    s^#9.0,r4
  57.         movf    s^#10.0,r4
  58.         movf    s^#11.0,r4
  59.         movf    s^#12.0,r4
  60.         movf    s^#13.0,r4
  61.         movf    s^#14.0,r4
  62.         movf    s^#15.0,r4
  63.         movf    s^#16.0,r4
  64.         movf    s^#18.0,r4
  65.         movf    s^#20.0,r4
  66.         movf    s^#22.0,r4
  67.         movf    s^#24.0,r4
  68.         movf    s^#26.0,r4
  69.         movf    s^#28.0,r4
  70.         movf    s^#30.0,r4
  71.         movf    s^#32.0,r4
  72.         movf    s^#36.0,r4
  73.         movf    s^#40.0,r4
  74.         movf    s^#44.0,r4
  75.         movf    s^#48.0,r4
  76.         movf    s^#52.0,r4
  77.         movf    s^#56.0,r4
  78.         movf    s^#60.0,r4
  79.         movf    s^#64.0,r4
  80.         movf    s^#72.0,r4
  81.         movf    s^#80.0,r4
  82.         movf    s^#88.0,r4
  83.         movf    s^#96.0,r4
  84.         movf    s^#104.0,r4
  85.         movf    s^#112.0,r4
  86.         movf    s^#120.0,r4
  87.  
  88.         ; too large
  89.         expect  1320
  90.         movf    s^#120.1,r4
  91.         endexpect
  92.  
  93.         ; in range, but not in list of possible values:
  94.         expect  1985
  95.         movf    s^#17.0,r4
  96.         endexpect
  97.