Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler для начинающих
Войти
Регистрация
Восстановить пароль
 
fenyazaza
1 / 1 / 0
Регистрация: 24.12.2013
Сообщений: 9
1

Вывод букв на экран

10.05.2016, 14:31. Просмотров 318. Ответов 0
Метки нет (Все метки)

Как вывести другие символы на экран?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
NumPoly=8;
     polygons: array[1..NumPoly] of TPoly =
     (
       (p1:(15+130*320); p2:(35+130*320); k1:(1-320); k2:(1-320); h:60; col-or:85),
        (p1:(75+50*320); p2:(95+50*320); k1:(320);k2:(320); h:100; color:86),
        (p1:(15+50*320); p2:(35+50*320); k1:(320); k2:(320); h:100; color:87),
 
       (p1:(115+140*320); p2:(135+140*320); k1:(1-320); k2:(1-320); h:60; col-or:100),
        (p1:(175+50*320); p2:(195+50*320); k1:(320);k2:(320); h:100; color:101),
        (p1:(115+50*320); p2:(135+50*320); k1:(320); k2:(320); h:100; color:102),
 
 
        (p1:(240+50*320); p2:(260+50*320); k1:(320); k2:(320);  h:100; color:48),
        (p1:(210+50*320); p2:(290+50*320); k1:(320); k2:(320); h:20; color:47)
Так он выводит буквы ИИТ, а как сделать чтобы он выводил другие букву?

На всякий случай полный код
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
type
    TPoly = record
          p1,p2: word;
          k1, k2: integer;
          h, color: byte;
    end;
const
     NumPoly=8;
     polygons: array[1..NumPoly] of TPoly =
     (
       (p1:(15+130*320); p2:(35+130*320); k1:(1-320); k2:(1-320); h:60; col-or:85),
        (p1:(75+50*320); p2:(95+50*320); k1:(320);k2:(320); h:100; color:86),
        (p1:(15+50*320); p2:(35+50*320); k1:(320); k2:(320); h:100; color:87),
 
       (p1:(115+140*320); p2:(135+140*320); k1:(1-320); k2:(1-320); h:60; col-or:100),
        (p1:(175+50*320); p2:(195+50*320); k1:(320);k2:(320); h:100; color:101),
        (p1:(115+50*320); p2:(135+50*320); k1:(320); k2:(320); h:100; color:102),
 
 
        (p1:(240+50*320); p2:(260+50*320); k1:(320); k2:(320);  h:100; color:48),
        (p1:(210+50*320); p2:(290+50*320); k1:(320); k2:(320); h:20; color:47)
 
 
 
     );
begin
     asm
        mov ax,13h
        int 10h
        mov ax, 0a000h
        mov es,ax
        cld
        lea si,polygons
        mov cx,NumPoly
     @NextPoly:
        push cx
        push si
        mov di,[si+TPoly.p1]
        mov dx,[si+TPoly.k1]
        mov bx,[si+TPoly.k2]
        mov cl,[si+TPoly.h]
        xor ch,ch
        mov al,[si+TPoly.color]
        mov si,[si+TPoly.p2]
     @NextLine:
        push cx
        mov cx,si
        sub cx,di
        push di
        rep stosb
        pop di
        pop cx
        add di,dx
        add si,bx
        loop @NextLine
        pop si
        add si, type(TPoly)
        pop cx
        {loop @NextPoly}
        dec cx
        jnz @NextPoly
        xor ah,ah
        int 16h
     end;
end.


Добавлено через 54 секунды
Искал по форуму, писали сделать через 010 Editor, но там так и не разобрался
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2016, 14:31
Ответы с готовыми решениями:

Подсчёт количества букв "a" в файле и вывод на экран [tasm]
Вот что-то написал. Не запускается. .486 model small Data SEGMENT use16...

Ввод ASCII-кодов начальной и конечной букв, вывод букв, расположенных между введёнными
Написать exe-программу, которая выведет запрос о коде начальной и конечной букв...

Вывод парных букв
Меня попросили написать программу: "Написать com-программу, которая выведет...

Вывод букв ABCDEFGH
Пишу программу, которая бы выводила на экран буквы ABCDEFGH и при этом не...

Вывод заглавных букв из строки
Доброго времени суток. Имеется код программы, который из введенной...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2016, 14:31

Вывести на экран ASCI-символы заглавных букв
Помогите новичку в Ассемблере.. Задача: Вывести на экран ASCI-символы...

Выдать на экран количество букв в первом слове строки
Завтра сдавать....:cry: Может кто то помочь?! Ввести строку символов,...

Вывод букв, находящихся на нечётных позициях строки (индексация от 0).
Написать программу, которая выведет из введенного строке на экран только парные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru