.NOLIST .INCLUDE "m8def.inc" ;zvolí použitý mikroprocesor .LIST .CSEG ;kódový segment .DEF REG=R16 ;pracovní registr .EQU DDR=DDRD ;řízení směru .EQU PORT=PORTD ;port LDI REG,$FF OUT DDR,REG ;aktivuj výstupy LDI REG,LOW(RAMEND) OUT SPL,REG ;nastav SP na konec SRAM LDI REG,HIGH(RAMEND) OUT SPH,REG CLC ;0 do D LDI REG,0b00000000 ;počáteční stav bitů SMYCKA: OUT PORT,REG RCALL CEKEJ ;zavolá zpoždění INC REG ;zvýší stav registru o 1 RJMP SMYCKA ;a znovu CEKEJ: LDI R17,8 ;zpoždění (zde lze měnit rychlost) LDI R18,0 LDI R19,0 CEKEJA: DEC R19 BRNE CEKEJA ;smyčka 1 DEC R18 BRNE CEKEJA ;smyčka 2 DEC R17 BRNE CEKEJA ;smyčka 3 RET ;návrat