data    segment

ENG         db    'SUNdayS Coming I Wanna Drive My Car,SUN,SUN$'        ;43,35

sun1        db    'SUN'

swcount        db    0ah,0dh,'single word number:',?,?,'$'

suncount    db    0ah,0dh,'SUN:',?,'$'

data    ends

code    segment

assume    cs:code,ds:data,es:data

start:

            mov    ax,data

            mov    ds,ax

            mov    es,ax

            lea dx,ENG

            mov    ah,

            int    21h

swcount1:

            mov al,ENG[si]

            cmp al,'$'

            jz     output1

            cmp al,'A'

            jb     next

            cmp al,'Z'

            ja     text1

            jmp addswc

text1:        cmp al,'a'

            jb     next

            cmp al,'z'

            ja     next

addswc:        inc swcount[]

            cmp al,'S'

            jz  strcmp

            jmp next

to:

            pop si

next:        inc si

            jmp swcount1

strcmp:

            push si

            cld

            xor di,di

            lea di,sun1

            lea si,ENG[si]

            mov cx,

            repz cmpsb

            jnz addcount

            inc suncount[]

addcount:

            jmp to

output1:

            xor cx,cx

            mov al,swcount[]

            cbw

loopb:

            xor dx,dx

            inc cl

            mov bx,

            div bx                    ;ax商,dx余

            push dx                    ;余数入栈

            cmp ax,

            jne loopb

            xor si,si

loopc:

            pop dx

            or  dl,00110000b

            mov swcount[+si],dl

            inc si

            loop loopc

            lea dx,swcount

            mov    ah,

            int    21h

            or suncount[],00110000b

            lea dx,suncount

            mov    ah,

            int    21h

exit:        mov    ah,4ch

            int    21h

code    ends

end    start