/* **************************************************************************
;																			*
;	Filename: SIRC															*
;	Date: May 29, 2009														*
;	File Version: 001														*
;																			*
;	Author:   Jason Lopez													*
;	Company:  AtomSoft														*
;																			*
;****************************************************************************
; Notes:
; I am delaying in this code a nice even number every 200uS. Mainly because if
; i count each pulse it would be accurate but too many counts for a char type
; and i dont want to use a int. So i can get a 600 count by skipping every 300uS
; and the count will be a nice low number...3
; 
; For a 1.2mS aka HIGH i should get a count of 6 and for the start 2.4mS i should
; get a count of 12. Since this isnt too accurate i range it about 1-2 numbers 
; above or below the standard.
; 
;****************************************************************************
*/
#include <p18f2525.h>
#include <delays.h>
#include <string.h>

#pragma config WDT = OFF, LVP = OFF, OSC = INTIO67, XINST = OFF

unsigned char lTime;
unsigned char ir_add;
unsigned char ir_cmd;

#define irTris TRISCbits.TRISC4
#define irPin PORTCbits.RC4

void main(void);
void GetSIRC(void);

void main(void){
	OSCCON = 0x72;      			//8MHz clock
	while(!OSCCONbits.IOFS);		//wait for osc stable

	irTris = 1;

	GetSIRC();
	while(1);
}

void GetSIRC(unsigned char *address, unsigned char *command){
	char x;
StartLook:
		ir_add = ir_cmd = 0;
		while(irPin);			//wait for it to be low
		lTime = 0;				//reset the counter
		while(irPin == 0){		//while the pin is low which is our pulse count
			lTime++;			//increment every 200uS until pin is high
			Delay100TCYx(4);	//200uS delay
		}

		if(lTime <= 10)			//Start too short
			goto StartLook;		//Restart
		if(lTime >= 14)			//Start too long
			goto StartLook;		//Restart
			
		lTime = 0;
		for(x=0;x<7;x++){			//repeat 7 times for command
			ir_cmd >>= 1;			//if it was skipped or is done ORing then shift over the 1
			while(irPin);			//wait for it to be low
			lTime = 0;				//reset the counter
			while(irPin == 0){		//while the pin is low which is our pulse count
				lTime++;			//increment every 200uS until pin is high
				Delay100TCYx(4);	//200uS delay
			}
				if(lTime >= 6)		//If its high then OR a 1 in else skip
					ir_cmd |= 0x40;	//if its less than 6 its a 0 so dont OR it		
								
		}
		for(x=0;x<5;x++){			//repeat 5 times for address/device
			ir_add >>= 1;			//if it was skipped or is done ORing then shift over the 1
			while(irPin);			//wait for it to be low
			lTime = 0;				//reset the counter
			while(irPin == 0){		//while the pin is low which is our pulse count
				lTime++;			//increment every 200uS until pin is high
				Delay100TCYx(4);	//200uS delay
			}
				if(lTime >= 6)		//If its high then OR a 1 in else skip
					ir_add |= 0x10;	//if its less than 6 its a 0 so dont OR it			
		}
}

/* **************************************************************************
;																			*
;	Filename: SIRC															*
;	Date: May 29, 2009														*
;	File Version: 001														*
;																			*
;	Author:   Jason Lopez													*
;	Company:  AtomSoft														*
;																			*
;****************************************************************************
; Notes:
; I am delaying in this code a nice even number every 200uS. Mainly because if
; i count each pulse it would be accurate but too many counts for a char type
; and i dont want to use a int. So i can get a 600 count by skipping every 300uS
; and the count will be a nice low number...3
; 
; For a 1.2mS aka HIGH i should get a count of 6 and for the start 2.4mS i should
; get a count of 12. Since this isnt too accurate i range it about 1-2 numbers 
; above or below the standard.
; 
;****************************************************************************
*/
#include <p18f2525.h>
#include <delays.h>
#include <string.h>

#pragma config WDT = OFF, LVP = OFF, OSC = INTIO67, XINST = OFF

unsigned char lTime;

unsigned char MyAdd;
unsigned char MyCmd;

#define irTris TRISCbits.TRISC4
#define irPin PORTCbits.RC4

void main(void);
void GetSIRC(unsigned char *address, unsigned char *command);

void main(void){
	OSCCON = 0x72;      			//8MHz clock
	while(!OSCCONbits.IOFS);		//wait for osc stable

	irTris = 1;

	GetSIRC(&MyAdd,&MyCmd);
	while(1);
}

void GetSIRC(unsigned char *address, unsigned char *command){
unsigned char ir_add;
unsigned char ir_cmd;
char x;
StartLook:

	ir_add = ir_cmd = 0;

	while(irPin);				//wait for it to be low
	lTime = 0;					//reset the counter

	while(irPin == 0){			//while the pin is low which is our pulse count
		lTime++;				//increment every 200uS until pin is high
		Delay100TCYx(4);		//200uS delay
	}

	if(lTime <= 10)				//Start too short
		goto StartLook;			//Restart
	if(lTime >= 14)				//Start too long
		goto StartLook;			//Restart
			
	lTime = 0;
	for(x=0;x<7;x++){			//repeat 7 times for command
		ir_cmd >>= 1;			//if it was skipped or is done ORing then shift over the 1

		while(irPin);			//wait for it to be low
		lTime = 0;				//reset the counter

		while(irPin == 0){		//while the pin is low which is our pulse count
			lTime++;			//increment every 200uS until pin is high
			Delay100TCYx(4);	//200uS delay
		}

		if(lTime >= 6)			//If its high then OR a 1 in else skip
			ir_cmd |= 0x40;		//if its less than 6 its a 0 so dont OR it		
								
	}
	for(x=0;x<5;x++){			//repeat 5 times for address/device
		ir_add >>= 1;			//if it was skipped or is done ORing then shift over the 1

		while(irPin);			//wait for it to be low
		lTime = 0;				//reset the counter

		while(irPin == 0){		//while the pin is low which is our pulse count
			lTime++;			//increment every 200uS until pin is high
			Delay100TCYx(4);	//200uS delay
		}

		if(lTime >= 6)			//If its high then OR a 1 in else skip
			ir_add |= 0x10;		//if its less than 6 its a 0 so dont OR it			
	}

	*address = ir_add;
	*command = ir_cmd;
}

; test if Zero, One, or Start (or error)
		
Chk_Pulse	clrf	Flags

TryError	movf 	LoX,	w		; check if pulse too small
  		addlw 	d'255' - d'20'		; if LoX <= 20
  		btfsc   STATUS    , C
  		goto 	TryZero
		bsf	Flags,	ErrFlag		; Error found, set flag
		retlw	0x00

TryZero		movf 	LoX,	w		; check if zero
  		addlw 	d'255' - d'60'		; if LoX <= 60
  		btfsc   STATUS    , C
  		goto 	TryOne
		bsf	Flags,	Zero		; Zero found, set flag
		retlw	0x00

TryOne 		movf 	LoX,	w		; check if one
  		addlw 	d'255' - d'112'		; if LoX <= 112
  		btfsc   STATUS    , C
  		goto 	TryStart
		bsf	Flags,	One		; One found, set flag
		retlw	0x00

TryStart 	movf 	LoX,	w		; check if start
  		addlw 	d'255' - d'180'		; if LoX <= 180
  		btfsc   STATUS    , C
  		goto 	NoMatch
		bsf	Flags,	StartFlag	; Start pulse found
		retlw	0x00
NoMatch						; pulse too long
		bsf	Flags,	ErrFlag		; Error found, set flag		
		retlw	0x00

;end of pulse measuring routines