Subversion Repositories Kolibri OS

;

;   COMMUNICATING WITH MODEM: PORTS & IRQ

;

;   Compile with FASM for Menuet

;

include "lang.inc"

include "..\..\..\..\macros.inc"

  use32

  org    0x0

  db     'MENUET01'  ; 8 byte id

  dd     0x01        ; header version

  dd     START       ; start of code

  dd     I_END       ; size of image

  dd     0x1000      ; memory for app

  dd     0x1000      ; esp

  dd     0x0 , 0x0   ; I_Param , I_Icon

START:                          ; start of execution

    mov  eax,45                 ; reserve irq 4

    mov  ebx,0

    mov  ecx,4

    mcall

    mov  eax,46                 ; reserve ports 0x3f8-0x3ff

    mov  ebx,0

    mov  ecx,0x3f8

    mov  edx,0x3ff

    mcall

    mov  eax,44                 ; read these ports at interrupt/irq 4

    mov  ebx,irqtable

    mov  ecx,4

    mcall

    mov  eax,40                 ; enable event for interrupt/irq 4

    mov  ebx,10000b shl 16 + 111b

    mcall

    call program_com1

    mov  eax, 48

    mov  ebx, 3

    mov  ecx, sc

    mov  edx, sizeof.system_colors

    mcall

  red:

    call draw_window

still:

    mov  eax,10                 ; wait here for event

    mcall

    cmp  eax,1                  ; redraw request ?

    je   red

    cmp  eax,2                  ; key in buffer ?

    je   key

    cmp  eax,3                  ; button in buffer ?

    je   button

    cmp  eax,16+4               ; data read by interrupt ?

    je   irq4

    jmp  still

  key:                          ; key

    mov  eax,2                  ; just read it and ignore

    mcall

    mov  al,ah

    mov  dx,0x3f8

    out  dx,al

    jmp  still

  button:                       ; button

    or   eax,-1                 ; close this program

    mcall

  irq4:

    mov  eax,42

    mov  ebx,4

    mcall

    ; eax = number of bytes left

    ; ecx = 0 success, =1 fail

    ; bl  = byte

    inc   [pos]

    and   [pos],31

    mov   eax,[pos]

    mov   [string+eax], bl

    call  draw_string

    jmp  still

baudrate_9600   equ 12

baudrate_57600  equ  2

program_com1:

    mov  dx,0x3f8+3

    mov  al,0x80

    out  dx,al

    mov  dx,0x3f8+1

    mov  al,0x00

    out  dx,al

    mov  dx,0x3f8+0

    mov  al,baudrate_9600

    out  dx,al

    mov  dx,0x3f8+3

    mov  al,0x3

    out  dx,al

    mov  dx,0x3f8+4

    mov  al,0xb

    out  dx,al

    mov  dx,0x3f8+1

    mov  al,0x1

    out  dx,al

    ret

;   *********************************************

;   *******  WINDOW DEFINITIONS AND DRAW ********

;   *********************************************

draw_window:

    mov  eax, 12                   ; function 12:tell os about windowdraw

    mov  ebx, 1                    ; 1, start of draw

    mcall

                                   ; DRAW WINDOW

    mov  eax, 0                    ; function 0 : define and draw window

    mov  ebx, 100*65536+250        ; [x start] *65536 + [x size]

    mov  ecx, 100*65536+85         ; [y start] *65536 + [y size]

    mov  edx, [sc.work]

    or   edx, 0x03000000           ; color of work area RRGGBB,8->color gl

    mcall

                                   ; WINDOW LABEL

    mov  eax, 4                    ; function 4 : write text to window

    mov  ebx, 8*65536+8            ; [x start] *65536 + [y start]

    mov  ecx, [sc.grab_text]

    or   ecx, 0x10000000           ; font 1 & color ( 0xF0RRGGBB )

    mov  edx, title               ; pointer to text beginning

    mov  esi, title.len           ; text length

    mcall

    mov  eax, 4                    ; draw text

    mov  ebx, 20*65536+33

    mov  ecx, [sc.work_text]

    mov  edx, text+4

  .nextstr:

    mov  esi, [edx-4]

    test esi, 0xFF000000

    jnz  .finstr

    mcall

    add  edx, esi

    add  edx, 4

    add  ebx, 10

    jmp  .nextstr

  .finstr:

    call draw_string

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,2                     ; 2, end of draw

    mcall

    ret

draw_string:

    mov  eax, 4

    mov  ebx, 20*65536+65

    mov  ecx, [sc.work_text]

    mov  edx, string

    mov  esi, 32

    mcall

ret

; DATA AREA

if lang eq ru

   text mstr "�������� ������� ���������� ������.",\

             "������ �� ������ ����������� ��",\

             "���������� IRQ4 � ������������ ����."

   title:

        db   '����� �� COM1'

    .len = $ - title

else

   text mstr "TYPED CHARACTERS ARE SENT TO MODEM.",\

             "DATA FROM MODEM IS READ BY IRQ4",\

             "INTERRUPT AND DISPLAYED BELOW."

   title:

        db   'MODEM AT COM1'

    .len = $ - title

end if

pos  dd  0x0

irqtable:

       ; port    ; 1=byte, 2=word

  dd   0x3f8 +0x01000000   ; read byte from port 0x3f8 at interrupt/irq 4

  dd   0x0                 ; no more ports ( max 15 ) to read

I_END:

string rb 32

sc system_colors