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