TA,RMT    ;是否有遥控器按下
               GOTO        RCV          ;跳转遥控接收程序
               GOTO        LOOP         ;反复检测
;--------------------------------------------------
KEY1                                     ;将键码送显示
             
               CLRF        CNT0          ;消除键抖动
               MOVLW       .100
               MOVWF       CNT1
KEY1_A
               BTFSC       PORTB,1     
               INCF        CNT0,1
               BTFSS       PORTB,1
               CLRF        CNT0
               BTFSC       CNT0,3
               GOTO        LOOP
               DECFSZ      CNT1,1
               GOTO        KEY1_A
               SWAPF       CSR1,W        ;键码值高低位交换，先处理高位
               ANDLW       0FH           ;屏蔽掉高位
               MOVWF       DISPBUF_H     ;存入寄存器
               MOVFW       CSR1          ;键码值低位处理
               ANDLW       0FH           ;屏蔽掉高位
               MOVWF       DISPBUF_L     ;存入寄存器
               BTFSS       PORTB,1       ;等待键释放
               GOTO        $-1