Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

jltursan
Mensajes: 2197
Registrado: 20 Sep 2011 13:59
Agradecido : 101 veces
Agradecimiento recibido: 270 veces

Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor jltursan » 16 Jun 2017 19:11

Os dejo un artículo interesante de la revista I/O del que al menos, el listado ensamblador es fácilmente reciclable y educativo :-)

Avatar de Usuario
minter
Mensajes: 1806
Registrado: 22 Jul 2014 18:51
Agradecido : 1168 veces
Agradecimiento recibido: 494 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor minter » 16 Jun 2017 20:28

Estaría bien que los listados de la I/O estuviera en disco para no tener que picar todo el ensamblador.
El fin de semana no sé si tendré tiempo a pasar el OCR e intentar corregir. Hoy seguro que no.

Avatar de Usuario
minter
Mensajes: 1806
Registrado: 22 Jul 2014 18:51
Agradecido : 1168 veces
Agradecimiento recibido: 494 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor minter » 19 Jun 2017 23:03

como el OCR entiende como el culo el escaneo, espero tener mañana el código ensamblador picando lo a mano.
y si me da tiempo, sigo picando el basic.

Avatar de Usuario
minter
Mensajes: 1806
Registrado: 22 Jul 2014 18:51
Agradecido : 1168 veces
Agradecimiento recibido: 494 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor minter » 20 Jun 2017 14:57

Bueno,

Pues ya he picado la parte del listado en ensamblador.
A ver si entre estos dos días termino en el BASIC e intento compilarlo y probarlo.
Cuelgo el ensamblador, por si alguien quiere compilarlo antes por si le genera algún error.
Adjuntos
YAMAUCHI.rar
Codigo máquina Yamauchi HLINE
(3.09 KiB) Descargado 13 veces

jltursan
Mensajes: 2197
Registrado: 20 Sep 2011 13:59
Agradecido : 101 veces
Agradecimiento recibido: 270 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor jltursan » 20 Jun 2017 19:20

¡Currazo, muchas gracias!

Avatar de Usuario
minter
Mensajes: 1806
Registrado: 22 Jul 2014 18:51
Agradecido : 1168 veces
Agradecimiento recibido: 494 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor minter » 21 Jun 2017 10:58

Buenas,

Ya he picado el programa de ejemplo de BASIC.
Está sin comprobar los errores.
Ahí lo tenemos.

Código: Seleccionar todo

100 REM HIGH SPEED DEMO
110 REM FOR FM-7
120 REM BY (REVISTA I/O)
130 REM +++++++++++++++++
200 WIDTH 40,20: FOR I=0 TO 7: COLOR=(I,I):NEXT:DEFINT A-Z
210 LOCATE 12,10:PRINT"F-BASIC LINE"
220 FOR I=1 TO 7000: NEXT
230 CL1=3:CL2=4:CL3=2:CL4=6:GOSUB 260
240 CL1=0:CL2=0:CL3=0:CL4=0:GOSUB 260
250 GOTO 400
260 FOR X=20 TO 300 STEP 10:LINE (X,10)-(320-X,90),PSET,CL1:NEXT
270 FOR Y=14 TO 89 STEP 4:LINE (20,100-Y)-(300,Y),PSET,CL1:NEXT
280 FOR X=340 TO 620 STEP 10: LINE (X,10)-(960-X,90),PSET,CL2:NEXT
290 FOR Y=14 TO 89 STEP 4:LINE (340,100-Y)-(620,Y).PSET,CL2:NEXT
300 FOR X=20 TO 300 STEP 10:LINE(X,110)-(320-X,190),PSET,CL3:NEXT
310 FOR Y=114 TO 189 STEP 4:LINE (20,300-Y)-(300,Y),PSET,CL3:NEXT
320 FOR X=340 TO 620 STEP 10: LINE (X,110)-(960-X,190),PSET,CL4:NEXT
330 FOR Y=114 TO 189 STEP 4: LINE (340,300-Y)-(620,Y),PSET,CL4:NEXT
340 RETURN
350 REM
400 CLS:LOCATE 12,10:PRINT "HIGH SPEED LINE"
410 FOR I=1 TO 9000:NEXT
420 CL2=0:CL3=0:CL4=0
430 CL1=3:GOSUB 500:CL2=4:GOSUB 500:CL3=2:GOSUB 500:CL4=6:GOSUB 500
460 C=2
470 FOR I=1 TO 6:C=C MOD 8+3:CLI=C:CL2=C+1:CL3=C+2:CL4=C+3:GOSUB 630:NEXT
475 C=10
480 FOR I=1 TO 6:C=C MOD 8+3:CL1=C:CL2=C+1:CL3=C+2:CL4=C+3:GOSUB 630:NEXT
490 CL1=0:CL2=0:CL3=0:CL4=0:GOSUB 630:GOTO 800
500 FOR X= 0 TO 280 STEP 10
510 HLINE (20+X,10)-(300-X,90),CL1
520 HLINE (340+X,10)-(620-X,90),CL2
530 HLINE (20+X,110)-(300-X,190),CL3
540 HLINE (340+X,110)-(620-X,190),CL4
550 NEXT
560 FOR Y=4 TO 79 STEP 4
570 HLINE(20,90-Y)-(300,10+Y),CL1
580 HLINE(340,90-Y)-(620,10+Y),CL2
590 HLINE(20,190-Y)-(300,110+Y),CL3
600 HLINE (340,190-Y)-(620,110+Y),CL4
610 NEXT
620 RETURN
630 FOR X=20 TO 300 STEP 10:HLINE (X,10)-(320-X,90),CL1:NEXT
640 FOR Y=14 TO 89 STEP 4:HLINE (20,100-Y)-(300,Y),CL1:NEXT
650 FOR X=340 TO 620 STEP 10:HLINE (X,10)-(960-X,90):CL2:NEXT
660 FOR Y=14 TO 89 STEP 4:HLINE (340,100-Y)-(620,Y),CL2:NEXT
670 FOR X=20 TO 300 STEP 10:HLINE (X,110)-(320-X,190),CL3:NEXT
680 FOR Y=114 TO 189 STEP 4:HLINE (20,300-Y)-(300,Y),CL3:NEXT
690 FOR X=340 TO 620 STEP 10:HLINE (X,110)-(960-X,190),CL4:NEXT
700 FOR Y=114 TO 189 STEP 4: HLINE (340,300-Y)-(620,Y),CL4:NEXT
710 RETURN
720 REM
800 LOCATE 12,10:PRINT SPACE$(16)
810 LOCATE 12,3:PRINT"HIGH SPEED LINE"
820 C=1: FOR I=1 TO 21:C=C MOD 8+3:GOSUB 900:NEXT
830 GOTO 100
900 FOR XY=0 TO 240 STEP 15: HLINE (XY+200,50)-(440,50+XY/2.4),C:NEXT
910 FOR XY=225 TO 0 STEP -15:HLINE (XY+200, 150)-(440,150-XY/2.4),C:NEXT
920 FOR XY=225 TO 0 STEP -15:HLINE (XY+200,150)-(200,50+XY/2.4),C:NEXT
930 FOR XY=15 TO 225 STEP 15:HLINE (XY+200,50)-(200,150-XY/2.4),C:NEXT
940 RETURN


Y ahora... ¿como compilamos esto y lo metemos en el FM-7? -nb

Nota: he actualizado el código en ensamblador, que no le había puesto el origen al archivo. Empieza en el $7000. Ahora ya lo tiene puesto.

¿Con que se compila esto?
Voy a intentar compilarlo con el programa de malikto999, a ver si puedo pasarlo a código Motorola y luego pasarlo con el Dmanager.

PD: Me da una pila de errores de padre y muy señor mío (El ensamblador). Creo que la sintaxis no es la correcta. Pero como estoy compilando en japonés... no me entero de nada. :/
Adjuntos
YAMAUCHI BASIC LIST.rar
High Speed Lines
(883 Bytes) Descargado 8 veces

Avatar de Usuario
pser1
Mensajes: 2212
Registrado: 08 Dic 2012 18:34
Agradecido : 295 veces
Agradecimiento recibido: 308 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor pser1 » 21 Jun 2017 16:10

Hola chicos,
siento deciros que mi dedicación a este tema va a bajar muchísmo ...
Mi madre sufrió un ictus el pasado lunes y la verdad es que vamos de '#$%&'

En lo que se refiere a poner programas Basic en un disco .D77 simplemente utiliza el fichero
en ASCII con los números de línea y ASEGURATE de que hay un intro al final de la última linea (o se la salta)
y lo importas dejando que el pgm decida si es basic o binario. Me funciona sin problemas!
Los programas en ensamblador, yo los sigo compilando con ASM6809 de Ciaran (Sixxie)
Pero el importador de ficheros es un poco quisquilloso. Habrá que preguntarle por el formato exacto a malikto999
Yo le pongo la cabecera por delante y le añado un fin de fichero a la 'CoCo' además lo acepta solo si la longitud
es múltiplo de 256 mas otros 16 bytes (no me preguntes ...)
En teoría lo que añado al final cumple estas condiciones.
Adjunto el fuente de mi intento de copiar de Pantalla a Buffer y luego replicarlo. *** OJO. NO ME FUNCIONA! ***
Pero veréis lo que hay que añadir al fuente en ensamblador para que el resultado se pueda importar en .D77
eligiendo de antemano que es binario.
Suerte, ya iré leyendo vuestros avances y cuando me sea posible trataré de debugar el fuente que adjunto
para ver donde estoy metiendo la pata! Temo que con los punteros e indexados la estoy liando , pero hay que verlo
con el debugger para encontrar la patinada.
saludos
pere
FM705.ZIP
(1.75 KiB) Descargado 13 veces

Avatar de Usuario
minter
Mensajes: 1806
Registrado: 22 Jul 2014 18:51
Agradecido : 1168 veces
Agradecimiento recibido: 494 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor minter » 21 Jun 2017 17:01

pser1 escribió:Hola chicos,
siento deciros que mi dedicación a este tema va a bajar muchísmo ...
Mi madre sufrió un ictus el pasado lunes y la verdad es que vamos de '#$%&'

En lo que se refiere a poner programas Basic en un disco .D77 simplemente utiliza el fichero
en ASCII con los números de línea y ASEGURATE de que hay un intro al final de la última linea (o se la salta)
y lo importas dejando que el pgm decida si es basic o binario. Me funciona sin problemas!
Los programas en ensamblador, yo los sigo compilando con ASM6809 de Ciaran (Sixxie)
Pero el importador de ficheros es un poco quisquilloso. Habrá que preguntarle por el formato exacto a malikto999
Yo le pongo la cabecera por delante y le añado un fin de fichero a la 'CoCo' además lo acepta solo si la longitud
es múltiplo de 256 mas otros 16 bytes (no me preguntes ...)
En teoría lo que añado al final cumple estas condiciones.
Adjunto el fuente de mi intento de copiar de Pantalla a Buffer y luego replicarlo. *** OJO. NO ME FUNCIONA! ***
Pero veréis lo que hay que añadir al fuente en ensamblador para que el resultado se pueda importar en .D77
eligiendo de antemano que es binario.
Suerte, ya iré leyendo vuestros avances y cuando me sea posible trataré de debugar el fuente que adjunto
para ver donde estoy metiendo la pata! Temo que con los punteros e indexados la estoy liando , pero hay que verlo
con el debugger para encontrar la patinada.
saludos
pere
FM705.ZIP


Caramba, Pere!
Que se recupere lo máximo posible!
Un ictus es una cosa muy imprevisible.

Y por no hacer acto de presencia por aquí, no te preocupes. Yo apenas avanzaré y llenaré post de muñequitos de estos: -banghead

Pero lo intentaré. -grin

Avatar de Usuario
pser1
Mensajes: 2212
Registrado: 08 Dic 2012 18:34
Agradecido : 295 veces
Agradecimiento recibido: 308 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor pser1 » 21 Jun 2017 18:13

va a ser duro puesto que tiene ya 92 años y me temo que costará mucho mas debido a esta avanzada edad ...
Hoy me estoy tomando un respiro y aprovecho para trastear con esto ...
El debugger me puede -banghead (yo también los uso!)
Adjunto copia de pantalla en la que se ven ventanas del debugger y que arriba aparece el patrón de barras de colores horizontal tres veces.
Lo cierto es que cuando arranca es 'inmediato' y lo que hace es copiar a un buffer y luego copiar el buffer en dos zonas de pantalla.
-Mi intento de enviar TRES comandos de golpe 91,93,90 (copiar, JSR y fin) ha fracasado vilmente (por querer ahorrar pasos)
- Si alguien se atreve, os subo el .D77 con un basic TST705 y el binario FM705 (lo carga el anterior)
Yo lo cargaba y luego preparaba el debugger, pero siempre me hacía falta cambiar los flags por $50 una o dos veces
La copia de código a D380 funciona perfectamente, pero que luego el SS se copie el área común a C000, requiere casi magia!
Y una vez esta ahí, no he logrado arrancarlo mas que cambiando el registro PC a $c000 por narices, entonces dibuja lo que se vé.
Lo dicho, posiblemente habrá que enviar tres comandos o al menos dos: Copiar y luego JSR+END
Esto significa que podremos, pero hay que estudiar mas -507
saludos
pere
COPIADOR.jpg
COPIADOR.jpg (207.46 KiB) Visto 523 veces

TEST03.ZIP
(39.44 KiB) Descargado 10 veces

Avatar de Usuario
pser1
Mensajes: 2212
Registrado: 08 Dic 2012 18:34
Agradecido : 295 veces
Agradecimiento recibido: 308 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor pser1 » 21 Jun 2017 18:35

Una agradable actualización ... -shock
Descomponiendo la ristra de tres comandos en dos (Copiar, luego JSR y END) funciona sin problemas
Adjunto fuente en ensamblador y el .D77
OJO, en el basic TST705 hay que cambiar el binario por el reciente FM706
Para hacer pruebas el Basic no ejecutaba el binario cargado, así que hay que entrar
EXEC&H1000 como se ve en pantalla o modificar el programa adecuadamente
Y sin utilizar debuger para nada -drinks
Ya ves que los binarios se importan sin problemas en el D77manager. Suerte!

saludos
pere
FM706.ZIP
(39.71 KiB) Descargado 10 veces

ALBRICIAS.jpg
ALBRICIAS.jpg (40.98 KiB) Visto 522 veces

Avatar de Usuario
Chema
Mensajes: 1855
Registrado: 21 Jun 2012 20:13
Ubicación: Gijón
Agradecido : 929 veces
Agradecimiento recibido: 326 veces
Contactar:

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor Chema » 21 Jun 2017 20:14

Vaya Pere, lo siento de veras. Que todo vaya lo mejor posible.

Os sigo con interés.

Avatar de Usuario
explorer
Mensajes: 142
Registrado: 10 Ene 2016 18:43
Ubicación: Valladolid, España
Agradecido : 3 veces
Agradecimiento recibido: 118 veces
Contactar:

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor explorer » 21 Jun 2017 22:34

Hola. Yo también lo estoy siguiendo.

Hace unos días -casualidad- he estado leyendo un código para Atari 8 bits en ensamblador que, creo, utiliza el mismo algoritmo.

BlackHole
Mensajes: 843
Registrado: 03 Ago 2011 23:07
Ubicación: Aluche, Madrid
Agradecido : 5 veces
Agradecimiento recibido: 73 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor BlackHole » 21 Jun 2017 22:46

pser1 escribió:Hola chicos,
siento deciros que mi dedicación a este tema va a bajar muchísmo ...
Mi madre sufrió un ictus el pasado lunes y la verdad es que vamos de '#$%&'

Vaya, siento oir esto. Yo tuve un ictus el pasado 5 de Mayo por tener la tensión por las nubes (curiosamente mi colesterol siempre estuvo dentro de rango); perdí movilidad en toda la parte izquierda de mi cuerpo y aún me estoy intentando recuperar mes y medio después. Hace 6 semanas no podía dar un paso de 10 centímetros sin agarrarme a los muebles, y ahora soy capaz de salir a la calle, mantener el equilibrio y dar un paseo de una hora, aunque todavía voy estilo "Langui" cojeando con la pierna izquierda. Lo malo la mano izquierda, que tengo los dedos medio agarrotados (puedo teclear, tengo sensación de presión, pero no tacto) y encima ser zurdo. Lo bueno, que al menos no me ha afectado al habla ni a mis capacidades cognitivas. Paciencia y suerte.

P.D: Yo de ensamblador de 6809 ni idea, lo siento.

Avatar de Usuario
pser1
Mensajes: 2212
Registrado: 08 Dic 2012 18:34
Agradecido : 295 veces
Agradecimiento recibido: 308 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor pser1 » 21 Jun 2017 23:23

gracias a todos por vuestra comprensión ...
@Blackhole
vaya hombre, parece que esto no respeta ninguna edad. Me alegra saber que has aumentado tanto tu movilidad.
Por lo que me han contado, hace falta mucha paciencia y meses para ir recuperando las 'habilidades' perdidas.
El problema con mi madre es que le ha afectado un ojo por lo que ahora tiene que aprender a mirar con el otro y el coco no es tan
rápido aprendiendo a estas edades, dificultando mucho la recuperación para andar debido a la inseguridad de la vista.
un abrazo!
pere

Avatar de Usuario
ron
Mensajes: 17867
Registrado: 28 Oct 2010 14:20
Ubicación: retrocrypta
Agradecido : 857 veces
Agradecimiento recibido: 912 veces

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor ron » 22 Jun 2017 13:58

@blackhole: A mejorarse mucho Fran, paciencia y mucho ánimo.
@pser1: Oraciones para se mejore mucho.

Y que estéis lo mejor posible. Mucho ánimo !

Avatar de Usuario
Chema
Mensajes: 1855
Registrado: 21 Jun 2012 20:13
Ubicación: Gijón
Agradecido : 929 veces
Agradecimiento recibido: 326 veces
Contactar:

Re: Trazado de lineas a alta velocidad - ¡gracias Mr. Yamauchi!

Mensajepor Chema » 22 Jun 2017 14:37

@blackhole vaya hombre, lo siento. Paciencia y ánimo como dijo ron. Me alegra ver que todo va bastante bien.
@pser1 Mi padre tuvo uno que no le afectó demasiado, pero perdió sensibilidad en las manos y se quejaba de que ya no podía tocar la guitarra...

Es un rollo. Y suerte si no afecta a nada vital. Y, cuando pilla de mayores, es peor, como dice pser1. Ánimos.


Volver a “Fujitsu FM7”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado