q1

.2345678901234567890
PROG     START   1000
.ASCII OF EOF IS 4
         LDS     4
         LDT     0
         LDT     1
INLOOP   TD      F3
         JEQ     INLOOP
READ     RD      F3
         ADDR    X,T
         COMPR   A,S
         JLT     READ
         JGT     READ
         RMO     T,A
         SUB     #1
         RSUB    PROG
F3       BYTE    X'F3'
ENDOF    WORD    4
         END     PROG