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

[Decompilation] [th02] Staff roll: ENDFT.BFT sprite blitting 

Part of P0279, funded by Yanga and Blue Bolt.
This commit is contained in:
nmlgc 2024-03-30 19:21:20 +01:00
parent f0fbaf667c
commit bfeb661f69
3 changed files with 30 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
master.hpp
View File

@ -560,6 +560,9 @@ extern unsigned super_patnum;
extern unsigned super_patdata[SUPER_MAXPAT];
extern unsigned super_patsize[SUPER_MAXPAT];
// Ignores transparency
void MASTER_RET over_put_8(int x, int y, int num);
int MASTER_RET super_cancel_pat(int num);
void MASTER_RET super_clean(int min_pat, int max_pat);
int MASTER_RET super_entry_bfnt(const char MASTER_PTR *);

16
th02/end/end.cpp
View File

@ -49,6 +49,10 @@ static const screen_y_t END_LINE_TOP = (
);
static const screen_x_t END_LINE_RIGHT = (END_LINE_LEFT + END_LINE_W);
static const screen_y_t END_LINE_BOTTOM = (END_LINE_TOP + GLYPH_H);
static const pixel_t ENDFT_W = 80;
static const pixel_t ENDFT_SEGMENT_W = 16;
static const pixel_t ENDFT_SEGMENT_COUNT = (ENDFT_W / ENDFT_SEGMENT_W);
// -----------
// State
@ -706,3 +710,15 @@ void near end_good_animate(void)
}
end_to_staffroll_animate();
}
void pascal near endft_put(screen_x_t left, screen_y_t top, int patnum_base)
{
int patnum = patnum_base;
int segment = 0;
while(segment < ENDFT_SEGMENT_COUNT) {
over_put_8(left, top, patnum);
segment++;
patnum++;
left += ENDFT_SEGMENT_W;
}
}

60
th02_maine.asm
View File

@ -124,6 +124,7 @@ END_TEXT segment byte public 'CODE' use16
left_and_top:dword, quarter:word
@end_bad_animate$qv procdesc near
@end_good_animate$qv procdesc near
@ENDFT_PUT$QIII procdesc pascal near
END_TEXT ends
; Segment type: Pure code
@ -132,45 +133,6 @@ maine_01_TEXT segment byte public 'CODE' use16
;org 3
assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A874 proc near
var_2 = word ptr -2
arg_0 = word ptr 4
arg_2 = word ptr 6
arg_4 = word ptr 8
enter 2, 0
push si
push di
mov si, [bp+arg_4]
mov di, [bp+arg_0]
mov [bp+var_2], 0
jmp short loc_A898
; ---------------------------------------------------------------------------
loc_A887:
push si
push [bp+arg_2]
push di
call over_put_8
inc [bp+var_2]
inc di
add si, 10h
loc_A898:
cmp [bp+var_2], 5
jl short loc_A887
pop di
pop si
leave
retn 6
sub_A874 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
@ -230,19 +192,19 @@ sub_A8FA proc near
; ---------------------------------------------------------------------------
loc_A90C:
push 1B000B8h
push si
call sub_A874
push (432 shl 16) or 184 ; (left) or top
push si ; patnum_base
call @endft_put$qiii
call @frame_delay$qi pascal, 4
add si, 5
loc_A920:
cmp si, 37h ; '7'
cmp si, 55
jl short loc_A90C
call _graph_putsa_fx c, 528, ((V_WHITE or FX_WEIGHT_BOLD) shl 16) or 192, offset aVer1_00, ds ; "ver 1.00"
call _snd_delay_until_measure stdcall, 8
pop cx
mov si, 0B8h
mov si, 184
jmp short loc_A992
; ---------------------------------------------------------------------------
@ -256,10 +218,10 @@ loc_A947:
push ax
call grcg_boxfill
call grcg_off
push 1B0h
push si
push 32h ; '2'
call sub_A874
push 432 ; left
push si ; top
push 50 ; patnum_base
call @endft_put$qiii
push ds
push offset aVer1_00 ; "ver 1.00"
push (V_WHITE or FX_WEIGHT_BOLD)
@ -272,7 +234,7 @@ loc_A947:
add si, 4
loc_A992:
cmp si, 170h
cmp si, 368
jl short loc_A947
call _snd_delay_until_measure stdcall, 9
pop cx