.text
        .globl main

main:
        subu $sp,$sp,8
        sw $ra,4($sp)
        sw $s0,0($sp)

        la $s0,array
loop:   lw $a0,($s0)
        beqz $a0,endm
        lw $a1,4($s0)
        jal compare
        move $a0,$v0
        li $v0,1
        syscall
        addu $s0,$s0,8
        j loop

endm:   lw $s0,0($sp)
        lw $ra,4($sp)
        addu $sp,$sp,8
        jr $ra

#confronta due stringhe
#a0 str1
#a1 str2
#v0 result -1,0,1
compare:
        lbu $t0,($a0)
        lbu $t1,($a1)
        blt $t0,$t1,endlt
        bgt $t0,$t1,endgt
        beqz $t0,endeq
        addu $a0,$a0,1
        addu $a1,$a1,1
        j compare

endeq:  li $v0,0
        jr $ra
endlt:  li $v0,-1
        jr $ra
endgt:  li $v0,1
        jr $ra


        .data
array: .word str1,str2,s21,s22,s31,s32,btr1,htr2,jtr1,iur2,0
endarray:

str1:.asciiz "abf"
str2:.asciiz "dec"
s21:    .asciiz ""
s22:    .asciiz ""
s31:    .asciiz "abc"
s32:    .asciiz "abc"
btr1:.asciiz "abc"
htr2:.asciiz "abcddd"
jtr1:.asciiz "abcddd"
iur2:.asciiz "abc"