<b>
FOO:
    MOV     A,R7
    SWAP    A
    ANL     A,#0F0H
    MOV     R7,A
    MOV     A,x
    ANL     A,#0FH
    ORL     A,R7
    MOV     x,A
    RET     
</b>