;#####################open file##############################
    open    proc
     lea   dx,file
      mov   ah,3dh
      mov   al,02h;type access
      int   21h
     ret
     open   endp
   ;############################################################
   ;#####################read file##############################
  read      proc
   mov   p,ax
      mov   ah,3fh
      mov   bx,p;number file
      mov   cx,2000
      lea   dx,file
      int   21h
    
  ret
  read  endp
   ;#########################push###############################
   testa    proc
  
   testa1:
   mov  ah,02h
   mov  bh,0
   mov  dh,0
   mov  dl,a
   int  10h
   mov  al,[di]
   cmp  al,20h
   je aaaa
   mov  ah,09h
   mov  bl,5
   mov  cx,1
   int 10h
   inc  di
   add a,1
   jmp testa1
   aaaa:
   ret
   testa  endp
   ;########################################################
    tests    proc
   tests1:
   mov  ah,02h
   mov  bh,0
   mov  dh,0
   mov  dl,a
   int  10h
   mov  al,[di]
   cmp  al,20h
   je ssss
   mov  ah,09h
   mov  bl,6
   mov  cx,1
   int 10h
   inc  di
   add a,1
    jmp tests1
   ssss:ret
   tests  endp
 
  
CSEG    ENDS
END    START    ; set entry point.