.file "20000801-1.c" .text .align 2 .globl foo .type foo, @function foo: link.w %a6,#0 move.l %a2,-(%sp) move.l 8(%a6),%a0 move.l %a0,%a2 add.l 12(%a6),%a2 cmp.l %a0,%a2 jbls .L7 .align 2 .L5: lea (3,%a0),%a1 move.b (%a1),%d0 move.b (%a0),(%a1) move.b %d0,(%a0)+ lea (1,%a0),%a1 move.b (%a1),%d0 move.b (%a0),(%a1) move.b %d0,(%a0) lea (2,%a1),%a0 cmp.l %a0,%a2 jbhi .L5 .L7: move.l (%sp)+,%a2 unlk %a6 rts .size foo, .-foo .align 2 .globl main .type main, @function main: link.w %a6,#-4 move.l %a2,-(%sp) moveq.l #1,%d0 move.l %d0,-4(%a6) pea 4.w pea -4(%a6) lea foo,%a2 jbsr (%a2) pea 4.w pea -4(%a6) jbsr (%a2) lea (16,%sp),%sp moveq.l #1,%d0 cmp.l -4(%a6),%d0 jbeq .L10 jbsr abort .align 2 .L10: clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"