Joder Chavales, que velocidad!!
Muchas Gracias por el apoyo mostrado, de verdad, vaya comunidad que sóis. Lo flipo! Me acosté al poner el hilo, y cdo me levanto..... 4 respuestas!! Gracias. ORG 0
GOTO INICIO
ORG 4
BcF INTCON,GIE
BTFSC INTCON,INTF ;COMPROBACIÓN DE INTERRUPCION INT
GOTO RTI_INT
BCF INTCON,INTF ;BORRA FLAG INT
BCF INTCON,GIE
RETFIE
RTI_INT:
MOVLW B"00001000" ;BIT 1 --> CMD1
CALL CMD
RETURN
;-------------------------------------------------------------------------------------------
CMD: ;Envia el comando cargado en el Acumulador (W) [0 CMD0, 1 CMD1, 2 CMD2....]
CLRF PTR ;Inicializamos puntero despl.
MOVWF CMD_AUX ;Guardamos el Comando pasado
NX_CHR MOVF PTR,W ;Puntero despl. a W
BTFSC CMD_AUX,0
CALL CMD0
GOTO X1
X1 BTFSC CMD_AUX,1
CALL CMD1
GOTO X2
X2 BTFSC CMD_AUX,2
CALL CMD2
GOTO X3
X3 BTFSC CMD_AUX,3
CALL CMD3
GOTO X4
X4 BTFSC CMD_AUX,4
CALL CMD4
GOTO X5
X5 BTFSC CMD_AUX,5
CALL CMD5
GOTO X6
X6 BTFSC CMD_AUX,6
CALL CMD6
GOTO X7
X7 BTFSC CMD_AUX,7
CALL CMD7
ADDLW 0 ;Si W=0 --> Z=1
BTFSC STATUS,2 ;Z=0 ?
RETURN ;Si -->Ultimo chr del comando
MOVWF DATO ;De W lo pasamos a DATO
CALL TXDATO ;No -->Quedan chrs por tx en el comando
INCF PTR,F ;Incrementamos PTR despl.
GOTO NX_CHR
;
; Tablas de Comandos
;
CMD0 ................
CMD1 ................
..........
.............
;***************************************************
INICIO
;
;PUERTOS
BANK1
BCF TX
BCF 01h,6 ;[OPTIONREG][INTEDG]
BANK0
;PROGRAMACION DE LA INTERRUPCION INT(RB0)
BSF INTCON,INTE ;HABILITA INTERRUPCIÓN INT
BSF INTCON,GIE ;HABILITA INTERRUPCIONES GLOBALMENTE
;
;ESPERA LA INTERRUPCION
GOTO $
;
END
Hay va ese código