Diferencia entre revisiones de «Ejercicios varios Itanium (Organización del Computador II)»
De Cuba-Wiki
Sin resumen de edición |
(Ejercicios de Martin y Palla) |
||
| Línea 8: | Línea 8: | ||
.proc fibo | .proc fibo | ||
fibo: | fibo: | ||
alloc loc0=ar.pfs, 1, 4, 0, 0;; | alloc loc0=ar.pfs, 1, 4, 0, 0;; | ||
| Línea 14: | Línea 15: | ||
mov loc1= r0;; | mov loc1= r0;; | ||
mov loc2= 1;; | mov loc2= 1;; | ||
ciclo1: | ciclo1: | ||
add loc3= loc1, loc2;; | add loc3= loc1, loc2;; | ||
| Línea 20: | Línea 22: | ||
br.cloop.dptk.few ciclo1;; | br.cloop.dptk.few ciclo1;; | ||
//FinCiclo1 | //FinCiclo1 | ||
mov ar.pfs=loc0;; | mov ar.pfs=loc0;; | ||
mov r8 = loc2; | mov r8 = loc2; | ||
br.ret.sptk.many b0;; | br.ret.sptk.many b0;; | ||
.endp fibo | .endp fibo | ||
| Línea 34: | Línea 38: | ||
.proc coll | .proc coll | ||
coll: | coll: | ||
alloc loc0=ar.pfs, 1, 3, 1, 0;; | alloc loc0=ar.pfs, 1, 3, 1, 0;; | ||
mov loc2= 2;; | mov loc2= 2;; | ||
ciclo1: | ciclo1: | ||
mov loc1= loc2;; //Meto el i en r | mov loc1= loc2;; //Meto el i en r | ||
ciclo2: | ciclo2: | ||
br.call.sptk.few b2=oper;; | br.call.sptk.few b2=oper;; | ||
| Línea 45: | Línea 52: | ||
(p2)br.cond.dptk.many ciclo2;; //Salto a ciclo2 | (p2)br.cond.dptk.many ciclo2;; //Salto a ciclo2 | ||
//FinCiclo2 | //FinCiclo2 | ||
add loc2= 1, loc2;; //Incremento el i | add loc2= 1, loc2;; //Incremento el i | ||
cmp.eq p2, p1= loc2, in0;; //Comparo | cmp.eq p2, p1= loc2, in0;; //Comparo | ||
(p1) br.cond.dptk.many ciclo1;; //Salto si el i todavia no llego a n | (p1) br.cond.dptk.many ciclo1;; //Salto si el i todavia no llego a n | ||
//FinCiclo1 | //FinCiclo1 | ||
mov ar.pfs=loc0;; | mov ar.pfs=loc0;; | ||
mov r8 = 1; | mov r8 = 1; | ||
br.ret.sptk.many b0;; | br.ret.sptk.many b0;; | ||
.endp coll | .endp coll | ||
.proc oper | .proc oper | ||
oper: | oper: | ||
alloc loc0=ar.pfs, 1, 3, 0, 0;; | alloc loc0=ar.pfs, 1, 3, 0, 0;; | ||
and loc1= 1, in0;; | and loc1= 1, in0;; | ||
cmp.eq p1,p2 = 0, loc1;; //Levanta p1 si es par, p2 si impar | cmp.eq p1,p2 = 0, loc1;; //Levanta p1 si es par, p2 si impar | ||
//Si es par | //Si es par | ||
(p1)shl in0= in0, 1;; | (p1)shl in0= in0, 1;; | ||
//Si es impar | //Si es impar | ||
(p2)add loc2= in0, in0;; | (p2)add loc2= in0, in0;; | ||
(p2)add in0= loc2, in0, 1;; | (p2)add in0= loc2, in0, 1;; | ||
mov r8= loc0;; | mov r8= loc0;; | ||
mov ar.pfs= loc0;; | mov ar.pfs= loc0;; | ||
br.ret.sptk.many b2;; | br.ret.sptk.many b2;; | ||
.endp oper | .endp oper | ||
Revisión del 12:58 4 oct 2006
Fibonacci
Codigo en IA64 para calcular el kesimo numero de Fibonacci. Es iterativa, no recursiva. Recibe como parametro el kesimo numero a calcular y lo devuelve en r8.
.text .align 64 .global fibo
.proc fibo fibo: alloc loc0=ar.pfs, 1, 4, 0, 0;; add in0= -2, in0;; mov ar.LC= in0; mov loc1= r0;; mov loc2= 1;; ciclo1: add loc3= loc1, loc2;; mov loc1= loc2;; mov loc2= loc3;; br.cloop.dptk.few ciclo1;; //FinCiclo1 mov ar.pfs=loc0;; mov r8 = loc2; br.ret.sptk.many b0;; .endp fibo
Collatz
Verifica la conjetura de collatz para todos los numeros de 2 a n. El parametro es n. No calcula de a varios al mismo tiempo.
.text .align 64 .global coll
.proc coll
coll:
alloc loc0=ar.pfs, 1, 3, 1, 0;;
mov loc2= 2;;
ciclo1:
mov loc1= loc2;; //Meto el i en r
ciclo2:
br.call.sptk.few b2=oper;;
mov loc1= r8;;
cmp.ge p2, p1 = loc1, loc2;; //Comparo r con i, salto mientras no r<i
(p2)br.cond.dptk.many ciclo2;; //Salto a ciclo2
//FinCiclo2
add loc2= 1, loc2;; //Incremento el i
cmp.eq p2, p1= loc2, in0;; //Comparo
(p1) br.cond.dptk.many ciclo1;; //Salto si el i todavia no llego a n
//FinCiclo1
mov ar.pfs=loc0;;
mov r8 = 1;
br.ret.sptk.many b0;;
.endp coll
.proc oper oper: alloc loc0=ar.pfs, 1, 3, 0, 0;; and loc1= 1, in0;; cmp.eq p1,p2 = 0, loc1;; //Levanta p1 si es par, p2 si impar //Si es par (p1)shl in0= in0, 1;; //Si es impar (p2)add loc2= in0, in0;; (p2)add in0= loc2, in0, 1;; mov r8= loc0;; mov ar.pfs= loc0;; br.ret.sptk.many b2;; .endp oper
