X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Ffib.casl;fp=as%2FFUNC%2Ffib.casl;h=0000000000000000000000000000000000000000;hb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;hp=77b3965f1ec8207c64bff93311e29b625456c070;hpb=85744703060a90c21ee325d3a692f80233bc281f;p=YACASL2.git diff --git a/as/FUNC/fib.casl b/as/FUNC/fib.casl deleted file mode 100644 index 77b3965..0000000 --- a/as/FUNC/fib.casl +++ /dev/null @@ -1,20 +0,0 @@ -MAIN START - LAD GR1,0 - LAD GR2,0 ; インデックス -BEGIN CPA GR2,CNT - JZE FIN - LAD GR3,SEQ,GR2 - AND GR2,GR2 - CPA GR2,=1 - JPL SUMP2 - LD GR1,GR2 - JUMP STSEQ -SUMP2 LD GR1,-2,GR3 - ADDA GR1,-1,GR3 -STSEQ ST GR1,0,GR3 - LAD GR2,1,GR2 - JUMP BEGIN -FIN RET -CNT DC 10 -SEQ DS 10 - END