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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2012, 18:19   #1
T_U_S_U_A
Пользователь
 
Регистрация: 21.01.2011
Сообщений: 10
Восклицание Отмена очистки экрана

Код:
IDEAL
MODEL small
STACK 256
DATASEG
msg1 DB '1',4h
msg2 DB '2',4h,'3',4h
msg3 DB '4',4h,'5',4h,'6',4h
msg4 DB '7',4h,'8',4h,'9',4h,'0',4h
CODESEG
Start: mov ax,@data
mov ds,ax
mov ah,00h
int 10h
mov ax,0B800h
mov es,ax
mov si,offset msg1
mov di,160*1+4*2
mov cx, offset msg1
mov ax,0B800h
mov es,ax
mov si,offset msg2
mov di,160*2+3*2
mov cx,offset msg2
mov ax,0B800h
mov es,ax
mov si,offset msg3
mov di,160*3+2*2
mov cx,offset msg3   
mov ax,0B800h
mov es,ax
mov si,offset msg4
mov di,160*4+1*2
mov cx,offset msg4
cld
rep movsb
mov ah,05h
mov al,0
int 10h
mov ah,01h
int 21h
Exit: mov ax,4C00h
int 21h
END Start
Смысл программы вывести цифры пирамидой. В результате программы выводится только последняя строка msg4.
7890 на правильном указанном месте. Остальные цифры не выводятся. Пожалуйста подскажите в чём ошибка!!!

Последний раз редактировалось Stilet; 22.01.2012 в 18:22.
T_U_S_U_A вне форума Ответить с цитированием
Старый 22.01.2012, 19:49   #2
Ulex
Непрофессионал
Участник клуба
 
Аватар для Ulex
 
Регистрация: 01.01.2008
Сообщений: 1,405
По умолчанию

Цитата:
Пожалуйста подскажите в чём ошибка!!!
Да как бы много в чём. Начиная с того, что видеорежим непонятно какой устанавливаете, заканчивая этим:
Цитата:
mov cx, offset msg1
Код:
IDEAL
MODEL small
STACK 256
DATASEG
msg1 DB '1',4h
msg2 DB '2',4h,'3',4h
msg3 DB '4',4h,'5',4h,'6',4h
msg4 DB '7',4h,'8',4h,'9',4h,'0',4h
CODESEG
Start: 
mov ax,@data
mov ds,ax

mov	ah, 0fh
int	10h
push	ax

mov ax,0003h
int 10h

mov ax,0B800h
mov es,ax
mov si,offset msg1
mov di,160*1+4*2
mov cx, 1*2
cld
rep movsb

mov si,offset msg2
mov di,160*2+3*2
mov cx, 2*2
cld
rep movsb

mov si,offset msg3
mov di,160*3+2*2
mov cx, 3*2
cld
rep movsb

mov si,offset msg4
mov di,160*4+1*2
mov cx, 4*2
cld
rep movsb

mov ah,01h
int 21h
pop	ax
mov	ah, 00h
int	10h
Exit: 
mov ax,4C00h
int 21h
END Start
И чем больше я узнавал людей, тем больше мне нравились компьютеры.
------------------------------------
Страничка с моими программками http://ulex-masm.ru
Ulex вне форума Ответить с цитированием
Старый 22.01.2012, 20:16   #3
T_U_S_U_A
Пользователь
 
Регистрация: 21.01.2011
Сообщений: 10
По умолчанию

О спасибо спасибо)))
T_U_S_U_A вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедура очистки лишних пробелов Form_13 Общие вопросы Delphi 3 23.12.2011 11:48
UserForm для очистки разделов бланка BDA2011 Microsoft Office Excel 12 15.11.2011 09:36
ошибка очистки памяти символьного массива BLOCK_TYPE_IS_VALID(pHead->nBlockUse) dasvex Помощь студентам 2 08.08.2011 02:05
Процедура очистки listbox detalik Помощь студентам 1 15.04.2011 17:41
Залили принтер краской. Что нужно делать для очистки? Stilet Компьютерное железо 11 07.05.2009 04:08