#igual que el t7_minuscules_print_2.s Pero amb algun comentari
#el _2.s fa bé el fet que avans de fer el pushl fa un movsbl
MIDA = 100
.data
is: .asciz "Demasiadas Mayusculas PARA TAN pOcAs BalAs.\n"
.bss
.comm os,MIDA,1
.text
.global main
main:
 pushl $is
 call printf
 addl $4, %esp

 movl $0, %ecx
for:
# cmpb is(%ecx), $0 ERROR
 cmpb $0, is(%ecx)
 je endfor # is(%ecx)==$0
 pushl %ecx
 pushl is(%ecx)
 call minuscula
 addl $4, %esp
 popl %ecx
 movb %al, os(%ecx)
 incl %ecx
 jmp for
endfor:
 movb $0, os(%ecx)

 pushl $os
 call printf
 addl $4, %esp

 movl $0, %ebx
 movl $1, %eax
 int $0x80

minuscula:
 pushl %ebp
 movl %esp, %ebp

 movb 8(%ebp), %al
 cmpb $'A', %al
 jl minendif # %al < $'A'
 cmpb $'Z', %al
 jg minendif # %al > $'Z'
 addb $'a'-'A', %al

minendif:
 popl %ebp
 ret