X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FCMD%2Fxor4.casl;fp=as%2FCMD%2Fxor4.casl;h=845043dbcf29f7a9742160dd8c2597f265896f28;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=0000000000000000000000000000000000000000;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/CMD/xor4.casl b/as/CMD/xor4.casl
new file mode 100644
index 0000000..845043d
--- /dev/null
+++ b/as/CMD/xor4.casl
@@ -0,0 +1,13 @@
+;;; XORで、GR1の内容をクリア
+MAIN    START
+BEGIN   XOR     GR2,GR2
+LOOP    CPA     GR2,LEN
+        JZE     FIN
+        LD      GR1,A,GR2
+        XOR     GR1,GR1
+        LAD     GR2,1,GR2
+        JUMP    LOOP
+FIN     RET
+A       DC      #8001,#8000,#FFFF,#51,#7FFF
+LEN     DC      5
+        END