Subversion Repositories pentevo

Rev

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

  1.         page    0
  2.  
  3. l10_max equ     log(floatmax)
  4.  
  5.         ; only fulfilled with extended float support
  6.         ; compute a 'large float' that is an exact power of two,
  7.         ; to avoid rounding issues
  8.  
  9.         if      l10_max > 616
  10. x       set     65536.0
  11.         rept    7
  12. x       set     x*x
  13.         endm
  14.         endif
  15.  
  16.         cpu     68020
  17.  
  18.         ifdef   inf
  19.         dc.s    inf
  20.         dc.s    -inf
  21.         dc.d    inf
  22.         dc.d    -inf
  23.         dc.x    inf
  24.         dc.x    -inf
  25.         dc.p    inf
  26.         dc.p    -inf
  27.         elseif
  28.         dc.w    $7f80,$0000
  29.         dc.w    $ff80,$0000
  30.         dc.w    $7ff0,$0000,$0000,$0000
  31.         dc.w    $fff0,$0000,$0000,$0000
  32.         dc.w    $7fff,$0000,$8000,$0000,$0000,$0000            
  33.         dc.w    $ffff,$0000,$8000,$0000,$0000,$0000            
  34.         dc.w    $7fff,$0000,$0000,$0000,$0000,$0000            
  35.         dc.w    $ffff,$0000,$0000,$0000,$0000,$0000            
  36.         endif
  37.  
  38.         ifdef   x
  39.         dc.x    x
  40.         elseif
  41.         dc.w    $47ff,$0000,$8000,$0000,$0000,$0000
  42.         endif
  43.  
  44.         cpu     8086
  45.  
  46.         ifdef   inf
  47.         dw      inf
  48.         dw      -inf
  49.         dd      inf
  50.         dd      -inf
  51.         dq      inf
  52.         dq      -inf
  53.         dt      inf
  54.         dt      -inf
  55.         do      inf
  56.         do      -inf
  57.         elseif
  58.         db      00h,7ch
  59.         db      00h,0fch
  60.         db      00h,00h,80h,7fh
  61.         db      00h,00h,80h,0ffh
  62.         db      00h,00h,00h,00h,00h,00h,0f0h,7fh
  63.         db      00h,00h,00h,00h,00h,00h,0f0h,0ffh
  64.         db      00h,00h,00h,00h,00h,00h,00h,80h,0ffh,7fh
  65.         db      00h,00h,00h,00h,00h,00h,00h,80h,0ffh,0ffh
  66.         db      00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,0ffh,7fh
  67.         db      00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,0ffh,0ffh
  68.         endif
  69.  
  70.         ifdef   x
  71.         dt      x
  72.         elseif
  73.         db      00h,00h,00h,00h,00h,00h,00h,80h,0ffh,047h
  74.         endif