--- /dev/null
+;;; 0〜65535の範囲で、フィボナッチ数列を表示する
+MAIN START
+ LAD GR1,0 ; GR1は、第n項
+ LAD GR2,0 ; GR2は、インデックス
+BEGIN CPL GR2,=1 ; GR2が1以下の場合、SUMP2へジャンプ
+ JPL SUMP2 ; ↓
+ LD GR1,GR2 ; GR1にGR2をロード
+ JUMP FOUT ; FOUTへジャンプ
+SUMP2 LD GR1,GR3 ; GR1にGR3をロード
+ ADDL GR1,GR4 ; GR1 <- GR1 + GR4
+ JOV FIN ; オーバーフローした場合は終了
+FOUT CALL OUTL ; GR1の数値を表示
+ LD GR4,GR3 ; GR4にGR3をロード
+ LD GR3,GR1 ; GR3にGR1をロード
+ LAD GR2,1,GR2 ; GR2 <- GR2 + 1
+ JUMP BEGIN
+FIN RET
+ END