.NOLIST   
     .INCLUDE "m32def.inc"     
     .LIST     
                    
     .CSEG           ;kódový segment   
     .DEF REG=R16    ;pracovní registr  
     .DEF REG2=R17    ;pracovní registr 2
     .EQU DDR=DDRC   ;řízení směru  
     .EQU PORT=PORTC ;port 
	 .EQU DDR2=DDRD   ;řízení směru 2 
     .EQU PORT2=PORTD ;port 2

     LDI REG,$FF   
     OUT DDR,REG ;aktivuj výstupy  
	 OUT DDR2,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 ;00000000 do REG 
	 OUT PORT,REG ; zhasne
	 OUT PORT2,REG ; 


 SMYCKA:

      LDI REG,0b11111111
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10000001
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10000001
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b10000001
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b01000010
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00111100
     LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b00000000
	 LDI REG2,0b11101101
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

      LDI REG,0b11000000
	 LDI REG2,0b11101101
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00110000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00101110
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00100001
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00101110
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00110000
	 LDI REG2,0b11101111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b11000000
	 LDI REG2,0b11101111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b11111111
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000010
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00001100
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00110000
	 LDI REG2,0b10111101
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b01000000
	 LDI REG2,0b10111101
	 RCALL ZOBRAZ ;zobrazí sloupec


	  LDI REG,0b11111111
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000001
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000110
	 LDI REG2,0b10001111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00001000
	 LDI REG2,0b10111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b11110000
	 LDI REG2,0b10111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00001000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000110
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b00000001
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b11111111
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b00010000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00001000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00011100
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b01100010
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10000001
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	
	
	  LDI REG,0b00000000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10000000
	 LDI REG2,0b10111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b10111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000011
	 LDI REG2,0b10111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00111100
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b11000000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00110000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00001110
	 LDI REG2,0b11101101
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000001
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00001110
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00110000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b11000000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00111100
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000011
	 LDI REG2,0b11111011
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b00000000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b10000000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b11000001
	 LDI REG2,0b11110001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10110001
	 LDI REG2,0b11100001
	 RCALL ZOBRAZ ;zobrazí sloupec
	

	  LDI REG,0b10001101
	 LDI REG2,0b10001111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10000011
	 LDI REG2,0b10001111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10000001
	 LDI REG2,0b11100001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b11110001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b10000000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b00000000
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 
	 

	  LDI REG,0b00111100
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	  LDI REG,0b01000010
	 LDI REG2,0b11111111
	 RCALL ZOBRAZ ;zobrazí sloupec
	 

	 LDI REG,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b01000010
	 RCALL ZOBRAZ ;zobrazí sloupec
     LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b11000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10110001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10001101
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10000011
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10000001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec













	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec







     LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00111100
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b01000010
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10010001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10100101
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10100001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10100101
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b10010001
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec g

	 LDI REG,0b01000010
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00111100
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec

	 LDI REG,0b00000000
	 RCALL ZOBRAZ ;zobrazí sloupec
	 LDI REG,0b11111111
	 RCALL ZOBRAZ2 ;zobrazí sloupec
	 






     RJMP SMYCKA ;a znovu  
   
                
 CEKEJ:  
     LDI R18,50
     ;LDI R19,0
	 ;LDI R20,0
     
 CEKEJA: 
     ;DEC R20
     ;BRNE CEKEJA ;smyčka 1
     ;DEC R19   
     ;BRNE CEKEJA ;smyčka 2  
     DEC R18
     BRNE CEKEJA ;smyčka 3  
     RET         ;návrat  


 ZOBRAZ:  
     ;preda se tomu REG a REG2
         LDI R21,0b10000000
     AND R21, REG
	 OUT PORT,R21 ;pošli
	 LDI R21,0b10000000
     AND R21, REG2
	 OUT PORT2,R21 ;pošli
	 RCALL CEKEJ ;počkej

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

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

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

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

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

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

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

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

	 RCALL CEKEJ ;počkej


	 RET         ;návrat 

 ZOBRAZ2: 
     RET         ;návrat