EXTRN COPYPSTR:FAR

DSEG   SEGMENT
QUELLE DB 26,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
ZIEL   DB 256 DUP (?)
DSEG   ENDS

CSEG   SEGMENT
       ASSUME CS:CSEG

MAIN   PROC
       MOV  AX,SEG ZIEL
       PUSH AX
       MOV  AX,OFFSET ZIEL
       PUSH AX
       MOV  AX,SEG QUELLE
       PUSH AX
       MOV  AX,OFFSET QUELLE
       PUSH AX
       CALL COPYPSTR
       MOV  AX,SEG ZIEL
       MOV  DS,AX
       MOV  SI,OFFSET ZIEL
       MOV  CL,[SI]
       MOV  CH,0
       INC  SI
LOOPY: MOV  AH,2
       MOV  DL,[SI]
       INT  21h
       INC  SI
       LOOP LOOPY
       MOV  AX,4C00h
       INT  21h       
MAIN   ENDP

CSEG   ENDS

SSEG   SEGMENT STACK
       DW 1024 DUP (?)
SSEG   ENDS

       END MAIN