?? yaokongqi.asm
字號:
include <p16f505.inc>
COUNT EQU 09H
COUNT1 EQU 0AH
COUNT2 EQU 0BH
ADDRES EQU 0CH
SENDBUF EQU 0DH ;存鍵值
TXBUF EQU 0EH
MM EQU 0FH ;10MS DELAY
NN EQU 10H
AA EQU 11H ;DELAY1
BB EQU 12H
TVDATA EQU 13H
;=============================
ORG 00H
START:
BSF STATUS,RP0
MOVLW B’11111111’
MOVWF TRISB ;RB0頻道上翻 RB1 LED
MOVLW B’11111110’
MOVWF TRISC ;RC0 紅外輸出
BCF STATUS,RP0
;
BCF PORTC,0 ;紅外輸出口
BSF PORTB,1 ;復(fù)位時RB1 LED閃二下，表示工作正常。
CALL DELAY1
BCF PORTB,1
CALL DELAY1
BSF PORTB,1
CALL DELAY1
BCF PORTB,1
CALL DELAY1
;================鍵掃描=================
MAIN:
BTFSS PORTB,0 ;RB0頻道上翻
GOTO SCHUP ;PORTB常態(tài)是高電平，低電平有鍵按下。
BTFSS PORTA,4 ;RA4頻道下翻
GOTO SCHDOWN
GOTO MAIN
;==========頻道上翻=============
SCHUP:
CALL DELAY ;鍵去抖
BTFSC PORTB,0
GOTO MAIN
BTFSS PORTB,0 ;鍵釋放？
GOTO $-1
BSF PORTB,1
;
MOVLW B’00110100’ ;TV ADRESS（寫入自己的彩電地址碼）
MOVWF ADDRES
MOVLW B’00000001’ ;TV DATA
MOVWF TVDATA
CALL SEND ;發(fā)送一次紅外信號
MOVLW B’00110100’ ;TV ADRESS
MOVWF ADDRES
MOVLW B’00000001’ ;TV DATA
MOVWF TVDATA
CALL SEND ;發(fā)送一次紅外信號
GOTO MAIN
;==========頻道下翻=============
SCHDOWN:
CALL DELAY ;鍵去抖
BTFSC PORTA,4
GOTO MAIN
BTFSS PORTA,4 ;鍵釋放？
GOTO $-1
BSF PORTA,4
;
MOVLW B’00110100’ ;TV ADRESS
MOVWF ADDRES
MOVLW B’00000010’ ;TV DATA
MOVWF TVDATA
CALL SEND ;發(fā)送一次紅外信號
MOVLW B’00110100’ ;TV ADRESS
MOVWF ADDRES
MOVLW B’00000010’ ;TV DATA
MOVWF TVDATA
CALL SEND ;發(fā)送一次紅外信號
GOTO MAIN
;=======發(fā)送8.07mS+4.0MS組成的頭碼=========== （一般是9MS+4.5MS）
SEND:
MOVLW 0XFF
CALL POUSE
MOVLW 0X34
CALL POUSE
;4.0MS
MOVLW 0XC8
CALL DELAY2
;=========發(fā)送地址===========
MOVF ADDRES,0
CALL TVADDRESS
;========中間插一斷560uS+4MS低===============
MOVLW 0X14
CALL POUSE
MOVLW 0XC8
CALL DELAY2
;=========發(fā)送數(shù)據(jù)===========
MOVF TVDATA,0
CALL TVADDRESS
;===結(jié)尾560US POUSE+22.7MS低電平======
MOVLW 0X13
CALL POUSE
BCF PORTC,0
CALL DELAY ;3MS
CALL DELAY ;3MS
CALL DELAY ;3MS
CALL DELAY ;3MS
CALL DELAY ;3MS
CALL DELAY ;3MS
CALL DELAY ;3MS
RETURN
;===========560uS 高38K頻===============
POUSE:
MOVWF COUNT ;560uS=0X14
K38:
BSF PORTC,0 ;(0XFF+ 0X34)*26.9=8.07mS
NOP ;(0XFF+ 0X4E)*26.9=9mS
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
BCF PORTC,0
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DECFSZ COUNT,1
GOTO K38
RETURN
;===============發(fā)送TV地址和數(shù)據(jù)碼==================
TVADDRESS:
MOVWF TXBUF ;注意PC示波器先收到的是低位！！！
MOVLW 0X08
MOVWF COUNT1
TLP:
BTFSC TXBUF,0 ;地址碼為0就發(fā)0，為1就發(fā)1。
GOTO IDONE
;==========TV 發(fā)送0子程序============
MOVLW 0X14
MOVWF COUNT ; 560uS
TVZERO:
BSF PORTC,0
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
BCF PORTC,0
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DECFSZ COUNT,1
GOTO TVZERO
;
BCF PORTC,0
MOVLW 0X7D
MOVWF COUNT2 ;480uS
L0TLP:
NOP
DECFSZ COUNT2,1
GOTO L0TLP
;---------------
GOTO GUR
IDONE:
;==========TV 發(fā)送1子程序============
;560uS+1.43mS
MOVLW 0X14
MOVWF COUNT ;560uS
TVONE:
BSF PORTC,0 ;紅外輸出口
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
BCF PORTC,0
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DECFSZ COUNT,1
GOTO TVONE
;-------
BCF PORTC,0
MOVLW 0X7D
MOVWF COUNT2 ;1.48mS
L1TLP:
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DECFSZ COUNT2,1
GOTO L1TLP
NOP
NOP
NOP
NOP
NOP
NOP
;-----------------
GUR:
RRF TXBUF,1
DECFSZ COUNT1,1 ;共8次。
GOTO TLP
RETURN
;=========== 3ms鍵去抖 =============
DELAY:
MOVLW 0X04
MOVWF MM
DY1:
MOVLW 0XFF
MOVWF NN
DY2:
DECFSZ NN
GOTO DY2
DECFSZ MM
GOTO DY1
RETURN
;=========== LED閃延時 =============
DELAY1:
MOVLW 0XFF
MOVWF AA
DYA1:
MOVLW 0XFF
MOVWF BB
DYA2:
DECFSZ BB
GOTO DYA2
DECFSZ AA
GOTO DYA1
RETURN
;============ 20us*X ================
DELAY2:
MOVWF COUNT2 ;0XC8=20us*200=4.0ms
TOPL:
NOP ;0XE1=20us*225=4.5ms
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DECFSZ COUNT2,1
GOTO TOPL
RETURN
;=======================================================
END
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -