* JOB TAPETEST PROGRAM * CTL 6611 *6=16,000C;6=16,000T;1=OBJDECK;,1=MODADD ORG 350 * BEGIN H CS 299 *CLEAR MEMORY WTM 3 *WRITE TAPE MARK RWD 3 *REWIND RT 3,201 *READ H *HALT * CS 299 *CLEAR MEMORY WTM 3 *WRITE TAPE MARK RWD 3 *REWIND RTW 3,201 *lOAD H *-3 *HALT AND LOOP BACK TO HALT NOP *GENERATES AN EXTRA WORDMARK END BEGIN