;------------------------------------------------------------
; Código assembler generado por Niple.
; Nombre del Proyecto:
; Autor: Francisco Freire Blanco.
; Fecha: 22/02/2003
; PIC: 16F84
; Velocidad de reloj: 4 Mhz
; Funcion:
;------------------------------------------------------------
LIST P=PIC16F84
;------------------------------------------------------------
;
Declaración de Registros
;------------------------------------------------------------
w equ 00h
status equ 0x03
porta
equ 0x05
portb
equ 0x06
puertab
equ 0x0c
_np_tiempo
equ 0x0e
_np_tiempo1
equ 0x0f
_np_tiempo2
equ 0x10
puerta_a1
equ 0x14
puerta_a2
equ 0x15
contador
equ 0x16
trisa
equ 0x85
trisb
equ 0x86
;------------------------------------------------------------
;
Declaración de Bits
;------------------------------------------------------------
c equ 0
;carry / borrow bit
ra0
equ 0 ;bit 0 del puerto a
ra1
equ 1 ;bit 1 del puerto a
rb1
equ 1 ;bit 1 del puerto b
rb2
equ 2 ;bit 2 delpuerto b
rp0 equ 5
;registrer banck select bit
z
equ 2 ;bit cero
;------------------------------------------------------------
;
Inicio
;------------------------------------------------------------
reset org 0
goto paso2
;------------------------------------------------------------
;
programa principal
;------------------------------------------------------------
paso2
movlw
b'00011111' ;configurar el puerto a
como xxxeeeee
bsf
status,rp0 ;cambiar a pagina 1
movwf trisa
movlw
b'00000000' ;configurar el puerto b
como ssssssss
bsf
status,rp0 ;cambiar a pagina 1
movwf trisb
;escribir en el
puerto a
movlw d'0'
bcf
status,rp0 ;cambiar a pagina 0
movwf porta
paso5
clrwdt
;escribir en el
puerto b
movlw d'0'
movwf portb
call usr_stop
btfss porta,ra0
goto paso9
call usr_pulso_puro
movlw
b'00000011' ;sal.linea_estrella
movwf puertab
;escribir en el
puerto b
movf puertab,w
movwf portb
movlw d'70'
movwf contador
paso16
clrwdt
;temporizador
100 mse
movlw .10
call
tiempo_100_1000_ms
;fin del
temporizador 100 mse
btfss porta,ra1
goto paso5 ; cierra el ciclo
decfsz
contador,1
goto paso16 ; cierra el ciclo
bcf
portb,rb1 ;sal.estrella
;temporizador
100 mse
movlw .10
call
tiempo_100_1000_ms
;fin del
temporizador 100 mse
bsf
portb,rb2 ;sal.triángulo
paso23
clrwdt
btfsc porta,ra1
goto paso25
call
usr_pulso_puro
goto paso5 ; cierra el ciclo
paso25
call usr_pulso_puro
goto paso23 ; cierra el ciclo
paso9
call
usr_pulso_puro
goto paso5 ; cierra el ciclo
;------------------------------------------------------------
;
Declaración de Subrutinas
;------------------------------------------------------------
usr_pulso_puro
usr_pulso_puro2
clrwdt
movlw
b'00011111' ;configurar el puerto a
como xxxeeeee
bsf
status,rp0 ;cambiar a pagina 1
movwf trisa
;leer un dato
del puerto a
bcf
status,rp0 ;cambiar a pagina 0
movf porta,w
movwf puerta_a1
;temporizador 80
mse
movlw .8
call
tiempo_100_1000_ms
;fin del
temporizador 80 mse
;leer un dato
del puerto a
movf porta,w
movwf puerta_a2
movf
puerta_a2,w ;si el reg puerta_a2 =
puerta_a1
xorwf
puerta_a1,w ;si el reg puerta_a2 =
puerta_a1
btfss status,z
goto
usr_pulso_puro2 ;cierra el ciclo
usr_pulso_puro_salir
bcf status,rp0
return
usr_stop
usr_stop2
clrwdt
bcf
status,rp0 ;cambiar a pagina 0
btfss porta,ra1
goto usr_stop4
call usr_pulso_puro
;escribir en el puerto b
movlw
b'00000000'
movwf portb
movf puertab,w
goto usr_stop_salir
goto usr_stop_salir
usr_stop4
call usr_pulso_puro
movlw b'00000000' ;configurar el puerto b como ssssssss
bsf
status,rp0 ;cambiar a pagina 1
movwf trisb
;escribir en el
puerto b
movlw
b'00001000'
bcf
status,rp0 ;cambiar a pagina 0
movwf portb
;temporizador
300 mse
movlw .30
call
tiempo_100_1000_ms
;fin del
temporizador 300 mse
;escribir en el
puerto b
movlw
b'00000000'
movwf portb
;temporizador
200 mse
movlw .20
call tiempo_100_1000_ms
;fin del
temporizador 200 mse
goto
usr_stop2 ;cierra el ciclo
usr_stop_salir
bcf status,rp0
return
tiempo_100_1000_ms
movwf _np_tiempo
goto
tiempo_100_1000_ms_1
tiempo_100_1000_ms_bucle2
nop
nop
nop
nop
nop
nop
nop
tiempo_100_1000_ms_1
movlw .22
movwf
_np_tiempo1
tiempo_100_1000_ms_bucle1
movlw .150
movwf
_np_tiempo2
tiempo_100_1000_ms_bucle
decfsz
_np_tiempo2,1
goto
tiempo_100_1000_ms_bucle
decfsz
_np_tiempo1,1
goto
tiempo_100_1000_ms_bucle1
nop
decfsz
_np_tiempo,1
goto
tiempo_100_1000_ms_bucle2
return
End