;
;         "mac_ktp.txt" ;   
;     ----------------------------
xchwf    macro regs ;;  "   "
      xorwf regs,w ;;   xchwf f ( xchwf <   > )
      xorwf regs,f
      xorwf regs,w
         endm
;
;     ----------------------------
bsw   macro bit ;;  " bsf W,bit "  bit=1   W
      iorlw 1<<bit ;;   bsw bit ( bit =  ()  )
        endm
;
;     ----------------------------
bcw   macro bit ;;  " bcf W,bit "  bit=0   W
      andlw 0xFF-(0xFF&(1<<bit)) ;;   bcw bit ( bit =  ()  )
        endm
;
;     ----------------------------
incw   macro ;;  "   (W)"
      addlw 1 ;;   incw
        endm
;
;     ----------------------------
decw   macro ;;  "   (W)"
      addlw 0xFF ;;   decw
        endm
;
;     ----------------------------
; -
t_slot macro time
     local loopt
    movlw time
    movwf t_mk_tct
loopt
;    nop
;    nop
    decfsz t_mk_tct,f
   goto loopt
    endm
;
;     ----------------------------
;
;set_Z_APU macro
;    bsf STATUS,RP0
;    bsf TRISA,L_APU
;    bcf STATUS,RP0
;   endm
;
;     ----------------------------
;
;clr_L_APU macro
;    bsf STATUS,RP0
;    bcf TRISA,L_APU
;    bcf STATUS,RP0
;   endm
;
;     ----------------------------
;
;
lprint macro name_str
    movf STATUS,w
    movwf zntmp
    clr RP0
    clr RP1
    movlw low(name_str)
    movwf kd_strn_l
    movlw high(name_str)
    movwf kd_strn_h
    call prints
    movf zntmp,w
    movwf STATUS
  endm
;
;     ----------------------------
;