;ÄÄÄÄÄÄÄÄÄÄ CODE_SEG_1  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

CODE_SEG_1	segment para public
		assume  CS:CODE_SEG_1, DS:CODE_SEG_1, SS:CODE_SEG_1, ES:CODE_SEG_1

		org	100h

proc_start	proc	far

start:		; N-Ref=0
                push es
                push bp

                mov ah, 2
                int 1Ah
                mov dl, dh
                and dx, 0FFh
                mov bx, dx
                mov ah, 3
                int 10h
                mov si, offset Msg_Deneme
                push ds
                push si
                pop bp
                pop es

                xor cx, cx
loc_scanb:
                lodsb
                and al,al
                je pass_repeat_scanb
                inc cx
                jmp short loc_scanb

pass_repeat_scanb:
                mov ax, 1301h
                int 10h
loc_exit:
                pop bp
                pop es

                int 20h
Msg_Deneme:
                db 07h,0Dh, 0Ah
                db "Bu bir 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 "
                db  "6 7 8 9 0  8 8 8 2 3 4 5 0 1 2 3 43 denemedir ..."
                db 0

proc_start	endp

CODE_SEG_1	ends

		end	start