De vuelta por estos lares!
Os adjunto un zip que contiene el fichero HLINE.D77 donde encontraréis:
- YAMAV7 es el binario del ensamblador ya compilado
- YAMABAS es el Basic antiguo que *NO* funciona!
- YAMABA7 es el Basic 'retocado' que *SI* funciona
- TABLA es un programa que muestra en pantalla el contenido del área de variables donde se 'añaden' nuevos comandos al Basic
Me ha servido para detectar el mal funcionamiento del binario que NUNCA instalaba el comando HLINE.
*** Tomaros el tiempo de cargar el disco y ejecutar YAMABA7, que se ocupoa de todo ... merece la pena, es genial
@minter
si comparas el fuente que adjunto con el que subiste tu, verás que hay bastantes diferencias ...
Todas las instrucciones que usan indexados referidos al PC, les he quitado los signos < y > que llevaban delante
He corregido algunas diferencias respecto a lo publicado en aquella página 'original' y unos pocos cambios para
usar direccionamiento directo en lugar de extendido donde se podía (aconsejado por el compilador ASM6809)
Respecto al Basic, veamos porqué NO funcionaba ni a cañonazos.
Cuando entras un programa que utiliza comandos nuevos/añadidos al intérprete de Basic, lo has de hacer SIEMPRE después de haber
instalado y ejecutado el binario que los añade, de lo contrario el intérprete no puede detectarlos
Debido a este detalle, las órdenes tipo HLINE(12,25)-(60,90),CL1 eran interpretadas como una variable, en este caso un array de dos
dimensiones que, al no haber sido declarado, producía el error "Subscript Out Of Range In 510"
Para corregirlo, he tenido que editar una a una las lineas que contenían HLINE y añadir o quitar un espacio para forzar al intérprete
a guardar la línea al picar Enter. Al hacerlo, detecta la presencia del nuevo comando HLINE y lo guarda 'tokenizado', en este caso le
asigna el token $F4 y ya funciona todo
Si comparas YAMABAS con YAMABA7 en el editor de discos, verás que en el primero se ve HLINE mientras que en el segundo se muestra
un signo de admiración en su lugar, el token (!)
saludos
pere
- HLINE-FAST.jpg (100.59 KiB) Visto 1252 veces