【正确答案】编程如下：
   ROT: MOV    21H,A    ;暂存
        ANL    A,#0FH   ;屏蔽高位，保留低位
        XCH    A,21H    ;存低位，取高位
        ANL    A,#0F0H  ;屏蔽低位，保留高位
        SWAP   A        ;转移至低位
        LCALL  ASC      ;调用ASCII码转换子程序
        XCH    21H,A    ;存高位，取低位
        IEALL  ASC      ;调用ASCII码转换子程序
        XCH    20H,A    ;存低位
        RET             ;
   ASC: MOV   DPTR,#TAB ;置ASCII码表首地址
        MOVC  A,@A+DPTR ;读ASCII码
        RET             ;子程序返回
   TAB：DB 30H，31H，32H，…，39H；0～9ASCII码
        DB 40H，41H，42H，…，46H；A～FASCII码