delay_fct3.lis

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

                        .module delay_fct3.c
                        .area text(rom, con, rel)
 0000                   .dbfile C:\tempAVR\RECLAM~1\delay_fct3.c
 0000                   .dbfunc e clock _clock fV
                        .even
 0000           _clock::
 0000                   .dbline -1
 0000                   .dbline 8
 0000           ; #include <string.h>
 0000           ; #include <iom8v.h>
 0000           ; #include <EEPROM.h>
 0000           ; #include "delay_fct3.h"
 0000           ; #include "reclama_fct3.h"
 0000           ; 
 0000           ;                         
 0000           ; void clock(void){
 0000                   .dbline 9
 0000           ;        PORTB|=(1<<PORTD2);
 0000 C29A              sbi 0x18,2
 0002                   .dbline 10
 0002           ;        PORTB&=~(1<<PORTD2);
 0002 C298              cbi 0x18,2
 0004                   .dbline -2
 0004           L1:
 0004                   .dbline 0 ; func end
 0004 0895              ret
 0006                   .dbend
 0006                   .dbfunc e delay8_us _delay8_us fV
 0006           ;              k -> R20,R21
 0006           ;             us -> R16,R17
                        .even
 0006           _delay8_us::
 0006 4A93              st -y,R20
 0008 5A93              st -y,R21
 000A                   .dbline -1
 000A                   .dbline 13
 000A           ;        }
 000A           ; /*  *********************  */  
 000A           ; void delay8_us(int us){
 000A                   .dbline 15
 000A           ;        int k;
 000A           ; for(k=0;k<us;k++) asm( "   nop \n"
 000A 4427              clr R20
 000C 5527              clr R21
 000E 04C0              rjmp L6
 0010           L3:
 0010                   .dbline 15
 0010 0000                 nop 
 0012 0000                 nop 
 0014           L4:
 0014                   .dbline 15
 0014 4F5F              subi R20,255  ; offset = 1
 0016 5F4F              sbci R21,255
 0018           L6:
 0018                   .dbline 15
 0018 4017              cp R20,R16
 001A 5107              cpc R21,R17
 001C CCF3              brlt L3
 001E           X0:
 001E                   .dbline -2
 001E           L2:
 001E                   .dbline 0 ; func end
 001E 5991              ld R21,y+
 0020 4991              ld R20,y+
 0022 0895              ret
 0024                   .dbsym r k 20 I
 0024                   .dbsym r us 16 I
 0024                   .dbend
 0024                   .dbfunc e delay8_ms _delay8_ms fV
 0024           ;              k -> R20,R21
 0024           ;             ms -> R16,R17
                        .even
 0024           _delay8_ms::
 0024 4A93              st -y,R20
 0026 5A93              st -y,R21
 0028                   .dbline -1
 0028                   .dbline 19
 0028           ;                                         "   nop ");
 0028           ;        }
 0028           ; /*  ********************  */   
 0028           ; void delay8_ms(int ms){
 0028                   .dbline 21
 0028           ;        int k;
 0028           ; for(k=0;k<ms;k++){ asm( "ldi  R17, $0C \n"
 0028 4427              clr R20
 002A 5527              clr R21
 002C 0AC0              rjmp L11
 002E           L8:
 002E                   .dbline 21
 002E                   .dbline 21
 002E 1CE0              ldi  R17, $0C 
 0030 2DED              WGLOOP0:  ldi  R18, $DD 
 0032 2A95              WGLOOP1:  dec  R18 
 0034 F1F7               brne WGLOOP1 
 0036 1A95               dec  R17 
 0038 D9F7               brne WGLOOP0 
 003A 0000               nop 
 003C 0000                 nop 
 003E                   .dbline 28
 003E           ;                                "WGLOOP0:  ldi  R18, $DD \n"
 003E           ;                                "WGLOOP1:  dec  R18 \n"
 003E           ;                                " brne WGLOOP1 \n"
 003E           ;                        " dec  R17 \n"
 003E           ;                        " brne WGLOOP0 \n"  
 003E           ;                                " nop \n"
 003E           ;                                "   nop ");}
 003E           L9:
 003E                   .dbline 21
 003E 4F5F              subi R20,255  ; offset = 1
 0040 5F4F              sbci R21,255
 0042           L11:
 0042                   .dbline 21
 0042 4017              cp R20,R16
 0044 5107              cpc R21,R17
 0046 9CF3              brlt L8
 0048           X1:
 0048                   .dbline -2
 0048           L7:
 0048                   .dbline 0 ; func end
 0048 5991              ld R21,y+
 004A 4991              ld R20,y+
 004C 0895              ret
 004E                   .dbsym r k 20 I
 004E                   .dbsym r ms 16 I
 004E                   .dbend
 004E           ;                                }
 004E           ; 
 004E           ;