Здравствуйте, гость ( Вход | Регистрация )



Гостевой доступ к форуму из Москвы: Телефоны: +7(495)7859696,7376201,7376233,7868796,7390241 Login: demo Password: demo
> Что-то вроде конкурса по программе на Ассемблере
ALEXRUS
сообщение Oct 11 2005, 11:54
Сообщение #1


Суперадминистратор
Group Icon

Группа: Administrators
Сообщений: 5 164
Регистрация: 23-June 05
Из: Москва, ЮЗАО
Пользователь №: 2
Заходит на форум с полного инета.



В общем призов не будет, но мож к тому кто выиграет, то... кто знает, придумаю что можно дать в качестве награды.

В общем дана программа на Ассемблере, угадайте, что она делает, желательно всё сформулировать наиболее точно.

Все предположения писать в эту тему.

QUOTE
data segment

about DB '<SECRET>))','$'
kolvo DB 13,10,'how many symbol in word?> ','$'
slovo DB 13,10,'input word> ','$'
otvetok DB 13,10,'<SECRET>','$'
otvetne DB 13,10,'<SECRET>','$'

sl DW 64 dup(?)
ob DW 4 dup('j','e','n','a')
data ends
S segment STACK
DB 256 DUP(?)
s ends
text segment 'code'
assume CS:text, DS:data

begin: mov AX, data
mov DS, AX

mov DI, SP
mov DX, OFFSET about
mov AH, 09h
int 21h
restart:
mov DX, OFFSET kolvo
mov AH, 09h
int 21h
mov AL, 00
mov AH, 1
int 21h

mov AH, 30h
jmp down
plus1:
inc AH
down:
cmp AL, AH
ja plus1
mov BH,38h
cmp AH, BH
JA restart
mov AL, 30h
sub AH,AL
XCHG AH,AL
cbw
mov CX,AX
xor AX, AX
xor BX,BX


mov DX, OFFSET slovo
mov AH, 09h
int 21h
xor SI,SI
push CX
new_latter:
mov AL, 00
mov AH, 1
int 21h
mov AH,00
mov sl[SI], AX
add SI,0002h

loop new_latter
mov SI, 0000h
mov BX, sl[SI]
xor DX, DX
xor BX, BX
xor AX, AX
xor SI, SI

pop CX
push CX
mov SI, 0000h
mov DX, ob[SI]
b1:
mov BX, sl[SI]
add SI, 0002
cmp DX, BX
JE b2
;JNE b1
loop b1
cmp CX,0000h
JE exit


b2: or AX, 1000b
pop CX
push CX
mov SI,0002h
mov DX,ob[SI]
XOR SI,SI
povtorP:

mov BX, sl[SI]
add SI, 0002h
cmp DX, BX
JE b3
loop povtorP
cmp CX, 0000h
JE exit


b3: or AX, 0100b
pop CX
push CX
mov SI,0004h
mov DX,ob[SI]
XOR SI,SI
povtorP2:

mov BX, sl[SI]
add SI, 0002h
cmp DX, BX
JE b4
loop povtorP2
cmp CX, 0000h
JE exit


b4: or AX, 0010b
pop CX
push CX
mov SI,0006h
mov DX,ob[SI]
XOR SI,SI
povtorP3:

mov BX, sl[SI]
add SI, 0002h
cmp DX, BX
JE b5
loop povtorP3
cmp CX, 0000h
JE exit

b5: or AX, 0001b
cmp AX, 000Fh
JNE EXIT
mov DX, OFFSET otvetok
mov AH, 09h
int 21h
jmp ok


exit:
mov DX, OFFSET otvetne
mov AH, 09h
int 21h
ok:
mov AX, 4c00h
int 21h
text ends
end begin


--------------------
Вот это поворот!
Пользователь offlineПрофайлОтправить личное сообщение
Вернуться к началу страницы
+Цитировать сообщение

Сообщений в этой теме
ALEXRUS   Что-то вроде конкурса по программе на Ассемблере   Oct 11 2005, 11:54
PINguin   Угадалка подсчитывания кол-ва букв в слове? Хм...С...   Oct 11 2005, 12:43
ALEXRUS   нет на К2 кстати можно также угадать, что эта про...   Oct 11 2005, 13:57
-=@L!=-   Она дурит нам голову. И автора надо найти и к стен...   Nov 12 2005, 17:00
ALEXRUS   Али, а вот это уже точно не в тему. Кароч прога п...   Nov 12 2005, 19:58
-=@L!=-   Ты понимаешь в чём дело.... Я попытался по-умному ...   Nov 13 2005, 11:26
ALEXRUS   у тебя какой компилятор нужен от фирмы Borland aka...   Nov 13 2005, 20:44
-=@L!=-   Я masm'ом зафигачил... Через radasm... Ну да л...   Nov 14 2005, 15:23
ALEXRUS   Я masm'ом зафигачил... Через radasm... Ну да ...   Nov 14 2005, 19:52
Pelton   А таблица умножения на асме не нужна? ))   Nov 14 2005, 19:20
-=@L!=-   У меня радасм. Это среда для *асмов всяких. Но тас...   Nov 15 2005, 02:18
vadim   я терпеть немогу этот язык..... наверно самый деби...   Apr 13 2006, 20:27
ALEXRUS   Зато напрямую с железом работает. Наилучшее быстр...   Apr 13 2006, 21:40
PINguin   \\\masm это ...   Apr 16 2006, 07:28


ОтветитьСоздать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 3rd March 2021 - 00:57
 
     
Rambler's Top100 службы мониторинга серверов
Gentoo Powered Lighttpd Powered