;=============================================================== ; Practica del PIC18F2550 ;=============================================================== List P = 18F2550 #Include ;--------------------------------------------------------------- ;CONFIGURACION WORD - FUSE ;--------------------------------------------------------------- CONFIG FOSC = XTPLL_XT CONFIG PLLDIV = 1 CONFIG CPUDIV = OSC1_PLL2 CONFIG USBDIV = 2 CONFIG PWRT = ON CONFIG BOR = SOFT CONFIG VREGEN = OFF ;--------------------------------------------------------------- ;DECLARANDO VARIABLES ;--------------------------------------------------------------- REG1 EQU 0x00 REG2 EQU 0x01 ;--------------------------------------------------------------- ;TESTEO DEL VECTOR PIC ;--------------------------------------------------------------- org 0x00 goto BEGIN ;--------------------------------------------------------------- ;CONFIGURACION DE REGISTRO ;--------------------------------------------------------------- BEGIN clrf TRISB ;--------------------------------------------------------------- ;PROGRAMA PRINCIPAL ;--------------------------------------------------------------- PROG movlw 0xAA movwf PORTB call DELAY movlw 0x00 movwf PORTB call DELAY movlw 0x55 movwf PORTB call DELAY goto PROG ;--------------------------------------------------------------- ;DELAY CONVERSION ;--------------------------------------------------------------- DELAY movlw 0xFF movwf REG1 BUCLE2 movwf REG2 BUCLE1 decfsz REG2,F goto BUCLE1 decfsz REG1,F goto BUCLE2 RETURN END