org 100h

 mov al,0x13
 int 10h

 push word 0xa000
 pop es

 stosb

 mov cl,199
sivut:
 stosb
 stosb
 add di,318

 loop sivut

 mov cx,2178
 rep stosb


silmu:

 in al,60h
 inc cx
 test al,1
 jnz ei320
 mov cx,320
ei320:
 test al,00010100b
 jnz eineg
 neg cx
eineg:

 repnz scasb

 mov ax,0x0b03
 int 10h
 sub byte [es:di],ah
 cbw

 jc silmu

pois:

 int 10h
 ret