16位汇编不使用串操作指令完成简单算法的子串查找

.model small
.stack 256
.data
    substr1 db 'dog'
    data1 db 'there is a dog!$'
    data2 db 'there is not a dog!$'
    len1 dw ?
    len2 dw ?
    count1 dw ?
    count2 dw ?
    counttemp dw ?
    changeline db 0ah,0dh,'$'

第一部分，substr1是子串（substr用不了没查原因），data1是拟主串（顺便充当查找成功的输出信息），data2是查找失败的输出信息，len1，len2是子串和主串的长度（len2实际上等于主串长度减子串长度，因为只需要查到此处），count1是外循环次数，count2是内循环计数器，counttemp是因为当时寻址想用的是count1+count2，但是好像不能这样，就找个了counttemp存一下，changeline是换行的字符串。

.code
.startup
    mov ax,lengthof substr1    ;初始化各值
    mov len1,ax
    mov ax,lengthof data1
    sub ax,len1
    inc ax
    mov len2,ax
    mov count1,0
again1:
    
    mov ax,len2    ;count1记录外循环次数，当达到len2时则退出循环
    cmp count1,ax    ;(两个主存内容不能直接比较，所以一个放到寄存器中)
    jz done
    xor dx,dx    ;dx置为0，count2内循环计数器，记为0
    mov count2,0
    mov cx,len1    ;cx是内循环次数，用cx方便等会直接loop
    
again2:
    mov ax,count1
    add ax,count2    ;count1+count2求得在主串中待比较的字符索引
    mov counttemp,ax
    mov bx,count2
    mov al,substr1[bx]    ;不能直接用count2，所以把count2存在bx内，用间接寻址
    mov bx,counttemp
    cmp data1[bx],al    ;al中存放着子串的某个字符，data1[bx]存放着主串的单个字符
    jnz next    ;不同则跳转至next，不加计数器dx
    inc dx    ;否则相同，dx加1
next:
    cmp dx,len1    ;把dx和子串长度比较，如果相同，则表示有此子串
    jz YES
    inc count2
    loop again2
    inc count1
    jmp again1
YES:    ;输出提示信息
    mov dx,offset data1
    mov ah,9
    int 21h
    mov dx,offset changeline
    mov ah,9
    int 21h
    jmp here    ;注意要记得跳转，否则两个信息都输出了
done:    ;没有此子串，输出提示信息
    mov dx,offset data2
    mov ah,9
    int 21h
    mov dx,offset changeline
    mov ah,9
    int 21h
here:
.exit 0
end

代码解释见注释

思路就是最简单的两层循环逐个字符比较，比较完整个子串，如果相同字符个数与子串长度相同，那么则有此子串。其中count2为比较过程中主串的位置，count1为子串和主串共同比较（一同增加）的位置。