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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.03.2010, 23:36   #1
Xdron
Пользователь
 
Регистрация: 11.03.2010
Сообщений: 21
Радость нарисовать сивмолами елку

зелёный символ я нарисовал не получается реализовать цикл для копирования символа, чтобы получилась ёлка....

model small
.stack 100h
.data
stroka db ' ','$'
a db 2
d db 10
.code
start:
mov ax,@data
mov ds,ax
mov es,ax
xor ax,ax
mov ah,00h
int 10h ;очищаем экран
xor ax,ax

mov cx,1 ;количество символов в строке
mov al,01h ;после вывода курсор в конце строки
xor bh,bh ;номер видеостраницы
mov bl,00101001b ;атрибут
mov dh,3 ;строка начала вывода
mov dl,8

lea bp,stroka ;запись адреса строки
mov ah,13h
int 10h
jmp exit
exit:
mov ax,4c00h
int 21h
end start
Xdron вне форума Ответить с цитированием
Старый 12.03.2010, 00:40   #2
Ulex
Непрофессионал
Участник клуба
 
Аватар для Ulex
 
Регистрация: 01.01.2008
Сообщений: 1,405
По умолчанию

Код:
model small
.stack 100h
.data
stroka db "              ",'$'
str_x db 3
str_y db 8
cnt	 dw 1

.code 
start:
mov ax,@data 
mov ds,ax 
mov es,ax 
xor ax,ax
mov ah,00h 
int 10h ;очищаем экран 
xor ax,ax 

mov	cx, 3
next_level2:
push	cx
mov	cx, 6
next_level1:
push	cx
mov cx,[cnt] ;количество символов в строке
mov al,01h ;после вывода курсор в конце строки 
xor bh,bh ;номер видеостраницы 
mov bl,00101001b ;атрибут
mov dh,[str_x] ;строка начала вывода
mov dl,[str_y] 
lea bp,stroka ;запись адреса строки
mov ah,13h
int 10h
add	[cnt], 2
inc	[str_x]
dec	[str_y]
pop	cx
loop	next_level1

mov	[str_y], 8
mov	[cnt], 1
pop	cx
loop	next_level2

anykey:                   ;выход по нажатию любой клавиши
mov ah,1      
int 16h     
jz anykey  
int 21h

mov ax,4c00h
int 21h 
end start
И чем больше я узнавал людей, тем больше мне нравились компьютеры.
------------------------------------
Страничка с моими программками http://ulex-masm.ru
Ulex вне форума Ответить с цитированием
Старый 12.03.2010, 20:36   #3
Xdron
Пользователь
 
Регистрация: 11.03.2010
Сообщений: 21
Радость

спасибо.....у мя уже вышло вот с герляндами мигающими...))):)
model small
.stack 100h
.data
stroka1 db '0'


y db 0
col db 0
.code
start:
mov ax,@data
mov es,ax
L4:
mov cx,5 ;кол-во веток
mov dh,6 ;строка начала вывода
L3:
push cx
mov cx,6
mov dl,6
L2:
push cx
mov cx,1 ;количество символов в строке
mov al,01h ;после вывода курсор в конце строки
mov bl,col ;атрибут
inc col
lea bp,stroka1 ;запись адреса строки
mov ah,13h
int 10h
pop cx
dec dh
loop L2
mov cx,7
L1:
push cx
mov cx,1 ;количество символов в строке
mov al,01h ;после вывода курсор в конце строки
mov ah,13h
int 10h
pop cx
inc dh
loop L1
pop cx
add dh,3
loop L3

jmp L4
mov ax,4c00h
int 21h
end start
Xdron вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нарисовать карандаш Настенька..Блонди Общие вопросы Delphi 6 21.05.2009 11:28
Нарисовать флаг РФ (C++) NoiseEP Помощь студентам 5 15.03.2009 10:21
Нарисовать круг Brunette Помощь студентам 2 17.05.2008 00:01
Нарисовать сферу vrs68 Помощь студентам 1 01.04.2008 23:44