X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcmd%2FJPL%2Fjpl__z.casl;fp=as%2Fcmd%2FJPL%2Fjpl__z.casl;h=600563c84311a92b683d0d09eb06e86a191168d4;hb=66e1d81600e0a66998245b5d11a75ccf30886ab6;hp=0000000000000000000000000000000000000000;hpb=9e662b933c41f16c22598248b8aefe7c8efb4c88;p=YACASL2.git

diff --git a/as/cmd/JPL/jpl__z.casl b/as/cmd/JPL/jpl__z.casl
new file mode 100644
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