8085程序查找一次出现的元素

在8085汇编语言中，我们可以使用线性查找算法来查找一个元素是否在一个数组中，并返回该元素第一次出现的位置。

线性查找算法

1. 从数组的第一个元素开始遍历数组，逐个与要查找的元素进行比较。
2. 如果找到了要查找的元素，则返回该元素的下标。
3. 如果遍历完整个数组都没有找到要查找的元素，则返回-1表示未找到。

查找一次出现的元素

要查找一次出现的元素，可以在找到元素的下标后，继续向后遍历数组，直到遇到第二个该元素或者遍历完整个数组。

以下是一个实现这个算法的8085程序：

ORG 0000H
    MVI C, 0AH ; 数组长度
    LXI H, 3000H ; 数组起始地址
    MVI A, 25H ; 要查找的元素
    MVI B, 00H ; 初始化计数器
LOOP:
    LDA H ; 从内存中加载一个字节到累加器A
    CMP A ; 比较累加器A和寄存器A中的内容
    JZ FOUND ; 如果相等，跳转到FOUND标签处
    INX H ; H指针加1
    INR B  ; 计数器加1
    DCR C ; 数组长度减1
    JNZ LOOP ; 如果数组长度不为0，继续循环
    JMP NOTFOUND ; 如果数组长度为0，跳转到NOTFOUND标签处
FOUND:
    INR B ; 计数器加1
    INX H ; H指针加1
    DCR C ; 数组长度减1
    LDA H ; 从内存中加载一个字节到累加器A
    CPI A ; 比较累加器A和寄存器A中的内容
    JZ SECONDFOUND ; 如果相等，跳转到SECONDFOUND标签处
    JMP DONE ; 如果不相等，跳转到DONE标签处
SECONDFOUND:
    INR B ; 计数器加1
    JMP DONE ; 跳转到DONE标签处
NOTFOUND:
    MVI B, FFH ; 如果未找到，将B设置为-1
DONE:
    HLT ; 停机指令，程序结束

该程序通过将数组的起始地址存储在HL寄存器中，然后循环遍历数组，每次比较累加器A与要查找的元素，直到找到元素或者遍历完整个数组。如果找到了元素，继续向后遍历数组，直到遇到第二个该元素或者遍历完整个数组，最终将找到的元素的下标存储在B寄存器中，并停止程序。如果未找到元素，将B寄存器设置为-1。

参考资料：

1. 《8085 Assembly Language Programming》, Dr. V. Udayashankara, Wiley India, 2010.