casl2libが自動でビルドされるように
[YACASL2.git] / as / misc / fib.casl
1 MAIN    START
2         LAD     GR1,0
3         LAD     GR2,0           ; インデックス
4 BEGIN   CPA     GR2,CNT
5         JZE     FIN
6         LAD     GR3,SEQ,GR2
7         AND     GR2,GR2
8         CPA     GR2,=1
9         JPL     SUMP2
10         LD      GR1,GR2
11         JUMP    STSEQ
12 SUMP2   LD      GR1,-2,GR3
13         ADDA    GR1,-1,GR3
14 STSEQ   ST      GR1,0,GR3
15         LAD     GR2,1,GR2
16         JUMP    BEGIN
17 FIN     RET
18 CNT     DC      10
19 SEQ     DS      10
20         END