设内存text单元开始存放一个Ascll文本，文本内容以回车符结束。编程实现从键盘接收字符串STR1和STR2，如果STR2在文本中出现，则用STR1替换，要求应用宏程序设计

首先，我们需要定义一些宏来帮助我们实现这个任务：

1. 宏 `GETCHAR`：从内存中读取下一个字符，并将指针指向下一个字符。
2. 宏 `PUTCHAR(c)`：向内存中写入一个字符，并将指针指向下一个字符。
3. 宏 `STRLEN(addr)`：计算从 `addr` 开始的字符串的长度。
4. 宏 `STRCMP(addr1, addr2)`：比较两个字符串是否相等。
5. 宏 `STRCPY(dest, src)`：将字符串 `src` 复制到 `dest`。

然后，我们可以按照以下步骤编写宏程序：

1. 定义变量 `text_ptr`，初始化为指向 `text` 的开头。
2. 使用 `GETCHAR` 读取 `text` 中的每个字符，直到读取到回车符为止。
3. 每当读取到一个字符时，我们将其与 `STR2` 的第一个字符进行比较。如果它们不相等，则使用 `PUTCHAR` 将该字符写入 `text` 中。如果它们相等，则继续比较下一个字符，直到比较完整个字符串。
4. 如果 `STR2` 出现在 `text` 中，则使用 `STRCPY` 将 `STR1` 复制到 `text` 中替换 `STR2`。
5. 最后，将指针 `text_ptr` 指向 `text` 的下一个空闲位置。

下面是完整的宏程序代码：

; 宏定义
GETCHAR     MACRO
                MOV AL, [text_ptr]
                INC text_ptr
            ENDM

PUTCHAR     MACRO c
                MOV [text_ptr], c
                INC text_ptr
            ENDM

STRLEN      MACRO addr
                MOV CX, 0
                MOV AL, [addr]
        @@loop:
                CMP AL, 0
                JE @@done
                INC CX
                INC addr
                MOV AL, [addr]
                JMP @@loop
        @@done:
                MOV AX, CX
            ENDM

STRCMP      MACRO addr1, addr2
                MOV DX, addr2
        @@loop:
                MOV AL, [addr1]
                CMP AL, [DX]
                JNE @@notequal
                CMP AL, 0
                JE @@equal
                INC addr1
                INC DX
                JMP @@loop
        @@equal:
                MOV AX, 1
                JMP @@done
        @@notequal:
                XOR AX, AX
        @@done:
            ENDM

STRCPY      MACRO dest, src
                MOV DX, src
        @@loop:
                MOV AL, [DX]
                MOV [dest], AL
                CMP AL, 0
                JE @@done
                INC dest
                INC DX
                JMP @@loop
        @@done:
            ENDM

; 主程序
        .data
text    DB      1000 DUP (?)
STR1    DB      100 DUP (?)
STR2    DB      100 DUP (?)

        .code
        .startup

        ; 初始化
        MOV text_ptr, OFFSET text

        ; 读取文本内容
        @@read_text:
                GETCHAR
                CMP AL, 0DH ; 回车符
                JE @@done
                CMP AL, 0
                JE @@done
                PUTCHAR AL
                JMP @@read_text

        ; 搜索并替换字符串
        MOV DX, OFFSET STR2
        @@search:
                MOV AX, text_ptr
                STRCMP AX, DX
                JNE @@next
                STRCPY AX, OFFSET STR1
                JMP @@search_done
        @@next:
                GETCHAR
                JMP @@search
        @@search_done:

        ; 完成
        MOV AX, 0
        PUTCHAR AL ; 添加一个字符串结束符

        .exit

注意，这段代码只是一个宏程序示例，不能直接编译和运行。需要根据具体的汇编语言和操作系统进行修改和适配。