Digitalizacion

LIST P=16F877A
ERRORLEVEL -302
INCLUDE <P16F877A.INC>

;.......Variables a trabajar......
status equ 03h ;declaracion de variables
intcon equ 0Bh ;a utilizar en el programa
porta equ 05h
portb equ 06h
portc equ 07h
portd equ 08h
trisa equ 85h
trisb equ 86h
trisc equ 87h
trisd equ 88h
V1 equ 20h
columna equ 21h
fila equ 22h
tiempo equ 23h
ejey equ 24h
ejex equ 25hfantasma1 equ 26h
fantasma2 equ 27h

org 0x00
goto inicio
nop
nop
org 0x04
goto interrupcion

interrupcion

;....leer el movimiento del teclado......
movf portb,0 ;se inserta el movimiento a realizar
movwf V1 ;desde el teclado
nop
;.....Revisar el movimiento.........
derecha
movlw .8 ;comparamos la teclainsertada
subwf V1,0 ;con cada uno de los cuatro
btfsc status,Z ;posibles movimientos
goto mov_derecha
izquierda
movlw .12
subwf V1,0
btfsc status,Z
goto mov_izquierda
arriba
movlw .2
subwf V1,0
btfsc status,Z
goto mov_arriba
abajo
movlw .18
subwf V1,0
btfsc status,Z
goto mov_abajo
goto interrupcion

;....Ejecucion del movimiento.....
mov_derecha ;una vezdetectado el movimiento
btfsc columna,0 ;se procede a realizar el mismo
goto limiteder ;para esto se tienen cuatro ciclos
bcf status, C ;cada uno correspondiente a un movimiento determinado
btfsc fila,4
goto invalido1
btfsc fila,5
goto invalido1
btfsc fila,1
goto invalido3
btfsc fila,2goto invalido3
btfsc fila,6
goto invalido5
goto hola1
hola1
rrf columna,1
goto revisar

mov_izquierda
btfsc columna,7
goto limiteiz
bcf status, C
btfsc fila,4
goto invalido2
btfsc fila,5
gotoinvalido2
btfsc fila,1
goto invalido4
btfsc fila,2
goto invalido4
btfsc fila,6
goto invalido6
goto hola
hola
rlf columna,1
btfss fila,7
goto $+2
goto JJJJJJJJ
btfss fila,6
goto $+2
goto JJJJJJJ
btfss fila,5
goto $+2
goto JJJJJJ
btfss fila,4
goto $+2
goto JJJJJ
btfss fila,3
goto $+2
goto JJJJ
btfss fila,2
goto $+2
goto JJJ
btfss fila,1goto $+2
goto JJ
btfss fila,0
goto $+2
goto J
goto revisar
mov_arriba
btfsc fila,0
goto limiteab
bcf status, C
btfsc fila,3
goto invalido9
goto hola4
hola4
rrf fila,1
goto revisar
mov_abajo
btfsc fila,7
goto limitearr
bcf status, C
btfsc fila,2
goto invalido7
goto hola3

hola3
rlf fila,1
btfss columna,7
goto $+2
goto IIIII
btfss columna,6goto $+2
goto IIIIII
btfss columna,5
goto $+2
goto IIIIIIIII
btfss columna,4
goto $+2
goto IIIIIIII
btfss columna,3
goto $+2
goto IIII
btfss columna,2
goto $+2
goto IIIIIII
btfss columna,1
goto $+2
goto II
btfss columna,0
goto $+2
goto III
goto revisar
limiteder
btfsc fila,4 ;en caso que el movimiento
goto paso1 ;a realizar sea el limite
movlw .1;de la matriz se deben
movwf columna ;;realizar otros ciclos
goto revisar ;que permiten o impiden
limiteiz ;atravesar la matriz ;de un lado al otro
btfsc fila,4
goto paso2
movlw .128
movwf columna
goto revisar
limiteab
btfsc columna,3
goto paso3
movlw .1
movwf fila
goto revisar
limitearr
btfsc columna,3
goto paso4
movlw .128
movwf filagoto revisar
paso1
movlw .128
movwf columna
goto revisar
paso2
movlw .1
movwf columna
goto revisar
paso3
movlw .128
movwf fila
goto revisar
paso4
movlw .1
movwf fila
goto revisar
invalido1
btfss columna,4
goto hola1
movlw .16
movwf columna
goto revisar
invalido2
btfss columna,3
goto hola
movlw .8
movwf columna
goto revisar
invalido5...