Hi
I have started a new thread, can anybody tell me why the Code Below will not Output Serial under TX Interrupts.
Regards Henry
**********
define HSER_TXSTA 20h
define HSER_BAUD 9600
DEFINE HSER_SPBRG 25
StrOut VAR BYTE[20]
I VAR WORD
ENABLE
strout(0) = "H"
strout(1) = "e"
strout(2) = "n"
strout(3) = "r"
strout(4) = "y"
strout(5) = 13
strout(6) = 10
strout(7) = 0
I = 0
ON INTERRUPT GOTO INTERRUPT_HANDLER
INTCON = %10010000
'PIE1.5 = 1 ' enable interrupt on usart receive
PIE1.4 = 1 ' enable interrupt on usart transmit
ENABLE INTERRUPT
HSerout [strout(0)] 'Out Put 1 Character
Main_Loop:
NOP
NOP
NOP
GOTO Main_Loop
END
SerialOut:
For i = 0 TO 20
IF strout(i) = 0 Then
i = 20
Else
HSerout [strout(i)]
EndIF
Next i
Return
DISABLE INTERRUPT
INTERRUPT_HANDLER:
GOSUB SerialOut
'PIR1.5 = 0 'Receive
PIR1.4 = 0 'Transmit
RESUME
ENABLE INTERRUPT
Bookmarks