Длина строки Mips, конкатенация и неправильное отображение копии

Question

Длина строки Mips, конкатенация и неправильное отображение копии

Я пишу код сборки Mips для получения дополнительной оценки в моем классе организации компьютеров и сборки.

Мы должны взять три строки (S1, S2, S3). Затем мы объединяем три строки в другую (S4 = S1+S2+S3). Мы также копируем эту строку, чтобы S6 = S4, Мы также получаем длину нашей объединенной строки, так L2 = S4 длина.
После этого мы копируем наши S3 вступить в S5, Наконец, мы получаем длину S1,

Тем не менее, мой дисплей не так. Код должен отображать "Три строки объединены: я люблю сборку. Длина строки 4 составляет: 15. Когда строка 4 копируется в строку 6, строка 6 имеет вид: Я люблю сборку. Когда строка 3 копируется в строку 5, строка 5 представляет собой: сборка. Длина первой строки: 2'.

Вместо того, чтобы получить это, мой дисплей показывает: "Три строки объединены: я люблю ssemblyy. Длина строки 4: 268501001. Когда строка 4 копируется в строку 6, строка 6 выглядит так: Я люблю ssemblyy. Когда строка 3 копируется в строку 5, строка 5 имеет вид: ssemblyy. Длина первой строки: 17'.

Где я ошибся в своем коде для создания этого дисплея? `

.data
.align 4
S1: .asciiz "I "
S2: .asciiz "love "
S3: .asciiz "assembly"
string1: .asciiz "The first string is:\n"
string2: .asciiz "\nThe second string is:\n"
string3: .asciiz "\nThe third string is:\n"
string4: .space 16
string5: .space 9
string6: .space 16
S4: .asciiz "\nThe three strings combined are: "
S5: .asciiz "\nWhen string 3 is copied into string 5, string 5 is: "
S6: .asciiz "\nWhen string 4 is copied into string 6, string 6 is: "
L1: .asciiz "\nThe length of the first string is: "
L2: .asciiz "\nThe length of string 4 is: "
.text
main:
    #display all three strings first
    li $v0, 4
    la $a0, string1
    syscall
    la $a0, S1
    syscall
    la $a0, string2
    syscall
    la $a0, S2
    syscall
    la $a0, string3
    syscall
    la $a0, S3
    syscall
    #display the three string when concatenated, as well as copied into S6, and their length
    la $s0, string4
    la $s1, S1
    la $s2, S2
    la $s3, S3
    jal strcatFirst
    jal printConcat
    addi $a2, $a1, 0
    addi $v1, $v0, 0
    addi $v0, $0, 11
    la $s0, S4
    syscall
    jal printConcatCopy
    addi $s2, $s1, 0
    addi $v1, $v0, 0
    addi $v0, $0, 11
    la $s0, S6
    syscall
    jal printConcatLength
    addi $a2, $a1, 0
    addi $v1, $v0, 0
    addi $v0, $0, 11
    la $s0, L2
    syscall
    #display string 5 when string 3 is copied into it
    la $s1, string5
    la $s2, S3
    jal strcpy    
    jal print2
    addi $s2, $s1, 0
    addi $v1, $v0, 0
    addi $v0, $0, 11
    la $s0, S5
    syscall
    #display length of string 1
    la $a0, S1 #load address of string
    jal strlen #call string length procedure
    move $a0, $v0
    jal print4
    addi $a1, $a0, 0 #move address of string to $a1
    addi $v1, $v0, 0 #move length of string to $v1
    addi $v0, $0, 11 #syscall code for message
    la $a0, L1 #address of message
    syscall
    li $v0, 10
    syscall

strcatFirst:
    lb $t0, ($s1)
    beqz $t0, strcatSecond
    sb $t0, ($s0)
    addi $s1, $s1, 1
    addi $s0, $s0, 1
    j strcatFirst

strcatSecond:
    lb $t0,($s2)
    beqz $t0, strcatThird
    sb $t0, ($s1)
    addi $s2, $s2, 1
    addi $s1, $s1, 1
    j strcatSecond

strcatThird:
    lb $t0, ($s3)
    beqz $t0, endStrcat
    sb $t0, ($s2)
    addi $s3, $s3, 1
    addi $s2, $s2, 1
    j strcatThird

endStrcat:
    jr $ra
printConcat:
    addi $sp, $sp, -12
    sw $fp, 8($sp)
    addi $fp, $sp, 16
    sw $ra, 0($fp)
    sw $s0, -4($fp)
    move $s0, $a0 # store the argument in a save register
    li $v0, 4
    la $a0, S4
    syscall
    li $v0, 4
    move $a0, $s0 # retrieve the argument from $s0
    syscall
    lw $s0, -4($fp)
    lw $ra, 0($fp)
    lw $fp, 8($sp)
    addi $sp, $sp, 12
    jr $ra

strcpy:
    lbu $t0, 0($s2) #load a byte from source string
    beqz $t0, cpyExit #stop when null is copied
    sb $t0, 0($s1) #store byte in destination string
    addi $s2, $s2, 1 #increment both addresses
    addi $s1, $s1, 1

    j strcpy


cpyExit:
    jr $ra

print2:
    addi $sp, $sp, -12
    sw $fp, 8($sp)
    addi $fp, $sp, 16
    sw $ra, 0($fp)
    sw $s0, -4($fp)
    move $s0, $a0 # store the argument in a save register
    li $v0, 4
    la $a0, S5
    syscall
    li $v0, 4
    move $a0, $s0 # retrieve the argument from $s0
    syscall
    lw $s0, -4($fp)
    lw $ra, 0($fp)
    lw $fp, 8($sp)
    addi $sp, $sp, 12
    jr $ra

printConcatCopy:
    addi $sp, $sp, -12
    sw $fp, 8($sp)
    addi $fp, $sp, 16
    sw $ra, 0($fp)
    sw $s0, -4($fp)
    move $s0, $a0 # store the argument in a save register
    li $v0, 4
    la $a0, S6
    syscall
    li $v0, 4
    move $a0, $s0 # retrieve the argument from $s0
    syscall
    lw $s0, -4($fp)
    lw $ra, 0($fp)
    lw $fp, 8($sp)
    addi $sp, $sp, 12
    jr $ra

printConcatLength:
    addi $sp, $sp, -12
    sw $fp, 8($sp)
    addi $fp, $sp, 16
    sw $ra, 0($fp)
    sw $s0, -4($fp)
    move $s0, $a0 # store the argument in a save register
    li $v0, 4
    la $a0, L2
    syscall
    li $v0, 1
    move $a0, $s0 # retrieve the argument from $s0
    syscall
    lw $s0, -4($fp)
    lw $ra, 0($fp)
    lw $fp, 8($sp)
    addi $sp, $sp, 12
    jr $ra                
 strlen:
    move $t0, $zero #initialize count to start with 0 for first character
    j strlen.test
strlen.loop:
    addi $a0, $a0, 1 #load increment string pointer
    addi $t0, $t0, 1 #increment count
strlen.test:
    lb $t1, 0($a0) #load the next character to t0
    bnez $t1, strlen.loop #end loop if null character is reached
    move $v0, $t0
    jr $ra
print4:
    addi $sp, $sp, -12
    sw $fp, 8($sp)
    addi $fp, $sp, 16
    sw $ra, 0($fp)
    sw $s0, -4($fp)
    move $s0, $a0 # store the argument in a save register
    li $v0, 4
    la $a0, L1
    syscall
    li $v0, 1
    move $a0, $s0 # retrieve the argument from $s0
    syscall
    lw $s0, -4($fp)
    lw $ra, 0($fp)
    lw $fp, 8($sp)
    addi $sp, $sp, 12
    jr $ra

`

0

mips strcpy strcat spim

Источник

user3408013 15 мар '14 в 20:41

1 ответ

Другие вопросы по тегам mips strcpy strcat spim

user2517591 16 мар '14 в 03:08 2014-03-16 03:08 · Answer 1 · 2014-03-16 03:08

Здесь много чего не так, поэтому я думаю, что просто решу первую проблему - взять 3 строки и объединить их.

Первое, что я сделал, это вынул .align 4 директивы. Это не должно быть там. Вы просите компилятор выровнять 2^4 граница байта. Возможно, вы имели в виду .align 2 для выравнивания слов, но это по-прежнему не нужно, поскольку вы храните строки, а не слова.

Далее я посмотрел на ваш strcatFirst процедура. Я заметил, что каждый из циклов опережает два регистра. Один из них - это регистр, содержащий адрес копируемого слова, а второй - регистр, содержащий адрес копируемого слова.

Я не уверен почему, но я предполагаю, что это опечатка, которая вызвала увеличение $s0 в $s1 в $s2 в каждой из ваших петель. Помните, что регистр назначения sb всегда должен быть $s0,

Наконец-то возникла проблема в вашей функции printConcat, Во-первых, была куча манипуляций со стеком, которая выглядела совершенно ненужной, поэтому я удалил ее. Следующая попытка печати string4 используя $s0забыв, что значение $s0 был изменен в strcatFirst так как он был загружен.

Одна важная вещь, которую я хочу отметить, заключается в том, что использование вами переменных нарушает соглашение о вызовах MIPS. Вы должны использовать $a регистрирует в качестве аргументов функции, а не $s регистры.

Ниже приведено решение для части 1:

.data
S1: .asciiz "I "
S2: .asciiz "love "
S3: .asciiz "assembly"
string1: .asciiz "The first string is: "
string2: .asciiz "\nThe second string is: "
string3: .asciiz "\nThe third string is: "
string4: .space 16
S4: .asciiz "\nThe three strings combined are: "

.text
main:
    #display all three strings first
    li $v0, 4
    la $a0, string1
    syscall
    la $a0, S1
    syscall
    la $a0, string2
    syscall
    la $a0, S2
    syscall
    la $a0, string3
    syscall
    la $a0, S3
    syscall

    #concat
    la $a0, string4
    la $a1, S1
    la $a2, S2
    la $a3, S3
    jal strcatFirst

    #print
    jal printConcat

    #exit
    li $v0, 10
    syscall

strcatFirst:
        lb $t0, ($a1)
        beqz $t0, strcatSecond
        sb $t0, ($a0)
        addi $a1, $a1, 1
        addi $a0, $a0, 1
    j strcatFirst

    strcatSecond:
        lb $t0,($a2)
        beqz $t0, strcatThird
        sb $t0, ($a0)
        addi $a2, $a2, 1
        addi $a0, $a0, 1
        j strcatSecond

    strcatThird:
        lb $t0, ($a3)
        beqz $t0, endStrcat
        sb $t0, ($a0)
        addi $a3, $a3, 1
        addi $a0, $a0, 1
        j strcatThird

    endStrcat:
        jr $ra

printConcat:

    #print label
    li $v0, 4
    la $a0, S4
    syscall

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

    jr $ra