AllDigital

TRISA = %00000000  'puerto A: todo salidas
TRISB = %00000000  'port B: 0 entrada, 1,2,3,4,5,6,7 salidas
PORTB = %00000000  'todas las salidas puerto B puestas a 0
PORTA = %00000000  'todas las salidas puerto A puestas a 0

Define CLOCK_FREQUENCY = 4



Dim dato As Byte






Hseropen 9600

Define SEROUT_DELAYUS = 5000

Hserout "ate0", CrLf  'disable echo from modem

WaitMs 2000



INTCON.PEIE = 1  'bit de habilitacion de interrupciones de perifericos(USART), para que funcione la implementación P. SERIE
PIE1.RCIE = 1  'Activa la interrupcion de la USART en modo rx
Enable
INTCON.GIE = 1  'habilita todas las interrupciones globales
Enable

'--------------------------------------Inicio Programa--------------------------------------------------
WaitMs 100

pp:
Hserout "AT", CrLf
PORTA.1 = 1
WaitMs 800
PORTA.1 = 0
WaitMs 800
PORTA.1 = 1
WaitMs 800
PORTA.1 = 0
WaitMs 800

Goto pp


End                                               

'#############################################################################################
'############################### I N T E R R U P C I O N #####################################
'#############################################################################################




On Interrupt  'Comienzan las rutinas de las interrupciones
'Hserout "INTERRUPTION"

PIE1.RCIE = 0  'desactiva la interrupcion de la USART en modo rx

Hserget dato


PORTA.0 = 1
WaitMs 300
PORTA.0 = 0


PIR1.RCIF = 0  'borra el flag de salto de la usart
PIE1.RCIE = 1  'activa la interrupcion de la USART en modo rx






Resume