start_pos    equ 1 ;    bit_pos
rgb_blank    equ 7 ;      RGB
;
DISBAM   udata  [adres]   ;   
ram_r     res 1 ;   R
ram_g     res 1 ;   G
ram_b     res 1 ;   B
kadd_r    res 1 ;      R
kadd_g    res 1 ;      G
kadd_b    res 1 ;      B
bit_pos   res 1 ;      
mark_tml  res 1 ;       
mark_tmh  res 1 ;       
tmp_disb  res 1 ;   
;
PROG_STECK    udata_shr ;   
flags0    res 1 ;   
prep_r    res 1 ;     R
prep_g    res 1 ;     G
prep_b    res 1 ;     B
outbuf_b  res 1 ;      B
;
quest_dat equ 0 ;       prep   ram
;
;
;----------------------------------------------------------------------------------
;
  banksel 0 ;   RB0
  movf outbuf_b,w ;    BAM
  movwf PORTB ;      
  bcf T1CON,TMR1ON ;    1
  movf mark_tml,w
  movwf TMR1L ;     
  movf mark_tmh,w ;  
  movwf TMR1H ;   
  bsf T1CON,TMR1ON ;    1
  ;-------------------------------------------------------
  btfss bit_pos,0 ;   0 
   goto step_1
     step_proc tmm1 ;   1
step_1
  btfss bit_pos,1 ;   1 
   goto step_2
     step_proc tmm2 ;   2
step_2
  btfss bit_pos,2 ;   2 
   goto step_3
     step_proc tmm3 ;   3
step_3
  btfss bit_pos,3 ;   3 
   goto step_4
     step_proc tmm4 ;   4
step_4
  btfss bit_pos,4 ;   4 
   goto step_5
     step_proc tmm5 ;   5
step_5
  btfss bit_pos,5 ;   5 
   goto step_6
     step_proc tmm6 ;   6
step_6
  btfss bit_pos,6 ;   6 
   goto step_7
     step_proc tmm7 ;   7
step_7
  btfss bit_pos,7 ;   6 




  ;   ,
;        
;  ,   (   )







     step_proc tmm0 ;   0


;-----------------------------------------------------------
rolx
   clrf tmp_disb
   rrf kadd_b,f
   rlf tmp_disb,f
   rrf kadd_g,f
   rlf tmp_disb,f
   rrf kadd_r,f
   rlf tmp_disb,f
   movf outbuf_b,w
   andlw ~rgb_blank
   iorwf tmp_disb,w
   movwf outbuf_b
  return
;-----------------------------------------------------------
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
;-----------------------------------------------------------