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

Rev	Author	Line No.	Line
31	halyavin	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
		3	;; POP CLIENT for MenuetOS ;;
		4	;; - Modified from IRC client ;;
		5	;; ;;
		6	;; License: GPL / See file COPYING for details ;;
		7	;; Copyright 2002 (c) Ville Turjanmaa ;;
		8	;; ;;
		9	;; Compile with FASM for Menuet ;;
		10	;; ;;
		11	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
485	heavyiron	12	include '..\..\..\macros.inc'
31	halyavin	13	version equ '0.1'
		14
		15	use32
		16
		17	org 0x0
		18
		19	db 'MENUET01' ; 8 byte id
		20	dd 0x01 ; required os
		21	dd START ; program start
		22	dd I_END ; program image size
		23	dd 0x200000 ; required amount of memory
		24	dd 0xffff0
		25	dd 0,0
		26
		27	START: ; start of execution
		28
		29	mov [file_start],0x100000
		30
484	diamond	31	mov eax,70
31	halyavin	32	mov ebx,filel
485	heavyiron	33	mcall
31	halyavin	34
484	diamond	35	test eax,eax
		36	jz @f
		37	cmp eax,6
		38	jnz notfound
		39	@@:
31	halyavin	40	add [file_start],ebx
		41	notfound:
		42
		43	mov edi,I_END
		44	mov ecx,60*120
484	diamond	45	mov al,32
31	halyavin	46	cld
		47	rep stosb
		48
		49	mov eax,[rxs]
		50	imul eax,11
		51	mov [pos],eax
		52
		53	mov ebp,0
		54	mov edx,I_END
485	heavyiron	55
		56	redraw: ; redraw
31	halyavin	57	call draw_window ; at first, draw the window
		58
		59	still:
		60
		61	mov eax,5
		62	mov ebx,1
485	heavyiron	63	mcall
31	halyavin	64
		65	mov eax,11 ; wait here for event
485	heavyiron	66	mcall
31	halyavin	67
		68	cmp eax,1 ; redraw
		69	je redraw
		70	cmp eax,2 ; key
		71	je key
		72	cmp eax,3 ; button
		73	je button
		74
		75	cmp [I_END+120*60],byte 1
		76	jne no_main_update
		77	mov [I_END+120*60],byte 0
		78	mov edx,I_END
		79	call draw_server_data
		80	no_main_update:
		81
		82	cmp [server_active],0
		83	je noread
		84	call read_incoming_data
		85	noread:
		86
		87	call print_status
		88
		89	cmp [status],4
		90	je send_request
		91
		92	jmp still
		93
		94
		95	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		96	;;
		97	;; Save the fetched mails
		98	;;
		99
		100
		101	save_file:
		102
		103	pusha
		104
484	diamond	105	mov ebx,files
31	halyavin	106	mov eax,[file_start]
		107	sub eax,0x100000
484	diamond	108	mov [ebx+12],eax
31	halyavin	109
484	diamond	110	mov eax,70
485	heavyiron	111	mcall
31	halyavin	112
		113	popa
		114
		115	ret
		116
		117
		118	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		119	;;
		120	;; Send user id/passwd/mailrq
		121	;;
		122
		123
		124	send_request:
		125
		126	inc [mcounter]
		127
		128	cmp [mcounter],1000
		129	jbe no_send
		130
		131	mov eax,[ccounter]
		132	imul eax,32
		133	add eax,getmail
		134	mov esi,eax
		135
		136	inc [ccounter]
		137
		138	mov edx,32
		139
		140	cmp [ccounter],1
		141	jne no1
		142	mov edx,5+2
		143	add edx,[l2]
		144	no1:
		145
		146	cmp [ccounter],2
		147	jne no2
		148	mov edx,5+2
		149	add edx,[l3]
		150	no2:
		151
		152	mov eax,53
		153	mov ebx,7
		154	mov ecx,[socket]
485	heavyiron	155	mcall
31	halyavin	156	mov [mcounter],0
		157
		158	cmp [esi],dword 'quit'
		159	je close_fetch
		160
		161
		162	no_send:
		163
		164	jmp still
		165
		166
		167	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		168	;;
		169	;; Close connection to server
		170	;;
		171
		172
		173	close_fetch:
		174
		175	mov eax,53
		176	mov ebx,7
		177	mov ecx,[socket]
		178	mov edx,14
		179	mov esi,quitc
485	heavyiron	180	mcall
31	halyavin	181	mov [mcounter],0
		182
		183	mov eax,5
		184	mov ebx,150
485	heavyiron	185	mcall
31	halyavin	186
		187	call read_incoming_data
		188
		189	mov eax,53
		190	mov ebx,8
		191	mov ecx,[socket]
485	heavyiron	192	mcall
31	halyavin	193
		194	mov eax,5
		195	mov ebx,2
485	heavyiron	196	mcall
31	halyavin	197
		198	mov eax,53
		199	mov ebx,8
		200	mov ecx,[socket]
485	heavyiron	201	mcall
31	halyavin	202
		203	mov [server_active],0
		204
		205	jmp still
		206
		207
		208	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		209	;;
		210	;; User input processing
		211	;;
		212
		213
		214	key:
		215
		216	mov eax,2
485	heavyiron	217	mcall
31	halyavin	218
		219	jmp still
		220
		221
		222	button: ; button
		223
		224	mov eax,17 ; get id
485	heavyiron	225	mcall
31	halyavin	226
		227	cmp ah,60
		228	jne no_open
484	diamond	229	mov eax, 70
		230	mov ebx, tinypad_start
485	heavyiron	231	mcall
31	halyavin	232	jmp still
		233	no_open:
		234
		235	cmp ah,1 ; close program
		236	jne noclose
		237	mov eax,-1
485	heavyiron	238	mcall
31	halyavin	239	noclose:
		240
		241	cmp ah,51
		242	je read_string
		243	cmp ah,52
		244	je read_string
		245	cmp ah,53
		246	je read_string
		247
		248	call socket_commands
		249
		250	jmp still
		251
		252
		253	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		254	;;
		255	;; Socket open & close
		256	;;
		257
		258	socket_commands:
		259
		260	cmp ah,22 ; open socket
		261	jnz tst3
		262
		263	mov [server_active],1
		264
		265	mov [mcounter],900
		266	mov [ccounter],0
		267
		268	mov eax,3
485	heavyiron	269	mcall
31	halyavin	270
		271	mov eax,3
485	heavyiron	272	mcall
31	halyavin	273	mov ecx,eax
		274	and ecx,0xffff
		275
		276	mov eax,53
		277	mov ebx,5
		278	mov edx,110
		279	mov esi,dword [ip]
		280	mov edi,1
485	heavyiron	281	mcall
31	halyavin	282	mov [socket], eax
		283
		284	ret
		285	tst3:
		286
		287
		288	cmp ah,24 ; close socket
		289	jnz no_24
		290	mov eax,53
		291	mov ebx,8
		292	mov ecx,[socket]
485	heavyiron	293	mcall
31	halyavin	294	mov [header_sent],0
		295	mov [mail_rp],0
		296	mov [server_active],0
		297
		298	ret
		299	no_24:
		300
		301	ret
		302
		303
		304
		305	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		306	;;
		307	;; Display connection status
		308	;;
		309
		310	old_status dd 0x0
		311
		312	print_status:
		313
		314	pusha
		315
		316	mov eax,53
		317	mov ebx,6
		318	mov ecx,[socket]
485	heavyiron	319	mcall
31	halyavin	320
		321	mov [status],eax
		322
		323	cmp eax,[old_status]
		324	je nopr
		325
		326	mov [old_status],eax
		327
		328	push eax
		329
		330	mov eax,13
		331	mov ebx,200*65536+30
		332	mov ecx,160*65536+10
		333	mov edx,0xffffff
485	heavyiron	334	mcall
31	halyavin	335
		336	pop ecx
		337
		338	cmp [server_active],1
		339	jne nopr
		340
		341	mov eax,47
		342	mov ebx,3*65536
		343	mov edx,200*65536+160
		344	mov esi,0x000000
485	heavyiron	345	mcall
31	halyavin	346
		347	nopr:
		348
		349	popa
		350
		351	ret
		352
		353
		354
		355
		356
		357	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		358	;;
		359	;; Read data from server
		360	;;
		361
		362
		363	read_incoming_data:
		364
		365	pusha
		366
		367	read_new_byte:
		368
		369	call read_incoming_byte
		370	cmp ecx,-1
		371	je no_data_in_buffer
		372
		373	mov eax,[file_start]
		374	mov [eax],bl
		375	inc [file_start]
		376
		377	cmp bl,10
		378	jne no_start_command
		379	mov [cmd],1
		380	no_start_command:
		381
		382	cmp bl,13
		383	jne no_end_command
		384	mov eax,[cmd]
		385	mov [eax+command-2],byte 0
		386	call save_file
		387	call analyze_data
		388	mov edi,command
		389	mov ecx,250
		390	mov eax,0
		391	cld
		392	rep stosb
		393	mov [cmd],0
		394	no_end_command:
		395
		396	mov eax,[cmd]
		397	cmp eax,250
		398	jge still
		399
		400	mov [eax+command-2],bl
		401	inc [cmd]
		402
		403	jmp read_new_byte
		404
		405	no_data_in_buffer:
		406
		407	popa
		408
		409	ret
		410
		411
		412	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		413	;;
		414	;; Read user input for ip/user/passwd
		415	;;
		416
		417
		418	read_string:
		419
		420	shr eax,8
		421	sub eax,51
		422	mov ebx,eax
		423	imul eax,12
		424	add eax,181
		425
		426	mov [len],ebx
		427	shl [len],2
		428	add [len],l1
		429
		430	imul ebx,50
		431	add ebx,input1
		432
		433	mov [addr],ebx
		434	mov [ya],eax
		435
		436	mov edi,[addr]
		437	mov eax,0
		438	mov ecx,30
		439	cld
		440	rep stosb
		441
		442	call print_input_text
		443
		444	mov edi,[addr]
		445
		446	f11:
		447	mov eax,10
485	heavyiron	448	mcall
31	halyavin	449	cmp eax,2
		450	jne read_done
		451	mov eax,2
485	heavyiron	452	mcall
31	halyavin	453	shr eax,8
		454	cmp eax,13
		455	je read_done
		456	cmp eax,8
		457	jnz nobsl
		458	cmp edi,[addr]
		459	jz f11
		460	sub edi,1
		461	mov [edi],byte 32
		462	call print_text
		463	jmp f11
		464	nobsl:
		465	mov [edi],al
		466
		467	call print_input_text
		468
		469	add edi,1
		470	mov esi,[addr]
		471	add esi,30
		472	cmp esi,edi
		473	jnz f11
		474
		475	read_done:
		476
		477	push edi
		478
		479	mov ecx,40
		480	mov eax,32
		481	cld
		482	rep stosb
		483
		484	call print_input_text
		485
		486	pop edi
		487	sub edi,[addr]
		488	mov eax,[len]
		489	mov [eax],edi
		490
		491	cmp [len],l1
		492	jne noip
		493	mov esi,input1
		494	mov edi,ip_text+15
		495	mov ecx,16
		496	cld
		497	rep movsb
		498	call ip_set
		499	noip:
		500
		501	cmp [len],l2
		502	jne nol2
		503	mov esi,input2
		504	mov edi,l2_text+15
		505	mov ecx,22
		506	cld
		507	rep movsb
		508	mov esi,input2
		509	mov edi,getmail+5
		510	mov ecx,[l2]
		511	cld
		512	rep movsb
		513	mov al,13
		514	stosb
		515	mov al,10
		516	stosb
		517	nol2:
		518
		519	cmp [len],l3
		520	jne nol3
		521	mov esi,input3
		522	mov edi,getmail+32+5
		523	mov ecx,[l3]
		524	cld
		525	rep movsb
		526	mov al,13
		527	stosb
		528	mov al,10
		529	stosb
		530	nol3:
		531
		532	call draw_window
		533
		534	jmp still
		535
		536
		537
		538	print_input_text:
		539
		540	pusha
		541
		542	mov eax,13
		543	mov ebx,9565536+236
		544	mov ecx,[ya]
		545	shl ecx,16
		546	mov cx,9
		547	mov edx,0xffffff
485	heavyiron	548	mcall
31	halyavin	549
		550	cmp [len],l3
		551	je noprt
		552
		553	mov eax,4
		554	mov edx,[addr]
		555	mov ebx,95*65536
		556	add ebx,[ya]
		557	mov ecx,0x000000
		558	mov esi,23
485	heavyiron	559	mcall
31	halyavin	560
		561	noprt:
		562
		563	popa
		564	ret
		565
		566
		567	ip_set:
		568
		569	mov esi,input1-1
		570	mov edi,ip
		571	xor eax,eax
		572	ip1:
		573	inc esi
		574	cmp [esi],byte '0'
		575	jb ip2
		576	cmp [esi],byte '9'
		577	jg ip2
		578	imul eax,10
		579	movzx ebx,byte [esi]
		580	sub ebx,48
		581	add eax,ebx
		582	jmp ip1
		583	ip2:
		584	mov [edi],al
		585	xor eax,eax
		586	inc edi
		587	cmp edi,ip+3
		588	jbe ip1
		589	ret
		590	no_read_ip:
		591
		592	ret
		593
		594
		595	analyze_data:
		596
		597	pusha
		598
		599	mov [text_start],I_END
		600	mov ecx,[rxs]
		601	imul ecx,11
		602	mov [pos],ecx
		603
		604	mov bl,13
		605	call print_character
		606	mov bl,10
		607	call print_character
		608
		609	cmp [cmd],2
		610	jbe nott
		611	mov ecx,[cmd]
		612	sub ecx,2
		613	mov esi,command+0
		614	newcmdc:
		615	mov bl,[esi]
		616	call print_character
		617	inc esi
		618	loop newcmdc
		619
		620	nott:
		621
		622	mov edx,I_END
		623	call draw_server_data
		624
		625	cmd_len_ok:
		626
		627	cmp [command],dword '-ERR'
		628	je close_fetch
		629
		630	cmp [command],word '+O'
		631	jne nook
		632	mov [mcounter],990
		633	nook:
		634
		635	popa
		636
		637	ret
		638
		639
		640
		641	draw_data:
		642
		643	push eax
		644
		645	add eax,[text_start]
		646	mov [eax],bl
		647
		648	pop eax
		649	ret
		650
		651
		652
		653	print_text:
		654
		655	pusha
		656
		657	mov ecx,command-2
		658	add ecx,[cmd]
		659
		660	ptr2:
		661	mov bl,[eax]
		662	cmp bl,dl
		663	je ptr_ret
		664	cmp bl,0
		665	je ptr_ret
		666	call print_character
		667	inc eax
		668	cmp eax,ecx
		669	jbe ptr2
		670
		671	ptr_ret:
		672
		673	mov eax,[text_start]
		674	mov [eax+120*60],byte 1
		675
		676	popa
		677	ret
		678
		679
		680
		681	print_character:
		682
		683	pusha
		684
		685	cmp bl,13 ; line beginning
		686	jne nobol
		687	mov ecx,[pos]
		688	add ecx,1
		689	boll1:
		690	sub ecx,1
		691	mov eax,ecx
		692	xor edx,edx
		693	mov ebx,[rxs]
		694	div ebx
		695	cmp edx,0
		696	jne boll1
		697	mov [pos],ecx
		698	jmp newdata
		699	nobol:
		700
		701	cmp bl,10 ; line down
		702	jne nolf
		703	addx1:
		704	add [pos],dword 1
		705	mov eax,[pos]
		706	xor edx,edx
		707	mov ecx,[rxs]
		708	div ecx
		709	cmp edx,0
		710	jnz addx1
		711	mov eax,[pos]
		712	jmp cm1
		713	nolf:
		714	no_lf_ret:
		715
		716
		717	cmp bl,15 ; character
		718	jbe newdata
		719
		720	mov eax,[irc_data]
		721	shl eax,8
		722	mov al,bl
		723	mov [irc_data],eax
		724
		725	mov eax,[pos]
		726	call draw_data
		727
		728	mov eax,[pos]
		729	add eax,1
		730	cm1:
		731	mov ebx,[scroll+4]
		732	imul ebx,[rxs]
		733	cmp eax,ebx
		734	jb noeaxz
		735
		736	mov esi,[text_start]
		737	add esi,[rxs]
		738
		739	mov edi,[text_start]
		740	mov ecx,ebx
		741	cld
		742	rep movsb
		743
		744	mov esi,[text_start]
		745	mov ecx,[rxs]
		746	imul ecx,61
		747	add esi,ecx
		748
		749	mov edi,[text_start]
		750	mov ecx,[rxs]
		751	imul ecx,60
		752	add edi,ecx
		753	mov ecx,ebx
		754	cld
		755	rep movsb
		756
		757	mov eax,ebx
		758	sub eax,[rxs]
		759	noeaxz:
		760	mov [pos],eax
		761
		762	newdata:
		763
		764	mov eax,[text_start]
		765	mov [eax+120*60],byte 1
		766
		767	popa
		768	ret
		769
		770
		771
		772	read_incoming_byte:
		773
		774	mov eax, 53
		775	mov ebx, 2
		776	mov ecx, [socket]
485	heavyiron	777	mcall
31	halyavin	778
		779	mov ecx,-1
		780
		781	cmp eax,0
		782	je no_more_data
		783
		784	mov eax, 53
		785	mov ebx, 3
		786	mov ecx, [socket]
485	heavyiron	787	mcall
31	halyavin	788
		789	mov ecx,0
		790
		791	no_more_data:
		792
		793	ret
		794
		795
		796	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		797	;;
		798	;; Window definitions
		799	;;
		800
		801
		802
		803	draw_window:
		804
		805	pusha
		806
		807	mov eax,12
		808	mov ebx,1
485	heavyiron	809	mcall
31	halyavin	810
		811	mov eax,0 ; draw window
		812	mov ebx,5*65536+435
		813	mov ecx,5*65536+232
484	diamond	814	mov edx,0x13ffffff
		815	mov edi,labelt
485	heavyiron	816	mcall
31	halyavin	817
		818	mov [old_status],300
		819
		820	mov eax,8 ; button: open socket
		821	mov ebx,23*65536+22
		822	mov ecx,155*65536+10
		823	mov edx,22
		824	mov esi,0x44cc44
485	heavyiron	825	mcall
31	halyavin	826
484	diamond	827	; mov eax,8 ; button: close socket
31	halyavin	828	mov ebx,295*65536+22
		829	mov ecx,155*65536+10
		830	mov edx,24
		831	mov esi,0xcc4444
485	heavyiron	832	mcall
31	halyavin	833
484	diamond	834	; mov eax,8 ; button: text entries
31	halyavin	835	mov ebx,243*65536+8
		836	mov ecx,180*65536+8
		837	mov edx,51
		838	mov esi,0x4488dd
		839	newi:
485	heavyiron	840	mcall
31	halyavin	841	inc edx
		842	add ecx,12*65536
		843	cmp edx,53
		844	jbe newi
		845
484	diamond	846	; mov eax,8 ; open inbox
31	halyavin	847	mov ebx,295*65536+102
		848	mov ecx,190*65536+14
		849	mov edx,60
		850	mov esi,0x5577dd
485	heavyiron	851	mcall
31	halyavin	852
		853	mov eax,38 ; line
		854	mov ebx,5*65536+430
		855	mov ecx,114*65536+114
		856	mov edx,0x000000
485	heavyiron	857	mcall
31	halyavin	858
		859	mov ebx,5*65536+133 ; info text
		860	mov ecx,0x000000
		861	mov edx,text
		862	mov esi,70
		863	newline:
		864	mov eax,4
485	heavyiron	865	mcall
31	halyavin	866	add ebx,12
		867	add edx,70
		868	cmp [edx],byte 'x'
		869	jne newline
		870
		871	mov edx,I_END ; text from server
		872	call draw_server_data
		873
		874	mov eax,12
		875	mov ebx,2
485	heavyiron	876	mcall
31	halyavin	877
		878	popa
		879
		880	ret
		881
		882
		883	draw_server_data:
		884
		885	pusha
		886
		887	mov eax,4
		888	mov ebx,10*65536+26
		889	mov ecx,8
		890	mov esi,[rxs]
		891	dct:
		892	pusha
484	diamond	893	mov ecx,ebx
31	halyavin	894	shl ecx,16
484	diamond	895	mov cl,9
31	halyavin	896	mov eax,13
		897	mov ebx,10*65536
		898	mov bx,word [rxs]
		899	imul bx,6
		900	mov edx,0xffffff
485	heavyiron	901	mcall
31	halyavin	902	popa
		903	push ecx
		904	mov eax,4
		905	mov ecx,0
485	heavyiron	906	mcall
31	halyavin	907	add edx,[rxs]
		908	add ebx,10
		909	pop ecx
		910	loop dct
		911
		912	popa
		913	ret
		914
		915
		916
		917	text:
		918
		919	db ' Incoming mails are written to /rd/1/popc.txt '
		920	db ' '
		921	db ' Check for mail. Force close '
		922	db ' '
		923	ip_text:
		924	db ' Server IP : 192.168.1.200 < '
		925	l2_text:
		926	db ' User : < Open popc.txt '
		927	l3_text:
		928	db ' Password : (not shown) < '
		929
484	diamond	930	db 'x' ; <- END MARKER, DONT DELETE
31	halyavin	931
		932	file_start dd 0x100000
		933
484	diamond	934	; max size is 0x100000 bytes, read to/write from 0x100000
31	halyavin	935	files:
484	diamond	936	dd 2,0,0,?,0x100000
		937	db 0
		938	dd pr
31	halyavin	939	filel:
484	diamond	940	dd 0,0,0,0x100000,0x100000
539	spraid	941	pr db '/sys/popc.txt',0
31	halyavin	942
		943	ip db 192,168,1,200
		944
		945	socket dd 0x0
		946
		947	posx dd 0x0
		948	incoming_pos dd 0x0
		949	incoming_string: times 128 db 0
		950	pos dd 0x0
		951
		952	text_start dd I_END
		953	print db 0x0
		954	cmd dd 0x0
		955	rxs dd 66
		956
		957	res: db 0,0
		958	command: times 256 db 0x0
		959
		960	command_position dd 0
		961	counter dd 0
		962
		963	numtext db ' '
484	diamond	964	labelt db 'POP client v ',version,0
31	halyavin	965	scroll: dd 1,8
		966
484	diamond	967	tinypad_start:
		968	dd 7
		969	dd 0
		970	dd pr
		971	dd 0
		972	dd 0
539	spraid	973	db '/sys/TINYPAD',0
31	halyavin	974
		975	getmail:
		976	db 'user xyz ',13,10
		977	db 'pass xyz ',13,10
		978	db 'retr 1 ',13,10
		979	db 'retr 2 ',13,10
		980	db 'retr 3 ',13,10
		981	db 'retr 4 ',13,10
		982	db 'retr 5 ',13,10
		983	db 'retr 6 ',13,10
		984	db 'retr 7 ',13,10
		985	db 'retr 8 ',13,10
		986	db 'retr 9 ',13,10
		987
		988	quitc:
		989	db 'quit ',13,10
		990
		991	mcounter dd 900
		992	ccounter dd 0
		993
		994	ld db 13,10
		995
		996	server_active db 0
		997
		998	header_sent db 0
		999
		1000	close_connection dd 0x0
		1001
		1002	mail_rp dd 0
		1003
		1004	irc_data dd 0x0
		1005	addr dd 0x0
		1006	ya dd 0x0
		1007	len dd 0x0
		1008
		1009	input1: times 50 db 32
		1010	input2: times 50 db 32
		1011	input3: times 50 db 32
		1012
		1013	l1 dd 0
		1014	l2 dd 3
		1015	l3 dd 3
		1016
		1017	status dd 0x0
		1018
		1019	I_END:

Subversion Repositories Kolibri OS

(root)/programs/network/popc/trunk/popc.asm – Rev 539