.MODEL	SMALL
	.STACK	100H
	.DATA
TEL1	DW	0F000H	;Maak deze constante kleiner als het te snel
			;gaat of groter als het te lang duurt.
TEL2	DW	0
	.CODE
	MOV	AX,@DATA
	MOV	DS,AX
	CLI
LUS1:	INC	[TEL1]
	JE	KLAAR
LUS2:	INC	[TEL2]
	JNE	LUS2
	JMP	LUS1
KLAAR:	STI
	MOV	AH,4CH
	INT	21H
	END