source: xtideuniversalbios/trunk/Assembly_Library/Src/Menu/CharOutLineSplitter.asm@ 97

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

Changes to Assembly Library:
Completely rewritten line splitting (slower but no need to modify string).
Some changes to string processing functions.
Saved few bytes from CGA detection.
File size: 5.2 KB
Line 
1; File name : CharOutLineSplitter.asm
2; Project name : Assembly Library
3; Created date : 11.10.2010
4; Last update : 12.10.2010
5; Author : Tomi Tilli
6; Description : Functions for splitting menu lines during character output.
7
8; Section containing code
9SECTION .text
10
11;--------------------------------------------------------------------
12; CharOutLineSplitter_PrepareForPrintingTextLines
13; Parameters:
14; SS:BP: Ptr to MENU
15; Returns:
16; Nothing
17; Corrupts registers:
18; AX, DX, DI
19;--------------------------------------------------------------------
20ALIGN JUMP_ALIGN
21CharOutLineSplitter_PrepareForPrintingTextLines:
22 call .GetLastTextLineColumnOffsetToDX
23 call CharOutLineSplitter_GetFirstTextLineColumnOffsetToAX
24 mov ah, dl ; AL = Text line first column, AH = Text line last column
25 CALL_DISPLAY_LIBRARY SetCharacterOutputParameterFromAX
26 ret
27
28;--------------------------------------------------------------------
29; .GetLastTextLineColumnOffsetToDX
30; Parameters:
31; SS:BP: Ptr to MENU
32; Returns:
33; DX: Offset to last (allowed) character in text line
34; Corrupts registers:
35; AX
36;--------------------------------------------------------------------
37ALIGN JUMP_ALIGN
38.GetLastTextLineColumnOffsetToDX:
39 call CharOutLineSplitter_GetFirstTextLineColumnOffsetToAX
40 xchg dx, ax
41 call MenuLocation_GetMaxTextLineLengthToAX
42 shl ax, 1
43 add dx, ax
44 ret
45
46
47;--------------------------------------------------------------------
48; CharOutLineSplitter_GetFirstTextLineColumnOffsetToAX
49; CharOutLineSplitter_GetFirstBorderLineColumnOffsetToAX
50; Parameters:
51; SS:BP: Ptr to MENU
52; Returns:
53; AX: Offset to end of text line (first border area character)
54; Corrupts registers:
55; Nothing
56;--------------------------------------------------------------------
57ALIGN JUMP_ALIGN
58CharOutLineSplitter_GetFirstTextLineColumnOffsetToAX:
59 call CharOutLineSplitter_GetFirstBorderLineColumnOffsetToAX
60 add al, MENU_TEXT_COLUMN_OFFSET<<1
61 ret
62
63ALIGN JUMP_ALIGN
64CharOutLineSplitter_GetFirstBorderLineColumnOffsetToAX:
65 call MenuLocation_GetTitleBordersTopLeftCoordinatesToAX
66 xor ah, ah
67 shl ax, 1
68 ret
69
70
71;--------------------------------------------------------------------
72; CharOutLineSplitter_IsCursorAtTheEndOfTextLine
73; Parameters:
74; DS: BDA segment (zero)
75; ES:DI: Ptr to cursor location in video memory
76; Returns:
77; CF: Set if end of text line
78; Clear if more characters fit on current text line
79; Corrupts registers:
80; DX
81;--------------------------------------------------------------------
82ALIGN JUMP_ALIGN
83CharOutLineSplitter_IsCursorAtTheEndOfTextLine:
84 push ax
85
86 mov dl, [VIDEO_BDA.wColumns]
87 shl dl, 1 ; DX = bytes per row
88 mov ax, di
89 div dl ; AL = row index, AH = column index
90 cmp [VIDEO_BDA.displayContext+DISPLAY_CONTEXT.wCharOutParam+1], ah
91
92 pop ax
93 ret
94
95
96;--------------------------------------------------------------------
97; CharOutLineSplitter_MovePartialWordToNewTextLine
98; Parameters:
99; AL: Character to output
100; AH: Attribute to output
101; DS: BDA segment (zero)
102; ES:DI: Ptr to end of text line in video memory
103; Returns:
104; DI: Updated to next character for new text line
105; Corrupts registers:
106; AX, DX
107;--------------------------------------------------------------------
108ALIGN JUMP_ALIGN
109CharOutLineSplitter_MovePartialWordToNewTextLine:
110 push si
111 push cx
112 push ax
113
114 call GetOffsetToPartialWordToSIandSizeToCX
115 call MenuCharOut_PrintLFCRandAdjustOffsetForStartOfLine
116 jcxz .NothingToMove
117 call MovePartialWordFromPreviousLineInESSItoNewLineInESDIwithSizeInCX
118.NothingToMove:
119 pop ax
120 pop cx
121 pop si
122 ret
123
124
125;--------------------------------------------------------------------
126; GetOffsetToPartialWordToSIandSizeToCX
127; Parameters:
128; ES:DI: Ptr to space before border character
129; Returns:
130; CX: Number of bytes that needs to be moved
131; ES:SI: Ptr to beginning of partial word that needs to be moved to new line
132; Corrupts registers:
133; Nothing
134;--------------------------------------------------------------------
135ALIGN JUMP_ALIGN
136GetOffsetToPartialWordToSIandSizeToCX:
137 xor cx, cx
138 mov si, di
139ALIGN JUMP_ALIGN
140.ScanNextCharacter: ; Space will always be found since one comes after border
141 dec si
142 dec si
143 cmp BYTE [es:si], ' '
144 je SHORT .PartialWordFound
145 inc cx
146 jmp SHORT .ScanNextCharacter
147ALIGN JUMP_ALIGN
148.PartialWordFound:
149 inc si
150 inc si ; SI now points one past space
151 shl cx, 1 ; Characters to bytes
152 ret
153
154
155;--------------------------------------------------------------------
156; MovePartialWordFromPreviousLineInESSItoNewLineInESDIwithSizeInCX
157; Parameters:
158; CX: Number of BYTEs in partial word
159; DS: BDA segment (zero)
160; ES:SI: Ptr to partial word on previous line
161; ES:DI: Ptr to new empty line
162; Returns:
163; ES:DI: Ptr where to store next character
164; Corrupts registers:
165; AX, CX, DX, SI
166;--------------------------------------------------------------------
167ALIGN JUMP_ALIGN
168MovePartialWordFromPreviousLineInESSItoNewLineInESDIwithSizeInCX:
169 push si
170 push cx
171 WAIT_RETRACE_IF_NECESSARY_THEN rep movsb
172 pop cx
173 pop si
174
175 xchg di, si
176 shr cx, 1 ; Bytes to characters
177 mov al, ' '
178 call DisplayPrint_RepeatCharacterFromALwithCountInCX
179 mov di, si
180 ret
Note: See TracBrowser for help on using the repository browser.