Buenas, tengo este codigo:
asi como está funciona 100% pero me gustaria poder reducirlo, ojala puedan ayudarme... gracias de antemano 
Código:
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[1]);
escribir_bit(a[1]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[2]);
escribir_bit(a[1]);
output_b(matrix[1]);
escribir_bit(a[2]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[3]);
escribir_bit(a[1]);
output_b(matrix[2]);
escribir_bit(a[2]);
output_b(matrix[1]);
escribir_bit(a[3]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[4]);
escribir_bit(a[1]);
output_b(matrix[3]);
escribir_bit(a[2]);
output_b(matrix[2]);
escribir_bit(a[3]);
output_b(matrix[1]);
escribir_bit(a[4]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[5]);
escribir_bit(a[1]);
output_b(matrix[4]);
escribir_bit(a[2]);
output_b(matrix[3]);
escribir_bit(a[3]);
output_b(matrix[2]);
escribir_bit(a[4]);
output_b(matrix[1]);
escribir_bit(a[5]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[6]);
escribir_bit(a[1]);
output_b(matrix[5]);
escribir_bit(a[2]);
output_b(matrix[4]);
escribir_bit(a[3]);
output_b(matrix[3]);
escribir_bit(a[4]);
output_b(matrix[2]);
escribir_bit(a[5]);
output_b(matrix[1]);
escribir_bit(a[6]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
for(j<=0;j<=80;j++){
escribir_bit(a[0]);
output_b(matrix[7]);
escribir_bit(a[1]);
output_b(matrix[6]);
escribir_bit(a[2]);
output_b(matrix[5]);
escribir_bit(a[3]);
output_b(matrix[4]);
escribir_bit(a[4]);
output_b(matrix[3]);
escribir_bit(a[5]);
output_b(matrix[2]);
escribir_bit(a[6]);
output_b(matrix[1]);
escribir_bit(a[7]);
output_b(matrix[0]);
delay_ms(1);}
j=0;
i=0;