He quitado el Include del SeUp de la placa EBbasic.
Se le ha eliminado la configuración del display y del puerto serie.
Solo he dejado la configuración de los pin I/O y del reloj interno.
Como el micro no es el mismo que el tuyo tienes que reconfigurar los fuses, los pin de entrada y los de salida.
Y si cambias los pin en las etiquetas (symbol) no tienes que tocar el resto del programa.
'**********************************************************************************
'Programa de ejemplo para trabajar con led y teclas
'Placa PicEBasic, 01/2014
'Basic Pic Simulator IDE (PSI), v6.96_04, Pic16F88
'**********************************************************************************
'----------------------------------------------------------------------------------
Define CONF_WORD = 0x2f50
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8 'Oscilador a 8Mhz
'Define SIMULATION_WAITMS_VALUE = 1 'Activar para simulación
'-----------------------------------------
AllDigital 'Los pin I/O digitales
OSCCON = 0x7e 'Reloj interno a 8Mhz
TRISA = 0x00 'Puerto A como salidas
TRISB = 0x00 'Puerto B como salidas
TRISA.6 = 1 'Como entrada (RA6, tecla S1)
TRISA.5 = 1 'Como entrada (RA5, tecla S2)
'-----------------------------------------
WaitMs 1000 'Pausa de 1 Seg.
'-----------------------------------------
Symbol ledv = RB0 'Etiqueta al led verde
Symbol leda = RA7 'Etiqueta al led amarillo
Symbol tecla1 = RA6 'Etiqueta a la tecla S1
Symbol tecla2 = RA5 'Etiqueta a la tecla S2
Const ledon = 0 'Led encendido
Const ledoff = 1 'Led apagado
Const teclaon = 0 'Tecla pulsada
ledv = ledoff 'Led verde a Off
leda = ledoff 'Led ambar a Off
Dim flag As Bit 'Bandera de control, establece el turno del led
flag = 0 'Bit a cero
'Rutina principal
void_main:
If tecla2 = teclaon And flag = 0 Then Gosub led1 'Si se cumple, salto con retorno a Led1
If tecla2 = teclaon And flag = 1 Then Gosub led2 'Si se cumple, salto con retorno a Led2
Goto void_main
End
'Rutina para el control del parpadeo led1
led1:
ledv = ledon 'Pin RA1 a estado alto
WaitMs 500 'Pausa de medio segundo
ledv = ledoff 'Pin RA1 a estado bajo
WaitMs 300
Toggle flag 'Invierte bit
Return
'Rutina para el control del parpadeo led2
led2:
leda = ledon
WaitMs 500
leda = ledoff
WaitMs 300
Toggle flag
Return