;
;
;          "stepcor.txt" 
;     
;      
;     :  
;            
;  ATmega8515  ,  " "
;        
; 16-       /
; (ATmega 162)
;---------------------------------------------------------------
;  
;
 coropen:
      ldwi acch,accl,coropen_fsb
		 movw fsbl,accl
    ldwi acch,accl,coropen
   movw retterl,accl
  prints str7,frame0 ;   frame0+refram   str7
                  ;        '   '
  ;---------------------------------------------------------------
   lo_sbuf sp_buf4 ;    
	               ; "?             % " -   = '%'
	  in tmph,OCR0
	  rcall derek
	  rjmp open_cor ; in file "datclock.txt"
;---------------------------------------------------------------
;
;                     
;                   
;
 re_newcor:
      in accl,OCR0
      cpse acch,tmph
      rjmp rewr_cor
      rjmp cor_baksp ;    ,    cor_baksp
 rewr_cor:
       cli ;  
       in accl,TCCR0
       mov acch,accl ;    acch
			 andi accl,0xF8
			 out TCCR0,accl ;  /0
       clr accl 
			 out TCNT0,accl ;  TCNT0
			 out OCR0,tmph
       in accl,TIFR
			 cbr accl,(1<<OCF0)
			 out TIFR,accl ;      OCR0
			 in accl,SFIOR
			 sbr accl,(1<<PSR10)
			 out SFIOR,accl ;   /0
       out TCCR0,acch ;  /0
      sei ;  
;---------------------------------------------------------------
;
;                     
;                  
;
 cor_baksp:
      rjmp re_baksp ; in file "datclock.txt"
;---------------------------------------------------------------
 derek:
    mov accl,tmph
    mov acch,tmph
	  swap acch
	  andi accl,0x0F
	  andi acch,0x0F
	  rcall binsim ;      
	  sts bufos_9,accl ;   9 
	  mov accl,acch
	  rcall binsim
	  sts bufos_8,accl ;    8 
	ret
;-------------------------------------------------------------
;
;  /   
;
 corsinp:
   sbrs vars,downf
   rjmp pcr0
   cbr vars,(1<<downf)
   dec tmph
 pcr1:
   rcall derek
   printb frame1
   rjmp step3
 pcr0:
   inc tmph
   rjmp pcr1
;-------------------------------------------------------------