;=============================================================== ; Practica del PIC18F2550 ;=============================================================== List P = 18F2550 #Include ;--------------------------------------------------------------- ;CONFIGURACION WORD - FUSE ;--------------------------------------------------------------- CONFIG FOSC = XT_XT CONFIG PLLDIV = 1 CONFIG PWRT = ON CONFIG BOR = OFF CONFIG VREGEN = OFF CONFIG WDT = OFF CONFIG MCLRE = ON CONFIG PBADEN = OFF CONFIG LVP = OFF CONFIG CP0 = OFF CONFIG CP1 = OFF CONFIG CP2 = OFF CONFIG CP3 = OFF CONFIG CPB = OFF CONFIG CPD = 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