.data
    number: .word 23
    sep: .asciiz "\n"
    inptext: .asciiz "Integer\n"
    sign: .asciiz "Sign bit is"
    setStr: .asciiz " 1-(set)"
    unsetStr: .asciiz " 0-(unset)"
.text
    # Initial dialog
    li $v0, 4
    la $a0, inptext
    syscall

    # Integer value pre transformation
    li $v0, 1
    lw $a0, number
    syscall
    li $v0, 4
    la $a0, sep
    syscall

    # sign dialog
    li $v0, 4
    la $a0, sign
    syscall

    # shifts block + sign result
    lw $a2, number
    srl $a2, $a2, 31
    sll $a2, $a2, 31
    li $v0, 4
    beq $a2, 0, unset
set:
    la $a0, setStr
    syscall
    j exit

unset:
    la $a0, unsetStr
    syscall

exit:
    li      $v0, 10
    syscall