matrice_caractere3.s

a ICCAVR source code for a small led matrix it uses atmega8 at 8 mhz

	.module matrice_caractere3.c
	.area text(rom, con, rel)
	.dbfile C:\tempAVR\RECLAM~1\matrice_caractere3.c
	.dbstruct 0 5 coloana
	.dbfield 0 c A[5:5]c
	.dbend
	.dbfunc e fig_dec _fig_dec fS[coloana]
;            col -> y+0
;            fig -> R12
	.even
_fig_dec::
	rcall push_xgset303C
	mov R12,R18
	movw R10,R16
	sbiw R28,5
	.dbline -1
	.dbline 3
; #include "reclama_fct3.h"
; 
; struct coloana fig_dec (uc_8 fig){
	.dbline 5
; struct	 coloana col;
; switch(fig) {
	mov R20,R12
	clr R21
	cpi R20,0
	cpc R20,R21
	breq L6
X0:
	cpi R20,1
	ldi R30,0
	cpc R21,R30
	breq L11
X1:
	cpi R20,2
	ldi R30,0
	cpc R21,R30
	breq L16
X2:
	cpi R20,3
	ldi R30,0
	cpc R21,R30
	breq L21
X3:
	cpi R20,4
	ldi R30,0
	cpc R21,R30
	breq L26
X4:
	rjmp L3
L6:
	.dbline 6
; 	case 0: {col.c[0]=4;col.c[1]=58;col.c[2]=79;col.c[3]=58;col.c[4]=4;break;	}
	.dbline 6
	ldi R24,4
	std y+0,R24
	.dbline 6
	ldi R24,58
	std y+1,R24
	.dbline 6
	ldi R24,79
	std y+2,R24
	.dbline 6
	ldi R24,58
	std y+3,R24
	.dbline 6
	ldi R24,4
	std y+4,R24
	.dbline 6
	rjmp L4
L11:
	.dbline 7
; 	case 1: {col.c[0]=2;col.c[1]=58;col.c[2]=79;col.c[3]=58;col.c[4]=2;break;	}
	.dbline 7
	ldi R24,2
	std y+0,R24
	.dbline 7
	ldi R24,58
	std y+1,R24
	.dbline 7
	ldi R24,79
	std y+2,R24
	.dbline 7
	ldi R24,58
	std y+3,R24
	.dbline 7
	ldi R24,2
	std y+4,R24
	.dbline 7
	rjmp L4
L16:
	.dbline 8
; 	case 2: {col.c[0]=1;col.c[1]=58;col.c[2]=79;col.c[3]=58;col.c[4]=1;break;	}
	.dbline 8
	ldi R24,1
	std y+0,R24
	.dbline 8
	ldi R24,58
	std y+1,R24
	.dbline 8
	ldi R24,79
	std y+2,R24
	.dbline 8
	ldi R24,58
	std y+3,R24
	.dbline 8
	ldi R24,1
	std y+4,R24
	.dbline 8
	rjmp L4
L21:
	.dbline 9
; 	case 3: {col.c[0]=4;col.c[1]=58;col.c[2]=79;col.c[3]=58;col.c[4]=1;break;	}	
	.dbline 9
	ldi R24,4
	std y+0,R24
	.dbline 9
	ldi R24,58
	std y+1,R24
	.dbline 9
	ldi R24,79
	std y+2,R24
	.dbline 9
	ldi R24,58
	std y+3,R24
	.dbline 9
	ldi R24,1
	std y+4,R24
	.dbline 9
	rjmp L4
L26:
	.dbline 10
; 	case 4: {col.c[0]=1;col.c[1]=58;col.c[2]=79;col.c[3]=58;col.c[4]=4;break;	}
	.dbline 10
	ldi R24,1
	std y+0,R24
	.dbline 10
	ldi R24,58
	std y+1,R24
	.dbline 10
	ldi R24,79
	std y+2,R24
	.dbline 10
	ldi R24,58
	std y+3,R24
	.dbline 10
	ldi R24,4
	std y+4,R24
	.dbline 10
L3:
L4:
	.dbline 13
; 	   
; 	   }
; 	   return col;
	movw R24,R28
	ldi R16,5
	ldi R17,0
	st -y,R11
	st -y,R10
	st -y,R25
	st -y,R24
	rcall asgnblk
	.dbline -2
L1:
	.dbline 0 ; func end
	adiw R28,5
	rjmp pop_xgset303C
	.dbsym l col 0 S[coloana]
	.dbsym r fig 12 c
	.dbend
; 	 }