MIPS lab5/лаб5 palindrom/palindrom (nedovrsena)

.data
    str: .asciiz "racecar"

.text

main:

   # jal readText

    la      $a0,    str
    jal     symmetry

    la      $a0,    str
    move    $a0,    $v0
    li      $v0,    1
    syscall

    #izlez od main
    li      $v0,    10
    syscall

#funkcija za vnesuvanje text
	#readText:
		#li $v0, 8
		#la $a0, str
		#li $a1, 50
		#syscall
		#jr $ra

#f-ja za dolzina na vneseniot text
strlen:

    li      $v0,    0
strlen_loop:
    lb      $t0,    0($a0)
    beq     $t0,    $0,     strlen_exit

    addi    $a0,    $a0,    1
    addi    $v0,    $v0,    1
    j       strlen_loop

strlen_exit:
    jr      $ra

symmetry:


    sub     $sp,    $sp,    8
    sw      $ra     0($sp)
    sw      $a0     4($sp)

    jal     strlen
    move    $t0,    $v0

    lw      $a0     4($sp)
    move    $t1,    $a0

    li      $t2,    1
    li      $v0,    1
    div     $t3,    $t0,    2
    addi    $t3,    $t3,    1

symmetryLoop:
    bge     $t2,    $t3     symmetryExit
    lb      $t4,    0($a0)

    sub     $t5,    $t0,    $t2
    add     $t6,    $t5,    $t1
    lb      $t7,    0($t6)

    beq     $t4,    $t7,    symmetryContinue
    li      $v0,    0
    j       symmetryExit

symmetryContinue:
    addi    $a0,    $a0,    1
    addi    $t2,    $t2,    1
    j       symmetryLoop

symmetryExit:
    lw      $ra     0($sp)
    addi    $sp,    $sp,    8
    jr      $ra