X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcmd%2FJPL%2Fjpl_o.casl;fp=as%2Fcmd%2FJPL%2Fjpl_o.casl;h=58729f65d039aae70f96b5d728cb960bc72af4be;hb=e53b9aa2cd0e67ff64c52fa1b83e16c048283dbd;hp=0000000000000000000000000000000000000000;hpb=f2b4a9880e544d2fcb54f5a6dda673f67767d93d;p=YACASL2.git

diff --git a/as/cmd/JPL/jpl_o.casl b/as/cmd/JPL/jpl_o.casl
new file mode 100644
index 0000000..58729f6
--- /dev/null
+++ b/as/cmd/JPL/jpl_o.casl
@@ -0,0 +1,11 @@
+;;; JPL OSZ:001
+MAIN    START
+        LD      GR1,A
+        SRL     GR1,1
+        JPL     TO
+        LAD     GR1,0
+        JUMP    FIN
+TO      LAD     GR1,#FFFF
+FIN     RET
+A       DC      #0003
+        END