X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fmacro%2Fin%2Fin.casl;fp=as%2Fmacro%2Fin%2Fin.casl;h=de3509df9f26fa5564605c8122912ab85f3f187f;hp=0000000000000000000000000000000000000000;hb=632231943932361e8c8618283f7871ff1df04aa6;hpb=87da65b534d88b60dcfb59ff1252101daf35e44e

diff --git a/as/macro/in/in.casl b/as/macro/in/in.casl
new file mode 100644
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