コマンド動作検証用のCASL2プログラム整理を開始

[YACASL2.git] / as / macro / in / in.casl

diff --git a/as/macro/in/in.casl b/as/macro/in/in.casl
new file mode 100644 (file)
index 0000000..de3509d
--- /dev/null
+++ b/as/macro/in/in.casl
@@ -0,0 +1,8 @@
+;;; CASL IIマクロ命令「IN IBUF LEN」で生成される命令群
+        PUSH    0,GR1
+        PUSH    0,GR2
+        LAD     GR1,IBUF
+        LAD     GR2,LEN
+        SVC     1
+        POP     GR2
+        POP     GR1