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

89 lines
1.6 KiB
NASM
Raw Normal View History

[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
; void pascal near std_load(void);
public STD_LOAD
[Reverse-engineering] [th04/th05] .STD file loading … because TH04's version of this takes the ASCII stage ID directly from the resident structure. So boss battles are simply triggered by setting the background tile scroll speed to 0? That means… Funded by zorg.
2018-12-25 22:15:35 +00:00
std_load proc near
@@enemy_script_count = byte ptr -4
@@chunk_size = byte ptr -3
@@std_size = word ptr -2
enter 4, 0
push si
push di
call std_free
[Maintenance] Use the same resident structure pointer name for every game The TH04/TH05 BGM/SE mode setup is a good example for code where different structure field offsets will vanish completely upon reverse- engineering. If we continued to use the per-game ID string as the variable name, we'd only have another game-specific "difference" there. Part of P0065, funded by Touhou Patch Center.
2019-12-30 14:48:17 +00:00
les bx, _resident
[Reverse-engineering] [th04/th05] Resident structure And yes, you can get it in your own tool by simply #including th04/th04.hpp or th05/th05.hpp. Completes P0065, funded by Touhou Patch Center.
2020-01-02 19:55:22 +00:00
mov al, es:[bx+resident_t.stage_ascii]
[Reverse-engineering] [th04/th05] .STD file loading … because TH04's version of this takes the ASCII stage ID directly from the resident structure. So boss battles are simply triggered by setting the background tile scroll speed to 0? That means… Funded by zorg.
2018-12-25 22:15:35 +00:00
les bx, _std_fn
mov es:[bx+3], al
call file_ropen pascal, word ptr _std_fn+2, bx
push ss
lea ax, [bp+@@std_size]
call file_read pascal, ax, 2
push ss
lea ax, [bp+@@chunk_size]
call file_read pascal, ax, 1
dec [bp+@@std_size]
call hmem_allocbyte pascal, [bp+@@std_size]
mov _std_seg, ax
mov es, _std_seg
xor si, si
call file_read pascal, es, si, [bp+@@std_size]
call file_close
mov es, _std_seg
[Maintenance] Clean up the confusion between "tiles" and .STD tile sections Funded by -Tom-.
2018-12-30 01:28:00 +00:00
mov _tile_section, 4
mov _tile_row_in_section, 0
[Reverse-engineering] [th04/th05] .STD file loading … because TH04's version of this takes the ASCII stage ID directly from the resident structure. So boss battles are simply triggered by setting the background tile scroll speed to 0? That means… Funded by zorg.
2018-12-25 22:15:35 +00:00
mov al, [bp+@@chunk_size]
mov ah, 0
add si, ax
mov al, es:[si]
mov [bp+@@chunk_size], al
lea ax, [si+5]
mov _tile_scrollspeed_ptr, ax
mov al, es:[si]
[Reverse-engineering] [th04/th05] Scrolling-related variables Funded by -Tom-.
2018-12-28 20:18:08 +00:00
mov _scroll_speed, al
[Reverse-engineering] [th04/th05] .STD file loading … because TH04's version of this takes the ASCII stage ID directly from the resident structure. So boss battles are simply triggered by setting the background tile scroll speed to 0? That means… Funded by zorg.
2018-12-25 22:15:35 +00:00
mov al, [bp+@@chunk_size]
mov ah, 0
inc ax
add si, ax
xor di, di
mov al, es:[si]
mov [bp+@@enemy_script_count], al
inc si
@@enemy_script_loop:
mov al, es:[si]
mov [bp+@@chunk_size], al
inc si
mov bx, di
add bx, bx
mov _enemy_script_ptrs[bx], si
inc di
mov ah, 0
add si, ax
dec [bp+@@enemy_script_count]
cmp [bp+@@enemy_script_count], 0
ja short @@enemy_script_loop
inc si
mov word ptr _std_ip+2, es
mov word ptr _std_ip, si
setfarfp _stage_vm, std_run
pop di
pop si
leave
ret
std_load endp
[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
; void pascal near std_free(void);
public STD_FREE
[Reverse-engineering] [th04/th05] .STD file loading … because TH04's version of this takes the ASCII stage ID directly from the resident structure. So boss battles are simply triggered by setting the background tile scroll speed to 0? That means… Funded by zorg.
2018-12-25 22:15:35 +00:00
std_free proc near
push bp
mov bp, sp
cmp _std_seg, 0
jz short @@ret
call hmem_free pascal, _std_seg
mov _std_seg, 0
@@ret:
pop bp
retn
std_free endp