mirror of
https://github.com/vivier/EMILE.git
synced 2024-11-14 22:04:43 +00:00
26 lines
293 B
OpenEdge ABL
26 lines
293 B
OpenEdge ABL
/*
|
|
*
|
|
* (c) 2004 Laurent Vivier <Laurent@lvivier.info>
|
|
*
|
|
*/
|
|
|
|
.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
|