wok-current diff memtest/stuff/unlz4.S @ rev 20720
updated aqualung (0.9beta10 -> 1.02)
author | Hans-G?nter Theisgen |
---|---|
date | Fri Feb 08 15:11:05 2019 +0100 (2019-02-08) |
parents | |
children | ed5f25d05ff6 |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/memtest/stuff/unlz4.S Fri Feb 08 15:11:05 2019 +0100 1.3 @@ -0,0 +1,105 @@ 1.4 +/* 1.5 + * Lz4Decode: 1.6 +#ifndef FLAT32 1.7 + * input ds:si=inStream, es:di=outStream 1.8 + * output outStream[], ds:si, es:di 1.9 + .code16 1.10 +#else 1.11 + * input esi=inStream, edi=outStream 1.12 + * output outStream[], esi, edi 1.13 + .code32 1.14 +#endif 1.15 + */ 1.16 + 1.17 +#define ARCHIVE_MAGICNUMBER 0x184C2102 1.18 + 1.19 +lz4main: 1.20 + cld 1.21 + lodsl // get chunkSize 1.22 + cmpl $ARCHIVE_MAGICNUMBER, %eax 1.23 + je lz4main 1.24 + orl %eax, %eax // end of file ? 1.25 + je lz4quit 1.26 + xchgl %eax, %edx 1.27 +lz4chunk: // uncompress chunk 1.28 + lodsb // get token 1.29 + decl %edx 1.30 + movzbl %al, %ebx 1.31 + shrb $4, %al 1.32 + call lz4len // get literal length, %eax < 255 1.33 + incl %ecx 1.34 + stc 1.35 + sbbl %ecx, %edx 1.36 + pushf 1.37 + call lz4mov // copy literals 1.38 + popf 1.39 + js lz4main 1.40 + lodsw // get string address 1.41 +#ifndef FLAT32 1.42 + pushw %bx 1.43 + movw %di, %bx 1.44 + subl %eax, %ebx 1.45 + popw %ax 1.46 + call lz4len // get string length 1.47 + pushw %ds 1.48 + pushw %si 1.49 + pushw %es 1.50 + popw %ds 1.51 + movw $0xF, %si 1.52 + andw %bx, %si 1.53 + shrl $4, %ebx 1.54 + addl $4+1, %ecx 1.55 + movw %bx, %bp 1.56 + call lz4mov2 // copy string 1.57 + popw %si 1.58 + popw %ds 1.59 +#else 1.60 + negl %eax 1.61 + xchgl %eax, %ebx 1.62 + addl %edi, %ebx 1.63 + call lz4len // get string length 1.64 + pushl %esi 1.65 + xchgl %ebx, %esi 1.66 + call lz4mov // copy string 1.67 + popl %esi 1.68 +#endif 1.69 + jmp lz4chunk 1.70 + 1.71 +lz4len: // get length in %ecx 1.72 + andl $0xF, %eax 1.73 + movl %eax, %ecx 1.74 + cmpb $0xF, %al 1.75 + jne lz4quit 1.76 +lz4len2: 1.77 + lodsb 1.78 + decl %edx // remaining chunk size 1.79 + addl %eax, %ecx 1.80 + cmpb $0xFF, %al 1.81 + je lz4len2 1.82 +lz4quit: 1.83 + ret 1.84 + 1.85 +lz4movlp: 1.86 + movsb 1.87 +#ifndef FLAT32 1.88 + movw $0x800, %bp 1.89 + orw %di, %di 1.90 + jns lz4di 1.91 + subw $0x8000, %di 1.92 + movw %es, %ax 1.93 + addw %bp, %ax 1.94 + movw %ax, %es 1.95 +lz4di: 1.96 + orw %si, %si 1.97 + jns lz4si 1.98 + subw $0x8000, %si 1.99 +lz4mov2: 1.100 + movw %ds, %ax 1.101 + addw %bp, %ax 1.102 + movw %ax, %ds 1.103 +lz4si: 1.104 +#endif 1.105 +lz4mov: 1.106 + decl %ecx 1.107 + jnz lz4movlp 1.108 + ret