Subversion Repositories Kolibri OS

SC_PUTC = 2

SC_PUTS = 3

SC_GETC = 4

SC_GETS = 5

SC_CLS	= 6

SC_PID = 7

SC_PING = 8

SHM_WRITE =  0x01

;============================

align 4

sc_pid	   dd 0

sc_buffer  dd 0

sc_process dd 0

;============================

if used _sc_pid2name

_sc_pid2name:

 push esp

 xor ecx, ecx

 mov ebx, 10

@@:

 xor edx, edx

 div ebx

 push edx

 inc ecx

 test eax, eax

 jnz @b

mov edi, sc_name

@@:

 add al, '0'

 stosb

 loop @b

 mov al, 'S'

 stosb

 mov al, 'H'

 stosb

 mov al, 'E'

 stosb

 mov al, 'L'

 stosb

 mov al, 'L'

 stosb

 mov al,  0

 stosb

 ret

;============================

if used _sc_init

; void __stdcall sc_init();

_sc_init:

 push esp

 mov eax, 68

 int 0x40

 mov eax, 68 ; ¢ë¤¥«¨âì ¯ ¬ïâì

 mov ecx, 1024

 int 0x40

 mov [sc_process], eax

 mov eax, 9 ; ¯®«ãç¨âì ¨­ä®à¬ æ¨î ® ⥪ã饬 ¯à®æ¥áá¥

 mov ecx, -1

 int 0x40

 mov dword eax, [ebx+30] ; ¯®«ãç ¥¬ PID ⥪饣® ¯à®æ¥áá 

 mov eax, 68 ; ®á¢®¡®¤¨âì ¯ ¬ïâì

 mov ecx, [sc_process]

 int 0x40

 call _sc_pid2name

 mov eax, 68 ; ®âªàëâì ¨¬¥­®¢ ­­ãî ®¡« áâì

 mov dword ecx, sc_name

 mov edx, 4096

 mov esi, SHM_OPEN_ALWAYS or SHM_WRITE

 int 0x40

 mov [sc_buffer], eax

 pop ebx

 ret

;============================

if used _sc_puts

; void __stdcall sc_puts(char *str);

_sc_puts:

 push esp

 mov esi, [esp+12]

 mov al, SC_PUTS

 stosb

@@:

 stosb

 test al, al

 jnz @b

 mov ebx, [sc_buffer]

@@:

 test dl, dl

 jz @f

 push ebx

 mov eax, 5

 mov ebx, 5

 int 0x40

 pop ebx

 jmp @b

@@:

 pop ebx

 ret 4

end if

;============================

if used _sc_exit

; void __stdcall sc_exit();

_sc_exit:

 push ebx

 push esp

 mov ebx, [sc_buffer]

@@:

 test dl, dl

 jz @f

 push ebx

 mov eax, 5

 mov ebx, 5

 int 0x40

 pop ebx

 jmp @b

@@:

 mov ebx, 23

 mov dword ecx, sc_name

 int 0x40

 pop esp

 ret

end if

if used _sc_gets

; void __stdcall sc_gets(char *str);

_sc_gets:

 push esp

 mov edi, [esp+12]

 mov ebx, [sc_buffer]

@@:

 test dl, dl

 jz @f

 push ebx

 mov eax, 5

 mov ebx, 5

 int 0x40

 pop ebx

 jmp @b

@@:

@@:

 stosb

 test al, al

 jnz @b

 pop ebx

 ret 4

end if

;============================

if used _sc_pid

;int __stdcall sc_pid (void);

	push	ebx ecx

	mov	ecx, [sc_buffer]

@@:

	mov	ebx, 5

	int	0x40

	cmp	byte [ecx], 0

	call	_sc_ping

	test	eax, eax

	jnz	.err

@@:

	pop	ecx ebx

	ret

.err:

	xor	eax, eax

	dec	eax

	ret

end if

;============================

if used _sc_ping

;int __stdcall sc_ping (void);

	push	ebx ecx

	mov	ecx, [sc_buffer]

	mov	eax, 5

	int	0x40

	xor	eax, eax

	je	@f

	dec	eax

@@:

	ret

end if