home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TAVID12.ZIP / VIDEO1.INC < prev    next >
Encoding:
Text File  |  1988-12-22  |  1.4 KB  |  61 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. ;v1.1, Toad Hall Tweak, 22 Dec 88
  9. ; -    Removed global definitions.
  10. ; -    Suitable for VIDDEMO1.ASM, VIDDEMO2.ASM, VIDEO1.ASM, VIDEO2.ASM
  11.  
  12. ; ---------------------
  13. ; Various video equates
  14. ; ---------------------
  15.  
  16. ; Memory areas
  17.  
  18. MONOSEG        EQU    0B000h        ; Mono screen segment
  19. CGASEG        EQU    0B800h        ; CGA screen segment
  20.  
  21. ; Video Modes
  22.  
  23. BW40        EQU    0        ; 40x25 B/W on Color Adapter
  24. CO40        EQU    1        ; 40x25 Color on Color Adapter
  25. BW80        EQU    2        ; 80x25 B/W on Color Adapter
  26. CO80        EQU    3        ; 80x25 Color on Color Adapter
  27. MONO        EQU    7        ; 80x25 on Monochrome Adapter
  28.  
  29. ; Foreground / Background color constants
  30.  
  31. BLACK        EQU    0
  32. BLUE        EQU    1
  33. GREEN        EQU    2
  34. CYAN        EQU    3
  35. RED        EQU    4
  36. MAGENTA        EQU    5
  37. BROWN        EQU    6
  38. LIGHTGRAY    EQU    7
  39.  
  40. ; Foreground color constants
  41.  
  42. DARKGRAY    EQU    8
  43. LIGHTBLUE    EQU    9
  44. LIGHTGREEN    EQU    10
  45. LIGHTCYAN    EQU    11
  46. LIGHTRED    EQU    12
  47. LIGHTMAGENTA    EQU    13
  48. YELLOW        EQU    14
  49. WHITE        EQU    15
  50.  
  51. ; Add this for blink
  52.  
  53. BLINK        EQU    10000000b    ; Blink Bit
  54. UNDERLINE    EQU    00000001b    ; Underline Bit (Mono Only)
  55.  
  56. ; Some commonly used attributes
  57.  
  58. NORMAL        EQU    7    ; Gray on Black (Low Intensity)
  59. REVERSE        EQU    112    ; Black on Gray
  60. HIGHINT        EQU    15    ; White on Black (High Intensity)
  61.