matriz.asm

PIC18F452 DRIVER MATRIX 8X8

		List p=18f452
		#include "p18f452.inc"
		
		CBLOCK 0X00
		VAR0
		VAR1
		VAR2
		VARX
		ENDC		
		
		ORG 	0X00
		CLRF	TRISD
		CLRF	TRISB
LOOP	MOVLW	0X20
		MOVWF	VARX
		CALL	LETRAU
		MOVLW	0X20
		MOVWF	VARX
		CALL	LETRAD
		MOVLW	0X20
		MOVWF	VARX
		CALL	LETRAE
		MOVLW	0X20
		MOVWF	VARX
		CALL	LETRAM
		GOTO	LOOP
		
LETRAU	MOVLW	0X20
		MOVWF	PORTD
		MOVLW	0X81
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X10
		MOVWF	PORTD
		MOVLW	0XFE
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X08
		MOVWF	PORTD
		MOVLW	0XFE
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW 	0X04
		MOVWF	PORTD
		MOVLW	0X81
		MOVWF	PORTB
		CALL	DELAY

		DECFSZ	VARX
		BRA		LETRAU
		RETURN
		
LETRAD	MOVLW	0X20
		MOVWF	PORTD
		MOVLW	0X80
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X10
		MOVWF	PORTD
		MOVLW	0XBE
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X08
		MOVWF	PORTD
		MOVLW	0XBE
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW 	0X04
		MOVWF	PORTD
		MOVLW	0XC1
		MOVWF	PORTB
		CALL	DELAY
		
		DECFSZ	VARX
		BRA		LETRAD
		RETURN
		
LETRAE	MOVLW	0X20
		MOVWF	PORTD
		MOVLW	0X80
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X10
		MOVWF	PORTD
		MOVLW	0XB6
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X08
		MOVWF	PORTD
		MOVLW	0XB6
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW 	0X04
		MOVWF	PORTD
		MOVLW	0XB6
		MOVWF	PORTB
		CALL	DELAY
		
		DECFSZ	VARX
		BRA		LETRAE
		RETURN		

LETRAM	MOVLW	0X20
		MOVWF	PORTD
		MOVLW	0X80
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X10
		MOVWF	PORTD
		MOVLW	0XEF
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X08
		MOVWF	PORTD
		MOVLW	0XF7
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0X04
		MOVWF	PORTD
		MOVLW	0XEF
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW 	0X02
		MOVWF	PORTD
		MOVLW	0X80
		MOVWF	PORTB
		CALL	DELAY

		DECFSZ	VARX
		BRA		LETRAM
		RETURN	

PRUEBA	MOVLW	0X7F
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	0XBF
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	0XDF
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	0XEF
		MOVWF	PORTB
		CALL	DELAY
		
		MOVLW	0XF7
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	0XFB
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	0XFD
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	0XFE
		MOVWF	PORTB
		CALL	DELAY
		BRA		PRUEBA
		
		
DELAY	MOVLW	0X01
		MOVWF	VAR0
			
LOOP0	MOVLW	0X10
		MOVWF	VAR1
			
LOOP2	MOVLW	0X50
		MOVWF	VAR2
			
LOOP1	DECFSZ	VAR2
		BRA		LOOP1
		DECFSZ	VAR1
		BRA		LOOP2
		DECFSZ	VAR0
		BRA		LOOP0
		RETURN
		
		END