Declarations

#rem Keyboard_Transmitter.bas

Mainly used to open/close the garage door, but can also control lights.

* The * button always cancels everything.

* The # button always transmits codes1-3 if valid. depending on lamp or door protocol

* The A - D keys immediately send specific lamp messages. All 3 LEDS flash once.

* The transmitter returns to idle on timeout

John Saunders 6/29/2017

#endrem

#picaxe 18M2

rem Output ports

symbol Col1     = B.4

symbol Col2        = B.5

symbol Col3        = B.6

symbol Col4        = B.7

symbol TXKey    = B.3

symbol RedLED    = B.2

symbol YellowLED    = B.1

symbol BlueLED    = B.0

rem variables for GetKeyHex

symbol RowIn    = b1

symbol Iter        = b2

symbol KeyHex    = b3

rem variables for main

symbol PressCount    = b4    '0=Idle,1=First key,2=Second Key,3=third key

symbol LoopCount    = w13

rem global variables

symbol Code1    = b5

symbol Code2    = b6

symbol Code3    = b7

rem variables for Transmit and Express

symbol KeyAlpha1    = b8

symbol KeyAlpha2    = b9

symbol KeyAlpha3    = b10

rem constants for GetKeyHex

symbol RowMask    = %11000011

symbol Row1val    = 2

symbol Row2val    = 4

symbol Row3val    = 8

symbol Row4val    = 1

symbol Col1val    = 0

symbol Col2val    = 16

symbol Col3val    = 32

symbol Col4val    = 48

symbol Key0        = Col2val + Row4val

symbol Key1        = Col1val + Row1val

symbol Key2        = Col2val + Row1val

symbol Key3        = Col3val + Row1val

symbol Key4        = Col1val + Row2val

symbol Key5        = Col2val + Row2val

symbol Key6        = Col3val + Row2val

symbol Key7        = Col1val + Row3val

symbol Key8        = Col2val + Row3val

symbol Key9        = Col3val + Row3val

symbol KeyA        = Col4val + Row1val

symbol KeyB        = Col4val + Row2val

symbol KeyC        = Col4val + Row3val

symbol KeyD        = Col4val + Row4val

symbol KeyStar    = Col1val + Row4val

symbol KeyHash    = Col3val + Row4val

rem constants for Transmit

symbol AlphaBase    = "0"

symbol AlphaMax    = "o"

rem constants for main

symbol Timeout    = 800                '17.6 sec

rem Express lamp codes

DATA 10,("R")                    'Ceiling Light ON

DATA 11,("B")                    'Plays baBa

DATA 12,("i")                    'Pole Light ON

DATA 13,("k")                    'Pole Light Off