/PROGRAM TO READ AN ASCII /PAPER TAPE ON THE H.S.R., AND /PRINT IT ON THE TTY. /JOHN WILSON 31-MAR-84. *0 CLA TAD (4000 /ASSIGN HSR ASD SZA  /SKIP IF SUCCESSFUL HLT  /OTHERWISE DIE RSTTAB, CLA TAD (-10 /# OF COL'S TO NEXT TAB STOP (8) DCA COLUMN LOOP, RSF  /BUFFER EMPTY? RFC  /YES, FILL IT CLA RRB  /GET CHAR AND (177 /CLEAR HIGH BIT DCA CHAR TAD CHAR /OVER BLANK TAPE YET? SNA  /NO HLT  /YES, DIE TAD CHAR AND (7740 /MASK OUT BOTTOM 5 BITS SZA  /MUST BE CTRL CHAR JMP PRNCHR /PRINTING CHAR - PRINT IT AND UPDATE COLUMN TAD CHAR TAD (-11 /TAB? SNA JMP TAB  /YES, SPECIAL CLA TAD CHAR TAD (-14 /^L (FORM FEED)? SNA JMP FF  /YES, 5 LINE FEEDS CLA TAD CHAR TAD (-15 /CARRIAGE RETURN? SNA JMP CR  /YES, RESET TAB CLA  /NO, JUST PRINT CHAR TAD CHAR TLS JMP LOOP PRNCHR, CLA  /PRINTING CHAR TAD CHAR TAD (-177 /RUBOUT? SNA  /NO, PRINT IT JMP LOOP /OTHERWISE LOOP CLA TAD CHAR /GET CHAR BACK AGAIN TLS  /PRINT IT ISZ COLUMN /MOVE OVER A COLUMN JMP LOOP JMP RSTTAB /RESET TAB STOP TAB, CLA  /TAB TAD (240 /LOAD SPACE TAB1, TLS  /PRINT A SPACE ISZ COLUMN /CONT. UNTIL CARRY JMP TAB1 JMP RSTTAB /THEN RESET STOP FF, CLA  /FORM FEED TAD (212 /LOAD LINE FEED TLS  /PRINT 5 TIMES TLS TLS TLS TLS JMP LOOP /GET NEXT CHAR CR, CLA  /CARRIAGE RETURN TAD CHAR /LOAD CAR RET TLS  /PRINT IT JMP RSTTAB /AND RESET TAB STOP / COLUMN, 0 /-NUMBER OF COL'S UNTIL NEXT TAB STOP CHAR, 0 /CURRENT CHAR $