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

@innoochka · Регистрация: 18.01.2013

Author24 — интернет-сервис помощи студентам

помогите бедному студенту, который самостоятельно осваивает масм32. пишу библиотеку на асме для языков высокого уровня, например для с++ пишу, но надо чтобы и не только для него работало все

в общем, библиотека 5.dll должна содержать функции калькулятора для больших чисел, наткнулась на то, что не могу результат передать на выход функции, подсказали сделать через это:
eax = указатель на final
и типа так заработает, это надо делать в самом конце кода(здесь только сложение)
подскажите каким образом надо это сделать, код рабочий был без библиотеки вот такой

Assembler

.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

моя библиотека, тот же код, но под библиотеку сделан
5.ASM

Assembler

.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

5.inc

Assembler

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

5.def

Assembler

1 2	LIBRARY 5 EXPORTS SetIntTagValue

(все что ниже для с++ нашла на форумеhttp://forum.sources.ru/index.php?showtopic=353554 и использовала, надеюсь, что работает)

stdafx.h

C++

// stdafx.h: включаемый файл для стандартных системных включаемых файлов
// или включаемых файлов для конкретного проекта, которые часто используются, но
// не часто изменяются
//
 
#pragma once
#pragma comment(lib,"D:\student\asm\BIN\5.lib")
extern "C" int _stdcall SetIntTagValue(int num1, int num2, int final);
 
#include "targetver.h"
 
#include <stdio.h>
#include <tchar.h>
 
 
 
// TODO: Установите здесь ссылки на дополнительные заголовки, требующиеся для программы

test.cpp

C++

// test.cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
 
 
int _tmain(int argc, _TCHAR* argv[])
{
    int i = SetIntTagValue(5555, 8787878, 0);
    return 0;
}

dll и прочее создается спокойно, но понимаете, оно работает не так надо чтобы возвращалась сумма этих чисел функции, ну и скажите правильно ли у меня все написано, к тому же интересует момент с num1

WORD и другими массивами
DWORD - не подходит, нам нужен целочисленный т.е. мона взять BYTE, но подойдет ли он для числа из 600цифр например, думаю вряд ли(((( подскажите что писать, в нете не нашла кроме этих 2х ничего
про это прочитала туточки http://www.cta.ru/cms/f/342704.pdf

Добавлено через 8 минут
прописывала в консоли
ml /c /coff 5.asm
link /DLL /SUBSYSTEM:WINDOWS /DEF:"5.def" "5.obj"

@bomz · 19.01.2013, 01:49

mov eax, result
ret

Добавлено через 1 минуту
я чета не особо в твоем коде но у тебя он вроде начинается сохранение всех регистров popad а перед выходом их восстановлением popad, вот он ничего в eax и не возвращает

@innoochka · 19.01.2013, 01:50 **[ТС]**

Сообщение от bomz

mov eax, result
ret

Добавлено через 1 минуту
я чета не особо в твоем коде но у тебя он вроде начинается сохранение всех регистров popad а перед выходом их восстановлением popad, вот он ничего в eax и не возвращает

вы уверенны, что это заработает??? мне надо финал в результат вообще-то, тоесть вместо резалт прописать финал?

lea eax, final
ибо финал оч большой)))

@bomz · 19.01.2013, 01:57

вот работающий (вроде только что сляпал) пример дллки складыющей два целых числа
через lib сделал. но дллку можно было просто подгрузить из кода, получить адрес функции и ее вызвать

@innoochka · 19.01.2013, 01:57 **[ТС]**

C++

// test.cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
#include "windows.h"
#include <iostream>
using namespace std;
 
 
//unsigned char (*MyFunction)(unsigned char, unsigned char); //Указатель на функцию MyAsmFunction()
 
void main()
{
    HINSTANCE hModule=NULL;
    hModule=::LoadLibraryA("D:\student\asm\BIN\5.dll");
    if (hModule!=NULL)
    {
        ::FreeLibrary(hModule); 
    }
    else cout << "error load Dll" << endl;
}

Assembler

.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 hInstDLL:HINSTANCE, num3:BYTE, num4:BYTE, RETURN final2:BYTE
 
 
SetIntTagValue proc hInstDLL:HINSTANCE, num1:BYTE, num2:BYTE
;SetIntTagValue proc num1:BYTE, num2:BYTE
 
 
    
    ;lea num1, num3
    ;lea num2, num4
    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:
;mov eax, TRUE
 
lea eax, final
;return SetIntTagValue.final
 
ret
SetIntTagValue endp
 
End SetIntTagValue

теперь у меня все вот так выглядит
при загрузки длл в с++ ругается(((
пишет

1>d:\student\asm\bin\длл\test\test\test.cpp(15): warning C4129: s: неизвестная escape-последовательность
1>d:\student\asm\bin\длл\test\test\test.cpp(15): warning C4129: B: неизвестная escape-последовательность

@bomz · 19.01.2013, 02:00

разбери мой пример, удостоверься что дллка у тебя правильно сделана, тогда вопрос обозначится более узко, а даже такой не особо длинный код долго разбирать, еще повезло что заметил popad в конце. принято чтоб api фукции сохраняли неизменными регистры ebx esi edi остальные могут разрушаться.

@innoochka · 19.01.2013, 02:02 **[ТС]**

Сообщение от bomz

вот работающий (вроде только что сляпал) пример дллки складыющей два целых числа
через lib сделал. но дллку можно было просто подгрузить из кода, получить адрес функции и ее вызвать

так я могу и сама, поймите, что числа могут быть очень большие, например 600 циферок

Добавлено через 58 секунд

Сообщение от bomz

разбери мой пример, удостоверься что дллка у тебя правильно сделана, тогда вопрос обозначится более узко, а даже такой не особо длинный код долго разбирать, еще повезло что заметил popad в конце. принято чтоб api фукции сохраняли неизменными регистры ebx esi edi остальные могут разрушаться.

ок, щас гляну и скажу))

@bomz · 19.01.2013, 02:03

то есть проблема в том что код не работает.

600 цифирок значит какой то массив есть, указатель на этот массив, определенным образом для дллки сформированный, надо передать в дллку

@innoochka · 19.01.2013, 02:18 **[ТС]**

Сообщение от bomz

разбери мой пример, удостоверься что дллка у тебя правильно сделана, тогда вопрос обозначится более узко, а даже такой не особо длинный код долго разбирать, еще повезло что заметил popad в конце. принято чтоб api фукции сохраняли неизменными регистры ebx esi edi остальные могут разрушаться.

посмотрела я код нашла то, что нет прототипа функции
сделала так

Assembler

.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
 
SetIntTagValue PROTO :HINSTANCE, :BYTE, :BYTE
 
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 hInstDLL:HINSTANCE, num3:BYTE, num4:BYTE, RETURN final2:BYTE
 
LibMain proc instance:DWORD, reason:DWORD, reserved:DWORD
 
    mov eax, 1                        ; must return NON zero to start DLL.
    ret
 
LibMain endp
 
align 4
 
SetIntTagValue proc hInstDLL:HINSTANCE, num1:BYTE, num2:BYTE
;SetIntTagValue proc num1:BYTE, num2:BYTE
 
 
    
    ;lea num1, num3
    ;lea num2, num4
    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:
;mov eax, TRUE
 
lea eax, final
;return SetIntTagValue.final
 
ret
SetIntTagValue endp
 
End LibMain

ругается при компиляции:
D:\student\asm\BIN>ml /c /coff 5.asm
Microsoft (R) Macro Assembler Version 6.14.8444
Copyright (C) Microsoft Corp 1981-1997. All rights reserved.

Assembling: 5.asm
5.asm(49) : error A2005: symbol redefinition : reserved

Добавлено через 5 минут

Сообщение от bomz

то есть проблема в том что код не работает.

600 цифирок значит какой то массив есть, указатель на этот массив, определенным образом для дллки сформированный, надо передать в дллку

код работает, но его надо переделать в длл, ну и у меня это не получилось)
вот код рабочий

Assembler

.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
 
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 ?                           ;Флаг переполнения разряда
 
.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
;_________________________________________________________________________
;||                                                                      ||
;||                         Считаем количество разрядов                     ||
;||                             в 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:
    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 ;для задержки консоли
    invoke ExitProcess, 0 
end start

тут в принципе по коментариям все понятно, что делается)

@bomz · 19.01.2013, 02:22

5.asm(49) : error A2005: symbol redefinition : reserved

чета не по глазам где в 49 строке переопределение происходит

.stack 256 - стека не мало? как то не доводилось этой директивой пользоваться

@innoochka · 19.01.2013, 02:27 **[ТС]**

Сообщение от bomz

5.asm(49) : error A2005: symbol redefinition : reserved

чета не по глазам где в 49 строке переопределение происходит

код же есть, строчки подписаны

Добавлено через 4 минуты

Сообщение от bomz

5.asm(49) : error A2005: symbol redefinition : reserved

чета не по глазам где в 49 строке переопределение происходит

.stack 256 - стека не мало? как то не доводилось этой директивой пользоваться

.stack 256 а сколько в стеке делать? ну на той проге мне хватало, простая прога работала)))

нам на занятиях говорили, что это тупо так надо делать и никаких тонкостей не говорили....у нас препод вообще ничего не объяснял...все по форумам да книгам собирала в свою голову

@bomz · 19.01.2013, 02:32

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

Добавлено через 1 минуту
возьми мою дллку - там все просто, хорошо разберись как она работает, скомпиль ее. и потом вставь в нее свой код.

@innoochka · 19.01.2013, 02:35 **[ТС]**

Сообщение от bomz

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

Добавлено через 1 минуту
возьми мою дллку - там все просто, хорошо разберись как она работает, скомпиль ее. и потом вставь в нее свой код.

поясни код своей длл каждую строчку
что и зачем

@bomz · 19.01.2013, 02:40

хм. да там объяснять почти нечего. просто потому что винда так сделана.

LibMain proc instance

WORD,reason

WORD,reserved

WORD

mov eax, 1 ; must return NON zero to start DLL.
ret

LibMain endp

end LibMain

вот это обязательная часть для загрузки дллки

tstproc proc value1

WORD,value2

WORD

mov eax, value1
add eax, value2
ret

tstproc endp

а это функция обычная.

@innoochka · 19.01.2013, 02:41 **[ТС]**

Сообщение от bomz

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

Добавлено через 1 минуту
возьми мою дллку - там все просто, хорошо разберись как она работает, скомпиль ее. и потом вставь в нее свой код.

Assembler

.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
 
SetIntTagValue PROTO  :BYTE, :BYTE
 
ExitProcess proto :DWORD
GetStdHandle proto :DWORD
WriteConsoleA proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD 
ReadConsoleA proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
 
 
.data
 
ten db 10                           ;константа 10
numsize equ 5                       ;константа просто так
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 hInstDLL:HINSTANCE, num3:BYTE, num4:BYTE, RETURN final2:BYTE
 
LibMain proc instance:DWORD, reason:DWORD, reserved:DWORD
 
    mov eax, 1                        ; must return NON zero to start DLL.
    ret
 
LibMain endp
 
align 4
 
SetIntTagValue proc num1:BYTE, num2:BYTE
 
;SetIntTagValue proc num1:BYTE, num2:BYTE
 
 
    
    ;lea num1, num3
    ;lea num2, num4
    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:
;mov eax, TRUE
 
lea eax, final
;return SetIntTagValue.final
 
ret
SetIntTagValue endp
 
End LibMain

все равно на ту же строчку ругается(((

@bomz · 19.01.2013, 02:42

как будто в программе которая дллку подгружает появилась эта подпрограмма. ее вызываешь передаешь ей два параметра, она их складывает и возвращает в регистре eax, остальные регистры не разрушаются можно их не сохранять

@innoochka · 19.01.2013, 02:43 **[ТС]**

Сообщение от bomz

хм. да там объяснять почти нечего. просто потому что винда так сделана.

вот это обязательная часть для загрузки дллки

а это функция обычная.

а это шо такое?
align 4

@bomz · 19.01.2013, 02:45

скомпили твою дллку чуть там подправил посмотри. у меня установлен масм32 по умолчанию

@innoochka · 19.01.2013, 02:45 **[ТС]**

Сообщение от bomz

как будто в программе которая дллку подгружает появилась эта подпрограмма. ее вызываешь передаешь ей два параметра, она их складывает и возвращает в регистре eax, остальные регистры не разрушаются можно их не сохранять

он не хочет твою длл грузить в с++
вот такие дела((
так что в твоей косяки...она не подходит для высокого уровня

@bomz · 19.01.2013, 02:47

Сообщение от innoochka

а это шо такое?
align 4

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

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 02:42	16
	как будто в программе которая дллку подгружает появилась эта подпрограмма. ее вызываешь передаешь ей два параметра, она их складывает и возвращает в регистре eax, остальные регистры не разрушаются можно их не сохранять 0

@innoochka 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 55
	19.01.2013, 02:43 [ТС]	17
	Сообщение от bomz хм. да там объяснять почти нечего. просто потому что винда так сделана. вот это обязательная часть для загрузки дллки а это функция обычная. а это шо такое? align 4 0

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 01:49	2
	mov eax, result ret Добавлено через 1 минуту я чета не особо в твоем коде но у тебя он вроде начинается сохранение всех регистров popad а перед выходом их восстановлением popad, вот он ничего в eax и не возвращает 0

@innoochka 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 55
	19.01.2013, 01:50 [ТС]	3
	Сообщение от bomz mov eax, result ret Добавлено через 1 минуту я чета не особо в твоем коде но у тебя он вроде начинается сохранение всех регистров popad а перед выходом их восстановлением popad, вот он ничего в eax и не возвращает вы уверенны, что это заработает??? мне надо финал в результат вообще-то, тоесть вместо резалт прописать финал? lea eax, final ибо финал оч большой))) 0

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 02:00	6
	разбери мой пример, удостоверься что дллка у тебя правильно сделана, тогда вопрос обозначится более узко, а даже такой не особо длинный код долго разбирать, еще повезло что заметил popad в конце. принято чтоб api фукции сохраняли неизменными регистры ebx esi edi остальные могут разрушаться. 0

@innoochka 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 55
	19.01.2013, 02:02 [ТС]	7
	Сообщение от bomz вот работающий (вроде только что сляпал) пример дллки складыющей два целых числа через lib сделал. но дллку можно было просто подгрузить из кода, получить адрес функции и ее вызвать так я могу и сама, поймите, что числа могут быть очень большие, например 600 циферок Добавлено через 58 секунд Сообщение от bomz разбери мой пример, удостоверься что дллка у тебя правильно сделана, тогда вопрос обозначится более узко, а даже такой не особо длинный код долго разбирать, еще повезло что заметил popad в конце. принято чтоб api фукции сохраняли неизменными регистры ebx esi edi остальные могут разрушаться. ок, щас гляну и скажу)) 0

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 02:03	8
	то есть проблема в том что код не работает. 600 цифирок значит какой то массив есть, указатель на этот массив, определенным образом для дллки сформированный, надо передать в дллку 0

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 02:22	10
	5.asm(49) : error A2005: symbol redefinition : reserved чета не по глазам где в 49 строке переопределение происходит .stack 256 - стека не мало? как то не доводилось этой директивой пользоваться 0

@innoochka 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 55
	19.01.2013, 02:27 [ТС]	11
	Сообщение от bomz 5.asm(49) : error A2005: symbol redefinition : reserved чета не по глазам где в 49 строке переопределение происходит код же есть, строчки подписаны Добавлено через 4 минуты Сообщение от bomz 5.asm(49) : error A2005: symbol redefinition : reserved чета не по глазам где в 49 строке переопределение происходит .stack 256 - стека не мало? как то не доводилось этой директивой пользоваться .stack 256 а сколько в стеке делать? ну на той проге мне хватало, простая прога работала))) нам на занятиях говорили, что это тупо так надо делать и никаких тонкостей не говорили....у нас препод вообще ничего не объяснял...все по форумам да книгам собирала в свою голову 0

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 02:32	12
	нисколько не делай. пусть компилятор сам сделает сколько надо. в программе конечно хватало, а при вызове дллки могло и не хватить Добавлено через 1 минуту возьми мою дллку - там все просто, хорошо разберись как она работает, скомпиль ее. и потом вставь в нее свой код. 0

@innoochka 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 55
	19.01.2013, 02:35 [ТС]	13
	Сообщение от bomz нисколько не делай. пусть компилятор сам сделает сколько надо. в программе конечно хватало, а при вызове дллки могло и не хватить Добавлено через 1 минуту возьми мою дллку - там все просто, хорошо разберись как она работает, скомпиль ее. и потом вставь в нее свой код. поясни код своей длл каждую строчку что и зачем 0

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 02:40	14
	хм. да там объяснять почти нечего. просто потому что винда так сделана. LibMain proc instanceWORD,reasonWORD,reservedWORD mov eax, 1 ; must return NON zero to start DLL. ret LibMain endp end LibMain вот это обязательная часть для загрузки дллки tstproc proc value1WORD,value2WORD mov eax, value1 add eax, value2 ret tstproc endp а это функция обычная. 0

@innoochka 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 55
	19.01.2013, 02:45 [ТС]	19
	Сообщение от bomz как будто в программе которая дллку подгружает появилась эта подпрограмма. ее вызываешь передаешь ей два параметра, она их складывает и возвращает в регистре eax, остальные регистры не разрушаются можно их не сохранять он не хочет твою длл грузить в с++ вот такие дела(( так что в твоей косяки...она не подходит для высокого уровня 0

@bomz 64 / 64 / 0 Регистрация: 06.10.2011 Сообщений: 299
	19.01.2013, 02:47	20
	Сообщение от innoochka а это шо такое? align 4 это директива компилятору выравнять начало кода по границе кратной 8 байтам, чтоб вызов фукции происходил по началу микросхемы памяти что контроллеромпамяти делается быстрее чем по неровной границе - вот так примерно 1