1. org 100h
  2.  
  3.  mov al,0x13
  4.  int 10h
  5.  
  6.  push word 0xa000
  7.  pop es
  8.  
  9.  stosb
  10.  
  11.  mov cl,199
  12. sivut:
  13.  stosb
  14.  stosb
  15.  add di,318
  16.  
  17.  loop sivut
  18.  
  19.  mov cx,2178
  20.  rep stosb
  21.  
  22.  
  23. silmu:
  24.  
  25.  in al,60h
  26.  inc cx
  27.  test al,1
  28.  jnz ei320
  29.  mov cx,320
  30. ei320:
  31.  test al,00010100b
  32.  jnz eineg
  33.  neg cx
  34. eineg:
  35.  
  36.  repnz scasb
  37.  
  38.  mov ax,0x0b03
  39.  int 10h
  40.  sub byte [es:di],ah
  41.  cbw
  42.  
  43.  jc silmu
  44.  
  45. pois:
  46.  
  47.  int 10h
  48.  ret