…………………………………………………………………………….

pcon               equ                 87h     ;registro especial de config.

control            equ                 2fh       ;var contiene flags de control

digit                equ                 2eh

Direcciones de interrupción

org                  00h                 ;vector de interrupción de reset

jmp                 inicio              ;salto a dirección de inicio de prog.

Rutina de inicialización

Inicio:              mov                control, #00h

mov                tmod, #21h      ;timer 1 como generador de baudios                 mov                tcon, #05       ;registro de configuración  timer

mov                pcon, #00h      ;registro de configuración

mov                ie, #00h            ;interrupción: timer0, puerto serial                       jmp                 main                          ;salto al cuerpo ppal.  del prog.

Rutina principal

main:              call                  wd

call                  rdig

call                  accion

jmp                 main

Rutina que revisa si han llegado dígitos

rdig:                jnb                   p1.1,frdig

mov                a,p1

rr                     a

rr                     a

mov                c,acc.0

mov                acc.7,c

mov                c,acc.1

mov                acc.6,c

mov                c,acc.2

mov                acc.5,c

mov                c,acc.3

mov                acc.4,c

swap              a

an1                 a,#0fh

mov                digit,a

mov                p2,a

setb                control.0

mov                r7,#0ffh

asd:                mov                r6,#0ffh

djnz                 r6,$

djnz                 r7,asd

frdig:               ret

Rutina que ejecuta las ordenes

accion:           jnb                   control.0,faccio

clr                    control.0

mov                a,digit

cjne                 a,#01h,sal3

clr                    p1.2

jmp                 faccio

sal3:               mov                a,digit

cjne                 a,#03,faccio

setb                p1.2

jmp                 faccio

faccio:            ret

Rutina del perro guardián

wd:                  setb                p3.7

nop

clr                    p3.7

nop

ret

****************************************************************************************

Fin del programa

end.

0 Responses to “Programa”



  1. Dejar un comentario

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s





A %d blogueros les gusta esto: