библиотека на масм32 для программ высокого уровня

.386
.model flat, stdcall
option  casemap:none     
 
include ..\INCLUDE\windows.inc             
include ..\INCLUDE\comctl32.inc
include ..\INCLUDE\Fpu.inc
include ..\INCLUDE\user32.inc
include ..\INCLUDE\kernel32.inc                         
includelib ..\LIB\comctl32.lib       
includelib ..\LIB\Fpu.lib
includelib ..\LIB\user32.lib
includelib ..\LIB\kernel32.lib
 
ExitProcess proto :DWORD
GetStdHandle proto :DWORD
WriteConsoleA proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD 
ReadConsoleA proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
 
.stack 256
.data
STD_INPUT_HANDLE    equ -10 ;winbase.h
STD_OUTPUT_HANDLE   equ -11
 
 
stdout dd ?
stdin dd ?
ten db 10                           ;константа 10
numsize equ 5                       ;константа просто так
cWritten dd ?                       ;хз, зачем-то нужно для Read/Write Console'ей
one equ 1                           ;адын111!!!11
errorsub db "substraction error", 0dh, 0ah      
 
number dd 5 dup (0)                 ;ЧТОБЫ ЗАДЕРЖАТЬ КОНСОЛЬ В КОНЦЕ
final db 251 dup (0)                ;МАССИВ, В КОТОРЫЙ БУДЕТ ЗАПИСЫВАТЬСЯ РЕЗУЛЬТАТ СЛОЖЕНИЯ(а в последствии и остальных действий. Размер выбран в 2 с хером раза больше чем, размер массивов, в которые будут записваться исходные числа)
num1 db 100 dup (?)                 ;МАССИВ, В КОТ. БУДЕТ ЗАПИСЫВАТЬСЯ 1-Е ЧИСЛО
num2 db 100 dup (?)                 ;МАССИВ, В КОТ. БУДЕТ ЗАПИСЫВАТЬСЯ 2-Е ЧИСЛО
n1 dd ?                             ;Количество разрядов 1-го числа(в принципе, переменная не нужна)
n2 dd ?                             ;Количество разрядов 2-го числа(тоже пока не нужна)
letter db ?                         ;В эту переменную будем загонять символ и посимвольно выводить результат(массив final)
full db ?                           ;Флаг переполнения разряда
ca dd ?                             ;Вычитание. Если число разрядов одинаковое
sign db ?
h dd ?
 
.code
start:
invoke GetStdHandle, STD_OUTPUT_HANDLE 
    mov stdout, eax
invoke GetStdHandle, STD_INPUT_HANDLE 
    mov stdin, eax
    
;============СЧИТЫВАЕМ 1-Е ЧИСЛО============
 
    invoke ReadConsoleA, stdin, ADDR num1, sizeof num1, ADDR cWritten, 0
    xor eax, eax
    xor edx, edx
    xor ecx, ecx
    xor ebx, ebx
    
;============СЧИТЫВАЕМ 2-Е ЧИСЛО============
    
    invoke ReadConsoleA, stdin, ADDR num2, sizeof num2, ADDR cWritten, 0
    xor eax, eax
    xor edx, edx
    xor ecx, ecx
    xor ebx, ebx
 
;============СЧИТЫВАЕМ ЗНАК ОПЕРАЦИИ============
    
    invoke ReadConsoleA, stdin, ADDR sign, sizeof sign, ADDR cWritten, 0
    xor eax, eax
    xor edx, edx
    xor ecx, ecx
    xor ebx, ebx
;_________________________________________________________________________
;||                                                                      ||
;||                         Считаем количество разрядов                     ||
;||                             в 1-м числе                               ||
;||                 Результат заносим в n1 и в регистр eax                 ||
;||______________________________________________________________________||
;
count1:
    mov dl, num1[eax]
    cmp dl, 0dh                             
    je after_count1                     
    inc eax
    jne count1  
    
after_count1:
    dec eax
    mov n1, eax
 
    mov ebx,0
 
;_________________________________________________________________________
;||                                                                      ||
;||                         Считаем количество разрядов                     ||
;||                             во 2-м числе                             ||
;||                 Результат заносим в n2 и в регистр ebx                 ||
;||______________________________________________________________________||
;
count2:
    mov dl, num2[ebx]
    cmp dl, 0dh                             
    je after_count2                     
    inc ebx
    jne count2  
    
after_count2:
    dec ebx
    mov n2,ebx
    
; ________________________________________________________________________
;||                                                                      ||
;||                                                                      ||
;||                         Подсчет разрядов закончен.                    ||
;||                         Число разрядов 1-го числа - n1               ||
;||                         Число разрядов 2-го числа - n2               ||
;||______________________________________________________________________||
;   
    
 
    mov cl,0
    mov full,cl
    xor ecx,ecx
    
    mov edx, 250                    ;Размер массива 251. Не берем в счет 0-ю ячейку, зарезервированную на случаю доп.разряда от флага
    push edx                        ;Записывать будем с конца
    
    cmp sign, 2dh
    je subtraction
    
;__________________________________________________________________________________________
;||                                                                                       ||
;||                         СУММИРОВАНИЕ                                                  ||
;||        Сначала занулим флаг переполнения разряда                                     ||
;||     Алгоритм: суммирование координат векторов.     Зная количество разрядов каждого     ||
;||     числа идем(по eax, для 1-го числа, и ebx - для 2-го) от младших разрядов          ||
;||     к старшим.                                                                        ||
;||_______________________________________________________________________________________||
 
 
 
 
summ:
    mov cl, num1[eax]
    mov dl, num2[ebx]
    sub cl,30h                      ;Символ в цифру
    sub dl,30h                      ;Символ в цифру
    add cl, dl
    add cl, full
    xor edx, edx
    mov full,dl
    
    cmp cl, ten                 ;Проверяем, происходит ли переполнение разряда
    jl not_over                 ;Если произошло - меняем флаг на 1, и cl -= 10
    sub cl, ten
    inc full
not_over:
    pop edx
    add cl,30h                  ;Цифра в символ
    mov final[edx], cl          ;Записываем результат в массив final с конца(т.к. идем от младшего разряда, а выводить удобнее от старшего)
    dec edx
    push edx
    
    cmp eax,0                   ;Если разряды в первом числе закончились - переходим только ко второму числу.
    je summ2                    ;В котором тупо прибавляем единицу от флага(если есть) и переписываем остатки числа в массив final
    
    cmp ebx,0                   ;Аналогично для 2-го числа
    je summ1
    
    dec eax
    dec ebx
    
    jmp summ
 
summ1:
    dec eax
    xor ecx,ecx
    mov cl,num1[eax]
    sub cl,30h
    add cl,full
    mov dl,0
    mov full,dl
    cmp cl, ten
    jl n_over_s1
    sub cl, ten
    inc full
n_over_s1:
    pop edx
    add cl,30h
    mov final[edx], cl
    dec edx
    push edx
    
    cmp eax,0
    je show_res
    jmp summ1
    
summ2:
    cmp eax, ebx
    je show_res
    dec ebx
    xor ecx,ecx
    mov cl,num2[ebx]
    sub cl, 30h
    add cl,full
    mov dl,0
    mov full,dl
    cmp cl, ten
    jl n_over_s2
    sub cl, ten
    inc full
n_over_s2:
    pop edx
    add cl,30h
    mov final[edx], cl
    dec edx
    push edx
    
    cmp ebx,0
    je show_res
    jmp summ2
    
    
; ________________________________________________________________________
;||                                                                      ||
;||                                                                      ||
;||                         ВЫЧИТАНИЕ                                   ||
;||                                                                      ||
;||______________________________________________________________________||
;   Алгоритм: из 2х чисел определяем наибольшее и находим модуль их разности(при желании можно вначале просто минус приделать)
;   Сначала сравниваем количество разрядов. Если длины разрядов равны - сравниваем посимвольно со старшего разряда
;   Причем если на r-том символе, например, 1-е число больше 2-го, то начинаем вычитать поразрядно из 1-го число 2-е.
;   Но вычитание, в таком случае, происходит с r-го символа, а не с начала(ололо экономия памяти)
;   
subtraction:
    mov ca,0
    cmp eax,ebx                 ;Сравниваем кол-во разрядов
    jg f_g                      ;1-е число длиннее
    jl s_g                      ;2-е число длиннее
    
    mov eax,0                   ;если число разрядов одинаковое - сравниваем посимвольно
sub_equal:  
    mov cl, num1[eax]
    mov dl, num2[eax]
    cmp cl,dl
    jg f_g
    jl s_g
    cmp eax,n1                  ;Сравнили все символы, и в 2х числах они одинаковые - результатом будет ноль
    je zero_res
    inc eax                     ;Первые символы совпадают - смотрим вторые
    jmp sub_equal
 
; ________________________________________________________________________
;||                                                                      ||
;||                         ПЕРВОЕ ЧИСЛО БОЛЬШЕ                             ||
;||______________________________________________________________________||
;
f_g:
    xor ecx,ecx                     ;Подготовка с подсчету разности
    xor edx,edx                     ;Если мы узнали, что 1 число больше 2-го, 
    mov h,eax                       ;а количество разрядов в числах одинаковое  
    mov eax,n1                      ;то надо запомнить номер разряда, на котором числа начинают различаться
    cmp eax,ebx                     ;и с него уже начинать вычитание
    jne f_g_count
    xor eax,eax
    mov eax,h
    mov ca,eax
    xor eax,eax
    mov eax,n1
f_g_count:
    mov cl, num1[eax]
    mov dl, num2[ebx]
    sub cl,30h                      
    sub dl,30h
    cmp full,1                      ;Флаг недостатка. Если равен 1, то нужно вычесть из числа в текущем разряде 1 и занулить флаг.
    jne f_sub_not_over              ;Противные случаи, когда разряд равен нулю и приходит флаг,
    cmp cl,0                        ;говорящий о том, что в предыдущем разряде тож был недостаток 
    je f_zero_cl                    ;приходится обрабатывать отедельно.
    dec cl
    dec full
f_zero_cl:
    add cl,9                        ;на нулевое значение числа в разряде пришел флаг 
                                    ;=> увеличиваем число на 9, а флаг не меняем
f_sub_not_over:
    cmp cl,dl
    jge f_not_less
    add cl,ten
    inc full
f_not_less:
    sub cl,dl
    add cl,30h
    xor edx,edx
    pop edx
    mov final[edx],cl
    dec edx
    push edx
    
    cmp ebx,ca
    je sub_final
    dec ebx
    dec eax
    jmp f_g_count
    
; ________________________________________________________________________
;||                                                                      ||
;||                         ПЕРВОЕ ЧИСЛО БОЛЬШЕ                             ||
;||______________________________________________________________________||
;   КОММЕНТАРИИ АНАЛОГИЧНЫ
s_g:
    xor ecx,ecx
    xor edx,edx
    mov h,eax
    mov eax,n1
    cmp eax,ebx
    jne s_g_count
    xor eax,eax
    mov eax,h
    mov ca,eax
    xor eax,eax
    mov eax,n1
s_g_count:
    mov dl, num1[eax]
    mov cl, num2[ebx]
    sub cl,30h                      ;Символ в цифру
    sub dl,30h
    cmp full,1
    jne s_sub_not_over
    cmp cl,0
    je s_zero_cl
    dec cl
    dec full
s_zero_cl:
    add cl,9    
s_sub_not_over:
    cmp cl,dl
    jge s_not_less
    add cl,ten
    inc full
s_not_less:
    sub cl,dl
    add cl,30h
    xor edx,edx
    pop edx
    mov final[edx],cl
    dec edx
    push edx
    
    cmp eax,ca
    je sub_final
    dec ebx
    dec eax
    jmp s_g_count
 
 
 
 
 
;_________________________________________________________________________
;||                                                                      ||
;||                                                                      ||
;||                         ВЫВОД РЕЗУЛЬТАТА                          ||
;||                                                                      ||
;||______________________________________________________________________||
;
;=========НУЛЕВОЙ РЕЗУЛЬТАТ===========
zero_res:
    xor eax,eax
    mov eax,30h
    mov letter,al
    invoke  WriteConsoleA, stdout, ADDR letter,sizeof letter, ADDR cWritten, 0
    jmp exit
 
;====ПРЕДВАРИТЕЛЬНАЯ ОБРАБОТКА ДЛЯ ВЫЧИТАНИЯ====
 
sub_final:
    xor eax,eax
    pop eax
    inc eax
    jmp layout_final
 
;====ПРЕДВАРИТЕЛЬНАЯ ОБРАБОТКА ДЛЯ СЛОЖЕНИЯ====
    
show_res:
    pop eax
    cmp full, 1                             ;Дописываем последний флаговый разряд, если есть
    jne layout_final
    mov cl, 31h
    mov final[eax],cl
 
;====РЕЗУЛЬТАТ===
    
layout_final:
    cmp eax,251
    je exit
    mov dl,final[eax]
    mov letter,dl
    push eax
    invoke  WriteConsoleA, stdout, ADDR letter,sizeof letter, ADDR cWritten, 0
    xor eax, eax
    xor edx, edx
    xor ecx, ecx
    xor ebx, ebx
    pop eax
    inc eax
    jmp layout_final
 
    
exit:
    
    invoke ReadConsoleA, stdin, ADDR number, sizeof number, ADDR cWritten, 0 ;для задержки консоли
    mov eax,number
    invoke ExitProcess, 0 
end start

.386
.model flat, stdcall
option  casemap:none     
 
include ..\INCLUDE\windows.inc             
include ..\INCLUDE\comctl32.inc
include ..\INCLUDE\Fpu.inc
include ..\INCLUDE\user32.inc
include ..\INCLUDE\kernel32.inc                         
includelib ..\LIB\comctl32.lib       
includelib ..\LIB\Fpu.lib
includelib ..\LIB\user32.lib
includelib ..\LIB\kernel32.lib
 
ExitProcess proto :DWORD
GetStdHandle proto :DWORD
WriteConsoleA proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD 
ReadConsoleA proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
 
.stack 256
.data
STD_INPUT_HANDLE    equ -10 ;winbase.h
STD_OUTPUT_HANDLE   equ -11
 
 
stdout dd ?
stdin dd ?
ten db 10                           ;константа 10
numsize equ 5                       ;константа просто так
cWritten dd ?                       ;хз, зачем-то нужно для Read/Write Console'ей
one equ 1                           ;адын111!!!11
 
 
;final db 251 dup (0)               ;МАССИВ, В КОТОРЫЙ БУДЕТ ЗАПИСЫВАТЬСЯ РЕЗУЛЬТАТ СЛОЖЕНИЯ(а в последствии и остальных действий. Размер выбран в 2 с хером раза больше чем, размер массивов, в которые будут записваться исходные числа)
;num1 db 100 dup (?)                    ;МАССИВ, В КОТ. БУДЕТ ЗАПИСЫВАТЬСЯ 1-Е ЧИСЛО
;num2 db 100 dup (?)                    ;МАССИВ, В КОТ. БУДЕТ ЗАПИСЫВАТЬСЯ 2-Е ЧИСЛО
n1 dd ?                             ;Количество разрядов 1-го числа(в принципе, переменная  не нужна)
n2 dd ?                             ;Количество разрядов 2-го числа(тоже пока  не нужна)
full db ?                           ;Флаг переполнения разряда
 
.code
 
SetIntTagValue proc num1:BYTE, num2:BYTE, final:BYTE
;SetIntTagValue proc num1:BYTE, num2:BYTE
 
pushad
 
    xor eax, eax
    xor edx, edx
    xor ecx, ecx
    xor ebx, ebx
;_________________________________________________________________________
;||                                                                      ||
;||                         Считаем количество разрядов                     ||
;||                             в 1-м числе                               ||
;||                 Результат заносим в n1 и в регистр eax                 ||
;||______________________________________________________________________||
;
count1:
    mov dl, num1[eax]
    cmp dl, 0dh                             
    je after_count1                     
    inc eax
    jne count1  
    
after_count1:
    dec eax
    mov n1, eax
 
    mov ebx,0
 
;_________________________________________________________________________
;||                                                                      ||
;||                         Считаем количество разрядов                     ||
;||                             во 2-м числе                             ||
;||                 Результат заносим в n2 и в регистр ebx                 ||
;||______________________________________________________________________||
;
count2:
    mov dl, num2[ebx]
    cmp dl, 0dh                             
    je after_count2                     
    inc ebx
    jne count2  
    
after_count2:
    dec ebx
    mov n2,ebx
;__________________________________________________________________________________________
;||                                                                                       ||
;||                         СУММИРОВАНИЕ                                                  ||
;||        Сначала занулим флаг переполнения разряда                                     ||
;||     Алгоритм: суммирование координат векторов.     Зная количество разрядов каждого     ||
;||     числа идем(по eax, для 1-го числа, и ebx - для 2-го) от младших разрядов          ||
;||     к старшим.                                                                        ||
;||_______________________________________________________________________________________||
    mov cl,0
    mov full,cl
    xor ecx,ecx
    
    mov edx, 250                    ;Размер массива 251. Не берем в счет 0-ю ячейку, зарезервированную на случаю доп.разряда от флага
    push edx                        ;Записывать будем с конца
    
summ:
    mov cl, num1[eax]
    mov dl, num2[ebx]
    sub cl,30h
    sub dl,30h
    add cl, dl
    add cl, full
    xor edx, edx
    mov full,dl
    
    cmp cl, ten                 ;Проверяем, происходит ли переполнение разряда
    jl not_over                 ;Если произошло - меняем флаг на 1 и cl -= 10
    sub cl, ten
    inc full
not_over:
    pop edx
    add cl,30h                  ; Цифра в символ
    mov final[edx], cl          ;Записываем результат в массив final с конца(т.к. идем от младшего разряда, а выводить удобнее от старшего)
    dec edx
    push edx
    
    cmp eax,0                   ;Если разряды в первом числе закончились - переходим только ко второму числу.
    je summ2                    ;В котором тупо прибавляем единицу от флага(если есть) и переписываем остатки числа в массив final
    
    cmp ebx,0
    je summ1
    
    dec eax
    dec ebx
    
    jmp summ
 
summ1:
    dec eax
    xor ecx,ecx
    mov cl,num1[eax]
    sub cl,30h
    add cl,full
    mov dl,0
    mov full,dl
    cmp cl, ten
    jl n_over_s1
    sub cl, ten
    inc full
n_over_s1:
    pop edx
    add cl,30h
    mov final[edx], cl
    dec edx
    push edx
    
    cmp eax,0
    je show_res
    jmp summ1
    
summ2:
    cmp eax, ebx
    je show_res
    dec ebx
    xor ecx,ecx
    mov cl,num2[ebx]
    sub cl, 30h
    add cl,full
    mov dl,0
    mov full,dl
    cmp cl, ten
    jl n_over_s2
    sub cl, ten
    inc full
n_over_s2:
    pop edx
    add cl,30h
    mov final[edx], cl
    dec edx
    push edx
    
    cmp ebx,0
    je show_res
    jmp summ2
    
    
;_________________________________________________________________________
;||                                                                      ||
;||                                                                      ||
;||                         РЕЗУЛЬТАТ                           ||
;||                                                                      ||
;||______________________________________________________________________||
;
    
show_res:
    pop eax
    cmp full, 1                             ;Дописываем последний флаговый разряд, если есть
    jne layout_final
    mov cl, 31h
    mov final[eax],cl
 
layout_final:
;return SetIntTagValue.final - пробовала так, но не получилось и просто final не подошел
popad
ret
SetIntTagValue endp
 
End SetIntTagValue

SetIntTagValue proc num1:BYTE, num2:BYTE, final:BYTE

LIBRARY 5
EXPORTS SetIntTagValue