+++ /dev/null
-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