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

Last change on this file since 205 was 194, checked in by gregli@…, 13 years ago

ifdef'd out more unused code. Also added a tool for looking through the listing and the output of the precompiler to aid in finding dead code. Some changes in the files are to add annotations for the tool to avoid false positives.
File size: 10.6 KB
RevLine 
[41]1; Project name : Assembly Library
2; Description : Functions for display output.
3
4; Section containing code
5SECTION .text
6
[186]7
[41]8;--------------------------------------------------------------------
9; Supports following formatting types:
10; %a Specifies attribute for next character
11; %A Specifies attribute for remaining string (or until next %A)
12; %d Prints signed 16-bit decimal integer
13; %u Prints unsigned 16-bit decimal integer
14; %x Prints 16-bit hexadecimal integer
15; %s Prints string (from CS segment)
16; %S Prints string (far pointer)
17; %c Prints character
18; %t Prints character number of times (character needs to be pushed first, then repeat times)
19; %% Prints '%' character (no parameter pushed)
20;
21; Any placeholder can be set to minimum length by specifying
22; minimum number of characters. For example %8d would append spaces
23; after integer so that at least 8 characters would be printed.
[48]24;
25; When placing '-' after number, then spaces will be used for prepending.
26; For example %8-d would prepend integer with spaces so that at least
27; 8 characters would be printed.
[162]28;
[41]29; DisplayPrint_FormattedNullTerminatedStringFromCSSI
30; Parameters:
31; BP: SP before pushing parameters
32; DS: BDA segment (zero)
33; CS:SI: Pointer to string to format
34; ES:DI: Ptr to cursor location in video RAM
35; Stack: Parameters for formatting placeholders.
36; Parameter for first placeholder must be pushed first.
37; Low word must pushed first for placeholders requiring
38; 32-bit parameters (two words).
39; Returns:
40; DI: Updated offset to video RAM
41; Corrupts registers:
42; AX, DX
43;--------------------------------------------------------------------
44ALIGN JUMP_ALIGN
45DisplayPrint_FormattedNullTerminatedStringFromCSSI:
46 push bp
47 push si
48 push cx
49 push bx
50 push WORD [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute]
51
52 dec bp ; Point BP to...
53 dec bp ; ...first stack parameter
54 call DisplayFormat_ParseCharacters
55
56 ; Pop original character attribute
57 pop ax
58 mov [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute], al
59
60 pop bx
61 pop cx
62 pop si
63 pop bp
[186]64
[41]65 ret
66
67
68;--------------------------------------------------------------------
[44]69; DisplayPrint_SignedWordFromAXWithBaseInBX
[41]70; Parameters:
71; AX: Word to display
[44]72; BX: Integer base (binary=2, octal=8, decimal=10, hexadecimal=16)
[41]73; DS: BDA segment (zero)
74; ES:DI: Ptr to cursor location in video RAM
75; Returns:
76; DI: Updated offset to video RAM
77; Corrupts registers:
78; AX, DX
79;--------------------------------------------------------------------
[134]80%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
[41]81ALIGN JUMP_ALIGN
[44]82DisplayPrint_SignedWordFromAXWithBaseInBX:
83 test ax, ax
84 jns SHORT DisplayPrint_WordFromAXWithBaseInBX
[41]85
86 push ax
87 mov al, '-'
88 call DisplayPrint_CharacterFromAL
89 pop ax
90 neg ax
[44]91 ; Fall to DisplayPrint_WordFromAXWithBaseInBX
[134]92%endif
[41]93
94;--------------------------------------------------------------------
95; DisplayPrint_WordFromAXWithBaseInBX
96; Parameters:
97; AX: Word to display
98; BX: Integer base (binary=2, octal=8, decimal=10, hexadecimal=16)
99; DS: BDA segment (zero)
100; ES:DI: Ptr to cursor location in video RAM
101; Returns:
102; DI: Updated offset to video RAM
103; Corrupts registers:
104; AX, DX
105;--------------------------------------------------------------------
[186]106
107%ifndef MODULE_STRINGS_COMPRESSED
108
[41]109ALIGN JUMP_ALIGN
110DisplayPrint_WordFromAXWithBaseInBX:
111 push cx
[44]112 push bx
[41]113
114 xor cx, cx
115ALIGN JUMP_ALIGN
116.DivideLoop:
117 xor dx, dx ; DX:AX now holds the integer
118 div bx ; Divide DX:AX by base
119 push dx ; Push remainder
120 inc cx ; Increment character count
121 test ax, ax ; All divided?
122 jnz SHORT .DivideLoop ; If not, loop
[44]123
124 mov bx, .rgcDigitToCharacter
[41]125ALIGN JUMP_ALIGN
[44]126.PrintNextDigit:
127 pop ax ; Pop digit
128 eSEG cs
129 xlatb
[41]130 call DisplayPrint_CharacterFromAL
[44]131 loop .PrintNextDigit
[41]132
[44]133 pop bx
[41]134 pop cx
135 ret
136.rgcDigitToCharacter: db "0123456789ABCDEF"
[186]137
138%endif ; MODULE_STRINGS_COMPRESSED
[41]139
140
141;--------------------------------------------------------------------
142; DisplayPrint_CharacterBufferFromBXSIwithLengthInCX
143; Parameters:
144; CX: Buffer length (characters)
145; BX:SI: Ptr to NULL terminated string
146; DS: BDA segment (zero)
147; ES:DI: Ptr to cursor location in video RAM
148; Returns:
149; DI: Updated offset to video RAM
150; Corrupts registers:
151; AX, DX
152;--------------------------------------------------------------------
[194]153%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
154
[41]155ALIGN JUMP_ALIGN
156DisplayPrint_CharacterBufferFromBXSIwithLengthInCX:
[44]157 jcxz .NothingToPrintSinceZeroLength
158 push si
[41]159 push cx
160
161ALIGN JUMP_ALIGN
[44]162.PrintNextCharacter:
163 mov ds, bx
164 lodsb
165 LOAD_BDA_SEGMENT_TO ds, dx
166 call DisplayPrint_CharacterFromAL
167 loop .PrintNextCharacter
168
[181]169 ;mov ds, cx ; Restore DS to BDA. Not needed unless DisplayPrint_CharacterFromAL changes DS.
[41]170 pop cx
[44]171 pop si
172.NothingToPrintSinceZeroLength:
[41]173 ret
[194]174%endif
[41]175
176
[186]177
178
[41]179;--------------------------------------------------------------------
[67]180; DisplayPrint_ClearScreenWithCharInALandAttributeInAH
[41]181; Parameters:
[67]182; AL: Character to clear with
183; AH: Attribute to clear with
[41]184; DS: BDA segment (zero)
185; ES:DI: Ptr to cursor location in video RAM
186; Returns:
187; Nothing
188; Corrupts registers:
189; AX, DX
190;--------------------------------------------------------------------
191ALIGN JUMP_ALIGN
[67]192DisplayPrint_ClearScreenWithCharInALandAttributeInAH:
[41]193 push di
[67]194 push cx
195
196 xchg cx, ax
[41]197 xor ax, ax
[67]198 call DisplayCursor_SetCoordinatesFromAX ; Updates DI
[41]199 call DisplayPage_GetColumnsToALandRowsToAH
[67]200 mul ah ; AX = AL*AH = Characters on screen
201 xchg cx, ax ; AX = Char+Attr, CX = WORDs to store
202 rep stosw
203
204 pop cx
[41]205 pop di
206 mov [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.fpCursorPosition], di
207 ret
208
209
210;--------------------------------------------------------------------
211; DisplayPrint_ClearAreaWithHeightInAHandWidthInAL
212; Parameters:
213; AH: Area height
214; AL: Area width
215; DS: BDA segment (zero)
216; ES:DI: Ptr to cursor location in video RAM
217; Returns:
[42]218; DI: Updated offset to video RAM
[41]219; Corrupts registers:
220; AX, DX
221;--------------------------------------------------------------------
[134]222%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
[41]223ALIGN JUMP_ALIGN
224DisplayPrint_ClearAreaWithHeightInAHandWidthInAL:
[42]225 push si
[41]226 push cx
227 push bx
228
[42]229 xchg bx, ax ; Area size to BX
[41]230 call DisplayCursor_GetSoftwareCoordinatesToAX
[42]231 xchg si, ax ; Software (Y,X) coordinates now in SI
232 xor cx, cx
[41]233
234ALIGN JUMP_ALIGN
[42]235.ClearRowLoop:
236 mov cl, bl ; Area width now in CX
[44]237 mov al, SCREEN_BACKGROUND_CHARACTER
[42]238 call DisplayPrint_RepeatCharacterFromALwithCountInCX
[41]239
[42]240 xchg ax, si ; Coordinates to AX
241 inc ah ; Increment row
242 mov si, ax
[41]243 call DisplayCursor_SetCoordinatesFromAX
[42]244 dec bh ; Decrement rows left
245 jnz SHORT .ClearRowLoop
[41]246
247 pop bx
248 pop cx
[42]249 pop si
[41]250 ret
[134]251%endif
[42]252
253
254;--------------------------------------------------------------------
255; DisplayPrint_RepeatCharacterFromALwithCountInCX
256; Parameters:
257; AL: Character to display
258; CX: Repeat count
259; DS: BDA segment (zero)
260; ES:DI: Ptr to cursor location in video RAM
261; Returns:
262; DI: Updated offset to video RAM
263; Corrupts registers:
[181]264; DX
[42]265;--------------------------------------------------------------------
266ALIGN JUMP_ALIGN
267DisplayPrint_RepeatCharacterFromALwithCountInCX:
[44]268 jcxz .NothingToRepeat
269 push cx
270
271ALIGN JUMP_ALIGN
272.RepeatCharacter:
[42]273 push ax
274 call DisplayPrint_CharacterFromAL
275 pop ax
[44]276 loop .RepeatCharacter
277
278 pop cx
279.NothingToRepeat:
[186]280
[42]281 ret
[186]282
283;--------------------------------------------------------------------
284; DisplayPrint_NullTerminatedStringFromCSSI
285; Parameters:
286; CS:SI: Ptr to NULL terminated string
287; DS: BDA segment (zero)
288; ES:DI: Ptr to cursor location in video RAM
289; Returns:
290; DI: Updated offset to video RAM
291; Corrupts registers:
292; AX, DX
293;--------------------------------------------------------------------
294
295%ifndef MODULE_STRINGS_COMPRESSED
296;;;
297;;; Take care when using this routine with compressed strings (which is why it is disabled).
298;;; All strings in CSSI should go through the DisplayFormatCompressed code to be decoded.
299;;;
300ALIGN JUMP_ALIGN
301DisplayPrint_NullTerminatedStringFromCSSI:
302 push bx
303 mov bx, cs
304 call DisplayPrint_NullTerminatedStringFromBXSI
305 pop bx
306
307 ret
308%endif
[42]309
[186]310
[42]311
[186]312
313;;;
314;;; Note that the following routines need to be at the bottom of this file
315;;; to accomodate short jumps from the next file (DisplayFormat/DisplayFormatCompressed)
316;;;
317
[42]318;--------------------------------------------------------------------
[44]319; DisplayPrint_Newline
320; Parameters:
321; DS: BDA segment (zero)
322; ES:DI: Ptr to cursor location in video RAM
323; Returns:
324; DI: Updated offset to video RAM
325; Corrupts registers:
326; AX, DX
327;--------------------------------------------------------------------
[186]328%ifdef MODULE_STRINGS_COMPRESSED
[44]329ALIGN JUMP_ALIGN
[186]330DisplayPrint_Newline_FormatAdjustBP:
331 inc bp ; we didn't need a parameter after all, readjust BP
332 inc bp
[194]333 ; fall through to DisplayPrint_Newline
[186]334%endif
335
336ALIGN JUMP_ALIGN
337
[44]338DisplayPrint_Newline:
[52]339 mov al, LF
340 call DisplayPrint_CharacterFromAL
[44]341 mov al, CR
342 ; Fall to DisplayPrint_CharacterFromAL
343
344;--------------------------------------------------------------------
[42]345; DisplayPrint_CharacterFromAL
346; Parameters:
347; AL: Character to display
[186]348; Zero value is ignored (no characer is printed)
[42]349; DS: BDA segment (zero)
350; ES:DI: Ptr to cursor location in video RAM
351; Returns:
352; DI: Updated offset to video RAM
353; Corrupts registers:
354; AX, DX
355;--------------------------------------------------------------------
356ALIGN JUMP_ALIGN
357DisplayPrint_CharacterFromAL:
[186]358%ifdef MODULE_STRINGS_COMPRESSED
359 test al,al
360 jz DisplayPrint_Ret
361%endif
[42]362 mov ah, [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute]
363 jmp [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.fnCharOut]
[186]364
365
366
367;--------------------------------------------------------------------
368; DisplayPrint_NullTerminatedStringFromBXSI
369; Parameters:
370; DS: BDA segment (zero)
371; BX:SI: Ptr to NULL terminated string
372; ES:DI: Ptr to cursor location in video RAM
373; Returns:
374; DI: Updated offset to video RAM
375; Corrupts registers:
376; AX, DX
377;--------------------------------------------------------------------
378ALIGN JUMP_ALIGN
379DisplayPrint_NullTerminatedStringFromBXSI:
380 push si
381 push cx
382
383 xor cx, cx
384ALIGN JUMP_ALIGN
385.PrintNextCharacter:
386 mov ds, bx ; String segment to DS
387 lodsb
388 mov ds, cx ; BDA segment to DS
389 test al, al ; NULL?
390 jz SHORT .EndOfString
391 call DisplayPrint_CharacterFromAL
392 jmp SHORT .PrintNextCharacter
393
394ALIGN JUMP_ALIGN
395.EndOfString:
396 pop cx
397 pop si
398
399DisplayPrint_Ret: ; random ret to jump to
400 ret
401
402
Note: See TracBrowser for help on using the repository browser.