Программа ввода с клавиатуры двух цифр в десятичной системе счисления, вычисления их произведения и вывода двоичного пре

include windows.inc
include kernel32.inc
include masm32.inc
 
include C:\MASM32\MACROS\strings.mac 
 
includelib  kernel32.lib
includelib  masm32.lib
 
Main      PROTO
 
CorectLine  PROTO STDCALL :LPCSTR
StrToDec    PROTO STDCALL :LPCSTR 
DecToStrBin PROTO STDCALL :DWORD, :LPCSTR

.386
.model flat, stdcall
option casemap:none
include for_pr.Inc
.data
    A       BYTE    16 dup(0)
    B       BYTE    16 dup(0)
    Buff    BYTE    34 dup(0)
.code
 
start:
    invoke Main
    invoke ExitProcess,0
Main proc
    
    invoke StdOut,$CTA0("Input A(WORD): ")
    invoke StdIn, ADDR A, 16
    invoke StdOut,$CTA0("Input B(WORD): ")
    invoke StdIn, ADDR B, 16
    
    invoke CorectLine, ADDR A
    invoke CorectLine, ADDR B
    
    invoke StrToDec, addr A
    mov ebx, eax
    
    invoke StrToDec, addr B
    
    mul bx
    push dx
    push ax
    pop eax
    
    invoke DecToStrBin, eax, ADDR Buff
    invoke StdOut,$CTA0("Result : ")
    
    lea edi, Buff
    mov al, '1'
    repnz scasb
    dec edi
    
    invoke StdOut,edi
    
    invoke StdIn,ADDR Buff,LENGTHOF Buff
    ret
Main endp
 
StrToDec    PROC STDCALL uses esi ebx, lpStr :LPCSTR 
    mov esi, lpStr
    xor ebx, ebx
    xor eax, eax
@@:
    lodsb
    or al, al
    jz @F
    and eax, 0Fh
    lea ebx, [ebx + ebx * 4]
    add ebx, ebx
    add ebx, eax
    jmp @B
@@:
    mov eax, ebx
 
    ret
StrToDec ENDP
 
DecToStrBin PROC STDCALL uses edi ebx, Num :DWORD, Buffer :LPCSTR
    mov ebx, Num
    mov edi, Buffer
    
    mov ecx, 32
@@: 
    rol ebx,1
    setc al
    or al,30h
    stosb
loop @B
    mov ax,'b'
    stosw   
    ret
DecToStrBin ENDP
 
CorectLine  PROC STDCALL uses edi, lpStr :LPCSTR
 
    mov al, 0Dh
    mov edi, lpStr
    mov ecx, -1
    repnz scasb
    mov byte ptr[edi-1], 0
    
    ret
CorectLine ENDP
 
end start

CSEG segment
org 100h
start:
mov ah,9
mov dx,offset string
int 21h
mov ah,10h
int 16h
int 20h
string db "Hello $"
CSEG ends
end start

CSEG segment
org 100h
 
start:
 
;msg 1
mov dx, offset mess1
mov ah, 9
int 21h
 
;get first char from keyboard
mov bx, 0
mov ah, 1
int 21h
and al, 0fh
mov ah,0
add bl,al
 
;mess2
mov dx, offset mess2
mov ah, 9
int 21h
 
;get second char from keyboard
mov ah, 1
int 21h
and al, 0fh
mul bl
mov bl,al
 
;propysk stroki
mov ah, 02h
mov dl, 0Dh
int 21h
mov dl, 0Ah
int 21h
 
;mess3
mov dx, offset mess3
mov ah, 9
int 21h
 
mov cx, 8
print: mov ah, 2   ; print function.
       mov dl, '0'
       test bl, 10000000b  ; test first bit.
       jz zero
       mov dl, '1'
zero:  int 21h
       shl bl, 1
loop print
 
 
;binarnii simvol
mov dl, 'b'
int 21h
 
mov dx, offset mess4
mov ah, 9
int 21h
 
; wait for any key press:
mov ah, 0
int 16h
 
ret
 
mess1 db 0Dh,0Ah, 'BBeDuTe nepBoe 4ucJlo: $'
mess2 db 0Dh,0Ah, 'BBeDuTe BTopoe 4ucJlo: $'
mess3 db 0Dh,0Ah, 'TTpou3BeDeHue: $'
mess4 db 0Dh,0Ah, 'TTo3DpaBJl9I0! nepeBoD BblnoJlHeH!$'
 
CSEG ends
end start