A little DT_INT confusion.

**circuitpro** · - 19th October 2010, 21:06

I simplified things somewhat to try to isolate my error, but I'm not finding it.

After the UART interrupt is used, the INT2 interrupt will not send it's data until AFTER the NEXT uart interrupt!! I'm lost.

Code:

'======================
'PORT SETUPS 
'======================
ASM
     ;PORT A 
     CLRF PORTA 
     MOVLW 07h 
     MOVWF ADCON1                            ;A/D'S OFF 
     MOVWF 07h 
     MOVWF CMCON                             ;COMPARATORS OFF  
     MOVLW 00000000b                         ;PIN DIRECTION PORT A  
     MOVWF TRISA 

     ;PORT B 
     CLRF PORTB
     MOVLW 0Fh
     MOVWF ADCON1                            ;A/D'S OFF      
     MOVLW 11000111b                         ;PIN DIRECTION PORT B                          
     MOVWF TRISB
     
     ;PORT C 
     CLRF PORTC      
     MOVLW 10011000b                         ;PIN DIRECTION PORT C 
     MOVWF TRISC
ENDASM

'======================
'SET REGISTERS 
'====================== 
INTCON2.7=0                                  'PORT B PULLUPS ON (0=ON)
INTCON2.6=0                                  'INT0 TRIGGERS ON FALLING EDGE
INTCON2.5=0                                  'INT1 TRIGGERS ON FALLING EDGE
INTCON2.4=0                                  'INT2 TRIGGERS ON FALLING EDGE

'======================
'DEFINES
'======================                                      
DEFINE OSC 20                                

DEFINE HSER_RCSTA 90h                        'Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h                        'Enable transmit, BRGH = 1
DEFINE HSER_CLROERR 1                        'Clear overflow automatically
DEFINE HSER_SPBRG 8                          '9600 Baud @ 20MHz, -0.03%
SPBRGH = 2
BAUDCON.3 = 1                                'Enable 16 bit baudrate generator

'DEBUG PORT (Group Controller) 
DEFINE DEBUG_REG PORTC                       'DEBUG PIN IS IN PORT C
DEFINE DEBUGIN_REG PORTC                     'DEBUGIN PIN IS IN PORT C                                 
DEFINE DEBUG_BIT 5                           'DEBUG TRANSMIT PORT C5                    
DEFINE DEBUGIN_BIT 4                         'DEBUG RECEIVE PORT C4
DEFINE DEBUG_BAUD 57600                      '57600 BAUD TO GC                           
DEFINE DEBUG_MODE 0                          'INVERTED OUTPUT (COMPENSATE FOR MAX232)

'INCLUDE FILES FOR DT INTERRUPTS  
INCLUDE "DT_INTS-18.bas"
INCLUDE "ReEnterPBP-18.bas"

'======================
'CONSTANTS
'======================
MODE      CON  6                             'SERIN2/SEROUT2 TO USE 38400 BAUD 

'======================
'VARIABLES  
'======================
TP1       VAR  PORTA.0                       'TP1 (GC SIDE) 
TP2       VAR  PORTA.1                       'TP2 (GC SIDE)
TP3       VAR  PORTA.2                       'TP3 (READER SIDE)
LED       VAR  PORTA.3                       'ACTIVITY LED
ITP0      VAR  PORTA.5                       'INTERNAL TEST POINT 0  
DAV       VAR  PORTA.6                       'DAV (INT) FLAG TO GC 
DATA0     VAR  PORTB.0                       'WIEGAND INPUT 
DATA1     VAR  PORTB.1                       'WIEGAND INPUT
EXTINT    VAR  PORTB.2                       'TERMINAL STRIP INTERRUPT   
LEDR      VAR  PORTB.3                       'RED LED 
LEDG      VAR  PORTB.4                       'GRN LED  
BUZZ      VAR  PORTB.5                       'BUZZER 
ITP1      VAR  PORTC.0                       'INTERNAL TEST POINT 1
ITP2      VAR  PORTC.1                       'INTERNAL TEST POINT 2
DIAGIN    VAR  PORTC.2                       'DIAG IN 
DIAGOUT   VAR  PORTC.3                       'DIAG OUT 
FLAG      VAR  BIT
 
X         VAR  BYTE
Y         VAR  BYTE
Z         VAR  BYTE
TAG       VAR  BYTE[11]

CLEAR

'INITIALIZE INTERRUPTS
ASM
INT_LIST  MACRO                              ;IntSource,Label,Type,ResetFlag?
        INT_Handler RX_INT, _RDRINT,PBP,yes
        INT_Handler INT2_INT, _EXTTS,PBP,yes                     
    ENDM
    INT_CREATE                               ;CREATES THE INTERRUPT PROCESSOR 
ENDASM

'ENABLE INTERRUPTS
@ INT_ENABLE RX_INT                          ;UART INTERRUPT
@ INT_ENABLE INT2_INT                        ;EXT INT 2

'======================
MAIN:
'======================
FOR X=1 TO 1000
     PAUSEUS 100
NEXT X
GOTO MAIN

'======================
RDRINT:                                      'TAG READER INTERRUPT! 
'======================                    
HSERIN [STR TAG\9\$03]
SEROUT2 DIAGOUT,MODE,[STR TAG,10,13]         'SEND DATA TO DIAG PORT
FOR Z=0 TO 10
     TAG[Z]=$00
NEXT Z                                                                     
@ INT_RETURN

'======================
EXTTS:
'======================
SEROUT2 DIAGOUT,MODE,["00995031",10,13]
@ INT_RETURN

**mackrackit** · - 20th October 2010, 01:18

I am not sure where the problem is either.
Maybe it has something to do with setting the interrupt registers before the instants are enabled. Darrel.s routine sets these so you do not need to do it.

Reading through other post this seems similar (post 52 and 53). I am sure you have read them but it is all I can find at the moment.
http://www.picbasic.co.uk/forum/show...3402#post23402

And I think this is related
http://www.picbasic.co.uk/forum/show...=9786#post9786

Did you say what PIC you are using?

**circuitpro** · - 20th October 2010, 01:29

It's a PIC18F2520.

I was going to run the risk of talking to myself, and add another short bit - I finally got smart, and put something in the main loop, so I could see if the uart interrupt handler ever returned from it's job, and found that it isn't!!

Everything just appears to stop after a uart interrupt. It does what it's suppose to, (reads from one port, and writes to the other) and never returns to the main loop.

I'm at a loss, and hoping that would be of some help.

Code:

'INITIALIZE INTERRUPTS
ASM
INT_LIST  MACRO       ;IntSource,Label,Type,ResetFlag?
        INT_Handler INT2_INT, _EXTTS,PBP,yes
        INT_Handler RX_INT, _RDRINT,PBP,yes                     
    ENDM
    INT_CREATE                               ;CREATES THE INTERRUPT PROCESSOR 
ENDASM

START:
GOSUB CLS
PAUSE 100
SEROUT2 DIAGOUT,MODE,["SDIF2 VER. 1",10,13]
 
'ENABLE INTERRUPTS
@ INT_ENABLE RX_INT                          ;READER UART INTERRUPT
@ INT_ENABLE INT2_INT                        ;EXTERNAL INTERRUPT

'======================
MAIN:
'======================
SEROUT2 DIAGOUT,MODE,["."]
FOR X=1 TO 100
     PAUSE 1
NEXT X
GOTO MAIN

'======================
RDRINT:                                      'TAG READER INTERRUPT! 
'======================                     
HSERIN [WAIT($02),STR TAG\8\$03]             'READ TAG FROM THIS PORT      (WORKS)         
SEROUT2 DIAGOUT,MODE,[STR TAG,10,13]         'SEND TAG DATA TO THIS PORT   (WORKS)                                                              
@ INT_RETURN                                 ; <=== THIS IS NOT RETURNING! (DOES NOT WORK)

''======================
EXTTS:
''======================
'SEND SPECIAL DATA NOW 
SEROUT2 DIAGOUT,MODE,["00995031",10,13]      '(WORKS)
@ INT_RETURN                                 ;(WORKS)

**circuitpro** · - 20th October 2010, 01:46

Dave! You nailed it. I don't know how you remember/find all these links!!

I changed the Uart interrupt to this, and it now works:

Code:

'======================
RDRINT:                                      'TAG READER INTERRUPT! 
'======================                     
HSERIN [WAIT($02),STR TAG\8\$03]             'READ TAG FROM THIS PORT      (WORKS)         
SEROUT2 DIAGOUT,MODE,[STR TAG,10,13]         'SEND TAG DATA TO THIS PORT   (WORKS)
While PIR1.5 = 1     ; clear the buffer
    HSERIN [X]
Wend                                                              
@ INT_RETURN                                 ; <=== NOW WORKING :-)

I want to really look up what that is doing now, and write a note or two. THANK YOU.

Len

Thread: A little DT_INT confusion.

Thread Tools

Search Thread

Display

Hybrid View

Members who have read this thread : 0

Bookmarks

Bookmarks

Posting Permissions