Publicado por: vszener en 01 de Agosto de 2005, 14:58:00
INDICE:
1. Factorial de un numero Pagina 1 (http://www.todopic.com.ar/foros/index.php?topic=941.0)
2. Iluminacion de led's de izquierda a derecha Pagina 1 (http://www.todopic.com.ar/foros/index.php?topic=941.0)
3. Coche fantastico I (Con tablas) Pagina 1 (http://www.todopic.com.ar/foros/index.php?topic=941.0)
4. Coche fantastico II (Sin tablas) Pagina 1 (http://www.todopic.com.ar/foros/index.php?topic=941.0)
5. Luces Pagina 1 (http://www.todopic.com.ar/foros/index.php?topic=941.0)
6. Iluminacion de 8 led's correlativos Pagina 1 (http://www.todopic.com.ar/foros/index.php?topic=941.0)
7. Switch & Led's Pagina 1 (http://www.todopic.com.ar/foros/index.php?topic=941.0)
8. Switch & 7seg Pagina 2 (http://www.todopic.com.ar/foros/index.php?topic=941.15)
9. Contador Pagina 2 (http://www.todopic.com.ar/foros/index.php?topic=941.15)
10. Slider & Bar Pagina 2 (http://www.todopic.com.ar/foros/index.php?topic=941.15)
11. Slider & Led's Pagina 2 (http://www.todopic.com.ar/foros/index.php?topic=941.15)
Publicado por: vszener en 01 de Agosto de 2005, 15:11:00
http://www.hzeeland.nl/~pfondse/ide68k/index.html ;de aqui se puede bajar un programa llamado IDE68K el cual compila y tiene un entorno de simulacion con los perifericos basicos. La verda que existen otros entornos de trabajo para el 68k pero yo me quedo con este(no es para hacerle publicidad al producto ennn jeje) pero lo veo muy completo con su entorno de simulacion bastante completito tipo barra led"s, switch"s, etc
Bueno, aparte el proteus tb incluye este micro, asi que tb podeis simular desde alli, la direccion el santo "burrito" la tiene para poder descargarse jeje.
El programa IDE68K(aunque posteare mas tarde como funciona) es un programa shareware, es decir no es gratuito, debes registrarte pero TRANKILOS!!!!jeje no caduca ni nada de eso, solamente que al pasado algun tiempo mientras estamos trabajando en la ventana de editor de programa nos sale de vez en cuando una ventanita recordandonos que debemos registrarnos(esa es la unika limitacion), decir que para poder registrarse no hace falta pagar...(cracks???jeje la version anterior del crack vale para esta tb
y asi no nos saldra mas la ventanita de registro)
Publicado por: vszener en 01 de Agosto de 2005, 15:27:00
http://www.dte.us.es/tec_ind/electron/sd/
Si los archivos os piden una clave de apertura: penelope
Seguimos en contacto!!!!
Publicado por: vszener en 01 de Agosto de 2005, 15:57:00
Bueno no me deja subir el archivo....
asi que os dejo el enlace para descargarla y con mas informacion de este micro:http://www.dte.us.es/tec_inf/itig/microele/INDEX.HTM
Si trasteais en el link de el post anterior llegais tb a esta pagina pero bueno asi os facilito el trabajo y adelantamos camino para poder llegar ya a empezar a meter mano a los programitas y demas jeje
Publicado por: vszener en 01 de Agosto de 2005, 16:02:00
· SISTEMAS DIGITALES: Ingenieria de los microprocesadores 68000
Antonio Garcia Guerra y Enrique Fenoll Comes
· LA FAMILIA DEL MC 68000
Julio Septien et all
· DISEÑO Y PROGRAMACION DEL uP 68000 Y PERIFERICOS
Enrique Colomar Pous et all
Hay mas, pero con el primer libro y el tercero, teneis de sobra para entender todo lo necesario de este micro
:wink:
Publicado por: vszener en 01 de Agosto de 2005, 16:36:00
Ej.1. CALCULAR FACTORIAL DE UN NUMERO
;---------------------------------------------------------
; VsZeNeR"04 07/Julio/04
;Programa: Factorial de un numero
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: NUM: Numero a factorizar
; D0: Almacenar NUM
; D1: Almacenar variable
; VAR: Constante interna del programa
;
;Salida: D1: Resultado
;
;Resumen: Programa que calcula factorial de un numero,
; si el numero introducido es negativo, el
; programa termina.
;---------------------------------------------------------
org $400 ;lugar de inicio del programa
NUM dc.l 10 ;numero a factorizar
VAR dc.l -1 ;constante interna del programa para ver si el numero introducido es negativo
main move.l NUM,D0 ;almacena en D0 el numero a factorizar: D0<-NUM
sub.l #1,D0 ;decremento D0: D0=D0-1
TST D0
BEQ cero ;si D0=0 ->numero introducido 1->ve a cero 1!=1
CMP VAR,D0 ;compara si el numero introducido es negativo
BEQ cero ;D0=VAR ->numero introducido es 0->ve a cero 0!=1
BLT fin ;numero introducido es negativo ->fin
move.l #1,D1 ;almacena en D1 constante 1: D1=1
move.l NUM,D0 ;almacena en D0 el numero a factorizar: D0<-NUM
bucle mulu D0,D1 ;multiplica sin signo: D1=D0*D1.Factorial no contempla numeros negativos por eso multiplicacion sin signo
sub.l #1,D0 ;decremento D0: D0=D0-1
TST D0
BNE bucle ;si D0!=0 ->ve a bucle
BEQ fin ;si D0=0 ->fin
cero move.l #1,D1 ;almacena el factorial en D1 0!=1!=1
fin
end main
Compilar en el ide68k y simular en el visualicer simulator y listo!!! la verda que al copiar el programa en esta ventana queda algo desordenado ummmm peor bueno haber si puedo subir el programa en asm(si me lo permite el servidor!!! jeje), a seguir programando!!!!
PD: Sigue sin dejarme subir nada
Publicado por: vszener en 01 de Agosto de 2005, 16:54:00
Suerte!!! :wink:
Publicado por: vszener en 02 de Agosto de 2005, 16:07:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 9/julio/04
;Programa: Iluminacion de 8 Led"s de izquierda a derecha
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: TABLA: Contiene el led que debe encenderse
; D0: Registro almacena la constante de retardo
; A0: Direccion que apunta a la tabla
; RET: Constante interna del programa cuya funcion es suministrar el retardo
;
;Notas: Subrutina delay: Se le introduce un retardo para que se vea el desplazamiento
; de los led"s
;
;Resumen: Programa que enciende led de izquierda a derecha
;-------------------------------------------------------------------------------------------
org $400 ;inicio del programa
*****VARIABLES*****************
tabla dc.b %10000000 ;Led 0 on: A0=$400 ->inicio de tabla
dc.b %01000000 ;Led 1 on: A0=$401
dc.b %00100000 ;Led 2 on: A0=$402
dc.b %00010000 ;Led 3 on: A0=$403
dc.b %00001000 ;Led 4 on: A0=$404
dc.b %00000100 ;Led 5 on: A0=$405
dc.b %00000010 ;Led 6 on: A0=$406
dc.b %00000001 ;Led 7 on: A0=$407 ->fin de tabla
RET equ $FFFFF ;constante de retardo
*****PROGRAMA******************
main lea TABLA,A0 ;carga direccion de tabla en A0
loop move.b (A0)+,$E003 ;carga e ilumina led correspondiente e incrementa direccion de A0
BSR delay ;salta a subrutina delay
CMP #$407,A0 ;¿fin de tabla?
BLS loop ;no es fin de tabla ->ve a loop
BRA main ;si es fin de tabla ->ve a main
*****RETARDO*******************
delay move.l #RET,D0 ;carga constante de retardo en registro D0
loop1 sub.l #1,D0 ;D0=D0-1
TST.l D0 ;¿D0==0?
BNE loop1 ;no es igual a cero ->ve a loop1
rts ;si es cero ->fin de subrutina
******************************
end main ;fin programa
Esto como siempre el copia y pega sale las cosas descentradas...lo subire al almacen y ya os avisare jeje a seguirrr y haber si alguien mas se animaa que voy a coger complejo de monopolista jeje
Publicado por: vszener en 03 de Agosto de 2005, 13:12:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 9/julio/04
;Programa: Iluminacion de 8 Led"s de derecha a izquierda y viceversa
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: TABLA: Contiene el led que debe encenderse
; D0: Registro almacena la constante de retardo
; A0: Direccion que apunta a la tabla
; RET: Constante interna del programa cuya funcion es suministrar el retardo
;
;Notas: Subrutina delay: Se le introduce un retardo para que se vea el desplazamiento
; de los led"s
;
;Resumen: Programa que enciende led de derecha a izquierda viceversa(Coche fantastico)
;-------------------------------------------------------------------------------------------
org $400 ;inicio del programa
******VARIABLES****************
TABLA dc.b %00000001 ;Led 0 on: A0=$400 ->inicio de tabla
dc.b %00000010 ;Led 1 on: A0=$401
dc.b %00000100 ;Led 2 on: A0=$402
dc.b %00001000 ;Led 3 on: A0=$403
dc.b %00010000 ;Led 4 on: A0=$404
dc.b %00100000 ;Led 5 on: A0=$405
dc.b %01000000 ;Led 6 on: A0=$406
dc.b %10000000 ;Led 7 on: A0=$407 ->fin de tabla
RET equ $FFFFF ;constante de retardo
******PROGRAMA*****************
main lea TABLA,A0 ;carga direccion de la tabla en A0
loop move.b (A0)+,$E003 ;carga e ilumina el LED"S correspondiente e incrementa direccion A0
bsr delay ;salta a subrutina delay
CMP #$407,A0 ;¿es el final de la tabla?
BLS loop ;no es el final ->ve a loop
*******FIN DE TABLA************ ;ilumina led"s de izquierda a derecha
lop1 move.b -(A0),$E003 ;decrementa direccion A0 y carga e ilumina el correspondiente LED"S
bsr delay ;salta a subrutina delay
CMP #$400,A0 ;¿es el principio de la tabla?
BHI lop1 ;no es el principio ->ve a lop1
BRA loop ;si es el principio ->ve a loop
*******RETARDO*****************
delay move.l #RET,D0 ;carga la constante de retardo en registro D0
lop2 sub.l #1,D0 ;D0=D0-1
TST.l D0 ;¿D0==0?
BNE lop2 ;no es igual a cero ->ve a lop2
rts ;si es igual a cero ->fin de subrutina
*******************************
end main
Esta programado tb con tablas la direcciones de los led"s a iluminar, como dije en el anterior ejemplo se puede programar sin tablas por lo tanto ahorra memoria...ya pondre la programacion sin tabla, de momento asi pokito a poko iremos progresando a mass....a seguir programando!!!
Publicado por: vszener en 05 de Agosto de 2005, 13:16:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 14/julio/04
;Programa: Desplazamiento led"s de derecha a izquierda y viceversa sin tabla(coche fantastico)
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: D0: Registro encargado almacenar led encendido
; D1: Registro encargado almacenar constante de retardo
; RET: Constante interna del programa cuya funcion es suministrar el retardo
;
;Notas: Subrutina delay: Genera un retardo para poder visualizar los led"s
;
;
;Resumen: Programa que enciende 7 led"s de derecha a izquierda y viceversa sin tabla
;-------------------------------------------------------------------------------------------
org $400 ;inicio programa
*****VARIABLES*****************
RET equ $FFFFF ;constante de retardo
*******************************
main move.b #%00000001,D0 ;cargo primer led se va encender en registro D0
loop move.b D0,$E003 ;enciende led correspondiente
BSR delay ;ve a subrutina delay
asl #1,D0 ;desplazamiento hacia izquierda del bit 1(led on)
CMP #$100,D0 ;¿es el led 7 on? fin de led"s $100=000100000000 fin led"s
BEQ izqu ;si es led 7 ->ve a izqu
BNE loop ;no es led 7 ->ve a loop
*****IZQU->DERECHA*************
izqu asr #1,D0 ;desplazamiento hacia derecha del bit 1(led on)
move.b D0,$E003 ;enciende led correspondiente
BSR delay ;ve a subrutina delay
CMP #$1,D0 ;¿es el led 1 on? principio de led"s $1=00000001
BEQ loop ;si es led 1 ->ve a loop
BNE izqu ;no es led 1 ->ve a izqu
*****SUBRUTINA DELAY***********
delay move.l #RET,D1 ;D1=RET
loop1 sub.l #1,D1 ;D1=D1-1
TST.l D1 ;¿D1==0?
BNE loop1 ;no es cero ->ve aloop1
rts ;si es cero ->fin de subrutina
*******************************
end main ;fin programa
A seguir programando!!!
Publicado por: vszener en 06 de Agosto de 2005, 13:35:00
1º. Iluminacion led"s simulando colorido coche fantastico(sin tablas)
2º. Iluminacion led"s simulando colorido coche fantastico(con tablas)
3º. Iluminacion de led"s derecha a izquierda
:wink:
Publicado por: vszener en 06 de Agosto de 2005, 13:38:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 9/julio/04
;Programa: Iluminacion de 8 Led"s de los extremos de fuera hacia dentro y viceversa
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: TABLA: Contiene el led que debe encenderse
; D0: Registro almacena la constante de retardo
; A0: Direccion que apunta a la tabla
; RET: Constante interna del programa cuya funcion es suministrar el retardo
;
;Notas: Subrutina delay: Se le introduce un retardo para que se vea el desplazamiento
; de los led"s
;
;Resumen: Programa que enciende led de fuera a dentro y viceversa
;-------------------------------------------------------------------------------------------
org $400 ;inicio del programa
*****VARIABLES*****************
TABLA dc.b %10000001 ;Led"s 7y0 on: A0=$400 ->inicio de tabla
dc.b %01000010 ;Led"s 6y1 on: A0=$401
dc.b %00100100 ;Led"s 5y2 on: A0=$402
dc.b %00011000 ;Led"s 4y3 on: A0=$403 ->fin de tabla
RET equ $FFFFF ;constante de retardo
*****PROGRAMA******************
main lea TABLA,A0 ;carga direccion de tabla en A0
loop move.b (A0)+,$E003 ;carga e ilumina led correspondiente e incrementa direccion de A0
BSR delay ;salta a subrutina delay
CMP #$403,A0 ;¿fin de tabla?
BLS loop ;no es fin de tabla ->ve a loop
*****FIN TABLA***************** ;mueve los led"s en sentido contrario
lop1 move.b -(A0),$E003 ;decrementa direccion de A0 y carga e ilumina led correspondiente
BSR delay ;salto a subrutina delay
CMP #$400,A0 ;¿principio de tabla?
BHI lop1 ;no es principio tabla ->ve a lop1
BRA loop ;si es principio tabla ->ve a loop
*****RETARDO*******************
delay move.l #RET,D0 ;carga constante de retardo en D0
loop2 sub.l #1,D0 ;D0=D0-1
TST.l D0 ;¿D0==0?
BNE loop2 ;no es igual a cero ->ve a loop2
rts ;si es cero ->fin subrutina
*******************************
end main ;fin programa
Sin prisas pero sin pausa!!!
Publicado por: vszener en 07 de Agosto de 2005, 11:15:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 9/julio/04
;Programa: Iluminacion de 8 Led"s correlativamente
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: D0: Registro encargado iluminar led"s
; D1: Registro encargado almacenar cosntante de retardo
; RET: Constante interna del programa cuya funcion es suministrar el retardo
;
;Notas: Subrutina delay: Se le introduce un retardo para que se vea el desplazamiento
; de los led"s
;
;Resumen: Programa que enciende led"s correlativamente
;-------------------------------------------------------------------------------------------
org $400 ;inicio programa
*****VARIABLES*****************
RET equ $FFFFF ;constante de retardo
*****PROGRAMA******************
main move.b #0,D0 ;D0=0
loop move.b D0,$E003 ;carga e ilumina el correspondiente led
BSR delay ;salto a subrutina delay
add.b #1,D0 ;D0=D0+1
CMP #$0,D0 ;¿estan todos los led"s encendidios?
BHI loop ;no estan todos encendidios ->ve a loop
BRA main ;si estan todos encendidos ->ve a main
*****RETARDO*******************
delay move.l #RET,D1 ;cargo constante de retardo en D1
loop1 sub.l #1,D1 ;D1=D1-1
TST.l D1 ;¿D1==0?
BNE loop1 ;no es igual a cero ->ve a loop1
rts ;si es igual a cero ->fin de subrutina
*******************************
end main ;fin de programa
Seguimos en contacto, corto y cambio!!!
Publicado por: vszener en 10 de Agosto de 2005, 13:20:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 16/julio/04
;Programa: Led"s y switches
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: D0: Registro encargado almacenar led a encender
;
;
;Resumen: Programa que enciende led correspondiente al switch seleccionado
;-------------------------------------------------------------------------------------------
org $400 ;inicio programa
*****VARIABLES******************
SWITCH equ $E001 ;direccion de los switches
LED equ $E003 ;direccion de los led"s
*****PROGRAMA*******************
main move.b SWITCH,D0 ;carga contenido switch en D0(activado=1 ; desactivado=0)
move.b D0,LED ;enciende led correspondiente a los switches activados
BRA main ;ve a main
end main ;fin programa
Pokito a poko vamos programando!!!
Publicado por: vszener en 10 de Agosto de 2005, 13:28:00
Publicado por: vszener en 11 de Agosto de 2005, 12:59:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 16/julio/04
;Programa: Switch y 7 segmentos
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: D0: Registro encargado almacenar direccion de switch
; A0: Almacena direccion de tabla e ilumina 1º 7 segmentos
; A1: Almacena direccion de tabla e ilumina 2º 7 segmentos
; A2: Almacena direccion de tabla e ilumina 3º 7 segmentos
; A3: Almacena direccion de tabla e ilumina 4º 7 segmentos
;
;Resumen: Programa que enciende 7 segmento adecuado segun switch y lo incrementa de 0-9
; Solo estan activos los 4 switch de 0-3, del 4-7 no actuan
;-------------------------------------------------------------------------------------------
org $400 ;inicio programa
*****VARIABLES*************************
TABLA dc.b %00111111 ;0 on: A0=$400 ->inicio tabla
dc.b %00000110 ;1 on: A0=$401
dc.b %01011011 ;2 on: A0=$402
dc.b %01001111 ;3 on: A0=$403
dc.b %01100110 ;4 on: A0=$404
dc.b %01101101 ;5 on: A0=$405
dc.b %01111101 ;6 on: A0=$406
dc.b %00000111 ;7 on: A0=$407
dc.b %01111111 ;8 on: A0=$408
dc.b %01100111 ;9 on: A0=$409 ->fin tabla
SWITCH equ $E001 ;direccion efectiva de los switches
*****PROGRAMA**************************
main move.b #%00111111,$E017 ;ilumino 0 en 1º 7 segmentos
lea TABLA+1,A0 ;cargo direccion segunda TABLA en A0(carga 2º direccion ya que esta iluminado 0)
move.b #%00111111,$E015 ;ilumino 0 en 2º 7 segmentos
lea TABLA+1,A1 ;cargo direccion segunda TABLA en A1(carga 2º direccion ya que esta iluminado 0)
move.b #%00111111,$E013 ;ilumino 0 en 3º 7 segmentos
lea TABLA+1,A2 ;cargo direccion segunda TABLA en A2(carga 2º direccion ya que esta iluminado 0)
move.b #%00111111,$E011 ;ilumino 0 en 4º 7 segmentos
lea TABLA+1,A3 ;cargo direccion segunda TABLA en A3(carga 2º direccion ya que esta iluminado 0)
progr move.b SWITCH,D0 ;cargo direccion de SWITCH en registro D0
CMP #%00000001,D0 ;¿primer switch on?
BNE second ;no ->ve a second
move.b (A0)+,$E017 ;si ->ilumina numero correspondiente en 1º 7 seg e incrementa direccion A0
clr.b D0 ;reset D0
clr.b SWITCH ;reset SWITCH
CMP #$40A,A0 ;¿A0 esta en fin TABLA?
BEQ uno ;si ->ve a uno
BRA progr ;no ->ve a progr
*****SEGUNDO 7 SEGMENTOS***************
second CMP #%00000010,D0 ;¿segundo switch on?
BNE third ;no ->ve a third
move.b (A1)+,$E015 ;si ->ilumina numero correspondiente en 2º 7 seg e incrementa direccion A1
clr.b D0 ;reset D0
clr.b SWITCH ;reset SWITCH
CMP #$40A,A1 ;¿A1 esta en fin TABLA?
BEQ dos ;si ->ve a dos
BRA progr ;no ->ve a progr
*****TERCER 7 SEGMENTOS****************
third CMP #%00000100,D0 ;¿tercer switch on?
BNE four ;no ->ve a four
move.b (A2)+,$E013 ;si ->ilumina numero correspondiente en 3º 7 seg e incrementa direccion A2
clr.b D0 ;reset D0
clr.b SWITCH ;reset SWITCH
CMP #$40A,A2 ;¿A2 esta en fin TABLA?
BEQ tres ;si ->ve a tres
BRA progr ;no ->ve a progr
*****CUARTO 7 SEGMENTOS****************
four CMP #%00001000,D0 ;¿cuarto switch on?
BNE five ;no ->ve a five
move.b (A3)+,$E011 ;si ->ilumina numero correspondiente en 4º 7 seg e incrementa direccion A3
clr.b D0 ;reset D0
clr.b SWITCH ;reset SWITCH
CMP #$40A,A3 ;¿A3 esta en fin TABLA?
BEQ cuatro ;si ->ve a cuatro
five BRA progr ;no ->ve a prog
*****SUBRUTINAS************************
uno BSR loop ;ve a subrutina uno
BRA progr ;ve a progr
dos BSR loop1 ;ve a subrutina dos
BRA progr ;ve a progr
tres BSR loop2 ;ve a subrutina tres
BRA progr ;ve a progr
cuatro BSR loop3 ;ve a subrutina cuatro
BRA progr ;ve a progr
loop lea TABLA,A0 ;carga direccion TABLA en A0(actualiza A0)
rts ;fin subrutina uno
loop1 lea TABLA,A1 ;carga direccion TABLA en A1(actualiza A1)
rts ;fin subrutina dos
loop2 lea TABLA,A2 ;carga direccion TABLA en A2(actualiza A2)
rts ;fin subrutina tres
loop3 lea TABLA,A3 ;carga direccion TABLA en A3(actualiza A3)
rts ;fin subrutina cuatro
***************************************
end main ;fin programa
Hasta el siguiente ejemplito!!!
Publicado por: vszener en 12 de Agosto de 2005, 13:06:00
;-------------------------------------------------------------------------------------------
; VsZeNeR"04 12/julio/04
;Programa: Contador
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: D0: Registro encargado almacenar constante de retardo
; D1: Registro encargado de ser contador de retardo
; RET: Constante interna del programa cuya funcion es suministrar el retardo
; A0: Almacena direccion de tabla e ilumina 1º 7 segmentos
; A1: Almacena direccion de tabla e ilumina 2º 7 segmentos
; A2: Almacena direccion de tabla e ilumina 3º 7 segmentos
; A3: Almacena direccion de tabla e ilumina 4º 7 segmentos
;
;Notas: Subrutina delay: Retardo de un segundo
;
;
;Resumen: Programa que cuenta de forma ascendente numeros del 0000-9999
;-------------------------------------------------------------------------------------------
org $400 ;inicio de programa
*****VARIABLES*************************
TABLA dc.b %00111111 ;0 on: A0=$400
dc.b %00000110 ;1 on: A0=$401
dc.b %01011011 ;2 on: A0=$402
dc.b %01001111 ;3 on: A0=$403
dc.b %01100110 ;4 on: A0=$404
dc.b %01101101 ;5 on: A0=$405
dc.b %01111101 ;6 on: A0=$406
dc.b %00000111 ;7 on: A0=$407
dc.b %01111111 ;8 on: A0=$408
dc.b %01100111 ;9 on: A0=$409
RET equ $FFFFF ;constante de retardo
*****PROGRAMA**************************
main move.b #%00111111,$E015 ;0 on en 2º 7seg
move.b #%00111111,$E013 ;0 on en 3º 7seg
move.b #%00111111,$E011 ;0 on en 4º 7seg
lea TABLA+1,A3 ;carga segunda direccion tabla en A3.Segunda direccion porque el 0 ya esta encendido
ini2 lea TABLA+1,A2 ;carga segunda direccion tabla en A2.Segunda direccion porque el 0 ya esta encendido
ini1 lea TABLA+1,A1 ;carga segunda direccion tabla en A1.Segunda direccion porque el 0 ya esta encendido
ini0 lea TABLA,A0 ;carga direccion de tabla en A0
*****PRIMER 7 SEGMENTOS****************
loop move.b (A0)+,$E017 ;ilumina numero correspondiente en 1º 7seg e incrementa direccion A0
BSR delay ;salta subrutina delay
CMP #$40A,A0 ;¿A0 esta en fin de tabla??
BNE loop ;no es fin tabla ->ve a loop
BEQ next ;si es fin tabla ->ve a next ->2º 7 segmentos
*****SEGUNDO 7 SEGMENTOS***************
next CMP #$40A,A1 ;¿A1 esta en fin de tabla?
BNE loop1 ;no es fin tabla ->ve a loop1
BEQ next1 ;si es fin tabla ->ve a next1 ->3º 7 segmentos
loop1 move.b (A1)+,$E015 ;ilumina numero correspondiente e incrementa A1
BRA ini0 ;ve a ini0
*****TERCER 7 SEGMENTOS****************
next1 move.b #%00111111,$E015 ;0 on en 2º 7 segmentos
CMP #$40A,A2 ;¿A2 esta en fin de tabla?
BNE loop2 ;no es fin tabla ->ve a loop2
BEQ next2 ;si es fin tabla ->ve a next2 ->4º 7 segmentos
loop2 move.b (A2)+,$E013 ;ilumina numero correspondiente e incrementa A2
BRA ini1 ;ve a ini1
*****CUARTO 7 SEGMENTOS****************
next2 move.b #%00111111,$E013 ;0 on en 3º 7 segmentos
CMP #$40A,A3 ;¿A3 esta en fin de tabla?
BNE loop3 ;no es fin tabla ->ve a loop3
BEQ main ;si es fin tabla ->ve a main ->no hay mas 7 segmentos
loop3 move.b (A3)+,$E011 ;ilumina numero correspondiente e incrementa A3
BRA ini2 ;ve a ini2
*****RETARDO DE 1SEG***********
delay move.b #0,D1 ;D1=0: contador para conseguir un retardo de un segundo
loop4 move.l #RET,D0 ;D0=RET
add.b #1,D1 ;D1=D1+1
loop5 sub.l #1,D0 ;D0=D0-1
TST.l D0 ;¿D0==0?
BNE loop5 ;no es igual a cero ->ve a loop5
CMP #4,D1 ;¿es un segundo?Para que sea un segundo D1=4
BNE loop4 ;no es un segundo ->ve a loop4
rts ;si es un segundo ->fin de subrutina
*******************************
end main ;fin programa
Nos vemos en el siguiente ejemplito!!!
Publicado por: xootraoox en 13 de Agosto de 2005, 03:22:00
bueno sin mas que decir te felicito por la iniciativa que has tomado y a la ves te pido que no pares ya que de verdad que es de utilidad este material....
despide
-==XooTRAooX==-
Publicado por: vszener en 13 de Agosto de 2005, 14:51:00
-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
El programa Slider & Bar
Código: ASM
- ;---------------------------------------------------------
- ; VsZeNeR'05
- ; 14/Agosto/05
- ;Programa: Slider & Led's
- ;Simulador MC68000: IDE68K(vs1.35)
- ;
- ;Entrada: Slider
- ;Salida: Led's
- ;
- ;Resumen: Programa que maneja el Slider y se refleja Led's
- ;---------------------------------------------------------
- org $400 ;inicio programa
- SLIDER equ $E005 ;etiqueta direccion slider
- BAR equ $E007 ;etiqueta direccion Bar
- main move.b SLIDER,BAR ;mueve contenido del slider a Bar display
- bra main ;vuelve a main (bucle infinito)
- end main
Suerte!!! :wink:
Publicado por: vszener en 13 de Agosto de 2005, 15:11:00
1º.Switch y 7 segmentos
2º.Contador
3º.Slider & Bar
Suerte!!! :wink:
Publicado por: vszener en 14 de Agosto de 2005, 08:41:00
1º. Arrancar el programa 68000 IDE
2º. Escribimos el programa y le damos al iconito del disco para guardar el programa
Arriba saldra al lado de 68000 el nombre que le hemos puesto al programa
3º.Compilar: para ello pulsamos el iconito que tiene cruzado un martillo y otra cosa que no se que es jeje Vamos en la ilera de iconitos el priemro de los 4 ultimos
De todas formas pasad el puntero del raton sobre los iconitos y saldra su nombre(asamble/buil all) es para compilar
4º. Simularlo: Para ello pulsamos el iconito que esta al lado del icono de compilar, es una lupa con rayitas amarillas chicas en la mitad del icono(Run visual simulator)
5º. Perifericos: Seleccionamos los perifericos que programamos, para ello en el menu pinchamos peripherals y alli seleccionamos los perifericos, en este caso slider y bar display
6º Simulamos el programa para ello pulsamos la flecha grande verde que apunta hacia abajo
Si queremos simularlo paso a paso la primera flecha verde
Si queremos simularlo despacio la segunda flecha verde
Bueno, esta es la pekeñita introduccion a manejar el simulador, ya explicare como crear proyectos y compilar en alto nivel como c y demas cositas, espero que me explicara bien jeje!!! ya nadie tiene excusa de utilizar el programa y hacer algun que otro ejemplito ennn jeje
Publicado por: xootraoox en 14 de Agosto de 2005, 08:50:00
el hardware necesario para trabajar con el ya mencionado es muy complicado??
la verdad es que no he leido nada aun sobre el pero quisiera tener una referencia para ver si es que puedo empezar a experimentar con el.....
es posible armarlo por uno mismo
o solo basta con un simple programador como es en el caso de los hc08 (MON08)
bueno espero todo el desarrollo sea tan accequible como con otros micros lo es
despide nuevamente
-==XooTRAooX==-
Publicado por: vszener en 14 de Agosto de 2005, 09:23:00
PD: Aunque creo que existen programadores para este dispositivo e incluso los venden...haber si encuentro algo y te comento.
Publicado por: vszener en 14 de Agosto de 2005, 09:30:00
;---------------------------------------------------------
; VsZeNeR"05
; 14/Agosto/05
;Programa: Slider & Led"s
;Simulador MC68000: IDE68K(vs1.35)
;
;Entrada: Slider
;Salida: Led"s
;
;Resumen: Programa que maneja el Slider y se refleja Led"s
;---------------------------------------------------------
org $400 ;inicio programa
SLIDER equ $E005 ;etiqueta direccion slider
LED equ $E003 ;etiqueta direccion led
main move.b SLIDER,LED ;mueve contenido del slider a led
bra main ;vuelve a main (bucle infinito)
end main
Hasta la proxima!!!
Publicado por: xootraoox en 14 de Agosto de 2005, 09:36:00
desde ya en todo caso se agradece el aorte que estas haciendo `para esta gran comunidad
Publicado por: Modulay en 08 de Septiembre de 2005, 19:22:00
Codigo:
FUNCION2 LEA INICIO_CADENA,A0
MOVE.L #$10,D0
B_REPRE CMPI.B #$0D,(A0)
DBEQ D0,B_R
SUBI.L #1,D0
.
.
.
B_R MOVE.B (A0)+,CODIGO
.
.
.
RTS
A mi entender,las condiciones para saltar a B_R son que D0 sea distinto de 0 y que el byte apuntado por A0 sea distinto de $0D.En el momento en que alguna de las dos ya no se cumpla,no se produce el salto.Pues bien,lo he simulado y no hace eso ni por asomo
Publicado por: vszener en 17 de Septiembre de 2005, 18:02:00
Publicado por: Modulay en 17 de Septiembre de 2005, 19:15:00
A ver,antes de entrar a decrementar D0,comprueba el contenido de A0.Si éste fuera $0D se produciría el salto al primer paso por el DBEQ ¿no?.Si dicha comparación no provoca el salto sería la llegada de D0 a 0 quien lo provocaría ¿no?
Hay una cosa que sigo sin entender.Se supone que estos saltos condicionales se basan en el estado del bit Z.Si tras la comparación del registro A0,este bit se pusiera a 1...¿que pasaría al ejecutar DBEQ? ¿se comprobaría en primera instancia el contenido de Z y se realizaría el salto sin decrementar D0? ¿se decrementaría pero no se comprobaría si ha llegado a 0?
Lo digo pq se me antoja la posibilidad de machacar el resultado de la primera comprobacion con el obtenido en la segunda y basarse unicamente en el valor de D0 para realizar o no el salto
Publicado por: Nocturno en 19 de Septiembre de 2005, 03:57:00
Publicado por: vszener en 19 de Septiembre de 2005, 17:44:00
Codigo:
CMPI.B #$0D,(A0)
DBEQ D0,B_R
debajito del COMPI.B debes poner el salto a realizar es decir si quieres que salte si es cero a la siguiente instruccion debes poner BEQ sig
Codigo:
CMPI.B #$0D,(A0)
BEQ sig
BNE sig_out
sig DBEQ D0,B_R
sig_out .....
Es decir, debes especificar los saltos, aqui te puedes descargar las instrucciones resumidas:
http://miarroba.com/foros/ver.php?foroid=348538&temaid=3442593
Vamos para hacer el codigo mas optimo seria algo asi asi:
Codigo:
CMPI.B #$0D,(A0)
BNE sig_out
DBEQ D0,B_R
........
sig_out .....
Mejor asi que ir comprobando el bit Z del CCR....recordar que el bit Z se pone a 1 cuando el resultado de una operacion o de una transferencia(MOVE) es CERO.
Publicado por: pocher en 21 de Septiembre de 2005, 02:50:00
A mí me interesaría tocarlo, solo una pregunta. ¿has probado a simular los programas en PROTEUS?
Un saludo
Publicado por: vszener en 21 de Septiembre de 2005, 05:22:00
Publicado por: Modulay en 21 de Septiembre de 2005, 13:55:00
vszener,pues el código tal y como yo lo puse está sacado de un exámen.La cuestión debe estar en cual es la secuencia que sigue DBEQ a nivel de microinstrucción
Publicado por: vszener en 21 de Septiembre de 2005, 14:41:00
Codigo:
1. Comprueba la condicion cc.Si se cumple, pasa a ejecutar la instruccion siguiente(secuencia normal del programa en si), en el caso de estar en un bucle se saldria del mismo.
2. Decrementa el contenido del registro de datos.
3. Si el contenido del registro es -1, como en el paso 1. , se ejecuta la instruccion siguiente(salida del bucle en caso de estar realizando uno).
4. Modifica el PC con el desplazamiento indicado(Salta al comienzo del bucle).
Ese es el funcionamiento de la instruccion DBcc.....
Publicado por: Modulay en 24 de Septiembre de 2005, 14:02:00
http://www.ieev.uma.es/sisdig/transparencias.htm
Publicado por: vszener en 03 de Diciembre de 2005, 07:22:00
http://www.depeca.uah.es/wwwnueva/docencia/ING-TELECO/ised/
PD: Ya volveremos pronto con cositas nuevas....
Publicado por: vszener en 05 de Febrero de 2006, 11:25:00
Codigo:
vs_DImensionVector -> Calcula la dimension del vector
vs_ElementoMayorVector -> Calcula el elemento mayor de un vector
vs_ElementoMayorVector2 ->Implica las dos subrutinas anteriores en una
Suerte!!!
Publicado por: vszener en 15 de Julio de 2006, 10:05:24
Suerte!!! :wink:
Publicado por: pelusac en 09 de Agosto de 2006, 15:05:54
Un saludo.
Publicado por: juaperser1 en 31 de Octubre de 2015, 07:10:32
¿Eres profesor, o alumno?
¿ cuanto hace que estudiaste allí? Si es que lo hiciste.
Yo soy Juan Jose Perales, alumno interno del departamento por 3 años, y uno de los que daba clases en la asignatura de libre configuración y también club de microrobotica.
Quiza nos conocemos. :D :D
Publicado por: vszener en 01 de Noviembre de 2015, 17:19:21
Estudié allí en la época en las que colgué los ejercicios ( me ayudaban a entender la materia mejor ).
Me alegra saber que hay compañeros de la politécnica en el foro,
Un saludo ;)
Publicado por: juaperser1 en 01 de Noviembre de 2015, 17:27:13
Citar
Buenas Juan José:
Estudié allí en la época en las que colgué los ejercicios ( me ayudaban a entender la materia mejor ).
Me alegra saber que hay compañeros de la politécnica en el foro,
Un saludo ;)
sabes que han pasado 10 años y siguen con los mismos ejercicios y los motorola esos? :D :D ya no saben de donde sacar piezas para arreglarlos
Publicado por: vszener en 01 de Noviembre de 2015, 17:38:59
Que recuerdos... estas Navidades tengo que pasarme para recoger el titulo, a ver si me paso por los laboratorios.
Lo dicho, me alegra muchísimo saber que hay compañeros de la escuela.
Un saludo!
Publicado por: juaperser1 en 01 de Noviembre de 2015, 17:45:19
Citar
Jeje, espero que tanto Ariel como Barbancho ya sepan manejar bien el simulador...
Que recuerdos... estas Navidades tengo que pasarme para recoger el titulo, a ver si me paso por los laboratorios.
Lo dicho, me alegra muchísimo saber que hay compañeros de la escuela.
Un saludo!
Si te pasas por la escuela, hecharás en falta a uno de los pocos que se preocupaban por los alumnos, y no hablo de un profesor, el jefe de taller Juan Membrilla que me enseño mas que los profesores en varias cosas y a usar la maquina cnc, murio de cancer hace un tiempo :( :(
Citar
Lo dicho, me alegra muchísimo saber que hay compañeros de la escuela.
lo mismo digo, de Sevilla hay aqui bastante gente :D :D, o por lo menos que vivamos en Sevilla
Publicado por: osbox en 30 de Enero de 2024, 20:35:37