WebSVN – Kolibri OS – Diff – /programs/network/downloader/trunk/downloader.asm

+; version: 0.5
+; last update:  07/10/2010
+; written by:   Marat Zakiyanov aka Mario79, aka Mario
+; changes:      reducing the size of the binary code,
+;               program uses far less memory while running
+;               (>0x7000, the old version used >0x100000),
+;               process only net event at start with parameter
+;-----------------------------------------------------------
+; version 0.3 -0.4
+; written by:   CleverMouse
+;
+;-----------------------------------------------------------
 ; wget 0.2 by barsuk
 ; based on Menuet Httpc
 ; Enabling debugging puts stuff to the debug board
-DEBUGGING_ENABLED           equ     1
+DEBUGGING_ENABLED	equ 1
-DEBUGGING_DISABLED          equ     0
+DEBUGGING_DISABLED	equ 0
-DEBUGGING_STATE             equ     DEBUGGING_ENABLED
+DEBUGGING_STATE		equ DEBUGGING_ENABLED
 use32
- org    0x0
+	org	0x0
- db     'MENUET01'    ; header
+	db 'MENUET01'	; header
- dd     0x01          ; header version
+	dd 0x01		; header version
- dd     START         ; entry point
+	dd START	; entry point
- dd     I_END         ; image size
+	dd IM_END	; image size
- dd     0x100000      ; required memory
+	dd I_END	;0x100000 ; required memory
- dd     0x100000      ; esp
+	dd stacktop	; esp
- dd     params		  ; I_PARAM
+	dd params	; I_PARAM
- dd		0x0     	  ;I_Path
+	dd 0x0		; I_Path
+include	'lang.inc'
+include	'../../../macros.inc'
-include 'lang.inc'
+include	"../../../proc32.inc"
-include '../../../macros.inc'
+include	"dll.inc"
-include "DEBUG.INC"
+include	"debug.inc"
-URLMAXLEN       equ     256  ; maximum length of url string
+URLMAXLEN	equ 256	; maximum length of url string
-primary_buffer_size	equ	4096
+primary_buffer_size	equ 4096
+; Memory usage
+; webpage headers at buf_headers
+START:	; start of execution
+;dps	<"Program started",13,10>
+; prepare webAddr area
-; Memory usage
+	mov	al,' '
+	mov	edi,webAddr
-; webpage headers at buf_headers
+	mov	ecx,URLMAXLEN
+	cld
+	rep	stosb
+	xor	eax,eax
+	stosb
+; prepare document area
-START:                              ; start of execution
+	mov	al,'/'
+	mov	edi,document
-;dps <"Program started",13,10>
+	cld
-    mov     eax,40                          ; Report events
+	stosb
-    mov     ebx,10000111b                   ; Stack 8 + defaults
+	mov	al,' '
-    mcall
+	mov	ecx,URLMAXLEN-1
-	mov		eax, 68						; create local heap
+	rep	stosb
-	mov		ebx, 11
-	mcall
+; create local heap
+	mcall	68,11
-	call		load_settings
+	call	load_settings
+	cmp	[params],byte 0
-	cmp		byte [params], 0
+	jz	prepare_event	;red
-	jz		red
+	mcall	40,10000000b ; only net event!!!
-	; we have an url
+; we have an url
 	mov	edi,document_user
-	mov		edi, document_user
+	mov	al,' '
-	mov		al, ' '
+	mov	ecx,URLMAXLEN
-	mov		ecx, URLMAXLEN
+	rep	stosb
-	rep		stosb
+	mov	esi,params
+	mov	edi,document_user
-	mov		esi, params
+.copy_param:
-	mov		edi, document_user
+	mov	al,[esi]
-.copy_param:
+	cmp	al,0
-	mov		al, [esi]
+	jz	.done
-	cmp		al, 0
+	cmp	al,' '
-	jz		.done
+	jz	.done_inc
-	cmp		al, ' '
-	jz		.done_inc
+	mov	[edi],al
-	mov		[edi], al
+	inc	esi
-	inc		esi
+	inc	edi
-	inc		edi
+	jmp	.copy_param
-	jmp		.copy_param
-.done_inc:
-	; url is followed by shared memory name.
-	inc		esi
-.done:
-	mov		[shared_name], esi
-	mov		ah, 22			; strange way to tell that socket should be opened...
-	call	socket_commands
-	jmp		still
-red:                    ; redraw
-    call    draw_window
-still:
-    mov     eax,23                 ; wait here for event
+.done_inc:
-    mov     ebx,1
+; url is followed by shared memory name.
-    mcall
+	inc	esi
-    cmp     eax,1                  ; redraw request ?
+.done:
-    je      red
+	mov	[shared_name],esi
-    cmp     eax,2                  ; key in buffer ?
-    je      key
-    cmp     eax,3                  ; button in buffer ?
+	mov	ah,22	; strange way to tell that socket should be opened...
+	call	socket_commands
+	jmp	still
+prepare_event:
+; Report events
+; Stack 8 + defaults
+	mcall	40,10000111b
+red:	; redraw
+	call	draw_window
+still:
+	mcall	23,1	; wait here for event
+	cmp	eax,1	; redraw request ?
-    je      button
+	je	red
-    ; Get the web page data from the remote server
+	cmp	eax,2	; key in buffer ?
-    call    read_incoming_data
-    mov     eax,[status]
+	je	key
+	cmp	eax,3	; button in buffer ?
-    mov     [prev_status],eax
+	je	button
-    mov     eax,53
+; Get the web page data from the remote server
-    mov     ebx,6
-    mov     ecx,[socket]
-    mcall
-    mov     [status],eax
-    cmp     [prev_status],4
-    jge     no_send
-    cmp     [status],4
-    jne     no_send
-    mov     [onoff],1
+	call	read_incoming_data
+	mov	eax,[status]
+	mov	[prev_status],eax
+	mcall	53,6,[socket]
+	mov	[status],eax
+	cmp	[prev_status],4
-    call    send_request
+	jge	no_send
-no_send:
-    call    print_status
+	cmp	[status],4
+	jne	no_send
-    cmp     [prev_status],4
-    jne     no_close
+	mov	[onoff],1
-    cmp     [status],4   ; connection closed by server
-    jbe     no_close     ; respond to connection close command
+	call	send_request
-                         ; draw page
+no_send:
-    call    read_incoming_data
+	call	print_status
-    mov     eax,53
+	cmp	[prev_status],4
-    mov     ebx,8
+	jne	no_close
-    mov     ecx,[socket]
+	cmp	[status],4	; connection closed by server
-    mcall
+	jbe	no_close	; respond to connection close command
+; draw page
-    call    draw_page
+	call	read_incoming_data
+	mcall	53,8,[socket]
-    mov     [onoff],0
+	call	draw_page
-no_close:
-    jmp     still
-key:                    ; key
-    mov     eax,2       ; just read it and ignore
-    mcall
-    shr     eax,8
+	mov	[onoff],0
-    cmp     eax,184
-    jne     no_down
+no_close:
+	jmp	still
+key:	; key
+	mcall	2	; just read it and ignore
+	shr	eax,8
-    cmp     [display_from],25
+	cmp	eax,184
-    jb      no_down
+	jne	no_down
-    sub     [display_from],25
+	cmp	[display_from],25
-    call    display_page
+	jb	no_down
 	sub	[display_from],25
-no_down:
+	call	display_page
-    cmp     eax,183
-    jne     no_up
+no_down:
-    add     [display_from],25
+	cmp	eax,183
-    call    display_page
+	jne	no_up
-no_up:
+	add	[display_from],25
-    jmp     still
 	call	display_page
-button:                 ; button
-;dps <"Button pressed",13,10>
-    mov     eax,17      ; get id
+no_up:
-    mcall
+	jmp	still
-	cmp		ah,26
-	je		save
+button:	; button
-    cmp     ah,1                   ; button id=1 ?
+;dps	<"Button pressed",13,10>
-    jne     noclose
+	mcall	17	; get id
 	cmp	ah,26
-;dps "Closing socket before exit... "
+	je	save
+	cmp	ah,1	; button id=1 ?
-close_end_exit:
+	jne	noclose
+;	dps	"Closing socket before exit... "
-;dpd eax
-;dps <13,10>
+close_end_exit:
-exit:
+;dpd	eax
-    or      eax,-1                 ; close this program
+;dps	<13,10>
-    mcall
+exit:
-save:
+	or	eax,-1	; close this program
-dps "saving"
+	mcall
-newline
-	mov		eax, 70
+save:
-	mov		ebx, fileinfo
+dps	"saving"
-	mcall
+newline
-;pregs
+	mcall	70,fileinfo
-	jmp		still
+;pregs
+	jmp	still
-noclose:
-    cmp     ah,31
+noclose:
-    jne     noup
+	cmp	ah,31
-    sub     [display_from],20
-    call    display_page
+	jne	noup
-    jmp     still
+	sub	[display_from],20
+	call	display_page
-noup:
+	jmp	still
-    cmp     ah,32
-    jne     nodown
+noup:
-    add     [display_from],20
+	cmp	ah,32
-    call    display_page
+	jne	nodown
-    jmp     still
+	add	[display_from],20
+	call	display_page
-nodown:
+	jmp	still
-    cmp     ah, 10              ; Enter url
-    jne     nourl
+nodown:
+	cmp	ah,10	; Enter url
-    mov     [addr],dword document_user
+	jne	nourl
-    mov     [ya],dword 38
-    mov     [len],dword URLMAXLEN
+	mov	[addr],dword document_user
 	mov	[ya],dword 38
-    mov     ecx,URLMAXLEN
+	mov	[len],dword URLMAXLEN
-    mov     edi,[addr]
-    mov     al,' '
+	mov	ecx,URLMAXLEN
-    rep     stosb
+	mov	edi,[addr]
+	mov	al,' '
-    call    print_text
+	rep	stosb
-    mov     edi,[addr]
-f11:
+	call	print_text
-    mov     eax,10
-    mcall
+	mov	edi,[addr]
-    cmp     eax,2 ; key?
-    jz      fbu
-    jmp     still
+f11:
 	mcall	10
-fbu:
+	cmp	eax,2	; key?
-    mov     eax,2
+	jz	fbu
-    mcall  ; get key
+	jmp	still
-    shr     eax,8
-    cmp     eax,8
-    jnz     nobs
+fbu:
-    cmp     edi,[addr]
+	mcall	2	; get key
-    jz      f11
+	shr	eax,8
-    sub     edi,1
+	cmp	eax,8
 ;       Transmits the GET request to the server.
 ;       This is done as GET then URL then HTTP/1.1',13,10,13,10 in 3 packets
+;
 ;****************************************************************************
 send_request:
-    pusha
+	pusha
-	mov		esi, string0
+	mov	esi,string0
-	mov		edi, request
+	mov	edi,request
 	movsd
+; If proxy is used, make absolute URI - prepend http://
+	cmp	[proxyAddr],byte 0
+	jz	.noproxy
+	mov	dword [edi],'http'
+	mov	[edi+4],byte ':'
+	mov	[edi+5],word '//'
+	add	edi,7
+	mov	esi,webAddr
-    ; If proxy is used, make absolute URI - prepend http://
-	cmp		byte [proxyAddr], 0
-	jz		.noproxy
-	mov		dword [edi], 'http'
-	mov		byte [edi+4], ':'
-	mov		word [edi+5], '//'
-	add		edi, 7
 	mov		esi, webAddr
 .copy_host_loop:
 	lodsb
-	cmp		al, ' '
+	cmp	al,' '
-	jz		.noproxy
+	jz	.noproxy
 	stosb
+	jmp	.copy_host_loop
 	jmp		.copy_host_loop
+.noproxy:
-.noproxy:
+	xor	edx,edx ; 0
 	mov		edx, 0
 .next_edx:
-    ; Determine the length of the url to send in the GET request
+; Determine the length of the url to send in the GET request
-	mov		al, [edx+document]
+	mov	al,[edx+document]
-	cmp		al, ' '
+	cmp	al,' '
-    je     	.document_done
+	je	.document_done
-	mov		[edi], al
+	mov	[edi],al
-	inc		edi
+	inc	edi
-    inc     edx
+	inc	edx
-	jmp		.next_edx
+	jmp	.next_edx
-.document_done:
+.document_done:
-	mov		esi, stringh
+	mov	esi,stringh
+	mov	ecx,stringh_end-stringh
-	mov		ecx, stringh_end-stringh
-	rep		movsb
+	rep	movsb
+	xor	edx,edx	; 0
-	mov		edx, 0
 .webaddr_next:
-	mov		al, [webAddr + edx]
+	mov	al,[webAddr + edx]
-	cmp		al, ' '
+	cmp	al,' '
-	je		.webaddr_done
+	je	.webaddr_done
-	mov		[edi], al
+	mov	[edi],al
-	inc		edi
+	inc	edi
-	inc		edx
+	inc	edx
-	jmp		.webaddr_next
+	jmp	.webaddr_next
-.webaddr_done:
 .webaddr_done:
-	cmp		byte [proxyUser], 0
-	jz		@f
+	cmp	[proxyUser],byte 0
-	call		append_proxy_auth_header
+	jz	@f
-@@:
+	call	append_proxy_auth_header
 @@:
-	mov		esi, connclose
+	mov	esi,connclose
-	mov		ecx, connclose_end-connclose
+	mov	ecx,connclose_end-connclose
-	rep		movsb
+	rep	movsb
 	pusha
-	mov  eax,63
+	mov	eax,63
-	mov  ebx,1
+	mov	ebx,1
-	mov  edx, request
+	mov	edx,request
 @@:
-   mov  cl,[edx]
+	mov	cl,[edx]
-   cmp edx,edi
+	cmp	edx,edi
-   jz   @f
+	jz	@f
-   int  40h
+	mcall
-   inc  edx
+	inc	edx
-   jmp  @b
-@@:
+	jmp	@b
-	popa
+@@:
-    mov     edx, edi
-	sub		edx, request
-	;;;;now write \r\nConnection: Close \r\n\r\n
-    mov     eax, 53     ; ' HTTP/1.1 .. '
+	popa
-    mov     ebx, 7
-    mov     ecx, [socket]
-    mov     esi, request
+	mov	edx,edi
-    mcall
+	sub	edx,request
 ;;;;now write \r\nConnection: Close \r\n\r\n
-    popa
+	mcall	53,7,[socket],,request	;' HTTP/1.1 .. '
-    ret
+	popa
 	ret
 ;****************************************************************************
 ;    Function
 ;       print_status
-;
-;   Description
-;       displays the socket/data received status information
 ;
-;****************************************************************************
-print_status:
+;   Description
-    pusha
+;       displays the socket/data received status information
+;
-    mov     eax,26
+;****************************************************************************
-    mov     ebx,9
-    mcall
+print_status:
+	pusha
-    cmp     eax,[nextupdate]
-    jb      status_return
+	mcall	26,9
-    add     eax,25
+	cmp	eax,[nextupdate]
+	jb	status_return
-    mov     [nextupdate],eax
-    mov     eax,13
+	add	eax,25
-    mov     ebx,5*65536+100
-    mov     ecx,[winys]
-    shl     ecx,16
-    add     ecx,-18*65536+10
+	mov	[nextupdate],eax
-    mov     edx,0xffffff
-    mcall
+	mov	ecx,[winys]
+	shl	ecx,16
-    mov     eax,47
+	add	ecx,-18*65536+10
-    mov     ebx,3*65536
-    mov     ecx,[status]
-    mov     edx,12*65536-18
-    add     edx,[winys]
+	mcall	13,<5,100>,,0xffffff
-    mov     esi,0x000000
-    mcall
+	mov	edx,12*65536-18
-    mov     eax,47
+	add	edx,[winys]
-    mov     ebx,6*65536
+	xor	esi,esi
-    mov     ecx,[pos]
+	mcall	47,<3,0>,[status],,
-    mov     edx,40*65536-18
     add     edx,[winys]
-    mov     esi,0x000000
+	mov	edx,40*65536-18
-    mcall
+	add	edx,[winys]
 	mcall	,<6,0>,[pos]
 status_return:
-    popa
+status_return:
-    ret
+	popa
 	ret
 ;****************************************************************************
 ;    Function
 ;       read_incoming_data
+;
-;   Description
-;       receive the web page from the server, storing it without processing
+;   Description
 ;       receive the web page from the server, storing it without processing
-;****************************************************************************
+;
-read_incoming_data:
+;****************************************************************************
-    cmp     [onoff],1
+read_incoming_data:
-    je      rid
-    ret
+	cmp	[onoff],1
+	je	rid
+	ret
-rid:
-	push	esi
-	push	edi
-dps "rid"
-newline
-newbyteread:
-	;call	print_status
-    mov     eax, 53
+rid:
-    mov     ebx, 2
-    mov     ecx, [socket]
+	push	esi
-    mcall
+	push	edi
 dps	"rid"
-    cmp     eax,0
-    je      no_more_data
+newline
-    mov     eax, 53
-    mov     ebx, 11
+newbyteread:
-	mov		edx, primary_buf
-    mov     ecx, [socket]
-	mov		esi, primary_buffer_size
-    mcall
+	;call	print_status
-;dps "part "
-;dph eax
-;newline
+	mcall	53,2,[socket]
+	cmp	eax,0
-	mov		edi, [pos]
+	je	no_more_data
-	add		[pos], eax
+	mcall	53,11,[socket],primary_buf,primary_buffer_size
-	push	eax
 ;dps	"part "
-	mov		eax, 68
-	mov		ebx, 20
-	mov		ecx, [pos]
-	mov		edx, [buf_ptr]
+;dph	eax
-	mcall
+;newline
-	mov		[buf_ptr], eax
+	mov	edi,[pos]
-	add		edi, eax
-	mov		esi, primary_buf
+	add	[pos],eax
-	pop		ecx					; number of recently read bytes
+	push	eax
-	lea		edx, [ecx - 3]
-	rep		movsb
+	mcall	68,20,[pos],[buf_ptr]
 	mov	[buf_ptr],eax
-no_more_data:
 	add	edi,eax
+	mov	esi,primary_buf
+	pop	ecx	; number of recently read bytes
+	lea	edx,[ecx - 3]
-	mov		eax, 53
-	mov		ebx, 6
-	mov		ecx, [socket]
-	mcall
-	cmp		eax, 4
+	rep	movsb
-	jne		no_more_data.finish
-	jmp		newbyteread
+no_more_data:
-.finish:
+	mcall	53,6,[socket]
-;dps "finish "
+	cmp	eax,4
-;pregs
+	jne	no_more_data.finish
-	call	parse_result
+	jmp	newbyteread
-	mov		ecx, [shared_name]
+.finish:
-	cmp		byte [ecx], 0
-	jnz		save_in_shared
+;dps	"finish	"
-	mov		eax, 70
+;pregs
-	mov		ebx, fileinfo
-	mcall
-;dps "saving "
+	call	parse_result
-;pregs
+	mov	ecx,[shared_name]
+	cmp	[ecx],byte 0
-	;jmp		close_end_exit
+	jnz	save_in_shared
+	mcall	70,fileinfo
-	pop		edi
+;dps	"saving "
+;pregs
-	pop		esi
+;	jmp	close_end_exit
+	pop	edi
-	; if called from command line, then exit
+	pop	esi
+; if called from command line, then exit
-	cmp		byte [params], 0
+	cmp	[params],byte 0
-	jnz		exit
+	jnz	exit
+	ret
-    ret
+save_in_shared:
-save_in_shared:
+	mov	esi,1	; SHM_OPEN+SHM_WRITE
-	mov	eax, 68
+	mcall	68,22
-	mov	ebx, 22
+	test	eax,eax
-	mov	esi, 1	; SHM_OPEN+SHM_WRITE
+	jz	save_in_shared_done
-	mcall
-	test	eax, eax
+	sub	edx,4
+	jbe	save_in_shared_done
 	jz	save_in_shared_done
-	sub	edx, 4
+	mov	ecx,[final_size]
-	jbe	save_in_shared_done
+	cmp	ecx,edx
-	mov	ecx, [final_size]
+	jb	@f
-	cmp	ecx, edx
-	jb	@f
+	mov	ecx,edx
-	mov	ecx, edx
+@@:
-@@:
-	mov	[eax], ecx
+	mov	[eax],ecx
-	lea	edi, [eax+4]
-	mov	esi, [final_buffer]
-	mov	edx, ecx
+	lea	edi,[eax+4]
-	shr	ecx, 2
-	rep	movsd
+	mov	esi,[final_buffer]
-	mov	ecx, edx
+	mov	edx,ecx
-	and	ecx, 3
+	shr	ecx,2
-	rep	movsb
-save_in_shared_done:
+	rep	movsd
-	pop	edi
+	mov	ecx,edx
-	pop	esi
-	jmp	exit
+	and	ecx,3
-	; this function cuts header, and removes chunk sizes if doc is chunked
+	rep	movsb
-	; in: buf_ptr, pos; out: buf_ptr, pos.
-parse_result:
+save_in_shared_done:
-	; close socket
+	pop	edi
-    mov     eax, 53
+	pop	esi
-    mov     ebx, 8
-    mov     ecx, [socket]
+	jmp	exit
-    mcall
+; this function cuts header, and removes chunk sizes if doc is chunked
-dps "close socket: "
+; in: buf_ptr, pos; out: buf_ptr, pos.
-dph eax
-newline
+parse_result:
+; close socket
-	mov		edi, [buf_ptr]
+	mcall	53,8,[socket]
-	mov		edx, [pos]
-	mov		[buf_size], edx
+dps	"close	socket: "
-	;mov		eax, 70
-	;mov		ebx, fileinfo_tmp
-	;mcall
+dph	eax
+newline
-dps "pos = "
-dph edx
+	mov	edi,[buf_ptr]
-newline
+	mov	edx,[pos]
-	; first, find end of headers
+	mov	[buf_size],edx
+;	mcall	70,fileinfo_tmp
-.next_byte:
+dps	"pos = "
-	cmp		dword [edi], 0x0d0a0d0a		; ìíå ëåíü ÷èòàòü ñòàíäàðò, ïóñòü áóäóò îáà âàðèàíòà
+dph	edx
-	je		.end_of_headers
-	cmp		dword [edi], 0x0a0d0a0d
+newline
-	je		.end_of_headers
-	inc		edi
-	dec		edx
+; first, find end of headers
-	jne		.next_byte
+.next_byte:
+	cmp	[edi],dword 0x0d0a0d0a	; ìíå ëåíü ÷èòàòü ñòàíäàðò, ïóñòü áóäóò îáà âàðèàíòà
-	; no end of headers. it's an error. let client see all those headers.
+	je	.end_of_headers
-	ret
+	cmp	[edi],dword 0x0a0d0a0d
+	je	.end_of_headers
-.end_of_headers:
+	inc	edi
+	dec	edx
+	jne	.next_byte
-	; here we look at headers and search content-length or transfer-encoding headers
+; no end of headers. it's an error. let client see all those headers.
+	ret
-;dps "eoh "
-;newline
+.end_of_headers:
+; here we look at headers and search content-length or transfer-encoding headers
-	sub		edi, [buf_ptr]
+;dps	"eoh "
-	add		edi, 3
+;newline
-	mov		[body_pos], edi		; store position where document body starts
+	sub	edi,[buf_ptr]
-	mov		[is_chunked], 0
+	add	edi,3
+	mov	[body_pos],edi	; store position where document body starts
-	; find content-length in headers
+	mov	[is_chunked],0
-	; not good method, but should work for 'Content-Length:'
+; find content-length in headers
 ; not good method, but should work for 'Content-Length:'
-	mov		esi, [buf_ptr]
+	mov	esi,[buf_ptr]
-	mov		edi, s_contentlength
+	mov	edi,s_contentlength
+	mov	ebx,[body_pos]
+	xor	edx,edx	; 0
+.cl_next:
+	mov	al,[esi]
+	cmp	al,[edi + edx]
+	jne	.cl_fail
+	inc	edx
-	mov		ebx, [body_pos]
-	mov		edx, 0
-.cl_next:
-	mov		al, [esi]
-	cmp		al, [edi + edx]
-	jne		.cl_fail
-	inc		edx
-	cmp		edx, len_contentlength
-	je		.cl_found
-	jmp		.cl_incr
+	cmp	edx,len_contentlength
-.cl_fail:
+	je	.cl_found
-	mov		edx, 0
+	jmp	.cl_incr
-.cl_incr:
+.cl_fail:
-	inc		esi
+	xor	edx,edx	; 0
-	dec		ebx
+.cl_incr:
-	je		.cl_error
+	inc	esi
-	jmp		.cl_next
+	dec	ebx
+	je	.cl_error
-.cl_error:
+	jmp	.cl_next
-;pregs
+.cl_error:
+;pregs
 ;newline
-;dph esi
+;dph	esi
 ;dps	" content-length not found "
+; find 'chunked'
-	; find 'chunked'
+; äà, ÿ êîïèðóþ êîä, ýòî óæàñíî, íî ìíå õî÷åòñÿ, ÷òîáû ïîñêîðåå çàðàáîòàëî
+; à òàì óæ îòðåôàêòîðþ
-	; äà, ÿ êîïèðóþ êîä, ýòî óæàñíî, íî ìíå õî÷åòñÿ, ÷òîáû ïîñêîðåå çàðàáîòàëî
+	mov	esi,[buf_ptr]
-	; à òàì óæ îòðåôàêòîðþ
+	mov	edi,s_chunked
+	mov	ebx,[body_pos]
-	mov		esi, [buf_ptr]
+	xor	edx,edx	; 0
-	mov		edi, s_chunked
-	mov		ebx, [body_pos]
+.ch_next:
-	mov		edx, 0
-.ch_next:
+	mov	al,[esi]
-	mov		al, [esi]
+	cmp	al,[edi + edx]
-	cmp		al, [edi + edx]
+	jne	.ch_fail
-	jne		.ch_fail
+	inc	edx
-	inc		edx
+	cmp	edx,len_chunked
-	cmp		edx, len_chunked
+	je	.ch_found
-	je		.ch_found
+	jmp	.ch_incr
-	jmp		.ch_incr
-.ch_fail:
-	mov		edx, 0
+.ch_fail:
-.ch_incr:
+	xor	edx,edx	; 0
 	inc		esi
-	dec		ebx
+.ch_incr:
-	je		.ch_error
+	inc	esi
-	jmp		.ch_next
+	dec	ebx
-.ch_error:
+	je	.ch_error
 	jmp	.ch_next
-	; if neither of the 2 headers is found, it's an error
-;dps "transfer-encoding: chunked not found "
-	mov		eax, [pos]
+.ch_error:
-	sub		eax, [body_pos]
+; if neither of the 2 headers is found, it's an error
-	jmp		.write_final_size
+;dps	"transfer-encoding: chunked not found "
+	mov	eax,[pos]
-.ch_found:
+	sub	eax,[body_pos]
+	jmp	.write_final_size
-	mov		[is_chunked], 1
-	mov		eax, [body_pos]
-	add		eax, [buf_ptr]
+.ch_found:
-	sub		eax, 2
+	mov	[is_chunked],1
-	mov		[prev_chunk_end], eax
-	jmp		parse_chunks
+	mov	eax,[body_pos]
 	add	eax,[buf_ptr]
-.cl_found:
+	sub	eax,2
-	call	read_number		; eax = number from *esi
+	mov	[prev_chunk_end],eax
-	inc		eax				; bugfix :)
+	jmp	parse_chunks
-.write_final_size:
+.cl_found:
-	mov		[final_size], eax		; if this works, i will b very happy...
+	call	read_number	; eax = number from *esi
+	inc	eax	; bugfix :)
 	mov		ebx, [pos]	; we well check if it is right
-	sub		ebx, [body_pos]
+.write_final_size:
-;dps "check cl eax==ebx "
+	mov	[final_size],eax	; if this works, i will b very happy...
-;pregs
-	; everything is ok, so we return
+	mov	ebx,[pos]	; we well check if it is right
-	mov		eax, [body_pos]
+	sub	ebx,[body_pos]
 	mov		ebx, [buf_ptr]
-	add		ebx, eax
-	mov		[final_buffer], ebx
+;dps	"check cl eax==ebx "
-	;mov		ebx, [pos]
+;pregs
-	;sub		ebx, eax
-	;mov		[final_size], ebx
+; everything is ok, so we return
+	mov	eax,[body_pos]
-	ret
+	mov	ebx,[buf_ptr]
+	add	ebx,eax
-parse_chunks:
+	mov	[final_buffer],ebx
+;	mov	ebx,[pos]
-;dps "parse chunks"
+;	sub	ebx,eax
-;newline
+;	mov	[final_size],ebx
-	; we have to look through the data and remove sizes of chunks we see
+	ret
-	; 1. read size of next chunk
-	; 2. if 0, it's end. if not, continue.
-	; 3. make a good buffer and copy a chunk there
 parse_chunks:
-	mov		[final_buffer], 0
+;dps	"parse chunks"
-	mov		[final_size], 0
+;newline
-.read_size:
+	; we have to look through the data and remove sizes of chunks we see
-	mov		eax, [prev_chunk_end]
-	mov		ebx, eax
-	sub		ebx, [buf_ptr]
+	; 1. read size of next chunk
-	mov		edx, eax
+	; 2. if 0, it's end. if not, continue.
-;dps "rs "
+	; 3. make a good buffer and copy a chunk there
-;pregs
+	xor	eax,eax
-	cmp		ebx, [pos]
+	mov	[final_buffer],eax	; 0
-	jae		chunks_end			; not good
+	mov	[final_size],eax	; 0
-	call	read_hex			; in: eax=pointer to text. out:eax=hex number,ebx=end of text.
-	cmp		eax, 0
+.read_size:
-	jz		chunks_end
+	mov	eax,[prev_chunk_end]
-	add		ebx, 1
-	mov		edx, ebx			; edx = size of size of chunk
+	mov	ebx,eax
 	sub	ebx,[buf_ptr]
-	add		ebx, eax
-	mov		[prev_chunk_end], ebx
+	mov	edx,eax
-;dps "sz "
+;dps	"rs "
 ;pregs
+	cmp	ebx,[pos]
-	; do copying: from buf_ptr+edx to final_buffer+prev_final_size count eax
+	jae	chunks_end	; not good
-	; realloc final buffer
-	push	eax
-	push	edx
+	call	read_hex	; in: eax=pointer to text. out:eax=hex number,ebx=end of text.
-	push	dword [final_size]
-	add		[final_size], eax
+	cmp	eax,0
-	mov		eax, 68
+	jz	chunks_end
-	mov		ebx, 20
-	mov		ecx, [final_size]
-	mov		edx, [final_buffer]
-	mcall
+	add	ebx,1
-	mov		[final_buffer], eax
+	mov	edx,ebx	; edx = size of size of chunk
-;dps "re "
 ;pregs
+	add	ebx,eax
-	pop		edi
+	mov	[prev_chunk_end],ebx
-	pop		esi
+;dps	"sz "
-	pop		ecx
+;pregs
+; do copying: from buf_ptr+edx to final_buffer+prev_final_size count eax
-	;add		[pos], ecx
+; realloc final buffer
+	push	eax
-	add		edi, [final_buffer]
+	push	edx
+	push	dword [final_size]
-;dps "cp "
+	add	[final_size],eax
-;pregs
+	mcall	68,20,[final_size],[final_buffer]
+	mov	[final_buffer],eax
-	rep		movsb
+;dps	"re "
+;pregs
 	pop	edi
-	jmp		.read_size
+	pop	esi
+	pop	ecx
-chunks_end:
+;	add	[pos],ecx
-	; free old buffer
+	add	edi,[final_buffer]
+;dps	"cp "
-dps "chunks end"
+;pregs
-newline
+	rep	movsb
 	jmp	.read_size
-	mov		eax, 68
-	mov		ebx, 13
+chunks_end:
-	mov		ecx, [buf_ptr]
-	mcall
+; free old buffer
-	; done!
+dps	"chunks end"
 newline
-	ret
+	mcall	68,13,[buf_ptr]
+; done!
-; reads content-length from [edi+ecx], result in eax
+	ret
-read_number:
-	push	ebx
+; reads content-length from [edi+ecx], result in eax
-	xor		eax, eax
+read_number:
-	xor		ebx, ebx
+	push	ebx
-.next:
+	xor	eax,eax
-	mov		bl, [esi]
+	xor	ebx,ebx
-;dph ebx
-	cmp		bl, '0'
-	jb		.not_number
+.next:
-	cmp		bl, '9'
+	mov	bl,[esi]
-	ja		.not_number
+;dph	ebx
-	sub		bl, '0'
+	cmp	bl,'0'
-	shl		eax, 1
+	jb	.not_number
-	lea		eax,[eax + eax * 4]		; eax *= 10
+	cmp	bl,'9'
-	add		eax, ebx
+	ja	.not_number
-.not_number:
+	sub	bl,'0'
-	cmp		bl, 13
+	shl	eax,1
-	jz		.done
+	lea	eax,[eax + eax * 4]	; eax *= 10
-	inc		esi
+	add	eax,ebx
-	jmp		.next
+.not_number:
-.done:
+	cmp	bl,13
+	jz	.done
-	pop		ebx
+	inc	esi
-;newline
+	jmp	.next
-;dps "strtoint eax "
+.done:
-;pregs
+	pop	ebx
+;newline
+;dps	"strtoint eax "
-	ret
+;pregs
+	ret
-; reads hex from eax, result in eax, end of text in ebx
+; reads hex from eax,result in eax,end of text in ebx
 read_hex:
 	add	eax,2
-	add		eax, 2
+	mov	ebx,eax
-	mov		ebx, eax
+	mov	eax,[ebx]
 	mov	[deba],eax
-	mov		eax, [ebx]
+;	pushf
-	mov		[deba], eax
+;	pushad
 ;	mov	edx,deba
-;	pushf
-;   pushad
-;   mov  edx,deba
-;   call debug_outstr
+;	call	debug_outstr
-;   popad
+;	popad
-;   popf
+;	popf
 	xor	eax,eax
-	xor		eax, eax
+	xor	ecx,ecx
 ;       the data
+;
 ;****************************************************************************
 draw_page:
 	ret
 ;****************************************************************************
 ;    Function
 ;       linefeed
+;
 ;   Description
+;
+;
 ;****************************************************************************
-linefeed:
+linefeed:
-    ret
+	ret
 ;****************************************************************************
 ;    Function
 ;       display_page
+;
 ;   Description
 ;       Renders the text decoded by draw_page
+;
 ;****************************************************************************
 display_page:
-    ret
+	ret
 ;****************************************************************************
 ;    Function
 ;       socket_commands
+;
 ;   Description
 ;       opens or closes the socket
 ;
 ;****************************************************************************
 socket_commands:
-    cmp     ah,22       ; open socket
+	cmp	ah,22	; open socket
-    jnz     tst3
+	jnz	tst3
-	dps "opening socket"
+dps	"opening socket"
-	newline
-    ; Clear all page memory
+newline
+; Clear all page memory
-	mov		[prev_chunk_end], 0
-	cmp		[buf_ptr], 0
-	jz		no_free
+	xor	eax,eax
-	mov		eax, 68		; free buffer
-	mov		ebx, 13
+	mov	[prev_chunk_end],eax	; 0
+	cmp	[buf_ptr],eax	; 0
+	jz	no_free
-	mov		ecx, [buf_ptr]
+	mcall	68,13,[buf_ptr]	; free	buffer
-	mcall
+no_free:
+	xor	eax,eax
-no_free:
-	mov		[buf_size], 0
 	mov	[buf_size],eax	; 0
-    ; Parse the entered url
+; Parse the entered url
-    call    parse_url
+	call	parse_url
-    ; Get a free port number
-        mov         ecx, 1000           ; local port starting at 1000
+; Get a free port number
-getlp1:
+	mov	ecx,1000	; local port starting at 1000
-        inc         ecx
-        push    ecx
+getlp1:
-        mov         eax, 53
+	inc	ecx
-        mov         ebx, 9
-        mcall
-        pop         ecx
+	push	ecx
-        cmp         eax, 0                      ; is this local port in use?
+	mcall	53,9
-        jz              getlp1              ; yes - so try next
+	pop	ecx
+	cmp	eax,0	; is this local port in use?
-    mov     eax,53
+	jz	getlp1	; yes - so try next
-    mov     ebx,5
-    mov     edx,80
-    cmp     [proxyAddr], 0
-    jz      sc000
+	mov	edx,80
-    mov     edx,[proxyPort]
-sc000:
-    mov     esi,dword [server_ip]
-    mov     edi,1
-    mcall
+	cmp	[proxyAddr],byte 0
-    mov     [socket], eax
+	jz	sc000
+	mov	edx,[proxyPort]
+sc000:
+	mcall	53,5,,,[server_ip],1
+	mov	[socket],eax
+	mov	[pagexs],80
-    mov     [pos],0
+	push	eax
-    mov     [pagex],0
+	xor	eax,eax ; 0
-    mov     [pagey],0
+	mov	[pos],eax
-    mov     [pagexs],80
+	mov	[pagex],eax
-    mov     [command_on_off],0
+	mov	[pagey],eax
-	mov		[is_body], 0
-    ret
-tst3:
-    cmp     ah,24     ; close socket
-    jnz     no_24
+	mov	[command_on_off],eax
+	mov	[is_body],eax
-    mov     eax,53
+	pop	eax
-    mov     ebx,8
+	ret
-    mov     ecx,[socket]
-    mcall
-    call    draw_page
+tst3:
 	cmp	ah,24	; close	socket
-    ret
+	jnz	no_24
 ;        is required. It can be an ip address or web address
 ;        is optional and must start with a leading / character
+;
 ;****************************************************************************
 parse_url:
-    ; First, reset destination variables
+; First, reset destination variables
-    cld
+	cld
-    mov     al, ' '
+	mov	al,' '
-    mov     edi, document
+	mov	edi,document
-    mov     ecx,URLMAXLEN
+	mov	ecx,URLMAXLEN
-    rep     stosb
+	rep	stosb
-    mov     edi, webAddr
+	mov	edi,webAddr
-    mov     ecx,URLMAXLEN
+	mov	ecx,URLMAXLEN
-    rep     stosb
+	rep	stosb
-    mov     al, '/'
+	mov	al,'/'
-    mov     [document], al
+	mov	[document],al
-    mov     esi, document_user
+	mov	esi,document_user
-    ; remove any leading protocol text
+; remove any leading protocol text
-    mov     ecx, URLMAXLEN
+	mov	ecx,URLMAXLEN
-    mov     ax, '//'
+	mov	ax,'//'
 pu_000:
-    cmp     [esi], byte ' '     ; end of text?
+	cmp	[esi],byte ' '	; end of text?
-    je      pu_002              ; yep, so not found
+	je	pu_002		; yep, so not found
-    cmp     word [esi], ax
+	cmp	[esi],ax
-    je      pu_001              ; Found it, so esi+2 is start
+	je	pu_001	; Found it, so esi+2 is start
-    inc     esi
+	inc	esi
-    loop    pu_000
+	loop	pu_000
 pu_002:
-    ; not found, so reset esi to start
+; not found, so reset esi to start
-    mov     esi, document_user -2
+	mov	esi,document_user-2
-pu_001:
-    add     esi, 2
+pu_001:
-    mov     ebx, esi    ; save address of start of web address
+	add	esi,2
-    mov     edi, document_user + URLMAXLEN  ; end of string
+	mov	ebx,esi	; save address of start of web address
+	mov	edi,document_user + URLMAXLEN	; end of string
-    ; look for page delimiter - it's a '/' character
+; look for page delimiter - it's a '/' character
 pu_003:
-    cmp     [esi], byte ' '     ; end of text?
+	cmp	[esi],byte ' '	; end of text?
-    je      pu_004              ; yep, so none found
+	je	pu_004		; yep, so none found
-    cmp     esi, edi            ; end of string?
+	cmp	esi,edi		; end of string?
-    je      pu_004              ; yep, so none found
+	je	pu_004		; yep, so none found
-    cmp     [esi], byte '/'     ; delimiter?
+	cmp	[esi],byte '/'	; delimiter?
-    je      pu_005              ; yep - process it
+	je	pu_005		; yep - process it
-    inc     esi
+	inc	esi
-    jmp     pu_003
+	jmp	pu_003
 pu_005:
-    ; copy page to document address
+; copy page to document address
-    ; esi = delimiter
+; esi = delimiter
-    push    esi
+	push	esi
-    mov     ecx, edi            ; end of document_user
+	mov	ecx,edi		; end of document_user
-    mov     edi, document
+	mov	edi,document
-    cld
+	cld
 pu_006:
+	movsb
-    movsb
+	cmp	esi,ecx
-    cmp     esi, ecx
+	je	pu_007		; end of string?
-    je      pu_007              ; end of string?
+	cmp	[esi],byte ' '	; end of text
-    cmp     [esi], byte ' '     ; end of text
+;	je	pu_007		; äçåí-àññåìáëåð
-    je      pu_007
+;	jmp	pu_006		; íå íàäî ïëîäèòü ñóùíîñòè ïî íàïðàñíó
-    jmp     pu_006
+	jne	pu_006
 pu_007:
-    pop     esi                 ; point esi to '/' delimiter
+	pop	esi	; point esi to '/' delimiter
 pu_004:
-    ; copy web address to webAddr
+; copy web address to webAddr
-    ; start in ebx, end in esi-1
+; start in ebx,end in esi-1
-    mov     ecx, esi
+	mov	ecx,esi
+	mov	esi,ebx
-    mov     esi, ebx
+	mov	edi,webAddr
-    mov     edi, webAddr
+	cld
-    cld
 pu_008:
-    movsb
+	movsb
-    cmp     esi, ecx
+	cmp	esi,ecx
-    je      pu_009
+;	je	pu_009		; äçåí-àññåìáëåð
-    jmp     pu_008
+;	jmp	pu_008		; íå íàäî ïëîäèòü ñóùíîñòè ïî íàïðàñíó
+	jne	pu_008
-pu_009:
-    ; For debugging, display resulting strings
+pu_009:
-if DEBUGGING_STATE = DEBUGGING_ENABLED
+; For debugging, display resulting strings
-    mov     esi, document_user
+if	DEBUGGING_STATE = DEBUGGING_ENABLED
-    call    debug_print_string
+	mov	esi,document_user
-    mov     esi, webAddr
+	call	debug_print_string
-    call    debug_print_string
+	mov	esi,webAddr
-    mov     esi, document
+	call	debug_print_string
-    call    debug_print_string
+	mov	esi,document
-end if
+	call	debug_print_string
+end	if
-    ; Look up the ip address, or was it specified?
+; Look up the ip address, or was it specified?
-    mov     al, [proxyAddr]
-    cmp     al, 0
+	mov	al,[proxyAddr]
-    jnz     pu_015
+	cmp	al,0
-    mov     al, [webAddr]
+	jnz	pu_015
-pu_015:
+	mov	al,[webAddr]
-    cmp     al, '0'
+pu_015:
-    jb      pu_010              ; Resolve address
-    cmp     al, '9'
+	cmp	al,'0'
-    ja      pu_010              ; Resolve address
+	jb	pu_010	; Resolve address
+	cmp	al,'9'
+	ja	pu_010	; Resolve address
-if DEBUGGING_STATE = DEBUGGING_ENABLED
-    mov     esi, str2       ; print gotip
+if	DEBUGGING_STATE = DEBUGGING_ENABLED
+	mov	esi,str2	; print	gotip
-    call    debug_print_string
+	call	debug_print_string
+end	if
+; Convert address
-end if
-    ; Convert address
+; If proxy is given, get proxy address instead of server
-    ; If proxy is given, get proxy address instead of server
+	mov	esi,proxyAddr-1
-    mov     esi,proxyAddr-1
+	cmp	byte [esi+1],0
-    cmp     byte [esi+1], 0
+	jnz	pu_020
-    jnz     pu_020
+	mov	esi,webAddr-1
-    mov     esi,webAddr-1
 pu_020:
+	mov	edi,server_ip
-    mov     edi,server_ip
+	xor	eax,eax
-    xor     eax,eax
 ip1:
-    inc     esi
-    cmp     [esi],byte '0'
-    jb      ip2
-    cmp     [esi],byte '9'
-    jg      ip2
-    imul    eax,10
+	inc	esi
+	cmp	[esi],byte '0'
+	jb	ip2
+	cmp	[esi],byte '9'
+	jg	ip2
+	imul	eax,10
-    movzx   ebx,byte [esi]
+	movzx	ebx,byte [esi]
-    sub     ebx,48
+	sub	ebx,48
-    add     eax,ebx
-    jmp     ip1
+	add	eax,ebx
-ip2:
+	jmp	ip1
-    mov     [edi],al
-    xor     eax,eax
+ip2:
-    inc     edi
-    cmp     edi,server_ip+3
+	mov	[edi],al
-    jbe     ip1
+	xor	eax,eax
+	inc	edi
-    jmp     pu_011
+	cmp	edi,server_ip+3
+	jbe	ip1
-pu_010:
+	jmp	pu_011
-if DEBUGGING_STATE = DEBUGGING_ENABLED
+pu_010:
-    mov     esi, str1       ; print resolving
+if	DEBUGGING_STATE = DEBUGGING_ENABLED
-    call    debug_print_string
-end if
+	mov	esi,str1	; print	resolving
+	call	debug_print_string
-    ; Resolve Address
-    call    translateData       ; Convert domain & DNS IP address
+end	if
-    call    resolveDomain       ; get ip address
+; Resolve Address
 	call	translateData	; Convert domain & DNS IP address
-if DEBUGGING_STATE = DEBUGGING_ENABLED
+	call	resolveDomain	; get ip address
+;
 ;    The ename, in query, is converted and stored in dnsMsg
+;
 ;***************************************************************************
 translateData:
     ; first, get the IP address of the DNS server
     ; Then, build up the request string.
+    ; Build the request string
+	mov	eax,0x00010100
+	mov	[dnsMsg],eax
+	mov	eax,0x00000100
+	mov	[dnsMsg+4],eax
+	mov	eax,0x00000000
+	mov	[dnsMsg+8],eax
+; domain name goes in at dnsMsg+12
+	mov	esi,dnsMsg +12	;location of label length
+	mov	edi,dnsMsg + 13	;label start
+	mov	edx,proxyAddr
+	cmp	byte [edx],0
+	jnz	td000
-    ; Build the request string
-    mov     eax, 0x00010100
-    mov     [dnsMsg], eax
-    mov     eax, 0x00000100
-    mov     [dnsMsg+4], eax
-    mov     eax, 0x00000000
-    mov     [dnsMsg+8], eax
-    ; domain name goes in at dnsMsg+12
-    mov     esi, dnsMsg + 12        ; location of label length
-    mov     edi, dnsMsg + 13        ; label start
-    mov     edx, proxyAddr
-    cmp     byte [edx], 0
-    jnz     td000
+	mov	edx,webAddr
-    mov     edx, webAddr
 td000:
-    mov     ecx, 12                  ; total string length so far
+	mov	ecx,12	; total string length so far
 td002:
-    mov     [esi], byte 0
+	mov	[esi],byte 0
-    inc     ecx
+	inc	ecx
+td0021:
-td0021:
+	mov	al,[edx]
-    mov     al, [edx]
+	cmp	al,' '
+	je	td001	; we have finished the string translation
-    cmp     al, ' '
-    je      td001                   ; we have finished the string translation
+	cmp	al,0
-    cmp     al, 0
+	je	td001
-    je      td001
-    cmp     al, '.'                 ; we have finished the label
+	cmp	al,'.'	; we have finished the label
-    je      td004
+	je	td004
-    inc     byte [esi]
+	inc	byte [esi]
-    inc     ecx
+	inc	ecx
-    mov     [edi], al
+	mov	[edi],al
-    inc     edi
+	inc	edi
-    inc     edx
+	inc	edx
-    jmp     td0021
+	jmp	td0021
-td004:
-    mov     esi, edi
-    inc     edi
-    inc     edx
+td004:
-    jmp     td002
+	mov	esi,edi
+	inc	edi
+	inc	edx
+	jmp	td002
-    ; write label len + label text
+; write label len + label text
-td001:
-    mov     [edi], byte 0
+td001:
-    inc     ecx
-    inc     edi
+	mov	[edi],byte 0
-    mov     [edi], dword 0x01000100
-    add     ecx, 4
-    mov     [dnsMsgLen], ecx
 	inc	ecx
-    ret
+	inc	edi
 	mov	[edi],dword 0x01000100
 	add	ecx,4
 ;       Sends a question to the dns server
 ;       works out the IP address from the response from the DNS server
+;
 ;***************************************************************************
 resolveDomain:
-    ; Get a free port number
+; Get a free port number
-        mov         ecx, 1000           ; local port starting at 1000
+	mov	ecx,1000	; local port starting at 1000
 getlp:
-        inc         ecx
+	inc	ecx
-        push    ecx
+	push	ecx
-        mov         eax, 53
-        mov         ebx, 9
-        mcall
+	mcall	53,9
-        pop         ecx
+	pop	ecx
-        cmp         eax, 0                      ; is this local port in use?
+	cmp	eax,0	; is this local port in use?
-        jz              getlp               ; yes - so try next
+	jz	getlp	; yes - so try next
-    ; Get DNS IP
+; Get DNS IP
-    mov     eax, 52
-    mov     ebx, 13
-    mcall
+	mcall	52,13
-    mov     esi, eax
+	mov	esi,eax
-    ; First, open socket
+; First, open socket
-    mov     eax, 53
-    mov     ebx, 0
-    mov     edx, 53    ; remote port - dns
+	mov	edx,53	; remote port - dns
-;    mov     esi, dword [dns_ip]
+;	mov	esi,dword [dns_ip]
+	xor	ebx,ebx	; 0
-    mcall
+	mcall	53
-    mov     [socketNum], eax
+	mov	[socketNum],eax
-    ; write to socket ( request DNS lookup )
+; write to socket ( request DNS lookup )
-    mov     eax, 53
-    mov     ebx, 4
-    mov     ecx, [socketNum]
-    mov     edx, [dnsMsgLen]
+	mcall	53,4,[socketNum],[dnsMsgLen],dnsMsg
-    mov     esi, dnsMsg
-    mcall
-    ; Setup the DNS response buffer
+; Setup the DNS response buffer
-    mov     eax, dnsMsg
+	mov	eax,dnsMsg
-    mov     [dnsMsgLen], eax
+	mov	[dnsMsgLen],eax
-    ; now, we wait for
+; now, we wait for
-    ; UI redraw
+; UI redraw
-    ; UI close
+; UI close
-    ; or data from remote
+; or data from remote
 ctr001:
+	mcall	10	; wait here for event
-    mov     eax,10                 ; wait here for event
+	cmp	eax,1	; redraw request ?
-    mcall
+	je	ctr003
-    cmp     eax,1                  ; redraw request ?
-    je      ctr003
-    cmp     eax,2                  ; key in buffer ?
+	cmp	eax,2	; key in buffer ?
-    je      ctr004
-    cmp     eax,3                  ; button in buffer ?
-    je      ctr005
+	je	ctr004
-    ; Any data in the UDP receive buffer?
+	cmp	eax,3	; button in buffer ?
-    mov     eax, 53
+	je	ctr005
-    mov     ebx, 2
+; Any data in the UDP receive buffer?
-    mov     ecx, [socketNum]
-    mcall
+	mcall	53,2,[socketNum]
-    cmp     eax, 0
+	cmp	eax,0
-    je      ctr001
+	je	ctr001
-    ; we have data - this will be the response
-ctr002:
-    mov     eax, 53
-    mov     ebx, 3
+; we have data - this will be the response
-    mov     ecx, [socketNum]
-    mcall                ; read byte - block (high byte)
+ctr002:
+	mcall	53,3,[socketNum]	; read byte - block (high byte)
-    ; Store the data in the response buffer
+; Store the data in the response buffer
-    mov     eax, [dnsMsgLen]
+	mov	eax,[dnsMsgLen]
-    mov     [eax], bl
+	mov	[eax],bl
-    inc     dword [dnsMsgLen]
-    mov     eax, 53
-    mov     ebx, 2
+	inc	dword [dnsMsgLen]
-    mov     ecx, [socketNum]
-    mcall                ; any more data?
+	mcall	53,2,[socketNum]	; any more data?
-    cmp     eax, 0
+	cmp	eax,0
-    jne     ctr002              ; yes, so get it
+	jne	ctr002	; yes, so get it
-    ; close socket
-    mov     eax, 53
-    mov     ebx, 1
-    mov     ecx, [socketNum]
-    mcall
+; close	socket
-    mov     [socketNum], dword 0xFFFF
+	mcall	53,1,[socketNum]
+	mov	[socketNum],dword  0xFFFF
-    ; Now parse the message to get the host IP
+; Now parse the message to get the host IP
-    ; Man, this is complicated. It's described in
-    ; RFC 1035
+; Man, this is complicated. It's described in
+; RFC 1035
-if DEBUGGING_STATE = DEBUGGING_ENABLED
+if	DEBUGGING_STATE = DEBUGGING_ENABLED
-    mov     esi, str4
+	mov	esi,str4
-    call    debug_print_string
+	call	debug_print_string
-end if
+end	if
     ; 1) Validate that we have an answer with > 0 responses
     ; 2) Find the answer record with TYPE 0001 ( host IP )
     ; 3) Finally, copy the IP address to the display
     ; Note: The response is in dnsMsg
-    ;       The end of the buffer is pointed to by [dnsMsgLen]
+    ;       The end of the buffer is pointed to by [dnsMsgLen]
-    ; Clear the IP address text
-    mov     [server_ip], dword 0
+; Clear the IP address text
-    mov     esi, dnsMsg
+	mov	[server_ip],dword  0
+	mov	esi,dnsMsg
-    ; Is this a response to my question?
+; Is this a response to my question?
-    mov     al, [esi+2]
-    and     al, 0x80
+	mov	al,[esi+2]
-    cmp     al, 0x80
+	and	al,0x80
-    jne     ctr002a
+	cmp	al,0x80
+	jne	ctr002a
-    ; Were there any errors?
+; Were there any errors?
-    mov     al, [esi+3]
-    and     al, 0x0F
+	mov	al,[esi+3]
-    cmp     al, 0x00
+	and	al,0x0F
-    jne     ctr002a
+	cmp	al,0x00
+	jne	ctr002a
-    ; Is there ( at least 1 ) answer?
-    mov     ax, [esi+6]
+; Is there ( at least 1 ) answer?
-    cmp     ax, 0x00
-    je      ctr002a
+	mov	ax,[esi+6]
+	cmp	ax,0x00
-    ; Header validated. Scan through and get my answer
+	je	ctr002a
+; Header valdated. Scan through and get my answer
-if DEBUGGING_STATE = DEBUGGING_ENABLED
+if	DEBUGGING_STATE = DEBUGGING_ENABLED
-    pusha
+	pusha
-    mov     esi, str4
-    call    debug_print_string
+	mov	esi,str4
-    popa
-end if
+	call	debug_print_string
+	popa
-    add     esi, 12             ; Skip to the question field
+end	if
 	add	esi,12	; Skip to the question field
-    ; Skip through the question field
+; Skip through the question field
-    call    skipName
+	call	skipName
-    add     esi, 4              ; skip past the questions qtype, qclass
+	add	esi,4	; skip past the questions qtype, qclass
 ctr002z:
-    ; Now at the answer. There may be several answers,
+; Now at the answer. There may be several answers,
-    ; find the right one ( TYPE = 0x0001 )
-    call    skipName
+; find the right one ( TYPE = 0x0001 )
-    mov     ax, [esi]
+	call	skipName
-    cmp     ax, 0x0100          ; Is this the IP address answer?
-    jne     ctr002c
+	mov	ax,[esi]
+	cmp	ax,0x0100	; Is this the IP address answer?
-    ; Yes! Point esi to the first byte of the IP address
+	jne	ctr002c
-    add     esi, 10
-    mov     eax, [esi]
-    mov     [server_ip], eax
-    ret
-ctr002c:                        ; Skip through the answer, move to the next
-    add     esi, 8
-    movzx   eax, byte [esi+1]
-    mov     ah, [esi]
-    add     esi, eax
-    add     esi, 2
-    ; Have we reached the end of the msg?
-    ; This is an error condition, should not happen
-    cmp     esi, [dnsMsgLen]
-    jl      ctr002z             ; Check next answer
-    jmp     ctr002a             ; abort
-ctr002a:
-    jmp     ctr001
-ctr003:                         ; redraw
-    call    draw_window
-    jmp     ctr001
-ctr004:                         ; key
-    mov     eax,2               ; just read it and ignore
-    mcall
-    jmp     ctr001
-ctr005:                         ; button
-    mov     eax,17              ; get id
-    mcall
-    mov     dl, ah
-    ; close socket
-    mov     eax, 53
-    mov     ebx, 1
+; Yes! Point esi to the first byte of the IP address
+	add	esi,10
+	mov	eax,[esi]
+	mov	[server_ip],eax
+	ret
-    mov     ecx, [socketNum]
+ctr002c:	; Skip through the answer, move to the next
-    mcall
+	add	esi,8
+	movzx	eax,byte [esi+1]
+	mov	ah,[esi]
+	add	esi,eax
+	add	esi,2
+; Have we reached the end of the msg?
+; This is an error condition, should not happen
+	cmp	esi,[dnsMsgLen]
+	jl	ctr002z	; Check next answer
+	jmp	ctr002a	; abort
+ctr002a:
+	jmp	ctr001
+ctr003:	; redraw
+	call	draw_window
+	jmp	ctr001
+ctr004:	; key
+	mcall	2	; just read it and ignore
+	jmp	ctr001
+ctr005:	; button
+	mcall	17	; get id
+	mov	dl,ah
     cmp     dl, 1
-    je      exit
+	; close	socket
 	mcall	53,1,[socketNum]
-    mov     [socketNum], dword 0xFFFF
+	cmp	dl,1
 ;       Names may use compressed labels. Normally do.
 ;       RFC 1035 page 30 gives details
+;
 ;***************************************************************************
 skipName:
-    mov     al, [esi]
+	mov	al,[esi]
-    cmp     al, 0
+	cmp	al,0
-    je      sn_exit
+	je	sn_exit
-    and     al, 0xc0
+	and	al,0xc0
-    cmp     al, 0xc0
+	cmp	al,0xc0
-    je      sn001
+	je	sn001
-    movzx   eax, byte [esi]
+	movzx	eax,byte [esi]
-    inc     eax
+	inc	eax
-    add     esi, eax
+	add	esi,eax
-    jmp     skipName
+	jmp	skipName
 sn001:
-    add     esi, 2                          ; A pointer is always at the end
+	add	esi,2	; A pointer is always at the end
-    ret
+	ret
 sn_exit:
-    inc     esi
+	inc	esi
-    ret
+	ret
 ;***************************************************************************
 ;   Function
 ;       load_settings
+;
 ;   Description
-;       Load settings from configuration file network.ini
-;
-;***************************************************************************
+;       Load settings from configuration file network.ini
-include "proc32.inc"
+;
-include "dll.inc"
+;***************************************************************************
 load_settings:
-    stdcall dll.Load, @IMPORT
+	stdcall	dll.Load,@IMPORT
-    test    eax, eax
+	test	eax,eax
-    jnz     ls001
+	jnz	ls001
-    invoke  ini.get_str, inifile, sec_proxy, key_proxy, proxyAddr, 256, proxyAddr
+	invoke	ini.get_str,inifile,sec_proxy,key_proxy,proxyAddr,256,proxyAddr
-    invoke  ini.get_int, inifile, sec_proxy, key_proxyport, 80
+	invoke	ini.get_int,inifile,sec_proxy,key_proxyport,80
-    mov     [proxyPort], eax
+	mov	[proxyPort],eax
-    invoke  ini.get_str, inifile, sec_proxy, key_user, proxyUser, 256, proxyUser
+	invoke	ini.get_str,inifile,sec_proxy,key_user,	proxyUser,256,proxyUser
-    invoke  ini.get_str, inifile, sec_proxy, key_password, proxyPassword, 256, proxyPassword
+	invoke	ini.get_str,inifile,sec_proxy,key_password,proxyPassword,256,proxyPassword
 ls001:
-    ret
+	ret
 ;***************************************************************************
 ;   Function
 ;       append_proxy_auth_header
+;
 ;   Description
 ;       Append header to HTTP request for proxy authentification
 ;
 ;***************************************************************************
 append_proxy_auth_header:
-    mov     esi, proxy_auth_basic
+	mov	esi,proxy_auth_basic
+	mov	ecx,proxy_auth_basic_end - proxy_auth_basic
-    mov     ecx, proxy_auth_basic_end - proxy_auth_basic
+	rep	movsb
-    rep     movsb
+; base64-encode string :
-    ; base64-encode string :
+	mov	esi,proxyUser
-    mov     esi, proxyUser
 apah000:
-    lodsb
+	lodsb
+	test	al,al
-    test    al, al
+	jz	apah001
-    jz      apah001
+	call	encode_base64_byte
-    call    encode_base64_byte
+	jmp	apah000
-    jmp     apah000
+apah001:
-apah001:
+	mov	al,':'
-    mov     al, ':'
+	call	encode_base64_byte
-    call    encode_base64_byte
+	mov	esi,proxyPassword
-    mov     esi, proxyPassword
 apah002:
-    lodsb
+	lodsb
+	test	al,al
-    test    al, al
+	jz	apah003
-    jz      apah003
+	call	encode_base64_byte
-    call    encode_base64_byte
+	jmp	apah002
     jmp     apah002
 apah003:
-    call    encode_base64_final
+	call	encode_base64_final
-    ret
+	ret
 encode_base64_byte:
-    inc     ecx
+	inc	ecx
+	shl	edx,8
-    shl     edx, 8
+	mov	dl,al
-    mov     dl, al
+	cmp	ecx,3
-    cmp     ecx, 3
+	je	ebb001
+	ret
     je      ebb001
-    ret
+ebb001:
-ebb001:
+	shl	edx,8
-    shl     edx, 8
+	inc	ecx
-    inc     ecx
 ebb002:
-    rol     edx, 6
+	rol	edx,6
-    xor     eax, eax
+	xor	eax,eax
-    xchg    al, dl
+	xchg	al,dl
-    mov     al, [base64_table+eax]
+	mov	al,[base64_table+eax]
-    stosb
+	stosb
-    loop    ebb002
+	loop	ebb002
-    ret
+	ret
 encode_base64_final:
-    mov     al, 0
+	mov	al,0
-    test    ecx, ecx
+	test	ecx,ecx
+	jz	ebf000
-    jz      ebf000
+	call	encode_base64_byte
-    call    encode_base64_byte
+	test	ecx,ecx
+	jz	ebf001
-    test    ecx, ecx
+	call	encode_base64_byte
-    jz      ebf001
+	mov	byte [edi-2],'='
-    call    encode_base64_byte
-    mov     byte [edi-2], '='
+ebf001:
-ebf001:
+	mov	byte [edi-1],'='
     mov     byte [edi-1], '='
 ebf000:
+;
 ;       Nothing preserved; I'm assuming a pusha/popa is done before calling
+;
 ;****************************************************************************
 debug_print_string:
-    push    esi
+	push	esi
-    mov     cl, '"'
+	mov	cl,'"'
-    mov     eax,63
-    mov     ebx, 1
-    mcall
+	mcall	63,1
-    pop     esi
+	pop	esi
 dps_000:
-    mov     cl, [esi]
+	mov	cl,[esi]
-    cmp     cl, 0
+	cmp	cl,0
+	je	dps_exit
-    je      dps_exit
-    cmp     cl, ' '
+	cmp	cl,' '
-    je      dps_exit
+	je	dps_exit
-    jmp     dps_001
+	jmp	dps_001
-dps_exit:
-    mov     cl, '"'
-    mov     eax,63
+dps_exit:
-    mov     ebx, 1
+	mov	cl,'"'
-    mcall
-    mov     cl, 13
-    mov     eax,63
+	mcall	63,1
-    mov     ebx, 1
+	mov	cl,13
-    mcall
-    mov     cl, 10
-    mov     eax,63
+	mcall
-    mov     ebx, 1
+	mov	cl,10
-    mcall
+	mcall
-    ret
-dps_001:
+	ret
-    mov     eax,63
-    mov     ebx, 1
-    push    esi
+dps_001:
-    mcall
+	push	esi
+	mcall	63,1
-    pop     esi
+	pop	esi
-    inc     esi
-    jmp     dps_000
+	inc	esi
-end if
+	jmp	dps_000
 end	if
 ;****************************************************************************
 ;    Function
 ;       print_text
+;
 ;   Description
 ;       display the url (full path) text
-;
-;****************************************************************************
+;
-print_text:
+;****************************************************************************
-    ; Draw a bar to blank out previous text
+print_text:
-    mov     eax,13
+; Draw a bar to blank out previous text
-    mov     ebx,30*65536+URLMAXLEN*6  ; 50 should really be [len], and 103 [xa]
+	mov	ebx,30*65536+URLMAXLEN*6	; 50 should really be [len] and 103 [xa]
-    mov     ecx,[ya]
-    shl     ecx,16
-    mov     cx,9
+	mov	ecx,[ya]
-    mov     edx,0xFFFFFF
-    mcall
+	shl	ecx,16
+	mov	cx,9
-    ; write text
-    mov     eax,4
+	mcall	13,,,0xFFFFFF
-    mov     ebx,30*65536
+; write text
-    add     ebx,[ya]
-    mov     ecx,0x000000
-    mov     edx,[addr]
+	mov	ebx,30*65536
-    mov     esi,URLMAXLEN
+	add	ebx,[ya]
-    mcall
+	xor	ecx,ecx
 	mcall	4,,,[addr],URLMAXLEN
-    ret
+	ret
+;   *********************************************
+;   *******  WINDOW DEFINITIONS AND DRAW ********
+;   *********************************************
-;   *********************************************
-;   *******  WINDOW DEFINITIONS AND DRAW ********
+draw_window:
-;   *********************************************
+; function 12: tell os about windowdraw
+; 1 start of draw
+	mcall	12,1
+;	cmp	[params],byte 0
+;	jz	.noret
+; ýòî íåñêîëüêî çàãàäî÷íî, íî åñëè íå ðèñîâàòü îêîøêî ñîâñåì, ïðîãà íå ïàøåò.
+; DRAW	WINDOW
-draw_window:
+; eax	function 0 : define and draw window
+;	xor	eax,eax
+; ebx	[x start] *65536 + [x size]
+;	xor	ebx,ebx
-	cmp		byte [params], 0
+; ecx	[y start] *65536 + [y size]
-	jz		.noret
+;	xor	ecx,ecx
+; edx	color of work area RRGGBB,8->color gl
+; esi	color of bar and flags
+;	xor	esi,esi
+;	mcall	,,,0x14ffffff,,title
+; function 12: tell os about windowdraw
-    mov     eax,12                    ; function 12:tell os about windowdraw
+; 2, end of draw
+;	mcall	12,2
-    mov     ebx,1                     ; 1, start of draw
+;	ret
-    mcall
+;.noret:
+; DRAW	WINDOW
+; eax	function 0 : define and draw window
+	xor	eax,eax
+; ebx	[x start] *65536 + [x size]
-	; ýòî íåñêîëüêî çàãàäî÷íî, íî åñëè íå ðèñîâàòü îêîøêî ñîâñåì, ïðîãà íå ïàøåò.
+; ecx	[y start] *65536 + [y size]
+; edx	color of work area RRGGBB,8->color gl
+; esi	color of bar and flags
+	xor	esi,esi
+; edi	WINDOW	LABEL
+	mcall	,<50,600>,<350,200>,0x14ffffff,,title
+; eax	function 4: write text to window
+; ebx	[x start] *65536 + [y start]
+; ecx	color of text RRGGBB
+; edx	pointer to text beginning
-    mov     eax,0                     ; function 0 : define and draw window
+; esi	max lenght
+	xor	ecx,ecx
+	mcall	4,<30,38>,,document_user,URLMAXLEN
+;	xor	edx,edx
+;	mcall	38,<5,545>,<60,60>
+;	mov	ecx,[winys]
-    mov     ebx,0          ; [x start] *65536 + [x size]
+;	shl	ecx,16
-    mov     ecx,0          ; [y start] *65536 + [y size]
+;	add	ecx,[winys]
+;	sub	ecx,26*65536+26
+;	mcall	38,<5,545>
+; RELOAD
+; eax	function 8 : define and draw button
+; ebx	[x start] *65536 + [x size]
+; ecx	[y start] *65536 + [y size]
+; edx	button id
-    mov     edx,0x14ffffff            ; color of work area RRGGBB,8->color gl
+; esi	button color RRGGBB
+	mcall	8,<388,50>,<34,14>,22,0x5588dd
+; URL
+	mcall	,<10,12>,<34,12>,10
+; STOP
+	mcall	,<443,50>,<34,14>,24
+; SAVE
+	mcall	,<498,50>,,26
+; BUTTON TEXT
+; eax	function 4 : write text to window
-    mov     edi,title                 ; WINDOW LABEL
+; ebx	[x start] *65536 + [y start]
+; ecx	color	of	text	RRGGBB
+; edx	pointer	to	text	beginning
+; esi	text	length
-    mcall
+	mcall	4,<390,38>,0xffffff,button_text,30
-    mov     eax,12                    ; function 12:tell os about windowdraw
-    mov     ebx,2                     ; 2, end of draw
-    mcall
-	ret
-.noret:
-    mov     eax,12                    ; function 12:tell os about windowdraw
-    mov     ebx,1                     ; 1, start of draw
-    mcall
+	call	display_page
-                                   ; DRAW WINDOW
-    mov     eax,0                     ; function 0 : define and draw window
-    mov     ebx,50*65536+600          ; [x start] *65536 + [x size]
-    mov     ecx,350*65536+200          ; [y start] *65536 + [y size]
-    mov     edx,0x14ffffff            ; color of work area RRGGBB,8->color gl
-    mov     edi,title                 ; WINDOW LABEL
-    mcall
-    mov     esi, URLMAXLEN            ; URL
-    mov     eax,4                     ; function 4 : write text to window
-    mov     ebx,30*65536+38           ; [x start] *65536 + [y start]
-    mov     ecx,0x000000              ; color of text RRGGBB
-    mov     edx,document_user         ; pointer to text beginning
-    mcall
-    ; mov     eax,38
-    ; mov     ebx,5*65536+545
-    ; mov     ecx,60*65536+60
-    ; mov     edx,0x000000
-    ; mcall
-    ;mov     eax,38
-    ;mov     ebx,5*65536+545
-    ; mov     ecx,[winys]
-    ; shl     ecx,16
-    ; add     ecx,[winys]
-    ; sub     ecx,26*65536+26
-    ;mov     edx,0x000000
-    ;mcall
-                                   ; RELOAD
-    mov     eax,8                     ; function 8 : define and draw button
-    mov     ebx,388*65536+50          ; [x start] *65536 + [x size]
-    mov     ecx,34*65536+14           ; [y start] *65536 + [y size]
-    mov     edx,22                    ; button id
-    mov     esi,0x5588dd              ; button color RRGGBB
-    mcall
-                                   ; URL
-    ;mov     eax,8                     ; function 8 : define and draw button
-    mov     ebx,10*65536+12          ; [x start] *65536 + [x size]
-    mov     ecx,34*65536+12           ; [y start] *65536 + [y size]
-    mov     edx,10                    ; button id
-    ;mov     esi,0x5588dd              ; button color RRGGBB
-    mcall
-                                   ; STOP
-    ;mov     eax,8                     ; function 8 : define and draw button
-    mov     ebx,443*65536+50          ; [x start] *65536 + [x size]
-    mov     ecx,34*65536+14           ; [y start] *65536 + [y size]
-    mov     edx,24                    ; button id
-    ;mov     esi,0x5588dd              ; button color RRGGBB
-    mcall
-									; SAVE
-    mov     ebx,(443+55)*65536+50          ; [x start] *65536 + [x size]
-    mov     ecx,34*65536+14           ; [y start] *65536 + [y size]
-    mov     edx,26                    ; button id
-    ;mov     esi,0x5588dd              ; button color RRGGBB
-    mcall
-                                   ; BUTTON TEXT
-    mov     eax,4                     ; function 4 : write text to window
-    mov     ebx,390*65536+38          ; [x start] *65536 + [y start]
-    mov     ecx,0xffffff              ; color of text RRGGBB
-    mov     edx,button_text           ; pointer to text beginning
+; function 12: tell os about windowdraw
-    mov     esi,30                    ; text length
-    mcall
-    call    display_page
-    mov     eax,12                    ; function 12:tell os about windowdraw
+; 2, end of draw
-    mov     ebx,2                     ; 2, end of draw
+	mcall	12,2
-    mcall
+	ret
 ;-----------------------------------------------------------------------------
-    ret
+; Data area
+;-----------------------------------------------------------------------------
+align	4
+@IMPORT:
+library	libini,'libini.obj'
+import	libini, \
+	ini.get_str,'ini_get_str', \
+	ini.get_int,'ini_get_int'
+;---------------------------------------------------------------------
+fileinfo	dd 2,0,0
+final_size	dd 0
+final_buffer	dd 0
+		db '/rd/1/.download',0
+body_pos	dd 0
+;fileinfo_tmp	dd 2,0,0
+buf_size	dd 0
+buf_ptr		dd 0
+;		db	'/rd/1/1',0
+deba		dd 0
+		db 0
+;---------------------------------------------------------------------
+if	DEBUGGING_STATE = DEBUGGING_ENABLED
+str1:		db "Resolving...",0
+str3:		db "Resolved",0
+str2:		db "GotIP",0
+str4:		db "GotResponse",0
+end	if
+;---------------------------------------------------------------------
+button_text	db ' RELOAD    STOP       SAVE    '
+dpx		dd 25	; x - start of html page in pixels in window
+dpy		dd 65	; for	y
+lastletter	db 0
+pageyinc	dd 0
+display_from	dd 20
+pos		dd 0x0
+pagex		dd 0x0
+pagey		dd 0x0
+pagexs		dd 80
+command_on_off	dd 0x0
+text_type	db 1
+com2		dd 0x0
+script		dd 0x0
+socket		dd 0x0
+addr		dd 0x0
+ya		dd 0x0
+len		dd 0x00
+title		db 'Downloader',0
+server_ip:	db 207,44,212,20
+;dns_ip:	db 194,145,128,1
+;---------------------------------------------------------------------
+;webAddr:
+;times URLMAXLEN db ' '
+;db	0
+;document_user:	db 'Click on the button to the left to enter a URL',0
+;times URLMAXLEN+document_user-$ db 0
+;document:	db '/'
+;times URLMAXLEN-1 db ' '
+;---------------------------------------------------------------------
+s_contentlength	db 'Content-Length:'
-align 4
+len_contentlength = 15
-@IMPORT:
-library	libini, 'libini.obj'
-import	libini, \
-	ini.get_str, 'ini_get_str',	\
-	ini.get_int, 'ini_get_int'
-fileinfo		dd	2, 0, 0
-final_size		dd		0
-final_buffer	dd		0
-				db	'/rd/1/.download',0
-body_pos		dd		0
-;fileinfo_tmp	dd	2, 0, 0
-buf_size		dd		0
-buf_ptr			dd		0
-				;db	'/rd/1/1',0
-deba			dd		0
-				db		0
-if DEBUGGING_STATE = DEBUGGING_ENABLED
-str1:       db  "Resolving...",0
-str3:       db  "Resolved",0
-str2:       db  "GotIP",0
-str4:       db  "GotResponse",0
-end if
-params		db	1024 dup(0)
-button_text     db      ' RELOAD    STOP       SAVE    '
-dpx             dd      25  ; x - start of html page in pixels in window
-dpy             dd      65  ; for y
-lastletter      db      0
-pageyinc        dd      0
-display_from    dd      20
-pos             dd      0x0
-pagex           dd      0x0
-pagey           dd      0x0
-pagexs          dd      80
-command_on_off  dd      0x0
-text_type       db      1
-com2            dd      0x0
-script          dd      0x0
-socket          dd      0x0
-addr            dd  0x0
-ya              dd  0x0
-len             dd  0x00
-title         db      'Downloader',0
-server_ip:      db      207,44,212,20
-;dns_ip:         db      194,145,128,1
-webAddr:        times URLMAXLEN db ' '
-db 0
-document_user:  db      'Click on the button to the left to enter a URL',0
-times URLMAXLEN+document_user-$ db 0
-document:       db      '/'
-times URLMAXLEN-1       db      ' '
-s_contentlength		db	'Content-Length:'
-len_contentlength	=	15
-s_chunked			db	'Transfer-Encoding: chunked'
+s_chunked	db 'Transfer-Encoding: chunked'
-len_chunked			= $ - s_chunked
+len_chunked	= $ - s_chunked
-is_body			dd		0 ; 0 if headers, 1 if content
+is_body		dd 0	; 0 if headers, 1 if content
-is_chunked		dd		0
+is_chunked	dd 0
-prev_chunk_end	dd		0
+prev_chunk_end	dd 0
-cur_chunk_size	dd		0
+cur_chunk_size	dd 0
-string0:        db      'GET '
+string0:	db 'GET '
-stringh:        db      ' HTTP/1.1',13,10,'Host: '
+stringh:        db ' HTTP/1.1',13,10,'Host: '
 stringh_end:
-proxy_auth_basic: db      13,10,'Proxy-Authorization: Basic '
+proxy_auth_basic:	db 13,10,'Proxy-Authorization: Basic '
-proxy_auth_basic_end:
-connclose:		db		13,10,'User-Agent: Kolibrios Downloader',13,10,'Connection: Close',13,10,13,10
-connclose_end:
-base64_table	db	'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
+proxy_auth_basic_end:
-		db	'0123456789+/'
+connclose:	db 13,10,'User-Agent: Kolibrios Downloader',13,10,'Connection: Close',13,10,13,10
+connclose_end:
 inifile		db	'/sys/network/zeroconf.ini',0
+base64_table	db 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
-sec_proxy:
+		db '0123456789+/'
-key_proxy		db		'proxy',0
-key_proxyport		db		'port',0
-key_user		db		'user',0
-key_password		db		'password',0
+inifile		db '/sys/network/zeroconf.ini',0
-request			db		256 dup(0)
+sec_proxy:
+key_proxy	db 'proxy',0
+key_proxyport	db 'port',0
+key_user	db 'user',0
+key_password	db 'password',0
+proxyPort	dd 80
+shared_name	dd 0
+;yandex:	db 'menuetos.net'
+;yandex_end:
+status		dd 0x0
+prev_status	dd 0x0
+onoff		dd 0x0
+nextupdate:	dd 0
+winys:		dd 400
+dnsMsgLen:	dd 0
+socketNum:	dd 0xFFFF
+;---------------------------------------------------------------------
+document_user:	db 'Click on the button to the left to enter a URL',0
+;---------------------------------------------------------------------
+IM_END:
+	rb URLMAXLEN-(IM_END - document_user)
+;---------------------------------------------------------------------
+align 4
+document:
+	rb URLMAXLEN
+;---------------------------------------------------------------------
+align 4
+webAddr:
+	rb URLMAXLEN+1
+;---------------------------------------------------------------------
+align 4
+primary_buf:
+	rb primary_buffer_size
-proxyAddr		db		256 dup(0)
+;---------------------------------------------------------------------
+align 4
+params:		; db 1024 dup(0)
+	rb 1024
+;---------------------------------------------------------------------
+align 4
+request:	; db 256 dup(0)
+	rb 256
-proxyUser		db		256 dup(0)
+;---------------------------------------------------------------------
+align 4
-proxyPassword	db		256 dup(0)
+proxyAddr:	; db 256 dup(0)

Subversion Repositories Kolibri OS

(root)/programs/network/downloader/trunk/downloader.asm – Rev 1645 → 1646