home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TAVID12.ZIP / VIDEO.INC < prev    next >
Encoding:
Text File  |  1988-11-09  |  1.9 KB  |  84 lines
  1. ; These are EQUates / global declaractions for the VIDEO.ASM module.
  2.  
  3. ; Author: David Bennett - Version 1.0 - Date: 11/9/88
  4. ;
  5. ; Please see the file VIDEO.DOC for more info.  VIDDEMO.ASM has examples
  6. ; of how to use this include file in your programs.
  7. ;
  8.  
  9. ; ---------------------
  10. ; Various video equates
  11. ; ---------------------
  12.  
  13. ; Memory areas
  14.  
  15. MonoSeg        EQU    0B000h        ; Mono screen segment
  16. CGASeg        EQU    0B800h        ; CGA screen segment
  17.  
  18. ; Video Modes
  19.  
  20. BW40        EQU    0        ; 40x25 B/W on Color Adapter
  21. CO40        EQU    1        ; 40x25 Color on Color Adapter
  22. BW80        EQU    2        ; 80x25 B/W on Color Adapter
  23. CO80        EQU    3        ; 80x25 Color on Color Adapter
  24. Mono        EQU    7        ; 80x25 on Monochrome Adapter
  25.  
  26. ; Foreground / Background color constants
  27.  
  28. Black        EQU    0
  29. Blue        EQU    1
  30. Green        EQU    2
  31. Cyan        EQU    3
  32. Red        EQU    4
  33. Magenta        EQU    5
  34. Brown        EQU    6
  35. LightGray    EQU    7
  36.  
  37. ; Foreground color constants
  38.  
  39. DarkGray    EQU    8
  40. LightBlue    EQU    9
  41. LightGreen    EQU    10
  42. LightCyan    EQU    11
  43. LightRed    EQU    12
  44. LightMagenta    EQU    13
  45. Yellow        EQU    14
  46. White        EQU    15
  47.  
  48. ; Add this for blink
  49.  
  50. Blink        EQU    10000000b    ; Blink Bit
  51. UnderLine    EQU    00000001b    ; Underline Bit (Mono Only)
  52.  
  53. ; Some commonly used attributes
  54.  
  55. Normal        EQU    7    ; Gray on Black (Low Intensity)
  56. Reverse        EQU    112    ; Black on Gray
  57. HighInt        EQU    15    ; White on Black (High Intensity)
  58.  
  59. ; ------------------------
  60. ; Global data in VIDEO.ASM
  61. ; ------------------------
  62.  
  63. GLOBAL BaseOfScreen:WORD
  64. GLOBAL SnowCheck:BYTE
  65. GLOBAL VideoMode:BYTE
  66.  
  67. ; -------------------------------------------
  68. ; Global procedure declarations for VIDEO.ASM
  69. ; -------------------------------------------
  70.  
  71. GLOBAL  EGAInstalled:PROC
  72. GLOBAL  GetVideoMode:PROC
  73. GLOBAL  DWriteCH:PROC
  74. GLOBAL  DWriteCHNA:PROC
  75. GLOBAL  DWriteStr:PROC
  76. GLOBAL  DWriteStrNA:PROC
  77. GLOBAL  DFillCH:PROC
  78. GLOBAL  DFillCHNA:PROC
  79. GLOBAL  DFillAttr:PROC
  80. GLOBAL  StoreToMem:PROC
  81. GLOBAL  StoreToScr:PROC
  82. GLOBAL  CursorOff:PROC
  83. GLOBAL  CursorOn:PROC
  84.