Hola iova te cuento que no revise tu progr pero te aclaro que el prograna es practicamente = lo unico q tenes que tener en cuenta es que los reg de la ram que te PERTENECERIAN para vos, son los de a pàrtir de la DIR 20h
en kso de usar el ptoa como e/s dig debes cargar ni bien lo inicializas con el nº07 en el reg CMCOM y por ultomo NO TE OLVIDES de reegresar a la pag 0 despues de usar un REG en otra pag.
saludos tyto
si no te adjunto un ejm te lo pego aca.
LIST P=16F627
ERRORLEVEL -305
ERRORLEVEL -302
;
; transmito en 1200-8bit-n-ninguno
;_config_cp_off&_wdt_off&_boden_off&_intrc_i/o_osc&_mclr_on&_lvp_off&_pwrte_on
;==========================================
indef EQU 00h
tmr0 EQU 01h
pcl EQU 02h
status EQU 03h
fsr EQU 04h
ptoa EQU 05h
ptob EQU 06h
pclath EQU 0Ah
intcon EQU 0Bh
pir1 EQU 0Ch
tmr1l EQU 0Eh
tmr1h EQU 0Fh
t1con EQU 10h
tmr2 EQU 11h
t2con EQU 12h
ccpr1l EQU 15h
ccpr1h EQU 16h
ccp1con EQU 17h
rcsta EQU 18h
txreg EQU 19h
rcreg EQU 1Ah
cmcom EQU 1Fh
opcion EQU 81h
trisa EQU 85h
trisb EQU 86h
pie1 EQU 8Ch
pcon EQU 8Eh
pr2 EQU 92h
txsta EQU 98h
spbrg EQU 99h
eedata EQU 9Ah
eeadr EQU 9Bh
eecon1 EQU 9Ch
eecon2 EQU 9Dh
vrcon EQU 9Fh
;aca pongo MIS REG
loop equ 20h
loop1 equ 21h
unidad equ 22h
decena equ 23h
centena equ 24h
reg1 equ 25h
reg2 equ 26h
reg3 equ 27h
luz_p equ 28h
luz_b equ 29h
luz_a equ 2ah
k1 equ 2bh
k2 equ 2ch
k3 equ 2eh
k11 equ 2fh
k22 equ 30h
k33 equ 31h
w equ 00h
pc equ 02h
valor1 equ .26
valor2 equ .136
valor3 equ .40
almacen1_w equ 32h
almacen2_s equ 33h
tiempo1 equ 34h
r12 equ 35h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
reset
org 0
goto inicio
inicio
clrf ptoa
clrf ptob
movlw .07
movwf cmcom
bsf status,5;voy a pag 1
bcf status,6
nop
movlw b'00000000'
movwf trisa;configuro ptoa
movlw b'01001011' ; rb0 int,
movwf trisb
movlw b'10000111'
movwf opcion
movlw b'00100110' ;parametros de comunicacion
movwf txsta ;
movlw .25
movwf spbrg
bcf pie1,4 ;desab int x recep
bcf status,5 ; regr al bco 0
movlw b'11110000' ;.
movwf intcon
movlw b'10000000'
movwf rcsta
bsf rcsta,7 ;spen¡1 hab pto serie
bsf pir1,4 ;activo bandera de TRANS baff