Помощь - Поиск - Пользователи - Календарь
Полная версия: Арифметические операции
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ассемблер
dron4ik
Привет. Программа вычисляет правильно,но не могу вывести на экран результат..помогите кто знает...пожалуйста
Число, находящееся в регистре AX, необходимо представить по основанию BX [2; 36] в виде остатков и вывести результат на экран в коде"36" с помощью int 21h $.

MySegment Segment 'code'
assume CS:MySegment,SS:MySegment,DS:MySegment,ES:MySegment
org 100h

Main Proc

mov ax,word ptr Source
mov bx,word ptr Base

mov di,8
division:
xor dx,dx
div bx
dec di
mov str1[di],dl
cmp ax,0
jnz division

mov ax,4C00h
int 21h

Main EndP
Base DW 13
Source DW 256
str1 db 8 dup(0)
; результат после выполнения:ВОТ ЭТОТ РЕЗУЛЬТАТ НАДО ВЫВЕСТИ НА ЭКРАН
; 00 00 00 00 00 01 06 09

MySegment EndS
End Main


Та же проблема с выводом на экран результата..
Прога делает следующее:Программа решает задачу, обратную к той, что решалась в программе которая находится выше: дана строка остатков в DS:SI и основание BX [2; 36]. Получить число в AX и вывести результат на экран в коде"36" с помощью int 21h $.
MySegment Segment 'code'
assume CS:MySegment,SS:MySegment,DS:MySegment,ES:MySegment
org 100h
Main Proc

mov bx,word ptr Base
xor ax,ax
xor cx,cx

lea si,str1
mov cl,len
work:
mul bl
add al,[si]
jnc normal
inc ah
normal:
inc si
loop work

; AX = 0100h

mov ax,4C00h
int 21h
Main EndP
Base DW 13
str1 db 1,6,9
len db $-str1
MySegment EndS
End Main
Client
mov	dl,s ; тут то что надо вывести, правда с числами кажется не то выводит
int 21h
Вроде то
dron4ik
спасибо!. А где это исправить?
volvo
На кой тебе строка тут?

Main Proc
mov ax,256
mov bx,13

mov cx, 0
division:
xor dx,dx
div bx
push dx
inc cx
cmp ax, 0
jnz division

print_res:
pop ax
cmp ax, 10
jb digit
sub ax, 10
add ax, 'A'
digit:
add ax, '0'
int 29h
loop print_res

mov ax,4C00h
int 21h
Main EndP
dron4ik
Спасибо.а как вывести резулт на экран?

Добавлено через 2 мин.
что за 29-ое прерывание?мы такое еще не проходили..
volvo
Цитата
Спасибо.а как вывести резулт на экран?
Может, ты сначала запустишь программу, а потом вопросы задавать будешь?

Добавлено через 43 сек.
Цитата
что за 29-ое прерывание?мы такое еще не проходили..
Пользуйся теми, которые проходили... Я не телепат, чтобы знать, кто что проходил, а кто - нет.
dron4ik
не работает((
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.