.file "920501-1.c" .text .align 2 .globl x .type x, @function x: link.w %a6,#0 tst.l s jbne .L2 move.l s+4,%d0 lea s+4,%a0 move.l %d0,(%a0,%d0.l*4) moveq.l #1,%d0 jbra .L1 .align 2 .L2: .L1: unlk %a6 rts .size x, .-x .align 2 .globl main .type main, @function main: link.w %a6,#0 clr.l s+4 clr.l s clr.l -(%sp) jbsr x addq.l #4,%sp moveq.l #1,%d1 cmp.l %d0,%d1 jbeq .L4 jbsr abort .align 2 .L4: clr.l -(%sp) jbsr exit nop .size main, .-main .comm s,8,2 .ident "GCC: (GNU) 3.3.2"