\n| Float<\/td>\n | 5<\/td>\n | Pierde precisi\u00f3n con muchos decimales o con n\u00fameros muy grandes<\/td>\n | Es el tipo que usa Sinclair ZX Basic. 8 bits para el exponente y 24 bits para la mantisa (datos)<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n <\/p>\n Las cadenas de texto no tienen un tama\u00f1o asignado, y ocupan 2 bytes m\u00e1s el contenido del texto. Eso dos bytes extra contienen el tama\u00f1o actual del texto. Las variables de texto se definen con la clave \u201cstring\u201d.<\/p>\n Boriel permite definir el tipo de variables que queremos usar, lo que permite acelerar las operaciones realizadas con esta variable. Podemos definir variables de la siguiente forma:<\/p>\n DIM numeroPeque AS BYTE<\/code>
\nDIM numeroPequeSinSigno AS UBYTE<\/code>
\nDIM numeroEntero1, numeroEntero2 AS UINTEGER<\/code>
\nDIM cadena AS STRING<\/code>
\nDIM arrayEntero(100) AS UINTEGER<\/code>
\nDIM arrayBidimensional(10,5) AS UBYTE<\/code><\/p>\nHay que tener en cuenta que el valor indicado al declarar un array, indica el n\u00famero de elementos +1, ya que los \u00edndices empiezan por el 0. En pocas palabras, 100 define que tiene 101 elementos, del 0 al 100.<\/p>\n La recomendaci\u00f3n es utilizar el tipo de variable m\u00e1s peque\u00f1o posible, pero hay que ir con mucho cuidado a no rebasar los valores m\u00e1ximos y m\u00ednimos.<\/p>\n <\/p>\n SUBrutinas<\/h2>\nEn Sinclair ZX Basic las subrutinas se llaman con el comando \u201cGOSUB l\u00ednea\u201d y volvemos de ella con \u201dRETURN\u201d:<\/p>\n 10 LET Y=10<\/code>
\n20 LET X=5<\/code>
\n30 LET A$=\"HOLA\"<\/code>
\n30 GOSUB 1000<\/code>
\n\u2026<\/code>
\n1000 PRINT AT Y,X;A$<\/code>
\n1010 RETURN<\/code><\/p>\nLas subrutinas tienen una serie de pegas, por ejemplo, la rutina del ejemplo imprime el texto contenido por A$ en la fila Y y la columna X, pero no tenemos ninguna referencia de las variables que se requieren.<\/p>\n En Boriel podemos implementarlas de esta forma:<\/p>\n Imprime(10,5,\"Hola\")<\/code>
\n\u2026<\/code>
\nSUB Imprime(Y AS UBYTE, X AS UBYTE, TEXTO AS STRING)<\/code>
\n\u00a0 \u00a0 \u00a0PRINT AT Y,X;TEXTO<\/code>
\nEND SUB<\/code><\/p>\nComo se puede ver en el ejemplo de Boriel, se entiende de forma sencilla las variables que requiere la subrutina. Por cierto, que estas variables se llaman \u201cpar\u00e1metros\u201d, es decir, son los par\u00e1metros de la subrutina.<\/p>\n En cierta forma, los SUB nos permiten crear nuestros propios comandos.<\/p>\n Veamos algunas variaciones:<\/p>\n DIM Fila, Columna AS UBYTE<\/code>
\nFila=10<\/code>
\nColumna=5<\/code>
\nImprime(Fila,Columna,\"Hola\")<\/code>
\n\u2026<\/code>
\nSUB Imprime(Y AS UBYTE, X AS UBYTE, TEXTO AS STRING)<\/code>
\n\u00a0 \u00a0 \u00a0PRINT AT Y,X;TEXTO<\/code>
\nEND SUB<\/code><\/p>\nAqu\u00ed podemos ver que se pueden usar variables como par\u00e1metros.<\/p>\n Ahora vamos a mejorar la rutina de impresi\u00f3n:<\/p>\n SUB Imprime(Y AS UBYTE, X AS UBYTE, TEXTO AS STRING)<\/code>
\n\u00a0 \u00a0 \u00a0DIM N, COLOR AS UBYTE<\/code>
\n\u00a0 \u00a0 \u00a0COLOR=0<\/code>
\n\u00a0 \u00a0 \u00a0PRINT AT Y,X;\"\";<\/code>
\n\u00a0 \u00a0 \u00a0FOR N=0 TO LEN(TEXTO)-1<\/code>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 PRINT INK COLOR;TEXTO(N);<\/code>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 COLOR=COLOR+1<\/code>
\n\u00a0 \u00a0 \u00a0NEXT N<\/code>
\nEND SUB<\/code><\/p>\nEn este ejemplo hemos mejorado la subrutina Imprime, que ahora imprime el texto en colores, pero lo m\u00e1s interesante es que hemos definido dos variables (\u201cN\u201d y \u201cCOLOR\u201d). Pero estas variables solo \u201cviven\u201d dentro del SUB, es decir, al llamar a la subrutina, se crean dos variables nuevas que al salir de esta, se eliminar\u00e1n.
\nLa nota curios es que podemos tener una variable con el mismo nombre fuera del SUB, por ejemplo:
\nDIM N AS UBYTE<\/code>
\nFOR N=0 TO 10<\/code>
\n\u00a0 \u00a0 \u00a0Imprime(N,0,\"HOLA \"+STR(N))<\/code>
\nNEXT N<\/code>
\n\u2026<\/code>
\nSUB Imprime(Y AS UBYTE, X AS UBYTE, TEXTO AS STRING)<\/code>
\n\u00a0 \u00a0 \u00a0DIM N, COLOR AS UBYTE<\/code>
\n\u00a0 \u00a0 \u00a0COLOR=0<\/code>
\n\u00a0 \u00a0 \u00a0PRINT AT Y,X;\"\";<\/code>
\n\u00a0 \u00a0 \u00a0FOR N=0 TO LEN(TEXTO)-1<\/code>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 PRINT INK COLOR;TEXTO(N);<\/code>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 COLOR=COLOR+1<\/code>
\n\u00a0 \u00a0 \u00a0NEXT N<\/code>
\nEND SUB<\/code><\/p>\nEste ejemplo imprime el texto \u201cHOLA 0\u201d, \u201cHOLA 1\u201d, \u201cHOLA 2\u201d, hasta \u201cHOLA 10\u201d, en diferentes filas. Pero lo m\u00e1s curioso es que tenemos un primer bucle que usa la variable \u201cN\u201d (que se trata de una variable global), y otra variable con el mismo nombre \u201cN\u201d dentro del SUB (que se denomina variable local), pero estas son diferentes y no se mezcla su valor.<\/p>\n <\/p>\n FUNCTION<\/h2>\nUna FUNCTION es una SUBrutina que devuelve un valor. Veamos un ejemplo:
\nPRINT Suma(10,3)<\/code>
\n\u2026<\/code>
\nFUNCTION Suma(A AS INTEGER, B AS INTEGER) AS INTEGER<\/code>
\n\u00a0 \u00a0 \u00a0DIM R AS INTEGER<\/code>
\n\u00a0 \u00a0 \u00a0R=A+B<\/code>
\n\u00a0 \u00a0 \u00a0RETURN R<\/code>
\nEND FUNTION<\/code><\/p>\nEn este ejemplo estamos definir una funci\u00f3n llamada \u201cSuma\u201d, que suma dos valores del tipo INTEGER, y devuelve el resultado en forma de INTEGER. Evidentemente se puede, y deber\u00eda, simplificar con un simple RETURN A+B, pero as\u00ed vemos que tambi\u00e9n se pueden crear variables \u201clocales\u201d.<\/p>\n <\/p>\n Integraci\u00f3n con assembler<\/h2>\nAunque sea una caracter\u00edstica avanzada, explicaremos de forma sencilla como a\u00f1adir unas l\u00edneas de assembler a nuestro c\u00f3digo. Veamos este ejemplo sacado de NextLib:<\/p>\n function GetReg(byval nextRegister as ubyte) as ubyte
\n<\/code>asm
\n<\/code>\u00a0 \u00a0 \u00a0push bc
\n<\/code>\u00a0 \u00a0 \u00a0ld bc,$243B\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ; Register Select
\n<\/code>\u00a0 \u00a0 \u00a0out(c),a
\n<\/code>\u00a0 \u00a0 \u00a0ld bc,$253B\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ; reg access
\n<\/code>\u00a0 \u00a0 \u00a0in a,(c)
\n<\/code>\u00a0 \u00a0 \u00a0pop bc
\n<\/code>end asm
\n<\/code>end function<\/code><\/p>\nEste ejemplo implementa el comando GetReg, que lee el valor de un registro de Next (NextReg). Se puede observar que dentro de la funci\u00f3n el c\u00f3digo assembler se incluye entre las l\u00edneas marcadas por \u201cASM\u201d y \u201cEND ASM\u201d.<\/p>\n En este caso el par\u00e1metro \u201cnextRegisterse coloca en el registro A del procesador, y el valor que retorna la funci\u00f3n tambi\u00e9n es el que se alm en dicho registro A.<\/p>\n El c\u00f3digo assembler hace un OUT en el puerto $243B y acto seguido hace un IN en el puerto $253B. Como resultado, el valor del registro NextReg indicado por el par\u00e1metro \u201cnextRegister\u201d<\/p>\n Esto tambi\u00e9n nos permite a\u00f1adir datos a nuestro c\u00f3digo, por ejemplo las definiciones de una fuente o unos Sprites, como se puede ver en este ejemplo:<\/p>\n Bola:<\/code>
\nASM<\/code>
\ndb\u00a0 $E3, $E3, $E3, $E3, $E3, $F5, $F5, $F4, $F4, $F5, $F5, $E3, $E3, $E3, $E3, $E3;<\/code>
\ndb\u00a0 $E3, $E3, $E3, $FA, $F4, $F4, $F4, $F4, $F4, $F4, $F0, $ED, $F6, $E3, $E3, $E3;<\/code>
\ndb\u00a0 $E3, $E3, $F9, $F8, $F4, $F4, $F4, $F4, $F4, $F4, $F4, $ED, $E9, $F2, $E3, $E3;<\/code>
\ndb\u00a0 $E3, $FA, $F8, $F8, $F8, $F8, $F4, $F4, $F4, $F4, $F4, $EC, $E9, $E9, $F6, $E3;<\/code>
\ndb\u00a0 $E3, $F8, $F8, $F8, $F8, $F8, $F8, $F4, $F4, $F4, $F4, $ED, $E9, $E9, $ED, $E3;<\/code>
\ndb\u00a0 $F9, $F8, $F8, $F8, $F8, $F8, $F8, $F8, $F4, $F4, $F0, $ED, $E9, $E9, $E9, $F2;<\/code>
\ndb\u00a0 $F9, $F8, $F8, $D8, $B8, $B8, $D8, $F8, $F4, $F0, $ED, $E9, $E9, $E9, $E9, $ED;<\/code>
\ndb\u00a0 $F8, $D8, $98, $78, $58, $78, $78, $B4, $F0, $ED, $E9, $E9, $E9, $E9, $E9, $CE;<\/code>
\ndb\u00a0 $D8, $98, $58, $58, $59, $58, $55, $52, $CE, $E9, $E9, $E9, $E9, $E9, $CE, $AE;<\/code>
\ndb\u00a0 $B9, $58, $59, $58, $58, $55, $37, $53, $AF, $CE, $CE, $CE, $CE, $AE, $AE, $AF;<\/code>
\ndb\u00a0 $99, $58, $58, $58, $59, $36, $33, $33, $AF, $AE, $AE, $AE, $AE, $AE, $AE, $D3;<\/code>
\ndb\u00a0 $E3, $79, $58, $58, $55, $37, $33, $37, $6F, $AE, $AE, $AE, $AE, $AE, $AE, $E3;<\/code>
\ndb\u00a0 $E3, $9A, $58, $58, $55, $37, $33, $33, $33, $8F, $AF, $AE, $AE, $AE, $D7, $E3;<\/code>
\ndb\u00a0 $E3, $E3, $99, $58, $55, $37, $33, $33, $33, $37, $53, $8F, $8F, $B3, $E3, $E3;<\/code>
\ndb\u00a0 $E3, $E3, $E3, $99, $79, $36, $33, $33, $33, $33, $33, $37, $77, $E3, $E3, $E3;<\/code>
\ndb\u00a0 $E3, $E3, $E3, $E3, $E3, $7A, $37, $33, $33, $37, $77, $E3, $E3, $E3, $E3, $E3;<\/code>
\nend asm<\/code><\/p>\nLa diferencia entre usas este sistema y usar DATA es que con DB los datos ya est\u00e1n \u201cpokeados\u201d en la memoria. No hace falta leerlos con READ y hacer el POKE. Lo veremos m\u00e1s adelante, pero es una gran ventaja.<\/p>\n Otro detalle muy importante es que no hace falta poner ORG en assembler. Boriel coloca el c\u00f3digo en la memoria ocupando todos los huecos y recolocando el c\u00f3digo a medida que vamos programando. Esto nos permite olvidarnos un poco del mapa de memoria, pero no del todo si queremos jugar con el mapeo de memoria.<\/p>\n <\/p>\n Uso de librer\u00edas<\/h2>\nUna librer\u00eda es un fichero de c\u00f3digo que contiene una serie de SUBrutinas y FUNCTIONes que ampl\u00edan los comandos disponibles.<\/p>\n Boriel incluye un paquete bastante nutrido de librer\u00edas, que incluyen, entro otras muchas, funciones para leer teclas pulsadas de forma simult\u00e1nea, funciones para trabajar con cadenas, sprites, acceso a disco y tarjetas SD, scroll, etc\u2026<\/p>\n Para usar una librer\u00eda integrada utilizamos la directiva \u201c#include\u201d indicando el nombre de la librer\u00eda entre signos de mayor y menor ( < > )<\/p>\n #include <Keys.bas><\/code>
\n\u2026<\/code>
\nIF MultiKeys(KEYSYMBOL)<>0 THEN PRINT \"Se ha pulsado Symbol Shift\"<\/code><\/p>\nEn este ejemplo, se incluye la librer\u00eda \u201cKeys.bas\u201d, que implementa los m\u00e9todos \u201cGetKey\u201d, \u201cMultiKeys\u201d y \u201cGetKeyScanCode\u201d, adem\u00e1s de definir una serie de constantes que nos permite leer cada una de las teclas de nuestro querido Spectrum.<\/p>\n Otro ejemplo:<\/p>\n \n #include <Scroll.bas><\/code><\/div>\nDIM Y, X, N AS UBYTE<\/code><\/div>\nFOR Y=0 TO 23<\/code><\/div>\n\u00a0 \u00a0 \u00a0FOR X=0 TO 31<\/code><\/div>\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 PRINT AT Y,X;\"#\";<\/code><\/div>\n\u00a0 \u00a0 \u00a0NEXT X<\/code><\/div>\nNEXT Y<\/code><\/div>\nWHILE INKEY$=\"\"<\/code><\/div>\n\u00a0 \u00a0 PRINT AT 10,11;N;<\/code><\/div>\n\u00a0 \u00a0 N=N+1<\/code><\/div>\n\u00a0 \u00a0 ScrollRight(80,40,200,120)<\/code><\/div>\nWEND<\/code><\/div>\n<\/div>\nEste ejemplo llena la pantalla con el s\u00edmbolo \u201c#\u201d y despu\u00e9s hace un scroll pixel a pixel en una ventana hasta que pulsemos una tecla.<\/p>\n El bucle formado por WHILE .. WEND hace que se repita todo lo que hay dentro mientras se cumple una condici\u00f3n. En este caso se har\u00e1 el scroll hasta que se pulse una tecla, es decir, cuando INKEY$ no sea igual a una cadena vac\u00eda.<\/p>\n <\/p>\n Si lo que queremos hacer es usar una librer\u00eda que no est\u00e1 integrada en Boriel, la podemos incluir con el nombre entre comillas:<\/p>\n #include \"MiLibreria.bas\"<\/code><\/p>\n <\/p>\n WHILE\u2026WEND<\/h2>\nEste tipo de bucle hace que se repita su contenido mientras se cumpla una condici\u00f3n. Por ejemplo:<\/p>\n 10 LET A=0<\/code>
\n20 PRINT AT 0,0;A<\/code>
\n30 LET A=A+1<\/code>
\n40 IF INKEY$=\"\" THEN GOTO 20<\/code><\/p>\nEsto se traduce como:<\/p>\n DIM A AS UINTEGER<\/code>
\nA=0<\/code>
\nWHILE INKEY$=\"\"<\/code>
\n\u00a0 \u00a0 \u00a0PRINT AT 0,0;A<\/code>
\n\u00a0 \u00a0 \u00a0A=A+1<\/code>
\nWEND<\/code><\/p>\nA primera vista se ve que no ganamos en l\u00edneas, tecleamos lo mismo o incluso m\u00e1s, pero si que ganamos en visibilidad. El c\u00f3digo se ve m\u00e1s limpio, no hay que buscar la l\u00ednea 20 del GOTO y adem\u00e1s podemos \u201cindentar\u201d el contenido del bucle.<\/p>\n WHILE 1<\/code>
\n\u00a0 \u00a0 \u00a0PRINT \"Bucle infinito \";<\/code>
\nWEND<\/code><\/p>\nEsto hace que el bucle se repita de forma infinita. Tambien podemos forzar la salida del bucle con un BREAK WHILE, por ejemplo:<\/p>\n WHILE 1<\/code>
\n\u00a0 \u00a0 \u00a0PRINT \"Bucle infinito \";<\/code>
\n\u00a0 \u00a0 \u00a0IF INKEY$<>\"\" THEN BREAK WHILE<\/code>
\nWEND<\/code><\/p>\nAunque poco \u00fatil, este ejemplo nos sirve para ver como se puede salir de este bucle.<\/p>\n <\/p>\n DO\u2026LOOP<\/h2>\nEste tipo de bucle es una variante del anterior. Al igual que WHILE\u2026WEND, el contenido se ejecuta mientras se cumple una condici\u00f3n. La diferencia es que la condici\u00f3n puede ponerse al principio del bucle, al final o no ponerse.
\nDO<\/code>
\n\u00a0 \u00a0 \u00a0PRINT \"Bucle infinito \";<\/code>
\nLOOP<\/code><\/p>\nOtro ejemplo:
\nDO<\/code>
\n\u00a0 \u00a0 \u00a0PRINT \"Hasta que se pulse una tecla\u2026 \";<\/code>
\nLOOP WHILE INKEY$=\"\"<\/code>
\nHay m\u00e1s posibilidades, como que se repitas hasta que se cumpla una condici\u00f3n, pero lo dejaremos para otro d\u00eda\u2026<\/p>\nQuedan muchas cosas en el tintero, pero esto solo pretende ser una peque\u00f1a introducci\u00f3n a Boriel ZX Basic.<\/p>\n <\/p>\n Agradecimientos y atribuciones<\/h1>\nAlgunos ejemplos de c\u00f3digo est\u00e1n sacados de los ejemplos que vienen con NextBuild de David Saphier AKA em00K<\/p>\n Gracias a Jos\u00e9 Rodriguez AKA Boriel por su ayuda y por su trabajo con el compilador Boriel ZX Basic.<\/p>\n Imagen principal del art\u00edculo dise\u00f1ada por vectorpouch \/ Freepik\u00a0<\/a><\/p>\n <\/p>\n Recordad, para dudas me pod\u00e9is encontrar en twitter \u201c@Duefectu\u201d o Facebook, o en el canal de \u201cBoriel ZX Basic\u201d en Telegram.<\/p>\n","protected":false},"excerpt":{"rendered":" En este art\u00edculo explicaremos una serie de conceptos de Boriel ZX Basic, orientados a los programadores que vienen del cl\u00e1sico Sinclair ZX Basic, y que quieren empezar a programar en Boriel ZX Basic. Y ya que estamos, aunque los conceptos sirven para el ZX Spectrum cl\u00e1sico, nos enfocaremos m\u00e1s hacia el Sinclair ZX Spectrum Next. […]<\/p>\n","protected":false},"author":16,"featured_media":210,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[13,3,14],"tags":[7,10,15,9],"class_list":["post-208","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-boriel-zx-basic","category-desarrollo","category-herramientas","tag-boriel-zx-basic","tag-compiladores","tag-herramientas","tag-nextbuild"],"jetpack_featured_media_url":"https:\/\/specnext.dev\/es\/wp-content\/uploads\/sites\/2\/2022\/07\/Evolucion.jpg","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/posts\/208","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/users\/16"}],"replies":[{"embeddable":true,"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/comments?post=208"}],"version-history":[{"count":5,"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/posts\/208\/revisions"}],"predecessor-version":[{"id":214,"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/posts\/208\/revisions\/214"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/media\/210"}],"wp:attachment":[{"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/media?parent=208"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/categories?post=208"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/specnext.dev\/es\/wp-json\/wp\/v2\/tags?post=208"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
|