el de fako

	.data
        CONTROL: .word32 0x10000
        DATA: .word32 0x10008
        corte: .asciiz "."
        letra: .byte 0

		.text
        lwu $s0, DATA($0) ; $s0 = dirección de DATA
        lwu $s1, CONTROL($0) ; $s1 = dirección de CONTROL
        daddi $t0, $0, 6 ; $t0 = 6 -> función 6: limpiar pantalla alfanumérica
        sd $t0, 0($s1) ; CONTROL recibe 6 y limpia la pantalla
        lb $t2, corte($0)

loop: 	daddi $t0, $zero, 9 ;se espera el ingreso de un caracter
        sd $t0, 0($s1) ; cargamos en CONTROL la espera del ingreso de un caracter
        lb $t1, 0($s0) ; traigo el caracter leido desde DATA
        beq $t1, $t2, fin
        sb $t1, letra($0) ; ponemos en letra el caracter de data
        daddi $t0, $0, letra; cargo la direccion de letra
        sd $t0, 0($s0) ;cargo en DATA el caracter
        daddi $t0, $0, 4 ; $t0 = 4 -> función 4: salida de una cadena ASCII
        sd $t0, 0($s1) ; CONTROL recibe 4 y produce la salida del mensaje
        j loop
fin: 	halt