Actividad 5 - Programación Elemental

Programas resueltos en Assembler:

1)
;***********************************************************************************************
    __CONFIG_PWRTE_ON & _WDT_OFF & _CP_OFF & _XT_OSC
    LIST    P=16F84A
    INCLUDE        <P16F84A.INC>

;***********************************************************************************************

    ORG    0
Inicio
        bsf    STATUS,RP0
        clrf    TRISB
        bcf    STATUS,RP0
        movlw    b'00011111'
        movwf    TRISA
        bsf    STATUS,RP0
Programa
        movlw    PORTA
        mowf    PORTB
        goto    Principal
       
        END



2)
;************************************************************************************
    __CONFIG_CP_OFF & _PWRTE_ON & _WDT_OFF & _XT_OSC
    LIST        P=16F84A
    INCLUDE        <P16F84A.INC>


;************************************************************************************

Constante        EQU        d'74'

;************************************************************************************
        ORG        0
Inicio
        bsf        STATUS,RP0
        clrf        TRISB
        bcf        STATUS,RP0
        movlw        b'00011111'
        movwf        TRISA
        bsf        STATUS,RP0
Principal


        movf        PORTA,W
        addlw        Constante
        movwf        PORTB   
        goto        Principal
       
        END

3)
;************************************************************************************

        __CONFIG_WDT_OFF & _PWRTE_ON & _CP_OFF & _XT_OSC
        LIST        P=16F84A
        INCLUDE        <P1F84A.INC>

;************************************************************************************
        ORG        0
Incio
        bsf        STATUS,RP0
        clrf        TRISB
        bcf        STATUS,RP0
        movlw        b'00011111'
        movwf        TRISA
        bsf        STATUS,RP0

Principal
        movf        PORTA,W
        addwf        PORTA,W
        movwf        PORTB
        goto        Principal

        END

4) 
;*************************************************************************************************

        __CONFIG_CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
        LIST        P=16F84A
        INCLUDE        <P16F84A.INC>
;*************************************************************************************************

Mascara        EQU        b'01010101'

;*************************************************************************************************

        ORG        0
Incio
        bsf        STATUS,RP0
        clrf        TRISB
        bcf        STATUS,RP0
        movlw        b'0001111'
        movwf        TRISA
        bsf        STATUS,RP0
Principal
        movf        PORTA,W
        iorlw        Mascara
        movwf        PORTB
        goto        Principal

        END



7)
 
;*************************************************************************************************

        __CONFIG_PWRTE_ON & _CP_OFF & _WDT_OFF & XT_OSC
        LIST        P=16F84A
        INCLUDE        <P16F84A.INC>

;*************************************************************************************************

        ORG        0
Incio
        bsf        STATUS,RP0
        clrf        TRISB
        bcf        STATUS,RP0
        movlw        b'0001111'
        movwf        TRISA
        bsf        STATUS,RP0
Principal
        comf        PORTA,W
        movwf        PORTB
        goto        Principal
       
        END



8)
;***********************************************************************************************
    __CONFIG_PWRTE_ON & _WDT_OFF & _CP_OFF & _XT_OSC
    LIST    P=16F84A
    INCLUDE        <P16F84A.INC>

;***********************************************************************************************

    ORG    0
Inicio
        bsf    STATUS,RP0
        clrf    TRISB
        bcf    STATUS,RP0
        movlw    b'00011111'
        movwf    TRISA
        bsf    STATUS,RP0
Principal
        swapf    PORTA,W
        movwf    PORTB
        goto    Principal

        END

9)
;***********************************************************************************************
    __CONFIG_PWRTE_ON & _WDT_OFF & _CP_OFF & _XT_OSC
    LIST    P=16F84A
    INCLUDE        <P16F84A.INC>

;***********************************************************************************************

    ORG    0
Inicio
        bsf    STATUS,RP0
        clrf    TRISB
        bcf    STATUS,RP0
        movlw    b'00011111'
        movwf    TRISA
        bsf    STATUS,RP0
Principal
        bsf    STATUS,C       
        rlf    PORTA,W           
        movwf    PORTB           
        goto     Principal       

        END               
  

11)
;***********************************************************************************************
    __CONFIG_PWRTE_ON & _WDT_OFF & _CP_OFF & _XT_OSC
    LIST    P=16F84A
    INCLUDE        <P16F84A.INC>

;***********************************************************************************************

    ORG    0
Inicio
        bsf    STATUS,RP0
        clrf    TRISB
        bcf    STATUS,RP0
        movlw    b'00011111'
        movwf    TRISA
        bsf    STATUS,RP0
Principal
        movf    PORTA,W
        movwf    PORTB
        sleep   

        END
        movf

        END