home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / realasm1 / ftload.asm < prev    next >
Encoding:
Assembly Source File  |  1993-07-24  |  2.4 KB  |  84 lines
  1. .286
  2. ;=======================================
  3. ; Load constants
  4. ;
  5. ;---------------------------------------
  6. cseg          segment word public 'code'
  7.               assume  cs:cseg,ss:cseg
  8.               assume  ds:cseg,es:cseg
  9.  
  10.               include math.inc
  11.  
  12. ;=======================================
  13. ; load 0.0
  14. ;---------------------------------------
  15. load0         proc    near uses si, dst:NPR10
  16.  
  17.               mov     si, dst
  18.               mov     word ptr [si]+8, 0
  19.               mov     word ptr [si]+6, 0
  20.               mov     word ptr [si]+4, 0
  21.               mov     word ptr [si]+2, 0
  22.               mov     word ptr [si]+0, 0
  23.               ret
  24. load0         endp
  25.  
  26. ;=======================================
  27. ; load 1.0
  28. ;---------------------------------------
  29. load1         proc    near uses si, dst:NPR10
  30.  
  31.               mov     si, dst
  32.               mov     word ptr [si]+8, 3fffh
  33.               mov     word ptr [si]+6, 8000h
  34.               mov     word ptr [si]+4, 0
  35.               mov     word ptr [si]+2, 0
  36.               mov     word ptr [si]+0, 0
  37.               ret
  38. load1         endp
  39.  
  40. ;=======================================
  41. ; load 10.0
  42. ;---------------------------------------
  43. load10        proc    near uses si, dst:NPR10
  44.  
  45.               mov     si, dst
  46.               mov     word ptr [si]+8, 4002h
  47.               mov     word ptr [si]+6, 0a000h
  48.               mov     word ptr [si]+4, 0
  49.               mov     word ptr [si]+2, 0
  50.               mov     word ptr [si]+0, 0
  51.               ret
  52. load10        endp
  53.  
  54. ;=======================================
  55. ; load 10**19
  56. ;---------------------------------------
  57. load10_19     proc    near uses si, dst:NPR10
  58.  
  59.               mov     si, dst
  60.               mov     word ptr [si]+8, 403eh
  61.               mov     word ptr [si]+6, 8ac7h
  62.               mov     word ptr [si]+4, 2304h
  63.               mov     word ptr [si]+2, 89e8h
  64.               mov     word ptr [si]+0, 0
  65.               ret
  66. load10_19     endp
  67.  
  68. ;=======================================
  69. ; load pi
  70. ;---------------------------------------
  71. loadpi        proc    near uses si, dst:NPR10
  72.  
  73.               mov     si, dst
  74.               mov     word ptr [si]+8,  4000h
  75.               mov     word ptr [si]+6, 0c90fh
  76.               mov     word ptr [si]+4, 0daa2h
  77.               mov     word ptr [si]+2,  2168h
  78.               mov     word ptr [si]+0, 0c235h
  79.               ret
  80. loadpi        endp
  81.  
  82. cseg          ends
  83.               end
  84.