Descargue como TXT, PDF, TXT o lea en línea desde Scribd
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