first db 100 dup(?)db '$'czr equ $-firstzs db 0..mov bx,offset firstmov cx,czrnext:mov al,[bx]cmp al,'A'jne no_ainc zsno_a:inc bxloop next..结果保存在ZS单元中。