dumpwordコマンドで数値以外の値が引数のときにエラーが発生するよう修正
[YACASL2.git] / as / FUNC / iotest.casl
1 IOTEST  START
2             OUT     OBUF1,OLEN1
3 LOOP    IN      IOBUF,IOLEN
4             LD      GR1,IOLEN
5         JZE         RETURN
6             OUT     OBUF2,OLEN2
7             OUT     IOBUF,IOLEN
8             OUT     OBUF3,OLEN3
9             JUMP    LOOP
10 RETURN  RET
11 ; Memory
12 OBUF1   DC      'LET''S START. TYPE IN'
13 OLEN1   DC      20
14 OBUF2   DC      'YOU TYPED'
15 OLEN2   DC      9
16 OBUF3   DC      'WHAT''S NEXT?'
17 OLEN3   DC      12
18 IOBUF   DS      64
19 IOLEN   DS      1   
20             END