home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / TMENU.INC < prev    next >
Encoding:
Text File  |  1991-06-14  |  3.7 KB  |  124 lines
  1. ;
  2. ; File......: TMENU.INC
  3. ; Author....: Ted Means
  4. ; Date......: $Date:   14 Jun 1991 19:55:04  $
  5. ; Revision..: $Revision:   1.1  $
  6. ; Log file..: $Logfile:   E:/nanfor/src/tmenu.inv  $
  7. ; 
  8. ; This is an original work by Ted Means and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log:   E:/nanfor/src/tmenu.inv  $
  15. ;  
  16. ;     Rev 1.1   14 Jun 1991 19:55:04   GLENN
  17. ;  Minor edit to file header
  18. ;  
  19. ;     Rev 1.0   01 Apr 1991 01:03:58   GLENN
  20. ;  Nanforum Toolkit
  21. ;  
  22. ;
  23.  
  24.  
  25. ; --------------------------------------
  26. ; Include file for TMENU.ASM
  27. ; --------------------------------------
  28.  
  29.  
  30. Struc    MI
  31. PrNum    DW        ?                         ; Prompt identifier
  32.  
  33. PrAtt    DB        ?                         ; Prompt attribute
  34. PrLoc    DW        ?                         ; Prompt screen location
  35. PrLen    DW        ?                         ; Prompt length
  36. PrOfs    DW        ?                         ; Prompt offset
  37. PrSeg    DW        ?                         ; Prompt segment
  38.  
  39. LBarAtt  DB        ?                         ; Attribute of light bar
  40. LBHKAtt  DB        ?                         ; Attribute of hotkey when under
  41.                                              ; light bar
  42.  
  43. MsgAtt   DB        ?                         ; Message attribute
  44. MsgLoc   DW        ?                         ; Message screen location
  45. MsgLen   DW        ?                         ; Message length
  46. MsgOfs   DW        ?                         ; Message offset
  47. MsgSeg   DW        ?                         ; Message segment
  48.  
  49. BufOfs   DW        ?                         ; Pointer to buffer containing
  50. BufSeg   DW        ?                         ; screen contents before the
  51.                                              ; message was displayed
  52.  
  53. HKeyVal  DB        ?                         ; Value of hotkey
  54. HKeyAtt  DB        ?                         ; Attribute of hotkey
  55. HKeyLoc  DW        ?                         ; Location of hotkey on screen
  56.  
  57. Up       DW        ?                         ; Target if up arrow hit
  58. Down     DW        ?                         ; Target if down arrow hit
  59. Right    DW        ?                         ; Target if right arrow hit
  60. Left     DW        ?                         ; Target if left arrow hit
  61.  
  62. NextOfs  DW        ?                         ; Offset of next item
  63. NextSeg  DW        ?                         ; Segment of next item
  64. Ends     MI
  65.  
  66. NodePtr  EQU       DWord Ptr BP - 4          ; Resolves to current node in
  67.                                              ; linked list
  68. NodeSeg  EQU       Word Ptr BP - 2
  69. NodeOfs  EQU       Word Ptr BP - 4
  70.  
  71. MenuItem EQU       (MI ES:BX)                ; Makes for easier syntax
  72.  
  73. PrPtr    EQU       DWord Ptr MenuItem.PrOfs
  74.  
  75. MsgPtr   EQU       DWord Ptr MenuItem.MsgOfs
  76.  
  77. BufPtr   EQU       DWord Ptr MenuItem.BufOfs
  78.  
  79. NextPtr  EQU       DWord Ptr MenuItem.NextOfs
  80.  
  81. SnowFlag EQU       1
  82.  
  83. KeepFlag EQU       2
  84.  
  85. ColdFlag EQU       4
  86.  
  87. WrapFlag EQU       8
  88.  
  89. HotFlag  EQU       16
  90.  
  91. SKFlag   EQU       32
  92.  
  93. Flags    EQU       Word Ptr BP - 6
  94.  
  95. Active   EQU       Word Ptr BP - 8
  96.  
  97. VideoBase EQU      Word Ptr BP - 10
  98.  
  99. Last      EQU      Word Ptr BP - 12
  100.  
  101. TablePtr  EQU      DWord Ptr BP - 16
  102. TableOfs  EQU      Word Ptr BP - 16
  103. TableSeg  EQU      Word Ptr BP - 14
  104.  
  105. SetKeys   EQU      DWord Ptr BP - 20
  106. SKOfs     EQU      Word Ptr BP - 20
  107. SKSeg     EQU      Word Ptr BP - 18
  108.  
  109. SKCount   EQU      Word Ptr BP - 22
  110.  
  111. ScanCode  EQU      Word Ptr BP - 24
  112.  
  113. Macro     CheckSnow
  114. Local     Wait
  115.  
  116.           Push     AX
  117. Wait:     In       AL,DX
  118.           Test     AL,8
  119.           JZ       Wait
  120.           Pop      AX
  121.  
  122. Endm      CheckSnow
  123. 
  124.