编写一个能将任何无符号8位二进制数转换为其等效BC D码的子程序。入口参数为内部RAM单元20H，出口参数为内部RAM单元30H和31H。其中30H存放百位数，31H存放十位数和个位数。

为了编写一个将无符号8位二进制数转换为BCD码的子程序，我们可以按照以下步骤进行：

; 函数宏，输入参数为源地址（AL），输出结果分别存放在30H(百位)、31H(十位和个位)
convert_to_bcd MACRO src
    MOV BL, [src] ; 读取源地址的二进制数字
    AND BL, 0x0F ; 只保留最低4位作为个位
    ADD BL, 0x30 ; 将个位对应的ASCII字符值加上，如0对应ASCII 48，1对应ASCII 49，依此类推
    
    ; 将十位和百位计算出来
    SHR BL, 4 ; 向右移位一位得到十位
    ADD BL, 0x30 ; 同样处理十位
    
    ; 写入结果
    MOV [31H], BL ; 存储个位到31H
    MOV [30H], AH ; 存储十位到30H (这里使用AH保存BL的结果，因为原AL已经被用于暂时存储十位)
ENDM

; 调用子程序
MOV AL, 20H ; 输入地址，假设20H单元存储了待转换的二进制数值
CALL convert_to_bcd ; 转换并存储结果

上面的代码首先获取输入的二进制数，然后将其分解为个位和十位，并将它们转换成对应的ASCII字符值（BCD码）。注意，在实际应用中，可能需要考虑是否需要扩展到更高位的情况，例如16位或32位的输入。