;;; 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