;赤外線リモコン送信 キャリア波(38kHzか40kHz)の作成
;1秒間4万回点滅させる方法
;1. PIC12F629
;2. ロック 4MHz
; 4Mhz 1クロック=0.00000025S = 0.25μS
; 4Mhz 1サイクル=1μS
;3. 40kHz 1秒/40000回=0.000025S=0.025mS=25μS
; 38kHz 1秒/38000回=0.000026S=0.026mS=26μS
;4. 40kHz 方形波=12.5μS ON + 12.5μS OFF
; 38kHz 方形波=13 μS ON + 13 μS OFF
;5. 600μs事にHiかLowを出力します。
; 600μS/25=24回
; 600μS/26=23回
;
;--
LIST P=12F629
INCLUDE P12F629.INC
CB = _CPD_OFF
CB &= _CP_OFF
CB &= _BODEN_ON
CB &= _MCLRE_OFF
CB &= _PWRTE_ON
CB &= _WDT_OFF
CB &= _INTRC_OSC_NOCLKOUT ;_HS_OSC
__CONFIG CB
;--
ORG H'0'
GOTO INIT
;--
INIT
BSF STATUS,RP0 ;1BANK
CALL 0x3FF
MOVWF OSCCAL
MOVLW B'00010000'
MOVWF TRISIO ;
BCF STATUS,RP0 ;
MOVLW B'00000111'
MOVWF CMCON ;
BCF STATUS,RP0
CLRF GPIO
;--
MAIN
BTFSS GPIO,4 ;1
GOTO MAIN ;2
BSF GPIO,2 ;3
NOP ;1
NOP ;2
NOP ;3
NOP ;4
NOP ;5
NOP ;6
NOP ;7
NOP ;8
NOP ;9
NOP ;10
NOP ;11
NOP ;12
NOP ;13
BCF GPIO,2 ;4
NOP ;5
NOP ;6
NOP ;7
NOP ;8
NOP ;9
NOP ;10
NOP ;11
NOP ;12
NOP ;13
GOTO MAIN ;14
END
;1秒間4万回点滅させる方法
;1. PIC12F629
;2. ロック 4MHz
; 4Mhz 1クロック=0.00000025S = 0.25μS
; 4Mhz 1サイクル=1μS
;3. 40kHz 1秒/40000回=0.000025S=0.025mS=25μS
; 38kHz 1秒/38000回=0.000026S=0.026mS=26μS
;4. 40kHz 方形波=12.5μS ON + 12.5μS OFF
; 38kHz 方形波=13 μS ON + 13 μS OFF
;5. 600μs事にHiかLowを出力します。
; 600μS/25=24回
; 600μS/26=23回
;
;--
LIST P=12F629
INCLUDE P12F629.INC
CB = _CPD_OFF
CB &= _CP_OFF
CB &= _BODEN_ON
CB &= _MCLRE_OFF
CB &= _PWRTE_ON
CB &= _WDT_OFF
CB &= _INTRC_OSC_NOCLKOUT ;_HS_OSC
__CONFIG CB
;--
ORG H'0'
GOTO INIT
;--
INIT
BSF STATUS,RP0 ;1BANK
CALL 0x3FF
MOVWF OSCCAL
MOVLW B'00010000'
MOVWF TRISIO ;
BCF STATUS,RP0 ;
MOVLW B'00000111'
MOVWF CMCON ;
BCF STATUS,RP0
CLRF GPIO
;--
MAIN
BTFSS GPIO,4 ;1
GOTO MAIN ;2
BSF GPIO,2 ;3
NOP ;1
NOP ;2
NOP ;3
NOP ;4
NOP ;5
NOP ;6
NOP ;7
NOP ;8
NOP ;9
NOP ;10
NOP ;11
NOP ;12
NOP ;13
BCF GPIO,2 ;4
NOP ;5
NOP ;6
NOP ;7
NOP ;8
NOP ;9
NOP ;10
NOP ;11
NOP ;12
NOP ;13
GOTO MAIN ;14
END