Chương trình tính giá trị biểu thức bằng hợp ngữ MIPS pps

Chương trình tính giá trị biểu thức bằng hợp ngữ MIPS Xây dựng chương trình MIPS sau không bắt buộc dùng thủ tục/hàm: Nhập vào chuỗi biểu thức gồm có các toán tử sau: + – * / _, và tính

Chương trình tính giá trị biểu thức bằng hợp ngữ MIPS

Xây dựng chương trình MIPS sau (không bắt buộc dùng thủ tục/hàm):

Nhập vào chuỗi biểu thức gồm có các toán tử sau: + – * / (_), và tính kết quả của biểu thức đó

Ví dụ: 12*3+24/(9-3)-90

Ghi chú:

+ Độ ưu tiên của toán tử: 1: (_) ; 2: * / ; 3: + -

+ Các toán hạng là số nguyên được giới hạn trong đoạn [0,999]

+ Tìm hiểu stack và thuật toán balan ngược (trong cấu trúc dữ liệu)

+ Kết quả của biểu thức: số nguyên hoặc số thực (chỉ cần chọn 1 trong 2) hoặc số thực (chỉ cần chọn 1 trong 2)

Đây là bài làm của tôi:

# $s1: expression string

# $sp, $t0: stack

# $s0, $t1: queue

.data

text_1: asciiz "Nhap bieu thuc: "

text_2: asciiz "Gia tri bieu thuc: " text_3: asciiz "Bieu thuc khong dung!" .text

main:

move $t0, $sp

addi $s0, $sp, -102400

move $t1, $s0

addi $s1, $s0, -102400

li $v0, 4 #print string

la $a0, text_1

syscall

addi $s1, $s1, -1024

move $a0, $s1

li $v0, 8 #read string

li $a1, 1024

syscall

Infix2Postfix:

lbu $t2, 0($s1)

beq $t2, 10, end_Infix2Postfix # if s[0]=='n' goto end_Infix2Postfix

beq $t2, '(',open

beq $t2, ')',close

beq $t2, '+',operator

beq $t2, '-',operator

beq $t2, '*',operator

beq $t2, '/',operator

move $a0, $t2

jal Is_number

beq $v0, 1, operand

addi $s1, $s1, 1 # next character

j Infix2Postfix

open:

li $a0, 0

li $a1, 0

jal Push_stack

addi $s1, $s1, 1 # next character

j Infix2Postfix

close:

jal Is_Empty_stack

beq $v0, 1, Expression_Error

jal Pop_stack

beq $v0, $zero, end_close

move $a0, $v0

move $a1, $v1

jal Push_queue

j close

end_close:

addi $s1, $s1, 1 # next character

j Infix2Postfix

operator:

beq $t2, '+',o1

beq $t2, '-',o1

beq $t2, '*',o2

beq $t2, '/',o2

o1:

li $t3, 1

j while_o

o2:

li $t3, 2

while_o:

jal Is_Empty_stack beq $v0, 1, end_while_o

jal Top_stack

slt $t4, $v0, $t3

beq $t4, 1, end_while_o

jal Pop_stack

move $a0, $v0

move $a1, $v1

jal Push_queue

end_while_o:

move $a0, $t3

move $a1, $t2

jal Push_stack

addi $s1, $s1, 1 # next character

j Infix2Postfix

operand:

sub $t3, $t2, '0'

while_number:

lbu $t2, 1($s1)

move $a0, $t2

jal Is_number

beq $v0, 0, end_while_number mul $t3, $t3, 10

sub $t2, $t2, '0'

add $t3, $t3, $t2

addi $s1, $s1, 1

j while_number

end_while_number:

li $a0, 3

move $a1, $t3

jal Push_queue

addi $s1, $s1, 1 # next character

j Infix2Postfix

end_Infix2Postfix:

while_not_Empty_stack:

jal Is_Empty_stack

beq $v0, 1, end_while_not_Empty_stack jal Pop_stack

move $a0, $v0

move $a1, $v1

jal Push_queue

j while_not_Empty_stack

end_while_not_Empty_stack:

while_not_Empty_queue:

jal Is_Empty_queue

beq $v0, 1, end_while_not_Empty_queue jal Pop_queue

beq $v0, 3, _operand

move $a2, $v1

jal Pop_stack

bne $v0, 3, Expression_Error

move $a1, $v1

jal Pop_stack

bne $v0, 3, Expression_Error

move $a0, $v1

jal calculate

li $a0, 3

move $a1, $v0

jal Push_stack

j while_not_Empty_queue _operand:

move $a0, $v0

move $a1, $v1

jal Push_stack

j while_not_Empty_queue

end_while_not_Empty_queue:

li $v0, 4 #print string

la $a0, text_2

syscall

jal Pop_stack

move $a0, $v1

li $v0, 1

syscall

end_program:

li $v0, 10 #exit syscall

Expression_Error:

li $v0, 4 #print string

la $a0, text_3

syscall

j end_program

Is_number:

beq $a0, '0',_number beq $a0, '1',_number beq $a0, '2',_number beq $a0, '3',_number beq $a0, '4',_number beq $a0, '5',_number beq $a0, '6',_number beq $a0, '7',_number beq $a0, '8',_number beq $a0, '9',_number

li $v0, 0

jr $ra

_number:

li $v0, 1

jr $ra

calculate:

beq $a2, '+', _add beq $a2, '-', _sub beq $a2, '*', _mul

div $a0, $a1 mflo $v0

jr $ra

_add:

add $v0, $a0, $a1

jr $ra

_sub:

sub $v0, $a0, $a1

jr $ra

_mul:

mul $v0, $a0, $a1

jr $ra

Push_stack:

addi $t0, $t0, -8

sw $a0, 0($t0) #save type of token

sw $a1, 4($t0) #save value of token

jr $ra

Push_queue:

addi $s0, $s0, -8

sw $a0, 0($s0) #save type of token

sw $a1, 4($s0) #save value of token

jr $ra

Pop_stack:

lw $v0, 0($t0)

lw $v1, 4($t0)

addi $t0, $t0, 8

jr $ra

Top_stack:

lw $v0, 0($t0)

lw $v1, 4($t0)

jr $ra

Pop_queue:

lw $v0, -8($t1)

lw $v1, -4($t1)

addi $t1, $t1, -8

jr $ra

Is_Empty_stack:

beq $sp, $t0, Empty_stack

li $v0, 0

jr $ra

Empty_stack:

li $v0, 1

jr $ra

Is_Empty_queue:

beq $s0, $t1, Empty_queue

li $v0, 0

jr $ra

Empty_queue:

li $v0, 1

jr $ra