DATA SEGMENTBUF DB 25 ACTHAR DB ? CHAR DB 25 DUP (?) DB $ CR db 0Dh,0Ah,$ DATA ENDSCODE SEGMENT ASSUME CS: CODE, DS: DATASTART: next: MOV AX, DATA MOV DS, AX MOV DX, OFFSET BUF MOV AH, 0AH INT 21H CMP AL,0FFH JZ EXIT MOV AH,2 MOV DL,0DH INT 21H MOV DL,0AH INT 21H MOV DX,OFFSET BUF+2 ;MOV DX,OFFSET CHAR MOV BX,OFFSET ACTHAR MOV BL,BX ADD BX,DX MOV BYTE PTR BX,$ MOV AH,09H INT 21H mov dx,offset CR MOV AH,09H INT 21H loop next EXIT: MOV AX,4C00H INT 21H CODE ENDS END START