format pe console
entry main
include 'c:\fasm\include\win32ax.inc'
.data
texto   db      'invierteme',0
.code
main:
    xor eax,eax
    add eax,10
    mov ebx, texto
        add eax,ebx
        dec eax
 
        asd:
         mov ch, byte[ebx]
         mov cl, byte[eax]
         mov byte[ebx], cl
         mov byte[eax], ch
         inc ebx
         dec eax
         cmp     ebx,eax
         jbe asd
 
push texto
call [puts]
add esp,4
ret
 
section '.idata' import data readable
library msvc,'msvcrt.dll'
import msvc,puts,'puts'
 

toUpper:
	push ebp
	mov ebp,esp
	    mov esi,[ebp + 8]
	begin:
	    lodsb
	    cmp al,0
	    je endx
	    sub al,0x61
	    cmp al,0x1A
	    ja incr
	    and byte[esi-1],0xDF
	    incr:
		 jmp begin
	endx:
pop ebp
 
retn 4
 

toLower:
	    push ebp
	    mov ebp,esp
	    mov esi,[ebp + 8]
	beginL:
	    lodsb
	    cmp al,0
	    je endx
	    sub al,0x41
	    cmp al,0x1A
	    ja incrL
	    or byte[esi-1],0x20
	    incrL:
		 jmp beginL
	endxL:
pop ebp
retn 4
 

strrev:
        push ebp
        mov ebp,esp
        push edi
        mov edi,[ebp + 8]
        push edi
        call strlen
        xor ecx,ecx
        dec eax
        jmp LL1
        LL0:
                dec eax
                inc ecx
                cmp ecx,eax
                jge LL2
        LL1:
                mov dl,byte[edi + ecx]
                xchg byte[edi + eax],dl
                mov byte[edi + ecx],dl
                jmp LL0
 
        LL2:
        mov eax,[ebp + 8]
        pop edi
        pop ebp
retn 4
 
strlen:
	push edi
	xor ecx,ecx
	mov edi, [esp + 8]
	not ecx
	xor eax,eax
	cld
	repne scasb
	not ecx
	pop edi
	add eax,ecx
	dec eax
retn 4