public INPUT_WAIT_FOR_CHANGE
input_wait_for_change	proc far
@@frames		= word ptr  6

	push	bp
	mov	bp, sp
	push	si
	push	di
	mov	si, [bp+@@frames]
	xor	di, di

@@release_loop:
	nop
	call	_input_reset_sense
	push	1
	nopcall	frame_delay
	nopcall	_input_sense
	cmp	_key_det, INPUT_NONE
	jnz	short @@release_loop
	or	si, si
	jnz	short @@longer?
	mov	si, 9999
	jmp	short @@longer?

@@press_loop:
	nop
	call	_input_reset_sense
	push	1
	nopcall	frame_delay
	nopcall	_input_sense
	cmp	_key_det, INPUT_NONE
	jnz	short @@ret
	inc	di
	cmp	si, 9999
	jnz	short @@longer?
	xor	di, di

@@longer?:
	cmp	di, si
	jl	short @@press_loop

@@ret:
	pop	di
	pop	si
	pop	bp
	retf	2
input_wait_for_change	endp