-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscambiocolonne23.asm
178 lines (117 loc) · 2.57 KB
/
scambiocolonne23.asm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
#scambio seconda e terza colonna
.data
inserimento:.asciiz "inserisci matrice "
spazio:.asciiz " "
duepunti:.asciiz ":"
accapo:.asciiz " \n "
stampas:.asciiz " la matrice e' la seguente "
.text
.globl main
main:
#matrice 3x3(9*4 = 36)
addi $sp,$sp,-36
move $a0,$sp
jal inserisci
move $a0,$sp
jal stampa
move $a0,$sp
jal scambio
la $a0,stampas
li $v0,4
syscall
la $a0,accapo
li $v0,4
syscall
move $a0,$sp
jal stampa
la $a0,accapo
li $v0,4
syscall
addi $sp,$sp,36
li $v0,10
syscall
inserisci:
move $t9,$a0
li $t0,0 #contatore delle righe
ciclo_righe:
beq $t0,3,fine_righe
li $t1,0 #contatore delle colonne
ciclo_colonne:
beq $t1,3,fine_colonne
la $a0,inserimento
li $v0,4
syscall
move $a0,$t0 #stampo contatore righe
li $v0,1
syscall
la $a0,spazio
li $v0,4
syscall
move $a0,$t1 #stampo contatore colonne
li $v0,1
syscall
la $a0,duepunti
li $v0,4
syscall
li $v0,5 #inserisci eleemnto
syscall
sw $v0,($t9) #salvo nella matrice
addi $t9,$t9,4 #avanzo nella stringa
addi $t1,$t1,1 #incremento il contatore delle righe
j ciclo_colonne
fine_colonne:
addi $t0,$t0,1 #incremento il contatore delle colonne
j ciclo_righe
fine_righe:
jr $ra
stampa:
move $t9,$a0
li $t0,0
ciclo_righes:
beq $t0,3,esci_righes
li $t1,0
ciclo_colonnes:
beq $t1,3,esci_colonnes
lw $t3,($t9)
move $a0,$t3
li $v0,1
syscall
la $a0,spazio
li $v0,4
syscall
addi $t9,$t9,4
addi $t1,$t1,1
j ciclo_colonnes
esci_colonnes:
la $a0, accapo #per ogni riga un accapo
li $v0, 4
syscall
addi $t0, $t0,1
j ciclo_righes
esci_righes:
jr $ra
scambio:
move $t9,$a0
move $t8,$a0 #utilizzo anche $t8 come testa per muovermi nella terza colonna
li $t0,0
ciclo_interno:
beq $t0,1,esci_ciclointerno
addi $t9,$t9,4 #al di fuori del ciclo posizione una testa sull'elemento 2 della colonna 2
addi $t8,$t8,8 # lo stesso faccio ma la posizione sulla terza colonna per prendere il primo elemento
li $t1,0
ciclo_esterno:
beq $t1,3,esci_cicloesterno
lw $t2,($t9) #carico elemento seconda colonna
lw $t3,($t8) #carico elemento terza colonna
sw $t2,($t8) #swap
sw $t3,($t9) #swap
addi $t1,$t1,1 #incremento il contatore
addi $t9,$t9,12 # mi sposto di 12 per prendere l'elemento successivo perche le colonne vanno di dodici in dodici
addi $t8,$t8,12#la stessa cosa faccio qui ma per il terzo elemento
j ciclo_esterno
esci_cicloesterno:
addi $t0,$t0,1 # il ciclo interno lo faccio arrivare ad uno perche effettuo un solo swap
#e non mi serve sprecare battiti di clock
j ciclo_interno
esci_ciclointerno:
jr $ra