Доброго всем времени суток!!
Я В асме хуже ламера так что прошу помочь
Задача:
Пользователь вводит два числа А и В в десятичном виде через макрос. Программа должна:
1. Посчитать С=А/2+В. Установить все нечетные биты С. Расчет должен быть выполнен с использованием процедуры с переда-чей параметров через директивы.
2. Вывести на экран число С и все промежуточные числа в дво-ичном виде, с использованием макроса.
Надыбал небольшенький код, но разобраться в нем никак не могу, подскажите пожалуйста чаго в нем поменять а чаго оставить, и вообщето че тама вообще написано 
| Код |
input macro
;Макрос ввода двух чисел в десятичном виде
mov bl, 0 ; нам нужен для второго числа, обнуляем
lea dx, str1 ;выводм запрос на первое число
mov ah, 9 ;нажатие клавиши
int 21h
l1:
mov ah, 1
int 21h
cmp al, 13
je l2
sub al, 30h
cmp al, 9
jle l3
sub al, 7
cmp al, 15
jle l3
sub al, 20h
jmp l3
l2:
cmp bl, 1
je l4
inc bl
mov ch, cl
xor cl, cl
lea dx, el
mov ah, 9
int 21h
lea dx, str2
int 21h
jmp l1
l3:
shl cl, 4
add cl, al
jmp l1
l4:
endm
outn macro n
lea dx, el
mov ah, 9
int 21h
lea dx, str3
int 21h
mov cx, 16
xor dl, dl
o1:
rol n, 1
adc dl, 30h
mov ah, 2
int 21h
xor dl, dl
loop o1
endm
calc macro
mov res, eax
mov bx, cx
sub cl, 5h
mov al, 2
mul cl
add al, ch
xor cx, cx
test al, 00010000b
jnz c1
mov cl, bl
jmp e
c1:
mov cl, bh
e:
endm
dseg segment
str1 db 'A = $'
str2 db 'B = $'
str3 db 'C = A/2 + B = $'
el db 10, 13, '$'
dseg ends
sseg segment stack
db 60 dup (?)
sseg ends
cseg segment
assume cs:cseg, ds:dseg, ss:sseg
main proc
mov ax, dseg
mov ds, ax
input
calc
mov bx, cx
outn bx
mov ah, 4ch
int 21h
main endp
cseg ends
end main
|
|
короче. И не надо просьбу строить из заумных слов, а то люди не понимают в чем концепция вопроса
