home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l391 / 5.ddi / VBDOS.BI$ / VBDOS.bin
Encoding:
Text File  |  1992-08-19  |  1.8 KB  |  71 lines
  1. ' Include file for the Assembly language routines
  2. ' ABSOLUTE, INTERRUPT, INTERRUPTX, INT86OLD, and INT86XOLD.
  3. '
  4. ' This file should be included in any application
  5. ' using these routines.  It contains declarations for the
  6. ' routines as well as necessary type definitions.
  7. '
  8. ' Copyright (C) 1982-1992 Microsoft Corporation
  9. '
  10.  
  11. ' Define the type needed for INTERRUPT
  12. '
  13. TYPE RegType
  14.      ax    AS INTEGER
  15.      bx    AS INTEGER
  16.      cx    AS INTEGER
  17.      dx    AS INTEGER
  18.      bp    AS INTEGER
  19.      si    AS INTEGER
  20.      di    AS INTEGER
  21.      flags AS INTEGER
  22. END TYPE
  23.  
  24. ' Define the type needed for INTERUPTX
  25. '
  26. TYPE RegTypeX
  27.      ax    AS INTEGER
  28.      bx    AS INTEGER
  29.      cx    AS INTEGER
  30.      dx    AS INTEGER
  31.      bp    AS INTEGER
  32.      si    AS INTEGER
  33.      di    AS INTEGER
  34.      flags AS INTEGER
  35.      ds    AS INTEGER
  36.      es    AS INTEGER
  37. END TYPE
  38.  
  39.  
  40. ' DECLARE statements for the 5 routines
  41. ' -------------------------------------
  42.  
  43. ' Generate a software interrupt, loading all but the segment registers
  44. '
  45. DECLARE SUB INTERRUPT (intnum AS INTEGER,inreg AS RegType,outreg AS RegType)
  46.  
  47. ' Generate a software interrupt, loading all registers
  48. '
  49. DECLARE SUB INTERRUPTX (intnum AS INTEGER,inreg AS RegTypeX, outreg AS RegTypeX)
  50.  
  51. ' Call a routine at an absolute address.
  52. ' NOTE: If the routine called takes parameters, then they will have to
  53. '       be added to this declare statement before the parameter given.
  54. '
  55. DECLARE SUB ABSOLUTE (address AS INTEGER)
  56.  
  57. ' Generate a software interrupt, loading all but the segment registers
  58. '       (old version)
  59. '
  60. DECLARE SUB INT86OLD (intnum AS INTEGER, _
  61.               inarray(1) AS INTEGER, _
  62.               outarray(1) AS INTEGER)
  63.  
  64. ' Gemerate a software interrupt, loading all the registers
  65. '       (old version)
  66. '
  67. DECLARE SUB INT86XOLD (intnum AS INTEGER, _
  68.                inarray(1) AS INTEGER, _
  69.                outarray(1) AS INTEGER)
  70.  
  71.