Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 485 → Rev 484

/programs/network/popc/trunk/popc.asm
9,7 → 9,7
;; Compile with FASM for Menuet ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
include '..\..\..\macros.inc'
 
version equ '0.1'
 
use32
30,7 → 30,7
 
mov eax,70
mov ebx,filel
mcall
int 0x40
 
test eax,eax
jz @f
52,8 → 52,6
 
mov ebp,0
mov edx,I_END
 
redraw: ; redraw
call draw_window ; at first, draw the window
 
still:
60,10 → 58,10
 
mov eax,5
mov ebx,1
mcall
int 0x40
 
mov eax,11 ; wait here for event
mcall
int 0x40
 
cmp eax,1 ; redraw
je redraw
108,7 → 106,7
mov [ebx+12],eax
 
mov eax,70
mcall
int 0x40
 
popa
 
152,7 → 150,7
mov eax,53
mov ebx,7
mov ecx,[socket]
mcall
int 0x40
mov [mcounter],0
 
cmp [esi],dword 'quit'
177,12 → 175,12
mov ecx,[socket]
mov edx,14
mov esi,quitc
mcall
int 0x40
mov [mcounter],0
 
mov eax,5
mov ebx,150
mcall
int 0x40
 
call read_incoming_data
 
189,16 → 187,16
mov eax,53
mov ebx,8
mov ecx,[socket]
mcall
int 0x40
 
mov eax,5
mov ebx,2
mcall
int 0x40
 
mov eax,53
mov ebx,8
mov ecx,[socket]
mcall
int 0x40
 
mov [server_active],0
 
211,10 → 209,16
;;
 
 
redraw: ; redraw
 
call draw_window
jmp still
 
 
key:
 
mov eax,2
mcall
int 0x40
 
jmp still
 
222,13 → 226,13
button: ; button
 
mov eax,17 ; get id
mcall
int 0x40
 
cmp ah,60
jne no_open
mov eax, 70
mov ebx, tinypad_start
mcall
int 0x40
jmp still
no_open:
 
235,7 → 239,7
cmp ah,1 ; close program
jne noclose
mov eax,-1
mcall
int 0x40
noclose:
 
cmp ah,51
266,10 → 270,10
mov [ccounter],0
 
mov eax,3
mcall
int 0x40
 
mov eax,3
mcall
int 0x40
mov ecx,eax
and ecx,0xffff
 
278,7 → 282,7
mov edx,110
mov esi,dword [ip]
mov edi,1
mcall
int 0x40
mov [socket], eax
 
ret
290,7 → 294,7
mov eax,53
mov ebx,8
mov ecx,[socket]
mcall
int 0x40
mov [header_sent],0
mov [mail_rp],0
mov [server_active],0
316,7 → 320,7
mov eax,53
mov ebx,6
mov ecx,[socket]
mcall
int 0x40
 
mov [status],eax
 
331,7 → 335,7
mov ebx,200*65536+30
mov ecx,160*65536+10
mov edx,0xffffff
mcall
int 0x40
 
pop ecx
 
342,7 → 346,7
mov ebx,3*65536
mov edx,200*65536+160
mov esi,0x000000
mcall
int 0x40
 
nopr:
 
445,11 → 449,11
 
f11:
mov eax,10
mcall
int 0x40
cmp eax,2
jne read_done
mov eax,2
mcall
int 0x40
shr eax,8
cmp eax,13
je read_done
545,7 → 549,7
shl ecx,16
mov cx,9
mov edx,0xffffff
mcall
int 0x40
 
cmp [len],l3
je noprt
556,7 → 560,7
add ebx,[ya]
mov ecx,0x000000
mov esi,23
mcall
int 0x40
 
noprt:
 
774,7 → 778,7
mov eax, 53
mov ebx, 2
mov ecx, [socket]
mcall
int 0x40
 
mov ecx,-1
 
784,7 → 788,7
mov eax, 53
mov ebx, 3
mov ecx, [socket]
mcall
int 0x40
 
mov ecx,0
 
806,7 → 810,7
 
mov eax,12
mov ebx,1
mcall
int 0x40
 
mov eax,0 ; draw window
mov ebx,5*65536+435
813,7 → 817,7
mov ecx,5*65536+232
mov edx,0x13ffffff
mov edi,labelt
mcall
int 0x40
 
mov [old_status],300
 
822,7 → 826,7
mov ecx,155*65536+10
mov edx,22
mov esi,0x44cc44
mcall
int 0x40
 
; mov eax,8 ; button: close socket
mov ebx,295*65536+22
829,7 → 833,7
mov ecx,155*65536+10
mov edx,24
mov esi,0xcc4444
mcall
int 0x40
 
; mov eax,8 ; button: text entries
mov ebx,243*65536+8
837,7 → 841,7
mov edx,51
mov esi,0x4488dd
newi:
mcall
int 0x40
inc edx
add ecx,12*65536
cmp edx,53
848,13 → 852,13
mov ecx,190*65536+14
mov edx,60
mov esi,0x5577dd
mcall
int 0x40
 
mov eax,38 ; line
mov ebx,5*65536+430
mov ecx,114*65536+114
mov edx,0x000000
mcall
int 0x40
 
mov ebx,5*65536+133 ; info text
mov ecx,0x000000
862,7 → 866,7
mov esi,70
newline:
mov eax,4
mcall
int 0x40
add ebx,12
add edx,70
cmp [edx],byte 'x'
873,7 → 877,7
 
mov eax,12
mov ebx,2
mcall
int 0x40
 
popa
 
898,12 → 902,12
mov bx,word [rxs]
imul bx,6
mov edx,0xffffff
mcall
int 0x40
popa
push ecx
mov eax,4
mov ecx,0
mcall
int 0x40
add edx,[rxs]
add ebx,10
pop ecx