MPAGD Sound Mod

[ramon]

Last version:

MPAGD SOUND MOD

A small change: paint your splash screen in the event of your favorite script simply by calling showSplash inside your user routines. Visit External Screen

[pachic]

excellent

[ramon]

Pruebas con todo a la vez!

[xavisan]

Una consulta que contiene el fichero SC.TAP ??, se genera solo o es que ya incluye algún tipo de código, y que contiene AG.TAP ? alguien lo sabe??

Mil gracias!!!

[ramon]

Sc.tap es una cinta con la screen para cargarla en los montajes de 48k. En esa carpeta guarda tu screen.src.
AG.tap es la cinta donde va el juego.
MUD.tap es una cinta con el programa cargador de musica,efectos y screen en bancos de memoria 4 y 6.
Loader.bas y otros son programas en basic para cargar todo en su sitio según convenga.

[xavisan]

Nov 26, 2022 18:27:42 GMT ramon said:

Sc.tap es una cinta con la screen para cargarla en los montajes de 48k. En esa carpeta guarda tu screen.src.
AG.tap es la cinta donde va el juego.
MUD.tap es una cinta con el programa cargador de musica,efectos y screen en bancos de memoria 4 y 6.
Loader.bas y otros son programas en basic para cargar todo en su sitio según convenga.

Muchas gracias Ramon  muy agradecido 

[pachic]

Nov 26, 2022 18:27:42 GMT ramon said:

Sc.tap es una cinta con la screen para cargarla en los montajes de 48k. En esa carpeta guarda tu screen.src.
AG.tap es la cinta donde va el juego.
MUD.tap es una cinta con el programa cargador de musica,efectos y screen en bancos de memoria 4 y 6.
Loader.bas y otros son programas en basic para cargar todo en su sitio según convenga.

Ramón, entonces en 128 no ocupa espacio de juego?

[ramon]

La memoria se distribuye de la siguiente manera:

El MPAGD Standard reserva memoria desde 24831 para aprovechar todo el espacio posible para el juego. Tanto para el modelo de 48k como el de 128k, todo se coloca entre el tercer y el cuarto chip de RAM (2x16k aprox.). El único programa en Basic que cabe es el siguiente:



5 CLEAR VAL "24831"
10 LOAD "SC"SCREEN$: POKE 23739,111
20 LOAD "AG"CODE 24832
80 RANDOMIZE USR 24832
El MPAGD Sound Mod añade varias opciones:

Añadir un mini-gestor de RECORDS en Basic, ideado para el proyecto Pacman; pero no es necesario en tus juegos.
En este caso el juego se desplaza a la posición de memoria 32000 para poder liberar un poco de memoria a favor del programa del Basic. El programa Basic recoge el RECORD en la variable Basic R y queda así:


5 CLEAR VAL "31999"
10 LOAD "SC"SCREEN$: POKE 23739,111
20 LOAD "AG"CODE 32000
30 INK 7: PAPER 0: BORDER 0
40 LET H = 0: LET S = 0: DIM h$(6,11)
50 FOR f = 1 TO 5
60 LET h$(f) = "AAA  000000"
70 NEXT f
80 LET R = USR 32000
90 LET D = R : LET a$ = ""
...
...
etc.
Para eso hay que desplazar el origen de memoria del juego también, y dejar que regrese a Basic cuando pierdas todas las vidas. De eso se encarga Build.bat

.\Tools\fart %1.asm 24832 32000
..\Tools\fart %1.asm "jp gamelp " "jp game"
Otra opción es añadir sonido en modelos de 48k con cargador de RECORDS o sin él. En todos los casos tenemos esos dos chips de memoria para juntarlo todo.

Ahora bien, en los modelos de 128k disponemos de mas chips. El cerebro del ZX Spectrum va a poder mirar a esos chips. Vamos a llamar a los chips de memoria con el nombre de bancos de memoria.
El ZX Spectrum de 48k se quedará con 16k de RAM mas un banco 0 (llamaremos así a ese chip). El modelo de 128k tiene 16k mas los bancos 0,1,2,3,4,5,6 y 7. Ahora se abre un mundo nuevo! Puedes guardar los niveles lógico, gráfico, sonido, sprites, bloques, etc. en esos bloques.
Los autores de juegos usan varias arquitecturas ya que unos bloques son más rápidos que otros. La mayoría tienen la lógica del juego en los 16k y el resto en los bancos.

MPAGD Sound Mod coloca el juego en los 16k mas el banco 0;y la música con los efectos en el Banco 4. Además ahora coloca la pantalla de presentación, de carga o Splash Screen en el banco 6.

Para hacer esto se usan tres palancas:


; subroutines


bank0: ; swap to bank 0 - origen @ 49152 - 16k
;di
ld a,(23388)  
and 248
or 0
ld bc,32765
ld (23388),a
out (c),a
;ei
ret


bank4: ; swap to bank 4 @ 49152 - 16k
;di
ld a,(23388)  
and 248
or tBank
ld bc,32765
ld (23388),a
out (c),a
;ei
ret


bankScreen: ; swap to bank asigned in b @ 49152 - 16k
;di
ld a,(23388)  
and 248
or b
ld bc,32765
ld (23388),a
out (c),a
;ei
ret


Bank0 y Bank4 son específicos, en cambio bankScreen lo puedes usar con el banco que quieras usando el registro b.
Si quieres que trabaje el juego quédate en el banco 0. Sólo en este momento puedes usar las etiquetas de memoria del ensamblador para referirte a tus rutinas, por ejemplo call splashScreen.
Si quieres usar el Player activas la palanca Bank4. Los 16k siguen siendo lógica del juego y el Banco 0 ahora es el 4, además deberás referirte a las rutinas del Player, que se encuentran en el banco 4, de manera directa como por ejemplo Call $c000 + 5

Para que todo esto encaje tienes que cargar los bancos previamente a que arranque el juego, para eso se usa ente programa Basic:

5 CLEAR VAL "24831"
15 LOAD "MUD"CODE 24832: POKE 23739,111: RANDOMIZE USR 24832
20 LOAD "AG"CODE 24832
80 RANDOMIZE USR 24832


El programa MUD (bank4driver.asm) se carga en 24832, se ejecuta para llenar los Bancos. Después se carga el juego encima, de nuevo desde 24832.

En respuesta a tu pregunta, siempre quedan, a mi entender, 16k + Banco 0 con la lógica de tus programas, AGDEngine, Sprites, Blocks, etc. Por otro lado los demás bancos, Banco 4 y 6 para música y gráfico respectivamente.

Fuente: Magazine ZX

[xavisan]

Como siempre brillantes tus explicaciones ramon , muchas gracias!!, por cierto!! funciona de lujo y perfectamente bien el SplashScreen.

[ramon]

Me alegro mucho por ti. Me da rabia que haya sido algo difícil poder lograrlo. Ahora sólo te tendrás que preocupar de tu juego y dónde colocar sus sonidos, esto es lo que pretendía para mi también.

[xavisan]

Nov 27, 2022 13:30:19 GMT ramon said:

Me alegro mucho por ti. Me da rabia que haya sido algo difícil poder lograrlo. Ahora sólo te tendrás que preocupar de tu juego y dónde colocar sus sonidos, esto es lo que pretendía para mi también.

Mil gracias de nuevo, se agradece mucho. Espero tener terminado mi juego ya en Diciembre (gratuito por supuesto). estoy disfrutando como nunca.

[xavisan]

Nov 27, 2022 13:30:19 GMT ramon said:

Me alegro mucho por ti. Me da rabia que haya sido algo difícil poder lograrlo. Ahora sólo te tendrás que preocupar de tu juego y dónde colocar sus sonidos, esto es lo que pretendía para mi también.

Pues parece que no termina de funcionar la modificación ramon , fíjate lo que me hace realiza el BUILD de esta forma:

Sound Mod build ....

1 archivo(s) copiado(s).

AGD Compiler for ZX Spectrum version 0.7.10

(C) Jonathan Cauldwell May 2020

Sourcename: deleteme.agd

ENDIF without IF on line 2127:



Output: deleteme.asm

1 archivo(s) copiado(s).

1 archivo(s) copiado(s).

17 archivo(s) copiado(s)

2 archivo(s) copiado(s)

El sistema no puede encontrar el archivo especificado.

1 archivo(s) copiado(s).

1 archivo(s) copiado(s).

Optimal LZ77/LZSS compression by Einar Saukas

File converted from 6912 to 3598 bytes! (delta 2)

Optimal LZ77/LZSS compression by Einar Saukas

File converted from 6912 to 1427 bytes! (delta 2)

AGD Musicizer II David Saphier 2017 v1.8

zxbasic.uk/files/agdmusicizerII.rar

www.facebook.com/groups/785775881484393/



Variable to use : m

Looking for PT3 files :



1 > [PT3] music01.pt3 (Size: 1996 Bytes )

2 > [PT3] music02.pt3 (Size: 1548 Bytes )



Total songs found : 2

Total size : 3544 Bytes

Mem Free : 10681 Bytes

Mem area : 51310 - 54854

Generating asm : OK !! - Saved musicsizes.asm

Generating asm : OK !! - Saved musicdepacks.asm

Generating asm : OK !! - Saved musicplayback.asm

Generating asm : OK !! - Saved irinclude.asm

Generating asm : OK !! - Saved music.asm

Compressing : music01.pt3 Compressed Size : 775 bytes (~ 0kb)

Compressing : music02.pt3 Compressed Size : 640 bytes (~ 0kb)

Total compressed size : 1415 bytes

Assembling code : Done

Creating Loader : Done

Joining tape data : ERROR!! Could not read musicizer.bin, maybe it didnt compile?

Joining tape data : Ignored by MPAGD-Sound Mod, all is OK.

asm\music.asm

Replaced 2 occurence(s) in 1 file(s).

2 archivo(s) copiado(s)

1 archivo(s) copiado(s).

screen.scr.zx7

screen2.scr.zx7

2 archivo(s) copiado(s).

22 archivo(s) copiado(s)

Cargador Standard para AY-3-8912

1 archivo(s) copiado(s).



BAS2TAP v2.5 by Martijn van der Heide of ThunderWare Research Center



Creating output file loader.tap

Done! Listing contains 4 lines.

deleteme.asm

Replaced 1 occurence(s) in 1 file(s).

deleteme.asm

Replaced 1 occurence(s) in 1 file(s).

bank4driver.asm

Replaced 1 occurence(s) in 1 file(s).

Pre-processing [FX4BANK.asm]

Assembling

Write binary file FX4BANK.bin (288 bytes)

Optimal LZ77/LZSS compression by Einar Saukas

File converted from 288 to 269 bytes! (delta 4)

1 archivo(s) copiado(s).

loader.tap

MUD.tap

AG.tap

1 archivo(s) copiado(s).

Chispy128.tap

1 archivo(s) copiado(s).
--- hasta aqui parece que bien ---

Cuando realizas el BUILD lo hace, pero en la ejecución se queda cargando en CICLO continuo de esta forma:

Bytes:MUD
Bytes:AG
Program:CHISPY
Bytes:MUD

Bytes:AG

Program:CHISPY


Tengo copiadas las scr en la folder SuiteZX\tapes

screen.scr
screen2.scr


El .asm es este:
;---------------------------
;
; Rutina User para savixan games Company 2022
; Requiere MPAGD Sound Mod
;
;---------------------------
;
; Rutina User para presentar Splash screen y FlashBlink
;
;---------------------------
cp 12
jr z,show  ; si acumulador (registro a) es 1 entonces salta a showSplash
cp 16
jp z,showSplash2 ; si es 16 salta para pintar la otra pantalla
cp 45
jp z,afbk ; en cambio si vale 45
ret

afbk ld c,a ; Set BC=blockcolour pointer
ld b,0
ld hl,bcol ; Set HL=blockcolour table address
add hl,bc ; Point to blockcolour
ld a,(23693) ; Get COLOUR
ld (hl),a ; Store COLOUR as blockcolour
ret

showSplash2 ; Volcado de pantalla
di ; esperad todos un momento!
ld b,6 ; quiero ver este banco de memoria
call bankScreen ; cambia a ese banco
ld hl,$c000 + 8000 ; desde origen mas 8000 bites, donde está almacenada la segunda pantalla.
ld de,$4000 ; hasta pantalla
ld bc,6912 ; todos estos bites
ldir ; cópialos
call bank0 ; mira ahora al banco 0 (el de siempre)
ei ; ya podeis seguir con vuestras cosas
ret ; gracias

show
call showSplash
ret


--
en el fichero build.bat que me has incluido:

set mod=0
set gamename=Chispy
set modsnd=2


Y termina generando un fichero de: 10KB o 40KB , pero en todos los casos se queda en un bucle de carga como he indicado antes de:

Bytes:MUD

Bytes:AG

Program:CHISPY

[ramon]

Te sobra un ENDIF en tu guión.

ENDIF sin IF en la línea 2127:

[xavisan]

Nov 29, 2022 8:56:42 GMT ramon said:

Te sobra un ENDIF en tu guión.

ENDIF sin IF en la línea 2127:

SI lo modifiqué , pero sigue fallando en el mismo sitio,


Así que he procedido a reinstalado todo desde cero (por si acaso tenía algo raro), y al seleccionar la rutina, se reinicia directamente teniendo el USER 16 dentro del código.
Carga la primera SCR, la muestra bien, carga MUD y se reinicia. Esto es lo que sucede.

Elimino la rutina del screen02, y pongo la anterior la inicial de Splash Screen y funciona sin problemas.


He estado probando ramon y es curioso, he cambiado el orden en la rutina,


cp 12
    jr z,show ; si acumulador (registro a) es 1 entonces salta a showSplash
cp 16
    jp z,showSplash2 ; si es 11 salta para pintar la otra pantalla
cp 45
    jp z,afbk ; en cambio si vale 45
ret


;------------------------------------------------
; Print Screen from Bank 6 in 128k models
; Requires MPAGD Sound Mod
;------------------------------------------------

show
    call showSplash
    ret

afbk ld c,a ; Set BC=blockcolour pointer
        ld b,0
        ld hl,bcol ; Set HL=blockcolour table address
        add hl,bc ; Point to blockcolour
        ld a,(23693) ; Get COLOUR
        ld (hl),a ; Store COLOUR as blockcolour
        ret


showSplash2 ; Volcado de pantalla
        di ; esperad todos un momento!
        ld b,6 ; quiero ver este banco de memoria
        call bankScreen ; cambia a ese banco
        ld hl,$c000 + 8000 ; desde origen mas 8000 bites, donde está almacenada la segunda pantalla.
        ld de,$4000 ; hasta pantalla
        ld bc,6912 ; todos estos bites
        ldir ; cópialos
        call bank0 ; mira ahora al banco 0 (el de siempre)
        ei ; ya podeis seguir con vuestras cosas
        ret ; gracias


De esta forma, no presenta la segunda pantalla, pero si muestra la primera.
Y si le pongo el USER 16, se reinicia


Es decir, el comportamiento es:

- USER 12, muestra primera pantalla (debería de ser la segunda).
- USER 16, se reinicia

[ramon]

Lo siento. Te mando la versión corregida. 

Copiar en Suite ZX y descomprimir allí de la manera siguiente: