ReC98/th05/formats/pi_slot_free.asm

; int __pascal pi_slot_free(int slot)
func pi_slot_free
@@slot	= word ptr 4

	mov	bx, sp
	mov	bx, ss:[bx+@@slot]
	mov	ax, bx
	shl	bx, 2
	add	bx, offset _pi_slot_buffers
	cmp	dword ptr [bx], 0
	jz	short @@ret
	imul	ax, size PiHeader
	add	ax, offset _pi_slot_headers
	push	ds
	push	ax
	push	word ptr [bx+2]
	push	word ptr [bx]
	mov	dword ptr [bx], 0
	call	graph_pi_free
@@ret:
	ret	2
endfunc
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 __pascal pi_slot_free(int slot)`
[Reverse-engineering] Slot-based PI file loading and freeing 2014-11-18 16:56:13 +00:00			`func pi_slot_free`
			`@@slot = word ptr 4`

			`mov bx, sp`
			`mov bx, ss:[bx+@@slot]`
			`mov ax, bx`
			`shl bx, 2`
Make previously reduced ZUN functions available to C 2015-02-21 13:12:22 +00:00			`add bx, offset _pi_slot_buffers`
[Reverse-engineering] Slot-based PI file loading and freeing 2014-11-18 16:56:13 +00:00			`cmp dword ptr [bx], 0`
			`jz short @@ret`
			`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`
[Reverse-engineering] Slot-based PI file loading and freeing 2014-11-18 16:56:13 +00:00			`push ds`
			`push ax`
			`push word ptr [bx+2]`
			`push word ptr [bx]`
			`mov dword ptr [bx], 0`
			`call graph_pi_free`
			`@@ret:`
			`ret 2`
			`endfunc`