Inscription : 10 Mars 2009, 17:41 Message(s) : 253
Beb a écrit :
Alors, la j'vous trouve un peu dur avec sPOKE. On ne peut raisonnablement pas lui en vouloir d'avoir magistralement omis de déproteger une disquette en écriture, quand on connait son parcours élogieux de grand combattant de l'Altair 8800 entre autres. Qui a sont époque faisait de superbes programmes sur le calcul du coefficient de friction d'une moule sur un rocher dans la baie du Mont St Michel en période d'équinoxe. Avec seulement 1ko de ram, 1kg de cartes perforées et 1 tube de vaseline...
Inscription : 15 Août 2008, 13:00 Message(s) : 968 Localisation : Troyes, France
Code :
;Exomizer 2 Z80 decoder ; by Metalbrain ; ; compression algorithm by Magnus Lind
;input hl=compressed data start ; de=uncompressed destination start ; ; you may change exo_mapbasebits to point to any free buffer
deexo: ld a,(hl) inc hl ld ixh,a
ld b,52 ld iy,exo_mapbasebits push de exo_initbits: ld a,b sub 4 and 15 jr nz,exo_node1
ld de,1 ;DE=b2 exo_node1: ld c,16 exo_get4bits: call exo_getbit rl c jr nc,exo_get4bits ld (iy+0),c ;bits[i]=b1
push hl inc c ld hl,0 scf exo_setbit: adc hl,hl dec c jr nz,exo_setbit ld (iy+52),e ld (iy+104),d ;base[i]=b2 add hl,de ex de,hl inc iy
pop hl djnz exo_initbits pop de
exo_mainloop: ld c,1 ;lenght=1 call exo_getbit ;literal? jr c,exo_literalcopy ld c,255 exo_getindex: inc c call exo_getbit jr nc,exo_getindex ld a,c ;C=index cp 16 ret z jr c,exo_continue push de ld d,16 call exo_getbits pop de exo_literalcopy: ldir jr exo_mainloop exo_continue: push de call exo_getpair push bc pop af ex af,af' ;lenght in AF' ld de,512+48 ;2 bits, 48 offset dec bc ld a,b or c jr z,exo_goforit ;1? ld de,1024+32 ;4 bits, 32 offset dec bc ld a,b or c jr z,exo_goforit ;2? ld e,16 ;16 offset exo_goforit: call exo_getbits ld a,e add a,c ld c,a call exo_getpair pop de ;bc=offset push hl ;de=destination ld h,d ld l,e sbc hl,bc ;hl=origin ex af,af' push af pop bc ;bc=lenght ldir pop hl ;Keep HL, DE is updated jr exo_mainloop ;Next!
Suite a une "compression" de personnel, sPoke a été viré de l'Enterprise... (Ah ah ! Lol ! Régalez-vous... J'ai lu tout Ruquier)
C'est ce qu'on appelle le "confort internet". Etre tout puissant derrière son petit clavier en étant parfaitement incapable du quart en réalité. Effectivement, MacDeath, ça me rappelle bien une époque.
Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 9 invité(s)
Vous ne pouvez pas publier de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas insérer de pièces jointes dans ce forum