; Autor: Alexandre Oliveira
; Data: 2004-09-27
; Assembly para a Máquina 2002
; Objetivo deste programa:
;   Conta quantas vogais maiúsculas são lidas.
;   A comparação com as vogais é feita com uma "busca binária" (ou árvore binária).



org 1000h
L0: equ 30h
LA: equ 41h
LE: equ 45h
LI: equ 49h
LO: equ 4Fh
LU: equ 55h
CR: equ 0Dh
LF: equ 0Ah
	mov B, 0
ler:
	in A
	cmp A, CR
	jz acabouleitura
	cmp A, LI
	jz incre
	jnc maiorquei
	jc menorquei
maiorquei:
	cmp A, LO
	jz incre
	jnc maiorqueo
	jc ler
menorquei:
	cmp A, LE
	jz incre
	jc menorquee
	jc ler
maiorqueo:
	cmp A, LU
	jz incre
	jnz ler
menorquee:
	cmp A, LA
	jz incre
	jnz ler
incre:
	inc B
	jr ler
acabouleitura:
	
	mov A, CR
	out A
	mov A, LF
	out A
	
	mov CD, 0000h
	mov SP, CD
	mov D, 0Ah
	mov A, 0
	
	push A
divnum:
	div AB, D ; resto em A, resultado em B
	add A, L0
	push A
	mov A, C ; zerando A
	jneqz B, divnum
	pop A
printnum:
	out A
	pop A
	jneqz A, printnum
	
	halt