LIST P=18F4520
INCLUDE "P18F4520.INC"
;configurando los config
CONFIG OSC = HS,FCMEN = OFF,IESO = OFF;CONFIG1H
CONFIG PWRT = OFF,BOREN = OFF,BORV = 3;CONFIG2L
CONFIG WDT = OFF
CONFIG MCLRE = OFF,LPT1OSC = OFF,PBADEN = OFF
CONFIG CCP2MX = PORTC,STVREN = OFF,LVP = OFF
CONFIG XINST = OFF,DEBUG = OFF
CONFIG CP0 = ON,CP1 = ON,CP2 = ON,CP3 = ON,CPB = ON,CPD = ON
CONFIG WRT0 = ON,WRT1 = ON,WRT2 = ON,WRT3 = ON,WRTB = ON,WRTC = ON,WRTD = ON
CONFIG EBTR0 = ON,EBTR1 = ON,EBTR2 = ON,EBTR3 = ON,EBTRB = ON
ERRORLEVEL -302
RADIX HEX
;--------------------------------------------------------------------------------
ORG 0X0000
GOTO INICIO ; Saltamos al inicio del programa
ORG 0x20 ; Dejamos espacio para las interrupciones
INICIO
MOVLW 0X0F
MOVWF ADCON1 ; Todo el puerto A como salidas digitales
CLRF TRISA
CLRF TRISB
MOVLW 0X55
MOVWF PORTB
MOVWF PORTA
GOTO $
END ; Fin del programa fuente