Помогите вывести строку на экран в обратном порядке(TASM .small)

[depocomp]

Здравствуйте!
Помогите пожалуйста с кодом.
TASM тип модели - SMALL
Моя предыдущая программа(работает):
ожидает ввод строки конец ввода <Enter>. По окончании ввода программа должна вывести полученную строку на экран, предварительно осуществив перевод строки (т.е. в результате получить две одинаковые строки друг под другом). Она работает:

include macros.inc ; подключение библиотеки макросов
.model small
.stack 100h
.data
string db 256 dup ('$')
.code
start:
mov ax,@data
mov ds,ax ; загрузка сегментного регистра DS

GetStr string,254 ;ввод произвольной строки
OutStr string ;вывод строки
NextLine ;переход на следующую строку
OutStr string ;вывод строки


mov ah,4ch ; выход из
int 21h ; программы
end start

Надо написать программу, которая также ожидает ввод строки с клавиатуры, а по окончании ввода заменяет последовательность введенных символов на противоположную и выводит на экран.
Например, вводится строка:
QWERTY12345 <Enter>
Программа должна вывести на экран:
54321YTREWQ.

[depocomp]

Есть еще такое пояснение:
Пояснение. Для приведенного в задании 2 примера после выполнения макровызова
GetStr string,20 символы строки расположатся следующим образом: string[0] = Q
string[1] =W
string[2] =E
string[3] =R
string[4] =T
string[5] =Y
string[6] =1
string[7] =2
string[8] =3
string[9] =4
string[10] =5,
а в регистре АХ будет число введенных символов АХ=11.
Введите еще одну переменную (например. string1 db 256 dup (‘$’) ), в которую перепишите строку string, начиная с последнего символа к первому. После чего выведите string1 на экран дисплея.


А как это сделать не пойму

[Ulex]

Вариант без макросов, но это как раз не главное, главное кусок, выделенный как ;это сама замена

.model small
.stack 100h
.data
string1 db 256 dup ('$')
string2 db 256 dup ('$')
EndStr db 0Dh, 0Ah, '$'
.code
start:
mov	ax, @data
mov	ds, ax

mov ah,0ah
lea dx,string1
mov [string1 + 0], 253
int 21h

; это сама замена
xor ax, ax
mov al, byte ptr [string1+1]
lea di, [string1+2]
lea si, [string2]
add si, ax
dec si
mov cx, ax
next:
mov al, byte ptr [di]
mov byte ptr [si], al
inc di
dec si
loop next
; это сама замена

mov ah,09h
lea dx, EndStr
int 21h
mov ah,09h
lea dx, string2
int 21h

mov	ah,4ch
int	21h
end	start

[depocomp]

О, спасибо, работает!
Теперь буду думать как переделать, чтобы были макросы.

[Goblin]

Ulex, а какую роль в твоем коде играет эта строка?

mov [string1 + 0], 253

[Ulex]

Ulex, а какую роль в твоем коде играет эта строка?

---------------------------------------------
INT 21 - DOS - BUFFERED KEYBOARD INPUT
AH = 0Ah
DS:DX -> buffer
Note: first byte of buffer must contain maximum length
on entry, second byte contains actual length of previous line which may
be recalled with the DOS line-editing commands
on return the second byte contains actual length, third and
subsequent bytes contain the input line
---------------------------------------------

Максимальная длинна вводимой строки. Я сам сомневался чего тут написать 253 или 254, но там же ещё символ конца строки должен быть, поэтому решил, что 253 будет правильнее.

[Goblin]

---------------------------------------------
INT 21 - DOS - BUFFERED KEYBOARD INPUT
AH = 0Ah
DS:DX -> buffer
Note: first byte of buffer must contain maximum length
on entry, second byte contains actual length of previous line which may
be recalled with the DOS line-editing commands
on return the second byte contains actual length, third and
subsequent bytes contain the input line
---------------------------------------------

А это у тебя откуда цитата? ссылку кинуть можешь? Там наверное много интересного.

[Ulex]

http://www.programmersforum.ru/showthread.php?t=17513

[depocomp]

Ulex А не могли бы вы расписать коменнтариями в своем коде что и как делается?

А вот макросы, которые использованы в программе и подключаются с помощью файла maсros.inc

; GetStr Buf,MaxLen ################################### #########################
; Ввод строки произвольной длины (функция 0ah int 21h).
; На входе:
; Buf+1 - адрес строки куда будет помещен ввод
; MaxLen - максимальная длина вводимой строки
; На выходе - введенная строка по адресу Buf
; ax - длина введенной строки

GetStr macro Buf,MaxLen
local m,TmpBuf
jmp m
TmpBuf label byte ;временный буфер форматом для функции 0ah (int 21h)
rept MaxLen+3 ;доп. три байта - служебная информация
db ' '
endm
m:
SaveReg <ds,es,dx,cx>
xor cx,cx
mov cs:TmpBuf,MaxLen+1
mov ah,0ah
push ds
pop es
push cs
pop ds
lea dx,cs:TmpBuf
int 21h
mov al,cs:TmpBuf+1 ;пересылка TmpBuf в Buf со сдвигом влево (для удаления служебного символа)
mov cl,al
xor ah,ah
inc cl ;длина введенной строки
inc al ;длина введенной строки
lea si,cs:TmpBuf+2 ;откуда - ds:si
lea di,buf ;куда - esi
rep movsb
LoadReg <cx,dx,es,ds>
endm

OutStr macro str
;Вывод строки на экран.
;На входе - идентификатор начала выводимой строки.
;Строка должна заканчиваться символом '$'.
;На выходе- сообщение на экране.
SaveReg <ax,dx>
mov ah,09h
lea dx,str
int 21h
LoadReg <dx,ax>
endm

; NextLine ################################### ##################################
; Осуществляет переход к следующей строке на дисплее
NextLine macro
SaveReg <ax,dx>
mov ah,2
mov dl,13 ; CR
int 21h
mov dl,10 ; LF
int 21h
LoadReg <dx,ax>
endm

[airyashov]

нафига такой макрос
SaveReg <ds,es,dx,cx>
когда можно просто писать
push ds es dx cx
аналогочно для pop