_TEXT	SEGMENT  BYTE PUBLIC 'CODE'
	ASSUME  CS: _TEXT 

	;busy-wait for out of vblank
	public _aa_wait_no_vblank
_aa_wait_no_vblank proc far
	mov	dx,3dah	;video status port
wnvb:
	in	al,dx
	test al,8
	jnz wnvb
	ret
_aa_wait_no_vblank endp


_TEXT	ENDS
END