コマンドのテスト名を整理

[YACASL2.git] / as / cmd / JPL / jpl__z.casl

diff --git a/as/cmd/JPL/jpl__z.casl b/as/cmd/JPL/jpl__z.casl
new file mode 100644 (file)
index 0000000..600563c
--- /dev/null
+++ b/as/cmd/JPL/jpl__z.casl
@@ -0,0 +1,11 @@
+;;;JPL adr OF:0/SF:0/ZF:1
+MAIN    START
+        LD      GR1,A
+        AND     GR1,GR1
+        JPL     TO
+        LAD     GR1,0
+        JUMP    FIN
+TO      LAD     GR1,#FFFF
+FIN     RET
+A       DC      0
+        END