1 ;;; 入力 GR1:整数 2 ;;; 出力 GR0:フィボナッチ数 3 FIB START 4 PUSH 0,GR1 5 PUSH 0,GR2 6 PUSH 0,GR3 7 LAD GR0,0 ; フィボナッチ数 8 LAD GR2,0 ; インデックス 9 LOOP CPA GR2,GR1 10 JZE FIN 11 LAD GR3,SEQ,GR2 12 AND GR2,GR2 13 CPA GR2,=1 14 JPL O2 15 LAD GR0,1 16 JUMP STSEQ 17 O2 LD GR0,-2,GR3 18 ADDL GR0,-1,GR3 19 STSEQ ST GR0,0,GR3 20 LAD GR2,1,GR2 21 JUMP LOOP 22 FIN POP GR3 23 POP GR2 24 POP GR1 25 RET 26 SEQ DS 24 27 END