ReC98/th03/formats/cdg_free_all.asm

public CDG_FREE_ALL
cdg_free_all	proc near
	push	bp
	mov	bp, sp
	push	si
	xor	si, si
	jmp	short @@done?

@@loop:
	call	cdg_free pascal, si
	inc	si

@@done?:
	cmp	si, CDG_SLOT_COUNT
	jl	short @@loop
	pop	si
	pop	bp
	retn
cdg_free_all	endp
[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`
			`cdg_free_all proc near`
[Reverse-engineering] [th03/mainl] CDG freeing Funded by DTM. 2017-01-23 18:20:33 +00:00			`push bp`
			`mov bp, sp`
			`push si`
			`xor si, si`
			`jmp short @@done?`

			`@@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] [th03/mainl] CDG freeing Funded by DTM. 2017-01-23 18:20:33 +00:00			`inc si`

			`@@done?:`
			`cmp si, CDG_SLOT_COUNT`
			`jl short @@loop`
			`pop si`
			`pop bp`
			`retn`
[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			`cdg_free_all endp`