sartorp

;====================================================================
;***         Fjernstyring   med IR av  8M2LE/AXE092             *****
;====================================================================

;======================================================================
;Brukerveiledning:****************************************************
;For ? styre et lys i et hus:
;Trykk  chip ID (Husets nummer), og deretter lysnummer.
;Lyset du har valgt,  slaar du PAA/AV vha pil_opp/ned-tasten.
;Programmering av chip ID (husnummer) gj?res umiddelbart etter at
;str?mmen til kretskortet er koplet til.

;*******************************************************************
;******Symboldefinisjoner for aa lette leseligheten i programmet****
;
;******Portdefinisjoner********
symbol red		= c.0		;Roed LED er koplet til utgang 0
symbol gul		= c.1		;Gul LED er koplet til utgang 1
symbol green	= c.2		;Groenn LED er koplet til utgang 2
symbol buzzer	= c.2		;Buzzer er koplet til utgang 2
symbol IRmottaker	= c.3		;IRmottakeren er koplet til utgang 3
symbol fotocelle	= c.4		;Fotocella er koplet til utgang 4
;
;******Konstantdefinisjoner****
symbol Ingen_tast	= 255		;Det er naa noedvendig med en egen kode
					;for aa markere at ingentast er trykket
symbol tidsfrist	= 5		;Max ventetid for inntasting

;Definisjoner som samvarer med TVR010 fjernkontroll:
symbol pil_opp	= 16
symbol pil_ned	= 17
symbol av_paa	= 21
symbol kryss	= 20
symbol tast1	= 0
symbol tast2	= 1
symbol tast3	= 2
symbol tast4	= 3
symbol tast5	= 4
symbol tast6	= 5
symbol tast7	= 6
symbol tast8	= 7
symbol tast9	= 8
symbol tast0	= 9
;******Variabeldefinisjoner****
symbol kladd	= b1		;generell kladdevariabel
symbol teller	= b2		;generell tellevariabel
symbol Chip_ID	= b3		;ID nr for adressering av chip/hus
symbol Innlest_kode= b4		;Variabel for innlest tastkode
symbol ValgtLys	= b5		;Valgt lysnr, tast1, 2 eller 3

#picaxe 08M2LE			;Fortelle systemet hvilken chip vi bruker
#terminal 4800			;Viser terminalvinduet paa skjermen for
					;utskrift av data fra mikrokontrolleren

;===================================================================
;*****Her skriver du s selve programmet:*******************************


start:
	sertxd("Velg IDnummer for chip'en:")
	high 0,1,2
	irin IRmottaker,chip_ID
	pause 1000



hoved:	;Hovedprogram som gjentas hele tida
	sertxd("Fjernkontrollen ikke i bruk",13,10)
	if Innlest_kode=chip_ID then low 0,1,2
	if Innlest_kode=tast8 then goto hoved
	endif

StyringAvLys: ;I denne delen av programmet sjekkes fjernkontrollen, tastetrkk tolkes og lysene styres
		gosub SjekkIR
		if Innlest_kode=chip_id then goto Hent2
		if Innlest_kode=tast8 then goto hoved
		goto hoved


Hent2:;Hit i programmer kommer vi når rett huskde(chip ID) trykkes
	gosub SjekkIR

	if Innlest_kode=Ingen_tast then goto Hent2
	if Innlest_kode>tast3 then goto hoved

	ValgtLys=Innlest_kode

Hent3:;For å kunne skru av og på lyset med piltastene
	gosub SjekkIR

	if Innlest_kode=pil_opp then
			high ValgtLys
			goto hoved
	elseif Innlest_kode=pil_ned then
			low ValgtLys
			goto hoved
	else

		goto Hent3

	endif


SjekkIR:;Subrutine sjekker om en tast er trykket og venter helt til du slipper tidsnok

	Innlest_kode=Ingen_tast
SjekkIR1:
	irin [200,SjekkIR2],IRmottaker,Innlest_kode
	time=0
	goto SjekkIR1
SjekkIR2:
	return