汇编语言: 试编写一段程序，要求在长度为 100H 字节的数组中，找出大于 61H 的无符号数的个 数并存入字节单元 UP 中，找出小于 2FH 的无符号数的个数并存入字节单元 DOWN 中。

试编写一段程序，要求在长度为 100H 字节的数组中，找出大于 61H 的无符号数的个 数并存入字节单元 UP 中，找出小于 2FH 的无符号数的个数并存入字节单元 DOWN 中。

data segmentARRAY db 61h,62h,63h,64h,65h,66h,22h,24h,28h,24h,55h,54h,'$'N EQU ($-ARRAY)up db 0down db 0data endsstack segment stackdw 20h dup(?)top label wordstack endscode segment    assume ds:data,cs:code,ss:stack    p proc far     mov ax,data    mov ds,ax    mov ax,stack    mov ss,ax    lea sp,top    mov al,0 ;up    mov dl,0 ;down    lea si,ARRAY    mov cx,N     ; 61h 'a'  2fh '0'  l1:     cmp BYTE PTR[si],61h     ja isupl4: cmp BYTE PTR[si],2fh    jb isdownl2: inc si    loop l1    jmp resultisup:    inc al    jmp l4isdown:    inc dl    jmp l2result:    mov up,al    mov down,dl    mov bh,al    mov bl,dl    mov cx,16l3: rol bx,1    mov dl,bl    and dl,1    add dl,30h    mov ah,2    int 21h     loop l3exit:    mov ah,4ch    int 21h    p endpcode ends     end p