include io.asm

stack segment stack
	dw 128 dup (?)
stack ends

data segment
  chart equ 'c' ; наш символ
data ends

code segment 'code'
	assume ss:stack, ds:data, cs:code
pro proc
    inch bl
	cmp bl,'$'
	je L2
	push bx
	call pro
	pop bx
	cmp bx,chart
	jne L1
	inc ax
 L1:ret
 L2:mov ax,0
	ret
pro endp	
	
start:
	mov ax,data
	mov ds,ax
    push bx
	call pro
    pop bx
	outint ax
    finish
code ends
    end start