; -*- mpasm -*-
;************************* Shift C to the right *************************
; C/24 <<= W
;
;   This routine makes W shifts to the mC0,mC1,mC2 registers to the right.
;   Side effect: FSR is destroyed.
;
; Memoria usada:
; Programa: 8 words
; Datos: 1 byte FSR (+argumentos)
;
; Autor: Salvador Eduardo Tropea (SET)
;
; 8
ShiftCright24:
  movwf  FSR
ShiftCrProx:
  bcf    _C
  rrf    mC2,f
  rrf    mC1,f
  rrf    mC0,f
  decfsz FSR,f
  goto   ShiftCrProx
  return