code	segment
	assume	cs:code
	org	100h

start:	jmp	init

new8	proc
	push	ax	
	push	cx
	push	si
	push	di
	push	ds
	push	es

	xor	si,si
	mov	di,si
	mov	ax,0b800h
	mov	ds,ax
	mov	es,ax
	mov	cx,2000
	cld
next:
	lodsw
	inc	ah
	stosw
	loop	next

	pop	es
	pop	ds
	pop	di
	pop	si
	pop	cx
	pop	ax
	db	0EAh;	jmp	old8
old8o	dw	?
old8s	dw	?
new8	endp

	assume	ds:code

init	proc
	mov	ax,3508h
	int	21h
	mov	old8o,bx
	mov	old8s,es
	mov	ah,25h
	lea	dx,new8
	int	21h
	lea	dx,init
	int	27h
init	endp
code	ends
	end	start