1 | ; File name : LibraryTests.asm
|
---|
2 | ; Project name : Assembly Library
|
---|
3 | ; Created date : 27.6.2010
|
---|
4 | ; Last update : 12.10.2010
|
---|
5 | ; Author : Tomi Tilli
|
---|
6 | ; Description : Tests for Assembly Library.
|
---|
7 | ; This file should not be included when using the library on
|
---|
8 | ; some other project.
|
---|
9 |
|
---|
10 | ; Include .inc files
|
---|
11 | %define INCLUDE_MENU_DIALOGS
|
---|
12 | %include "AssemblyLibrary.inc" ; Assembly Library. Must be included first!
|
---|
13 |
|
---|
14 |
|
---|
15 | ; Section containing code
|
---|
16 | SECTION .text
|
---|
17 |
|
---|
18 | ; Program first instruction.
|
---|
19 | ORG 100h ; Code starts at offset 100h (DOS .COM)
|
---|
20 | Start:
|
---|
21 | jmp LibraryTests_Start
|
---|
22 |
|
---|
23 | ; Include library sources
|
---|
24 | %include "AssemblyLibrary.asm"
|
---|
25 |
|
---|
26 |
|
---|
27 | ;--------------------------------------------------------------------
|
---|
28 | ; Program start
|
---|
29 | ;--------------------------------------------------------------------
|
---|
30 | ALIGN JUMP_ALIGN
|
---|
31 | LibraryTests_Start:
|
---|
32 | CALL_DISPLAY_LIBRARY InitializeDisplayContext
|
---|
33 | CALL_DISPLAY_LIBRARY ClearScreen
|
---|
34 |
|
---|
35 | ;call LibraryTests_Sort
|
---|
36 | ;call LibraryTests_ForDisplayLibrary
|
---|
37 | ;call LibraryTests_ForKeyboardLibrary
|
---|
38 | call LibraryTests_ForMenuLibrary
|
---|
39 |
|
---|
40 | ; Exit to DOS
|
---|
41 | ;mov ax, CURSOR_XY(1, 1)
|
---|
42 | ;CALL_DISPLAY_LIBRARY SetCursorCoordinatesFromAX
|
---|
43 | CALL_DISPLAY_LIBRARY SynchronizeDisplayContextToHardware
|
---|
44 | mov ax, 4C00h ; Exit to DOS
|
---|
45 | int 21h
|
---|
46 |
|
---|
47 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
---|
48 | ALIGN JUMP_ALIGN
|
---|
49 | LibraryTests_ForMenuLibrary:
|
---|
50 | mov [cs:g_dialogInputOutput+DIALOG_INPUT.fszTitle+2], cs
|
---|
51 | mov [cs:g_dialogInputOutput+DIALOG_INPUT.fszItems+2], cs
|
---|
52 | mov [cs:g_dialogInputOutput+DIALOG_INPUT.fszInfo+2], cs
|
---|
53 |
|
---|
54 | mov bx, .MenuEventHandler
|
---|
55 | call MenuInit_DisplayMenuWithHandlerInBXandUserDataInDXAX
|
---|
56 | ret
|
---|
57 |
|
---|
58 | ALIGN JUMP_ALIGN
|
---|
59 | .MenuEventHandler:
|
---|
60 | jmp [cs:bx+.rgfnMenuEvents]
|
---|
61 | .NotHandled:
|
---|
62 | clc ; Not handled so clear
|
---|
63 | ret
|
---|
64 |
|
---|
65 | ALIGN JUMP_ALIGN
|
---|
66 | .InitializeMenu:
|
---|
67 | mov WORD [si+MENUINIT.wTimeoutTicks], 10000 / 55 ; 10 seconds
|
---|
68 | mov WORD [si+MENUINIT.wItems], 51
|
---|
69 | mov BYTE [si+MENUINIT.bWidth], 40
|
---|
70 | mov BYTE [si+MENUINIT.bHeight], 20
|
---|
71 | mov BYTE [si+MENUINIT.bTitleLines], TEST_MENU_TITLE_LINES
|
---|
72 | mov BYTE [si+MENUINIT.bInfoLines], TEST_MENU_INFO_LINES
|
---|
73 | mov WORD [si+MENUINIT.wHighlightedItem], 1
|
---|
74 | stc
|
---|
75 | ret
|
---|
76 |
|
---|
77 | ALIGN JUMP_ALIGN
|
---|
78 | .RefreshTitle:
|
---|
79 | mov si, .szMenuTitle
|
---|
80 | CALL_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
|
---|
81 | stc
|
---|
82 | ret
|
---|
83 | .szMenuTitle:
|
---|
84 | db "Simple test program for Assembly Library. Can be used to find bugs.",NULL
|
---|
85 |
|
---|
86 | ALIGN JUMP_ALIGN
|
---|
87 | .RefreshInformation:
|
---|
88 | push bp
|
---|
89 | mov bp, sp
|
---|
90 | mov si, .szInfoTitle
|
---|
91 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
92 | pop bp
|
---|
93 | stc
|
---|
94 | ret
|
---|
95 | .szInfoTitle:
|
---|
96 | db "Information line 1,",LF,CR,
|
---|
97 | db "Information line 2. ",
|
---|
98 | db "This comes (12) right after Information line 2.",NULL
|
---|
99 |
|
---|
100 | ALIGN JUMP_ALIGN
|
---|
101 | .RefreshItemFromCX:
|
---|
102 | cmp cx, TEST_MENU_VALID_ITEMS
|
---|
103 | jb SHORT .PrintKnownItem
|
---|
104 |
|
---|
105 | push bp
|
---|
106 | mov si, .szItem
|
---|
107 | mov bp, sp
|
---|
108 | push cx ; Item index
|
---|
109 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
110 | pop bp
|
---|
111 | stc
|
---|
112 | ret
|
---|
113 | .szItem:
|
---|
114 | db "This is item %d.",NULL
|
---|
115 | .PrintKnownItem:
|
---|
116 | mov si, cx
|
---|
117 | shl si, 1
|
---|
118 | mov si, [cs:si+.rgszItems]
|
---|
119 | CALL_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
|
---|
120 | stc
|
---|
121 | ret
|
---|
122 |
|
---|
123 | ALIGN JUMP_ALIGN
|
---|
124 | .ItemSelectedFromCX:
|
---|
125 | push cs
|
---|
126 | pop ds
|
---|
127 | cmp cx, TEST_MENU_VALID_ITEMS
|
---|
128 | jae SHORT .ReturnWithoutHandling
|
---|
129 | mov bx, cx
|
---|
130 | shl bx, 1
|
---|
131 | jmp [bx+.rgfnSelectionHandler]
|
---|
132 | .ReturnWithoutHandling:
|
---|
133 | stc
|
---|
134 | ret
|
---|
135 |
|
---|
136 | ALIGN WORD_ALIGN
|
---|
137 | .rgfnSelectionHandler:
|
---|
138 | dw .ExitMenu
|
---|
139 | dw .ToggleTitle
|
---|
140 | dw .ToggleInfo
|
---|
141 | dw .ShowMessageDialogWithUnformattedText
|
---|
142 | dw .AskWordFromUser
|
---|
143 | dw .AskStringFromUser
|
---|
144 | dw .AskSelectionFromUser
|
---|
145 | dw .AskFileFromUser
|
---|
146 | dw .TestProgressBar
|
---|
147 |
|
---|
148 |
|
---|
149 | ALIGN JUMP_ALIGN
|
---|
150 | .ExitMenu:
|
---|
151 | CALL_MENU_LIBRARY Close
|
---|
152 | stc
|
---|
153 | ret
|
---|
154 |
|
---|
155 | ALIGN JUMP_ALIGN
|
---|
156 | .ToggleTitle:
|
---|
157 | mov al, [bp+MENUINIT.bTitleLines]
|
---|
158 | xor al, TEST_MENU_TITLE_LINES
|
---|
159 | CALL_MENU_LIBRARY SetTitleHeightFromAL
|
---|
160 | jmp SHORT .RefreshMenuWindow
|
---|
161 | ALIGN JUMP_ALIGN
|
---|
162 | .ToggleInfo:
|
---|
163 | mov al, [bp+MENUINIT.bInfoLines]
|
---|
164 | xor al, TEST_MENU_INFO_LINES
|
---|
165 | CALL_MENU_LIBRARY SetInformationHeightFromAL
|
---|
166 | .RefreshMenuWindow:
|
---|
167 | CALL_MENU_LIBRARY RestartTimeout
|
---|
168 | CALL_MENU_LIBRARY RefreshWindow
|
---|
169 | stc
|
---|
170 | ret
|
---|
171 |
|
---|
172 | ALIGN JUMP_ALIGN
|
---|
173 | .ShowMessageDialogWithUnformattedText:
|
---|
174 | mov di, g_szVeryLongString
|
---|
175 | jmp .ShowDialogWithStringInCSDI
|
---|
176 |
|
---|
177 | ALIGN JUMP_ALIGN
|
---|
178 | .AskWordFromUser:
|
---|
179 | mov si, g_dialogInputOutput
|
---|
180 | mov BYTE [si+WORD_DIALOG_IO.bNumericBase], 10
|
---|
181 | mov WORD [si+WORD_DIALOG_IO.wMin], 10
|
---|
182 | mov WORD [si+WORD_DIALOG_IO.wMax], 20
|
---|
183 | CALL_MENU_LIBRARY GetWordWithIoInDSSI
|
---|
184 |
|
---|
185 | mov ax, [si+WORD_DIALOG_IO.wReturnWord]
|
---|
186 | mov di, g_szBuffer
|
---|
187 | call .FormatWordFromAXtoStringBufferInCSDI
|
---|
188 | call .ShowDialogWithStringInCSDI
|
---|
189 | stc
|
---|
190 | ret
|
---|
191 |
|
---|
192 | ALIGN JUMP_ALIGN
|
---|
193 | .AskStringFromUser:
|
---|
194 | mov si, g_dialogInputOutput
|
---|
195 | mov WORD [si+STRING_DIALOG_IO.fnCharFilter], NULL
|
---|
196 | mov WORD [si+STRING_DIALOG_IO.wBufferSize], 17
|
---|
197 | mov WORD [si+STRING_DIALOG_IO.fpReturnBuffer], g_szBuffer
|
---|
198 | mov [si+STRING_DIALOG_IO.fpReturnBuffer+2], cs
|
---|
199 | CALL_MENU_LIBRARY GetStringWithIoInDSSI
|
---|
200 |
|
---|
201 | mov di, g_szBuffer
|
---|
202 | call .ShowDialogWithStringInCSDI
|
---|
203 | stc
|
---|
204 | ret
|
---|
205 |
|
---|
206 | ALIGN JUMP_ALIGN
|
---|
207 | .AskSelectionFromUser:
|
---|
208 | mov si, g_dialogInputOutput
|
---|
209 | mov WORD [si+DIALOG_INPUT.fszItems], .szSelections
|
---|
210 | CALL_MENU_LIBRARY GetSelectionToAXwithInputInDSSI
|
---|
211 |
|
---|
212 | mov di, g_szBuffer
|
---|
213 | call .FormatWordFromAXtoStringBufferInCSDI
|
---|
214 | call .ShowDialogWithStringInCSDI
|
---|
215 | stc
|
---|
216 | ret
|
---|
217 | .szSelections:
|
---|
218 | db "Cancel",LF
|
---|
219 | db "Yes",LF
|
---|
220 | db "No",NULL
|
---|
221 |
|
---|
222 | ALIGN JUMP_ALIGN
|
---|
223 | .AskFileFromUser:
|
---|
224 | mov si, g_dialogInputOutput
|
---|
225 | mov WORD [si+FILE_DIALOG_IO.fszItemBuffer], g_szBuffer
|
---|
226 | mov BYTE [si+FILE_DIALOG_IO.bDialogFlags], FLG_FILEDIALOG_DIRECTORY | FLG_FILEDIALOG_NEW | FLG_FILEDIALOG_DRIVES
|
---|
227 | mov BYTE [si+FILE_DIALOG_IO.bFileAttributes], FLG_FILEATTR_DIRECTORY | FLG_FILEATTR_ARCHIVE
|
---|
228 | mov WORD [si+FILE_DIALOG_IO.fpFileFilterString], .szAllFiles
|
---|
229 | mov [si+FILE_DIALOG_IO.fpFileFilterString+2], cs
|
---|
230 | CALL_MENU_LIBRARY GetFileNameWithIoInDSSI
|
---|
231 | cmp BYTE [g_dialogInputOutput+FILE_DIALOG_IO.bUserCancellation], TRUE
|
---|
232 | je SHORT .FileSelectionCancelled
|
---|
233 |
|
---|
234 | mov di, g_dialogInputOutput + FILE_DIALOG_IO.szFile
|
---|
235 | call .ShowDialogWithStringInCSDI
|
---|
236 | .FileSelectionCancelled:
|
---|
237 | stc
|
---|
238 | ret
|
---|
239 | .szAllFiles:
|
---|
240 | db "*.*",NULL
|
---|
241 |
|
---|
242 |
|
---|
243 | ALIGN JUMP_ALIGN
|
---|
244 | .FormatWordFromAXtoStringBufferInCSDI:
|
---|
245 | push bp
|
---|
246 | push di
|
---|
247 | mov si, di
|
---|
248 | xchg cx, ax
|
---|
249 | CALL_DISPLAY_LIBRARY PushDisplayContext
|
---|
250 |
|
---|
251 | mov bx, cs
|
---|
252 | mov ax, si
|
---|
253 | CALL_DISPLAY_LIBRARY SetCharacterPointerFromBXAX
|
---|
254 | mov bl, ATTRIBUTES_NOT_USED
|
---|
255 | mov ax, BUFFER_OUTPUT_WITH_CHAR_ONLY
|
---|
256 | CALL_DISPLAY_LIBRARY SetCharOutputFunctionFromAXwithAttribFlagInBL
|
---|
257 | lea ax, [si+STRING_BUFFER_SIZE]
|
---|
258 | CALL_DISPLAY_LIBRARY SetCharacterOutputParameterFromAX
|
---|
259 |
|
---|
260 | mov si, .szFormatWord
|
---|
261 | mov bp, sp
|
---|
262 | push cx
|
---|
263 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
264 | mov al, NULL
|
---|
265 | CALL_DISPLAY_LIBRARY PrintCharacterFromAL ; Terminate buffer with NULL
|
---|
266 |
|
---|
267 | CALL_DISPLAY_LIBRARY PopDisplayContext
|
---|
268 | pop di
|
---|
269 | pop bp
|
---|
270 | ret
|
---|
271 | .szFormatWord:
|
---|
272 | db "Integer %d selected!",NULL
|
---|
273 |
|
---|
274 |
|
---|
275 | ALIGN JUMP_ALIGN
|
---|
276 | .ShowDialogWithStringInCSDI:
|
---|
277 | push cs
|
---|
278 | pop ds
|
---|
279 | mov si, g_dialogInputOutput
|
---|
280 | mov WORD [si+DIALOG_INPUT.fszItems], di
|
---|
281 | CALL_MENU_LIBRARY DisplayMessageWithInputInDSSI
|
---|
282 | stc
|
---|
283 | ret
|
---|
284 |
|
---|
285 |
|
---|
286 | ALIGN JUMP_ALIGN
|
---|
287 | .TestProgressBar:
|
---|
288 | push cs
|
---|
289 | pop ds
|
---|
290 | mov si, g_dialogInputOutput
|
---|
291 | mov WORD [si+PROGRESS_DIALOG_IO.wCurrentProgressValue], 0
|
---|
292 | mov WORD [si+PROGRESS_DIALOG_IO.wMaxProgressValue], 500
|
---|
293 | mov WORD [si+PROGRESS_DIALOG_IO.wMinProgressValue], 0
|
---|
294 | mov WORD [si+PROGRESS_DIALOG_IO.fnTaskWithParamInDSSI], .ProgressTaskWithParamInDSSI
|
---|
295 | mov ax, 500 ; Counter for progress task
|
---|
296 | CALL_MENU_LIBRARY StartProgressTaskWithIoInDSSIandParamInDXAX
|
---|
297 | stc
|
---|
298 | ret
|
---|
299 |
|
---|
300 | ALIGN JUMP_ALIGN
|
---|
301 | .ProgressTaskWithParamInDSSI:
|
---|
302 | mov ax, 50000 ; 50 millisec delay
|
---|
303 | call Delay_MicrosecondsFromAX
|
---|
304 | dec si
|
---|
305 | CALL_MENU_LIBRARY SetUserDataFromDSSI
|
---|
306 | mov ax, 500
|
---|
307 | sub ax, si
|
---|
308 | push si
|
---|
309 | CALL_MENU_LIBRARY SetProgressValueFromAX
|
---|
310 | pop si
|
---|
311 | test si, si
|
---|
312 | jnz .ProgressTaskWithParamInDSSI
|
---|
313 | ret
|
---|
314 |
|
---|
315 |
|
---|
316 |
|
---|
317 | ALIGN WORD_ALIGN
|
---|
318 | .rgfnMenuEvents:
|
---|
319 | dw .InitializeMenu ; .InitializeMenuinitToDSSI
|
---|
320 | dw .NotHandled ; .ExitMenu
|
---|
321 | dw .NotHandled ; .IdleProcessing
|
---|
322 | dw .NotHandled ; .ItemHighlightedFromCX
|
---|
323 | dw .ItemSelectedFromCX ; .ItemSelectedFromCX
|
---|
324 | dw .NotHandled ; .KeyStrokeInDX
|
---|
325 | dw .RefreshTitle ; .RefreshTitle
|
---|
326 | dw .RefreshInformation ; .RefreshInformation
|
---|
327 | dw .RefreshItemFromCX ; .RefreshItemFromCX
|
---|
328 |
|
---|
329 | .rgszItems:
|
---|
330 | dw .szExitMenu
|
---|
331 | dw .szToggleTitle
|
---|
332 | dw .szToggleInfo
|
---|
333 | dw .szShowMessage
|
---|
334 | dw .szAskWord
|
---|
335 | dw .szAskString
|
---|
336 | dw .szAskSelection
|
---|
337 | dw .szAskFile
|
---|
338 | dw .szTestProgress
|
---|
339 | .szExitMenu: db "Exit menu",NULL
|
---|
340 | .szToggleTitle: db "Toggle title",NULL
|
---|
341 | .szToggleInfo: db "Toggle information",NULL
|
---|
342 | .szShowMessage: db "Display unformatted message",NULL
|
---|
343 | .szAskWord: db "Input word",NULL
|
---|
344 | .szAskString: db "Input string",NULL
|
---|
345 | .szAskSelection:db "Display selection dialog",NULL
|
---|
346 | .szAskFile: db "Display file dialog",NULL
|
---|
347 | .szTestProgress:db "Display progress bar",NULL
|
---|
348 | TEST_MENU_VALID_ITEMS EQU 9
|
---|
349 | TEST_MENU_TITLE_LINES EQU 2
|
---|
350 | TEST_MENU_INFO_LINES EQU 3
|
---|
351 |
|
---|
352 |
|
---|
353 |
|
---|
354 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
---|
355 | ALIGN JUMP_ALIGN
|
---|
356 | LibraryTests_ForKeyboardLibrary:
|
---|
357 | mov ax, CURSOR_XY(0, 6)
|
---|
358 | CALL_DISPLAY_LIBRARY SetCursorCoordinatesFromAX
|
---|
359 | call ReadUnsignedDecimalInteger
|
---|
360 | call ReadHexadecimalWord
|
---|
361 | ret
|
---|
362 |
|
---|
363 |
|
---|
364 | ReadUnsignedDecimalInteger:
|
---|
365 | mov si, .szEnterUnsignedWord
|
---|
366 | CALL_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
|
---|
367 | CALL_DISPLAY_LIBRARY SynchronizeDisplayContextToHardware ; Move hardware cursor
|
---|
368 |
|
---|
369 | mov bx, 10 ; Numeric base
|
---|
370 | call Keyboard_ReadUserInputtedWordWhilePrinting
|
---|
371 |
|
---|
372 | mov si, .szWordEntered
|
---|
373 | mov bp, sp
|
---|
374 | push ax
|
---|
375 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
376 | ret
|
---|
377 | .szWordEntered:
|
---|
378 | db ". Word entered: %u",LF,CR,NULL
|
---|
379 | .szEnterUnsignedWord:
|
---|
380 | db "Enter unsigned word: ",NULL
|
---|
381 |
|
---|
382 |
|
---|
383 | ReadHexadecimalWord:
|
---|
384 | mov si, .szEnterHexadecimalWord
|
---|
385 | CALL_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
|
---|
386 | CALL_DISPLAY_LIBRARY SynchronizeDisplayContextToHardware ; Move hardware cursor
|
---|
387 |
|
---|
388 | mov bx, 16 ; Numeric base
|
---|
389 | call Keyboard_ReadUserInputtedWordWhilePrinting
|
---|
390 |
|
---|
391 | mov si, .szWordEntered
|
---|
392 | mov bp, sp
|
---|
393 | push ax
|
---|
394 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
395 | ret
|
---|
396 | .szWordEntered:
|
---|
397 | db ". Word entered: %x",LF,CR,NULL
|
---|
398 | .szEnterHexadecimalWord:
|
---|
399 | db "Enter hexadecimal word: ",NULL
|
---|
400 |
|
---|
401 |
|
---|
402 |
|
---|
403 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
---|
404 | ALIGN JUMP_ALIGN
|
---|
405 | LibraryTests_ForDisplayLibrary:
|
---|
406 | CALL_DISPLAY_LIBRARY PushDisplayContext
|
---|
407 | call PrintHorizontalRuler
|
---|
408 | call PrintVerticalRuler
|
---|
409 |
|
---|
410 | mov al, COLOR_ATTRIBUTE(COLOR_BRIGHT_WHITE, COLOR_BLACK)
|
---|
411 | CALL_DISPLAY_LIBRARY SetCharacterAttributeFromAL
|
---|
412 |
|
---|
413 | mov ax, CURSOR_XY(0, 1)
|
---|
414 | CALL_DISPLAY_LIBRARY SetCursorCoordinatesFromAX
|
---|
415 | call PrintFormattedStrings
|
---|
416 |
|
---|
417 | CALL_DISPLAY_LIBRARY PopDisplayContext
|
---|
418 | ret
|
---|
419 |
|
---|
420 |
|
---|
421 | PrintHorizontalRuler:
|
---|
422 | mov ax, CURSOR_XY(0, 0)
|
---|
423 | CALL_DISPLAY_LIBRARY SetCursorCoordinatesFromAX
|
---|
424 | CALL_DISPLAY_LIBRARY GetColumnsToALandRowsToAH
|
---|
425 | eMOVZX cx, al
|
---|
426 | mov bx, 10<<8 ; Divider 10 to BH
|
---|
427 | .ColumnNumberLoop:
|
---|
428 | eMOVZX ax, bl ; Column index to AX (0...79)
|
---|
429 | div bh ; AH = 0...9, AL = attribute
|
---|
430 | mov dx, ax
|
---|
431 | inc ax ; Increment attribute for non-black foreground
|
---|
432 | CALL_DISPLAY_LIBRARY SetCharacterAttributeFromAL
|
---|
433 | xchg ax, dx
|
---|
434 | mov al, '0'
|
---|
435 | add al, ah ; AL = '0'...'9'
|
---|
436 | CALL_DISPLAY_LIBRARY PrintCharacterFromAL
|
---|
437 | inc bx ; Increment column index
|
---|
438 | loop .ColumnNumberLoop
|
---|
439 | ret
|
---|
440 |
|
---|
441 |
|
---|
442 | PrintVerticalRuler:
|
---|
443 | CALL_DISPLAY_LIBRARY GetColumnsToALandRowsToAH
|
---|
444 | eMOVZX cx, ah ; Number of rows to CX
|
---|
445 | dec ax ; Last column
|
---|
446 | xor ah, ah
|
---|
447 | CALL_DISPLAY_LIBRARY SetCursorCoordinatesFromAX
|
---|
448 |
|
---|
449 | dec cx ; Decrement rows to print last row outside loop
|
---|
450 | mov bx, 10<<8 ; BH = 10 (divider), BL = 0 (row index)
|
---|
451 | mov si, .szVerticalRulerCharacter
|
---|
452 | .RowNumberLoop:
|
---|
453 | call .PrintRowNumberFromBL
|
---|
454 | inc bx ; Increment row index
|
---|
455 | loop .RowNumberLoop
|
---|
456 |
|
---|
457 | ; Last row
|
---|
458 | mov si, .szLastVerticalRulerCharacter
|
---|
459 | .PrintRowNumberFromBL:
|
---|
460 | eMOVZX ax, bl ; Row index to AX (0...24)
|
---|
461 | div bh ; AH = 0...9, AL = attribute
|
---|
462 | add al, COLOR_GRAY ; Start from color GRAY
|
---|
463 | mov bp, sp ; Prepare BP for string formatting
|
---|
464 | push ax ; Push attribute
|
---|
465 | eMOVZX ax, ah
|
---|
466 | push ax ; Push row index
|
---|
467 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
468 | ret
|
---|
469 |
|
---|
470 | .szVerticalRulerCharacter:
|
---|
471 | db "%A%u",LF,NULL
|
---|
472 | .szLastVerticalRulerCharacter:
|
---|
473 | db "%A%u",NULL
|
---|
474 |
|
---|
475 |
|
---|
476 | PrintFormattedStrings:
|
---|
477 | call .PrintIntegers
|
---|
478 | call .PrintHexadecimals
|
---|
479 | call .PrintCharacters
|
---|
480 | call .PrintStrings
|
---|
481 | call .RepeatChar
|
---|
482 | ret
|
---|
483 |
|
---|
484 | .PrintIntegers:
|
---|
485 | mov si, .szIntegers
|
---|
486 | mov bp, sp
|
---|
487 | ePUSH_T ax, COLOR_ATTRIBUTE(COLOR_RED, COLOR_BLACK)
|
---|
488 | ePUSH_T ax, -32768
|
---|
489 | ePUSH_T ax, -1
|
---|
490 | ePUSH_T ax, 0
|
---|
491 | ePUSH_T ax, 1
|
---|
492 | ePUSH_T ax, 65535
|
---|
493 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
494 | ret
|
---|
495 | .szIntegers:
|
---|
496 | db "Integers -32768, -1, 0, 1, 65535: %A|%6-d|%6-d|%6-d|%6-d|%6-u|",LF,CR,NULL
|
---|
497 |
|
---|
498 | .PrintHexadecimals:
|
---|
499 | mov si, .szHexadecimals
|
---|
500 | mov bp, sp
|
---|
501 | ePUSH_T ax, COLOR_ATTRIBUTE(COLOR_RED, COLOR_BLACK)
|
---|
502 | ePUSH_T ax, 0CACAh
|
---|
503 | ePUSH_T ax, 0FFFFh
|
---|
504 | ePUSH_T ax, 0
|
---|
505 | ePUSH_T ax, 5A5Ah
|
---|
506 | ePUSH_T ax, 0A5A5h
|
---|
507 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
508 | ret
|
---|
509 | .szHexadecimals:
|
---|
510 | db "Hexadecimals CACAh, FFFFh, 0, 5A5Ah, A5A5h:%A|%6-x|%6-x|%6-x|%6-x|%6-x|",LF,CR,NULL
|
---|
511 |
|
---|
512 | .PrintCharacters:
|
---|
513 | mov si, .szCharacters
|
---|
514 | mov bp, sp
|
---|
515 | ePUSH_T ax, COLOR_ATTRIBUTE(COLOR_RED, COLOR_BLACK)
|
---|
516 | ePUSH_T ax, 'a'
|
---|
517 | ePUSH_T ax, 'B'
|
---|
518 | ePUSH_T ax, 'c'
|
---|
519 | ePUSH_T ax, 'D'
|
---|
520 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
521 | ret
|
---|
522 | .szCharacters:
|
---|
523 | db "Characters a, B, c, D, percent: %A|%6c|%6c|%6c|%6c|%6%|",LF,CR,NULL
|
---|
524 |
|
---|
525 | .PrintStrings:
|
---|
526 | mov si, .szStrings
|
---|
527 | mov bp, sp
|
---|
528 | ePUSH_T ax, COLOR_ATTRIBUTE(COLOR_RED, COLOR_BLACK)
|
---|
529 | ePUSH_T ax, .szCSSI
|
---|
530 | ePUSH_T ax, .szFar
|
---|
531 | push cs
|
---|
532 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
533 | ret
|
---|
534 | .szStrings:
|
---|
535 | db "Strings ",'"',"Hello CSSI",'"'," and ",'"',"Far",'"',": %A|%20s|%13S|",LF,CR,NULL
|
---|
536 | .szCSSI:
|
---|
537 | db "Hello CSSI",NULL
|
---|
538 | .szFar:
|
---|
539 | db "Far",NULL
|
---|
540 |
|
---|
541 | .RepeatChar:
|
---|
542 | mov si, .szRepeat
|
---|
543 | mov bp, sp
|
---|
544 | ePUSH_T ax, COLOR_ATTRIBUTE(COLOR_RED, COLOR_BLACK)
|
---|
545 | ePUSH_T ax, '-'
|
---|
546 | ePUSH_T ax, 36
|
---|
547 | CALL_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
|
---|
548 | ret
|
---|
549 | .szRepeat:
|
---|
550 | db "Repeating character '-': %A%t",LF,CR,NULL
|
---|
551 |
|
---|
552 |
|
---|
553 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
---|
554 | LibraryTests_Sort:
|
---|
555 | call .PrintWords
|
---|
556 | push cs
|
---|
557 | pop ds
|
---|
558 | mov si, .rgwItems
|
---|
559 | mov dx, 7
|
---|
560 | mov cx, 2
|
---|
561 | mov bx, .Comparator
|
---|
562 | call Sort_ItemsFromDSSIwithCountInDXsizeInCXandComparatorInBX
|
---|
563 | call .PrintWords
|
---|
564 | ret
|
---|
565 |
|
---|
566 |
|
---|
567 | .Comparator:
|
---|
568 | push ax
|
---|
569 | mov ax, [si]
|
---|
570 | DISPLAY_DEBUG_CHARACTER 'I'
|
---|
571 | DISPLAY_DEBUG_WORD_AND_WAIT_ANY_KEY ax, 16
|
---|
572 | DISPLAY_DEBUG_CHARACTER ','
|
---|
573 | DISPLAY_DEBUG_WORD_AND_WAIT_ANY_KEY [es:di], 16
|
---|
574 | DISPLAY_DEBUG_CHARACTER ' '
|
---|
575 | cmp ax, [es:di]
|
---|
576 | pop ax
|
---|
577 | ret
|
---|
578 |
|
---|
579 | .PrintWords:
|
---|
580 | CALL_DISPLAY_LIBRARY PrintNewlineCharacters
|
---|
581 | mov cx, 7
|
---|
582 | push cs
|
---|
583 | pop ds
|
---|
584 | mov si, .rgwItems
|
---|
585 | mov bx, 16
|
---|
586 | .Loop:
|
---|
587 | lodsw
|
---|
588 | CALL_DISPLAY_LIBRARY PrintSignedWordFromAXWithBaseInBX
|
---|
589 | CALL_DISPLAY_LIBRARY PrintNewlineCharacters
|
---|
590 | loop .Loop
|
---|
591 | ret
|
---|
592 |
|
---|
593 |
|
---|
594 | .rgwItems:
|
---|
595 | dw '['
|
---|
596 | dw 'n'
|
---|
597 | dw '5'
|
---|
598 | dw '.'
|
---|
599 | dw ']'
|
---|
600 | dw 'a'
|
---|
601 | dw 'A'
|
---|
602 |
|
---|
603 |
|
---|
604 |
|
---|
605 | ; Section containing initialized data
|
---|
606 | ;SECTION .data
|
---|
607 |
|
---|
608 | g_szDialogTitle:
|
---|
609 | db "This is a generic title for all dialogs.",NULL
|
---|
610 | g_szDialogInfo:
|
---|
611 | db "This is a generic information for all dialogs.",NULL
|
---|
612 | g_szVeryLongString:
|
---|
613 | db "This is a very long string containing multiple lines of text. This is needed "
|
---|
614 | db "so scroll bars and message dialog can be tested. This string does not use "
|
---|
615 | db "formatting so it should be simple to display this correctly. This string "
|
---|
616 | db "does, however, use newline characters. Lets change line right now!",LF,CR,
|
---|
617 | db "Well did it work? Let's try line feed alone",LF,"Well? "
|
---|
618 | db "Now two LFs:",LF,LF,"What happened? "
|
---|
619 | db "We could also see what two spaces does _ _. There was two spaces between "
|
---|
620 | db "underscores. Lets try three this time _ _. Well, did they work correctly? "
|
---|
621 | db "Too bad that LF, CR and BS (backspace) are the only supported control "
|
---|
622 | db "characters. Others don't either work or they break line splitting. "
|
---|
623 | db "This is the last sentence of this long string!",NULL
|
---|
624 |
|
---|
625 | g_dialogInputOutput:
|
---|
626 | istruc DIALOG_INPUT
|
---|
627 | at DIALOG_INPUT.fszTitle, dw g_szDialogTitle
|
---|
628 | at DIALOG_INPUT.fszInfo, dw g_szDialogInfo
|
---|
629 | iend
|
---|
630 | times 20 db 0
|
---|
631 |
|
---|
632 |
|
---|
633 | ; Section containing uninitialized data
|
---|
634 | SECTION .bss
|
---|
635 |
|
---|
636 | STRING_BUFFER_SIZE EQU 100
|
---|
637 | g_szBuffer:
|
---|