Name: N Alert.PNG Views: 688 Size: 183.6 KB




TRISA=%11111111
TRISB=%11111111
TRISD=%00000000
TRISE=000
PORTD=0
PORTE=0

ADCON1=7

PAUSE 1000

START:
IF PORTA.0=0 THEN GOSUB ROOM1
PAUSEUS 10
IF PORTA.1=0 THEN GOSUB ROOM2
PAUSEUS 10
IF PORTA.2=0 THEN GOSUB ROOM3
PAUSEUS 10
IF PORTA.3=0 THEN GOSUB ROOM4
PAUSEUS 10
IF PORTA.4=0 THEN GOSUB ROOM5
PAUSEUS 10
IF PORTA.5=0 THEN GOSUB ROOM6
PAUSEUS 10
IF PORTB.0=0 THEN GOSUB ROOM7
PAUSEUS 10
IF PORTB.1=0 THEN GOSUB ROOM8
PAUSEUS 10
IF PORTB.2=0 THEN GOSUB ROOM9
PAUSEUS 10
IF PORTB.3=0 THEN GOSUB ROOM10
PAUSEUS 10
GOTO START

ROOM1:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$06
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$06
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$06
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN


ROOM2:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$5B
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$5B
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$5B
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM3:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$4F
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$4F
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$4F
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM4:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$66
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$66
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$66
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM5:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$6D
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$6D
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$6D
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM6:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$7D
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$7D
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$7D
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM7:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$07
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$07
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$07
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM8:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$7F
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$7F
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$7F
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM9:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$6F
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$6F
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$6F
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN

ROOM10:
HIGH PORTE.0:HIGH PORTE.1
PORTD=$BF
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$BF
PAUSE 2000
PORTD=0
PAUSE 1000
PORTD=$BF
PAUSE 2000
LOW PORTE.0:LOW PORTE.1
PORTD=0
RETURN


END



Ten rooms Nurse alert system. I hope someone finds it useful