Graficas

; PRACTICA NO.1
; Por el Puerto B se obtiene el dato de las cinco líneas del Puerto A, al que está conectado
; un array de interruptores, sumándole el valor de una constante, por ejemplo 74.
; Es decir: (PORTB)=(PORTA)+CONSTANTE

; ZONA DE DATOS *********************************************************************
LIST P=16F628A ; Procesador utilizado.
STATUS EQU 0X03
PORTA EQU 0X05PORTB EQU 0X06
TRISA EQU 0X85
TRISB EQU 0X86
CMCON EQU 0X1F
CONSTANTE EQU d'74' ; En sistema decimal se pone así.

; ZONA DE CÓDIGOS *******************************************************************

ORG 0X00 ; El programa comienza en la dirección 0.
Inicio
movlw 0x07 ;
movwf CMCON ;
bcf STATUS,6 ; Pone a 0 el bit 6 del STATUS. Acceso al Banco 1.
bsf STATUS,5; Pone a 1 el bit 5 del STATUS. Acceso al Banco 1.
movlw 0Xff ;
movwf TRISA ; Las líneas del puerto A configuradas como salidas.
movlw 0x00 ;
movwf TRISB ; Las líneas del Puerto B configuradas como salidas.
bcf STATUS,5 ; Pone a 0 el bit 5 de STATUS. Acceso al Banco 0.
Principal
movf PORTA,W ; Carga elregistro de datos del Puerto A en (W).
addlw CONSTANTE ; (W) = (PORTA) + CONSTANTE.
movwf PORTB ; El contenido de W se deposita en el puerto de salida.
goto Principal ; Crea un bucle cerrado e infinito.
END ; Fin del programa.

















; PRACTICA NO.2
; Por el Puerto B se obtiene el dato del Puerto A multiplicado por 2.
; Es decir: (PORTB)=2(PORTA)=(PORTA)+(PORT A).; ZONA DE DATOS *********************************************************************
LIST P=16F628A ; Procesador utilizado.
STATUS EQU 0X03
PORTA EQU 0X05
PORTB EQU 0X06
TRISA EQU 0X85
TRISB EQU 0X86
CMCON EQU 0X1F
; ZONA DE CÓDIGOS *******************************************************************

ORG 0X00 ; El programa comienza en la dirección 0.
Inicio
movlw 0x07 ;movwf CMCON ;
bcf STATUS,6 ; Pone a 0 el bit 6 del STATUS. Acceso al Banco 1.
bsf STATUS,5 ; Pone a 1 el bit 5 del STATUS. Acceso al Banco 1.
movlw 0Xff ;
movwf TRISA ; Las líneas del puerto A configuradas como salidas.
movlw 0x00 ;
movwf TRISB ; Las líneas del Puerto B configuradas como salidas.
bcf STATUS,5; Pone a 0 el bit 5 de STATUS. Acceso al Banco 0.
Principal
movf PORTA,W ; Carga el registro de datos del Puerto A en (W).
addwf PORTA,W ; (W)=(PORTA)+(PORTA)=2(PORTA).
movwf PORTB ; El contenido de W se deposita en el Puerto B.
goto Principal ; Crea un bucle cerrado e infinito.
END ; Fin del programa.




















; PRACTICA NO. 3
; Por elPuerto B obtiene el dato del Puerto A, pero en la salida los bits pares se
; fijan siempre a "1". El orden de los bits será "b7 b6 b5 b4 b3 b2 b1 b0", siendo los
; pares el b6, b4, b2 y el b0.
;
; Por ejemplo, si por el Puerto A se introduce el dato b'---01100', por el Puerto B se
; visualiza b'01011101'. Observar que los bits pares están a "1" (efectivamente:
; Puerto B = b'x1x1x1x1') y losimpares permanecen con el dato del puerto de entrada
; (efectivamente: Puerto A = b'---x1x0x' y Puerto B = b'xxxx1x0x').

; ZONA DE DATOS *********************************************************************
LIST P=16F628A ; Procesador utilizado.
STATUS EQU 0X03
PORTA EQU 0X05
PORTB EQU 0X06
TRISA EQU 0X85
TRISB EQU 0X86
CMCON EQU 0X1F
MASCARA EQU b'01010101' ; Máscara de bitspares siempre a "1".
; ZONA DE CÓDIGOS *******************************************************************
ORG 0X00 ; El programa comienza en la dirección 0.
Inicio
movlw 0x07 ;
movwf CMCON ;
bcf STATUS,6 ; Pone a 0 el bit 6 del STATUS. Acceso al Banco 1.
bsf STATUS,5 ; Pone a 1 el bit 5 del STATUS. Acceso al Banco 1.
movlw 0Xff ;
movwf TRISA ; Las...