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

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

diff --git a/as/FUNC/iotest.casl b/as/FUNC/iotest.casl
new file mode 100644 (file)
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