Changeset 48 in xtideuniversalbios for trunk/Assembly_Library/Src/Display/DisplayCharOut.asm

Timestamp:

Oct 8, 2010, 3:44:05 PM (14 years ago)

Author:

aitotat

google:author:

aitotat

Message:

Changes to Assembly Library:
Added functions to clear Menu Title and Information areas.
Implemented automatic line change when writing Menu Title and Information areas.
CGA snow related functions have been moved to CgaSnow.asm.
Keyboard input functions no longer produce beep for backspace.

File:

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

trunk/Assembly_Library/Src/Display/DisplayCharOut.asm

@@ -2 +2 @@
 ; Project name  :   Assembly Library
 ; Created date  :   26.6.2010
-; Last update   :   4.10.2010
+; Last update   :   8.10.2010
 ; Author        :   Tomi Tilli
 ; Description   :   Functions for outputting characters to video memory.
@@ -11 +11 @@
 ; Section containing code
 SECTION .text
-
-;--------------------------------------------------------------------
-; WAIT_RETRACE_IF_NECESSARY_THEN
-;   Parameters:
-;       AL:     Character to output
-;       AH:     Attribute to output (stosw only)
-;       DS:     BDA segment (zero)
-;       ES:DI:  Ptr to video memory where to output
-;   Returns:
-;       DI:     Incremented for next character
-;   Corrupts registers:
-;       AX, DX
-;--------------------------------------------------------------------
-%macro WAIT_RETRACE_IF_NECESSARY_THEN 1
-%ifdef ELIMINATE_CGA_SNOW
-    %ifidn %1, stosb
-        call    StosbWithoutCgaSnow
-    %else
-        call    StoswWithoutCgaSnow
-    %endif
-%else
-    %1          ; STOSB or STOSW
-%endif
-%endmacro
-
 
 ;--------------------------------------------------------------------
@@ -155 +130 @@
 .BufferFull:
     ret
-
-
-; STOSB and STOSW replacement functions to prevent CGA snow. These will slow
-; drawing a lot so use them only if it is necessary to eliminate CGA snow.
-%ifdef ELIMINATE_CGA_SNOW
-
-OFFSET_TO_CGA_STATUS_REGISTER   EQU     6       ; Base port 3D4h + 6 = 3DAh
-CGA_STATUS_REGISTER             EQU     3DAh
-
-;--------------------------------------------------------------------
-; WAIT_UNTIL_SAFE_CGA_WRITE
-;   Parameters:
-;       DX:     CGA Status Register Address (3DAh)
-;   Returns:
-;       Nothing
-;   Corrupts registers:
-;       AL
-;--------------------------------------------------------------------
-%macro WAIT_UNTIL_SAFE_CGA_WRITE 0
-%%WaitUntilNotInRetrace:
-    in      al, dx
-    shr     al, 1   ; 1 = Bit 0: A 1 indicates that regen-buffer memory access can be
-                    ; made without interfering with the display. (H or V retrace)
-    jc      SHORT %%WaitUntilNotInRetrace
-%%WaitUntilNextRetraceStarts:
-    in      al, dx
-    shr     al, 1
-    jnc     SHORT %%WaitUntilNextRetraceStarts
-%endmacro
-
-;--------------------------------------------------------------------
-; StosbWithoutCgaSnow
-; StoswWithoutCgaSnow
-;   Parameters:
-;       AL:     Character to output
-;       AH:     Attribute to output (StoswWithoutCgaSnow only)
-;       DS:     BDA segment (zero)
-;       ES:DI:  Ptr to video memory where to output
-;   Returns:
-;       DI:     Incremented for next character
-;   Corrupts registers:
-;       AX, DX
-;--------------------------------------------------------------------
-ALIGN JUMP_ALIGN
-StosbWithoutCgaSnow:
-    call    DisplayCharOut_LoadAndVerifyStatusRegisterFromBDA
-    jne     SHORT .StosbWithoutWaitSinceUnknownPort
-
-    mov     ah, al
-    cli             ; Interrupt request would mess up timing
-    WAIT_UNTIL_SAFE_CGA_WRITE
-    mov     al, ah
-.StosbWithoutWaitSinceUnknownPort:
-    stosb
-    sti
-    ret
-
-ALIGN JUMP_ALIGN
-StoswWithoutCgaSnow:
-    push    bx
-    call    DisplayCharOut_LoadAndVerifyStatusRegisterFromBDA
-    jne     SHORT .StoswWithoutWaitSinceUnknownPort
-
-    xchg    bx, ax
-    cli             ; Interrupt request would mess up timing
-    WAIT_UNTIL_SAFE_CGA_WRITE
-    xchg    ax, bx
-.StoswWithoutWaitSinceUnknownPort:
-    stosw
-    pop     bx
-    sti
-    ret
-
-
-;--------------------------------------------------------------------
-; DisplayCharOut_LoadAndVerifyStatusRegisterFromBDA
-;   Parameters:
-;       DS:     BDA segment (zero)
-;   Returns:
-;       DX:     CGA Status Register Address
-;       ZF:     Set if CGA Base Port found in BDA
-;   Corrupts registers:
-;       Nothing
-;--------------------------------------------------------------------
-ALIGN JUMP_ALIGN
-DisplayCharOut_LoadAndVerifyStatusRegisterFromBDA:
-    mov     dx, [BDA.wVidPort]
-    add     dl, OFFSET_TO_CGA_STATUS_REGISTER
-    cmp     dx, CGA_STATUS_REGISTER
-    ret
-
-%endif ; ELIMINATE_CGA_SNOW