;
;         "hard_t007.txt" ;   
;
;     
;   -    /2
;  :
; 16-  ,   -  
; (0,000001S)     RCAP2H:RCAP2L
;    50000
;   mark2=(65536-50000+1),   
;
;   - /  
;  /0  :
; 16-   ,  -  
; (0,000001S)       
; RCAP0H:RCAP0L,    50000
;   mark0=(65536-50000+1+n)  n -   
; ,   
;         INT0 (GATE0=1)
;
;   /0      
; ,        
;   
;
 hd_init:
   mov a,#0xFF
   mov P0,a
   mov P1,a
; in t8.asm sets - "mov P2,#0b11011111 ;   enwh" !!!
   mov P3,a
   mov a,P1
   jb ACC.plomb,rtc_hot_init ;    RTC
   lcall rtc_cold_init ;      s4 - 
              ;   " "   mlans  
              ;    / RTC
   mov r2,#0xFF
   clr P1.bip ;     RTC
tmrz:
   mov r3,0xAF
   djnz r3,$
   djnz r2,tmrz
   mov P1,#0xFF ;     RTC
wait_s4:
   mov a,P1
   jnb ACC.plomb,wait_s4 ;   s4
   sjmp enterset
rtc_hot_init:
    lcall rd_hdr ;      RTC  
               ;    / RTC   mlans
enterset:
   mov a,#0b00100010 ; ET2=ET0=1
   mov IP,a ;   /0  /2
   mov IE,a ;   TF0  TF2 
   mov TMOD,#0b00000001 ; /1 ,
                       ; /0 16-  F/12
 ;   /2     
   mov a,(mlans+rtc_sec) ;     RTC
   anl a,#0x7F
   lcall  decobin
   mov sec,a
   mov a,(mlans+rtc_min) ;     RTC
   anl a,#0x7F
   lcall  decobin
   mov min,a
   mov a,(mlans+rtc_hours) ;     RTC
   anl a,#0x3F
   lcall  decobin
   mov hors,a
   setb gclkrl ;     
              ;   (gclkrl=1)
;--------------------------------------------------------------------
;       
;       
; " "
; rtc_day    equ 3 ; RTC  
; rtc_date   equ 4 ; RTC  
; rtc_mons   equ 5 ; RTC 
; rtc_year   equ 6 ; RTC   
;--------------------------------------------------------------------
   mov ext_hd,(mlans+rtc_exthr) ;     
   mov bodunf,(mlans+rtc_bodus) ;    
   mov bodun2+1,(mlans+rtc_bdh2) ;   2
   mov bodun2,(mlans+rtc_bdm2)
   mov bodun1+1,(mlans+rtc_bdh1) ;   1
   mov bodun1,(mlans+rtc_bdm1)
   mov RCAP2L,(mlans+rtc_cor_l) ; #low(mark2)
   mov TL2,(mlans+rtc_cor_l) ; #low(mark2)
   mov corsek,(mlans+rtc_cor_l) ; #low(mark2)
   mov RCAP2H,(mlans+rtc_cor_h) ; #high(mark2)
   mov TH2,(mlans+rtc_cor_h) ; #high(mark2) ;     /2
   mov corsek+1,(mlans+rtc_cor_h) ; #high(mark2)
   mov a,corsek
   add a,#8
   mov rcap0,a
	 mov TL0,a
	 clr a
	 addc a,corsek+1
	 mov rcap0+1,a
	 mov TH0,a ;     /0
	 mov too_clk0,#mark_r ;     / 
	 mov too_clk2,#mark_r ;       
;             2  5*8 
    mov r2,#60
  ltp0:
    djnz r3,ltp0
    djnz r2,ltp0 ;  15 mS
   mov a,#0b00111000 ; 
    acall wrslus
    mov r2,#16
  ltp1:
    djnz r3,ltp1
    djnz r2,ltp1 ;  4 mS
   mov a,#0b00111000 ;  
     acall wrslus
     mov r2,#40
  ltp2:
     djnz r2,ltp2 ;  40 uS
   mov a,#0b00001000 ;   " "
     acall wrslus
     mov r2,#40
  ltp3:
     djnz r2,ltp3 ;  40 uS
   mov a,#1 ;  " "
     acall wrslus
     mov r2,#8
  ltp4:
    djnz r3,ltp4
    djnz r2,ltp4 ;  2 mS
   mov a,#0b00000110 ;   " /  "
     acall wrslus
     mov r2,#40
  ltp5:
     djnz r2,ltp5 ;  40 uS
     mov a,#0b00111000 ;  "8- ,  5*8 "
     acall wrslus
    acall wait_wrt
  ;  -  
  ; " == "
    ptints str0,frame0
    mov a,#0b00001100 ;  " , ,"
    acall wrslus
    acall wait_wrt
;---------------------------------------    !!!
    mov mason1,#maskp1
    mov mason3,#maskp3 ;      
;---------------------------------------    !!!
   ;   