コマンドテストの刷新

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

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