;
;         "tabls_ktp.txt" ;   ,
; , /
;
;-------------------------------------------------
;
;     
;    256  
;
kaznak
  movwf zntmp ;   w  
  movf PCLATH,w ;
  movwf zntmp+1 ;   PCLATH  
  movlw high(tabl_zn)
  movwf PCLATH
  movlw low(tabl_zn)
  addwf zntmp,w
  btfsc STATUS,C
  incf PCLATH,f ;    
  call tbl_zn0 ;     !!!
   movwf zntmp ;    
   movf zntmp+1,w
   movwf PCLATH ;  PCLATH
   movf zntmp,w ;  
  return ;        
tbl_zn0
   movwf PCL
tabl_zn
 dt (1<<s_A | 1<<s_B | 1<<s_C | 1<<s_D | 1<<s_E | 1<<s_F) ; 0
 dt (1<<s_B | 1<<s_C) ; 1
 dt (1<<s_A | 1<<s_B | 1<<s_D | 1<<s_E | 1<<s_G) ; 2
 dt (1<<s_A | 1<<s_B | 1<<s_C | 1<<s_D | 1<<s_G) ; 3
 dt (1<<s_B | 1<<s_C | 1<<s_F | 1<<s_G) ; 4
 dt (1<<s_A | 1<<s_C | 1<<s_D | 1<<s_F | 1<<s_G) ; 5
 dt (1<<s_A | 1<<s_C | 1<<s_D | 1<<s_E | 1<<s_F | 1<<s_G) ; 6
 dt (1<<s_A | 1<<s_B | 1<<s_C) ; 7
 dt (1<<s_A | 1<<s_B | 1<<s_C | 1<<s_D | 1<<s_E | 1<<s_F | 1<<s_G) ; 8
 dt (1<<s_A | 1<<s_B | 1<<s_C | 1<<s_D | 1<<s_F | 1<<s_G) ; 9
 dt (1<<s_A | 1<<s_B | 1<<s_C | 1<<s_E | 1<<s_F | 1<<s_G) ; A
 dt (1<<s_C | 1<<s_D | 1<<s_E | 1<<s_F | 1<<s_G) ; b
 dt (1<<s_A | 1<<s_D | 1<<s_E | 1<<s_F) ; C
 dt (1<<s_B | 1<<s_C | 1<<s_D | 1<<s_E | 1<<s_G) ; d
 dt (1<<s_A | 1<<s_D | 1<<s_E | 1<<s_F | 1<<s_G) ; E
 dt (1<<s_A | 1<<s_E | 1<<s_F | 1<<s_G) ; F
; dt (1<<s_A | 1<<s_B | 1<<s_C | 1<<s_D | 1<<s_E | 1<<s_F | 1<<s_G | 1<<s_H)
;
;-------------------------------------------------
;
str_hdst
     movlw mrak
     movwf kd_pos1
     movwf kd_pos2
     movwf kd_pos3
     movwf kd_pos4
     movwf kd_pos5
     movwf kd_pos6
     movwf kd_pos7
     movwf kd_pos8
     movwf kd_pos9
     movwf kd_pos10
    goto reprint ; oll segments ON
;
;-------------------------------------------------
;