Rev 375 | Rev 477 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
375 | Ghost | 1 | ; |
2 | ; Kolibri Fast Calls test |
||
3 | ; |
||
4 | ; Compile with FASM for Kolibri |
||
5 | ; |
||
6 | ; |
||
7 | SYSENTER_VAR equ 0 |
||
8 | use32 |
||
9 | org 0x0 |
||
10 | db 'MENUET01' |
||
11 | dd 0x01 |
||
12 | dd START |
||
13 | dd I_END |
||
14 | dd 0x1000 |
||
15 | dd 0x1000 |
||
16 | dd 0x0, 0x0 |
||
17 | |||
18 | include 'macros.inc' |
||
19 | include 'debug.inc' |
||
20 | |||
398 | Ghost | 21 | START: print 'Please wait' |
22 | ; через быстрый вызов (SYSENTER) |
||
23 | test1: mov eax, 1 |
||
24 | cpuid |
||
25 | test edx, 0x800 |
||
26 | jnz .ok |
||
27 | dps 'unsupported ' |
||
28 | jmp .end |
||
29 | .ok: |
||
375 | Ghost | 30 | xor eax, eax |
31 | cpuid |
||
32 | rdtsc |
||
33 | mov [old_tsc], eax |
||
34 | mov [old_tsc + 4], edx |
||
35 | |||
398 | Ghost | 36 | mov ebx, 0x100000 |
375 | Ghost | 37 | mov dword[SYSENTER_VAR], .ret_p |
38 | mov [SYSENTER_VAR + 4], esp |
||
39 | align 32 |
||
40 | .nxt: mov eax, 19 ; функция пустышка |
||
41 | sysenter ; портятся ecx, edx |
||
42 | .ret_p: dec ebx |
||
43 | jnz .nxt |
||
44 | |||
45 | xor eax, eax |
||
46 | cpuid |
||
47 | rdtsc |
||
48 | cmp eax, [old_tsc] |
||
49 | jnb @f |
||
50 | dec edx |
||
51 | @@: sub eax, [old_tsc] |
||
52 | sub edx, [old_tsc + 4] |
||
53 | debug_print_hex edx |
||
54 | debug_print_hex eax |
||
398 | Ghost | 55 | .end: print ' <- Fast call (SYSENTER)' |
375 | Ghost | 56 | |
398 | Ghost | 57 | ;---------------------------------------------- |
58 | ; через быстрый вызов (SYSCALL) |
||
59 | test2: xor eax, eax |
||
60 | cpuid |
||
61 | cmp ecx, "cAMD" |
||
62 | je .ok |
||
63 | .nf: dps 'unsupported ' |
||
64 | jmp .end |
||
65 | .ok: mov eax, 0x80000001 |
||
66 | cpuid |
||
67 | test edx, 0x800 ; bit_11 - SYSCALL/SYSRET support |
||
68 | jz .nf |
||
375 | Ghost | 69 | |
70 | xor eax, eax |
||
71 | cpuid |
||
72 | rdtsc |
||
73 | mov [old_tsc], eax |
||
74 | mov [old_tsc + 4], edx |
||
398 | Ghost | 75 | |
76 | mov ebx, 0x100000 |
||
375 | Ghost | 77 | align 32 |
398 | Ghost | 78 | .nxt: mov eax, 19 |
79 | push ecx |
||
80 | syscall |
||
81 | pop ecx |
||
82 | |||
83 | .ret_p: dec ebx |
||
84 | jnz .nxt |
||
85 | |||
86 | xor eax, eax |
||
87 | cpuid |
||
88 | rdtsc |
||
89 | cmp eax, [old_tsc] |
||
90 | jnb @f |
||
91 | dec edx |
||
92 | @@: sub eax, [old_tsc] |
||
93 | sub edx, [old_tsc + 4] |
||
94 | debug_print_hex edx |
||
95 | debug_print_hex eax |
||
96 | .end: print ' <- Fast call (SYSCALL)' |
||
97 | ;---------------------------------------------- |
||
98 | ; через шлюз прерывания |
||
99 | xor eax, eax |
||
100 | cpuid |
||
101 | rdtsc |
||
102 | mov [old_tsc], eax |
||
103 | mov [old_tsc + 4], edx |
||
104 | |||
105 | test3: mov ebx, 0x100000 |
||
106 | align 32 |
||
375 | Ghost | 107 | .nxt: mov eax, 19 ; функция пустышка |
108 | int 0x40 |
||
109 | dec ebx |
||
110 | jnz .nxt |
||
111 | |||
112 | xor eax, eax |
||
113 | cpuid |
||
114 | rdtsc |
||
115 | cmp eax, [old_tsc] |
||
116 | jnb @f |
||
117 | dec edx |
||
118 | @@: sub eax, [old_tsc] |
||
119 | sub edx, [old_tsc + 4] |
||
120 | debug_print_hex edx |
||
121 | debug_print_hex eax |
||
122 | print ' <- Interrupt' |
||
123 | |||
124 | call show_alive |
||
125 | mov eax, -1 |
||
126 | int 0x40 |
||
127 | ;--------------------------------------------- |
||
128 | show_alive: |
||
129 | ; через быстрый вызов, настраиваем регистры для возврата |
||
130 | mov eax, 63 |
||
131 | mov ebx, 1 |
||
132 | mov esi, msg_Ok |
||
133 | .nxt: mov cl, [esi] |
||
134 | test cl, cl |
||
135 | jz .end |
||
136 | |||
137 | mov dword[SYSENTER_VAR], .ret_p |
||
138 | mov [SYSENTER_VAR + 4], esp |
||
139 | sysenter ; портятся ecx, edx |
||
140 | |||
141 | .ret_p: inc esi |
||
142 | jmp .nxt |
||
143 | .end: ret |
||
144 | ; через шлюз прерывания |
||
145 | ; mov eax, 63 |
||
146 | ; mov ebx, 1 |
||
147 | ; mov esi, msg_Ok |
||
148 | ; @@: mov cl, [esi] |
||
149 | ; test cl, cl |
||
150 | ; jz @f |
||
151 | |||
152 | ; int 0x40 |
||
153 | |||
154 | ; inc esi |
||
155 | ; jmp @b |
||
156 | ; @@: ret |
||
157 | |||
158 | |||
159 | old_tsc: dd 0, 0 |
||
160 | |||
161 | msg_Ok db 'Alive!', 10, 13, 0 |
||
162 | I_END:->->-> |