source: xtideuniversalbios/trunk/Assembly_Library/Src/Display/DisplayPrint.asm@ 591

Last change on this file since 591 was 590, checked in by Krister Nordvall, 8 years ago

Changes:

  • Updated URLs and copyright info in BIOSDRVS and XTIDECFG.
  • BIOSDRVS should now build under Linux.
  • Minor optimizations to the library.
File size: 12.7 KB
Line 
1; Project name : Assembly Library
2; Description : Functions for display output.
3
4;
5; XTIDE Universal BIOS and Associated Tools
6; Copyright (C) 2009-2010 by Tomi Tilli, 2011-2013 by XTIDE Universal BIOS Team.
7;
8; This program is free software; you can redistribute it and/or modify
9; it under the terms of the GNU General Public License as published by
10; the Free Software Foundation; either version 2 of the License, or
11; (at your option) any later version.
12;
13; This program is distributed in the hope that it will be useful,
14; but WITHOUT ANY WARRANTY; without even the implied warranty of
15; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16; GNU General Public License for more details.
17; Visit http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
18;
19
20; Section containing code
21SECTION .text
22
23
24;--------------------------------------------------------------------
25; Supports following formatting types:
26; %a Specifies attribute for next character
27; %A Specifies attribute for remaining string (or until next %A)
28; %d Prints signed 16-bit decimal integer
29; %u Prints unsigned 16-bit decimal integer
30; %x Prints 16-bit hexadecimal integer
31; %s Prints string (from CS segment)
32; %S Prints string (far pointer)
33; %c Prints character
34; %t Prints character number of times (character needs to be pushed first, then repeat times)
35; %% Prints '%' character (no parameter pushed)
36;
37; Any placeholder can be set to minimum length by specifying
38; minimum number of characters. For example %8d would append spaces
39; after integer so that at least 8 characters would be printed.
40;
41; When placing '-' after number, then spaces will be used for prepending.
42; For example %8-d would prepend integer with spaces so that at least
43; 8 characters would be printed.
44;
45; DisplayPrint_FormattedNullTerminatedStringFromCSSI
46; Parameters:
47; BP: SP before pushing parameters
48; DS: BDA segment (zero)
49; CS:SI: Pointer to string to format
50; ES:DI: Ptr to cursor location in video RAM
51; Stack: Parameters for formatting placeholders.
52; Parameter for first placeholder must be pushed first.
53; Low word must pushed first for placeholders requiring
54; 32-bit parameters (two words).
55; Returns:
56; DI: Updated offset to video RAM
57; Corrupts registers:
58; AX, DX
59;--------------------------------------------------------------------
60ALIGN DISPLAY_JUMP_ALIGN
61DisplayPrint_FormattedNullTerminatedStringFromCSSI:
62 push bp
63 push si
64 push cx
65 push bx
66 push WORD [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute]
67
68 dec bp ; Point BP to...
69 dec bp ; ...first stack parameter
70 call DisplayFormat_ParseCharacters
71
72 ; Pop original character attribute
73 pop ax
74 mov [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute], al
75
76 pop bx
77 pop cx
78 pop si
79 pop bp
80
81 ret
82
83
84;--------------------------------------------------------------------
85; DisplayPrint_SignedWordFromAXWithBaseInBL
86; Parameters:
87; AX: Word to display
88; BL: Integer base (binary=2, octal=8, decimal=10, hexadecimal=16)
89; DS: BDA segment (zero)
90; ES:DI: Ptr to cursor location in video RAM
91; Returns:
92; DI: Updated offset to video RAM
93; Corrupts registers:
94; AX, BH, DX
95;--------------------------------------------------------------------
96%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
97ALIGN DISPLAY_JUMP_ALIGN
98DisplayPrint_SignedWordFromAXWithBaseInBL:
99 sahf
100 jns SHORT DisplayPrint_WordFromAXWithBaseInBL
101
102 push ax
103 mov al, '-'
104 call DisplayPrint_CharacterFromAL
105 pop ax
106 neg ax
107 ; Fall to DisplayPrint_WordFromAXWithBaseInBL
108%endif
109
110
111;--------------------------------------------------------------------
112; DisplayPrint_WordFromAXWithBaseInBL
113; Parameters:
114; AX: Word to display
115; BL: Integer base (binary=2, octal=8, decimal=10, hexadecimal=16)
116; DS: BDA segment (zero)
117; ES:DI: Ptr to cursor location in video RAM
118; Returns:
119; DI: Updated offset to video RAM
120; Corrupts registers:
121; AX, BH, DX
122;--------------------------------------------------------------------
123%ifndef MODULE_STRINGS_COMPRESSED
124ALIGN DISPLAY_JUMP_ALIGN
125DisplayPrint_WordFromAXWithBaseInBL:
126 push cx
127
128 xor cx, cx
129 xor bh, bh ; Base now in BX
130ALIGN DISPLAY_JUMP_ALIGN
131.DivideLoop:
132 inc cx ; Increment character count
133 xor dx, dx ; DX:AX now holds the integer
134 div bx ; Divide DX:AX by base
135 push dx ; Push remainder
136 test ax, ax ; All divided?
137 jnz SHORT .DivideLoop ; If not, loop
138
139ALIGN DISPLAY_JUMP_ALIGN
140PrintAllPushedDigits: ; Unused entrypoint OK
141.PrintNextDigit:
142 pop ax ; Pop digit
143 cmp al, 10 ; Convert binary digit in AL to ASCII hex digit ('0'-'9' or 'A'-'F')
144 sbb al, 69h
145 das
146 call DisplayPrint_CharacterFromAL
147 loop .PrintNextDigit
148
149 pop cx
150 ret
151%endif ; ~MODULE_STRINGS_COMPRESSED
152
153;--------------------------------------------------------------------
154; DisplayPrint_QWordFromSSBPwithBaseInBX
155; Parameters:
156; SS:BP: QWord to display
157; BX: Integer base (binary=2, octal=8, decimal=10, hexadecimal=16)
158; DS: BDA segment (zero)
159; ES:DI: Ptr to cursor location in video RAM
160; Returns:
161; DI: Updated offset to video RAM
162; Corrupts registers:
163; AX, DX, [SS:BP]
164;--------------------------------------------------------------------
165%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS OR EXCLUDE_FROM_XTIDECFG
166ALIGN DISPLAY_JUMP_ALIGN
167DisplayPrint_QWordFromSSBPwithBaseInBX:
168 push cx
169
170 mov cx, bx ; CX = Integer base
171 xor bx, bx ; BX = Character count
172ALIGN DISPLAY_JUMP_ALIGN
173.DivideLoop:
174 call Math_DivQWatSSBPbyCX; Divide by base
175 push dx ; Push remainder
176 inc bx ; Increment character count
177 cmp WORD [bp], BYTE 0 ; All divided?
178 jne SHORT .DivideLoop ; If not, loop
179 xchg cx, bx ; Character count to CX, Integer base to BX
180 jmp SHORT PrintAllPushedDigits
181%endif
182
183
184;--------------------------------------------------------------------
185; DisplayPrint_CharacterBufferFromBXSIwithLengthInCX
186; Parameters:
187; CX: Buffer length (characters)
188; BX:SI: Ptr to NULL terminated string
189; DS: BDA segment (zero)
190; ES:DI: Ptr to cursor location in video RAM
191; Returns:
192; DI: Updated offset to video RAM
193; Corrupts registers:
194; AX, DX
195;--------------------------------------------------------------------
196%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
197ALIGN DISPLAY_JUMP_ALIGN
198DisplayPrint_CharacterBufferFromBXSIwithLengthInCX:
199 jcxz .NothingToPrintSinceZeroLength
200 push si
201 push cx
202
203ALIGN DISPLAY_JUMP_ALIGN
204.PrintNextCharacter:
205 mov ds, bx
206 lodsb
207 LOAD_BDA_SEGMENT_TO ds, dx
208 call DisplayPrint_CharacterFromAL
209 loop .PrintNextCharacter
210
211 pop cx
212 pop si
213.NothingToPrintSinceZeroLength:
214 ret
215%endif
216
217
218;--------------------------------------------------------------------
219; DisplayPrint_ClearScreenWithCharInALandAttributeInAH
220; Parameters:
221; AL: Character to clear with
222; AH: Attribute to clear with
223; DS: BDA segment (zero)
224; ES:DI: Ptr to cursor location in video RAM
225; Returns:
226; Nothing
227; Corrupts registers:
228; AX, DX
229;--------------------------------------------------------------------
230%ifdef INCLUDE_MENU_LIBRARY
231ALIGN DISPLAY_JUMP_ALIGN
232DisplayPrint_ClearScreenWithCharInALandAttributeInAH:
233 push di
234 push cx
235
236 xchg cx, ax
237 xor ax, ax
238 call DisplayCursor_SetCoordinatesFromAX ; Updates DI
239 call DisplayPage_GetColumnsToALandRowsToAH
240 mul ah ; AX = AL*AH = Characters on screen
241 xchg cx, ax ; AX = Char+Attr, CX = WORDs to store
242 rep stosw
243
244 pop cx
245 pop di
246 mov [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.fpCursorPosition], di
247 ret
248%endif
249
250
251;--------------------------------------------------------------------
252; DisplayPrint_ClearAreaWithHeightInAHandWidthInAL
253; Parameters:
254; AH: Area height
255; AL: Area width
256; DS: BDA segment (zero)
257; ES:DI: Ptr to cursor location in video RAM
258; Returns:
259; DI: Updated offset to video RAM
260; Corrupts registers:
261; AX, DX
262;--------------------------------------------------------------------
263%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
264ALIGN DISPLAY_JUMP_ALIGN
265DisplayPrint_ClearAreaWithHeightInAHandWidthInAL:
266 push si
267 push cx
268 push bx
269
270 xchg bx, ax ; Area size to BX
271 call DisplayCursor_GetSoftwareCoordinatesToAX
272 xchg si, ax ; Software (Y,X) coordinates now in SI
273 xor cx, cx
274
275ALIGN DISPLAY_JUMP_ALIGN
276.ClearRowLoop:
277 mov cl, bl ; Area width now in CX
278 mov al, SCREEN_BACKGROUND_CHARACTER
279 call DisplayPrint_RepeatCharacterFromALwithCountInCX
280
281 xchg ax, si ; Coordinates to AX
282 inc ah ; Increment row
283 mov si, ax
284 call DisplayCursor_SetCoordinatesFromAX
285 dec bh ; Decrement rows left
286 jnz SHORT .ClearRowLoop
287
288 pop bx
289 pop cx
290 pop si
291 ret
292%endif
293
294%ifdef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
295 %define EXCLUDE
296 %ifndef MODULE_STRINGS_COMPRESSED
297 %undef EXCLUDE
298 %endif
299 %ifdef MODULE_HOTKEYS OR MODULE_BOOT_MENU
300 %undef EXCLUDE
301 %endif
302%endif
303
304%ifndef EXCLUDE
305;--------------------------------------------------------------------
306; DisplayPrint_RepeatCharacterFromALwithCountInCX
307; Parameters:
308; AL: Character to display
309; CX: Repeat count
310; DS: BDA segment (zero)
311; ES:DI: Ptr to cursor location in video RAM
312; Returns:
313; DI: Updated offset to video RAM
314; Corrupts registers:
315; DX
316;--------------------------------------------------------------------
317ALIGN DISPLAY_JUMP_ALIGN
318DisplayPrint_RepeatCharacterFromALwithCountInCX:
319 jcxz .NothingToRepeat
320 push cx
321
322ALIGN DISPLAY_JUMP_ALIGN
323.RepeatCharacter:
324 push ax
325 call DisplayPrint_CharacterFromAL
326 pop ax
327 loop .RepeatCharacter
328
329 pop cx
330.NothingToRepeat:
331 ret
332%endif
333%undef EXCLUDE
334
335;--------------------------------------------------------------------
336; DisplayPrint_NullTerminatedStringFromCSSI
337; Parameters:
338; CS:SI: Ptr to NULL terminated string
339; DS: BDA segment (zero)
340; ES:DI: Ptr to cursor location in video RAM
341; Returns:
342; DI: Updated offset to video RAM
343; Corrupts registers:
344; AX, DX
345;--------------------------------------------------------------------
346%ifndef MODULE_STRINGS_COMPRESSED
347;;;
348;;; Take care when using this routine with compressed strings (which is why it is disabled).
349;;; All strings in CSSI should go through the DisplayFormatCompressed code to be decoded.
350;;;
351ALIGN DISPLAY_JUMP_ALIGN
352DisplayPrint_NullTerminatedStringFromCSSI:
353 push bx
354 mov bx, cs
355 call DisplayPrint_NullTerminatedStringFromBXSI
356 pop bx
357 ret
358%endif
359
360
361;;;
362;;; Note that the following routines need to be at the bottom of this file
363;;; to accomodate short jumps from the next file (DisplayFormat/DisplayFormatCompressed)
364;;;
365
366;--------------------------------------------------------------------
367; DisplayPrint_Newline
368; Parameters:
369; DS: BDA segment (zero)
370; ES:DI: Ptr to cursor location in video RAM
371; Returns:
372; DI: Updated offset to video RAM
373; Corrupts registers:
374; AX, DX
375;--------------------------------------------------------------------
376%ifdef MODULE_STRINGS_COMPRESSED
377ALIGN DISPLAY_JUMP_ALIGN
378DisplayPrint_Newline_FormatAdjustBP:
379 inc bp ; we didn't need a parameter after all, readjust BP
380 inc bp
381 ; fall through to DisplayPrint_Newline
382%endif
383
384ALIGN DISPLAY_JUMP_ALIGN
385DisplayPrint_Newline:
386 mov al, LF
387 call DisplayPrint_CharacterFromAL
388 mov al, CR
389 ; Fall to DisplayPrint_CharacterFromAL
390
391;--------------------------------------------------------------------
392; DisplayPrint_CharacterFromAL
393; Parameters:
394; AL: Character to display
395; Zero value is ignored (no character is printed)
396; DS: BDA segment (zero)
397; ES:DI: Ptr to cursor location in video RAM
398; Returns:
399; DI: Updated offset to video RAM
400; Corrupts registers:
401; AX, DX
402;--------------------------------------------------------------------
403ALIGN DISPLAY_JUMP_ALIGN
404DisplayPrint_CharacterFromAL:
405 test al, al
406 jz DisplayPrint_Ret
407
408 mov ah, [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute]
409 jmp [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.fnCharOut]
410
411
412;--------------------------------------------------------------------
413; DisplayPrint_NullTerminatedStringFromBXSI
414; Parameters:
415; DS: BDA segment (zero)
416; BX:SI: Ptr to NULL terminated string
417; ES:DI: Ptr to cursor location in video RAM
418; Returns:
419; DI: Updated offset to video RAM
420; Corrupts registers:
421; AX, DX
422;--------------------------------------------------------------------
423ALIGN DISPLAY_JUMP_ALIGN
424DisplayPrint_NullTerminatedStringFromBXSI:
425 push si
426 push cx
427
428 xor cx, cx
429ALIGN DISPLAY_JUMP_ALIGN
430.PrintNextCharacter:
431 mov ds, bx ; String segment to DS
432 lodsb
433 mov ds, cx ; BDA segment to DS
434 test al, al ; NULL?
435 jz SHORT .EndOfString
436 call DisplayPrint_CharacterFromAL
437 jmp SHORT .PrintNextCharacter
438
439ALIGN DISPLAY_JUMP_ALIGN
440.EndOfString:
441 pop cx
442 pop si
443
444DisplayPrint_Ret: ; random ret to jump to
445 ret
446
Note: See TracBrowser for help on using the repository browser.