as/app/fib_outl.casl

   1 ;;; 0〜65535の範囲で、フィボナッチ数列を表示する
   2 MAIN    START
   3         LAD     GR1,0           ; GR1は、第n項
   4         LAD     GR2,0           ; GR2は、インデックス
   5 BEGIN   CPL     GR2,=1          ; GR2が1以下の場合、SUMP2へジャンプ
   6         JPL     SUMP2           ; ↓
   7         LD      GR1,GR2         ; GR1にGR2をロード
   8         JUMP    FOUT            ; FOUTへジャンプ
   9 SUMP2   LD      GR1,GR3         ; GR1にGR3をロード
  10         ADDL    GR1,GR4         ; GR1 <- GR1 + GR4
  11         JOV     FIN             ; オーバーフローした場合は終了
  12 FOUT    CALL    OUTL            ; GR1の数値を表示
  13         LD      GR4,GR3         ; GR4にGR3をロード
  14         LD      GR3,GR1         ; GR3にGR1をロード
  15         LAD     GR2,1,GR2       ; GR2 <- GR2 + 1
  16         JUMP    BEGIN
  17 FIN     RET
  18         END