home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 101.img / QB45-1.ZIP / QB.BI < prev    next >
Encoding:
Text File  |  1988-02-17  |  2.0 KB  |  72 lines
  1. '***
  2. ' QB.BI - Assembly Support Include File
  3. '
  4. '       Copyright <C> 1987 Microsoft Corporation
  5. '
  6. ' Purpose:
  7. '      This include file defines the types and gives the DECLARE
  8. '       statements for the assembly language routines ABSOLUTE,
  9. '       INTERRUPT, INTERRUPTX, INT86OLD, and INT86XOLD.
  10. '
  11. '***************************************************************************
  12. '
  13. ' Define the type needed for INTERRUPT
  14. '
  15. TYPE RegType
  16.      ax    AS INTEGER
  17.      bx    AS INTEGER
  18.      cx    AS INTEGER
  19.      dx    AS INTEGER
  20.      bp    AS INTEGER
  21.      si    AS INTEGER
  22.      di    AS INTEGER
  23.      flags AS INTEGER
  24. END TYPE
  25. '
  26. ' Define the type needed for INTERUPTX
  27. '
  28. TYPE RegTypeX
  29.      ax    AS INTEGER
  30.      bx    AS INTEGER
  31.      cx    AS INTEGER
  32.      dx    AS INTEGER
  33.      bp    AS INTEGER
  34.      si    AS INTEGER
  35.      di    AS INTEGER
  36.      flags AS INTEGER
  37.      ds    AS INTEGER
  38.      es    AS INTEGER
  39. END TYPE
  40. '
  41. '                 DECLARE statements for the 5 routines
  42. '                 -------------------------------------
  43. '
  44. ' Generate a software interrupt, loading all but the segment registers
  45. '
  46. DECLARE SUB INTERRUPT (intnum AS INTEGER,inreg AS RegType,outreg AS RegType)
  47. '
  48. ' Generate a software interrupt, loading all registers
  49. '
  50. DECLARE SUB INTERRUPTX (intnum AS INTEGER,inreg AS RegTypeX, outreg AS RegTypeX)
  51. '
  52. ' Call a routine at an absolute address.
  53. ' NOTE: If the routine called takes parameters, then they will have to
  54. '       be added to this declare statement before the parameter given.
  55. '
  56. DECLARE SUB ABSOLUTE (address AS INTEGER)
  57. '
  58. ' Generate a software interrupt, loading all but the segment registers
  59. '       (old version)
  60. '
  61. DECLARE SUB INT86OLD (intnum AS INTEGER,_
  62.               inarray(1) AS INTEGER,_
  63.               outarray(1) AS INTEGER)
  64. '
  65. ' Gemerate a software interrupt, loading all the registers
  66. '       (old version)
  67. '
  68. DECLARE SUB INT86XOLD (intnum AS INTEGER,_
  69.                inarray(1) AS INTEGER,_
  70.                outarray(1) AS INTEGER)
  71. '
  72.