.NOLIST .INCLUDE "tn13def.inc" .LIST .CSEG ;kódový segment .DEF REG=R16 ;pracovní registr .EQU DDR=DDRB ;řízení směru .EQU PORT=PORTB ;port LDI REG,0b11111111 OUT DDR,REG ;aktivuj výstupy LDI REG,LOW(RAMEND) OUT SPL,REG ;nastav SP na konec SRAM LDI REG,HIGH(RAMEND) CLC ;0 do C LDI REG,0b00000000 SMYCKA: INC REG OUT PORT,REG RCALL CEKEJ ;počkej RJMP SMYCKA ;a znovu ;čekací rutina CEKEJ: LDI R17,10 ;nastavuje 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