b07dfce332
Currently it only for kernel developing See : http://meos.sysbin.com/viewtopic.php?t=662 git-svn-id: svn://kolibrios.org@375 a494cfbc-eb01-0410-851d-a64ba20cac60
123 lines
1.9 KiB
NASM
123 lines
1.9 KiB
NASM
;
|
|
; Kolibri Fast Calls test
|
|
;
|
|
; Compile with FASM for Kolibri
|
|
;
|
|
;
|
|
SYSENTER_VAR equ 0
|
|
use32
|
|
org 0x0
|
|
db 'MENUET01'
|
|
dd 0x01
|
|
dd START
|
|
dd I_END
|
|
dd 0x1000
|
|
dd 0x1000
|
|
dd 0x0, 0x0
|
|
|
|
include 'macros.inc'
|
|
include 'debug.inc'
|
|
|
|
START:
|
|
mov eax, 19 ; ôóíêöèÿ ïóñòûøêà
|
|
push ecx
|
|
syscall
|
|
pop ecx
|
|
|
|
|
|
print '! Alive !'
|
|
|
|
xor eax, eax
|
|
cpuid
|
|
rdtsc
|
|
mov [old_tsc], eax
|
|
mov [old_tsc + 4], edx
|
|
|
|
; ÷åðåç áûñòðûé âûçîâ
|
|
test1: mov ebx, 0x100000
|
|
mov dword[SYSENTER_VAR], .ret_p
|
|
mov [SYSENTER_VAR + 4], esp
|
|
align 32
|
|
.nxt: mov eax, 19 ; ôóíêöèÿ ïóñòûøêà
|
|
sysenter ; ïîðòÿòñÿ ecx, edx
|
|
.ret_p: dec ebx
|
|
jnz .nxt
|
|
|
|
xor eax, eax
|
|
cpuid
|
|
rdtsc
|
|
cmp eax, [old_tsc]
|
|
jnb @f
|
|
dec edx
|
|
@@: sub eax, [old_tsc]
|
|
sub edx, [old_tsc + 4]
|
|
debug_print_hex edx
|
|
debug_print_hex eax
|
|
print ' <- Fast call'
|
|
|
|
|
|
|
|
xor eax, eax
|
|
cpuid
|
|
rdtsc
|
|
mov [old_tsc], eax
|
|
mov [old_tsc + 4], edx
|
|
; ÷åðåç øëþç ïðåðûâàíèÿ
|
|
test2: mov ebx, 0x100000
|
|
align 32
|
|
.nxt: mov eax, 19 ; ôóíêöèÿ ïóñòûøêà
|
|
int 0x40
|
|
dec ebx
|
|
jnz .nxt
|
|
|
|
xor eax, eax
|
|
cpuid
|
|
rdtsc
|
|
cmp eax, [old_tsc]
|
|
jnb @f
|
|
dec edx
|
|
@@: sub eax, [old_tsc]
|
|
sub edx, [old_tsc + 4]
|
|
debug_print_hex edx
|
|
debug_print_hex eax
|
|
print ' <- Interrupt'
|
|
|
|
call show_alive
|
|
mov eax, -1
|
|
int 0x40
|
|
;---------------------------------------------
|
|
show_alive:
|
|
; ÷åðåç áûñòðûé âûçîâ, íàñòðàèâàåì ðåãèñòðû äëÿ âîçâðàòà
|
|
mov eax, 63
|
|
mov ebx, 1
|
|
mov esi, msg_Ok
|
|
.nxt: mov cl, [esi]
|
|
test cl, cl
|
|
jz .end
|
|
|
|
mov dword[SYSENTER_VAR], .ret_p
|
|
mov [SYSENTER_VAR + 4], esp
|
|
sysenter ; ïîðòÿòñÿ ecx, edx
|
|
|
|
.ret_p: inc esi
|
|
jmp .nxt
|
|
.end: ret
|
|
; ÷åðåç øëþç ïðåðûâàíèÿ
|
|
; mov eax, 63
|
|
; mov ebx, 1
|
|
; mov esi, msg_Ok
|
|
; @@: mov cl, [esi]
|
|
; test cl, cl
|
|
; jz @f
|
|
|
|
; int 0x40
|
|
|
|
; inc esi
|
|
; jmp @b
|
|
; @@: ret
|
|
|
|
|
|
old_tsc: dd 0, 0
|
|
|
|
msg_Ok db 'Alive!', 10, 13, 0
|
|
I_END: |