as/FUNC/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