コマンドテストCASLファイルの追加
[YACASL2.git] / as / cmd / JOV / jov_m.casl
diff --git a/as/cmd/JOV/jov_m.casl b/as/cmd/JOV/jov_m.casl
new file mode 100644 (file)
index 0000000..14a39ab
--- /dev/null
@@ -0,0 +1,11 @@
+;;; JOV OSZ:010
+MAIN    START
+        LD      GR1,A
+        AND     GR1,GR1
+        JOV     TO
+        LAD     GR1,0
+        JUMP    FIN
+TO      LAD     GR1,#FFFF
+FIN     RET
+A       DC      -1
+        END