org 256

	mov ah,0fh
	int 10h
	cbw
	push ax
	mov al,1
	int 10h
	mov ax,3509h
	int 21h
	mov dx,service
	mov ah,25h
	int 21h

stay	mov cx,0
	loop stay

	push es
	pop ds
	mov dx,bx
	int 21h
	pop ax
	int 10h
	ret

service	push ax
	push es
	mov ax,0b800h
	mov es,ax
	push cx
	mov cx,25*40-4
	push di

	xor di,di
	cld
scroll	mov ax,[es:di+8]
	stosw
	loop scroll

	mov cl,4
	in al,60h
	mov [cs:stay+1],al
	mov ch,al
	and al,7
	ror ax,cl
	mov al,'³'
	stosw

	xor ah,ch
	or ah,0fh
	xor ah,ch
	xchg al,ch
nibble	ror al,cl
	push ax
	and al,0fh
	cmp al,10
	sbb al,69h
	das
	stosw
	pop ax
	shr ch,cl
	jnz nibble

	shl al,1
	mov al,''
	sbb al,ch
	stosw
	pop di
	pop cx
	pop es
	mov al,20h
	out 20h,al
	pop ax
	iret