org 256

	;mov ax,03h
	;int 10h

	mov cx,129
init	mov al,cl
	call cell
	loop init

	mov ax,3509h
	int 21h
	push es
	push bx
	mov ah,25h
	mov dx,serv
	int 21h
stay	mov cx,0
	loop stay
	pop dx
	pop ds
	int 21h

cell	cld
	and al,7fh
	push cx
	mov cx,0b800h
	push es
	mov es,cx
	mov cx,0a04h
	push di
	mov di,ax
	mul ch
	xchg ax,di
hexa	rol al,cl
	push ax
	and al,0fh
	add al,90h
	daa
	adc al,40h
	daa
	stosw
	pop ax
	shr ch,1
	jnc hexa
	mov ax,3000h+'h'
	stosw
	mov al,' '
	stosw
	stosw
	pop di
	pop es
	pop cx
	ret

serv	push ax
	in al,60h
	mov [cs:stay+1],al
	mov ah,1fh
	test al,80h
	jz down
	mov ah,31h
down	call cell
	mov al,20h
	out 20h,al
	pop ax
	iret