;coded by jets@mail.ru
public pro1

C1 SEGMENT 
 ASSUME CS:C1

pro1 proc far
   .386
   pusha        		;save all registers
   mov bp,sp    		;
   add bp,20    		;
   mov ax,[bp]  		;get our 'delimoe'
   add bp,20;   		;reposition to buttom element of array in stek
   mov bx,3     		;3 to bx - 'base of system'

del_strt:       		;del and save to our array in stek
   div bl       		;
   mov [bp],ah                  ;
   sub bp,2                     ;
   mov ah,0                     ;
   mov dx,0                     ;
   cmp ax,dx                    ;
   jne del_strt                 ;

   popa         		;restore all registers
   ret          		;exit from proc
pro1 endp

C1 ENDS
END