.file "20000819-1.c" .globl a .data .align 2 .type a, @object .size a, 8 a: .long 2 .long 0 .text .align 2 .globl foo .type foo, @function foo: link.w %a6,#0 move.l 12(%a6),%d0 move.l 8(%a6),%a1 lsl.l #2,%d0 move.l %a1,%a0 sub.l %d0,%a0 cmp.l %a0,%a1 jbcs .L9 .align 2 .L7: moveq.l #1,%d0 cmp.l (%a0),%d0 jbge .L10 addq.l #4,%a0 cmp.l %a0,%a1 jbcc .L7 jbra .L9 .align 2 .L10: clr.l -(%sp) jbsr exit .align 2 .L9: unlk %a6 rts .size foo, .-foo .align 2 .globl main .type main, @function main: link.w %a6,#0 pea 1.w pea a+4 jbsr foo jbsr abort nop .size main, .-main .ident "GCC: (GNU) 3.3.2"