编写程序，将字符串STRING1的内容复制到字符串STRING2中，要求由子程序来实现字符串的复制，并采用堆栈来传递参数。

以下是实现字符串复制的程序代码：

DATA SEGMENT
    STRING1 DB 'Hello, world!', 0
    STRING2 DB 20 DUP (?)
DATA ENDS

STACK SEGMENT STACK
    DW 100 DUP (?)
STACK ENDS

CODE SEGMENT
ASSUME DS:DATA, SS:STACK, CS:CODE
START:
    MOV AX, DATA        ; 初始化数据段寄存器
    MOV DS, AX
    MOV SS, AX          ; 初始化堆栈段寄存器
    MOV SP, 200h

    ; 将 STRING1 的地址压入堆栈
    LEA SI, STRING1
    PUSH SI

    ; 将 STRING2 的地址压入堆栈
    LEA DI, STRING2
    PUSH DI

    ; 调用字符串复制子程序
    CALL STRCPY

    ; 显示结果
    MOV AH, 09h
    LEA DX, STRING2
    INT 21h

    MOV AH, 4Ch         ; 退出程序
    INT 21h

STRCPY PROC NEAR
    PUSH BP             ; 保存 BP 寄存器
    MOV BP, SP          ; 将 SP 寄存器的值存入 BP 寄存器

    ; 从堆栈中取出 STRING2 的地址
    POP DI

    ; 从堆栈中取出 STRING1 的地址
    POP SI

    ; 复制字符串
    MOV CL, [SI]        ; 取出 STRING1 的长度
    ADD CL, 1           ; 加上结尾 0 的长度
    MOV CX, CL          ; 将长度存入 CX 寄存器
    REP MOVSB           ; 逐个复制字符串中的字节

    POP BP              ; 恢复 BP 寄存器
    RET
STRCPY ENDP

CODE ENDS
END START

程序首先在堆栈中依次压入 STRING1 和 STRING2 的地址。然后调用 STRCPY 字符串复制子程序来复制字符串。子程序首先保存 BP 寄存器，并将 SP 寄存器的值存入 BP 寄存器中。然后从堆栈中依次取出 STRING1 和 STRING2 的地址，并使用 REP MOVSB 指令逐个复制字符串中的字节。最后恢复 BP 寄存器，并使用 RET 指令返回。程序结束后，显示复制后的结果，并退出。