- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
format pe console
include 'win32ax.inc'
macro call1 f,p1{
mov ebx,p1
call f}
macro call2 f,p1,p2{
mov ecx,p2
call1 f,p1}
macro call3 f,p1,p2,p3{
mov edx,p3
call2 f,p1,p2}
.data
lead_time dd ?
handle_input dd ?
handle_output dd ?
byte_read_write dd ?
.code
string db 'govnokod.ru ',13,10,0
array_procs dd __strlen,_strlen,strlen,0
putdword:;ebx-handle,ecx-byte
mov eax,esp
mov esi,eax
sub esp,16
xchg eax,ecx
mov edi,10
@@:xor edx,edx
div edi
add dl,'0'
dec ecx
mov [ecx],dl
test eax,eax
jnz @b
sub esi,ecx
mov edx,esi
invoke WriteFile,ebx,ecx,edx,byte_read_write,0
add esp,16
ret
align 4
strlen:;ebx-array of char
mov eax,12
ret
align 4
_strlen:;ebx-array of char
clc
xor ecx,ecx
dec ecx
mov edi,ebx
xor al,al
repne scasb
not ecx
dec ecx
mov eax,ecx
ret
align 4
__strlen:;ebx-array of char
xor eax,eax
dec eax
@@:inc eax
cmp byte[ebx+eax],0
jne @b
ret
start:
invoke GetStdHandle,STD_INPUT_HANDLE
mov [handle_input],eax
invoke GetStdHandle,STD_OUTPUT_HANDLE
mov [handle_output],eax
mov ebp,array_procs
next_step:
call [GetTickCount]
mov [lead_time],eax
xor ecx,
@@:push ecx
mov ebx,string
call dword[ebp]
pop ecx
loop @b
push eax
call [GetTickCount]
sub eax,[lead_time]
mov ecx,1000
xor edx,edx
div ecx
push edx
call2 putdword,[handle_output],eax
invoke WriteFile,ebx,string+8,1,byte_read_write,0
pop ecx
call2 putdword,[handle_output],ecx
invoke WriteFile,ebx,string+11,1,byte_read_write,0
pop ecx
call2 putdword,[handle_output],ecx
invoke WriteFile,[handle_output],string+12,2,byte_read_write,0
add ebp,4
cmp dword[ebp],0
jne next_step
call [GetTickCount]
mov [lead_time],eax
invoke SetConsoleMode,[handle_input],0
invoke ReadFile,[handle_input],byte_read_write,1,byte_read_write,0
invoke ExitProcess,0
.end start
Поговнокодим однако.
Зачем в процессоре занимают место команды типа repne scasb и прочее, если простые аналоги быстрее компактнее и проще встраивать в алгоритм без отдельной подпрограммы да и регистров в разы меньше требуется. Пустая подпрограмма для понимания сколько времени занимает лишний код. Есть предположение что раньше на заре развития они работали шустрее, но это только предположение.
Follow us!