Radastan mode in ZX Basic

[symbolshift]

Hi everyone !

I'm new to this forum. Been using Boriel's Basic for about a year and now that I own a ZXUNO would like to use the Radastan Mode for making simple games.

I've read an old topic with a Plot routine. Are there more I could use? I know there is a kit in C by Radastan himself, but I'd be happy if I could continue programming with ZX Basic.

Thanks in advance and THANK YOU Boriel for bringing me back the joy of writing programs for my beloved ZX Spectrum.

[LCD]

I adapted the PLOT routine from Z88dk to ZXBC and also 8x8 and 10x10 PUT. (No transparency. This was not made in Assembler). Also the new version of BorIDE will support ZesareUX Emulator, which emulates the Radestan Modes and SPECTRA. So this will be suitable to develop also for Spectrum Next.
Will add the routines here later. Too much work ...

[LCD]

Code:

sub UnoSetSpeed(mode) '0=3.5 Mhz, 1=7 MHz, 2=14 MHz, [3=28 MHz]
    out 36411,mode
end sub

Code:

sub RadastanSprite(x as ubyte, y as ubyte,address as uinteger)

' RUTINA DE IMPRESION DE UN SPRITE 8x8 PIXELS
' EN CUALQUIER POSICION DE BYTES (cada byte dos pixels horizontales)
' ENTRADAS:
'   D será la posición del cursor vertical en pixels
'   E será la posición del cursor horizontal en parejas de pixels
'   HL es la posición de memoria donde tenemos el sprite
' SALIDAS: se escribe en el mapa de pantalla
' ADVERTENCIAS: no comprueba límites de pantalla
asm
    ld E,(IX+5)         ;' get x value
    ld D,(IX+7)         ;' get y value
    LD L,(IX+8)                 ;' data address
    LD H,(IX+9)

        ld      a, d    ;' recuperamos el valor vertical
        rrca
        rrca            ;' rotamos para dejar su valor en múltiplos de 64 (linea, de dos en dos pixels)
        and     192     ;' borramos el resto de bits por si las moscas
        or      e       ;' sumamos el valor horizontal
        ld      e, a    ;' e preparado
        ld      a, d    ;' cargamos el valor vertical
        rrca
        rrca            ;' rotamos para quedarnos con los bits altos
        and     63      ;' borramos el resto de bits
        or      64      ;' nos posicionamos a partir de 16384 (16384=64+0 en dos bytes)
        ld      d, a    ;' d preparado, ya tenemos la posición en pantalla

        ld      b, 8    ;' Indicamos que vamos a pintar 8 líneas
RadSptDrw:
                                                ;' dibujamos 8 pixels (4 bytes)
        ld      c, 4    ;' Indicamos que vamos a pintar 4 pares de pixels
        ldi
        ldi
        ldi
        ldi
        ld      a, e
        add     a, 60   ;' incrementamos una línea y retornamos los pixels dibujados
        ld      e, a
        jr      nc, sigue
        inc     d                ;' incrementamos D si sale acarrero al incrementar E en 64 bytes
sigue:
        djnz    RadSptDrw
    end asm
end sub

Code:

sub StartRadastanMode()
    out 48955,64  'ULAplus reg. $40, bits 0 and 1 set to 1
    out 65339,3
        if in(65339)<>3
            OUT 64571,64
            OUT 64827,3
        end if
end sub

Code:

sub RadastanSprite10(x as ubyte, y as ubyte,address as uinteger)
' {
'     // -------------------------------------------
'     // RUTINA DE IMPRESION DE UN SPRITE 10x10 PIXELS
'     // EN CUALQUIER POSICION DE BYTES (cada byte dos pixels horizontales)
'     // ENTRADAS:
'     // D será la posición del cursor vertical en pixels
'     // E será la posición del cursor horizontal en parejas de pixels
'     // HL es la posición de memoria donde tenemos el sprite
'     // SALIDAS: se escribe en el mapa de pantalla
'     // ADVERTENCIAS: no comprueba límites de pantalla
'     // -------------------------------------------
asm
        ld E,(IX+5)         ;' get x value
        ld D,(IX+7)         ;' get y value
        LD L,(IX+8)                 ;' data address
        LD H,(IX+9)
        ld a, d        ;' recuperamos el valor vertical
        rrca
      rrca        ;' rotamos para dejar su valor en múltiplos de 64 (linea, de dos en dos pixels)
        and 192        ;' borramos el resto de bits por si las moscas
        or e        ;' sumamos el valor horizontal
        ld e, a        ;' e preparado
        ld a, d        ;' cargamos el valor vertical
        rrca
        rrca        ;' rotamos para quedarnos con los bits altos
        and 63        ;' borramos el resto de bits
        or 64        ;' nos posicionamos a partir de 16384 (16384=64+0 en dos bytes)
        ld d, a        ;' d preparado, ya tenemos la posición en pantalla
        ld b,10        ;' Indicamos que vamos a pintar 10 líneas
        RadastanSprite10draw3:        ;' dibujamos 10 pixels (5 bytes)
        ld c,5        ;' Indicamos que vamos a pintar 5 pares de pixels
        ldi
        ldi
        ldi
        ldi
        ldi
        ld a,e
        add a,59    ;' incrementamos una línea y retornamos los pixels dibujados
        ld e,a
        jr nc, RadastanSprite10sigue3
        inc d        ;' incrementamos D si sale acarrero al incrementar E en 64 bytes
    RadastanSprite10sigue3:
        djnz RadastanSprite10draw3
end asm
end sub

Code:

sub rplot(x as ubyte,y as ubyte,color as ubyte)
    asm
        ld D,(IX+7)
        ld E,(IX+5)         ;' get x value
        rr e        ;' quitamos el valor de las unidades (los pixels van de dos en dos por byte)
        ld a,0
        jr c, rplotnext    ;' si es impar no hacemos nada (se dibuja por defecto a la derecha)
        ld a,1
    rplotnext:
        LD L,(IX+9)
        ld h,a
        ld a, d        ;' recuperamos el valor vertical
        rrca
      rrca        ;' rotamos para dejar su valor en múltiplos de 64 (linea, de dos en dos pixels)
        and 192        ;' borramos el resto de bits por si las moscas
        or e        ;' sumamos el valor horizontal
        ld e, a        ;' e preparado
        ld a, d        ;' cargamos el valor vertical
        rrca
        rrca        ;' rotamos para quedarnos con los bits altos
        and 63        ;' borramos el resto de bits
        or 64        ;' nos posicionamos a partir de 16384 (16384=64+0 en dos bytes)
        ld d, a        ;' d preparado, ya tenemos la posición en pantalla
        ld a,(de)
        rr h
        jr c, rplotnext2
        and 240
        or l
        jr rplotfin
    rplotnext2:
        and 15
        rl l
        rl l
        rl l
        rl l
        or l
    rplotfin:
        ld (de), a        
    end asm
end sub

[symbolshift]

Thank you so much, this is quite encouraging !

Looking forward to your new BorIDE.

[symbolshift]

Hello!

I've tried and tried the Radastan Sprites code, it doesn't seem to work. Coordinates are right, but it puts nonsense pixels on the screen and the sprite data seems random. I'm afraid it's me who doesn't use it properly. Could anyone post an example of code to put a sprite in Radastan Mode using the above routines ?

Thanks in advance for your help.

[symbolshift]

BTW, plot routine works perfectly.

[symbolshift]

My apologies. Sprites routine works. I just used it wrongly.

[LCD]