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