'****************************************************************

'*  Name    : UNTITLED.BAS                                      *

'*  Author  : [select VIEW...EDITOR OPTIONS]                    *

'*  Notice  : Copyright (c) 2022 [select VIEW...EDITOR OPTIONS] *

'*          : All Rights Reserved                               *

'*  Date    : 1/03/2022                                         *

'*  Version : 1.0                                               *

'*  Notes   :                                                   *

'*          :                                                   *

'****************************************************************

DEFINE OSC 4

''''DEFINICION DE ALIAS '''

LED VAR PORTB.1   'SALIDA ROJO'

LED2 VAR PORTB.2  'SALIDA VERDE '

'''programa principal''

ON INTERRUPT GOTO VERDE          'EXISTE INTERRU.SALTARA ETIQ VERDE '

INTCON=%10010000                 'HABILITA LA INTERRUPCION DE PORTB.0'

INICIO:

       HIGH LED

       PAUSE 200

       LOW LED

       PAUSE 200

       GOTO INICIO        'RETORNA A LA ETIQUETA INICIO'

'RUTINAS INTERRUPCION'

DISABLE                   'DESABILITA LA INTERRUPCION'

VERDE:                    'ETIQUETA DE INTERRUPCION'

    HIGH LED2

    PAUSE 2000

    INTCON=%10010000      'HABILITA INTERRUPCION DE PORTB.0'

    RESUME                'RETORNA A PROGRAMA DONDE OCURRIO'

    ENABLE                'HABILITA INTERRUPCION'

END