mips: calcolatrice interi

.data
    mex1: .asciiz "\nSelezionare operazione calcolatrice"
    mex2: .asciiz "\n1. somma\n2. sottrazione\n3. prodotto\n4. divisione\n5. esci"
    mex3: .asciiz "\nScegliere opzione: "
    mex4: .asciiz "\nRisulato: "
    mex5: .asciiz "\nErrore, opzione non ammessa"
    mex6: .asciiz "Inserire primo intero: "
    mex7: .asciiz "Inserire secondo intero: "
.text
######  uso variabili:  ######
# $t0= $ra menu or opzioni
# $t1= $ra operazioni
# $t2= $ra caricoDati
# $t3= reserved
# $t4= risposta menu
# $t5= controllo risp. menu
# $s0= risultato operazione
# $s1= dato1
# $s2= dato2

    main:
        jal menu
        jal opzioni
        jal result
        j main

    menu:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        #stampo messaggi
        la $a0, mex1
        jal printer
        la $a0, mex2
        jal printer
        la $a0, mex3
        jal printer
        #scelta
        jal domanda
        add $t4, $v0, $zero #conservo risposta in $t4
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra

    printer:
        li $v0, 4
        syscall
        jr $ra

    domanda:
        li $v0, 5
        syscall
        jr $ra

    opzioni:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        #controllo risp corretta
        slti $t5, $t4, 6
        bne $t5, 1, rispErr #risp>5?->err
        slti $t5, $t4, 1
        beq $t5, 1, rispErr #risp<1?->err
        #scelta
        beq $t4, 1, somma
        beq $t4, 2, sottrazione
        beq $t4, 3, moltiplicazione
        beq $t4, 4, divisione
        beq $t4, 5, exit
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra

    rispErr:
        la $a0, mex5
        jal printer
        j main

    exit:
        li $v0, 10
        syscall

        #operazioni
    somma:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        jal caricoDati
        add $s0, $s1, $s2   #somma
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra
    sottrazione:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        jal caricoDati
        sub $s0, $s1, $s2   #sottrazioni
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra
    moltiplicazione:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        jal caricoDati
        mul  $s0, $s1, $s2  #moltiplicazione
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra
    divisione:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        jal caricoDati
        div $s0, $s1, $s2   #divisione
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra

    caricoDati:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        #dato1
        la $a0, mex6        #stampa mex
        jal printer
        jal domanda     #chiede intero
        add $s1, $v0, $zero #conservo primo dato in $s1
        #dato2
        la $a0, mex7        #stampa mex
        jal printer
        jal domanda     #chiede intero
        add $s2, $v0, $zero #conservo secondo dato in $s2
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra

    result:
        #conservo $ra
        addi $sp, $sp, -4   #alloco un posto
        sw $ra, 0($sp)      # push($ra)
        la $a0, mex4
        jal printer
        add $a0, $s0, $zero
        #stampa intero
        li $v0, 1
        syscall
        #ripristino $ra
        lw $ra, 0($sp)      # pop($ra)
        addi $sp,$sp,4      # ripristino lo stack
        jr $ra