source: xtideuniversalbios/trunk/Assembly_Library/Src/Display/DisplayFormat.asm@ 143

Last change on this file since 143 was 134, checked in by Tomi Tilli, 14 years ago

Changes to Assembly Library:

  • Excluded some format specifiers and related printing functions not used by XTIDE Universal BIOS.
File size: 10.9 KB
Line 
1; Project name : Assembly Library
2; Description : Functions for displaying formatted strings.
3
4; Section containing code
5SECTION .text
6
7;--------------------------------------------------------------------
8; DisplayFormat_ParseCharacters
9; Parameters:
10; DS: BDA segment (zero)
11; SS:BP: Pointer to first format parameter (-=2 updates to next parameter)
12; CS:SI: Pointer to string to format
13; ES:DI: Ptr to cursor location in video RAM
14; Returns:
15; CS:SI: Ptr to end of format string (ptr to one past NULL)
16; DI: Updated offset to video RAM
17; Corrupts registers:
18; AX, BX, CX, DX, BP
19;--------------------------------------------------------------------
20ALIGN JUMP_ALIGN
21DisplayFormat_ParseCharacters:
22 call ReadCharacterAndTestForNull
23 jz SHORT ReturnFromFormat
24
25 ePUSH_T cx, DisplayFormat_ParseCharacters ; Return address
26 xor cx, cx ; Initial placeholder size
27 cmp al, '%' ; Format specifier?
28 jne SHORT DisplayPrint_CharacterFromAL
29 ; Fall to ParseFormatSpecifier
30
31;--------------------------------------------------------------------
32; ParseFormatSpecifier
33; Parameters:
34; CX: Placeholder size
35; DS: BDA segment (zero)
36; SS:BP: Pointer to first format parameter (-=2 for next parameter)
37; CS:SI: Pointer to string to format
38; ES:DI: Ptr to cursor location in video RAM
39; Returns:
40; SI: Updated to first unparsed character
41; DI: Updated offset to video RAM
42; BP: Updated to next format parameter
43; Corrupts registers:
44; AX, BX, CX, DX
45;--------------------------------------------------------------------
46ParseFormatSpecifier:
47 call ReadCharacterAndTestForNull
48 call Char_IsDecimalDigitInAL
49 jc SHORT ParsePlaceholderSizeDigitFromALtoCX
50 call GetFormatSpecifierParserToAX
51 call ax ; Parser function
52 dec bp
53 dec bp ; SS:BP now points to next parameter
54 test cx, cx
55 jnz SHORT PrependOrAppendSpaces
56ReturnFromFormat:
57 ret
58
59;--------------------------------------------------------------------
60; ParsePlaceholderSizeDigitFromALtoCX
61; Parameters:
62; AL: Digit character from format string
63; CX: Current placeholder size
64; DS: BDA segment (zero)
65; Returns:
66; CX: Current placeholder size
67; Jumps back to ParseFormatSpecifier
68; Corrupts registers:
69; AX
70;--------------------------------------------------------------------
71ALIGN JUMP_ALIGN
72ParsePlaceholderSizeDigitFromALtoCX:
73 mov [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.fpCursorPosition], di
74 sub al, '0' ; Digit '0'...'9' to integer 0...9
75 mov ah, cl ; Previous number parameter to AH
76 aad ; AL += (AH * 10)
77 mov cl, al ; Updated number parameter now in CX
78 jmp SHORT ParseFormatSpecifier
79
80
81;--------------------------------------------------------------------
82; ReadCharacterAndTestForNull
83; Parameters:
84; CS:SI: Pointer next character from string
85; Returns:
86; AL: Character from string
87; SI: Incremented to next character
88; ZF: Set if NULL, cleared if valid character
89; Corrupts registers:
90; Nothing
91;--------------------------------------------------------------------
92ALIGN JUMP_ALIGN
93ReadCharacterAndTestForNull:
94 eSEG cs
95 lodsb ; Load from CS:SI to AL
96 test al, al ; NULL to end string?
97 ret
98
99
100;--------------------------------------------------------------------
101; GetFormatSpecifierParserToAX
102; Parameters:
103; AL: Format specifier character
104; Returns:
105; AX: Offset to parser function
106; Corrupts registers:
107; AX, BX
108;--------------------------------------------------------------------
109ALIGN JUMP_ALIGN
110GetFormatSpecifierParserToAX:
111 mov bx, .rgcFormatCharToLookupIndex
112ALIGN JUMP_ALIGN
113.CheckForNextSpecifierParser:
114 cmp al, [cs:bx]
115 je SHORT .ConvertIndexToFunctionOffset
116 inc bx
117 cmp bx, .rgcFormatCharToLookupIndexEnd
118 jb SHORT .CheckForNextSpecifierParser
119 mov ax, c_FormatCharacter
120 ret
121ALIGN JUMP_ALIGN
122.ConvertIndexToFunctionOffset:
123 sub bx, .rgcFormatCharToLookupIndex
124 shl bx, 1 ; Shift for WORD lookup
125 mov ax, [cs:bx+.rgfnFormatSpecifierParser]
126 ret
127
128.rgcFormatCharToLookupIndex:
129%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
130 db "aAduxsSct-+%"
131%else
132 db "Auxsc-" ; Required by XTIDE Universal BIOS
133%endif
134.rgcFormatCharToLookupIndexEnd:
135ALIGN WORD_ALIGN
136.rgfnFormatSpecifierParser:
137%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
138 dw a_FormatAttributeForNextCharacter
139%endif
140 dw A_FormatAttributeForRemainingString
141%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
142 dw d_FormatSignedDecimalWord
143%endif
144 dw u_FormatUnsignedDecimalWord
145 dw x_FormatHexadecimalWord
146 dw s_FormatStringFromSegmentCS
147%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
148 dw S_FormatStringFromFarPointer
149%endif
150 dw c_FormatCharacter
151%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
152 dw t_FormatRepeatCharacter
153%endif
154 dw PrepareToPrependParameterWithSpaces
155%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
156 dw PrepareToAppendSpacesAfterParameter
157 dw percent_FormatPercent
158%endif
159
160
161;--------------------------------------------------------------------
162; PrependOrAppendSpaces
163; Parameters:
164; CX: Minimum length for format specifier in characters
165; DS: BDA segment (zero)
166; ES:DI: Ptr to cursor location in video RAM
167; Returns:
168; Nothing
169; Corrupts registers:
170; AX, BX, CX, DX
171;--------------------------------------------------------------------
172ALIGN JUMP_ALIGN
173PrependOrAppendSpaces:
174 mov ax, di
175 sub ax, [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.fpCursorPosition]
176 test cx, cx
177 js SHORT .PrependWithSpaces
178 ; Fall to .AppendSpaces
179
180;--------------------------------------------------------------------
181; .AppendSpaces
182; Parameters:
183; AX: Number of format parameter BYTEs printed
184; CX: Minimum length for format specifier in characters
185; DS: BDA segment (zero)
186; ES:DI: Ptr to cursor location in video RAM
187; Returns:
188; Nothing
189; Corrupts registers:
190; AX, CX, DX
191;--------------------------------------------------------------------
192.AppendSpaces:
193 call DisplayContext_GetCharacterOffsetToAXfromByteOffsetInAX
194 sub cx, ax
195 jle SHORT .NothingToAppendOrPrepend
196 mov al, ' '
197 jmp DisplayPrint_RepeatCharacterFromALwithCountInCX
198
199;--------------------------------------------------------------------
200; .PrependWithSpaces
201; Parameters:
202; AX: Number of format parameter BYTEs printed
203; CX: Negative minimum length for format specifier in characters
204; DS: BDA segment (zero)
205; ES:DI: Ptr to cursor location in video RAM
206; Returns:
207; Nothing
208; Corrupts registers:
209; AX, BX, CX, DX
210;--------------------------------------------------------------------
211ALIGN JUMP_ALIGN
212.PrependWithSpaces:
213 xchg ax, cx
214 neg ax
215 call DisplayContext_GetByteOffsetToAXfromCharacterOffsetInAX
216 sub ax, cx ; AX = BYTEs to prepend, CX = BYTEs to move
217 jle SHORT .NothingToAppendOrPrepend
218
219 std
220 push si
221
222 lea si, [di-1] ; SI = Offset to last byte formatted
223 add di, ax ; DI = Cursor location after preceeding completed
224 push di
225 dec di ; DI = Offset where to move last byte formatted
226 xchg bx, ax ; BX = BYTEs to prepend
227 call .ReverseCopyCXbytesFromESSItoESDI
228 xchg ax, bx
229 call .ReversePrintAXspacesStartingFromESDI
230
231 pop di
232 pop si
233 cld ; Restore DF
234.NothingToAppendOrPrepend:
235 ret
236
237;--------------------------------------------------------------------
238; .ReverseCopyCXbytesFromESSItoESDI
239; Parameters:
240; CX: Number of bytes to copy
241; DS: BDA segment (zero)
242; ES:SI: Ptr to old location
243; ES:DI: Ptr to new location
244; Returns:
245; DI: Updated to before last character copied
246; Corrupts registers:
247; AX, CX, DX, SI
248;--------------------------------------------------------------------
249ALIGN JUMP_ALIGN
250.ReverseCopyCXbytesFromESSItoESDI:
251 test BYTE [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bFlags], FLG_CONTEXT_ATTRIBUTES
252 jz SHORT .CopyWithoutDisplayProcessing
253
254 WAIT_RETRACE_IF_NECESSARY_THEN rep movsb
255 dec di ; Point to preceeding character instead of attribute
256 ret
257ALIGN JUMP_ALIGN
258.CopyWithoutDisplayProcessing:
259 eSEG_STR rep, es, movsb
260 ret
261
262;--------------------------------------------------------------------
263; .ReversePrintAXspacesStartingFromESDI
264; Parameters:
265; AX: Number of spaces to print
266; DS: BDA segment (zero)
267; ES:DI: Ptr to destination in video RAM
268; Returns:
269; DI: Updated
270; Corrupts registers:
271; AX, CX, DX
272ALIGN JUMP_ALIGN
273.ReversePrintAXspacesStartingFromESDI:
274 call DisplayContext_GetCharacterOffsetToAXfromByteOffsetInAX
275 xchg cx, ax ; CX = Spaces to prepend
276 mov al, ' '
277 jmp DisplayPrint_RepeatCharacterFromALwithCountInCX
278
279
280
281;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
282; Formatting functions
283; Parameters:
284; DS: BDA segment (zero)
285; SS:BP: Pointer to next format parameter (-=2 updates to next parameter)
286; ES:DI: Ptr to cursor location in video RAM
287; Returns:
288; SS:BP: Points to last WORD parameter used
289; Corrupts registers:
290; AX, BX, DX
291;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
292%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
293ALIGN JUMP_ALIGN
294a_FormatAttributeForNextCharacter:
295 mov bl, [bp]
296 xchg bl, [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute]
297 push bx
298 push cx
299 push di
300 call DisplayFormat_ParseCharacters ; Recursive call
301 pop WORD [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.fpCursorPosition]
302 pop cx
303 pop bx
304 mov [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute], bl
305 ret
306%endif
307
308ALIGN JUMP_ALIGN
309A_FormatAttributeForRemainingString:
310 mov al, [bp]
311 mov [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.bAttribute], al
312 ret
313
314%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
315ALIGN JUMP_ALIGN
316d_FormatSignedDecimalWord:
317 mov ax, [bp]
318 mov bx, 10
319 jmp DisplayPrint_SignedWordFromAXWithBaseInBX
320%endif
321
322ALIGN JUMP_ALIGN
323u_FormatUnsignedDecimalWord:
324 mov ax, [bp]
325 mov bx, 10
326 jmp DisplayPrint_WordFromAXWithBaseInBX
327
328ALIGN JUMP_ALIGN
329x_FormatHexadecimalWord:
330 mov ax, [bp]
331 mov bx, 16
332 call DisplayPrint_WordFromAXWithBaseInBX
333 mov al, 'h'
334 jmp DisplayPrint_CharacterFromAL
335
336ALIGN JUMP_ALIGN
337s_FormatStringFromSegmentCS:
338 xchg si, [bp]
339 call DisplayPrint_NullTerminatedStringFromCSSI
340 mov si, [bp]
341 ret
342
343%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
344ALIGN JUMP_ALIGN
345S_FormatStringFromFarPointer:
346 mov bx, [bp-2]
347 xchg si, [bp]
348 call DisplayPrint_NullTerminatedStringFromBXSI
349 mov si, [bp]
350 dec bp
351 dec bp
352 ret
353%endif
354
355ALIGN JUMP_ALIGN
356c_FormatCharacter:
357 mov al, [bp]
358 jmp DisplayPrint_CharacterFromAL
359
360%ifndef EXCLUDE_FROM_XTIDE_UNIVERSAL_BIOS
361ALIGN JUMP_ALIGN
362t_FormatRepeatCharacter:
363 push cx
364 mov cx, [bp-2]
365 mov al, [bp]
366 call DisplayPrint_RepeatCharacterFromALwithCountInCX
367 pop cx
368 dec bp
369 dec bp
370 ret
371
372ALIGN JUMP_ALIGN
373percent_FormatPercent:
374 mov al, '%'
375 jmp DisplayPrint_CharacterFromAL
376%endif
377
378ALIGN JUMP_ALIGN
379PrepareToPrependParameterWithSpaces:
380 neg cx
381 ; Fall to PrepareToAppendSpacesAfterParameter
382
383ALIGN JUMP_ALIGN
384PrepareToAppendSpacesAfterParameter:
385 add sp, BYTE 2 ; Remove return offset
386 jmp ParseFormatSpecifier
Note: See TracBrowser for help on using the repository browser.