73 lines
1.2 KiB
NASM
73 lines
1.2 KiB
NASM
.data
|
|
.eqv SIZE, 20
|
|
.eqv print_string, 4
|
|
.eqv read_string, 8
|
|
str: .space 21
|
|
str1: .asciiz "Introduza uma string: "
|
|
|
|
.text
|
|
.globl main
|
|
|
|
# Mapa de registos
|
|
# $t0: p
|
|
# $t1: *p
|
|
|
|
main: li $v0, print_string
|
|
la $a0, str1
|
|
syscall # print_string("Introduza uma string: ");
|
|
|
|
la $a0, str
|
|
li $a1, SIZE
|
|
li $v0, read_string
|
|
syscall # read_string(str, SIZE);
|
|
|
|
# --- CONVERTER PARA MAIÚSCULAS ---
|
|
|
|
la $t0, str # p = str;
|
|
|
|
while1: lb $t1, 0($t0)
|
|
beq $t1, 0x00, endw1 # while (*p != '\0') {
|
|
|
|
if1: blt $t1, 0x61, else1 # if (*p >= 'a')
|
|
bgt $t1, 0x7A, else1 # if (*p <= 'z')
|
|
|
|
addiu $t1, $t1, -0x20 # *p = *p - 'a' + 'A';
|
|
sb $t1, 0($t0)
|
|
|
|
else1: addiu $t0, $t0, 1 # p++
|
|
j while1 # }
|
|
|
|
endw1: li $v0, print_string
|
|
la $a0, str
|
|
syscall
|
|
|
|
# ---------------------------------
|
|
|
|
li $v0, 11
|
|
li $a0, '\n'
|
|
syscall
|
|
|
|
# --- CONVERTER PARA MINÚSCULAS ---
|
|
|
|
la $t0, str # p = str;
|
|
|
|
while2: lb $t1, 0($t0)
|
|
beq $t1, 0x00, endw2 # while (*p != '\0') {
|
|
|
|
if2: blt $t1, 0x41, else2 # if (*p >= 'a')
|
|
bgt $t1, 0x5A, else2 # if (*p <= 'z')
|
|
|
|
addiu $t1, $t1, 0x20 # *p = *p - 'a' + 'A';
|
|
sb $t1, 0($t0)
|
|
|
|
else2: addiu $t0, $t0, 1 # p++
|
|
j while2 # }
|
|
|
|
endw2: li $v0, print_string
|
|
la $a0, str
|
|
syscall
|
|
|
|
# ---------------------------------
|
|
|
|
jr $ra
|