;
;    t_mk_pic.txt      
;            .
;
;--------------------------------------------------------------------
;     t_mk_rga  ,
;       t_mk_rgb
t_mk_transf
   movwf t_mk_rga
   clrf INDF
   btfsc t_mk_rga,7
   bsf INDF,1 ; B
   btfsc t_mk_rga,6
   bsf INDF,7 ; H
   btfsc t_mk_rga,5
   bsf INDF,2 ; C
   btfsc t_mk_rga,4
   bsf INDF,3 ; D
   btfsc t_mk_rga,3
   bsf INDF,6 ; G
   btfsc t_mk_rga,2
   bsf INDF,4 ; E
   btfsc t_mk_rga,1
   bsf INDF,0 ; A
   btfsc t_mk_rga,0
   bsf INDF,5 ; F
   movf INDF,f
;   btfss STATUS,Z ;   
;   comf INDF,f ;     ,   ULN2803!
; ..    = 
  return
;-----------------------------------------------------------------
;   RS232 (   ) 4800 8bit np 2s
t_mk_trb
    movlw 8
    movwf t_mk_ctb
    bcf PORTC,t_mk_TxD
    nop
    nop
    t_slot .68 ; start_slot = bit_slot*1.5
bit_slot
    rrf INDF,f
     btfss STATUS,C
     bcf PORTC,t_mk_TxD
     btfsc STATUS,C
     bsf PORTC,t_mk_TxD
     t_slot .68 ; bit_slot
     nop
    decfsz t_mk_ctb,f
   goto bit_slot
  bsf PORTC,t_mk_TxD
  t_slot .132 ; stop_slot*2
 return
;
; -------------------------------------
;
t_mt_prep
    movlw t_mk_rga
    movwf FSR
    movlw 0xB9 ;    "*"   (0x46)
    movwf INDF ;   0
    incf FSR,f ;   1
    incf FSR,f ;   2
    incf FSR,f ;   3
    incf FSR,f
    movlw 0x3C
    movwf INDF ;       3900
    incf FSR,f
    movlw 0x0F
    movwf INDF ;       3900
    incf FSR,f
    clrf INDF ;       ,
    incf FSR,f ;     "" 
    clrf INDF ;   CRC LAN  7-  
;------------------------------------------------------------------
  movlw t_mk_rga
  movwf FSR
  movf INDF,w
  movwf tmp_0
  incf FSR,f
  movf INDF,w
  movwf tmp_1
  incf FSR,f
  movf INDF,w
  movwf tmp_2
  incf FSR,f
  movf INDF,w
  movwf tmp_3
  incf FSR,f
  movf INDF,w
  movwf tmp_4
  incf FSR,f
  movf INDF,w
  movwf tmp_5
  incf FSR,f
  movf INDF,w
  movwf tmp_6
  call crcg_7
  movf tmp_7,w
  movwf (t_mk_rga+7)
transmit_pak
   movlw t_mk_rga
    movwf FSR
    call t_mk_trb ; 0 
    incf FSR,f
    call t_mk_trb ; 1 
    incf FSR,f
    call t_mk_trb ; 2 
    incf FSR,f
    call t_mk_trb ; 3 
    incf FSR,f
    call t_mk_trb ; 4 
    incf FSR,f
    call t_mk_trb ; 5 
    incf FSR,f
    call t_mk_trb ; 6 
    incf FSR,f
    call t_mk_trb ; 7 
    incf FSR,f
 return
;-----------------------------------------------------------------------
;     movlw 0x3C ;   " "
;     movwf kd_pos10 ;       
;         ;       
;         ;       
;         ;    t_mk_flg.slen=0
;