mirror of
https://github.com/vivier/EMILE.git
synced 2024-09-08 04:54:25 +00:00
26 lines
297 B
OpenEdge ABL
26 lines
297 B
OpenEdge ABL
|
/*
|
||
|
*
|
||
|
* (c) 2004 Laurent Vivier <LaurentVivier@wanadoo.fr>
|
||
|
*
|
||
|
*/
|
||
|
|
||
|
.macro copymem src, dst, size
|
||
|
cmpa.l \src, \dst
|
||
|
bgt.s 1f
|
||
|
0:
|
||
|
move.b (\src)+,(\dst)+
|
||
|
subq.l #1,\size
|
||
|
bge.s 0b
|
||
|
|
||
|
bra 4f
|
||
|
|
||
|
1:
|
||
|
adda.l \size, \src
|
||
|
adda.l \size, \dst
|
||
|
2:
|
||
|
move.b -(\src),-(\dst)
|
||
|
subq.l #1,\size
|
||
|
bge.s 2b
|
||
|
4:
|
||
|
.endm
|