;
;    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
   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 
    movlw 0x3C ;       3900
    movwf INDF
   call t_mk_trb ; 
    movlw 0x0F ;       3900
    movwf INDF
   call t_mk_trb ; 
    clrf INDF ;    
 ;   ,     "" 
   call t_mk_trb ; 
    clrf INDF ;  CRC LAN  7-  
 ;   ,     "" 
   call t_mk_trb ; 
 return
;-----------------------------------------------------------------------
;     movlw 0x3C ;   " "
;     movwf kd_pos10 ;       
;         ;       
;         ;       
;         ;    t_mk_flg.slen=0
;