org 100h

mov ax,13h
int 10h

mov ax,0a000h
mov es,ax

mov bx,0 ;t
mov cx,0 ;x

l1:
mov ax,0a000h
mov [es:di], byte 01

mov ax,cx ; avoid mangling x
xor ax,bx ; xor x t
mov dx,320
mul dx ; y * 320
add ax,cx ; y + x
mov di,ax
inc cx
cmp cx,200
jnz l1

mov ax,0
l2:
hlt
hlt
hlt
inc ax
cmp ax,50000
jnz l2

mov cx,0
inc bx
cmp bx,512
jnz l1

xor ax,ax
int 16h

mov ax,3
int 10h

mov ax,4C00h
int 21h