вывод на экран

[Nikolai_90]

строку символьных данных я ввожу, а вот как переставить символы в строке, и вывести их на экран?

Задача: ввести строку символьных данных, задавая буфер равный 12 байт. Переставить символы в строке следующим образом: первый символ на место последнего, второй на место предпоследнего, ..., предпоследний на место второго, а последний на место первого. Выдавать полученную строку символов в 10 строку экрана, начиная с 30 позиции.

Stacksg        Segment         stack 
                  dw                 12 dup(?)
Stacksg       ends        
Datasg        segment
buf             db                  12 dup('?')
ll                db                  12 dup('$ ')
namelen      label                byte
maxlen       db                   12
len            db                    ?
lenfld         db                  12 dup(' ')
Datasg       ends    
Codesg      segment
Begin         proc                  far
             Assume  ss:stacksg,cs:codesg,ds:datasg
             Push    ds
             Sub     ax,ax
             Push    ax
             mov     ax,datasg   
             mov     ds,ax
 
             mov     ax,0600h
             mov     bh,07
             mov     cx,0000
             mov     dx,184fh
             int     10h

             mov     ah,02
             mov     bh,00
     	  mov     dh,10
             mov     dl,30
             int       10h
 
             mov     ah,0Ah
             lea       dx,namelen
             int       21h

             sub     dx,dx
             lea     si,lenfld
             mov     cx,12
             mov     al,' '
m1:
             mov     ah,[si]
             cmp     ah,al
             jnz     m2
             inc     dl

m2:
             inc     si
             loop    m1
             mov     al,dl

	  cmp     al,0
    
             mov     ah,02
             mov     bh,00
             mov     dh,11
             mov     dl,30
             int     10h
 
             mov     ah,09h
             lea     dx,lenfld
             int     21h
      	           
             ret     
begin        endp
Codesg       ends
             end     begin

// Пользуйтесь тэгом [code]

[Stilet]

Это что реверсия строки?
Это лаба? тогда так:

.data
Caption			db "Form1234567890",0
m				db 2

.code
start:
.........
mov ebx, offset Caption
mov edi, ebx
xor eax,eax
repne scasb
mov eax,edi
dec edi
dec edi
sub eax,ebx
div m
xor ecx,ecx
mov cl,al
a1:
 mov al,byte ptr [ebx]
 xchg al, byte ptr [edi]
 mov byte ptr [ebx],al

 inc ebx
 dec edi
loop a1

Если нет то в МАСМ есть szRev воспользуйся ею.

[Nikolai_90]

это не лаба. Мне нужно сделать программу, в .exe формате.

"Если нет то в МАСМ есть szRev воспользуйся ею." - szRev - что это, и как ей пользоваться?

[Stilet]

Ну примерно так:

; MASM 9
	.386
	.model flat,stdcall
	option casemap:none
	include d:\masm32\include\user32.inc
	include d:\masm32\include\masm32.inc
	include D:\masm32\macros\macros.asm
  includelib d:\masm32\lib\user32.lib
	includelib d:\masm32\lib\masm32.lib
.data
;_______________
Caption			db "Forma моя",0
;_______________
.code
start:
 invoke szRev, addr Caption, addr Caption
   invoke MessageBoxA,FUNC(GetForegroundWindow),addr Caption,0,0
 ret
end start

[Nikolai_90]

А вот мне интересно, можно ли решить эту задачу с помощью циклического сдвига, и если можно, то как?

[B_N]

Nikolai_90, какой ещё циклический сдвиг?! Вам нужно всего-то поменять местами элементы массива в "сужающемся" цикле. Не говоря о том, что можно просто вывести эту строку посимвольно задом-наперёд.

[Stilet]

с помощью циклического сдвига

А в твоем понимании циклический сдвиг это как?

[Nikolai_90]

Я думал что с помощью "ROR" или "ROL" можно всю строку символов сдвинуть по кругу.

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

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

А как это сделать? я в ассемблере только месяц занимаюсь, да я с преподом мне не очень повезло.

[Stilet]

Я думал что с помощью "ROR" или "ROL"

Только для регистров. Максимум для 4-х байт.

[Nikolai_90]

А как мне нужно исправить мою программку, чтобы она заработала?