X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fiotest.casl;fp=as%2FFUNC%2Fiotest.casl;h=af25ff30d5efe85615e465828ada1b8165d07878;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=0000000000000000000000000000000000000000;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/FUNC/iotest.casl b/as/FUNC/iotest.casl
new file mode 100644
index 0000000..af25ff3
--- /dev/null
+++ b/as/FUNC/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