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