WebSVN – Kolibri OS – Diff – /drivers/old/uart.asm

 ;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
 ;; Distributed under terms of the GNU General Public License    ;;
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-format MS COFF
-DEBUG           equ 1
+format PE DLL native 0.05
-include 'proc32.inc'
-include 'imports.inc'
+entry START
 __DEBUG__       equ 1
 __DEBUG_LEVEL__ equ 1  ; 1 = verbose, 2 = errors only
 SLOT_BASE         equ (OS_BASE+0x0080000)
 TASK_COUNT        equ (OS_BASE+0x0003004)
 CURRENT_TASK      equ (OS_BASE+0x0003000)
+section '.flat' readable writable executable
+include 'proc32.inc'
+include 'struct.inc'
+include 'macros.inc'
+include 'fdo.inc'
+include 'peimport.inc'
 struc APPOBJ           ;common object header
+{
    .magic       dd ?   ;
    .destroy     dd ?   ;internal destructor
    .fd          dd ?   ;next object in list
-   .bk          dd ?   ;prev object in list
-   .pid         dd ?   ;owner id
-};
-virtual at 0
-  APPOBJ APPOBJ
-end virtual
-struc IOCTL
-{  .handle      dd ?
-   .io_code     dd ?
-   .input       dd ?
-   .inp_size    dd ?
-   .output      dd ?
+   .bk          dd ?   ;prev object in list
-   .out_size    dd ?
+   .pid         dd ?   ;owner id
 }
-virtual at 0
-  IOCTL IOCTL
-end virtual
-DEBUG            equ   1
 virtual at 0
-DRV_ENTRY        equ   1
+  APPOBJ APPOBJ
-DRV_EXIT         equ  -1
+end virtual
 THR_REG          equ  0;  x3f8   ;transtitter/reciever
 MCR_DTR          equ  0x01     ;0-> DTR=1, 1-> DTR=0
 MCR_RTS          equ  0x02     ;0-> RTS=1, 1-> RTS=0
 MCR_OUT_1        equ  0x04     ;0-> OUT1=1, 1-> OUT1=0
 MCR_OUT_2        equ  0x08     ;0-> OUT2=1, 1-> OUT2=0;  enable intr
-MCR_LOOP         equ  0x10     ;lopback mode
+MCR_LOOP         equ  0x10     ;loopback mode
 MSR_DCTS         equ  0x01     ;delta clear to send
 MSR_DDSR         equ  0x02     ;delta data set redy
    .xmit_wp      dd ?
    .xmit_count   dd ?
    .xmit_free    dd ?
    .xmit_top     dd ?
+}
 virtual at 0
   UART UART
 end virtual
   CONNECTION CONNECTION
 end virtual
-CONNECTION_SIZE equ 7*4
-public START
+CONNECTION_SIZE equ 7*4
-public service_proc
-public version
+;proc START c, state:dword
+;       cmp     [state], 1
+align 4
-section '.flat' code readable align 16
+proc START c, state:dword
+        DEBUGF  1, "Loading driver UART (entry at %x)...\n", START
+        push    esi                   ; [bw] ???
         cmp     [state], DRV_ENTRY
-proc START stdcall, state:dword
+        jne     .stop
+        mov     esi, msg_start
+        invoke  SysMsgBoardStr
-        cmp     [state], 1
+        mov eax, UART_SIZE
+        invoke  Kmalloc
+;       invoke  Kmalloc, UART_SIZE  (1) -- failure
-        jne     .stop
+;       invoke  Kmalloc, UART_SIZE  (2) -- success
 ;       DEBUGF 1,"[UART.START] Kmalloc: UART_SIZE=%d eax=%d\n", UART_SIZE, eax
-        mov     eax, UART_SIZE
+        test    eax, eax
-        call    Kmalloc
+        jz      .fail
         test    eax, eax
-        jz      .fail
+        DEBUGF  1, "Structure %x allocated\n", eax
         mov     [com1], eax
         mov     edi, eax
         mov     ecx, UART_SIZE/4
         xor     eax, eax
         cld
         add     eax, 8192
         mov     [edi+UART.xmit_buff], eax
         add     eax, 8192
         mov     [edi+UART.xmit_top], eax
-        call    AllocPage
+        invoke  AllocPage
         test    eax, eax
         jz      .fail
         shr     edx, 12
         or      eax, PG_SW
         mov     [page_tabs+edx*4], eax
         mov     [page_tabs+edx*4+8], eax
-        call    AllocPage
+        invoke  AllocPage
         test    eax, eax
         jz      .fail
         or      eax, PG_SW
         mov     [page_tabs+edx*4+4], eax
         mov     [page_tabs+edx*4+12], eax
-        call    AllocPage
+        invoke  AllocPage
         test    eax, eax
         jz      .fail
         or      eax, PG_SW
         mov     [page_tabs+edx*4+16], eax
         invlpg  [eax+0x7000]
         mov     eax, edi
         call    uart_reset.internal   ;eax= uart
+        invoke AttachIntHandler, COM_1_IRQ, com_1_isr, dword 0
+        test    eax, eax
+        jnz     @f
+        DEBUGF  2, "Could not attach int handler (%x)\n", COM_1_IRQ
+        jmp     .fail
+@@:
+        DEBUGF  1, "Attached int handler (%x)\n", COM_1_IRQ
-        stdcall AttachIntHandler, COM_1_IRQ, com_1_isr, dword 0
+        pop     esi
+        invoke RegService, sz_uart_srv, service_proc
-        stdcall RegService, sz_uart_srv, service_proc
+        ret
         ret
+.fail:
+.stop:
-.fail:
+        DEBUGF  2, "Failed\n"
-.stop:
+        pop     esi
         xor     eax, eax
 PORT_READ       equ 8
 PORT_WRITE      equ 9
 align 4
-proc service_proc stdcall, ioctl:dword
 proc service_proc stdcall, ioctl:dword
         mov     ebx, [ioctl]
         mov     eax, [ebx+io_code]
         cmp     eax, PORT_WRITE
         call    [uart_func+eax*4]
         ret
 .fail:
         or      eax, -1
         ret
 endp
-restore   handle
+;restore   handle
-restore   io_code
+;restore   io_code
-restore   input
+;restore   input
-restore   inp_size
+;restore   inp_size
-restore   output
+;restore   output
-restore   out_size
+;restore   out_size
         add     edx, MCR_REG
         xor     eax, eax
         out     dx, al       ;clear DTR & RTS
         mov     eax, esi
+;       mov     ebx, RATE_2400
-        mov     ebx, RATE_2400
+        mov     ebx, RATE_115200
         mov     ecx, LCR_8BIT+LCR_STOP_1
         call    uart_set_mode.internal
         mov     ebx, [CURRENT_TASK]
         shl     ebx, 5
         mov     ebx, [CURRENT_TASK+ebx+4]
         mov     eax, CONNECTION_SIZE
-        call    CreateObject
+        invoke  CreateObject
         pop     esi                      ;uart
         test    eax, eax
         jz      .fail
         cmp     [eax+APPOBJ.magic], 'CNCT'
         jne     .fail
         cmp     [eax+APPOBJ.destroy], uart_close.destroy
+        jne     .fail
         jne     .fail
+.destroy:
-.destroy:
+;       DEBUGF 1, "[UART.destroy] eax=%x uart=%x\n", eax, [eax+CONNECTION.uart]
         push    [eax+CONNECTION.uart]
-        call    DestroyObject   ;eax= object
+        invoke  DestroyObject            ;eax= object
-        pop     eax                     ;eax= uart
+        pop     eax                      ;eax= uart
         test    eax, eax
         jz      .fail
 align 4
 com_2_isr:
         mov     ebx, [com2]
+        jmp     com_1_isr.get_info
         jmp     com_1_isr.get_info
 align 4
 com_1_isr:
+        mov     ebx, [com1]
         mov     ebx, [com1]
 .get_info:
         mov     edx, [ebx+UART.base]
         add     edx, IIR_REG
         in      al, dx
         ret
 align 4
+isr_recieve:
-isr_recieve:
+;       DEBUGF 1, "[UART.isr_recieve] ebx=%x\n", ebx
         mov     esi, [ebx+UART.base]
         add     esi, LSR_REG
         mov     edi, [ebx+UART.rcvr_wp]
         xor     ecx, ecx
             dd isr_line
 version     dd (5 shl 16) or (UART_VERSION and 0xFFFF)
+sz_uart_srv db 'UART', 0
+msg_start   db 'Loading UART driver...',13,10,0
 sz_uart_srv db 'UART',0
 include_debug_strings  ; All data wich FDO uses will be included here
+align 4
+com1        rd 1

Subversion Repositories Kolibri OS

(root)/drivers/old/uart.asm – Rev 5363 → 8384