.file "20000205-1.c" .text .align 2 .type f, @function f: link.w %a6,#0 move.l %d2,-(%sp) move.l 8(%a6),%d1 clr.l %d0 tst.l %d1 jbeq .L1 move.b %d1,%d2 and.b #-128,%d2 .align 2 .L3: moveq.l #1,%d0 tst.b %d2 jbne .L1 clr.l -(%sp) jbsr f addq.l #4,%sp tst.l %d0 jbne .L3 clr.l %d0 .L1: move.l -4(%a6),%d2 unlk %a6 rts .size f, .-f .align 2 .globl main .type main, @function main: link.w %a6,#0 pea -129.w jbsr f addq.l #4,%sp tst.l %d0 jbeq .L11 jbsr abort .align 2 .L11: clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"