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

Сложение двоично-десятичных чисел

02.12.2014, 10:47. Просмотров 949. Ответов 2
Метки нет (Все метки)

Здравствуйте товарищи программисты, не получается осуществить двоично-десятичное сложение, дошел до вывода суммы одноразрядных значений, т.е. максимум 9+9=18. Собственно вопрос, как мне исправить текст кода, чтобы правильно суммировались многоразрядные числа?

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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
    ;INCLUDE    BIBLML.INC  ;библиотека общих макросов
    ;INCLUDE    consfs.INC      ;константы опред.работу программы
;*************************************************************************
 
MacroVvod   Macro   save
    mov ah,0Ah          ; номер функции ввод инфы с контролем длины, старшую часть Mov ch,0
    mov dx,offset save      ; задаем буфер BUFPR 
    int 21h         ; вызов функции вывода сообщени¤    
endM
 
macroekran  macro
mov ax,3
    int 10h ; очистка экрана
    mov ah,02h
endM
 
MacroChek   macro   var, num ; проверка числа, чтобы оно входило в пределы от 0 до 9
local check
local check1
local check2
    mov cl,var+1
    mov si,2
    
check:
        cmp var[si],30h
            jge check1
        jmp next
 
check1:
        cmp var[si],39h
            jle check2
        jmp next
check2:
    mov al,var[si]
    mov ah,0
    xor al,30h
    mov num,bl
    shl bx,4
    or  bx,ax
    mov num,bl
    inc si
loop    check
 
    mov cl,var+1
    xor si,si
 
    
endM
 
macroSum    macro   num1, num2, num ; суммирование
    mov al,num1[si] ;присвоение регистру 
    adc al,num2[si] ;+
    aaa
    mov num[si],al
    dec si
    mov num[si],ah
    inc si
    mov cl, 2
    xor si,si
 
endM
 
macroViv    macro   num ; вывод 
    dec si
 
    mov dl,num[si]
    adc num[si],0
    aaa
    
    or  dl,030h
    mov ah,2h
    int 21h
    
    inc si
    
    mov dl,num[si]
    or  dl,030h
    mov ah,2h
    int 21h
    mov num,"$"
 
endM
 
macro30     macro   num1, num2
    local   GGG
GGG:                    ; убираем 30 из цифр
    mov al,num1+2(si)       
    mov bl,num1+2(si)
    xor bl,030h
    mov num2(si),bl
    inc si
    loop    GGG
    mov cl,num2+1
    xor si,si
endM
 
 
macroMes    macro   mes 
    mov ax,3
    int 10h
    mov     ah,9             ; номер функции
    mov     dx,offset Mes        ; адрес сообщени¤
    int     21h              ; вызов функции вывода сообщени¤
    
endM
macrokonec macro ;выход из программы
mov ah,1
    int 21h
next:
    mov     ah,04ch
    int     21h
endM
data1   segment para public "data1" ;сегмент данных
WARE    dw  0
data1   ends
;*****************
data    segment para public "data"  ;сегмент данных
 
Message db  'GIVE NUMBER one',0dh,0ah,'$'
Message1    db  'GIVE NUMBER two',0dh,0ah,'$'
Message2    db  'UR NUMBERS',0dh,0ah,'$'
GGG1mes db  'GGG1mes',0dh,0ah,'$'
error   db  'ERROR! TRY AGAIN',0dh,0ah,'$'
OTSTUP  db  '',0dh,0ah,'$' 
 
 
 
BUFPR1  db  4
    db  0
    db  ?
    db  ?
    db  ?
    db  ?
rnum1   db  4
    db  0
    db  ?
    db  ?
    db  ?
    db  ?
    db  ?
BUFPR2  db  4
    db  0
    db  ?
    db  ?
    db  ?
    db  ?
    db  ?
rnum    db  4
    db  0
    db  ?
    db  ?
    db  ?
    db  ?
    db  ?
 
rnum2   db  4
    db  0
    db  ?
    db  ?
    db  ?
    db  ?
    db  ?
 
;   DB  10 dup (0)
MN1 db  1
    db  10
    db  100
    ;db 1000
nn  dw  0
sum dw  0
DE0 db  0
data    ends
;*****************
stk segment stack
        db  256 dup ("?")   ;сегмент стека
stk ends
;**************************************************************************
code    segment para public "code"  ;начало сегмента кода 
main    proc                ;начало процедуры main
    assume cs:code, ds:data,es:data1,ss:stk
    mov ax,data
    mov ds,ax
    mov ax,data1
    mov es,ax
 
 
    macroMes    message ;сообщение                  
    MacroVvod   bufpr1  ;вводим первое число
                    ;очистка экрана
    Macroekran
                    ;проверка 
    MacroChek   bufpr1, rnum    
                    ;ввод второго числа 
    macroMes message1
                    ;водим число:   
    MacroVvod   bufpr2 
                    ;очистка экрана
    Macroekran
                    ;проверка
    macroChek   bufpr2, rnum1
                    ; убираем 30 из цифр
    macro30     bufpr1, rnum1
    macro30     bufpr2, rnum2
                    ;сложение
    macroSum    rnum1, rnum2, rnum
                    ; вывод
    macroViv    rnum 
    macrokonec      ; выход из программы
    
    
    
main    endp                ;конец процедуры main
code    ends                ;конец сегмента  код 
end main                ;конец программы с точкой входа  main
 
;*************************************************************************************************
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2014, 10:47
Ответы с готовыми решениями:

Сложение двоично десятичных чисел
Задать с клавиатуры 2 двухразрядных ВСД числа. Выполнить сложение ВСД числа. Предусмотреть: 1)...

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

Просуммировать два массива двоично-десятичных (BCD) четырехзначных чисел
Здравствуйте! У меня несколько команды не хватает. Или что то я пишу не правильно. 1-...

Деление 6-байтных двоично-десятичных неупакованных чисел без использования циклов
Написать программу, выполняющую деление 6-байтных двоично-десятичных неупакованных чисел без...

[Debug] Сложение трехразрядных чисел, представленных двоично-десятичными кодами
Помогите Осуществить сложение трехразрядных чисел, представ-ленных двоично-десятичными кодами ...

2
Charles Kludge
Клюг
7647 / 3162 / 383
Регистрация: 03.05.2011
Сообщений: 8,382
02.12.2014, 13:29 2
На Симтеле есть либа(с исходниками) для работы с большими BCD-числами. Маны только на буржуйском. Код под досъ/вынь.
http://www.filewatcher.com/m/bcdasm.zip.141895-0.html
0
iFreezy
0 / 0 / 0
Регистрация: 10.01.2014
Сообщений: 5
09.12.2014, 19:42  [ТС] 3
Спасибо за информацию!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2014, 19:42

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

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

Вычитание неупакованных двоично-десятичных чисел
Нужна помощь!!!! задание:Вычитание неупакованных двоично-десятичных чисел Есть программа: <1>...


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

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

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