Ввести числа и вычислить значение выражения. Выдать результат. (Нужны подробные комментарии по коду программы)

[olo]

.model small 
.data 
mesInputA db "Vvedite A(ot 0 do 255): $"
mesInputB db "Vvedite B(ot 0 do 255): $"
	binA db "A v binarnom: $"
	binB db "B v binarnom: $"
	inErr db "Owibka vvoda!! Vvedite zanovo: $"
	AsubB db "A - B = $"
	rez db "C = (A - B)*4 = $"
	rezSdvig db "C = (A - B)*4  > 3 = $"
	.stack 
	db 256 dup("?")
	.code 
	coutStr macro a
	push ax
	push dx
	mov ah, 9
	mov dx, offset a
	int 21h
	pop dx
	pop ax
	endm
	;--------------------------------------------
	cinChar macro		
	mov ah, 1h			
	int 21h
	sub al, 30h			
endm				
;------------------------------------------------
endl macro				
	push ax 			
	push dx				 
	mov ah, 2			
	mov dx, 10			
	int 21h
	pop dx				
	pop ax				
endm
;---------------------------------------------------------
print proc				
	push cx
	push bx
	push dx
	mov bx, ax
	push ax
	mov cx, 16			
cicl:
	xor dx, dx			
	sal bx, 1			
	adc dl, 30h			
	mov ah, 2			
	int 21h 			
	loop cicl														
	pop ax
	pop dx
	pop bx
	pop cx
	ret 				
endp
;---------------------------------------------------------
input macro
	local startErr, start, m1, m2 
	jmp	start	
startErr:
	endl
	coutStr inErr
start:
	mov cx, 3       
	xor dx, dx
m1:					
	xor ax, ax		
	cinChar 		
	cmp al, 9		
	ja m2			
	xor bx, bx		
	mov bl, al		
	xor ax, ax		
	mov al, dl		
	xor dx, dx		
	mov dl, 10
	mul dl			
	cmp ah,0		
	ja  startErr		
	xor dx, dx
	mov dl, al			
	add dx, bx			
	cmp dh, 0			   
	ja startErr			
	loop m1
m2:

endm
;---------------------------------------------------------
calc proc				
	sub ax, dx			
	endl
	coutStr AsubB		 
	call print			
	shl ax, 2	
	endl
	coutStr rez	 
	call print  
	ror ax, 3	 
	ret 
endp
;---------------------------------------------------------
vyvod proc			
	endl
	coutStr rezSdvig
	call print
	ret
	
endp
;---------------------------------------------------------
main proc
	mov ax, @data 	
					
	mov ds, ax		
	xor ax, ax		
	
	coutStr mesInputA	
	input				
	mov ax, dx			
	endl				
	coutStr binA		
	call print			            
	push ax 			
	
	endl
	coutStr mesInputB	
	input				
	mov ax, dx			
	endl				
	coutStr binB		
	call print			
	push ax 			
	
	pop dx				
	pop ax				
	call calc			
	call vyvod
	
	
	mov AH, 08h			
	int 21h				
						
	mov AX, 4c00h		 
						
	int 21h				


main endp

end main

___________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


Не забывайте об этом!
Модератор.

[olo]

Пользователь вводит два числа А и В в десятичном виде. Программа должна:
1. Посчитать С=(А-В)*4.
2. Выполнить циклический сдвиг полученного числа С на 3 бита вправо.
3. Вывести на экран число С и все промежуточные результаты в двоичном виде.