Bien como diria Jack el destripador vayamos por partes.
Creo que te falta una cosa en la configuracion, solo creo porque no se si el compilador te lo hace, ya que yo de basic no se mucho, mirate esta configuracion que hicimos para el el 16f629 que creo que es el hermano menor de este:
INICIO
clrf GPIO
movlw 07h
movwf CMCON ; todos los pines en modo digital
bsf STATUS,5 ; activa la página 138.
movlw b'111100' ; GP0 y 1 salidas 2, 3, 4 y 5 entradas.39.
movwf TRISIO
call CALIBRAOSC
movwf OSCCAL clrf INTCON ; deshabilitar interrupciones.43.
movlw 0X07 ; TIMER con prescaler de 256, para 50ms44.
movwf OPTION_REG
movlw 0X20 ; habilitamos desborde de TIMER pero sin interrupción46.
movwf INTCON ; cada 50ms nos seteara el flag TOIF de INTCON47.
bcf STATUS,5 ; volvemos a la página 048.
clrf GP0 ; apagamos led D49.
clrf GP1
Esto que hicimos hace unos años con un PIC muy parecido a este, lo puedes ver en este enlace, es un modulo de intermitentes para una Harley Davidson, tambien hay un par de consejos a tener en cuenta cuando se graba el PIC:
http://www.todopic.com.ar/foros/index.php?topic=32966.0Tambien tengo una duda con tu programa, como yo de basic se poco, solo pregunto, ¿esto del final estara bien?
Goto Standby 'Vuelvo al principio del programa
ENDIF
GOTO Poweron 'Vuelvo a Poweron si no pulso el boton de encendido
ENDIF
GOTO Standby
Despues ¿Estara mal el pulsador y se te quedara a veces enclavado? si no tienes uno a mano ponle dos cables y haces con ellos de pulsador.
Lo del pulsador seria asi, voy omitir los antirrebotes para no liarte, porque no se si te manejas en ensamblador y si te lo hago yo en basic no funciona ni de coña
:
CHEQUEAR
btfsc BUTTON ;miramos si pulsador esta a 0, osea pulsado, si esta a 0 salta la siguiente instruccion
goto $-1 ;si viene aqui es que esta sin pulsar, por tanto sigue aqui
btfss BUTTON ;si vene aqui es porque se pulso, tenia 0, esperamos hasta que se suelte y tenga un 1
goto $-1 ;esta a 0, espera aqui, hasta que se suelte y sea 1
SECUENCIA
goto ....... ;si llego aqui es que se pulso y se solto, por tanto realiza la secuencia