;程序模板

extrn messg1:byte,namepar:byte,crlf:byte,namelen:byte,namefld:byte,namectr:byte
public b10read,d10stor

CSEG SEGMENT
	assume  cs:CSEG
  start:	
b10read proc far

  mov ah,09
  lea dx,messg1
  int 21h

mov ah,0ah
lea dx,namepar
int 21h

mov ah,09h
lea dx,crlf
int 21h

mov bh,0
mov bl,namelen
mov cx,21
sub cx,bx

b20:
mov namefld[bx],20h
inc bx
loop  b20
ret

b10read endp

d10stor proc far
  inc namectr
  cld 
  lea si,namefld
  mov cx,10
  rep movsw
  ret

d10stor endp
	
CSEG ENDS

END start