Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 473 → Rev 474

/programs/network/smtps/trunk/smtps.asm
8,7 → 8,7
;; Compile with FASM for Menuet ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
include 'lang.inc'
 
version equ '0.1'
 
use32
23,27 → 23,23
dd 0xffff0
dd 0,0
 
include 'macros.inc'
 
save_file:
 
pusha
; cmp [file_start],0x100000+10
; jbe nosub
; sub [file_start],8
; nosub:
 
cmp [file_start],0x100000+10
jbe nosub
sub [file_start],8
nosub:
 
mov edi,[file_start]
 
mov eax,[file_start]
sub eax,0x100000
mov [files+8],eax
mov ebx,files
mov [ebx+12],eax
 
mov eax,58
mov ebx,files
mov eax,70
int 0x40
 
popa
 
ret
 
 
51,12 → 47,15
 
mov [file_start],0x100000
 
mov eax,58
mov eax,70
mov ebx,filel
int 0x40
 
cmp eax,0
jne notfound
test eax,eax
jz @f
cmp eax,6
jnz notfound
@@:
add [file_start],ebx
notfound:
 
63,7 → 62,7
 
mov edi,I_END
mov ecx,60*120
mov eax,32
mov al,32
cld
rep stosb
 
630,19 → 629,10
mov eax,0 ; draw window
mov ebx,5*65536+400
mov ecx,5*65536+200
mov edx,[wcolor]
add edx,0x03ffffff
mov esi,0x80555599
mov edi,0x00ffffff
mov edx,0x13ffffff
mov edi,labelt
int 0x40
 
mov eax,4 ; label
mov ebx,9*65536+8
mov ecx,0x10ffffff
mov edx,labelt
mov esi,labellen-labelt
int 0x40
 
mov eax,8 ; button: open socket
mov ebx,23*65536+22
mov ecx,169*65536+10
746,7 → 736,7
db ' '
db ' Open SMTP server port 25 Close SMTP '
 
db 'x <- END MARKER, DONT DELETE '
db 'x' ; <- END MARKER, DONT DELETE
 
 
irc_server_ip db 192,168,1,1
754,10 → 744,10
file_start dd 0x100000
 
files:
dd 1,0,0,0x100000,0xd0000
dd 2,0,0,?,0x100000
db '/rd/1/smtps.txt',0
filel:
dd 0,0,10000/512,0x100000,0xd0000
dd 0,0,0,0x100000,0x100000
db '/rd/1/smtps.txt',0
 
 
840,10 → 830,6
 
numtext db ' '
 
wcolor dd 0x000000
labelt db 'Tiny SMTP email server v ',version,0
 
labelt db 'Tiny SMTP email server v ',version
labellen:
 
 
I_END: