org 0x7c00
base equ 0x7c00
msg db "too young too simple"

;mov ax, cs
;mov ds, ax
;mov es, ax
;mov ss, ax
mov sp, base

clear:
  mov ax, 0x0600
  mov bx, 0x0700
  mov cx, 0
  mov dx, 0xffff
  int 0x10
  jmp focus

focus:
  mov ax, 0x0200
  mov bx, 0
  mov dx, 0x0505
  int 0x10
  jmp elder

elder:
  mov ax, 0x1301
  mov bx, 0x000f
  mov dx, 0x1010
  mov bx, 0x0002
  mov cx, 20
  ;push ax
  ;mov ax, ds
  ;mov es, ax
  ;pop ax
  mov bp, msg
  int 0x10
  jmp start

start:
  jmp clear

call start
times 510 - ($ - $$) db 0
dw 0xaa55