wok-6.x annotate memtest/stuff/unlz4.S @ rev 25493

Add libgnt
author Pascal Bellard <pascal.bellard@slitaz.org>
date Sat Nov 19 17:37:48 2022 +0000 (19 months ago)
parents 2ccf00d9c1cd
children 7f7bd3c9775e
rev   line source
pascal@25487 1 // Lz4Decode:
pascal@13269 2 #ifndef FLAT32
pascal@25487 3 // input ds:si=inStream, es:di=outStream
pascal@25487 4 // output outStream[], ds:si, es:di
pascal@13269 5 .code16
pascal@25487 6 #define AX %ax
pascal@25487 7 #define BX %bx
pascal@25487 8 #define CX %cx
pascal@25487 9 #define SI %si
pascal@25487 10 #define DI %di
pascal@13269 11 #else
pascal@25487 12 // input esi=inStream, edi=outStream
pascal@25487 13 // output outStream[], ds:esi, es:edi
pascal@13269 14 .code32
pascal@25487 15 #define AX %eax
pascal@25487 16 #define BX %ebx
pascal@25487 17 #define CX %ecx
pascal@25487 18 #define SI %esi
pascal@25487 19 #define DI %edi
pascal@13269 20 #endif
pascal@13269 21
pascal@13269 22 #define ARCHIVE_MAGICNUMBER 0x184C2102
pascal@13269 23
pascal@25487 24 //#define PARANOIA // cover rare cases, optional
pascal@25487 25
pascal@13269 26 lz4main:
pascal@25487 27 #ifdef PARANOIA
pascal@13269 28 cld
pascal@25487 29 # if !defined(FLAT32) && !defined(FLAT16OUT)
pascal@25487 30 xorl %cx, %cx
pascal@25487 31 call lz4mov
pascal@25487 32 # endif
pascal@25487 33 #endif
pascal@13269 34 lodsl // get chunkSize
pascal@25492 35 #ifndef NO_LZ4_HEADER
pascal@13269 36 cmpl $ARCHIVE_MAGICNUMBER, %eax
pascal@13269 37 je lz4main
pascal@25492 38 #endif
pascal@13269 39 orl %eax, %eax // end of file ?
pascal@13269 40 je lz4quit
pascal@13269 41 xchgl %eax, %edx
pascal@13269 42 lz4chunk: // uncompress chunk
pascal@13269 43 lodsb // get token
pascal@25487 44 movb %al, %bl
pascal@13269 45 shrb $4, %al
pascal@25493 46 call lz4len // get literal length
pascal@25487 47 subl %ecx, %edx // count literal
pascal@25493 48 #if !defined(FLAT32) && !defined(FLAT16OUT) && (!defined(FLAT16) || !defined(PARANOIA))
pascal@25493 49 #define NeedLz4mov
pascal@13269 50 call lz4mov // copy literals
pascal@25487 51 #else
pascal@25487 52 rep movsb
pascal@25487 53 #endif
pascal@25493 54 subl $1+2, %edx // count token & string address
pascal@25487 55 jle lz4main
pascal@13269 56 lodsw // get string address
pascal@25487 57 xchgw %ax, %bx
pascal@13269 58 call lz4len // get string length
pascal@25487 59 add $4, CX
pascal@25487 60 #if !defined(FLAT32) && !defined(FLAT16OUT)
pascal@13269 61 pushw %ds
pascal@13269 62 pushw %si
pascal@25487 63 movw %di, %si
pascal@25487 64 subw %bx, %si
pascal@25487 65 movw %es, %ax
pascal@25487 66 jnc axok
pascal@25487 67 subb $0x10, %ah
pascal@25487 68 axok:
pascal@25493 69 .macro norm reg
pascal@25493 70 movw %si, \reg
pascal@25493 71 andw $0xF, %si
pascal@25493 72 shrw $4, \reg
pascal@25493 73 addw \reg, %ax
pascal@25487 74 movw %ax, %ds
pascal@25493 75 movw %di, \reg
pascal@25493 76 andw $0xF, %di
pascal@25493 77 shrw $4, \reg
pascal@25493 78 movw %es, %ax
pascal@25493 79 addw \reg, %ax
pascal@25493 80 movw %ax, %es
pascal@25493 81 .endm
pascal@25493 82 # if !defined (NeedLz4mov)
pascal@25493 83 norm %bp
pascal@25493 84 rep movsb
pascal@25493 85 # else
pascal@25493 86 call lz4movStr // copy string
pascal@25493 87 # endif
pascal@13269 88 popw %si
pascal@13269 89 popw %ds
pascal@13269 90 #else
pascal@25487 91 xchg AX, SI
pascal@25487 92 mov DI, SI
pascal@25487 93 sub BX, SI
pascal@25487 94 rep movsb %es(SI), %es(DI)
pascal@25487 95 xchg AX, SI
pascal@13269 96 #endif
pascal@13269 97 jmp lz4chunk
pascal@13269 98
pascal@25493 99 #if defined(NeedLz4mov)
pascal@25487 100 # if defined(PARANOIA)
pascal@25487 101 lz4movlp:
pascal@25487 102 xchgw %ax, %cx
pascal@25487 103 movw $0x3C00, %cx
pascal@25487 104 rep movsl
pascal@25487 105 xchgw %ax, %cx
pascal@25487 106 sub $0xF0, %ch
pascal@25487 107 # endif
pascal@25487 108 lz4mov:
pascal@25493 109 movw %ds, %ax
pascal@25493 110 lz4movStr:
pascal@25493 111 norm %bp
pascal@25487 112 # if defined(PARANOIA)
pascal@25487 113 cmp $0xFF, %ch // catch FFFX case
pascal@25487 114 jz lz4movlp
pascal@25487 115 # endif
pascal@25487 116 rep movsb
pascal@25487 117 ret
pascal@25487 118 #endif
pascal@25487 119
pascal@13269 120 lz4len: // get length in %ecx
pascal@13269 121 andl $0xF, %eax
pascal@13269 122 movl %eax, %ecx
pascal@13269 123 cmpb $0xF, %al
pascal@13269 124 jne lz4quit
pascal@13269 125 lz4len2:
pascal@13269 126 lodsb
pascal@13269 127 decl %edx // remaining chunk size
pascal@25487 128 addw %ax, %cx
pascal@13269 129 cmpb $0xFF, %al
pascal@13269 130 je lz4len2
pascal@13269 131 lz4quit:
pascal@13269 132 ret