39 lines
510 B
ArmAsm
39 lines
510 B
ArmAsm
|
.equ INKEY, 1
|
||
|
|
.equ GET_CHAR, 2
|
||
|
|
.equ PUT_CHAT, 3
|
||
|
|
.equ PRINT_INT, 6
|
||
|
|
.equ PRINT_STR, 8
|
||
|
|
.data
|
||
|
|
|
||
|
|
.text
|
||
|
|
.globl main
|
||
|
|
|
||
|
|
# Mapa de registos
|
||
|
|
# $t0: cnt
|
||
|
|
# $t1: c
|
||
|
|
|
||
|
|
main: li $t0, 0
|
||
|
|
|
||
|
|
do: # do {
|
||
|
|
li $v0, INKEY
|
||
|
|
syscall
|
||
|
|
move $t1, $v0 # c = inkey();
|
||
|
|
|
||
|
|
if: beq $t1, 0, fi # if (c != 0) {
|
||
|
|
move $a0, $t1 # putchar(c);
|
||
|
|
|
||
|
|
fi: li $v0, PUT_CHAT
|
||
|
|
syscall # getchar();
|
||
|
|
|
||
|
|
addi $t0, 1 # cnt++;
|
||
|
|
|
||
|
|
bne $t1, '\n', do # } while (c != '\n');
|
||
|
|
|
||
|
|
fi: li $v0, PRINT_INT
|
||
|
|
move $a0, $t0
|
||
|
|
li $a1, 10
|
||
|
|
syscall
|
||
|
|
|
||
|
|
li $v0, 0
|
||
|
|
jr $ra
|