cursos:ensamblador:rutinas_save_load

Diferencias

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

Enlace a la vista de comparación

Ambos lados, revisión anterior Revisión previa
Próxima revisión		 Revisión previa
cursos:ensamblador:rutinas_save_load [13-01-2024 10:34] – sromerocursos:ensamblador:rutinas_save_load [19-01-2024 11:58] (actual) – sromero
Línea 45: Línea 45:
 |< 70% 20% 20% 60% >| |< 70% 20% 20% 60% >|
 ^ Byte ^ Longitud ^ Descripción ^ ^ Byte ^ Longitud ^ Descripción ^
-| 0 | 1 | Byte Flag ($00 ó $FF) |+| 0 | 1 | Byte Flag ($00 ó $ff) |
 | 1 | 1 | Tipo de bloque (0-3)| | 1 | 1 | Tipo de bloque (0-3)|
 | 2 | 10 | Nombre de fichero (rellenado con espacios en blanco) | | 2 | 10 | Nombre de fichero (rellenado con espacios en blanco) |
Línea 55: Línea 55:
  Pasemos a describir los diferentes campos de la cabecera:  Pasemos a describir los diferentes campos de la cabecera:
  
- El byte de flag (Byte 0) y el de Checksum (byte 18) no forman parte exactamente de la cabecera, sino del bloque cargado en sí mismo (también están presente cuando cargamos datos y no cabeceras), pero se han incluído dentro de la tabla para hacerla de lectura más sencilla. Puede decirse que el byte-flag es el byte prefijo de todo bloque de datos (considerando una cabecera de 17 bytes como un bloque de datos) y el checksum es el byte sufijo de ese mismo bloque. Concretamente, el valor de Byte-Flag es de $00 para bloques de cabecera y $FF para bloques de datos.+ El byte de flag (Byte 0) y el de Checksum (byte 18) no forman parte exactamente de la cabecera, sino del bloque cargado en sí mismo (también están presente cuando cargamos datos y no cabeceras), pero se han incluído dentro de la tabla para hacerla de lectura más sencilla. Puede decirse que el byte-flag es el byte prefijo de todo bloque de datos (considerando una cabecera de 17 bytes como un bloque de datos) y el checksum es el byte sufijo de ese mismo bloque. Concretamente, el valor de Byte-Flag es de $00 para bloques de cabecera y $ff para bloques de datos.
  
  El byte de tipo de bloque indica qué datos se van a cargar a continuación, según los siguientes valores:  El byte de tipo de bloque indica qué datos se van a cargar a continuación, según los siguientes valores:
Línea 105: Línea 105:
 </code> </code>
  
- Así pues, la rutina de la ROM del Spectrum se encarga (tanto al grabar como al leer) de codificar pulsos de diferentes duraciones para almacenar los ceros y unos de forma consecutiva. Nosotros aprovecharemos (como veremos a continuación) dicha rutina para cargar o salvar bloques de datos a nuestro antojo sin tener que programar esas temporizaciones y lecturas/escrituras a la cinta. Para nosotros será tan sencillo como cargar los valores adecuados en ciertos registros y realizar un ''CALL''. No obstante, para los más curiosos, al final de este capítulo tenéis un enlace a las rutinas de la ROM adecuadamente comentadas de "The Complete Spectrum ROM Disassembly", por el Ian Logan y Frank O'Hara (publicado en 1983).+ Así pues, la rutina de la ROM del Spectrum se encarga (tanto al grabar como al leer) de codificar pulsos de diferentes duraciones para almacenar los ceros y unos de forma consecutiva. Nosotros aprovecharemos (como veremos a continuación) dicha rutina para cargar o salvar bloques de datos a nuestro antojo sin tener que programar esas temporizaciones y lecturas/escrituras a la cinta. Para nosotros será tan sencillo como cargar los valores adecuados en ciertos registros y realizar un ''call''. No obstante, para los más curiosos, al final de este capítulo tenéis un enlace a las rutinas de la ROM adecuadamente comentadas de "The Complete Spectrum ROM Disassembly", por el Ian Logan y Frank O'Hara (publicado en 1983).
  
  El nivel más bajo al que necesitamos llegar es el siguiente:  El nivel más bajo al que necesitamos llegar es el siguiente:
Línea 116: Línea 116:
  
    * Cada bloque tiene la siguiente estructura lógica (formato de los datos DENTRO de un bloque):    * Cada bloque tiene la siguiente estructura lógica (formato de los datos DENTRO de un bloque):
-      * Flag byte, con un valor de $00 para bloques de cabecera o $FF para bloques de datos.+      * Flag byte, con un valor de $00 para bloques de cabecera o $ff para bloques de datos.
       * Los datos en sí mismos: 17 bytes para cabeceras, o la longitud concreta de los datos para los bloques de datos.       * Los datos en sí mismos: 17 bytes para cabeceras, o la longitud concreta de los datos para los bloques de datos.
       * Un byte de checksum, calculado de forma que haciendo un ''XOR'' de todos los bytes juntos, incluyendo el flag Byte, produzca $00.       * Un byte de checksum, calculado de forma que haciendo un ''XOR'' de todos los bytes juntos, incluyendo el flag Byte, produzca $00.
Línea 128: Línea 128:
    * Los 1s y los 0s se almacenan en cinta como pulsos de duraciones concretas.    * Los 1s y los 0s se almacenan en cinta como pulsos de duraciones concretas.
    * Las rutinas de la ROM nos permiten leer y escribir en cinta bloques de datos, realizando ellas la temporización adecuada para convertir nuestros "datos en memoria" en "pulsos" o viceversa sin complicación por nuestra parte.    * Las rutinas de la ROM nos permiten leer y escribir en cinta bloques de datos, realizando ellas la temporización adecuada para convertir nuestros "datos en memoria" en "pulsos" o viceversa sin complicación por nuestra parte.
-   * Sólo necesitaríamos escribir una rutina propia de carga (que detecte pulsos, temporice, etc) si quisiéramos programar nuestra propia carga, por ejemplo para cargar a diferente velocidad que el Spectrum (ultracargas), que cargue de dispositivos externos (puerto de joystick, algún pin concreto del bus de expansión, etc.) o para ejecutar código mientras cargamos el programa (minijuegos durante la carga, contadores de carga, etc). Para el resto de casos, bastará con usar mediante CALL las rutinas de la ROM.+   * Sólo necesitaríamos escribir una rutina propia de carga (que detecte pulsos, temporice, etc) si quisiéramos programar nuestra propia carga, por ejemplo para cargar a diferente velocidad que el Spectrum (ultracargas), que cargue de dispositivos externos (puerto de joystick, algún pin concreto del bus de expansión, etc.) o para ejecutar código mientras cargamos el programa (minijuegos durante la carga, contadores de carga, etc). Para el resto de casos, bastará con usar mediante call las rutinas de la ROM.
  
 \\  \\ 
Línea 139: Línea 139:
 </code> </code>
    
- Este comando BASIC salvaría (SAVE), un total de 2 bytes (2) de datos (CODE), empezando en 0 (0) a cinta. En resumen, salvaría el contenido de la dirección de memoria 0x0000 y 0x0001 en cinta. Esto produciría los siguientes datos en cinta:+ Este comando BASIC salvaría (SAVE), un total de 2 bytes (2) de datos (CODE), empezando en 0 (0) a cinta. En resumen, salvaría el contenido de la dirección de memoria $0000 y $0001 en cinta. Esto produciría los siguientes datos en cinta:
  
 <code> <code>
Línea 173: Línea 173:
 | ff | f3 af | a3 | | ff | f3 af | a3 |
  
- En este caso el byte flag es 0xFF (bloque de tipo "datos"), al cual siguen los 2 bytes tomados de la ROM y grabados a cinta (0x0000 y 0x0001) y el checksum (0xA3).+ En este caso el byte flag es $FF (bloque de tipo "datos"), al cual siguen los 2 bytes tomados de la ROM y grabados a cinta ($0000 y $0001) y el checksum ($A3).
  
 \\  \\ 
Línea 189: Línea 189:
 | IX | Dirección inicio de memoria donde almacenar los datos que se van a cargar. | | IX | Dirección inicio de memoria donde almacenar los datos que se van a cargar. |
 | DE | Longitud del bloque de datos a cargar. | | DE | Longitud del bloque de datos a cargar. |
-| A | Flag Byte, normalmente 0x00 para cargar cabeceras o 0xFF (255) para cargar datos. |+| A | Flag Byte, normalmente $00 para cargar cabeceras o $FF (255) para cargar datos. |
 | CF (CarryFlag) | 1=LOAD, 0=VERIFY | | CF (CarryFlag) | 1=LOAD, 0=VERIFY |
  
Línea 198: Línea 198:
    * "D BREAK - CONT repeats" (se pulsó la tecla BREAK).    * "D BREAK - CONT repeats" (se pulsó la tecla BREAK).
  
- Recuerda que puedes activar el CARRY FLAG con la instruccion ''SCF'' (Set Carry Flag) y ponerlo a cero con un simple ''AND A''.+ Recuerda que puedes activar el CARRY FLAG con la instruccion ''SCF'' (Set Carry Flag) y ponerlo a cero con un simple ''and a''.
  
  Veamos 2 ejemplos, el primero cargaría una pantalla gráfica sobre la videomemoria (el equivalente de un ''LOAD "" SCREEN$'') siempre y cuando la pantalla se haya grabado sin cabecera:  Veamos 2 ejemplos, el primero cargaría una pantalla gráfica sobre la videomemoria (el equivalente de un ''LOAD "" SCREEN$'') siempre y cuando la pantalla se haya grabado sin cabecera:
  
 <code z80> <code z80>
-    SCF                ; Set Carry Flag -> CF=1 -> LOAD +    scf                   ; Set Carry Flag -> CF=1 -> LOAD 
-    LD A, 255          ; A = 0xFF (cargar datos) +    ld a, $ff             ; A = $FF (cargar datos) 
-    LD IX, 16384       ; Destino del load = 16384 +    ld ix, 16384          ; Destino del load = 16384 
-    LD DE, 6912        ; Tamaño a cargar = 6912 +    ld de, 6912           ; Tamaño a cargar = 6912 bytes 
-    CALL 1366          ; Llamamos a la rutina de carga+    call 1366             ; Llamamos a la rutina de carga
 </code> </code>
  
Línea 213: Línea 213:
  
 <code z80> <code z80>
-    SCF               ; Set Carry Flag (LOAD) +    scf                  ; Set Carry Flag (LOAD) 
-    LD A, 255      ; A = 0xFF (cargar datos) +    ld a, $ff            ; A = $FF (cargar datos) 
-    LD IX, 32768      ; Destino de la carga +    ld ix, 32768         ; Destino de la carga 
-    LD DE, 12000      ; Nuestro "programa" ocupa 12000 bytes. +    ld de, 12000         ; Nuestro "programa" ocupa 12000 bytes. 
-    CALL 0556        ; Recordemos que 0556h = 1366d +    call $0556           ; Recordemos que 0556h = 1366d 
-    JP 32768          ; Saltamos al programa código máquina cargado+    jp 32768             ; Saltamos al programa código máquina cargado
 </code> </code>
  
Línea 230: Línea 230:
 | IX | Dirección inicio de memoria de los datos que se van a grabar. | | IX | Dirección inicio de memoria de los datos que se van a grabar. |
 | DE | Longitud del bloque de datos a grabar (se grabarán los datos desde IX a IX+DE). | | DE | Longitud del bloque de datos a grabar (se grabarán los datos desde IX a IX+DE). |
-| A | Flag Byte, 0x00 para grabar cabeceras o 0xFF (255) para grabar datos. |+| A | Flag Byte, $00 para grabar cabeceras o $FF (255) para grabar datos. |
 | CF (CarryFlag) | 0 (SAVE) | | CF (CarryFlag) | 0 (SAVE) |
  
Línea 245: Línea 245:
  
 <code z80> <code z80>
-    AND A                           ; CF = 0 (verify) +    and a                           ; CF = 0 (verify) 
-    CALL 1366                       ; Cargamos e ignoramos la cabecera+    call 1366                       ; Cargamos e ignoramos la cabecera
  
-    SCF                             ; Set Carry Flag -> CF=1 -> LOAD +    scf                             ; Set Carry Flag -> CF=1 -> LOAD 
-    LD A, 255                       ; A = 0xFF (cargar datos) +    ld a, $ff                       ; A = $FF (cargar datos) 
-    LD IX, direccion_destino        ; Destino del load +    ld ix, direccion_destino        ; Destino del load 
-    LD DE, tamaño_a_cargar          ; Tamaño a cargar +    ld de, tamaño_a_cargar          ; Tamaño a cargar 
-    CALL 1366                       ; Llamamos a la rutina de carga+    call 1366                       ; Llamamos a la rutina de carga
 </code> </code>
  
Línea 368: Línea 368:
     ORG 32000     ORG 32000
  
-    AND A                           ; CF = 0 (verify) +    and a                           ; CF = 0 (verify) 
-    CALL 1366                       ; Cargamos e ignoramos la cabecera+    call 1366                       ; Cargamos e ignoramos la cabecera
  
-    SCF                             ; Set Carry Flag -> CF=1 -> LOAD +    scf                             ; Set Carry Flag -> CF=1 -> LOAD 
-    LD A, 255                       ; A = 0xFF (cargar datos) +    ld a, $ff                       ; A = $FF (cargar datos) 
-    LD IX, 16384                    ; Destino del load = 16384 +    ld ix, 16384                    ; Destino del load = 16384 
-    LD DE, 6912                     ; Tamaño a cargar = 6912 +    ld de, 6912                     ; Tamaño a cargar = 6912 bytes 
-    CALL 1366                       ; Llamamos a la rutina de carga+    call 1366                       ; Llamamos a la rutina de carga
  
-    RET+    ret
  
     END 32000     END 32000
Línea 419: Línea 419:
  El código comentado está extraído del documento "//The Complete Spectrum ROM Disassembly//", de Ian Logan y Frank O'Hara.  El código comentado está extraído del documento "//The Complete Spectrum ROM Disassembly//", de Ian Logan y Frank O'Hara.
  
-<code z80>+ <code z80>
 ; THE 'LD-BYTES' SUBROUTINE ; THE 'LD-BYTES' SUBROUTINE
 ; This subroutine is called to LOAD the header information (from 07BE) ; This subroutine is called to LOAD the header information (from 07BE)
 ; and later LOAD, or VERIFY, an actual block of data (from 0802). ; and later LOAD, or VERIFY, an actual block of data (from 0802).
 0556 LD-BYTES: 0556 LD-BYTES:
-                  INC   D                   ; This resets the zero flag. (D +                  inc   d                   ; This resets the zero flag. (D 
-                                            ; cannot hold +FF.) +                                            ; cannot hold $FF.) 
-                  EX    AF,A'F'             ; The A register holds +00 for a +                  ex    af, af'             ; The A' register holds $00 for 
-                                            ; header and +FF for a block of+                                            ; header and $FF for a block of
                                             ; data.                                             ; data.
                                             ; The carry flag is reset for                                             ; The carry flag is reset for
                                             ; VERIFYing and set for                                             ; VERIFYing and set for
                                             ; LOADing.                                             ; LOADing.
-                  DEC   D                   ; Restore D to its original value.+                  dec   d                   ; Restore D to its original value.
  
-                  DI                        ; The maskable interrupt is now+                  di                        ; The maskable interrupt is now
                                             ; disabled.                                             ; disabled.
-                  LD    A,+0F               ; The border is made WHITE. +                  ld    a,$0f               ; The border is made WHITE. 
-                  OUT   (+FE),A +                  out   ($fe),a 
-                  LD    HL,+053F            ; Preload the machine stack +                  ld    hl,$053f            ; Preload the machine stack 
-                  PUSH  HL                  ; with the address - SA/LD-RET. +                  push  hl                  ; with the address - SA/LD-ret. 
-                  IN    A,(+FE)             ; Make an initial read of port '254' +                  in    a,($fe)             ; Make an initial read of port '254' 
-                  RRA                       ; Rotate the byte obtained but +                  rra                       ; Rotate the byte obtained but 
-                  AND   +20                 ; keep only the EAR bit, +                  and   $20                 ; keep only the EAR bit, 
-                  OR    +02                 ; Signal 'RED' border. +                  or    $02                 ; Signal 'RED' border. 
-                  LD    C,A                 ; Store the value in the C register. - +                  ld    c,a                 ; Store the value in the C register. - 
-                                            ; (+22 for 'off' and +02 for 'on'+                                            ; ($22 for 'off' and $02 for 'on'
                                             ; - the present EAR state.)                                             ; - the present EAR state.)
-                  CP    A                   ; Set the zero flag.+                  cp    a                   ; Set the zero flag.
  
 ; The first stage of reading a tape involves showing that a pulsing ; The first stage of reading a tape involves showing that a pulsing
 ; signal actually exist (i.e. 'On/off' or 'off/on' edges.) ; signal actually exist (i.e. 'On/off' or 'off/on' edges.)
  
-056B LD-BREAK     RET   NZ                  ; Return if the BREAK key is+056B LD-BREAK     ret   nz                  ; Return if the BREAK key is
                                             ; being pressed.                                             ; being pressed.
-056C LD-START     CALL  05E7,LD-EDGE-1      ; Return with the carry flag reset +056C LD-START     call  05E7,LD-EDGE-1      ; Return with the carry flag reset 
-                  JR    NC,056B,LD-BREAK    ; if there is no 'edge' within+                  jr    nc,056b,LD-BREAK    ; if there is no 'edge' within
                                             ; approx. 14,000 T states. But if                                             ; approx. 14,000 T states. But if
                                             ; an 'edge' is found the border                                             ; an 'edge' is found the border
Línea 463: Línea 463:
 ; that the signal is still pulsing. ; that the signal is still pulsing.
  
-                  LD    HL,+0415            ; The length of this waiting +                  ld    hl,$0415            ; The length of this waiting 
-0574 LD-WAIT      DJNZ  0574,LD-WAIT        ; period will be almost one +0574 LD-WAIT      djnz  0574,LD-WAIT        ; period will be almost one 
-                  DEC   HL                  ; second in duration. +                  dec   hl                  ; second in duration. 
-                  LD    A,H +                  ld    a,h 
-                  OR    L +                  or    l 
-                  JR    NZ,0574,LD-WAIT +                  jr    nz,0574,LD-WAIT 
-                  CALL  05E3,LD-EDGE-2      ; Continue only if two edges are +                  call  05E3,LD-EDGE-2      ; Continue only if two edges are 
-                  JR    NC,056B,LD-BREAK    ; found within the allowed time+                  jr    nc,056b,LD-BREAK    ; found within the allowed time
                                             ; period.                                             ; period.
  
 ; Now accept only a 'leader signal'. ; Now accept only a 'leader signal'.
  
-0580 LD-LEADER    LD    B,+9C               ; The timing constant, +0580 LD-LEADER    ld    b,$9c               ; The timing constant, 
-                  CALL  05E3,LD-EDGE-2      ; Continue only if two edges are +                  call  05E3,LD-EDGE-2      ; Continue only if two edges are 
-                  JR    NC,056B,LD-BREAK    ; found within the allowed time+                  jr    nc,056B,LD-BREAK    ; found within the allowed time
                                             ; period.                                             ; period.
-                  LD    A,+C6               ; However the edges must have +                  ld    a,$c6               ; However the edges must have 
-                  CP    B                   ; been found within about +                  cp    b                   ; been found within about 
-                  JR    NC,056C,LD-START    ; 3,000 T states of each other +                  jr    nc,056c,LD-START    ; 3,000 T states of each other 
-                  INC   H                   ; Count the pair of edges in the H +                  inc   h                   ; Count the pair of edges in the H 
-                  JR    NZ,0580,LD-LEADER   ; register until '256' pairs have+                  jr    nz,0580,LD-LEADER   ; register until '256' pairs have
                                             ; been found.                                             ; been found.
  
 ; After the leader come the 'off' and 'on' part's of the sync pulse. ; After the leader come the 'off' and 'on' part's of the sync pulse.
  
-058F LD-SYNC      LD    B,+C9               ; The timing constant. +058F LD-SYNC      ld    b,$c9               ; The timing constant. 
-                  CALL  05E7,LD-EDGE-1      ; Every edge is considered until +                  call  05E7,LD-EDGE-1      ; Every edge is considered until 
-                  JR    NC,056B,LD-BREAK    ; two edges are found close +                  jr    nc,056b,LD-BREAK    ; two edges are found close 
-                  LD    A,B                 ; together - these will be the +                  ld    a,b                 ; together - these will be the 
-                  CP    +D4                 ; start and finishing edges of +                  CP    $d4                 ; start and finishing edges of 
-                  JR    NC,058F,LD-SYNC     ; the 'off' sync pulse. +                  jr    nc,058f,LD-SYNC     ; the 'off' sync pulse. 
-                  CALL  05E7,LD-EDGE-1      ; The finishing edge of the +                  call  05e7,LD-EDGE-1      ; The finishing edge of the 
-                  RET   NC                  ; 'on' pulse must exist.+                  ret   nc                  ; 'on' pulse must exist.
                                             ; (Return carry flag reset.)                                             ; (Return carry flag reset.)
  
Línea 501: Línea 501:
 ; VERIFied. But the first byte is the type flag. ; VERIFied. But the first byte is the type flag.
  
-                  LD    A,C                 ; The border colours from now +                  ld    a,c                 ; The border colours from now 
-                  XOR   +03                 ; on will be BLUE & YELLOW.+                  XOR   $03                 ; on will be BLUE & YELLOW.
  
-                  LD    C,A +                  ld    c,a 
-                  LD    H,+00               ; Initialise the 'parity matching'+                  ld    h,$00               ; Initialise the 'parity matching'
                                             ; byte to zero.                                             ; byte to zero.
-                  LD    B,+B0               ; Set the timing constant for the+                  ld    b,$b0               ; Set the timing constant for the
                                             ; flag byte.                                             ; flag byte.
-                  JR    05C8,LD-MARKER      ; Jump forward into the byte+                  jr    05C8,LD-MARKER      ; Jump forward into the byte
                                             ; LOADING loop.                                             ; LOADING loop.
  
Línea 516: Línea 516:
 ; the last byte is the 'parity' byte. ; the last byte is the 'parity' byte.
  
-05A9 LD-LOOP      EX    AF,A'F'             ; Fetch the flags. +05A9 LD-LOOP      ex    af,af'              ; Fetch the flags (ex af, af') 
-                  JR    NZ,05B3,LD-FLAG     ; Jump forward only when+                  jr    nz,05B3,LD-FLAG     ; Jump forward only when
                                             ; handling the first byte.                                             ; handling the first byte.
-                  JR    NC,05BD,LD-VERIFY   ; Jump forward if VERIFYing a+                  jr    nc,05BD,LD-VERIFY   ; Jump forward if VERIFYing a
                                             ; tape.                                             ; tape.
-                  LD    (IX+00),L           ; Make the actual LOAD when+                  ld    (ix+00),l           ; Make the actual LOAD when
                                             ; required.                                             ; required.
-                  JR    05C2,LD-NEXT        ; Jump forward to LOAD the+                  jr    05C2,LD-NEXT        ; Jump forward to LOAD the
                                             ; next byte.                                             ; next byte.
-05B3 LD-FLAG      RL    C                   ; Keep the carry flag in a safe+05B3 LD-FLAG      rl    c                   ; Keep the carry flag in a safe
                                             ; place temporarily.                                             ; place temporarily.
-                  XOR   L                   ; Return now if the type flag does +                  xor   l                   ; Return now if the type flag does 
-                  RET   NZ                  ; not match the first byte on the+                  ret   nz                  ; not match the first byte on the
                                             ; tape. (Carry flag reset.)                                             ; tape. (Carry flag reset.)
-                  LD    A,C                 ; Restore the carry flag now. +                  ld    a,c                 ; Restore the carry flag now. 
-                  RRA +                  rra 
-                  LD    C,A +                  ld    c,a 
-                  INC   DE                  ; Increase the counter to +                  inc   de                  ; Increase the counter to 
-                  JR    05CA,LD-DEC         ; compensate for its 'decrease'+                  jr    05CA,LD-DEC         ; compensate for its 'decrease'
                                             ; after the jump.                                             ; after the jump.
  
Línea 540: Línea 540:
 ; tested against the original byte. ; tested against the original byte.
  
-05BD LD-VERlFY    LD    A,(IX+00)           ; Fetch the original byte. +05BD LD-VERlFY    ld    a,(ix+00)           ; Fetch the original byte. 
-                  XOR   L                   ; Match it against the new byte. +                  xor   l                   ; Match it against the new byte. 
-                  RET   NZ                  ; Return if 'no match'. (Carry+                  ret   nz                  ; Return if 'no match'. (Carry
                                             ; flag reset.)                                             ; flag reset.)
  
 ; A new byte can now be collected from the tape. ; A new byte can now be collected from the tape.
  
-05C2 LD-NEXT      INC   IX                  ; Increase the 'destination'. +05C2 LD-NEXT      inc   ix                  ; Increase the 'destination'. 
-05C4 LD-DEC       DEC   DE                  ; Decrease the 'counter'. +05C4 LD-dec       dec   de                  ; Decrease the 'counter'. 
-                  EX    AF,A'F'             ; Save the flags. +                  ex    af,af'              ; Save the flags in af' 
-                  LD    B,+B2               ; Set the timing constant. +                  ld    b,$b2               ; Set the timing constant. 
-05C8 LD-MARKER    LD    L,+01               ; Clear the 'object' register apart+05C8 LD-MARKER    ld    l,$01               ; Clear the 'object' register apart
                                             ; from a 'marker' bit.                                             ; from a 'marker' bit.
  
 ; The 'LD-8-BITS' loop is used to build up a byte in the L register. ; The 'LD-8-BITS' loop is used to build up a byte in the L register.
  
-05CA LD-8-BITS    CALL  05E3,LD-EDGE-2      ; Find the length of the 'off' and +05CA LD-8-BITS    call  05E3,LD-EDGE-2      ; Find the length of the 'off' and 
                                             ; 'on' pulses of the next bit.                                             ; 'on' pulses of the next bit.
-                  RET   NC                  ; Return if the time period is+                  ret   nc                  ; Return if the time period is
                                             ; exceeded. (Carry flag reset.)                                             ; exceeded. (Carry flag reset.)
-                  LD    A,+CB               ; Compare the length against+                  ld    a,$cb               ; Compare the length against
                                             ; approx. 2,400 T states; resetting                                             ; approx. 2,400 T states; resetting
-                  CP    B                   ; the carry flag for a '0' and+                  cp    b                   ; the carry flag for a '0' and
                                             ; setting it for a '1'.                                             ; setting it for a '1'.
-                  RL    L                   ; Include the new bit in the L+                  rl    l                   ; Include the new bit in the L
                                             ; register.                                             ; register.
-                  LD    B,+B0               ; Set the timing constant for the+                  ld    b,$b0               ; Set the timing constant for the
                                             ; next bit.                                             ; next bit.
-                  JP    NC,05CA,LD-8-BITS   ; Jump back whilst there are still+                  jp    nc,05CA,LD-8-BITS   ; Jump back whilst there are still
                                             ; bits to be fetched.                                             ; bits to be fetched.
  
 ; The 'parity matching' byte has to be updated with each new byte. ; The 'parity matching' byte has to be updated with each new byte.
  
-                  LD    A,H                 ; Fetch the 'parity matching' +                  ld    a,h                 ; Fetch the 'parity matching' 
-                  XOR   L                   ; byte and include the new byte. +                  xor   l                   ; byte and include the new byte. 
-                  LD    H,A                 ; Save it once again.+                  ld    h,a                 ; Save it once again.
 ; Passes round the loop are made until the 'counter' reaches zero.  ; Passes round the loop are made until the 'counter' reaches zero. 
 ; At that point the 'parity matching' byte should be holding zero. ; At that point the 'parity matching' byte should be holding zero.
-                  LD    A,D                 ; Make a further pass if the DE +                  ld    a,d                 ; Make a further pass if the DE 
-                  OR    E                   ; register pair does not hold +                  or    e                   ; register pair does not hold 
-                  JR    NZ,05A9,LD-LOOP     ; zero. +                  jr    nz,05A9,LD-LOOP     ; zero. 
-                  LD    A,H                 ; Fetch the 'parity matching'+                  ld    a,h                 ; Fetch the 'parity matching'
                                             ; byte.                                             ; byte.
-                  CP    +01                 ; Return with the carry flat set +                  CP    $01                 ; Return with the carry flat set 
-                  RET                       ; if the value is zero.+                  ret                       ; if the value is zero.
                                             ; (Carry flag reset if in error.)                                             ; (Carry flag reset if in error.)
  
Línea 599: Línea 599:
 ; is required and LD-EDGE-1 is used to find the time before the next 'edge'. ; is required and LD-EDGE-1 is used to find the time before the next 'edge'.
  
-05E3 LD-EDGE-2    CALL  05E7,LD-EDGE-1      ; In effect call LD-EDGE-1 twice; +05E3 LD-EDGE-2    call  05E7,LD-EDGE-1      ; In effect call LD-EDGE-1 twice; 
-                  RET   NC                  ; returning in between if there+                  ret   nc                  ; returning in between if there
                                             ; is an error.                                             ; is an error.
-05E7 LD-EDGE-1    LD    A,+16               ; Wait 358 T states before +05E7 LD-EDGE-1    ld    a,$16               ; Wait 358 T states before 
-05E9 LD-DELAY     DEC   A                   ; entering the sampling loop. +05E9 LD-DELAY     dec   a                   ; entering the sampling loop. 
-                  JR    NZ,05E9,LD-DELAY +                  jr    nz,05E9,LD-DELAY 
-                  AND   A+                  and   a
  
 ; The sampling loop is now entered. The value in the B register is ; The sampling loop is now entered. The value in the B register is
 ; incremented for each pass; 'time-up' is given when B reaches zero. ; incremented for each pass; 'time-up' is given when B reaches zero.
  
-05ED LD-SAMPLE    INC   B                   ; Count each pass. +05ED LD-SAMPLE    inc   b                   ; Count each pass. 
-                  RET   Z                   ; Return carry reset & zero set if+                  ret   z                   ; Return carry reset & zero set if
                                             ; 'time-up'.                                             ; 'time-up'.
-                  LD    A,+7F               ; Read from port +7FFE. +                  ld    a,$7F               ; Read from port $7FFE. 
-                  IN    A,(+FE)             ; i.e. BREAK & EAR. +                  IN    A,($fe)             ; i.e. BREAK & EAR. 
-                  RRA                       ; Shift the byte. +                  rra                       ; Shift the byte. 
-                  RET   NC                  ; Return carry reset & zero reset+                  ret   nc                  ; Return carry reset & zero reset
                                             ; if BREAK was pressed.                                             ; if BREAK was pressed.
-                  XOR   C                   ; Now test the byte against the +                  xor   c                   ; Now test the byte against the 
-                  AND   +20                 ; 'last edge-type'; jump back +                  AND   $20                 ; 'last edge-type'; jump back 
-                  JR    Z,05ED,LD-SAMPLE    ; unless it has changed.+                  jr    z,05ED,LD-SAMPLE    ; unless it has changed.
  
 ; A new 'edge' has been found within the time period allowed for the search. ; A new 'edge' has been found within the time period allowed for the search.
 ; So change the border colour and set the carry flag. ; So change the border colour and set the carry flag.
  
-                  LD    A,C                 ; Change the 'last edge-type' +                  ld    a,c                 ; Change the 'last edge-type' 
-                  CPL                       ; and border colour. +                  cpl                       ; and border colour. 
-                  LD    C,A +                  ld    c,a 
-                  AND   +07                 ; Keep only the border colour. +                  AND   $07                 ; Keep only the border colour. 
-                  OR    +08                 ; Signal 'MIC off'. +                  OR    $08                 ; Signal 'MIC off'. 
-                  OUT   (+FE),A             ; Change the border colour (RED/+                  OUT   ($fe),A             ; Change the border colour (RED/
                                             ; CYAN or BLUE/YELLOW).                                             ; CYAN or BLUE/YELLOW).
-                  SCF                       ; Signal the successful search +                  scf                       ; Signal the successful search 
-                  RET                       ; before returning.+                  ret                       ; before returning.
  
 ; Note: The LD-EDGE-1 subroutine takes 465 T states, plus an additional 58 T ; Note: The LD-EDGE-1 subroutine takes 465 T states, plus an additional 58 T
Línea 641: Línea 641:
 ; allowance is made for ten additional passes through the sampling loop. ; allowance is made for ten additional passes through the sampling loop.
 ; The search is thereby for the next edge to be found within, roughly, ; The search is thereby for the next edge to be found within, roughly,
-; 1,100 T states (465 + 10 * 58 + overhead). This will prove successful+; 1,100 T states (465 $ 10 * 58 $ overhead). This will prove successful
 ; for the sync 'off' pulse that comes after the long 'leader pulses'. ; for the sync 'off' pulse that comes after the long 'leader pulses'.
 </code> </code>
 +  
 + 
 \\  \\ 
 ===== Ficheros ===== ===== Ficheros =====
  • cursos/ensamblador/rutinas_save_load.1705142049.txt.gz
  • Última modificación: 13-01-2024 10:34
  • por sromero