/PROGRAM TO REWIND A DECTAPE. /JOHN WILSON 09-MAR-84 *0 CLA TAD PROMPT SAS /PRINT PROMPT JMP .-2 TAD (202) /KB BRK IS ^J,^K,^L,^M,^[ KSB /SET KB BREAK CLA TAD KB KSR /READ 3 CHARS TAD (212) TLS /PRINT LF CLA TAD KB+3 /GET UNIT NUMBER RTR /ROTATE INTO AC0-AC2 RTR AND (7000) /MASK OUT LOWER 9 BITS TAD (20) /WE'RE GOING TO READ DCA DTA+1 /PUT IN BLOCK TAD DTA DTXA /READ BLOCK 1 DTSF /WAIT UNTIL DONE JMP .-1 DTRB /GET STATUS AND (7776) /MASK OUT DTF SNA HLT /EXIT IF NO ERROR CLA TAD ERROR SAS /PRINT MESSAGE JMP .-2 HLT /EXIT / PROMPT, .+1 -6 . "U "N "I "T "? " KB, .+1 -3 . 0 0 0 ERROR, .+1 -12 . "D "T " "E "R "R "O "R 215 212 DTA, .+1 0 0 200 /TO AVOID LITERALS $