.file "20000422-1.c" .globl ops .data .align 2 .type ops, @object .size ops, 52 ops: .long 11 .long 12 .long 46 .long 3 .long 2 .long 2 .long 3 .long 2 .long 1 .long 3 .long 2 .long 1 .long 2 .globl correct .align 2 .type correct, @object .size correct, 52 correct: .long 46 .long 12 .long 11 .long 3 .long 3 .long 3 .long 2 .long 2 .long 2 .long 2 .long 2 .long 1 .long 1 .globl num .align 2 .type num, @object .size num, 4 num: .long 13 .text .align 2 .globl main .type main, @function main: link.w %a6,#0 movm.l #0x3020,-(%sp) sub.l %a1,%a1 move.l num,%d3 move.l %d3,%d0 cmp.l %a1,%d3 jble .L20 .align 2 .L12: move.l %d0,%d2 subq.l #1,%d2 cmp.l %d2,%a1 jbge .L22 move.l %d2,%d0 lsl.l #2,%d0 move.l %d0,%a0 add.l #ops,%a0 .align 2 .L11: move.l -4(%a0),%d0 move.l (%a0),%d1 cmp.l %d0,%d1 jble .L8 move.l %d0,(%a0) move.l %d1,-4(%a0) .L8: subq.l #1,%d2 subq.l #4,%a0 cmp.l %d2,%a1 jblt .L11 .L22: addq.l #1,%a1 move.l %d3,%d0 cmp.l %a1,%d3 jbgt .L12 .L20: tst.l %d3 jble .L24 lea correct,%a2 lea ops,%a0 move.l %d3,%a1 .align 2 .L18: cmpm.l (%a2)+,(%a0)+ jbne .L25 subq.l #1,%a1 tst.l %a1 jbne .L18 jbra .L24 .align 2 .L25: jbsr abort .align 2 .L24: clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"