reclama3.s

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

	.module reclama3.c
	.area text(rom, con, rel)
	.dbfile C:\tempAVR\RECLAM~1\reclama3.c
	.dbfunc e main _main fV
	.dbstruct 0 50 poza
	.dbfield 0 A A[25:25]c
	.dbfield 25 B A[25:25]c
	.dbend
;              i -> <dead>
;             p1 -> y+0
	.even
_main::
	sbiw R28,63
	sbiw R28,37  ; offset = 100
	.dbline -1
	.dbline 9
; #include <iom8v.h>
; #include <string.h>
; #include <stdlib.h>
; #include <eeprom.h>
; #include "delay_fct3.h"
; #include "reclama_fct3.h"
; 
; 
; void main(void){
	.dbline 12
; 	 uc_8 i;
; 	 struct poza p1;//,p2,p3,p4,p5;
; 	 init_uc();
	rcall _init_uc
	.dbline 13
; 	p1.A[0]=49;p1.B[0]=0;
	ldi R24,49
	std y+0,R24
	.dbline 13
	clr R2
	std y+25,R2
	.dbline 14
; 	p1.A[1]=2;p1.B[1]=8;
	ldi R24,2
	std y+1,R24
	.dbline 14
	ldi R24,8
	std y+26,R24
	.dbline 15
; 	p1.A[2]=116;p1.B[2]=127;
	ldi R24,116
	std y+2,R24
	.dbline 15
	ldi R24,127
	std y+27,R24
	.dbline 16
; 	p1.A[3]=16;p1.B[3]=127;
	ldi R24,16
	std y+3,R24
	.dbline 16
	ldi R24,127
	std y+28,R24
	.dbline 17
; 	p1.A[4]=39;p1.B[4]=1;
	ldi R24,39
	std y+4,R24
	.dbline 17
	ldi R24,1
	std y+29,R24
	.dbline 18
; 	p1.A[5]=64;p1.B[5]=8;
	ldi R24,64
	std y+5,R24
	.dbline 18
	ldi R24,8
	std y+30,R24
	.dbline 19
; 	p1.A[6]=4;p1.B[6]=0;
	ldi R24,4
	std y+6,R24
	.dbline 19
	std y+31,R2
	.dbline 20
; 	p1.A[7]=0;p1.B[7]=8;
	std y+7,R2
	.dbline 20
	ldi R24,8
	std y+32,R24
	.dbline 21
; 	p1.A[8]=16;p1.B[8]=8;
	ldi R24,16
	std y+8,R24
	.dbline 21
	ldi R24,8
	std y+33,R24
	.dbline 22
; 	p1.A[9]=32;p1.B[9]=8;
	ldi R24,32
	std y+9,R24
	.dbline 22
	ldi R24,8
	std y+34,R24
	.dbline 23
; 	p1.A[10]=64;p1.B[10]=127;
	ldi R24,64
	std y+10,R24
	.dbline 23
	ldi R24,127
	std y+35,R24
	.dbline 24
; 	p1.A[11]=4;p1.B[11]=28;
	ldi R24,4
	std y+11,R24
	.dbline 24
	ldi R24,28
	std y+36,R24
	.dbline 25
; 	p1.A[12]=4;p1.B[12]=28;
	ldi R24,4
	std y+12,R24
	.dbline 25
	ldi R24,28
	std y+37,R24
	.dbline 26
; 	p1.A[13]=4;p1.B[13]=31;
	ldi R24,4
	std y+13,R24
	.dbline 26
	ldi R24,31
	std y+38,R24
	.dbline 27
; 	p1.A[14]=4;p1.B[14]=24;
	ldi R24,4
	std y+14,R24
	.dbline 27
	ldi R24,24
	std y+39,R24
	.dbline 28
; 	p1.A[15]=4;p1.B[15]=124;
	ldi R24,4
	std y+15,R24
	.dbline 28
	ldi R24,124
	std y+40,R24
	.dbline 29
; 	p1.A[16]=4;p1.B[16]=26;
	ldi R24,4
	std y+16,R24
	.dbline 29
	ldi R24,26
	std y+41,R24
	.dbline 30
; 	p1.A[17]=15;p1.B[17]=26;
	ldi R24,15
	std y+17,R24
	.dbline 30
	ldi R24,26
	std y+42,R24
	.dbline 31
; 	p1.A[18]=4;p1.B[18]=124;
	ldi R24,4
	std y+18,R24
	.dbline 31
	ldi R24,124
	std y+43,R24
	.dbline 32
; 	p1.A[19]=15;p1.B[19]=24;
	ldi R24,15
	std y+19,R24
	.dbline 32
	ldi R24,24
	std y+44,R24
	.dbline 33
; 	p1.A[20]=4;p1.B[20]=24;
	ldi R24,4
	std y+20,R24
	.dbline 33
	ldi R24,24
	std y+45,R24
	.dbline 34
; 	p1.A[21]=64;p1.B[21]=127;
	ldi R24,64
	std y+21,R24
	.dbline 34
	ldi R24,127
	std y+46,R24
	.dbline 35
; 	p1.A[22]=32;p1.B[22]=8;
	ldi R24,32
	std y+22,R24
	.dbline 35
	ldi R24,8
	std y+47,R24
	.dbline 36
; 	p1.A[23]=16;p1.B[23]=8;
	ldi R24,16
	std y+23,R24
	.dbline 36
	ldi R24,8
	std y+48,R24
	.dbline 37
; 	p1.A[24]=0;p1.B[24]=8;
	std y+24,R2
	.dbline 37
	std y+49,R24
	.dbline 40
; 	
; 	
; 	afisheaza_poza(p1);
	movw R24,R28
	movw R30,R28
	adiw R30,50
	ldi R16,50
	ldi R17,0
	st -y,R31
	st -y,R30
	st -y,R25
	st -y,R24
	rcall asgnblk
	movw R16,R28
	subi R16,206  ; offset = 50
	sbci R17,255
	rcall _afisheaza_poza
	rjmp L76
L75:
	.dbline 42
; 	 
; 	 while(1) {clip(1);}
	.dbline 42
	ldi R16,1
	rcall _clip
	.dbline 42
L76:
	.dbline 42
	rjmp L75
X0:
	.dbline -2
L1:
	.dbline 0 ; func end
	adiw R28,63
	adiw R28,37  ; offset = 100
	ret
	.dbsym l i 1 c
	.dbsym l p1 0 S[poza]
	.dbend
; 	
;        }