#INCLUDE "plumbing.module"

VAL armed.led IS 12 :

PROC pir.monitor ()
  BYTE read:
  SEQ
    digital.mode (armed.led, OUTPUT)
    serial.setup (RX0, 9600)
    WHILE TRUE
      SEQ
        serial.read.byte (RX0, read)
        IF
          read = #AA
            digital.write (armed.led, HIGH)
          read = #AB
            digital.write (armed.led, LOW)          
: