QMOVE.ASM
资源名称:wattcp.rar [点击查看]
上传用户:better800
上传日期:2022-06-13
资源大小:1853k
文件大小:1k
源码类别:
TCP/IP协议栈
开发平台:
DOS
- PAGE 66,132
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ; qmove.asm
- ;
- ; Efficient move operation. Does not handle segment wraps!!!!
- ;
- ;
- ; Usage :
- ; move( soff, sseg, doff, dseg, count )
- ; unsigned int soff; /* source offset */
- ; unsigned int sseg; /* source segment */
- ; unsigned int doff; /* destination offset */
- ; unsigned int dseg; /* destination segment */
- ; unsigned int count; /* byte count */
- ;
- ; (c) 1984 Erick Engelke
- ;
- ; version
- ;
- ; 0.2 31-Oct-1990 E. P. Engelke - brief version
- ;
- ;
- include masmdefs.hsm
- include model.hsm
- codedef QMOVE
- datadef
- cstart QMOVE
- cpublic qmove
- mov DX,DS
- mov BX,ES ;save segment registers
- lds SI, +@AB+0[BP]
- les DI, +@AB+4[BP]
- mov CX, +@AB+8[BP] ;byte count
- shr CX, 1
- cld
- rep movsw
- jnc @1
- movsb
- @1:
- mov DS,DX
- mov ES,BX
- creturn qmove
- cend QMOVE
- end