Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[Reverse-engineering] [th01] .PTN slot structure 

Part of P0083, funded by Yanga.
This commit is contained in:
nmlgc 2020-03-14 14:36:17 +01:00
parent 40bb265b52
commit 2546c5dfcb
8 changed files with 360 additions and 336 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
th01/formats/grp_ptn[data].asm
View File

@ -1,10 +1,10 @@
PTN_COUNT = 8
PTN_SLOT_COUNT = 8
public _flag_palette_show, _flag_grp_put, _ptn_image_count, _flag_grp_colorkey
_flag_palette_show dw 1
_flag_grp_put dw 1
db 3 dup(0)
_ptn_image_count db PTN_COUNT dup(0)
_ptn_image_count db PTN_SLOT_COUNT dup(0)
if BINARY eq 'E'
public _grp_palette_tone

7
th01/formats/grz[bss].asm
View File

@ -1,7 +0,0 @@
GRX_COUNT = 16
PLANAR_STREAM_PER_GRX_COUNT = 16
public _rle_streams, _planar_streams, _planar_stream_count
_rle_streams dd GRX_COUNT dup (?)
_planar_streams dd GRX_COUNT dup (PLANAR_STREAM_PER_GRX_COUNT dup (?))
_planar_stream_count db GRX_COUNT dup (?)

3
th01/formats/ptn.h
View File

@ -1,3 +0,0 @@
#define PTN_COUNT 8
int8_t ptn_image_count[PTN_COUNT];

35
th01/formats/ptn.hpp Normal file
View File

@ -0,0 +1,35 @@
/// Uncompressed 16-color 32×32 sprite format
/// -----------------------------------------
/// Optionally supports transparency for images loaded from .PTN files,
/// hardcoded to color #15.
#define PTN_W 32
#define PTN_H 32
typedef dots_t(PTN_W) ptn_dots_t;
#pragma option -a1
struct ptn_planar_t {
ptn_dots_t B[PTN_H];
ptn_dots_t R[PTN_H];
ptn_dots_t G[PTN_H];
ptn_dots_t E[PTN_H];
};
// On-disk per-image structure
struct ptn_file_image_t {
int8_t unused_zero;
ptn_planar_t planes;
};
// In-memory per-image structure
struct ptn_t : public ptn_file_image_t {
ptn_dots_t alpha[PTN_H];
};
#pragma option -a.
#define PTN_SLOT_COUNT 8
extern ptn_t* ptn_images[PTN_SLOT_COUNT];
extern int8_t ptn_image_count[PTN_SLOT_COUNT];
/// -----------------------------------------

27
th01/formats/ptn_grz[bss].asm Normal file
View File

@ -0,0 +1,27 @@
PTN_W = 32
PTN_H = 32
PTN_SLOT_COUNT = 8
ptn_planar_t struc
PTN_B dd PTN_H dup (?)
PTN_R dd PTN_H dup (?)
PTN_G dd PTN_H dup (?)
PTN_E dd PTN_H dup (?)
ptn_planar_t ends
ptn_t struc
db ?
planes ptn_planar_t <?>
PTN_alpha dd PTN_H dup (?)
ptn_t ends
public _ptn_images
_ptn_images dd PTN_SLOT_COUNT dup(?)
GRX_COUNT = 16
PLANAR_STREAM_PER_GRX_COUNT = 16
public _rle_streams, _planar_streams, _planar_stream_count
_rle_streams dd GRX_COUNT dup (?)
_planar_streams dd GRX_COUNT dup (PLANAR_STREAM_PER_GRX_COUNT dup (?))
_planar_stream_count db GRX_COUNT dup (?)

154
th01_op.asm
View File

@ -2307,15 +2307,15 @@ _egc_copy_rect_1_to_0 endp
idiv bx
shl ax, 2
mov bx, ax
mov ax, [bx+1474h]
mov dx, [bx+1472h]
mov ax, word ptr (_ptn_images + 2)[bx]
mov dx, word ptr _ptn_images[bx]
push ax
mov ax, di
mov bx, 40h
push dx
cwd
idiv bx
imul dx, 281h
imul dx, size ptn_t
pop ax
add ax, dx
pop dx
@ -2333,7 +2333,7 @@ loc_D416:
shl dx, 2
les bx, [bp-4]
add bx, dx
mov es:[bx+1], eax
mov es:[bx+ptn_t.planes.PTN_B], eax
les bx, _VRAM_PLANE_R
add bx, si
mov eax, es:[bx]
@ -2341,7 +2341,7 @@ loc_D416:
shl dx, 2
les bx, [bp-4]
add bx, dx
mov es:[bx+81h], eax
mov es:[bx+ptn_t.planes.PTN_R], eax
les bx, _VRAM_PLANE_G
add bx, si
mov eax, es:[bx]
@ -2349,7 +2349,7 @@ loc_D416:
shl dx, 2
les bx, [bp-4]
add bx, dx
mov es:[bx+101h], eax
mov es:[bx+ptn_t.planes.PTN_G], eax
les bx, _VRAM_PLANE_E
add bx, si
mov eax, es:[bx]
@ -2357,12 +2357,12 @@ loc_D416:
shl dx, 2
les bx, [bp-4]
add bx, dx
mov es:[bx+181h], eax
add si, 50h ; 'P'
mov es:[bx+ptn_t.planes.PTN_E], eax
add si, ROW_SIZE
inc cx
loc_D481:
cmp cx, 20h ; ' '
cmp cx, PTN_H
jl short loc_D416
pop di
pop si
@ -2388,15 +2388,15 @@ loc_D481:
idiv bx
shl ax, 2
mov bx, ax
mov ax, [bx+1474h]
mov dx, [bx+1472h]
mov ax, word ptr (_ptn_images + 2)[bx]
mov dx, word ptr _ptn_images[bx]
push ax
mov ax, [bp+0Ah]
mov bx, 40h
push dx
cwd
idiv bx
imul dx, 281h
imul dx, size ptn_t
pop ax
add ax, dx
pop dx
@ -2446,7 +2446,7 @@ loc_D515:
les bx, [bp-0Eh]
add bx, ax
mov eax, [bp-6]
and es:[bx+1], eax
and es:[bx+ptn_t.planes.PTN_B], eax
les bx, _VRAM_PLANE_B
add bx, di
mov eax, es:[bx]
@ -2459,9 +2459,9 @@ loc_D515:
shl dx, 2
les bx, [bp-0Eh]
add bx, dx
or es:[bx+1], eax
or es:[bx+ptn_t.planes.PTN_B], eax
mov eax, [bp-6]
and es:[bx+81h], eax
and es:[bx+ptn_t.planes.PTN_R], eax
les bx, _VRAM_PLANE_R
add bx, di
mov eax, es:[bx]
@ -2473,9 +2473,9 @@ loc_D515:
shl dx, 2
les bx, [bp-0Eh]
add bx, dx
or es:[bx+81h], eax
or es:[bx+ptn_t.planes.PTN_R], eax
mov eax, [bp-6]
and es:[bx+101h], eax
and es:[bx+ptn_t.planes.PTN_G], eax
les bx, _VRAM_PLANE_G
add bx, di
mov eax, es:[bx]
@ -2487,9 +2487,9 @@ loc_D515:
shl dx, 2
les bx, [bp-0Eh]
add bx, dx
or es:[bx+101h], eax
or es:[bx+ptn_t.planes.PTN_G], eax
mov eax, [bp-6]
and es:[bx+181h], eax
and es:[bx+ptn_t.planes.PTN_E], eax
les bx, _VRAM_PLANE_E
add bx, di
mov eax, es:[bx]
@ -2501,8 +2501,8 @@ loc_D515:
shl dx, 2
les bx, [bp-0Eh]
add bx, dx
or es:[bx+181h], eax
add di, 50h ; 'P'
or es:[bx+ptn_t.planes.PTN_E], eax
add di, ROW_SIZE
inc si
loc_D5E8:
@ -2561,29 +2561,27 @@ arg_2 = dword ptr 8
mov [bp+@@image_count], ax
mov bx, di
shl bx, 2
mov ax, [bx+1472h]
or ax, [bx+1474h]
mov ax, word ptr _ptn_images[bx]
or ax, word ptr (_ptn_images + 2)[bx]
jz short loc_D677
mov bx, di
shl bx, 2
pushd dword ptr [bx+1472h] ; font
call @$bdla$qnv
add sp, 4
call @$bdla$qnv c, large _ptn_images[bx]
loc_D677:
mov ax, [bp+@@image_count]
imul ax, 281h
imul ax, size ptn_t
push ax
call @$bnwa$qui
pop cx
mov bx, di
shl bx, 2
mov [bx+1474h], dx
mov [bx+1472h], ax
mov word ptr (_ptn_images + 2)[bx], dx
mov word ptr _ptn_images[bx], ax
mov bx, di
shl bx, 2
mov ax, [bx+1472h]
or ax, [bx+1474h]
mov ax, word ptr _ptn_images[bx]
or ax, word ptr (_ptn_images + 2)[bx]
jnz short loc_D6A7
mov ax, 0FFFDh
jmp loc_D74E
@ -2608,8 +2606,8 @@ loc_D6C7:
mov _ptn_image_count[di], al
mov bx, di
shl bx, 2
mov ax, [bx+1474h]
mov dx, [bx+1472h]
mov ax, word ptr (_ptn_images + 2)[bx]
mov dx, word ptr _ptn_images[bx]
mov word ptr [bp+var_8+2], ax
mov word ptr [bp+var_8], dx
mov [bp+var_2], 0
@ -2624,7 +2622,7 @@ loc_D6E8:
inc ax
push word ptr [bp+var_8+2]
push ax
push 200h
push size ptn_planar_t
call @arc_file_get$qncui
xor si, si
jmp short loc_D732
@ -2635,19 +2633,19 @@ loc_D707:
shl ax, 2
les bx, [bp+var_8]
add bx, ax
mov eax, es:[bx+1]
and eax, es:[bx+81h]
and eax, es:[bx+101h]
and eax, es:[bx+181h]
mov eax, es:[bx+ptn_t.planes.PTN_B]
and eax, es:[bx+ptn_t.planes.PTN_R]
and eax, es:[bx+ptn_t.planes.PTN_G]
and eax, es:[bx+ptn_t.planes.PTN_E]
not eax
mov es:[bx+201h], eax
mov es:[bx+ptn_t.PTN_alpha], eax
inc si
loc_D732:
cmp si, 20h ; ' '
cmp si, PTN_H
jl short loc_D707
inc [bp+var_2]
add word ptr [bp+var_8], 281h
add word ptr [bp+var_8], size ptn_t
loc_D73F:
mov ax, [bp+var_2]
@ -2681,31 +2679,29 @@ loc_D765:
loc_D76A:
mov bx, si
shl bx, 2
mov ax, [bx+1472h]
or ax, [bx+1474h]
mov ax, word ptr _ptn_images[bx]
or ax, word ptr (_ptn_images + 2)[bx]
jz short loc_D78B
mov bx, si
shl bx, 2
pushd dword ptr [bx+1472h]
call @$bdla$qnv
add sp, 4
call @$bdla$qnv c, large _ptn_images[bx]
loc_D78B:
mov al, [bp+8]
mov _ptn_image_count[si], al
mov ax, [bp+8]
imul ax, 281h
imul ax, size ptn_t
push ax
call @$bnwa$qui
pop cx
mov bx, si
shl bx, 2
mov [bx+1474h], dx
mov [bx+1472h], ax
mov word ptr (_ptn_images + 2)[bx], dx
mov word ptr _ptn_images[bx], ax
mov bx, si
shl bx, 2
mov ax, [bx+1472h]
or ax, [bx+1474h]
mov ax, word ptr _ptn_images[bx]
or ax, word ptr (_ptn_images + 2)[bx]
jnz short loc_D7C1
mov ax, 0FFFDh
jmp short loc_D7C3
@ -2736,18 +2732,16 @@ loc_D7C3:
mov si, [bp+6]
mov bx, si
shl bx, 2
mov ax, [bx+1472h]
or ax, [bx+1474h]
mov ax, word ptr _ptn_images[bx]
or ax, word ptr (_ptn_images + 2)[bx]
jz short loc_D827
mov bx, si
shl bx, 2
pushd dword ptr [bx+1472h]
call @$bdla$qnv
add sp, 4
call @$bdla$qnv c, large _ptn_images[bx]
mov bx, si
shl bx, 2
mov word ptr [bx+1474h], 0
mov word ptr [bx+1472h], 0
mov word ptr (_ptn_images + 2)[bx], 0
mov word ptr _ptn_images[bx], 0
mov _ptn_image_count[si], 0
loc_D827:
@ -2774,15 +2768,15 @@ loc_D827:
idiv bx
shl ax, 2
mov bx, ax
mov ax, [bx+1474h]
mov dx, [bx+1472h]
mov ax, word ptr (_ptn_images + 2)[bx]
mov dx, word ptr _ptn_images[bx]
push ax
mov ax, [bp+0Ah]
mov bx, 40h
push dx
cwd
idiv bx
imul dx, 281h
imul dx, size ptn_t
pop ax
add ax, dx
pop dx
@ -2797,7 +2791,7 @@ loc_D87C:
shl ax, 2
les bx, [bp-4]
add bx, ax
mov eax, es:[bx+1]
mov eax, es:[bx+ptn_t.planes.PTN_B]
les bx, _VRAM_PLANE_B
add bx, si
mov es:[bx], eax
@ -2805,7 +2799,7 @@ loc_D87C:
shl ax, 2
les bx, [bp-4]
add bx, ax
mov eax, es:[bx+81h]
mov eax, es:[bx+ptn_t.planes.PTN_R]
les bx, _VRAM_PLANE_R
add bx, si
mov es:[bx], eax
@ -2813,7 +2807,7 @@ loc_D87C:
shl ax, 2
les bx, [bp-4]
add bx, ax
mov eax, es:[bx+101h]
mov eax, es:[bx+ptn_t.planes.PTN_G]
les bx, _VRAM_PLANE_G
add bx, si
mov es:[bx], eax
@ -2821,15 +2815,15 @@ loc_D87C:
shl ax, 2
les bx, [bp-4]
add bx, ax
mov eax, es:[bx+181h]
mov eax, es:[bx+ptn_t.planes.PTN_E]
les bx, _VRAM_PLANE_E
add bx, si
mov es:[bx], eax
add si, 50h ; 'P'
add si, ROW_SIZE
inc cx
loc_D8E7:
cmp cx, 20h ; ' '
cmp cx, PTN_H
jl short loc_D87C
pop di
pop si
@ -2855,15 +2849,15 @@ loc_D8E7:
idiv bx
shl ax, 2
mov bx, ax
mov ax, [bx+1474h]
mov dx, [bx+1472h]
mov ax, word ptr (_ptn_images + 2)[bx]
mov dx, word ptr _ptn_images[bx]
push ax
mov ax, [bp+0Ah]
mov bx, 40h
push dx
cwd
idiv bx
imul dx, 281h
imul dx, size ptn_t
pop ax
add ax, dx
pop dx
@ -2900,7 +2894,7 @@ loc_D95F:
shl ax, 2
les bx, [bp-8]
add bx, ax
mov eax, es:[bx+1]
mov eax, es:[bx+ptn_t.planes.PTN_B]
mov cl, [bp-4]
shr eax, cl
les bx, _VRAM_PLANE_B
@ -2910,7 +2904,7 @@ loc_D95F:
shl ax, 2
les bx, [bp-8]
add bx, ax
mov eax, es:[bx+81h]
mov eax, es:[bx+ptn_t.planes.PTN_R]
shr eax, cl
les bx, _VRAM_PLANE_R
add bx, di
@ -2919,7 +2913,7 @@ loc_D95F:
shl ax, 2
les bx, [bp-8]
add bx, ax
mov eax, es:[bx+101h]
mov eax, es:[bx+ptn_t.planes.PTN_G]
shr eax, cl
les bx, _VRAM_PLANE_G
add bx, di
@ -2928,12 +2922,12 @@ loc_D95F:
shl ax, 2
les bx, [bp-8]
add bx, ax
mov eax, es:[bx+181h]
mov eax, es:[bx+ptn_t.planes.PTN_E]
shr eax, cl
les bx, _VRAM_PLANE_E
add bx, di
mov es:[bx], ax
add di, 50h ; 'P'
add di, ROW_SIZE
inc si
loc_D9D5:
@ -3462,15 +3456,7 @@ include th01/hardware/vram_planes[bss].asm
dd ?
dd ?
include th01/formats/grp_palette[bss].asm
dd ?
dd ?
dd ?
dd ?
dd ?
dd ?
dd ?
dd ?
include th01/formats/grz[bss].asm
include th01/formats/ptn_grz[bss].asm
include th01/formats/grp_buf[bss].asm
include libs/master.lib/pal[bss].asm
include libs/master.lib/fil[bss].asm

408
th01_reiiden.asm
View File

File diff suppressed because it is too large Load Diff

58
th01_reiiden_2.inc
View File

@ -8959,7 +8959,7 @@ sub_20468 endp
sub_20496 proc far
var_10 = dword ptr -10h
var_C = dword ptr -0Ch
@@ptn = dword ptr -0Ch
var_8 = dword ptr -8
var_4 = dword ptr -4
arg_0 = word ptr 6
@ -8990,24 +8990,24 @@ arg_6 = word ptr 0Ch
idiv bx
shl ax, 2
mov bx, ax
mov ax, [bx+401Ah]
mov dx, [bx+4018h]
mov ax, word ptr (_ptn_images + 2)[bx]
mov dx, word ptr _ptn_images[bx]
push ax
mov ax, di
mov bx, 40h
push dx
cwd
idiv bx
imul dx, 281h
imul dx, size ptn_t
pop ax
add ax, dx
pop dx
mov word ptr [bp+var_C+2], dx
mov word ptr [bp+var_C], ax
mov word ptr [bp+@@ptn+2], dx
mov word ptr [bp+@@ptn], ax
loc_204EF:
mov ax, [bp+arg_6]
imul ax, 281h
imul ax, size ptn_t
mov dx, word ptr off_39E7C+2
mov bx, word ptr off_39E7C
add bx, ax
@ -9022,22 +9022,22 @@ loc_204EF:
loc_20513:
mov ax, cx
shl ax, 2
les bx, [bp+var_C]
les bx, [bp+@@ptn]
add bx, ax
mov eax, es:[bx+201h]
mov eax, es:[bx+ptn_t.PTN_alpha]
mov [bp+var_4], eax
not eax
mov dx, cx
shl dx, 2
les bx, [bp+var_10]
add bx, dx
and eax, es:[bx+1]
and eax, es:[bx+ptn_t.planes.PTN_B]
mov [bp+var_8], eax
mov ax, cx
shl ax, 2
les bx, [bp+var_C]
les bx, [bp+@@ptn]
add bx, ax
mov eax, es:[bx+1]
mov eax, es:[bx+ptn_t.planes.PTN_B]
and eax, [bp+var_4]
or eax, [bp+var_8]
les bx, _VRAM_PLANE_B
@ -9049,13 +9049,13 @@ loc_20513:
shl dx, 2
les bx, [bp+var_10]
add bx, dx
and eax, es:[bx+81h]
and eax, es:[bx+ptn_t.planes.PTN_R]
mov [bp+var_8], eax
mov ax, cx
shl ax, 2
les bx, [bp+var_C]
les bx, [bp+@@ptn]
add bx, ax
mov eax, es:[bx+81h]
mov eax, es:[bx+ptn_t.planes.PTN_R]
and eax, [bp+var_4]
or eax, [bp+var_8]
les bx, _VRAM_PLANE_R
@ -9067,13 +9067,13 @@ loc_20513:
shl dx, 2
les bx, [bp+var_10]
add bx, dx
and eax, es:[bx+101h]
and eax, es:[bx+ptn_t.planes.PTN_G]
mov [bp+var_8], eax
mov ax, cx
shl ax, 2
les bx, [bp+var_C]
les bx, [bp+@@ptn]
add bx, ax
mov eax, es:[bx+101h]
mov eax, es:[bx+ptn_t.planes.PTN_G]
and eax, [bp+var_4]
or eax, [bp+var_8]
les bx, _VRAM_PLANE_G
@ -9085,23 +9085,23 @@ loc_20513:
shl dx, 2
les bx, [bp+var_10]
add bx, dx
and eax, es:[bx+181h]
and eax, es:[bx+ptn_t.planes.PTN_E]
mov [bp+var_8], eax
mov ax, cx
shl ax, 2
les bx, [bp+var_C]
les bx, [bp+@@ptn]
add bx, ax
mov eax, es:[bx+181h]
mov eax, es:[bx+ptn_t.planes.PTN_E]
and eax, [bp+var_4]
or eax, [bp+var_8]
les bx, _VRAM_PLANE_E
add bx, si
mov es:[bx], eax
add si, 50h ; 'P'
add si, ROW_SIZE
inc cx
loc_20619:
cmp cx, 20h ; ' '
cmp cx, PTN_H
jb loc_20513
jmp short loc_20696
; ---------------------------------------------------------------------------
@ -9116,7 +9116,7 @@ loc_20626:
shl ax, 2
les bx, [bp+var_10]
add bx, ax
mov eax, es:[bx+1]
mov eax, es:[bx+ptn_t.planes.PTN_B]
les bx, _VRAM_PLANE_B
add bx, si
mov es:[bx], eax
@ -9124,7 +9124,7 @@ loc_20626:
shl ax, 2
les bx, [bp+var_10]
add bx, ax
mov eax, es:[bx+81h]
mov eax, es:[bx+ptn_t.planes.PTN_R]
les bx, _VRAM_PLANE_R
add bx, si
mov es:[bx], eax
@ -9132,7 +9132,7 @@ loc_20626:
shl ax, 2
les bx, [bp+var_10]
add bx, ax
mov eax, es:[bx+101h]
mov eax, es:[bx+ptn_t.planes.PTN_G]
les bx, _VRAM_PLANE_G
add bx, si
mov es:[bx], eax
@ -9140,15 +9140,15 @@ loc_20626:
shl ax, 2
les bx, [bp+var_10]
add bx, ax
mov eax, es:[bx+181h]
mov eax, es:[bx+ptn_t.planes.PTN_E]
les bx, _VRAM_PLANE_E
add bx, si
mov es:[bx], eax
add si, 50h ; 'P'
add si, ROW_SIZE
inc cx
loc_20691:
cmp cx, 20h ; ' '
cmp cx, PTN_H
jb short loc_20626
loc_20696: