DATA  SEGMENT
      STRING  DB        'The Personal Computer & TV'
    GET_CHAR  DB        ?
        DATA  ENDS
      SSTACK  SEGMENT
              DB        ?
      SSTACK  ENDS

        CODE  SEGMENT
              ASSUME    CS:CODE,DS:DATA,ES:DATA ,SS:SSTACK
      START:
              PUSH      DS
              SUB       AX,AX
              PUSH      AX
              MOV       AX,DATA
              MOV       DS,AX
              CLD
              LEA       SI,STRING
              LEA       DI,GET_CHAR
              MOV       AH,9
              INT       21H
              MOV       CX,26
              CLD
              REP       MOVSB
        CODE  ENDS
              END       START

错误百出，呵呵

DATA  SEGMENT
    STRING      DB "The Personal Computer & TV", '$'
    GET_CHAR    DB 27 dup (?)
DATA  ENDS

CODE  SEGMENT
      ASSUME    CS:CODE,DS:DATA,ES:DATA
START:
      PUSH      DS
      SUB       AX,AX
      PUSH      AX
      MOV       AX,DATA
      MOV       DS,AX
      MOV       ES,AX
      LEA       SI,STRING
      LEA       DI,GET_CHAR
      MOV       CX,27
      CLD
      REP       MOVSB
      LEA       DX,GET_CHAR
      MOV       AH,9
      INT       21H     
      RETF
CODE  ENDS
      END       START