[SAM Coupé] Mostrando los 128 colores a la vez

[mcleod_ideafix]

Es mi primera prueba usando la paleta y la interrupción de línea del SAM.

Código: Seleccionar todo

                        org 65000

Start                   proc
                        di
                        ld a,253
                        ld i,a
                        im 2
                        ld e,0
                        ld bc,00f8h
                        ei

Forever                 halt
                        jr Forever
                        endp

                        org 65023
                        dw LineInt

                        ;BC=00F8h (CLUT0)
                        ;E=color/lineint
LineInt                 proc
                        di
                        out (c),e
                        ld a,e
                        out (249),a
                        inc a
                        cp 192
                        jr nz,NoResetLine
                        xor a
NoResetLine             ld e,a
                        ei
                        reti
                        endp

Se ensambla con PASMO, en la opción de generar un fichero binario. Ese fichero se importa al SIMCoupé con la opción "Import data" en la zona del BASIC, en la dirección 65000. Luego se hace desde BASIC:

Código: Seleccionar todo

MODE 1: CLS: CALL 65000

Y sale esto:

[zitror]

Buenas McLeod. Veo que has utilizado un emulador, ¿el ordenador real también muestra los 128 colores en pantalla?

Con esta posibilidad se tienen que hacer unas demos de miedo, no deja de sorprenderme el potencial de este ordenador

Salu2

[mcleod_ideafix]

Y con unas cuántas líneas más de código...

Código: Seleccionar todo

                        org 65000

Start                   proc
                        di
                        ld a,253
                        ld i,a
                        im 2
                        ld e,0
                        ld h,0
                        ld d,0
                        ld bc,00f8h
                        ei

Forever                 halt
                        jr Forever
                        endp

                        org 65023
                        dw LineInt

                        ;BC=00F8h (CLUT0)
                        ;E=lineint
                        ;H=color inicial
                        ;D=color
LineInt                 proc
                        di
                        out (c),d
                        inc d
                        ld a,d
                        and 7Fh
                        ld d,a

                        ld a,e
                        out (249),a
                        inc a
                        cp 192
                        jr nz,NoResetLine
                        inc h
                        ld a,h
                        and 7Fh
                        ld h,a
                        ld d,a
                        xor a
NoResetLine             ld e,a
                        ei
                        reti
                        endp

Tenemos un efecto muy parecido al de las barras de color de la Shock Megademo

-- 14 Ago 2012, 11:04 --

Buenas McLeod. Veo que has utilizado un emulador, ¿el ordenador real también muestra los 128 colores en pantalla?

Sí, claro. No es un truco de televisión ni nada. Son colores "de verdad".

[mentalthink]

Pues aunque no sé nada sobre esté sistema, si se pudiera aplicar esa paleta entera para hacer un juego, podría quedar demasiado bien no?¿...

Por otro lado y disulpad mi ignoracia el Sam Coupe, es el Spectrum ampliado, lo que pasó después de la Época pero en Rúsia?¿.