VPF::[Assembler] Умножение чисел - Форум программистов

DarkcKatana

Дата 1.11.2006, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 1.11.2006
Где: Кремень(Украина)

Репутация: нет
Всего: нет

Народ нухна помощь в Асме. Так как я недавнишний человек в ассемблере. Можно сказать что я еще нахожусь в зародыше.
Есть задача такого типа:

1. Запрашивает 2 числа в 2 - му виде в диапазоне от 0 до 255, множит их и выводит на экран результат в 16 - му виде

Есть код:

Код


title Lb1

model small

stack 100h

.data
    
    DigitMax db 6
    StrLen db ?
    DigitStr db 5 dup (?)
    InputMessage db "Vvedite chislo $"
    Power dw 1
    ten dw 10    
.code

    start:
    mov ax, @data
    mov ds, ax
    
    mov ax, 3
    int 10h
    
    mov ah, 9
    lea dx, InputMessage
    int 21h
    
    lea dx, DigitMax
    mov ah, 0Ah
    int 21h
    
    xor ax, ax
    
    mov bx, dx
    
    xor cx, cx
    
    mov cl, [bx+1]
    
    add bx,cx
    inc bx
    
    xor si, si
    
m:    mov al, [bx]
    cbw
    and ax, 0Fh
    mul word ptr Power
    
    add si, ax
    
    
    mov ax, Power
    mul ten
    mov Power, ax
    dec bx
    loop m
        
    mov Ah, 04Ch
    int 21h
    end start

Что в этом коде надо изменить для того чтобы он работал коректно?

anwe

Дата 1.11.2006, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

Цитата

1. Запрашивает 2 числа в 2 - му виде в диапазоне от 0 до 255, множит их и выводит на экран результат в 16 - му виде

Как этот понимать? Ты, хотьт сам понял что написал?
Может так: запрашивает 2 числа в двоичном виде в диапазоне от 0 до 255, множит их и выводит на экран результат в 16-ричном виде?

DarkcKatana

Дата 1.11.2006, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Да. Просто с переводом проблемка. Книжка на Укр.
Что можно зделать или изменить чтобы выполнялось это условие?

anwe

Дата 2.11.2006, 01:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

О-о, так тут еще корректировать и корректировать (вернее добавлять).
1. Надо ввести второе число.
2. Надо проверить правильность их ввода.
3. Перемножить.
4. Перевести в 16-ричное.
5. Вывести. smile

Самое сложно здесь для тебя - это пункт 4.
Для примера я сделал десятичное в 16-ричное. Для двоичного додумаешь сам и проверку додумаешь сам.
Пример:

Код


.model tiny
.code
org 100h
start:    
mov    dx,offset message1
mov    ah,9
int    21h
mov    dx,offset buffer
mov    ah,0Ah
int    21h
mov    dx,offset crlf
mov    ah,9
int    21h
xor    di,di
xor    ax,ax
mov    cl,blength
xor    ch,ch
xor    bx,bx
mov    si,cx
mov    cl,10
asc:
mov    bl,byte ptr bcontents[di]
sub    bl,'0'
jb    asc_error
cmp    bl,9
ja    asc_error
mul    cx
add    ax,bx
inc    di
cmp    di,si
jb    asc
push    ax
mov    ah,9
mov    dx,offset message2
int    21h
pop    ax
push    ax
xchg    ah,al
call    print_all
pop    ax
call    print_all
mov    dx,offset crlf
mov    ah,9
int    21h
mov    dx,offset message3
mov    ah,9
int    21h
key:
mov    ah,8h
int    21h
cmp    al,'y'
je    y
cmp    al,'n'
je    n
jmp    key
y:
mov    dx,offset message4
mov    ah,9
int    21h
jmp    start
n:
mov    dx,' '
mov    ah,2
int    21h
mov    dx,'N'
int    21h
ret
asc_error:
mov    dx,offset err_msg
mov    ah,9
int    21h
ret
print_all:
mov    dh,al
and    dh,0Fh
shr    al,4
call    print_n
mov    al,dh
print_n:
cmp    al,10
sbb    al,69h
das
mov    dl,al
mov    ah,2
int    21h
ret

message1    db    "Dec count:",'$'
message2    db    "Hex count:$"
message3    db    "Continue? [Y,N]$"
message4    db    " Y"
crlf    db    0Dh,0Ah,'$'
err_msg    db    "Error input$"
buffer    db    6
blength    db    ?
bcontents:
    end start

P.S. Это com-файл! Имей ввиду при компиляции.

DarkcKatana

Дата 2.11.2006, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Вот спасибо за помощь

sergejzr

Дата 19.11.2006, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »