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