Karoshi MSX Community
20 de Septiembre de 2018, 07:26:20 pm *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias:
 
   Inicio   Ayuda Buscar Ingresar Registrarse  
Páginas: [1]
  Imprimir  
Autor Tema: FILLRAM  (Leído 2775 veces)
0 Usuarios y 1 Visitante están viendo este tema.
SapphiRe
Visitante
« : 21 de Marzo de 2006, 05:44:19 pm »

A fast way to fill (bc+1) bytes of RAM with a given value:

Input:

hl = initial address
a = value
bc = length - 1 (so, don't use this routine to fill just 1 byte Grin)

Code:

Código:
ld [hl],a
ld d,h
ld e,l
inc de
ldir
ret
En línea
SapphiRe
Visitante
« Respuesta #1 : 16 de Abril de 2006, 10:46:21 am »

A faster way, don't use just for a few bytes:

hl = initial address
a = value
bc = length / 2 (so, don't use this routine to fill an odd number of bytes Grin)

Code:

Código:
di ; NO INTERRUPTS ALLOWED INSIDE THIS CODE
ld [STACK],SP ; Saves Stack Pointer value
add hl,bc ; Go to the last address
add hl,bc ; Useless if you set initially the correct value on hl
ld SP,hl ; Stack Pointer -> Next byte to the desired fill area
ld d,a ; d = a
ld e,a ; de = aa
@@loop:
push de ; two bytes filled, SP decremented
cpi ; A-(hl) , inc hl (useless), dec bc (Parity flag set until BC=0)
jp PE,@@loop ; close loop
ld SP,[STACK] ; restore Stack (don't forget it!)
ei ; Enable interrupts (also, don't forget it!)
ret ; return

PUSH = 11 cycles
CPI = 16 cycles
JP PE = 10 cycles
Total = 37 cycles each 2 bytes

Using ldir = 21 cycles each byte -> 42 cycles each 2 bytes

Not many, but, of course, you can unroll the loop to avoid executing CPI and JP PE each PUSH... so you can gain more extra cycles
En línea
WYZ
Visitante
« Respuesta #2 : 28 de Mayo de 2006, 10:25:54 am »

The old "fast clear screen" spectrum rutine....  Cheesy
Simply brilliant.
En línea
Páginas: [1]
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.21 | SMF © 2013, Simple Machines XHTML 1.0 válido! CSS válido!