CON
  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

  HOUSE_A       = %0110
  HOUSE_B       = %1110
  HOUSE_C       = %0010
  HOUSE_D       = %1001
  HOUSE_E       = %0001
  HOUSE_F       = %1001
  HOUSE_G       = %0101
  HOUSE_H       = %1101
  HOUSE_I       = %0111
  HOUSE_J       = %1111

  UNIT_01       = %01100
  UNIT_02       = %11100
  UNIT_03       = %00100
  UNIT_04       = %10100
  UNIT_05       = %00010
  UNIT_06       = %10010
  UNIT_07       = %01010
  
  CMD_ALL_OFF   = %00001
  CMD_LIGHTS_ON = %00011
  CMD_ON        = %00101
  CMD_OFF       = %00111
  CMD_DIM       = %01001
  CMD_BRIGHT    = %01011
  CMD_LIGHTS_OFF = %01101
  CMD_HAIL_REQ  = %10001
  CMD_HAIL_ACK  = %10011
  CMD_STATUS_ON = %11011
  CMD_STATUS_OFF = %11101
  CMD_STATUS_REQ = %11111

  setupCmd          = 1 << 16

OBJ
  pause          : "pause"
  
VAR
  byte zcPin,inPin,outPin
  long stack[20]

PUB init
  start(26,25,24)
  repeat 3
    send_to_unit(HOUSE_H,UNIT_01,CMD_ON)
  pause.delay_s(1)
  reboot
  
PUB start(zcPin_,inPin_,outPin_)
  zcPin := zcPin_
  inPin := inPin_
  outPin := outPin_
  dira[zcPin]~
  dira[inPin]~
  dira[outPin]~

PRI pushbit(val) : i
  outa[outPin] := val&1
  if ina[zcPin]
    waitpeq(0,|<zcPin,0)
  else
    waitpne(0,|<zcPin,0)
  dira[outPin]~~
  pause.delay_ms(1)
  dira[outPin]~
  
PUB send_to_unit(house,unit,code)
  send(house,unit)
  send(house,code)
  
PUB send(house,code)
  send_raw(house,code)
  send_raw(house,code)
  pushbit(0)
  pushbit(0)
  pushbit(0)

PUB send_raw(house,code)
  pushbit(1)
  pushbit(1)
  pushbit(1)
  pushbit(0)
  repeat 4
    pushbit(house>>3)
    pushbit(!(house>>3))
    house<<=1
  repeat 5
    pushbit(code>>4)
    pushbit(!(code>>4))
    code<<=1