Board.KolibriOS.org

Code: Select all

include 'macros.inc'
include 'network.inc'
;include 'debug-fdo.inc'

MEOS_APP_START

CODE
;-----------------------
; Open socket: [sockaddr1]
; RETURN: [socketnum]; EAX = -1 on error
;-----------------------
open_socket:
	mcall	socket, AF_INET4, SOCK_STREAM, 0
	cmp	eax, -1
	jz	finish
	mov	[socketnum], eax
	mcall	connect, [socketnum], sockaddr1, 18

;-----------------------
; Send request:
; RETURN:
;-----------------------
request:
	mcall   send, [socketnum], req_gr, 59, 0
	mcall   recv, [socketnum], bufer, 4096, 0
	mcall	close, [socketnum]
	cmp	eax, -1
	jz	finish
	mov	[file_st.count], eax
	;mcall  70, file_st
finish:
       mcall   -1

DATA
file_st:
		dd 0
.start		dd 0
		dd 0
.count		dd 0
.pointer	dd bufer
.file		db '/bd0/2/ya.txt'

;-------Network---------
socketnum	dd ?

sockaddr1:
		dw AF_INET4
server_port	dw 0x50 	; 80
server_ip	dd 0x5D9E86CB	; ya.ru
		rb 10

req_gr		db 'GET / HTTP/1.1',13,10,'Host: natribu.org',13,10,'Connection: close',13,10,13,10,0

UDATA
bufer		rb 4097

MEOS_APP_END