Subversion Repositories Kolibri OS

format binary as "mnt"

format binary as "mnt"

include 'macros.inc'

include 'macros.inc'

$Revision: 6464 $

$Revision: 6501 $

msg_board_data_size = 65536 ; Must be power of two

msg_board_data_size = 65536 ; Must be power of two

  msg_board_data  rb msg_board_data_size

msg_board_data  rb  msg_board_data_size

; ebx=1 : write :  bl byte to write

sys_msg_board:

; ebx=2 :  read :  ebx=0 -> no data, ebx=1 -> data in al

; ebx=1 -> write, cl = byte to write

        push    eax ebx                 ; Save eax and ebx, since we're restoring their order required.

; ebx=2 -> read, ecx=0 -> no data, ecx=1 -> data in al

        mov     eax, ebx

        push    eax ebx

        mov     ebx, ecx

        cmp     eax, 1

        mov     ecx, [msg_board_count]

if defined debug_com_base

        jne     .read

        push    dx ax

if defined debug_com_base

        push    dx ax

        mov     dx, debug_com_base+5

@@: ; wait for empty transmit register

        in      al, dx

        mov     dx, debug_com_base+5

        test    al, 1 shl 5

        in      al, dx

        test    al, 1 shl 5

        mov     al, bl

        jz      @r

        out     dx, al

        mov     dx, debug_com_base      ; Output the byte

        pop     ax dx

        mov     al, bl

end if

        pop     ax dx

        cmp     byte [debug_direct_print], 1

end if

        jnz     @f

        pusha

        mov     [msg_board_data+ecx], bl

iglobal

        cmp     byte [debug_direct_print], 1

msg_board_pos   dd      (42*6)*65536+10 ; for printing debug output on the screen

        jnz     .end

endg

        pusha

        lea     edx, [msg_board_data+ecx]

        lea     edx, [msg_board_data+ecx]

        mov     ecx, 0x40FFFFFF

        mov     ecx, 0x40FFFFFF

        mov     ebx, [msg_board_pos]

        mov     esi, 1

        call    dtext

        cmp     word [msg_board_pos+2], 105*6

        jnz     @f

        mov     word [msg_board_pos+2], 42*6

        mov     word [msg_board_pos+2], (42*6)

        add     word [msg_board_pos], 10

        jb      @f

        mov     eax, [_display.height]

        mov     esi, 9

        pusha

        call    hline

        mov     al, bl

        inc     ebx

        mov     edx, 402h

        dec     esi

        popa

        popa

end if

.end:

        and     ecx, msg_board_data_size - 1

@@:

        mov     [esp+20], ecx

        cmp     eax, 2

.read:

        jne     .smbl2

        cmp     eax, 2

        test    ecx, ecx

        jne     .ret

        jz      .smbl21

        test    ecx, ecx

        jz      @b

        add     esp, 8                  ; Returning data in ebx and eax, so no need to restore them.

        add     esp, 8  ; returning data in ebx and eax, so no need to restore them

        mov     eax, msg_board_data+1

        mov     eax, msg_board_data+1

        mov     ebx, msg_board_data

        mov     ebx, msg_board_data

.smbl21:

        movzx   edx, byte [ebx]

        mov     [esp+32], ecx

        call    memmove

        mov     [esp+20], ecx

        dec     [msg_board_count]

.smbl2:

        mov     [esp + 32], edx ;eax