flat assembler
Message board for the users of flat assembler.

Home Search Register
Log in to check your private messages Log in

Index > DOS > ComMonitor
Author
Thread Post new topic Reply to topic
viki



Joined: 03 Jan 2006
Posts: 40
Location: Czestochowa, Poland
viki 27 Jul 2006, 06:57
Hello. This is a small ComMonitor.com file for monitoring rs232 communication. With colours there is a info about RTS and DSR status and uart errors. There is also a small parser for not 'standard' characters and digits. This is a very first version so there is still a lot things to do:
- testing
- display scrolling
- configuration screen when 'c' key pressed
- new line when RTS status changed and time stamp for each line
- moving it to dex4u os.

Code:
PORT1 = 3f8h
THR = 0     ;Transmitter Holding Reg
RBR = 0     ;Reciver Buffer Reg
IER = 1     ;Interrupt Enable Reg
IIR = 2     ;Interrupt Identyfication Reg
LCR = 3     ;Line Control Reg
MCR = 4     ;Modem Control Reg
LSR = 5     ;Line Status Reg
MSR = 6     ;Modem Status Reg

INT_ON_RxD  = 0x01
INT_ON_TxD  = 0x02
INT_ON_LINE_STATUS  = 0x04
INT_ON_MODEM_STATUS = 0x08

DATA_LEN_5  = 0x00
DATA_LEN_6  = 0x01
DATA_LEN_7  = 0x02
DATA_LEN_8  = 0x03

STOP_BIT_1  = 0x00
STOP_BIT_2  = 0x04

PARITY_NO     = 0x00
PARITY_ODD  = 0x08
PARITY_EVEN = 0x18
PARITY_HIGH = 0x28
PARITY_LOW  = 0x38 

BR_115200 = 0x01
BR_57600  = 0x02
BR_38400  = 0x03
BR_19200  = 0x06
BR_9600   = 0x0C
BR_4800   = 0x18
BR_2400   = 0x30  

  org 100h

macro cinvoke proc,[arg]    ; indirectly call CDECL procedure
{
  common
    size@ccall = 0
  reverse
    push arg
    size@ccall = size@ccall+2
  common
    call proc
    add sp,size@ccall
}

;-- -----------------------------------------------------------------------
macro outb port_nr,data
;-------------------------------------------------------------------------
{
    mov     dx , port_nr
    mov     al , data
    out     dx , al
}

;-------------------------------------------------------------------------
macro in_b port_nr
;-------------------------------------------------------------------------
{
    mov     dx , port_nr
    in    al , dx
}

    call     SetPalette
    cinvoke _getvect,12
    mov word [old_vect],dx
    mov word [old_vect+2],ax
    cinvoke _setvect,12,com_int,ds
    call    ComMoni;
    cinvoke _setvect,12,word [old_vect+2],word [old_vect]
    cinvoke _delay,2
    ret

;-------------------------------------------------------------------------
com_int:
;-------------------------------------------------------------------------
    pusha
    push  ds
    push  cs
    pop   ds
    in_b  PORT1 + LSR
    test  al,1
    je  @f
    mov   cl,al
    and   cl,0x0f
    in_b  PORT1
    mov   bx,[io_buf_end]
    mov   [io_buf+bx],al
    in_b  PORT1 + MSR
    shl   al,2
    push  ax
    and   al,0xc0
    pop   dx
    shl   dl,2
    and   dl,0x30
    or    al,dl
    or    cl,al
    mov [io_buf+bx+1],cl
    add byte[io_buf_end],2
    inc [icnt]
@@:
    outb  0x20 , 0x20
    pop ds
    popa
    iret

;-------------------------------------------------------------------------
_getvect:
;-------------------------------------------------------------------------
    push    bp
    mov   bp,sp
    push    es
    mov   ah, 035h
    mov   al, [bp+4]
    int   021h
    xchg    ax,bx
    mov   dx,es
    pop   es
    pop   bp
    ret

;-------------------------------------------------------------------------
_setvect:
;-------------------------------------------------------------------------
    push    bp
    mov     bp,sp
    mov     ah, 025h
    mov     al, [bp+4]
    push    ds
    lds     dx, [bp+6]
    int     021h
    pop     ds
    pop     bp
    ret

;-------------------------------------------------------------------------
com_setup:  ;in bl - baudrate
;-------------------------------------------------------------------------
    outb    PORT1 + LCR , 0x80  ;SET DLAB ON
    outb   PORT1 + RBR , bl       ;Set Baud rate - Divisor Latch Low Byte
    outb   PORT1 + IER,0x00 ;Set Baud rate - Divisor Latch High Byte
    outb   PORT1 + LCR , DATA_LEN_8 or STOP_BIT_1 or PARITY_NO
    outb   PORT1 + IIR , 0xC7 ;FIFO Control Register
    outb   PORT1 + MCR , 0x0B ;Turn on DTR, RTS, and OUT2
    outb   PORT1 + IER , 1
    in_b   0x21
    and    al , 0x0ef
      ;COM1,3 (IRQ4) - 0xEF
      ;COM2,4 (IRQ3) - 0xF7
    out  21h, al   ;Set Programmable Interrupt Controller
    in_b   PORT1+MSR
    in_b    PORT1
    ret

;-------------------------------------------------------------------------
_delay:
;-------------------------------------------------------------------------
    push   bp
    mov    bp,sp
    push   ax
    push   cx
    mov    cx, [bp+4]
    mov    ax,8600h
    int    15h
    pop    cx
    pop    ax
    pop    bp
    ret

;-------------------------------------------------------------------------
_cread:
;-------------------------------------------------------------------------
    push  bp
    mov   bp,sp
    push  si
    mov   si,[bp + 6]
crl1:
    cinvoke _delay,1
    mov   ax,[io_buf_end]
    cmp   ax,[bp + 4]
    jb    crl3
    mov   ax,[io_buf_end]
    jmp   crl4
crl3:
    dec   si
    jne   crl1
crl4:
    pop   si
    pop   bp
    ret

;-------------------------------------------------------------------------
_cwrite:
;-------------------------------------------------------------------------
    push   bp
    mov    bp,sp
    push   si
    mov    [io_buf_end],0
    cinvoke _delay,2
    mov    cx , [bp+6]
    mov    si , [bp+4]
@@:
    in_b   PORT1 + LSR
    test   al , 020H
    je     @b
    lodsb
    mov    dx , 03F8H
    out    dx , al
    dec    cx
    jne    @b
    pop     si
    pop     bp
    ret

;-------------------------------------------------------------------------
kbhit:
;-------------------------------------------------------------------------
    mov     ah, 0Bh
    int     21h
    cbw
    ret

;-------------------------------------------------------------------------
cs_conv:
;-------------------------------------------------------------------------
    push edi
@@:
     lodsw
     cmp  al , 'z'
     jg  parse
     cmp  al , ' '
     jl  parse
no_parse:
     stosw
     jmp  pend
parse:
     push eax
      push eax
       mov  al,'['
       stosw
      pop  eax
      and  al,0xf0
      shr  al,4
      call hextoc
      stosw
     pop  eax
     and  al,0x0f
     call hextoc
     stosw
     mov  al,']'
     stosw
pend:
     dec cx
     jne @b
    pop ecx
    mov eax,edi
    sub eax,ecx
    ret

;-------------------------------------------------------------------------
hextoc:
;-------------------------------------------------------------------------
    add al,'0'
    cmp al,'9'
    jle @f
    add al,39
@@: ret

;-------------------------------------------------------------------------
move32:
;-------------------------------------------------------------------------
shr cx,1
    jnc @f
    movsb
@@: shr cx,1
    jnc @f
    movsw
@@: rep movsd
ret

;------------------------------------------------------------------------
setvga:
;------------------------------------------------------------------------
  mov dx,03dah
  in al,dx
  mov dx,03c0h
  mov al,10h              ;read mode control register
  out dx,al
  mov dx,03c1h
  in  al,dx
  and al,0f7h             ;erase bits for 16 backgroung colors,
  mov ah,al               ;instead of 8 and blinking
  mov dx,03dah
  in al,dx
  mov dx,03c0h
  mov al,10h
  out dx,al
  mov al,ah               ;write new value to mode control register
  out dx,al
  mov al,30h
  out dx,al
  ret

;-------------------------------------------------------------------------
SetPalette:
;-------------------------------------------------------------------------
  call setvga
        mov si, Pal
        mov cx,16
SPal:
        mov dx,0x03c8
        outsb
        inc dx
        outsb
        outsb
        outsb
        loop SPal
  ret

;-------------------------------------------------------------------------
  ComMoni:
;-------------------------------------------------------------------------
    mov  bl,BR_115200
    call    com_setup
MainLoop:
    xor  cx , cx
    mov  dx , [io_buf_end]
    cmp  dx , [io_buf_beg]
    jz   no_data
    jnl  @f
    mov  cx , 256
@@:
    sub  dx , [io_buf_beg]
    add  cx , dx
    shr  cx , 1
    mov  si , io_buf
    add  si , [io_buf_beg]
    mov  di , wk_buf
    add  di , [wk_buf_end]
    call cs_conv
    mov  [parsed],ax
    add  [wk_buf_end],ax
    add  byte[io_buf_beg],2
    mov  cx , [wk_buf_end]
    sub  cx , [wk_buf_beg]
    jz   no_data
    push es
    push 0xb800
    pop  es
    mov  si,wk_buf
    add  si,[wk_buf_beg]
    mov  di,0
    add  di,[sc_buf_end]
    push cx
    call move32
    pop  cx
    add  [sc_buf_end],cx
    add  [wk_buf_beg],cx
    pop  es
no_data:
    call  kbhit
    or    ax,ax
    je    MainLoop
    ret


Pal:
    db 000h,01ah,022h,018h ; 0 dark green
    db 001h,026h,02eh,020h ; 1 grass
    db 002h,032h,038h,02eh ; 2 light green
    db 003h,038h,038h,026h ; 3 yellow
    db 004h,03ah,034h,024h ; 4 orange
    db 005h,032h,028h,01eh ; 5 kakao
    db 014h,02eh,02ch,024h ; 6 gray brown
    db 03ch,02eh,02ah,01ch ; c light brown
    db 038h,016h,00ah,000h ; 8 dark brown
    db 039h,026h,01eh,028h ; 9 dark violet
    db 03ah,02ch,028h,02eh ; a light violet
    db 03bh,01eh,032h,02ch ; b light navy
    db 007h,016h,02eh,02ch ; 7 dark navy
    db 03dh,016h,024h,02eh ; d blue
    db 03eh,02ah,02ah,02ah ; e gray
    db 03fh,000h,000h,000h ; f black


    old_vect   dd ?
    parsed     dw ?
    icnt       dw ?
    io_buf_end dw 0
    io_buf_beg dw 0
    wk_buf_end dw 0
    wk_buf_beg dw 0
    sc_buf_end dw 0
    sc_buf_beg dw 0
    align 16
    io_buf rb 256
    wk_buf db ?


Last edited by viki on 27 Jul 2006, 11:52; edited 1 time in total
Post 27 Jul 2006, 06:57
View user's profile Send private message Reply with quote
vid
Verbosity in development


Joined: 05 Sep 2003
Posts: 7105
Location: Slovakia
vid 27 Jul 2006, 09:46
viki: you could rewrite comments to english and let Tomasz place this to examples
Post 27 Jul 2006, 09:46
View user's profile Send private message Visit poster's website AIM Address MSN Messenger ICQ Number Reply with quote
viki



Joined: 03 Jan 2006
Posts: 40
Location: Czestochowa, Poland
viki 27 Jul 2006, 11:55
ok I've changed the comments buy I'm affraid it's not reall clear to put it as an example. This version is stable Wink and allow to exced more than 8000 datas.

Code:
PORT1 = 3f8h
THR = 0     ;Transmitter Holding Reg
RBR = 0     ;Reciver Buffer Reg
IER = 1     ;Interrupt Enable Reg
IIR = 2     ;Interrupt Identyfication Reg
LCR = 3     ;Line Control Reg
MCR = 4     ;Modem Control Reg
LSR = 5     ;Line Status Reg
MSR = 6     ;Modem Status Reg

INT_ON_RxD          = 0x01
INT_ON_TxD          = 0x02
INT_ON_LINE_STATUS  = 0x04
INT_ON_MODEM_STATUS = 0x08

DATA_LEN_5  = 0x00
DATA_LEN_6  = 0x01
DATA_LEN_7  = 0x02
DATA_LEN_8  = 0x03

STOP_BIT_1  = 0x00
STOP_BIT_2  = 0x04

PARITY_NO   = 0x00
PARITY_ODD  = 0x08
PARITY_EVEN = 0x18
PARITY_HIGH = 0x28
PARITY_LOW  = 0x38 

BR_115200 = 0x01
BR_57600  = 0x02
BR_38400  = 0x03
BR_19200  = 0x06
BR_9600   = 0x0C
BR_4800   = 0x18
BR_2400   = 0x30

SCR_SIZE  = 8000
LN_LEN    = 160

  org 100h

;-------------------------------------------------------------------------
macro cinvoke proc,[arg]    ; indirectly call CDECL procedure
;-------------------------------------------------------------------------
{
  common
    size@ccall = 0
  reverse
    push arg
    size@ccall = size@ccall+2
  common
    call proc
    add sp,size@ccall
}

;-------------------------------------------------------------------------
macro outb port_nr,data
;-------------------------------------------------------------------------
{
    mov     dx , port_nr
    mov     al , data
    out     dx , al
}

;-------------------------------------------------------------------------
macro in_b port_nr
;-------------------------------------------------------------------------
{
    mov     dx , port_nr
    in      al , dx
}

;-------------------------------------------------------------------------
Start:
;-------------------------------------------------------------------------
    call     set80x50
    call     SetPalette
    call     ClrScr
    call     cursor_off
    cinvoke  _getvect,12
    mov word [old_vect],dx
    mov word [old_vect+2],ax
    cinvoke  _setvect,12,com_int,ds
    mov      bl,BR_115200
    call     com_setup
    call     ComMoni
    call     cursor_on
    cinvoke  _setvect,12,word [old_vect+2],word [old_vect]
    ret

;-------------------------------------------------------------------------
com_int:
;-------------------------------------------------------------------------
    pusha
    push  ds
    push  cs
    pop   ds
    in_b  PORT1 + LSR
    test  al,1
    je  @f
    mov   cl,al
    and   cl,0x0f
    in_b  PORT1
    mov   ebx,[io_end]
    mov   [io_buf+ebx],al
    in_b  PORT1 + MSR
    shl   al,2
    push  ax
    and   al,0xc0
    pop   dx
    shl   dl,2
    and   dl,0x30
    or    al,dl
    or    cl,al
    mov [io_buf+ebx+1],cl
    add   byte[io_end],2
    inc   [icnt]
@@:
    outb  0x20 , 0x20
    pop ds
    popa
    iret

;-------------------------------------------------------------------------
_getvect:
;-------------------------------------------------------------------------
    push    bp
    mov   bp,sp
    push    es
    mov   ah, 035h
    mov   al, [bp+4]
    int   021h
    xchg    ax,bx
    mov   dx,es
    pop   es
    pop   bp
    ret

;-------------------------------------------------------------------------
_setvect:
;-------------------------------------------------------------------------
    push    bp
    mov     bp,sp
    mov     ah, 025h
    mov     al, [bp+4]
    push    ds
    lds     dx, [bp+6]
    int     021h
    pop     ds
    pop     bp
    ret

;-------------------------------------------------------------------------
com_setup:  ;in bl - baudrate
;-------------------------------------------------------------------------
    outb    PORT1 + LCR , 0x80  ;SET DLAB ON
    outb   PORT1 + RBR , bl       ;Set Baud rate - Divisor Latch Low Byte
    outb   PORT1 + IER,0x00 ;Set Baud rate - Divisor Latch High Byte
    outb   PORT1 + LCR , DATA_LEN_8 or STOP_BIT_1 or PARITY_NO
    outb   PORT1 + IIR , 0xC7 ;FIFO Control Register
    outb   PORT1 + MCR , 0x0B ;Turn on DTR, RTS, and OUT2
    outb   PORT1 + IER , 1
    in_b   0x21
    and    al , 0x0ef
      ;COM1,3 (IRQ4) - 0xEF
      ;COM2,4 (IRQ3) - 0xF7
    out  21h, al   ;Set Programmable Interrupt Controller
    in_b   PORT1+MSR
    in_b    PORT1
    ret

;-------------------------------------------------------------------------
kbhit:
;-------------------------------------------------------------------------
    mov     ah, 0Bh
    int     21h
    cbw
    ret

;-------------------------------------------------------------------------
cs_conv:
;-------------------------------------------------------------------------
    push edi
@@:
     lodsw
     cmp  al , 'z'
     jg  parse
     cmp  al , ' '
     jl  parse
no_parse:
     stosw
     jmp  pend
parse:
     push eax
      push eax
       mov  al,'['
       stosw
      pop  eax
      and  al,0xf0
      shr  al,4
      call hextoc
      stosw
     pop  eax
     and  al,0x0f
     call hextoc
     stosw
     mov  al,']'
     stosw
pend:
     dec cx
     jne @b
    pop ecx
    mov eax,edi
    sub eax,ecx
    ret

;-------------------------------------------------------------------------
hextoc:
;-------------------------------------------------------------------------
    add al,'0'
    cmp al,'9'
    jle @f
    add al,39
@@: ret

;-------------------------------------------------------------------------
move32:
;-------------------------------------------------------------------------
    shr ecx,1
    jnc @f
    movsb
@@: shr ecx,1
    jnc @f
    movsw
@@: rep movsd
ret

;-------------------------------------------------------------------------
fill32:
;-------------------------------------------------------------------------
    shr ecx,1
    jnc @f
    stosb
@@: shr ecx,1
    jnc @f
    stosw
@@: rep stosd
ret

;------------------------------------------------------------------------
cursor_on:
;------------------------------------------------------------------------
    outb  0x3d4,0x0a
    outb  0x3d5,0x0d
    outb  0x3d4,0x0b
    outb  0x3d5,0x0d
    ret

;------------------------------------------------------------------------
cursor_off:
;------------------------------------------------------------------------
    outb  0x3d4,0x0a
    outb  0x3d5,0x01
    outb  0x3d4,0x0b
    outb  0x3d5,0x00
    ret

;------------------------------------------------------------------------
set80x50:
;------------------------------------------------------------------------
    mov ax,0003h
    int 10h
    mov ax,1112h
    xor bl,bl
    int 10h
    ret

;------------------------------------------------------------------------
setvga:
;------------------------------------------------------------------------
  mov dx,03dah
  in al,dx
  mov dx,03c0h
  mov al,10h              ;read mode control register
  out dx,al
  mov dx,03c1h
  in  al,dx
  and al,0f7h             ;erase bits for 16 backgroung colors,
  mov ah,al               ;instead of 8 and blinking
  mov dx,03dah
  in al,dx
  mov dx,03c0h
  mov al,10h
  out dx,al
  mov al,ah               ;write new value to mode control register
  out dx,al
  mov al,30h
  out dx,al
  ret

;-------------------------------------------------------------------------
SetPalette:
;-------------------------------------------------------------------------
    call setvga
    mov si, Pal
    mov cx,16
SPal:
    mov dx,0x03c8
    outsb
    inc dx
    outsb
    outsb
    outsb
    loop SPal
    ret

;-------------------------------------------------------------------------
  ClrDisp: ;in edi - dst, eax - pattern, ecx - counter
;-------------------------------------------------------------------------
    push es
    push 0xb800
    pop  es
    call fill32
    pop  es
    ret

;-------------------------------------------------------------------------
  ClrScr:
;-------------------------------------------------------------------------
    pusha
    mov  edi,0
    mov  ecx,SCR_SIZE
    mov  eax,0xf120f120
    call ClrDisp
    popa
    ret

;-------------------------------------------------------------------------
  ClrLastLine:
;-------------------------------------------------------------------------
    pusha
    mov  edi,SCR_SIZE-160
    mov  ecx,160
    mov  eax,0x01200120
    call ClrDisp
    popa
    ret


;-------------------------------------------------------------------------
  DispData: ;in esi - scr, edi - dst, ecx - counter
;-------------------------------------------------------------------------
    push es
    push 0xb800
    pop  es
    call move32
    pop  es
    ret


;-------------------------------------------------------------------------
  ComMoni:
;-------------------------------------------------------------------------
    mov  ecx , [io_end]
    sub  ecx , [io_beg]       ; io_dif = io_end - io_beg;
    jz   no_data              ; if(!io_dif) goto no_data;
    jnl  @f                   ; if(io_dif<0) 
    add  ecx , 256            ;    io_dif += io_size
@@:
    shr  ecx , 1              ; io_dif /= 2;
    mov  esi , io_buf
    add  esi , [io_beg]
    mov  edi , [wk_end]
    call cs_conv              ; parsed = cs_conv(wk_end,io_beg,io_dif);
    mov  [parsed] , eax
    add  [wk_end] , eax       ; wk_end += parsed;
    add  byte[io_beg],2       ; io_beg += 2;
    mov  ecx , [wk_end]
    sub  ecx , [wk_beg]       ; dif_wk = wk_end - wk_beg
    cmp  ecx , SCR_SIZE       ; if(dif_wk > sc_size)
    jg   sc_scroll            ;   goto sc_scroll
    mov  ecx , [wk_end]        
    sub  ecx , [parsed]
    mov  esi , ecx            ; src = wk_end - parsed
    mov  edi , [sc_end]       ; dst = sc_end
    mov  ecx , [parsed]       ; cnt = parsed
    jmp  sc_update
sc_scroll:
    call ClrLastLine          ; ClrLastLine();
    add  [wk_beg] , LN_LEN    ; wk_bed += LN_LEN
    sub  ecx , LN_LEN         ; wk_dif -= LN_LEN
    mov  [sc_end] , 0         ; sc_end = 0
    mov  esi,[wk_beg]         ; src = wk_beg
    mov  edi,[sc_beg]         ; dst = sc_beg
sc_update:                    ; cnt = wk_dif
    push ecx
    call DispData
    pop  ecx
    add  [sc_end] , ecx
no_data:
    call  kbhit
    or    ax,ax
    je    ComMoni
    ret


Pal:
    db 000h,01ah,022h,018h ; 0 dark green
    db 001h,026h,02eh,020h ; 1 grass
    db 002h,032h,038h,02eh ; 2 light green
    db 003h,038h,038h,026h ; 3 yellow
    db 004h,03ah,034h,024h ; 4 orange
    db 005h,032h,028h,01eh ; 5 kakao
    db 014h,02eh,02ch,024h ; 6 gray brown
    db 03ch,02eh,02ah,01ch ; c light brown
    db 038h,016h,00ah,000h ; 8 dark brown
    db 039h,026h,01eh,028h ; 9 dark violet
    db 03ah,02ch,028h,02eh ; a light violet
    db 03bh,01eh,032h,02ch ; b light navy
    db 007h,016h,02eh,02ch ; 7 dark navy
    db 03dh,016h,024h,02eh ; d blue
    db 03eh,02ah,02ah,02ah ; e gray
    db 03fh,000h,000h,000h ; f black


    old_vect  dd  ?
    icnt      dw  ?
    parsed    dd  0
    io_end    dd  0
    io_beg    dd  0
    wk_end    dd  wk_buf
    wk_beg    dd  wk_buf
    sc_end    dd  0
    sc_beg    dd  0
    
align 16
    io_buf    rb  256
    wk_buf    db  ?


Description: Block diagram for main function
Download
Filename: ComMoni.pdf
Filesize: 20.35 KB
Downloaded: 188 Time(s)

Post 27 Jul 2006, 11:55
View user's profile Send private message Reply with quote
Display posts from previous:
Post new topic Reply to topic

Jump to:  


< Last Thread | Next Thread >
Forum Rules:
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Main index Download Documentation Examples Message board

Copyright © 1999-2023, Tomasz Grysztar. Also on GitHub, YouTube, Twitter.

Website powered by rwasa.