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

[depocomp]

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

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

Может я плохо разбираюсь в ассемблере, но как можно использовать push и pop, если они используются в этом куске?

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>

Использовать SaveReg и OutReg самое оно.
Вот кстати их описание:

; SaveReg <RegList>########################## ###################################
; Сохранение указанных в списке RegList регистров в стеке.
; Список регистров должен быть заключен в угловые скобки,
; например - SaveReg <ax,bx,cx>

SaveReg macro RegList
irp reg,<RegList>
push reg
endm
endm

; LoadReg <RegList>########################## ###################################
; Восстановление указанных в списке RegList регистров из стека.
; Список регистров должен быть заключен в угловые скобки,
; например - LoadReg <ax,bx,cx>

LoadReg macro RegList
irp reg,<RegList>
pop reg
endm
endm

[depocomp]

Составил вот такой код, но почему-то не работает:

; Прототип программы с использованием модели small
include macros.inc ; подключение библиотеки макросов
.model small ; тип модели
.stack 100h ; размер
.data ; сегмент данных
string1 db 256 dup ('$') ;введем одну переменную string1
string2 db 256 dup ('$') ;введем вторую переменную string2
.code ; программный сегмент
start: ; точка входа в программу

GetStr string1, 100

MOV SI,AX
DEC SI
MOV DI,0
MOV CX,AX

M1:
MOV BL,string1[SI]
MOV string2[DI],BL
DEC SI
INC DI
LOOP M1

NextLine
OutStr string2


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

[Goodwin98]

M1:
MOV BL,string1[SI]
MOV string2[DI],BL

Это не С какой-нибудь.
Хотя бы так:

GetStr string1, 100


lea si,string1
lea di,string2
add si,ax
DEC SI
MOV CX,AX

M1:
MOV BL,[SI]
MOV [DI],BL
DEC SI
INC DI
LOOP M1

NextLine
OutStr string2

[depocomp]

Goodwin98

Работают оба варианта, и мой и ваш.
Просто забыл добавить следующие строки:

mov ax,@data
mov ds,aх ; загрузка сегментного регистра DS

Спасибо