delay_fct3.s

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

	.module delay_fct3.c
	.area text(rom, con, rel)
	.dbfile C:\tempAVR\RECLAM~1\delay_fct3.c
	.dbfunc e clock _clock fV
	.even
_clock::
	.dbline -1
	.dbline 8
; #include <string.h>
; #include <iom8v.h>
; #include <EEPROM.h>
; #include "delay_fct3.h"
; #include "reclama_fct3.h"
; 
; 			  
; void clock(void){
	.dbline 9
; 	 PORTB|=(1<<PORTD2);
	sbi 0x18,2
	.dbline 10
; 	 PORTB&=~(1<<PORTD2);
	cbi 0x18,2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay8_us _delay8_us fV
;              k -> R20,R21
;             us -> R16,R17
	.even
_delay8_us::
	st -y,R20
	st -y,R21
	.dbline -1
	.dbline 13
; 	 }
; /*  *********************  */	 
; void delay8_us(int us){
	.dbline 15
; 	 int k;
; for(k=0;k<us;k++) asm( "   nop \n"
	clr R20
	clr R21
	rjmp L6
L3:
	.dbline 15
	   nop 
	   nop 
L4:
	.dbline 15
	subi R20,255  ; offset = 1
	sbci R21,255
L6:
	.dbline 15
	cp R20,R16
	cpc R21,R17
	brlt L3
X0:
	.dbline -2
L2:
	.dbline 0 ; func end
	ld R21,y+
	ld R20,y+
	ret
	.dbsym r k 20 I
	.dbsym r us 16 I
	.dbend
	.dbfunc e delay8_ms _delay8_ms fV
;              k -> R20,R21
;             ms -> R16,R17
	.even
_delay8_ms::
	st -y,R20
	st -y,R21
	.dbline -1
	.dbline 19
; 					  "   nop ");
; 	 }
; /*  ********************  */	 
; void delay8_ms(int ms){
	.dbline 21
; 	 int k;
; for(k=0;k<ms;k++){ asm( "ldi  R17, $0C \n"
	clr R20
	clr R21
	rjmp L11
L8:
	.dbline 21
	.dbline 21
	ldi  R17, $0C 
	WGLOOP0:  ldi  R18, $DD 
	WGLOOP1:  dec  R18 
	 brne WGLOOP1 
	 dec  R17 
	 brne WGLOOP0 
	 nop 
	   nop 
	.dbline 28
; 				 "WGLOOP0:  ldi  R18, $DD \n"
; 				 "WGLOOP1:  dec  R18 \n"
; 				 " brne WGLOOP1 \n"
;          		 " dec  R17 \n"
;            		 " brne WGLOOP0 \n"  
; 				 " nop \n"
; 				 "   nop ");}
L9:
	.dbline 21
	subi R20,255  ; offset = 1
	sbci R21,255
L11:
	.dbline 21
	cp R20,R16
	cpc R21,R17
	brlt L8
X1:
	.dbline -2
L7:
	.dbline 0 ; func end
	ld R21,y+
	ld R20,y+
	ret
	.dbsym r k 20 I
	.dbsym r ms 16 I
	.dbend
; 				 }
; 
;