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

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

Subversion Repositories Kolibri OS

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