Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;                                          ;

;   Stack Configuration Tool               ;

;                                          ;

;   Compile with FASM for Menuet           ;

;                                          ;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

memsize = 100000h

	       org 0

PARAMS	= memsize - 1024

use32

	       db     'MENUET01'	      ; 8 byte id

	       dd     0x01		      ; header version

	       dd     START		      ; start of code

	       dd     I_END		      ; size of image

	       dd     memsize		      ; memory for app

	       dd     memsize - 1024	      ; esp

	       dd     PARAMS , 0x0	      ; I_Param , I_Icon

include 'lang.inc'

include '../../../macros.inc'

START:				; start of execution

read_stack_setup:

    mov  eax,52

    mov  ebx,0

    mcall

    mov  [config],eax

    mov  eax,52

    mov  ebx,1

    mcall

    mov  dword [ip_address],eax

    mov  eax,52

    mov  ebx,9

    mcall

    mov  dword [gateway_ip],eax

    mov  eax,52

    mov  ebx,10

    mcall

    mov  dword [subnet_mask],eax

    mov  eax,52

    mov  ebx,13

    mcall

    mov  dword [dns_ip],eax

    mov  eax,[config]	; unwrap com IRQ

    shr  eax,8

    and  eax,0xf

    mov  [com_irq],eax

    mov  eax,[config]	; unwrap com PORT

    shr  eax,16

    and  eax,0xfff

    mov  [com_add],eax

    mov  eax,[config]	; unwrap IRQ

    and  eax,0xf

    mov  [interface],eax

    mov  eax,[config]	; unwrap com PORT

    shr  eax,7

    and  eax,1

    mov  [assigned],eax

  red:

    call draw_window		; at first, draw the window

still:

    mov  eax,10 		; wait here for event

    mcall

    cmp  eax,1			; redraw request ?

    jz	 red

    cmp  eax,2			; key in buffer ?

    jnz  button

  key:				; key

;    mov  al,2                  ; just read it and ignore

    mcall

    jmp  still

  button:			; button

    mov  al,17		       ; get id

    mcall

    shr  eax,8

    dec  eax			 ; button id=1 ?

    jne  noclose

    or	 eax,-1 		; close this program

    mcall

  noclose:

    dec  eax

    je	 read_stack_setup

    dec  eax

    jne  no_apply_stack_setup

    call apply_stack_setup

    jmp  still

no_apply_stack_setup:

    dec  eax		      ; GET COM PORT

    dec  eax

    jne  no_read_comport

    mov  [string_x],272

    mov  [string_y],40

    mov  [string_length],3

    call read_string

    movzx eax,byte [string]

    cmp  eax,'A'

    jb	 gcp1

    sub  eax,'A'-'9'-1

   gcp1:

    sub  eax,48

    shl  eax,8

    mov  ebx,eax

    movzx eax,byte [string+1]

    cmp  eax,'A'

    jb	 gcp2

    sub  eax,'A'-'9'-1

   gcp2:

    sub  eax,48

    shl  eax,4

    add  ebx,eax

    movzx eax,byte [string+2]

    cmp  eax,'A'

    jb	 gcp3

    sub  eax,'A'-'9'-1

   gcp3:

    sub  eax,48

    add  ebx,eax

    mov  [com_add],ebx

    jmp  red

   no_read_comport:

    dec  eax		      ; GET COM IRQ

    jne  no_read_comirq

    mov  [string_x],284

    mov  [string_y],50

    mov  [string_length],1

    call read_string

    movzx eax,byte [string]

    cmp  eax,'A'

    jb	 gci1

    sub  eax,'A'-'9'-1

   gci1:

    sub  eax,48

    mov  [com_irq],eax

    jmp  red

    no_read_comirq:

    dec  eax		      ; GET IP

    jne  no_read_ip

    mov  [string_x],205

    mov  [string_y],80

    mov  [string_length],15

    call read_string

    mov   esi,string-1

    mov   edi,ip_address

   ip0:

    xor   eax,eax

   ip1:

    inc   esi

    cmp   [esi],byte '0'

    jb	  ip2

    cmp   [esi],byte '9'

    jg	  ip2

    imul  eax,10

    movzx ebx,byte [esi]

    sub   ebx,48

    add   eax,ebx

    jmp   ip1

   ip2:

    stosb

    cmp   edi,ip_address+3

    jbe   ip0

    jmp   red

   no_read_ip:

    dec     eax 		; set gateway ip

    jne     no_set_gateway

    mov  [string_x],205

    mov  [string_y],90

    mov  [string_length],15

    call read_string

    mov   esi,string-1

    mov   edi,gateway_ip

   gip0:

    xor   eax,eax

   gip1:

    inc   esi

    cmp   [esi],byte '0'

    jb	  gip2

    cmp   [esi],byte '9'

    jg	  gip2

    imul  eax,10

    movzx ebx,byte [esi]

    sub   ebx,48

    add   eax,ebx

    jmp   gip1

   gip2:

    stosb