using "system"
	org $code

	push string
	call [$prins]
waiting:
	in al, 0x64
	and al, 1
	jz waiting
	in al, 0x60
	call printhex
	
	jmp waiting
	ret

printch:
 	mov ecx, [cursor]
       	mov [ecx],al
	inc ecx
	mov byte [ecx],7
	inc ecx
	mov [cursor], ecx
	ret

printhex:
	mov ebx, eax
	ror al, 4
	and eax, 15
	mov al, [hexes+eax]
	call printch
	mov eax, ebx
	and eax, 15
	mov al, [hexes+eax]
	call printch
	mov al, ' '
	call printch
	mov eax, ebx
	ret

cursor: dd 0xB87d0

string:	db "Hello\n", 0

hexes:	db "0123456789ABCDEF"