;
;           
;     
;                    shim_tm1l.txt
;   ()       
; (mark)    (skd_end)
;       ( <250) !!!
;   2  1     
;
 ;--------------------------------------------------------------------------------
diskan:
   ldi cnt_kadr,num_mux ;      
   ldi mask,maskas ;      
 ;--------------------------------------------------------------------------------
string_init:
   ser dato ;   
 ;      
   i_test 0
   i_test 1
   i_test 2
   i_test 3 ;  ,   ,   
   i_test 4
   i_test 5
   i_test 6
   i_test 7
   clr planka ;    
   ldi cnt_step,allability ;     
steps:
   mov tmpd,dato ;
   and tmpd,mask ;     
   ; com tmpd ;   = 0    
 ;--------------------------------------------------------------------------------
      ;        
      ;     6- 
 ;--------------------------------------------------------------------------------
   out portb,tmpd ;     
   ;--------------------------------------------------------------------------------
skd_end:
   out sreg,tmp_psw
   reti ;      
   ;--------------------------------------------------------------------------------
; ****-------------****
   ;--------------------------------------------------------------------------------
;        = rjmp mark
mark:
   in tmp_psw,sreg
   inc planka ; planka=planka+1
   dec cnt_step ;   "" -1
   breq string_end ;  cnt_step=0   string_end
 control:
 ;      
     off_test 0
     off_test 1
     off_test 2
     off_test 3
     off_test 4
     off_test 5
     off_test 6 ;    planka      
     off_test 7
   rjmp steps ;       
 string_end: ;       
   out portb,zero ;   (   - mrak,   1 - zero)
    lsl mask ;   ( =1 ) 
    dec cnt_kadr ;     
    breq reload
    rjmp string_init ;     
 reload:
     sbrc flags,kadr_end ;   kadr_end   ,
		      ;   preparing       (kadr_end=1)
     rjmp diskan ;      
     push xl ;    Xl  
     ldi xl,low (tmp_lev_0) ; uv_tlevl
     ldi xh,high (tmp_lev_0) ; uv_tlevh    tmp_lev_0
 ;      
     ld dis_lev_0,x+
     ld dis_lev_1,x+
     ld dis_lev_2,x+
     ld dis_lev_3,x+
     ld dis_lev_4,x+
     ld dis_lev_5,x+
     ld dis_lev_6,x+
     ld dis_lev_7,x+
     pop xl ;    Xl
   sbr flags,1<<kadr_end ;   " "
  rjmp diskan ;      