Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Ассемблер? Это просто! Учимся программировать


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Коцюрбенко Алексей aka Жерар
Статус: Мастер-Эксперт
Рейтинг: 145
∙ повысить рейтинг »
quirck
Статус: 1-й класс
Рейтинг: 79
∙ повысить рейтинг »
Evgen aka Chuma
Статус: 5-й класс
Рейтинг: 0
∙ повысить рейтинг »

∙ Assembler

Номер выпуска:1653
Дата выхода:31.07.2017, 07:15
Администратор рассылки:Лысков Игорь Витальевич (Старший модератор)
Подписчиков / экспертов:42 / 16
Вопросов / ответов:1 / 1

Консультация # 191245: Здравствуйте! У меня возникли сложности с таким вопросом: Решил написать программку по смене видеостраниц, (на 0 страницу выведу один символ и обозначу сообщение о номере страницы, на 1 страницу другой и обозначу подобным сообщением. 1. Как сделать паузу в программе? (чтоб увидеть смену страниц) 2. Почему после окончания программы у ме...

Консультация # 191245:

Здравствуйте! У меня возникли сложности с таким вопросом:
Решил написать программку по смене видеостраниц,
(на 0 страницу выведу один символ и обозначу сообщение о номере страницы, на 1 страницу другой и обозначу подобным сообщением.
1. Как сделать паузу в программе? (чтоб увидеть смену страниц)
2. Почему после окончания программы у меня нет ничего на экране?

Код (Assembler) :: выделить код
CSEG segment 
assume cs:CSEG,ss:CSEG,es:CSEG,ds:CSEG
org 100h
start:
;устанавливаем видеорежим 80*25
mov ax,3
int 10h
    mov dx, offset Mes_1
    mov ah,9
    int 21h
    mov al,1
    call Simvol 

;---------------------------------------- 
mov ah,0fh
int 10h

cmp bh, 0
jz Smena

Smena:
mov ah,05h
mov al,2
int 10h
mov dx, offset Mes_2
mov ah,9
int 21h

mov al,2
call Simvol
jmp Vihod



;---------vivod simvolov--------------
Simvol proc
mov bl,al
mov ax,0b800h
mov es,ax
mov di,0
mov ah,31
mov al,bl
mov cx,240
cicl:
mov es:[di],ax
inc di
inc di
loop cicl
ret
Simvol endp
;---------------------------------------

Vihod:
int 20h

Mes_1 db 'windows number zero!$'
Mes_2 db 'windows number one!$'
CSEG ends
end start

Дата отправки: 25.07.2017, 12:45
Вопрос задал: Caesar (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, Caesar!

© Цитата: Caesar
1. Как сделать паузу в программе? (чтоб увидеть смену страниц)
2. Почему после окончания программы у меня нет ничего на экране?

1)Добавляете в код функцию ввода с клавиатуры.
2)Потому, что Вы не туда выводите.
Исправленный вариант кода:
Код (Assembler) :: выделить код
model	tiny
;CSEG	segment
;assume	cs:CSEG,ss:CSEG,es:CSEG,ds:CSEG
code
org	100h
start:
;устанавливаем видеорежим 80*25
	mov	ax,3
	int	10h
	mov	dx,offset Mes_1
	mov	ah,9
	int	21h
	mov	ax,2401h
	mov	si,0
	call	Simvol
;----------------------------------------
;mov ah,0fh
;int 10h
;cmp bh,0
;jz Smena
;Smena:
	xor	ax,ax
	int	16h
	mov	ah,05h
	mov	al,1
	int	10h
	mov	dx,offset Mes_2
	mov	ah,9
	int	21h
	mov	ax,4202h
	mov	si,4096
;call Simvol
;jmp Vihod
;---------vivod simvolov--------------
Simvol	proc
	mov	bx,ax
	mov	ax,0b800h
	mov	es,ax
	mov	di,40
	add	di,si
	mov	ax,bx
	mov	cx,240
cicl:
;moves:[di],ax
;incdi
;incdi
;loopcicl
	rep	stosw
	ret
Simvol	endp
;---------------------------------------
;Vihod:
;int	20h
Mes_1	db	'windows number zero!$'
Mes_2	db	'windows number one!$'
;CSEG	ends
end	start

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 25.07.2017, 16:54

5
нет комментария
-----
Дата оценки: 26.07.2017, 05:45

Рейтинг ответа:

НЕ одобряю +1 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное