Grabacion: https://bit.ly/2xkm8j8 Programa en assembler utilizando MPLAB X IDE encender LED https://www.youtube.com/wa
Views 98 Downloads 7 File size 53KB
Grabacion: https://bit.ly/2xkm8j8
Programa en assembler utilizando MPLAB X IDE encender LED
https://www.youtube.com/watch?time_continue=10&v=91ygpOcU2m4
Programa en assembler utilizando MPLAB X IDE con retardo
https://www.youtube.com/watch?time_continue=6&v=ne4B5fwPgoU
CODIGO list p=16f84A include
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
INCLUDE
CLOCK equ 20000000
CBLOCK 0x0c contador_unidad contador_decena contador_centena contador_comun ENDC
#DEFINE Display PORTB #DEFINE Selector PORTA
Org 0
bsf STATUS,RP0 clrf Display clrf Selector bcf STATUS,RP0 clrf Display clrf Selector
INICIO clrf contador_unidad clrf contador_decena clrf contador_centena
UNIDAD incf contador_unidad,1 movlw D '10' subwf contador_unidad,w btfss STATUS,C goto ACT_DISPLAY clrf contador_unidad goto DECENA
DECENA incf contador_decena,1 movlw D '6' subwf contador_decena,w btfss STATUS,C goto ACT_DISPLAY clrf contador_decena goto CENTENA
CENTENA incf contador_decena,1 movlw D '10' subwf contador_centena,w btfss STATUS,C goto ACT_DISPLAY
clrf contador_cecena goto UNIDAD
ACT_DISPLAY movlw D'5' movwf contador_comun
ACTUALIZAR movlw B '1110' movwf Selector movf contador_unidad,w call NUMEROS movwf Display Delay_ms .1 movlw B'1101' movwf Selector movf contador_decena,w call NUMEROS movwf Display Delay_ms .1 movlw B'1011' movwf Selector movf contador_centena,w call NUMEROS movwf Display Delay_ms .1 decfsz contador_comun,1 goto ACTUALIZAR goto UNIDAD
NUMEROS retlw B'11000000' retlw B'11111001' retlw B'10100100' retlw B'10110000' retlw B'10011001' retlw B'10010010' retlw B'10000011' retlw B'11111000' retlw B'10000000' retlw B'10010000'
INCLUDE END
list p=16f84a #include __Config _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC org bsf bsf bsf bcf bcf bcf
0x00 STATUS, RP0 TRISA, 0 TRISA, 1 TRISB, 0 STATUS, PR0 PORTB, 0
encender btfss PORTA, 0 goto encender bsf PORTB, 0 estado btfss PORTA, 1 goto estado bcf PORTB, 0 goto encender end