home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / UTDEFDS.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  976 b   |  59 lines
  1. ; Name           utdefds -- Return the default data segment, DS
  2. ;
  3. ; Synopsis     dsval = utdefds();
  4. ;           unsigned dsval     The value of the DS register
  5. ;
  6. ; Description  The value of the DS register is returned as the
  7. ;           value of the function
  8. ;
  9. ; Version      3.0 (C)Copyright Blaise Computing Inc.  1983, 1984, 1985
  10.  
  11.      name       utdefds
  12.  
  13.      include   compiler.mac        ; Specifies the C compiler
  14.  
  15.      if LAT200 or LAT210 or LAT300
  16.      include   dos.mac
  17.  
  18.      pseg
  19.      public    utdefds
  20.      if      LPROG
  21. utdefds  proc      far
  22.      else
  23. utdefds  proc      near
  24.      endif
  25.      endif
  26.  
  27.      if MSC300
  28.      include  dos.mac
  29.      LONGPROG = LPROG
  30.      LONGDATA = LDATA
  31.  
  32.      pseg      utdefds
  33.      public   _utdefds
  34.      if      LPROG
  35. _utdefds proc      far
  36.      else
  37. _utdefds proc      near
  38.      endif
  39.      endif
  40.  
  41.      mov      ax,ds
  42.      ret
  43.  
  44.      if      MSC300
  45. _utdefds endp
  46.      else
  47. utdefds  endp
  48.      endif
  49.  
  50.      if LAT300 or LAT210 or LAT300
  51.      endps
  52.      endif
  53.  
  54.      if MSC300
  55.      endps      utdefds
  56.      endif
  57.  
  58.      end
  59.