CASLファイルの構成変更。casllibとmiscを分離

[YACASL2.git] / as / misc / iotest.casl

diff --git a/as/misc/iotest.casl b/as/misc/iotest.casl
new file mode 100644 (file)
index 0000000..fe5f553
--- /dev/null
+++ b/as/misc/iotest.casl
@@ -0,0 +1,20 @@
+IOTEST  START
+        OUT     OBUF1,OLEN1
+LOOP    IN      IOBUF,IOLEN
+        LD      GR1,IOLEN
+        JZE     RETURN
+        OUT     OBUF2,OLEN2
+        OUT     IOBUF,IOLEN
+        OUT     OBUF3,OLEN3
+        JUMP    LOOP
+RETURN  RET
+; Memory
+OBUF1   DC      'LET''S START. TYPE IN'
+OLEN1   DC      20
+OBUF2   DC      'YOU TYPED'
+OLEN2   DC      9
+OBUF3   DC      'WHAT''S NEXT?'
+OLEN3   DC      12
+IOBUF   DS      64
+IOLEN   DS      1
+        END