.file "20000605-2.c" .text .align 2 .globl f1 .type f1, @function f1: link.w %a6,#0 move.l %d2,-(%sp) move.l 8(%a6),%a0 move.l 12(%a6),%a1 clr.l %d1 move.l (%a0),%d0 cmp.l (%a1),%d0 jbge .L9 .align 2 .L7: addq.l #1,%d1 moveq.l #5,%d2 cmp.l %d1,%d2 jblt .L10 move.l (%a0),%d0 move.l %d0,%d2 addq.l #1,%d2 move.l %d2,(%a0) cmp.l (%a1),%d2 jblt .L7 jbra .L9 .align 2 .L10: jbsr abort .align 2 .L9: move.l -4(%a6),%d2 unlk %a6 rts .size f1, .-f1 .align 2 .globl main .type main, @function main: link.w %a6,#-8 clr.l -8(%a6) moveq.l #1,%d0 move.l %d0,-4(%a6) pea -4(%a6) pea -8(%a6) jbsr f1 clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"