;
;         "mac_lds.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
;
;     ----------------------------
step_proc   macro timdat ;;     BAM
      call rolx ;;        RGB
       bcf STATUS,C
       rlf bit_pos,f ;;     BAM
       movlw low timdat
       movwf mark_tml
       movlw high timdat
       movwf mark_tmh ;;      
      goto popper
    endm
;
;     ----------------------------
;








;
;     ----------------------------
;