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

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

diff --git a/as/macro/out/out.casl b/as/macro/out/out.casl
new file mode 100644 (file)
index 0000000..6bdf9cd
--- /dev/null
+++ b/as/macro/out/out.casl
@@ -0,0 +1,11 @@
+;;; CASL IIマクロ命令「OUT OBUF LEN」で生成される命令群
+        PUSH    0,GR1
+        PUSH    0,GR2
+        LAD     GR1,OBUF
+        LAD     GR2,LEN
+        SVC     2
+        LAD     GR1,=#A
+        LAD     GR2,=1
+        SVC     2
+        POP     GR2
+        POP     GR1