ReC98/th02/formats/pi_slot_palette_apply.asm

; int DEFCONV pi_slot_palette_apply(int slot)
if GAME ge 3
	align	2
endif

proc_defconv pi_slot_palette_apply
@@slot	= word ptr (cPtrSize + 2)

	push	bp
	mov	bp, sp
	push	(16 * 3)
	push	ds
	mov	ax, [bp+@@slot]
	imul	ax, size PiHeader
	add	ax, offset _pi_slot_headers + PiHeader._palette
	push	ax
	push	ds
	push	offset Palettes
	call	_memcpy
	add	sp, 10
	call	palette_show
	pop	bp
if GAME ge 3
	retf	2
else
	ret
endif
endp_defconv
Use TASM calling convention syntax for previously identified ZUN functions With TH03 changing the calling convention for most of the code from __cdecl to __pascal, I've been getting more and more confused about this myself. So, let's settle on the following consistent syntax for function calls: * C where the calling convention is actually __cdecl and where TASM's emitted __cdecl code matches the original binary * PASCAL where the calling convention is actually __pascal * STDCALL where the calling convention is actually __cdecl, but where the caller either defers stack cleanup (summing up the stack size of multiple functions, then cleaning it all in a single "add sp" instruction) or where the stack is cleared in a different way (e.g. "pop cx"). Unfortunately though, when using the ARG directive to automatically generate an appropriate RET instruction for the given calling convention, TASM always emits ENTER and LEAVE instructions even when no local variables are declared, which greatly limits the number of functions where we can use that syntax. -.- 2014-12-16 04:53:56 +00:00			`; int DEFCONV pi_slot_palette_apply(int slot)`
[Reverse-engineering] pi_slot_palette_apply 2014-11-22 08:29:09 +00:00			`if GAME ge 3`
			`align 2`
			`endif`

Make previously reduced ZUN functions available to C 2015-02-21 13:12:22 +00:00			`proc_defconv pi_slot_palette_apply`
[Reverse-engineering] pi_slot_palette_apply 2014-11-22 08:29:09 +00:00			`@@slot = word ptr (cPtrSize + 2)`

			`push bp`
			`mov bp, sp`
			`push (16 * 3)`
			`push ds`
			`mov ax, [bp+@@slot]`
			`imul ax, size PiHeader`
Make previously reduced ZUN functions available to C 2015-02-21 13:12:22 +00:00			`add ax, offset _pi_slot_headers + PiHeader._palette`
[Reverse-engineering] pi_slot_palette_apply 2014-11-22 08:29:09 +00:00			`push ax`
			`push ds`
			`push offset Palettes`
			`call _memcpy`
			`add sp, 10`
			`call palette_show`
			`pop bp`
			`if GAME ge 3`
			`retf 2`
			`else`
			`ret`
			`endif`
Make previously reduced ZUN functions available to C 2015-02-21 13:12:22 +00:00			`endp_defconv`