Temdddd

Descargar como txt, pdf o txt
Descargar como txt, pdf o txt
Está en la página 1de 2

;este programa hace que un mensaje circule en la pantalla

;de un modulo ldc ; p=16f84, osc= xt, wdt = off


indf equ 0h ;para direccionamiento indirecto
tmro equ 1h ;contador de tiempo real
pc equ 2h ;contador de programa
status equ 3h ;registro de estados y bits de control
fsr equ 4h ;selecci�n de bancos de memoria y registros
ptoa equ 5h ;puertos
ptob equ 6h
r0c equ 0ch ;
r0d equ 0dh ;
r13 equ 13h ;
z equ 2h ;bandera de cero
c equ 0h ;bandera de carry
w equ 0h ;para almacenar en w
r equ 1h ;para almacenar en el mismo registro
e equ 1h
rs equ 0h

org 00 ;vector de reset


goto inicio
org 05h

retardo movlw 0ffh


movwf r13
decre decfsz r13,r
goto decre
retlw 0

control bcf ptoa,rs ;esta rutina genera las se�ales de control


goto dato2 ;y entrega el dato correspondiente al modulo
dato bsf ptoa,rs ;utiliza interface de 8bits
dato2 bsf ptoa,e
movwf ptob
call retardo
bcf ptoa,e
call retardo
retlw 0

tabla2 addwf pc,r ;mensaje a ser rotado


retlw �C�
retlw �U�
retlw �R�
retlw �S�
retlw �O�
retlw � �
retlw �D�
retlw �E�
retlw � �
retlw �S�
retlw �I�
retlw �S�
retlw �T�
retlw �E�
retlw �M�
retlw �A�
retlw �S�
retlw � �
retlw �D�
retlw �I�
retlw �G�
retlw �I�
retlw �T�
retlw �A�
retlw �L�
retlw �E�
retlw �S�
retlw ��
retlw �I�
retlw �I�
retlw ��
retlw �U�
retlw �N�
retlw �A�
retlw ��
retlw �E�
retlw �P�
retlw �I�
retlw �E�
retlw ��
retlw ��
retlw 0
inicio movlw 0fch ;programaci�n de puertos
tris ptoa ;seg�n el circuito
movlw 00h ;
tris ptob ;
begin movlw 30h ;inicia display a 8 bits y 1 linea
call control
movlw 07h ;selecciona el modo de desplazamiento
call control
movlw 0ch ;activa display
call control
muestra movlw 0 ;inicia el envio de caracteres
movwf r0c ;al modulo
ciclo movf r0c,w ;hace barrido de la tabla
call tabla2
call dato
movlw 09fh ;retardo entre caracteres
movwf r0d
retal call retardo
call retardo
decfsz r0d,r
goto reta1
incf r0c,r ;sigue con el pr�ximo car�cter del mensaje
movlw 28h
xorwf r0c,w ;pregunta si termino el mensaje para volver
btfss status,z ;a empezar
goto ciclo
goto muestra
end

También podría gustarte