as/misc/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