VPF::[TASM] процедура массив - Форум программистов

Azadof

Дата 13.12.2009, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 6.4.2009

Репутация: нет
Всего: нет

Привет, помогите пожалуйста решить задачу, (TASM, Windows Console)желательно как можно простыми незамысловатыми методами, и если не тяжело то с коментариями (не сочтите за наглость).
Условие:
Создать процедуру, которая для заданного массива A[], состоящего из N целых элементов ( A и N - формальные параметры процедуры), определяет сумму элементов, расположенных между первым и последним положительными элементами.
Преобразовать массив так, чтобы сначала расположить все элементы, равные нулю, а потом - все остальные.

ИванМ

Дата 15.12.2009, 00:39 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23

Код


.386
locals
.model FLAT, STDCALL

extrn ExitProcess: proc
extrn GetStdHandle: proc
extrn WriteConsoleA: proc
extrn _wsprintfA: proc
extrn lstrlen: proc
extrn WinExec: proc

LEN = 10

.data

num    dd    ?
len    dd    0
output    dd    0
cmdtext db "cmd /c pause", 0
nl    db 13,10,0
format db 13,10,"Sum=%d",13,10,0
strarr db 13,"Array:",13,10,0
outstr db 100 dup (0)
array dd -10, 2, -2, 3, -1, 8, 0, -4, 0, -1
array2 dd 10 dup (0)
format2 db "%d ",0
outstr2 db 100 dup (0)

.code
start   proc    near

;получаем стандарный HANDLE вывода
push    -11
call    GetStdHandle
mov        output, eax

;выводим на экран "Array:"
push    0
push    offset len
push    9
push    offset strarr
push    output
call    WriteConsoleA    

;выводим на экран массив
push    LEN
push    offset array
call    outarr

;вычисляем сумму между пол. элементами
push    LEN
push    offset array
call    sum

;форматируем текст
push    eax
push    offset format
push    offset outstr
call    _wsprintfA
add        esp, 12

;определяем длину строки
push    offset outstr
call    lstrlen

;выводим на экран "Sum=x"
push    0
push    offset len
push    eax
push    offset outstr
push    output
call    WriteConsoleA

;преобразовываем массив (задание 2)
push    LEN
push    offset array2
push    offset array
call    irr

;выводим на экран "Array:"
push    0
push    offset len
push    9
push    offset strarr
push    output
call    WriteConsoleA    

;выводим на экран массив array2
push    LEN
push    offset array2
call    outarr

;вызываем команду pause
push    offset cmdtext
call    WinExec

;выводим на экран переход на новую строку
push    0
push    offset len
push    2
push    offset nl
push    output
call    WriteConsoleA

;завершение приложения
push    0
call    ExitProcess

start   endp

;процедура - сумма между пол. элементами
;A - адрес массива
;N - число элементов
;возвращаемое значение - сумма - в регистре eax
sum proc near
arg A: DWORD, N: DWORD
    mov ecx, N
    dec ecx
    mov    esi, A
@@1:
    cmp dword ptr [esi], 0
    jg @@2
    add esi, 4
    loop @@1
@@2:
    mov edi, esi
    mov ecx, N
    dec ecx
    mov esi, A
    mov ebx, N
    dec ebx
    shl ebx, 2
    add esi, ebx
@@3:
    cmp dword ptr [esi], 0
    jg @@4
    sub esi, 4
    loop @@3
@@4:
    mov eax, dword ptr [edi]
    jmp @@6
@@5:
    add eax, dword ptr [edi]
@@6:
    add edi, 4
    cmp edi, esi
    jbe @@5
    
    ret
sum endp

;процедура - преобразование массива (второе задание)
;A1 - адрес входного массива
;A2 - адрес выходного массива
;N - число элементов
irr proc
arg A1: dword, A2: dword, N: dword
    mov ecx, N
    dec ecx
    mov    esi, A1
    mov ebx, 0
@@1:
    cmp dword ptr [esi], 0
    jne @@2
    inc ebx
@@2:
    add esi, 4
    loop @@1
@@3:
    mov edi, A2
    shl ebx, 2
    add edi, ebx

    mov esi, A1
    mov ecx, N
@@4:
    cmp dword ptr [esi], 0
    je @@5
    mov ebx, dword ptr [esi]
    mov dword ptr [edi], ebx
    add edi, 4
@@5:
    add esi, 4
    loop @@4
    ret
    
irr endp
    
;процедура - вывод массива на экран
;A - адрес массива
;N - число элементов
outarr proc
arg A: dword, N: dword
    mov ecx, N
    mov    esi, A
@@6:
    push ecx
    push esi
    
    push    dword ptr [esi]
    push    offset format2
    push    offset outstr2
    call    _wsprintfA
    add        esp, 12
    
    push    offset outstr2
    call    lstrlen

    ;выводим число на экран
    push    0
    push    offset len
    push    eax
    push    offset outstr2
    push    output
    call    WriteConsoleA    
    
    pop esi
    pop ecx
@@7:
    add esi, 4
    loop @@6
        
    ret
outarr endp

end     start

Это сообщение отредактировал(а) ИванМ - 15.12.2009, 01:02

RabiatoR

Дата 1.7.2010, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 1.7.2010

Репутация: нет
Всего: нет

Народ помоги пожалуйста, у меня возникла такая проблемка, использую я Codegear RAD Studio C++ Builder
Создал новое Console Apllication с параметрами: Console Application - false, MultiThreaded - true, Include VCL - false
Пишу в ней код:

void GETCPUID( void ){__asm{
    PUSH EBP
    MOV EBP, ESP
    XOR ECX, ECX
    PUSH ECX
    XOR EAX, EAX
    PUSH EBP
    PUSH OFFSET @@2
@@1:
    CPUID
    MOV EBP, EAX
@@2:
    MOV AL, [EBP-1]
    MOV ESP, EBP
    POP EBP
    RETN
}}

Возникает ошибка компиляции:
Undefined Symbol: '@@2'
на строке PUSH OFFSET @@2

Как с этим справится?

airyashov

Дата 3.7.2010, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 284
Регистрация: 1.7.2008

Репутация: 1
Всего: 6

вынести метки из asm вставки

Код


__asm{
    PUSH EBP
    MOV EBP, ESP
    XOR ECX, ECX
    PUSH ECX
    XOR EAX, EAX
    PUSH EBP
    PUSH OFFSET @@2}
@@1:
__asm{    CPUID
    MOV EBP, EAX}
@@2:
__asm{    MOV AL, [EBP-1]
    MOV ESP, EBP
    POP EBP
    RETN
}

--------------------

icq:3(один)7748666
mail:airyashov( а )inbox.ru

RabiatoR

Дата 3.7.2010, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 1.7.2010

Репутация: нет
Всего: нет

Ууууу... народ, если вы в этом 0 то хотяб глупости не пишите пожалуйста)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »