Число наоборот (Перевести с Паскаля на Ассемблер)

[DaoKemZem]

Помогите пожалуйста с кодом. Я в Ассемблере ничего не понимаю (Переведите на Ассемблер)

var
    n, m: longint;
    a: byte;
begin
    readln(n);
    m := 0;
    while n>0 do begin
        a := n mod 10;
        n := n div 10;
        m := m*10 + a;
    end;
    writeln(m);
 
readln;
end.

[R71MT]

..что значит число наоборот?

[Arigato]

Судя по коду - запись в обратном порядке. То есть 12345, наоборот 54321.

[R71MT]

1. Если это строка/символы, то:

var   DB  '1234'                     ; исходная строка

begin:
   MOV   SI,var+3                    ; перемещаем указатель на конец строки
   MOV   CX,4                        ; кол-во символов в строке
   STD                               ; взводим флаг DF (обратный шаг) 
change:
   LODSB                             ; читаем из SI..
   INT   29h                         ; выводим символ на экран
   LOOP  change                      ; мотаем цикл CX-раз
   RET

2. Если натуральное число:

var   DB  0x1234                     ; исходное число

begin:
   MOV   AX,[var]                    ; AX = 1234
   ROR   AL,4                        ; AX = 1243
   ROR   AH,4                        ; AX = 2143
   XCHG  AH,AL                       ; AX = 4321
   RET

3. Ещё можно организовать битовую инверсию (зеркало).
По-сути, это и есть "Число наоборот". То есть:

	1234h = 0001 0010 0011 0100b
	2C48h = 0010 1100 0100 1000b
*********************************************
var   DB  0x1234

begin:
   MOV   AX,1234                     ; на входе:  АХ = 1234h
   XOR   BX,BX                       ; здесь будет результат
   MOV   CX,16                       ; кол-во повторов цикла
change:
   SHR   AX,1                        ; выталкиваем мл.бит во-флаг CF
   RCL   BX,1                        ; ставим его старшим в BX
   LOOP  change                      ; мотаем цикл 16 раз
   RET                               ; на выходе: BХ = 2С48h