PUBLIC _Left
LEFTP  SEGMENT CODE
 RSEG   LEFTP

_Left:MOV A,R7
      RL A
      MOV  R7,A
      RET
   END