Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2010, 23:48   #11
Ulex
Непрофессионал
Участник клуба
 
Аватар для Ulex
 
Регистрация: 01.01.2008
Сообщений: 1,432
По умолчанию

Если с первой и второй, то во я как извратился

Код:
masm
.model small 
.stack 100h
.data
	str1 db "38 попугаев", 0dh, 0ah, '$'
	str2 db "30 убитых енотов", 0dh, 0ah, '$'

.code
assume ds:@data, es:@data
main:

	mov ax,@data
	mov ds,ax
	mov es,ax
	xor dx, dx
	lea si, str1

rep1:
	push dx
rep2:
	mov ah, 08h
	int 21h
	cmp al, 00h
	je rep2
	cmp al, 27
	je quit

	pop dx
	cmp dh, al
	je rep1
	cmp dl, al
	je rep1
	shl dx, 8
	mov dl, al

	push dx
	cmp si, offset [str1]
	je rep3
	lea si, str1
	jmp rep4
rep3:
	lea si, str2
rep4:
	mov dx, si
	mov ah, 09h
	int 21h
	pop dx

	jmp rep1

quit:
	pop dx
	mov ax, 4c00h
	int 21h

end main
И чем больше я узнавал людей, тем больше мне нравились компьютеры.
------------------------------------
Страничка с моими программками http://ulex-masm.ru
Ulex вне форума Ответить с цитированием
Старый 08.12.2010, 07:32   #12
agressenok
Пользователь
 
Регистрация: 29.11.2010
Сообщений: 19
По умолчанию

Спасибо большое ребят. про попугаев конечно весело ))) Скопировал - работает. Попробую показать , препод вроде в субботу будет, покажу и отпишусь потом !
agressenok вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
легкая проблемка Domanoff Общие вопросы Delphi 8 21.04.2010 15:18
Легкая задачка в C# OnlySergio Помощь студентам 5 21.11.2009 15:02
Легкая программа. Maxs Фриланс 4 02.11.2009 10:25
легкая задача vAdiM_Kubski Паскаль, Turbo Pascal, PascalABC.NET 2 25.09.2009 22:49
Легкая задачка Васька Паскаль, Turbo Pascal, PascalABC.NET 1 29.11.2008 14:55