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

Subversion Repositories Kolibri OS

(root)/programs/network/stackcfg/trunk/stackcfg.asm – Rev 205 → 485