DOSSEG
      .MODEL SMALL
      .STACK 100h
      mmask equ 00110000B
      .DATA
      tall DB 200 DUP (?)
      res DB 28 DUP (?)
      teller DB 0
      .CODE
      mov bx,0
      mov si,0
      mov teller,0
      mov cl,7
 mark:
      inc teller
      mov al,teller 
      mov tall[bx],al 
      inc bx
      CMP bx,200
      jl mark
 square:
      mov al,tall[bx]
      xor ah,ah
      div cl
      dec bx
      CMP bx,0
      JLE slutt
      CMP ah,0
      JNE square
      mov res[si],al
      inc si
      JMP square

 slutt:
       mov ah,4ch
       int 21h
      END