.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: 
       
     
	  
     LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000010
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011101
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00010101
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00010111
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00010001
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00010101
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00000111
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000100
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00010111
	 RCALL ZOBRAZ ;zobrazí sloupec

         LDI REG,0b00010101
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011101
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec

         LDI REG,0b00010101
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011101
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00000011
	 RCALL ZOBRAZ ;zobrazí sloupec

         LDI REG,0b00000001
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec



	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec

         LDI REG,0b00010101
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec



	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00010111
	 RCALL ZOBRAZ ;zobrazí sloupec

         LDI REG,0b00010101
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 


	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec


	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec

         LDI REG,0b00010001
	 RCALL ZOBRAZ ;zobrazí sloupec

	 LDI REG,0b00011111
	 RCALL ZOBRAZ ;zobrazí sloupec

	 
	
	

     RJMP SMYCKA ;a znovu  
   
                 ;čekací rutina  
 CEKEJ:  LDI R17,8
     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  


 ZOBRAZ:  
     ;preda se tomu REG
     

	 LDI R21,0b00010000
     AND R21, REG 
	 OUT PORT,R21 ;pošli
	 RCALL CEKEJ ;počkej

	 LDI R21,0b00001000
     AND R21, REG 
	 OUT PORT,R21 ;pošli
	 RCALL CEKEJ ;počkej

	 LDI R21,0b00000100
     AND R21, REG
	 OUT PORT,R21 ;pošli
	 RCALL CEKEJ ;počkej

	 LDI R21,0b00000010
     AND R21, REG
	 OUT PORT,R21 ;pošli
	 RCALL CEKEJ ;počkej

	 LDI R21,0b00000001
     AND R21, REG
	 OUT PORT,R21 ;pošli
	 RCALL CEKEJ ;počkej

	 LDI R21,0b00000000
	 OUT PORT,R21 ;pošli

	 RCALL CEKEJ ;počkej





	 RET         ;návrat