１）赤外線受信プログラムのフローチャートを示す.
２）アセンブラプログラムを示す.
;*************************************
; 赤外線受信テストプログラム
; snagai4500
;*************************************
; LED-RECV.ASM
LIST P=PIC16F84A;
INCLUDE P16F84.INC;
MEM_1 EQU 0CH
MEM_2 EQU 0DH
MEM_3 EQU 0DH
MEM_4 EQU 0FH
ORG 0
;*****************************
;メインルーチン
;*****************************
MAIN
BSF STATUS,RP0
CLRF TRISB
MOVLW 01H
MOVWF TRISA
BCF OPTION_REG,7
BCF STATUS,RP0
LOOP
CLRF PORTA
CLRF PORTB
CLRF MEM_4
BTFSC PORTA,0 ;スタートビット待ち
GOTO LOOP
CALL TIM04 ;400μｓ待って
BTFSC PORTA,0 ;再度スタートビットを確認
GOTO LOOP ;じゃなかったらLOOPへ
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSS PORTA,0 ;デバイスコード（１ビット目）確認１か？
GOTO LOOP ;NoならLOOPへ
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;デバイスコード（２ビット目）確認０か？
GOTO LOOP ;NoならLOOPへ
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;スイッチコード（１ビット目）確認０か？
GOTO B0 ;No（１）ならB0へ
BSF MEM_4,3 ;０ならMEM_4の３ビット目に１をセット
B0
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;スイッチコード（２ビット目）確認０か？
GOTO B1 ;No（１）ならB1へ
BSF MEM_4,2 ;０ならMEM_4の２ビット目に１をセット
B1
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;スイッチコード（３ビット目）確認０か？
GOTO B2 ;No（１）ならB2へ
BSF MEM_4,1 ;０ならMEM_4の１ビット目に１をセット
B2
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;スイッチコード（４ビット目）確認０か？
GOTO B3 ;No（１）ならB3へ
BSF MEM_4,0 ;０ならMEM_4の０ビット目に１をセット
B3
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;ストップビット（１ビット目）確認０か？
GOTO LOOP ;確認できずLOOPへ
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSS PORTA,0 ;ストップビット（２ビット目）確認１か？
GOTO LOOP ;確認できずLOOPへ
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;ストップビット（３ビット目）確認０か？
GOTO LOOP ;確認できずLOOPへ
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSS PORTA,0 ;ストップビット（４ビット目）確認１か？
GOTO LOOP ;確認できずLOOPへ
CALL TIM02
CALL TIM04 ;600μｓ待って
BTFSC PORTA,0 ;ストップビット（５ビット目）確認０か？
GOTO LOOP ;確認できずLOOPへ
;*****************************************
DECFSZ MEM_4,1 ;スイッチコードが０００１？
GOTO C0 ;じゃないならC0へ
GOTO Label0
C0
DECFSZ MEM_4,1 ;スイッチコードが００１０？
GOTO LOOP
GOTO Label1
Label0
；スイッチコードが０００１の時の処理を書く
；処理終わり
GOTO LOOP
Label1
；スイッチコードが００１０のときの処理を書く
；処理終わり
GOTO LOOP
;*****************************
;200μs (クロック 10MHz)
;*****************************
TIM02
MOVLW 07CH
MOVWF MEM_1
TIMLP1 NOP
DECFSZ MEM_1,F
GOTO TIMLP1
RETURN
TIM04
MOVLW 0F9H
MOVWF MEM_2
TIMLP2 NOP
DECFSZ MEM_2,F
GOTO TIMLP2
RETURN
TIM100
MOVLW 0F9H
MOVWF MEM_3
TIMLP3 CALL TIM04
DECFSZ MEM_3,F
GOTO TIMLP3
RETURN
END
