Подсчет букв и цифр в массиве. Опции

[Venom]

Помогите написать программу. В институте задали, а про ассемблер ничего не рассказывают. Препод, которая задала прогу, сама его толком не знает, она только задания раздает, а препод который должен объяснять вообще на пары не ходит. Вот так вот мы и учимся, а сдавать все равно нужно...

Вот задание: Дан массив состоящий из букв и цифр. Подсчитать в нем колличество букв и цифр. При написании программы использовать модель памяти Small.

[volvo]

Что ж вас, совсем ничему не учат? Вот основа программы, здесь не хватает только одной - единственной процедуры WriteDEC, которая получает через регистр AL байт, и печатает его десятичное представление (я ж не могу тебе программу предоставлять полностью, без усилий с твоей стороны, правда? Хотя бы процедуру напиши).

	.model small
	.data
		
sLetters	db 10, 13, 'Letters: ', '$'
sDigits	db 10, 13, 'Digits: ', '$'

Arr 		db 'h3llo 12345 w0rld ', '$'
ArrLen = $ - Arr

bLetters 	db 0
bDigits 	db 0

	.code

WriteDEC proc
; AL - байт для отображения 
...
WriteDEC endp

start:
        mov ax,@data
        mov ds,ax
	mov es, ax
	
	mov cx, ArrLen
	mov di, offset Arr
L1:
	mov al, [di]
        cmp AL, '0'
        jb L2
        cmp AL, '9'
        ja CheckLetter
	inc bDigits
	jmp L2
	
	CheckLetter:
	cmp al, 'a'
	jb L2
	cmp al, 'z'
	ja L2
	inc bLetters
	
	L2:
	inc di	
	loop L1
	
	mov dx, offset sLetters
	mov ah, 9h
	int 21h
	mov al, bLetters
	call WriteDEC
	
	mov dx, offset sDigits
	mov ah, 9h
	int 21h
	mov al, bDigits
	call WriteDEC

        mov ah, 4ch
        int 21h
end start

Если что непонятно - спрашивай...