TITLE PROGRAM 4-4 REWRITTEN WITH FULL SEGMENT DEFINITION
  PAGE 60,132
  STSEG SEGMENT
  DB 64 DUP (?)
  STSEG ENDS
  DTSEG SEGMENT
  PROMPT1 DB 'There is a message for you from Mr. Jones. '
  DB 'To read it enter Y','$'
  MESSAGE DB CR,LF,'Hi! I must leave town tomorrow, '
  DB 'therefore I will not be able to see you','$'
  PROMPT2 DB CR,LF,'No more messages for you','$'
  DTSEG ENDS
  CR EQU 0DH
  LF EQU 0AH
  CDSEG SEGMENT
  MAIN PROC FAR
ASSUME CS:CDSEG,DS:DTSEG,SS:STSEG
  MOV AX,DTSEG
  MOV DS,AX
  CALL CLEAR 
  CALL CURSOR 
  MOV AH,09 
  MOV DX,OFFSET PROMPT1
  INT 21H
  MOV AH,07 
  INT 21H
  CMP AL,'Y' 
  JZ OVER
  CMP AL,'y'
  JZ OVER
  MOV AH,09 
  MOV DX,OFFSET PROMPT2
  INT 21H
  JMP EXIT
OVER: MOV AH,09 
  MOV DX,OFFSET MESSAGE
  INT 21H
EXIT: 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,05 
  MOV DH,08 
  INT 10H
  RET
  CURSOR ENDP
  CDSEG ENDS
  END MAIN