/*------------------------------------------------------------------------------
;  This file is part of the RLC instruction
;  Copyright (c)
;  Version: 1.0 
;-------------------------------------------------------------------------------
;  Filename:
;  RLC.A51
;  Function:   
;
;  Author:
;  pirate
;     
;  Writedate:
;  Oct.15 2005
;  Moddate(latest):
;  Oct.15 2005
;-------------------------------------------------------------------------------
*/
;******************************D E F I N I T I O N******************************
                               NAME RIGHTSHIFT			   
;*****************************D E C L A R A T I O N*****************************


                    PUBLIC  _RlcChar
		   


RLC_ROUTINE         SEGMENT CODE
                    RSEG    RLC_ROUTINE


;-------------------------------------------------------------------------------
;shift char in ACC
_RlcChar:           MOV     B,R7
                    MOV     R7,#8
		    MOV     R3,#0
                    CLR     C
		    MOV     R0,B
RL0:		    MOV     A,R0
		    RLC     A
		    MOV     R0,A
		    ;;CLR     A
		    MOV     A,R3
		    RLC     A
		    MOV     R3,A
		    DJNZ    R7,RL0
		    RET

;-------------------------------------------------------------------------------
;stop compiling

                    END