.file "931102-2.c" .text .align 2 .globl f .type f, @function f: link.w %a6,#0 sub.l %a0,%a0 clr.l %d1 move.w 10(%a6),%d1 moveq.l #1,%d0 and.l %d1,%d0 jbne .L7 .align 2 .L5: addq.l #1,%a0 move.w %d1,%d0 asr.w #1,%d0 move.w %d0,%d1 moveq.l #1,%d0 and.l %d1,%d0 jbeq .L5 .L7: move.l %a0,%d0 unlk %a6 rts .size f, .-f .align 2 .globl main .type main, @function main: link.w %a6,#0 pea 2.w jbsr f addq.l #4,%sp moveq.l #1,%d1 cmp.l %d0,%d1 jbeq .L9 jbsr abort .align 2 .L9: clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"