Página 1 de 3

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

Publicado: 16 Jun 2017 19:11
por jltursan
Os dejo un artículo interesante de la revista I/O del que al menos, el listado ensamblador es fácilmente reciclable y educativo :-)

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

Publicado: 16 Jun 2017 20:28
por minter
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.

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

Publicado: 19 Jun 2017 23:03
por minter
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.

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

Publicado: 20 Jun 2017 14:57
por minter
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.

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

Publicado: 20 Jun 2017 19:20
por jltursan
¡Currazo, muchas gracias!

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

Publicado: 21 Jun 2017 10:58
por minter
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. :/

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

Publicado: 21 Jun 2017 16:10
por pser1
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 21 veces

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

Publicado: 21 Jun 2017 17:01
por minter
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

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

Publicado: 21 Jun 2017 18:13
por pser1
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 729 veces

TEST03.ZIP
(39.44 KiB) Descargado 16 veces

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

Publicado: 21 Jun 2017 18:35
por pser1
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 15 veces

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

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

Publicado: 21 Jun 2017 20:14
por Chema
Vaya Pere, lo siento de veras. Que todo vaya lo mejor posible.

Os sigo con interés.

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

Publicado: 21 Jun 2017 22:34
por explorer
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.

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

Publicado: 21 Jun 2017 22:46
por BlackHole
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.

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

Publicado: 21 Jun 2017 23:23
por pser1
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

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

Publicado: 22 Jun 2017 13:58
por ron
@blackhole: A mejorarse mucho Fran, paciencia y mucho ánimo.
@pser1: Oraciones para se mejore mucho.

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

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

Publicado: 22 Jun 2017 14:37
por Chema
@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.