ASC lab5 prob2

.data

n: .space 128
fin: .space 128

.text

main:

        # t0 sirul meu
        #t1 primul caracter
        #t2 lungiea sirului

li $v0, 5
syscall

# in t0 este numarul de la tastatura
# in t1 este ultima cifra
move $t0, $v0

li $t4, 0

while:
    rem $t1, $t0, 10

    addi $t4, $t4, 1

    beq $t0, $0, iesire
    subu $sp, $sp, 4
    sw $t1, ($sp)
    div $t0, $t0, 10

    j while

iesire:

move $t0, $v0

div $t4, $t4, 2

for:
    lw $t2, ($sp)
    addu $sp, $sp, 4
    rem $t3, $t0, 10
    div $t0, $t0, 10
    subu $t4, $t4, 1

    bne $t2, $t3, out

    beq $t4, $0, ok
j for

ok:

li $a0, 1
li $v0, 1
syscall

j exit

out:

li $a0, 0
li $v0, 1
syscall

exit:

li $v0, 10
syscall