X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Ffe_tests%2F2010_10%2FQ12%2Flrevrs.casl;fp=as%2Ffe_tests%2F2010_10%2FQ12%2Flrevrs.casl;h=0000000000000000000000000000000000000000;hb=bce17a4fab0759bd0818c44bdf3cd17edb388267;hp=66a6fbf807497be46b837573176f1e3b4f00bb49;hpb=8b9bafa8e8927ad19968969f466c756f0aeac8a3;p=YACASL2.git diff --git a/as/fe_tests/2010_10/Q12/lrevrs.casl b/as/fe_tests/2010_10/Q12/lrevrs.casl deleted file mode 100644 index 66a6fbf..0000000 --- a/as/fe_tests/2010_10/Q12/lrevrs.casl +++ /dev/null @@ -1,20 +0,0 @@ -PREVRS START - RPUSH - LD GR4,0,GR1 ; ビット列を保存 - CALL REVRS ; ビット列のビットの並びを逆転 - LD GR5,0,GR1 ; GR5 ← 逆転したビット列 - LD GR6,=16 - SUBA GR6,GR3 ; GR6 ← 16 - q - SRL GR5,0,GR2 ; 逆転した部分ビット列αを右端に移動 - SLL GR5,0,GR6 ; 逆転した部分ビット列αを左端に移動 - SRL GR5,0,GR2 ; 逆転した部分ビット列αを p ビットに移動 - LD GR6,=#8000 - SRA GR6,-1,GR3 ; q ビット連続した1の並びを作成 - SRL GR6,0,GR2 - XOR GR6,=#FFFF - AND GR6,GR4 ; 元のビット列中の部分ビット列αにゼロを設定 - OR GR6,GR5 - ST GR6,0,GR1 - RPOP - RET - END