Initial import of the open source release

1 files changed, 344 insertions, 0 deletions

diff --git a/lib/cpcrslib/cpc_Keyboard.s b/lib/cpcrslib/cpc_Keyboard.s
new file mode 100644
index 0000000..6008a50
--- /dev/null
+++ b/lib/cpcrslib/cpc_Keyboard.s
@@ -0,0 +1,344 @@
+; ******************************************************

+; **       Librería de rutinas SDCC para Amstrad CPC  **

+; **       Raúl Simarro (Artaburu)    -   2009, 2012  **

+; ******************************************************

+

+;*************************************

+; KEYBOARD

+;*************************************

+

+

+.globl _cpc_AnyKeyPressed

+

+MAX_KEYS = 12

+

+_cpc_AnyKeyPressed::

+    call hacer_tiempo

+    call hacer_tiempo

+    call hacer_tiempo

+

+

+

+	LD A,#0x40

+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

+

+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,#MAX_KEYS							;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, #MAX_KEYS

+	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

+	.DB #0XED,#0X71 ; 4    OUT (C),0

+    LD BC,#0XF792     ;3

+    OUT (C),C       ;4

+    LD A,#0X40        ;2

+    LD C,#10        ;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

+    DEC C            ;1

+    JR NZ,loop_cpc_scankeyboard       ;2/3 9*16+1*15=159

+    LD BC,#0XF782     ;3

+    OUT (C),C       ;4

+    EI              ;1 8 =209 MICROSECONDS

+    RET

+

+

+

+cpc_TestKeyboard::	;Tomado de las rutinas básicas que aparecen

+					;en los documentos de  Kevin Thacker

+

+	DI

+    LD BC,#0XF782

+    OUT (C),C

+	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

+

+;teclado_usable					; teclas del cursor, cada tecla está definida por su bit y su línea.

+.globl _cpc_keys_table

+_cpc_keys_table:

+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

+; For increasing keys available just increase this word table

+.DB #0

+

+

+

+

+

+

+

+

+

+

+