Changeset 45 in xtideuniversalbios for trunk/Assembly_Library/Src/LibraryTests.asm

Timestamp:

Sep 29, 2010, 5:59:07 PM (15 years ago)

Author:

Tomi Tilli

google:author:

aitotat

Message:

Changes to assembly library:
Changed SetCharOutputFunctionFromAXwithAttribFlagInDL to SetCharOutputFunctionFromAXwithAttribFlagInBL since DX register gets corrupted by Display_FunctionFromDI.
Implemented quicksort.

File:

• trunk/Assembly_Library/Src/LibraryTests.asm (modified) (3 diffs)

trunk/Assembly_Library/Src/LibraryTests.asm

@@ -33 +33 @@
     CALL_DISPLAY_LIBRARY ClearScreen
 
-    call    LibraryTests_ForDisplayLibrary
+    call    LibraryTests_Sort
+    ;call   LibraryTests_ForDisplayLibrary
     ;call   LibraryTests_ForKeyboardLibrary
-    call    LibraryTests_ForMenuLibrary
+    ;call   LibraryTests_ForMenuLibrary
 
     ; Exit to DOS
@@ -254 +255 @@
     mov     ax, si
     CALL_DISPLAY_LIBRARY SetCharacterPointerFromBXAX
-    mov     dl, ATTRIBUTES_NOT_USED
+    mov     bl, ATTRIBUTES_NOT_USED
     mov     ax, BUFFER_OUTPUT_WITH_CHAR_ONLY
-    CALL_DISPLAY_LIBRARY SetCharOutputFunctionFromAXwithAttribFlagInDL
+    CALL_DISPLAY_LIBRARY SetCharOutputFunctionFromAXwithAttribFlagInBL
     lea     ax, [si+STRING_BUFFER_SIZE]
     CALL_DISPLAY_LIBRARY SetCharacterOutputParameterFromAX
@@ -551 +552 @@
 .szRepeat:
     db  "Repeating character '-':                   %A%t",LF,CR,NULL
-        
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+LibraryTests_Sort:
+    call    .PrintWords
+    push    cs
+    pop     ds
+    mov     si, .rgwItems
+    mov     dx, 7
+    mov     cx, 2
+    mov     bx, .Comparator
+    call    Sort_ItemsFromDSSIwithCountInDXsizeInCXandComparatorInBX
+    call    .PrintWords
+    ret
+
+
+.Comparator:
+    push    ax
+    mov     ax, [si]
+    ;DISPLAY_DEBUG_CHARACTER 'I'
+    ;DISPLAY_DEBUG_WORD_AND_WAIT_ANY_KEY ax, 10
+    ;DISPLAY_DEBUG_CHARACTER ','
+    ;DISPLAY_DEBUG_WORD_AND_WAIT_ANY_KEY [es:di], 10
+    ;DISPLAY_DEBUG_CHARACTER ' '
+    cmp     ax, [es:di]
+    pop     ax
+    ret
+
+.PrintWords:
+    CALL_DISPLAY_LIBRARY PrintNewlineCharacters
+    mov     cx, 7
+    push    cs
+    pop     ds
+    mov     si, .rgwItems
+    mov     bx, 10
+.Loop:
+    lodsw
+    CALL_DISPLAY_LIBRARY PrintSignedWordFromAXWithBaseInBX
+    CALL_DISPLAY_LIBRARY PrintNewlineCharacters
+    loop    .Loop
+    ret
+
+
+.rgwItems:
+    dw      435
+    dw      -31551
+    dw      345
+    dw      0
+    dw      -18
+    dw      23
+    dw      435
+