dhtasc.asm

来自「微芯公司的PIC子程序库及运算平台」· 汇编 代码 · 共 34 行

;********************DHTASC********************
;本程序实现两位十六进制（单字节）数转化为ASCII码。
;入口参数：原BCD码数在SOU中。
;出口参数：结果在SOUH:SOU中。
;占用资源：W,STATUS,024H,025H,一重堆栈。

           IFNDEF       DHTASC1
            #DEFINE     DHTASC1

DHTASC      SWAPF       SOU,W
            ANDLW       0FH
            MOVWF       SOUH
            SUBLW       .9
            BTFSC       STATUS,C
            GOTO        LOW10_3
            MOVLW       .7
            ADDWF       SOUH,F
LOW10_3     MOVLW       30H
            ADDWF       SOUH,F
            MOVLW       0FH
            ANDWF       SOU,W
            MOVWF	SOU         ;暂存低位
            SUBLW       .9
            BTFSC       STATUS,C    
            GOTO        LOW10_2     ;小于10则转
            MOVLW       .7
            ADDWF       SOU,F
LOW10_2     MOVLW       30H
            ADDWF       SOU,F
            RETURN
           ENDIF