Radastan mode in ZX Basic

[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