18F6310 configs

[Tobias]

I am working out the configs for an 18F6310 with an internal OSC at 8MHZ

I can't get some of the ports to go high

PortD.1.5.6.7 won't go high
PortF.4.5.6.7 won't go high

Any ideas?

define OSC 8
Include "modedefs.bas"    ' Mode definitions for Serout
OSCCON.6=1 'Internal OSC
OSCCON.5=1
OSCCON.4=1

INTCON.7=0          'Disables all interrupts
INTCON2.7=0         'Disables pull-ups
ADCON0.0=0          'Disables ADC
ADCON1.3=1          'AN Channels to all digital
ADCON1.2=1          'AN Channels to all digital
ADCON1.1=1          'AN Channels to all digital
ADCON1.0=1          'AN Channels to all digital

PIE1=000000      'Disables Parralel Slave port
PIE2=000000
PIE3=000000

PSPCON.4=0  'General I/O mode 
SSPCON1.5=0 'Disables Serial Port
SSPCON2.3=0 'Receive idle
TXSTA1.5=0  'Disables Transmit
RCSTA1.7=0  'Disables serial port
RCSTA2.7=0  'Disables serial port
T1CON.6=0   'Turns off Timer1
T1CON.3=0   'Turns off Timer1
T1CON.1=0   'Turns off Timer1
T1CON.0=0   'Turns off Timer1
T2CON.2=0   'Turns off Timer2
T3CON.0=0   'Turns off Timer3
T0CON.7=0

Out_Speed2        var       PortA.0
Out_24V6          var       PortA.1
IN_NC1            var       PortA.2
IN_Drain3         var       PortA.3
Out_VSS7          var       PortA.4
Out_VSS8          var       PortA.5
Trigger           var       PortA.6
LED               var       PortA.7
'TRISA=
001100
TRISA=000000
Out_Drain4        var       PortB.0
Out_VSS3          var       PortB.1
Out_VSS4          var       PortB.2
Out_Drain3        var       PortB.3
NC1_Out           var       PortB.4
LCD               var       PortB.5
'Not USED                   PortB.6
'Not USED                   PortB.7
TRISB=000000
Out_24V5          var       PortC.0
Out_Speed1        var       PortC.1
Out_VSS6          var       PortC.2
Out_VSS5          var       PortC.3
Out_Drain2        var       PortC.4
Out_Pop           var       PortC.5
Out_24V4          var       PortC.6
Out_Drain1        var       PortC.7
TRISC=000000
TRISD=000000
IN_VSS7           var       PortE.0
IN_Speed1         var       PortE.1
IN_24V5           var       PortE.2
IN_24V4           var       PortE.3
IN_Drain1         var       PortE.4
IN_VSS6           var       PortE.5
IN_VSS5           var       PortE.6
IN_Drain2         var       PortE.7
'TRISE=111111
TRISE=000000
IN_VSS4           var       PortF.0
IN_VSS3           var       PortF.1
IN_Drain4         var       PortF.2
IN_24V3           var       PortF.3
IN_24V2           var       PortF.4
IN_Speed4         var       PortF.5
IN_VSS2           var       PortF.6
IN_VSS1           var       PortF.7
'TRISF=111111
TRISF=000000
IN_VSS8           var       PortG.0
IN_Speed2         var       PortG.1
IN_24V6           var       PortG.2
IN_24V1           var       PortG.3
IN_Speed3         var       PortG.4
'NOT USED         PortG.5
'TRISG=1111
TRISG=000
Speed1Check       var       bit
Speed2Check       var       bit
Speed3Check       var       bit
Speed4Check       var       bit

Drain1Check       var       bit
Drain2Check       var       bit
Drain3Check       var       bit
Drain4Check       var       bit

VSS1Check         var       bit
VSS2Check         var       bit
VSS3Check         var       bit
VSS4Check         var       bit
VSS5Check         var       bit
VSS6Check         var       bit
VSS7Check         var       bit
VSS8Check         var       bit

Check24V1         var       bit
Check24V2         var       bit
Check24V3         var       bit
Check24V4         var       bit
Check24V5         var       bit
Check24V6         var       bit

PopCheck          Var       bit
NCCheck           var       bit
ErrorCount        var       byte

Prefix            con     $FE             ' needed before each command
LcdCls            CON     $51             ' clear LCD (use PAUSE 5 after)
CursorPS          con     $45             'Cursor Position
Backlight         con     $53             ' Backlighting 1-8
Contrast          con     $52             ' Contrast 1-50

Runaround:
high PortF.0
high PortF.1
high PortF.2
high PortF.3
high PortF.4
high PortF.5
high PortF.6
high PortF.7
Serout2 LCD, 84, [Prefix,LcdCLS] 
pause 100        '                  PortA Good
                                   'PortB Good           
                                   'PortC Good       
                                   'PortD.1.5.6.7 won't go high 
                                   'Port E Good
                                   'PortF.4.5.6.7  won't go high 4,5,6 AN channels, 7 SPI slave select channel 
                                   'PortG Good
SEROUT2 LCD,84, [Prefix,CursorPS,0, dec1 PortF.0, dec1 PortF.1, dec1 PortF.2, dec1 PortF.3, dec1 PortF.4, dec1 PortF.5, dec1 PortF.6, dec1 PortF.7]
pause 1000
goto Runaround

[HenrikOlsson]

Hi,

Weird, I can't seem to get the datasheet for that device at MCSP...
Anyway, are you sure it's not a RMW-issue? Try a pause between writing each bit or write the full port in one go. Or, even better, write to LATF instead of PORTF, that'll be unaffected by possible RMW-issues.

/Henrik.

[Tobias]

Try this link

http://www.microchip.com/wwwproducts...cName=en019698