PULSIN ON PORTF and PORTG ON 16F1947

**longpole001** · - 5th December 2013, 06:30

ok , the results of adding the nops , did not have an effect on the working ( port E) or the not working port ( port F)

values writen to eeprom were only for port e , all pins on port E have a signal applied , as does port F

cheers

Sheldon

cut down code is

Code:

'============================================================================================================
' Name        : Pulsin Test Code 16f1947.pbp                                                        *
' Compiler    : PICBASIC PRO Compiler 3.06.1                                                                *
' Assembler   : MPASM v5.43                                                                                 *
' Target PIC  : PIC16F1947                                                                                  *
' Hardware    : n/a                                                                                         *
' Oscillator  : 32MHz internal                                                                              *
' Code Ver    : 0.0                                                                                         *
' ----------------------------------------------------------------------------------------------------------*
' Ver Change  :  N/A                                                                                        *
'             :  1.                                                                                         *
'             :  2.                                                                                         *
'             :  3.                                                                                         *
'             :  4.                                                                                         *
'-----------------------------------------------------------------------------------------------------------*
' Description : A diag Pulsin for Port F and G , Ports A-E work ok With pulsin

 
' config for 16F1947

    #CONFIG
;----- CONFIG1 Options --------------------------------------------------
    __config _CONFIG1, _FOSC_INTOSC & _WDTE_ON & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOREN_OFF & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF


;----- CONFIG2 Options --------------------------------------------------
    __config _CONFIG2, _LVP_OFF & _BORV_HI & _STVREN_ON & _PLLEN_ON & _WRT_OFF & _VCAPEN_OFF 
    #ENDCONFIG

 

 '----------- 16F1947  - PIC chip Dephalt settings --------------------

    OSCCON   = $70          ' Select 32Mhz , internal clock  ( 8Mhz when conf2 - PLLEN_OFF)
                            ' Bit 7 0 = 4xPLL disabled  1= 4xPLL enables ( overrided by conf word 2 setting -  PLLEN)
                            ' bits6-3 -  1111 = 16Mhz , 1110 = 8MHz or 32Mhz ( depends on 4xPLL - conf word 2)  1101 = 4 MHz, 1100 = 2MHz 1011 = 1MHz
                            ' bitS 0-1 - 00= Clock set by Conf word ,01 = Timer1 OSC , 1x = internal Osc Block
    
  ' WDTCON = %00000000      ' Bit 7,6 = 0 n/a , Bit 5-1 = watchdog timer period select , bit 0 = SWDTEN enable / disable  for Watchdog timer bit ( WDTE)
                            ' set watchdog timer for 1ms and enabled by SWDTEN bit being set ( mode selected with _WDTE setting in Config1) 
    
    APFCON = %00000000	    ' All Default - No change when using SPI  use SDO1 = RC2 , bit6=0
    ADCON0 = %00010000      ' DISABLE ADC AN4 ,( ADCON1 setup at start of program  , Right Justify, FRC clock  )
   
    CPSCON0 = $00           ' Capcitive Sensing Control Disable 
    CPSCON1 = $00           ' Disable CSC - used with CPSCON0

    CM1CON0 = $00 	        ' Disable / Clear comparator 1
    CM1CON1 = $00 	        ' Used with CM1CON0
    CM2CON0 = $00 	        ' Disable / Clear comparator 2
    CM2CON1 = $00 	        ' Used with CM2CON0
    CMOUT   = $00           ' Disable Comparitors output register - used only if comparitor on
    
       
    SRCON0 = %00000000      ' Disable Latched Outputs
    SRCON1 = %00000000      ' Used with SRCON0 register
     
    DACCON0 = $00           ' Disable D/A
    DACCON1 = $00           ' Disable D/A - used with DACCON0
    
    LCDCON = $00            ' Disable LCD module
    LCDPS  = $00            ' Disable LCD module  &  LCD Phase Register 
    LCDCST = $00            ' Resistor lader contrast control 
    LCDREF = $00            ' Disable LCD voltage refernace control 
    LCDSE0 = $00            ' LCD segment enable register
    LCDSE1 = $00            ' LCD segment enable register
    LCDSE2 = $00            ' LCD segment enable register
    LCDSE3 = $00            ' LCD segment enable register
    LCDSE4 = $00            ' LCD segment enable register
    LCDSE5 = $00            ' LCD segment enable register
    LCDRL  = $00            ' LCD Ref ladder enable / disable 


    OPTION_REG.7 = 1       ' Weak Pullups disabled  1 = globel disable 0 = globel enable ( set by each port - WPUB settings)
    OPTION_REG.6 = 0       ' Interupt on Falling Edge of INT pin  0= falling edge  1= rising edge
    OPTION_REG.5 = 0       ' TMR0 clock source - 1=T0clk pin 0=internal clock
    OPTION_REG.4 = 0       ' TMR0 0=L/H of TOCKI pin  1=H/L of TOCKI pin
    OPTION_REG.3 = 0       ' Use Prescaller for TMR0  0= Yes , 1 = No
    OPTION_REG.2 = 1       ' Timer0 prescaler Rate Select bits 2-0(set to 1:256)
    OPTION_REG.1 = 1       ' 000 = 1:2  , 001= 1:4  , 010 = 1:8   , 011 = 1:16
    OPTION_REG.0 = 1       ' 100 = 1:32 , 101 = 1:64, 110 = 1:128 , 111 = 1:256

    T1CON  = %01110100     ' Timer 1 ,bit7-6 = TMR1 CLK source 00 = Instuction Clk(Fosc/4),01 =sys clk,10=ext clk,11=cap sense osc
                           ' bit5-4 = TMR1 prescale 11= 1:8 ,bit3=0 LP off,bit2=1 no sync ext CLK ,bit1= 0 n/a,Bit0=0 Timer 1 on/off
    T1GCON = %00000000     ' Timer 1 Gate Control bit7 0= counts regardless of gate 1 = gates in use  , bit6 gate active when 1= High  ,0=low
                           ' bit5 0= toggle mode diabled 1= enabled  bit4 single pulse mode 1- en 0= dis, bit 2 -status bit,1-0 - gate source sel

    T2CON  = %01110011     ' Timer 2 off + 1:15 postscale ,1:64 prescale ( bit 7 = x, bit6-3 1110 = 1:15 postscale, bit2=0 timer off ,bit1-0 = prescale 10 = 16 , 11= prescale 64
    T4CON  = %00000000	   ' POSTSCALER 1/1,STOP,PRESCALER 1/1
    T6CON  = %00000000 	   ' POSTSCALER 1/1,STOP,PRESCALER 1/1

    TMR0 = 0               ' Clear TMR0 MODULE REGISTER

    TMR1H = 0              ' CLEAR TMR1H MODULE REGISTER
    TMR1L = 0              ' CLEAR TMR1L MODULE REGISTER

    TMR2 = 0		       ' CLEAR TMR2 MODULE REGISTER
    TMR4 = 0			   ' CLEAR TMR4 MODULE REGISTER
    TMR6 = 0		       ' CLEAR TMR6 MODULE REGISTER

 'PR2 = 255              ' Timer 2 Preload value
 'PR4 = 255              ' Timer 4 Preload value
 'PR6 = 255              ' Timer 6 Preload value

' ----------------  Setup All Define statements ------------ 

    DEFINE OSC 32             ' Timing referance for pause , pauseus commands
   
    DEFINE PULSIN_MAX 5600    ' Maximum counts( clock ticks) allowed before pulsin times out( 5600 ^ 1.25us =  7 ms)
    'DEFINE SHIFT_PAUSEUS 3    ' Delay Shiftout and Shiftin command timing by 3 us to 5us ( min 2us)                       
 
'  -------   Setup port A Variables  & directions  ----------
    ANSELA = %00100000     ' Set Port A - Digital I/O  , 0 = Digital  1 = Analog - Set RA5 (AN4) to be analog input for V-Mon 
    TRISA =  %00100000     ' setup Port A input=1,output=0 for I/O pins  
    PORTA  = %00100000     ' Clear Outputs 
  
   ' -------   Setup port B Variables  & directions  ----------                       
    TRISB =  %11010000     ' setup Port A input=1,output=0 for I/O pins ( Note RA4 - input only) 
    WPUB  =  %11010000	   '  Port B - Turn off week Pullups 1=ON , for each port ( globle enable set in option_reg.7)
    PORTB  = %00000000     ' Clear Outputs 
 

   ' -------   Setup port C Variables & directions ----------
    TRISC =  %00010000     ' setup Port C input=1,output=0 for I/O pins
    PORTC  = %00010000     '  Clear Outputs
   
  
   '    -------   Setup port D Variables & directions ----------
        
    TRISD =  %00000000     ' setup Port D input=1,output=0 for I/O pins
    PORTD  = %00000000     '  Clear Outputs
 
   
 
   '    -------   Setup port E Variables  ----------   
   
      TRISE = $FF       ' else IR-RX ( ports input)  
     
   '    -------   Setup port F Variables  ----------  
    ANSELF =  %00000000    ' Set Port F - Digital I/O  , 0 = Digital  1 = Analog
    TRISF = $FF            ' input)  
 
   '    -------   Setup port G Variables  ----------     
    ANSELG =  %00000000    ' Set Port G - Digital I/O  , 0 = Digital  1 = Analog
    TRISG =   %01000000    ' setup Port G input=1,output=0 for I/O pins -  portG.5 always input ( internal pullup) VPP/MCLR
    PORTG  =  %01000000    ' Clear Outputs

 ' --------- Pulsin  variables ------------
       
    Leader         var word      ' Value for  pulse read in pulsein inputs ( high and Low) 
   
     

 '----------- main program ---------------
 Main:
  
    '===========PORT E LOWER =========
    
    pulsin PORTE.0,1,lEADER            ' pORT e.0
    iF lEADER >0  THEN 
     WRITE $A0,lEADER.HIGHBYTE
     WRITE $A1,lEADER.LOWBYTE 
   ENDIF 
  
     pulsin PORTE.1,1,lEADER          'pORT E.1
    iF lEADER >0  THEN 
     WRITE $A2,lEADER.HIGHBYTE
     WRITE $A3,lEADER.LOWBYTE 
   ENDIF 
  
    pulsin PORTE.2,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $A4,lEADER.HIGHBYTE
     WRITE $A5,lEADER.LOWBYTE 
   ENDIF 
  
      pulsin PORTE.3,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $A6,lEADER.HIGHBYTE
     WRITE $A7,lEADER.LOWBYTE 
   ENDIF 

   '================= PORT E upper ================

   pulsin PORTE.4,1,lEADER 
@ nop
@ nop
@ nop
    iF lEADER >0  THEN 
     WRITE $A8,lEADER.HIGHBYTE
     WRITE $A9,lEADER.LOWBYTE 
   ENDIF 
  
     pulsin PORTE.5,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $AA,lEADER.HIGHBYTE
     WRITE $AB,lEADER.LOWBYTE 
   ENDIF 
    pulsin PORTE.6,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $AC,lEADER.HIGHBYTE
     WRITE $AD,lEADER.LOWBYTE 
   ENDIF 
    pulsin PORTE.7,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $AE,lEADER.HIGHBYTE
     WRITE $AF,lEADER.LOWBYTE 
   ENDIF 
  
' =========== PORT F LOWER ================    
    pulsin PORTF.0,1,lEADER 
@ nop
@ nop
@ nop
    iF lEADER >0  THEN 
     WRITE $B0,lEADER.HIGHBYTE
     WRITE $B1,lEADER.LOWBYTE 
   ENDIF 
     pulsin PORTF.1,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $B2,lEADER.HIGHBYTE
     WRITE $B3,lEADER.LOWBYTE 
   ENDIF 
     pulsin PORTF.2,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $B4,lEADER.HIGHBYTE
     WRITE $B5,lEADER.LOWBYTE 
   ENDIF 
    pulsin PORTF.3,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $B6,lEADER.HIGHBYTE
     WRITE $B7,lEADER.LOWBYTE 
   ENDIF 

' ========== PORT F UPPER  ==================


     pulsin PORTF.4,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $B8,lEADER.HIGHBYTE
     WRITE $B9,lEADER.LOWBYTE 
   ENDIF 
    pulsin PORTF.5,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $BA,lEADER.HIGHBYTE
     WRITE $BB,lEADER.LOWBYTE 
   ENDIF 
    pulsin PORTF.6,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $BC,lEADER.HIGHBYTE
     WRITE $BD,lEADER.LOWBYTE 
   ENDIF 
    pulsin PORTF.7,1,lEADER 
    iF lEADER >0  THEN 
     WRITE $BE,lEADER.HIGHBYTE
     WRITE $BF,lEADER.LOWBYTE 
   ENDIF 
  
  
  
  
  Goto main

'------------------------------------------

**Art** · - 5th December 2013, 07:19

That's not quite what I meant.
I mean only the code required to test the two pins, very minimal.
It can be seen from the hex disassembly if the bank switching is happening or not.
It only makes things more difficult if all the rest of your code is in it as well.

The three nop instructions are there because they compile straight to the same thing
in assembler prior to compile to hex, so when the hex file is disassembled, the
PULSIN instruction disassembly are present with three nops separating each of them.
Then it is clear, the difference between the two disassembled PULSIN commands.

That could rule out, or confirm that bank switching is happening.

Thread: PULSIN ON PORTF and PORTG ON 16F1947

Thread Tools

Search Thread

Display

Hybrid View

Re: PULSIN ON PORTF and PORTG ON 16F1947

Re: PULSIN ON PORTF and PORTG ON 16F1947

Similar Threads

SILLION BUG issue on ADC and get around required 16F1947 rev 2 silicon

18F8722 PortF Problem

18f4550 USB and pulsin or pulsin alternative

Strange behavior - PORTG.2, 18F8720

Pulsin

Members who have read this thread : 0

Bookmarks

Bookmarks

Posting Permissions