BITS 16

mov bl, 0xFA
mov dx, 0x0000

.repeat:

in al, 0x60
cmp al, bl
je .repeat
mov bl, al

cmp al, 0x1E
je .a

jmp .repeat

.a

mov cl, 0x41
jmp .print

.print

mov ax, 0xB800
mov es, ax

mov ah, 0xE4
mov al, cl
mov cl, bl
mov bx, dx
mov [es:bx], ax
mov bl, cl
add dx, 2

jmp .repeat

times 510-($-$$) db 0
dw 0xAA55