.file "20000412-4.c" .text .align 2 .globl f .type f, @function f: link.w %a6,#0 movm.l #0x3800,-(%sp) move.l 8(%a6),%d4 move.l 16(%a6),%a0 move.l 20(%a6),%d3 move.l %d4,%d2 sub.l %a0,%d2 move.l %d2,%d0 not.l %d0 add.l %d0,%d0 subx.l %d0,%d0 move.l %d2,%d1 and.l %d0,%d1 move.l %d1,%d2 moveq.l #2,%d0 cmp.l %d1,%d0 jblt .L15 move.l %a0,%d0 sub.l %d4,%d0 add.l %d1,%d0 moveq.l #3,%d4 sub.l %d1,%d4 move.l %d4,%d1 muls.l %d3,%d0 sub.l 12(%a6),%d0 add.l %a0,%d0 .align 2 .L8: tst.l %d0 jblt .L18 subq.l #1,%d1 add.l %d3,%d0 tst.l %d1 jbne .L8 .L15: moveq.l #2,%d0 cmp.l %d2,%d0 jblt .L17 moveq.l #3,%d4 sub.l %d2,%d4 move.l %d4,%d1 .align 2 .L13: subq.l #1,%d1 jbne .L13 jbra .L17 .align 2 .L18: jbsr abort .align 2 .L17: movm.l -12(%a6),#0x1c unlk %a6 rts .size f, .-f .align 2 .globl main .type main, @function main: link.w %a6,#0 move.l %a2,-(%sp) move.l %d2,-(%sp) moveq.l #1,%d2 lea f,%a2 .align 2 .L24: pea 8.w pea 5.w pea 2.w pea 1.w move.l %d2,-(%sp) jbsr (%a2) lea (20,%sp),%sp addq.l #1,%d2 moveq.l #3,%d0 cmp.l %d2,%d0 jbge .L24 clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"