;
;         "sektim.txt" ;   
;                  
;      /  
;   RB2!!!
;
   endsekt:
        reti ; ,     
 sektims:
    clr TR0
    mov TH0,rcap0+1
    mov TL0,rcap0
    setb TR0
    djnz too_clk0,endsekt ;
      mov too_clk0,#mark_r ;   
                   ;  
        push PSW
         push ACC ;  PSW  ACC  
          setb RS1 ;   RB2
          mov a,#low(tmswk)
         push ACC
        mov a,#high(tmswk)
       push ACC ;   tmswk   
      reti
;----------------------------------------------------------------
  .using 2 ;   "  RB2"
 tmswk:
       jb tiksef,sekonder
      ;sjmp aptaim ;      
               ;  ...
       jb tionn,aptaim ;     
        ajmp end_tmsw ;    
  sekonder:
      mov r0,#setibu0 ; r0=#setibu0
      inc @r0 ; setibu0=setibu0+1
      cjne @r0,#mask60,printsec3
      mov @r0,#0
      inc r0 ; r0=#setibu1
      inc @r0 ; setibu1=setibu1+1
      cjne @r0,#mask60,printsec3
      mov @r0,#0
      inc r0 ; r0=#setibu2
      inc @r0 ; setibu2=setibu2+1
      cjne @r0,#mask100,printsec3
      mov @r0,#0
  printsec3:
     ajmp printsec2
;---------------------------------------------------------------
;  
;
 aptaim:
   acall zertest
         jz printsec2 ;      = 00:00:00
         mov r0,#setibu0
         mov a,#0xFF
         add a,@r0
         jc zaversh
         mov @r0,#59
         inc r0 ; setibu1
         mov a,#0xFF
         add a,@r0
         jc zaversh
         mov @r0,#59
         inc r0 ; setibu2
         mov a,#0xFF
         add a,@r0
 zaversh:
         mov @r0,a
         acall zertest
         jz zerotm
     sjmp printsec2
;---------------------------------------------------------------
;            00:00:00 -
 zerotm:
   clr TR0 ;  /0
    clr tionn ;  tionn (?   ?)
   setb talarm ;  
   mov bufos_1,#0xED ;     
	               ; ""  
	 mov a,P1
	 orl a,mason1
	 clr ACC.2
	 mov P1,a ;     (P1.2)
   mov a,#1
	 lcall kpp ;     1 ( ""/)
	  setb ACC.7
     lcall wrslus ;      
      lcall wait_wrt ; 
;---------------------------------------------------------------
 printsec2:
    acall viev_sb
  end_tmsw:
     pop ACC
    pop PSW
  ret
  .using 0 ;    "  RB0"
;---------------------------------------------------------------
;            
;  viev_sb       
;        
;                 RB(0-3)
;
 viev_sb:
     mov r0,#setibu0 ; r0=#setibu0
     mov a,@r0
     lcall binodec
     mov r7,a
     anl a,#0x0F
     orl a,#0x30
     mov bufos_b,a ;       
     mov a,r7
     swap a
     anl a,#0x0F
     orl a,#0x30
     mov bufos_a,a ;       
     inc r0 ; r0=#setibu1
     mov a,@r0
     lcall binodec
     mov r7,a
     anl a,#0x0F
     orl a,#0x30
     mov bufos_8,a ;       
     mov a,r7
     swap a
     anl a,#0x0F
     orl a,#0x30
     mov bufos_7,a ;       
     inc r0 ; r0=#setibu2
     mov a,@r0
     lcall binodec
     mov r7,a
     anl a,#0x0F
     orl a,#0x30
     mov bufos_5,a ;       
     mov a,r7
     swap a
     anl a,#0x0F
     orl a,#0x30
     mov bufos_4,a ;       
    printb frame1 ;    
   ret
;---------------------------------------------------------------
 zertest:
     mov a,#3
     mov r0,#setibu0
     cjne @r0,#0,zert0
     dec a
  zert0:
     inc r0
     cjne @r0,#0,zert1
     dec a
  zert1:
     inc r0
     cjne @r0,#0,zert2
     dec a
  zert2:
     ret
;---------------------------------------------------------------