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