oechk.asm

来自「本程序实现ASCII码转化为一位十六进制数 原ASCII码在SOU中 结果在」· 汇编 代码 · 共 22 行

;********************OECHK********************
;本程序实现对单字节数据进行奇偶校验。
;入口参数：单字节数据在SOU中,若要求为奇校验,则W=0FFH,否则,W=0。
;出口参数：校验结果在STATUS:C中。
;占用资源：W,STATUS,023H,024H,028H,029H,一重堆栈。

           IFNDEF       OECHK1
            #DEFINE      OECHK1             

OECHK       MOVWF       TEMP1       ;暂存W
            MOVLW       8
            MOVWF       CNT         ;循环次数
            MOVF        SOU,W
            MOVWF       TEMP2
LOOP88      RRF         TEMP2,F
            BTFSC       STATUS,C
            COMF        TEMP1,F
            DECFSZ      CNT,F
            GOTO        LOOP88
            RRF         TEMP1,W
            RETURN
           ENDIF