source: xtideuniversalbios/trunk/Assembly_Library/Inc/Display.inc@ 454

Last change on this file since 454 was 407, checked in by aitotat@…, 13 years ago

Changes to Assembly Library:

  • One more attempt to properly restore MDA cursor after exiting menu.
File size: 9.3 KB
RevLine 
[41]1; Project name : AssemblyLibrary
2; Description : Defines for display library.
3%ifndef DISPLAY_INC
4%define DISPLAY_INC
5
[186]6%ifndef MODULE_STRINGS_COMPRESSED_PRECOMPRESS
[41]7;--------------------------------------------------------------------
8; Display Library users need to use this macro since it will provide
9; compatibility with future library versions.
10;
11; CALL_DISPLAY_LIBRARY
12; Parameters:
13; %1: Function to call (functionName from DISPLAY_LIB)
14; Registers: Depends on function to call
15; Returns:
16; Depends on function to call
17; Corrupts registers:
18; AX (unless used as a return register), DI
19;--------------------------------------------------------------------
20%macro CALL_DISPLAY_LIBRARY 1
21 %ifidn %1, PushDisplayContext
22 call DisplayContext_Push
23 %elifidn %1, PopDisplayContext
24 call DisplayContext_Pop
[52]25 %elifidn %1, PrepareOffScreenBufferInESBXwithLengthInCX
26 call DisplayContext_PrepareOffScreenBufferInESBXwithLengthInCX
[41]27 %else
[177]28 mov di, %1
[41]29 call Display_FunctionFromDI
30 %endif
31%endmacro
32
[177]33%if 0
34;;;
35;;; struc no longer needed with direct calls to functions
36;;;
[41]37
38; Display library functions
39struc DISPLAY_LIB
40 .PushDisplayContext:
41 .PopDisplayContext:
[44]42 .InitializeDisplayContext resb 2
[41]43
[133]44%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
[44]45 .SetCharacterPointerFromBXAX resb 2
[133]46%endif
[45]47 .SetCharOutputFunctionFromAXwithAttribFlagInBL resb 2
[44]48 .SetCharacterOutputParameterFromAX resb 2
49 .SetCharacterAttributeFromAL resb 2
50 .SetCursorShapeFromAX resb 2
51 .SetCursorCoordinatesFromAX resb 2
[370]52%ifndef EXCLUDE_FROM_XTIDECFG
[44]53 .SetNewPageFromAL resb 2
[370]54%endif
[44]55 .SynchronizeDisplayContextToHardware resb 2
[41]56
[133]57%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
[44]58 .GetCharacterPointerToBXAX resb 2
[133]59%endif
[44]60 .GetSoftwareCoordinatesToAX resb 2
61 .GetColumnsToALandRowsToAH resb 2
[41]62
[44]63 .FormatNullTerminatedStringFromCSSI resb 2
[134]64%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
[44]65 .PrintSignedWordFromAXWithBaseInBX resb 2
[134]66%endif
[44]67 .PrintWordFromAXwithBaseInBX resb 2
[341]68%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS OR EXCLUDE_FROM_XTIDECFG
[323]69 .PrintQWordFromSSBPwithBaseInBX resb 2
70%endif
[44]71 .PrintCharBufferFromBXSIwithLengthInCX resb 2
72 .PrintNullTerminatedStringFromBXSI resb 2
73 .PrintNullTerminatedStringFromCSSI resb 2
74 .PrintRepeatedCharacterFromALwithCountInCX resb 2
75 .PrintCharacterFromAL resb 2
76 .PrintNewlineCharacters resb 2
[134]77%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
[44]78 .ClearAreaWithHeightInAHandWidthInAL resb 2
[134]79%endif
[67]80 .ClearScreenWithCharInALandAttrInAH resb 2
[41]81endstruc
[177]82%endif
[41]83
[390]84; Attribute flags for DISPLAY_LIB.SetCharacterOutputFunctionFromAXwithAttributeFlagInBL
[44]85ATTRIBUTES_NOT_USED EQU 0
86ATTRIBUTES_ARE_USED EQU FLG_CONTEXT_ATTRIBUTES
87
[390]88; Character output functions for DISPLAY_LIB.SetCharacterOutputFunctionFromAXwithAttributeFlagInBL
[41]89TELETYPE_OUTPUT_WITH_ATTRIBUTE EQU DisplayCharOut_TeletypeOutputWithAttribute
90TELETYPE_OUTPUT_WITHOUT_ATTRIBUTE EQU DisplayCharOut_TeletypeOutput
91TELETYPE_OUTPUT_USING_BIOS EQU DisplayCharOut_BiosTeletypeOutput
92FAST_OUTPUT_WITH_ATTRIBUTE_ONLY EQU DisplayCharOut_Attribute
93FAST_OUTPUT_WITH_CHAR_ONLY EQU DisplayCharOut_Character
94FAST_OUTPUT_WITH_CHAR_AND_ATTRIBUTE EQU DisplayCharOut_CharacterWithAttribute
95BUFFER_OUTPUT_WITH_CHAR_ONLY EQU DisplayCharOut_WriteCharacterToBuffer
96
97DEFAULT_CHARACTER_OUTPUT EQU TELETYPE_OUTPUT_WITH_ATTRIBUTE
98
99
100struc VIDEO_BDA
101 resb 449h
102 .bMode resb 1 ; 0:449h, Video, Mode
103 .wColumns resb 2 ; 0:44Ah, Video, Number of columns
104 .wBytesPerPage resb 2 ; 0:44Ch, Video, Total number of bytes per page
105 .wPageOffset resb 2 ; 0:44Eh, Video, Current page offset
106 .rgwCursors resb 4 ; 0:450h, Video, Cursor position, pages 0...1
107 .displayContext resb 12 ; Our own display context (normally cursors for pages 2...7)
108 .wCursorShape resb 2 ; 0:460h, Video, Cursor shape
109 .bActivePage resb 1 ; 0:462h, Video, Active display page
110 .wVideoPort resb 2 ; 0:463h, Video, I/O Port number base
111 .bInternalModeReg resb 1 ; 0:465h, Video, Internal mode register
112 .bColorPalette resb 1 ; 0:466h, Video, Color palette
113endstruc
114
115struc DISPLAY_CONTEXT
116 .fpCursorPosition resb 4 ; Far pointer to cursor position in video memory
117 .fnCharOut resb 2 ; Function to draw character with
118 .wCharOutParam resb 2 ; User parameter for custom character output function
119 .wCursorShape resb 2 ; Current cursor shape
120 .bAttribute resb 1 ; Selected character attribute
[44]121 .bFlags resb 1 ; Display context flags
[41]122endstruc
123
[44]124; Display context flags
125FLG_CONTEXT_ATTRIBUTES EQU (1<<0) ; Character output function uses attributes
[50]126FLG_CONTEXT_CGA EQU (1<<1) ; CGA detected so prevent CGA snow
[41]127
[44]128
[41]129; Text mode character attribute byte bits for CGA+ (color adapters)
130FLG_COLOR_FORE_BLUE EQU (1<<0)
131FLG_COLOR_FORE_GREEN EQU (1<<1)
132FLG_COLOR_FORE_RED EQU (1<<2)
133FLG_COLOR_FORE_INTENSITY EQU (1<<3)
134FLG_COLOR_FORE_FONT_B EQU (1<<3) ; Select font set B (if available, EGA+)
135FLG_COLOR_BACK_BLUE EQU (1<<4)
136FLG_COLOR_BACK_GREEN EQU (1<<5)
137FLG_COLOR_BACK_RED EQU (1<<6)
138FLG_COLOR_BACK_INTENSITY EQU (1<<7) ; Intensity when blinking is disabled
139FLG_COLOR_BLINK EQU (1<<7) ; Blinking color when enabled (enabled by default)
140
141; CGA colors
142%define COLOR_ATTRIBUTE(foreground, background) ( (foreground) | ((background)<<4) )
143COLOR_BLACK EQU 0
144COLOR_BLUE EQU 1
145COLOR_GREEN EQU 2
146COLOR_CYAN EQU 3
147COLOR_RED EQU 4
148COLOR_MAGENTA EQU 5
149COLOR_BROWN EQU 6
150COLOR_WHITE EQU 7 ; Last background color if blinking enabled
151COLOR_GRAY EQU 8
152COLOR_LIGHT_BLUE EQU 9
153COLOR_LIGHT_GREEN EQU 10
154COLOR_LIGHT_CYAN EQU 11
155COLOR_LIGHT_RED EQU 12
156COLOR_LIGHT_MAGENTA EQU 13
157COLOR_YELLOW EQU 14
158COLOR_BRIGHT_WHITE EQU 15
159
160
161; Text mode character attribute byte bits for MDA (monochrome adapters)
162; (attributes 00h, 08h, 80h, 88h, 70h, 78h, F0h and F8h are exceptions)
163FLG_MONO_UNDERLINE EQU (1<<1)
164FLG_MONO_INTENSITY EQU (1<<3)
165FLG_MONO_BLINK EQU (1<<7)
166
167; Text mode character attribute bytes for MDA/Hercules (monochrome adapters)
168; *Not displayed on some monitors
169MONO_HIDDEN EQU 00h ; Not displayed (same for 08h, 80h and 88h)
170MONO_UNDERLINE EQU 01h ; Underlined
171MONO_NORMAL EQU 07h ; Normal (white on black)
172MONO_BRIGHT_UNDERLINE EQU 09h ; High intensity, underlined
173MONO_BRIGHT EQU 0Fh ; High intensity
174MONO_REVERSE EQU 70h ; Reverse video (black on white)
175MONO_REVERSE_DARK EQU 78h ; (dark green on green)
176MONO_BLINK EQU 87h ; Blinking white on black*
177MONO_BRIGHT_BLINK EQU 8Fh ; Blinking high intensity*
178MONO_REVERSE_BLINK EQU 0F0h ; Blinking reverse video
179MONO_REVERSE_DARK_BLINK EQU 0F8h ; (blinking dark green on green)
180
181
182; Cursor position macro for DX register
183%define CURSOR_XY(x, y) ( (x) | ((y)<<8) )
184
185; Cursor shapes
[407]186CURSOR_NORMAL_COLOR EQU 0607h ; Two line cursor near or at the bottom of cell (not valid for IBM MDA)
187CURSOR_NORMAL_MDA EQU 0B0Ch ; Scanlines 11 and 12
[41]188CURSOR_HIDDEN EQU 2000h
189
190
191; Display modes
192CGA_TEXT_MODE_BW40 EQU 0 ; Applications should use...
193CGA_TEXT_MODE_CO40 EQU 1
194CGA_TEXT_MODE_BW80 EQU 2 ; ..black, white and bright white attributes only
195CGA_TEXT_MODE_CO80 EQU 3
196MDA_TEXT_MODE EQU 7 ; Real monochrome attributes available
197
198
199; Display segments
200COLOR_TEXT_SEGMENT EQU 0B800h ; Text modes 0...3 (CGA+)
201MONO_TEXT_SEGMENT EQU 0B000h ; Text mode 7 (MDA, Hercules)
202
[48]203OFFSET_TO_CGA_STATUS_REGISTER EQU 6 ; Base port 3D4h + 6 = 3DAh
204CGA_STATUS_REGISTER EQU 3DAh
[41]205
[186]206%endif ; MODULE_STRINGS_COMPRESS_PRECOMPRESS
[48]207
[41]208; Control characters for teletype output
209NULL EQU 00h
210SOH EQU 01h ; Start of heading
211STX EQU 02h ; Start of text
212BELL EQU 07h ; Bell
213BS EQU 08h ; Backspace
214TAB EQU 09h ; Horizontal TAB
215LF EQU 0Ah ; Line feed (newline)
216CR EQU 0Dh ; Carriage return
217ESC EQU 1Bh ; Escape
218
219; Non ASCII characters (code page 437)
[287]220BETA EQU 225
[91]221QUOTATION_MARK EQU 34
[41]222DOUBLE_TOP_RIGHT_CORNER EQU 187
223DOUBLE_TOP_LEFT_CORNER EQU 201
224DOUBLE_BOTTOM_RIGHT_CORNER EQU 188
225DOUBLE_BOTTOM_LEFT_CORNER EQU 200
226DOUBLE_VERTICAL EQU 186
227DOUBLE_HORIZONTAL EQU 205
228DOUBLE_VERTICAL_TO_RIGHT_SINGLE EQU 199
229DOUBLE_VERTICAL_TO_LEFT_SINGLE EQU 182
230DOUBLE_LEFT_HORIZONTAL_TO_SINGLE_VERTICAL EQU 181
231DOUBLE_RIGHT_HORIZONTAL_TO_SINGLE_VERTICAL EQU 198
[85]232SINGLE_VERTICAL EQU 179
[41]233SINGLE_HORIZONTAL EQU 196
234SINGLE_LEFT_HORIZONTAL_TO_VERTICAL EQU 180
235SINGLE_RIGHT_HORIZONTAL_TO_VERTICAL EQU 195
236ANGLE_QUOTE_LEFT EQU 174
237ANGLE_QUOTE_RIGHT EQU 175
[44]238BLOCK_MOSTLY_BACKGROUND EQU 176
239BLOCK_EVEN_BACKGROUND_AND_FOREGROUND EQU 177
240BLOCK_MOSTLY_FOREGROUND EQU 178
241BLOCK_FULL_FOREGROUND EQU 219
[91]242ONE_HALF EQU 171
243ONE_QUARTER EQU 172
[41]244
245
[44]246; Background character for clearing screen
247%ifndef SCREEN_BACKGROUND_CHARACTER
248 %define SCREEN_BACKGROUND_CHARACTER BLOCK_MOSTLY_BACKGROUND
249%endif
250%ifndef SCREEN_BACKGROUND_ATTRIBUTE
251 %define SCREEN_BACKGROUND_ATTRIBUTE MONO_NORMAL
252%endif
[67]253%define SCREEN_BACKGROUND_CHARACTER_AND_ATTRIBUTE (SCREEN_BACKGROUND_CHARACTER | (SCREEN_BACKGROUND_ATTRIBUTE<<8))
254%define DOS_BACKGROUND_CHARACTER_AND_ATTRIBUTE (' ' | (MONO_NORMAL<<8))
[44]255
[41]256%endif ; DISPLAY_INC
Note: See TracBrowser for help on using the repository browser.