'**************************************************************** '* Name : Swipe_Door_Lock.BAS * '* Author : Robert Joseph Korn * '* Notice : Copyright (c) 2015 Open Valley Consulting Corp * '* Date : 12/15/2015 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** DEFINE OSC 10 DEFINE HSER_RCSTA 90h DEFINE HSER_TXSTA 20h DEFINE HSER_BAUD 9600 DEFINE HSER_CLROERR 1 x var word ADCON1 = $7f char var BYTE red VAR PORTB.7 yellow VAR PORTB.6 green VAR PORTB.5 PORTB = 0 TRISB = $7e low red low yellow low green on interrupt goto serial INTCON = %11000000 PIE1 = %00100000 goto main ' interrupt service routine disable serial: hserin 0, endisr, [char] if char = $16 then low red low yellow low green endif if char = $17 then high red low yellow low green endif if char = $18 then low red high yellow low green endif if char = $19 then low red low yellow high green endif endisr: resume enable ' end of ISR main: pause 500 goto main