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

Rev	Author	Line No.	Line
1723	ataualpa	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
31	halyavin	2	; ;
		3	; Stack Configuration Tool ;
		4	; ;
		5	; Compile with FASM for Menuet ;
		6	; ;
		7	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		8
199	heavyiron	9
		10	memsize = 100000h
664	ataualpa	11	org 0
		12	PARAMS = memsize - 1024
199	heavyiron	13
31	halyavin	14	use32
		15
664	ataualpa	16	db 'MENUET01' ; 8 byte id
		17	dd 0x01 ; header version
		18	dd START ; start of code
		19	dd I_END ; size of image
		20	dd memsize ; memory for app
		21	dd memsize - 1024 ; esp
		22	dd PARAMS , 0x0 ; I_Param , I_Icon
31	halyavin	23
		24	include 'lang.inc'
1010	hidnplayr	25	include '../../../macros.inc'
485	heavyiron	26
664	ataualpa	27	START: ; start of execution
31	halyavin	28
1010	hidnplayr	29	read_stack_setup:
199	heavyiron	30
1010	hidnplayr	31	mov eax,52
		32	mov ebx,0
		33	mcall
		34	mov [config],eax
199	heavyiron	35
1010	hidnplayr	36	mov eax,52
		37	mov ebx,1
		38	mcall
		39	mov dword [ip_address],eax
		40
		41	mov eax,52
		42	mov ebx,9
		43	mcall
		44	mov dword [gateway_ip],eax
		45
		46	mov eax,52
		47	mov ebx,10
		48	mcall
		49	mov dword [subnet_mask],eax
		50
		51	mov eax,52
		52	mov ebx,13
		53	mcall
		54	mov dword [dns_ip],eax
		55
		56	mov eax,[config] ; unwrap com IRQ
		57	shr eax,8
		58	and eax,0xf
		59	mov [com_irq],eax
		60
		61	mov eax,[config] ; unwrap com PORT
		62	shr eax,16
		63	and eax,0xfff
		64	mov [com_add],eax
		65
		66	mov eax,[config] ; unwrap IRQ
		67	and eax,0xf
		68	mov [interface],eax
		69
		70	mov eax,[config] ; unwrap com PORT
		71	shr eax,7
		72	and eax,1
		73	mov [assigned],eax
		74
485	heavyiron	75	red:
664	ataualpa	76	call draw_window ; at first, draw the window
31	halyavin	77
		78	still:
		79
664	ataualpa	80	mov eax,10 ; wait here for event
485	heavyiron	81	mcall
31	halyavin	82
664	ataualpa	83	cmp eax,1 ; redraw request ?
		84	jz red
		85	cmp eax,2 ; key in buffer ?
485	heavyiron	86	jnz button
31	halyavin	87
664	ataualpa	88	key: ; key
625	diamond	89	; mov al,2 ; just read it and ignore
485	heavyiron	90	mcall
31	halyavin	91	jmp still
		92
664	ataualpa	93	button: ; button
		94	mov al,17 ; get id
485	heavyiron	95	mcall
31	halyavin	96
		97	shr eax,8
		98
664	ataualpa	99	dec eax ; button id=1 ?
31	halyavin	100	jne noclose
664	ataualpa	101	or eax,-1 ; close this program
485	heavyiron	102	mcall
31	halyavin	103	noclose:
		104
664	ataualpa	105	dec eax
		106	je read_stack_setup
31	halyavin	107
664	ataualpa	108	dec eax
199	heavyiron	109	jne no_apply_stack_setup
		110	call apply_stack_setup
		111	jmp still
31	halyavin	112
199	heavyiron	113	no_apply_stack_setup:
664	ataualpa	114	dec eax ; GET COM PORT
625	diamond	115	dec eax
31	halyavin	116	jne no_read_comport
		117	mov [string_x],272
		118	mov [string_y],40
		119	mov [string_length],3
		120	call read_string
		121	movzx eax,byte [string]
		122	cmp eax,'A'
664	ataualpa	123	jb gcp1
31	halyavin	124	sub eax,'A'-'9'-1
		125	gcp1:
		126	sub eax,48
		127	shl eax,8
		128	mov ebx,eax
		129	movzx eax,byte [string+1]
		130	cmp eax,'A'
664	ataualpa	131	jb gcp2
31	halyavin	132	sub eax,'A'-'9'-1
		133	gcp2:
		134	sub eax,48
		135	shl eax,4
		136	add ebx,eax
		137	movzx eax,byte [string+2]
		138	cmp eax,'A'
664	ataualpa	139	jb gcp3
31	halyavin	140	sub eax,'A'-'9'-1
		141	gcp3:
		142	sub eax,48
		143	add ebx,eax
		144	mov [com_add],ebx
625	diamond	145	jmp red
31	halyavin	146	no_read_comport:
		147
664	ataualpa	148	dec eax ; GET COM IRQ
31	halyavin	149	jne no_read_comirq
		150	mov [string_x],284
		151	mov [string_y],50
		152	mov [string_length],1
		153	call read_string
		154	movzx eax,byte [string]
		155	cmp eax,'A'
664	ataualpa	156	jb gci1
31	halyavin	157	sub eax,'A'-'9'-1
		158	gci1:
		159	sub eax,48
		160	mov [com_irq],eax
625	diamond	161	jmp red
31	halyavin	162	no_read_comirq:
		163
664	ataualpa	164	dec eax ; GET IP
625	diamond	165	jne no_read_ip
		166	mov [string_x],205
		167	mov [string_y],80
		168	mov [string_length],15
		169	call read_string
		170	mov esi,string-1
		171	mov edi,ip_address
		172	ip0:
		173	xor eax,eax
		174	ip1:
		175	inc esi
		176	cmp [esi],byte '0'
664	ataualpa	177	jb ip2
625	diamond	178	cmp [esi],byte '9'
664	ataualpa	179	jg ip2
625	diamond	180	imul eax,10
		181	movzx ebx,byte [esi]
		182	sub ebx,48
		183	add eax,ebx
		184	jmp ip1
		185	ip2:
		186	stosb
		187	cmp edi,ip_address+3
		188	jbe ip0
		189	jmp red
		190	no_read_ip:
664	ataualpa	191
		192	dec eax ; set gateway ip
31	halyavin	193	jne no_set_gateway
		194
		195	mov [string_x],205
		196	mov [string_y],90
		197	mov [string_length],15
		198	call read_string
		199	mov esi,string-1
		200	mov edi,gateway_ip
625	diamond	201	gip0:
31	halyavin	202	xor eax,eax
		203	gip1:
		204	inc esi
		205	cmp [esi],byte '0'
664	ataualpa	206	jb gip2
31	halyavin	207	cmp [esi],byte '9'
664	ataualpa	208	jg gip2
31	halyavin	209	imul eax,10
		210	movzx ebx,byte [esi]
		211	sub ebx,48
		212	add eax,ebx
		213	jmp gip1
		214	gip2:
625	diamond	215	stosb
31	halyavin	216	cmp edi,gateway_ip+3
625	diamond	217	jbe gip0
		218	jmp red
31	halyavin	219
625	diamond	220	no_set_gateway:
31	halyavin	221
625	diamond	222	dec eax
31	halyavin	223	jne no_set_subnet
		224
		225	mov [string_x],205
		226	mov [string_y],100
		227	mov [string_length],15
		228	call read_string
		229	mov esi,string-1
		230	mov edi,subnet_mask
625	diamond	231	sip0:
31	halyavin	232	xor eax,eax
		233	sip1:
		234	inc esi
		235	cmp [esi],byte '0'
664	ataualpa	236	jb sip2
31	halyavin	237	cmp [esi],byte '9'
664	ataualpa	238	jg sip2
31	halyavin	239	imul eax,10
		240	movzx ebx,byte [esi]
		241	sub ebx,48
		242	add eax,ebx
		243	jmp sip1
		244	sip2:
625	diamond	245	stosb
31	halyavin	246	cmp edi,subnet_mask+3
625	diamond	247	jbe sip0
		248	jmp red
31	halyavin	249
		250	no_set_subnet:
625	diamond	251	dec eax
31	halyavin	252	jne no_set_dns
		253
		254	mov [string_x],205
		255	mov [string_y],110
		256	mov [string_length],15
		257	call read_string
		258	mov esi,string-1
		259	mov edi,dns_ip
625	diamond	260	dip0:
31	halyavin	261	xor eax,eax
		262	dip1:
		263	inc esi
		264	cmp [esi],byte '0'
664	ataualpa	265	jb dip2
31	halyavin	266	cmp [esi],byte '9'
664	ataualpa	267	jg dip2
31	halyavin	268	imul eax,10
		269	movzx ebx,byte [esi]
		270	sub ebx,48
		271	add eax,ebx
		272	jmp dip1
		273	dip2:
625	diamond	274	stosb
31	halyavin	275	cmp edi,dns_ip+3
625	diamond	276	jbe dip0
		277	jmp red
31	halyavin	278
		279	no_set_dns:
		280
625	diamond	281	dec eax
664	ataualpa	282	jb no_set_interface
625	diamond	283	cmp eax,14-11
664	ataualpa	284	ja no_set_interface
625	diamond	285	mov [interface],eax
		286	jmp red
		287	no_set_interface:
31	halyavin	288
625	diamond	289	sub eax,21-11
664	ataualpa	290	jb no_ip_sf
625	diamond	291	cmp eax,22-21
664	ataualpa	292	ja no_ip_sf
625	diamond	293	xor eax,1
		294	mov [assigned],eax
		295	jmp red
		296	no_ip_sf:
		297	jmp still
31	halyavin	298
		299	apply_stack_setup:
		300
		301	mov eax,[com_irq]
		302	shl eax,8
		303	mov ebx,[com_add]
		304	shl ebx,16
		305	add eax,ebx
		306	add eax,[interface]
		307	mov ebx,[assigned]
		308	shl ebx,7
		309	add eax,ebx
		310	mov [config],eax
		311
		312	mov eax,52
		313	mov ebx,3
		314	mov ecx,dword [ip_address]
485	heavyiron	315	mcall
31	halyavin	316
		317	mov eax,52
		318	mov ebx,11
		319	mov ecx,dword [gateway_ip]
485	heavyiron	320	mcall
31	halyavin	321
		322	mov eax,52
		323	mov ebx,12
		324	mov ecx,dword [subnet_mask]
485	heavyiron	325	mcall
31	halyavin	326
		327	mov eax,52
		328	mov ebx,14
		329	mov ecx,dword [dns_ip]
485	heavyiron	330	mcall
31	halyavin	331
		332	mov eax,52
		333	mov ebx,2
		334	mov ecx,[config]
485	heavyiron	335	mcall
31	halyavin	336
199	heavyiron	337	ret
31	halyavin	338
		339
		340	string_length dd 16
		341	string_x dd 200
		342	string_y dd 60
		343
664	ataualpa	344	string db '________________'
31	halyavin	345
		346
		347	read_string:
		348
		349	mov edi,string
		350	mov eax,'_'
		351	mov ecx,[string_length]
		352	cld
		353	rep stosb
		354	call print_text
		355
		356	mov edi,string
		357	f11:
		358	mov eax,10
485	heavyiron	359	mcall
31	halyavin	360	cmp eax,2
		361	jne read_done
625	diamond	362	; mov eax,2
485	heavyiron	363	mcall
31	halyavin	364	shr eax,8
		365	cmp eax,13
664	ataualpa	366	je read_done
31	halyavin	367	cmp eax,8
		368	jnz nobsl
		369	cmp edi,string
664	ataualpa	370	jz f11
31	halyavin	371	sub edi,1
		372	mov [edi],byte '_'
		373	call print_text
		374	jmp f11
		375	nobsl:
		376	cmp eax,dword 31
		377	jbe f11
		378	cmp eax,dword 95
664	ataualpa	379	jb keyok
31	halyavin	380	sub eax,32
		381	keyok:
		382	mov [edi],al
		383	call print_text
		384
		385	inc edi
		386	mov esi,string
		387	add esi,[string_length]
		388	cmp esi,edi
		389	jnz f11
		390
		391	read_done:
		392
		393	print_text:
		394
		395	pusha
		396
		397	mov eax,13
		398	mov ebx,[string_x]
		399	shl ebx,16
		400	add ebx,[string_length]
		401	imul bx,6
		402	mov ecx,[string_y]
		403	shl ecx,16
		404	mov cx,8
		405	mov edx,0xffffff
485	heavyiron	406	mcall
31	halyavin	407
		408	mov eax,4
		409	mov ebx,[string_x]
		410	shl ebx,16
		411	add ebx,[string_y]
		412	mov ecx,0x000000
		413	mov edx,string
		414	mov esi,[string_length]
485	heavyiron	415	mcall
31	halyavin	416
		417	popa
		418	ret
		419
		420
		421
		422
		423
		424
		425
		426	; *********************************************
		427	; ***** WINDOW DEFINITIONS AND DRAW ******
		428	; *********************************************
		429
		430
		431	draw_window:
		432
664	ataualpa	433	mov eax,12 ; function 12:tell os about windowdraw
		434	mov ebx,1 ; 1, start of draw
485	heavyiron	435	mcall
31	halyavin	436
664	ataualpa	437	; DRAW WINDOW
		438	mov eax,0 ; function 0 : define and draw window
		439	mov ebx,10065536+330 ; [x start] 65536 + [x size]
		440	mov ecx,10065536+157 ; [y start] 65536 + [y size]
		441	mov edx,0x14ffffff ; color of work area RRGGBB,8->color gl
		442	mov edi,title ; WINDOW LABEL
485	heavyiron	443	mcall
31	halyavin	444
664	ataualpa	445
		446	mov eax,8 ; BUTTON : READ SETUP
31	halyavin	447	mov ebx,90*65536+65
		448	mov ecx,127*65536+12
		449	mov edx,2
199	heavyiron	450	mov esi,[button_color]
485	heavyiron	451	mcall
31	halyavin	452
199	heavyiron	453	;mov eax,8 ; BUTTON : APPLY SETUP
31	halyavin	454	mov ebx,163*65536+65
		455	mov ecx,127*65536+12
		456	mov edx,3
485	heavyiron	457	mcall
31	halyavin	458
199	heavyiron	459	;mov eax,8 ; BUTTONS 11-14 : SELECT INTERFACE
31	halyavin	460	mov ebx,29*65536+8
		461	mov ecx,39*65536+8
		462	mov edx,11
		463	interface_select:
485	heavyiron	464	mcall
31	halyavin	465	add ecx,10*65536
		466	inc edx
		467	cmp edx,11+4
664	ataualpa	468	jb interface_select
31	halyavin	469
664	ataualpa	470	mov ebx,[interface] ; PRINT SELECTED INTERFACE 'X'
31	halyavin	471	imul ebx,10
		472	add ebx,31*65536+39
		473	mov eax,4
		474	mov ecx,0xffffff
		475	mov edx,xx
		476	mov esi,1
485	heavyiron	477	mcall
31	halyavin	478
664	ataualpa	479	mov eax,8 ; BUTTONS 21-22 : SERVER / MANUAL IP
31	halyavin	480	mov ebx,143*65536+8
		481	mov ecx,69*65536+8
		482	mov edx,21
		483	mov esi,[button_color]
485	heavyiron	484	mcall
199	heavyiron	485	;mov eax,8
31	halyavin	486	mov ebx,143*65536+8
		487	mov ecx,79*65536+8
		488	mov edx,22
485	heavyiron	489	mcall
664	ataualpa	490	mov ebx,[assigned] ; PRINT SELECTED SERVER/MANUAL 'X'
31	halyavin	491	not ebx
		492	and ebx,1
		493	imul ebx,10
		494	add ebx,145*65536+69
		495	mov eax,4
		496	mov ecx,0xffffff
		497	mov edx,xx
		498	mov esi,1
485	heavyiron	499	mcall
31	halyavin	500
664	ataualpa	501	mov eax,47 ; COM ADDRESS
31	halyavin	502	mov ebx,365536+1256
		503	mov ecx,[com_add]
		504	mov edx,272*65536+40
		505	mov esi,0x000000
485	heavyiron	506	mcall
31	halyavin	507
199	heavyiron	508	;mov eax,47 ; COM IRQ
31	halyavin	509	mov ebx,165536+1256
		510	mov ecx,[com_irq]
		511	mov edx,(266+36)65536+50
		512	mov esi,0x000000
485	heavyiron	513	mcall
31	halyavin	514
		515	mov edi,ip_address
		516	mov edx,205*65536+80
		517	mov esi,0x000000
		518	mov ebx,3*65536
		519	ipdisplay:
199	heavyiron	520	;mov eax,47
31	halyavin	521	movzx ecx,byte [edi]
485	heavyiron	522	mcall
31	halyavin	523	add edx,6465536
		524	inc edi
		525	cmp edi,ip_address+4
664	ataualpa	526	jb ipdisplay
31	halyavin	527
		528	mov edi,gateway_ip
		529	mov edx,205*65536+90
		530	mov esi,0x000000
		531	mov ebx,3*65536
		532	gipdisplay:
199	heavyiron	533	;mov eax,47
31	halyavin	534	movzx ecx,byte [edi]
485	heavyiron	535	mcall
31	halyavin	536	add edx,6465536
		537	inc edi
		538	cmp edi,gateway_ip+4
664	ataualpa	539	jb gipdisplay
31	halyavin	540
		541	mov edi,subnet_mask
		542	mov edx,205*65536+100
		543	mov esi,0x000000
		544	mov ebx,3*65536
		545	sipdisplay:
199	heavyiron	546	;mov eax,47
31	halyavin	547	movzx ecx,byte [edi]
485	heavyiron	548	mcall
31	halyavin	549	add edx,6465536
		550	inc edi
		551	cmp edi,subnet_mask+4
664	ataualpa	552	jb sipdisplay
31	halyavin	553
		554	mov edi,dns_ip
		555	mov edx,205*65536+110
		556	mov esi,0x000000
		557	mov ebx,3*65536
		558	dipdisplay:
199	heavyiron	559	;mov eax,47
31	halyavin	560	movzx ecx,byte [edi]
485	heavyiron	561	mcall
31	halyavin	562	add edx,6465536
		563	inc edi
		564	cmp edi,dns_ip+4
664	ataualpa	565	jb dipdisplay
31	halyavin	566
		567
664	ataualpa	568	mov eax,8 ; BUTTON 5 : SET PORT
31	halyavin	569	mov ebx,299*65536+8
		570	mov ecx,39*65536+8
		571	mov edx,5
		572	mov esi,[button_color]
485	heavyiron	573	mcall
199	heavyiron	574	;mov eax,8 ; BUTTON 6 : SET IRQ
31	halyavin	575	mov ecx,49*65536+8
625	diamond	576	inc edx
485	heavyiron	577	mcall
199	heavyiron	578	;mov eax,8 ; BUTTON 7 : SET IP
31	halyavin	579	mov ecx,79*65536+8
625	diamond	580	inc edx
485	heavyiron	581	mcall
31	halyavin	582
199	heavyiron	583	;mov eax,8 ; BUTTON 8 : SET gateway IP
31	halyavin	584	mov ebx,299*65536+8
		585	mov ecx,89*65536+8
625	diamond	586	inc edx
485	heavyiron	587	mcall
31	halyavin	588
199	heavyiron	589	;mov eax,8 ; BUTTON 9 : SET subnet
31	halyavin	590	mov ecx,99*65536+8
625	diamond	591	inc edx
485	heavyiron	592	mcall
31	halyavin	593
199	heavyiron	594	;mov eax,8 ; BUTTON 10 : SET dns ip
31	halyavin	595	mov ecx,109*65536+8
625	diamond	596	inc edx
485	heavyiron	597	mcall
31	halyavin	598
664	ataualpa	599	mov ebx,31*65536+40 ; draw info text with function 4
31	halyavin	600	mov edx,text
		601	mov esi,49
199	heavyiron	602	mov eax,4
31	halyavin	603	newline:
		604	mov ecx,0x224466
		605	cmp [edx],byte 'w'
		606	jne nowhite
		607	mov ecx,0xeeeeee
		608	nowhite:
		609	inc edx
485	heavyiron	610	mcall
31	halyavin	611	add ebx,10
		612	add edx,49
		613	cmp [edx],byte 'x'
		614	jne newline
		615
664	ataualpa	616	mov eax,12 ; function 12:tell os about windowdraw
		617	mov ebx,2 ; 2, end of draw
485	heavyiron	618	mcall
31	halyavin	619
		620	ret
		621
		622
		623	; DATA AREA
		624
664	ataualpa	625	if lang eq ru
		626	title db '��ன�� ⥢�� ⥪�',0
31	halyavin	627	text:
664	ataualpa	628	db ' ��⨢�� Com-��: 0x < '
		629	db ' Slip ��뢠�� : 0x < '
		630	db ' PPP '
1723	ataualpa	631	db ' �ࠩ�� ⮢ IP ��砥�� ࢥ஬ '
		632	db ' (Ethernet) ��.: . . . < '
664	ataualpa	633	db ' ��: . . . < '
		634	db ' ��: . . . < '
		635	db ' DNS IP: . . . < '
		636	db ' '
		637	db 'w �� ਬ�� '
		638
1723	ataualpa	639	else if lang eq nl
1010	hidnplayr	640	title db 'Netwerk configuratie',0
		641	text:
		642	db ' Niet actief Modem Com Poort: 0x < '
		643	db ' Slip Modem Com Irq: 0x < '
		644	db ' PPP '
		645	db ' Pakket Driver Door IP-server toegekend '
		646	db ' (Ethernet) Vast IP: . . . < '
		647	db ' Gateway: . . . < '
		648	db ' Subnet: . . . < '
		649	db ' DNS IP: . . . < '
		650	db ' '
		651	db 'w Vernieuw Toepassen '
		652
1723	ataualpa	653	else if lang eq ua
		654	title db '��㢠�� ०i'
		655	text:
		656	db ' ��⨢�� Com-�� 0x < '
		657	db ' Slip Com-�� : 0x < '
		658	db ' PPP '
		659	db ' �ࠩ�� i� IP �ਧ�� ࢥ஬ '
		660	db ' (Ethernet) �i��.: . . . < '
		661	db ' ��: . . . < '
		662	db ' ��᪠: . . . < '
		663	db ' DNS IP . . . < '
		664	db ' '
		665	db 'w �� 㢠� '
		666
664	ataualpa	667	else
		668	title db 'Stack configuration',0
		669	text:
31	halyavin	670	db ' Not active Modem Com Port: 0x < '
		671	db ' Slip Modem Com Irq: 0x < '
		672	db ' PPP '
		673	db ' Packet Driver IP server assigned '
1010	hidnplayr	674	db ' (Ethernet) Fixed: . . . < '
31	halyavin	675	db ' Gateway: . . . < '
		676	db ' Subnet: . . . < '
		677	db ' DNS IP: . . . < '
		678	db ' '
		679	db 'w READ APPLY '
664	ataualpa	680	end if
31	halyavin	681
199	heavyiron	682	xx: db 'x' ;<- END MARKER, DONT DELETE
31	halyavin	683
		684	button_color dd 0x2254b9
		685
		686
205	heavyiron	687
1010	hidnplayr	688	ip_address dd ?
		689	gateway_ip dd ?
		690	subnet_mask dd ?
		691	dns_ip dd ?
31	halyavin	692
205	heavyiron	693
1010	hidnplayr	694	com_irq dd ? ; irq for slip/ppp
		695	com_add dd ? ; com port address for slip/ppp
		696	interface dd ? ; not active,slip,ppp,packet driver
		697	assigned dd ? ; get ip from server
31	halyavin	698
1010	hidnplayr	699	config dd ?
31	halyavin	700
		701	I_END:

Subversion Repositories Kolibri OS

(root)/programs/network/stackcfg/trunk/stackcfg.asm – Rev 2706