'
'     Panasonic TV リモコン模擬LED点灯回路
'
'     12時間後に赤外LEDを点滅させ，TVをON-OFFする
'
;Configuration

#chip 12F1822
#config FOSC=INTOSC

;各ポート入出力設定

Dir PORTA.5 IN    'test #2 pin
Dir PORTA.2 OUT   '出力　output CCP1 #5 pin

do Forever

  if PORTA.5 off then

    code_out

    wait 500 msec

    'タイマーセット…………3秒間長押し

    if porta.5 off Then

      wait 3 sec

      if porta.5 off then

      goto shut_down

    end if


  end if

  end if

Loop

shut_down:

'タイマー

do forever

    wait 12 hour

    code_out

loop


function code_out
dim char as byte
dim i as byte
dim j as byte

dim data_number(6)

data_number= 64, 4, 1, 0, 188, 189        '家電協 Panasonic 10進

'リード部分

HPWM 1, 38, 150    'duty 33%

wait 3200 us

PWMoff

wait 1600 us

'データ部………カスタムコード，データコード

for i=1 to 6

    for j=1 to 8              '1bit

      char = val(mid(bytetobin(data_number(i)), j, 1))

        if char = 0 then     '0

          HPWM 1, 38, 150

          wait 400 us

          PWMOff

          wait 400 us

        end if

        if char = 1 then                  '1

          HPWM 1, 38, 150

          wait 400 us

          PWMoff

          wait 1200 us

        end if

    next j

next i

stop_bit:

HPWM 1, 38, 150

wait 400 us

PWMoff

wait 8000 us

end Function