home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / BDSX.ASM next >
Encoding:
Assembly Source File  |  1986-08-05  |  2.8 KB  |  132 lines
  1. ;
  2. ; Name        bdsx -- Access to DOS Functions
  3. ;
  4. ; Synopsis    iret = bdsx(fn,dx);
  5. ;
  6. ;        int iret      Value returned in AL by DOS function
  7. ;        int fn          DOS function number
  8. ;        int dx          Value to placed in the DX register
  9. ;
  10. ; Description    BDSX is the gate to the DOS functions.    It is
  11. ;        functionally the same as the bdos() function usually
  12. ;        distributed with the C compiler, but it returns the
  13. ;        contents of the CX and DX registers in the public
  14. ;        variables b_cxreg and b_dxreg.
  15. ;
  16. ;        Note:  this use of the public variables b_cxreg and
  17. ;        b_dxreg prevents BDSX from being re-entrant.  For
  18. ;        example, an interrupting process may spoil the values
  19. ;        returned in b_cxreg and b_dxreg if it uses the same copy
  20. ;        of these variables.  Use DOS instead of BDSX to avoid
  21. ;        this limitation.
  22. ;
  23. ; Returns    iret          The value of AL, zero expanded upon
  24. ;                  return from the DOS function call.
  25. ;        unsigned b_cxreg,b_dxreg  Values of the CX and DX registers
  26. ;                  upon return from the DOS function call.
  27. ;
  28. ; Version    3.0 (C)Copyright Blaise Computing Inc. 1983,1984,1985,1986
  29.  
  30.      name       bdosgate
  31.  
  32.      include   compiler.mac   ; Specifies the C compiler
  33.  
  34. ;     Definition of public variable b_cxreg and b_dxreg
  35.  
  36.      if LAT200 or LAT210 or LAT300
  37.      include   dos.mac
  38.  
  39.      dseg
  40.      public    b_cxreg,b_dxreg
  41. b_cxreg  dw       0
  42. b_dxreg  dw       0
  43.      endds
  44.  
  45.      pseg
  46.      public    bdsx
  47.      if       LPROG
  48. bdsx     proc       far
  49.      x  equ    6          ; offset of arguments
  50.      else
  51. bdsx     proc       near
  52.      x equ       4
  53.      endif
  54.      endif
  55.  
  56.      if MSC300
  57.      include  dos.mac
  58.      LONGPROG = LPROG
  59.      LONGDATA = LDATA
  60.  
  61.      dseg
  62.      public    _b_cxreg,_b_dxreg
  63. _b_cxreg dw       0
  64. _b_dxreg dw       0
  65.      endds
  66.  
  67.      pseg      bdsx
  68.      public   _bdsx
  69.      if      LPROG
  70.      x   equ  6          ; offset of arguments
  71. _bdsx     proc      far
  72.      else
  73.      x   equ  4
  74. _bdsx     proc      near
  75.      endif
  76.      endif
  77.  
  78.      push       bp          ; Save frame pointer
  79.      mov       bp,sp      ; Set the stack pointer to top of frame
  80.      if       MSC300
  81.      push       di          ; Save register variables
  82.      push       si
  83.      endif
  84.  
  85.      cld              ; Allegedly required by some DOS
  86.                   ; functions.
  87.  
  88.      mov       ax,[bp + x]
  89.      mov       ah,al
  90.      if       MSC300
  91.      mov       cx,_b_cxreg
  92.      else
  93.      mov       cx,b_cxreg
  94.      endif
  95.      mov       dx,[bp + x + 2]
  96.                   ; Invoke DOS
  97. inv_dos:
  98.      int       21h          ; DOS function call AH
  99.  
  100.      if       MSC300
  101.      mov       _b_cxreg,cx      ; Recover CX and DX registers
  102.      mov       _b_dxreg,dx
  103.      else
  104.      mov       b_cxreg,cx      ; Recover CX and DX registers
  105.      mov       b_dxreg,dx
  106.      endif
  107.      xor       ah,ah      ; Function return value is now AL
  108.      if       MSC300
  109.      pop       si          ; Recover index registers
  110.      pop       di          ; (used for register variables)
  111.      cld              ; MSC 3 expects DF cleared
  112.      endif
  113.      pop       bp          ; Recover frame pointer
  114.      ret
  115.  
  116.      if       MSC300
  117. _bdsx     endp
  118.      else
  119. bdsx     endp
  120.      endif
  121.  
  122.  
  123.      if LAT210 or LAT300
  124.      endps
  125.      endif
  126.  
  127.      if MSC300
  128.      endps       bdsx
  129.      endif
  130.  
  131.      end
  132.