define( clr,`move 0x00′)
define( set,`move 0xFF’)
define( ora,`and eval($1 ^ 255)
add $1′)
define(GPIO, `0xFC’)
define(turnOnLED, `load eval(GPIO+1)
and 0xFD
add 2
store GPIO’)
define(turnOffLED, `load eval(GPIO+1)
and 0xFD
store GPIO’)
define(closeTrap, `load eval(GPIO+1)
and 0xFE
add 1
store GPIO’)
define(openTrap, `load eval(GPIO+1)
and 0xFE
store GPIO’)
define(buttonPressed, `load GPIO
and 0x01
jumpz $1′)