Сложение двух BCD чисел

@Петр135 · Регистрация: 10.06.2017

Студворк — интернет-сервис помощи студентам

Помогите с задачей, нужно чтобы вводилось двухзначное число, я сделал что вводится однозначное число. Препод обьяснил, но что-то не понял.

Assembler
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
data segment 
data ends 
code segment
start:
    assume cs:code, ds: data 
    mov ax, data 
    mov ds, ax 
    mov ah, 0fh 
    int 10h 
    mov ah, 00 
    int 10h 
    mov ah, 01 
    int 21h 
    sub al, 30h 
    mov bh, al 
    mov ah, 01 
    int 21h 
    sub al, 30h
    mov ah, bh
    mov bx, ax
    mov ah, 01 
    int 21h 
    sub al, 30h 
    mov ch, al 
    mov ah, 01 
    int 21h
    sub al, 30h 
    mov ah, ch
    add ax, bx 
    aaa
    mov bx, ax 
    mov al, bh
    add al, 30h 
    mov ah, 02 
    mov dl, al 
    int 21h 
    mov al, bl
    add al, 30h 
    mov ah, 02 
    mov dl, al 
    int 21h 
    mov ax, 4c00h 
    int 21h 
code ends 
end start

ФедосеевПавел · 06.11.2017, 00:06

Ввод и сложение двух неупакованных двухразрядных BCD чисел

Assembler
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
data segment
X    db 3 dup(?)
Msg1 db 0Dh, 0Ah, 'Enter the 1st number: ', '$'
Msg2 db 0Dh, 0Ah, 'Enter the 2nd number: ', '$'
Msg3 db 0Dh, 0Ah, 'The summa: ', '$'
data ends
stk segment stack
db 100h dup(?)
stk ends
code segment
start:
    assume cs:code, ds: data, ss:stk
    mov ax, data
    mov ds, ax
 
    ;ввод 1-го
    ;двухразрядного двоично-десятичного неупакованного числа
    mov ah, 09h
    lea dx, Msg1
    int 21h
    call InpInt
    mov bx, ax
 
    ;ввод 2-го
    ;двухразрядного двоично-десятичного неупакованного числа
    mov ah, 09h
    lea dx, Msg2
    int 21h
    call InpInt
    mov cx, ax
 
    ;сложение двух чисел
    add ax, bx
    aaa
    mov [X+0],al
 
    mov al, ah
    mov ah, 0
    aaa
    mov [X+1],al
    mov [X+2],ah
 
    ;вывод суммы на экран
    mov ah, 09h
    lea dx, Msg3
    int 21h
 
    mov ah, 02h
    mov dl, [X+2]
    add dl, '0'
    int 21h
 
    mov ah, 02h
    mov dl, [X+1]
    add dl, '0'
    int 21h
 
    mov ah, 02h
    mov dl, [X+0]
    add dl, '0'
    int 21h
 
    mov ax, 4c00h
    int 21h
 
InpInt  proc
    push bx
    push cx
    push dx
    push si
    push di
 
    mov ah, 01h
    int 21h
 
    mov bh, al
 
    mov ah, 01h
    int 21h
 
    mov ah, bh
    sub ax, '00'
 
    pop di
    pop si
    pop dx
    pop cx
    pop bx
    ret
InpInt  endp
 
code ends
 
end start

@Петр135 · 06.11.2017, 10:43 **[ТС]**

Вывести на экран сумму двух введенных с клавиатуры двузначных чисел (Вводить посимвольно функцией 01 прерывания 21h, значение вводить так, чтобы сумма была меньше 100). Для решения задачи применить команды десятичной арифметики. Проследить за выполнением операций с использованием отладчика. Tasm 1.4.

@Петр135 · 06.11.2017, 14:29 **[ТС]**

Мне надо сделать вот так

ФедосеевПавел · 06.11.2017, 16:46

Давайте разойдёмся.

Я считаю, что aam и aad в программе не нужны. А нужны aaa.

Если вы считаете иначе - докажите это не тем, что ваш преподаватель утверждает, что летал на драконе, а тем, что сможете сделать фрагмент кода на 3-5 строк, в котором покажете сложение 2 одноразрядных неупакованных BCD чисел и органично "впихнёте" туда aam (с учётом описания назначения данной команды). Даю подсказку - если в программе сложение, то корректировать результат сложения нужно командой ...

Не по теме:

Моя позиция такова:
1. Учат в школе/колледже/ВУЗе, а не на форуме. Т.е. лекцию читать не буду.
2. Если ассемблер вам нужен - попробуйте разобраться. Задавайте осмысленные вопросы - буду отвечать.
3. Если ассемблер вам НЕ нужен (вы учитесь на врача - встречал и такое на форуме) - то и время терять нечего.

Хорошая книжка с пояснением команд (в том числе и с BCD арифметикой):
Питер Абель. Ассемблер и программирование для IBM PC

Только примеры оттуда компилируются уже другими компиляторами.

Добавлено через 2 минуты
В конце-концов - после суммирования замените aaa на aam и сравните корректность ответов.

Добавлено через 10 минут
Кажется понял, что делает ваш преподаватель.

Добавлено через 4 минуты
Он получает после ввода два неупакованных BCD числа.
1. Командой aad преобразует каждое в бинарный формат
2. Складывает два числа в бинарном формате
3. Командой aam преобразует формат в BCD
4. Выводит результат.

А я делал:
1. Складывал два числа в исходном BCD формате
2. Выполнял коррекцию сложения
3. Выводил результат.

Сможете самостоятельно исправить небольшой фрагмент?

@Петр135 · 06.11.2017, 16:54 **[ТС]**

вот это я и не смог сделать

Добавлено через 27 секунд
ассемблер не нужен, но экзамен то надо по нему сдать.

ФедосеевПавел · 06.11.2017, 16:58

Хорошо, но на экзамен с вами я не пойду.

Assembler
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
data segment
X    db 3 dup(?)
Msg1 db 0Dh, 0Ah, 'Enter the 1st number: ', '$'
Msg2 db 0Dh, 0Ah, 'Enter the 2nd number: ', '$'
Msg3 db 0Dh, 0Ah, 'The summa: ', '$'
data ends
stk segment stack
db 100h dup(?)
stk ends
code segment
start:
    assume cs:code, ds: data, ss:stk
    mov ax, data
    mov ds, ax
 
    ;ввод 1-го
    ;двухразрядного двоично-десятичного неупакованного числа
    mov ah, 09h
    lea dx, Msg1
    int 21h
    call InpInt
    mov bx, ax
 
    ;ввод 2-го
    ;двухразрядного двоично-десятичного неупакованного числа
    mov ah, 09h
    lea dx, Msg2
    int 21h
    call InpInt
    mov cx, ax
 
    ;сложение двух чисел
    ; - преобразование формата 1-го числа
    ;   из неупакованного BCD в двоичный
    mov ax, bx
    aad
    mov bl, al
    ; - преобразование формата 2-го числа
    ;   из неупакованного BCD в двоичный
    mov ax, cx
    aad
    mov cl, al
    ; - складываем два двоичных числа
    mov al, bl
    add al, cl
    ;для вывода на экран выделим цифры полученной суммы
    aam
    ;сохраним цифры в переменной
    mov [X+0],al
    mov [X+1],ah
 
    ;вывод суммы на экран
    mov ah, 09h
    lea dx, Msg3
    int 21h
 
    mov ah, 02h
    mov dl, [X+1]
    add dl, '0'
    int 21h
 
    mov ah, 02h
    mov dl, [X+0]
    add dl, '0'
    int 21h
 
    mov ax, 4c00h
    int 21h
 
InpInt  proc
    push bx
    push cx
    push dx
    push si
    push di
 
    mov ah, 01h
    int 21h
 
    mov bh, al
 
    mov ah, 01h
    int 21h
 
    mov ah, bh
    sub ax, '00'
 
    pop di
    pop si
    pop dx
    pop cx
    pop bx
    ret
InpInt  endp
 
code ends
 
end start

@Петр135 · 06.11.2017, 17:05 **[ТС]**

X db 3 dup(?) что она делает, мы такого еще не проходили

ФедосеевПавел · 06.11.2017, 19:19

Это объявление переменной (буфера) размером в 3 байта. Можно обойтись и двумя байтами

Assembler
1
X db 0, 0

ФедосеевПавел · 06.11.2017, 20:27

Не по теме:

Только сейчас осознал - Преподаватель не просто дал задание, но и подробно в тетради ученика объяснял не "сухой код", а смысл выполнения каждого действия, каждого оператора. Вложил усилия. Жаль, что его усилия пропали даром.

@Петр135 · 07.11.2017, 02:10 **[ТС]**

а можно без него обойтись?

Добавлено через 19 минут
и как сделать без call inpint

ФедосеевПавел · 07.11.2017, 06:51

Сообщение от Петр135

а можно без него обойтись?

Без преподавателя? Не всем, но в принципе - да.

Без определения X - тоже можно, но неудобно, т.к. неизвестно в какой степени затирает регистры данная реализация сервиса DOS int 21h - может затирать, а может и не затирать. Поэтому лучше не рисковать, а сохранить результат в переменной.

Сообщение от Петр135

и как сделать без call inpint

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

Кроме того, если вы сможете разобраться и объяснить применение переменной и процедуры для повторяющегося фрагмента программы - вам будет только плюс и преподаватель это оценит.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Петр135 1 / 9 / 0 Регистрация: 10.06.2017 Сообщений: 162
	06.11.2017, 10:43 [ТС]
	Вывести на экран сумму двух введенных с клавиатуры двузначных чисел (Вводить посимвольно функцией 01 прерывания 21h, значение вводить так, чтобы сумма была меньше 100). Для решения задачи применить команды десятичной арифметики. Проследить за выполнением операций с использованием отладчика. Tasm 1.4. 0

@Петр135 1 / 9 / 0 Регистрация: 10.06.2017 Сообщений: 162
	06.11.2017, 14:29 [ТС]
	Мне надо сделать вот так 0

ФедосеевПавел Модератор 8659 / 4494 / 1669 Регистрация: 01.02.2015 Сообщений: 13,905 Записей в блоге: 12
	06.11.2017, 16:46
	Давайте разойдёмся. Я считаю, что `aam` и `aad` в программе не нужны. А нужны `aaa`. Если вы считаете иначе - докажите это не тем, что ваш преподаватель утверждает, что летал на драконе, а тем, что сможете сделать фрагмент кода на 3-5 строк, в котором покажете сложение 2 одноразрядных неупакованных BCD чисел и органично "впихнёте" туда `aam` (с учётом описания назначения данной команды). Даю подсказку - если в программе сложение, то корректировать результат сложения нужно командой ... Не по теме: Моя позиция такова: 1. Учат в школе/колледже/ВУЗе, а не на форуме. Т.е. лекцию читать не буду. 2. Если ассемблер вам нужен - попробуйте разобраться. Задавайте осмысленные вопросы - буду отвечать. 3. Если ассемблер вам НЕ нужен (вы учитесь на врача - встречал и такое на форуме) - то и время терять нечего. Хорошая книжка с пояснением команд (в том числе и с BCD арифметикой): Питер Абель. Ассемблер и программирование для IBM PC Только примеры оттуда компилируются уже другими компиляторами. Добавлено через 2 минуты В конце-концов - после суммирования замените aaa на aam и сравните корректность ответов. Добавлено через 10 минут Кажется понял, что делает ваш преподаватель. Добавлено через 4 минуты Он получает после ввода два неупакованных BCD числа. 1. Командой aad преобразует каждое в бинарный формат 2. Складывает два числа в бинарном формате 3. Командой aam преобразует формат в BCD 4. Выводит результат. А я делал: 1. Складывал два числа в исходном BCD формате 2. Выполнял коррекцию сложения 3. Выводил результат. Сможете самостоятельно исправить небольшой фрагмент? 0

@Петр135 1 / 9 / 0 Регистрация: 10.06.2017 Сообщений: 162
	06.11.2017, 16:54 [ТС]
	вот это я и не смог сделать Добавлено через 27 секунд ассемблер не нужен, но экзамен то надо по нему сдать. 0

@Петр135 1 / 9 / 0 Регистрация: 10.06.2017 Сообщений: 162
	06.11.2017, 17:05 [ТС]
	X db 3 dup(?) что она делает, мы такого еще не проходили 0

ФедосеевПавел
	06.11.2017, 20:27
	Не по теме: Только сейчас осознал - Преподаватель не просто дал задание, но и подробно в тетради ученика объяснял не "сухой код", а смысл выполнения каждого действия, каждого оператора. Вложил усилия. Жаль, что его усилия пропали даром. 0

@Петр135 1 / 9 / 0 Регистрация: 10.06.2017 Сообщений: 162
	07.11.2017, 02:10 [ТС]
	а можно без него обойтись? Добавлено через 19 минут и как сделать без call inpint 0