Newsgroups: fj.lang.c
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!foretune!lkbreth!merope!void
From: void@merope.pleiades.or.jp (Kusakabe Youichi)
Subject: Re: FlowChart, PAD, etc.
Message-ID: <1994Jul12.123249.15854@merope.pleiades.or.jp>
Organization: Macintosh User Group PLEIADES
X-Newsreader: TIN [version 1.2 PL0]
References: <1994Jul12.085643.18900@si.hirosaki-u.ac.jp>
Date: Tue, 12 Jul 1994 12:32:49 GMT
Lines: 66
Xref: galaxy.trc.rwcp.or.jp fj.lang.c:1466
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=1466&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

S.Tomoda (sltomo@si.hirosaki-u.ac.jp) wrote:
: $B%U%m!<%A%c!<%H$N>l9g$O!V$h$/$J$$!W$H8@$&$3$H$,0JA0$+$i8@$o$lB3$1$F(B
: $B$$$^$9$,!"(BPAD$B$N>l9g!"JQ$K;}$A>e$2$i$l$k$N$,2?8N$J$N$+A4$/M}2r$G$-$^$;$s!#(B

$BF146$G$9!#(B

$B;d$,G'<1$G$-$F$$$k$N$O!"!V$;$$$<$$%U%m!<%A%c!<%H$HF1$8!W(B
$B$/$i$$$N%a%j%C%H$7$+F@$i$l$J$$$N$8$c$J$$$+$H$$$&DxEY$G$9!#(B

$B%"%;%s%V%i!<MQ$N%3!<%I$G!"(B
_sub:
        link.l  fp,#L14
        movem.l #L15,(sp)
        moveq.l #10,d0
        cmp.l   (8,fp),d0
        jble    L16
        move.l  (12,fp),-(sp)
        jbsr    _foo
        addq.l  #4,sp
        jbra    L18
L16:
        addq.l  #1,(12,fp)
        move.l  (12,fp),-(sp)
        jbsr    _bar
        addq.l  #4,sp
L18:
        move.l  (12,fp),d0
        jbra    L13
L13:
        .set    L15,0x0
        unlk    fp
        rts
        .set    L14,-0
        .data
$B$J$I$H=q$$$F$"$k$h$j$O!"(BPAD$B$J$j%U%m!<%A%c!<%H$J$j$N@~$d?^7A$N$[$&$,(B
$B$:$C$H8+$d$9$$$N$G$9$,(B($B$=$l$r$=$N$^$^%3%s%Q%$%k$G$-$J$$>l9g$OEvA3!"(B
2$B=E$N%I%-%e%a%s%H4IM}$7$J$1$l$P$$$1$J$$(Bover head$B$O$"$k$,(B)$B!"(B

$B$?$H$($P(BC$B$G!"(B

sub(i, j)
int     i, j;
{
        if (i < 10)
                foo(j);
        else {
                j++;
                bar(j);
        }
        return (j);
}

$B$H$+$/$J$i$P!"(BPAD$B$d%U%m!<%A%c!<%H$G$G8+$k$h$j$h$[$I8+$d$9$$$H;W$$$^$9!#(B

C$B$G$b(BPascal$B$G$b!V8+$E$i$$%=!<%9!W$r=q$/?M$OB?$$$G$9$,!"(B
$B$=$l$O=q$-J}$,4V0c$C$F$$$k$N$G$"$C$F!"%U%m!<%A%c!<%H$r$D$1$?$H$3$m$G!"(B
$B$d$C$Q$j$=$l$O8+$E$i$$$3$H$K$OJQ$o$j$O$J$$$H;W$$$^$9!#(B
$B$=$s$J%=!<%9$O%U%m!<$G@bL@$9$k$h$j!"=q$-D>$9$Y$-$J$s$G$9!#(B


# J-3100$B$GF0:n$9$k(BPAD$B$NJT=8$N@lMQ(Btook$B$b;H$C$?$1$I!"(B
# $B$"$l$b;H$$$K$/$+$C$?(B...
  $B%X(B_$B%X(B   ----------------------------
$B%_!&!&(B $B%_(B  void@merope.pleiades.or.jp
 (     )$B!A(B          $B$/$5$+$Y$h$&$$$A(B
--------------------------------------
