WebSVN – Kolibri OS – Diff – /programs/network/stackcfg/trunk/stackcfg.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                          ;
;   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
 
    cmp     [PARAMS], dword 'BOOT'
    jz	    boot_set_settings
 
no_params:
 
  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
    cmp   edi,gateway_ip+3
    jbe   gip0
    jmp   red
 
  no_set_gateway:
 
    dec     eax
    jne     no_set_subnet
 
    mov  [string_x],205
    mov  [string_y],100
    mov  [string_length],15
    call read_string
    mov   esi,string-1
    mov   edi,subnet_mask
   sip0:
    xor   eax,eax
   sip1:
    inc   esi
    cmp   [esi],byte '0'
    jb	  sip2
    cmp   [esi],byte '9'
    jg	  sip2
    imul  eax,10
    movzx ebx,byte [esi]
    sub   ebx,48
    add   eax,ebx
    jmp   sip1
   sip2:
    stosb
    cmp   edi,subnet_mask+3
    jbe   sip0
    jmp   red
 
  no_set_subnet:
    dec     eax
    jne     no_set_dns
 
    mov  [string_x],205
    mov  [string_y],110
    mov  [string_length],15
    call read_string
    mov   esi,string-1
    mov   edi,dns_ip
   dip0:
    xor   eax,eax
   dip1:
    inc   esi
    cmp   [esi],byte '0'
    jb	  dip2
    cmp   [esi],byte '9'
    jg	  dip2
    imul  eax,10
    movzx ebx,byte [esi]
    sub   ebx,48
    add   eax,ebx
    jmp   dip1
   dip2:
    stosb
    cmp   edi,dns_ip+3
    jbe   dip0
    jmp   red
 
  no_set_dns:
 
    dec  eax
    jb	 no_set_interface
    cmp  eax,14-11
    ja	 no_set_interface
    mov  [interface],eax
    jmp  red
   no_set_interface:
 
    sub  eax,21-11
    jb	 no_ip_sf
    cmp  eax,22-21
    ja	 no_ip_sf
    xor  eax,1
    mov  [assigned],eax
    jmp  red
    no_ip_sf:
    jmp  still
 
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
    jmp  red
 
apply_stack_setup:
 
    mov  eax,[com_irq]
    shl  eax,8
    mov  ebx,[com_add]
    shl  ebx,16
    add  eax,ebx
    add  eax,[interface]
    mov  ebx,[assigned]
    shl  ebx,7
    add  eax,ebx
    mov  [config],eax
 
    mov  eax,52
    mov  ebx,3
    mov  ecx,dword [ip_address]
    mcall
 
    mov  eax,52
    mov  ebx,11
    mov  ecx,dword [gateway_ip]
    mcall
 
    mov  eax,52
    mov  ebx,12
    mov  ecx,dword [subnet_mask]
    mcall
 
    mov  eax,52
    mov  ebx,14
    mov  ecx,dword [dns_ip]
    mcall
 
    mov  eax,52
    mov  ebx,2
    mov  ecx,[config]
    mcall
 
    ret
 
 
string_length  dd    16
string_x       dd    200
string_y       dd    60
 
string	       db    '________________'
 
 
read_string:
 
    mov  edi,string
    mov  eax,'_'
    mov  ecx,[string_length]
    cld
    rep  stosb
    call print_text
 
    mov  edi,string
  f11:
    mov  eax,10
    mcall
    cmp  eax,2
    jne  read_done
;    mov  eax,2
    mcall
    shr  eax,8
    cmp  eax,13
    je	 read_done
    cmp  eax,8
    jnz  nobsl
    cmp  edi,string
    jz	 f11
    sub  edi,1
    mov  [edi],byte '_'
    call print_text
    jmp  f11
  nobsl:
    cmp  eax,dword 31
    jbe  f11
    cmp  eax,dword 95
    jb	 keyok
    sub  eax,32
  keyok:
    mov  [edi],al
    call print_text
 
    inc  edi
    mov  esi,string
    add  esi,[string_length]
    cmp  esi,edi
    jnz  f11
 
  read_done:
 
print_text:
 
    pusha
 
    mov  eax,13
    mov  ebx,[string_x]
    shl  ebx,16
    add  ebx,[string_length]
    imul bx,6
    mov  ecx,[string_y]
    shl  ecx,16
    mov  cx,8
    mov  edx,0xffffff
    mcall
 
    mov  eax,4
    mov  ebx,[string_x]
    shl  ebx,16
    add  ebx,[string_y]
    mov  ecx,0x000000
    mov  edx,string
    mov  esi,[string_length]
    mcall
 
    popa
    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+330	   ; [x start] *65536 + [x size]
    mov  ecx,100*65536+157	   ; [y start] *65536 + [y size]
    mov  edx,0x14ffffff 	   ; color of work area RRGGBB,8->color gl
    mov  edi,title		  ; WINDOW LABEL
    mcall
 
 
    mov  eax,8			   ; BUTTON : READ SETUP
    mov  ebx,90*65536+65
    mov  ecx,127*65536+12
    mov  edx,2
    mov  esi,[button_color]
    mcall
 
    ;mov  eax,8                     ; BUTTON : APPLY SETUP
    mov  ebx,163*65536+65
    mov  ecx,127*65536+12
    mov  edx,3
    mcall
 
    ;mov  eax,8                     ; BUTTONS 11-14 : SELECT INTERFACE
    mov  ebx,29*65536+8
    mov  ecx,39*65536+8
    mov  edx,11
  interface_select:
    mcall
    add  ecx,10*65536
    inc  edx
    cmp  edx,11+4
    jb	 interface_select
 
    mov  ebx,[interface]	   ; PRINT SELECTED INTERFACE 'X'
    imul ebx,10
    add  ebx,31*65536+39
    mov  eax,4
    mov  ecx,0xffffff
    mov  edx,xx
    mov  esi,1
    mcall
 
    mov  eax,8			  ; BUTTONS 21-22 : SERVER / MANUAL IP
    mov  ebx,143*65536+8
    mov  ecx,69*65536+8
    mov  edx,21
    mov  esi,[button_color]
    mcall
    ;mov  eax,8
    mov  ebx,143*65536+8
    mov  ecx,79*65536+8
    mov  edx,22
    mcall
    mov  ebx,[assigned] 	  ; PRINT SELECTED SERVER/MANUAL 'X'
    not  ebx
    and  ebx,1
    imul ebx,10
    add  ebx,145*65536+69
    mov  eax,4
    mov  ecx,0xffffff
    mov  edx,xx
    mov  esi,1
    mcall
 
    mov  eax,47 		  ; COM ADDRESS
    mov  ebx,3*65536+1*256
    mov  ecx,[com_add]
    mov  edx,272*65536+40
    mov  esi,0x000000
    mcall
 
    ;mov  eax,47                   ; COM IRQ
    mov  ebx,1*65536+1*256
    mov  ecx,[com_irq]
    mov  edx,(266+3*6)*65536+50
    mov  esi,0x000000
    mcall
 
    mov  edi,ip_address
    mov  edx,205*65536+80
    mov  esi,0x000000
    mov  ebx,3*65536
  ipdisplay:
    ;mov  eax,47
    movzx ecx,byte [edi]
    mcall
    add  edx,6*4*65536
    inc  edi
    cmp  edi,ip_address+4
    jb	 ipdisplay
 
    mov  edi,gateway_ip
    mov  edx,205*65536+90
    mov  esi,0x000000
    mov  ebx,3*65536
  gipdisplay:
    ;mov  eax,47
    movzx ecx,byte [edi]
    mcall
    add  edx,6*4*65536
    inc  edi
    cmp  edi,gateway_ip+4
    jb	 gipdisplay
 
    mov  edi,subnet_mask
    mov  edx,205*65536+100
    mov  esi,0x000000
    mov  ebx,3*65536
  sipdisplay:
    ;mov  eax,47
    movzx ecx,byte [edi]
    mcall
    add  edx,6*4*65536
    inc  edi
    cmp  edi,subnet_mask+4
    jb	 sipdisplay
 
    mov  edi,dns_ip
    mov  edx,205*65536+110
    mov  esi,0x000000
    mov  ebx,3*65536
  dipdisplay:
    ;mov  eax,47
    movzx ecx,byte [edi]
    mcall
    add  edx,6*4*65536
    inc  edi
    cmp  edi,dns_ip+4
    jb	 dipdisplay
 
 
    mov  eax,8			   ; BUTTON 5 : SET PORT
    mov  ebx,299*65536+8
    mov  ecx,39*65536+8
    mov  edx,5
    mov  esi,[button_color]
    mcall
    ;mov  eax,8                     ; BUTTON 6 : SET IRQ
    mov  ecx,49*65536+8
    inc  edx
    mcall
    ;mov  eax,8                     ; BUTTON 7 : SET IP
    mov  ecx,79*65536+8
    inc  edx
    mcall
 
    ;mov  eax,8                     ; BUTTON 8 : SET gateway IP
    mov  ebx,299*65536+8
    mov  ecx,89*65536+8
    inc  edx
    mcall
 
    ;mov  eax,8                     ; BUTTON 9 : SET subnet
    mov  ecx,99*65536+8
    inc  edx
    mcall
 
    ;mov  eax,8                     ; BUTTON 10 : SET dns ip
    mov  ecx,109*65536+8
    inc  edx
    mcall
 
    mov  ebx,31*65536+40	   ; draw info text with function 4
    mov  edx,text
    mov  esi,49
    mov  eax,4
  newline:
    mov  ecx,0x224466
    cmp  [edx],byte 'w'
    jne  nowhite
    mov  ecx,0xeeeeee
   nowhite:
    inc  edx
    mcall
    add  ebx,10
    add  edx,49
    cmp  [edx],byte 'x'
    jne  newline
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,2			   ; 2, end of draw
    mcall
 
    ret
 
;******************************************************************************
 
boot_set_settings:
 
    mov  eax,52
    mov  ebx,0
    mcall
    mov  [config],eax
 
    shr  eax,8		; unwrap com IRQ
    and  eax,0xf
    mov  [com_irq],eax
 
    mov  eax,[config]	; unwrap com PORT
    shr  eax,16
    and  eax,0xfff
    mov  [com_add],eax
 
    call apply_stack_setup
 
    mov  eax,-1 		; close this program
    mcall
 
;******************************************************************************
 
 
; DATA AREA
 
if lang eq ru
title	   db  ' áâà®©ª  á¥â¥¢®£® áâ¥ª ',0
text:
    db '   ¥ ªâ¨¢­ë©      ®¤¥¬ ­  Com-¯®àâã: 0x     <   '
    db '   Slip            à¥àë¢ ­¨¥ ¬®¤¥¬ :    0x   <   '
    db '   PPP                                            '
    db '   à ©¢¥à ¯ ª¥â®¢    IP server ­ §­ ç¥­­ë©       '
    db '                      ¨ªá.      .   .   .    <   '
    db '                      «î§:      .   .   .    <   '
    db '                      ®¤á¥âì:   .   .   .    <   '
    db '                      DNS IP:    .   .   .    <   '
    db '                                                  '
    db 'w            ¨â âì     à¨¬¥­¨âì                 '
 
else
title	   db  'Stack configuration',0
text:
    db '   Not active       Modem Com Port:    0x     <   '
    db '   Slip             Modem Com Irq:       0x   <   '
    db '   PPP                                            '
    db '   Packet Driver      IP server assigned          '
    db '                      Fixed:     .   .   .    <   '
    db '                      Gateway:   .   .   .    <   '
    db '                      Subnet:    .   .   .    <   '
    db '                      DNS IP:    .   .   .    <   '
    db '                                                  '
    db 'w             READ        APPLY                   '
    end if
 
xx: db 'x' ;<- END MARKER, DONT DELETE
 
button_color dd  0x2254b9
 
 
 
 
;ENTER YOUR SETTINGS HERE:
 
ip_address  db	010,005,004,175
gateway_ip  db	010,005,000,001
subnet_mask db	255,255,000,000
dns_ip	    db	213,184,238,006
 
 
com_irq     dd	    0	; irq for slip/ppp
com_add     dd	    0	; com port address for slip/ppp
interface   dd	    3	; not active,slip,ppp,packet driver
assigned    dd	    0	; get ip from server
 
config	    dd	    0
 
I_END:

Rev 625	Rev 664
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	; ;	2	; ;
3	; Stack Configuration Tool ;	3	; Stack Configuration Tool ;
4	; ;	4	; ;
5	; Compile with FASM for Menuet ;	5	; Compile with FASM for Menuet ;
6	; ;	6	; ;
7	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	7	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8		8
9		9
10	memsize = 100000h	10	memsize = 100000h
11	org 0	11	org 0
12	PARAMS = memsize - 1024	12	PARAMS = memsize - 1024
13		13
14	use32	14	use32
15		15
16	db 'MENUET01' ; 8 byte id	16	db 'MENUET01' ; 8 byte id
17	dd 0x01 ; header version	17	dd 0x01 ; header version
18	dd START ; start of code	18	dd START ; start of code
19	dd I_END ; size of image	19	dd I_END ; size of image
20	dd memsize ; memory for app	20	dd memsize ; memory for app
21	dd memsize - 1024 ; esp	21	dd memsize - 1024 ; esp
22	dd PARAMS , 0x0 ; I_Param , I_Icon	22	dd PARAMS , 0x0 ; I_Param , I_Icon
23		23
24	include 'lang.inc'	24	include 'lang.inc'
25	include '..\..\..\macros.inc'	25	include 'macros.inc'
26		26
27	START: ; start of execution	27	START: ; start of execution
28		28
29	cmp [PARAMS], dword 'BOOT'	29	cmp [PARAMS], dword 'BOOT'
30	jz boot_set_settings	30	jz boot_set_settings
31		31
32	no_params:	32	no_params:
33		33
34	red:	34	red:
35	call draw_window ; at first, draw the window	35	call draw_window ; at first, draw the window
36		36
37	still:	37	still:
38		38
39	mov eax,10 ; wait here for event	39	mov eax,10 ; wait here for event
40	mcall	40	mcall
41		41
42	cmp eax,1 ; redraw request ?	42	cmp eax,1 ; redraw request ?
43	jz red	43	jz red
44	cmp eax,2 ; key in buffer ?	44	cmp eax,2 ; key in buffer ?
45	jnz button	45	jnz button
46		46
47	key: ; key	47	key: ; key
48	; mov al,2 ; just read it and ignore	48	; mov al,2 ; just read it and ignore
49	mcall	49	mcall
50	jmp still	50	jmp still
51		51
52	button: ; button	52	button: ; button
53	mov al,17 ; get id	53	mov al,17 ; get id
54	mcall	54	mcall
55		55
56	shr eax,8	56	shr eax,8
57		57
58	dec eax ; button id=1 ?	58	dec eax ; button id=1 ?
59	jne noclose	59	jne noclose
60	or eax,-1 ; close this program	60	or eax,-1 ; close this program
61	mcall	61	mcall
62	noclose:	62	noclose:
63		63
64	dec eax	64	dec eax
65	je read_stack_setup	65	je read_stack_setup
66		66
67	dec eax	67	dec eax
68	jne no_apply_stack_setup	68	jne no_apply_stack_setup
69	call apply_stack_setup	69	call apply_stack_setup
70	jmp still	70	jmp still
71		71
72	no_apply_stack_setup:	72	no_apply_stack_setup:
73	dec eax ; GET COM PORT	73	dec eax ; GET COM PORT
74	dec eax	74	dec eax
75	jne no_read_comport	75	jne no_read_comport
76	mov [string_x],272	76	mov [string_x],272
77	mov [string_y],40	77	mov [string_y],40
78	mov [string_length],3	78	mov [string_length],3
79	call read_string	79	call read_string
80	movzx eax,byte [string]	80	movzx eax,byte [string]
81	cmp eax,'A'	81	cmp eax,'A'
82	jb gcp1	82	jb gcp1
83	sub eax,'A'-'9'-1	83	sub eax,'A'-'9'-1
84	gcp1:	84	gcp1:
85	sub eax,48	85	sub eax,48
86	shl eax,8	86	shl eax,8
87	mov ebx,eax	87	mov ebx,eax
88	movzx eax,byte [string+1]	88	movzx eax,byte [string+1]
89	cmp eax,'A'	89	cmp eax,'A'
90	jb gcp2	90	jb gcp2
91	sub eax,'A'-'9'-1	91	sub eax,'A'-'9'-1
92	gcp2:	92	gcp2:
93	sub eax,48	93	sub eax,48
94	shl eax,4	94	shl eax,4
95	add ebx,eax	95	add ebx,eax
96	movzx eax,byte [string+2]	96	movzx eax,byte [string+2]
97	cmp eax,'A'	97	cmp eax,'A'
98	jb gcp3	98	jb gcp3
99	sub eax,'A'-'9'-1	99	sub eax,'A'-'9'-1
100	gcp3:	100	gcp3:
101	sub eax,48	101	sub eax,48
102	add ebx,eax	102	add ebx,eax
103	mov [com_add],ebx	103	mov [com_add],ebx
104	jmp red	104	jmp red
105	no_read_comport:	105	no_read_comport:
106		106
107	dec eax ; GET COM IRQ	107	dec eax ; GET COM IRQ
108	jne no_read_comirq	108	jne no_read_comirq
109	mov [string_x],284	109	mov [string_x],284
110	mov [string_y],50	110	mov [string_y],50
111	mov [string_length],1	111	mov [string_length],1
112	call read_string	112	call read_string
113	movzx eax,byte [string]	113	movzx eax,byte [string]
114	cmp eax,'A'	114	cmp eax,'A'
115	jb gci1	115	jb gci1
116	sub eax,'A'-'9'-1	116	sub eax,'A'-'9'-1
117	gci1:	117	gci1:
118	sub eax,48	118	sub eax,48
119	mov [com_irq],eax	119	mov [com_irq],eax
120	jmp red	120	jmp red
121	no_read_comirq:	121	no_read_comirq:
122		122
123	dec eax ; GET IP	123	dec eax ; GET IP
124	jne no_read_ip	124	jne no_read_ip
125	mov [string_x],205	125	mov [string_x],205
126	mov [string_y],80	126	mov [string_y],80
127	mov [string_length],15	127	mov [string_length],15
128	call read_string	128	call read_string
129	mov esi,string-1	129	mov esi,string-1
130	mov edi,ip_address	130	mov edi,ip_address
131	ip0:	131	ip0:
132	xor eax,eax	132	xor eax,eax
133	ip1:	133	ip1:
134	inc esi	134	inc esi
135	cmp [esi],byte '0'	135	cmp [esi],byte '0'
136	jb ip2	136	jb ip2
137	cmp [esi],byte '9'	137	cmp [esi],byte '9'
138	jg ip2	138	jg ip2
139	imul eax,10	139	imul eax,10
140	movzx ebx,byte [esi]	140	movzx ebx,byte [esi]
141	sub ebx,48	141	sub ebx,48
142	add eax,ebx	142	add eax,ebx
143	jmp ip1	143	jmp ip1
144	ip2:	144	ip2:
145	stosb	145	stosb
146	cmp edi,ip_address+3	146	cmp edi,ip_address+3
147	jbe ip0	147	jbe ip0
148	jmp red	148	jmp red
149	no_read_ip:	149	no_read_ip:
150		150
151	dec eax ; set gateway ip	151	dec eax ; set gateway ip
152	jne no_set_gateway	152	jne no_set_gateway
153		153
154	mov [string_x],205	154	mov [string_x],205
155	mov [string_y],90	155	mov [string_y],90
156	mov [string_length],15	156	mov [string_length],15
157	call read_string	157	call read_string
158	mov esi,string-1	158	mov esi,string-1
159	mov edi,gateway_ip	159	mov edi,gateway_ip
160	gip0:	160	gip0:
161	xor eax,eax	161	xor eax,eax
162	gip1:	162	gip1:
163	inc esi	163	inc esi
164	cmp [esi],byte '0'	164	cmp [esi],byte '0'
165	jb gip2	165	jb gip2
166	cmp [esi],byte '9'	166	cmp [esi],byte '9'
167	jg gip2	167	jg gip2
168	imul eax,10	168	imul eax,10
169	movzx ebx,byte [esi]	169	movzx ebx,byte [esi]
170	sub ebx,48	170	sub ebx,48
171	add eax,ebx	171	add eax,ebx
172	jmp gip1	172	jmp gip1
173	gip2:	173	gip2:
174	stosb	174	stosb
175	cmp edi,gateway_ip+3	175	cmp edi,gateway_ip+3
176	jbe gip0	176	jbe gip0
177	jmp red	177	jmp red
178		178
179	no_set_gateway:	179	no_set_gateway:
180		180
181	dec eax	181	dec eax
182	jne no_set_subnet	182	jne no_set_subnet
183		183
184	mov [string_x],205	184	mov [string_x],205
185	mov [string_y],100	185	mov [string_y],100
186	mov [string_length],15	186	mov [string_length],15
187	call read_string	187	call read_string
188	mov esi,string-1	188	mov esi,string-1
189	mov edi,subnet_mask	189	mov edi,subnet_mask
190	sip0:	190	sip0:
191	xor eax,eax	191	xor eax,eax
192	sip1:	192	sip1:
193	inc esi	193	inc esi
194	cmp [esi],byte '0'	194	cmp [esi],byte '0'
195	jb sip2	195	jb sip2
196	cmp [esi],byte '9'	196	cmp [esi],byte '9'
197	jg sip2	197	jg sip2
198	imul eax,10	198	imul eax,10
199	movzx ebx,byte [esi]	199	movzx ebx,byte [esi]
200	sub ebx,48	200	sub ebx,48
201	add eax,ebx	201	add eax,ebx
202	jmp sip1	202	jmp sip1
203	sip2:	203	sip2:
204	stosb	204	stosb
205	cmp edi,subnet_mask+3	205	cmp edi,subnet_mask+3
206	jbe sip0	206	jbe sip0
207	jmp red	207	jmp red
208		208
209	no_set_subnet:	209	no_set_subnet:
210	dec eax	210	dec eax
211	jne no_set_dns	211	jne no_set_dns
212		212
213	mov [string_x],205	213	mov [string_x],205
214	mov [string_y],110	214	mov [string_y],110
215	mov [string_length],15	215	mov [string_length],15
216	call read_string	216	call read_string
217	mov esi,string-1	217	mov esi,string-1
218	mov edi,dns_ip	218	mov edi,dns_ip
219	dip0:	219	dip0:
220	xor eax,eax	220	xor eax,eax
221	dip1:	221	dip1:
222	inc esi	222	inc esi
223	cmp [esi],byte '0'	223	cmp [esi],byte '0'
224	jb dip2	224	jb dip2
225	cmp [esi],byte '9'	225	cmp [esi],byte '9'
226	jg dip2	226	jg dip2
227	imul eax,10	227	imul eax,10
228	movzx ebx,byte [esi]	228	movzx ebx,byte [esi]
229	sub ebx,48	229	sub ebx,48
230	add eax,ebx	230	add eax,ebx
231	jmp dip1	231	jmp dip1
232	dip2:	232	dip2:
233	stosb	233	stosb
234	cmp edi,dns_ip+3	234	cmp edi,dns_ip+3
235	jbe dip0	235	jbe dip0
236	jmp red	236	jmp red
237		237
238	no_set_dns:	238	no_set_dns:
239		239
240	dec eax	240	dec eax
241	jb no_set_interface	241	jb no_set_interface
242	cmp eax,14-11	242	cmp eax,14-11
243	ja no_set_interface	243	ja no_set_interface
244	mov [interface],eax	244	mov [interface],eax
245	jmp red	245	jmp red
246	no_set_interface:	246	no_set_interface:
247		247
248	sub eax,21-11	248	sub eax,21-11
249	jb no_ip_sf	249	jb no_ip_sf
250	cmp eax,22-21	250	cmp eax,22-21
251	ja no_ip_sf	251	ja no_ip_sf
252	xor eax,1	252	xor eax,1
253	mov [assigned],eax	253	mov [assigned],eax
254	jmp red	254	jmp red
255	no_ip_sf:	255	no_ip_sf:
256	jmp still	256	jmp still
257		257
258	read_stack_setup:	258	read_stack_setup:
259		259
260	mov eax,52	260	mov eax,52
261	mov ebx,0	261	mov ebx,0
262	mcall	262	mcall
263	mov [config],eax	263	mov [config],eax
264		264
265	mov eax,52	265	mov eax,52
266	mov ebx,1	266	mov ebx,1
267	mcall	267	mcall
268	mov dword [ip_address],eax	268	mov dword [ip_address],eax
269		269
270	mov eax,52	270	mov eax,52
271	mov ebx,9	271	mov ebx,9
272	mcall	272	mcall
273	mov dword [gateway_ip],eax	273	mov dword [gateway_ip],eax
274		274
275	mov eax,52	275	mov eax,52
276	mov ebx,10	276	mov ebx,10
277	mcall	277	mcall
278	mov dword [subnet_mask],eax	278	mov dword [subnet_mask],eax
279		279
280	mov eax,52	280	mov eax,52
281	mov ebx,13	281	mov ebx,13
282	mcall	282	mcall
283	mov dword [dns_ip],eax	283	mov dword [dns_ip],eax
284		284
285	mov eax,[config] ; unwrap com IRQ	285	mov eax,[config] ; unwrap com IRQ
286	shr eax,8	286	shr eax,8
287	and eax,0xf	287	and eax,0xf
288	mov [com_irq],eax	288	mov [com_irq],eax
289		289
290	mov eax,[config] ; unwrap com PORT	290	mov eax,[config] ; unwrap com PORT
291	shr eax,16	291	shr eax,16
292	and eax,0xfff	292	and eax,0xfff
293	mov [com_add],eax	293	mov [com_add],eax
294		294
295	mov eax,[config] ; unwrap IRQ	295	mov eax,[config] ; unwrap IRQ
296	and eax,0xf	296	and eax,0xf
297	mov [interface],eax	297	mov [interface],eax
298		298
299	mov eax,[config] ; unwrap com PORT	299	mov eax,[config] ; unwrap com PORT
300	shr eax,7	300	shr eax,7
301	and eax,1	301	and eax,1
302	mov [assigned],eax	302	mov [assigned],eax
303	jmp red	303	jmp red
304		304
305	apply_stack_setup:	305	apply_stack_setup:
306		306
307	mov eax,[com_irq]	307	mov eax,[com_irq]
308	shl eax,8	308	shl eax,8
309	mov ebx,[com_add]	309	mov ebx,[com_add]
310	shl ebx,16	310	shl ebx,16
311	add eax,ebx	311	add eax,ebx
312	add eax,[interface]	312	add eax,[interface]
313	mov ebx,[assigned]	313	mov ebx,[assigned]
314	shl ebx,7	314	shl ebx,7
315	add eax,ebx	315	add eax,ebx
316	mov [config],eax	316	mov [config],eax
317		317
318	mov eax,52	318	mov eax,52
319	mov ebx,3	319	mov ebx,3
320	mov ecx,dword [ip_address]	320	mov ecx,dword [ip_address]
321	mcall	321	mcall
322		322
323	mov eax,52	323	mov eax,52
324	mov ebx,11	324	mov ebx,11
325	mov ecx,dword [gateway_ip]	325	mov ecx,dword [gateway_ip]
326	mcall	326	mcall
327		327
328	mov eax,52	328	mov eax,52
329	mov ebx,12	329	mov ebx,12
330	mov ecx,dword [subnet_mask]	330	mov ecx,dword [subnet_mask]
331	mcall	331	mcall
332		332
333	mov eax,52	333	mov eax,52
334	mov ebx,14	334	mov ebx,14
335	mov ecx,dword [dns_ip]	335	mov ecx,dword [dns_ip]
336	mcall	336	mcall
337		337
338	mov eax,52	338	mov eax,52
339	mov ebx,2	339	mov ebx,2
340	mov ecx,[config]	340	mov ecx,[config]
341	mcall	341	mcall
342		342
343	ret	343	ret
344		344
345		345
346	string_length dd 16	346	string_length dd 16
347	string_x dd 200	347	string_x dd 200
348	string_y dd 60	348	string_y dd 60
349		349
350	string db '________________'	350	string db '________________'
351		351
352		352
353	read_string:	353	read_string:
354		354
355	mov edi,string	355	mov edi,string
356	mov eax,'_'	356	mov eax,'_'
357	mov ecx,[string_length]	357	mov ecx,[string_length]
358	cld	358	cld
359	rep stosb	359	rep stosb
360	call print_text	360	call print_text
361		361
362	mov edi,string	362	mov edi,string
363	f11:	363	f11:
364	mov eax,10	364	mov eax,10
365	mcall	365	mcall
366	cmp eax,2	366	cmp eax,2
367	jne read_done	367	jne read_done
368	; mov eax,2	368	; mov eax,2
369	mcall	369	mcall
370	shr eax,8	370	shr eax,8
371	cmp eax,13	371	cmp eax,13
372	je read_done	372	je read_done
373	cmp eax,8	373	cmp eax,8
374	jnz nobsl	374	jnz nobsl
375	cmp edi,string	375	cmp edi,string
376	jz f11	376	jz f11
377	sub edi,1	377	sub edi,1
378	mov [edi],byte '_'	378	mov [edi],byte '_'
379	call print_text	379	call print_text
380	jmp f11	380	jmp f11
381	nobsl:	381	nobsl:
382	cmp eax,dword 31	382	cmp eax,dword 31
383	jbe f11	383	jbe f11
384	cmp eax,dword 95	384	cmp eax,dword 95
385	jb keyok	385	jb keyok
386	sub eax,32	386	sub eax,32
387	keyok:	387	keyok:
388	mov [edi],al	388	mov [edi],al
389	call print_text	389	call print_text
390		390
391	inc edi	391	inc edi
392	mov esi,string	392	mov esi,string
393	add esi,[string_length]	393	add esi,[string_length]
394	cmp esi,edi	394	cmp esi,edi
395	jnz f11	395	jnz f11
396		396
397	read_done:	397	read_done:
398		398
399	print_text:	399	print_text:
400		400
401	pusha	401	pusha
402		402
403	mov eax,13	403	mov eax,13
404	mov ebx,[string_x]	404	mov ebx,[string_x]
405	shl ebx,16	405	shl ebx,16
406	add ebx,[string_length]	406	add ebx,[string_length]
407	imul bx,6	407	imul bx,6
408	mov ecx,[string_y]	408	mov ecx,[string_y]
409	shl ecx,16	409	shl ecx,16
410	mov cx,8	410	mov cx,8
411	mov edx,0xffffff	411	mov edx,0xffffff
412	mcall	412	mcall
413		413
414	mov eax,4	414	mov eax,4
415	mov ebx,[string_x]	415	mov ebx,[string_x]
416	shl ebx,16	416	shl ebx,16
417	add ebx,[string_y]	417	add ebx,[string_y]
418	mov ecx,0x000000	418	mov ecx,0x000000
419	mov edx,string	419	mov edx,string
420	mov esi,[string_length]	420	mov esi,[string_length]
421	mcall	421	mcall
422		422
423	popa	423	popa
424	ret	424	ret
425		425
426		426
427		427
428		428
429		429
430		430
431		431
432	; *********************************************	432	; *********************************************
433	; ***** WINDOW DEFINITIONS AND DRAW ******	433	; ***** WINDOW DEFINITIONS AND DRAW ******
434	; *********************************************	434	; *********************************************
435		435
436		436
437	draw_window:	437	draw_window:
438		438
439	mov eax,12 ; function 12:tell os about windowdraw	439	mov eax,12 ; function 12:tell os about windowdraw
440	mov ebx,1 ; 1, start of draw	440	mov ebx,1 ; 1, start of draw
441	mcall	441	mcall
442		442
443	; DRAW WINDOW	443	; DRAW WINDOW
444	mov eax,0 ; function 0 : define and draw window	444	mov eax,0 ; function 0 : define and draw window
445	mov ebx,10065536+330 ; [x start] 65536 + [x size]	445	mov ebx,10065536+330 ; [x start] 65536 + [x size]
446	mov ecx,10065536+157 ; [y start] 65536 + [y size]	446	mov ecx,10065536+157 ; [y start] 65536 + [y size]
447	mov edx,0x14ffffff ; color of work area RRGGBB,8->color gl	447	mov edx,0x14ffffff ; color of work area RRGGBB,8->color gl
448	mov edi,title ; WINDOW LABEL	448	mov edi,title ; WINDOW LABEL
449	mcall	449	mcall
450		450
451		451
452	mov eax,8 ; BUTTON : READ SETUP	452	mov eax,8 ; BUTTON : READ SETUP
453	mov ebx,90*65536+65	453	mov ebx,90*65536+65
454	mov ecx,127*65536+12	454	mov ecx,127*65536+12
455	mov edx,2	455	mov edx,2
456	mov esi,[button_color]	456	mov esi,[button_color]
457	mcall	457	mcall
458		458
459	;mov eax,8 ; BUTTON : APPLY SETUP	459	;mov eax,8 ; BUTTON : APPLY SETUP
460	mov ebx,163*65536+65	460	mov ebx,163*65536+65
461	mov ecx,127*65536+12	461	mov ecx,127*65536+12
462	mov edx,3	462	mov edx,3
463	mcall	463	mcall
464		464
465	;mov eax,8 ; BUTTONS 11-14 : SELECT INTERFACE	465	;mov eax,8 ; BUTTONS 11-14 : SELECT INTERFACE
466	mov ebx,29*65536+8	466	mov ebx,29*65536+8
467	mov ecx,39*65536+8	467	mov ecx,39*65536+8
468	mov edx,11	468	mov edx,11
469	interface_select:	469	interface_select:
470	mcall	470	mcall
471	add ecx,10*65536	471	add ecx,10*65536
472	inc edx	472	inc edx
473	cmp edx,11+4	473	cmp edx,11+4
474	jb interface_select	474	jb interface_select
475		475
476	mov ebx,[interface] ; PRINT SELECTED INTERFACE 'X'	476	mov ebx,[interface] ; PRINT SELECTED INTERFACE 'X'
477	imul ebx,10	477	imul ebx,10
478	add ebx,31*65536+39	478	add ebx,31*65536+39
479	mov eax,4	479	mov eax,4
480	mov ecx,0xffffff	480	mov ecx,0xffffff
481	mov edx,xx	481	mov edx,xx
482	mov esi,1	482	mov esi,1
483	mcall	483	mcall
484		484
485	mov eax,8 ; BUTTONS 21-22 : SERVER / MANUAL IP	485	mov eax,8 ; BUTTONS 21-22 : SERVER / MANUAL IP
486	mov ebx,143*65536+8	486	mov ebx,143*65536+8
487	mov ecx,69*65536+8	487	mov ecx,69*65536+8
488	mov edx,21	488	mov edx,21
489	mov esi,[button_color]	489	mov esi,[button_color]
490	mcall	490	mcall
491	;mov eax,8	491	;mov eax,8
492	mov ebx,143*65536+8	492	mov ebx,143*65536+8
493	mov ecx,79*65536+8	493	mov ecx,79*65536+8
494	mov edx,22	494	mov edx,22
495	mcall	495	mcall
496	mov ebx,[assigned] ; PRINT SELECTED SERVER/MANUAL 'X'	496	mov ebx,[assigned] ; PRINT SELECTED SERVER/MANUAL 'X'
497	not ebx	497	not ebx
498	and ebx,1	498	and ebx,1
499	imul ebx,10	499	imul ebx,10
500	add ebx,145*65536+69	500	add ebx,145*65536+69

Subversion Repositories Kolibri OS

(root)/programs/network/stackcfg/trunk/stackcfg.asm – Rev 625 → 664