Problem with port A of 16f913

[amodpathak]

Iam making an up down counter using 16f913.Iam not able to make portA pins as input A2,A4,A5

Iam using active low buttons

My code Is:

 DG1 VAR BYTE       
 DG2 VAR BYTE    
 DG3 VAR BYTE
 
 
 DIGIT VAR BYTE
 DG VAR BYTE
 COUNTT VAR BYTe
 N VAR WORD
 pbutton var porta.2
 ibutton var porta.5
 i var byte
 temp var byte
 NUMB VAR WORD
 DEFINE BUTTON_PAUSE 50
 ADCON1=0
 TRISA=1
 TRISB=0  
  TRISC=%00000111           
 osccon=$60
 
N=NUMB
GOSUB DIGITCALC
numb=0
MAIN:
               
gosub display
if pbutton=0 then UP
IF PBUTTON=0 THEN down 

GOTO MAIN

 
 
'-------------------------------------------------------------------------
 
                    '_____________________________________
                     UP:
                     IF NUMB=400 THEN MAIN
                     numb=NUMB+1
                     GOSUB DIGITCALC
                     N=NUMB
                     GOTO MAIN
                    '_____________________________________
                    '_____________________________________
                     DOWN:
                     IF NUMB=0 THEN MAIN
                     numb=NUMB-1
                     GOSUB DIGITCALC
                     N=NUMB
                     GOTO MAIN
                    '_____________________________________
                    

                    '_____________________________________
                     
                     
                     
___________
        DISPLAY:
       'DATA FOR DG1,DG2,DG3 IS PUT ON PORTC AND THE CORRESPONDING
       'PINS ON PORTB TOGGLED
       'THIS IS DONE 100 TIMES
        FOR COUNTT=0 TO 99
        
        PORTB=DG1
        PORTC.5=1
        PAUSE 1
        PORTC.5=0
        PORTB=DG2
        PORTC.6=1
        PAUSE 1
        PORTC.6=0
        PORTB=DG3
        PORTC.7=1
        PAUSE 1
        PORTC.7=0
        NEXT COUNTT
        
        RETURN
       '________________________________________________________________
 
'__________________________________________________________________________
DIGITCALC:
'THIS ROUTINE BREAKS UP THE NUMBER INTO 3 DISTINCT PARTS - DG1,DG2,DG3
'NOTICE THAT ANOTHER SUBROUTINE IS CALLED EACH TIME
DIGIT=0
LP1:
IF N<100 THEN DS1
N=N-100
DIGIT=DIGIT+1
GOTO LP1
        DS1:
        GOSUB FND
        DG1=DG
       
DIGIT=0
LP2:
IF N<10 THEN DS2
N=N-10
DIGIT=DIGIT+1
GOTO LP2
        DS2:
        GOSUB FND
        DG2=DG
 
DIGIT=N
GOSUB FND
DG3=DG
 
return
'__________________________________________________________________________

'__________________________________________________________________________
FND:
'THIS ROUTINE IDENTIFIES THE SEGMENTS TO LIGHT UP
 '7 SEGMENTS WIRED UP AS FOLLOWS
     'A -PORTC.2
     'B -PORTC.3
     'C -PORTC.6
     'D -PORTC.5
     'E -PORTC.4
     'F -PORTC.1
     'G -PORTC.0
 
FND0:
IF DIGIT>0 THEN FND1
DG=$3F                            
GOTO FNDEND
FND1:
IF DIGIT>1 THEN FND2
DG=$6                             
GOTO FNDEND
FND2:
IF DIGIT>2 THEN FND3
DG=$5B                             
GOTO FNDEND
FND3:
IF DIGIT>3 THEN FND4
DG=$4F                             
GOTO FNDEND
FND4:
IF DIGIT>4 THEN FND5
DG=$66                          
GOTO FNDEND
FND5:
IF DIGIT>5 THEN FND6
DG=$6D                             
GOTO FNDEND
FND6:
IF DIGIT>6 THEN FND7
DG=$7D                       '      
GOTO FNDEND
FND7:
IF DIGIT>7 THEN FND8
DG=$7                       '      
GOTO FNDEND
FND8:
IF DIGIT>8 THEN FND9
DG=$7F                             
GOTO FNDEND
FND9:
DG=$67                             
FNDEND:
RETURN           
'__________________________________________________________________________

[Demon]

Have you disabled analog features on port A?

Robert

[amodpathak]

Can you tell me whw to active analog features pls.

[amodpathak]

Actually iam new to microcontrollers.

[mark_s]

At these lines at the top of your code. You did not say if your are driving a LCD or LED display?

DEFINE OSC  4 ' or 8 etc

CMCON0 =%00000111   'COMPARATOR OFF
ADCON0 =%00000000   'ADC off

'SET LCD REGISTERS
LCDCON = 0 'LCD disabled

LCDPS  = 0

LCDSE0  = 0  'SEGMENTS 0-7 off
LCDSE1  = 0  'SEGMENTS 8 -15 OFF
LCDSE2  = 0  'SEGMENTS 16 - 23 OFF

[amodpathak]

I am driving three common cathode seven segment display.I want to put three buttons on PORT A.first button is for increase counts ,second is for decrease count and third is for save count.Buttons are connected at PortA.2 ,portA.4 and portA.5. I am using PortA.0 as ADC in my another program and that program works.Need help.

Thanks

[mark_s]

Did you add the lines that I posted? That pic has an LCD driver which uses the pins you are having problems with. It needs to be turned off. Adding these lines

DEFINE OSC  4 ' or 8 etc

CMCON0 =%00000111   'COMPARATOR OFF
ADCON0 =%00000000   'ADC off

'SET LCD REGISTERS
LCDCON = 0 'LCD disabled

LCDPS  = 0

LCDSE0  = 0  'SEGMENTS 0-7 off
LCDSE1  = 0  'SEGMENTS 8 -15 OFF
LCDSE2  = 0  'SEGMENTS 16 - 23 OFF

You have to help yourself we can't write your programs for you, read the data sheet.

[amodpathak]

I have added .but no result.pls guide me if I have done anything wrong with my program regarding if then... Statement.As I am using active low buttons.

[Demon]

First, TRISA=1 is not what you want. You want to set pins 2 and 5 as input:

TRISA=%00100100

Start counting from right, 0 to 7.

Next, keep things simple. Make a copy of this program and remove all code after MAIN.

Then make 2 LEDs turn on and off by pressing the 2 inputs buttons.

Once that works, add the rest a bit at a time.

Robert

[amodpathak]

Thanks sir.