Liczy_a

; IN: string
; OUT: liczba liter 'a'(duze  i male)
; PIN:  Ala ma kota
; POUT: 4
.286
.model small
.stack 100h
.data
  napis db 'Podaj lancuch znakow:',13,10,'$'
  bufor db 100,101 dup('$')
.code
start:	mov ax,seg @data
	mov ds,ax

	mov dx,offset napis
	mov ah,9
	int 21h

	mov dx,offset bufor
	mov ah,10
	int 21h

	mov dl,10
	mov ah,2
	int 21h

	mov ax,offset bufor
	add ax,2
	push ax
	call zlicz_a
	add sp,2

	call wypisz

koniec:	mov ax,4c00h
	int 21h

zlicz_a proc
	mov bp,sp
	mov bx,[bp+2]

	mov ax,0
@@pet:	mov dl,[bx]
	cmp dl,13
	je @@kon
	cmp dl,'a'
	je @@licz
	cmp dl,'A'
	je @@licz
	jmp @@dal
@@licz:	inc ax
@@dal:	inc bx
	jmp @@pet
@@kon:	ret
zlicz_a endp

wypisz proc
	mov cx,0ah
	mov dx,0
	div cx
	cmp ax,0
	je @@kon
	push dx
	call wypisz
	pop dx
@@kon:	mov ah,02h
	add dl,'0'
	int 21h
	ret
wypisz endp

reverse proc
	mov bp,sp
	mov si,[bp+2]

	mov di,si
@@pet:	mov dl,[di]
	cmp dl,13
	je @@dal
	inc di
	jmp @@pet
@@dal:	dec di

@@pett:	cmp si,di
	jae @@kon
	mov dl,[si]
	mov dh,[di]
	mov [si],dh
	mov [di],dl
	inc si
	dec di
	jmp @@pett
@@kon:	ret
reverse endp

end start