Вывести строку на экран в обратном порядке

@GepardD · Регистрация: 23.10.2009

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

Masm32

есть строка. вывести ее на экран в обратном порядке.
Помогите плз.

@assemb · 19.10.2010, 15:16

Assembler

.386
.model flat, stdcall
option casemap :none
 
include \masm615\include\windows.inc
include \masm615\include\user32.inc
include \masm615\include\kernel32.inc
includelib \masm615\lib\user32.lib
includelib \masm615\lib\kernel32.lib
 
.data
stroka db 'stroka',0
len equ $-stroka
stdout DWORD ?
cWritten DWORD ?
 
.code
proga:
    invoke GetStdHandle ,STD_OUTPUT_HANDLE
    mov stdout,eax
    
    lea edx,stroka+len-2
    mov ecx,len
@@:
    push ecx
    push edx
    invoke WriteConsoleA,stdout,edx,\
       1,ADDR cWritten,NULL
    pop edx
    dec edx
    pop ecx
    loop @b
       
invoke ExitProcess,0
end proga

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

Assembler

CSEG segment
org 100h
 
proga:
lea bx,stroka+len-2
mov ah,2
mov cx,len-1
 
@@:
mov dl,[bx]
    int 21h
    dec bx
    loop @b
    
 
ret
stroka db 'stroka',0
len equ $-stroka
 
CSEG ends
end proga

@GepardD · 19.10.2010, 17:34 **[ТС]**

Thanks

@semiono · 21.10.2010, 21:41

Код

format PE Console
include '%fasm%\win32ax.inc'
section '.code' executable
start:
        invoke GetStdHandle,STD_OUTPUT_HANDLE
        mov [Stdout],eax
        len equ $-stroka
        lea edx,[stroka+len-2]
        mov ecx,len
@@:
        push ecx
        push edx
        invoke WriteConsoleA,[Stdout],edx,TRUE,cWritten,NULL
        pop edx
        dec edx
        pop ecx
        loop @r
exit:
        invoke ExitProcess,NULL

.end start

section '.data' readable writable

        stroka db 'stroka',0
        cWritten rd 6
        Stdout dd ?

Что-то глючит.
А вообще stroka+len-2 это stroka+$-stroka-2 то есть $-2 или это не так?

@Goodwin98 · 21.10.2010, 21:50

Для информации
$ - это текущий аддрес
stroka - аддрес метки stroka
len equ $-stroka - разница между текущим аддресом и аддресом метки stroka. Причем т.к. в 7 строке текущий аддрес меньше, то число получается не только бесполезным, так еще и отрицательным.

@assemb · 21.10.2010, 21:53

len equ $-stroka надо вставить в сегменте данных сразу за stroka db 'stroka',0, чтобы определить её длину

@semiono · 21.10.2010, 23:03

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

надо вставить в сегменте данных сразу за stroka db 'stroka',0,

Да вроде бы работает, хотя экран скроллится и где-то внизу выводит, и даже один символ ненужный.

Но так как у меня сегмент данных идёт после, то нет возможности вставить там equ оператор.
А интересно, что в таком случае данные должны быть впереди? Это нельзя никак обойти?

@assemb · 21.10.2010, 23:22

Assembler

1
2
3

.data
stroka db 'stroka',0    ;здесь правильнее без нуля
len equ $-stroka

и даже один символ ненужный

тоесть ноль занимает лишний байт и поэтому он учитывается в переменной len. len в данном случае равен не 6-ти, а 7 вместе с нулём. Потому и один символ ненужный.

Но так как у меня сегмент данных идёт после, то нет возможности вставить там equ оператор

почему нет возможности? Вроде можно и перед section '.code' поставить section '.data'

@GepardD 5 / 5 / 2 Регистрация: 23.10.2009 Сообщений: 63
		1
	Вывести строку на экран в обратном порядке 19.10.2010, 14:31. Показов 1268. Ответов 7 Метки нет (Все метки) Masm32 есть строка. вывести ее на экран в обратном порядке. Помогите плз. 0

@GepardD 5 / 5 / 2 Регистрация: 23.10.2009 Сообщений: 63
	19.10.2010, 17:34 [ТС]	3
	Thanks 0

@Goodwin98 2537 / 833 / 10 Регистрация: 31.05.2009 Сообщений: 1,668
	21.10.2010, 21:50	5
	Для информации $ - это текущий аддрес stroka - аддрес метки stroka len equ $-stroka - разница между текущим аддресом и аддресом метки stroka. Причем т.к. в 7 строке текущий аддрес меньше, то число получается не только бесполезным, так еще и отрицательным. 0

@assemb 65 / 65 / 1 Регистрация: 14.04.2010 Сообщений: 170
	21.10.2010, 21:53	6
	len equ $-stroka надо вставить в сегменте данных сразу за stroka db 'stroka',0, чтобы определить её длину 1

@semiono 159 / 16 / 0 Регистрация: 14.09.2010 Сообщений: 421 Записей в блоге: 6
	21.10.2010, 23:03	7
	Сообщение от assemb надо вставить в сегменте данных сразу за stroka db 'stroka',0, Да вроде бы работает, хотя экран скроллится и где-то внизу выводит, и даже один символ ненужный. Но так как у меня сегмент данных идёт после, то нет возможности вставить там equ оператор. А интересно, что в таком случае данные должны быть впереди? Это нельзя никак обойти? 0

	21.10.2010, 23:22