org 0x8200
bits 16

  ; Reveal the true nature of jen
  xor bx, bx
loop:
  cmp bx, WOMBLE_LEN
  jae done
  lea si, [womble + bx]
  mov dh, [si]
  mov di, bx
  shl di, 1
  mov byte fs:[di], dh
  mov byte fs:[di + 0x01], 0x1f
  inc bx
  jmp loop
done:
  hlt

womble     db "jen is a womble!"
WOMBLE_LEN equ $ - womble