Setup for Zoom, 40KHz carrier, Cannon WL-61 Remote Coding
--
-- setup for 40KHz carrier, 25 microseconds per cycle (24-25 works)
T: BTC25=
R:
T: BTC?
R: =25
-- setup for cannon code, .55 milliseconds = 22 carrier cycles per bit
T: BTD22<22+
R:
T: BTD?
R: =5654
-- clear message buffers so later verification makes sense
T: BT]50]=58]=66]=
R:
T: BT]50]?58]?66]?
R: =0=0=0
-- setup ZOOMW message in 66 to 73
-- (word#    1   2   3   4   5   6   7   8)
T: BT]66]_FFFF008A2AA288A2228A222AA2A88880_
R:
T: BT]66]??
R: =-1=138
T: BT]48]8<66+
R:
-- setup and verify ZOOMT message in 58 to 65
-- (word#    1   2   3   4   5   6   7   8)
T: BT]58]_FFFF008A2AA288A222A888AA22A88880_
R:
T: BT]58]??
R: =-1=138
T: BT]49]8<58+
R:
-- setup and verify RESET message in 50 to 57
-- (word#    1   2   3   4   5   6   7   8)
T: BT]50]_FFFF008A2AA288A22288A22AA8A88880_
R:
T: BT]58]??
R: =-1=138
-- setup ZOOM range
--
T: BTQ100=R40-=
R:
-- verify that nothing got messed up during initialization
--
T: BTC?
R: =25
T: BTD?
R: =5654

Reset camera and seek home on zoom range
-- do camera reset
--
T: BT]50]8$
R:
Reset
-- seek home
--
-- Zoom in
T: BTZ1000=!
R:
T: BTZ?K?
R: =100=100
-- Zoom out
T: BTZ1000-=!
R:
T: BTZ?K?
R: =-40=-40
-- Zoom home
T: BTZ0=!
R:
T: BTZ?K?
R: =0=0

Canon zoom programmed!
--