Electronic Projects, forums and more.

Go Back   Electronic Circuits Projects Diagrams Free > Electronics Categories > Micro Controllers
Nigels IR Question Nigels IR Question
Register Blogs FAQ Calendar Search Today's Posts Mark Forums Read


Micro Controllers Discuss all aspects of micro controllers - building them, coding them, etc. All controllers are welcome - PIC, BASIC, Z8 Encore!, etc.

Reply
Page 1 of 3 1 23 >
 
LinkBack Thread Tools Display Modes
Old 9th May 2008, 01:40 PM   #1 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default Nigels IR Question
Ok Im following Nigels IR Tutorial 5. I have modified it just alittle to fit the 18F1320. I wanted to know if some one can skim over the code and tell me if everything seems ok so far...

Also Here is the schematic for the IR module i altered from Nigels Tuts... Does it also seem ok?


Just asking for thoughts and any input. Thanks for all the great info Nigel!
Keep up the good work..

Code:
 ;Tutorial 5.2 - Nigel Goodwin 2002
;Sony SIRC IR transmitter
	LIST	p=18F1320		;tell assembler what chip we are using
	include	<p18F1320.inc>		;include the defaults for the chip
	CONFIG	OSC = INTIO1, WDT = OFF, LVP = OFF, DEBUG = ON			;sets the configuration settings (oscillator type etc.)

	cblock 	0x20 			;start of general purpose registers
		count1 			;used in delay routine
		counta 			;used in delay routine 
		countb
		count
		Delay_Count
		Bit_Cntr
		Data_Byte
		Dev_Byte
		Rcv_Byte
		Pulse
	endc
	

IR_PORT	Equ	PORTB
IR_TRIS	Equ	TRISB
IR_Out	Equ	0x01
Ser_Out	Equ	0x01
SW1	Equ	7			;set constants for the switches
SW2	Equ	6
SW3	Equ	5
SW4	Equ	4

TV_ID		Equ	0x01			;TV device ID

But1		Equ	0x00			;numeric button ID's
But2		Equ	0x01
But3		Equ	0x02
But4		Equ	0x03
But5		Equ	0x04
But6		Equ	0x05
But7		Equ	0x06
But8		Equ	0x07
But9		Equ	0x08
ProgUp		Equ	d'16'
ProgDn		Equ	d'17'
VolUp		Equ	d'18'
VolDn		Equ	d'19'


	org	0x0000			;org sets the origin, 0x0000 for the 16F628,
	goto	Start			;this is where the program starts running

	org	0x004	

Start	;movlw	0x07
		;movwf	CMCON			;turn comparators off (make it like a 16F84)
		movlw	0x62 				; 4MHz clock select
    	movwf	OSCCON
		clrf	IR_PORT			;make PortB outputs low
 
   		;bsf 	STATUS,		RP0	;select bank 1
   		movlw 	b'11111101'		;set PortB all inputs, except RB1
   		movwf 	IR_TRIS
		movlw	0xff
		movwf	PORTA
		;bcf	STATUS,		RP0	;select bank 0

Read_Sw
		btfss	PORTA,	SW1
		call	Switch1
		btfss	PORTA,	SW2
		call	Switch2
		btfss	PORTA,	SW3
		call	Switch3
		btfss	PORTA,	SW4
		call	Switch4
		call	Delay27
		goto	Read_Sw

Switch1		movlw	ProgUp
		call	Xmit_RS232
		retlw	0x00

Switch2		movlw	ProgDn
		call	Xmit_RS232
		retlw	0x00

Switch3		movlw	VolUp
		call	Xmit_RS232
		retlw	0x00

Switch4		movlw	VolDn
		call	Xmit_RS232
		retlw	0x00

TX_Start	movlw	d'92'
		call	IR_pulse
		movlw	d'23'
		call	NO_pulse
		retlw	0x00

TX_One		movlw	d'46'
		call	IR_pulse
		movlw	d'23'
		call	NO_pulse
		retlw	0x00

TX_Zero		movlw	d'23'
		call	IR_pulse
		movlw	d'23'
		call	NO_pulse
		retlw	0x00

IR_pulse			 	
		MOVWF	count		;  Pulses the IR led at 38KHz
irloop		BSF	IR_PORT,	IR_Out 
		NOP			;
		NOP			;
		NOP			;
		NOP			; 
		NOP			;
		NOP			;
		NOP			;
		BCF	IR_PORT,	IR_Out
		NOP			;
		NOP			;
		NOP			;
		NOP			;
		NOP			;
		NOP			;	
		NOP			;
		NOP			;	
		NOP			;
		NOP			;
		NOP
		NOP
		NOP			;
		NOP			;
		DECFSZ	count,F
		GOTO 	irloop	
		RETLW	0

NO_pulse			 	
		MOVWF	count		;  Doesn't pulse the IR led
irloop2		BCF	IR_PORT,	IR_Out 
		NOP			;
		NOP			;
		NOP			;
		NOP			;
		NOP			;
		NOP			;
		NOP			;
		NOP			; 
		NOP			;
		NOP			;
		NOP			;
		BCF	IR_PORT,	IR_Out
		NOP			;
		NOP			;	
		NOP			;
		NOP			;	
		NOP			;
		NOP			;
		NOP
		NOP
		NOP			;
		NOP			;
		DECFSZ	count,F
		GOTO 	irloop2	
		RETLW	0

Xmit_RS232      MOVWF   Data_Byte            	;move W to Data_Byte
                MOVLW   0x07                 	;set 7 DATA bits out
                MOVWF   Bit_Cntr
                call	TX_Start		;send start bit
Ser_Loop        RRCF     Data_Byte , f        	;send one bit
                BTFSC   STATUS    , C
                call	TX_One
                BTFSS   STATUS    , C
                call	TX_Zero
                DECFSZ  Bit_Cntr  , f        	;test if all done
                GOTO    Ser_Loop
						;now send device data
		movlw	D'1'
		movwf	Dev_Byte		;set device to TV
		MOVLW   0x05                 	;set 5 device bits out
                MOVWF   Bit_Cntr
Ser_Loop2       RRCF     Dev_Byte , f        	;send one bit
                BTFSC   STATUS    , C
                call	TX_One
                BTFSS   STATUS    , C
                call	TX_Zero
                DECFSZ  Bit_Cntr  , f        	;test if all done
                GOTO    Ser_Loop2
                retlw	0x00



;Delay routines

Delay255	movlw	0xff		;delay 255 mS
		goto	d0
Delay100	movlw	d'100'		;delay 100mS
		goto	d0
Delay50		movlw	d'50'		;delay 50mS
		goto	d0
Delay27		movlw	d'27'		;delay 27mS
		goto	d0
Delay20		movlw	d'20'		;delay 20mS
		goto	d0
Delay5		movlw	0x05		;delay 5.000 ms (4 MHz clock)
d0		movwf	count1
d1		movlw	0xC7
		movwf	counta
		movlw	0x01
		movwf	countb
Delay_0		decfsz	counta, f
		goto	$+2
		decfsz	countb, f
		goto	Delay_0

		decfsz	count1	,f
		goto	d1
		retlw	0x00

;end of Delay routines

	end
__________________
My YouTube Videos!
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 01:46 PM   #2 (permalink)
Super Moderator
 
 
Join Date: Nov 2003
Location: Derbyshire, UK
Posts: 22,790
Nigel Goodwin is a splendid one to beholdNigel Goodwin is a splendid one to beholdNigel Goodwin is a splendid one to beholdNigel Goodwin is a splendid one to beholdNigel Goodwin is a splendid one to beholdNigel Goodwin is a splendid one to beholdNigel Goodwin is a splendid one to behold
Default
What clock speed are you using?, that tutorial is written for 4MHz.
__________________
PIC programmer software, and PIC Tutorials at:
http://www.winpicprog.co.uk
Nigel Goodwin is online now   Reply With Quote
Old 9th May 2008, 01:49 PM   #3 (permalink)
Experienced Member
 
 
Join Date: Jan 2007
Location: U.K.
Posts: 3,791
ericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to behold
Default
hi Atom,
The PORTB LED flashes.
EDIT: reading the pic crossed eyed.!
Attached Images
File Type: jpg screenhunter11.jpg (54.4 KB, 24 views)
__________________
Eric
"Good enough is Perfect"

PIC tutorials:
Nigel's site: http://www.winpicprog.co.uk/
Gramo's site: http://www.digital-diy.net/
Last edited by ericgibbs; 9th May 2008 at 01:53 PM.
ericgibbs is online now   Reply With Quote
Old 9th May 2008, 01:55 PM   #4 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default
Quote:
Originally Posted by Nigel Goodwin
What clock speed are you using?, that tutorial is written for 4MHz.
Code:
	movlw	0x62 				; 4MHz clock select
    	movwf	OSCCON
__________________
My YouTube Videos!
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 01:56 PM   #5 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default
Quote:
Originally Posted by ericgibbs
hi Atom,
The PORTB LED flashes.
EDIT: reading the pic crossed eyed.!

I dont understand this responce ..... what program is that? Looks cool!
__________________
My YouTube Videos!
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 01:57 PM   #6 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default
Since its a IR transmitter isnt that a good sign? (the flashing)
__________________
My YouTube Videos!
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 02:06 PM   #7 (permalink)
Experienced Member
 
 
Join Date: Jan 2007
Location: U.K.
Posts: 3,791
ericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to behold
Default
Quote:
Originally Posted by AtomSoft
I dont understand this responce ..... what program is that? Looks cool!
hi atom,
Thats the www.oshonsoft.com PIC simulator. You can download the trial version.

I think you have RA5 set as MCLR.!

The scope on the sim shows the pulse bursts varying in length for each switch, except RA5..
__________________
Eric
"Good enough is Perfect"

PIC tutorials:
Nigel's site: http://www.winpicprog.co.uk/
Gramo's site: http://www.digital-diy.net/
ericgibbs is online now   Reply With Quote
Old 9th May 2008, 02:07 PM   #8 (permalink)
Experienced Member
 
 
Join Date: Jan 2007
Location: U.K.
Posts: 3,791
ericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to behold
Default
Quote:
Originally Posted by AtomSoft
I dont understand this responce ..... what program is that? Looks cool!
I edited my text I had misread the picture, sorry about that...
__________________
Eric
"Good enough is Perfect"

PIC tutorials:
Nigel's site: http://www.winpicprog.co.uk/
Gramo's site: http://www.digital-diy.net/
ericgibbs is online now   Reply With Quote
Old 9th May 2008, 02:14 PM   #9 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default
RA5 is MCLR on both pics ... the original 16F628 which this code was originally for and the 18F1320 both have MCLR on RA5... what would you suggest i do then?
__________________
My YouTube Videos!
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 02:18 PM   #10 (permalink)
Experienced Member
 
 
Join Date: Jan 2007
Location: U.K.
Posts: 3,791
ericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to behold
Default
Quote:
Originally Posted by AtomSoft
RA5 is MCLR on both pics ... the original 16F628 which this code was originally for and the 18F1320 both have MCLR on RA5... what would you suggest i do then?
hi,
Look at the CONFIG line at the top of the program.

Use the microchip templates on your hard drive.

here:
C:\Program Files\Microchip\MPASM Suite\Template\Code\18F1320TEMP.ASM

Do you follow.?

EDIT: added CONFIG for MCLR
Attached Images
File Type: jpg screenhunter14.jpg (29.0 KB, 4 views)
__________________
Eric
"Good enough is Perfect"

PIC tutorials:
Nigel's site: http://www.winpicprog.co.uk/
Gramo's site: http://www.digital-diy.net/
Last edited by ericgibbs; 9th May 2008 at 02:21 PM.
ericgibbs is online now   Reply With Quote
Old 9th May 2008, 02:22 PM   #11 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default
OK i have that program install but how do i simulate a button press?
__________________
My YouTube Videos!
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 02:28 PM   #12 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default
so i have to add :

MCLRE = OFF

EDIT:
Do you think I should remove:
Code:
		movlw	0xff
		movwf	PORTA
__________________
My YouTube Videos!
Last edited by AtomSoft; 9th May 2008 at 02:38 PM.
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 02:38 PM   #13 (permalink)
Experienced Member
 
 
Join Date: Jan 2007
Location: U.K.
Posts: 3,791
ericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to beholdericgibbs is a splendid one to behold
Default
Quote:
Originally Posted by AtomSoft
OK i have that program install but how do i simulate a button press?
hi,
Use the IDE tools to show the microprocessor view [make sure you have
chosen the 18F1320]

Assemble and load the program into the SIm.
Run it at ultimate speed.
Mouse click the PORTA pins of the micro view to change their state.

Click the 'T' box to toggle the pin..

OK.?
__________________
Eric
"Good enough is Perfect"

PIC tutorials:
Nigel's site: http://www.winpicprog.co.uk/
Gramo's site: http://www.digital-diy.net/
ericgibbs is online now   Reply With Quote
Old 9th May 2008, 02:46 PM   #14 (permalink)
Experienced Member
 
 
Join Date: Feb 2008
Location: Brooklyn, NY US
Posts: 617
AtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really niceAtomSoft is just really nice
Send a message via MSN to AtomSoft
Default
yeah i got that done... listen i changed well added the MCLRE = OFF and its still not enabled in the simulator after reopen the file... Thanks for this help again!
__________________
My YouTube Videos!
AtomSoft is offline   Reply With Quote
Old 9th May 2008, 02:58 PM   #15 (permalink)
Experienced Member
 
 
Join Date: Jan 2007
Location: Toronto, Canada
Posts: 4,126
Blog Entries: 1
blueroomelectronics is a splendid one to beholdblueroomelectronics is a splendid one to beholdblueroomelectronics is a splendid one to beholdblueroomelectronics is a splendid one to beholdblueroomelectronics is a splendid one to beholdblueroomelectronics is a splendid one to behold
Send a message via Skype™ to blueroomelectronics
Default
RA5/MCLR is an input only pin.
__________________
Bill
Smart Kits build Smart People
http://www.blueroomelectronics.com
blueroomelectronics is offline   Reply With Quote
Reply
Page 1 of 3 1 23 >

Bookmarks

« urgent!! interfacing the pic16f877 to the pc serial port | Countdown Timer Please HELP! »
Thread Tools
Display Modes
Linear Mode Linear Mode



Similar Threads
Thread Thread Starter Forum Replies Latest
Capacitor Charge/Discharge question ThermalRunaway General Electronics Chat 23 1st June 2007 01:20 PM
Basic Transmission question CamNuge General Electronics Chat 2 8th March 2006 10:08 PM
Question about bank selection, 16F628A, Nigel's tutorial kcn Micro Controllers 4 13th March 2005 06:23 AM
a question about nigel's tutorial jijita Micro Controllers 3 2nd July 2004 09:04 PM
PBX question waqar Electronic Projects Design/Ideas/Reviews 0 30th March 2003 06:21 PM


All times are GMT. The time now is 12:18 PM.

Contact Us - Electronic Projects Circuits Diagrams - Archive - Top

Electronic Circuits  |  Radio Controlled
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.