.data
string1:    .asciiz     "Hello dark magic world!\n"
string2:    .asciiz     "char at position "
string3:    .asciiz     " is  \n"


    .text
main:
li  $v0, 4  # load appropriate system call code into register $v0, code for printing string is 4
la  $a0, string1    # load address of string to be printed into $a0
syscall

li $a0, 6   # index of char to print
jal print_char

addi $v0, $0, 10        # System call code for exit.
syscall

print_char:
# store index value in t0
addi    $t0, $a0, 0

# print string2
li  $v0, 4
la  $a0, string2
syscall

# print index
li  $v0, 1
addi    $a0, $t0, 0
syscall

# load char from string1[t0] to t2
la  $t1, string1
add $t1, $t1, $t0
lb  $t2, ($t1)

# update string3 at position 4 with char from t2
la  $t1, string3
sb  $t2, 4($t1)

# print string3
li  $v0, 4
la  $a0, string3
syscall

jr $ra