From c3b0fa04a663fe233765b83d3be41a42aa08c25d Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Mon, 3 May 2021 08:21:10 +0100 Subject: Initial import for public release --- lib/Makefile | 20 + lib/cpcrslib/GphStrStd.s | 412 +++++++++ lib/cpcrslib/LICENSE | 20 + lib/cpcrslib/Makefile | 23 + lib/cpcrslib/Sprites.s | 37 + lib/cpcrslib/TileMap.h | 304 +++++++ lib/cpcrslib/Wyz.s | 1403 ++++++++++++++++++++++++++++++ lib/cpcrslib/cpc_ClrScr.s | 11 + lib/cpcrslib/cpc_CollSp.s | 126 +++ lib/cpcrslib/cpc_DisableEnableFirmware.s | 28 + lib/cpcrslib/cpc_GetScrAddress.s | 65 ++ lib/cpcrslib/cpc_GetSp.s | 49 ++ lib/cpcrslib/cpc_GphStr.s | 700 +++++++++++++++ lib/cpcrslib/cpc_Keyboard.s | 348 ++++++++ lib/cpcrslib/cpc_PrintStr.s | 27 + lib/cpcrslib/cpc_PutMaskSp.s | 79 ++ lib/cpcrslib/cpc_PutMaskSp2x8.s | 45 + lib/cpcrslib/cpc_PutMaskSp4x16.s | 56 ++ lib/cpcrslib/cpc_PutSp.s | 54 ++ lib/cpcrslib/cpc_PutSp2x14.s | 50 ++ lib/cpcrslib/cpc_PutSpTr.s | 75 ++ lib/cpcrslib/cpc_PutSpXOR.s | 79 ++ lib/cpcrslib/cpc_PutSprite.s | 108 +++ lib/cpcrslib/cpc_RLI.s | 39 + lib/cpcrslib/cpc_RRI.s | 39 + lib/cpcrslib/cpc_Random.s | 34 + lib/cpcrslib/cpc_SetBorder.s | 10 + lib/cpcrslib/cpc_SetColour.s | 16 + lib/cpcrslib/cpc_SetInk.s | 12 + lib/cpcrslib/cpc_SetMode.s | 13 + lib/cpcrslib/cpc_SetModo.s | 9 + lib/cpcrslib/cpc_TileMap.s | 1332 ++++++++++++++++++++++++++++ lib/cpcrslib/cpc_UnExoOpt.s | 183 ++++ lib/cpcrslib/cpc_Uncrunch.s | 308 +++++++ lib/cpcrslib/cpcrslib.h | 116 +++ lib/cpcrslib/cpcwyzlib.h | 18 + lib/cpcrslib/make.bat | 19 + lib/ucl.h | 5 + lib/ucl.s | 360 ++++++++ 39 files changed, 6632 insertions(+) create mode 100644 lib/Makefile create mode 100644 lib/cpcrslib/GphStrStd.s create mode 100644 lib/cpcrslib/LICENSE create mode 100644 lib/cpcrslib/Makefile create mode 100644 lib/cpcrslib/Sprites.s create mode 100644 lib/cpcrslib/TileMap.h create mode 100644 lib/cpcrslib/Wyz.s create mode 100644 lib/cpcrslib/cpc_ClrScr.s create mode 100644 lib/cpcrslib/cpc_CollSp.s create mode 100644 lib/cpcrslib/cpc_DisableEnableFirmware.s create mode 100644 lib/cpcrslib/cpc_GetScrAddress.s create mode 100644 lib/cpcrslib/cpc_GetSp.s create mode 100644 lib/cpcrslib/cpc_GphStr.s create mode 100644 lib/cpcrslib/cpc_Keyboard.s create mode 100644 lib/cpcrslib/cpc_PrintStr.s create mode 100644 lib/cpcrslib/cpc_PutMaskSp.s create mode 100644 lib/cpcrslib/cpc_PutMaskSp2x8.s create mode 100644 lib/cpcrslib/cpc_PutMaskSp4x16.s create mode 100644 lib/cpcrslib/cpc_PutSp.s create mode 100644 lib/cpcrslib/cpc_PutSp2x14.s create mode 100644 lib/cpcrslib/cpc_PutSpTr.s create mode 100644 lib/cpcrslib/cpc_PutSpXOR.s create mode 100644 lib/cpcrslib/cpc_PutSprite.s create mode 100644 lib/cpcrslib/cpc_RLI.s create mode 100644 lib/cpcrslib/cpc_RRI.s create mode 100644 lib/cpcrslib/cpc_Random.s create mode 100644 lib/cpcrslib/cpc_SetBorder.s create mode 100644 lib/cpcrslib/cpc_SetColour.s create mode 100644 lib/cpcrslib/cpc_SetInk.s create mode 100644 lib/cpcrslib/cpc_SetMode.s create mode 100644 lib/cpcrslib/cpc_SetModo.s create mode 100644 lib/cpcrslib/cpc_TileMap.s create mode 100644 lib/cpcrslib/cpc_UnExoOpt.s create mode 100644 lib/cpcrslib/cpc_Uncrunch.s create mode 100644 lib/cpcrslib/cpcrslib.h create mode 100644 lib/cpcrslib/cpcwyzlib.h create mode 100644 lib/cpcrslib/make.bat create mode 100644 lib/ucl.h create mode 100644 lib/ucl.s (limited to 'lib') diff --git a/lib/Makefile b/lib/Makefile new file mode 100644 index 0000000..a0c7d41 --- /dev/null +++ b/lib/Makefile @@ -0,0 +1,20 @@ +all: ucl.lib cpcrslib.lib + +AS=sdasz80 +AR=sdcclib + +ucl.lib: ucl.s + $(AS) -o $< + $(AR) -a $@ ucl.rel + +cpcrslib.lib: $(wildcard cpcrslib/*.s) + make -C cpcrslib + +cpcwyzlib.lib: $(wildcard cpcrslib/*.s) + make -C cpcwyzlib + +.PHONY: clean +clean: + rm -f *.rel *.lib + make -C cpcrslib clean + diff --git a/lib/cpcrslib/GphStrStd.s b/lib/cpcrslib/GphStrStd.s new file mode 100644 index 0000000..08c19ec --- /dev/null +++ b/lib/cpcrslib/GphStrStd.s @@ -0,0 +1,412 @@ +; ****************************************************** +; ** Librería de rutinas SDCC para Amstrad CPC ** +; ** Raúl Simarro (Artaburu) - 2009, 2012 ** +; ****************************************************** + +cpc_GetScrAddress0: ;en HL están las coordenadas + + ;LD A,H + LD (#inc_ancho+1),A + LD A,L + SRL A + SRL A + SRL A + ; A indica el bloque a multiplicar x &50 + LD D,A ;D + SLA A + SLA A + SLA A + SUB L + NEG + ; A indica el desplazamiento a multiplicar x &800 + LD E,A ;E + LD L,D + LD H,#0 + ADD HL,HL + LD BC,#bloques + ADD HL,BC + ;HL APUNTA AL BLOQUE BUSCADO + LD C,(HL) + INC HL + LD H,(HL) + LD L,C + ;HL TIENE EL VALOR DEL BLOQUE DE 8 BUSCADO + PUSH HL + LD D,#0 + LD HL,#sub_bloques + ADD HL,DE + LD A,(HL) + POP HL + ADD H + LD H,A +inc_ancho: + LD E,#0 + ADD HL,DE + RET + +bloques: +.DW #0XC000,#0XC050,#0XC0A0,#0XC0F0,#0XC140,#0XC190,#0XC1E0,#0XC230,#0XC280,#0XC2D0,#0XC320,#0XC370,#0XC3C0,#0XC410,#0XC460,#0XC4B0,#0XC500,#0XC550,#0XC5A0,#0XC5F0,#0XC640,#0XC690,#0XC6E0,#0XC730,#0XC780 +sub_bloques: +.DB #0X00,#0X08,#0X10,#0X18,#0X20,#0X28,#0X30,#0X38 + + + + +.globl _cpc_PrintGphStrStd + +_cpc_PrintGphStrStd:: + ld ix,#2 + add ix,sp + ld l,3 (ix) + ld h,4 (ix) ;destino + ld e,1 (ix) + ld d,2 (ix) ;texto origen + ld a,0 (ix) ;color + ld (#color_uso+1),a + JP cpc_PrintGphStrStd0 + + +.globl _cpc_PrintGphStrStdXY + +_cpc_PrintGphStrStdXY:: +;preparación datos impresión. El ancho y alto son fijos! + ld ix,#2 + add ix,sp + ld L,4 (ix) + ld A,3 (ix) ;pantalla + call cpc_GetScrAddress0 + ld e,1 (ix) + ld d,2 (ix) ;texto origen + ld a,0 (ix) ;color + ld (#color_uso+1),a + JP cpc_PrintGphStrStd0 + +color0: + XOR A + CALL metecolor + JP sigue +color1: + LD A,#0B00001000 + CALL metecolor + JP sigue +color2: + LD A,#0B10000000 + CALL metecolor + JP sigue +color3: + LD A,#0b10001000 + CALL metecolor + JP sigue +metecolor: + LD (#cc0_gpstd-1),A + LD (#cc4_gpstd-1),A + SRL A + LD (#cc1_gpstd-1),A + LD (#cc5_gpstd-1),A + SRL A + LD (#cc2_gpstd-1),A + LD (#cc6_gpstd-1),A + SRL A + LD (#cc3_gpstd-1),A + LD (#cc7_gpstd-1),A + RET + +cpc_PrintGphStrStd0: +;; marcará el color con que se imprime +color_uso: + LD A,#1 + OR A + JP Z,color0 + CP #1 + JP Z,color1 + CP #2 + JP Z,color2 + CP #3 + JP Z,color3 +sigue: + + ;trabajo previo: Para tener una lista de trabajos de impresión. No se interrumpe + ;la impresión en curso. + LD A,(#imprimiendo) + CP #1 + JP Z,add_elemento + LD (#direcc_destino),HL + EX DE,HL + CALL bucle_texto0 + +;antes de terminar, se mira si hay algo en cola. +bucle_cola_impresion: + LD A,(#elementos_cola) + OR A + JP Z,terminar_impresion + CALL leer_elemento + JP bucle_cola_impresion + +terminar_impresion: + XOR A + LD (#imprimiendo),A + RET +entrar_cola_impresion: + ;si se está imprimiendo se mete el valor en la cola + RET +add_elemento: + DI + LD IX,(#pos_cola) + LD 0 (IX),L + LD 1 (IX),H + LD 2 (IX),E + LD 3 (IX),D + INC IX + INC IX + INC IX + INC IX + Ld (#pos_cola),IX + LD HL,#elementos_cola + INC (HL) + EI + RET +leer_elemento: + DI + LD IX,(#pos_cola) + LD L,0 (IX) + LD H,1 (IX) + LD E,2 (IX) + LD D,3 (IX) + DEC IX + DEC IX + DEC IX + DEC IX + LD (#pos_cola),IX + LD HL,#elementos_cola + DEC (HL) + EI + RET + +elementos_cola: + .DW #0 +pos_cola: + .DW cola_impresion +cola_impresion: + .DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 ; defs 12 +bucle_texto0: + LD A,#1 + LD (#imprimiendo),A + LD A,(#first_char8) + LD B,A ;resto 48 para saber el número del caracter (En ASCII 0=48) + LD A,(HL) + OR A ;CP 0 + RET Z + SUB B + LD BC,#cpc_Chars8 ;apunto a la primera letra + PUSH HL + LD L,A + LD H,#0 + ADD HL,HL + ADD HL,HL + ADD HL,HL + ADD HL,BC + CALL escribe_letra_gpstd + LD HL,(#direcc_destino) + + LD DE,#letra_decodificada + CALL cpc_PutSp0_gpstd + LD HL,(#direcc_destino) + INC HL + INC HL + LD (#direcc_destino),HL + POP HL + INC HL + JP bucle_texto0 + +imprimiendo: + .db #0 +direcc_destino: + .dw #0 + + +cpc_PutSp0_gpstd: + .DB #0XFD + LD H,#8 + LD B,#7 + LD C,B +loop_alto_2_gpstd: +loop_ancho_2_gpstd: + EX DE,HL + LDI + LDI + .DB #0XFD + DEC H + RET Z + EX DE,HL +salto_linea_gpstd: + LD C,#0XFE + ADD HL,BC + JP NC,loop_alto_2_gpstd + LD BC,#0XC050 + ADD HL,BC + LD B,#7 + JP loop_alto_2_gpstd + + + +escribe_letra_gpstd: ;; lee el byte y lo interpreta + LD IY,#letra_decodificada + LD B,#8 +bucle_alto_gpstd: + PUSH BC ;leo el byte... ahora se miran sus bits y se rellena el caracter a imprimir + XOR A + LD B,(HL) + BIT 7,B + JP Z,cc0_gpstd + OR #0b10001000 +cc0_gpstd: + BIT 6,B + JP Z,cc1_gpstd + OR #0b01000100 +cc1_gpstd: + BIT 5,B + JP Z,cc2_gpstd + OR #0b00100010 +cc2_gpstd: + BIT 4,B + JP Z,cc3_gpstd + OR #0b00010001 +cc3_gpstd: + ;primer byte + LD 0 (IY),A + INC IY + XOR A + BIT 3,B + JP Z,cc4_gpstd + OR #0b10001000 +cc4_gpstd: + BIT 2,B + JP Z,cc5_gpstd + OR #0b01000100 +cc5_gpstd: + BIT 1,B + JP Z,cc6_gpstd + OR #0b00100010 +cc6_gpstd: + BIT 0,B + JP Z,cc7_gpstd + OR #0b00010001 +cc7_gpstd: + ;segundo byte + LD 0 (IY),A + INC IY + INC HL + POP BC + DJNZ bucle_alto_gpstd + RET + + + +byte_tmp: ;DEFS 2 + .DB #0,#0 +letra_decodificada: + .DB #0,#0,#0,#0,#0,#0,#0,#0 ;DEFS 16 + .DB #0,#0,#0,#0,#0,#0,#0,#0 ;USO ESTE ESPACIO PARA GUARDAR LA LETRA QUE SE DECODIFICA + +;DEFC direcc_destino0s_m1 = direcc_destino + +first_char8: + .DB #32 ;first defined char number (ASCII) +cpc_Chars8: ;each bit of each byte is a pixel,#same way as SYMBOL function of Locomotive BASIC. + ;; KEY SET BY ANJUEL & NA_TH_AN FROM NANAKO CPC GAME. + .DB #0,#0,#0,#0,#0,#0,#0,#0 + .DB #28,#8,#8,#8,#28,#0,#8,#0 + .DB #10,#10,#0,#0,#0,#0,#0,#0 + .DB #36,#126,#36,#36,#36,#126,#36,#0 + .DB #16,#62,#32,#60,#4,#124,#8,#0 + .DB #0,#50,#52,#8,#22,#38,#0,#0 + .DB #0,#16,#40,#58,#68,#58,#0,#0 + .DB #16,#16,#0,#0,#0,#0,#0,#0 + .DB #16,#112,#80,#64,#80,#112,#16,#0 + .DB #8,#14,#10,#2,#10,#14,#8,#0 + .DB #0,#42,#28,#28,#42,#0,#0,#0 + .DB #0,#8,#8,#62,#8,#8,#0,#0 + .DB #0,#0,#0,#0,#12,#12,#0,#0 + .DB #0,#0,#0,#62,#0,#0,#0,#0 + .DB #0,#0,#0,#0,#12,#12,#16,#0 + .DB #0,#4,#8,#16,#32,#64,#0,#0 + .DB #62,#34,#34,#34,#34,#34,#62,#0 + .DB #12,#4,#4,#4,#4,#4,#4,#0 + .DB #62,#34,#2,#62,#32,#34,#62,#0 + .DB #62,#36,#4,#28,#4,#36,#62,#0 + .DB #32,#32,#36,#62,#4,#4,#14,#0 + .DB #62,#32,#32,#62,#2,#34,#62,#0 + .DB #62,#32,#32,#62,#34,#34,#62,#0 + .DB #62,#36,#4,#4,#4,#4,#14,#0 + .DB #62,#34,#34,#62,#34,#34,#62,#0 + .DB #62,#34,#34,#62,#2,#34,#62,#0 + .DB #0,#24,#24,#0,#0,#24,#24,#0 + .DB #0,#24,#24,#0,#0,#24,#24,#32 + .DB #4,#8,#16,#32,#16,#8,#4,#0 + .DB #0,#0,#126,#0,#0,#126,#0,#0 + .DB #32,#16,#8,#4,#8,#16,#32,#0 + .DB #64,#124,#68,#4,#28,#16,#0,#16 + .DB #0,#56,#84,#92,#64,#60,#0,#0 + .DB #126,#36,#36,#36,#60,#36,#102,#0 + .DB #124,#36,#36,#62,#34,#34,#126,#0 + .DB #2,#126,#66,#64,#66,#126,#2,#0 + .DB #126,#34,#34,#34,#34,#34,#126,#0 + .DB #2,#126,#66,#120,#66,#126,#2,#0 + .DB #2,#126,#34,#48,#32,#32,#112,#0 + .DB #2,#126,#34,#32,#46,#36,#124,#0 + .DB #102,#36,#36,#60,#36,#36,#102,#0 + .DB #56,#16,#16,#16,#16,#16,#56,#0 + .DB #28,#8,#8,#8,#8,#40,#56,#0 + .DB #108,#40,#40,#124,#36,#36,#102,#0 + .DB #112,#32,#32,#32,#34,#126,#2,#0 + .DB #127,#42,#42,#42,#42,#107,#8,#0 + .DB #126,#36,#36,#36,#36,#36,#102,#0 + .DB #126,#66,#66,#66,#66,#66,#126,#0 + .DB #126,#34,#34,#126,#32,#32,#112,#0 + .DB #126,#66,#66,#74,#126,#8,#28,#0 + .DB #126,#34,#34,#126,#36,#36,#114,#0 + .DB #126,#66,#64,#126,#2,#66,#126,#0 + .DB #34,#62,#42,#8,#8,#8,#28,#0 + .DB #102,#36,#36,#36,#36,#36,#126,#0 + .DB #102,#36,#36,#36,#36,#24,#0,#0 + .DB #107,#42,#42,#42,#42,#42,#62,#0 + .DB #102,#36,#36,#24,#36,#36,#102,#0 + .DB #102,#36,#36,#60,#8,#8,#28,#0 + .DB #126,#66,#4,#8,#16,#34,#126,#0 + .DB #4,#60,#36,#32,#36,#60,#4,#0 + .DB #0,#64,#32,#16,#8,#4,#0,#0 + .DB #32,#60,#36,#4,#36,#60,#32,#0 + .DB #0,#16,#40,#68,#0,#0,#0,#0 + .DB #0,#0,#0,#0,#0,#0,#0,#0 + .DB #0,#100,#104,#16,#44,#76,#0,#0 + .DB #126,#36,#36,#36,#60,#36,#102,#0 + .DB #124,#36,#36,#62,#34,#34,#126,#0 + .DB #2,#126,#66,#64,#66,#126,#2,#0 + .DB #126,#34,#34,#34,#34,#34,#126,#0 + .DB #2,#126,#66,#120,#66,#126,#2,#0 + .DB #2,#126,#34,#48,#32,#32,#112,#0 + .DB #2,#126,#34,#32,#46,#36,#124,#0 + .DB #102,#36,#36,#60,#36,#36,#102,#0 + .DB #56,#16,#16,#16,#16,#16,#56,#0 + .DB #28,#8,#8,#8,#8,#40,#56,#0 + .DB #108,#40,#40,#124,#36,#36,#102,#0 + .DB #112,#32,#32,#32,#34,#126,#2,#0 + .DB #127,#42,#42,#42,#42,#107,#8,#0 + .DB #126,#36,#36,#36,#36,#36,#102,#0 + .DB #126,#66,#66,#66,#66,#66,#126,#0 + .DB #126,#34,#34,#126,#32,#32,#112,#0 + .DB #126,#66,#66,#74,#126,#8,#28,#0 + .DB #126,#34,#34,#126,#36,#36,#114,#0 + .DB #126,#66,#64,#126,#2,#66,#126,#0 + .DB #34,#62,#42,#8,#8,#8,#28,#0 + .DB #102,#36,#36,#36,#36,#36,#126,#0 + .DB #102,#36,#36,#36,#36,#24,#0,#0 + .DB #107,#42,#42,#42,#42,#42,#62,#0 + .DB #102,#36,#36,#24,#36,#36,#102,#0 + .DB #102,#36,#36,#60,#8,#8,#28,#0 + .DB #126,#66,#4,#8,#16,#34,#126,#0 + .DB #4,#60,#36,#96,#96,#36,#60,#4 + .DB #0,#16,#16,#16,#16,#16,#16,#0 + .DB #32,#60,#36,#6,#6,#36,#60,#32 + .DB #0,#0,#16,#40,#68,#0,#0,#0 + .DB #126,#66,#90,#82,#90,#66,#126,#0 \ No newline at end of file diff --git a/lib/cpcrslib/LICENSE b/lib/cpcrslib/LICENSE new file mode 100644 index 0000000..04424c0 --- /dev/null +++ b/lib/cpcrslib/LICENSE @@ -0,0 +1,20 @@ +Copyright (c) 2008-2015 Raúl Simarro + +Permission is hereby granted, free of charge, to any person obtaining a copy of +this software and associated documentation files (the "Software"), to deal in +the Software without restriction, including without limitation the rights to +use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies +of the Software, and to permit persons to whom the Software is furnished to do +so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. + diff --git a/lib/cpcrslib/Makefile b/lib/cpcrslib/Makefile new file mode 100644 index 0000000..83a9d7c --- /dev/null +++ b/lib/cpcrslib/Makefile @@ -0,0 +1,23 @@ +all: cpcrslib.lib cpcwyzlib.lib + +AS=sdasz80 +AR=sdcclib +cpcrslib_SRCS=$(wildcard cpc_*.s) +cpcrslib_OBJS=$(patsubst %.s,%.rel,$(cpcrslib_SRCS)) +cpcwyzlib_OBJS=Wyz.rel + +cpcrslib.lib: $(cpcrslib_OBJS) + $(AR) -a cpcrslib.lib $(cpcrslib_OBJS) + cp cpcrslib.lib .. + +cpcwyzlib.lib: $(cpcwyzlib_OBJS) + $(AR) -a cpcwyzlib.lib $(cpcwyzlib_OBJS) + cp cpcwyzlib.lib .. + +%.rel: %.s + $(AS) -o $< + +.PHONY: clean +clean: + rm -f *.rel *.lib + diff --git a/lib/cpcrslib/Sprites.s b/lib/cpcrslib/Sprites.s new file mode 100644 index 0000000..20ed720 --- /dev/null +++ b/lib/cpcrslib/Sprites.s @@ -0,0 +1,37 @@ +; ****************************************************** +; ** Librería de rutinas SDCC para Amstrad CPC ** +; ** Raúl Simarro (Artaburu) - 2009, 2012 ** +; ****************************************************** + + +;************************************* +; SPRITES +;************************************* + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/lib/cpcrslib/TileMap.h b/lib/cpcrslib/TileMap.h new file mode 100644 index 0000000..6240bad --- /dev/null +++ b/lib/cpcrslib/TileMap.h @@ -0,0 +1,304 @@ + +.globl _tiles +.globl _pantalla_juego +.globl _tiles_tocados +.globl _posiciones_pantalla +.globl _posiciones_super_buffer +.globl _tabla_y_ancho_pantalla + + +;.globl _posicion_inicial_area_visible +;.globl _posicion_inicial_superbuffer +;.globl _ancho_pantalla_bytes +;.globl _alto_pantalla_bytes +;.globl _ancho_pantalla_bytes_visible + + +; *************************************************** +; Transparent colour for cpc_PutTrSpTileMap2b routine +;.globl _mascara1 +;.globl _mascara2 +; *************************************************** + +;.globl _tiles_ocultos_ancho0 +;.globl _tiles_ocultos_alto0 +;.globl _tiles_ocultos_ancho1 +;.globl _tiles_ocultos_alto1 + + +;.globl _posicion_inicio_pantalla_visible +;.globl _posicion_inicio_pantalla_visible_sb + + + +;.globl _tile +; *************************************************** +; Scroll Left Addresses column +; not requiered if scroll not used +.globl _ColumnScr +; *************************************************** + + +; *************************************************** +; Transparent colour for cpc_PutTrSpTileMap2b routine +; For printing sprites using transparent color (mode 0) transparent color selection is requiered. +; Selección color transparente. Escribir las 2 máscaras que correspondan al color elegido. +;Example colour number 7: +mascara1 = #0 +mascara2 = #0 + + +;0: #0x00, #0x00 +;1: #0x80, #0x40 +;2: #0x04, #0x08 +;3: #0x44, #0x88 +;4: #0x10, #0x20 +;5: #0x50, #0xA0 +;6: #0x14, #0x28 +;7: #0x54, #0xA8 +;8: #0x01, #0x02 +;9: #0x41, #0x82 +;10: #0x05, #0x0A +;11: #0x45, #0x8A +;12: #0x11, #0x22 +;13: #0x51, #0xA2 +;14: #0x15, #0x2A +;15: #0x55, #0xAA +; *************************************************** + + + + +;------------------------------------------------------------------------------------ +; SCREEN AND BUFFER ADDRESSES +; VALORES QUE DEFINEN EL BUFFER Y LA PANTALLA +;------------------------------------------------------------------------------------ + +posicion_inicial_area_visible = #0xc0A4 +posicion_inicial_superbuffer = #0x100 + + +;------------------------------------------------------------------------------------ + +;------------------------------------------------------------------------------------ +; TILE MAP DIMENSIONS +;------------------------------------------------------------------------------------ + +T_WIDTH = 32 ;max=40 ;dimensiones de la pantalla en tiles +T_HEIGHT = 16 ;max=20 + + +;Invisible tile margins: +T_WH = 2 +T_HH = 0 +;------------------------------------------------------------------------------------ + + +tiles_ocultos_ancho0 = T_WH +tiles_ocultos_alto0 = T_HH +tiles_ocultos_ancho1 = T_WIDTH - T_WH - 1 +tiles_ocultos_alto1 = T_HEIGHT - T_HH - 1 + +;------------------------------------------------------------------------------------ +; Other parameters (internal use) +;------------------------------------------------------------------------------------ +;------------------------------------------------------------------------------------ + +ancho_pantalla_bytes = 2*T_WIDTH ; 2*T_WIDTH; ; El ancho de pantalla influye determinantemente en numerosas rutinas que hay que actualizar si se cambia + ; OJO con el modo +alto_pantalla_bytes = 8*T_HEIGHT; +ancho_pantalla_bytes_visible = 2*T_WIDTH ;32 ; 64; ;dentro del area definida, cuanto se debe mostrar. 2*T_WIDTH + +;El tamaño del buffer es ancho_pantalla_bytes*alto_pantalla_bytes + +_TileMapConf: +;------------------------------------------------------------------------------------ +;Con la definición del mapeado hay que tener en cuenta que las coordenadas son: +;ANCHO=64 bytes (128 pixels en modo 0) +;ALTO=128 pixels +;el máximo que entra en el CPC es 20 líneas +;SI NO SE VAN A USAR TODAS LAS LINEAS, PARA AHORRA MEMORIA ES INTERESANTE COMENTARLAS +_posiciones_pantalla: ;Posiciones en las que se dibujan los tiles +.DW #posicion_inicial_area_visible+#0x50*0 +.DW #posicion_inicial_area_visible+#0x50*1 +.DW #posicion_inicial_area_visible+#0x50*2 +.DW #posicion_inicial_area_visible+#0x50*3 +.DW #posicion_inicial_area_visible+#0x50*4 +.DW #posicion_inicial_area_visible+#0x50*5 +.DW #posicion_inicial_area_visible+#0x50*6 +.DW #posicion_inicial_area_visible+#0x50*7 +.DW #posicion_inicial_area_visible+#0x50*8 +.DW #posicion_inicial_area_visible+#0x50*9 +.DW #posicion_inicial_area_visible+#0x50*10 +.DW #posicion_inicial_area_visible+#0x50*11 +.DW #posicion_inicial_area_visible+#0x50*12 +.DW #posicion_inicial_area_visible+#0x50*13 +.DW #posicion_inicial_area_visible+#0x50*14 +.DW #posicion_inicial_area_visible+#0x50*15 +.DW #posicion_inicial_area_visible+#0x50*16 +.DW #posicion_inicial_area_visible+#0x50*17 +.DW #posicion_inicial_area_visible+#0x50*18 +.DW #posicion_inicial_area_visible+#0x50*19 + +_posiciones_super_buffer: ;muestra el inicio de cada línea (son 10 tiles de 8x16 de alto) +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*0 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*1 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*2 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*3 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*4 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*5 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*6 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*7 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*8 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*9 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*10 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*11 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*12 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*13 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*14 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*15 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*16 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*17 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*18 +.DW #posicion_inicial_superbuffer+8*ancho_pantalla_bytes*19 + + + + +; *************************************************** +; Scroll Left Addresses column. DECRAPTED +; not requiered if scroll not used comment it ;) +_ColumnScr: +; *************************************************** + + +_pantalla_actual: .DW #0 +_pantalla_juego: ;en tiles +;defs T_WIDTH*T_HEIGHT +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.DB #0xFF ;Este byte es importante, marca el fin de la pantalla. + + +_fondo_pantalla_juego: ;en tiles +;defs T_WIDTH*T_HEIGHT +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#13,#14,#17,#13,#14,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#15,#16,#17,#15,#16,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 +.DB #17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17,#17 + + +_tiles_tocados: +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF +.DB #0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF,#0xFF + ;defs 150 ;150 ;cuando un tile es tocado, se marca en esta tabla para luego restaurarlo. Es una tabla sin duplicados. + + +_tabla_y_ancho_pantalla: +.dw #_pantalla_juego + #0 +.dw #_pantalla_juego + #1*T_WIDTH +.dw #_pantalla_juego + #2*T_WIDTH +.dw #_pantalla_juego + #3*T_WIDTH +.dw #_pantalla_juego + #4*T_WIDTH +.dw #_pantalla_juego + #5*T_WIDTH +.dw #_pantalla_juego + #6*T_WIDTH +.dw #_pantalla_juego + #7*T_WIDTH +.dw #_pantalla_juego + #8*T_WIDTH +.dw #_pantalla_juego + #9*T_WIDTH +.dw #_pantalla_juego + #10*T_WIDTH +.dw #_pantalla_juego + #11*T_WIDTH +.dw #_pantalla_juego + #12*T_WIDTH +.dw #_pantalla_juego + #13*T_WIDTH +.dw #_pantalla_juego + #14*T_WIDTH +.dw #_pantalla_juego + #15*T_WIDTH +.dw #_pantalla_juego + #16*T_WIDTH +.dw #_pantalla_juego + #17*T_WIDTH +.dw #_pantalla_juego + #18*T_WIDTH +.dw #_pantalla_juego + #19*T_WIDTH + +;_tabla_y_x_ancho2: +;.dw #ancho_pantalla_bytes * 0 /2 +;.dw #ancho_pantalla_bytes * 1 /2 +;.dw #ancho_pantalla_bytes * 2 /2 +;.dw #ancho_pantalla_bytes * 3 /2 +;.dw #ancho_pantalla_bytes * 4 /2 +;.dw #ancho_pantalla_bytes * 5 /2 +;.dw #ancho_pantalla_bytes * 6 /2 +;.dw #ancho_pantalla_bytes * 7 /2 +;.dw #ancho_pantalla_bytes * 8 /2 +;.dw #ancho_pantalla_bytes * 9 /2 +;.dw #ancho_pantalla_bytes * 10 /2 +;.dw #ancho_pantalla_bytes * 11 /2 +;.dw #ancho_pantalla_bytes * 12 /2 +;.dw #ancho_pantalla_bytes * 13 /2 +;.dw #ancho_pantalla_bytes * 14 /2 +;.dw #ancho_pantalla_bytes * 15 /2 +;.dw #ancho_pantalla_bytes * 16 /2 +;.dw #ancho_pantalla_bytes * 17 /2 +;.dw #ancho_pantalla_bytes * 18 /2 +;.dw #ancho_pantalla_bytes * 19 /2 + + +;------------------------------------------------------------------------------------ +; TILE DATA. TILES MUST BE DEFINED HERE +;------------------------------------------------------------------------------------ + + +_tiles: ;Son de 2x8 bytes +;tile 0 +.db #0x00,#0x00 +.db #0x40,#0x00 +.db #0x40,#0x00 +.db #0x40,#0x00 +.db #0x40,#0x00 +.db #0x40,#0x00 +.db #0x40,#0xC0 +.db #0x00,#0x00 +;tile 1 +.db #0x3C,#0x00 +.db #0x3C,#0x00 +.db #0x00,#0x3C +.db #0x00,#0x3C +.db #0x3C,#0x00 +.db #0x3C,#0x00 +.db #0x00,#0x3C +.db #0x00,#0x3C +;tile 2 +.db #0x00,#0x00 +.db #0x15,#0x00 +.db #0x00,#0x2A +.db #0x15,#0x00 +.db #0x00,#0x2A +.db #0x15,#0x00 +.db #0x00,#0x00 +.db #0x00,#0x00 diff --git a/lib/cpcrslib/Wyz.s b/lib/cpcrslib/Wyz.s new file mode 100644 index 0000000..d6f7e55 --- /dev/null +++ b/lib/cpcrslib/Wyz.s @@ -0,0 +1,1403 @@ +; ****************************************************** +; ** Librería de rutinas para Amstrad CPC ** +; ** Raúl Simarro, Artaburu 2010 ** +; ** PLAYER programado por WYZ ** +; ****************************************************** + +;XLIB cpc_WyzPlayer + + + +;XDEF CARGA_CANCION_WYZ +;XDEF INICIA_EFECTO_WYZ +;XDEF cpc_WyzSetPlayerOn0 +;XDEF cpc_WyzSetPlayerOff0 + +;XDEF TABLA_SONG +;XDEF TABLA_EFECTOS +;XDEF TABLA_PAUTAS +;;XDEF TABLA_SONIDOS +;XDEF INTERRUPCION + +;XDEF BUFFER_MUSICA +;XDEF direcc_tempo + + + + +;DEFINE BUFFER_DEC = #0x100 + + + + + +; CPC PSG proPLAYER - WYZ 2010 +;XREF INTERRUPCION + + +.globl _cpc_WyzConfigurePlayer + +_cpc_WyzConfigurePlayer:: + + LD HL,#2 + ADD HL,SP + LD a,(HL) + + LD (#INTERR),A + RET + + +.globl _cpc_WyzInitPlayer + +_cpc_WyzInitPlayer:: + +; la entrada indica las tablas de canciones, pautas, efectos,... sólo hay que inicializar esos datos +; en la librería + LD IX,#2 + ADD IX,SP + + LD L,6 (IX) + LD H,7 (IX) + LD (#TABLA_SONG0),HL + LD L,4 (IX) + LD H,5 (IX) + LD (#TABLA_EFECTOS0),HL + LD L,2 (IX) + LD H,3 (IX) + LD (#TABLA_PAUTAS0),HL + LD L,0 (IX) + LD H,1 (IX) + LD (#TABLA_SONIDOS0),HL + RET + +.globl _cpc_WyzLoadSong + +_cpc_WyzLoadSong:: + LD HL,#2 + ADD HL,SP + LD A,(HL) + JP CARGA_CANCION_WYZ0 + + +.globl _cpc_WyzSetTempo + +_cpc_WyzSetTempo:: + LD HL,#2 + ADD HL,SP + LD A,(HL) + ld (#dir_tempo+1),a + ret + + +.globl _cpc_WyzStartEffect + +_cpc_WyzStartEffect:: + LD HL,#2 + ADD HL,SP + LD c,(HL) + INC HL + LD b,(HL) + ;AHORA TIENE 2 parámetros: C:canal, B:numero efecto + JP INICIA_EFECTO_WYZ0 + +;.globl _cpc_WyzStartSound + +;_cpc_WyzStartSound:: +; LD HL,#2 +; ADD HL,SP +; LD A,(HL) +; JP INICIA_SONIDO_WYZ + +.globl _cpc_WyzTestPlayer + +_cpc_WyzTestPlayer:: + LD HL,#INTERR + LD A,(HL) + LD L,A + LD H,#0 + RET + +_cpc_WyzPlayer:: + +;.globl _cpc_WyzSetPlayerOn +;.globl _cpc_WyzSetPlayerOn1 + +;_cpc_WyzSetPlayerOn:: +;_cpc_WyzSetPlayerOn1:: + ;El player funcionará por interrupciones. +; DI +; ld a,(#0x0038) +; ld (#datos_int),a +; ld (#salto_int),a +; ld a,(#0x0039) +; ld (#datos_int+1),a +; ld (#salto_int+1),a +; ld a,(#0x003a) +; ld (#datos_int+2),a +; ld (#salto_int+2),a +; +; ld a,#0xC3 +; ld (#0x0038),a +; ld HL,#INICIO +; ld (#0x0039),HL +; EI +; ret + +.globl _cpc_WyzSetPlayerOff +;.globl _cpc_WyzSetPlayerOff1 +_cpc_WyzSetPlayerOff:: +;_cpc_WyzSetPlayerOff1:: + + ;apago todos los sonidos poniendo los registros a 0 + call PLAYER_OFF + ret + + ;DI + ;Restaura salto original + ;ld a,(#datos_int) ;guardo el salto original + ;ld (#0x0038),A + ;ld a,(#datos_int+1) ;guardo el salto original + ;ld (#0x0039),A + ;ld a,(#datos_int+2) ;guardo el salto original + ;ld (#0x003a),A + + ;EI + ;ret + + + + + +;___________________________________________________________ + + ; .db "PSG PROPLAYER BY WYZ'10" + +;___________________________________________________________ + + +;___________________________________________________________ + +.globl _cpc_WyzPlayerISR + +_cpc_WyzPlayerISR:: + +INICIO: + + + ;primero mira si toca tocar :P + ;push af + LD A,(#contador) + DEC A + LD (#contador),A + OR #0 + JP NZ,termina_int +dir_tempo: + LD A,#6 + LD (#contador),A + + PUSH BC + PUSH HL + PUSH DE + PUSH IX + PUSH IY + + + + CALL ROUT + LD HL,#PSG_REG + LD DE,#PSG_REG_SEC + LD BC,#14 + LDIR + + + + CALL PLAY + CALL REPRODUCE_SONIDO + + LD HL,#PSG_REG_SEC + LD DE,#PSG_REG_EF + LD BC,#14 + LDIR + + ;De este modo, prevalece el efecto + CALL REPRODUCE_EFECTO_A + CALL REPRODUCE_EFECTO_B + CALL REPRODUCE_EFECTO_C + CALL ROUT_EF + + + + POP IY + POP IX + POP DE + POP HL + POP BC + +termina_int: + pop af + ei + ret +;salto_int: +;.db #0,#0,#0 + + + +contador: .db #0 +;datos_int: .db #0,#0,#0 ; Se guardan 3 BYTES!!!! (Dedicado a Na_th_an, por los desvelos) + + + +;INICIA EL SONIDO Nº (A) + +;INICIA EL SONIDO Nº (A) + +INICIA_EFECTO_WYZ0: + +;INICIA EL SONIDO Nº (B) EN EL CANAL (C) + LD A,C + CP #0 + JP Z,INICIA_EFECTO_A + CP #1 + JP Z,INICIA_EFECTO_B + CP #2 + JP Z,INICIA_EFECTO_C + ;JP INICIA_EFECTO_A + RET + + +;REPRODUCE EFECTOS + + + + +;REPRODUCE EFECTOS CANAL A + + +REPRODUCE_EFECTO_A: + LD HL,#INTERR + BIT 3,(HL) ;ESTA ACTIVADO EL EFECTO? + RET Z + LD HL,(#PUNTERO_EFECTO_A) + LD A,(HL) + CP #0xFF + JR Z,FIN_EFECTO_A + CALL BLOQUE_COMUN + LD (#PUNTERO_EFECTO_A),HL + LD 0 (IX),B + LD 1 (IX),C + LD 8 (IX),A + RET +FIN_EFECTO_A: + LD HL,#INTERR + RES 3,(HL) + XOR A + LD (#PSG_REG_EF+0),A + LD (#PSG_REG_EF+1),A + LD (#PSG_REG_EF+8),A + RET + +REPRODUCE_EFECTO_B: + LD HL,#INTERR + BIT 5,(HL) ;ESTA ACTIVADO EL EFECTO? + RET Z + LD HL,(#PUNTERO_EFECTO_B) + LD A,(HL) + CP #0xFF + JR Z,FIN_EFECTO_B + CALL BLOQUE_COMUN + LD (#PUNTERO_EFECTO_B),HL + LD 2 (IX),B + LD 3 (IX),C + LD 9 (IX),A + RET +FIN_EFECTO_B: + LD HL,#INTERR + RES 5,(HL) + XOR A + LD (#PSG_REG_EF+2),A + LD (#PSG_REG_EF+3),A + LD (#PSG_REG_EF+9),A + RET + +REPRODUCE_EFECTO_C: + LD HL,#INTERR + BIT 6,(HL) ;ESTA ACTIVADO EL EFECTO? + RET Z + LD HL,(#PUNTERO_EFECTO_C) + LD A,(HL) + CP #0xFF + JR Z,FIN_EFECTO_C + CALL BLOQUE_COMUN + LD (#PUNTERO_EFECTO_C),HL + LD 4 (IX),B + LD 5 (IX),C + LD 10 (IX),A + RET +FIN_EFECTO_C: + LD HL,#INTERR + RES 6,(HL) + XOR A + LD (#PSG_REG_EF+4),A + LD (#PSG_REG_EF+5),A + LD (#PSG_REG_EF+10),A + RET + +BLOQUE_COMUN: + LD IX,#PSG_REG_EF + LD B,A + INC HL + LD A,(HL) + RRCA + RRCA + RRCA + RRCA + AND #0b00001111 + LD C,A + LD A,(HL) + AND #0b00001111 + INC HL + RET + +INICIA_EFECTO_A: + LD A,B + LD HL,(#TABLA_EFECTOS0) + CALL EXT_WORD + LD (#PUNTERO_EFECTO_A),HL + LD HL,#INTERR + SET 3,(HL) + RET + +INICIA_EFECTO_B: + LD A,B + LD HL,(#TABLA_EFECTOS0) + CALL EXT_WORD + LD (#PUNTERO_EFECTO_B),HL + LD HL,#INTERR + SET 5,(HL) + RET + +INICIA_EFECTO_C: + LD A,B + LD HL,(#TABLA_EFECTOS0) + CALL EXT_WORD + LD (#PUNTERO_EFECTO_C),HL + LD HL,#INTERR + SET 6,(HL) + RET + + + +INICIA_SONIDO: + LD HL,(#TABLA_SONIDOS0) + CALL EXT_WORD + LD (#PUNTERO_SONIDO),HL + LD HL,#INTERR + SET 2,(HL) + RET +;PLAYER OFF + +PLAYER_OFF: + LD HL,#INTERR + RES 1,(HL) + + XOR A + LD HL,#PSG_REG + LD DE,#PSG_REG+1 + LD BC,#14 + LD (HL),A + LDIR + + LD HL,#PSG_REG_SEC + LD DE,#PSG_REG_SEC+1 + LD BC,#14 + LD (HL),A + LDIR + + CALL ROUT + CALL FIN_SONIDO + RET + + + + +CARGA_CANCION_WYZ0: + DI + push af + CALL PLAYER_OFF + pop af +; MUSICA DATOS INICIALES + + + + + LD DE,#0x0010 ; Nº BYTES RESERVADOS POR CANAL + LD HL,#BUFFER_DEC ;* RESERVAR MEMORIA PARA BUFFER DE SONIDO!!!!! + LD (#CANAL_A),HL + + ADD HL,DE + LD (#CANAL_B),HL + + ADD HL,DE + LD (#CANAL_C),HL + + ADD HL,DE + LD (#CANAL_P),HL + + ;LD A,#0 ;* CANCION Nº 0 + CALL CARGA_CANCION + + LD A,#6 + LD (#contador),A + +;PANTALLA + EI + ret + + + +;CARGA UNA CANCION +;IN:(A)=Nº DE CANCION + +CARGA_CANCION: + LD HL,#INTERR ;CARGA CANCION + + SET 1,(HL) ;REPRODUCE CANCION + LD HL,#SONG + LD (HL),A ;Nº A + + + +;DECODIFICAR +;IN-> INTERR 0 ON +; SONG + +;CARGA CANCION SI/NO + +DECODE_SONG: + LD A,(#SONG) + +;LEE CABECERA DE LA CANCION +;BYTE 0=TEMPO + + ;LD HL,TABLA_SONG + LD HL,(#TABLA_SONG0) + CALL EXT_WORD + LD A,(HL) + LD (#TEMPO),A + XOR A + LD (#TTEMPO),A + +;HEADER BYTE 1 +;(-|-|-|-|-|-|-|LOOP) + + INC HL ;LOOP 1=ON/0=OFF? + LD A,(HL) + BIT 0,A + JR Z,NPTJP0 + PUSH HL + LD HL,#INTERR + SET 4,(HL) + POP HL + + +NPTJP0: + INC HL ;2 BYTES RESERVADOS + INC HL + INC HL + +;BUSCA Y GUARDA INICIO DE LOS CANALES EN EL MODULO MUS + + + LD (#PUNTERO_P_DECA),HL + LD E,#0x3F ;CODIGO INTRUMENTO 0 + LD B,#0xFF ;EL MODULO DEBE TENER UNA LONGITUD MENOR DE #0xFF00 ... o_O! +BGICMODBC1: + XOR A ;BUSCA EL BYTE 0 + CPIR + DEC HL + DEC HL + LD A,E ;ES EL INSTRUMENTO 0?? + CP (HL) + INC HL + INC HL + JR Z,BGICMODBC1 + + LD (#PUNTERO_P_DECB),HL + +BGICMODBC2: + XOR A ;BUSCA EL BYTE 0 + CPIR + DEC HL + DEC HL + LD A,E + CP (HL) ;ES EL INSTRUMENTO 0?? + INC HL + INC HL + JR Z,BGICMODBC2 + + LD (#PUNTERO_P_DECC),HL + +BGICMODBC3: + XOR A ;BUSCA EL BYTE 0 + CPIR + DEC HL + DEC HL + LD A,E + CP (HL) ;ES EL INSTRUMENTO 0?? + INC HL + INC HL + JR Z,BGICMODBC3 + LD (#PUNTERO_P_DECP),HL + + +;LEE DATOS DE LAS NOTAS +;(|)(|||||) LONGITUD\NOTA + +INIT_DECODER: + LD DE,(#CANAL_A) + LD (#PUNTERO_A),DE + LD HL,(#PUNTERO_P_DECA) + CALL DECODE_CANAL ;CANAL A + LD (#PUNTERO_DECA),HL + + LD DE,(#CANAL_B) + LD (#PUNTERO_B),DE + LD HL,(#PUNTERO_P_DECB) + CALL DECODE_CANAL ;CANAL B + LD (#PUNTERO_DECB),HL + + LD DE,(#CANAL_C) + LD (#PUNTERO_C),DE + LD HL,(#PUNTERO_P_DECC) + CALL DECODE_CANAL ;CANAL C + LD (#PUNTERO_DECC),HL + + LD DE,(#CANAL_P) + LD (#PUNTERO_P),DE + LD HL,(#PUNTERO_P_DECP) + CALL DECODE_CANAL ;CANAL P + LD (#PUNTERO_DECP),HL + + RET + + +;DECODIFICA NOTAS DE UN CANAL +;IN (DE)=DIRECCION DESTINO +;NOTA=0 FIN CANAL +;NOTA=1 SILENCIO +;NOTA=2 PUNTILLO +;NOTA=3 COMANDO I + +DECODE_CANAL: + LD A,(HL) + AND A ;FIN DEL CANAL? + JR Z,FIN_DEC_CANAL + CALL GETLEN + + CP #0b00000001 ;ES SILENCIO? + JR NZ,NO_SILENCIO + SET 6,A + JR NO_MODIFICA + +NO_SILENCIO: + CP #0b00111110 ;ES PUNTILLO? + JR NZ,NO_PUNTILLO + OR A + RRC B + XOR A + JR NO_MODIFICA + +NO_PUNTILLO: + CP #0b00111111 ;ES COMANDO? + JR NZ,NO_MODIFICA + BIT 0,B ;COMADO=INSTRUMENTO? + JR Z,NO_INSTRUMENTO + LD A,#0b11000001 ;CODIGO DE INSTRUMENTO + LD (DE),A + INC HL + INC DE + LD A,(HL) ;Nº DE INSTRUMENTO + LD (DE),A + INC DE + INC HL + JR DECODE_CANAL + +NO_INSTRUMENTO: + BIT 2,B + JR Z,NO_ENVOLVENTE + LD A,#0b11000100 ;CODIGO ENVOLVENTE + LD (DE),A + INC DE + INC HL + JR DECODE_CANAL + +NO_ENVOLVENTE: + BIT 1,B + JR Z,NO_MODIFICA + LD A,#0b11000010 ;CODIGO EFECTO + LD (DE),A + INC HL + INC DE + LD A,(HL) + CALL GETLEN + +NO_MODIFICA: + LD (DE),A + INC DE + XOR A + DJNZ NO_MODIFICA + SET 7,A + SET 0,A + LD (DE),A + INC DE + INC HL + RET ;** JR DECODE_CANAL + +FIN_DEC_CANAL: + SET 7,A + LD (DE),A + INC DE + RET + +GETLEN: + LD B,A + AND #0b00111111 + PUSH AF + LD A,B + AND #0b11000000 + RLCA + RLCA + INC A + LD B,A + LD A,#0b10000000 +DCBC0: + RLCA + DJNZ DCBC0 + LD B,A + POP AF + RET + + + + + + +;PLAY __________________________________________________ + + +PLAY: + LD HL,#INTERR ;PLAY BIT 1 ON? + BIT 1,(HL) + RET Z +;TEMPO + LD HL,#TTEMPO ;CONTADOR TEMPO + INC (HL) + LD A,(#TEMPO) + CP (HL) + JR NZ,PAUTAS + LD (HL),#0 + +;INTERPRETA + LD IY,#PSG_REG + LD IX,#PUNTERO_A + LD BC,#PSG_REG+8 + CALL LOCALIZA_NOTA + LD IY,#PSG_REG+2 + LD IX,#PUNTERO_B + LD BC,#PSG_REG+9 + CALL LOCALIZA_NOTA + LD IY,#PSG_REG+4 + LD IX,#PUNTERO_C + LD BC,#PSG_REG+10 + CALL LOCALIZA_NOTA + LD IX,#PUNTERO_P ;EL CANAL DE EFECTOS ENMASCARA OTRO CANAL + CALL LOCALIZA_EFECTO + +;PAUTAS + +PAUTAS: + LD IY,#PSG_REG+0 + LD IX,#PUNTERO_P_A + LD HL,#PSG_REG+8 + CALL PAUTA ;PAUTA CANAL A + LD IY,#PSG_REG+2 + LD IX,#PUNTERO_P_B + LD HL,#PSG_REG+9 + CALL PAUTA ;PAUTA CANAL B + LD IY,#PSG_REG+4 + LD IX,#PUNTERO_P_C + LD HL,#PSG_REG+10 + CALL PAUTA ;PAUTA CANAL C + + RET + + + +;REPRODUCE EFECTOS DE SONIDO + +REPRODUCE_SONIDO: + + LD HL,#INTERR + BIT 2,(HL) ;ESTA ACTIVADO EL EFECTO? + RET Z + LD HL,(#PUNTERO_SONIDO) + LD A,(HL) + CP #0xFF + JR Z,FIN_SONIDO + LD (#PSG_REG_SEC+4),A + INC HL + LD A,(HL) + RRCA + RRCA + RRCA + RRCA + AND #0b00001111 + LD (#PSG_REG_SEC+5),A + LD A,(HL) + AND #0b00001111 + LD (#PSG_REG_SEC+10),A + INC HL + LD A,(HL) + AND A + JR Z,NO_RUIDO + LD (#PSG_REG_SEC+6),A + LD A,#0b10011000 + JR SI_RUIDO +NO_RUIDO: + LD A,#0b10111000 +SI_RUIDO: + LD (#PSG_REG_SEC+7),A + + INC HL + LD (#PUNTERO_SONIDO),HL + RET +FIN_SONIDO: + LD HL,#INTERR + RES 2,(HL) + +FIN_NOPLAYER: + LD A,#0b10111000 ;2 BITS ALTOS PARA MSX / AFECTA AL CPC??? + LD (#PSG_REG+7),A + RET + +;VUELCA BUFFER DE SONIDO AL PSG + +;VUELCA BUFFER DE SONIDO AL PSG + +ROUT: + XOR A + LD HL,#PSG_REG_SEC +LOUT: + CALL WRITEPSGHL + INC A + CP #13 + JR NZ,LOUT + LD A,(HL) + AND A + RET Z + LD A,#13 + CALL WRITEPSGHL + XOR A + LD (#PSG_REG+13),A + LD (#PSG_REG_SEC+13),A + RET + + +ROUT_EF: + XOR A + LD HL,#PSG_REG_EF +LOUT_EF: + CALL WRITEPSGHL + INC A + CP #13 + JR NZ,LOUT_EF + LD A,(HL) + AND A + RET Z + LD A,#13 + CALL WRITEPSGHL + XOR A + LD (#PSG_REG_EF+13),A + RET +;; A = REGISTER +;; (HL) = VALUE +WRITEPSGHL: + LD B,#0xF4 + OUT (C),A + LD BC,#0xF6C0 + OUT (C),C + .db #0xED + .db #0x71 + LD B,#0xF5 + OUTI + LD BC,#0xF680 + OUT (C),C + .db #0xED + .db #0x71 + RET + +;LOCALIZA NOTA CANAL A +;IN (PUNTERO_A) + +LOCALIZA_NOTA: + LD L,0 (IX) ;HL=(PUNTERO_A_C_B) + LD H,1 (IX) + LD A,(HL) + AND #0b11000000 ;COMANDO? + CP #0b11000000 + JR NZ,LNJP0 + +;BIT(0)=INSTRUMENTO + +COMANDOS: + LD A,(HL) + BIT 0,A ;INSTRUMENTO + JR Z,COM_EFECTO + + INC HL + LD A,(HL) ;Nº DE PAUTA + INC HL + LD 0 (IX),L + LD 1 (IX),H + ;LD HL,TABLA_PAUTAS + LD HL,(#TABLA_PAUTAS0) + CALL EXT_WORD + LD 18 (IX),L + LD 19 (IX),H + LD 12 (IX),L + LD 13 (IX),H + LD L,C + LD H,B + RES 4,(HL) ;APAGA EFECTO ENVOLVENTE + XOR A + LD (#PSG_REG_SEC+13),A + LD (#PSG_REG+13),A + JR LOCALIZA_NOTA + +COM_EFECTO: + BIT 1,A ;EFECTO DE SONIDO + JR Z,COM_ENVOLVENTE + + INC HL + LD A,(HL) + INC HL + LD 0 (IX),L + LD 1 (IX),H + CALL INICIA_SONIDO + RET + +COM_ENVOLVENTE: + BIT 2,A + RET Z ;IGNORA - ERROR + + INC HL + LD 0 (IX),L + LD 1 (IX),H + LD L,C + LD H,B + LD (HL),#0b00010000 ;ENCIENDE EFECTO ENVOLVENTE + JR LOCALIZA_NOTA + + +LNJP0: + LD A,(HL) + INC HL + BIT 7,A + JR Z,NO_FIN_CANAL_A ; + BIT 0,A + JR Z,FIN_CANAL_A + +FIN_NOTA_A: + LD E,6 (IX) + LD D,7 (IX) ;PUNTERO BUFFER AL INICIO + LD 0 (IX),E + LD 1 (IX),D + LD L,30 (IX) ;CARGA PUNTERO DECODER + LD H,31 (IX) + PUSH BC + CALL DECODE_CANAL ;DECODIFICA CANAL + POP BC + LD 30 (IX),L ;GUARDA PUNTERO DECODER + LD 31 (IX),H + JP LOCALIZA_NOTA + +FIN_CANAL_A: + LD HL,#INTERR ;LOOP? + BIT 4,(HL) + JR NZ,FCA_CONT + CALL PLAYER_OFF + RET + +FCA_CONT: + LD L,24 (IX) ;CARGA PUNTERO INICIAL DECODER + LD H,25 (IX) + LD 30 (IX),L + LD 31 (IX),H + JR FIN_NOTA_A + +NO_FIN_CANAL_A: + LD 0 (IX),L ;(PUNTERO_A_B_C)=HL GUARDA PUNTERO + LD 1 (IX),H + AND A ;NO REPRODUCE NOTA SI NOTA=0 + JR Z,FIN_RUTINA + BIT 6,A ;SILENCIO? + JR Z,NO_SILENCIO_A + LD A,(BC) + AND #0b00010000 + JR NZ,SILENCIO_ENVOLVENTE + XOR A + LD (BC),A ;RESET VOLUMEN + LD 0 (IY),A + LD 1 (IY),A + RET + +SILENCIO_ENVOLVENTE: + LD A,#0xFF + LD (#PSG_REG+11),A + LD (#PSG_REG+12),A + XOR A + LD (#PSG_REG+13),A + LD 0 (IY),A + LD 1 (IY),A + RET + +NO_SILENCIO_A: + CALL NOTA ;REPRODUCE NOTA + LD L,18 (IX) ;HL=(PUNTERO_P_A0) RESETEA PAUTA + LD H,19 (IX) + LD 12 (IX),L ;(PUNTERO_P_A)=HL + LD 13 (IX),H +FIN_RUTINA: + RET + + +;LOCALIZA EFECTO +;IN HL=(PUNTERO_P) + +LOCALIZA_EFECTO: + LD L,0 (IX) ;HL=(PUNTERO_P) + LD H,1 (IX) + LD A,(HL) + CP #0b11000010 + JR NZ,LEJP0 + + INC HL + LD A,(HL) + INC HL + LD 0 (IX),L + LD 1 (IX),H + CALL INICIA_SONIDO + RET + + +LEJP0: + INC HL + BIT 7,A + JR Z,NO_FIN_CANAL_P ; + BIT 0,A + JR Z,FIN_CANAL_P +FIN_NOTA_P: + LD DE,(#CANAL_P) + LD 0 (IX),E + LD 1 (IX),D + LD HL,(#PUNTERO_DECP) ;CARGA PUNTERO DECODER + PUSH BC + CALL DECODE_CANAL ;DECODIFICA CANAL + POP BC + LD (#PUNTERO_DECP),HL ;GUARDA PUNTERO DECODER + JP LOCALIZA_EFECTO + +FIN_CANAL_P: + LD HL,(#PUNTERO_P_DECP) ;CARGA PUNTERO INICIAL DECODER + LD (#PUNTERO_DECP),HL + JR FIN_NOTA_P + +NO_FIN_CANAL_P: + LD 0 (IX),L ;(PUNTERO_A_B_C)=HL GUARDA PUNTERO + LD 1 (IX),H + RET + +; PAUTA DE LOS 3 CANALES +; IN:(IX):PUNTERO DE LA PAUTA +; (HL):REGISTRO DE VOLUMEN +; (IY):REGISTROS DE FRECUENCIA + +; FORMATO PAUTA +; 7 6 5 4 3-0 3-0 +; BYTE 1 (LOOP|OCT-1|OCT+1|SLIDE|VOL) - BYTE 2 ( | | | |PITCH) + +PAUTA: + BIT 4,(HL) ;SI LA ENVOLVENTE ESTA ACTIVADA NO ACTUA PAUTA + RET NZ + + LD A,0 (IY) + LD B,1 (IY) + OR B + RET Z + + + PUSH HL + ;LD L,(IX+0) + ;LD H,(IX+1) + + ;LD A,(HL) ;COMPRUEBA SLIDE BIT 4 + ;BIT 4,A + ;JR Z,PCAJP4 + ;LD L,(IY+0) ;FRECUENCIA FINAL + ;LD H,(IY+1) + ;SBC HL,DE + ;JR Z,PCAJP4 + ;JR C,SLIDE_POS + ;EX DE,HL + ;RRC D ;/4 + ;RR E + ;RRC D + ;RR E + + + ;ADC HL,DE + ;LD (IY+0),L + ;LD (IY+1),H +SLIDE_POS: + ;POP HL + ;RET + +PCAJP4: + LD L,0 (IX) + LD H,1 (IX) + LD A,(HL) + + BIT 7,A ;LOOP / EL RESTO DE BITS NO AFECTAN + JR Z,PCAJP0 + AND #0b00011111 ;LOOP PAUTA (0,32)X2!!!-> PARA ORNAMENTOS + RLCA ;X2 + LD D,#0 + LD E,A + SBC HL,DE + LD A,(HL) + +PCAJP0: + BIT 6,A ;OCTAVA -1 + JR Z,PCAJP1 + LD E,0 (IY) + LD D,1 (IY) + + AND A + RRC D + RR E + LD 0 (IY),E + LD 1 (IY),D + JR PCAJP2 + +PCAJP1: + BIT 5,A ;OCTAVA +1 + JR Z,PCAJP2 + LD E,0 (IY) + LD D,1 (IY) + + AND A + RLC E + RL D + LD 0 (IY),E + LD 1 (IY),D + + +PCAJP2: + INC HL + PUSH HL + LD E,A + LD A,(HL) ;PITCH DE FRECUENCIA + LD L,A + AND A + LD A,E + JR Z,ORNMJP1 + + LD A,0 (IY) ;SI LA FRECUENCIA ES 0 NO HAY PITCH + ADD A,1 (IY) + AND A + LD A,E + JR Z,ORNMJP1 + + + BIT 7,L + JR Z,ORNNEG + LD H,#0xFF + JR PCAJP3 +ORNNEG: + LD H,#0 + +PCAJP3: + LD E,0 (IY) + LD D,1 (IY) + ADC HL,DE + LD 0 (IY),L + LD 1 (IY),H +ORNMJP1: + POP HL + + INC HL + LD 0 (IX),L + LD 1 (IX),H +PCAJP5: + POP HL + AND #0b00001111 ;VOLUMEN FINAL + LD (HL),A + RET + + + +;NOTA : REPRODUCE UNA NOTA +;IN (A)=CODIGO DE LA NOTA +; (IY)=REGISTROS DE FRECUENCIA + + +NOTA: + ;ADD 6 ;************************* + LD L,C + LD H,B + BIT 4,(HL) + LD B,A + JR NZ,EVOLVENTES + LD A,B + LD HL,#DATOS_NOTAS + RLCA ;X2 + LD D,#0 + LD E,A + ADD HL,DE + LD A,(HL) + LD 0 (IY),A + INC HL + LD A,(HL) + LD 1 (IY),A + RET + +;IN (A)=CODIGO DE LA ENVOLVENTE +; (IY)=REGISTRO DE FRECUENCIA + +EVOLVENTES: + PUSH AF + CALL ENV_RUT1 + LD DE,#0x0000 + LD 0 (IY),E + LD 1 (IY),D + + POP AF + ADD A,#48 + CALL ENV_RUT1 + + + LD A,E + LD (#PSG_REG+11),A + LD A,D + LD (#PSG_REG+12),A + LD A,#0x0E + LD (#PSG_REG+13),A + RET + +;IN(A) NOTA +ENV_RUT1: + LD HL,#DATOS_NOTAS + RLCA ;X2 + LD D,#0 + LD E,A + ADD HL,DE + LD E,(HL) + INC HL + LD D,(HL) + RET + + + +EXT_WORD: + LD D,#0 + SLA A ;*2 + LD E,A + ADD HL,DE + LD E,(HL) + INC HL + LD D,(HL) + EX DE,HL + RET + +;BANCO DE INSTRUMENTOS 2 BYTES POR INT. + +;(0)(RET 2 OFFSET) +;(1)(+-PITCH) + + +;BANCO DE INSTRUMENTOS 2 BYTES POR INT. + +;(0)(RET 2 OFFSET) +;(1)(+-PITCH) + +;.TABLA_PAUTAS .dw PAUTA_1,PAUTA_2,PAUTA_3,PAUTA_4,PAUTA_5,PAUTA_6,PAUTA_7;,PAUTA_8,PAUTA_9,PAUTA_10,PAUTA_11,PAUTA_12,PAUTA_13,PAUTA_14,PAUTA_15,PAUTA_16,PAUTA_17,PAUTA_18 + + + + + + + + + + + +;DATOS DE LOS EFECTOS DE SONIDO + +;EFECTOS DE SONIDO + + + +;.TABLA_SONIDOS .dw SONIDO1,SONIDO2,SONIDO3,SONIDO4,SONIDO5;,SONIDO6,SONIDO7;,SONIDO8 + +TABLA_PAUTAS0: .dw 0 + +TABLA_SONIDOS0: .dw 0 + + +;DATOS MUSICA + + + +;TABLA_SONG: .dw SONG_0;,SONG_1,SONG_2;,SONG_3 ;******** TABLA DE DIRECCIONES DE ARCHIVOS MUS + +;DATOS_NOTAS: .INCBIN "C:/EM/BRMSX/PLAYER/NOTAS.DAT" ;DATOS DE LAS NOTAS + + +DATOS_NOTAS: + .dw #0x0000,#0x0000 + +; .dw #0x41D,#0x3E2,#0x3AA,#0x376,#0x344,#0x315,#0x2E9,#0x2BF,#0x297,#0x272,#0x24F,#0x22E,#0x20E,#0x1F1,#0x1D5,#0x1BB +; .dw #0x1A2,#0x18A,#0x174,#0x15F,#0x14B,#0x139,#0x127,#0x117,#0x107,#0xF8,#0xEA,#0xDD +; .dw #0xD1,#0xC5,#0xBA,#0xAF,#0xA5,#0x9C,#0x93,#0x8B,#0x83,#0x7C,#0x75,#0x6E +; .dw #0x68,#0x62,#0x5D,#0x57,#0x52,#0x4E,#0x49,#0x45,#0x41,#0x3E,#0x3A,#0x37 +; .dw #0x34,#0x31,#0x2E,#0x2B,#0x29,#0x27,#0x24,#0x22,#0x20,#0x1F,#0x1D,#0x1B +; .dw #0x1A,#0x18,#0x17,#0x15,#0x14,#0x13,#0x12,#0x11,#0x10,#0xF,#0xE,#0xD + + +.DW #1711,#1614,#1524,#1438,#1358,#1281,#1210,#1142,#1078,#1017 +.DW #960,#906,#855,#807,#762,#719,#679,#641,#605,#571 +.DW #539,#509,#480,#453,#428,#404,#381,#360,#339,#320 +.DW #302,#285,#269,#254,#240,#227,#214,#202,#190,#180 +.DW #170,#160,#151,#143,#135,#127,#120,#113,#107,#101 +.DW #95,#90,#85,#80,#76,#71,#67,#64,#60,#57 + + +SONG_0: + ;INCBIN "WYAZOW.MUS" + + + +; VARIABLES__________________________ + + +INTERR: + .db #0 ;INTERRUPTORES 1=ON 0=OFF + ;BIT 0=CARGA CANCION ON/OFF + ;BIT 1=PLAYER ON/OFF + ;BIT 2=SONIDOS ON/OFF + ;BIT 3=EFECTOS ON/OFF + +;MUSICA **** EL ORDEN DE LAS VARIABLES ES FIJO ****** + +TABLA_SONG0: .dw #0 +TABLA_EFECTOS0: .dw #0 + +;.db 'P','S','G',' ','P','R','O','P','L','A','Y','E','R',' ','B','Y',' ','W','Y','Z','-','1','0' + + +SONG: .db #00 ;DBNº DE CANCION +TEMPO: .db #00 ;.dbTEMPO +TTEMPO: .db #00 ;.dbCONTADOR TEMPO +PUNTERO_A: .dw #00 ;DW PUNTERO DEL CANAL A +PUNTERO_B: .dw #00 ;DW PUNTERO DEL CANAL B +PUNTERO_C: .dw #00 ;DW PUNTERO DEL CANAL C + +BUFFER_MUSICA: +CANAL_A: .dw #BUFFER_DEC ;DW DIRECION DE INICIO DE LA MUSICA A +CANAL_B: .dw #00 ;DW DIRECION DE INICIO DE LA MUSICA B +CANAL_C: .dw #00 ;DW DIRECION DE INICIO DE LA MUSICA C + +PUNTERO_P_A: .dw #00 ;DW PUNTERO PAUTA CANAL A +PUNTERO_P_B: .dw #00 ;DW PUNTERO PAUTA CANAL B +PUNTERO_P_C: .dw #00 ;DW PUNTERO PAUTA CANAL C + +PUNTERO_P_A0: .dw #00 ;DW INI PUNTERO PAUTA CANAL A +PUNTERO_P_B0: .dw #00 ;DW INI PUNTERO PAUTA CANAL B +PUNTERO_P_C0: .dw #00 ;DW INI PUNTERO PAUTA CANAL C + + +PUNTERO_P_DECA: .dw #00 ;DW PUNTERO DE INICIO DEL DECODER CANAL A +PUNTERO_P_DECB: .dw #00 ;DW PUNTERO DE INICIO DEL DECODER CANAL B +PUNTERO_P_DECC: .dw #00 ;DW PUNTERO DE INICIO DEL DECODER CANAL C + +PUNTERO_DECA: .dw #00 ;DW PUNTERO DECODER CANAL A +PUNTERO_DECB: .dw #00 ;DW PUNTERO DECODER CANAL B +PUNTERO_DECC: .dw #00 ;DW PUNTERO DECODER CANAL C + + +;CANAL DE EFECTOS - ENMASCARA OTRO CANAL + +PUNTERO_P: .dw #00 ;DW PUNTERO DEL CANAL EFECTOS +CANAL_P: .dw #00 ;DW DIRECION DE INICIO DE LOS EFECTOS +PUNTERO_P_DECP: .dw #00 ;DW PUNTERO DE INICIO DEL DECODER CANAL P +PUNTERO_DECP: .dw #00 ;DW PUNTERO DECODER CANAL P + +PSG_REG: .db #00,#00,#00,#00,#00,#00,#00,#0b10111000 ,#00,#00,#00,#00,#00,#00,#00 ;.db(11) BUFFER DE REGISTROS DEL PSG +PSG_REG_SEC: .db #00,#00,#00,#00,#00,#00,#00,#0b10111000 ,#00,#00,#00,#00,#00,#00,#00 ;.db(11) BUFFER SECUNDARIO DE REGISTROS DEL PSG + +PSG_REG_EF: .db #00,#00,#00,#00,#00,#00,#00,#0b10111000 ,#00,#00,#00,#00,#00,#00,#00 ;.db(11) BUFFER DE REGISTROS DEL PSG + +;ENVOLVENTE_A EQU #0xD033 ;DB +;ENVOLVENTE_B EQU #0xD034 ;DB +;ENVOLVENTE_C EQU #0xD035 ;DB + + + + +;EFECTOS DE SONIDO + +N_SONIDO: .db #0 ;.db NUMERO DE SONIDO +PUNTERO_SONIDO: .dw #0 ;.dw PUNTERO DEL SONIDO QUE SE REPRODUCE + +;EFECTOS + +N_EFECTO: .db #0 ;.db NUMERO DE SONIDO +;PUNTERO_EFECTO .dw 0 ;.dw PUNTERO DEL SONIDO QUE SE REPRODUCE + +PUNTERO_EFECTO_A: .dw #0 ;DW : PUNTERO DEL SONIDO QUE SE REPRODUCE +PUNTERO_EFECTO_B: .dw #0 ;DW : PUNTERO DEL SONIDO QUE SE REPRODUCE +PUNTERO_EFECTO_C: .dw #0 ;DW : PUNTERO DEL SONIDO QUE SE REPRODUCE + + + + + + + + + + + +BUFFER_DEC: ; defs #0x40 +.dw #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 ; 16 bytes +.dw #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 ; 32 bytes +.dw #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 ; 48 bytes +.dw #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 ; 64 bytes + + +; .db #0x00 ;************************* mucha atencion!!!! +;.BUFFER_DEC defs 2048 ;space dinamically asigned in source code compilation!! + ; aqui se decodifica la cancion hay que dejar suficiente espacio libre. + ;************************* + +;DEFC CARGA_CANCION_WYZ = CARGA_CANCION_WYZ0 +;DEFC INICIA_EFECTO_WYZ = INICIA_EFECTO_WYZ0 +;DEFC cpc_WyzSetPlayerOn0 = cpc_WyzSetPlayerOn1 +;DEFC cpc_WyzSetPlayerOff0 = cpc_WyzSetPlayerOff1 +;DEFC TABLA_SONG = TABLA_SONG0 +;DEFC TABLA_EFECTOS = TABLA_EFECTOS0 +;DEFC TABLA_PAUTAS = TABLA_PAUTAS0 +;DEFC TABLA_SONIDOS = TABLA_SONIDOS0 +;DEFC INTERRUPCION = INTERR +;DEFC direcc_tempo = dir_tempo diff --git a/lib/cpcrslib/cpc_ClrScr.s b/lib/cpcrslib/cpc_ClrScr.s new file mode 100644 index 0000000..49f1d2d --- /dev/null +++ b/lib/cpcrslib/cpc_ClrScr.s @@ -0,0 +1,11 @@ +.globl _cpc_ClrScr + +_cpc_ClrScr:: + XOR A + LD HL,#0xC000 + LD DE,#0xC001 + LD BC,#16383 + LD (HL),A + LDIR + RET + diff --git a/lib/cpcrslib/cpc_CollSp.s b/lib/cpcrslib/cpc_CollSp.s new file mode 100644 index 0000000..08bd02a --- /dev/null +++ b/lib/cpcrslib/cpc_CollSp.s @@ -0,0 +1,126 @@ +.globl _cpc_CollSp + +_cpc_CollSp:: +;first parameter sprite +;second parameter value + ld hl,#2 + add hl,sp + + ;ld ix,#2 + ;add ix,sp +; ld e,2 (ix) +; ld d,3 (ix) + ;A=x value +; ld l,0 (ix) +; ld h,1 (ix) + + ld e,(hl) + inc hl + ld d,(hl) + push de + inc hl + ld e,(hl) + inc hl + ld d,(hl) + push de + + pop iy ;ix sprite2 data + + pop ix ;iy sprite1 data + + ;Sprite coords & sprite dims + +;COLISION_sprites + + + +;entran sprite1 y sprite 2 y se actualizan los datos +;ix apunta a sprite1 +;iy apunta a sprite2 + +;coordenadas + ld l,8 (ix) + ld h,9 (ix) + LD (#SPR2X),HL + + ld l,8 (iy) + ld h,9 (iy) + LD (#SPR1X),HL + +;dimensiones sprite 1 + ld l,0 (ix) + ld h,1 (ix) + ld b,(hl) + inc hl + ld c,(hl) +;dimensiones sprite 12 + ld l,0 (iy) + ld h,1 (iy) + ld d,(hl) + inc hl + ld e,(hl) + + + ;ld e,(ix+6) + ;ld d,(ix+7) + + + +;ld de,DIMENSIONES_SP_PPAL ;dimensiones sprite 2 +;ld bc,DIMENSIONES_SP_PPAL ;dimensiones sprite 1 +CALL TOCADO +;RET NC ;vuelve si no hay colision +ld h,#0 +JP nc,no_colision +;Aquí hay colisión +ld l,#1 +RET + +no_colision: +ld l,h +ret + +TOCADO: + LD HL,#SPR2X + LD A,(#SPR1X) + CP (HL) + jp C,C1 + LD A,(HL) + ADD A,B ;alto del sprite1 + LD B,A + LD A,(#SPR1X) + SUB B + RET NC + jp COMPROBAR +C1: + ADD A,D ;alto sprite2 + LD D,A + LD A,(HL) + SUB D + RET NC +COMPROBAR: + INC HL + LD A,(#SPR1Y) + CP (HL) + jp C,C2 + LD A,(HL) + ADD A,C + LD C,A + LD A,(#SPR1Y) + SUB C + RET +C2: + ADD A,E + LD E,A + LD A,(HL) + SUB E + RET + +SPR1X: +.db 0 +SPR1Y: +.db 0 +SPR2X: +.db 0 +SPR2Y: +.db 0 diff --git a/lib/cpcrslib/cpc_DisableEnableFirmware.s b/lib/cpcrslib/cpc_DisableEnableFirmware.s new file mode 100644 index 0000000..00a8710 --- /dev/null +++ b/lib/cpcrslib/cpc_DisableEnableFirmware.s @@ -0,0 +1,28 @@ +.globl _cpc_DisableFirmware + +_cpc_DisableFirmware:: + DI + LD HL,(#0X0038) + LD (backup_fw),HL + LD HL,#0X0038 + LD (HL),#0XFB ;EI + INC HL + LD (HL),#0XC9 ;RET + EI + RET + +backup_fw: + .DW #0 + +.globl _cpc_EnableFirmware + +_cpc_EnableFirmware:: + DI + LD DE,(backup_fw) + LD HL,#0X0038 + LD (HL),E ;EI + INC HL + LD (HL),D ;RET + EI + RET + diff --git a/lib/cpcrslib/cpc_GetScrAddress.s b/lib/cpcrslib/cpc_GetScrAddress.s new file mode 100644 index 0000000..42b17f7 --- /dev/null +++ b/lib/cpcrslib/cpc_GetScrAddress.s @@ -0,0 +1,65 @@ +.globl _cpc_GetScrAddress + +_cpc_GetScrAddress:: + +; LD IX,#2 +; ADD IX,SP +; LD A,0 (IX) +; LD L,1 (IX) ;pantalla + + + LD HL,#2 + ADD HL,SP + LD A,(HL) + INC HL + LD L,(HL) + ;LD L,E + ;JP cpc_GetScrAddress0 + + +cpc_GetScrAddress0: ;en HL están las coordenadas + + ;LD A,H + LD (#inc_ancho+1),A + LD A,L + SRL A + SRL A + SRL A + ; A indica el bloque a multiplicar x &50 + LD D,A ;D + SLA A + SLA A + SLA A + SUB L + NEG + ; A indica el desplazamiento a multiplicar x &800 + LD E,A ;E + LD L,D + LD H,#0 + ADD HL,HL + LD BC,#bloques + ADD HL,BC + ;HL APUNTA AL BLOQUE BUSCADO + LD C,(HL) + INC HL + LD H,(HL) + LD L,C + ;HL TIENE EL VALOR DEL BLOQUE DE 8 BUSCADO + PUSH HL + LD D,#0 + LD HL,#sub_bloques + ADD HL,DE + LD A,(HL) + POP HL + ADD H + LD H,A +inc_ancho: + LD E,#0 + ADD HL,DE + RET + +bloques: +.DW #0XC000,#0XC050,#0XC0A0,#0XC0F0,#0XC140,#0XC190,#0XC1E0,#0XC230,#0XC280,#0XC2D0,#0XC320,#0XC370,#0XC3C0,#0XC410,#0XC460,#0XC4B0,#0XC500,#0XC550,#0XC5A0,#0XC5F0,#0XC640,#0XC690,#0XC6E0,#0XC730,#0XC780 +sub_bloques: +.DB #0X00,#0X08,#0X10,#0X18,#0X20,#0X28,#0X30,#0X38 + diff --git a/lib/cpcrslib/cpc_GetSp.s b/lib/cpcrslib/cpc_GetSp.s new file mode 100644 index 0000000..cb19efc --- /dev/null +++ b/lib/cpcrslib/cpc_GetSp.s @@ -0,0 +1,49 @@ +.globl _cpc_GetSp + +_cpc_GetSp:: + + LD IX,#2 + ADD IX,SP + LD E,0 (IX) + LD D,1 (IX) + LD A,3 (IX) + LD L,4 (IX) + LD H,5 (IX) + + + + LD (#loop_alto_2x_GetSp0+1),A + + + SUB #1 + CPL + LD (#salto_lineax_GetSp0+1),A ;comparten los 2 los mismos valores. + + LD A,2 (IX) + ;JP cpc_GetSp0 + +cpc_GetSp0:: + .DB #0XFD + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 +loop_alto_2x_GetSp0: + LD C,#0 +loop_ancho_2x_GetSp0: + LD A,(HL) + LD (DE),A + INC DE + INC HL + DEC C + JP NZ,loop_ancho_2x_GetSp0 + .DB #0XFD + DEC H + RET Z +salto_lineax_GetSp0: + LD C,#0XFF ;salto linea menos ancho + ADD HL,BC + JP NC,loop_alto_2x_GetSp0 ;sig_linea_2zz ;si no desborda va a la siguiente linea + LD BC,#0XC050 + ADD HL,BC + LD B,#7 ;sólo se daría una de cada 8 veces en un sprite + JP loop_alto_2x_GetSp0 + diff --git a/lib/cpcrslib/cpc_GphStr.s b/lib/cpcrslib/cpc_GphStr.s new file mode 100644 index 0000000..3f656fa --- /dev/null +++ b/lib/cpcrslib/cpc_GphStr.s @@ -0,0 +1,700 @@ +; ****************************************************** +; ** Librería de rutinas SDCC para Amstrad CPC ** +; ** Raúl Simarro (Artaburu) - 2009, 2012 ** +; ****************************************************** + + + +cpc_GetScrAddress0: ;en HL están las coordenadas + + ;LD A,H + LD (#inc_ancho+1),A + LD A,L + SRL A + SRL A + SRL A + ; A indica el bloque a multiplicar x &50 + LD D,A ;D + SLA A + SLA A + SLA A + SUB L + NEG + ; A indica el desplazamiento a multiplicar x &800 + LD E,A ;E + LD L,D + LD H,#0 + ADD HL,HL + LD BC,#bloques + ADD HL,BC + ;HL APUNTA AL BLOQUE BUSCADO + LD C,(HL) + INC HL + LD H,(HL) + LD L,C + ;HL TIENE EL VALOR DEL BLOQUE DE 8 BUSCADO + PUSH HL + LD D,#0 + LD HL,#sub_bloques + ADD HL,DE + LD A,(HL) + POP HL + ADD H + LD H,A +inc_ancho: + LD E,#0 + ADD HL,DE + RET + +bloques: +.DW #0XC000,#0XC050,#0XC0A0,#0XC0F0,#0XC140,#0XC190,#0XC1E0,#0XC230,#0XC280,#0XC2D0,#0XC320,#0XC370,#0XC3C0,#0XC410,#0XC460,#0XC4B0,#0XC500,#0XC550,#0XC5A0,#0XC5F0,#0XC640,#0XC690,#0XC6E0,#0XC730,#0XC780 +sub_bloques: +.DB #0X00,#0X08,#0X10,#0X18,#0X20,#0X28,#0X30,#0X38 + + + + +;************************************* +; GRAPHIC TEXT +;************************************* + +.globl _cpc_PrintGphStr2X + +_cpc_PrintGphStr2X:: +;preparación datos impresión. El ancho y alto son fijos! + LD IX,#2 + ADD IX,SP + LD L,2 (IX) + LD H,3 (IX) ;DESTINO + LD E,0 (IX) + LD D,1 (IX) ;TEXTO ORIGEN + LD A,#1 + JP cpc_PrintGphStr0 + + + +.globl _cpc_PrintGphStrXY2X + +_cpc_PrintGphStrXY2X:: +;preparación datos impresión. El ancho y alto son fijos! + LD IX,#2 + ADD IX,SP + LD L,3 (IX) + LD A,2 (IX) ;pantalla + CALL cpc_GetScrAddress0 + LD E,0 (IX) + LD D,1 (IX) ;texto origen + LD A,#1 + JP cpc_PrintGphStr0 + +.globl _cpc_PrintGphStrXY + +_cpc_PrintGphStrXY:: +;preparación datos impresión. El ancho y alto son fijos! + LD IX,#2 + ADD IX,SP + LD L,3 (IX) + LD A,2 (IX) ;pantalla + CALL cpc_GetScrAddress0 + LD E,0 (IX) + LD D,1 (IX) ;texto origen + JP cpc_PrintGphStr0 + + +.globl _cpc_PrintGphStr + +_cpc_PrintGphStr:: +;preparación datos impresión. El ancho y alto son fijos! + LD IX,#2 + ADD IX,SP + LD L,2 (IX) + LD H,3 (IX) ;DESTINO + ;LD (CPC_PRINTGPHSTR0+DIRECC_DESTINO0),HL + LD E,0 (IX) + LD D,1 (IX) ;TEXTO ORIGEN + ;JP cpc_PrintGphStr0 + +cpc_PrintGphStr0: + + ;DE destino + ;HL origen + ;ex de,hl + LD (#doble),A + ;trabajo previo: Para tener una lista de trabajos de impresión. No se interrumpe + ;la impresión en curso. + LD A,(#imprimiendo) + CP #1 + JP Z,add_elemento + LD (#direcc_destino),HL + EX DE,HL + CALL bucle_texto0 + +;antes de terminar, se mira si hay algo en cola. +bucle_cola_impresion: + LD A,(#elementos_cola) + OR A + JP Z,terminar_impresion + CALL leer_elemento + JP bucle_cola_impresion + + +terminar_impresion: + XOR A + LD (#imprimiendo),A + RET +entrar_cola_impresion: +;si se está imprimiendo se mete el valor en la cola + RET +add_elemento: + DI + LD IX,(#pos_cola) + LD 0 (IX),L + LD 1 (IX),H + LD 2 (IX),E + LD 3 (IX),D + INC IX + INC IX + INC IX + INC IX + LD (#pos_cola),IX + + LD HL,#elementos_cola + INC (HL) + ;Se añaden los valores hl y de + EI + RET +leer_elemento: + DI + LD IX,(#pos_cola) + LD L,0 (IX) + LD H,1 (IX) + LD E,2 (IX) + LD D,4 (IX) + DEC IX + DEC IX + DEC IX + DEC IX + LD (#pos_cola),IX + LD HL,#elementos_cola + DEC (HL) + EI + RET + +elementos_cola: + .DW #0 ; defw 0 +pos_cola: + .DW #cola_impresion ;defw cola_impresion + ;pos_escritura_cola defw cola_impresion +cola_impresion: ; defs 12 + .DB #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +bucle_texto0: + LD A,#1 + LD (imprimiendo),A + + LD A,(first_char) + LD B,A ;resto 48 para saber el número del caracter (En ASCII 0=48) + + LD A,(HL) + OR A ;CP 0 + RET Z + SUB B + LD BC,(#cpc_Chars) ;apunto a la primera letra + PUSH HL + + LD L,A ;en A tengo la letra que sería + LD H,#0 + ADD HL,HL + ADD HL,HL + ADD HL,HL ;x8 porque cada letra son 8 bytes + ADD HL,BC ;ahora HL apunta a los datos de la letra correspondiente + CALL escribe_letra + LD A,(doble) + CP #1 +; ANTES DE IMPRIMIR SE CHEQUEA SI ES DE ALTURA EL DOBLE Y SE ACTÚA EN CONSECUENCIA + CALL Z, doblar_letra + LD HL,(#direcc_destino) + LD A,(doble) + CP #1 + ;alto + JR Z,cont_doble + LD DE,#letra_decodificada + .DB #0xfD + LD H,#8 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + JR cont_tot + + +cont_doble: + LD DE,#letra_decodificada_tmp + .DB #0xfD + LD H,#16 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + +cont_tot: + CALL cpc_PutSp0 + LD HL,(#direcc_destino) + INC HL + INC HL + LD (#direcc_destino),HL + POP HL + INC HL + JP bucle_texto0 + + +doble: + .DB #0 +imprimiendo: + .DB #0 +direcc_destino: + .DW #0 + + +cpc_PutSp0: +; .DB #0xfD +; LD H,16 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 + LD C,B +loop_alto_2: + +loop_ancho_2: + EX DE,HL + LDI + LDI + .DB #0XFD + DEC H + RET Z + EX DE,HL +salto_linea: + LD C,#0XFE ;&07F6 ;SALTO LINEA MENOS ANCHO + ADD HL,BC + JP NC,loop_alto_2 ;SIG_LINEA_2ZZ ;SI NO DESBORDA VA A LA SIGUIENTE LINEA + LD BC,#0XC050 + ADD HL,BC + LD B,#7 ;SÓLO SE DARÍA UNA DE CADA 8 VECES EN UN SPRITE + JP loop_alto_2 + + + + +doblar_letra: + LD HL,#letra_decodificada + LD DE,#letra_decodificada_tmp + LD B,#8 +buc_doblar_letra: + LD A,(HL) + INC HL + LD (DE),A + INC DE + INC DE + LD (DE),A + DEC DE + LD A,(HL) + INC HL + LD (DE),A + INC DE + INC DE + LD (DE),A + INC DE + DJNZ buc_doblar_letra + RET + + +escribe_letra: ; Code by Kevin Thacker + PUSH DE + LD IY,#letra_decodificada + LD B,#8 +bucle_alto_letra: + PUSH BC + PUSH HL + LD E,(HL) + CALL op_colores + LD (IY),D + INC IY + CALL op_colores + LD (IY),D + INC IY + POP HL + INC HL + POP BC + DJNZ bucle_alto_letra + POP DE + RET + +op_colores: + ld d,#0 ;; initial byte at end will be result of 2 pixels combined + CALL op_colores_pixel ;; do pixel 0 + RLC D + CALL op_colores_pixel + RRC D + RET + +;; follow through to do pixel 1 + +op_colores_pixel: + ;; shift out pixel into bits 0 and 1 (source) + RLC E + RLC E + ;; isolate + LD A,E + AND #0X3 + LD HL,#colores_b0 + ADD A,L + LD L,A + LD A,H + ADC A,#0 + LD H,A + ;; READ IT AND COMBINE WITH PIXEL SO FAR + LD A,D + OR (HL) + LD D,A + RET + + +.globl _cpc_SetInkGphStr + +_cpc_SetInkGphStr:: +;preparación datos impresión. El ancho y alto son fijos! + LD IX,#2 + ADD IX,SP + + ;LD A,H + ;LD C,L + LD A,1 (IX) ;VALOR + LD C,0 (IX) ;COLOR + + LD HL,#colores_b0 + LD B,#0 + ADD HL,BC + LD (HL),A + RET + + + + + +.globl _cpc_PrintGphStrXYM1 + +_cpc_PrintGphStrXYM1:: +;preparación datos impresión. El ancho y alto son fijos! + LD IX,#2 + ADD IX,SP + LD L,3 (IX) + LD A,2 (IX) ;pantalla + CALL cpc_GetScrAddress0 + LD E,0 (IX) + LD D,1 (IX) ;texto origen + XOR A + JP cpc_PrintGphStr0M1 + + +.globl _cpc_PrintGphStrXYM12X + +_cpc_PrintGphStrXYM12X:: +;preparación datos impresión. El ancho y alto son fijos! + LD IX,#2 + ADD IX,SP + LD L,3 (IX) + LD A,2 (IX) ;pantalla + CALL cpc_GetScrAddress0 + LD E,0 (IX) + LD D,1 (IX) ;texto origen + LD A,#1 + JP cpc_PrintGphStr0M1 + + + + +.globl _cpc_PrintGphStrM12X + +_cpc_PrintGphStrM12X:: + LD IX,#2 + ADD IX,SP + LD L,2 (IX) + LD H,3 (IX) ;DESTINO + LD E,0 (IX) + LD D,1 (IX) ;TEXTO ORIGEN + LD A,#1 + + JP cpc_PrintGphStr0M1 + + + +.globl _cpc_PrintGphStrM1 + +_cpc_PrintGphStrM1:: +;preparación datos impresión. El ancho y alto son fijos! + + LD IX,#2 + ADD IX,SP + LD L,2 (IX) + LD H,3 (IX) ;DESTINO + LD E,0 (IX) + LD D,1 (IX) ;TEXTO ORIGEN + XOR A + + ;JP cpc_PrintGphStr0M1 + +cpc_PrintGphStr0M1: + ;DE destino + ;HL origen + ;ex de,hl + LD (#dobleM1),A + ;trabajo previo: Para tener una lista de trabajos de impresión. No se interrumpe + ;la impresión en curso. + LD A,(#imprimiendo) + CP #1 + JP Z,add_elemento + LD (#direcc_destino),HL + EX DE,HL + CALL bucle_texto0M1 +;antes de terminar, se mira si hay algo en cola. +bucle_cola_impresionM1: + LD A,(#elementos_cola) + OR A + JP Z,terminar_impresion + CALL leer_elemento + JP bucle_cola_impresionM1 + + + + + +bucle_texto0M1: + LD A,#1 + LD (#imprimiendo),A + + LD A,(#first_char) + LD B,A ;resto 48 para saber el número del caracter (En ASCII 0=48) + LD A,(HL) + OR A ;CP 0 + RET Z + SUB B + LD BC,(#cpc_Chars) ;apunto a la primera letra + PUSH HL + LD L,A ;en A tengo la letra que sería + LD H,#0 + ADD HL,HL + ADD HL,HL + ADD HL,HL ;x8 porque cada letra son 8 bytes + ADD HL,BC ;ahora HL apunta a los datos de la letra correspondiente + CALL escribe_letraM1 + LD A,(dobleM1) + CP #1 + ; ANTES DE IMPRIMIR SE CHEQUEA SI ES DE ALTURA EL DOBLE Y SE ACTÚA EN CONSECUENCIA + CALL Z, doblar_letraM1 + LD HL,(direcc_destino) + LD A,(dobleM1) + CP #1 + ;alto + JR Z,cont_dobleM1 + LD DE,#letra_decodificada + .DB #0xfD + LD H,#8 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + JR cont_totM1 + + +cont_dobleM1: + LD DE,#letra_decodificada_tmp + .DB #0XFD + LD H,#16 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE +cont_totM1: + CALL cpc_PutSp0M1 + LD HL,(#direcc_destino) + INC HL + LD (#direcc_destino),HL + POP HL + INC HL + JP bucle_texto0M1 + +dobleM1: + .DB #0 +;.imprimiendo defb 0 +;.direcc_destino defw 0 + +doblar_letraM1: + LD HL,#letra_decodificada + LD DE,#letra_decodificada_tmp + LD B,#8 +buc_doblar_letraM1: + LD A,(HL) + INC HL + LD (DE),A + INC DE + LD (DE),A + INC DE + DJNZ buc_doblar_letraM1 + RET + + +cpc_PutSp0M1: + ; defb #0xfD + ; LD H,8 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 + LD C,B +loop_alto_2M1: +loop_ancho_2M1: + EX DE,HL + LDI + .DB #0XFD + DEC H + RET Z + EX DE,HL +salto_lineaM1: + LD C,#0XFF ;#0x07f6 ;salto linea menos ancho + ADD HL,BC + JP NC,loop_alto_2M1 ;sig_linea_2zz ;si no desborda va a la siguiente linea + LD BC,#0XC050 + ADD HL,BC + LD B,#7 ;sólo se daría una de cada 8 veces en un sprite + JP loop_alto_2M1 + + + +escribe_letraM1: + LD IY,#letra_decodificada + LD B,#8 + LD IX,#byte_tmp +bucle_altoM1: + PUSH BC + PUSH HL + + LD A,(HL) + LD HL,#dato + LD (HL),A + ;me deja en ix los valores convertidos + ;HL tiene la dirección origen de los datos de la letra + ;LD DE,letra ;el destino es la posición de decodificación de la letra + ;Se analiza el byte por parejas de bits para saber el color de cada pixel. + LD (IX),#0 ;reset el byte + LD B,#4 ;son 4 pixels por byte. Los recorro en un bucle y miro qué color tiene cada byte. +bucle_coloresM1: + ;roto el byte en (HL) + PUSH HL + CALL op_colores_m1 ;voy a ver qué color es el byte. tengo un máximo de 4 colores posibles en modo 0. + POP HL + SRL (HL) + SRL (HL) ;voy rotando el byte para mirar los bits por pares. + DJNZ bucle_coloresM1 + LD A,(IX) + LD (IY),A + INC IY + POP HL + INC HL + POP BC + DJNZ bucle_altoM1 + RET + + +;.rutina +;HL tiene la dirección origen de los datos de la letra + +;Se analiza el byte por parejas de bits para saber el color de cada pixel. +;ld ix,byte_tmp +;ld (ix+0),0 + +;LD B,4 ;son 4 pixels por byte. Los recorro en un bucle y miro qué color tiene cada byte. +;.bucle_colores +;roto el byte en (HL) +;push hl +;call op_colores_m1 ;voy a ver qué color es el byte. tengo un máximo de 4 colores posibles en modo 0. +;pop hl +;sla (HL) +;sla (HL) ;voy rotando el byte para mirar los bits por pares. + +;djnz bucle_colores + +;ret +op_colores_m1: ;rutina en modo 1 + ;mira el color del bit a pintar + LD A,#3 ;hay 4 colores posibles. Me quedo con los 2 primeros bits + AND (HL) + ; EN A tengo el número de bytes a sumar!! + LD HL,#colores_m1 + LD E,A + LD D,#0 + ADD HL,DE + LD C,(HL) + ;EN C ESTÁ EL BYTE DEL COLOR + ;LD A,4 + ;SUB B + LD A,B + DEC A + OR A ;CP 0 + JP Z,_sin_rotar +rotando: + SRL C + DEC A + JP NZ, rotando +_sin_rotar: + LD A,C + OR (IX) + LD (IX),A + ;INC IX + RET + + +.globl _cpc_SetInkGphStrM1 + +_cpc_SetInkGphStrM1:: + LD IX,#2 + ADD IX,SP + LD A,1 (IX) ;VALOR + LD C,0 (IX) ;COLOR + LD HL,#colores_cambM1 + LD B,#0 + ADD HL,BC + LD (HL),A + RET + + + +colores_cambM1: +colores_m1: + .DB #0b00000000,#0b10001000,#0b10000000,#0b00001000 + +;defb @00000000, @01010100, @00010000, @00000101 ;@00000001, @00000101, @00010101, @00000000 + + + +;DEFC direcc_destino0_m1 = direcc_destino +;DEFC colores_cambM1 = colores_m1 + + +.globl _cpc_SetFont + +_cpc_SetFont:: + ld ix, #2 + add ix, sp + ld a, 0(ix) + ld (#first_char), a + ld l, 1(ix) + ld h, 2(ix) + ld (#cpc_Chars), hl + ret + +dato: + .DB #0b00011011 ;aquí dejo temporalmente el byte a tratar + +byte_tmp: + .DB #0 + .DB #0 + .DB #0 ;defs 3 +colores_b0: ;defino los 4 colores posibles para el byte. Los colores pueden ser cualesquiera. + ;Pero se tienen que poner bien, en la posición que le corresponda. + .DB #0b00001010,#0b00100000,#0b10100000,#0b00101000 + ;.DB #0b00000000, #0b01010100, #0b00010000, #0b00000101 ;#0b00000001, #0b00000101, #0b00010101, #0b00000000 + +letra_decodificada: ;. defs 16 ;16 ;uso este espacio para guardar la letra que se decodifica + .DB #0,#0,#0,#0,#0,#0,#0,#0 + .DB #0,#0,#0,#0,#0,#0,#0,#0 +letra_decodificada_tmp: ;defs 32 ;16 ;uso este espacio para guardar la letra que se decodifica para tamaño doble altura + .DB #0,#0,#0,#0,#0,#0,#0,#0 + .DB #0,#0,#0,#0,#0,#0,#0,#0 + .DB #0,#0,#0,#0,#0,#0,#0,#0 + .DB #0,#0,#0,#0,#0,#0,#0,#0 + + +first_char: + .DB #0 ;first defined char number (ASCII) + +cpc_Chars: ;cpc_Chars codificadas... cada pixel se define con 2 bits que definen el color. + .DW #0 + diff --git a/lib/cpcrslib/cpc_Keyboard.s b/lib/cpcrslib/cpc_Keyboard.s new file mode 100644 index 0000000..4b7e623 --- /dev/null +++ b/lib/cpcrslib/cpc_Keyboard.s @@ -0,0 +1,348 @@ +; ****************************************************** +; ** Librería de rutinas SDCC para Amstrad CPC ** +; ** Raúl Simarro (Artaburu) - 2009, 2012 ** +; ****************************************************** + +;************************************* +; KEYBOARD +;************************************* + + +.globl _cpc_AnyKeyPressed + + +_cpc_AnyKeyPressed:: + call hacer_tiempo + call hacer_tiempo + call hacer_tiempo + + + + LD A,#40 +bucle_deteccion_tecla: + PUSH AF + CALL cpc_TestKeyboard ;en A vuelve los valores de la linea + OR A + JP NZ, tecla_pulsada ; retorna si no se ha pulsado ninguna tecla + POP AF + INC A + CP #0x4a + JP NZ, bucle_deteccion_tecla + LD HL,#0 + + RET + +tecla_pulsada: + POP AF + LD HL,#1 + RET +t_pulsada: + POP AF + JP _cpc_AnyKeyPressed + +hacer_tiempo: + LD A,#254 +bucle_previo_deteccion_tecla: + PUSH AF + POP AF + dec A + Jr nZ, bucle_previo_deteccion_tecla + ret + + + +.globl _cpc_AssignKey + +_cpc_AssignKey:: + + LD HL,#2 + ADD HL,SP + LD E,(HL) ;E-> numero tecla + INC HL + ;INC HL + LD A,(HL) ;linea, byte + INC HL + LD B,(HL) ;DE tiene el valor de la tecla a escribir en la tabla + ; En A se tiene el valor de la tecla seleccionada a comprobar [0..11] + ;___________________________________________________________________ + ; ;En A viene la tecla a redefinir (0..11) + SLA E + LD D,#0 + LD HL, #tabla_teclas + ADD HL,DE ;Nos colocamos en la tecla a redefinir y la borramos + LD (HL),#0XFF + INC HL + LD (HL),#0XFF + DEC HL + PUSH HL + ;call ejecutar_deteccion_teclado ;A tiene el valor del teclado + ; A tiene el byte (<>0) + ; B tiene la linea + ;guardo linea y byte + POP HL + LD (HL),A ;byte + INC HL + LD (HL),B + RET + + +.globl _cpc_TestKey + +_cpc_TestKey:: + + LD HL,#2 + ADD HL,SP + LD L,(HL) ; En A se tiene el valor de la tecla seleccionada a comprobar [0..11] + SLA L + INC L + LD H,#0 + LD DE,#tabla_teclas + ADD HL,DE + LD A,(HL) + CALL cpc_TestKeyboard ; esta rutina lee la línea del teclado correspondiente + DEC HL ; pero sólo nos interesa una de las teclas. + and (HL) ;para filtrar por el bit de la tecla (puede haber varias pulsadas) + CP (HL) ;comprueba si el byte coincide + LD H,#0 + JP Z,pulsado + LD L,H + RET +pulsado: + LD L,#1 + RET + + + + + +.globl _cpc_RedefineKey + +_cpc_RedefineKey:: + + LD HL,#2 + ADD HL,SP + LD L,(HL) + SLA L + LD H,#0 + LD DE,#tabla_teclas + ADD HL,DE ;Nos colocamos en la tecla a redefinir + LD (HL),#0XFF ; y la borramos + INC HL + LD (HL),#0XFF + DEC HL + PUSH HL + CALL ejecutar_deteccion_teclado ;A tiene el valor del teclado + LD A,D + ; A tiene el byte (<>0) + ; B tiene la linea + ;guardo linea y byte + POP HL ;recupera posición leída + LD A,(linea) + LD (HL),A ;byte + INC HL + LD A,(bte) + LD (HL),A + RET + + +ejecutar_deteccion_teclado: + LD A,#0x40 +bucle_deteccion_tecla1: + PUSH AF + LD (bte),A + CALL cpc_TestKeyboard ;en A vuelve los valores de la linea + OR A + JR NZ, tecla_pulsada1 ; retorna si no se ha pulsado ninguna tecla + POP AF + INC A + CP #0x4A + JR NZ, bucle_deteccion_tecla1 + JR ejecutar_deteccion_teclado + +tecla_pulsada1: + LD (linea),A + POP AF + CALL comprobar_si_tecla_usada + RET NC + JR bucle_deteccion_tecla1 + +comprobar_si_tecla_usada: ; A tiene byte, B linea + LD B,#12 ;numero máximo de tecla redefinibles + LD IX,#tabla_teclas + LD C,(IX) +bucle_bd_teclas: ;comprobar byte + LD A,(linea) + LD C,(IX) + CP (IX) + JR Z, comprobar_linea + INC IX + INC IX + DJNZ bucle_bd_teclas + SCF + CCF + RET ; si vuelve después de comprobar, que sea NZ +comprobar_linea: ;si el byte es el mismo, mira la linea + LD A,(bte) + CP 1 (IX) ; esto es (ix+1) + JR Z, tecla_detectada ; Vuelve con Z si coincide el byte y la linea + INC IX + INC IX + DJNZ bucle_bd_teclas + SCF + CCF + RET ; si vuelve después de comprobar, que sea NZ +tecla_detectada: + SCF + RET + + +.globl _cpc_DeleteKeys + +_cpc_DeleteKeys:: ;borra la tabla de las teclas para poder redefinirlas todas + LD HL,#tabla_teclas + LD DE,#tabla_teclas+#1 + LD BC, #24 + LD (HL),#0xFF + LDIR + RET + + +.globl _cpc_TestKeyF + +_cpc_TestKeyF:: + LD HL,#2 + ADD HL,SP + LD L,(HL) + SLA L + INC L + LD H,#0 + LD DE,#tabla_teclas + ADD HL,DE + LD A,(HL) + SUB #0X40 + EX DE,HL + LD HL,#keymap ;; LEE LA LÍNEA BUSCADA DEL KEYMAP + LD C,A + LD B,#0 + ADD HL,BC + LD A,(HL) + EX DE,HL + DEC HL ; PERO SÓLO NOS INTERESA UNA DE LAS TECLAS. + AND (HL) ;PARA FILTRAR POR EL BIT DE LA TECLA (PUEDE HABER VARIAS PULSADAS) + CP (HL) ;COMPRUEBA SI EL BYTE COINCIDE + LD H,#0 + JP NZ,#pulsado_cpc_TestKeyF + LD L,H + RET +pulsado_cpc_TestKeyF: + LD L,#1 + RET + + +.globl _cpc_ScanKeyboard + +_cpc_ScanKeyboard:: + + DI ;1 #0X#0X%%#0X#0X C P C VERSION #0X#0X%%#0X#0X FROM CPCWIKI + LD HL,#keymap ;3 + LD BC,#0XF782 ;3 + OUT (C),C ;4 + LD BC,#0XF40E ;3 + LD E,B ;1 + OUT (C),C ;4 + LD BC,#0XF6C0 ;3 + LD D,B ;1 + OUT (C),C ;4 + LD C,#0 ;2 + OUT (C),C ;4 + LD BC,#0XF792 ;3 + OUT (C),C ;4 + LD A,#0X40 ;2 + LD C,#0X4A ;2 44 +loop_cpc_scankeyboard: + LD B,D ;1 + OUT (C),A ;4 SELECT LINE + LD B,E ;1 + INI ;5 READ BITS AND WRITE INTO KEYMAP + INC A ;1 + CP C ;1 + JR C,loop_cpc_scankeyboard ;2/3 9*16+1*15=159 + LD BC,#0XF782 ;3 + OUT (C),C ;4 + EI ;1 8 =211 MICROSECONDS + RET + + + +cpc_TestKeyboard:: ;Tomado de las rutinas básicas que aparecen + ;en los documentos de Kevin Thacker + + DI + LD BC, #0XF40E + OUT (C), C + LD BC, #0XF6C0 + OUT (C), C + .DB #0XED,#0X71 ; OUT (C),0 + LD BC, #0XF792 + OUT (C), C + DEC B + OUT (C), A + LD B, #0XF4 + IN A, (C) + LD BC, #0XF782 + OUT (C), C + DEC B + .DB #0XED,#0X71 ; OUT (C),0 + CPL + EI + RET + +linea: + .DB #0 +bte: + .DB #0 + +keymap: + .DB #0 + .DB #0 + .DB #0 + .DB #0 + .DB #0 + .DB #0 + .DB #0 + .DB #0 + .DB #0 + .DB #0 + +tecla_0: .DW #0x0204 +;teclado_usable ; teclas del cursor, cada tecla está definida por su bit y su línea. +tabla_teclas: +tecla_0_x: .DW #0xffff ; bit 0, línea 2 +tecla_1_x: .DW #0xffff ; bit 1, línea 1 +tecla_2_x: .DW #0xffff ; bit 0, línea 1 +tecla_3_x: .DW #0xffff ; bit 0, línea 4 +tecla_4_x: .DW #0xffff ; bit 0, línea 2 +tecla_5_x: .DW #0xffff ; bit 1, línea 1 +tecla_6_x: .DW #0xffff ; bit 0, línea 1 +tecla_7_x: .DW #0xffff ; bit 0, línea 4 +tecla_8_x: .DW #0xffff ; bit 0, línea 4 +tecla_9_x: .DW #0xffff ; bit 0, línea 4 +tecla_10_x: .DW #0xffff ; bit 0, línea 4 +tecla_11_x: .DW #0xffff ; bit 0, línea 4 +tecla_12_x: .DW #0xffff ; bit 0, línea 4 +tecla_13_x: .DW #0xffff ; bit 0, línea 4 +tecla_14_x: .DW #0xffff ; bit 0, línea 4 +tecla_15_x: .DW #0xffff ; bit 0, línea 4 +; For increasing keys available just increase this word table +.DB #0 + + + + + + + + + + + diff --git a/lib/cpcrslib/cpc_PrintStr.s b/lib/cpcrslib/cpc_PrintStr.s new file mode 100644 index 0000000..28e713a --- /dev/null +++ b/lib/cpcrslib/cpc_PrintStr.s @@ -0,0 +1,27 @@ +.globl _cpc_PrintStr + +_cpc_PrintStr:: + LD IX,#2 + ADD IX,SP + LD l,0 (IX) + LD h,1 (IX) ;TEXTO ORIGEN + +; LD HL,#2 + ; ADD HL,SP +; LD E,(HL) +; INC HL +; LD D,(HL) +; EX DE,HL +bucle_imp_cadena: + LD A,(HL) + OR A + JR Z,salir_bucle_imp_cadena + CALL #0XBB5A + INC HL + JR bucle_imp_cadena +salir_bucle_imp_cadena: + LD A,#0X0D ; PARA TERMINAR HACE UN SALTO DE LÃNEA + CALL #0XBB5A + LD A,#0X0A + JP 0XBB5A + diff --git a/lib/cpcrslib/cpc_PutMaskSp.s b/lib/cpcrslib/cpc_PutMaskSp.s new file mode 100644 index 0000000..e9683e4 --- /dev/null +++ b/lib/cpcrslib/cpc_PutMaskSp.s @@ -0,0 +1,79 @@ +;void cpc_PutMaskSprite(int *sprite, int *posicion); +;void cpc_PutMaskSp(int *sprite, char alto, char ancho, int *posicion); +.globl _cpc_PutMaskSp + +_cpc_PutMaskSp:: ; dibujar en pantalla el sprite + ; Entradas bc-> Alto Ancho + ; de-> origen + ; hl-> destino + ; Se alteran hl, bc, de, af + + LD IX,#2 + ADD IX,SP + LD L,4 (IX) + LD H,5 (IX) + LD A,3 (IX) + LD E,0 (IX) + LD D,1 (IX) + ld (#loop_alto_2m_PutMaskSp0+#1),a ;actualizo rutina de captura + SUB #1 + CPL + LD (#salto_lineam_PutMaskSp0+#1),A ;comparten los 2 los mismos valores. + ld A,2(IX) + ;JP cpc_PutMaskSp0 + +cpc_PutMaskSp0: + .DB #0XFD + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 +loop_alto_2m_PutMaskSp0: + LD C,#4 + EX DE,HL +loop_ancho_2m_PutMaskSp0: + LD A,(DE) ;LEO EL BYTE DEL FONDO + AND (HL) ;LO ENMASCARO + INC HL + OR (HL) ;LO ENMASCARO + LD (DE),A ;ACTUALIZO EL FONDO + INC DE + INC HL + DEC C + JP NZ,loop_ancho_2m_PutMaskSp0 + .DB #0XFD + DEC H + RET Z + EX DE,HL +salto_lineam_PutMaskSp0: + LD C,#0XFF + ADD HL,BC + JP nc,loop_alto_2m_PutMaskSp0 + LD BC,#0XC050 + ADD HL,BC + LD B,#7 + JP loop_alto_2m_PutMaskSp0 + +.globl _cpc_PutMaskSprite + +_cpc_PutMaskSprite:: ; dibujar en pantalla el sprite + ; Entradas bc-> Alto Ancho + ; de-> origen + ; hl-> destino + ; Se alteran hl, bc, de, af + + POP AF + POP HL + POP DE + PUSH AF + LD A,(HL) ;ANCHO + INC HL + ld (#loop_alto_2m_PutMaskSp0+#1),a ;ACTUALIZO RUTINA DE CAPTURA + ;LD (ANCHOT+1),A ;ACTUALIZO RUTINA DE DIBUJO + SUB #1 + CPL + LD (#salto_lineam_PutMaskSp0+#1),A ;COMPARTEN LOS 2 LOS MISMOS VALORES. + LD A,(HL) ;ALTO + INC HL + EX DE,HL + jp cpc_PutMaskSp0 + + diff --git a/lib/cpcrslib/cpc_PutMaskSp2x8.s b/lib/cpcrslib/cpc_PutMaskSp2x8.s new file mode 100644 index 0000000..ac85f0e --- /dev/null +++ b/lib/cpcrslib/cpc_PutMaskSp2x8.s @@ -0,0 +1,45 @@ +.globl _cpc_PutMaskSp2x8 +; imprime un sprite de 8x8 en modo 1 +; El formato del sprite es el siguiente por cada línea: +; defb byte1,byte2,byte3,byte4 +; siendo byte1 y byte3 son las máscaras de los bytes 2 y 4 +; se recibe de entrada el sprite y la posición. +_cpc_PutMaskSp2x8:: + LD IX,#2 + ADD IX,SP + LD L,2 (IX) + LD H,3 (IX) + LD E,0 (IX) + LD D,1 (IX) + .DB #0XFD + LD H,#8 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 +loop_alto_mask_2x8: + EX DE,HL + LD A,(DE) ;leo el byte del fondo + AND (HL) ;lo enmascaro + INC HL + OR (HL) ;lo enmascaro + LD (DE),A ;actualizo el fondo + INC DE + INC HL + ;COMO SOLO SON 2 BYTES, es más rápido y económico desplegar la rutina + LD A,(DE) + AND (HL) + INC HL + OR (HL) + LD (DE),A + INC DE + INC HL + .DB #0XFD + DEC H + RET Z + EX DE,HL + LD C,#0XFE + ADD HL,BC + JP NC,loop_alto_mask_2x8 + LD BC,#0XC050 + ADD HL,BC + LD B,#7 + JP loop_alto_mask_2x8 + diff --git a/lib/cpcrslib/cpc_PutMaskSp4x16.s b/lib/cpcrslib/cpc_PutMaskSp4x16.s new file mode 100644 index 0000000..4fbbd61 --- /dev/null +++ b/lib/cpcrslib/cpc_PutMaskSp4x16.s @@ -0,0 +1,56 @@ +.globl _cpc_PutMaskSp4x16 + +_cpc_PutMaskSp4x16:: + + LD IX,#2 + ADD IX,SP + LD L,2 (IX) + LD H,3 (IX) + LD E,0 (IX) + LD D,1 (IX) + .DB #0XFD + LD H,#16 + LD B,#7 +loop_alto_mask_4x16: + EX DE,HL + LD A,(DE) ;leo el byte del fondo + AND (HL) ;lo enmascaro + INC HL + OR (HL) ;lo enmascaro + LD (DE),A ;actualizo el fondo + INC DE + INC HL + ;COMO SOLO SON 4 BYTES, es más rápido y económico desplegar la rutina + LD A,(DE) ;leo el byte del fondo + AND (HL) ;lo enmascaro + INC HL + OR (HL) ;lo enmascaro + LD (DE),A ;actualizo el fondo + INC DE + INC HL + LD A,(DE) ;leo el byte del fondo + AND (HL) ;lo enmascaro + INC HL + OR (HL) ;lo enmascaro + LD (DE),A ;actualizo el fondo + INC DE + INC HL + LD A,(DE) ;leo el byte del fondo + AND (HL) ;lo enmascaro + INC HL + OR (HL) ;lo enmascaro + LD (DE),A ;actualizo el fondo + INC DE + INC HL + .DB #0XFD + DEC H + RET Z + EX DE,HL + LD C,#0XFC + ADD HL,BC + JP NC,loop_alto_mask_4x16 + LD BC,#0XC050 + ADD HL,BC + LD B,#7 + JP loop_alto_mask_4x16 + diff --git a/lib/cpcrslib/cpc_PutSp.s b/lib/cpcrslib/cpc_PutSp.s new file mode 100644 index 0000000..0ddbf10 --- /dev/null +++ b/lib/cpcrslib/cpc_PutSp.s @@ -0,0 +1,54 @@ +.globl _cpc_PutSp + +_cpc_PutSp:: ; dibujar en pantalla el sprite + ; Entradas bc-> Alto Ancho + ; de-> origen + ; hl-> destino + ; Se alteran hl, bc, de, af + + LD IX,#2 + ADD IX,SP + LD E,0 (IX) + LD D,1 (IX) + LD A,3 (IX) + LD L,4 (IX) + LD H,5 (IX) + + LD (#ancho0+1),A ;actualizo rutina de captura + ;ld (anchot+1),a ;actualizo rutina de dibujo + SUB #1 + CPL + LD (#suma_siguiente_linea0+1),A ;COMPARTEN LOS 2 LOS MISMOS VALORES. + + LD A,2 (IX) + ;JP cpc_putsp0 + +pc_PutSp0: + .DB #0XFD + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 +ancho0: +loop_alto_2_pc_PutSp0: + LD C,#4 +loop_ancho_2_pc_PutSp0: + LD A,(DE) + LD (HL),A + INC DE + INC HL + DEC C + JP NZ,loop_ancho_2_pc_PutSp0 + .DB #0XFD + DEC H + RET Z + +suma_siguiente_linea0: +salto_linea_pc_PutSp0: + LD C,#0XFF ;&07F6 ;SALTO LINEA MENOS ANCHO + ADD HL,BC + JP nc,loop_alto_2_pc_PutSp0 ;sig_linea_2zz ;si no desborda va a la siguiente linea + LD BC,#0XC050 + + ADD HL,BC + LD B,#7 ;SÓLO SE DARÃA UNA DE CADA 8 VECES EN UN SPRITE + JP loop_alto_2_pc_PutSp0 + diff --git a/lib/cpcrslib/cpc_PutSp2x14.s b/lib/cpcrslib/cpc_PutSp2x14.s new file mode 100644 index 0000000..241d66b --- /dev/null +++ b/lib/cpcrslib/cpc_PutSp2x14.s @@ -0,0 +1,50 @@ +.globl _cpc_PutSp4x14 + +_cpc_PutSp4x14:: ; dibujar en pantalla el sprite + ; Entradas bc-> Alto Ancho + ; de-> origen + ; hl-> destino + ; Se alteran hl, bc, de, af + + LD IX,#2 + ADD IX,SP + LD e,0 (IX) + LD d,1 (IX) ;sprite + LD l,2 (IX) + LD h,3 (IX) ;address + ld A,#14 + +pc_PutSp0X: + .DB #0XFD + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 +ancho0X: +loop_alto_2_pc_PutSp0X: + LD C,#4 +loop_ancho_2_pc_PutSp0X: + EX DE,HL + LDI + LDI + LDI + LDI + EX DE,HL + ;LD A,(DE) + ;LD (HL),A + ;INC DE + ;INC HL + ;DEC C + ;JP NZ,loop_ancho_2_pc_PutSp0X + .DB #0XFD + DEC H + RET Z + +suma_siguiente_linea0X: +salto_linea_pc_PutSp0X: + LD C,#0XFC ;&07F6 ;SALTO LINEA MENOS ANCHO + ADD HL,BC + JP nc,loop_alto_2_pc_PutSp0X ;sig_linea_2zz ;si no desborda va a la siguiente linea + LD BC,#0XC050 + ADD HL,BC + LD B,#7 ;SÓLO SE DARÃA UNA DE CADA 8 VECES EN UN SPRITE + JP loop_alto_2_pc_PutSp0X + diff --git a/lib/cpcrslib/cpc_PutSpTr.s b/lib/cpcrslib/cpc_PutSpTr.s new file mode 100644 index 0000000..e1d24fa --- /dev/null +++ b/lib/cpcrslib/cpc_PutSpTr.s @@ -0,0 +1,75 @@ +.globl _cpc_PutSpTr + +_cpc_PutSpTr:: ; dibujar en pantalla el sprite + ; Entradas bc-> Alto Ancho + ; de-> origen + ; hl-> destino + ; Se alteran hl, bc, de, af + LD IX,#2 + ADD IX,SP + LD E,0 (IX) + LD D,1 (IX) + LD A,4 (IX) + LD L,6 (IX) + LD H,7 (IX) + + + LD (#anchot+1),A ;actualizo rutina de dibujo + SUB #1 + CPL + LD (#suma_siguiente_lineat+1),A ;comparten los 2 los mismos valores. + + LD A,2 (IX) + ;JP cpc_PutSpTr0 + +cpc_PutSpTr0: + .DB #0XFD + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE +anchot: +loop_alto_2t: + LD B,#0 +loop_ancho_2t: + LD A,(DE) + AND #0XAA + JP Z,sig_pixn_der_2 + LD C,A ;B es el único registro libre + LD A,(HL) ;pixel actual donde pinto + AND #0X55 + OR C + LD (HL),A ;y lo pone en pantalla +sig_pixn_der_2: + LD A,(DE) ;pixel del sprite + AND #0X55 + JP Z,pon_buffer_der_2 + LD C,A ;B es el único registro libre + LD A,(HL) ;PIXEL ACTUAL DONDE PINTO + AND #0XAA + OR C + LD (HL),A +pon_buffer_der_2: + INC DE + INC HL + DEC B + JP NZ,loop_ancho_2t + .DB #0XFD + DEC H + RET Z +suma_siguiente_lineat: +salto_lineat: + LD BC,#0X07FF ;&07f6 ;salto linea menos ancho + ADD HL,BC + JP NC,loop_alto_2t ;sig_linea_2zz ;si no desborda va a la siguiente linea + LD BC,#0XC050 + ADD HL,BC + ;ld b,7 ;sólo se daría una de cada 8 veces en un sprite + JP loop_alto_2t + + LD A,H + ADD #0X08 + LD H,A + SUB #0XC0 + JP NC,loop_alto_2t ;sig_linea_2 + LD BC,#0XC050 + ADD HL,BC + JP loop_alto_2t + diff --git a/lib/cpcrslib/cpc_PutSpXOR.s b/lib/cpcrslib/cpc_PutSpXOR.s new file mode 100644 index 0000000..f4e58f0 --- /dev/null +++ b/lib/cpcrslib/cpc_PutSpXOR.s @@ -0,0 +1,79 @@ +.globl _cpc_PutSpXOR + +_cpc_PutSpXOR:: ; dibujar en pantalla el sprite + ; Entradas bc-> Alto Ancho + ; de-> origen + ; hl-> destino + ; Se alteran hl, bc, de, af + + LD IX,#2 + ADD IX,SP + LD E,0 (IX) + LD D,1 (IX) + LD A,3 (IX) + LD L,4 (IX) + LD H,5 (IX) + + LD (#anchox0+#1),A ;actualizo rutina de captura + SUB #1 + CPL + LD (#suma_siguiente_lineax0+#1),A ;comparten los 2 los mismos valores. + + LD A,2 (IX) + JP cpc_PutSpXOR0 + + +.globl _cpc_PutSpriteXOR + +_cpc_PutSpriteXOR:: ; dibujar en pantalla el sprite + ; Entradas bc-> Alto Ancho + ; de-> origen + ; hl-> destino + ; Se alteran hl, bc, de, af + POP AF + POP HL + POP DE + PUSH AF + LD A,(HL) ;ANCHO + INC HL + LD (#anchox0+#1),A ;ACTUALIZO RUTINA DE CAPTURA + ;LD (ANCHOT+1),A ;ACTUALIZO RUTINA DE DIBUJO + SUB #1 + CPL + LD (#suma_siguiente_lineax0+1),A ;COMPARTEN LOS 2 LOS MISMOS VALORES. + LD A,(HL) ;ALTO + INC HL + EX DE,HL + ;LD A,(IX+4) + JP cpc_PutSpXOR0 + + +cpc_PutSpXOR0: + .DB #0XFD + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + LD B,#7 +anchox0: +loop_alto_2x: + LD C,#4 +loop_ancho_2x: + LD A,(DE) + XOR (HL) + LD (HL),A + INC DE + INC HL + DEC C + JP NZ,loop_ancho_2x + .DB #0XFD + DEC H + RET Z + +suma_siguiente_lineax0: +salto_lineax: + LD C,#0XFF ;&07F6 ;SALTO LINEA MENOS ANCHO + ADD HL,BC + JP NC,loop_alto_2x ;SIG_LINEA_2ZZ ;SI NO DESBORDA VA A LA SIGUIENTE LINEA + LD BC,#0XC050 + ADD HL,BC + LD B,#7 ;SÓLO SE DARÃA UNA DE CADA 8 VECES EN UN SPRITE + JP loop_alto_2x + diff --git a/lib/cpcrslib/cpc_PutSprite.s b/lib/cpcrslib/cpc_PutSprite.s new file mode 100644 index 0000000..a6d6dec --- /dev/null +++ b/lib/cpcrslib/cpc_PutSprite.s @@ -0,0 +1,108 @@ +.globl _cpc_PutSprite + +_cpc_PutSprite:: +;************************************* +; SPRITE ROUTINE WITHOUT TRANSPARENCY +; Supplied by Tim Riemann +; from a German forum +; DE = source address of the sprite +; (includes header with 1B width [64byte maximum!], 1B height) +; HL = destination address +;************************************* + + POP AF + POP HL ;DESTINATION ADDRESS + POP DE ;SPRITE DATA + PUSH AF + ;EX DE,HL + LD A,#64 + SUB (HL) + ADD A + LD (width1+1),A + XOR A + SUB (HL) + LD (width2+1),A + INC HL + LD A,(HL) + INC HL +width0: + ;ex de,hl +width1: + JR width1 ;cada LDI es un byte + LDI ;se hace el salto al byte correspondiente (64-ancho) + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI + LDI +width2: + LD BC,#0X700 + EX DE,HL + ADD HL,BC + JP NC,width3 + LD BC,#0XC050 + ADD HL,BC +width3: + EX DE,HL + DEC A + JP NZ, width1 + RET + diff --git a/lib/cpcrslib/cpc_RLI.s b/lib/cpcrslib/cpc_RLI.s new file mode 100644 index 0000000..92a9385 --- /dev/null +++ b/lib/cpcrslib/cpc_RLI.s @@ -0,0 +1,39 @@ +.globl _cpc_RLI ;rota las líneas que se le digan hacia la izq y mete lo rotado por la derecha. + +_cpc_RLI:: + LD IX,#2 + ADD IX,SP + LD L,0 (IX) + LD H,1 (IX) ;posición inicial + LD A,2 (IX) ;lineas + LD (alto_cpc_RLI+1),A + LD A,3 (IX) ;ancho + LD (ancho_cpc_RLI+1),A + DEC HL +alto_cpc_RLI: + LD A,#8 ;; parametro +ciclo0_cpc_RLI: + PUSH AF + PUSH HL + INC HL + LD A,(HL) + LD D,H + LD E,L + DEC HL + LD B, #0 +ancho_cpc_RLI: + LD C,#50 ; parametro + LDDR + INC HL + LD (HL),A + POP HL + POP AF + DEC A + RET Z + LD BC,#0X800 ;salto de línea, ojo salto caracter. + ADD HL,BC + JP NC,ciclo0_cpc_RLI ;sig_linea_2zz ;si no desborda va a la siguiente linea + LD BC,#0XC050 + ADD HL,BC + JP ciclo0_cpc_RLI + diff --git a/lib/cpcrslib/cpc_RRI.s b/lib/cpcrslib/cpc_RRI.s new file mode 100644 index 0000000..d2f5b5d --- /dev/null +++ b/lib/cpcrslib/cpc_RRI.s @@ -0,0 +1,39 @@ +.globl _cpc_RRI +;cpc_RRI(unsigned int pos, unsigned char w, unsigned char h); +_cpc_RRI:: + LD IX,#2 + ADD IX,SP + LD L,0 (IX) + LD H,1 (IX) ;posición inicial + LD A,2 (IX) ;lineas + LD (alto_cpc_RRI+1),A + LD A,3 (IX) ;ancho + LD (ancho_cpc_RRI+1),A + INC HL +alto_cpc_RRI: + LD A,#8 ;; parametro +ciclo0_cpc_RRI: + PUSH AF + PUSH HL + DEC HL + LD A,(HL) + LD D,H + LD E,L + INC HL ; SOLO MUEVE 1 BYTE + LD B, #0 +ancho_cpc_RRI: + LD C,#50 ; PARAMETRO + LDIR + DEC HL + LD (HL),A + POP HL + POP AF + DEC A + RET Z + LD BC,#0X800 ;salto de línea, ojo salto caracter + ADD HL,BC + JP NC,ciclo0_cpc_RRI ;sig_linea_2zz ;si no desborda va a la siguiente linea + LD BC,#0XC050 + ADD HL,BC + JP ciclo0_cpc_RRI + diff --git a/lib/cpcrslib/cpc_Random.s b/lib/cpcrslib/cpc_Random.s new file mode 100644 index 0000000..2f2916e --- /dev/null +++ b/lib/cpcrslib/cpc_Random.s @@ -0,0 +1,34 @@ +.globl _cpc_Random + +_cpc_Random:: + + + ; LD A,(#valor_previo) + ; LD C,A +; LD L,A +; LD A,R; +; ADD L +; AND #0xB8 +; SCF +; JP PO,NO_CLR +; CCF +;NO_CLR: LD A,C + ; RLA + ; LD C,A + ; LD A,R + ; ADD C + ; LD (#valor_previo),A + ; LD L,A +; RET + + LD A,(#valor_previo) + LD L,A + LD A,R + ADD L ;LOS 2 ÚLTIMOS BITS DE A DIRÃN SI ES 0,1,2,3 + LD (#valor_previo),A + LD L,A ;SE DEVUELVE L (CHAR) + LD H,#0 + RET +valor_previo: + .db #0xFF + diff --git a/lib/cpcrslib/cpc_SetBorder.s b/lib/cpcrslib/cpc_SetBorder.s new file mode 100644 index 0000000..b1939df --- /dev/null +++ b/lib/cpcrslib/cpc_SetBorder.s @@ -0,0 +1,10 @@ +.globl _cpc_SetBorder + +_cpc_SetBorder:: + LD HL,#2 + ADD HL,SP + LD B,(HL) + ;LD B,A + LD C,B + JP 0XBC38 + diff --git a/lib/cpcrslib/cpc_SetColour.s b/lib/cpcrslib/cpc_SetColour.s new file mode 100644 index 0000000..7fd6dc3 --- /dev/null +++ b/lib/cpcrslib/cpc_SetColour.s @@ -0,0 +1,16 @@ +.globl _cpc_SetColour + +_cpc_SetColour:: ;El número de tinta 17 es el borde + LD HL,#2 + ADD HL,SP + LD A,(HL) + INC HL + ;INC HL + LD E,(HL) + LD BC,#0x7F00 ;Gate Array + OUT (C),A ;Número de tinta + LD A,#64 ;@01000000 ;Color (y Gate Array) + ADD E + OUT (C),A + RET + diff --git a/lib/cpcrslib/cpc_SetInk.s b/lib/cpcrslib/cpc_SetInk.s new file mode 100644 index 0000000..2c29464 --- /dev/null +++ b/lib/cpcrslib/cpc_SetInk.s @@ -0,0 +1,12 @@ +.globl _cpc_SetInk + +_cpc_SetInk:: + LD HL,#2 + ADD HL,SP + LD A,(HL) + INC HL + + LD B,(HL) + LD C,B + JP 0XBC32 + diff --git a/lib/cpcrslib/cpc_SetMode.s b/lib/cpcrslib/cpc_SetMode.s new file mode 100644 index 0000000..f6877b4 --- /dev/null +++ b/lib/cpcrslib/cpc_SetMode.s @@ -0,0 +1,13 @@ +.globl _cpc_SetMode + +_cpc_SetMode:: + ;ld a,l + LD HL,#2 + ADD HL,SP + LD L,(HL) ; Comprobar que el valor vaya a L!! + LD BC,#0x7F00 ;Gate array port + LD D,#140 ;@10001100 ;Mode and rom selection (and Gate Array function) + ADD D + OUT (C),A + RET + diff --git a/lib/cpcrslib/cpc_SetModo.s b/lib/cpcrslib/cpc_SetModo.s new file mode 100644 index 0000000..8e96c3b --- /dev/null +++ b/lib/cpcrslib/cpc_SetModo.s @@ -0,0 +1,9 @@ +.globl _cpc_SetModo + +_cpc_SetModo:: + ;LD A,L + LD HL,#2 + ADD HL,SP + LD a,(HL) ; COMPROBAR QUE EL VALOR VAYA A L!! + JP 0XBC0E + diff --git a/lib/cpcrslib/cpc_TileMap.s b/lib/cpcrslib/cpc_TileMap.s new file mode 100644 index 0000000..501115b --- /dev/null +++ b/lib/cpcrslib/cpc_TileMap.s @@ -0,0 +1,1332 @@ +PEEPHOLE = 0 + +.include "TileMap.h" + + + +.globl _cpc_ResetTouchedTiles + +_cpc_ResetTouchedTiles:: + LD HL,#_tiles_tocados + LD (HL),#0xFF + RET + + +.globl _cpc_InitTileMap + +_cpc_InitTileMap:: + LD HL,#0 + LD (_tiles),HL + RET + + +.globl _cpc_SetTile + +_cpc_SetTile:: + +; ld ix,#2 +; add ix,sp + +; ld e,1 (ix) +; ld a,0 (ix) + + ld hl,#2 + add hl,sp + ld a,(hl) + inc hl + ld e,(hl) + inc hl + ld c,(hl) + + ;.include "multiplication2.asm" + ;LD H, #ancho_pantalla_bytes/2 + ;LD L, #0 + LD HL,#ancho_pantalla_bytes * 256 / 2 + LD D, L + LD B, #8 + +MULT: ADD HL, HL + JR NC, NOADD + ADD HL, DE +NOADD: DJNZ MULT + + ld e,a + ;ld d,#0 ; D ya es 0 + add hl,de + + ld de,#_pantalla_juego + add hl,de + ld (hl),c + + ret + + + + +; ****************************************************** +; ** Librería de rutinas para Amstrad CPC ** +; ** Raúl Simarro, Artaburu 2007 ** +; ****************************************************** + +.globl _cpc_ShowTileMap ; para una pantalla de 64x160 bytes. Superbuffer 8192bytes + + + +_cpc_ShowTileMap:: + +cont_normal: + xor a + ld (#contador_tiles),a +;Se busca el número de tiles en pantalla + ld hl,(#ntiles) + ld (#contador_tiles2),hl + ld hl,#_pantalla_juego + call transferir_pantalla_a_superbuffer + +;parte donde se transfiere el superbuffer completo a la pantalla + + ld de,#posicion_inicial_superbuffer + ld hl,#tiles_ocultos_ancho0*2 + add hl,de ;primero posiciona en ancho + + ; Posición inicial lectura datos superbuffer + ld de,#ancho_pantalla_bytes + ld b,#tiles_ocultos_alto0*8 + XOR A + CP B + JR Z, NO_SUMA +bucle_alto_visible: + add hl,de + djnz bucle_alto_visible +NO_SUMA: + push hl + ld (#posicion_inicio_pantalla_visible_sb+1),HL + + +;;.otro_ancho + ld b,#ancho_pantalla_bytes-4*(tiles_ocultos_ancho0) ;;nuevo ancho + ld c,#alto_pantalla_bytes-16*(tiles_ocultos_alto0) ;;nuevo alto + + +;; a HL tb se le suma una cantidad + ld de, #tiles_ocultos_alto0*2 + ld hl,#_posiciones_pantalla + add hl,de + ld e,(hl) + inc hl + ld d,(hl) + ld hl, #2*tiles_ocultos_ancho0 + add hl,de + ld (#posicion_inicio_pantalla_visible+1),HL + ld (#posicion_inicio_pantalla_visible2+1),HL + pop de ;origen + ;HL destino + ;DE origen + ;call cpc_PutSpTM ;cambiar la rutina por una que dibuje desde superbuffer + ;ret + jp creascanes +; A partir de la dirección del vector de bloques se dibuja el mapeado en pantalla + + +transferir_pantalla_a_superbuffer: + + + PUSH HL + POP IX ;IX lleva los datos de la pantalla + LD DE,(#_posiciones_super_buffer) +bucle_dibujado_fondo: + ;Leo en HL el tile a meter en el superbuffer + LD L,0 (IX) + LD H,#0 + ADD HL,HL ;x2 + ADD HL,HL ;x4 + ADD HL,HL ;x8 + ADD HL,HL ;x16 + LD BC,#_tiles + ADD HL,BC ;hl apunta al tile a transferir + ;me falta conocer el destino. IY apunta al destino + EX DE,HL + PUSH HL + call transferir_map_sbuffer ;DE origen HL destino + + ; Inicio Mod. 29.06.2009 +; Se cambia la forma de controlar el final de datos de tiles. El #0xFF ahora sí que se podrá utilizar. + ld HL,(#contador_tiles2) + dec HL + LD (#contador_tiles2),HL + LD A,H + OR L + ;ret z + jp z, ret2 +; Fin Mod. 29.06.2009 + POP HL + INC IX ;Siguiente byte + + + +; LD A,(IX+0) +; CP #0xFF ;El fin de los datos se marca con #0xFF, no hay un tile que sea #0xFF + ;RET Z + EX DE,HL + LD A,(#contador_tiles) + CP #ancho_pantalla_bytes/2-1 ;31 ;son 32 tiles de ancho + JP Z,incremento2 + INC A + LD (#contador_tiles),A + INC DE + INC DE ;para pasar a la siguiente posición + ;si ya se va por el 18 el salto es mayor, es + JP bucle_dibujado_fondo + +incremento2: + XOR A + LD (#contador_tiles),A + LD BC, #7*ancho_pantalla_bytes+2 ;450 ; 64x7+2 48x7+2 1084 ;72x15+4 + EX DE,HL + ADD HL,BC + EX DE,HL + JP bucle_dibujado_fondo + +contador_tiles: .DB 0 +contador_tiles2: .DW 0 +; Ahora se puede usar el tile 255 +ntiles: .DW ( alto_pantalla_bytes / 8 ) * ( ancho_pantalla_bytes / 2 ) + +ret2: +;Se busca el número de tiles en pantalla + ;ld hl,(ntiles) + ;ld (contador_tiles2),hl + pop hl +ret + + +transferir_map_sbuffer: + + ld bc,#ancho_pantalla_bytes-1 + + .DB #0xfD + LD H,#8 ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + +loop_alto_map_sbuffer: +loop_ancho_map_sbuffer: + ld A,(DE) + ld (HL),A + inc de + inc hl + ld A,(DE) + ld (HL),A + inc de + + .DB #0xfD + dec h + ret z +;hay que sumar el ancho de la pantalla en bytes para pasar a la siguiente línea + + add HL,BC + jp loop_alto_map_sbuffer + + +.globl _cpc_PutSpTM + +_cpc_PutSpTM:: ; dibujar en pantalla el sprite + +;di +ld a,b +ld b,c +ld c,a +loop_alto_2_cpc_PutSpTM: + push bc + ld b,c + push hl +loop_ancho_2_cpc_PutSpTM: + ld A,(DE) + ld (hl),a + inc de + inc hl + djnz loop_ancho_2_cpc_PutSpTM + + ;incremento DE con el ancho de la pantalla-el del sprite + ex de,hl +ancho_mostrable: + ld bc,#4*(tiles_ocultos_ancho0) + add hl,bc + ex de,hl + pop hl + ld A,H + add #0x08 + ld H,A + sub #0xC0 + jp nc,sig_linea_2_cpc_PutSpTM + ld bc,#0xc050 + add HL,BC +sig_linea_2_cpc_PutSpTM: + pop BC + djnz loop_alto_2_cpc_PutSpTM +;ei +ret + + + + + +.globl _cpc_ShowTileMap2 + +_cpc_ShowTileMap2:: + ld bc, #256*(ancho_pantalla_bytes-4*(tiles_ocultos_ancho0))+#alto_pantalla_bytes-16*(tiles_ocultos_alto0) + +posicion_inicio_pantalla_visible: + ld hl,#0000 + + +posicion_inicio_pantalla_visible_sb: + ld hl,#0000 +papa: ; código de Xilen Wars + di + ld (#auxsp),sp + ld sp,#tablascan + ld a,#alto_pantalla_bytes-16*(tiles_ocultos_alto0) ;16 alto +ppv0: + pop de ; va recogiendo de la pila!! +inicio_salto_ldi: + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi + + ldi + ldi + + ldi + ldi + ldi + ldi + + + ldi + ldi + ldi + ldi + ldi + ldi + ldi + ldi +CONT_salto_ldi: + ld de,#4*tiles_ocultos_ancho0 + add hl,de + +CONT_salto_ldi1: + dec a + jp nz, ppv0 + ld sp,(#auxsp) + ei + ret + +auxsp: .DW 0 + + + + + +creascanes: + ld ix,#tablascan +posicion_inicio_pantalla_visible2: + ld hl,#0000 + ld b, #alto_pantalla_bytes/8-2*tiles_ocultos_alto0 ; 20 ; num de filas. +cts0: + push bc + push hl + ld b,#8 + ld de,#2048 +cts1: + ld 0 (ix),l + inc ix + ld 0 (ix),h + inc ix + add hl,de + djnz cts1 + pop hl + ld bc,#80 + add hl,bc + pop bc + djnz cts0 +; jp prepara_salto_ldi +prepara_salto_ldi: ; para el ancho visible de la pantalla: + ld hl,#ancho_pantalla_bytes-4*tiles_ocultos_ancho0 + ld de,#inicio_salto_ldi + add hl,hl + add hl,de + ld (hl),#0xc3 + inc hl + ld de,#CONT_salto_ldi + ld (hl),e + inc hl + ld (hl),d + ret + + + + + +; MIRAR SUMA DE COORDENADAS PARA HACER SOLO UNA BUSQUEDA DE TILES +.globl _cpc_PutSpTileMap + +_cpc_PutSpTileMap:: + +.if PEEPHOLE-0 + ex de,hl +.else + ld hl,#2 ;3 + add hl,sp ;3 + + ld e,(hl) ;2 + inc hl ;1 + ld d,(hl) ;2 +.endif + + + +;según las coordenadas x,y que tenga el sprite, se dibuja en el buffer + +; ld hl,#2 ;3 +; add hl,sp ;3 +; ld e,(hl) ;2 +; inc hl ;1 +; ld d,(hl) ;2 + + .db #0xdd + ld l,e ;2 + .db #0xdd + ld h,d ;2 + ; --> 15 NOPS + + ;Obtencion de +;dimensiones, solo usadas para calcular iteraciones -> BC +ld l,0 (ix) +ld h,1 (ix) ;dimensiones del sprite +ld C,(hl) ;; ANCHO +inc hl +ld B,(hl) ;; ANCHO +Dec b +Dec c +;->BC coord -1 + + ld l,10 (ix) + ld h,11 (ix) ;recoje coordenadas anteriores + + ld e,8 (ix) + ld d,9 (ix) + ld 10 (ix),e + ld 11 (ix),d + + +;Obtencion x0y0 -> HL +PUSH HL +Srl l ; x0/2 +Srl h +Srl h +Srl h ; y0/8 +Ex de,hl ;-> Guarda de con origen de loops + +POP hl ;(recuperar coord xoyo) +Add hl,bc ;(Suma de dimensiones) +Srl l ; (x0+ancho)/2 +Srl h +Srl h +Srl h; (y0+alto)/2 + +xor a +SBC hl,de ;diferencia entre bloque inicial y bloque con dimensiones + +;Hl tiene iteraciones en i,j partiendo de origen loops +Ld a,h +Inc a +Ld (pasos_alto_xW+1),a +Ld a,l +Inc a +;Ld (pasos_ancho_x+1),a + +;Loop from d, i veces +;Loop from e, j veces +jp macario +.db 'r','a','u','l' +macario: +pasos_ancho_xW: ; *parametro + ld b,a +bucle_pasos_anchoW: + push de +pasos_alto_xW: ; *parametro + ld c,#0 +bucle_pasos_altoW: + ; Mete E y D + call _cpc_UpdTileTable + inc d + dec c + jp nz,bucle_pasos_altoW + + pop de + inc e + dec b + jp nz,bucle_pasos_anchoW + + ret + + + + +.globl _cpc_UpdTileTable + +_cpc_UpdTileTable:: +; En DE word a comprobar (fila/columna o al revés) + LD HL,#_tiles_tocados + ;incorporo el tile en su sitio, guardo x e y +bucle_recorrido_tiles_tocados: + LD A,(HL) + CP #0xFF + JP Z,incorporar_tile ;Solo se incorpora al llegar a un hueco +; INC HL +; PUSH HL +; LD H,(HL) +; LD L,A +; SBC HL,DE +; POP HL +; RET Z +; INC HL +; JP bucle_recorrido_tiles_tocados + CP E + JP Z, comprobar_segundo_byte + INC HL + INC HL + JP bucle_recorrido_tiles_tocados +comprobar_segundo_byte: + INC HL + LD A,(HL) + CP D + RET Z ;los dos bytes son iguales, es el mismo tile. No se añade + INC HL + JP bucle_recorrido_tiles_tocados + + + +incorporar_tile: + LD (HL),E + INC HL + LD (HL),D + INC HL + LD (HL),#0xFF ;End of data +contkaka: + RET + + +;_solo_tile0: +;LD HL,#_tiles +;jp _saltate + +.globl _cpc_UpdScr + +_cpc_UpdScr:: +;lee la tabla de tiles tocados y va restaurando cada uno en su sitio. + LD IX,#_tiles_tocados ;4 +bucle_cpc_UpdScr: + LD E, 0 (IX) ;5 + LD A,#0xFF ;2 + CP E ;1 + RET Z ;RETORNA SI NO HAY MÁS DATOS EN LA LISTA ;2/4 + LD D,1 (IX) ;5 + INC IX ;3 + INC IX ;3 + +posicionar_superbuffer: +;con la coordenada y nos situamos en la posición vertical y con x nos movemos a su sitio definitivo + LD C,D + SLA C ;x2 + LD B,#0 + + ; puedo usar BC para el siguiente cálculo + push bc + + LD HL,#_posiciones_super_buffer + ADD HL,BC + LD C,(HL) + INC HL + LD B,(HL) + + LD L,E + SLA L + LD H,#0 + + ADD HL,BC + + pop bc + ;HL apunta a la posición correspondiente en superbuffer + push hl + +posicionar_tile: + + LD HL,#_tabla_y_ancho_pantalla + ADD HL,BC + LD C,(HL) + INC HL + LD B,(HL) + LD L,E + LD H,#0 + ADD HL,BC +; LD DE,#_pantalla_juego +; ADD HL,DE + LD L,(HL) +; xor a +; cp l +; jp z, _solo_tile0 + + LD H,#0 + + ADD HL,HL + ADD HL,HL + ADD HL,HL + ADD HL,HL ;X16 + LD DE,#_tiles + ADD HL,DE + ;HL apunta a los datos del tile +;_saltate: + ;ex de,hl + pop de ;hl + ;RET + + + +; de: Posición buffer +; hl: datos tile + + +transferir_map_sbuffer1: ;; ENVIA EL TILE AL SUPERBUFFER + ;ld bc,ancho_pantalla_bytes-2 ;63 + ldi ;5 + ldi ;de<-hl ;5 + ex de,hl ;1 + ld bc,#ancho_pantalla_bytes-2 ;3 + ld a,c + add HL,BC ;3 + ex de,hl ;1 + ldi ;5 + ldi ;5 + ex de,hl ;1 + ld c,a ;ld c,#ancho_pantalla_bytes-2 ;2 + add HL,BC ;3 + ex de,hl ;1 + ldi + ldi + ex de,hl + ld c,a ;ld c,#ancho_pantalla_bytes-2 + add HL,BC + ex de,hl + ldi + ldi + ex de,hl + ld c,a ;ld c,#ancho_pantalla_bytes-2 + add HL,BC + ex de,hl + ldi + ldi + ex de,hl + ld c,a ;ld c,#ancho_pantalla_bytes-2 + add HL,BC + ex de,hl + ldi + ldi + ex de,hl + ld c,a ;ld c,#ancho_pantalla_bytes-2 + add HL,BC + ex de,hl + ldi + ldi + ex de,hl + ld c,a ;ld c,#ancho_pantalla_bytes-2 + add HL,BC + ex de,hl + ldi + ldi +jp bucle_cpc_UpdScr + + + +.globl _cpc_PutSpTileMap2b + +_cpc_PutSpTileMap2b:: + +;según las coordenadas x,y que tenga el sprite, se dibuja en el buffer + + ; ld ix,#2 + ; add ix,sp + + + ; ld l,0 (ix) + ; ld h,1 (ix) ;HL apunta al sprite + + ; push hl + ; pop ix + + + ld hl,#2 ;3 + add hl,sp ;3 + ld e,(hl) ;2 + inc hl ;1 + ld d,(hl) ;2 + + .db #0xdd + ld l,e ;2 + .db #0xdd + ld h,d ;2 + ; --> 15 NOPS + + + + ;lo cambio para la rutina de multiplicar + ld a,8 (ix) + ld e,9 (ix) + + +;include "multiplication1.asm" + + + ;ld h, #ancho_pantalla_bytes + ;LD L, #0 + LD HL,#ancho_pantalla_bytes * 256 + LD D, L + LD B, #8 + +MULT2: ADD HL, HL + JR NC, NOADD2 + ADD HL, DE +NOADD2: DJNZ MULT2 + + + + + + ;ld b,#0 + ld e,a + add hl,de + ld de,#posicion_inicial_superbuffer + add hl,de + ;hl apunta a la posición en buffer (destino) + + + ld 4 (ix),l ;update superbuffer address + ld 5 (ix),h + + + ld e,0 (ix) + ld d,1 (ix) ;HL apunta al sprite + + ;con el alto del sprite hago las actualizaciones necesarias a la rutina + ld a,(de) + ld (#loop_alto_map_sbuffer2+2),a + ld b,a + ld a,#ancho_pantalla_bytes + sub b + ;ld (#ancho_22+1),a + ld c,a + inc de + ld a,(de) + inc de + + ;ld a,16 ;necesito el alto del sprite + + + +sp_buffer_mask2: + ld b,#0 +ancho_22: + ;ld c,#ancho_pantalla_bytes-4 ;60 ;;DEPENDE DEL ANCHO + + .db #0xDD + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + ;ld ixh,a +loop_alto_map_sbuffer2: + .db #0xDD + LD L,#4 ;ANCHO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + ;ld ixl,#4 + ex de,hl +loop_ancho_map_sbuffer2: + + + LD A,(hl) ;leo el byte del fondo + ;AND (HL) ;lo enmascaro + ;INC HL + ;OR (HL) ;lo enmascaro + LD (de),A ;actualizo el fondo + INC DE + INC HL + + + .db #0xDD + DEC L ;resta ancho + ;dec ixl + JP NZ,loop_ancho_map_sbuffer2 + + .db #0xDD + dec H + ;dec ixh + ret z + EX DE,HL +;hay que sumar 72 bytes para pasar a la siguiente línea + add HL,BC + jp loop_alto_map_sbuffer2 + + +.globl _cpc_PutMaskSpTileMap2b + +_cpc_PutMaskSpTileMap2b:: +;según las coordenadas x,y que tenga el sprite, se dibuja en el buffer + .if PEEPHOLE-0 + ex de,hl +.else + + ld hl,#2 ;3 + add hl,sp ;3 + ld e,(hl) ;2 + inc hl ;1 + ld d,(hl) ;2 +.endif + + +; ld hl,#2 ;3 +; add hl,sp ;3 +; ld e,(hl) ;2 +; inc hl ;1 +; ld d,(hl) ;2 + + .db #0xdd + ld l,e ;2 + .db #0xdd + ld h,d ;2 + ; --> 15 NOPS + + + ld a,8 (ix) + ld e,9 (ix) + +;include "multiplication1.asm" + ;ld h, #ancho_pantalla_bytes + ;LD L, #0 + LD HL,#ancho_pantalla_bytes * 256 + LD D, L + LD B, #8 + +MULT3: ADD HL, HL + JR NC, NOADD3 + ADD HL, DE +NOADD3: DJNZ MULT3 + + + + ;ld b,#0 + ld e,a + add hl,de + ;HL=E*H+D + + + + + + ld de,#posicion_inicial_superbuffer + add hl,de + ;hl apunta a la posición en buffer (destino) + + ld 4 (ix),l ;update superbuffer address + ld 5 (ix),h + + ld e,0 (ix) + ld d,1 (ix) ;HL apunta al sprite + + ;con el alto del sprite hago las actualizaciones necesarias a la rutina + ld a,(de) + ld (#loop_alto_map_sbuffer3+2),a + ld b,a + ld a,#ancho_pantalla_bytes + sub b + ;ld (#ancho_23+1),a + ld c,a + inc de + ld a,(de) + inc de + + ;ld a,16 ;necesito el alto del sprite + + + +sp_buffer_mask3: + ld b,#0 +ancho_23: + ;ld c,#ancho_pantalla_bytes-4 ;60 ;;DEPENDE DEL ANCHO + + .db #0xdd + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + ;ld ixh,a +loop_alto_map_sbuffer3: + .db #0xdd + LD L,#4 ;ANCHO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + ;ld ixl,4 + ex de,hl +loop_ancho_map_sbuffer3: + + + LD A,(DE) ;leo el byte del fondo + AND (HL) ;lo enmascaro + INC HL + OR (HL) ;lo enmascaro + LD (DE),A ;actualizo el fondo + INC DE + INC HL + + .db #0xdD + DEC L ;resta ancho + ;dec ixl + JP NZ,loop_ancho_map_sbuffer3 + + .db #0xdd + dec H + ;dec ixh + ret z + EX DE,HL +;hay que sumar 72 bytes para pasar a la siguiente línea + add HL,BC + jp loop_alto_map_sbuffer3 + + + + + + + + +.globl _cpc_PutMaskInkSpTileMap2b + +_cpc_PutMaskInkSpTileMap2b:: +;según las coordenadas x,y que tenga el sprite, se dibuja en el buffer + + ld hl,#2 ;3 + add hl,sp ;3 + ld e,(hl) ;2 + inc hl ;1 + ld d,(hl) ;2 + + .db #0xdd + ld l,e ;2 + .db #0xdd + ld h,d ;2 + ; --> 15 NOPS + + + ld a,8 (ix) + ld e,9 (ix) + +;include "multiplication1.asm" + ;ld h, #ancho_pantalla_bytes + ;LD L, #0 + LD HL,#ancho_pantalla_bytes * 256 + LD D, L + LD B, #8 + +MULT7: ADD HL, HL + JR NC, NOADD7 + ADD HL, DE +NOADD7: DJNZ MULT7 + + ld e,a + add hl,de + ;HL=E*H+D + + ld de,#posicion_inicial_superbuffer + add hl,de + ;hl apunta a la posición en buffer (destino) + + ld 4 (ix),l ;update superbuffer address + ld 5 (ix),h + + ld e,0 (ix) + ld d,1 (ix) ;HL apunta al sprite + + ;con el ancho del sprite hago las actualizaciones necesarias a la rutina + ld a,(de) + ld (#loop_alto_map_sbuffer7+2),a + ld b,a + ld a,#ancho_pantalla_bytes + sub b + ;ld (#ancho_27+1),a + ld c,a + inc de + ld a,(de) + inc de + + +sp_buffer_mask7: + ld b,#0 +ancho_27: + ;ld c,#ancho_pantalla_bytes-4 ;60 ;;DEPENDE DEL ANCHO + + .db #0xdd + LD H,A ;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + ;ld ixh,a +loop_alto_map_sbuffer7: + .db #0xdd + LD L,#4 ;ANCHO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE + ;ld ixl,4 + ex de,hl + +loop_ancho_map_sbuffer7: + + + LD A,(hl) ;leo el byte del fondo + or a + jp z, cont7 + + LD (DE),A ;actualizo el fondo +cont7: + INC DE + INC HL + + .db #0xdD + DEC L ;resta ancho + ;dec ixl + JP NZ,loop_ancho_map_sbuffer7 + + .db #0xdd + dec H + ;dec ixh + ret z + EX DE,HL +;hay que sumar 72 bytes para pasar a la siguiente línea + add HL,BC + jp loop_alto_map_sbuffer7 + + + +.globl _cpc_ScrollLeft00 + +_cpc_ScrollLeft00:: + + ;se decrementa cada posiciones_pantalla + LD HL,#_posiciones_pantalla + ld b,#20 + buc_suma1: + DEC (HL) + INC HL + INC HL + djnz buc_suma1 + + ld hl,(#posicion_inicio_pantalla_visible_sb+1) + inc HL + ld (#posicion_inicio_pantalla_visible_sb+1),HL + + RET + +.globl _cpc_ScrollLeft01 + +_cpc_ScrollLeft01:: + + ;se incrementa cada posiciones_pantalla + LD HL,#_posiciones_pantalla + ld b,#20 + buc_suma14: + INC (HL) + INC HL + INC HL + djnz buc_suma14 + + + ld hl,(#posicion_inicio_pantalla_visible_sb+1) + dec HL + ld (#posicion_inicio_pantalla_visible_sb+1),HL + + + ld hl,#_pantalla_juego+1 + ld de,#_pantalla_juego + ld bc,#alto_pantalla_bytes*ancho_pantalla_bytes/16 -1 + LDIR + + ld hl,#posicion_inicial_superbuffer+2 + ld de,#posicion_inicial_superbuffer + ld bc,#alto_pantalla_bytes*ancho_pantalla_bytes -1 + LDIR + + RET + + + + +.globl _cpc_ScrollRight00 + +_cpc_ScrollRight00:: ;;scrollea el area de pantalla de tiles + + ;se decrementa cada posiciones_pantalla + LD HL,#_posiciones_pantalla + ld b,#20 + buc_suma12: + INC (HL) + INC HL + INC HL + djnz buc_suma12 + + + ld hl,(#posicion_inicio_pantalla_visible_sb+1) + dec HL + ld (#posicion_inicio_pantalla_visible_sb+1),HL + + RET + + +.globl _cpc_ScrollRight01 + +_cpc_ScrollRight01:: ;;scrollea el area de pantalla de tiles + + ;se incrementa cada posiciones_pantalla + LD HL,#_posiciones_pantalla + ld b,#20 + buc_suma15: + DEC (HL) + INC HL + INC HL + djnz buc_suma15 + + + ld hl,(#posicion_inicio_pantalla_visible_sb+1) + inc HL + ld (#posicion_inicio_pantalla_visible_sb+1),HL + + ld hl,#_pantalla_juego+alto_pantalla_bytes*ancho_pantalla_bytes/16-1 + ld de,#_pantalla_juego+alto_pantalla_bytes*ancho_pantalla_bytes/16 + ld bc,#alto_pantalla_bytes*ancho_pantalla_bytes/16 -1 ;-1 + LDDR + + ;;scrollea el superbuffer + ld hl,#posicion_inicial_superbuffer+alto_pantalla_bytes*ancho_pantalla_bytes-2 ; pantalla_juego+alto_pantalla_bytes*ancho_pantalla_bytes/16-1 + ld de,#posicion_inicial_superbuffer+alto_pantalla_bytes*ancho_pantalla_bytes ;pantalla_juego+alto_pantalla_bytes*ancho_pantalla_bytes/16 + ld bc,#alto_pantalla_bytes*ancho_pantalla_bytes-1 ;-1 + LDDR + RET + +.globl _cpc_SetTouchTileXY + +_cpc_SetTouchTileXY:: + + ;ld ix,#2 + ;add ix,sp + + ;ld d,1 (ix) + ;ld e,0 (ix) + + + ld hl,#2 + add hl,sp + ld e,(hl) + inc hl + ld d,(hl) + inc hl + ld c,(hl) + + + ;ld d,e + ;ld e,c + call _cpc_UpdTileTable + + ;ld e,1 (ix) + ;ld a,0 (ix) + ld a,e + ld e,d +;include "multiplication2.asm" + ;ld h, #ancho_pantalla_bytes/2 + ;LD L, #0 + LD HL,#ancho_pantalla_bytes * 256 / 2 + LD D, L + LD B, #8 + +MULT4: ADD HL, HL + JR NC, NOADD4 + ADD HL, DE +NOADD4: DJNZ MULT4 + + + ld e,a + ;ld d,#0 + add hl,de + ld de,#_pantalla_juego + add hl,de + ;ld a,2 (ix) + ld (hl),c + ret + + +.globl _cpc_ReadTile + +_cpc_ReadTile:: + + +; ld ix,#2 +; add ix,sp +; ld e,1 (ix) +; ld a,0 (ix) + + ld hl,#2 + add hl,sp + ld a,(hl) + inc hl + ld e,(hl) + + + +; ld hl,2 +; add hl,sp ; ¿Es la forma de pasar parámetros? ¿Se pasan en SP+2? ¿en la pila? +; ld E,(hl) ;Y +; inc hl +; inc hl +; ld a,(hl) ;X + +; include "multiplication2.asm" + ;ld h, #ancho_pantalla_bytes/2 + ;LD L, #0 + LD HL,#ancho_pantalla_bytes * 256 / 2 + LD D, L + LD B, #8 + +MULT5: ADD HL, HL + JR NC, NOADD5 + ADD HL, DE +NOADD5: DJNZ MULT5 + + + + ld e,a + ;ld d,#0 + add hl,de ;SUMA X A LA DISTANCIA Y*ANCHO + ld de,#_pantalla_juego + add hl,de + ld l,(hl) + ld h,#0 + ret + + +.globl _cpc_SuperbufferAddress + +_cpc_SuperbufferAddress:: +; ld ix,#2 +; add ix,sp + +; ld l,0 (ix) +; ld h,1 (ix) ;HL apunta al sprite + +; push hl +; pop ix + + ld hl,#2 ;3 + add hl,sp ;3 + ld e,(hl) ;2 + inc hl ;1 + ld d,(hl) ;2 + + .db #0xdd + ld l,e ;2 + .db #0xdd + ld h,d ;2 + ; --> 15 NOPS + + + ;lo cambio para la rutina de multiplicar + ld a,8 (ix) + ld e,9 (ix) +; include "multiplication1.asm" + ;ld h, #ancho_pantalla_bytes + ;LD L, #0 + LD HL,#ancho_pantalla_bytes * 256 + LD D, L + LD B, #8 + +MULT6: ADD HL, HL + JR NC, NOADD6 + ADD HL, DE +NOADD6: DJNZ MULT6 + + + ;ld b,#0 + ld e,a + add hl,de + ld de,#posicion_inicial_superbuffer + add hl,de + ;hl apunta a la posición en buffer (destino) + ld 4 (ix),l + ld 5 (ix),h + ret + + + +tablascan: ;defs 20*16 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 +.db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + diff --git a/lib/cpcrslib/cpc_UnExoOpt.s b/lib/cpcrslib/cpc_UnExoOpt.s new file mode 100644 index 0000000..14197cc --- /dev/null +++ b/lib/cpcrslib/cpc_UnExoOpt.s @@ -0,0 +1,183 @@ +; ****************************************************** +; ** Librería de rutinas SDCC para Amstrad CPC ** +; ** Raúl Simarro (Artaburu) - 2009, 2012 ** +; ****************************************************** + + +;************************************* +; UNEXO +;************************************* + + +; Exomizer 2 Z80 decoder +; by Metalbrain +; +; optimized by Antonio Villena +; +; compression algorithm by Magnus Lind + +;input: hl=compressed data start +; de=uncompressed destination start +; +; you may change exo_mapbasebits to point to any free buffer + + +.globl _cpc_UnExo + +_cpc_UnExo:: + +; POP AF +; POP HL ;DESTINATION ADDRESS +; POP DE ;SPRITE DATA +; PUSH AF + + LD IX,#2 + ADD IX,SP + LD e,2 (IX) + LD d,3 (IX) ;DESTINO + LD l,0 (IX) + LD h,1 (IX) ;TEXTO ORIGEN + + di + call deexo + ei + ret + +deexo: + ld iy, #exo_mapbasebits + ld a,#128 + ld b,#52 + push de +exo_initbits: + ex af,af' + ld a,b + sub #4 + and #15 + jr nz,exo_node1 + ld de,#1 ;DE=b2 +exo_node1: + ld c,#16 + ex af, af' +exo_get4bits: + call exo_getbit + rl c + jr nc,exo_get4bits + ld (iy),c ;bits[i]=b1 + push hl + ld hl,#1 + .db #210 ;3 bytes nop (JP NC) +exo_setbit: + add hl,hl + dec c + jr nz,exo_setbit + ld 52 (iy),e + ld 104 (iy),d ;base[i]=b2 + add hl,de + ex de,hl + inc iy + pop hl + djnz exo_initbits + inc c +exo_literalseq: + pop de +exo_literalcopy: + ldir ;copy literal(s) +exo_mainloop: + ld c,#1 + call exo_getbit ;literal? + jr c,exo_literalcopy + ld c,#255 +exo_getindex: + inc c + call exo_getbit + jr nc,exo_getindex + bit 4,c + jr z,exo_continue + bit 0, c + ret z + push de + ld d,#16 + call exo_getbits + jr exo_literalseq +exo_continue: + push de + call exo_getpair + push bc + pop ix + ld de,#560 ;512+48 ;1? + inc b + djnz exo_dontgo + dec c + jr z, exo_goforit + dec c ;2? +exo_dontgo: + ld de,#1056 ;1024+32 + jr z,exo_goforit + ld e,#16 +exo_goforit: + call exo_getbits + ex af, af' + ld a,e + add a,c + ld c,a + ex af, af' + call exo_getpair ;bc=offset + pop de ;de=destination + push hl + ld h,d + ld l,e + sbc hl,bc ;hl=origin + push ix + pop bc ;bc=lenght + ldir + pop hl ;Keep HL, DE is updated + jr exo_mainloop ;Next! + +exo_getpair: + ld iy,#exo_mapbasebits + ld b,#0 + add iy,bc + ld d,(iy) + call exo_getbits + push hl + ld l, 52 (iy) + ld h, 104 (iy) + add hl, bc ;Always clear C flag + ld b, h + ld c, l + pop hl + ret + +exo_getbits: + ld bc,#0 ;get D bits in BC +exo_gettingbits: + dec d + ret m + call exo_getbit + rl c + rl b + jr exo_gettingbits + +exo_getbit: + add a, a ;get one bit + ret nz + ld a, (hl) + inc hl + adc a, a + ret + +exo_mapbasebits: + ;defs 156 ;tables for bits, baseL, baseH + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 + .db #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0 \ No newline at end of file diff --git a/lib/cpcrslib/cpc_Uncrunch.s b/lib/cpcrslib/cpc_Uncrunch.s new file mode 100644 index 0000000..7eba8c3 --- /dev/null +++ b/lib/cpcrslib/cpc_Uncrunch.s @@ -0,0 +1,308 @@ +; ****************************************************** +; ** Librería de rutinas SDCC para Amstrad CPC ** +; ** Raúl Simarro (Artaburu) - 2009, 2012 ** +; ****************************************************** + + +;************************************* +; UNCRUNCH +;************************************* + + +.globl _cpc_Uncrunch + +_cpc_Uncrunch:: +; datos necesarios que vienen en la pila: +; ORIGEN HL +; DESTINO DE + + ;Ojo, para que el pucrunch funcione hay que coger y quitar el salto de las interrupciones. + DI + LD HL,(#0X0038) + LD (#datos_int),HL + + LD HL,#0X00C9 + LD (#0x0038),HL + EI + +;POP AF +;POP HL +;POP DE +;PUSH AF + LD IX,#2 + ADD IX,SP + LD e,2 (IX) + LD d,3 (IX) ;DESTINO + LD l,0 (IX) + LD h,1 (IX) ;TEXTO ORIGEN + + +pucrunch: + PUSH DE ; destination pointer to 2nd register + EXX ; set + POP DE + + + PUSH HL + PUSH DE + PUSH BC + PUSH AF + + EXX + + ; read the header self-modifying the + ; parameters straight into the code + ; skip useless data + + + LD BC,#6 + ADD HL,BC + + LD A, (HL) ; starting escape + INC HL + LD (#esc+1), A + + INC HL ; skip useless data + INC HL + + LD A, (HL) ; number of escape bits + INC HL + LD (#escb0+1), A + LD (#escb1+1), A + + LD B, A ; 8 - escape bits + LD A, #8 + SUB B + LD (#noesc+1), A + + LD A, (HL) ; maxGamma + 1 + INC HL + LD (#mg+1), A + + LD B, A ; 8 - maxGamma + LD A, #9 + SUB B + LD (#longrle+1), A + + LD A, (HL) ; (1 << maxGamma) + INC HL + LD (#mg1+1), A + + ADD A, A ; (2 << maxGamma) - 1 + DEC A + LD (#mg21+1), A + + LD A, (HL) ; extra lz77_0 position bits + INC HL + LD (#elzpb+1), A + + INC HL ; skip useless data + INC HL + + LD E, (HL) ; RLE table length + LD (#rlet+1), HL ; RLE table pointer + INC HL + LD D, #0 + ADD HL, DE + + LD C, #0X80 ; start decompression + JP loop_u + +newesc: + ld a, (#esc+1) ; save old escape code + ld d, a + +escb0: + LD B, #2 ; ** parameter + XOR A ; get new escape code + CALL get_bits + LD (#esc+1), A + + LD A, D + +noesc: + LD B, #6 ; ** parameter + CALL get_bits ; get more bits to complete a byte + + EXX ; output the byte + LD (DE), A + INC DE + EXX + +loop_u: + XOR A +escb1: + LD B, #2 ; ** parameter + CALL get_bits ; get escape code +esc: + CP #0 ; ** PARAMETER + JP NZ, noesc + + CALL get_gamma ; get length + EXX + LD B, #0 + LD C, A + EXX + + CP #1 + JP NZ, lz77_0 ; lz77_0 + + XOR A + CALL get_bit + JP NC, lz77_0_2 ; 2-byte lz77_0 + + CALL get_bit + JP NC, newesc ; escaped literal byte + + CALL get_gamma ; get length + EXX + LD B, #1 + LD C, A + EXX + +mg1: + CP #64 ; ** parameter + JP C, chrcode ; short RLE, get bytecode + +longrle: + LD B, #2 ; ** parameter + CALL get_bits ; complete length LSB + EX AF, AF' + + CALL get_gamma ; length MSB + EXX + LD B, A + EX AF, AF' + LD C, A + EXX + +chrcode: + CALL get_gamma ; get byte to repeat + + PUSH HL +rlet: + LD HL, #0X0000 ; ** parameter + LD D, #0 + LD E, A + ADD HL, DE + + CP #32 + LD A, (HL) + POP HL + JP C, dorle + + LD A, E ; get 3 more bits to complete the + LD B, #3 ; byte + CALL get_bits + +dorle: + EXX ; output the byte n times + INC C +dorlei: + LD (DE), A + INC DE + DEC C + JP NZ, dorlei + DEC B + JP NZ, dorlei + EXX + JP loop_u + +lz77_0: + CALL get_gamma ; offset MSB +mg21: + CP #127 ; ** parameter + + ; ret z + + JP Z, fin ; EOF, return + + DEC A ; (1...126 -> 0...125) +elzpb: + LD B, #0 ; ** parameter + CALL get_bits ; complete offset MSB + +lz77_0_2: + EX AF, AF' + LD B, #8 ; offset LSB + CALL get_bits + CPL ; xor'ed by the compressor + + EXX ; combine them into offset + LD L, A + EX AF, AF' + LD H, A + INC HL + + XOR A ; CF = 0 + + PUSH DE ; (current output position) - (offset) + EX DE, HL + SBC HL, DE + POP DE + + INC BC + + LDIR ; copy + EXX + JP loop_u + +;## Get a bit from the source stream. +;## Return CF = result +get_bit: + SLA C ; shift next bit into CF + RET NZ + LD C, (HL) ; get next byte + INC HL ; increase source stream pointer + RL C ; shift next bit into CF, bit0 = 1 + RET + +;## Get multiple bits from the source stream. +;## In B = number of bits to get +;## Return A = result +get_bits: + DEC B + RET M + SLA C ; shift next bit into CF + JP NZ, gb1 + LD C, (HL) ; get next byte + INC HL ; increase source stream pointer + RL C ; shift next bit into CF, bit0 = 1 +gb1: + RLA ; rotate next bit into A + JP get_bits + +;## Get an Elias Gamma coded value from the source stream. +;## Return A = result +get_gamma: + LD B, #1 +mg: + LD A, #7 ; ** parameter +gg1: + CALL get_bit ; get bits until 0-bit or max + JR NC, gg2 + INC B + CP B + JP NZ, gg1 +gg2: + LD A, #1 ; GET THE ACTUAL VALUE + DEC B + JP get_bits + +fin: + ; Restauramos los registros dobles y vuelta limpia + EXX + POP AF + POP BC + POP DE + POP HL + EXX + + ;RET + DI + LD HL,(#datos_int) + LD (#0X0038),HL ;RESTAURO LA INTERRUPCIÓN ORIGINAL + EI + RET +datos_int: + .DW #0 \ No newline at end of file diff --git a/lib/cpcrslib/cpcrslib.h b/lib/cpcrslib/cpcrslib.h new file mode 100644 index 0000000..91bee0d --- /dev/null +++ b/lib/cpcrslib/cpcrslib.h @@ -0,0 +1,116 @@ + +#ifndef __cpcrslib_h__ +#define __cpcrslib_h__ + + + + + + + +void cpc_UnExo(char *origen, int destino); +void cpc_Uncrunch(char *origen, int destino); + + +void cpc_SetMode( char color); +void cpc_SetModo( char x); +void cpc_SetColour(unsigned char num, char color); +void cpc_SetInk(unsigned char num, unsigned char color); +void cpc_SetBorder( char color); +unsigned char cpc_Random(void); + +void cpc_ClrScr(void); + +void cpc_PutSprite(char *sprite, int posicion); +void cpc_PutSp(char *sprite, char height, char width, int address); +void cpc_PutSp4x14(char *sprite, int address); +void cpc_PutSpriteXOR(char *sprite, int posicion); +void cpc_PutSpXOR(char *sprite, char height, char width, int address); +void cpc_PutSpriteTr(char *sprite, int *posicion); +void cpc_PutSpTr(char *sprite, char height, char width, int address); +void cpc_GetSp(char *sprite, char alto, char ancho, int posicion); +void cpc_PutMaskSprite(char *sprite,unsigned int addr); +//void cpc_PutMaskSprite(struct sprite *spr,unsigned int *addr); +void cpc_PutMaskSp(char *sprite, char alto, char ancho, int posicion); +void cpc_PutMaskSp4x16(char *sprite,unsigned int addr); +void cpc_PutMaskSp2x8(char *sprite,unsigned int addr); + + +unsigned char cpc_CollSp(char *sprite, char *sprite2); + + +// TILE MAP: +void cpc_InitTileMap(void); +void cpc_SetTile(unsigned char x, unsigned char y, unsigned char b); +void cpc_ShowTileMap(); +void cpc_ShowTileMap2(void); +void cpc_ResetTouchedTiles(void); + +void cpc_PutSpTileMap(char *sprite); +void cpc_PutSpTileMapF(char *sprite); +void cpc_UpdScr(void); +void cpc_PutSpTileMap2b(char *sprite); +void cpc_PutMaskSpTileMap2b(char *sprite); +void cpc_PutMaskInkSpTileMap2b(char *sprite); +void cpc_PutTrSpTileMap2b(char *sprite); +void cpc_PutTrSpriteTileMap2b(char *sprite); + + +void cpc_SpUpdY(char *sprite, char valor); +void cpc_SpUpdX(char *sprite, char valor); + +void cpc_ScrollRight00(void); +void cpc_ScrollRight01(void); +void cpc_ScrollLeft00(void); +void cpc_ScrollLeft01(void); +void cpc_ScrollRight(void); +void cpc_ScrollLeft(void); + +void cpc_SetTouchTileXY(unsigned char x, unsigned char y, unsigned char t); +unsigned char cpc_ReadTile(unsigned char x, unsigned char y); +void cpc_SuperbufferAddress(char *sprite); + +// **************** + + + + + + +void cpc_RRI(unsigned int pos, unsigned char w, unsigned char h); +void cpc_RLI(unsigned int pos, unsigned char w, unsigned char h); + + +int cpc_AnyKeyPressed(void); +void cpc_ScanKeyboard(void); +char cpc_TestKeyF(char number); +void cpc_DeleteKeys(void); +void cpc_AssignKey(unsigned char tecla, int valor); +unsigned char cpc_TestKey(unsigned char tecla); +void cpc_RedefineKey(unsigned char tecla); + +int cpc_GetScrAddress(char x, char y); + +void cpc_PrintStr(char *text); + +void cpc_EnableFirmware(void); +void cpc_DisableFirmware(void); + +void cpc_SetFont(unsigned char first_char, unsigned char *font_def); + +void cpc_PrintGphStr(char *text, int destino); +void cpc_PrintGphStrM1(char *text, int destino); +void cpc_PrintGphStr2X(char *text, int destino); +void cpc_PrintGphStrM12X(char *text, int destino); + +void cpc_PrintGphStrXY(char *text, unsigned char a, unsigned char b); +void cpc_PrintGphStrXYM1(char *text, unsigned char a, unsigned char b); +void cpc_PrintGphStrXY2X(char *text, unsigned char a, unsigned char b); +void cpc_PrintGphStrXYM12X(char *text, unsigned char a, unsigned char b); +void cpc_SetInkGphStr(unsigned char a, unsigned char b); +void cpc_SetInkGphStrM1(unsigned char a, unsigned char b); + +void cpc_PrintGphStrStd(char color, char *cadena, int destino); +void cpc_PrintGphStrStdXY(char color, char *cadena, char x, char y); + +#endif /* __cpcrslib_h__ */ diff --git a/lib/cpcrslib/cpcwyzlib.h b/lib/cpcrslib/cpcwyzlib.h new file mode 100644 index 0000000..b0c04c4 --- /dev/null +++ b/lib/cpcrslib/cpcwyzlib.h @@ -0,0 +1,18 @@ + +#ifndef __cpcwyzlib_h__ +#define __cpcwyzlib_h__ + + + +extern void cpc_WyzLoadSong(unsigned char numero); +extern void cpc_WyzStartEffect(unsigned char canal, unsigned char efecto); +//extern void cpc_WyzSetPlayerOn(void); +// use WyzPlayerOn instead! +extern void cpc_WyzSetPlayerOff(void); +// WARNING: use WyzPlayerOff instead! +extern void cpc_WyzConfigurePlayer(unsigned char valor); +extern unsigned char cpc_WyzTestPlayer(void); +extern void cpc_WyzInitPlayer(unsigned char *sonidos[], unsigned char *pautas[], unsigned char *efectos[], unsigned char *canciones[]); +extern void cpc_WyzSetTempo(unsigned char tempo); + +#endif diff --git a/lib/cpcrslib/make.bat b/lib/cpcrslib/make.bat new file mode 100644 index 0000000..77a7e8c --- /dev/null +++ b/lib/cpcrslib/make.bat @@ -0,0 +1,19 @@ +del *.rel +del *.lib +sdasz80 -o cpcrslib.s +sdasz80 -o GphStr.s +sdasz80 -o Sprites.s +sdasz80 -o Keyboard.s +sdasz80 -o UnExoOpt.s +sdasz80 -o Uncrunch.s +sdasz80 -o GphStrStd.s +sdasz80 -o TileMap.s +sdasz80 -o Wyz.s + + + +sdar rc cpcrslib.lib cpcrslib.rel GphStr.rel Sprites.rel Keyboard.rel UnExoOpt.rel Uncrunch.rel GphStrStd.rel TileMap.rel + +sdar rc cpcwyzlib.lib Wyz.rel +copy cpcrslib.lib C:\sdcc\lib\z80 +copy cpcwyzlib.lib C:\sdcc\lib\z80 diff --git a/lib/ucl.h b/lib/ucl.h new file mode 100644 index 0000000..9cd91e8 --- /dev/null +++ b/lib/ucl.h @@ -0,0 +1,5 @@ +#ifndef _UCL_H +#define _UCL_H +extern void ucl_uncompress(const unsigned char *src, unsigned char *dst); +#endif + diff --git a/lib/ucl.s b/lib/ucl.s new file mode 100644 index 0000000..68b1b48 --- /dev/null +++ b/lib/ucl.s @@ -0,0 +1,360 @@ +; UCLZ80: -*- asm -*- +; 2bunpack: unpack data compressed with M.F.X.J. Oberhumer''s +; UCL/2B algorithm. Decompressor for Z80 (c) 2000 Adam D. Moss +; - All rights reserved +; +; Version 0.99-beta2: 2000-10-25 +; ** COMMENTS, FIXES ETC ARE WELCOMED ** + If you use this, I''d love to hear. +; +; Permission is hereby granted, free of #0xcarge, to any person obtaining a +; copy of this software and associated documentation files (the "Software"), +; to deal in the Software without restriction, including without limitation +; the rights to use, copy, modify, merge, publish, distribute, sublicense, +; and/or sell copies of the Software, and to permit persons to whom the +; Software is furnished to do so, subject to the following conditions: +; +; The above copyright notice and this permission notice shall be included +; in all copies or substantial portions of the Software. +; +; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +; OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL +; THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +; IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN +; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +; +; (In laymans'' terms this code is essentially public domain.) +; +; Latest versions and docs, plus pointers to associated utilities and +; M.F.X.J. Oberhumer''s *compressor* for UCL/2B streams are always +; available from the UCLZ80 home page: +; +; +; +; UPDATE: http://icculus.org/~aspirin/uclz80/ +; +; RELEASE HISTORY: +; v0.99-beta2: 2000-10-25: Rearrangement, comments, public release +; v0.99-beta1: 2000-07-30: Optimizations, comments and fixes +; v0.50 : 2000-07-22: Initial version + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; Assembly syntax compatible with ZMAC and ASL cross-assemblers. +; Undocumented Z80 instructions have been inserted in byte form. + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; CALL: +; L2bunpack +; INPUTS: +; bc = PACKED DATA SOURCE ADDRESS +; de = UNPACKED DATA DESTINATION ADDRESS +; STACK USAGE: +; 2 bytes excluding call overhead +; REGISTER USAGE: +; leaves IY, IXH and all alternative registers intact +; SIZE: +; 245 bytes +; +; NOTES: +; ''In-place'' unpacking of overlapping src/dest is also supported; +; use external utility to find the maximum overlap for a given +; block of data ((UNPACKED_SIZE - n) where n is usually around 7-10 +; bytes). +; +; No #0xcecking of data integrity is performed by this unpacker. +; +; The length of the unpacked data is implicit in the packed stream; +; you should know in advance the length to whi#0xc a given compressed +; stream unpacks (ie. from out-of-band metadata), to provide enough +; space in the destination memory area. + +.globl _ucl_uncompress + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; loops taken out of line +L2bloop1_0: ; DON''T CALL HERE, these functions are just here for JR-locality + ;;;; bb = *src, src++ + ld a, (bc) ; get *src + inc bc ; src++ + scf + rla ; ADM: could use undoc''d SLL + .db #0x0DD,#0x6F ; LD IXL,A + + jr C, L2bloop1_work ; we carried, do the work -ADM:GetStats + jp L2bloop1_end ; otherwise drop out + +L2bloop2a_0: + ;;;; bb = *src, src++ + ld a, (bc) ; get *src + inc bc ; src++ + scf + rla ; ADM: could use undoc''d SLL + .db #0x0DD,#0x6F ; LD IXL,A + + jr NC, L2bloop2a_skip_set + jp L2bloop2a_set + +L2bloop2b_0: + ;;;; bb = *src, src++ + ld a, (bc) ; get *src + inc bc ; src++ + scf + rla ; ADM: could use undoc''d SLL + .db #0x0DD,#0x6F ; LD IXL,A + + jr C, L2bloop2b_end ; if !bit then end loop + jp L2bloop2a ; if bit then restart big loop + + +L2bjmp3_0: + ;;;; bb = *src, src++ + ld a, (bc) ; get *src + inc bc ; src++ + scf + rla ; ADM: could use undoc''d SLL + .db #0x0DD,#0x6F ; LD IXL,A + + jp L2bjmp3_r + +L2b_term: ; springboard placed here to be within JR r#0xeac + jp L2b_end + +;;; +;;; my EP +_ucl_uncompress:: + ld ix, #2 + add ix, sp + ld c, (ix) + ld b, 1(ix) + ld e, 2(ix) + ld d, 3(ix) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; CALL HERE: +L2bunpack: + ; init variables + .db #0x0DD,#0x2E,#0x00 ; LD IXL, 0; bit-bucket lives in IXL + ld hl, #0x1 + ld (prev_doffset), hl + +L2bmain: +L2bloop1: ;;;; while nextbit()==1 *dest++ = *src++; + ;;;; CF = nextbit() + .db #0x0DD,#0x7D ; LD A, IXL + add a, a + jr Z, L2bloop1_0 ; ran out of bits: load new byte + .db #0x0DD,#0x6F ; LD IXL,A + ; bit now in C flag + jr NC, L2bloop1_end ; nextbit()==0, end loop ; STAT +L2bloop1_work: + ; nextbit() == 1, so *dest++ = *src++; + ld a, (bc) + ld (de), a + inc de + inc bc + jp L2bloop1 +L2bloop1_end: + + + ld hl, #0x1 ;; doffset = 1 + ; doffset lives in HL until further notice! + +L2bloop2a: + add hl, hl + jr C, L2b_term ; terminator found. ; STAT + + ;;;; CF = nextbit() + .db #0x0DD,#0x7D ; LD A, IXL + add a, a + jr Z, L2bloop2a_0 ; ran out of bits: load new byte + .db #0x0DD,#0x6F ; LD IXL,A + ; bit now in C flag + jr NC, L2bloop2a_skip_set ; STAT +L2bloop2a_set: + inc hl ;; doffset++ +L2bloop2a_skip_set: + + ;;;; CF = nextbit() + .db #0x0DD,#0x7D ; LD A, IXL + add a, a + jr Z, L2bloop2b_0 ; ran out of bits: load new byte + .db #0x0DD,#0x6F ; LD IXL,A + ; bit now in C flag + jr NC, L2bloop2a ; if nextbit() loop again ; STAT +L2bloop2b_end: + + + ld a, l + sub #0x2 + or h + jr NZ, L2bjmp3 ; doffset != 2 then jump ; STAT + ld hl, (prev_doffset) ;; doffset = prev_doffset + jp L2bjmp3_end +L2bjmp3: + dec l + dec l + dec l ; hl is doffset again + ld h, l ; *=256, now put something in l + ld a, (bc) + inc bc ;; ilen++ + ld l, a + inc hl ;; doffset++ + ld (prev_doffset),hl +L2bjmp3_end: + + ld (doffset),hl + ; doffset committed to memory. + + + ;;;; CF = nextbit() + .db #0x0DD,#0x7D ; LD A, IXL + add a, a + jr Z, L2bjmp3_0 ; ran out of bits: load new byte + .db #0x0DD,#0x6F ; LD IXL,A +L2bjmp3_r: + ; bit now in C flag + ld hl, #0x0 + jp NC, L2bjmp3_skipset ; STAT + ld l, #0x2 ;; movlen = 1, movlen *= 2 +L2bjmp3_skipset: + + + ;;;; CF = nextbit() + .db #0x0DD,#0x7D ; LD A, IXL + add a, a + jr Z, L2bjmp4_0 ; ran out of bits: load new byte + .db #0x0DD,#0x6F ; LD IXL,A + ; bit now in C flag + jr NC, L2bjmp4_zero ; STAT +L2bjmp4_nonzero: + ; movlen in HL (well, only low 2 L bits have stuff) + inc hl +L2bjmp4_zero: + + + xor a + or l ; movlen == 0? + jr NZ, L2bjmp8_movlen_nonzero ; STAT + + ; so movlen == 0 + inc l ;; movlen = 1 + + +L2bloop6: + add hl, hl ;; movlen *= 2 + + ;;;; CF = nextbit() + .db #0x0DD,#0x7D ; LD A, IXL + add a, a + jr Z, L2bloop6_0 ; ran out of bits: load new byte + .db #0x0DD,#0x6F ; LD IXL,A + ; bit now in C flag + jr NC, L2bloop6_zero ; STAT +L2bloop6_nonzero: + inc hl;(hl) +L2bloop6_zero: + ;;;; CF = nextbit() + .db #0x0DD,#0x7D ; LD A, IXL + add a, a + jr Z, L2bloop7_0 ; ran out of bits: load new byte + .db #0x0DD,#0x6F ; LD IXL,A + ; bit now in C flag + jr NC, L2bloop6 ; go around loop again ; STAT +L2bloop7_nonzero: + ; !!nextbit(), loop broken + inc hl + inc hl + + +L2bjmp8_movlen_nonzero: +L2bjmp8a_0d00_compare: + + push bc + + ld bc, (doffset) ;20 + xor a, a ;4 + sub a, c ;4 + ld a, #0x0D ;7 + sbc a, b ;4 == 42 + + jp NC, L2bjmp9_noadd ; STAT + + ; so (doffset > #0x0d00) + inc hl ;; movlen++ + +L2bjmp9_noadd: + ; movlen is in HL + + ; reshuffle registers to be LDIR-friendly + ;want dest (de) in de + ;want src (de-doffset) in hl + ;want movlen (hl) in bc + + ld b, h ;4 + ld c, l ;4 + ld hl, (doffset) ;20 + + ld a, e ;4 + sub l ;4 + ld l, a ;4 + ld a, d ;4 + sbc a, h ;4 + ld h, a ;4 == 52 + ; done shuffling. + + ldi + inc bc + ldir + + pop bc + + jp L2bmain + + +L2b_end: +; ld a, 4 ;DEBUG +; out (254), a ;DEBUG + ret + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; out-of-line jumps +L2bloop7_0: + ;;;; bb = *src, src++ + ld a, (bc) ; get *src + inc bc ; src++ + scf + rla ; ADM: could use undoc''d SLL + .db #0x0DD,#0x6F ; LD IXL,A + + jr NC, L2bloop6 + jp L2bloop7_nonzero + + +L2bloop6_0: + ;;;; bb = *src, src++ + ld a, (bc) ; get *src + inc bc ; src++ + scf + rla ; ADM: could use undoc''d SLL + .db #0x0DD,#0x6F ; LD IXL,A + + jr NC, L2bloop6_zero + jp L2bloop6_nonzero + + +L2bjmp4_0: + ;;;; bb = *src, src++ + ld a, (bc) ; get *src + inc bc ; src++ + scf + rla ; ADM: could use undoc''d SLL + .db #0x0DD,#0x6F ; LD IXL,A + + jr NC, L2bjmp4_zero + jp L2bjmp4_nonzero + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +prev_doffset: .dw #0x0000 +doffset: .dw #0x0000 + +L2b_unpack_ENDSYMBOL: + -- cgit v1.2.3