source: xtideuniversalbios/trunk/Configurator/Src/Libraries/menu/menudraw.asm@ 175

Last change on this file since 175 was 170, checked in by krille_n_@…, 13 years ago

Changes to all parts of the project:

  • Minor size optimizations
  • Commented away some ALIGN JUMP_ALIGN directives in the Int13h handler (they are either in init procedures, procedures that are rarely called or are unnecessary due to conditional assembly)
  • Fixed what appears to be a typo in EBIOS.inc
File size: 14.1 KB
RevLine 
[2]1; Project name : Menu library
2; Description : ASM library to menu system.
3; Contains menu drawing functions.
4
5;--------------- Equates -----------------------------
6
7
8
9;-------------- Private global variables -------------
10; Section containing initialized data
11;SECTION .data
12
13g_strTimeout: db B_LL,BHL_TVR,"Selection Timeout %us",TVL_BHR,STOP
14
15
16;-------------- Public functions ---------------------
17; Section containing code
18SECTION .text
19
20
21;--------------------------------------------------------------------
22; Clears screen.
23;
24; Parameters:
25; Nothing
26; Returns:
27; Nothing
28; Corrupts registers:
29; AX, BX, CX, DX
30;--------------------------------------------------------------------
31ALIGN JUMP_ALIGN
32MenuDraw_ClrScr:
33 xor dx, dx ; Cursor to (0,0)
34 call MenuCrsr_SetCursor
35 mov ah, 0Fh ; Get Current Video Mode
36 int 10h
37 mov al, CNT_SCRN_ROW ; Load row count
38 mul ah ; AX=Column count * row count
[78]39 mov cx, 0920h ; Write Char and attr, space char
[2]40 mov bx, ATTR_MDA_NORMAL ; Page zero, normal attribute
[78]41 xchg cx, ax ; CX=Char count AX=Space char and attr
[2]42 int 10h
43 ret
44
45
46;--------------------------------------------------------------------
47; Changes line. When printing menu strings, this function must be
48; called instead of normal Print_Newline.
49;
50; MenuDraw_NewlineStrClrLn Clear current line from cursor pos before newline
51; MenuDraw_NewlineStr
52; Parameters:
53; SS:BP: Ptr to MENUVARS
54; Returns:
55; Nothing
56; Corrupts registers:
57; AX, BX, DX
58;--------------------------------------------------------------------
59ALIGN JUMP_ALIGN
60MenuDraw_NewlineStrClrLn:
61 push cx
62 call MenuCrsr_GetCursor ; Get current cursor to DX
63 eMOVZX cx, BYTE [bp+MENUVARS.bWidth] ; Load menu width
64 add cl, [bp+MENUVARS.bInitX] ; Add menu start X coord
65 sub cl, W_OFF_CRSR_STR & 0FFh ; Subtract right borders
66 sub cl, dl ; Subtract current X coord
67 mov dl, ' ' ; Clear with space
68 call Print_Repeat ; Clear line to the end
69 pop cx
70ALIGN JUMP_ALIGN
71MenuDraw_NewlineStr:
72 push cx
73 call MenuCrsr_GetCursor ; Get current cursor to DX
74 mov dl, [bp+MENUVARS.bInitX] ; Load X offset to border
75 add dx, W_OFF_CRSR_STR ; Inc X and Y
76 call MenuCrsr_SetCursor ; Set new cursor
77 pop cx
78 ret
79
80
81;--------------------------------------------------------------------
82; Draws multiline Title or Info string.
83;
84; MenuDraw_MultilineStr
85; Parameters:
86; CX: Max Title or Info line count (menu initialization params)
87; ES:DI: Ptr to STOP terminated string to display
88; SS:BP: Ptr to MENUVARS
89; Returns:
90; Nothing
91; Corrupts registers:
92; AX, BX, CX, DX
93;--------------------------------------------------------------------
94%ifdef USE_MENU_DIALOGS
95ALIGN JUMP_ALIGN
96MenuDraw_MultilineStr:
97 push si
98 xor si, si
99ALIGN JUMP_ALIGN
100.LineLoop:
101 xchg cx, si ; Idx to CX, count to SI
102 push cx
103 call MenuMsg_WriteLine ; Write line
104 pop cx
105 jc .Return ; Return if last token written
106 call MenuDraw_NewlineStr ; Cursor to next line
107 inc cx ; Increment line index
108 xchg cx, si ; Count to CX, idx to SI
109 loop .LineLoop ; Loop while lines left
110ALIGN JUMP_ALIGN
111.Return:
112 pop si
113 ret
114%endif ; USE_MENU_DIALOGS
115
116
117;--------------------------------------------------------------------
118; Draws menu component.
119;
120; MenuDraw_Title Draws Title borders and user string
121; MenuDraw_Info Draws Info borders and user string
122; MenuDraw_AllItems Draws Item borders and all user menuitems
123; MenuDraw_TitleNoBord MenuDraw_Title without clearing old chars
124; MenuDraw_InfoNoBord MenuDraw_Info without clearing old chars
125; MenuDraw_AllItemsNoBord MenuDraw_AllItems without clearing old chars
126; Parameters:
127; SS:BP: Ptr to MENUVARS
128; Returns:
129; Nothing
130; Corrupts registers:
131; AX, BX, CX, DX
132;--------------------------------------------------------------------
133;ALIGN JUMP_ALIGN
134;MenuDraw_Title:
135; call MenuDraw_TitleBorders ; Draw borders to clear old strings
136ALIGN JUMP_ALIGN
137MenuDraw_TitleNoBord:
138 cmp BYTE [bp+MENUVARS.bTitleH], 0 ; Any title strings?
139 jz MenuDraw_NothingToDraw ; If not, return
140 call MenuCrsr_PointTitle ; Set cursor position
141 mov dl, MFL_UPD_TITLE ; Update title string
142 jmp MenuDraw_SendEvent
143
144;ALIGN JUMP_ALIGN
145;MenuDraw_Info:
146; call MenuDraw_InfoBorders ; Draw borders to clear old strings
147ALIGN JUMP_ALIGN
148MenuDraw_InfoNoBord:
149 cmp BYTE [bp+MENUVARS.bInfoH], 0 ; Any info strings?
150 jz MenuDraw_NothingToDraw ; If not, return
151 test BYTE [bp+MENUVARS.bFlags], FLG_MNU_HIDENFO
152 jnz MenuDraw_NothingToDraw ; Return if info is hidden
153 call MenuCrsr_PointInfo ; Set cursor position
154 mov dl, MFL_UPD_NFO ; Update title string
155 jmp MenuDraw_SendEvent
156
157;ALIGN JUMP_ALIGN
158;MenuDraw_AllItems:
159; call MenuDraw_ItemBorders ; Draw borders to clear old strings
160ALIGN JUMP_ALIGN
[170]161MenuDraw_AllItemsNoBord:
[2]162 cmp WORD [bp+MENUVARS.wItemCnt], 0 ; Any items to draw?
163 jz MenuDraw_NothingToDraw ; If not, return
164 call MenuCrsr_Point1stItem ; Set cursor position
165 mov cx, [bp+MENUVARS.wItemTop] ; Load idx of first menuitem to draw
166 eMOVZX dx, BYTE [bp+MENUVARS.bVisCnt] ; Load number of visible menuitems
167 MIN_U dx, [bp+MENUVARS.wItemCnt] ; Limit to item count
168 add dx, cx ; One past last menuitem to draw
169ALIGN JUMP_ALIGN
170.DrawLoop:
171 push dx
172 call MenuDraw_Item ; Draw menuitem
173 pop dx
174 inc cx ; Increment menuitem index
175 cmp cx, dx ; More items left?
176 jb .DrawLoop ; If so, loop
177 jmp MenuDraw_NothingToDraw
178
179ALIGN JUMP_ALIGN
180MenuDraw_SendEvent:
181 mov bx, EVNT_MNU_UPD ; Update string
182 call MenuLoop_SendEvent
183ALIGN JUMP_ALIGN
184MenuDraw_NothingToDraw:
185 call MenuCrsr_PointBelowBrdr ; Cursor to safe location
186 ret
187
188
189;--------------------------------------------------------------------
190; Draws Menuitem without borders.
191; This function does not set initial cursor position but does
192; change line for next menuitem!
193;
194; MenuDraw_Item
195; Parameters:
196; CX: Index of menuitem to draw
197; SS:BP: Ptr to MENUVARS
198; Returns:
199; AL: 1=Menuitem drawed by user event handler
200; 0=Menuitem not drawed by user event handler
201; Corrupts registers:
202; AH, BX, DX
203;--------------------------------------------------------------------
204ALIGN JUMP_ALIGN
205MenuDraw_Item:
206 push cx
207 test BYTE [bp+MENUVARS.bFlags], FLG_MNU_NOARRW
208 jnz .DrawString ; Don't draw arrow unless wanted
209 mov dl, RARROW ; Prepare to draw selection arrow
210 cmp cx, [bp+MENUVARS.wItemSel] ; Drawing selected item?
211 je .DrawArrow ; If so, jump to draw arrow
212 mov dl, ' ' ; Load space instead of arrow
213ALIGN JUMP_ALIGN
214.DrawArrow:
215 PRINT_CHAR
216 mov dl, ' ' ; Draw space before user str
217 PRINT_CHAR
218ALIGN JUMP_ALIGN
219.DrawString:
220 mov dl, MFL_UPD_ITEM ; Draw item string
221 mov bx, EVNT_MNU_UPD ; Update string
222 call [bp+MENUVARS.fnEvent] ; Send event
223 call MenuDraw_NewlineStr ; Move cursor to next menuitem
224 pop cx
225 ret
226
227
228;-------------- Private functions --------------------
229
230;--------------------------------------------------------------------
231; Changes line. When printing menu borders, this function must be
232; called instead of normal Print_Newline.
233; Parameters:
234; SS:BP: Ptr to MENUVARS
235; Returns:
236; Nothing
237; Corrupts registers:
238; AX, BX, CX, DX
239;--------------------------------------------------------------------
240ALIGN JUMP_ALIGN
241MenuDraw_NewlineBrdr:
242 call MenuCrsr_GetCursor ; Get current cursor to DX
243 mov dl, [bp+MENUVARS.bInitX] ; Load X offset to border
244 inc dh ; Increment Y coordinate
245 jmp MenuCrsr_SetCursor ; Set new cursor
246
247
248;--------------------------------------------------------------------
249; Draws menu borders. User strings will be cleared.
250;
251; MenuDraw_TitleBorders Draws Title borders
252; MenuDraw_InfoBorders Draws Info borders
253; MenuDraw_ItemBorders Draws Item borders
254; MenuDraw_Timeout Draw timeout border (not whole InfoBorders)
255; Parameters:
256; SS:BP: Ptr to MENUVARS
257; Returns:
258; Nothing
259; Corrupts registers:
260; AX, BX, CX, DX
261;--------------------------------------------------------------------
262ALIGN JUMP_ALIGN
263MenuDraw_TitleBorders:
264 xor dx, dx ; Zero DX
265 call MenuCrsr_PointTitleBrdr ; Set cursor
266 call MenuDraw_TopBorder ; Draw top border
267 call MenuDraw_NewlineBrdr ; Change line
268 eMOVZX cx, BYTE [bp+MENUVARS.bTitleH] ; Load number of title strings
269 jcxz .Return ; Return if no title strings
270ALIGN JUMP_ALIGN
271.LineLoop:
272 push cx
273 call MenuDraw_StringBorder
274 call MenuDraw_NewlineBrdr
275 pop cx
276 loop .LineLoop
277 jmp MenuDraw_MiddleBorder ; Thin border before menuitems
278ALIGN JUMP_ALIGN
279.Return:
280 ret
281
282ALIGN JUMP_ALIGN
283MenuDraw_InfoBorders:
284 xor dx, dx ; Zero DX
285 call MenuCrsr_PointNfoBrdr ; Set cursor
[9]286 eMOVZX cx, BYTE [bp+MENUVARS.bInfoH] ; Load number of info strings
287 test BYTE [bp+MENUVARS.bFlags], FLG_MNU_HIDENFO ; Information hidden?
288 jnz SHORT .JumpToBottomBorder
289 test cx, cx ; Any info strings?
290 jz SHORT MenuDraw_BottomBorder
291 push cx
[2]292 call MenuDraw_MiddleBorder ; Draw middle border
293 call MenuDraw_NewlineBrdr ; Change line
[9]294 pop cx
[2]295ALIGN JUMP_ALIGN
296.LineLoop:
297 push cx
298 call MenuDraw_StringBorder
299 call MenuDraw_NewlineBrdr
300 pop cx
301 loop .LineLoop
302ALIGN JUMP_ALIGN
[9]303.JumpToBottomBorder:
304 jmp SHORT MenuDraw_BottomBorder
305
306ALIGN JUMP_ALIGN
[2]307MenuDraw_Timeout:
308 xor dx, dx ; Zero DX
309 call MenuCrsr_PointNfoBrdr ; Set cursor
310 mov ch, [bp+MENUVARS.bInfoH] ; Load info str count to CH
[9]311 and cx, 0FF00h ; Any info strings? (clears CL)
312 jz SHORT MenuDraw_BottomBorder ; If not, draw bottom border
[2]313 inc ch ; Increment for info top border
314 call MenuCrsr_Move ; Move cursor
[9]315 jmp SHORT MenuDraw_BottomBorder
[2]316
317ALIGN JUMP_ALIGN
318MenuDraw_ItemBorders:
[9]319 cmp WORD [bp+MENUVARS.wItemCnt], BYTE 0 ; Any items?
320 jz SHORT .Return ; If not, return
[2]321 xor dx, dx ; Zero DX
322 call MenuCrsr_PointItemBrdr ; Set cursor
323 eMOVZX cx, BYTE [bp+MENUVARS.bVisCnt] ; Load max number of item strings
324ALIGN JUMP_ALIGN
325.LineLoop:
326 push cx
327 call MenuDraw_ScrollBorder
328 call MenuDraw_NewlineBrdr
329 pop cx
330 loop .LineLoop
331.Return:
332 ret
333
334
335;--------------------------------------------------------------------
336; Draw horizontal border line to current cursor location.
337; MenuDraw_TopBorder Draw thick top menu border
338; MenuDraw_StringBorder Draw thick user string border
339; MenuDraw_ScrollBorder Draw scrolling border for menuitems
340; MenuDraw_MiddleBorder Draw thin middle menu border
341; MenuDraw_BottomBorder Draw thick bottom menu border with timeout if set
342; Parameters:
343; CX: Loop counter (Items left, MenuDraw_ScrollBorder only)
344; SS:BP: Ptr to MENUVARS
345; Returns:
346; Nothing
347; Corrupts registers:
348; AX, BX, CX, DX
349;--------------------------------------------------------------------
350ALIGN JUMP_ALIGN
351MenuDraw_TopBorder:
[78]352 mov bx, (B_TL << 8) + B_H
[2]353 mov dh, B_TR
[9]354 jmp SHORT MenuDraw_BorderChars
[170]355
[2]356ALIGN JUMP_ALIGN
357MenuDraw_StringBorder:
[78]358 mov bx, (B_V << 8) + ' '
[2]359 mov dh, B_V
[9]360 jmp SHORT MenuDraw_BorderChars
[2]361
362ALIGN JUMP_ALIGN
363MenuDraw_ScrollBorder:
364 call MenuDraw_GetScrollChar ; Load scroll char to DH
[78]365 mov bx, (B_V << 8) + ' '
[9]366 jmp SHORT MenuDraw_BorderChars
[2]367
368ALIGN JUMP_ALIGN
369MenuDraw_MiddleBorder:
[78]370 mov bx, (BVL_THR << 8) + T_H
[2]371 mov dh, THL_BVR
372
373ALIGN JUMP_ALIGN
374MenuDraw_BorderChars:
375 mov dl, bh ; Leftmost
376 PRINT_CHAR
377 eMOVZX cx, BYTE [bp+MENUVARS.bWidth]
378 times 2 dec cx ; Subtract borders
379 mov dl, bl ; Middle
380 call Print_Repeat
381 mov dl, dh ; Rightmost
382 PRINT_CHAR
383 ret
384
385ALIGN JUMP_ALIGN
386MenuDraw_BottomBorder:
[78]387 mov bx, (B_LL << 8) + B_H
[2]388 mov dh, B_LR
389 cmp WORD [bp+MENUVARS.wTimeInit], 0 ; Timeout enabled?
390 jz MenuDraw_BorderChars ; If not, draw normal
391
392 ; Print timeout value
393 push ds
394 push si
395 push cs
396 pop ds ; Copy CS to DS
397 mov si, g_strTimeout ; Load ptr to timeout str (DS:SI)
398 mov ax, 55 ; 1 timer tick = 54.945ms
399 mul WORD [bp+MENUVARS.wTimeout] ; DX:AX = millisecs
400 eSHR_IM ax, 10 ; ms to s (close enough to 1000)
401 push ax ; Push seconds
402 call Print_Format ; Print timeout
403 add sp, 2 ; Clean stack
404 pop si
405 pop ds
406
407 ; Print remaining border chars
408 call MenuCrsr_GetCursor ; Get cursor location to DX
409 sub dl, [bp+MENUVARS.bInitX] ; Compensate for start X...
410 inc dx ; ...and lower right corner
411 mov dh, [bp+MENUVARS.bWidth] ; Load menu width to DH
412 sub dh, dl ; Subtract current X coordinate
413 eMOVZX cx, dh ; Number of border chars needed
414 mov dl, B_H
415 call Print_Repeat
416 mov dl, B_LR
417 PRINT_CHAR
418 ret
419
420
421;--------------------------------------------------------------------
422; Returns character for scroll bars if needed.
423; If scroll bars are not needed, normal border character will be returned.
424;
425; Note! Current implementation doesn't always return thumb character
426; if there are a lot of pages. Checking last char only is not enough.
427;
428; MenuDraw_GetScrollChar
429; Parameters:
430; CX: Loop counter (Items left, MenuDraw_ScrollBorder only)
431; SS:BP: Ptr to MENUVARS
432; Returns:
433; DH: Scroll bar character
434; Corrupts registers:
435; AX, BX, CX, DL
436;--------------------------------------------------------------------
437ALIGN JUMP_ALIGN
438MenuDraw_GetScrollChar:
439 mov dh, B_V ; Assume no scroll bars needed
440 mov ax, [bp+MENUVARS.wItemCnt] ; Load menuitem count to AX
441 eMOVZX bx, BYTE [bp+MENUVARS.bVisCnt] ; Load visible menuitems to BX
442 cmp ax, bx ; Need scroll bars?
443 jbe .Return ; If not, return
[170]444
[2]445 ; Calculate last menuitem index for thumb char on this line
446 push bx ; Store number of visible menuitems
447 sub bx, cx ; Calculate Line index
448 inc bx ; Increment for next line index
449 mul bx ; DX:AX=Total item count * Next line idx
450 pop bx ; Pop number of visible menuitems
451 div bx ; AX=First Menuitem for next string line
452 dec ax ; AX=Last Menuitem for this string line
453
454 ; Draw thumb or track
455 mov dh, FULL_BLCK ; Assume thumb line
456 call Menu_IsItemVisible ; Is thumb menuitem visible?
457 jc .Return ; If so, draw thumb
458 mov dh, T_V ; Load track character
[170]459ALIGN JUMP_ALIGN, ret
[2]460.Return:
461 ret
Note: See TracBrowser for help on using the repository browser.