ESE SEGMENT
STRING DB 7,0,7 DUP (?)
ESE ENDS
CODE SEGMENT
ASSUME ES:ESE,CS:CODE
START:
MOV AX,ESE
MOV ES,AX
LEA DX,ES:STRING+2
MOV AH,0AH
INT 21H
MOV AL,038H
CLD
MOV CL,6
LEA DI,ES:STRING+2
REPNE SCASB
MOV DL,06H
SUB DL,CL
ADD DL,30H
MOV AH,02H
INT 21H
DEC DI
MOV AL,20H
MOV [DI],AL
MOV STRING+8,'$'
LEA DX,ES:STRING+2
MOV AH,09H
INT 21H
MOV AH,4CH
INT 21H
CODE ENDS
END START