.MODEL SMALL
.STACK 200H
.DATA
ERRMSG DB 'The data are insufficient,unable to change$' ;当LEN设置过大而BUF1中的数据较少时提示错误
BUF1 DB '0123456789ABCDEFGHIJKLMNOPQRSTUV',0DH,0AH,'$' ;欲交换的数据,最大65536个
DATALEN EQU $-BUF1-3 ;数据长度
LEN EQU 4 ;数据表示位数,最大为16
.CODE
SWAP MACRO PARAMETER1,PARAMETER2 ;两个字节的交换
MOV AL,PARAMETER1
MOV AH,PARAMETER2
MOV PARAMETER2,AL
MOV PARAMETER1,AH
ENDM
REVERSE MACRO PARAMETER1,PARAMETER2 ;实现二进制数据倒序
;如欲交换数据长度大于65536可将对应寄存器改用32位积存器,为避免程序混乱,参数1和参数2不能为本宏中的用到的寄存器
LOCAL LOP,OVER ;为避免重复调用该宏时程序发生混乱,应将标识本地化
PUSH CX ;保存CX,因为该宏可能在一个loop循环中被调用
MOV AX,0 ;AX初值赋0
MOV DX,PARAMETER1 ;欲倒序的数据存入DX
MOV CX,LEN-1 ;
MOV BX,1 ;
SHL BX,CL ;使BX中低LEN位中的最高位为1
MOV CX,LEN ;欲循环次数送入CX
LOP: SHR DX,1 ;欲交换数据最低位送入CF
JNC OVER ;如果CF不为1则不对AX进行操作
OR AX,BX ;如果CF为1则设置AX中对应(逆值后)位置为1
OVER: SHR BX,1 ;BX右移,准备设置下一位
LOOP LOP
MOV PARAMETER2,AX ;结果存入参数2中
POP CX ;恢复CX的值
ENDM
PUTBUF MACRO ;输出BUF1中的值
MOV AX,@DATA
MOV DS,AX ;数据段对齐
LEA DX,BUF1 ;BUF1偏移地址送入DX
MOV AH,9
INT 21H ;开始输出
ENDM ;宏结束
MAIN PROC FAR ;主程序开始
MOV CL,LEN ;
MOV BX,1 ;
SHL BX,CL ;设置BX为2的LEN次方
CMP BX,DATALEN ;比较欲交换数据个数和实际数据个数的大小
JA ERROR ;给出的实际数据不足,跳出
PUTBUF ;输出交换前缓冲区数据
SHR BX,1 ;设置循环次数为欲交换的数据个数的一半
MOV CX,BX ;循环次数次数送入CX
MOV DI,0 ;设置偏移量(欲二进制逆置的数据)的初始值
LOP: REVERSE DI,SI ;对DI逆置并送入SI(注意:实际参数不可使用REVERSE宏中用到的寄存器)
CMP DI,SI ;比较DI和SI的大小,防止逆置重复
JLE NEXT ;没有重复则跳过下面代码段
PUSH CX ;保存循环寄存器
MOV CL,LEN ;欲交换数据表示位数送入CL
MOV DX,1 ;DX送入值1
SHL DX,CL ;
DEC DX ;置DX中低LEN位为1
XOR DI,DX ;对DI中低LEN位取反
XOR SI,DX ;对SI中低LEN位取反
SWAP BUF1[DI],BUF1[SI] ;交换该偏移位置处的数据
XOR DI,DX ;还原DI中的数据
XOR SI,DX ;还原SI中的数据
POP CX ;恢复循环寄存器
JMP NEXT2 ;跳到NEXT2准备下次循环
NEXT: JE NEXT2 ;如果相等则不操作,跳到NEXT2准备下次循环
SWAP BUF1[DI],BUF1[SI] ;交换该偏移位置处的数据
NEXT2: INC DI ;偏移位置加1
LOOP LOP ;如果CX不等于0进入下次循环
PUTBUF ;输出BUF1中的数据
EXIT: MOV AH,1 ;
INT 21H ;暂停
MOV AX,4C00H
INT 21H ;返回操作系统
ERROR: MOV AX,@DATA
MOV DS,AX ;数据段地址送入DS
MOV AH,9
LEA DX,ERRMSG
INT 21H ;输出错误信息
JMP EXIT ;跳出,按任意键返回操作系统
MAIN ENDP ;主函数结束
END MAIN ;主程序结束