+- The VG Resource (https://www.vg-resource.com)
+-- Forum: Archive (https://www.vg-resource.com/forum-65.html)
+--- Forum: July 2014 Archive (https://www.vg-resource.com/forum-139.html)
+---- Forum: The Resource (https://www.vg-resource.com/forum-85.html)
+----- Forum: The Spriters Resource (https://www.vg-resource.com/forum-5.html)
+------ Forum: Submissions (https://www.vg-resource.com/forum-34.html)
+------- Forum: PC / Computer (https://www.vg-resource.com/forum-44.html)
+------- Thread: Might & Magic 4: Clouds of Xeen (/thread-21071.html)
Pages:
1
2
RE: Might & Magic 4: Clouds of Xeen - gensym - 08-11-2012
(08-09-2012, 09:55 PM)Cyrus Annihilator Wrote: oh, might and magic rips are gone...I'm sorry Cyrus. Now I got you involved into this too :-(
(08-11-2012, 08:12 AM)Davy Jones Wrote: Mh, the first three sheets just need icons since they look fine to me.I can give you unpacker source code, it extracts raw frames. You can merger them yourself anyway you want.
The two monster sheets can be merged together, shouldn't be too much work.
Edit: Can someone give me the direct links for the two monster sheets?
Anyway, I have a thread on http://0chan.ru/8/res/31165.html, where I post various dumps. Image boards has much less stricter posting rules.
RE: Might & Magic 4: Clouds of Xeen - Cyrus Annihilator - 08-12-2012
It works with other Might and Magic games (1, 2, 3 and 5)?
RE: Might & Magic 4: Clouds of Xeen - gensym - 08-12-2012
(08-12-2012, 10:57 AM)Cyrus Annihilator Wrote: It works with other Might and Magic games (1, 2, 3 and 5)?It works with MM 4 to 8. Still I have LZW algorithm for MM3, but it's in old DOS assembly and I'm too lazy to convert it.
Code:
unsigned Char MM3Palette[] = {
0x00, 0x00, 0x00, 0x3F, 0x3F, 0x3F, 0x3C, 0x3C,
0x3C, 0x3A, 0x3A, 0x3A, 0x38, 0x38, 0x38, 0x35,
0x35, 0x35, 0x33, 0x33, 0x33, 0x31, 0x31, 0x31,
0x2F, 0x2F, 0x2F, 0x2C, 0x2C, 0x2C, 0x2A, 0x2A,
0x2A, 0x28, 0x28, 0x28, 0x25, 0x25, 0x25, 0x23,
0x23, 0x23, 0x21, 0x21, 0x21, 0x1F, 0x1F, 0x1F,
0x1D, 0x1D, 0x1D, 0x1B, 0x1B, 0x1B, 0x19, 0x19,
0x19, 0x17, 0x17, 0x17, 0x15, 0x15, 0x15, 0x13,
0x13, 0x13, 0x11, 0x11, 0x11, 0x0F, 0x0F, 0x0F,
0x0D, 0x0D, 0x0D, 0x0B, 0x0B, 0x0B, 0x09, 0x09,
0x09, 0x07, 0x07, 0x07, 0x05, 0x05, 0x05, 0x03,
0x03, 0x03, 0x01, 0x01, 0x01, 0x00, 0x00, 0x00,
0x3F, 0x3A, 0x3A, 0x3E, 0x35, 0x35, 0x3D, 0x30,
0x30, 0x3C, 0x2C, 0x2C, 0x3B, 0x28, 0x28, 0x3A,
0x23, 0x23, 0x39, 0x1F, 0x1F, 0x39, 0x1B, 0x1B,
0x38, 0x17, 0x17, 0x37, 0x13, 0x13, 0x36, 0x10,
0x10, 0x35, 0x0C, 0x0C, 0x34, 0x08, 0x08, 0x33,
0x05, 0x05, 0x32, 0x02, 0x02, 0x32, 0x00, 0x00,
0x2E, 0x00, 0x00, 0x2A, 0x00, 0x00, 0x26, 0x00,
0x00, 0x21, 0x00, 0x00, 0x1D, 0x00, 0x00, 0x19,
0x00, 0x00, 0x15, 0x00, 0x00, 0x11, 0x00, 0x00,
0x0D, 0x00, 0x00, 0x3F, 0x1D, 0x00, 0x37, 0x19,
0x00, 0x30, 0x16, 0x00, 0x28, 0x12, 0x00, 0x21,
0x0F, 0x00, 0x19, 0x0B, 0x00, 0x12, 0x08, 0x00,
0x3F, 0x3F, 0x36, 0x3F, 0x3F, 0x2E, 0x3E, 0x3F,
0x26, 0x3E, 0x3F, 0x1E, 0x3E, 0x3F, 0x16, 0x3D,
0x3F, 0x0E, 0x3D, 0x3F, 0x06, 0x3B, 0x3D, 0x00,
0x3B, 0x3B, 0x00, 0x38, 0x37, 0x00, 0x35, 0x33,
0x00, 0x32, 0x2E, 0x00, 0x2F, 0x2A, 0x00, 0x2C,
0x26, 0x00, 0x29, 0x22, 0x00, 0x26, 0x1F, 0x00,
0x22, 0x1A, 0x00, 0x1E, 0x16, 0x00, 0x1A, 0x12,
0x00, 0x16, 0x0F, 0x00, 0x12, 0x0B, 0x00, 0x0E,
0x08, 0x00, 0x0A, 0x05, 0x00, 0x06, 0x03, 0x00,
0x36, 0x3F, 0x16, 0x31, 0x3B, 0x11, 0x2D, 0x38,
0x0D, 0x29, 0x34, 0x0A, 0x25, 0x31, 0x06, 0x21,
0x2D, 0x03, 0x1D, 0x2A, 0x01, 0x1A, 0x27, 0x00,
0x15, 0x24, 0x00, 0x13, 0x21, 0x00, 0x12, 0x1F,
0x00, 0x11, 0x1D, 0x00, 0x10, 0x1B, 0x00, 0x0E,
0x19, 0x00, 0x0D, 0x17, 0x00, 0x0C, 0x15, 0x00,
0x0B, 0x13, 0x00, 0x2F, 0x3E, 0x2F, 0x27, 0x3C,
0x26, 0x20, 0x3A, 0x1F, 0x17, 0x38, 0x17, 0x10,
0x37, 0x10, 0x0B, 0x35, 0x0A, 0x0A, 0x32, 0x09,
0x08, 0x2F, 0x08, 0x07, 0x2D, 0x07, 0x06, 0x2A,
0x06, 0x05, 0x27, 0x04, 0x04, 0x24, 0x04, 0x03,
0x22, 0x03, 0x02, 0x1F, 0x02, 0x02, 0x1C, 0x02,
0x01, 0x1A, 0x01, 0x01, 0x17, 0x01, 0x01, 0x14,
0x00, 0x00, 0x11, 0x00, 0x00, 0x0F, 0x00, 0x00,
0x0C, 0x00, 0x00, 0x09, 0x00, 0x00, 0x07, 0x00,
0x3C, 0x3C, 0x3F, 0x38, 0x38, 0x3F, 0x33, 0x33,
0x3F, 0x2F, 0x2F, 0x3F, 0x2B, 0x2C, 0x3F, 0x27,
0x28, 0x3F, 0x23, 0x23, 0x3F, 0x1F, 0x20, 0x3F,
0x1B, 0x1C, 0x3F, 0x17, 0x18, 0x3F, 0x13, 0x14,
0x3F, 0x0F, 0x10, 0x3F, 0x0B, 0x0C, 0x3F, 0x07,
0x08, 0x3F, 0x03, 0x04, 0x3F, 0x00, 0x01, 0x3F,
0x00, 0x00, 0x3F, 0x00, 0x00, 0x3B, 0x00, 0x00,
0x37, 0x00, 0x00, 0x33, 0x00, 0x00, 0x2F, 0x00,
0x00, 0x2B, 0x00, 0x00, 0x27, 0x00, 0x00, 0x24,
0x00, 0x00, 0x20, 0x00, 0x00, 0x1C, 0x00, 0x00,
0x18, 0x00, 0x00, 0x14, 0x00, 0x00, 0x10, 0x00,
0x00, 0x0C, 0x00, 0x00, 0x08, 0x00, 0x00, 0x05,
0x3C, 0x36, 0x3F, 0x39, 0x2E, 0x3F, 0x36, 0x27,
0x3F, 0x34, 0x1F, 0x3F, 0x32, 0x17, 0x3F, 0x2F,
0x10, 0x3F, 0x2D, 0x08, 0x3F, 0x2A, 0x00, 0x3F,
0x26, 0x00, 0x39, 0x20, 0x00, 0x32, 0x1B, 0x00,
0x2B, 0x15, 0x00, 0x23, 0x0F, 0x00, 0x1B, 0x0A,
0x00, 0x14, 0x06, 0x00, 0x0C, 0x02, 0x00, 0x05,
0x33, 0x3F, 0x3F, 0x2D, 0x3B, 0x3B, 0x27, 0x38,
0x38, 0x22, 0x35, 0x35, 0x1D, 0x32, 0x32, 0x19,
0x2F, 0x2F, 0x14, 0x2B, 0x2B, 0x11, 0x28, 0x28,
0x0D, 0x24, 0x24, 0x09, 0x1F, 0x1F, 0x07, 0x1B,
0x1B, 0x04, 0x17, 0x17, 0x02, 0x13, 0x13, 0x01,
0x0F, 0x0F, 0x00, 0x0B, 0x0B, 0x00, 0x07, 0x07,
0x3A, 0x3C, 0x3E, 0x36, 0x3A, 0x3D, 0x31, 0x37,
0x3D, 0x2D, 0x35, 0x3D, 0x29, 0x33, 0x3C, 0x25,
0x31, 0x3C, 0x21, 0x30, 0x3C, 0x1D, 0x2E, 0x3B,
0x19, 0x2C, 0x3B, 0x15, 0x2B, 0x3B, 0x11, 0x29,
0x3A, 0x0D, 0x28, 0x3A, 0x0A, 0x26, 0x3A, 0x06,
0x25, 0x39, 0x02, 0x24, 0x39, 0x01, 0x21, 0x36,
0x01, 0x1F, 0x33, 0x00, 0x1D, 0x30, 0x00, 0x1B,
0x2D, 0x00, 0x19, 0x2B, 0x00, 0x17, 0x28, 0x00,
0x15, 0x25, 0x00, 0x14, 0x22, 0x00, 0x12, 0x1F,
0x00, 0x10, 0x1C, 0x00, 0x0E, 0x18, 0x00, 0x0C,
0x15, 0x00, 0x0A, 0x12, 0x00, 0x08, 0x0F, 0x00,
0x06, 0x0C, 0x00, 0x05, 0x09, 0x00, 0x03, 0x06,
0x3F, 0x3A, 0x37, 0x3F, 0x37, 0x33, 0x3F, 0x35,
0x30, 0x3F, 0x33, 0x2C, 0x3F, 0x31, 0x29, 0x3F,
0x2F, 0x25, 0x3F, 0x2D, 0x22, 0x3F, 0x2B, 0x1F,
0x3F, 0x29, 0x1B, 0x3F, 0x27, 0x18, 0x3C, 0x25,
0x17, 0x3A, 0x24, 0x16, 0x38, 0x22, 0x15, 0x36,
0x21, 0x14, 0x34, 0x20, 0x14, 0x32, 0x1F, 0x13,
0x2F, 0x1D, 0x11, 0x2C, 0x1B, 0x10, 0x29, 0x1A,
0x0E, 0x26, 0x18, 0x0D, 0x23, 0x16, 0x0C, 0x20,
0x15, 0x0A, 0x1D, 0x13, 0x09, 0x1A, 0x11, 0x08,
0x17, 0x0F, 0x07, 0x14, 0x0D, 0x06, 0x11, 0x0C,
0x05, 0x0E, 0x0A, 0x03, 0x0B, 0x08, 0x03, 0x09,
0x06, 0x02, 0x06, 0x04, 0x01, 0x3F, 0x3F, 0x3F};
cseg segment para public 'code'
assume cs:cseg,ds:cseg
org 100h
.286
start: mov dx,offset wjcp
mov ah,9
int 21h
mov ax,cs ;release memory
dec ax
mov ds,ax
mov ax,ds:[0003h]
mov cs:svmsz,ax
mov ah,4Ah
mov bx,1000h
int 21h
push cs
pop ds
mov si,80h ;parse parameters
lodsb
cbw
mov cx,ax
jcxz mxx
mov di,si
mov al,' '
repe scasb
jne mnx
mxx: jmp mx
mnx: dec di
mov svnof,di
inc di
repne scasb
mov ax,2400h ;#0'$'
jne m1
dec di
m1: stosw
mov ax,2
call dirrd ;load compressed directory
xor ax,ax
call dirrd ;load uncompressed directory
mov dx,offset pstr1
mov ah,9
int 21h
mov dx,svnof
mov ah,9
int 21h
mov dx,offset pstr2
mov ah,9
int 21h
mov bx,cs
mov ax,svnof
xor cx,cx
call decomp ;decompress file
push bx
mov bx,fdesc ;close sources
or bx,bx
jz m2
mov ah,3Eh
int 21h
jc errout
m2: mov bx,fdesc+2
mov ah,3Eh
int 21h
jc errout
mov ah,3Ch ;save file
mov cx,20h
mov dx,svnof
int 21h
jc errout
mov bx,ax
mov ah,40h
mov cx,fsiz
pop ds
xor dx,dx
int 21h
jc errout
mov ah,3Eh
int 21h
jc errout
push cs
pop ds
mov dx,offset pstr3
mov ah,9
int 21h
int 20h
mx: mov dx,offset perr
mov ah,9
int 21h
int 20h
memget proc near ;in BX=size,out BX=seg
add bx,15
rcr bx,1
shr bx,3
push bx
mov bx,2
mov ax,5801h
int 21h
pop bx
mov ah,48h
int 21h
push ax
pushf
xor bx,bx
mov ax,5801h
int 21h
popf
pop bx
jc errou1
retn
memget endp
errout: mov dx,offset derr
jmp short ma1
errou1: mov dx,offset merr
ma1: push cs
pop ds
mov ah,9
int 21h
int 20h
merr db 'Out of memory!',13,10,'$'
derr db 'Disk error!',13,10,'$'
pstr3 db 'Done!',13,10,'$'
svmsz dw 0
svnsg dw 0
svnof dw 0
dirrd proc near ;in AX=2 for compressed,0 for uncompressed
push es
push ds
push si
push di
mov si,ax
mov dx,offset fnm1
shl ax,2
add dx,ax
push cs
pop ds
mov ax,si
xor al,2
mov ah,3Dh
int 21h
jc errout
mov cs:fdesc[si],ax
mov dx,offset flen
add dx,si
mov cx,2
mov bx,ax
mov ah,3Fh
int 21h
jc errout
xor dx,dx
mov cx,dx
mov ax,4200h
int 21h
jc errout
mov bx,cs:flen[si]
shl bx,3
inc bx
inc bx
push bx
push bx
call memget
mov cs:dirseg[si],bx
mov ds,bx
xor dx,dx
pop cx
mov bx,cs:fdesc[si]
mov ah,3Fh
int 21h
jnc mr1
jmp errout
mr1: pop cx
mov di,2
sub cx,di
mov es,cs:dirseg[si]
mov ah,0ACh
mr2: mov al,es:[di]
rol al,2
add al,ah
stosb
add ah,67h
loop mr2
pop di
pop si
pop ds
pop es
retn
dirrd endp
decomp proc near ;in BX:AX @filename,out BX file seg
push bp
push ds
push es
push si
push di
mov cs:svtsg,cx
mov cs:svnsg,bx
mov cs:svnof,ax
mov ds,bx
mov si,ax
xor bx,bx
mov bp,bx
mov cx,4
mov dx,7F60h
md1: lodsb ;in which file?
and al,dh
cmp al,dl
jb md2
sub al,20h
md2: cmp al,cs:nmv[bx]
je md3
mov bp,2 ;if not in unpacked
md3: inc bx
loop md1
sub si,4
xor ax,ax
mov bx,ax
md4: lodsb ;name checksum=?
or ax,ax
jz md5
and al,dh
cmp al,dl
jb md6
sub al,20h
md6: xchg bl,bh
rol bx,1
add bx,ax
jmp short md4
md5: mov ds,cs:dirseg[bp] ;now BX=chksum
xor si,si
lodsw
mov cx,ax
mov di,8
md7: cmp bx,[si]
je md9
add si,di
loop md7
mderr: jmp errout ;file not found
md9: xor cx,cx
lodsw
lodsw
mov dx,ax
lodsb
mov cl,al
lodsw
mov cs:flen[bp],ax
mov bx,cs:fdesc[bp]
mov ax,4200h
int 21h
jc mderr
mov bx,cs:flen[bp]
or bp,bp
jnz md11 ;if packed
mov cs:fsiz,bx ;MOE
mov ax,cs:svtsg ;unpacked file load part
or ax,ax
jnz md10
call memget
mov ax,bx
md10: mov cs:tsg,ax
mov ds,ax
xor dx,dx
mov cx,cs:flen
mov bx,cs:fdesc
mov ah,3Fh
int 21h
jc mderr
mov bx,cs:tsg
jmp md21
md11: push cs ;packed file load part
pop ds
mov dx,offset hbuf
mov cx,4
mov bx,fdesc+2
mov ah,3Fh
int 21h
jc mderr
mov bx,hbuf+2
xchg bl,bh
mov fsiz,bx
add bx,16
push bx
mov ax,cs:svtsg
or ax,ax
jnz md12
call memget
mov ax,bx
md12: mov cs:tsg,ax
mov ds,ax
mov cx,cs:flen+2
sub cx,4
pop dx
sub dx,cx
mov cs:plofs,dx
mov bx,cs:fdesc+2
mov ah,3Fh
int 21h
jnc md13
jmp mderr
md13: push cs
push cs
pop ds
pop es
xor ax,ax
mov var1,ax
mov var2,8000h
mov bx,ax
inc ax
mov cx,arrl
mov dx,arrl*4-2
mov di,offset arr1
md14: stosw
mov arr2[bx],bx
mov si,bx
add si,dx
mov arr3[bx],si
inc bx
inc bx
loop md14
xor bx,bx
mov si,arrl*2
mov cx,arrl-1
md15: mov ax,arr1[bx]
add ax,arr1[bx+2]
mov arr1[si],ax
mov arr3[si],bx
mov arr4[bx],si
mov arr4[bx+2],si
add bx,4
inc si
inc si
loop md15
mov ax,cs:hbuf
mov arr2-2,cx
dec cx
mov arr4-2,cx
mov cx,ar5l*2
mov var3,cx
shr cx,1
mov di,offset arr5
rep stosw
mov es,cs:tsg
mov var4,cx
md16: mov ax,var4
cmp ax,fsiz
jae md20
mov bx,word ptr arrx-2
mov dx,arrl*4-2
md17: cmp bx,dx
jae md19
xor cx,cx
shl var2,1
jz md22
md18: rcl cx,1
shl cx,1
add bx,cx
mov bx,arr3[bx]
jmp short md17
md19: sub bx,dx
push bx
cmp arr4-4,8000h
je md23
jmp md30
md20: mov bx,tsg
md21: pop di
pop si
pop es
pop ds
pop bp
retn
md22: mov si,plofs
add plofs,2
mov ax,es:[si]
xchg al,ah
stc
rcl ax,1
mov var2,ax
jmp short md18
md23: push bx ;control never comes here!
xor di,di ;part from here to md30 is
mov bx,di ;absolutely unnecessary!
mov cx,arrl*4-2 ;moreover,it never can
mov dx,cx ;to run properly!
md24: cmp arr3[bx],dx
jb md25
mov ax,arr1[bx]
inc ax
shr ax,1
mov arr1[di],ax
mov ax,arr3[bx]
mov arr3[di],ax
inc di
inc di
md25: inc bx
inc bx
loop md24
xor bx,bx
mov di,arrl*2
mov cx,arrl-1
std
md26: push cx
mov ax,arr1[bx]
add ax,arr1[bx+2]
mov arr1[di],ax
mov bp,di
md27: dec bp
dec bp
cmp ax,ds:arr1[bp]
jb md27
inc bp
inc bp
mov cx,di
sub cx,bp
mov dx,cx
shr cx,1
push di
mov di,offset arr1
add di,bp
add di,dx
mov si,di
dec si
dec si
rep movsw
mov ds:arr1[bp],ax
mov cx,dx
shr cx,1
mov di,offset arr3
add di,bp
add di,dx
mov si,di
dec si
dec si
rep movsw
pop di
mov ds:arr3[bp],bx
add bx,4
inc di
inc di
pop cx
loop md26
cld
xor ax,ax
mov bx,ax
mov cx,4*arrl-2
mov si,offset arr4
mov dx,si
add dx,cx
shr cx,1
md28: mov di,arr3[bx]
add di,si
cmp di,dx
jae md29
stosw
md29: stosw
inc ax
inc ax
inc bx
inc bx
loop md28
pop bx ;end of unnecessary part
md30: mov bx,arr2[bx]
md31: inc arr1[bx]
mov dx,arr1[bx]
cmp dx,arr1[bx+2]
jbe md35
mov bp,bx
mov cx,2
add bp,cx
md32: add bp,cx
cmp dx,ds:arr1[bp]
ja md32
sub bp,cx
mov ax,ds:arr1[bp]
mov arr1[bx],ax
mov arr1[bp],dx
mov si,arr3[bx]
mov arr4[si],bp
cmp si,4*arrl-2
jae md33
mov arr4[si+2],bp
md33: mov di,ds:arr3[bp]
mov ds:arr3[bp],si
mov arr4[di],bx
cmp di,4*arrl-2
jae md34
mov arr4[di+2],bx
md34: mov arr3[bx],di
mov bx,bp
md35: mov bx,arr4[bx]
or bx,bx
jnz md31
pop bx
shr bx,1
cmp bx,100h
jae md38
mov di,var1
mov ax,bx
stosb
mov var1,di
mov di,var3
inc var3
mov byte ptr arr5[di],al
and var3,0FFFh
inc var4
jmp md16
md36: mov si,plofs
add plofs,2
mov ax,es:[si]
xchg al,ah
stc
md37: rcl ax,1
rcl bx,1
loop md37
jmp short md40
md38: mov bp,bx
mov cx,8
xor bx,bx
mov ax,var2
md39: shl ax,1
jz md36
rcl bx,1
loop md39
md40: mov var2,ax
xor ax,ax
mov al,arrx[bx+100h]
mov cl,6
shl ax,cl
push ax
xor dx,dx
mov dl,arrx[bx]
dec dx
md41: dec dx
jz md44
shl var2,1
jz md43
md42: rcl bx,1
jmp short md41
md43: mov si,plofs
add plofs,2
mov ax,es:[si]
xchg al,ah
stc
rcl ax,1
mov var2,ax
jmp short md42
md44: pop ax
and bl,3Fh
or al,bl
mov bx,bp
mov si,var3
sub si,ax
dec si
mov dx,0FFFh
mov cx,bx
sub cx,0FDh
md45: and si,dx
mov al,byte ptr arr5[si]
mov di,var1
stosb
mov var1,di
mov di,var3
mov byte ptr arr5[di],al
inc di
and di,dx
mov var3,di
inc var4
inc si
loop md45
jmp md16
decomp endp
var3 dw ? ;:0640
var4 dw ? ;:0642
dirseg dw ?,? ;:0644 ;file directory segments
fdesc dw 0,0 ;:0648 ;file descriptors
flen dw ?,? ;:064C ;loadable file length
svtsg dw ? ;:0650 ;if<>0,target segment for loading
nmv db 'MAZE' ;:0652 ;unpacked files' name 1st part
plofs dw ? ;:0656 ;packed file load offset
tsg dw ? ;:0658 ;target segment for loading
var1 dw ? ;:065A
var2 dw ? ;:065C
hbuf dw ?,? ;:065E ;buffer for header read
fsiz dw ? ;:0662 ;packed file real length
fnm1 db 'mm3.cur',0 ;:066A
fnm2 db 'mm3.cc',0 ;:0672
wjcp db 'Might and Magic ]I[ resource unpacker',13,10
db 'Copyright (C) 1995 by WhiteJaguar',13,10,10,'$'
perr db 'Usage:MM3DCM filename',13,10,'$'
pstr1 db 'Unpacking $'
pstr2 db '... $'
org fnm2
ar5l equ 7E2h
arr5 dw ar5l dup(?) ;:0672
dw 7Eh dup(?) ;free(?) space
arrl equ 13Ah
arr1 dw arrl dup(?) ;:16B4
arr1a dw arrl dup(?) ;:1928
arr4 dw 2*arrl-1 dup(?) ;:1B9C
arr2 dw arrl dup(?) ;:2082
arr3 dw arrl dup(?) ;:22F6
arr3a dw arrl-1 dup(?) ;:256A
arrx equ this byte ;:27DC ;this is initialized data!
db 20h dup(3),30h dup(4),40h dup(5),30h dup(6),30h dup(7)
db 10h dup(8),20h dup(0),10h dup(1),10h dup(2),10h dup(3)
db 8 dup(4),8 dup(5),8 dup(6),8 dup(7),8 dup(8),8 dup(9)
db 8 dup(10),8 dup(11),4 dup(12),4 dup(13),4 dup(14),4 dup(15)
db 4 dup(16),4 dup(17),4 dup(18),4 dup(19),4 dup(20),4 dup(21)
db 4 dup(22),4 dup(23),24,24,25,25,26,26,27,27,28,28,29,29,30,30
db 31,31,' !!""##$$%%&&''''(())**++,,--..//0123456789:;<=>?'
cseg ends
end start
cseg segment para public 'code'
assume cs:cseg,ds:cseg
org 100h
.286
start: mov ax,ds
add ax,1000h
mov dirseg+2,ax
mov ax,2
call dirrd ;load compressed directory
mov ax,flen+2
shl ax,3
add ax,17
rcr ax,1
shr ax,3
add ax,dirseg+2
mov fileseg,ax
mlp: mov ax,cs:fnmr
cmp ax,22Eh
jae mqq
xor cx,cx
call decomp ;decompress file
push bx
mov ah,3Ch ;save file
mov cx,20h
mov dx,offset rznm
int 21h
jc errout
mov bx,ax
mov ah,40h
mov cx,fsiz
pop ds
xor dx,dx
int 21h
jc errout
mov ah,3Eh
int 21h
push cs
pop ds
mov bx,offset smtb
mov di,offset rznm+5
mov ax,fnmr
inc ax
mov fnmr,ax
xchg ah,al
xlat
mov [di],al
mov al,ah
aam 16
xlat
mov [di]+2,al
mov al,ah
xlat
mov [di]+1,al
jmp mlp
smtb db '0123456789ABCDEF'
mqq: mov bx,fdesc+2
mov ah,3Eh
int 21h
jc errout
mov dx,offset pstr3
jnc mm1
errout: mov dx,offset derr
mm1: push cs
pop ds
mov ah,9
int 21h
int 20h
derr db 'Disk error!',13,10,'$'
pstr3 db 'Done!',13,10,'$'
svmsz dw 0
svnsg dw 0
svnof dw 0
dirrd proc near ;in AX=2 for compressed,0 for uncompressed
push es
push ds
push si
push di
mov si,ax
mov dx,offset fnm1
shl ax,2
add dx,ax
push cs
pop ds
mov ax,si
xor al,2
mov ah,3Dh
int 21h
jc errout
mov cs:fdesc[si],ax
mov dx,offset flen
add dx,si
mov cx,2
mov bx,ax
mov ah,3Fh
int 21h
jc errout
xor dx,dx
mov cx,dx
mov ax,4200h
int 21h
jc errout
mov bx,cs:flen[si]
shl bx,3
inc bx
inc bx
push bx
push bx
mov ds,cs:dirseg[si]
xor dx,dx
pop cx
mov bx,cs:fdesc[si]
mov ah,3Fh
int 21h
jnc mr1
jmp errout
mr1: pop cx
mov di,2
sub cx,di
mov es,cs:dirseg[si]
mov ah,0ACh
mr2: mov al,es:[di]
rol al,2
add al,ah
stosb
add ah,67h
loop mr2
pop di
pop si
pop ds
pop es
retn
dirrd endp
decomp proc near ;in BX:AX @filename,out BX file seg
push bp
push ds
push es
push si
push di
mov cs:svtsg,cx
mov bp,2 ;not unpacked
mov ds,cs:dirseg[bp]
mov si,ax
shl si,3
inc si
inc si
xor cx,cx
lodsw
lodsw
mov dx,ax
lodsb
mov cl,al
lodsw
mov cs:flen[bp],ax
mov bx,cs:fdesc[bp]
mov ax,4200h
int 21h
mov bx,cs:flen[bp]
md11: push cs ;packed file load part
pop ds
mov dx,offset hbuf
mov cx,4
mov bx,fdesc+2
mov ah,3Fh
int 21h
mov bx,hbuf+2
xchg bl,bh
mov fsiz,bx
add bx,16
push bx
mov ax,cs:svtsg
or ax,ax
jnz md12
mov ax,cs:fileseg
md12: mov cs:tsg,ax
mov ds,ax
mov cx,cs:flen+2
sub cx,4
pop dx
sub dx,cx
mov cs:plofs,dx
mov bx,cs:fdesc+2
mov ah,3Fh
int 21h
push cs
push cs
pop ds
pop es
xor ax,ax
mov var1,ax
mov var2,8000h
mov bx,ax
inc ax
mov cx,arrl
mov dx,arrl*4-2
mov di,offset arr1
md14: stosw
mov arr2[bx],bx
mov si,bx
add si,dx
mov arr3[bx],si
inc bx
inc bx
loop md14
xor bx,bx
mov si,arrl*2
mov cx,arrl-1
md15: mov ax,arr1[bx]
add ax,arr1[bx+2]
mov arr1[si],ax
mov arr3[si],bx
mov arr4[bx],si
mov arr4[bx+2],si
add bx,4
inc si
inc si
loop md15
mov ax,cs:hbuf
mov arr2-2,cx
dec cx
mov arr4-2,cx
mov cx,ar5l*2
mov var3,cx
shr cx,1
mov di,offset arr5
rep stosw
mov es,cs:tsg
mov var4,cx
md16: mov ax,var4
cmp ax,fsiz
jae md20
mov bx,word ptr arrx-2
mov dx,arrl*4-2
md17: cmp bx,dx
jae md19
xor cx,cx
shl var2,1
jz md22
md18: rcl cx,1
shl cx,1
add bx,cx
mov bx,arr3[bx]
jmp short md17
md19: sub bx,dx
push bx
cmp arr4-4,8000h
je md23
jmp md30
md20: mov bx,tsg
md21: pop di
pop si
pop es
pop ds
pop bp
retn
md22: mov si,plofs
add plofs,2
mov ax,es:[si]
xchg al,ah
stc
rcl ax,1
mov var2,ax
jmp short md18
md23: int 20h ;control never comes here!
md30: mov bx,arr2[bx]
md31: inc arr1[bx]
mov dx,arr1[bx]
cmp dx,arr1[bx+2]
jbe md35
mov bp,bx
mov cx,2
add bp,cx
md32: add bp,cx
cmp dx,ds:arr1[bp]
ja md32
sub bp,cx
mov ax,ds:arr1[bp]
mov arr1[bx],ax
mov arr1[bp],dx
mov si,arr3[bx]
mov arr4[si],bp
cmp si,4*arrl-2
jae md33
mov arr4[si+2],bp
md33: mov di,ds:arr3[bp]
mov ds:arr3[bp],si
mov arr4[di],bx
cmp di,4*arrl-2
jae md34
mov arr4[di+2],bx
md34: mov arr3[bx],di
mov bx,bp
md35: mov bx,arr4[bx]
or bx,bx
jnz md31
pop bx
shr bx,1
cmp bx,100h
jae md38
mov di,var1
mov ax,bx
stosb
mov var1,di
mov di,var3
inc var3
mov byte ptr arr5[di],al
and var3,0FFFh
inc var4
jmp md16
md36: mov si,plofs
add plofs,2
mov ax,es:[si]
xchg al,ah
stc
md37: rcl ax,1
rcl bx,1
loop md37
jmp short md40
md38: mov bp,bx
mov cx,8
xor bx,bx
mov ax,var2
md39: shl ax,1
jz md36
rcl bx,1
loop md39
md40: mov var2,ax
xor ax,ax
mov al,arrx[bx+100h]
mov cl,6
shl ax,cl
push ax
xor dx,dx
mov dl,arrx[bx]
dec dx
md41: dec dx
jz md44
shl var2,1
jz md43
md42: rcl bx,1
jmp short md41
md43: mov si,plofs
add plofs,2
mov ax,es:[si]
xchg al,ah
stc
rcl ax,1
mov var2,ax
jmp short md42
md44: pop ax
and bl,3Fh
or al,bl
mov bx,bp
mov si,var3
sub si,ax
dec si
mov dx,0FFFh
mov cx,bx
sub cx,0FDh
md45: and si,dx
mov al,byte ptr arr5[si]
mov di,var1
stosb
mov var1,di
mov di,var3
mov byte ptr arr5[di],al
inc di
and di,dx
mov var3,di
inc var4
inc si
loop md45
jmp md16
decomp endp
fnmr dw 2
rznm db 'file0002',0
fileseg dw ?
var3 dw ? ;:0640
var4 dw ? ;:0642
dirseg dw ?,? ;:0644 ;file directory segments
fdesc dw 0,0 ;:0648 ;file descriptors
flen dw ?,? ;:064C ;loadable file length
svtsg dw ? ;:0650 ;if<>0,target segment for loading
plofs dw ? ;:0656 ;packed file load offset
tsg dw ? ;:0658 ;target segment for loading
var1 dw ? ;:065A
var2 dw ? ;:065C
hbuf dw ?,? ;:065E ;buffer for header read
fsiz dw ? ;:0662 ;packed file real length
fnm1 db 'mm3.cur',0 ;:066A
fnm2 db 'mm3.cc',0 ;:0672
ar5l equ 7E2h
arr5 dw ar5l dup(?) ;:0672
dw 7Eh dup(?) ;free(?) space
arrl equ 13Ah
arr1 dw arrl dup(?) ;:16B4
arr1a dw arrl dup(?) ;:1928
arr4 dw 2*arrl-1 dup(?) ;:1B9C
arr2 dw arrl dup(?) ;:2082
arr3 dw arrl dup(?) ;:22F6
arr3a dw arrl-1 dup(?) ;:256A
arrx equ this byte ;:27DC ;this is initialized data!
db 20h dup(3),30h dup(4),40h dup(5),30h dup(6),30h dup(7)
db 10h dup(8),20h dup(0),10h dup(1),10h dup(2),10h dup(3)
db 8 dup(4),8 dup(5),8 dup(6),8 dup(7),8 dup(8),8 dup(9)
db 8 dup(10),8 dup(11),4 dup(12),4 dup(13),4 dup(14),4 dup(15)
db 4 dup(16),4 dup(17),4 dup(18),4 dup(19),4 dup(20),4 dup(21)
db 4 dup(22),4 dup(23),24,24,25,25,26,26,27,27,28,28,29,29,30,30
db 31,31,' !!""##$$%%&&''''(())**++,,--..//0123456789:;<=>?'
cseg ends
end startRE: Might & Magic 4: Clouds of Xeen - Cyrus Annihilator - 08-14-2012
Thanks, unfortunally I don't know how to use it, but I hope someone does.
RE: Might & Magic 4: Clouds of Xeen - gensym - 08-15-2012
(08-14-2012, 05:41 PM)Cyrus Annihilator Wrote: Thanks, unfortunally I don't know how to use it, but I hope someone does.here is a quick intro: http://www.skynet.ie/~darkstar/assembler/