.file "20020611-1.c" .text .align 2 .globl x .type x, @function x: link.w %a6,#0 moveq.l #30,%d0 cmp.l n,%d0 scc %d0 extb.l %d0 neg.l %d0 seq %d1 extb.l %d1 addq.l #1,%d1 move.l %d1,p tst.l %d0 seq %d0 extb.l %d0 addq.l #1,%d0 move.l %d0,k unlk %a6 rts .size x, .-x .globl n .data .align 2 .type n, @object .size n, 4 n: .long 30 .text .align 2 .globl main .type main, @function main: link.w %a6,#0 jbsr x moveq.l #1,%d0 cmp.l p,%d0 jbne .L8 cmp.l k,%d0 jbeq .L7 .L8: jbsr abort .align 2 .L7: clr.l -(%sp) jbsr exit nop .size main, .-main .comm p,4,2 .comm k,4,2 .ident "GCC: (GNU) 3.3.2"