Вычитание чисел в формате BCD

@cinekst_207 · Регистрация: 25.03.2018

Введите два десятичных числа разрядностью не более 10 цифр, выполните преобразование в неупакованный BCD-формат, вычтете второе из первого и выведите результат.
В общем я вроде минусы учёл(отриц. числа) но при вводе отриц. и пол.(или пол. и отриц.) выдаёт чушь (например -2 и 2 выдаст 199999999=0). Что не так? Сложение (ADDI) вроде верное?

Assembler

.model  SMALL
        STACK  100h
        DATASEG
;;;;;;;;;;;;;;;;; приглашение на ввод первого числа ;;;;;;;;;;;;;;
SEN_1    db 0Ah,0Dh,'1st NUM:$'
;;;;;;;;;;;;;;;;; приглашение на ввод второго числа ;;;;;;;;;;;;;;
SEN_2    db 0Ah,0Dh,'2nd NUM:$'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MINUS1   db 0
MINUS2   db 0
RESULT   db 0
BUF_1    db 11       
LEN_1    db ?                       ; длина 1 строки
Opnd1    db 12 dup( ? )             ; буфер 1 числа
BUF_2    db 11
LEN_2    db ?                       ; длина 2 строки
Opnd2    db 12 dup( ? )             ; буфер 2 числа
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;; приглашение на вывод результата ;;;;;;;;;;;;;;;;
ResT    db 0Ah,0Dh,'Differ: '
Res     db 12 dup(' '),'$' ; буфер результата
;;;;;;;;;;;;;;;;; запрос о продолжении работы ;;;;;;;;;;;;;;;;;;;;
AskCont db 0Ah,0Dh
        db 'Shut down - Esc, Continue - any key'
        db '$'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        CODESEG
        STARTUPCODE
        PUSH    DS
        POP     ES                  ; ES <- DS
 
BEGIN:
;;;;;;;; ввод первого числа ;;;;;;;;;;;;;;;;;;;;;
B1:     
        LEA     DX, SEN_1           ; в DX занести адрес строки
        MOV     AH, 09h             ; в АН занести номер функции (вывод)
        INT     21h                 ; вызов прерывания 
        LEA     DX, BUF_1           ; в DX занести адрес строки
        MOV     AH, 0Ah             ; в АН занести номер функции (ввод)
        INT     21h                 ; вызов прерывания
        CMP     LEN_1, 0            ; сравниваем длину строки с нулем
        JE      B1                  ; если равен нулю, то вводим заново
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;       
;;; проверка 0-9 и очистка старшей тетрады ;;;;;;
        LEA     BX, Opnd1           ; загружаем введённую строку в рег-р ВХ
        XOR     CX, CX              ; обнулить регистр CX
        MOV     CL, LEN_1           ; в СL занести длину строки
        XOR     SI, SI              ; обнулить регистр SI       
T1:   ;;;;; начало цикла ;;;;;;;;;  
        MOV     AL, [BX][SI]
        CMP     AL, '-'
        JZ      NEGA1
        CMP     AL, '0'             ; сравнить с кодом нуля
        JB      B1                  ; если ниже, ошибка
        CMP     AL, '9'             ; сравнить с кодом девятки
        JA      B1                  ; если выше, ошибка
        AND     AL, 0Fh             ; обнулить старшую тетраду (АL & 0000 1111)
        MOV     [BX][SI], AL        ; занести результат в массив
        INC     SI                  ; перейти к следующему элементу
        LOOP    T1                  ; проверка на конец цикла и переход на метку
        ;;;;; конец цикла ;;;;;;;;;;
;;;;;;;;;;;;; прижать к правому краю ;;;;;;;;;;;
        MOV     CL, LEN_1           ; в CL занести длину строки
        CMP     CL, 10              ; сравнить СL с 10
        JE      E1                  ; если равно, то перейти на метку
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     DI, 9               ; в DI занести смещение (адрес конца строки)
        MOV     SI, CX              ; в SI занести смещение (адрес первого разряда + 1)
        DEC     SI                  ; уменьшить SI на единицу       
P1:      ;;;; начало цикла ;;;;;;;
        MOV     AL, [BX][SI]        ; в АL занести элемент массива
        MOV     [BX][DI], AL        ; поместить AL в правую часть массива
        DEC     DI                  ; уменьшить DI на единицу
        DEC     SI                  ; уменьшить SI на единицу
        LOOP    P1                  ; проверить на конец цикла и перейти по метке
        ;;;; конец цикла ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; обнулить лишнее ;;;;;;;;;;;;;;;;;;;;;;;
        XOR     DI, DI              ; обнулить регистр DI
        MOV     CL, 10              ; занести в регистр СL значение 10
        SUB     CL, LEN_1           ; отнять от CL длину строки
N1:     ;;;;; начало цикла ;;;;;;
        MOV     byte ptr [BX][DI], 0; заменить на нуль
        INC     DI                  ; увеличить DI на единицу
        LOOP    N1                  ; проверить на конец цикла и перейти по метке
        ;;;;; конец цикла ;;;;;;;
        JMP E1
;;;;;;;;;;;; учитываем минус ;;;;;;;;;;;;;;;;;;;
NEGA1:
        ADD MINUS1, 1
        INC SI
        LOOP T1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E1:
;;;;;;;;;;; ввод второго числа ;;;;;;;;;;;;;;;;;
B2:     LEA     DX, SEN_2           ; в DX занести адрес строки
        MOV     AH, 09h             ; в АН занести номер функции (вывод)
        INT     21h                 ; вызов прерывания
        LEA     DX, BUF_2           ; в DX занести адрес строки
        MOV     AH, 0Ah             ; в АН занести номер функции (ввод)
        INT     21h                 ; вызов прерывания
        CMP     LEN_2, 0            ; сравниваем длину строки с нулем
        JE      B2                  ; если равен нулю, то вводим заново
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; проверка 0-9 и очистка старшей тетерады ;
        LEA     BX, Opnd2
        XOR     CX, CX              ; обнулить регистр CX
        MOV     CL, LEN_2           ; в СL занести длину строки
        XOR     SI, SI              ; обнулить регистр SI
T2:     
        MOV     AL, [BX][SI]
        CMP     AL, '-'
        JZ      NEGA2
        CMP     AL, '0'             ; сравнить с кодом нуля
        JB      B2                  ; если ниже, ошибка 
        CMP     AL, '9'             ; сравнить с кодом девятки
        JA      B2                  ; если выше, ошибка
        AND     AL, 0Fh             ; обнулить старшую тетраду (АL & 0000 1111)
        MOV     [BX][SI], AL        ; занести результат в массив
        INC     SI                  ; перейти к следующему элементу
        LOOP    T2                  ; проверка на конец цикла и переход на метку
        ;;;;; конец цикла ;;;;;;;;;;        
;;;;;;;;;;;;; прижать к правому краю ;;;;;;;;;;;
        MOV     CL, LEN_2           ; в CL занести длину строки
        CMP     CL, 10              ; сравнить СL с 10
        JE      CHECKPOINT          ; если равно, то перейти на метку 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;        
        MOV     DI, 9               ; в DI занести смещение (адрес конца строки)
        MOV     SI, CX              ; в SI занести смещение (адрес первого разряда + 1)
        DEC     SI                  ; уменьшить SI на единицу
P2:     ;;;; начало цикла ;;;;;;;
        MOV     AL, [BX][SI]        ; в АL занести элемент массива
        MOV     [BX][DI], AL        ; поместить AL в правую часть массива
        DEC     DI                  ; уменьшить DI на единицу
        DEC     SI                  ; уменьшить SI на единицу
        LOOP    P2                  ; проверить на конец цикла и перейти по метке
;;;; конец цикла ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; обнулить лишнее ;;;;;;;;;;;;;;;;;;;;;;;
        XOR     DI, DI              ; обнулить регистр DI
        MOV     CL, 10              ; занести в регистр СL значение 10
        SUB     CL, LEN_2           ; отнять от CL длину строки
N2:     ;;;;; начало цикла ;;;;;; 
        MOV     byte ptr [BX][DI], 0; заменить на нуль
        INC     DI                  ; увеличить DI на единицу
        LOOP    N2                  ; проверить на конец цикла и перейти по метке
        ;;;;; конец цикла ;;;;;;;
        JMP CHECKPOINT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;; учитываем минус ;;;;;;;;;;;;;;;;;;;
NEGA2:
        ADD MINUS2, 1
        INC SI
        LOOP T2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; Определяем операцию с учётом минуса ;;;;;;
CHECKPOINT:
        MOV  BL, MINUS1
        MOV  AL, MINUS2
        CMP  BL, 0
        JNZ  CHECK2
        CHECK1:
            CMP AL, 0
            JZ  SUBM1
            JNZ ADDI
        CHECK2:
            CMP AL, 0
            JZ  ADDI
            JNZ SUBM2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SUBM1:;;;;; Вычитание чисел (1 - 2) ;;;;;;;;;;;;;
        MOV     CX, 10              ; установить счетчик
        CLC
        LEA     SI, Opnd1+9         ; в SI занести адрес массива
        LEA     DI, Opnd2+9         ; в DI занести адрес массива
        LEA     BX, Res+10          ; в ВХ занести адрес массива
A1:     ;;;;;; начало цикла ;;;;;
        MOV     AL, [SI]            ; в АL занести текущий элемент
        SBB     AL, [DI]            ; вычитание
        AAS                         ; произвести десятичную коррекцию вычитания
        MOV     [BX], AL
        DEC     SI                  ; уменьшить SI на единицу
        DEC     DI                  ; уменьшить DI на единицу
        DEC     BX                  ; уменьшить BX на единицу
        LOOP    A1                  ; проверка на конец цикла и переход по метке
        MOV     AL, 0
        ADC     AL, 0
        MOV     [BX], AL   
;;;;;;;;Преобразование результата в ASCII;;;;;;;;;
        MOV     CX, 11
        JMP ENT
SUBM2:;;;;; Вычитание чисел (2 - 1) ;;;;;;;;;;;;;
        MOV     CX, 10              ; установить счетчик
        CLC
        LEA     SI, Opnd1+9         ; в SI занести адрес массива
        LEA     DI, Opnd2+9         ; в DI занести адрес массива
        LEA     BX, Res+10          ; в ВХ занести адрес массива
A2:     ;;;;;; начало цикла ;;;;;
        MOV     AL, [DI]            ; в АL занести текущий элемент
        SBB     AL, [SI]            ; вычитание
        AAS                         ; произвести десятичную коррекцию вычитания
        MOV     [BX], AL
        DEC     SI                  ; уменьшить SI на единицу
        DEC     DI                  ; уменьшить DI на единицу
        DEC     BX                  ; уменьшить BX на единицу
        LOOP    A2                  ; проверка на конец цикла и переход по метке
        MOV     AL, 0
        ADC     AL, 0
        MOV     [BX], AL   
;;;;;;;;Преобразование результата в ASCII;;;;;;;;;
        MOV     CX, 11
        JMP ENT
ADDI:;;;;;; Сложение чисел ;;;;;;;;;;;;;;;;;;;;;
        MOV     CX, 10              ; установить счетчик
        CLC
        LEA     SI, Opnd1+9         ; в SI занести адрес массива
        LEA     DI, Opnd2+9         ; в DI занести адрес массива
        LEA     BX, Res+10          ; в ВХ занести адрес массива
A3:     ;;;;;; начало цикла ;;;;;
        MOV     AL, [SI]            ; в АL занести текущий элемент
        ADC     AL, [DI]            ; вычитание
        AAA                         ; произвести десятичную коррекцию сложения
        MOV     [BX], AL
        DEC     SI                  ; уменьшить SI на единицу
        DEC     DI                  ; уменьшить DI на единицу
        DEC     BX                  ; уменьшить BX на единицу
        LOOP    A3                  ; проверка на конец цикла и переход по метке
        MOV     AL, 0
        ADC     AL, 0
        MOV     [BX], AL   
;;;;;;;;Преобразование результата в ASCII;;;;;;;;;
        MOV     CX, 11
;;;;; запрос на продолжение работы ;;;;;;;;;;;;;;;
ENT:
        OR      byte ptr [BX], 30h
        INC     BX                  ; увеличить BX на единицу
        LOOP    A2                  ; проверка на конец цикла и переход по метке
;;;;;;;;;;;;;;; Вывод результата ;;;;;;;;;;;;;;;;;
        LEA     DX, ResT            ; в DX занести адрес строки
        MOV     AH, 09h             ; в АН занести номер функции (вывод)
        INT     21h                 ; вызвать прерывание
        LEA     DX, AskCont         ; в DX занести адрес строки
        MOV     AH, 09h             ; в АH занести номер функции (вывод)
        INT     21h                 ; вызвать прерывание
        
        MOV     AH, 08h             ; в АН занести номер функции (ввод)
        INT     21h                 ; вызвать прерывание
        CMP     AL, 27              ; проверить на нажатие Esc
        JE      QUIT                ; была нажата Esc, завершить программу
        JMP     BEGIN               ; переход в начало программы
 
;Конец работы
QUIT:   EXITCODE  0                 ; вернуть в ОС код 0
        END                         ; конец программы

ФедосеевПавел · 19.04.2018, 21:03

Посмотрите в теме
https://www.cyberforum.ru/asse... 04621.html
При отрицательном результате проводится преобразование всех байтов результата.

Добавлено через 8 минут
И ещё здесь
http://www.i-assembler.ru/25/L... Les_08.htm

@cinekst_207 · 20.04.2018, 20:48 **[ТС]**

Assembler

;Сложение
 
mov CX, 10
 
clc
 
lea SI, Opnd1+9
 
lea DI, Opnd2+9
 
lea BX, Res+10
 
A1: mov AL, [SI]
 
adc AL, [DI]
 
aaa
 
mov [BX], AL
 
dec SI
 
dec DI
 
dec BX
 
loop A1
 
mov AL, 0
 
adc AL, 0
 
mov [BX], AL

Вот по данному примеру замутил сложение(если 1е число отрицательное, а второе пол., то должно при вычитании сложиться всё со знаком минус(-x-y = -(x+y)\или если 1е пол., а 2е отриц. тоже: x-(-y)=x+y) Но у меня выводит вот что:

ФедосеевПавел · 20.04.2018, 20:59

Мне кажется, что у чисел в формате BCD нет места для хранения знака. Это приводит к тому, что все они являются неотрицательными, беззнаковыми.

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

@cinekst_207 · 20.04.2018, 22:03 **[ТС]**

Так я знак в виде флага сохраняю и в CHECK проверяю какие знаки где находятся. У меня само сложение неправильное. 123+321=444, а у меня выдаёт 19999999198, а должно 00000000444. Код которыё я скинул(сложение) рабочий и нормально складывает неупакованные числа, я его, грубо говоря скопипастил в мой код, и тут перестало работать, почему? Не понимаю, вот и спрашиваю

. Я донёс суть вопроса ? XD

ФедосеевПавел · 20.04.2018, 22:10

Подозреваю, что в "источнике вдохновения кодом" порядок старших и младших байт разнится с таковым в вашей программе. Отсюда и иной ответ.

Добавлено через 1 минуту
Имеется в виду порядок старшинства байт во многобайтовом числе.

@cinekst_207 · 20.04.2018, 22:14 **[ТС]**

Assembler

model SMALL
 
stack 100h
 
dataseg
 
Ask1 db 0Ah,0Dh,'Введите первое слагаемое (не более 10 цифр):$'
 
Ask2 db 0Ah,0Dh,'Введите второе слагаемое (не более 10 цифр):$'
 
Buf1 db 11
 
Len1 db ?
 
Opnd1 db 12 dup( ? )
 
Buf2 db 11
 
Len2 db ?
 
Opnd2 db 12 dup( ? )
 
ResTdb 0Ah,0Dh,'Сумма'
 
Res db 12 dup(' '),'$'
 
AskContdb 0Ah,0Dh
 
db'Завершитьработу- Esc, продолжить – Любая клавиша'
 
db '$'
 
codeseg
 
startupcode
 
push DS
 
pop ES ; ES <- DS
 
BEGIN:
 
;Ввод первого слагаемого
 
B1: leaDX, Ask1
 
mov AH, 09h
 
int 21h
 
lea DX, Buf1
 
mov AH, 0Ah
 
int 21h
 
cmp Len1, 0
 
jeB1
 
;проверка 0-9 и очистка старш.тетрады
 
lea BX, Opnd1
 
xor CX, CX
 
mov CL, Len1
 
xor SI, SI
 
T1: mov AL, [BX][SI]
 
cmp AL, '0'
 
jbB1 ; ошибка
 
cmp AL, '9'
 
jaB1 ; ошибка
 
and AL, 0Fh
 
mov [BX][SI], AL
 
incSI
 
loopT1
 
;прижать к правому краю
 
mov CL, Len1
 
cmp CL, 10
 
je E1
 
mov DI, 9
 
mov SI, CX
 
dec SI
 
P1: mov AL, [BX][SI]
 
mov [BX][DI], AL
 
dec DI
 
dec SI
 
loopP1
 
;обнулитьлишнее
 
xor DI, DI
 
mov CL, 10
 
sub CL, Len1
 
N1: mov byte ptr [BX][DI], 0
 
inc DI
 
loopN1
 
E1:
 
;Ввод второго слагаемого
 
B2: leaDX, Ask2
 
mov AH, 09h
 
int 21h
 
lea DX, Buf2
 
mov AH, 0Ah
 
int 21h
 
cmp Len2, 0
 
jeB2
 
;проверка 0-9 и очистка старш.тетрады
 
lea BX, Opnd2
 
xor CX, CX
 
mov CL, Len2
 
xor SI, SI
 
T2: mov AL, [BX][SI]
 
cmp AL, '0'
 
jbB2 ; ошибка
 
cmp AL, '9'
 
jaB2 ; ошибка
 
and AL, 0Fh
 
mov [BX][SI], AL
 
incSI
 
loopT2
 
;прижать к правому краю
 
mov CL, Len2
 
cmp CL, 10
 
je E2
 
mov DI, 9
 
mov SI, CX
 
dec SI
 
P2: mov AL, [BX][SI]
 
mov [BX][DI], AL
 
dec DI
 
dec SI
 
loopP2
 
;обнулитьлишнее
 
xor DI, DI
 
mov CL, 10
 
sub CL, Len2
 
N2: mov byte ptr [BX][DI], 0
 
inc DI
 
loopN2
 
E2:
 
;Сложение
 
mov CX, 10
 
clc
 
lea SI, Opnd1+9
 
lea DI, Opnd2+9
 
lea BX, Res+10
 
A1: mov AL, [SI]
 
adc AL, [DI]
 
aaa
 
mov [BX], AL
 
dec SI
 
dec DI
 
dec BX
 
loop A1
 
mov AL, 0
 
adc AL, 0
 
mov [BX], AL
 
;Преобразование результата в ASCII
 
movCX, 11
 
A2: or byte ptr [BX], 30h
 
incBX
 
loopA2
 
;Вывод результата
 
lea DX, ResT
 
mov AH, 09h
 
int 21h
 
;Запрос на продолжение работы
 
lea DX, AskCont
 
mov AH, 09h
 
int 21h
 
mov AH, 08h
 
int 21h
 
cmp AL, 27 ;ESC
 
je QUIT
 
jmp BEGIN
 
;Конец работы
 
QUIT: exitcode 0
 
end

Присвоение и т.д. всё идентично моему началу

. Я вот уже 2 дня голову ломаю, что не так. Может минус оно не обнуляет и как-то криво записывает. Хотя тогда бы и с 2мя минусами бы не работало.... Не понимаю

ФедосеевПавел · 20.04.2018, 22:22

Сейчас уже плохо соображаю. Завтра посмотрю.

@cinekst_207 · 23.04.2018, 19:22 **[ТС]**

Я хз, просто беру и этот же код отдельно вставляю, и всё работает XD ошибок даже по обращению нет

Добавлено через 21 час 46 минут
Я нашёл проблему. Крч у меня в SI смещение сохраняется, а нужно, чтобы при минусе, смещение +1 было

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

А я знал, что спешить не нужно!

Если не трудно - опубликуйте итоговое решение.

@cinekst_207 · 23.04.2018, 20:50 **[ТС]**

Assembler

.model  SMALL
        STACK  100h
        DATASEG
;;;;;;;;;;;;;;;;; приглашение на ввод первого числа ;;;;;;;;;;;;;;
SEN_1    db 0Ah,0Dh,'1st NUM:$'
;;;;;;;;;;;;;;;;; приглашение на ввод второго числа ;;;;;;;;;;;;;;
SEN_2    db 0Ah,0Dh,'2nd NUM:$'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MINUS1   db 0
MINUS2   db 0
RESULT   db 0
BUF_1    db 11       
LEN_1    db ?                       ; длина 1 строки
Opnd1    db 12 dup( ? )             ; буфер 1 числа
BUF_2    db 11
LEN_2    db ?                       ; длина 2 строки
Opnd2    db 12 dup( ? )             ; буфер 2 числа
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;; приглашение на вывод результата ;;;;;;;;;;;;;;;;
ResT    db 0Ah,0Dh,'Differ: '
Res     db 12 dup(' '),'$' ; буфер результата
;;;;;;;;;;;;;;;;; запрос о продолжении работы ;;;;;;;;;;;;;;;;;;;;
AskCont db 0Ah,0Dh
        db 'Shut down - Esc, Continue - any key'
        db '$'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        CODESEG
        STARTUPCODE
        PUSH    DS
        POP     ES                  ; ES <- DS
 
BEGIN:
;;;;;;;; ввод первого числа ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
B1:     
        LEA     DX, SEN_1           ; в DX занести адрес строки
        MOV     AH, 09h             ; в АН занести номер функции (вывод)
        INT     21h                 ; вызов прерывания 
        LEA     DX, BUF_1           ; в DX занести адрес строки
        MOV     AH, 0Ah             ; в АН занести номер функции (ввод)
        INT     21h                 ; вызов прерывания
        CMP     LEN_1, 0            ; сравниваем длину строки с нулем
        JE      B1                  ; если равен нулю, то вводим заново
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; проверка 0-9 и очистка старшей тетрады ;;;;;;;;;;;;;;;;;;;;;;;
        LEA     BX, Opnd1           ; загружаем введённую строку в рег-р ВХ
        XOR     CX, CX              ; обнулить регистр CX
        MOV     CL, LEN_1           ; в СL занести длину строки
        XOR     SI, SI              ; обнулить регистр SI       
T1:   ;;;;; начало цикла ;;;;;;;;;  
        MOV     AL, [BX][SI]
        CMP     AL, '-'             ; сравнить с кодом минуса
        JZ      NEGA1               ; если да, то переход по метке
        CMP     AL, '0'             ; сравнить с кодом нуля
        JB      B1                  ; если ниже, ошибка
        CMP     AL, '9'             ; сравнить с кодом девятки
        JA      B1                  ; если выше, ошибка
        AND     AL, 0Fh             ; обнулить старшую тетраду (АL & 0000 1111)
        MOV     [BX][SI], AL        ; занести результат в массив
        INC     SI                  ; перейти к следующему элементу
        LOOP    T1                  ; проверка на конец цикла и переход на метку
        ;;;;; конец цикла ;;;;;;;;;;
;;;;;;;;;;;;; прижать к правому краю ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CL, LEN_1           ; в CL занести длину строки
        CMP     CL, 10              ; сравнить СL с 10
        JE      E1                  ; если равно, то перейти на метку
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     DI, 9               ; в DI занести смещение (адрес конца строки)
        CMP     MINUS1, 1           ; есть-ли минус в числе
        JB NO1                      ; если нет то переход по метке NO
        YES1:                       ; иначе число имеет знак минус
            ADD     CX, 1           ; прибавляем к CX 1(т.к. минус первый знак)
            MOV     SI, CX          ; в SI занести смещение (адрес первого разряда + 1)
            DEC     SI              ; уменьшить SI на единицу 
            JMP     P1
        NO1:
            MOV     SI, CX          ; в SI занести смещение (адрес первого разряда + 1)
            DEC     SI              ; уменьшить SI на единицу  
P1:      ;;;; начало цикла ;;;;;;;
        MOV     AL, [BX][SI]        ; в АL занести элемент массива
        MOV     [BX][DI], AL        ; поместить AL в правую часть массива
        DEC     DI                  ; уменьшить DI на единицу
        DEC     SI                  ; уменьшить SI на единицу
        LOOP    P1                  ; проверить на конец цикла и перейти по метке
        ;;;; конец цикла ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; обнулить лишнее ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        XOR     DI, DI              ; обнулить регистр DI
        MOV     CL, 10              ; занести в регистр СL значение 10
        SUB     CL, LEN_1           ; отнять от CL длину строки
N1:     ;;;;; начало цикла ;;;;;;
        MOV     byte ptr [BX][DI], 0; заменить на нуль
        INC     DI                  ; увеличить DI на единицу
        LOOP    N1                  ; проверить на конец цикла и перейти по метке
        ;;;;; конец цикла ;;;;;;;
        JMP E1
;;;;;;;;;;;; учитываем минус ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NEGA1:
        ADD MINUS1, 1               ; прибавим к операнду MINUS1 1
        SUB CL, 1                   ; уменьшаем CL
        SUB LEN_1, 1                ; уменьшаем длину строки
        INC SI                      ; увеличить SI на единицу
        JMP T1                      ; перейти по метке
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E1:
;;;;;;;;;;; ввод второго числа ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
B2:     LEA     DX, SEN_2           ; в DX занести адрес строки
        MOV     AH, 09h             ; в АН занести номер функции (вывод)
        INT     21h                 ; вызов прерывания
        LEA     DX, BUF_2           ; в DX занести адрес строки
        MOV     AH, 0Ah             ; в АН занести номер функции (ввод)
        INT     21h                 ; вызов прерывания
        CMP     LEN_2, 0            ; сравниваем длину строки с нулем
        JE      B2                  ; если равен нулю, то вводим заново
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; проверка 0-9 и очистка старшей тетерады ;;;;;;;;;;;;;;;;;;;
        LEA     BX, Opnd2
        XOR     CX, CX              ; обнулить регистр CX
        MOV     CL, LEN_2           ; в СL занести длину строки
        XOR     SI, SI              ; обнулить регистр SI
T2:     
        MOV     AL, [BX][SI]
        CMP     AL, '-'             ; сравнить с кодом минуса
        JZ      NEGA2               ; если да, то переход по метке
        CMP     AL, '0'             ; сравнить с кодом нуля
        JB      B2                  ; если ниже, ошибка 
        CMP     AL, '9'             ; сравнить с кодом девятки
        JA      B2                  ; если выше, ошибка
        AND     AL, 0Fh             ; обнулить старшую тетраду (АL & 0000 1111)
        MOV     [BX][SI], AL        ; занести результат в массив
        INC     SI                  ; перейти к следующему элементу
        LOOP    T2                  ; проверка на конец цикла и переход на метку
        ;;;;; конец цикла ;;;;;;;;;;        
;;;;;;;;;;;;; прижать к правому краю ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CL, LEN_2           ; в CL занести длину строки
        CMP     CL, 10              ; сравнить СL с 10
        JE      CHECKPOINT          ; если равно, то перейти на метку 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
        MOV     CL, LEN_1           ; в CL занести длину строки
        CMP     CL, 10              ; сравнить СL с 10
        JE      E1                  ; если равно, то перейти на метку
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     DI, 9               ; в DI занести смещение (адрес конца строки)
        CMP     MINUS2, 1           ; есть-ли минус в числе
        JB NO2                      ; если нет то переход по метке NO
        YES2:                       ; иначе число имеет знак минус
            ADD     CX, 1           ; прибавляем к CX 1(т.к. минус первый знак)
            MOV     SI, CX          ; в SI занести смещение (адрес первого разряда + 1)
            DEC     SI              ; уменьшить SI на единицу 
            JMP     P2
        NO2:
            MOV     SI, CX          ; в SI занести смещение (адрес первого разряда + 1)
            DEC     SI              ; уменьшить SI на единицу 
P2:     ;;;; начало цикла ;;;;;;;
        MOV     AL, [BX][SI]        ; в АL занести элемент массива
        MOV     [BX][DI], AL        ; поместить AL в правую часть массива
        DEC     DI                  ; уменьшить DI на единицу
        DEC     SI                  ; уменьшить SI на единицу
        LOOP    P2                  ; проверить на конец цикла и перейти по метке
;;;; конец цикла ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; обнулить лишнее ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        XOR     DI, DI              ; обнулить регистр DI
        MOV     CL, 10              ; занести в регистр СL значение 10
        SUB     CL, LEN_2           ; отнять от CL длину строки
N2:     ;;;;; начало цикла ;;;;;; 
        MOV     byte ptr [BX][DI], 0; заменить на нуль
        INC     DI                  ; увеличить DI на единицу
        LOOP    N2                  ; проверить на конец цикла и перейти по метке
        ;;;;; конец цикла ;;;;;;;
        JMP CHECKPOINT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;; учитываем минус ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NEGA2:
        ADD  MINUS2, 1              ; прибавим к операнду MINUS2 1
        SUB  CL, 1                  ; уменьшаем длину строки
        SUB LEN_2, 1                ; уменьшаем длину строки
        INC  SI                     ; увеличить SI на единицу
        JMP T2                      ; перейти по метке
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; Определяем операцию с учётом минуса ;;;;;;;;;;;;;;;;;;;;;;;;
CHECKPOINT:
        MOV  BL, MINUS1             ; заносим указатель на минус в рег-р ВL
        MOV  AL, MINUS2             ; заносим указатель на минус в рег-р AL
        CMP  BL, 0                  ; сравниваем BL с 0
        JNZ  CHECK2                 ; если они не равны, то переход на метку ЧЕК2
;;;;;; Если первый операнд без знака минус ;;;;;;;;;;;;;;;;;;;;;;;
        CHECK1:
            CMP AL, 0               ; сравниваем AL с 0
            JZ  SUBM1               ; если 0, то вычитание операндов (1 - 2)
            JNZ ADDI                ; если же 1, то сложение операндов
;;;;;; Если первый операнд со знаком минус ;;;;;;;;;;;;;;;;;;;;;;;
        CHECK2:
            CMP AL, 0               ; сравниваем AL c 0
            JZ  ADDI                ; если 0, то сложение операндов
            JNZ SUBM2               ; если же 1, то вычитание операндов (2 - 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SUBM1:;;;;; Вычитание чисел (1 - 2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CX, 10              ; установить счетчик
        CLC
        LEA     SI, Opnd1+9         ; в SI занести адрес массива
        LEA     DI, Opnd2+9         ; в DI занести адрес массива
        LEA     BX, Res+10          ; в ВХ занести адрес массива
A1:     ;;;;;; начало цикла ;;;;;
        MOV     AL, [SI]            ; в АL занести текущий элемент
        SBB     AL, [DI]            ; вычитание
        AAS                         ; произвести десятичную коррекцию вычитания
        MOV     [BX], AL
        DEC     SI                  ; уменьшить SI на единицу
        DEC     DI                  ; уменьшить DI на единицу
        DEC     BX                  ; уменьшить BX на единицу
        LOOP    A1                  ; проверка на конец цикла и переход по метке
        MOV     AL, 0
        ADC     AL, 0
        MOV     [BX], AL   
;;;;;;;;Преобразование результата в ASCII;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CX, 11
        JMP ENT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SUBM2:;;;;; Вычитание чисел (2 - 1) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CX, 10              ; установить счетчик
        CLC
        LEA     SI, Opnd1+9         ; в SI занести адрес массива
        LEA     DI, Opnd2+9         ; в DI занести адрес массива
        LEA     BX, Res+10          ; в ВХ занести адрес массива
A2:     ;;;;;; начало цикла ;;;;;
        MOV     AL, [DI]            ; в АL занести текущий элемент
        SBB     AL, [SI]            ; вычитание
        AAS                         ; произвести десятичную коррекцию вычитания
        MOV     [BX], AL
        DEC     SI                  ; уменьшить SI на единицу
        DEC     DI                  ; уменьшить DI на единицу
        DEC     BX                  ; уменьшить BX на единицу
        LOOP    A2                  ; проверка на конец цикла и переход по метке
        MOV     AL, 0
        ADC     AL, 0
        MOV     [BX], AL   
;;;;;;;;Преобразование результата в ASCII;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CX, 11
        JMP ENT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ADDI:;;;;;; Сложение чисел ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CX, 10              ; установить счетчик
        CLC
        LEA     SI, Opnd1+9         ; в SI занести адрес массива
        LEA     DI, Opnd2+9         ; в DI занести адрес массива
        LEA     BX, Res+10          ; в ВХ занести адрес массива
A3:     ;;;;;; начало цикла ;;;;;
        MOV     AL, [SI]            ; в АL занести текущий элемент
        ADC     AL, [DI]            ; вычитание
        AAA                         ; произвести десятичную коррекцию сложения
        MOV     [BX], AL
        DEC     SI                  ; уменьшить SI на единицу
        DEC     DI                  ; уменьшить DI на единицу
        DEC     BX                  ; уменьшить BX на единицу
        LOOP    A3                  ; проверка на конец цикла и переход по метке
        MOV     AL, 0
        ADC     AL, 0
        MOV     [BX], AL   
;;;;;;;;Преобразование результата в ASCII;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     CX, 11
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; запрос на продолжение работы ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ENT:
        OR      byte ptr [BX], 30h
        INC     BX                  ; увеличить BX на единицу
        LOOP    ENT                 ; проверка на конец цикла и переход по метке
;;;;;;;;;;;;;;; Вывод результата ;;;;;;;;;;;;;;;;;
        LEA     DX, ResT            ; в DX занести адрес строки
        MOV     AH, 09h             ; в АН занести номер функции (вывод)
        INT     21h                 ; вызвать прерывание
        LEA     DX, AskCont         ; в DX занести адрес строки
        MOV     AH, 09h             ; в АH занести номер функции (вывод)
        INT     21h                 ; вызвать прерывание
        
        MOV     AH, 08h             ; в АН занести номер функции (ввод)
        INT     21h                 ; вызвать прерывание
        CMP     AL, 27              ; проверить на нажатие Esc
        JE      QUIT                ; была нажата Esc, завершить программу
        JMP     BEGIN               ; переход в начало программы
 
;Конец работы
QUIT:   EXITCODE  0                 ; вернуть в ОС код 0
        END                         ; конец программы

Последняя проблема осталась XD, -12345-123=-12468, а у меня 12775 в проге -_-

Добавлено через 6 минут
а при 12345 и -123 = 12777

капец, ну что не так

Добавлено через 40 минут
Запутался уже в этой проге, туча перемен в коде, уже не понимаю что менять. Я так понимаю, ошибка в SI и в DI, но как с ними иначе работать, если знак минуса надо учитывать =/

ФедосеевПавел Модератор 8276 / 4180 / 1595 Регистрация: 01.02.2015 Сообщений: 12,997 Записей в блоге: 3
	19.04.2018, 21:03	2
	Посмотрите в теме https://www.cyberforum.ru/asse... 04621.html При отрицательном результате проводится преобразование всех байтов результата. Добавлено через 8 минут И ещё здесь http://www.i-assembler.ru/25/L... Les_08.htm 0

ФедосеевПавел Модератор 8276 / 4180 / 1595 Регистрация: 01.02.2015 Сообщений: 12,997 Записей в блоге: 3
	20.04.2018, 20:59	4
	Мне кажется, что у чисел в формате BCD нет места для хранения знака. Это приводит к тому, что все они являются неотрицательными, беззнаковыми. Т.е. нужно выделить отдельный байт для хранения знака. А при операциях учитывать этот знак. Также, в примерах по ссылке был фрагмент кода, в котором проверялся знак результата и при отрицательном значении выполнялось преобразование всего многозначного числа. 0

@cinekst_207 7 / 7 / 5 Регистрация: 25.03.2018 Сообщений: 377
	20.04.2018, 22:03 [ТС]	5
	Так я знак в виде флага сохраняю и в CHECK проверяю какие знаки где находятся. У меня само сложение неправильное. 123+321=444, а у меня выдаёт 19999999198, а должно 00000000444. Код которыё я скинул(сложение) рабочий и нормально складывает неупакованные числа, я его, грубо говоря скопипастил в мой код, и тут перестало работать, почему? Не понимаю, вот и спрашиваю . Я донёс суть вопроса ? XD 0

ФедосеевПавел Модератор 8276 / 4180 / 1595 Регистрация: 01.02.2015 Сообщений: 12,997 Записей в блоге: 3
	20.04.2018, 22:10	6
	Подозреваю, что в "источнике вдохновения кодом" порядок старших и младших байт разнится с таковым в вашей программе. Отсюда и иной ответ. Добавлено через 1 минуту Имеется в виду порядок старшинства байт во многобайтовом числе. 0

ФедосеевПавел Модератор 8276 / 4180 / 1595 Регистрация: 01.02.2015 Сообщений: 12,997 Записей в блоге: 3
	20.04.2018, 22:22	8
	Сейчас уже плохо соображаю. Завтра посмотрю. 0

@cinekst_207 7 / 7 / 5 Регистрация: 25.03.2018 Сообщений: 377
	23.04.2018, 19:22 [ТС]	9
	Сообщение было отмечено ФедосеевПавел как решение Решение Я хз, просто беру и этот же код отдельно вставляю, и всё работает XD ошибок даже по обращению нет Добавлено через 21 час 46 минут Я нашёл проблему. Крч у меня в SI смещение сохраняется, а нужно, чтобы при минусе, смещение +1 было 0

ФедосеевПавел Модератор 8276 / 4180 / 1595 Регистрация: 01.02.2015 Сообщений: 12,997 Записей в блоге: 3
	23.04.2018, 19:47	10
	А я знал, что спешить не нужно! Если не трудно - опубликуйте итоговое решение. 0

Опции темы

Вычитание чисел в формате BCD

Решение