Найти, сколько чисел равно 12h (массив байтовый) - Assembler

Формулировка задачи:

Кому не трудно, помогите исправить ошибки , заранее спасибо

data segment
max db ?
mass db -18,-100,13,16,33,18,110,40,-13,2
data ends
code segment
assume cs: code, ds: data
start: mov ax, data
mov ds, ax
lea bx, mass
xor al,al
mov ax,[bx]
beg: mov ax,[bx]
neg ax
cmp ah,12h
je no
inc al
no: inc bx
loop beg
quit: mov ax,4c00h
int 21h
code ends
end start

Решение задачи: «Найти, сколько чисел равно 12h (массив байтовый)»

textual
                            Листинг программы 
                        

                            ;MASM
.model  small
.386
.stack
.data
max db ?
mass    db -18,-100,13,16,33,18,110,40,-13,2
mass_l  = $-mass
.code
start:  mov ax, @data
    mov ds, ax
    lea si, mass
    mov cx, mass_l
    xor ah,ah
beg:    lodsb
    cmp al,12h
    setz    al
    add ah, al
    loop    beg
    mov al, ah
    aam
    or  ax, 3030h
    xchg    ah, al
    int 29h
    mov al, ah
    int 29h
quit:   mov ax,4c00h
    int 21h
    end start
                        