アセンブラファイルとテストの整理

[YACASL2.git] / as / CMD / svc2_out.casl

diff --git a/as/CMD/svc2_out.casl b/as/CMD/svc2_out.casl
new file mode 100644 (file)
index 0000000..5902866
--- /dev/null
+++ b/as/CMD/svc2_out.casl
@@ -0,0 +1,16 @@
+;;; 「OUT」と同等のプログラム
+OTEST   START
+        PUSH    0,GR1
+        PUSH    0,GR2
+        LAD     GR1,OBUF
+        LD      GR2,LEN
+        SVC     2
+        LAD     GR1,=#A
+        LAD     GR2,1
+        SVC     2
+        POP     GR2
+        POP     GR1
+        RET
+OBUF    DC      'abcd'
+LEN     DC      4
+        END