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

'*  Name    : UNTITLED.BAS                                      *

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

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

'*          : All Rights Reserved                               *

'*  Date    : 17/02/2022                                        *

'*  Version : 1.0                                               *

'*  Notes   :                                                   *

'*          :                                                   *

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

''''defenicion de registros lcd'''

define LCD_DREG PORTA  'UTILIZAR 4 BITS DEL PUERTO A PARA  TX '  DE DATOS''

DEFINE LCD_DBIT 0      'DESDE EL BIT A.0 AL BIT A.3'

define LCD_RSREG PORTB 'SELECCION DEL PUERTO DEL REGISTRO''

DEFINE LCD_RSBIT 0     'EN EL BIT B.0

define LCD_EREG PORTB  'UTILIZAR 4 BITS DEL PUERTO A PARA  TX   DE DATOS''

DEFINE LCD_EBIT 1      'EN EL BIT B.1

DEFINE OSC 4

'''ESTADOS INICIALES'''

OPTION_REG= %10111000 'PALABRA CONTROL TMRO'

T1CON= %00000111     'PALABRA CONTROL TMR1'

TMR0= 0               'RESETEO DE TMRO'

TMR1L= 0              'RESETEO DE TIMBRE'

CLEAR

'PROGRAMA PRINCIPAL'

INICIO:

    LCDOUT $FE,1,"  EPIE_UNPRG  "   'SALUDO'

    LCDOUT $FE,$C0,"C1:",DEC3 TMR0,"   C2:",DEC3 TMR1L 'PRESENTA VALORES CUENTA'

    PAUSE 100                               'PAUSE DE 100 MS'

    GOTO INICIO                             'RETORNO A INICIO'

    END