;
;FILL-Fill video with happy faces
;
;*************************************
;define video memory as a segment
video    segment at 0B800h
         db  800h dup(?)
video    ends

;***********
coder    segment
fills    proc far
         assume cs:coder
         assume ds:video

         push ds
         sub  ax,ax
         push ax

         mov  ax,video
         mov  ds,ax

         mov  ax,0701h
         mov  bx,0
         mov  cx,0F9Fh

again:
         mov  [bx],ax
         inc  bx
         inc  bx
         loop again
         ret
fills    endp
coder    ends
         end
