home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l320 / 2.img / DOS.FH next >
Encoding:
Text File  |  1989-10-05  |  1.3 KB  |  63 lines
  1. c dos.fh
  2. c
  3. c Defines the data structures used for passing register contents
  4. c back and forth to the DOS interface routines by a Fortran program.
  5. c
  6. c Copyright (C) MicroWay, Inc., 1988, 1989
  7.  
  8.  
  9.     integer*4 intno
  10.  
  11. c Interrupt number: 33 for int 21h, etc.
  12.  
  13.  
  14.      integer*4 inregs(7),outregs(7)
  15.     integer*2 winregs(14),woutregs(14)
  16.     integer*1 binregs(28),boutregs(28)
  17.  
  18. c    inregs(1) = eax
  19. c    inregs(2) = ebx
  20. c    inregs(3) = ecx
  21. c    inregs(4) = edx
  22. c    inregs(5) = esi
  23. c    inregs(6) = edi
  24. c    inregs(7) = eflags
  25. c
  26. c And similarly for outregs.
  27.  
  28.  
  29. c    winregs(1) = ax
  30. c    winregs(3) = bx
  31. c    winregs(5) = cx
  32. c    winregs(7) = dx
  33. c    winregs(9) = si
  34. c    winregs(11) = di
  35. c    winregs(13) = flags
  36. c
  37. c    winregs(2) = winregs(4) = winregs(6) = winregs(8) = winregs(10) =
  38. c        winregs(12) = winregs(14) = unused
  39. c
  40. c And similarly for woutregs.
  41.  
  42.  
  43. c    binregs(1) = al
  44. c    binregs(2) = ah
  45. c    binregs(5) = bl
  46. c    binregs(6) = bh
  47. c    binregs(9) = cl
  48. c    binregs(10) = ch
  49. c    binregs(13) = dl
  50. c    binregs(14) = dh
  51. c    binregs(25) = lo_flags
  52. c    binregs(26) = hi_flags
  53. c
  54. c All other elements of binregs are unused.
  55. c
  56. c And similarly for boutregs.
  57.  
  58.  
  59. c Overlay byte, word and doubleword register data structures.
  60.  
  61.     equivalence (inregs(1), winregs(1), binregs(1))
  62.     equivalence (outregs(1), woutregs(1), boutregs(1))
  63.