Aplicación del microcontrolador ATmega 164p en modo extendido (Código en assembler) .include "m164pdef.inc" .def puerto=r16 .def dato=r17 .def centena=r18 .def decena=r19 .def unidad=r20 .def aux=r21 .def pulsador=r22 .dseg num: .byte 1 .cseg ldi out ldi out ser clr out out entradas out out out out ser sts sts inicio:
dato,high(ramend) sph,dato dato,low(ramend) spl,dato puerto dato ddra,dato ddrc,dato ddrd,puerto porta,puerto portc,puerto portd,dato dato num,dato num+1,dato
call conmutación ldi
dato,0b00000000
out call in sts sts call
portd,dato config_entrada dato,pinb num,dato num+1,dato conver_BCD
mov call mov mov call mov mov call mov cpi brne call
dato,centena siete_seg centena,dato dato,decena siete_seg decena,dato dato,unidad siete_seg unidad,dato pulsador,1 selec_leds activar_displays
;habilitación del stack pointer
;puertos que no son usados como ;puerto de control como salida
;se asigna un valor de 0 o 1 al registro pulsador ;código (ABC=000) para leer datos del dip-switch ;puerto b como entrada ;datos del dip-switch ;almaceno el dato leido en num ;almaceno el dato leido en num+1 ;convertir el dato a BCD de tres cifras ;convertir centenas a BCD 7segmentos
;convertir decenas a BCD 7segmentos
;convertir unidades a BCD 7segmentos
;selección de visualización ;ir a visualizar displays
rjmp inicio selec_leds: call activar_leds rjmp inicio
;ir a visualizar leds
;****************Activación de diplays******************************** activar_displays: call ldi ldi ld cp brne
leer_num1 xh,high(num+2) xl,low(num+2) puerto,x dato,puerto continuar
;leer el dato almacenado en num+2
;comparar los datos leidos ;si son iguales continuar terminar subrutina
ret continuar: call ldi out clr out ldi
config_salida dato,0b00000100 portd,dato dato portb,dato dato,0b00000001
out out ldi
portd,dato portb,centena dato,0b00000010
out out ldi
portd,dato portb,decena dato,0b00000011
out out call sts clr sts ret
portd,dato portb,unidad leer_num1 num+2,dato dato num+3,dato
;configurar puerto b como salida ;apagar leds
;código (ABC=001) para activar el display 1
;código (ABC=010) para activar el display 2
;código (ABC=011) para activar el display 3
;leer dato almacenado en num ;enviar el dato leido a num+2 ;encerar dato ;enviar 0 a num+3
;********************Activación de Leds**************************** activar_leds: call leer_num ldi xh,high(num+3) ldi xl,low(num+3) ld puerto,x cp dato,puerto brne continuar_1 ret continuar_1: call config_salida ldi dato,0b00000001
;leer el número almacenado en num
;leer el número almacenado en num+3 ;comparar los números ;si son iguales terminar subrutina
;código (ABC=001) para activar el
display 1 out ser out ldi
portd,dato aux portb,aux dato,0b00000010
out out ldi
portd,dato portb,aux dato,0b00000011
out out ldi
portd,dato portb,aux dato,0b00000100
;apagar diaplay 1 ;código (ABC=010) para activar el display 2 ;apagar display 2 ;código (ABC=011) para activar el display 3 ;apagar display 3 ;código (ABC=100) para activar los leds
out portd,dato call leer_num ;leer el dato ingresado out portb,dato ;visualizar en los leds sts num+3,dato ;almacenar el dato en num+3 clr dato ;poner cero en dato sts num+2,dato ;almacenar en num+2 ret ;********************* Subrutinas de E/S ************************ config_entrada: ser dato clr puerto out ddrb,puerto out portb,dato ret config_salida: ser clr out out ret
puerto dato ddrb,puerto portb,dato
;poner dato en $FF ;poner puerto en $00 ;activar puerto b como entrada
;poner puerto en $00 ;poner dato en $FF ;activar puerto b como salida
;***************** Transformación a BCD ************************* conver_BCD: clr clr clr cpi breq cpi brsh rjmp centenas:
centena decena unidad dato,0 cero dato,100 centenas decenas
;poner centena en $00 ;poner decena en $00 ;poner unidad en $00 ;comparar dato,0 ;si es igual a 0 dip-switch apagado ;compara dato con 100 ;si es mayor de 100 ir a centenas ;si es menor ir a decenas
subi inc cpi brsh decenas:
dato,100 centena dato,100 centenas
;restar 100 de dato ;incrementar centena ;comparar dato con 100 ;si es mayor volver a retar 100
cpi brlo subi inc cpi brsh unidades:
dato,10 unidades dato,10 decena dato,10 decenas
;comparar con 10 ;si es menor de 10 ir a unidades ;restar 10 de dato ;incrementar decena ;comparar dato con 10 ;si es mayor de 10 volver a restar 10
cpi brlo subi inc cpi brsh salir:
dato,1 salir dato,1 unidad dato,1 unidades
;comparar dato con 1 ;si es menor terminar subrutina ;si es mayor restar 1 de dato ;incrementar unidad en 1 ;comparar dato con 1 ;si es mayor volver a restar 1
clr
centena
;si dato es cero poner cero en unidad, decena y centena
clr clr ret
decena unidad
ret cero:
;****************** Conversión a Siete segmentos ******************* siete_seg: ldi
zh,high(tabla<<1)
ldi zl,low(tabla<<1) andi dato,0b00001111 add
zl,dato
clr dato adc zh,dato significativos de la lpm
dato,z
;buscar la dirección que apunta tabla en la memoria flash ;seleccionar los cuatro bits menos significativos de dato ;sumar este número a los bits menos significativos de la ;dirección apuntada por tabla ;poner dato en cero ;sumar cero a los bits más ; dirección apuntada por tabla ;poner la información de la dirección de z en dato
ret tabla: .db 0b11000000, 0b11111001 la memoria flash .db 0b10100100, 0b10110000 la memoria flash .db 0b10011001, 0b10010010 la memoria flash .db 0b10000010, 0b11111000 la memoria flash .db 0b10000000, 0b10010000 la memoria flash
;0 en 7_seg, 1 en 7_seg almacenados en ;2 en 7_seg, 3 en 7_seg almacenados en ;4 en 7_seg, 5 en 7_seg almacenados en ;6 en 7_seg, 7 en 7_seg almacenados en ;8 en 7_seg, 9 en 7_seg almacenados en
;**************************retardo********************************
conmutacion: ldi out call call pulsador andi cpi brne ret pulsador comparar:
dato,0b00000101 portd,dato config_entrada retardo dato,0b00000001 dato,1 comparar
cpi pulsador,1 breq leds displays:
;activar el pulsador ;configurar el puerto b como entrada ;hacer un retardo para sensar el ;aislar el bit ;comparar dato ;si no es igual ;si es igual a
0 del puerto b con 1 cambiar pulsador a 0 o 1 1 no se a activado el
;comparación de pulsador para poner en 0 o 1
inc ret
pulsador
;si pulsador es 0 cambiar a 1
dec ret
pulsador
;si pulsador es 1 cambiar a 0
leds:
;**********************retardo para el pulsador********************* retardo: ldi lazo_1: ldi
aux,255
;poner aux en $FF
puerto,255
;poner puerto en $FF
dato,pinb
;detectar si pulsador a sido
puerto lazo aux lazo_1
;decrementar puerto ;contar hasta llegar a 0 ;decrementar aux ;contar hasta llegar a 0
lazo: in presionado dec brne dec brne ret
;***********************leer dato**************************** leer_num1: ldi ldi ld ret leer_num: ldi ldi ld ret
xh,high(num+1) xl,low(num+1) dato,x
;leer el dato almacenado en num+1
xh,high(num) xl,low(num) dato,x
;leer el dato almacenado en num
