Ejercicios varios Itanium (Organización del Computador II)
De Cuba-Wiki
Llamadas
Suma
Ejercicio hecho en la teorica en el laboratorio sobre como llamar funciones en Itanium. Incluye el C y el assembler llamado, que a su vez llama otra funcion en assembler. El programa solamente llama dos numeros.
.text .align 32 .global suma .proc suma suma: alloc loc0=ar.pfs, 2, 2, 2, 0;; mov out0=in0 mov out1=in1 mov loc1=b0;; br.call.sptk.many b0=otro;; mov b0=loc1;; mov ar.pfs=loc0;; br.ret.sptk.many b0;; .endp suma .proc otro otro: alloc loc0=ar.pfs, 2, 1, 0, 0;; add r8=in0,in1;; br.ret.sptk.many b0;; .endp otro
Mientras tanto en el plano de C...
#include <stdio.h> #include <stdlib.h> extern int suma(int a, int b); int main(void) { int a, b; printf("Ingrese "); scanf("%i", &a); scanf("%i", &b); printf("La suma es %i", suma(a,b)); return 0; }
Printf
Funcion en assembler que levanta un 3 de memoria y lo pasa a un printf para mostrarlo por pantalla.
.data dat: data8 3 str: stringz "%d" .text .align 32 .global printf .global main .proc main main: alloc loc0=ar.pfs,1,3,2,0;; movl loc1 = dat;; ld8 out1 = [loc1];; movl out0 = str;; mov loc2= b0;; br.call.sptk.many b0 = printf;; mov b0 = loc2;; mov ar.pfs=loc0;; br.ret.sptk.many b0;; .endp main
para compilar icc -O0 ia.s -o funcion
para ejecutar ./funcion
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