STRING LENGTH

ASSUME CS:CODE,ES:EXTRA
CODE SEGMENT
MOV AX,EXTRA
MOV ES,AX
MOV AX,0000H
MOV DI,OFFSET STR1
MOV AL,'$'
MOV CX,0000H
ITER:
        SCASB
        JE EXIT_LOOP
        INC CX
JMP ITER
EXIT_LOOP:
        HLT
CODE ENDS
EXTRA SEGMENT
STR1 DB 'GEETHANJALI$'
EXTRA ENDS
END