Diferencias

Muestra las diferencias entre dos versiones de la página.

--- cursos:ensamblador:teclado [19-01-2024 12:02] – [Optimizando la rutina de lectura de teclado] sromero
+++ cursos:ensamblador:teclado [22-01-2024 07:59] – [Redefinicion de teclas] sromero
@@ Línea 239: / Línea 239: @@
 ;-----------------------------------------------------------------------
 Wait_For_Keys_Pressed:
-    xor a                        ; A = 0
+    xor a                     ; A = 0 => leer todas las semifilas
-    in a, ($fe)
+    in a, ($fe)               ; Leer del puerto del teclado
-    or %11100000
+    or %11100000              ; Poner a 1 los 3 bits más altos
-    inc a
+    inc a                     ; Comprobamos el estado del teclado con: A=A+1.
+                              ; Si A=0 => ZF = 1 => no hay tecla pulsada
+                              ; Si A!=0 => ZF = 0 => hay alguna tecla pulsada
     jr z, Wait_For_Keys_Pressed
     ret
@@ Línea 251: / Línea 253: @@
 ;-----------------------------------------------------------------------
 Wait_For_Keys_Released:
-    xor a
+    xor a                     ; A = 0 => leer todas las semifilas
-    in a, ($fe)
+    in a, ($fe)               ; Leer del puerto del teclado
-    or %11100000
+    or %11100000              ; Poner a 1 los 3 bits más altos
-    inc a
+    inc a                     ; Comprobamos el estado del teclado con: A=A+1.
+                              ; Si A=0 => ZF = 1 => no hay tecla pulsada
+                              ; Si A!=0 => ZF = 0 => hay alguna tecla pulsada
     jr nz, Wait_For_Keys_Released
     ret
@@ Línea 266: / Línea 270: @@
     push af
 wait_for_keypressed_loop:
-    xor a                        ; A = 0
+    xor a                     ; A = 0 => leer todas las semifilas
-    in a, ($fe)
+    in a, ($fe)               ; Leer del puerto del teclado
-    or %11100000
+    or %11100000              ; Poner a 1 los 3 bits más altos
-    inc a
+    inc a                     ; Comprobamos el estado del teclado con: A=A+1.
+                              ; Si A=0 => ZF = 1 => no hay tecla pulsada
+                              ; Si A!=0 => ZF = 0 => hay alguna tecla pulsada
     jr z, wait_for_keypressed_loop
     pop af
@@ Línea 278: / Línea 284: @@
     push af
 wait_for_no_pressedkey_loop:
-    xor a
+    xor a                     ; A = 0 => leer todas las semifilas
-    in a, ($fe)
+    in a, ($fe)               ; Leer del puerto del teclado
-    or %11100000
+    or %11100000              ; Poner a 1 los 3 bits más altos
-    inc a
+    inc a                     ; Comprobamos el estado del teclado con: A=A+1.
+                              ; Si A=0 => ZF = 1 => no hay tecla pulsada
+                              ; Si A!=0 => ZF = 0 => hay alguna tecla pulsada
     jr nz, wait_for_no_pressedkey_loop
     pop af
@@ Línea 525: / Línea 533: @@
  Los scancodes asociados a las diferentes teclas son:
+\\
 |< 80% >|
 ^ Teclas: ^ 1 ^ 2 ^ 3 ^ 4 ^ 5 ^ 6 ^ 7 ^ 8 ^ 9 ^ 0 ^
@@ Línea 540: / Línea 549: @@
 ^ Teclas: ^ CAPS ^ Z ^ X ^ C ^ V ^ B ^ N ^ M ^ SYMB ^ SPACE ^
 ^ Scancodes: | $27 | $1f | $17 | $0f | $07 | $00 | $08 | $10 | $18 | $20 |
+\\
+ O, en forma visual sobre un teclado de 48K, extraído del libro //Mastering Machine Code on your ZX Spectrum// (los valores numéricos están en formato hexadecimal pese a no llevar prefijo ni sufijo):
+\\
+{{ :cursos:ensamblador:scancodes_gomas.jpg }}
+\\
  Estos valores nos serán necesarios si queremos establecer unos scancodes por defecto para las teclas del programa, de forma que si el usuario no las redefine, tengan unos valores de comprobación determinados para la rutina de chequeo que veremos a continuación.
@@ Línea 905: / Línea 921: @@
                         ; y la tecla de A (00SSSTTT), para leer
                         ; el puerto y chequear el bit adecuados
-    and 7
+    and %00000111       ; Nos quedamos con la tecla (bit)
     inc a
     ld b, a             ; B = 16 - (num. linea direccion)