WebSVN – Kolibri OS – Blame – /programs/network/tcpserv/tcpserv.asm

Rev	Author	Line No.	Line
3545	hidnplayr	1	format binary as ""
		2
		3	use32
		4	; standard header
		5	db 'MENUET01' ; signature
		6	dd 1 ; header version
		7	dd start ; entry point
		8	dd i_end ; initialized size
		9	dd mem ; required memory
		10	dd mem ; stack pointer
		11	dd 0 ; parameters
		12	dd 0 ; path
		13
		14
		15	BUFFERSIZE equ 1500
		16	; useful includes
		17	include '../macros.inc'
		18	purge mov,add,sub
		19	include '../proc32.inc'
		20	include '../dll.inc'
		21
		22	include '../network.inc'
		23
		24	; entry point
		25	start:
		26	; load libraries
		27	stdcall dll.Load, @IMPORT
		28	test eax, eax
		29	jnz exit
		30
		31	; initialize console
		32	push 1
		33	call [con_start]
		34	push title
		35	push 25
		36	push 80
		37	push 25
		38	push 80
		39	call [con_init]
		40
		41	mcall 40, 1 shl 7 ; we only want network events
		42
		43	push str1
		44	call [con_write_asciiz]
		45
		46	mcall socket, AF_INET4, SOCK_STREAM, 0
		47	cmp eax, -1
		48	je sock_err
		49
		50	mov [socketnum], eax
		51
		52	;; mcall setsockopt, [socketnum], SOL_SOCKET, SO_REUSEADDR, &yes,
		53	;; cmp eax, -1
		54	;; je opt_err
		55
		56	mcall bind, [socketnum], sockaddr1, sockaddr1.length
		57	cmp eax, -1
		58	je bind_err
		59
		60	mcall listen, [socketnum], 10 ; Backlog = 10
		61	cmp eax, -1
		62	je listen_err
		63
		64	push str2
		65	call [con_write_asciiz]
		66
		67	mcall 10
		68
		69	mcall accept, [socketnum], sockaddr1, sockaddr1.length
		70	cmp eax, -1
		71	je acpt_err
		72
		73	mov [socketnum2], eax
		74
		75	;; mcall close, [socketnum]
		76
		77	mcall send, [socketnum2], hello, hello.length
		78
		79	.loop:
		80	mcall 10
		81
		82	mcall recv, [socketnum2], buffer, buffer.length
		83	cmp eax, -1
		84	je .loop
		85
		86	mov byte [buffer + eax], 0
		87
		88	push buffer
		89	call [con_write_asciiz]
		90
		91	jmp .loop
		92
		93	acpt_err:
		94	push str8
		95	call [con_write_asciiz]
		96	jmp done
		97
		98	listen_err:
		99	push str3
		100	call [con_write_asciiz]
		101	jmp done
		102
		103	bind_err:
		104	push str4
		105	call [con_write_asciiz]
		106	jmp done
		107
		108	sock_err:
		109	push str6
		110	call [con_write_asciiz]
		111	jmp done
		112
		113	done:
		114	call [con_getch2]
		115	push 1
		116	call [con_exit]
		117	exit:
		118	mcall -1
		119
		120
		121
		122	; data
		123	title db 'TCP stream server - test',0
		124	str1 db 'Opening socket',10, 0
		125	str2 db 'Listening for incoming connections...',10,0
		126	str3 db 'Listen error',10,10,0
		127	str4 db 'Bind error',10,10,0
		128	str5 db 'Setsockopt error.',10,10,0
		129	str6 db 'Could not open socket',10,10,0
		130	str7 db 'Got data!',10,10,0
		131	str8 db 'Error accepting connection',10,10,0
		132
		133	hello db 'Hello world!',0
		134	.length = $ - hello
		135
		136	sockaddr1:
		137	dw AF_INET4
		138	.port dw 0x1700 ; 23
		139	.ip dd 0
		140	rb 10
		141	.length = $ - sockaddr1
		142
		143	; import
		144	align 4
		145	@IMPORT:
		146
		147	library console, 'console.obj'
		148
		149	import console, \
		150	con_start, 'START', \
		151	con_init, 'con_init', \
		152	con_write_asciiz, 'con_write_asciiz', \
		153	con_exit, 'con_exit', \
		154	con_gets, 'con_gets',\
		155	con_cls, 'con_cls',\
		156	con_printf, 'con_printf',\
		157	con_getch2, 'con_getch2',\
		158	con_set_cursor_pos, 'con_set_cursor_pos'
		159	i_end:
		160
		161	socketnum dd ?
		162	socketnum2 dd ?
		163	buffer rb BUFFERSIZE
		164	.length = BUFFERSIZE
		165
		166	align 4
		167	rb 4096 ; stack
		168	mem:

Subversion Repositories Kolibri OS

(root)/programs/network/tcpserv/tcpserv.asm – Rev 3545