#include "ext.h"
#include "ext_obex.h"
#include "z_dsp.h"

typedef struct _td_dot_cheaptrunc_tilde {
	t_pxobject ob;
} t_td_dot_cheaptrunc_tilde;

void *td_dot_cheaptrunc_tilde_new(t_symbol *s, long argc, t_atom *argv);
void td_dot_cheaptrunc_tilde_free(t_td_dot_cheaptrunc_tilde *x);
void td_dot_cheaptrunc_tilde_dsp(t_td_dot_cheaptrunc_tilde *x, t_signal **sp, short *count);
t_int *td_dot_cheaptrunc_tilde_perform(t_int *w);

void *td_dot_cheaptrunc_tilde_class;

int main(void) {
	t_class *c;
	c = class_new("td.cheaptrunc~", (method)td_dot_cheaptrunc_tilde_new, (method)dsp_free, (long)sizeof(t_td_dot_cheaptrunc_tilde), 0L, A_GIMME, 0);
	class_addmethod(c, (method)td_dot_cheaptrunc_tilde_dsp, "dsp", A_CANT, 0);
	class_dspinit(c);
	class_register(CLASS_BOX, c);
	td_dot_cheaptrunc_tilde_class = c;
	return 0;
}

void td_dot_cheaptrunc_tilde_dsp(t_td_dot_cheaptrunc_tilde *x, t_signal **sp, short *count) {
	dsp_add(td_dot_cheaptrunc_tilde_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
}

__inline __declspec(naked) t_int *td_dot_cheaptrunc_tilde_perform(t_int *w) {
	__asm {
			push	ebp				; save return address
			mov		ebp,	esp		; enter stack frame
			mov		eax,	[ebp+8]		; eax = *w
			sub		esp,	4		; reserve space for temp
			mov		ebx,	[eax+8]		; ebx = *in
			mov		edx,	[eax+12]	; edx = *out
			mov		ecx,	[eax+16]	; ecx = n
		loopstart:
			fld		dword ptr [ebx]		; st(0) = in[n]
			fisttp	dword ptr [ebp-4]		; temp = (truncatedint) in[n]
			add		ebx,	4		; *in ++
			fild	dword ptr [ebp-4]		; st(0) = temp
			fstp	dword ptr [edx]			; out[n] = (float) st(0)
			add		edx,	4		; *out ++
			dec		ecx			; decrement loop counter
			jnz		loopstart		; loop
			add		eax,	20		; *w += 5
			mov		esp,	ebp		; tidy up stack
			pop		ebp
			ret
	}
}

void *td_dot_cheaptrunc_tilde_new(t_symbol *s, long argc, t_atom *argv) {
	t_td_dot_cheaptrunc_tilde *x = NULL;
	if (x = (t_td_dot_cheaptrunc_tilde *)object_alloc(td_dot_cheaptrunc_tilde_class)) {
		dsp_setup((t_pxobject *)x, 1);
		outlet_new(x, "signal");
	}
	return (x);
}