cpu 8086
	org 256
start:
	mov ax, 3570h
	int 21h
	mov word [next + 2], es
	mov word [next + 0], bx
	mov ax, 2570h
	mov dx, handler
	int 21h

	in al, 0A1h
	and al, ~1
	out 0A1h, al

	xor ax, ax
	int 2Dh
	mov dx, [variable]
	mov ax, 2600h
	int 2Dh
	mov dx, [variable]
	mov ax, 3800h
	int 2Dh
	mov dx, [variable]

	lds dx, [next]
	mov ax, 2570h
	int 21h
	mov ax, 4C00h
	int 21h

handler:
	inc word [cs:variable]

	jmp 0:0
next: equ $ - 4

	align 2
variable:	dw 0