TITLE PROG4-3 READS IN LAST NAME AND DISPLAYS LENGTH
  PAGE 60,132
  .MODEL SMALL
  .STACK 64 (?)
  .DATA
  MESSAGE1 DB 'What is your last name?','$'
  ORG 20H
  BUFFER1 DB 9,?,9 DUP (0)
  ORG 30H
MESSAGE2 DB CR,LF,'The number of letters in your name is: ','$'
  ROW EQU 08
  COLUMN EQU 05
  CR EQU 0DH 
  LF EQU 0AH 
  .CODE
  MAIN PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  CALL CLEAR
  CALL CURSOR
  MOV AH,09 
  MOV DX,OFFSET MESSAGE1
  INT 21H
  MOV AH,0AH 
  MOV DX,OFFSET BUFFER1
  INT 21H
  MOV BX,OFFSET BUFFER1 
  MOV CL,[BX+1] 
  OR CL,30H 
  MOV MESSAGE2+40,CL 
  MOV AH,09 
  MOV DX,OFFSET MESSAGE2
  INT 21H
  MOV AH,4CH
  INT 21H 
  MAIN ENDP
  CLEAR PROC 
  MOV AX,0600H
  MOV BH,07
  MOV CX,0000
  MOV DX,184FH
  INT 10H
  RET
  CLEAR ENDP
  CURSOR PROC 
  MOV AH,02
  MOV BH,00
  MOV DL,COLUMN
  MOV DH,ROW
  INT 10H
  RET
  CURSOR ENDP
  END MAIN