;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; For LUtils 
;     by Lin Wei 2000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.486p
.DOSSEG
.MODEL FLAT,C
.CODE

; void LGMemListCpy(char *dest,long len,short *list,char *source);
; void LMemCpyMap(char *dest,char *source,long len,char **map);
;////////////////////////////////////////////////////////////////////////////
LGMemListCpy  PROC PUBLIC USES ESI EDI EDX ECX EAX EBX,
                       DEST:DWORD, LEN:DWORD, LIST:DWORD, SOURCE:DWORD
               cld
               mov edi,DEST
               mov esi,SOURCE
               mov edx,LIST
               mov ecx,LEN
               sub ax,ax
               sub ebx,ebx
            pixel_loop:
               mov bx,[edx]
               inc edx
               inc edx
               mov al,[esi+ebx]
               cmp al,ah
               jz  skip
               mov [edi],al
            skip:
               inc edi
               dec ecx
               jnz pixel_loop
               ret
LGMemListCpy  ENDP

LMemCpyMap PROC PUBLIC USES ESI EDI ECX EBX EDX AX,
                       DEST:DWORD, SOURCE:DWORD, LEN:DWORD, MAP:DWORD
               cld
               mov esi,source
               mov edi,dest
               mov ecx,len
               mov edx,map
               sub ebx,ebx
               sub eax,eax
          _for:mov al,[esi]
               cmp al,0
               jz _next
               mov ah,al
               mov al,[edi]
               mov bx,ax
               mov al,[edx+ebx]
               mov [edi],al
         _next:inc esi
               inc edi
               dec ecx
               jnz _for
               ret
LMemCpyMap ENDP

END