Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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


Ответ
 
Опции темы
Старый 25.08.2020, 11:22   #1
Vladimir.1982
Форумчанин
 
Регистрация: 30.04.2018
Сообщений: 167
По умолчанию Как напечатать в TASM одну и ту же строку несколько раз?

Как написать программу в ассемблере TASM которая выводила бы одну и туже строку несколько раз?
Vladimir.1982 вне форума Ответить с цитированием
Старый 27.08.2020, 14:44   #2
Vladimir.1982
Форумчанин
 
Регистрация: 30.04.2018
Сообщений: 167
По умолчанию

Я нашел ответ.

еxe файл:

Код:
.model small
.286

.data
msg db 'hello world',13,10,'$'

.code
start:
mov ax, @data
mov ds, ax

mov ah, 09h
lea dx, msg

mov cx, 4 ; <— кол-во раз

@@next:
int 21h
loop @@next

mov ax,4C00h
int 21h
end start
* * * *

сom файл:

Код:
 
.model tiny
.286

.code
org 100h

start:
mov ah, 09h
lea dx, msg
mov cx, 4

@@next:
int 21h
loop @@next

mov ax,4C00h
int 21h

msg db 'Hello world!',13,10,'$'

end start
* * * *

Через BIOS и прерывание 10h ; .exe файл:

Код:
 .model small
.286

.data
msg db 'Hello world!'
len equ $-msg

.code
start:
mov ax, @data
mov ds, ax
mov es, ax

mov ax, 0003h
int 10h

mov ax, 1300h
lea bp, msg
xor dx, dx
mov bx, 0007h

mov cx, 4

@@next:
push cx
mov cx, len
int 10h
inc dh
pop cx
loop @@next

mov ax,4C00h
int 21h
end start

Последний раз редактировалось Vladimir.1982; 27.08.2020 в 14:47.
Vladimir.1982 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти наименьший элемент матрицы и напечатать соответствующую строку - PascalABC.NET Andrit Помощь студентам 7 13.06.2017 19:18
Как разбить одну строку на несколько, ориентируясь на Заглавные буквы seto Microsoft Office Excel 13 28.08.2015 13:46
Склеить несколько картинок в одну bulldog5293 Общие вопросы Delphi 6 11.08.2011 15:22
как вызвать одну и ту же процедуру несколько раз barbulina Общие вопросы Delphi 2 28.05.2011 18:16
Напечатать строку с наибольшим количеством слов. jenja Помощь студентам 9 07.03.2008 05:28


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя