THMMY.gr

	li	$t0, 0			#counter from 0 to 12
	la	$t2, arrayA		#array starting address, array has 4 elements
	
for_in:
	bgt	$t0, 12, exit_in	#if more than 12 exit
	add	$t2, $t2, $t0		#current element's address
	
	lw	$t3, ($t2)		#print it
	move $a0, $t3
	li $v0, 1
	syscall
	
	add	$t0, $t0, 4		#4 bytes for each int
	j	for_in
exit_in:

	li	$t0, 0								#t0 counts array's elements
	la	$t2, arrayA							#load arrayA's address
loop:										#printing starts here
	bgt	$t0, 24, exit_loop						#if element's address is greater than 24 we reached the end of the array
	add	$t3, $t2, $t0							#add t0 (0->8->16->24) to the base address of the array
	
	l.d	$f4, ($t3)							#load the value of this element
	mov.d $f12, $f4								#print it
	li $v0, 3
	syscall
	
	la $a0, str_prompt_tab							#print tab character
	li $v0, 4
	syscall
	
	add	$t0, $t0, 8							#add 8 to the counter
	j	loop								#start the loop again
exit_loop:

l.s $f2, 24(t1)       # Load Single contained in 24(t1) to $f2

lwc1 $f2, 24(t1)      # Load Word into Coprocessor 1 from 24(t1) to $f2

 c[i][j] 

add	$a0, $t5, 1
	li $v0, 1
	syscall

για t5 από 0 έως 1			\\t5 == γραμμές
	για t6 από 0 έως 1		\\t6 == στήλες
		εμφάνισε "a["		\\το έχω στο .data
		εμφάνισε t5 + 1
		εμφάνισε ","		\\το έχω στο .data
		εμφάνισε t6 + 1
		εμφάνισε "]= "		\\το έχω στο .data
		διάβασε τιμή από τον χρήστη
		αποθήκευσε την στο (2*t5+t6)*8+base_address του πίνακα a
		εμφάνισε "\n"

a[1,1]= (περιμένει τιμή και όταν πάρει αλλάζει σειρά)
a[1,2]= (περιμένει τιμή και όταν πάρει αλλάζει σειρά)
a[2,1]= (περιμένει τιμή και όταν πάρει αλλάζει σειρά)
a[2,2]= (περιμένει τιμή και όταν πάρει αλλάζει σειρά)

message1: .asciiz " message1 \n"
message2: .asciiz "message2 \n"

li $v0,4
la $a0,message1
syscall
li $v0,4
la $a0,message2
syscall

sdc1 $f0, ArrayA($t0)

.data
...
ArrayA:		.space		32	#4x8 epeidi einai double
...
.text
whileA1:
		
	beq $t5, 2, exitA1
			
		whileA2:
			
			beq $t6, 2, exitA2
			li	$v0, 4		#emfanise to a[
			la	$a0, msg_1
			syscall
			add $a0, $t5, 1		#emfanise to t5+1
			li $v0, 1
			syscall
			li	$v0, 4
			la	$a0, msg_4	#emfanise to ,
			syscall
			add $a0, $t6, 1		#emfanise to t6+1
			li $v0, 1
			syscall
			li	$v0, 4
			la	$a0, msg_5	#emfanise to ]=
			syscall
			
			
			
			#Apothikeusi sti katallili dieuthnisi
			la	$a1, ArrayA
			addi	$t7, $zero, 0	#t7=0
			sll	$t7, $t5, 1 	#t7=2*t5
			add	$t7, $t7, $t6	#t7=t7+t6
			sll	$t7, $t7, 3	#t7=8*t7
			add	$t7, $t7, $a1	#t7=t7+base adress of A
			li $v0, 7		        #Diavase to Double apo to user
			syscall			#tha to kanei save sto f0
			[b]sdc1	$f0, 0($t7)[/b]
			
			li	$v0, 4		#NewLine
			la	$a0, NewLine
			syscall

			addi	$t6, $t6, 1	#t6=t6+1
			j	whileA2


		exitA2: 
			addi	$t6, $zero, 0	#t6=0	
			addi	$t5, $t5, 1	#t5=t5+1
			j	whileA1

ldc1 $f4,0($t1)

li.d $f4, 0.0

addu $t1,$a3,$t5		#Base address + (i*2 + j)*8

loop_i:
    (code goes here)
    increment i
    if (i != exit_value) goto loop_i