Motorola 68000汇编：通过栈参数实现数组A逆序复制到数组B

API 探路者

2026-6-12

任务

编写一个Motorola 68000程序，实现：
将输入数组A的元素顺序逆序
将结果复制到第二个数组B中
所有逻辑必须放在一个或多个子例程中，参数通过栈传递。

我运用之前所学的全部知识（参数传递、寄存器使用、最小栈帧、循环优化等），写出了当前解决方案：

ORG    $8000

; ---------- 数据段 ----------
VectorA   DC.B  1,2,3,4,5,6    ; 示例输入数组
LenA      EQU   6             ; 数组元素个数
VectorB   DS.B  LenA          ; 目标缓冲区

; ---------- 入口点 ----------
START:
    PEA.L  VectorB            ; 压入B的地址（长字）
    MOVE.L #LenA,-(A7)        ; 压入数组长度（长字）
    PEA.L  VectorA            ; 压入A的地址（长字）
    BSR.S  ReverseCopy        ; 调用逆序复制子例程
    ADDA.L #12,A7             ; 清理栈中3个长字的参数
    SIMHALT                  ; 模拟器暂停

; --------------------------------------------------------
; ReverseCopy(&A, length, &B)
;  
; 输入（栈中）: 4(A7)=&A, 8(A7)=length, 12(A7)=&B
; 输出: 无（但B会被填充逆序结果）
; 修改的寄存器: A0, A1, D0, D1
; --------------------------------------------------------
ReverseCopy:
    MOVEA.L  4(A7),A0        ; A0 = 数组A的地址
    MOVE.L   8(A7),D0        ; D0 = 数组长度（32位）
    MOVEA.L 12(A7),A1        ; A1 = 数组B的地址

    BEQ.S   .Done            ; 如果长度为0，直接返回

    ADD.L   D0,A0            ; A0指向数组A最后一个元素的下一个位置
    MOVE.W  D0,D1            ; D1 = 长度（16位，用于DBF指令）
    SUBQ.W  #1,D1            ; DBF会执行正好length次循环

.Loop:
    MOVE.B  -(A0),(A1)+      ; 将A的最后一个元素复制到B的下一个位置
    DBF     D1,.Loop         ; D1减1，若>=0则继续循环

.Done:
    RTS                      ; 返回主程序

          END   START

编辑——包含所有实现变体的完整调度方案

我添加了一个调度例程，可以选择三种实现方式：

32位单字节循环（无截断）
68010 MOVE+DBF单字节循环（紧凑循环缓冲区）
68000字交换循环（通过ROR.W #8一次处理2字节）

; --------------------------------------------------------
; 调度入口点（通过BSR.S ReverseAllVariants调用）
; 取消注释你想使用的变体：
ReverseAllVariants:
    ; JMP ReverseSingleByte
    ; JMP ReverseDBF
    JMP ReverseSwap

; -- 变体1: 32位单字节循环 --------------------
ReverseSingleByte:
    MOVE.L  8(A7),D0            ; D0 = 数组长度
    BEQ.S   .Done1              ; 长度为0则跳过
    MOVEA.L 4(A7),A0            ; A0 = &A
    MOVEA.L 12(A7),A1           ; A1 = &B
    ADD.L   D0,A0               ; A0指向A的末尾
1Loop:
    MOVE.B  -(A0),(A1)+         ; 复制最后一个字节
    SUBQ.L  #1,D0               ; 计数器减1
    BNE.S   1Loop               ; 直到D0 == 0
.Done1:
    RTS

; -- 变体2: 68010 MOVE+DBF单字节循环 ----------
ReverseDBF:
    MOVE.L  8(A7),D0            ; D0 = 数组长度
    BEQ.S   .Done2              ; 长度为0则跳过
    MOVEA.L 4(A7),A0            ; A0 = &A
    MOVEA.L 12(A7),A1           ; A1 = &B
    ADD.L   D0,A0               ; A0指向A的末尾
    MOVE.W  D0,D0               ; D0.W = 长度
    SUBQ.W  #1,D0               ; 为DBF指令做准备
DBFLoop:
    MOVE.B  -(A0),(A1)+         ; 复制最后一个字节
    DBF     D0,DBFLoop          ; 直到D0.W == -1
.Done2:
    RTS

; -- 变体3: 68000字交换循环 ----------------------
ReverseSwap:
    MOVE.L   8(A7),D0           ; D0 = 数组长度
    BEQ.S    .Done3             ; 长度为0则跳过
    MOVE.L   D0,D2              ; D2 = 长度副本
    ANDI.L   #1,D2              ; D2 = 奇数余数（判断长度是否为奇数）
    MOVE.L   D0,D1
    LSR.L    #1,D1              ; D1 = 字计数 = len/2
    MOVEA.L  4(A7),A0           ; A0 = &A
    MOVEA.L 12(A7),A1           ; A1 = &B
    TST.L    D2                 ; 如果是奇数，先处理末尾的单个字节
    BEQ.S    .WordLoopStart
    MOVE.B   -(A0),(A1)+
.WordLoopStart:
    MOVE.W   -(A0),D0           ; 加载两个字节
    ROR.W    #8,D0              ; 交换字节顺序
    MOVE.W   D0,(A1)+           ; 存储交换后的字
    DBF      D1,.WordLoopStart  ; 重复循环
.Done3:
    RTS

请问还需要调整什么内容吗？

内容的提问来源于stack exchange，提问作者Pato