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

201 lines
3.6 KiB
NASM
Raw Normal View History

[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
.386
[Regression] Explicitly request 16-bit default segments when using .MODEL Whoops, turns out that the build has been broken on TASM32 version 5.3 (the one in the DevKit) ever since 7897bf1. In contrast to version 5.0 (which I use for my development), 5.3 actually defines 32-bit segments if you specify a .386 CPU before using .MODEL. That might have been the reason for the .286 workaround all along? Turns out there's the USE16 modifier, which makes this much more explicit than switching CPUs.
2021-03-29 17:16:49 +00:00
.model use16 large SHARED_
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
locals
[Maintenance] Reimplement TASM's ARG directive for `MOV BX, SP` functions `cPtrSize` is simply the wrong constant for calculating parameter offsets on the stack, because it corresponds to the memory model's default distance, not the function's distance. Luckily, ARG has a RETURNS clause, and if you declare all parameters in there, ARG won't emit that pesky and unnecessary `ENTER 0, 0` instruction. Big discovery right there! Sadly, ARG is unusable for ZUN's silly functions that keep the base pointer in BX. TASM declares the resulting equates as `[BP+offset]`, and it's apparently impossible to only get `offset` out of such an equate later. So, rather than staying with numbers, let's reimplement ARG for these functions instead. This way, we can even abstract away the stack clear size for the `RET` instructions. It's a bit rough around the edges though, forcing you to explicitly specify the function distance, and to pass the parameters in reverse order compared to the C declaration (thankfully, all of these use the PASCAL calling convention). It also doesn't work with more complex types yet. But certainly better than numbers. Part of P0134, funded by [Anonymous].
2021-02-10 11:51:14 +00:00
include th03/arg_bx.inc
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
include th03/formats/cdg.inc
extrn FILE_ROPEN:proc
extrn FILE_READ:proc
extrn FILE_SEEK:proc
extrn FILE_CLOSE:proc
extrn HMEM_ALLOCBYTE:proc
extrn HMEM_FREE:proc
extrn _cdg_slots:cdg_t:CDG_SLOT_COUNT
[Decompilation] [th03] .CDG: Loading and freeing Completes P0132, funded by [Anonymous].
2021-01-05 18:16:19 +00:00
extrn _cdg_noalpha:byte
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
extrn cdg_images_to_load:byte
g_SHARED group SHARED, SHARED_
SHARED segment word public 'CODE' use16
SHARED ends
SHARED_ segment word public 'CODE' use16
assume cs:g_SHARED
[Maintenance] Export all pascal functions with their proper uppercase names Yup, that was one massive screw-up. Part of P0030, funded by zorg.
2019-09-15 16:23:33 +00:00
public CDG_LOAD_SINGLE_NOALPHA
public CDG_LOAD_SINGLE
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_load_single_noalpha label proc
[Decompilation] [th03] .CDG: Loading and freeing Completes P0132, funded by [Anonymous].
2021-01-05 18:16:19 +00:00
mov _cdg_noalpha, 1
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
align 2
[Maintenance] Fix the function name format of CDG/CD2 functions No leading underscore for functions with Pascal calling convention, but we do have one for all variables, because it's not worth it to put keywords in front of everything for no reason. Seemed to have forgotten this rule in 2017? Part of P0030, funded by zorg.
2019-09-15 14:22:36 +00:00
cdg_load_single proc far
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
@@n = word ptr 6
@@fn = dword ptr 8
@@slot = word ptr 12
push bp
mov bp, sp
push si
push di
mov di, [bp+@@slot]
push di
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
nop ; This was definitely compiled from C...
call cdg_free
shl di, 4 ; *= size cdg_t
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
add di, offset _cdg_slots
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call file_ropen pascal, large [bp+@@fn]
call file_read pascal, ds, di, size cdg_t
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
mov ax, [di+cdg_t.CDG_plane_size]
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
mov dx, ax
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
cmp [di+cdg_t.plane_layout], CDG_COLORS
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
jz short @@read
shl ax, 2
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
cmp [di+cdg_t.plane_layout], CDG_ALPHA
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
jz short @@read
add ax, dx
@@read:
mul [bp+@@n]
movzx eax, ax
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call file_seek pascal, eax, 1
[Maintenance] Fix the function name format of CDG/CD2 functions No leading underscore for functions with Pascal calling convention, but we do have one for all variables, because it's not worth it to put keywords in front of everything for no reason. Seemed to have forgotten this rule in 2017? Part of P0030, funded by zorg.
2019-09-15 14:22:36 +00:00
call cdg_read_single
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
call file_close
[Decompilation] [th03] .CDG: Loading and freeing Completes P0132, funded by [Anonymous].
2021-01-05 18:16:19 +00:00
mov _cdg_noalpha, 0
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
pop di
pop si
pop bp
retf 8
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_load_single endp
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
align 2
; Reads a single CDG image from the master.lib file, which previously has been
; positioned at the beginning of the image data, into the slot in DI.
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_read_single proc near
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
mov al, [di+cdg_t.plane_layout]
or al, al ; AL == CDG_COLORS?
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
jz short @@colors
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
cmp al, CDG_ALPHA
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
jz short @@alpha
[Decompilation] [th03] .CDG: Loading and freeing Completes P0132, funded by [Anonymous].
2021-01-05 18:16:19 +00:00
cmp _cdg_noalpha, 0
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
jnz short @@skip_alpha
@@alpha:
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call hmem_allocbyte pascal, [di+cdg_t.CDG_plane_size]
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
mov [di+cdg_t.seg_alpha], ax
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call file_read pascal, ax, 0, [di+cdg_t.CDG_plane_size]
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
jmp short @@colors
@@skip_alpha:
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
movzx eax, [di+cdg_t.CDG_plane_size]
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call file_seek pascal, eax, 1
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
@@colors:
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
cmp [di+cdg_t.plane_layout], CDG_ALPHA
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
jz short @@ret
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
mov ax, [di+cdg_t.CDG_plane_size]
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
shl ax, 2
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call hmem_allocbyte pascal, ax
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
mov [di+cdg_t.seg_colors], ax
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
push ax
push 0
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
mov ax, [di+cdg_t.CDG_plane_size]
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
shl ax, 2
push ax
call file_read
@@ret:
retn
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_read_single endp
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
[Maintenance] Export all pascal functions with their proper uppercase names Yup, that was one massive screw-up. Part of P0030, funded by zorg.
2019-09-15 16:23:33 +00:00
public CDG_LOAD_ALL_NOALPHA
public CDG_LOAD_ALL
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_load_all_noalpha label proc
[Decompilation] [th03] .CDG: Loading and freeing Completes P0132, funded by [Anonymous].
2021-01-05 18:16:19 +00:00
mov _cdg_noalpha, 1
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
align 2
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_load_all proc far
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
@@fn = dword ptr 6
@@slot_first = word ptr 10
push bp
mov bp, sp
push si
push di
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call file_ropen pascal, large [bp+@@fn]
[Maintenance] [th03/th04/th05] .CDG: Mirror implementation macros in ASM land We introduced those in 25caa85. Part of P0137, funded by [Anonymous].
2021-03-27 13:22:50 +00:00
cdg_slot_offset di, [bp+@@slot_first]
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call file_read pascal, ds, di, size cdg_t
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
mov si, di
mov bp, [bp+@@slot_first]
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
mov al, cdg_t.image_count[si]
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
mov cdg_images_to_load, al
push ds
pop es
@@loop:
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call cdg_free pascal, bp
mov cx, (cdg_t.seg_alpha / dword)
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
rep movsd
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
sub si, cdg_t.seg_alpha
sub di, cdg_t.seg_alpha
[Maintenance] Fix the function name format of CDG/CD2 functions No leading underscore for functions with Pascal calling convention, but we do have one for all variables, because it's not worth it to put keywords in front of everything for no reason. Seemed to have forgotten this rule in 2017? Part of P0030, funded by zorg.
2019-09-15 14:22:36 +00:00
call cdg_read_single
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
inc bp
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
add di, size cdg_t
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
dec cdg_images_to_load
jnz short @@loop
call file_close
[Decompilation] [th03] .CDG: Loading and freeing Completes P0132, funded by [Anonymous].
2021-01-05 18:16:19 +00:00
mov _cdg_noalpha, 0
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
pop di
pop si
pop bp
retf 6
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_load_all endp
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
[Maintenance] Export all pascal functions with their proper uppercase names Yup, that was one massive screw-up. Part of P0030, funded by zorg.
2019-09-15 16:23:33 +00:00
public CDG_FREE
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_free proc far
[Maintenance] Reimplement TASM's ARG directive for `MOV BX, SP` functions `cPtrSize` is simply the wrong constant for calculating parameter offsets on the stack, because it corresponds to the memory model's default distance, not the function's distance. Luckily, ARG has a RETURNS clause, and if you declare all parameters in there, ARG won't emit that pesky and unnecessary `ENTER 0, 0` instruction. Big discovery right there! Sadly, ARG is unusable for ZUN's silly functions that keep the base pointer in BX. TASM declares the resulting equates as `[BP+offset]`, and it's apparently impossible to only get `offset` out of such an equate later. So, rather than staying with numbers, let's reimplement ARG for these functions instead. This way, we can even abstract away the stack clear size for the `RET` instructions. It's a bit rough around the edges though, forcing you to explicitly specify the function distance, and to pass the parameters in reverse order compared to the C declaration (thankfully, all of these use the PASCAL calling convention). It also doesn't work with more complex types yet. But certainly better than numbers. Part of P0134, funded by [Anonymous].
2021-02-10 11:51:14 +00:00
arg_bx far, @slot:word
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
push di
[Maintenance] Reimplement TASM's ARG directive for `MOV BX, SP` functions `cPtrSize` is simply the wrong constant for calculating parameter offsets on the stack, because it corresponds to the memory model's default distance, not the function's distance. Luckily, ARG has a RETURNS clause, and if you declare all parameters in there, ARG won't emit that pesky and unnecessary `ENTER 0, 0` instruction. Big discovery right there! Sadly, ARG is unusable for ZUN's silly functions that keep the base pointer in BX. TASM declares the resulting equates as `[BP+offset]`, and it's apparently impossible to only get `offset` out of such an equate later. So, rather than staying with numbers, let's reimplement ARG for these functions instead. This way, we can even abstract away the stack clear size for the `RET` instructions. It's a bit rough around the edges though, forcing you to explicitly specify the function distance, and to pass the parameters in reverse order compared to the C declaration (thankfully, all of these use the PASCAL calling convention). It also doesn't work with more complex types yet. But certainly better than numbers. Part of P0134, funded by [Anonymous].
2021-02-10 11:51:14 +00:00
mov di, @slot
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
shl di, 4 ; *= size cdg_t
[Maintenance] [th03/th04/th05] Declare the CDG slot structure in C land Third iteration on the field names, now consistent with how the naming has evolved since 2017… Part of P0113, funded by Lmocinemod.
2020-09-05 14:09:18 +00:00
add di, offset _cdg_slots.seg_alpha
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
cmp word ptr [di], 0
jz short @@colors
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call hmem_free pascal, word ptr [di]
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
mov word ptr [di], 0
@@colors:
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
add di, word ; = seg_colors
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
cmp word ptr [di], 0
jz short @@ret
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
call hmem_free pascal, word ptr [di]
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
mov word ptr [di], 0
@@ret:
pop di
[Maintenance] Reimplement TASM's ARG directive for `MOV BX, SP` functions `cPtrSize` is simply the wrong constant for calculating parameter offsets on the stack, because it corresponds to the memory model's default distance, not the function's distance. Luckily, ARG has a RETURNS clause, and if you declare all parameters in there, ARG won't emit that pesky and unnecessary `ENTER 0, 0` instruction. Big discovery right there! Sadly, ARG is unusable for ZUN's silly functions that keep the base pointer in BX. TASM declares the resulting equates as `[BP+offset]`, and it's apparently impossible to only get `offset` out of such an equate later. So, rather than staying with numbers, let's reimplement ARG for these functions instead. This way, we can even abstract away the stack clear size for the `RET` instructions. It's a bit rough around the edges though, forcing you to explicitly specify the function distance, and to pass the parameters in reverse order compared to the C declaration (thankfully, all of these use the PASCAL calling convention). It also doesn't work with more complex types yet. But certainly better than numbers. Part of P0134, funded by [Anonymous].
2021-02-10 11:51:14 +00:00
ret_bx
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_free endp
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
align 2
[Maintenance] [th03/th04/th05] Declare CDG loading/freeing functions in C land No need to make the function names more complicated if we already expressed the one subtle format difference between TH03 and TH04/TH05 in the plane layout enum. Part of P0113, funded by Lmocinemod.
2020-09-05 15:52:09 +00:00
public CDG_FREE_ALL
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_free_all proc far
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
push si
mov si, CDG_SLOT_COUNT - 1
@@loop:
[Maintenance] Fix the function name format of CDG/CD2 functions No leading underscore for functions with Pascal calling convention, but we do have one for all variables, because it's not worth it to put keywords in front of everything for no reason. Seemed to have forgotten this rule in 2017? Part of P0030, funded by zorg.
2019-09-15 14:22:36 +00:00
call cdg_free pascal, si
[Reverse-engineering] [th04/th05] CDG loading
2017-01-19 20:14:22 +00:00
dec si
jge short @@loop
pop si
retf
[Separate translation units] [th04/th05] .CDG: Loading and freeing Undecompilable again. The loading functions have these *_noalpha() variants that simply set a global variable and fall through to the regular functions, while cdg_free() has its first `PUSH DI` instruction after the first expression we'd be decompiling. cdg_free_all() *could* be decompiled… but would also require _FLAGS trickery, and it's simply not worth starting a translation unit for one such small function. Part of P0127, funded by [Anonymous].
2020-11-14 16:24:04 +00:00
cdg_free_all endp
SHARED_ ends
end