Subversion Repositories Kolibri OS

Compare Revisions

Ignore whitespace Rev 1741 → Rev 3587

/programs/system/clip/trunk/cliptest.ASM
7,7 → 7,7
 
; <--- include all MeOS stuff --->
include "lang.inc"
include "..\..\..\MACROS.INC"
include "..\..\..\macros.inc"
 
TEST_SIZE = 100000 ; ¤®«¦­® ¤¥«¨âìáï ­  4
 
113,11 → 113,11
; ¯®á«¥¤­ïï ¯à®¢¥àª  - ­  à¥á ©§ ¡ãä¥à .   ¨¬¥­­®, ¢®§ì¬¥¬ ¬­®£® ¤ ­­ëå
; ¨ ¯à®ª ç ¥¬ ¨å ç¥à¥§ ¡ãä¥à
 
mov eax, 68
mov eax, 68
mov ebx, 11
int 0x40
 
mov eax, 68
mov eax, 68
mov ebx, 12
mov ecx, TEST_SIZE + 12
int 0x40
154,7 → 154,7
mov edx, [mega_buf]
add edx, 12
xor eax, eax
mov ecx, TEST_SIZE/4
mov ecx, TEST_SIZE/4
.loopc:
mov [edx], eax
add edx, 4
162,7 → 162,7
jnz .loopc
 
; now read
 
mov eax, 69
mov esi, [mega_buf]
mov edx, 7
208,7 → 208,7
jz .reading
jmp .err
 
.reading:
.reading:
 
print "test complete!"
 
237,4 → 237,4
 
 
MEOS_APP_END
; <--- end of MenuetOS application --->
; <--- end of MenuetOS application --->
/programs/system/clip/trunk/makefile
0,0 → 1,17
#!gmake
 
# Macro
FASM=/opt/bin/fasm
KPACK=/opt/bin/kpack
LANG=lang.inc
 
en:
echo "lang fix ru" > ${LANG}
${FASM} \@clip.ASM \@clip
${FASM} cliptest.ASM cliptest
${FASM} test2.asm test2
${KPACK} \@clip
 
clean:
rm -f ${LANG} \@clip test2 cliptest
 
/programs/system/clip/trunk/test2.asm
8,7 → 8,7
 
; <--- include all MeOS stuff --->
include "lang.inc"
include "..\..\..\MACROS.INC"
include "..\..\..\macros.inc"
 
; <--- start of MenuetOS application --->
MEOS_APP_START
70,7 → 70,7
call draw_window
jmp wait_event
no_digit:
 
mov edi, input_box
call edit_box.key
 
109,7 → 109,7
movzx eax, byte [format_id]
mov edx, 7
call clipboard_read
 
or eax, eax
jz wait_event
 
236,7 → 236,7
 
mov eax, 12 ; finish drawing
mov ebx, 2
int 0x40
int 0x40
 
ret
 
269,4 → 269,4
 
 
MEOS_APP_END
; <--- end of MenuetOS application --->
; <--- end of MenuetOS application --->