Karoshi MSX Community
05 de Julio de 2021, 08:48:19 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 [2]
  Imprimir  
Autor Tema: Algún problema con el foro?  (Leído 7996 veces)
0 Usuarios y 1 Visitante están viendo este tema.
burguera
Visitante
« Respuesta #15 : 02 de Octubre de 2006, 08:15:16 pm »

Jos'b, respecto al código del descompresor de BitBuster, mi aportación fue simplemente adaptar el BitBuster Extreme a asMSX. El código en cuestión es este

Código:
;----------------------------------------------------------
DEPACK_BITBUSTER:
; Depacks Bitbuster encoded data to RAM
; Author: TeamBomba and Gasman (Bitbuster Extreme)
; Parameters: HL=Bitbuster data source; DE=RAM destination
;----------------------------------------------------------       
        inc     hl
        inc     hl
        inc     hl
        inc     hl
        ld      a,128
      exx
      ld      de,1
      exx
depack_loop:
        call    getbits
      jr     c,output_compressed
      ldi
      jr      depack_loop
output_compressed:
      ld      c,[hl]
      inc     hl
output_match:
        ld      b,0
        bit     7,c
        jr      z,output_match1
        call    getbits
      call    rlbgetbits
      call    rlbgetbits
      call    rlbgetbits
      jr      c,output_match1
      res     7,c
output_match1:
      inc     bc
      exx
      ld     h,d
      ld      l,e
      ld      b,e
get_gamma_value_size:
      exx
      call    getbits
      exx
      jr      nc,get_gamma_value_size_end
      inc     b
      jr      get_gamma_value_size
get_gamma_value_bits:
      exx
      call    getbits
      exx
      adc     hl,hl
get_gamma_value_size_end:
      djnz    get_gamma_value_bits
get_gamma_value_end:
      inc     hl
      exx
      ret     c
        push    hl
      exx
      push    hl
      exx
      ld     h,d
      ld      l,e
      sbc     hl,bc
      pop     bc
      ldir
      pop     hl
      jr      depack_loop
rlbgetbits:
      rl      b
getbits:
      add     a,a
      ret     nz
      ld     a,[hl]
      inc     hl
      rla
      ret
;---------------------------------------------------------
En línea
jjfranco
Visitante
« Respuesta #16 : 03 de Octubre de 2006, 11:45:25 am »

Gracias. Cheesy

No me dio tiempo a copiarlo.

Un saludo
En línea
SapphiRe
Visitante
« Respuesta #17 : 05 de Octubre de 2006, 04:15:36 pm »

(Ahora tiene mas sentido el chiste de Sapphire DI HALT Cheesy. Lo digo por el HALT que salta cuando ocurre una interrupcion)

 Grin Grin Grin Grin Grin Grin Grin

atchús, atchús... sniiif... llevo una semana en cama con fiebre Cry
En línea
Páginas: 1 [2]
  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!