编写一个能将R2中的两位十进制数(压缩BCD码形式)转换为二进制数的子程序，转换结果仍保存到R2中。 用汇编语言直接给我代码

在8051单片机的汇编语言中，我们可以编写一个子程序来完成这个任务。由于R2存储的是压缩BCD码（即两个二进制位组成一个十进制数字），我们需要逐位提取并转换成二进制。这里是一个简单的例子，假设我们已经有了一个16位寄存器R2，其低四位是十进制的0-9：

; 导入R2数据，高四位已被移除
MOVC A, @A+R2 ; 将低四位复制到A寄存器

; 开始二进制转换
CONV_BCD: ; 子程序名
    AND A, #0Fh ; 取出最低两位
    MOV R3, #0 ; 初始化二进制结果寄存器R3
    ADD A, #30h ; 对应ASCII的'0'字符，将BCD码映射回二进制
    SUB A, #'0' ; 减去'0'，得到二进制数字
    MOV R3, A ; 将结果存入R3
    
    ; 进位处理
    XOR A, A ; 判断是否有进位
    JC ADD_CARRY ; 如果有进位，则跳转到ADD_CARRY
    JMP STORE_RESULT ; 否则，存储结果并结束子程序

ADD_CARRY: ; 添加进位到下一位
    INC R3 ; R3++
    MOV A, #10 ; 高位加1（相当于+10）
    ADC A, R2 ; 向右移位并加上高位
    MOV R2, A ; 更新R2

STORE_RESULT: ; 存储最终结果
    MOV @A+R2, R3 ; 把二进制数放入原R2位置

RET ; 返回主程序

END_CONV_BCD ; 子程序结束

这个子程序先从R2取出低四位，然后依次对每一位进行二进制转换。注意BCD码通常包含多余的高位，本例假定已经处理过了。如果你的BCD码存储格式不同，可能需要相应地调整处理逻辑。